Digital PDFs

AH-9102D-MC

March 1982

192 pages

Original

127MB

view download

OCR Version

202MB

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_gray.pdf

OCR Text

RK611
K06, RKO7

RK611

DSKLS PRT 2
CZR6BDO

AH
- 9102
k1l CHE 1

Pory Emisis
e HIBTNE]D

CZR6BDO RK611 DSKLS CTRL PRTZ

“IR6BD P

<O 000 NN

PNONUPNUN) 3 b =2 b b

B e

b —B 2

2O Q00 NN 8o

14=SEP=-81

13:4

MACY11

30(1046)

14-SEP-81

.REM %

15:10

PAGE 2

SEG 0001

IDENTIFICATION

PRODUCT CODE:

AC=9100D=-M(

PRODUCT NAME:

(ZR6BDO kK611

DATE:

AUGUST

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

BRIAN LE BLANC

DKSLS PRTZ

10 1981

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
NO RESPONSIBILITY FOR ANY ERROR THAT MAY APPEAR IN THIS DOCUMENT.
THE

SOF TWARE

DESCRIBED

IN THIS DOCUMENT

IS FURNISHED UNDER A

LICENCE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OF RELIABILITY OF
NOT SUPLIED BY DIGITAL.

(C)

ITS SOFTWARE ON EQUIPMENT

THAT

1976,1981 BY DIGITAL EQUIPMENT CORPORATION

13:47

14-SEP-81
TABLE OF

15:10

PAGE 3

SEQ 0002

CONTENTS

1.0 ABSTRACT

2.0 REQUIREMENTS
2.1 EQUIPMENT
2 .2 PRELIMINARY PROGRAMS
B

14=SEP=81

CZR6BD.P11

MACY11 30(1046)

()

(ZR6BDO Rk611 DSKLS CTRL PRT2

OPERATING PROGRAMS
3.1 LOADING PROCEDURE
3.2
.2
STARTING PROCEDURE
3 .3 OPTIONAL SWITCH SETTING
3 .4 RUN TIME

4.0 OPERATING PROCEDURES

5.0 PROGRAM DESCRIPTION

6.0 ERROR REPORTING
1.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.
THIS
PROGRAM DOES NOT REQUIRE THE PRESENCE OF AN RKO6 DRIVE.

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

2.2 PRELIMINARY PROGRAMS
RK611

DISKLESS CONTROLLER DIAGNOSTIC:
CZROAXX

PART 1

3.0 OPERATING PROCEDURES
3.1

LOADING PROCEDURE

THE

PROGRAM CAN BE LOADED FROM PAPER

OR FROM ANY MEDIA SUPPORTED BY XXDP.

3.2 STARTING PRGCEDURE

TAPE

USING ABSOLUTE

LCADER

(ZR6BDO RK611 DSKLS CTRL PRT2
14=SEP=81 13:47
FIREBD.P11

MACY11

30(1046)

14-SEP-81

15:10

PAGE 4

SEQ 0003

LOCATION 200

= START PROGRAM

LOCATION 204

= RESTART PROGRAM

LOCATION 214

= REQUEST BUS ADDRESS, VECTOR ADDRESS, AND
PRIORITY MODIFICATION

NS W =0V~
S~
WV —=OVO YO NSBWN—=O
VN
VYO

SW15
SW14
SW13
SW12
SW11
SW10
SW9
SW8

=
=
=
=
=
=~
=~

HALT PROGRAM
LOOP ON TEST
INHIBIT ERROR TYPE OUT
ABORT AFTER 20 ERRORS

INHIBIT
BELL ON
LOOP ON
LOOP CON

ITERATION COUNT
ERROR
ERROR
TEST IN SWITCHES 0-7

3.5 RUN TIME
FIRST PASS

7 SECONDS

SUBSEQUENT PASSES

4.0

2 MINUTES

OPERATING PROCEDURES

THE PROGRAM IS EXECUTED BY

STARTING AT

THE

APPROPIATE

ADDRESS.

5.0 PROGRAM DESCRIPTION
**DRIVE MESSAGE LOADING

TEST 1

FIRST COMMAND IN MAINT MODE

INITIALIZE RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER

MODE. ISSUE SELECT DRIVE. WAIT AND MAKE SURE (S1 REMAINS
THE SAME. CLOCK IN MESSAGES A AND B. MAKE SURE
%?:?ECT MSG ARE LOADED. CHECKING IS DONE A FIELD AT A

TEST 2

DRIVE SELECT BITS LOADING FOR DRIVE MESS.

INITIALIZE RK611 WITH CONTROLLER CLEAR.

PUT CONTROLLER

DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 2 WIT
ZERO.
LOAD COMMAND AND STATUS REGISTER WITH A SELECT
COMMAND.
CLOCK IN MESSAGES A AND B INTO SHIFT REGISTER.
g?fEC§URE1C?§RECT MESSAGES ARE LOADED.
REPEAT FOR DRIVE

R
N
B
JU I

e g

WWNIWWWWWWWANNDNORNDNDNOMNDNVNDMNIND)
= = e a0 (et
a0 w2 a0 00000

3.3 OPTIONAL SWITCH SETTIiNGS

TEST 3

FORMAT BIT LOADING TO FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.

DIAGNOSTIC MODE.

PUT (ONTROLLER [N

LOAD COMMAND AND STATUS REGISTER 1

WiT

(ZR6BDO RK611 DSKLS CTRL PRT2
“IR&BD.P11
14=SEP=B1 13:4°

MACY11 30(1046)

14-SEP-81

15:10

-3

PAGE 5

144

SEQ 0004

A SELECT COMMAND AND 24 SECTOR MODE FORMAT.

145

CORRECT MESSAGE

123

TEST 4

150

HEAD

IS LOADED.

SELECT BITS LOADING FOR DRIVE

CLEAR RK611 WITH CONTROLLER CLEAR.

MAKE SURE

MESS.

PUT CONTROLLER IN

151

DIAGNOSTIC MODE.

153
154

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

152

LOAD TRACK ADDRESS WITH ZERO.

COMMAND AND STATUS REGISTER 2 WITH ZERO.

}gg

MESSAGE IS LOADED.

157
}gg

TEST S

160

REPEAT FCR TRACK ADDRESS = 1-7.

MESSAGE SELECT BITS LOADING FOR DRIVE MESS.
CLEAR RK611 WITH CONTROLLER CLEAR.

DIAGNOSTIC MODE AND ZERO IN MESSAGE

OOV OOV O OO0
N NN NN NYNN “~Lo 7o Yo Yo o Yo No Yo o
S WY
0O NN
NN 2O 000NV B WA 2O 000 O
S Wy — o OO NIV

161

LOAD

LOAD COMMAND

PUT CONTROLLER IN
SELECT BITS.

LOAD

—

COMMAND AND STATUS REGISTER 1 WITH A SELECT COMMAND.
CL
IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE
CORRECT MESSAGE IS LOADED.
REPEAT FOR MESSAGE SELECT =

TEST

CLEAR DRiVE

COMMAND LOADING FOR DRIVE

MESS

- B

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

A DRIVE

CLEAR.

CLOCK MESSAGE

A AND B

INTO SHIFT REGISTE

REPEAT

MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.
FOR 24 SECTOR FORMAT.

QR Y

TEST

UNLOAD COMMAND LOADING FOR DRIVE MESS.

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

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

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

e
T J SR S
S

199

10 PACK ACKNOWLEDGE COMMAND LOADING FOR DRIVE MESS.

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 COMMAND AND STATUS REGISTER 1 wlT

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

REGIST
E—

(JR6BDO RK61T DSKLS CTRL PRT2
(ZREBD.P11
14=SEP=-81 13:4

MACY11

30(1046)

%82

14-SEP-81

15:10

-3

PAGE 6

TEST 12 START SPINDLE

204

DIAGNOSTIC MODE.
A START SPINDLE.

%8;

MAKE

209

%¥9

TEST

212

218

TEST

221
222
¢23
224
225
22

13 SEEK AND CYLINDER ADD 0-777 LOADING FOR DRIVE MESS

PUT CONTROLLER IN

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

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

%%%

TEST

231
232
233
234

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

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD O IN CYLINDER ADDRESS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH SEEK COMMAND AND
CDT SET.
CLOCK IN MESSAGE A AND B INTO SHIFT REGISTER.

MAKE SURE CYLINDER CORRECT. REPEAT FOR CYLINDER = 777-1

g;g
:

240
241
242
243
244
245
246

TEST

16 OFFSET COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
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.

%gg

255

SURE SHIFT REGISTERS ARE LOADED CORRECTLY.

DIAGNOSTIC MODE.
LOAD ZERO 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.

%%%

251
252
253
254

PUT CONTROLLER IN

LOAD COMMAND AND STATUS REGISTER 1 wIT
CLOCK MESSAGES A AND B INTO SHIFT REGI

CLEAR RK611 WITH CONTROLLER CLEAR.

213
214
215
g}g

237

COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.

205
206

%gg

SEQ 0005

TEST 17 CYLINDER ADDRESS LOADING OF DRIVE MESS

(PART

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 SELECT.
CLOCK

MESSAGES A AND B INTO SHIFT REGISTERS.

MAKE SURE

(ZR6BDO Rk611 DSKLS CTRL PRT?
CIREBD.PIT
14=SEP=81 13:47

MACY11

30(1046)

14-SEP-81

15:10

G 1
PAGE 7

SEQ 0006

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

ADDRESS FIELD

IS ZERO

IN DRIVE MESSAGE.

TEST 20 CYLINDER ADDRESS LOADING OF DRIVE MESS

(PART 2)

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 PACK ACKNOWLEDGE.
C(LOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CCRRECTLY AND THE CYLINDER
ADDRESS FIELD

TEST 21

IS ZERO IN DRIVE MESSAGE.

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 3)
CLEAR RK617 WITH CONTROLLER CLEAR.
PUT CONTROLLER
DIAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER

WITH 777.

LOAD THE OFFSET REG TO 52.

LOAD COMMAND

AND STATUS REGISTER 1 WITH A CLEAR DRIVE.
C(CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

ADDRESS FIELD

IS ZERO

IN DRIVE MESSAGE.

TEST 22 CYLINDER ADDRESS LOADING OF DRIVE MESS

CLEAR RK611 WITH CONTROLLER CLEAR.

DIAGNCSTIC MODE.

WITH 777.

(PART &)

PUT CONTROLLER IN

LOAD CYLINDER ADDRESS REGISTER

LOAD THE OFFSET REG TO 52.

LOAD COMMAND

AND STATUS REGISTER 1 WITH AN UNLOAD.
CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER
ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.

YESTE 25 CYLINDER ADDRESS LOADING OF DRIVE MESS

(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 SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER
ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.
TEST 24 CYLINDER ADDRESS LOADING OF

DRIVE MESS

CLEAR RK611 WITH CONTROLLER CLEAR.

DIAGNOSTIC MODE.

WITH 777.

(PART 6)

PUT CONTROLLER IN

LOAD CYLINDER ADDRESS REGiSTER

LOAD THE OFFSET REG TO 52.

LOAD COMMAND

AND STATUS REGISTER 1 WITH A RECALIBRATE.

CLOCK

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

SURE
CYLINDER

DSKLS CTRL1§RT2
14-SEP-81

MACY11

30(1046)

14-SEP-81

15:10

H
1
PAGE 8

SEQ 0007

ADDRESS FIELD

IS ZERO

IN DRIVE MESSAGE.

TEST 25 MESSAGE SELECT BIT 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 PACK ACKNOWLEDGE.

OOV

NN
NN NN W
N = =2 = a2
s —

NONWVNESW ~no

(ZR6BDO RK611
CIR6BD.P1T

CLOCK MESSAGE TO LOAD B SHIFT REG.

MESSAGE

TEST 26 MESSAGE

SELECT BITS ARE

CLEARED.

TIME.

SELECT BIT CLEARING FOR CLASS A

CLEAR RK611 WITH CONTROLLER CLEAR.

MAKE SURE

(PART 2)

PUT CONTROLLER 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.
TEST 27 MESSAGE

SELECT BIT CLEARING FOR CLASS A

(PART 3)

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

30 MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 4)
CLEAR RK611 WITH CONTROLLER CLEAR.

PUT CONTROLLER IN

DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOCAD
COMMAND AND STATUS REGISTER 1 WITH A START SPINDLE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

MESSAGE
TEST

SELECT BITS ARE

CLEARED.

3 MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 5)
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
TEST

CLEARED.

32 MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 6)
CLEAR RK611 WITH CONTROLLER CLEAR.

PUT CONTROL!'ER IN

DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
COMMAND AND STATUS REGISTER 1 WITH A OFFSET.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE

MESSAGE

SELECT BITS ARE

CLEARED.

LOAD

SURE

(ZR6BDO RK611 DSKLS CTRL PRT?
14-SEP=81 13:47
TIREBD.P1T

MACY11

30(1046)

14=-SEP-81

15:10

PAGE

SEQ 0008

TEST 33 MESSAGE

SELECT BIT CLEARING FOR CLASS A (PART 7)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SEEK.

CLOCK MESSAGE TO LOAD B SHIFT REG.
MESSAGE SELECT BITS ARE CLEARED.
**DRIVE MESSAGE

TIME.

MAKE SURE

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.
CLOCK 4 BITS
THROUGH THE DRIVE MESSAGE LOOPBACK. VERIFY THAT BITS
ARE INDEED LOOPED BACK.

TEST 35 DRIVE MESSAGE SHIFT

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

SHIFTED PROPERLY.

VERIFY

CLOCK 8 BITS

THAT BITS ARE

TEST 36 DRIVE MESSAGE PARITY PRECONDITIONING

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

REPEAT FOR BAD PARITY GENERATION.

g
i
:

TEST 37 ODD 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

THAT PARITY HAS BEEN

GENERATED CORRECTLY. REPEAT FOR MESSAGE SELECT =

DRIVE SELECT = 2-17.

TEST 40 DRIVE MESSAGE PARITY

INTERACTION

CLEAR THE RK611 WITH A CONTROLLER CLEAR., PUT CONTRCLLER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER 2

(JR6BDO RK611 DSKLS CTRL PRT2
"CIR6BD.P11
14=SEP=-81 13:4

MACY11

30(1046)

14=SEP-81

15:10

3
Jd
PAGE 10

SEQ 0009

424

WITH DRIVE

SELECT =

427

SELECT

AND DRIVE

SELECT = 0.

425
426

LOAD COMMAND AND STATUS REGISTER

WITH A SELECT COMMAND. VERIFY THAT THE CORRECT PARITY
IS GENERATED FOR BOTH MESSAGES. REPEAT FOR MESSAGE

25
agq

TEST 41 EVEN DRIVE MES” 'GE PARITY GENERATION

432
433
434
435
436
437
438

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.
REPEAT FOR MESSAGE SELECT =
DRIVE SELECT
= 2-17.

439

440

22;

**CLASS A COMMAND EXECUTION

222

TEST 42 RELEASE

445
446

o35

IN DIAGNGSTIC MODE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. LOAD COMMAND AND
STATUS RLCGISTER 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.

447
448
449

450
451

COMMAND

figg

456
457
458
459
460
461
22%

TEST 43 SELECT COMMAND IN DIAGNOSTIC MODE

MAKE SURE NO ERRORS SET.

REPEAT FOR DRIVE SELECT = 1-7.

SELECT = 11-17

TEST 45 INTERRUPT AT COMMAND COMPLETION
CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

477

LOWER PROCESSOR PRIORITY TO ZERO.

479

INTERRUPT OCCURS.

478

DRIVE MESSAGE.

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAK.
LOAD COMMAND AND STATUS REGISTER 2 WITH DRIVE SELECT =
LOAD COMMAND AND STATUS REGISTER 1 WITH A SELECT.
MAKE SURE NO ERRORS OCCUR. REPEAT FOR DRIVE

471

476

CYCLE OF

TEST 44 RELEASE COMMAND IN NORMAL MODE

467
468
469
470

2;§

CLOCK COMMAND TO COMPLETION. MAKE SURE MESSAGE SHIFT

NOT DONE DURING THE RECEIVE

464
222

472
473

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. LOAD COMMAND AND
STATUS REGISTER 2 WITH DRIVE SELECT = 0. LOAD
COMMAND AND STATUS REGISTER 1 WITH A SELECT.

ISSUE A RELEASE

COMMAND WITH INTERRUPT ENABLE SET. MAKE SURE
LOWER PRIORITY AFTER

INTERRUPT

C(ZR6BDO RK611 DSKLS CTRL PRT?

CIR6BD.P11

14=SEP=81

13:4

MACY11

30(1046)

14=SEP-81

15:10

K
1
PAGE 1

SEQG 0010

AND MAKE SURE

INTERRUPT HAS CLEARED.

LOWER PROCESSOR PRIORITY TO ZERO.

REISSUE RELEASE

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

INTERRUPT OCCURS.

TEST 46 GO CLEAR OF

SILO

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

WRITE ONE WORD INTO THE SILO.
ISSUE A RELEASE 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)
TEST 47 SEEK COMMAND

IN DIAGNOSTIC MODE

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
BITS ARE SET.

SET AND NO ERROR

**ERROR AND STATUS BIT FORCING WITH DRIVE MESSAGES

TEST 50 DRIVE STATUS FROM SHIFT REGISTER

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

Vi AV
v
AN
NN=
=
g

—=OVO NV
WN =

510

RK611

CONTROLLER IN DIAGNOSTIC MODE.

PUT

ISSUE_A SEEK

TO AN RKOG6 IN 26 SECTOR FORMAT, CYLINDER 757, HEAD 1,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADPRESS
6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE SPEED LOSS,
DRIVE AVAILABLE, VOLUME VALID, OFFSET, DRIVE READY,
AND WRITE LOCK ARE

TEST 51

DRIVE AVAILABLE

SET.

SETTING

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A SEEK

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

TO A RKO

CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.

TURN OFF DIAGNOSTIC MODE AND MAKE
AVAILIABLE SETS.

SURE DRIVE

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 0,
DRIVE 0. CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF

DIAGNOSTIC MODE

AND MAKE

SURE

DRIVE BUS

(ZR6BDO RK611 DSKLS CTRL PRT2
14-SEP-81 13: '
CZR6BD.P11

MACY11

30(1046)

14-SEP-81

15:10

PAGE 12

SEQ 0011

PARITY,

DPRIVE AVAILIABLE,

AND CONTROLLER ERROR ARE

SET.

TEST 53 DRIVE AVAILABLE RESET ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

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

DRIVE AVAILIABLE

54 CDT SET DRIVE TYPE
CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

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 DIAGNJSTIC MODE
AND MAKE SURE ONLY DRIVE AVAILIABLE SETS.
TEST

55 (DT SET AND DRIVE

TYPE ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

CONTROLLER_IN DIAGNOSTIC MODE.

AND

CONTROLLER ERROR

ISSUE A SEEK

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
AND MAKE SURE DRIVE AVAILIABLE, DRIVE TYPE ERROR,

TEST 56 RKO6 AND DRIVE

SET.

TYPE ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR

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. TURN OFF DIAGNOSTIC

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

DRIVE

TYPE

ERROR,

TEST 57 SPEED LOSS FROM SHIFT REG.

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 1, DRIVE 0.

CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6. TURN
OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE AVAILIABLE AND
SPEED LOSS ARE SET.
TEST 60 DRIVE OFF

TRACK FROM SHIFT REQS.

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

MACY11

30(1046)

14-SEP-81

15:10

PAGE 13

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 RKOS SUBSYSTEM WITH A S'UBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A PACK ACKNOWLE

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, WRITE LOCK ERROR AND CONTROLLER ERROR
ARE SET WITH DRIVE AVAILIABLE RESET.

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

Nols R NTo NV, F o

e
d ek
=D

TEST 62 SEEK INCOMPLETE
PUT CONTKOLLER IN DIAGMOSTIC 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.

620

TEST 63 NON-EXECUTABLE DRIVE FUNCTION FROM SHIFT REG.

CLEAR 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 64 AC

LOW AND .C-D PARITY FROM SHIFT REG.

CLEAR RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR, PUT RK611
CONTROLLER IN DIAGNOSTIC MODE.

ISSUE A START SPINDLE

T0 AN RKO6, IN 24 SECTOR FORMAT, CYLINDER 0, HEAD 0,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6
TURN OFF

DIAGNOSTIC MODE AND MAKE

SURE AC LOW. DRIVE

DETECTED SERCOM PARITY, AND CONTROLLER ERROR SET WITH
DRIVE AVAILABLE RESET.” .
TEST 65

ILLEGAL DISK ADDRESS ERROR FROM SHIFT REG.
Rl

CZR6BDO RK611
CZR6BD.P11

DSKLS

ZTRL PRT?

14=SEP=-81

13:47

MACY11

30(1046)

14=SEP-81

15:10

PAGE

648
649
650
651
652

SEQ 0013

CLEAR RK(06 SUBSYSTEM WITH A SUBSYSTEM (CLEAR.

PUT

RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A RECAL IBRAT
TO AN RKO6, IN 26 SECTOR FORMAT, CYLINDER O, 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 CONTROLLER
ERROR ARE SET WITH DRIVE AVAILABLE RESET.
TEST 66

IDAE DETECTION IN RK611

CONTROLLER

(PART

CLEAR RKOS SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

RXu11 -CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A
SEEK TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 1003,
HEAD 0O, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE

SURE DRIVE AVAILABLE,

AND

ILLEGAL DISK ADDRESS ERROR,

CONTROLLER ERROR ARE

TEST 67 IDAE DETECTION IN RK611

SET.

CONTROLLER

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

ADDRESS 6.

CLOCK IN DIAGNOSTIC MODE UNTIL PHASE

TURN OFF DIAGNOSTIC MODE AND MAKE SURE

DRIVE AVAILABLE AND POSITIONING IN PROGRESS ARE
WITH ILLEGAL DISK ADDRESS ERROR RESET.

-TEST 70

IDAE DETECTION IN RK611

CONTROLLER

(PART

SET

CLEAR RKO6 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 0.
CLOCK IN DIAGNOSTIC MODE UNTIL

PHASE

ADDRESS 6.

TURN OFF

DIAGNOSTIC MODE

AND MAKE

SURE DRIVE AVAILABLE, DRIVE OFF TRACK, SPEED LOSS,
é%%EGAL DISK ADDRESS ERROR, AND CONTROLLER ERROR ARE

TEST 71

IDAE DETECTION IN RK611

CONTROLLER

(PART4)

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.,

RK611

CONTROLLER IN DIAGNOSTIC MODE.

PUT

ISSUE A SEEK

TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 3, HEAD
4, DRIVE 0.
CLOCK IN DIAGNOSTic MODE UNTI( PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE

DRIVE AVAILABLE, UNSAFE,

AND CONTROLLER ERROR ARE

TEST 72 IDAE DETECTION IN RK&'Y

ILLEGAL DISK ADDRESS ERROR

SET,

CONTROLLER

(PART

MACY11

30(1046)

14=SEP-81

15:10

PAGE 15

SEQ 0014

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

RK611

CONTROLLER IN DIAGNOSTIC MODE.

PUT

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.

TEST 73 IDAE DETECTION IN RK611

CONTROLLER

(PART 6)

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

RK611

CONTROLLER IN DIAGNOSTIC MODE.

PUT

ISSUE A SEEK

WITH CDT SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD 6,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS
6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILABLE, UNSAFE, DRIVE OFF TRACK, ILLEGAL

DISK ADDRESS ERROR, AND CONTROLLER CLEAR ARE SET.

TEST 74 NON=-STANDARD MESSAGE RECEIVING

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

WITH CDT SET IN 24 SECTOR FORMAT, CYLINDER 1757, HEAD 7,
DRIVE 1.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6
TURN OFF

DIAGNOSTIC MODE AND MAKE

SNR~8R2VE STATUS

IS NOT REPORTED.

SURE NO ERRORS SET

REPEAT FOR DRIVES

TEST 75 DRIVE BUS PARITY ON NON-STANDARD MESSAGE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT THE RK611

CONTROLLER IN DIAGNOSTIC MODE.

ISSUE

A SEEK TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 2,

HEAD 0, DRIVE 1.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6.
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 CLEAR.

PUT THE RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER O,
HEAD O, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 5.
TURN OFF DIAGNOSTIC MODE
AND MAKE SURE NON-EXISTENT DRIVE AND CONTROLLER
ERROR ARE SET.
THIS TEST CHECKS NON-EXISTENT DRIVE
DUE TO DRIVE MESSAGE TIME OUT.

TEST 77 NON=EXISTENT DRIVE AND NO SACK

£~

CZR6BDO Rk611 DSKLS CTRL gRTZ
14-SEP-81
1
(ZR6BD.P11T

CZR6BDO RK611 DSKLS CTRL _PRT?
14=SEP=81 13:47
CZR6BD.P11

MACY11

30(1046)

14-SEP-81

15:10

PAGE 16

SEQ 0015

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
THE RK611

CONTROLLER IN DIAGNOSTIC MODE.

ISSUE A

PUT

SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 0,
CLOCK IN DIAGNOSTIC MODE UNTIL

HEAD 0, DRIVE 0.
PHASE ADDRESS 4.

TURN OFF

DIAGNOSTIC MODE AND MAKE

NON-EXISTENT DRIVE AND CONTROLLER ERROR ARE SET.

SURE

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
INDEED CAUSE A NON-EXISTENT DRIVE.

«*~]LLEGAL FUNCTION CODE TEST
TEST

ILLEGAL FUNCTION CODE

100

CLEAR RK611 WITH A CONTROLLER CLEAR.

ISSUE AN ILLEGAL

COMMAND IN NORMAL MODE AND MAKE SURE COMMAND FINISHES
SETTING CONTROLLER READY WITH PROPER ERROR CONDITIONS.

6.0 ERROR REPORTING
THE GENERAL

FORMAT OF

ERROR REPORTS

1IS:

OPERATION DESCRIPTION AND ERROR DESCRIPTION
TEST
ERROR

NUM

XXXXXX

EXPECT

REG

1277717

NOTE:

PC
YYYYYY

ACTUAL
REG
WWWWWW

MOVE

OTHER PERTENANT
INFORMATION
AAAAAA

THAN ONE

PRINTED OUT.

OF MORE

SET OF

e il

EXPECT/ACTUAL REGISTERS MAY BE

OTHER PERTENANT

THAN ONE WORD.

INFORMATION MAY

CONSIST

CZR6BD.P11

14-SEP=-81

13:47

MACY11

30(1046)
:

*xx

14-SEP-81

REV

003

15:10

D 2
PAGE 17

SEQ 0016

wxx

.TITLE
CZR6BDO RK611 DSKLS CTRL PRTZ
*COPYRIGHT (C) 1976,1981
*DIGITAL EQUIPMENT COKP.
*MAYNARD, MASS. 01754
*

*PROGRAM BY ROY

SPITZER

;*THIS PROGRAM WAS ASSEMBLED USING THE

;*PACKAGE

(MAINDEC-11-DZQAC-C5), JAN,

PDP-11

1981.

MAINDEC

SYSMAC

.SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

mEmEmammm

OOV

o
.
¢
;*

[

00 0o 0o 0o 0o 0o 0o 0o 00 o

e R
e
]

821

.SBTTL

STACK=

000011
000012
000015
000200

HT=

177774
177772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000

e e e

USE

- -

HALT ON ERROR

LOOP ON TEST

i2
11
10
9
8

ABORT PROGRAM AFTER 20 ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

INHIBIT ERROR TYPEOUTS

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER **x 1100 *#=

001100

177776

.EQUIV
.eQulv

1100

EMT,ERROR
I0T,SCOPE

;;BASIC DEFINITION OF
;:BASIC DEFINITION OF

s *MISCELLANEOUS DEFINITIONS

ERROR CALL
SCOPE CALL

:;CODE FOR HORIZONTAL

PS=
.EQUIV

177776
PS,PSW

: ;PROCESSOR STATUS WORD

PIRQ=
DSWR=
DDISP=

177772
177570
177570

LF=
CR=
CRLF=

12
15
200

STKLMT= 177774

;:STACK LIMIT REGISTER
: ;PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

aaGENERAL PURPOSE REGISTER DEFINITIONS

; sGENERAL REGISTER

R2=
R3=

¥4
%3

; :GENERAL REGISTER
s sGENERAL REGISTER

R1=

R4=

RS=
R6=
R7=

SP=

P(=

%5
%6
%7

J*PRIORITY LEVEL

PRO=

TAB

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

; ;GENERAL REGISTER

;sGENERAL REGISTER

; ;GENERAL REGISTER
; ;GENERAL REGISTER
; ;GENERAL REGISTER

::STACK POINTER

: ;PROGRAM COUNTER
DEFINITIONS

::PRIORITY LEVEL

CZR6BDO Rk611 DSKLS CTRL PRT?

100000

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

PRS=

PR6=

PR7=

s+ 'SWITC
SW15=
Swil4=

SW13=
Sw12=
SW11=
Sw10=
Sw0%9=
Sw08=
SW07=
SW06=
SW05=

;sPRIORITY LEVEL
;:PRIORITY LEVEL

;sPRIORITY LEVEL
;sPRIORITY LEVEL
;sPRIORITY LEVEL
s sPRIORITY LEVEL
STER'" SWITCH DEFINITIONS

10000
4000
2000
1000
400

000004

B{T DSSINITIONS (BITOO TO BIT15)

~N0C0
O

———

n
-

[velvelve]

——

(elele]
~ 00O

(=lele]
b
e b

100

MO =P =N

D D~~~

R e

o~ = =

e e e

SW09,SW9
Sw08,Sw8
SW07,Sw7
SW06,Swé
SWO5,SW5
SW04,SWé
SW03,Sw3
SW02,Sw?
SW01,Sw1
Sw00,Sw0
OO
o0
OO
o

—=

CCCOO0OO0O0O0OOO0OOOO—=——aaaa- >
b
e O = NN S NONNOOC D =N WS —
PN n>»
<<<<
N NN ihnan

- -

T
T SN
ey e

(0D 0o Co Co 0o 0o Co Go o 0o o 0o o o

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

100000

.EQUIV
.EQUIV
LEQUIV
LEQUIV
LEQUIV
LEQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV

000002
000001

SEQ 0017

—

E £
PAGE 18
NONWN
S NN —

S OHLOHr00
OOOOOO

PR4=

15:10

;sPRIORITY LEVEL

WWNON)
—

PR1=

PR2=
PR3=

OO0V

000040
000100
000140
000200
000240
000300
000340

13:47

NS =T

14-SEP=-81

30(1046)
14-SEP-81
BASIC DEFINITIONS

CZR6BD.P11

MACY11

Laalaa e s

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BDO RK611 DSKLS CTRL1§RT2

CZR6BD.P11

14-SEP-81

MACY?1 30(1046)
14=-SEP-8 1
BASIC DEFINITIONS
.EQUIV
.EQUIV
LEQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV

911
912
913
914
915
916
917

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

000001

120210

000005

177440

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

000001
000003
000005
000007
000011
000013
000015

15:10

PAGE 19

SEQ 0018

BIT06,BITé
BITO5,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT?
BITO01,BIT]
BIT00,BITO

:*BASIC ''CPU'" TRAP VECTOR ADDRESSES

ERRVEC= &
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14

..TIME OUT AND OTHER ERRORS
RESERVED AND ILLEGAL INSTRUCTIONS
;2T BIT
..TRACE TRAP
: :BREAKPOINT TRAP (BPT)

PWRVEC= 24

:;POWER FAIL

IOTVEC= 20

: 2 INPUT/0UTPUT TRAP (I0T)

EMTVEC= 30

::EMULATOR TRAP (EMT)

TRAPVE(C=34

::"'TRAP'' TRAP

TKVEC=
60
TPVEC=
64
PIRQVE(C=240
MEMVEC= 114
MEMBAS= 172100
PAR.EN= 1
AVECT1= 120210
APRIOR= 5§

=*SCOPEx=*

=<~ERRORx*

;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR
;VECTOR FOR MEMORY CHECK ENABLE
;BUS ADDRESS FOR MEMORY CHECK ENABLE
JMEMORY ENABLE PARITY CHECKING
;DEFINE RK611 VECTOR ADDRESS
;DEFINE RK611 PRIORITY

ABASE=

177440

.SBTTL

RK611

RKCS1=
RKWC=
RKBA=
RKDA=
RKCS2=

0
2
4
6
10

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

RKER=

JERPOR REGISTER

RKDS=

:DEFINE BASE OF RK611

CONTROLLER REGISTER DEFINITION

RKASOF=
RKDCYL=
RKDB=
RKMR1=
RKMR2=
RKMR3=
RKECPS=
RKECPT=
RKSPAR=

16
20
24
26
34
36
30
32
22

.SBTTL

DRIVE

;DRIVE STATUS REGISTER

;ATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;DATA BUFFER
JMAINTENANCE REGISTER 1
JMAINTENANCE REGISTER 2
JMAINTENANCE REGISTER 3
JECC POSITICN INFORMATION
JECC PATTERN INFORMATION
;SPARE REGISTER

COMMANDS

SELDRvV= 01

sSELECT DRIVE

CLEAR=
05
UNLOAD= 07
SRTSPL= 11

;DRIVE CLEAR
sUNLOAD
;START SPINDLE

PACK=

RECAL=
13
OFFSET= 15

REGISTERS

;PACK ACKNOWLEDGE

sRECALIBRATE
OFFSET

CZR6BDO RK611 DSKLS CTRL PRT?

CZR6BD.P11

14-SEP=-81

967

000017
000021

968
969
970
971

G672

973
974
975
976
977
978
979

000023
000025
000027
000031
000300

i it d = OO
WA —=O 00
PONOND = —2 =3 =3 b
N = OV
NN

d wcd
ul al) wll wd nl) w
al) cnld wdd
il ah

WRHEAD= 27
WRTCHK= 31
INTR=
300

PAGE 20

; SEEK

sREAD DATA
;JWRITE DATA
sREAD HEADER

sWRITE HEADER AND DATA
;WRITE CHECK
; GENERATE INTERRUPT TN CPU

000001
000100
000200
000400
001000
002000
004000

GU=
IE=
RDY=
BA16=
BA17=

BITO
BITé
BIT7
BIT8
BIT9

;GO BIT
s INTERRUPT ENABLE
s CONTROLLER READY
;BUS ADDRESS BIT 16
;BUS ADDRESS BIT 17

010000
020000

CFMT=
SPAR=
DI=
CERR=
CCLR=

BIT12
BIT13
BIT14
BITI15
BIT15

DRIVE RESPONSE
:
;CONTROLLER DRIVE FORMAT (0=26 SECTOR, 1=24 SECTOR)
;DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER
;DRIVE INTERRUPT
;CONTROLLER ERROR
;CONTROLLER CLEAR

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS

100000

SEEk=

RDDATA= 21
WRDATA= 23
RDHEAD= 25

15:10

(ONTROL AND STATUS REGISTER 1 BITS

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

14-SEP-81
30(1046)
DRIVE COMMANDS

.SBTTL

040000
100000
100000

oleleleloleloleolololelelels
o)

13:47

MACY11

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

(DT=
(T0=

BIT10
BIT11

DRVMSK= 7

RLS=
BAI=

BIT3
BIT4

PGE =

BIT10

SCLR=
IR=
OR=
UFE=
MDS=
NEM=
NED=

;CONTROLLER DRIVE TYPE (0=RK06’
;CONTROLLER TIMED OUT WAITING FOR

sMASK FOR DRIVE SELECTION CODE

;DESELECT OR RELEASE DRIVE IN BITS 0-2
;BUS ADDRESS INCREMENT INHIBIT

BITS
BITé
BIT7
BIT8
BIT9

;CLEAR CONTROLLER AND ALL DRIVES
: INPUT READY
;OUTPUT READY
;UNIT FIELD ERROR
sJMULTIPLE DRIVE SELECT

BIT11
BIT12

sNON=-EXISTENT MEMORY
sNON-EXISTENT DRIVE

:PROGRAMMING ERROR

UPE=
WCE=
DLT=

BIT13
BIT14
BIT15

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=

BITO

sILLEGAL FUNCTION CODE

DRPAR=

BIT3

;DRIVE DETECTED DRIVE BUS PARITY ERRCR

SKI=
NXF =

FMTE=

BIT1
BIT?
BIT4

JUNIBUS PARITY ERROR
;WRITE CHECK ERROR
;DATA LATE ERROR

:SEEK _INCOMPLETE
sNON-EXECUTABLE DRIVE FUNCTION
;FORMAT ERROR

DTYE=
ECH=
BSE=

BITS
BITé
BIT7

;DRIVE TYPE ERROR
sECC HARD
;BAD SECTOR ERROR

COE=
IDAE=

BITY
BIT10

- sCYLINDER ADDRESS OVERFLOW ERROR
sINVALID DISK ADDRESS ERROR

HVRC=

WLE=
DTE=

BIT8

BIT11
BIT1?

;HEADER VR(C ERRROR

;WRITE LOCK ERROR
;DRIVE TIMING ERROR

SEQ (019

CZR6BDO RKE11
CZR6BD.P11

1023

1024

DSKLS CTRL PRT'
14-SEP-81 13:4

H 2
30(1046)
14=S EP-81
15:10 PAGE 21
ERROR REGISTER BIT DEFINITION

SEQ 0020

020000

OPl=

BIT13

;OPERATION (SEARCH)

100000

DCK=

BIT15

;DATA (CHECK

.SBTTL

STATUS REGISTER BIT DEFINITION

040000

}852

MACY11

185;

UNS=

BIT14

sDRIVE UNSAFE

IN{OMPLETE

1029

000001

DRA=

BITO

;DRIVE AVAILABLE

1031
1032
1033
1034
1035
1036

000004
000010
000020
000040
000100
000200

1038
1039

004000
020000

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

BIT?
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT11
BIT13
BIT14
BIT15

;DRIVE OFFSET
JAC LOW
s SPEED LOSS
;DRIVE OFF TRACK
;VOLUME VALID
;DRIVE READY
;DRIVE TYPE (0=RK06)
;WRITE LOCK
;POSITIONING IN PROGRESS
;DRIVE STATUS CHANGE
;STATUS VALID

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

1030

1037

000400

1040

040000

}825

100000

}822
}822

000017

MESMSK= 17

1047

000020

PAT=

BIT4

1053

002000

MEWD=

BIT10

1048
1049
1050
1051
1052
1054

1055
1056
1057
}828

000040
000100
000200
000400
001000

DMD=
MSP=
MIND=
MCLK=
MERD=

004000

PCA=

010000
020000
040000
100000

}82?
1062
1063
1064
1065
1066
1067
1068

000020
000040
000100
000200
000400
001000
002000

1069

;8;?
1072
1073
1074
1075
1076
1077
1078

000174
000176

;

(CONTROLLER

_THIS BIT IS RESET)

;FORCE EVEN PARITY ON DRIVE MESSAGE LINES

BITS
BIT6
BIT?7
BiT8
BIT9

sDIAGNOSTIC MODE
:MAINTENANCE SECTOR PULSE
JMATNTENANCE INDEX
JMAINTENANCE CLOCK
sMAINTENANCE ENCODED READ DATA

BIT1]

;PRECOMPENSATION ADVANCE

PCD=
ECCw=_
WRTGAT=
RDGATE=

BIT12
BIT13
BIT14
BIT15

.SBTTL

TRANSMITTED MESSAGE A

S.SEEK=
S.RECL=
S.STSP=
S.RTC=
S.CLR=
S.FMT=
S.UNLD=

BIT4
BITS
BITé
BIT7
BIT8
BIT9
BIT10

.SBTTL

TRAP CATCHER

sMAINTENACNE ENCODED WRITE DATA
:PRECOMPENSATION DELAY
;ECC_WORD IS BEING READ OR WRITTEN
;WRITE GATE
JREAD GATE

; SEEK COMMAND
sRECALIBRATE COMMAND
sSTART SPINDLE COMMAND
;DRIVE RETURN TO CENTERLINE COMMAND
;CLEAR ERROR AND DSC
; FORMAT
s UNLOAD

S.PACK= BIT11

000000

.=0
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ''.+2 MHALT"'
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174
DISPREG: .WORD
0
::SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
s SOFTWARE SWITCH REGISTER

000174

sMESSAGE MASK

004000

000000
000000

IS SET

sSET VOLUME

VALID

(PACK ACKNOWNLEDGE)

C(ZR6BDO RK611 DSKLS CTRL PRT?
14=SEP=81 13:47
CZR6BD.P11
000200
000204

000137
888537

004316
004306

000214

000137 004276

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

I
2
PAGE 22

.SBTTL

STARTING ADDRESS(ES)
IMP
HSTART ;:;JUMP TO STARTING ADDRESS OF PROGRAM
JMS14
RESTRT
:JUMP TO RESTART ROUTINE

LSBTTL

ACT11 HOOKS

PARM

SEQ 0021

:JUMP TO OPERATOR ASSIGNED PARMETERS

""ti'.fi't.tt.ttttitt.'t'itt"ttfit"tI".fitfitt*ttfi.tfi't'vtti"'tl..'

000220

*HOOKS REQUIRED BY ACT11

$SVPC=.

000046

000046
8858?3

=46
SENgAD

000052

000000

"WORD

000220
001000

.SBTTL

=$SVPC
-=1000

:SAVE PC
::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .S$EOP

;:2)SET LOC.52 TO ZERO
: RESTORE PC

APT PARAMETER BLOCK

::ttttt*t*ttifittfit.ttt't"'tt*t*t'tt*t*lttfittt'titt'ti.ttt't't't'

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

)
e I
e
e
e
S
Y
e

PHL B
AL L0000 000000
VB WN 2OV NN
WN—=O

[

e ]

1099

".'tt*tt'il‘ttt!’tttttt*"t*'t"ttfifitttttttfittttttt*tttittttt*tiittt

001000

000024
000044

.$X=.

000024
000200
000044
001000
001000

=24
200
.=44
$APTHDR
=.$X

::SAVE

CURRENT LOCATION

::SET POWER FAIL TO POINT TO START OF PROGRAM
*:FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

ttttit*ltt*ttttttttt't'tt'ttttfititt.t.iitt'fiilttit'tttttt*ttQti

SSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
“INTERFACE SPEC.

001000
001000
007002
001004
001006
001010
001012

000000
001214
000001
000007
000007
000032

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$SUNITM:

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

0
::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
::ADDRESS OF APT MAILBOX (BITS 0-15)
1
S:RUN TIM OF LONGEST TEST
7
“:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
7
*:ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ::LENGTH MAILBOX-E
TABLE (WORDS)

CZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14=-SEP=-B1 13:47

MA(CY11 30(1046)
14-SEP-81
COMMON TAGS

15:10

PAGE 23

SEQ 0022

COMMON TAGS

.SBTTL

1119

1120

s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

11246
1125
1126

001100
0061100
001102

1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143

001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136

1127
1128
1129
1130
1131
1132

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

RR AN AR

R AR

RR AR R

AR AR RN RN

;*USED IN THE PROGRAM.

”S;
1123

001103
001104
001106
001110
001112
001114

001140

0071142
001144
001146
001150
001152
007154
001155
001156
001157
001160
001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001210

001211
001212

001100
000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000
000000
000000
000000
0009200
000000
000000
000000
000000
000000
177607
077
015
000012

$CMTAG:

000377

.=1100

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$ERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$8DDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
$TMP1:
_WORD
$TMP2:
.WORD
$TMP3:
_WORD
$TMP4:
_WORD
$TMPS5:
.WORD
$TMP6:
.WORD
$TMP7:
_WORD
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
L.ASCII
$CRLF:
L.ASCII
SLF:
LASCIZ

0
0
0
O
0
0
O
0
1
0
0
0
0
0
0
0
0
0
O
DSWR
DDISP

;:START OF

COMMON TAGS

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

INDICATOR
INDICATOR

;;ADDRESS OF SWITCH REGISTER

s sADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
;:TTY KBD BUFFER
;sTTY PRINTER STATUS REG. ADDRESS
;2TTY PRINTER BUFFER REG. ADDRESS
0
;s CONTAINS NULL CHARACTER FOR FILLS
2
;sCONTAINS # OF FILLER CHARACTERS REQUIRED
12
;s INSERT FILL CHARS. AFTER A "LINE FEED"'
0
;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
0
2 JUSER DEF INED
O
2 sUSER DEF INED
O
2 sUSER DEF INED
O
s JUSER DEF INED
O
2 sUSER DEF INED
0
2 sUSER DEF INED
O
2 sUSER DEF INED
O
2 sUSER DEF INED
2 sMAX. NUMBER OF ITERATIONS
;sESCAPE ON ERROR ADDRESS
<207><377><377> ;;CODE FOR BELL
/72%/
2 2QUESTION MARK

<15>
<12>

AR R R AR

RN R R R R RN

2 sCARRIAGE RETURN
s:LINE FEED

AR AR R AR AR AP RN RN R R AR A RN R R RN R

};98

.SBTTL

APT MAILBOX-ETABLE

1171
1172

L
T T T T Y
.EVEN

CZR6BDO RK611

(ZR6BD.P11
1173
1176
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209

1210
1211
1212
1213
1214
1215
1216

;g;g

001214
001214
001216
001220
001222
001224
001226
001230
001232
001234
001234
001235
001236
001240
001242

DSKLS CTRL PRTZ

14=-SEP-81

13:47

MACY11

30(1046)

14-SEP-81

APT MAILBOX=-ETABLE

001244
001245

000
000

001246

000000

001250
001251
001252
001254
001255
001256
001260

000
000
000000
000
000
000000
000

$SMAIL :
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$ENV:
.BYTE
$ENVM:
.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD
s
Bt
s
s
:®
s
$MAMS1: .BYTE
$MTYP1: .BYTE
:*
i*
i
F
$MADR1: .WORD
e
$MAMS2: .BYTE
$MTYP2: .BYTE
$MADRZ: .WORD
$MAMS3: .BYTE
$MTYP3: .BYTE
$SMADR3: .WORD
$MAMS4: .BYTE

000000
120210
000000
177440
000000
000000
000000

$MADR4:
$VECT1:
$VECT2:
$BASE:
$DEVM:
$(DW1:
$CDW2:

001261

001262
001264
001266
001270
007272
001274
001276

001300

000000
000000
000000
000000
000000
000000
000000
000000

000
000
000000
000000
000000

000

$MTYP4:

SSEET?:
.MEX

.BYTE

.WORD
.WORD
.WORD
.WOKD
_WORD
.WORD
.WORD

15:10

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

AMAMS1
AMTYP1

AMADR1
AMAMS2
AMTYP2
AMADR?2
AMAMS3
AMTYP3
AMADR3
AMAMS4

PAGE 24

; sAPT MAILBOX
;:;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;:TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT
;;I/0 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH
: sAPT 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.PD0=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 MOS=003

;;HIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF
;:;HIGH ADDRESS,M.S. BYTE
;:MEM.TYPE ,BLK#2
;;MEM.LAST ADDRESS,BLKA2
;;HIGH ADDRESS,M.S.BYTE
;:MEM.TYPE ,BLKA3
;:MEM.LAST ADDRESS,BLKA3

;;HIGH ADDRESS,M.S.BYTE
AMTYP4 ;:MEM.TYPE ,BLKA4

AMADR4
AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACDW2

SEQ 0023

;;MEM.LAST ADDRESS,BLK#4
;;INTERPUPT VECTORA#1,BUS PRIORITY#1
;;INTERRUPT VECTOR#2BUS PRIORITY#?
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
;;CONTROLLER DESCRIPTION WORD#1
;;CONTROLLER DESCRIPTION WORD#2

“‘TYPE'* ABOVE

CZR6BDO RKk611 DSKLS CTRL PRT2
CZR6BD.P11
14=SEP=81 13:47

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

L &
PAGE 25

SEQ 0024

;g;g

.SBTTL

1221
1222
1223
1224

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
:*NOTE1:
IF S$ITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRPC).

1227
1228
1229
}5;9

i*
i
iw
i*

}gsg

1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262

1263

1264
1265
1266
1267

1268

1269
1270
1271
1272
1273
1274

ERROR POINTER TABLE

:*NOTE2:

001300
001300
001302
001304
001306

000000
000000
046602
047236

001310
001312
001314
001316

052472
057223
046622
047272

001320
001322
001324
001326

052472
057266
046622
047272

001330
001332
007334
001336

052472
057145
046622
047272

001340
001342
001344
001346

052472
057174
046622
047272

0071350
001352
001354

052576
057223
046644

001356

047326

001360
001362
001364
001366

052576
057337
046644
047326

001370
001372
001374
001376

052576
057145
046644
047326

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

EM
DH
DT
DF

;:POINTS
::POINTS
::POINTS
::POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:
:
ERROR 1: ATTEMPTING TO SET CMD BIT DRIVE MESS A
EMIN:
0
0
DT001

DFOO1

ERROR 2: ATTEMPTING A SELECT OF DRIVE NUM = CS1 INCORRECT
EM106
EM2003
DT002
DF002
ERROR 3: ATTEMPTING A SELECT
OF DRIVE NUM = DRIVE NUM INCORRECT
EM106
EM2004
DT002
DF002
ERROR 4: ATTEMPTING A SELECT OF DRIVE NUM - MESSAGE A INCORRECT
EM106
EM2001
DT002

DF002
ERROR 5: ATTEMPTING A SELECT OF DRIVE NUM - MESSAGE B INCORRECT
EM106
EM2002
DT002
DF002
ERROR 6: ATTEMPTING A SELECT WITH HEAD ADD = CS1
EM107
EM2003
DT006

INCORRECT

DF006

ERROR 7: ATTEMPTING A SELECT WITH HEAD ADD - HEAD INCORRECT
EM107
EM2005
DT006

DF006

ERROR 10: ATTEMPTING A SELECT WITH HEAD ADD = MESSAGE A INCORRECT
EM107
EM2001
DT006
DF006
ERROR 11:

ATTEMPTING A SELECT WITH HEAD ADD = MESSAGE B INCORRECT

NO NS WN—=OVONO
NS WN—=OO
OV

001400
001402
001404
001406

052576
057174
046644
047326

001410
001412
001414
001416

052673

046666
047362

001420
001422
001424
001426

052673
057404
046666
047362

001430
001432
001434
001436

052673
057433
046666
047362

001440
001442
001444
001446

052673
057145
046666
047362

001450
001452
001454
001456

052673
057174
046666
047362

001460
001462
001464
007466

052773
057223
046714
047416

001470

052773
057067
046714
047416

052773
057145
046714
047416
052773
057174
046714
046714

001530

MACY11

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

PAGE 26

SEQ 0025

EM107
EM2002
DT006
:

ATTEMPTING

SELECT WITH MESS SELECT BITS

(ST

INCORRECT

ATTEMPTING

SELECT WITH MESS SELECT BITS

MR1

INCORRECT

ATTEMPTI&G

SELECT WITH MESS SELECT BITS

MESS SELECT CODE

ATTEMPTING

SELECT WITH MESS SELECT BITS - MESS A INCORRECT

ATTEMPTING

SELECT WITH MESS SELECT BITS

ATTEMPTING

SEEK TO AN RKO06

ATTEMPTING

SEEK TO AN RKQ6 = SEEK BIT IN MESS A NOT SET

ATTEMPTING

SEEK TO AN RKO6

CYLINDER ADD INCORRECT

ATTEMPTING

SEEK TO AN RK06

MESSAGE

INCORRECT

ATTEMPTING

SEEK TO AN RKO06

MESSAGE B

INCORRECT

ATTEMPTING

SEEK WITH (DT SET = CS1

057223

052773
057503
046714
047416
o
o

oo Co CoC0000000LO0000 NN~
0 oo NOWNS
W
=000~

RNV

il ol
il
b ol wtld anld
il wld
b

o oo

b
il e
i
i
) i
)
i
i
i
i
) i
i
)l
il
ol
il

290

WNWWWWIWWWWWIWWNWWWIUWWNWWNWN
WK
WMLV
R R LB LD LR B a LD

il il

CZR6BDO RK611 DSKLS CTRL PRTZ
(ZR6BD.P11
14-SEP-81 12:4

053046

CS1

MESS B

INCORRECT

IN MESS B

BD O RK611

001532 057293

001534
001536

046714

001540
047416
053046

057503
046714
047416

WWWWNW

001570
001572
001574
001576

053046
057174
046714
047416

WWWW

001600
001602
001604
001606

053123
057223
046736
047452

001610
001612
001614
007616

053123
057554
046736
047452

001620
001622
001624
001626

053123
057145

046736
047452

001630
00i632
001634
001636

053123
057145
046736
047452

001640
001642
001644
001646

053166
057223
046760
047506

333BBEEIIII

W N W W NN

001566

053046
057145
046714
047416

WWWW

WWW

oo
NN NNV
S S SNBSS WWWW CIWWWW
WN 2O VONO VS WN
OV
VJONVS WA 2OV
N
NS WA -

NWWNWWW W NN NN NN N

DSKLS CIRL PRT2
14-SEP-81 13:47

001650
001652
001654
001656

053166
057067
06t 760
047506

MACY11

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

15:10

N 2
PAGE 27

£Q 0026

EM2003
DT01?
DFO17
ERROR 25: ATTEMPTING A SEEK TO AN RKKQ7 = SEEK BIT IN MESS A NOT SET
EM110
EM2000
DT017
DFO17
ERROR 26: ATTEMPTING A SEEK WITH CDT SET
CYLINDER ADD

INCORRECT

IN MESS B

EM110
EM2008
DT017
DFO017
Efi??g 27: ATTEMPTING A SEEK WITH CDT SET = MESSAGE A INCORRECT
EM2001
DTO017
.
DFO17
ERROR 30: ATTEMPTING A SEEK WITH CDT SET = MESSAGE B INCORRECT

ERROR 31: ATTEMPTING OFFSET

CS1

ERROR 32: ATTEMPTING OFFSET

OFFSET BITS

INCORRECT

ERROR 33: ATTEMPTING OFFSET
MESS A INCORRECT
EM111
EM2001
DTO31
DFO31
ERROR 34: ATTEMPTING OFF 3ET
MESS B INCORRECT
EM111
EM2001
pTC3?
DFO31
ERROR 35: ATTEMPTING COMMAND WITH NON=ZERQ CYL ADD AND OFFSETEM112

EM2003
DT035
DFO35

(S1

ERROR 36:
EM112

Em2000
D103S
DF 038
-

INCORRECT

ATTEMPTING (CMMAND WITH NON-ZERQO CYL ADD AND OFFSET=

DRIVE

COMMAND BIT

NOT

SET

[N MESS A

CZREBD.P11T

14-SEP-81

13:4

30(1046)

14-SEP-81

ERROR POINTER TABLE

15:10

PAGE 28

MACY11

SEQ 0027

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

001660
001662
001664
001666

053166
057503
046760
047506

001670
001672
001674
001676

053166
057145
046760
047506

0017C0

053166
057174
046760
047506

L =]
—=O0

053321
057223
046666

L
L
1 T
B
N
o VO NOA VIS WN=O VNIV
W

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

053321
057145
046666
047362

001760
001762
001764
001766

053321
057174
046666
047362

&~ PP RN o
WN T T
T

e
e
S
e S
e
e
A
B

S ol ol P 2P ol S

R O

047362

EM112

CYLINDER ADDRESS BITS INCORRECT IN MESS B

EM2008
DTO35
DFO035
ERROR 40: ATTEMPTING COMMAND WITH NON-ZERO CYL. ADD AND OFFSET=EM112

MESS A

INCORRRECT

EM2001
DTO35
DFO35

ERROR 41: ATTEMPTING COMMAND WITH NON-ZERO CYL ADD AND OFFSET=EM112

MESS B

INCORRECT

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

CS1

INCORRECT

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

MAINT REG 1

INCORRECT

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

DRIVE

COMMAND BIT

INCORRECT

EM2000
DT012
DT012

ERROR 45: ATTEMPTING COMMAND WwITH NON-ZERO HSG SELECT
EM113

MESSAGE SELECT SELECT CODE

IN MESSAGE B INCORRECT

EM2007
DT012
DFO012
ERROR 46: ATTEMPTING COMMAND WITH NON-ZERO MSG SELECT
EM113

MESS A

INCORRECT

EM2001
DT012
DFO012
ERROR 47: ATTEMPTING COMMAND WITH NON-ZERO MSG SELECT
i1

MESS B

EM2002
DTO12
DFO12
ERROR 50:

INCORRECT

ATTEMPTING TO SHIFT DRIVE MESSAGE
SHIFT REG A INCORRECT

CZR6BDO RKE11 DSKLS CTRL PRTZ

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BD.P11

14-SEP=-81

1443
1444
1445
1446

001770
001772
001774
001776

053433
057145
047004
047542

1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465

002000
002002
002004
002006

053433
057174
047004
047542

002010
002012

053476
057625
047026
047576

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498

1447
1448

1466

13:47

MACY11

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

;

EM114
EM2001
DTO50
DFO50

ERROR 51:
EM114
EM2002
DTO50
DFO50

ERROR 52:

EM115
EM2010
DT052
DFO52

ERROR 53:

002026

053476
057667
047026
047576

EM115
EM2011
DT052
DFO52
ERROR 54:

002030
002032
002034
002036

053476
057145
047026
047576

EM115
EM2001
DT052
DF052

002040
002042
002044
002046

053476
057174
047026
047576

EM115
EM2002
DT052
DFO52
ERROR 56:

002050
002052
002054
002056

053570
057625
047026
047576

EM116
EM2010
DT052
DF052

002060
002062
002064
002066

053570
057667
047026
047576

002070
002072
002074
002076

053570

002100
002102

;

ERROR 55:

ERROR 57:
EM116
EM2011
DT052
DFO52

ERROR 60:
EM116
EM2001
DT052
DFO052
ERROR 61:
EM116
EM2002

PAGE 29

SEQ 0028

ATTEMPTING TO SHIFT DRIVE MESSAGE
SHIFT REG B INCORRECT

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

INCORRECT

ATTEMPTING TO GENERATE ODD PARITY ON SELECT DRIVE MESSAGE
PARITY ON MESSAGE B

INCORRECT

ATTEMPTING TO GENERATE
MESSAGE A INCORRECT

ODPD PARITY ON SELECT DRIVE

MESSAGE

ATTEMPTING TO GENERATE
MESSAGE B INCORRECT

ODD PARITY CN SELECT DRIVE MESSAGE

ATTEMPTING TO GENERATE EVEN PARITY ON SELECT DRIVE MESSAGE
PARITY ON MESSAGE

INCORRECT

ATTEMPTING TO GENERATE EVEN PARITY ON SELECT DRIVE MESSAGE
PARITY ON MESSAGE IS INCORRECT

ATTEMPTING TO GENERATE
MESSAGE A INCORRECT

EVEN PARITY ON SELECT DRIVE MESSAGE

ATTEMPTING TO GENERATE
MESSAGE B INCORRECT

EVEN PARITY ON SELECT

DRIVE MESSAGE

CZR6BDO Rk611 DSKLS CTRL PRT2
(ZR6BD.P11
14-SEP-81 13:47
1499
1500
1501
1502
1503
1506
1505
1506
1507
1508
1509

002104
002106

047026
047576

002110
002112
002114
002116

053663
057223
047042
047622

002120

002122

057731

1512
1513
1514
1515
1516
1517
1518
1519
1520

002126

047622

002130
002132
002134
002136

053663
057774
047042
047622

1522
1523

002140
002142

054000
060020

1511

1521

002124

002144
002146

002150

054000

1531
1532

002154
002156

047066
047646

1533
1534
1535
1536
1537
1538
1539
1540
1541

1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554

002152

002170
002172
002174
002176

054000
060300
047076
047672

002200

002204
002206

054000

:
:
3

:
:
:

EM117

SEQ 0029

ATTEMPTING COMPLETE EXECUTION OF DESELECT DRIVE IN
MAINT MODE = COMMAND AND STATUS REG 1 INCORRECT.

ATTEMPTING COMPLETE EXECUTION OF DESELECT DRIVE IN

MAINT MODE - COMMAND AND STATUS REG 2 INCORRECT.

DF 062
ERROR 64%:
EM117
EM2013
DT062
DF062
ERROR 6€5:

EM118
EM2014

DT065
DF 065
ERROR 66:
EM118

ATTEMPTING COMPELTE EXECUTION OF DESELECT DRIVE

MAINT MODE - ERROR REG.

INCORRECT.

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

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

EM2015
:
3
:

:
:
:

$
5

057223

047042
047622

EM117
EM2003
DT062
DF 062
ERROR 63:

PAGE 20

DT062

060106

054000
060200
047076
047672

DT052
DFO52
ERROR 62:

EM2012

047066
047646

002160
002162
002164
002166

002202

:
3

047042

1524
1525
1526
1527
1528
1529

1530

:
:

053663

1510

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

DT065
DF 065

ERROR 67:
EM118
EM2016
DT067
DF067
ERROR 70:
EM118
EM2017
DT067
DF067
ERROR 71:
EM118

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

ATTEMPTING COMPLETE EXECUTION_OF 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 INCORRECT.

EM2003
4
3

DT062
DF 062
ERROR 72:

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

oo
VYUY
W OV

EM118
EM2013
DT062
DF 062
ERROR 74&:

o _
o
D e
e e e
—

054000
057774
047042
047622

VIV NN N A N TNV
N TN NN A
o 0o 0o 00 00 Qo 00000000 Yy~ NNN
wvh
S NWNN—=O
0 co~

)
il
D il
cd il
il i

ERROR POINTER TABLE

EM119
EM2001
DT062
DF06Z
ERROR 75:
EM119
EM2012
DT062
DF062
ERROR 76:

002240
002242
002244
002246
002250
002252
002254
002256

054113
057774
047042
047622

NO2260
002262
002264
002266

054202
057223
047066
047646

002270
002272
002274
002276

054276
060400
047112
047716

Ownu’

D i
) i ol

14=SEP-81

EM118
EM20°2
DT062
DF 062
ERROR 73:

002230
002232
002234
002236

D i

30(1046)

054000
057731
047042
047622

002300

13:47

MACY11

14-SEP-81

002226

alal

DO RK611 DSKLS CTRL PRT?

054276
060430
047042
047622
054276
060513
047042
047622

054276
060576
047042

EM119
EM2013
DT062

DF 062

ERROR 77:
EM120
EM2003
DT065
DF 065
ERROR 100:

15:10

PAGE 31

SEQ 0030

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

ATTEMPTING EXECUTION OF

DESELECT DRIVE AT NORMAL

ATTEMPTING EXECUTION OF

DESELECT DRIVE AT NORMAL

SPEED - COMMAND AND STATUS REG.

INCORRECT.

SPEED - COMMAND AND STATUS REG. 2 INCORRECT.

ATTEMPTING EXECUTION OF DFSELECT DRIVE
SPEED = ERROR REG INCORRECT.

ATTEMPTING TO WRITE

CS1

IN MAINT MODE

AT NORMAL

- (S1

INCORRECT

ATTEMPTING EXECUTION OF DESELECT DRIVE WITH
INTERRUPT DID NOT OCCUR.

SET

ATTEMPTING EXECUTION OF

DESELECT

WITH

SET

EM121
EM2019
DT062
DF062
ERROR 102:

ATTEMPTING EXECUTION OF

DESELECT DRIVE WITH

SET

EM121
EM2020
DT062
DF 062
ERROR 103:

ATTEMPTING EXECUTIOM OF

DESELECT C T D DRIVE WITH IE

SET

EM121
EM2018
DT100
DF100
ERROR 101:

EM121
EM2021
DT062

CS1

INCORRECT AFTER INTERRUPT.

DRIVE

CS2 INCORRECT AFTER INTERRUPT,

FTER
INTERRUPT
ERROR REGISTER IN CORRECT AFTER

(ZR6BDO RK611 DSKLS CTRL PRT?2
14=SEP=81 13:4~
CZR6BD.P11
002326

002330
002332
002334
002336

047112
047716

054377
057731
047042
047622

14-SEP-81

ERROR POINTER TABLE

ATTEMPTING DESELECT

EM122
EM2012
DT062
DF 062
ERROR 106:

ATTEMPTING DESELECT COMMAND AFTER WRITING SILO

054500
060020
047066
047646

EM123
EM2014
DT065
DF 065
ERROR 110:
EM123
EM2015
DT065
DF 065
ERROR 111:

—

00241

oS~V
O

002400
002402
002404
002406

002426

002430
002432

054500
060200
047076
047672

SEQ 0031

EM121
EM2022
DT100
DF100
ERROR 105:

002360
002362
002364
002366

054500
060106
047066
047646

F
3
PAGE 32

ATTEMPTING EXECUTION COF DESELECT DRIVE WiTH IF

EM122
EM2023
DT062
DF062
ERROR 107:

002370
002372
002374
002376

15:10

DF062
ERROR 104:

054377
060710
047042
047622

N
&~

J\bwwwwwwwwwgm
= OVONO
NS
WN=0O0

d
)
D
D
d id
b
d
) e cnd
D el
—

054276
060647

30(1046)

002350
002352
002354
002356

o
o

o Yo ocooooororOrOrOrOFOMONONOM

002340
002342
002344
002346

047622

MACY11

EM123
EM2016
DT067
DFO67
ERROR 112:

054500
060300
047076
047672

EM123
EM2017
DT067
DFO67
ERROR 113:

054500
057223

EM123
EM2003
DT062
DF062
ERROR 114:
EM123
EM2012

INTERRUPT DID NOT CLEAR IN RK611

SET

COMMAND AFTER WRITING SILO

TO CHECK GO CLEAR=-(S2 INCORRECT

TO C(HECK GO CLEAR=DATA LATE
READING SILO

ATTEMPTING COMPLETE

DID NOT OCCUR WHEN

EXECUTION OF

SEEK

IN MAINT MODE

ATTEMPTING COMPLETE EXECUTION OF

SEEK

IN MAINT MODE

COMMAND AND STATUS REG 1

INCORRECT AT PHASE ADDRESS 4

COMMAND AND STATUS REG 1

INVALID DURING COMMAND EXECUTION

ATTEMPTING COMPLETE EXECUTION OF SEEK IN MAINT MODE

MAINTENANCE REG 2 UNEXPECTEDLY CHANGED DURING COMMAND EXECUTION

ATTEMPTING COMPLETE

EXECUTION OF

SEEK

IN MAINT MODE

ATTEMPTING COMPLETE

EXECUTION OF

SEEK

IN MAINT

MODE

ATTEMPTING

EXECUTION OF

SEEK

IN MAINT

MODE

MAINTENANCE REG 3 UNEXPECTEDLY C(HANGED DURING COMMAND EXECUTION

COMMAND AND STATUS REG.

COMPLETE

COMMAND AND STATUS REG.

INCORRECT

2 INCORRECT

CZR6BDO RK611 DSKLS CTRL PRT2
14-SEP=81 13:4°
CZR6BD.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

1694
1695
1696
1697

N=OVR
NV
WN—=OO

b
D
i
D e
ed e
—

oy iy
by d

NNNN

NNN

1698
1699
1700
1701

002434

002436

002440
002442
002444
002446
002450

002452

002454
002456

002460
002462

002464
002466

002470
002472
002474
002476

047042
047622

054500
057774
047042
047622
054564
057223
046602
047236

MACY1T

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

DF 062
ERROR 115:

EM123
EM2013
DT062
DF 062

ERROR 116:

EM124
EM2003
DT001

DF001
ERROR 117:

054564
057266
046602
047236

EM124
EM2004
DT001
DFO01
ERROR 120:

054564
060762
046602
047236

EM124
EM2024
DT001
DFO01
ERROR 121:

002500
002502
002504
002506

054564
057337
046602
047236

EM124
EM2005
DT001
DFO01
ERROR 122:

002

054564
057625
046602
047236

EM124
EM2010
DT001
DFO01
ERROR 123:

002526

054564
057433
046602
047236

EM124
EM2007
DT001
DFO01
ERROR 124:

002530
002532
002534
002536

054564
057503
046602
047236

EM124
EM2008
DT001
DFO01
ERROR 125:

002540
002542
002544
002546

054564
057667
046602
047236

EM124
EM2011
DT001
DFOO1

15:10

PAGE

SEQ 0032
-~

ATTEMPTING

COMPLETE

EXECUTION OF

. ERROR REGISTER INCORRECT

SEEK

ATTEMPTING SELECT DRIVE

IN MAINT MODE

ATTEMPTING SELECT

IN MAINT MODE

COMMAND AND STATUS REG.

DRIVE

SELECT CODE

DRIVE

IN MAINT MODE

INCORRECT

IN MESSAGE

INCORRECT

ATTEMPTING SELECT DRIVE IN MAINT MODE
DRIVE COMMAND BITS IN MESSAGE INCORRECT

ATTEMPTING
HEAD

ADD

SELECT

CODE

DRIVE

IN MESSAGE

IN MAINT MODE
A

INCORRECT

ATTEMPTING SELECT DRIVE IN MAINT MODE
PARITY BIT IN MESSAGE INCORRECT

ATTEMPTING SELECT DRIVE

MESS SELECT

CODE

IN MAINT MODE

IN MESSAGF

IN CORRECT

ATTEMPTING SE LECT DRIVE IN MAINT MODE
CYLINDER AND BITS IN MESSAGE IS INCORRECT

ATTEMPTING SELEC
£
T DRIVE IN MAINT MODE
PARITY BIT T IN IN MESSAGE IS INCORRECT

MACY11

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

15:10

ERROR 126:

002566

054000
061032
047042
047622

002570
002572
002574
002576

054113
061032
047042
047622

002600
002602
002604
002606

054500
061032
047042
047622

Dl
il
il
-

EM117
EM2025
DT062
DF062
ERROR 127:

054632
061072
047112
047716

EM125
EM2026
DT100
DF100
ERROR 133:

002620
002622
002624
002626

054632
061127
047042
047622

EM125
EM2027
DT062
DF062
ERROR 134:

002630
002632
002634
002636

002640
002642
002644
002646
002650
002652
002654
002656

054632
057223
047042
047622

054632
057731
047042
047622

054632
057774
047042
047622

ATTEMPTING EXECUTION OF

EM125
EM2003
DT062
DF062
ERROR 135:
EM125
EM2012

DT062
DF062
ERROR 136:
EM125

ERROR 137:

DESELECT

DRIVE

AT NORMAL

SEEK

IN MAINT MODE

SPEED = DRIVE STATUS REG INCORRECT

EM119
EM2025
DT062
DF 062
ERROR 131:

EM123
EM2025
DT062
DF 062
ERROR 132:

SEQ 0033

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

ERROR 130:

002610
002612
002614
002616

)

h i

)

D o

il)

D i o

)

D i

D sl i

el il —

053663
061032
047042
047622

H 3
PAGE 34

ATTEMPTING COMPLETE EXECUTION OF DESELECT DRIVE
MAINT MODE = DRIVE STATUS REG INCORRECT

~ NNNNNNNNNN NNNN NNNS INNNNNNNNNNNNYNN
NN NN~
s 8 &H SIS 0SB B NWWIWWWIW
vV v YIS
N
W RO PO oo
o~
VIS WM — OV~ o VIS WA 2OV
NN
WN 2000~ Vs w
0 oo~
~N

CZR6BDO RKk611 DSKLS CTRL PRT?
14=SEP=-81 13:4°
CZR6BD.P11

ATTEMPTING COMPLETE

DRIVE

ATTEMPTING

STATUS REG

EXECUTION OF

INCORRECT

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

CONTROLLER READY DID NOT SET

ATTEMPTING TO FORCE DRA,SPDLSS,VV,0FST,DRDY,WRL
LOAD STATUS DID NOT LOAD DRIVE STATUS REF

ATTEMPTING

TO FORCE

ATTEMPTING

TO FORCE DRA,SPDLSS,VvV,OFST,DRDY,WRL

(S1

INCORRECT

DRA,SPDLSS,VV,OFST,DRDY,WRL

(S2 INCORRECT

ATTEMPTING

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

ERROR REG.

INCORRECT

ATTEMPTING

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

DRIVE STATUS REG.

INCORRECT

- CZR6BDO RK611 DSKLS CTRL PRT2
- CZR6BD.P1
14=SEP=-81 13:47
1779
1780
1781
1782
1783

002660
002662
002664
002666

054632
061032
047042
(047622

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

EM125
EM2025
DT062
DF 062
ERROR 140:

=
PAGE 35

ATTEMPTING TO FORCE DRIVE AVAILIABLE

SEG 0034

C 4 R6BDO Rk611 DSKLS CTRL PRT2
14-SEP=-81 13:47
¢ IR 68D. P11

1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794

002700

047622

1797
1798
1799
1800
1801

055051
061032
047042
047622

002730
002732
002734
002736
002740
002742
002744
002746

002750
002752
002754
002756

002760
002762
002764
002766

055051
057774
047042
047622
055116
057223
047042
047622

055116
057731
047042
047622

EM126
EM2012
DT062
DF 062
ERROR 142:
EM126
EM2025
DT06C
DF062
ERROR 143:
EM126
EM2013
DT062
DF062

(ST

PAGE 36

SEG 0035

INCORRECT

AT.EMPTING

TC FORCE

(S2 iINCORRECT

DRIVE AVAILABLE

ATTEMPTING 710 FORCE DRIVE AVAILIABLE
DRIVE STATUS REC INCORRECT

ATTEMPTING

TO FORCE

DRIVE

ERROR REGISTER INCORRECT

AVAIVIABLE

ERROR 144:

ATTEMPTING TO FORCE

DLRIVE BUS PARITY ERROR DETECTED BY Rk611

EM127
EM2003
DT062
DF 062
ERROR 145:

ATTEMPTING TO FORCE

DRIVE BUS PARITY ERROR DETECTED BY RKé611

ERROR 146:

ATTEMPTING

TO FORCE

DRIVE

DF 062
ERROR 147:

ATTEMPTING

TO FORCE DRIVE BUS PARITY ERROR DETECTED BY RK611

EM127
EM2013
DT062
DF 062
ERROR 150:

ATTEMPTING

TO FORCE DRIVE

EM127
EM2012
DT062
DF062

002770
002772
002774
002776

EM128
EM2003
DT062
DF 062
ERROR 151:

003000

EM128

moom&onouoooa

)

D e

d =D

D e

)

) =D

D =D

0o Co 0o Co 0o©o 00 00 0o 0o 0o Co 00 0o 0o 0o 0o Co 0o 0o Co Co
NN W
WWWWWWNNON AONVNURONURURA)
= = 3
S
3
O 0o ~ o VIS WOV~ OOWVS
W
2OV
NV
WN=O

002724
002726

EM126
EM2003
DT062
DF 062
ERROR 141:

002670
002672
002674
002676

1795
1796

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

(S1

INCORRECT

(S2 INCORRECT

DRIVE

STATUS REG

INCORRECT

BUS PARITY ERROR DETECTED BY RK611

ERROR REC INCORRRECT

CS1

INCORRECT

ATTEMPTING YO FORCE

(S2 INCORRECT

DRIVE

AVAILIABLE RESET ERROR

AVAXLABLE

RESET ERROR

(ZR6BDO RK611 DSKLS CTRL PRT?
CZR6BD P11
14-SEP-81 13:47
1840
1841
1842
1843

003002

057731

047042

047622

055214
061032
047042
047622

003026

003030
003032
003034
003036

055214
057774
047042
047622
055275

003060
003062
003064
003066
003070
003072
003074
003076

003100

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

047622
055275
057774
047042
047622

PAGE 37

SEQ 0036

EM2012
DTO62
DF 062
ERROR 152:

ATTEMPTING TO FORCE

DRIVE

EM128
EM2025
DT062
DF 062
ERROR 153:

ATTEMPTING

DRIVE AVAILABLE RESET ERROR

EM128
EM2013
DT062
DF062
ERROR 154:
EM129
EM2003
DT062
DF062
ERROR 155:

EM129
EM2012
DT062
DF 062
ERROR 156:

003040
003042
003044
003046
003050
003052
003054
003056

MACY11

EM129
EM2025
DT062
DF062
ERROR 157:

DRIVE STATUS REG.

ERROR REG.

AVAILABLE RESET ERROR

INCORRECT

TO FORCE

INCORRECT

TESTING CDT SET DRIVE

TYPE

DETECTION

TESTING (DT SET DRIVE

TYPE

DETECTION

TESTING CDT SET DRIVE

TYPE DETECTION

TESTING CDT

TYPE

CS1

INCORRECT

(S2 INCORRECT

DRIVE

STATUS REG INCORRECT

SET

DRIVE

ERROR REG INCORRECT

DETECTION

EM129
EM2013
DT062
DF 062
ERROR 160:

ATTEMPTING

TO FORCE

DRIVE

TYPE

ERROR ADDRESSING RKO6

EM130
EM2003
DT062
DF062
ERROR 161:

ATTEMPTING

TO FORCE DRIVE

TYPE

ERROR ADDRESSING RK06

EM130
EM2012
DT062
DF 062
ERROR 162.
EM130
EM2025
DT062

CS1

INCORRECT

(S2 INCORRECT

ATTEMPTING TO FORCE DRIVE TYPE ERROR ADDRESSING RkOQ6
DRIVE STATUS REG INCORRECT

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BD.P11
1896

1897
1898
1899
1900
1901

003116

003140
003142
003144
003146

DF062
ERROR 163:

055342
057774
047042
047622

EM130
EM2013
DT062
DF062
ERROR 164:

055424
057223
047042
047622
055424
057731
047042
047622

i
o
D i o

055424
061032
047042
047622

003160
003162
003164
003166

055424
057774
047042
047622

003170
003172
003174
003176
003200
003202

055511
057223
047042
047622

055511
057731
047042
047622

i e

b i

i e

i o

0v3150
003152
003154
003156

13:47

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

047622

OOV OV OVOVOOVOVOOVOO OO O VOOV VOV OOV OVOOVOOO0
=S D aa gL Ddaaaa
WWWWWWWWWWNI
NNNNV
VONONSWN—=O
V0o~ VB W
—=O VNN
WN—=O

003136

14-SEP-81

MACY11

PAGE 38

SEQ 0037

ATTEMPTING TO FORCE DRIVE
ERRCR REG INCORRECT

TYPE ERROR ADDRESSING RKkO06

ATTEMPTING TO FORCE

DRIVE

TYPE ERROR W!TH CTD SET

ERROR 165:

ATTEMPTING

TO FORCE

DRIVE

TYPE ERROR WITH (DT

EM131
EM2012
DT062
DF062
ERROR 166:

ATTEMPTING

TO FORCE DRIVE

EM131
EM2025
DT062
DF062
ERROR 167:

ATTEMPTING TO FORCE

DRIVE

EM131
EM2013
DT062
DF062
ERROR 170:

ATTEMPTING

TO FORCE

SPEED LOSS

EM132
EM2003
DT062
DF062
ERROR 171:

ATTEMPTING

TO FORCE

SPEED LOSS

EM132
EM2012
DT062
DFC62
ERROR 172:

ATTEMPTING

TO FORCE

SPEED LOSS

EM131

055511

CS1

INCORRECT

(S2 INCORRECT

DRIVE STATUS REG

'NCORRECT

ERROR REG INCORRECT

CS1

INCORRECT

(S2 INCORRECT

TYPE

TYPE ERROR WITH CDT SET

DRIVE STATUS REG INCORRECT

—

ATTEMPTING TO FORCE- SPEED LOSS

003226

ERROR 174:

SET

ERROR WITH (DT SET

ERROR REG.

INCORRECT

ATTEMPTING

TO FORCE DRIVE OFF

TRA(K

o
B o]
-l

VOV OOV O OOOOO

) al

- il s il i il i s i

OO VOOV OOVOOO
o (o VAL LIV IV TV Y o

VIS WN =000
NON N SS W —=OVvNOTVIS~WKWN

C 4 6BDO RK611
C ZR6B P11

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

ERROR 175:

002240
003242
003244
003246

003260
003262
003264
003266
003270
003272
0u3274
003276
003300

EM133
EM2012
ERROR 176:

EM133
EM2025

047622
055550
057774
047042
047622
055614
057223
047042
047622
055614
057731
047042
047622

055614
061032
047042
047622
055614

003326

003330
003332
003334
003336
003340

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

15:10

CS1

003230
003232
003234
003236

003250
003252
003254
003256

MACY11

DT062
DF062
ERROR 177:

EM133
EM2013
DT062

m 3
PAGE 39

SEQ 0038

INCORRECT

ATTEMPTING TO FORCE DRIVE OFF

TRA(CK

ATTEMPTING TO FORCE DRIVE OFF
DRIVE STATUS REG INCORRECT

TRACK

ATTEMPTING TO FORCE DRIVE OFF

TRACK

(S2 iINCORRECT

ERROR REG INCORRECT

DF 062
ERROR 200:

ATTEMPTING TO FORCE WRITE

LOCK ERROR

EM134
EM2003
DT062
DF062
ERROR 201:

ATTEMPTING TO FORCE WRITE

LOCK ERROR

EM134
EM2012
DT062

DF 062
ERROR 202:

EM134
EM2025
DT062
DF062
ERROR 203:

EM134
EM2013

DT062
DF062
ERROR 204:

EM135
D

ERROR 205:
EM135

CS1

INCORRECT

(S2 INCORRECT

ATTEMPTING TO FORCE WRITE LOCK ERROR
DRIVE STATUS REG INCORRECT

ATTEMPTING

TO FORCE WRITE

LOCK ERROR

ATTEMPTING

TO FORCE

SEEK

INCOMPLETE

ATTEMPTING TO FORCE

SEEK

INCOMPLETE

ERROR REG INCORRECT

CS1

iNCORRECT

(S2 INCORRECT

(ZR6BDO RK611 DSKLS CTRL PRT?
(ZR6BD.P11
14-SEP=-81 13:47

003342
003344
003346

003366

MACY11

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

15:10

PAGE 40

SEQ 0039

057731
047042
047622

EM2012
DT062
DF 062
ERROR 206:

055661
061032
047042
047622

EM135
EM2025
DT062
DF062
ERROR 207:

055661
057774
047042
047622

EM135
EM2013
DT062
DF 062
ERROR 210:

ATTEMPTING TO FORCE NON-EXECUTABLE

ATTEMPTING TO FORCE NON-EXECUTABLE FUNCTION

ATTEMPTING TO FORCE SEEK INCOMPLETE
DRIVE STATUS REG INCORRECT

ATTEMPTING TO FORCE
ERROR REG INCORRECT

CS1

SEEK

INCORRECT

INCOMPLETE

FUNCTION

003370
003372
003374
003376

055725
057223
047042
047622

EM136
EM2003
DT062
DF062
ERROR 211:

003400
003402
003404
003406

055725
057731
047042
047622

EM136
EM2012
DT062

003410
003412
003414
003416

055725
061032
047042
047622

EM136
EM2025
DT062
DF062

003420
003422
003424
003426

055725
057774
047042
047622

EM136
EM2013
DT062
DF062
ERROR 214:

ATTEMPTING

TO FORCE AC LOW AND C-D PARITY ERROR

EM137
EM2003
DT062
DF 062
ERROR 215:

ATTEMPTING

TO FORCE

003430
003432
003434
003436

056001
057223
047042
047622

003440
003442
003444
003446

056001
057731
047042
047622

003450C
003452
003454

056001
061032
06704,

DF 062
ERROR 212:

ERROR 213:

EM137
EM201?2
DT062

DF062
ERRUR 216:
EM137

EM2025
W&

(S2 INCORRECT

ATTEMPTING 10 FORCE NON-EXECUTABLE FUNCTION
DRIVE STATUS REG INCORRECT

ATTEMPTING TC FROCE NON-EXECUTABLE FUNCTION
ERROR REG INCORRECT

CS1

INCORRECT

(S2 INCORRECT

LOW AND (=D PARITY ERROR

ATTEMPTING TO FORCE AC LOW AND (=D PAR]TY ERROR
DiVE STATUS REG INCORRECT

2064
2065

003456

2067
2068
2069
2070

003460
003462
003464
003466

056001
057774
047042
047622

003470
003472
003474
003476

056061
057223
047042
047622

003500
003502
003504
003506

056061
057731
047042
047622

003510
003512
003514
003516

056061
061032
047042
047622

2066

2071

2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088

2089

2090

2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111

2112

2113
2114

2115
2116
2117
2118
2119

047622

003520
003522
003524
003526

056061
057774
047042
047622

003530
003532
003534
003536

056171
057223
047126
047756

003540
003542
003544
003546

056171
057731
047126
047756

003550
003552
003554

056171
061032
047126

003556

003560
003562
003564
003566

047756

056171
057774
047126
047756

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

:
H

:
:

:
H

:
:

DF062
ERROR 217:

EM137
EM2013
DT062
DF062

ERROR 220:

EM138
EM2003
DT062
DF062
ERROR 221:
EM138
EM2012
DT062
DF 062
ERROR 222:
EM138
EM2025
DT062
DF 062
ERROR 223:
EM138
EM2013
DT062
DF062
ERROR 224:
EM139
EM2003
DT224
DF 224
ERROR 225:
EM139
EM2012
DT224
DF 224
ERROR 226:
EM139
EM2025
DT224

DF 224

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

CS1

INCORRECT

ILLEGAL DISK ADDRESS ERROR (DRIVE)

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

ATTEMPTING TO FORCE ILLEGAL DISK ADDRRESS ERROR (DRIVE)
DRIVE STATUS REG INCORRECT

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

ATTERMPTING TO CLEAR RK611 WITH A CONTROLLER CLEAR
CS1 INCORRECT

ATTERMPTING TO CLEAR RK611 WITH A CONTROLLER CLEAR
CS2 INCORRECT

ATTERMPTING TO CLEAR RKET! 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é11i

C(ZR6BDO RK611 DSKLS CTRL PRTZ
(ZR6BD.P11
14=SEP=81 13:47

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

2120
2121
2122
2123
21264
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136

2137

2138
2139
2140

2141
2142

2143

2144
2145
2146
2147
2148
2149
2150
2151
2152
2153

2154
2155
2156
2157
2158
2159

2160
2161
2162
2163
2164
2165
2166
2167

2168
2169
2170
2171
2172
2173
2174
2175

003570
003572
003574
003576

056253
057223
047162
050012

003600
003602
003604
003606

056253
057731
047162
050012

003610
003612
003614

056253
061032
047162
050012

003616

003620
003622
003624
003626

056253
057774
047162
050012

003630
003632
003634
003636

056335
057223
047042
047622

003640
003642
003644
003646

056335
057731
047042
047622

003650
003652
003654
003656

056335
061032
047042
047622

003660
003662
003664
003666

056335
057774
047042
047622

003670
003672
003674
003676

056411
057223
047042
047622

003700

056411

MACY11

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

:
H

:
:

:
H

EM140
EM2003
DT230
DF230
ERROR 231:
EM140
EM2012
DT230
DF230
ERROR 232:
EM140
EM2025
DT230
DF230

ERROR 233:

EM140
EM2013
DT230
DF230

ERROR 234:

(SI

C &
PAGE 42

SEQ 0041

INCORRECT

TESTING ILLEGAL DISK ADDRESS ERROR LOGIC IN RK611
(S2 INCORRECT

TESTING ILLEGAL DISK ADDRESS ERROR LOGIC IN Rk411
DRIVE STATUS REG INCORRECT

TESTING

ILLEGAL DISK ADDRESS ERROR LOGIC

ERROR REGISTER

IN RK611

ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES

CS1 INCORRECT
EM141
EM2003
DT062
DF 062
ERROR 235: ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES
(S2 INCORRECT
EM141
EM2012
DT062

DF 062
ERROR 236: ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES
DRIVE STATUS REG. INCORRECT
EM141
EM2025
DT062

DF062
ERROR 237: ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES
ERROR REG. INCORRECT
EM141
EM2013
DT062
DF062
ERROR 240: ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES WITH

BAD PARITY = (S1 INCORRECT
EM142
EM2003
DT062
DF062
ERROR 241: ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES WITH
BAD PARITY = (S2 INCORRECT
EM142

sl
il
Al
D
sl
sl
il ol
il
i cl) il
i
ol
i

00800

D &
PAGE 43

SEQ 0042

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

003710
003712
002714
003716

0564i1
061032
047042
047622

EM142
EM2025
DT06<
DF062
ERROR 243: ATTEMPTING TO RECEIVE NON=STANDARD MESSAGES WITH

003720
003722
003724
003726

056411
057774
047042
047622

EM14C
EM2013
DT062
DF 062
ERROR 244: ATTEMPTING TO FORCE NON-EXISTENT DRIVE

003730
003732
003734
003736

056507
057223
047042
047622

003740
003742
003744
003746

056507
057731
047042
047622

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

EM143
EM2025
DT062
DF 062
1 ING TO FOMCE NON-EXISTENT DRIVE
ERROR 247: ATTEM?

056507
061032
047042
047622

003760
003762
003764
003766

056507
057774
047042
047622

003770
003772
003774
003776

056602

004000
004002
004004
004006

056602

004010
004012
004014

56602
61032

057223
047042
047622

057731
047042
047622
OO0

Role- RNTo NV, PO JVN]\N]

—d e d ed e

it =D

IASIASIASIASIAS
LA LAV 1]
rorororORORONDIY

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

057731
047042
047622

003750
003752
003754
003756

2211

MACY11

003702
003704
003706

OO O 00 0o Co o OO Co 0o 0o
&~
N =0 O
o

oo
NN RN NN RO NN

CZR6BDO RKk611 DSKLS CTRL PRT?
14-SEP=81 13:47
CZR6BD.P1T

47042

BAD PARITY = DRIVE

STATUS REG.

INCORRECT

BAD PARITY = ERROR ERRCR INCOMPLETE

(ST

INCORRECT

DRIVE STATUS REG INCORRECT

ERROR “EG IN’ORRECT

EM143
EM2013
DT062
DF062
ERROR 250: ATTEMPTING TO FORCE NON=EXISTENT DRIVE
(ST INCORRECT
EM144
EM2003
DT062
DF 062

(DRIVE BUS

TIMEOUT)

(DRIVE BUS

TIMEOUT)

(DRIVE BUS

TIMEGUT)

(DRIVE BUS

TIMEOUT)

(NC

SACK)

ERROR 251: ATTEMPTING TO FORCE NON-EXISTENT DRIVE
(S2 INCORRECT

(NO SACK)

ERROR 252: ATTEMPTING TO FORCE NON-EXISTENT DRIVE
DRIVE STATUS REG INCORRECT
EM144
EM2025
DT062

(NO SACK)

(ZR6BDO RK611 DSKLS CTRL PRT2
CIR6BD.P1T
14=5EP=81 13:47
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261

2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272

2273
2274
2275
2276
2277

004016

047822

004020
004022
004026
004026

056602
057774
047042
047622

004030
004032
004034
004036

056663
061202
047112
047716

004040
004042
004044
004046

056663
061240
047112
047716

004050
004052
004054
004056

056750
057223
047214
050046

004060
004062
004064
004066

056750
057774
047214
050046

004070
004072
004074
004076
004100
004102
004104
004106

057022
057223
047214
050046
x
057022
057774
047214
050046

004110
004112
004114
004116

052050
050322
046576
047232

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

:
:

3
:

PAGE 44

SEQ 0043

DF 062
ERROR 253: ATTEMPTING TO FORCE NON-EXISTENT DRIVE (NO SACK)
ERROR REG INCORRECT
EM144
EM2013
DT062
DF 062
ERROR 254: ATTEMPTING EXECUTION OF DESFLECT DPIVE WITH IE RESET
UNEXPECTED INTERRUPT OCCURRED
EM145
EM2028
DT100
DF100
ERROR 255: ATTEMPTING EXECUTION FO DESELECT DRIVE WITH IE RESET
INTERRUPT OCCURRED WHEN INTERRUPT ENABLE SET
EM145
EM2029
DT100
DF100
ERROR 256:
ATTEMPTING TO EXECUTE AN ILLEGAL FUNCTICN
CS1 INCORRECT
EM146
EM2003
DT256
DF256
ERROR 257:
ATTEMPTING TO EXECUTE AN ILLEGAL FUNCTION
ERROR REG INCORRECT
EM146
EM2013
D1256

DF256
ERROR 260:
EM147
EM2003
DT256
DF256
ERROR 261:
EM147
EM2013
DT256
DF256

ERROR 262:
EMO00
DHO00C
DT000
DFO00

ATTEMPTING TO CLEAR ILLEGAL FUNCTION = (ST

INCORRECT

ATTEMPTING TO CLEAR ILLEGAL FUNCTION = ERROR REG INCORRECT

UNEXPECTED MEMORY PARITY ERROR TRAP

(ZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14=SEP=-81 13:47
Sg;g

2280
2281
2282
2283
2284
2285
2286
2287

2288
2289
2290
2291
2292
2293
2294
Sggg

004120
004122
004124
004126
004130
004132
004134
004136

004140
004142
004144
004146
004150
004152
004154
004156

000000
000000
000000
000000
000000
000000
000000
000000

Ssgg

MACY11 30(1046)
14=SEP=81
15:10 PAGE 45
TEMPORARY STORAGE FOR RKk611 CONTROLLER REGISTER
.SBTTL

TEMPORARY STORAGE FOR RK611 C(ONTROLLER REGISTER

T.(S1:
T.w(:
T.BA:
T.DA:
1.(S2:
T.DS:
T.ER:
T.ASOF:

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

LSBTTL

EXPECTED RK611

T.DCYL:
T.DB:
T.MR1:
T.MR2:
T.MR3:
T.ECPS:
T.ECPT:
T.SPAR:

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

O
0
0
0
0
0
0
0

;CONTROL AND STATUS REGISTER 1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
sERROR REGISTER
JATTENTION SUMMARY AND OFFSET REGISTER
sDESIRED CYLINDER REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER 1
sMAINTENANCE REGISTER 2
JMAINTENANCE REGISTER 3
;ECC POSITION INFORMATION
JECC PATTERN INFORMATION
;SPARE REGISTER
CONTROLLER REGISTERS

2299

004160

000000

E.CS1:

.WORD

;CONTROL AND STATUS REGISTER 1

2302
2303
2304
2305
2306
2307
2308
2309

004166
004170
004172
004174
004176
004200
004202
004204

000000
000000
000000
000000
000000
0CQ000
000000
000000

E.DA:
E.CS2:
E.DS:
E.ER:
E.ASOF:
£E.DCYL:
E.DB:
E.MR1:

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

0
O
0
0
O
O
0
0

;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
;ERROR REGISTER
JATTcNTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER !

004216

000000

2300
2301

2310
2311
2312
2313
Sg}g

004162
004164

Q04206
004210
004212
004214

000000
000000

000000
000000
000000
000000

S%;?
2318
2319
2320
2321
2322
2323

004220
004222
004224
004226
004230
004232

000000
000000
000000
000000
000000
000000

E.wWC:
E.BA:

.WORD
.WORD

0
0

0
O
0
O
O

;WORD COUNT REGISTER
;BUS ADDKESS REGISTER

E.MR2:
E.MR3:
E.ECPS:
E.ECPT:
E.SPAR:

.WORD
_WORD
.WORD
.WORD
.WORD

LSRTTL

PREVIOUS Rk€é11 C(ONTROLLER REGISTERS

P.i31:
P.(S2:
P.DS:
P.ER:
U.MR2:
U.MR3:

WORD
.WORD
.WORD
.WORD
.WORD
_WORD

O
0
0
0
0
O

;MAINTENANCE REGISTER 2
sMAINTENANCE REGISTER 3
JECC POSITION INFORMATION
;ECC PATTERN INFORMAT
[ON
;SPARE REGISTER

;PREVIOUS COMMAND AND STATUS REG 1
;PREVIOUS COMMAMD AND STATUS KEG 2
;PREVIOUS DRIVE STATUS REG
;PREVIOUS ERROR REG
JUNSHIFTED MAINTENANCE REG 2
JUNSHIFTED MAINTENANCE REG 3

SEG (0044

CZRO6BDO Rke11 DSKLS CTRL PRT2
TIR6BD.P11
14=SEP=81 13:4

gggg
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2364
2365

MA(CY1]

30(1046)
14=SEP=-B1
15:10
PROGRAM DEF INED VARIABLES

LSBTTL

PROGRAM DEF iNED VARIABLES

00423
00423%
004240

000210
000240
000000

RKVEC:
RKPR]:
SRTFLG:

.wORD
,WORD
.WORD

210
PRS
O

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

000000
000000
000000
000000
000000
000000
000000
000000
000015
000144
000000
000000
000000

ERRCNT:
DRVCOD:
MSGCOD:
HDCODE:
CYLIN:
OFFVAL:
SFTCNT:
PARBIT:
WAITIM:
STALL:
DRVTYP:
ILLFUN:
TRAPP(:

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

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

004274

000000

G &
PAGE 46

SAVSWR:

.WORD

JRKET1T VECTOR
:RK611 PRIORITY
:START FLAG
:
0 =200
:
1 =214
;=1 = 204
;ERROR COUNT FOR SWITCH 12 ABORT
sDRIVE SELECT CODE
JMESSAGE SELECT CODE
JHEAD SELECT CODE
:CYLINDER ADD VALUE
:OFFSET VALUE
JSHIFT COUNT FOR DRIVE MESSAGE SHIFTING
JPARITY BIT FOR SHIFT
JWAITING FOR DESELECT COMMAND
JSTALL TIME FOR MESSAGE TIME QUT (NED)
;DRIVE TYPE INDICATOR
JILLEGAL FUNCTION CODE
;ADDRESS OF TRAP FROM MEMORY (HECK
;SAVED SWITCH REG FOR POWER FAIL

SES (045

(ZR6BDO RK611
CZR6BD.PTT

DSKLS CTRL PRT?

14-SEP=81 13:47

MACY11

15:10

PAGE

SEQ 004

.SBTTL

PROGRAM SETUP

004276
004304

012737
000406

000001

004240

PARM:

MOV
BR

#1,SRTFLG
START1

;LOAD START FLAG FOR PARMETER START

004306

004314

012737
000402

177777

004240

RESTRT: MOV

#-1,SRTFLG

sLOAD START FLAG FOR RESTART

004316
004322
004324
004330
004334
004340

005037
000005
012706
012746
012746
000002

004240

START:
START1:

SRTFLG

;CLEAR START FLAG
JRESET THE WHOLE SYSTEM

0011060
000240

1%:
.SB8TTL

012706
005026
022706
001374
012706

004362
004370
004376
004404
004412
004420
004426
004434
004442
004450
004454

737

004502
004506
004514
004522
004530
004536

NNNOCNNNNNNNN
WWWWWWWNACIIWWWWW
NNNNNNNNN NNNN

004342
004346
004350
004354
004356

004460
004466
004474

004242

004342

eole D lelelelelelelelelelele)

-t

OV NV

WO Y

rorurUrRLONORONL
NN PR
PO P
WW WIWNWN
NN N WN NN NN
o O\ VYN
NN TN
S

2346

30(1046)
14=SEP=-81
PROGRAM SETUP

CLR
CMP
BNE

001100

004542

177570
177570
177777

004540
004547
004545
004550
0045%6
004564

000176
000174
000004

004570
004574

001222
000200

INITIALIZE

MOV

001140

000004

#STACK,SP

#PR7 ,-(SP)
#1%,-(SP)

JINITIALIZE

STACK POINTER

JLOAD STACK TO LOCK OUT ALL
JLOAD START OF PROGRAM

MOV

000020
000022
000030
000032

INTERRUPTS

;LOAD PSW

THE COMMON TAGS

;:CLEAR THE COMMON TAGS (SCMTAG) AREA

001100

042512
000340
043516
000340
046506
000340
046354
000340
042204
001200
001202
000001
004466
004474

(LR
RESET
MOV
MOV
MOV
RTI

STARTI1

#SCMTAG,R6

(R6) +
#SWR,R6 ; ;DONE?
.~6
#STACK,SP

soINITIALIZE A FEW VECTORS

;sFIRST LOCATION

TO BE

;3CLEAR MEMORY LOCATION

CLEARED

;:LO0P BACK IF NO
;:SETUP

THE

STACK POINTER

MOV
MOV
MOV
MOV

#$SCOPE ,a#I0OTVEC ;10T VECTOR FOR SCOPE ROUTINE
#3640,9#I0TVEC+2 ;:LEVEL 7
#SERROR,#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#3640,9#EMTVEC+2 ;;LEVEL 7

000036
000024
000026
042776

MOV
MOV
MOV
MOV

#340,9#TRAPVEC+2;LEVEL 7
#SPWRDN ,@#PWRVEC ;:POWER FAILURE VECTOR
#3640 ,9#PWRVEC+2 ;;LEVEL 7
SENDCT,SEOPCT
;:SETUP END=OF =PROGRAM COUNTER

001115
001106
001110

MOVB
MOV
MOV

000034

MOV

CLR
CLR

MOV

174402

001235

#1,8ERMAX
#.,8LPADR
#.,8LPERR

JoINITIALIZE NUMBER OF ITERATIONS
;sCLEAR THE ESCAPE ON ERROR ADDRESS

;sALLOW ONE ERROR PER TEST
JoINITIALIZE THE LOOP ADDRESS FOR SCOPE
;2SETUP THE ERROR LOOP ADDRESS

65%:
66%:

o#ERRVEC,=(SP)

;:SAVE ERROR VECTOR

#-1,aSWR
66%

;.TRY TO REFERENCE HARDWARE SWR
;sBRANCH IF NO TIMEOUT TRAP OZCURREL
;sAND
THE HARDWARE SWR IS NOT = =1

MOV
MOV
MOV

#64% ,#ERRVEC
#DSWR, SWR
#DDISP,DISPLAY

BR
g?y

65%
#65%, (SP)

MOV
MOV
MOV

#SWREG, SWR
;:POINT TO SOFTWARE SWR
#D]SPREG,DISPLAY
(SP)+ ,a#ERRVEC
;;RESTORE ERROR VECTOR

CMP
BNE

64%:

001140
001142

$TIMES
$ESCAPE

2.SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A ''=1"', SETUP FOR A SOFTWARE SWITCH REGISTER.

000004
001140
001142

004550

#STRAP,@#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS

(LR

BITB

$PASS

#APTSIZE ,$ENVM

2:SET UP ERROR VECTOR
;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

;:BRANCH IF NO TIMEOUT
;:SET UP FOR TRAP RETURN

;iCLEAR PASS COUNT

;;TEST USER SIZE UNDER APT

2402
2403
2404
2405

004602
004604
004612
004612

2407
2408
2409
2410
2411
2612
2413

2406

2414

2415

2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
244k
2445
2446
2447
2448
2449

2450
2451
2452
2453
2454
2455
2456
2457

DSKLS € T RL PRT?2
14=SEP 8 113:47

MACY11

00140 3
012737

001236

005037

004242

004616
004622
004624
004632
004634

005227
001055
022737
001451

177777

104401

004702

004640
004644
004646
004654
004656
004664
004666
004670
004672
004700
004700

005737
001012

000042

001406
023727
001005

001234

000001

001140

000176

000001

001134

004756
004756
004 764

004 766
004772
004776
005000

005004
005006
005012
005014
005022

005024
005032
005036
005042
005046
005050
005054

123727

042340

001140

30(1046)

INITIALIZE THE COMMON TAGS

67%:
.SBTTL

;. TYPE

000042
.SBTTL

112737

(0426

022737
001122
104401

013746
104402
104401
104412

012637
001407
022737
101361
013737
104401

013746
042716
104402
104401

104412
012637
001412
022737
101757

042737
053737
206401

005046

113716
006216

006216
006216
006216

000001

004240

050072
001270

160000

001160

001160
050127

001270

001264

;s YES,USE NON-APT SWIT(H
:¢NO,USE APT SWITCH REGISTER

CLR

ERRCNT

sCLEAR ERROR COUNT FOR SWITCH 12 ABORT

TYPE PROGRAM NAME

THE

INC

NAME

BNE
CMPB
BEQ

708
SENV,#1
708

MOVR

#1,$AUTOB

BR
LASCIZ

68%

(mp
BNE
TVPE

#1,SRTFLG
15%
,OPROO1
$BASE
, = (SP)

001000

001160

017777
001160
050157

001264
001264

10%:

SWR, #SWREG
71$

718

<CRLF>/RK611

LOPR002

(SP)+,$TMPO

CMP

#160000, $TMPO

MOV

$TMPQ
, $BASE

TYPE
MOV

TYPOC
TYPE
RDOCT
MOV

001160

PROGRAM

68$

BIC

050121

THE

[F FIRST PASS
;;FIRST TIME?

;sBRANCH IF NO

CMP
#SENDAD
, 3#42
;:ACT=112?
BEQ
68$
::BRANCH IF YES
TYPE
_69%
sTYPE ASCIZ STRING
GETVALUE’FgR SOF TWARE SWITCH REGISTER

BHI

7%:

#-1

BNE

BEQ

160000

001265

#$SWREG,
SWR

TYPOC
TYPE
RDOCT
MOV

001160

SEQ 0047

67%

MOV

050121

PAGE 48

BEQ

MOV

CMP
BNE
GTSWR
BR

104406

000403

15:10

14-SEP-81

,OPR0O03
$VECT1.-(SP)

;sARE WE RUNNING UNDER XXDP/A(CT?

:;BRANCH IF YES
;;ARE WE RUNNING UNDER APT?
; sBRANCH IF YES

;:SOFTWARE SWITCH REG SELECTED?
;;BRANCH IF NO
;sGET SOFT=-SWR SETTINGS

;.SET AUTO-MODE INDICATOR
;GET OVER THE ASCIZ

DISKLESS

DIAGNOSTIC:

PART

;CHECK IF PARAMETER START
sNO, CONTINUE SETUP
;TYPE "RK611 BUS ADDRESS

)

sCHECK

sCHECK IF

<(CR>

IN I/0 PAGE

;LOAD NEW BUS ADDRESS
;TYPE

"RK611

VECTOR ADDRESS

(

#160000, (SP)
LOPR002

(SP)+,$TMPO

:ll

;GET VALUE

sGET VALUE

108
#1000, $TMPO
7%
#17777 ,8VECT1
$TMPO, $VECT1

JCHECK IF <CR>
sCHECK IF LEGAL

(LR
MOVB

Z(SP)
SVECT1+1,(SP)

sMAKE ROOM ON THE STACK

4SR
ASR
ASR
ASR

(

:sSAVE $BASE FOR TYPEOUT
;.60 TYPE=-=OCTAL ASCII(CALL DIGITS)

BEQ
CMP
BLOS
BIC
BIS

TYPE

(CZR6BDO/<CRLF>

;LOAD NEW VECTOR ADDRESS

.0PR004

;TYPE "Rr,11

(SP)
(SP)
(SP)
(SP)

JSHIFT 5 BITS RIGHT

PRIORITY

)

CZR6BDO Rx611
CZR6BD.PN

CZR6BDO RK611 DSKLS CTRL PRT?
14-SEP=81 13:47
(ZR6BD.P11Y

2466

2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
677
2478
2479
2480
2481
2482

005240
005246

005254
005260
005264
005270

&
J
15:10
PAGE 49
GET VALUE FOR SOFTWARE SWITCH REGISTER

30(1046)

001160

000007

001160

000004

001160

001160
001160
001160
001160
001160
160000

001160
001264

160000

001265

042360
000340
005272

14-SEP-81

ASR
TYPOC
TYPE
RDOCT
MOV

050121

NNNNNWWWWWWNNNN

2464

2465

005132
005134
005136
005142
005144
005150
005152
005160
005162
005170
005172
005176
005202

NN W WWN W N NN N S
AW W
NNNNNNNNNNNNWNO

2458
2459
2660
2461
2462
2463

MACY11

001264
001265
004234
004234
004236

BEQ
(MP
BLO

{MP
BHI
ASL
ASL
ASL
ASL
ASL

15%:

(SP)

,OPR0OO2
(SP)+,$TMPO

15%
#7,$TMPO
108
#4 ,$TMPO
108

$TMP(Q
$TMPQ

sGET VALUE

sCHECK FOR DEFAULT
sCHECK IF LEGAL

sSKHIFT 5 BITS LEFT

$TMPO

;STORE NEW PRIORITY

MOV

$TMPO
$TMrY
#160000,8VECTT
$TMPO,SVECT1+1
$VECT1,RKVEC

MOVB

$VECT1+1,RKPR]

;STORE RK61i

P, CHKPAR
#PR7
= (SP)
#TST1,=(5P)

;CHECK FOR MEMORY CHECK ENABLE

BI(
BISB
BIC

NEWPAS:

SEQ 0048

JSR

MOV
MOV
kTl

#160000 ,RKVE(

;STORE RK611 VECTOR
PRIORITY

sLOCK QUT INTERRUPTS

(ZR6BDO RKk611 DSKLS CTRL PRT?

TIR6BD.PN

NO NS WN=O

(W RV LW LW AV AV AW LV LV LV, LV, |
N
b e ad =d e D e e =

WWWWWWWWW

ONOWVSWN=O

rOPLNLNLNDNORL
NN

(W VL LV LW LW LN LW LV IV, |

*«DRIVE

MESSAGE

RRAARRRRAR

'TEST

SEQ 0045

AR ANRERNRANRARR TR

FIRST

K
4
PAGE 50

(OMMAND

ARR SRR NAIRRIAARARARIRARRTRRRRTRES

IN MAINT MODE

INITIALIZE RKS511 WITH CONTROLLER CLEAR. PUT CONTROLLER IN
REMAINS

MODE. ISSUE SELECT DRIVE. WAIT AND MAKE SURE (S!
THE SAME. CLOCK IN MESSAGES A AND B. MAKE SURE

(ORRECT MSG ARE LOADED.
TIME.

CHERERRAARARAAAARACR

005272
005274

005302
005306
005314
005322
005330
005334
005336
005340
005346
005354
005362
005364
005366
005370
005374
005402
005410
005412
005414
005422
005430
005436
005444
005450
005454
005462
005464
005466

000144
001270

001200

100000
000040
000001
000015

000000
000026
000000

000000
000001
004160

004120

000016
000440
010040

TST1:

1%:

MOV
MOV
MOV
MOV
MoV

DEC
BNE

MOV

004160

MOV
CMP
BEQ
ERROR
BR

004120

000026
000026

SCOPE
MOov

2%:

MOV
MOV

MOV

DEC
BNE

000000
000034
000036
000001
004206
004210
004160

004120
004146
004150
004160

000017

004146

4%:

007760

004146

5%:

070000

004146

6$:

100000

004146

7%:

MOV
MOV
MOV
MOV

(LR
CLR
CMP

004120

A RN AR

CHECKING IS DONE A FIELD AT A

AR RARARNARARARARRRAAARANARARRARR
AR

#100.,8TIMES
;:D0 100, ITERATIONS
$BASE ,RZ
;LOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(RZ2)
:PUT RK611 IN DIAGNOST!I( MODE
#SELDRV ,RKCS1(R2)
;LOAD CS1 wiTm SELECT DRIVE

;85,R0

;WAIT FOR READY TO SET

1%
RKCST1(R2),T7.CS1
#SELDRV,E.CS1

;STORE COMMAND AND STATUS REG.

E.C31,1.08%
2%
77
TST2

sLOAD EXPECT (S1
sCHECK IF CS1 CHANGED
:NO, CONTINUE
;CS1 INCORRECT
;:G0 ON TO NEXT TEST

#3%4+2
RO
;CLOCK
#DMD !MCLK ,RKMRT(R2)
#DMD ,RKMR1(R2)
R0

RKCZT1(R2), T.CS

RKMR2 (R2),T. MR
RKMR3(R2),T. MR
#SELDRV,E.C S 1

E.MR2

E.MR3

E €s1,71.C81

000443
032737

2529

13:4”

14-SEP-81
15:10
30(1046)
*«*DR]VE MESSAGE LOADING

.SBTTL

[elelelelelelelolele
o]
it e OO A
b
2 D

2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497

14=SEP=81

MACY1?

IN DRIVE MESSAGE

;STORE COMMAND AND STATUS REG.
;STORE MAINT REG. 2

.STORE MAINT REG. 3
sLOAD EXPECTED CS1

:LOAD EXPECTED MAINT REG. 2
;L0AD EXFECTED MAINT REG. 3
sCHECK COMMAND AND STATUS REG. 1 CORRECT
sYES, CHECK MESSAGES A & B
2CS1 INCORRECT
::G0 ON TO NEXT TEST

:CHECK IF DRIVE SELECT BITS ZERO
sYES, CONTINUE
sMESSAGE SELECT BITS NOT ZERO
;CHECK IF COMMAND BITS ZERO
;YES, CONTINUE

120
#70000,7.MR2
7%
121
#BI115,T.MR?

; COMMAND BITS NOT ZERO
;CHECK IF HEAD SELECT BITS ZERD
;YES, CONTINUE
JHEAD SELECT NOT ZERO
sCHECK PARITY BIT ON MESS A ZERC

#7760,T.MR2

JYES,

CONTINUE

CZR6BDO RK611 DSKLS CTRL PRT2
14-SEP=-81 13:47
CZR6BD L1

SEQ 0050

004150

8%:

ERROR
BIT

122
#17,T.MR3

sPARITY ON MESS A NOT ZERO
sCHECK MESS SELECT BITS ZERO

077760

004150

9%:

BIT

#77760,T.MR3

sCHECK CYLINDER ADDRESS BUFFER

100000

004150

10%:

BIT
BEQ

#BiT15,T.MR3
TST2

BEQ
ERROR

% ]
123

BEQ
ERROR

;YES, CONTINUE
sMESSAGE SELECT BITS NOT ZERO

108
124

ERROR

;YES, CONTINUE
;CYLINDER ADD BITS NOT ZERO

sCHECK PARITY BIT ON MESSAGE B
;:YES, GO ON TO NEXT TEST

125

;;t'tt'. AARRARRAA AR AAR

J*TEST 2

;PARITY ON MESS. B NOT ZERO

IR TR R AR AR

AR AR AR

AR AR

AR R

DRIVE SELECT BITS LOADING FOR DRIVE MESS.

000000
000026
000010
000000

000040
004244
000001
000016
000440
000040

000026
000026

000000
000034
000036
004244
004210
004160

004120
004146
004150
004206

10C000

000000

004244

oo
OO

177760

»
2
%
%
»
%

CLOCK

IN MESSAGES A AND B INTO SHIFT REGISTER.

1=/,

Rk
Rk kN 1222223322222

T2:

REPEAT FOR DRIVE

1%:

2%:

2222222222222

2222202l

#100.,8TIMES

MOV
Mov

#SELDRV,E.CST
#1%,SLPERR

MOV
MOV
MoV
MOV
MOV
MOV
MOV

#CCLR,RKCS1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
DRVCOD ,RKCS2(R2) :;LOAD DRIVE NUMBER
#SELDRV,RKCS1(R2) ;LOAD SELECT COMMAND
#3%4+2 R0
;CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

MOV
MOV

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

DEC
BNE
MOV

MOV
CLR

CMP
BEQ
ERROR
MOV

3s:

222222222

SCOPE
MOV

MOV
CLR

004120

2 -2

004146

COMMAND.

g?KEC;URE1C?3RECT MESSAGES ARE LOADED.

LR
TRIR

— R

104003

100000

INITIALIZE RK617 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 2 WITH
ZERO.
LOAD COMMAND AND STATUS REGISTER WITH A SELECT

004160
001110

—

013737
042737
023737
001402

001200

005764
005772
006900
006006
006010

000144
001270
004244
000001
005632

(olele]
OOO

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

s e

005662

Y o

005632
005632
005640
005646
005654

005576
005600
005606
005612
005616
005624

IETETEY

. *

164-SEP-81
15:1C
PAGE 51
FIRST COMMAND IN MAINT MODE

000017

005574

[

(o e A LY TV IV LV TV AL IV RV LV
= OV NOVIISWWNN
2O

roroNorROrORONNDN NNV

005536
005540

MACYT1 3?%1066)

MOV
BIC
(MP

BEQ
ERROR

$BASE ,R2
DRVCOD

;:D0 100.

ITERATIONS

;LOAD RK611 BASE
sINITIALIZE DRIVE SELECT CODE

;LOAD EXPECTED (S1
;LOAD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

RO
2%

DRVCOD,E .MR?2
E.MR3

E.CS1,T.CST
3%
2
#CCLR,RKCST1(R2)
25%

T.MR2,$TMPO
DRV(COD,$TMPO

#177760., $TMPO
3]
3

;LOAD EXPECTED MAINT REG. 2
;LOAD EXPECTED MAINT REG. 3
;CHECK IF CS1 CORRECT
JYES, CHECK :MESSAGE AEB
St

;CLEAN UP FOR NEXT CONFIGURATION

;CHECK IF LOOP ON ERROR

:MASK BITS NOT UNDER TEST
;CHECK IF DRIVE SELECT BITS CORRECTK
;YES, CHECK MESSAGES A&B
sDRIVE SELECT BITS INCORRECT

(ZR6BDO Rk611 DSKLS CTRL PRT?
14-SEP-81 13:47
(ZR6BD.P11

MACYT

3?51046)

006012

000412

006014
006022
006024
006026
006034
006036
006040
006042
006046
006054

023737
001401

004206

004146

023737
001401

004210

004150

5%:

005237
022737

004244
000017

104004

104005
1046415

103266

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

25%

CMP

E.MR2,T.MR2

ERROR
CMP

&
E.MR3,T.MR3

FFRROR

BEQ

BEG

25%:

SCOP1
INC

00424¢

CMP
BHIS
SRR

AR AR AR AR

STEST 3

SEQ 0051

;CHECK IF LOOP ON ERROR
;CHECK

IF MESSAGE A CORRECT

sYES, CHECK MESSAGE B

25%

;YES, CHECK IF LOOP ON ERROR
sMESSAGE B INCORRECT

sCHECK IF LOOP ON ERROR

DRVCOD

#17,DRVCOD
18
TR

sMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT

; INCREMENT DRIVE SELECT CODE

sCHECK IF FINISHED
sNO, TRY NEXT CONFIGURATION

R AR AR AR AR AR A AR AR AR AR R R

AR R AR

FORMAT BIT LOADING TO FOR DRIVE MESS.

»
%

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 WITH
A SELECT COMMAND AND 24 SECTOR MODE FORMAT.
MAKE SURE
CORRECT MESSAGE IS LOADED.

* %

006262
006270
006272

006240
006246
006250
006256
006260

006236

0ONO =L

006056
006060
006066
006072
006100
006106
006114
00612¢
006130
006134
006142
006150
006152

cuu OO0 ctacaadaduue-=0

':"tt..tt.'!'ttttt.""""tt.'tittt'tttttQfi.t"'.'tfit.'.'.tt"t

012737

000144
001270
052115
100000
000040
010001
010001
010016
000440
000040

001200

000000
000034
000036
001000
004210
004160

004120
004146
004150
004206

057223

001302

100000

000000

001000

004146

057067

001302

TST3:

000026
000000

004160
1%:

004140

057145

001302

MOV

#CFMT!SELDRV,E.CS1

MOV

MOV«
MOV

DEC
BNE

MOv
MOV

3%:

ITERATIONS

#3%4+42 RO

sLOAD EXPECT (CS1

;CLOCK IN DRIVE MESSAGES

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

RO
%

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

RKMR3(R2),T.MR3 ;STORF MAIN7 REG. 3
#S.FMT,E.MR?
;LOAD EXPECTED MAINT REG.

CMP

E.CST1,T.CST

E.MR3

;LOAD EXPECTED MAINT REG.

BEQ
?g;on

2%
:EH2003.5H1N02

:YES, CHECK MESSAGE ARB
;LOAD ERROR MESSAGE

MOV

#CCLR,RKCST1(R2)

;CLEAN UP FOR NEXT

BIT
BNE
?gzon

#S.FMT, T.MR?2
3$
1EH2OOO.EH1N02

JCHECK IF S.FMT SET IN MCSSAGE A
:YES, CHECK MESSAGES ARb
;LOAD ERROR MESSAGE

TST4

;G0 ON TO MEXT TEST

(mp

E.MR2,T.MR?2

MOV

#EM2001 ,EMIN+2

BR
2%:

;:D0 100.

$BASE ,R2
;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.

MOV
MOV

CLR

004120

004206

#100. ,8$TIMES

MOV
MOV
MOV
MOV
MOV

201300
000000

000026
000026

SCOPE

MOv

BEQ

T1ST4

4 b3

sCHECK IF CS1 CORRECT

TEST

2260 ON TO NEXT TEST

;CHECK ]F DRIVE MESSAGE A CORREC(T

JYES, CHECK MESSAGE B

;LCAD ERROR MESSAGE

CZR6BDO Rk611 DSKLS CTRL PRT?
14=SEP=-81 13:47
- C(ZR6BD.P11

006300
006302
006310
006312
006320

104001

023737
001404
012737
104001

MACY11

30(1046)
13

004210

004150

&$:

057174

001302

14-SEP=-B81

AR AR AR R

370

004250
010006
000001
000016
000440
000040

000001

000040

000000
000034
000036
004206
004250
004206
004206
004206
004206
004210
004160

004120
004146
004150

100000

000000

004146

001160
001160

103777

004206

AR AR AR AR AR A AR AR

SCOPE

MOV
MOv

CLR
MOV
MOv
1%:

RN A RN AR AR AR

AR R RO RO TR

PUT CONTROLLER IN

LOAD TRACK ADDRESS WITH ZERO.

LOAD

LOAD CCMMAND

2%:

#100. ,8$TIMES
$BASE ,R2

AR AR

R TR A AR AR AR R

;:D0 100. ITERATIONS
;LOAD RK611 BASE

MOV
MCV
CLR

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

;CLEAR RK611
;PUT RK611 IN DIAGNOSTIC MODE
;MAKE ROOM ON STACK

MOV
MOV
MOV
MOV
DEC

#SELDRV ,RKCS1(R2) ;LOAD SELECT COMMAND
#3%4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

MOV
MOV
MOV

;STORE COMMMAND AND STATUS REG.
RKMR2(R2) ,T.MR2 ;STORE MAINT REG. 2

HDCODE, 1(SP)
(SP)+,RKDA{R2)

;

SUBTEST LOOP

;LOAD HEAD ADDRESS

BNE

RO
2%
RKCST1(RZ2),T.CS1

CLR

RKMR3(R2) ,T.MR3 ;STORE MAINT REG. 3
E.MR2
HDCODE ,E .MR2+1
;GENERATE EXPECTED MAINT REG.

CLR
CMP
BEQ

ERROR

MOV
BR
i%:

A AR

;CLEAR HEAD SELECT CODE
;LOAD EXPECTED CS1
sLOAD LOOP ON ERROR LOCATION FOR

MOvB
ASL
ASL
ASL
ASL

004120

HDCODE
#SELDRV,E.CS1
#1% ,SLPERR

MOvVB
MOV

004207

001160

R AR RN AR AR

HEAD SELECT BITS LOADING FOR DRIVE MESS.

AND STATUS REGISTER WITH SELECT COMMAND.
CLOCK IN
MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE CORRECT
MESSAGE IS LOADED.
REPEAT FOR TRACK ADDRESS = 1-7.

000000
000026
000026

AR AR RPN

YES, GO ON TO NEXT TEST
LOAD ERROR MESSAGE

COMMAND AND STATUS REGISTER 2 WITH ZERO.

0041? 0
001110

000000
000026

SEG 0052

CHECK IF DRIVE MESSAGE B CORRECT

CLEAR RK611 WITH CONTROLLER CLEAR.

001200

100000

1
Re MR3 .MR?
TST4
#EM2002 ,EMIN+?
1

DIAGNOSTIC MODE.

—

e ML LR TR

000144
001270
004250
000001
006356

m‘lll’lll.

046

8288 $82

006356
006356
006364
006372
006374
006402

000004
012737

et admi i = lelelalelelel
lolele)
D) it ek B OO b
e e e O - - NN
WWONONON
=
oD WYL
~
NO & YO WWWW
OO
o

006322
006324
006332
006336
006342
006350

PAGE 53

FORMAT BIT LOADING TO FOR DRIVE MESS.

ERROR
CMP
BEQ
MOV
ERROR

tTEST

15:10

MOV

BI(

E.MR2
E.HR?

£ .MRQ

E.MR?

£ .MR3
£.CS1,7.CS1
3%

:LOAD EXPECTED MAINT REG. 3
“CHECK IF CS1 CORRECT
SYES, CHECK MESSAGE ARB

#CCLR,RKCST(R2) ;CLEAN UP FOR NEXT CONF IGURATION
258
SCHECK IF LOOP ON ERROR
T.MR2, 8TMPO

:MASK BITS NOT UNDER TEST

F.MR2,$Tmp0

SCHECK

8103777 81mp0

WEAD SELECT BITS

CORRECT

CZR6BDO RK611 DSKLS CTRL PRT?

(ZR6BD.P11

14-SEP-81

2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739

001402
104007
000412

2740
2741

2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753

006564
006566
006570

006572
006600
006602
006604
006612
006614
006616
006620
006624
006632

023737

001401

104010

13:47

004206
004210

005237
022737

004250
000007

103251

30(1046)
T4

004146

004150

4%:

5%:

25%:

SEG 0053

BEQ

;YES, CHECK MESSAGES Ag&B

25%

;CHECK IF LOOP ON ERROR

CMP

E.MR2,T.MR2

;CHECK IF MESSAGE A CORRECT

ERROR

sMESSAGE A INCORRECT

BEQ

JHEAD SELECT BITS INCORRECT

5§

CMP

E.MR3,T.MR3

ERROR
SCOP1
INC

BEQ

CMP
BHIS

004250

14-SEP-81
15:10
PAGE 54
HEAD SELECT BITS LOADING FOR DRIVE MESS.
ERROR

023737
001401
104011
104415

MACYTT

258

HDCODE

l? HDCODE
1%

sYES, CHECK MESSAGE B

sCHECK IF MESSAGE B CORRECT

sYES, CHECK IF LOOP ON ERROR

sMESSAGE B INCORRECT
sCHECK IF LOOP ON ERROR
s INCREMENT HEAD SELECT CODE F

sCHECK IF FINISHED
;NO, TRY NEXT CONFIGURATION

A2 222220ttt
22320222t Rdd )

006644
006650
006654
006662

006670
006670
006676
006704
006712
006720
006724
006732
006740
006742
006744
006752
006760
006766
006774
007002
007010
007016
007020
007026
007032
007040
007046

012737
3702
5037
2737
2737

000144
001270
004246
000001
006670

2762
3762
2762
2762
2700
2762

100000
004246
000040
000001
000016
000400

42762

000400

6237
237
37

000000
000026
000034

;

020000

7
7
7

7
7
37
737

000036
004246
002040

020000
004206
004246
004160

»
»
%
%
%

IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE
REPEAT FOR MESSAGE SELECT = 1-17.
IS LOADED.

CORRECT MESSAGE

AR AR A A A

rS:

2%:

004120
004144
004146
004150
004204
004204
004144

004210
004120

#100.,8TIMES
$BASE
R
MSGCOD
#SELDRV,E.CS1
#1%,SLPERR

;:D0 100, ITERATIONS
;LOAD RK611 BASE
sINITIALIZE MESSAGE SELECT
;LOAD EXPECTED CS1

sLOAD LOOP ON ERROR LOCATION FOR
SUBTEST LOOP
;

MOV
MOV

#CCLR,RKCS1(R2) ;CLEAR RK611
MSGCOD,RKMR1(R2) ;LOAD MESSAGE SELECT BITS
#DMD ,RKMR1(R2)
:PUT RK611 IN DIAGNOSTIC MODE
#SELDRV.RKCST1(R2) ;LOAD SELECT COMMAND
#3%4+2 RO
;CLOCK IF DRIVE MESSAGE

MOV

RKCST1(R2),T.CS1

MOV
MOV

BIS
BIC
DEC
BNE

MOV
MOV
MOV
MOV
BIS

10%:

AR AR A AR A AR AR AR AP AR AR AR AR AR AR AR A AR

SCOPE
MOV
MOV
CLR
MOV
MOV

BIS

000000

004204

SELECT BITS LOADING FOR DRIVE MESS.

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

1%:

000026
000026

MESSAGE

—fte w

006634
006636

LR
N I
I Y

tTEST 5

BIT
BEQ
BIS
CLR
MOV
(MP

BEQ

#MCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)
RO
2%

;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
;LOAD EXPECTED MAINT REG. 1
#MEWD
!DMD ,E .MR1

#ECCW,T.MR1
108
#ECCW,E.MR1
E.MR2
MSGCOD, E MR3
E.CS1,T.CST

;LOAD EXPECTED MAINT REG.
sLOAD EXPECTED MAINT REG.
;CHECK IF CS1 CORRECT

;YES, CHECK MAINT REG. 1.

2
3

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

MACY11

E 3
30(1046)
14-SEP-81
15:10 PAGE 55
TS
MESSAGE SELECT BITS LOADING FOR DRIVE MESS.

2763
2764
5;22

007050
007052
007060

104012
012762
000437

100000

000000

2767

007062

023737

004204

004144

2769
2770
%;;}

007072
007074
067102

104013
012762
000426

100000

000000

2773
2774
2775
2776
2777
S;;g

007104
007112
007120
007126
007130
007132

013737
042737
023737
001402
104014
000412

004150
177760
004246

001160
001160
001160

4%:

2780

007134

023737

004206

004146

5%:

2782
2783
2784
2785
2786
2787
2788
S;gg

007144
007146
007154
007156
007160
007162
007166
007174

104015
023737
001401
104016
104415
005237
022737
103235

004270

004150

68%:

2768

2781

007070

007142

001405

001401

004246
000017

3%:

5;3%

12
;CST INCORRECT
#CCLR,RKCST(R2) ;CLEAN UP FOR NEXT CONFIGURATION
25%
;CHECK IF LOOP ON ERROR

CMP

E.MR1,T.MR1

ERROR
MOV
BR

13
sMR1 INCORRECT
#CCLR,RKCST(R2) ;CLEAN UP FOR NEXT CONFIGURATION
25%
sCHECK IF LOOP ON ERROR

MOV
BIC
CMP
BEQ
ERROR
BR

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

(MP

E.MR2,T.MR2

ERROR
CMP
BEQ
ERROR
SCOP1
INC
(MP
BHIS

15
E.MR3,T.MR3
25%
16

BEQ

004246

2791

ERROR
MOV
BR

BEQ

25%:

SEQ 0054

1 CORRECT

;YES, CHECK MESSAGE AgB

;MASK BITS NOT UNDER TEST
;CHECK IF MESSAGE SELECT CODE CORRECT
JYES, CHECK MESSAGES AEB
sMESSAGE SELECT CODE INCORRECT
sCHECK IF MESSAGE A CORRECT

;JYES, CHECK MESSAGE B

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

MSGCOD
#17 ,MSGCOD
1%

AR AR AR AR AR AR R

SATEST 6

sCHECK IF MAINT REG.

AR R R R AR AR R AR AR R AR AR AR AN RR AR AR RAAR AR

CLEAR “°[VE

RN RN

COMMAND LOADING FOR DRIVE MESS

* &

2794
2795
2796
2797

s
:®
:®
s

S;gg

2800

2801
2802
2803
2804
2805
2806

2807
2808
2809
2810
2811
2812
2813

2814

2815
2816

2817
2818

;e
. %

000004
012737
013702
012737
012737
012737

000144
001270
052203
000005
000400

001200

007242

001300
004160
004206
001110

007242
007242
007250

012762
012762

100000
000040

000000
000026

007264

012700

000016

007256

007270
007276

007304
007306

012737

013762

012762
012762
005300
001370

FOR 24 SECTOR FORMAT.

:.!tttt'tttttttttttttt"Q"tttttttttttitt'ttttfittt'lttttttttttttt

007176
007200
007206
007212
007220
007226

007234

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 WITH
A DRIVE CLEAR.
CLOCK MESSAGE A AND B INTO SHIFT REGISTERS.
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.
REPEAT

004160

000440
000040

TST6:

#100.,$TIMES
$BASE ,R2
#EM101 ,EMIN
#CLEAR,E.CS1
#S.CLR,E.MR2

;:DO 100. ITERATIONS
;LOAD RK611 BASE
;LOAD ERROR MESSAGE
sLOAD EXPECTED COMMAND AND STATUS REG.
sLOAD EXPECTED MAINT. REG. 2

MOV
MoV

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

;CLEAR RK611
:PUT RKk611 IN MAINTENANCE MODE

MOV

#3442 RO

:CLOCK IN DRIVE MESSAGE

DEC
BNE

RO
2%

MOV
1%:

000000

000026
000026

SCOPE
MOV
MOV
MOV
MOV
MOV

MOV

2%:

MOV
MOV

#1% ,SLPERR

;LOAD LOOP ON ERROR LOCATION FOR
;
SUBTEST LOOP

E.CST,RKCST(R2) sLOAD CLEAR INTO COMMAND AND STATUS REG. 1

#DMD 'MCLK ,RKMR1 (R2)
#DMD ,RKMR 1 (R2)

(ZR6BDO Rk611 DSKLS CTRL PRTZ2
CIR6BD.P11
14=SEP=81 13:47
2819
2820
2821
2822

007310
007316
007324
007332

016237
016237
016237
005037

2824
2825
2826
2827

007344
007346
007354
007356

001410
012737
104001
012762

2830
2831

007366
007374

013737
042737

2833
2834
2835
2836
Sggg

007410
007412
0076420
007422

001405
012737
104001
000420

007424
007432
007434
007442
007444
007452
007454
007462
007464
007466
007474
007476
007504
007512

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

000000
000034
000036
004210

2832

2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
%gg%

007402

023737

004120
004146
004150

MOV
MOV
MOV
CLR

RKCST(R2),T.CS1
RKMR2(R2),T.MR2
RKMR3(R2) .T.MR3
E.MR3

BEQ
MOV
ERROR
MOV

38
*YES, CHECK MESSAGE A&B
#EM2003,EMIN+2 ;LOAD ERROR MESSAGE
1
#CCLR,RKCST(R2) :CLEAN UP FOR NEXT CONF IGURATION

MOV
BIC

T.MR2,$TMPO
;MASK BITS NOT UNDER TEST
#AC<S.FMT'S.CLR>.$TMPO

E.MRZ2,$TMPO

JCHECK IF S.CLR AND FORMAT

BEQ
MOV
ERROR
BR

4%
#EM2000,EMIN+2
1
25%

;CHECK IF LOOP ON ERROR

CMP
BEQ
MOV
ERROR

E.MR2,T.MR2
5%
#EM2001,EMIN+2
1
E.MR3,T.MR3
25%
#EM2002,EMIN+2
1

057223

001302

100000

000000

004146
176377

001160
001160

004206

057067

14-SEP-81
15:10 PAGE 56
CLEAR DRIVE COMMAND LOADING FOR DRIVE MESS

2823 007336 023737 004160 004120

Sggg 007364 000437

MACYT! 3?&1066)

CMP

B8R
3%:

001160

CMP

001302

004206

004146

057145

001302

004270

004150

057174

001302

010000

004160

010000
001000

004160
004205

4%:

5%:
i
25%:

CMP

BEQ
MOV
ERROR
SCOP1
BIT
BNE
BIS
BIS
8R

E.CST,7T.CS1

25$

#CFMT ,E.CST
TST7
#CFMT ,E.CST
#S.FMT.E .MR2
1%

;STORE
;STORE
:STORE
*STORE

COMMAND AND STATUS REG.
MAINTENANCE REG. 2
MAINTENANCE REG. 3
EXPECTED MAINT REG. 3

SEQ 0055
1

*CHECK IF CS1 CORRECT

*CHECK IF LOOP ON ERROR

;
BITS IN MESSAGE CORRECT
;YES, CHECK MESSAGE AE&B
;LOAD ERROR MESSAGE

;CHECK IF DRIVE MESSAGE A CORRECT
;YES, CHECK MESSAGE B
:LOAD ERROR MESSAGE

:CHECK IF DRIVE MESSAGE B CORRECT
JYES, CHECK IF LCOP ON EROR
:LOAD ERROR MESSAGE
;CHECK 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

2854

:.'tt.ttt.ttt'tttttttttt'tttttittt.tttlitt'tt...tttttttt..ltttt't'

gggg

J«TEST 7

2857
2858
2859
2860

%
o
L&
L

2863
2864
2865
2866

:-.-tttatttttttttttttfitttttttt'ttttnnttttnntttttanttnt.tttttttttttt
1517:
SCOPE
MOV
#100.,%TIMES
::DO 100. ITERATIONS
MOV
$BASE _R2
*{0AD RK611 BASE

ggg;

2867

2868
2869
2870
2871

2872

2873
2874

007514
007516
007524

000004
012737
013702

000144
001270

001200

007536
007544
007552

012737
012737
012737

000007
002000
007560

004160
004206
001110

007530

007560
007560

012737

012762

052252

001300

100000

000000

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.

MCV

#EM102,EMIN

#UNLOAD ,E.CS1
#S.UNLD,E.MR2
#1%,SLPERR

;LOAD EXPECTED COMMAND AND STATUS REG, 1
:LOAD EXPECTED MAINT. REG. 2
*LOAD LOOP ON ERROR LOCATION FOR
*
SUBTEST LOOP

MOV

#{CLR,RKCS1(R2)

;CLEAR RK611

MOV
MOV
MOV
1$:

*LOAD ERROR MESSAGE

M
=2 NONNDWND
WO

000040
004160
000016
000440
000040

000026
000000

000000

004120
004146
004150

000034
000036
004210
004160

000026
000026

057223

001302

100000

000000

004146

001405
012737

007742
007750
007752
007760
007762

023737
001404
012737

004206

004146

057145

001302

023737
001404
012737

004210

004150

057174

001302

104001

057067

—

oo
OO

007726
007730
007736
007740

004206

0
0
0

—d

013737
042737
023737

007704
007712
007720

174777

004160

010000
001000

004160
004206

MOV
MOV
MOV

1(R2),7.CS1
RKMR2
(R2) ,T.MRZ
(R2),T.MR3
E.MR3

;STORE
;STORE
;STORE
;STORE

COMMAND AND STATUS REG.
MAINTENANCE REG. 2
MAINTENANCE REG. 3
EXPECTED MAINT REG. 3

;YES,

CHECK MESSAGE A&B

MOV

#CCLR,RKCST(R2)

MOV

T.MR2,$TMPO
;MASK BITS NOT UNDER TEST
#*C<S.FMT!S.UNLD>,$TMPO

25%

JYES,

ERROR
BR

25%

;CHECK IF LOOP ON ERROR

MOV

E.MR2,T.MR?
5%
qEM2001,EM1N+2

;CHECK IF DRIVE MESSAGE A CORRECT
;YES, CHECK MESSAGE B
;LOAD ERROR MESSAGE

MOV

E.MR3,T.MR3
25%
fEHZOOE.EM1N02

;CHECK IF DRIVE MESSAGE B CORRECT
;YES, CHECK IF LOOP ON EROR
;LOAD ERROR MESSAGE

ERROR
CMP
BEQ

ERROR

SCOP1
BIT
BNE
BIS
BIS
BR
Al

;CHECK IF LOOP ON ERROR

BEQ

CMP

;CLEAN UP FOR NEXT CONFIGURATION

sCHECK IF

BEQ

25%:

;LOAD ERROR MESSAGE

E.MR2,$TMPO

MOV

5%:

;CHECK IF CS1 CORRECT

:EM2003.EH1N02

BIC
CMP

4%:

*CLOCK IN DRIVE MESSAGE

MOV

001302

010000

gono,nxnn1<n2)

ERROR

3%:

IN MAINTENANCE MODE

;LOAD UNLOAD INTO COMMAND AND STATUS REG.

#DMD 'M(LK ,RKMR1(R2)

CLR
cmMpP
BEQ

1EM2000.EM1N*2

#CFMT E.CST

;

S.UNLD AND FORMAT
BITS IN MESSAGE CORRECT
CHECK MESSAGE Ag&B

;LOAD ERKOR MESSAGE

sCHECK IF LOOP ON ERROR
sCHECK

TST10

::YES,

#S.FMT,E.MR2
1%

JREISSUE

#CFMT E.CST

SRl RS

ISSUED

IN 24

SECTOR FORMAT

GO ON TO NEXT TEST

sINDICATE COMMAND IN 24 SECTOR FORMAT
IN 24 SECTOR FORMAT

R Rt
RRRRRRRRRRRRRR DR

PACK ACKNOWLEDGE

COMMAND

LOADING FOR DRIVE

MESS.

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

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

LR TR

T*TEST 10

REPEAT FOR 24 SECTOR FORMAT.

—

032737
001007
052737
052737
000653

MOV

#3%4+2 R0

DEC
BNE

70
14

001200

001300

104001
104415

#DMD ,RKMR1(R2)

E.CST,RKCST(R2)

;PUT RK611

SEQ 0056

MOV
MOV
MOV

MOV

2%:

000420

104001

14-SEP-81
15:10
PAGE 57
30(1046)
17
UNLOAD COMMAND LOADING FOR DRIVE MESS.

004120

wuld

" x

wr-

MACYTT1

QOO

007664
007672
007674
007702

SN2

007566
007574
007602
007606
007614
007622
007624
007626
007634
007642
007650
007654
007662

—aaa

2875
2876
2877
2878
2879
2880

i oleleololeleleleolelelele
e

CZR6BD.P1T

CTRL PRT?
p
-81 13:47

O=O0ONO =000

CZR6BDO RK611 D S

T10:

AR S22
RRRRRRRRRRRRR R D]

SCOPE

MOV
Moy
MOV

#100.,$TIMES

;;DO 100.

#EM10%, EMIN

*LOAD ERROR MESSAGE

$BASE R

ITERATIONS

*{0AD RK611 BASE

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

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

2931
2932
2933

010054
010062
010070

012737
012737
012737

000003
004000
010076

004160
004206
001110

2937
2938
2939

010076
010076
010104
010112

012762
012762
013762

100000
000040
004160

000000
000026
000000

2941
2942
2943
2944
2945
2946
2947
2948

010124
010132
010140
010142
010144
010152
010160
010166

012762
012762
005300
001370
016237
016237
016237
005037

000440
000040

000026
0000co

000000
000034
000036
004210

004120
004146
004150

2950
2951
2952
2953
sggg

010200
010202
010210
010212
010220

001410
012737
104001
012762
000437

004160

004120

057223

001302

100000

000000

2956
2957

010222
010230

013737
042737

004146
172777

9001160
001160

2959
2960
2961
2962
Zggz

010244
010246
010254
010256

001405
012737
104001
000420

2965
2966
2967
2968
2969
2970
2971
2972

010260
010266
010270
010276
010300
010306
010310
010316

023737
001404
012737
104001
023737
001404
012737
104001

004206

004146

057145

001302

004210

004150

057174

001302

2974
2975
2976
2977
Sg;g

010322
010330
010332
010340
010346

032737
001007
052737
052737
000653

010000

004160

010000
001000

004160
004206

2934
2935
2936

2940

2949

2958

2973

010120

010172

010236

010320

012700

023737

104415

000016

004206

057067

MOV
MOv
[0}

#PACK E.CST
#S.PACK,E.MR2
#1%,SLPERR

MOV
MOV
MOV

_
#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
E.CST,RKCST1(R2) ;LOAD PACK INTO COMMAND AND STATUS REG.

¢28:

MOV
MOV
DEC
BNE
MOV
MOV
MOV
CLR
CMP
BEQ
MoV
ERROR
MOV
BR

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2’
RO
2%
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKMR2(R2) ,T.MR2 ;STORE MAINTENANCE REG. ¢
RKMR3(R2),T.MR3 ;STORE MAINTENANCE REG. 3
E.MR3
;STORE EXPECTED MAINT REG. 3
E.CST1,T.CST
;CHECK IF CS1 CORRECT
3
JYES, CHECK MESSAGE AgB
#EM2003,EMIN+2
;LOAD ERROR MESSAGE
1
#CCLR,RKCST1(R2) ;CLEAN UP FOR NEXT CONFIGURATION
25%
;CHECK I LOOP ON ERROR

3%:

MOV
BIC

T.MR2,$TMPQ
;MASK BITMS NOT UNDER TEST
A*C<S.FMT!S.PACK>,$TMPO
E.MR2,$TMPQ

;CHECK

BEQ
MOV
ERROR
BR

3
#EM2000,EMIN+2
1
25%

;CHECK IF LOOP ON ERROR

(MP
BEQ
MOV
ERROR
CMP
8EQ
MOV
ERROR

E.MR2,T.MR2
5%
#EM2001 ,EMIN+2
1
E.MR3,T.MR3
25%
#EM2002 ,EMIN+2
1

;CHECK IF DRIVE MESSAGE A CORRECT
;YES, CHECK MESSAGE B
;LOAD ERROR MESSAGE

BIT
BNE
BIS
BIS
BR

HCFMT E.CST
TST11
#CFMT E.CST
#S.FMT E.MR?
%

JCHECK IF ISSUED IN 24 SECTOR FORMAT
;. YES, GO ON TO NEXT TEST
;INDICATE COMMAND IN 24 SECTOR FORMAT

18:

001160

MOV

CMP

001302

48:

5S%:

25%:

SCOP1

2980

Sgg;

;*TEST 11

2983

:
;e
:®
L

2985
2986

SEQ 0057

#3%4+3,R0

R AR AR AR R AR R AR R R

;LOAD EXPECTED COMMAND AND STATUS REG. 1
;LOAD EXPECTED MAINT. REG. 2
;LOAD LOOP ON ERROR LOCATION FOR
;

SUBTEST LOOP

:CLOCK IN DRIVE MESSAGE

S.PACK AND FORMAT

;
BITS IN MESSAGE CORRECT
JYES, CHECK MESSAGE ARB
;LOAD ERROR MESSAGE

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

;REISSUE

LOOP ON ERROR

IN 24 SECTOR FORMAT

RN RN RN R R R R R AR AR AR

R R R R AR AR AR

RN R

R RN

RECAL IBRATE COMMAND LOADING FOR DRIVE MESS.

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

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

(IROBDO Ree11

TIR6BD.P11

DSKLS CTRL PRT?
14=5EP<Bl

13:4°

MACY1Y

2987

010350
010352
010360
010364

000004
012737
013702
012737

000144
001270
052370

2996

010400

012762

000040

2999
3000
3001
3002
3003
3006
3005
3006

010434
010442
010444
010446
010454
010462
010470
010476

012762
005300
001370
016237
016237
016237
012737
005037

000040

3010
5011
§8I§

070520
010522
010530

023737
001410
012737
104001
012762
000431

3074
3015
3016
3017
%8}8

010532
010540
010542
010550
010552

3020
3021
3022
3024

3007
3008
3009

3023

3025
3026
3027

3028

010372

010406
010414
010422
010426

012762

012762
012737
012700
012762

100000

000013
000013
000016
000440

001200

G 5
PAGE 59

COMMAND LOADING FOR DRIVE

MESS.

000000
004160

0000c6
000026
004120
004146
004150
004206

057223

001302

100000

000000

032737
001005
012737
104001
000420

000040

004146

057067

001302

010554
010562
010564

023737
001404
012737

004206

004146

057145

001302

010574

023737

004210

004150

057174

001302

010572

010602
010606
010612

104001

001404
012737
104001

SCOPE
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#EM104 ,EMIN

;:D0 100. ITERATIONS
sLOAD RK611 BASE
;LOAD ERROR MESSAGE

MOV

#DMD ,RKMR1(R2)

;PUT RK611

MOV

000026

000000
000034
000036
000040
004210
004160

010502
010510
010512

TST11:

001300
000000

1%:

004120

3029

2%:

3%:

4%:

MOV
MOV
MOV
MOV

SEQ 0058

MOV
DEC
BNE
MOV
MOV
MOV
MOV
(LR

i
P
e
i

3037

'-. R

3038
3039
3040

010614
Q10676
010624

000004
012737
013702

000144
001270

042

010636

012762

100000

010630

012737

052437

001200

001300

000000

TST12:

IN MAINTENANCE MODE

#DMD ,RKMR1 (R2)
RO
1%
RKCST(R2),T.CS1
RKMR2(R2) ,T.MR2
RKMR3(R2),T.MR3
#S.RECL,E.MR2
E.MR3

;STORE COMMAND AND STATUS REG.
;STORE MAINT REG. 2
;STORE MAINT REG. 3
;LOAD EXPECTED MAINT REG. 2
sLOAD EXPECTED MAINT REG. 3
sCHECK IF CS1 CORRECT
sYES, CHECK MESSAGE AgB
LOAD ERROR MESSAGE

CMP
BEQ
MOV
ERROR
MOV
BR

E.CS1,7.CS1
2%
#EM2003 ,EMIN+2
1
#CCLR,RKCST(R2)
TST12

BIT
BNE
MOV
ERROR
BR

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

sCHECK IF S.RECL SET IN MESSAGE A
JYES, CHECK MESSAGES AgRB
:LOAD ERRCR MESSAGE

CMP
BEQ
MOV
ERROR
CMP
BEQ
MOV
ERROR

E.MR2,T.MR2
4%
#EM2001,EMIN+2

sCHECK IF DRIVE MESSAGE A CORRECT
JYES, CHECK MESSAGE B
,LOAD ERROR MESSAGE

.LHECK IF DRIVE MESSAGE B CORRECT

'ST 2
IEVZOOZ EMIN+2
I

;CLEAN UP FOR NEXT TEST
;G0 ON TO NEXT TEST

;:G0 ON TO NEXT TEST

MR} T.MR3

22YES. GO ON TO NEXT TEST
LOAD ERROR MESSAGE

222232 232 3223

START SPINDLE COMMAND LOADING FOR DRIVE MESS.

SeTEST 12

3032
3037
3034
gggg

#CCLR,RKCST(R2) ;CLEAR RK611

#RECAL ,RKCS1(R2)
sLOAD RECAL INTO COMMAND AND STATUS REG.
#RECAL ,E.CST
;LOAD EXPECT (CS1
#3%4+2 RO
;CLOCK IN DRIVE MESSAGES
#DMD !MCLK ,RKMR1(R2)

3037

30641

RECALIBRATE

15:10

R R
T

2989
2990
2991
2992
2995
2996
2997
2998

14-SEP-81

2588

2993

30(7 046)

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

R R

SCOPE
MOV
MOV

#100. ,8TIMES
$BASE R2

2:D0 100. ITERATIONS
;LOAD RK611 BASE

MOV

#CCLR,RKCS1(R2)

:CLEAR RK611

MOV

lfMlOg EMIN

;LOAD ERROR MESSAGE

I IIIIITM

“IRE6BDO RkE11
CIR6BD.P11

3043

3044

3045
3046

070644

010652

DSKLS CTRL PRT2
14-SEP=B81 13:4~

012762

000040

WMACY11

PAGE 60

START SPINDLE COMMAND LOADING FOR DRIVE MESS.

SEQ 0059

;PUT RK611

004160

MOV
MOV

#SRTSPL ,E.CS1
#3442, RO

;LOAD EXPECT (s
;CLOCK IN DRIVE MESSAGES

MOV
DEC
BNE
MOV
MOV
MOV
MOV
(LR
(mpP
BEQ
MOV
ERROR
MOV
BR

#DMD _RKMR
T (R2)
RO
1%
RKCST(R2),T.CS7T
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
#S.STSP,E.MR?2
E.MR3
E.CST,T.CST
2%
#EM2003,EMIN+2
1
#CCLR,RKCST(R2)
TST13

;STORE COMMAND AND STATUS REG.
;STORE MAINT REG. 2
;STORE MAINT REG. 3
sLOAD EXPECTED MAINT REG. 2
;LOAD EXPECTED MAINT REG. 3
JCHECK I1F (CS1 CORRECT
sYES, CHECK MESSAGE AgB
;LOAD ERROR MESSAGE

BIT
BNE
MOV
ERROR
BR

#S.STSP,T.MR?2
3s
#EM2000,EMIN+2
1
TST13

JCHECK IF S.STSP SET IN MESSAGE A
JYES, CHECK MESSAGES AgB
;LOAD ERROR MESSAGE

CMP
BEQ
MOV
ERROR
CMP
BEQ
MOV
ERROR

E.MR2,T.MR2
3 3
#EM2001 ,EMINS?
1
E.MR3,T.MR3
TST12
#EM2C02 ,EMIN+2
1

sCHECK IF DRIVE MESSAGE A CORRECT
sYES, CHECK MESSAGE B
LOAD ERROR MESSAGE

012762

000440

000026

000000
000034
000036
000100
004210
004160

004120
004146
004150
004206

057223

001302

100000

000000

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

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

012762
005300
001370
016237
016237
016237
012737
005037
023737
001410
012737
104001
012762
000431

3063
3064
3065
3066
%82;

010776
011004
011006
011014
011016

032737
001005
012737
104001
000420

000100

004146

057067

001302

3069
3070
3071
3072
3073
3074
3075
gg;g

011020
011026
017030
011036
011040
011046
011050
017056

023737
001404
012737
104001
023737
001404
012737
104001

004206

004146

057145

001302

004210

004150

057176

001202

000040

#DMD ,RKMR1(R2)

000000

012737
012700

010672

15:10

MOV

0G0011

010660
010666

3047

112

14=SEP-B1

00C026

012762

000011
000016

30(1046)

000026

MOV
1%:

MOV

004120

.
2%:

3%:

4%:

[N MAINTENANCE MODE

;LOAD SRTSFL INTO COMMAND AND STATUS REG.

CDHD'HCLK RKMR1(R2)

;CLEAN UP FOR NEXT TEST
2:G0 ON TO NEXT TEST

;.60 ON TO NEXT TEST

CHECK IF DRIVE MESSAGE B CORRECT
;sYES, GO ON TO NEXT TEST
LOAD ERROR MESSAGE

§ggg

nTEST

3081
3082
3083
3084

*
g
*
*

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD ZERO IN CYLINDER ADDRESS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SEEK COMMAND.
CLOCK IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE

3087
3088

SEEK

R R AR R R R AR AR AR R

R N

R AR

RN R AR N R RN R

R AR R RS

AND CYLINDER ADD 0=777 LOADING FOR DRIVE

CORRECT MESSAGE IS LOADED.

MESS

REPEAT FOR CYLINDER = 1-777.

:"ttttttttttttttttttttttt.tttittttt.'ttlttttt..tttttttt'ttt'ttttt
011060

000004

3089
3090
3091
3092
3093

011062
011070
011074
011100
011106

012737
013702
005037
012737
012737

000144
001270
004252
000017
011114

001200

3095
3096
3097
3098

011114
011114
011122

012762
012762

100000
000040

000000
000026

3094

AR AR AR R

3078

gggg

R AR R AR AR

ISRTSPL RKCS1(R2)

TST13:

004160
001110
1%:

SCOPE

MOV
MOV
(LR
MOV
MOV

#100.,8TIMES
$BASE ,R2
CYLIN
#SEEK,E.CST
#1%,8LPERR

2:D0 100, ITERATIONS
;LOAD RK611 BASE
JINITIALIZE CYLINDER
;LOAD EXPECTED (S1
;LOAD LOOP ON ERROR LOCATION FOR

MOV
MOV

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

;(CLEAR RKk611
;PUT RK611 IN MAINTENANCE MODE

;

SUBTEST LOOP

(ZR6BDO Rk611
CZR6BD.P11

3099
3100

3101

3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113

3114
3115
3116
3117
3118
%};8

DSKLS CTRL PRT2
14=SEP=-81 13:47

MACY11

011130
011136

013762
012762

004252
000017

000020
000009

011150
011156
011164
011166
011170
011176
011204
011212
011220
011226
011232
011236

012762
012762
005300
001370
016237
016237
016237
012737
013737
006337
006337
006337

000440
000040

000026
000026

000000
000034
000036
000020
004252
004210
004210
004210

004120
004146
004150
004204
O0Quwé2i0

011144

011242
011246
011254

011256
011260
011266

012700

006337
023737
001405

104017
012762
000434

000016

004210
004160

004120

100000

000000

000020

004146

30(] 046)
T13

MOv
MOV

2%:

011270
011276

032737
001002

g}gg

011302

000426

3126
3127
3128
3129
3130
g}g;

011304
011312
011320
011326
011330
011332

013737
042737
023737
001402
104021
000412

004150
140017
004210

001160
001160
001160

4%:

3133
3134

011334
011342

023737
001401

(004206

004146

5%:

313¢

011346

023737

004210

004150

6%:

3135

011300

011344

3%:

104020

104022

MOV

MOv
MOV
DEC
BNE
MOV
MOov
MOV
MOV
MoV
ASL
ASL
ASL

ASL
(MP
BEQ

3121
3122

3123

14-SEP-81
15:10
PAGE 6!
SEEK AND CYLINDER ADD (=777 LOADING FOR DRIVE MESS

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

#3%4+2 R0

;CLOCK IN DRIVE MESSAGE

E.MR3
E.CS1,T.CST
3%

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

#DMD !M(LK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
2%
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKMR2(R2) ,T.MRZ ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3
#S.SEEK,E.MR2
;LOAD EXPECTED MAINT REG. 2
CYLIN,E.MR3
;GENERATE EXPECTED MAINT REG. 3
E.MR3
E.MR3
E.MR3

ERROR
MOV
8R

17
#CCLR,RKCST(R2)
25%

BIT
BNF

#S.SEEK,T.MR2
4%

;(HECK IF SEEK COMMAND BIT SET
;YES, CHLCK CYLINDER ADDRESS BITS

25%

;CHECK IF LOOP ON ERROR

ERROR

;CLEAN UP FOR NEXT CONFIGURATION
sCHECK IF LOOP ON ERROR

;SEEK BIT NCT SET

MOV
BIC
CMP
BEQ
ERROR
BR

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

sMASK BITS NOT UNDER TEST

CMP
BEQ

E.MR2,T.MR2
6%

sCHECK IF MESSSAGE A CORRECT
sYES, CHECK MESSAGE B

(MP

E.MR3,T.MR3

sCHECK IF MESSAGE B CORRECT

ERROR

;CHECK IF CYLINDER ADDRESS BITS CORRECT
sYES, CHECK MESSAGES AgB
sCYLINDER ADDRESS BITS INCORRECT
;CHECK IF LOOP ON ERROR

sMESSAGE

INCORRECT

SEQ 0060

CIR6BDO RK611 DSKLS CTRL PRT2
TIR6BD P
14=SEP=-81 13:4°4
3137
3138
3139
3140
3141
§}2%

011354
011356
011360
011362
011366
011374

00140
104023
104415
005237
022737
103247

004252

000777

MACY11 30(1046)

14=-SEP-81

15:10

Jd 3
PAGE 62

SEEK AND CYLINDER ADD Q=77 7 LOADING FOR DRIVE MESS

25%:

BEQ
ERROR
SCoP1
INC
CMP

004252

BHIS

CYLIN
#777 ,CYLIN
1%

:NO,

TRY NEXT CONFIGURATION

g;zz

*TEST 14

3147
2148
2149
3150
3151

3®
;e
;e
;*
i

3'.5/,
3155
23156
3157
3158
2159
3160
3161
316¢
3163
3164
3165
3166
2167
3168
3169
3170

:0.-tlt.uttttttttttttt!t't"tt"QQtttttttttt'ttt'tttt'tfitltt'titt.t
TST14:
SCOPE
MOV
#100.,8TIMES
::D0 100. ITERATIONS
MOV
$BASE ,R2
:LOAD RK611 BASE
MOV
#1000,CYLIN
;INITIALIZE CYLINDER
CLR
E.MR3
:LOAD EXPECTED
MOV
#SEEK ,E.CS1
:LOAD EXFECTED CS1
MOV
#1%,8LPERR
:LOAD LOOP ON ERROR LOCATION FOR
:
SUBTEST LOOP

3171

3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
%}g%

;.
011376
011400
011406
011412
011420
011424
011432

000004
012737
013702
012737
005037
012737
012737

000144
001270
001000
004210
000017
011440

001200

011440
011440
011446
011454
011462
011470
017474

_
012762
012762
013762
012762
012700
012762

10000C
000040
004252
000017
000016
000440

000000
000026
000020
000000

011510
011512
011514
011522
011530
011536
011544
011552
011554
011556
011564

005300
001370
016237
016237
016237
012737
023737
001405
104017
012762
000434

011502

012762

004252
004160
001110

000026

0C0040

000026

000000
000034
000036
000020
004160

004120
004146
004150
004206
004120

100000

000000

1%:

2%:

:YES, CHECK IF LOOP ON ERROR
sMESSAGE B INCORRECT
;CHECK IF LOOP ON ERROR
:INCREMENT CYLINDER NUMBER
:CHECK IF FINISHED

3144

;}2%

AR AR R R R R R

25%
23

SEQ 0061

R AR R R AR TR AR R AR AR AR A AR RN

R ARk

SEEK AND CYLINDER BIT 9 AND RKO6 FOR DRIVE MESS.

CYLINDER = 1400.

MOV
MOV
MOV
MOV
MOV
MOV

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
:;PUT RK611 IN MAINT MODE
CYLIN,RKDCYL(R2) ;LOAD CYLINDER ADDRESS
#SEEK ,RKCST(R2) ;ISSUE SEEK
#3%4+2 R0
:CLOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1(R2)

DEC
BNE
MOy
MOV
MOV
MOV
CMP
BEQ
ERROR
MOV
BR

RO
2%
RKCST1(R2),T7.CS1
RKMR2 (R2),T.MR2
RKMR3(R2),T.MR3
#S.SEEK,E.MR2
E.CS1,T.CST
3$
17
#CCLR,RKCST1(R2)
25%

MOV

#DMD ,RKMR1(R2)

;STORE COMMAND AND STATUS REG. 1
;STORE MAINT REG.2
;STORE MAINT REG.3
;LOAD EXPECTED MAINT REG. 2
:CHECK IF CS1 CORRECT
:YES, CHECK MESSAGE ARR
;CLEAN UP FOR NEXT CONFIGURATION
;CHECK IF LOOP ON ERROR

3184
3185
23186
2}2;

011566
011574
011576
011600

032737
001002
104020
000426

000020

004146

3%:

BIT
BNE
ERROR
BR

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

;CHECK IF SEEK COMMAND BIT SEEK
:YES, CHECK CYLINDER ADDRESS BITS
:SEEK BIT NOT SET
JCHECK IF LOOP ON ERROR

3189
3190

011602
011610

013737
042737

004150
140017

001160
001160

4%:

MOV
BIC

T.MR3,$TMPO
#140017,8TMPO

:MASK BITS NOT UNDER TEST

3192

011624

001402

BEQ

:YES, CHECK MES3SAGES ARR

3191

011616

023737

004210

001160

(MP

E.MKk3,8TMPO

:CHECK IF CYLINDER ADDRESS BITS (ORRECT

(ZR6BDO RKk€11
TIREBD.P1Y

DSKLS CTRL PRTZ2
14=SEP=81 13:47

3193
g}gg

011626
011630

104027
000412

3196

011632

023737

3198
3199

011642
011644

104022
023737

3201
3202
3203
3204
3205
3206

011654
011656
011660
011666
011670
011676

104023
104415
022737
001407
012737
012737

3197
3200

ggg;

011640

011652

011704

001401

000655

MACY11

30(1046)
114

K
5
14=SEP=-81
15:10
PAGE 63
SEEK AND CYLINDER BIT 9 AND RKO6 FOR DRIVE MESS.

ERROR
BR

004206
004210

004146
004150

001400

.
00425¢

001400
010000

004252
004210

SS$:
¢6%:
258

(MP

21
25%

sCYLINDER ADDRESS BITS INCORRECT
sCHECK IF LOOP ON ERROR

E.MR2,1.MR2

sCHECK IF MESSAGE A CORRECT

22
E.MR3,T.NR3

;MESSAGE B INCOPRECT
sCHECK IF MESSAGe IS CORRECT

BEQ

BE®

258

ERROR
(MP

FRROR
SCoP1
(MP
8EQ
MOV
MOV

;YES, CHECK MESSAGE B

;YES, CHECK IF LOOP ON ERROR

sMESSAGE INCORRECT
;CHECK IF LOOP ON ERROR
JCHECK IF CYLINDER 1400
:;YES, GO ON TO NEXT TEST
:SET CYLINDER=1400
:LOAD EXPECTED CONFIGUR

#1400,CYLIN
TST15
#1400,CYLIN
#10000,E .MR3

SEG J062

:TRY NEXT

CONFIGURATION

3209

'."Q.t.fl".t...tt'..."""".....Q....."Q'...QQ."'Q.."."....

%S}?

'TESY

3212
3213
314
3215

.
.
.
.

(LEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD O IN CYLINDER ADDRESS.
LOAD
(OMMAND AND STATUS REGISTER 1 WITH SEEK COMMAND AND
(DT SET.
(CLOCK IN MESSAGE A AND B INTO SHIFT REGISTER.

gszg

3218
3219

3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230

011706
011710
01i716
011722
011726
011734

0G0004
012737
013702
005037
012737
012737

000144
001270
004252
002017
011742

001200

011742
011742
011750
011756

012762
012762
013762

100000
000040
004252

000000
000026
000020

3232
3233
3234
3235
3236
3237
3238

011772
011776
012004
012012
012014
012016
012024

012700
01276<c
012762
005300
001370
016237
016237

000016
000440
000040

3241

012046

013737

3231

3239
3240

3242
3243
3244
3245
3246
3247
3248

011764

012032
012040

012054
012060
012064
012070
012074
012102
012104

012762

016237
012737

006337
006337
006337
006337
023737
001405
104024

002017

000000
000034
000036
000020

004252

004210
004210
004210
004210
004160

1%:

000000

004120
004146
004150
004206

004210

004120

SURE

:A RAL LR A A
TST15:
SCOPE

004160
001110

000026
000026

MAKE

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

REPLAT FOR CYLINDER =

R R

RS SRR

777=1777.

2222

MOV
MoV
(LR
MOV
Mov

#100.,8TIMES
$BASE ,R2
CYLIN
#CDT!SEEK,E.CST
#1% ,SLPERR

MOV
MOV
MOV

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

MOV

2%:

CYLINDER CORRECT.

MOV
MOV
MOV
DEC
BNE
MOV
MoV

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

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

#3%4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2)
RO
2%
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2(R2) ,T.MR2 ;STORE MAINT REG. 2

MOV
MOV

RKMR3(R2) .T.MR3 :STORE MAINT REG, 3
#S.SEEK,E.MR2
;LOAD EXPECTED MAINT REG. 2

ASL
ASL
ASL
ASL
CMP
BEQ
ERROR

E.MR3
E.MR3
E.MR3
E.MR3
E.CST,T.CS1
3%
24

MOV

CYLIN,E .MR3

sGENERATE EXPECTED MAINT REG. 3

JCHECK IF CS1 CORRECT
JYES, (HECK MESSAGE ARB

1
L4

CZR6BDO Rk611 DSKLS CTRL PRT2
CZR6BD.P11
14=-SEP=81 13:47

MACYN

3249
ggg?

012106
012114

Q12762
000434

100000

000000

3252
3253
3254
gggg

012116
012124
012126
012130

032737
001002
104025
000426

000020

004146

3257
3258
3259
3260
3261
%gg%

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
012174
012202
012204
012206
012210

023737
001401
104027
023737
001401
104030
104415
005737

3272
3273
3274
3275
gs;g

012214
012216
012224
012230
012236

001003
012737
005237
(022737
103241

3?5;046)

5
L
14-SEP=81
15:10 PAGE 64
SEEK AND CYLINDER ADD (0,777=1777 LOADING FOR DRIVE MESS
MOV
BR

#CCLR,RKCST1(R2) ;CLEAN UP FOR NEXT CONFIGRURATION
25%
sCHECK IF LOOP ON ERROR

3%:

BIT
BNE
ERROR
BR

#S.SEEK,T.MR?
4%
25
~—
25%

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

001160
001160
001'1¢0C

4%:

MOV
BIC
CMP
BEQ
ERROR
BR

T.MR3,$TMPO
#160017,8TMPO
E.MR3,$TMPO
5%
26
25%

sMASK BITS NOT UNDER TEST

004206

004146

5%:

004210

004150

6%:

cmp
BEQ
ERROR
CMP
BEQ
ERROR
SCOP1
TST

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

25%:

004252

000776
004252
001777

004252

BNE
MCV
INC
CMP
BHIS

26%:

004252

2278

%Sgg

seYEST 16

3281
3282
3283
3284
3285
3286
3287

>
o
o
2
o
e
I

3288

3289
3290
3291
3292
3293
3294

3295
3296
3297
3298
3299
3300
3301
3302
3303
3304

012240
012242
012250
012254
012260
012266

012272
y

012300
012300
012306
012314
012322
012330
012334

000004
012737
013702
005037
012737
005037

012737

000144
001270
004254
000015
004206

012300

001200
:
004160

001110

012762
012762
013762
012762
012700
012762

100000
000040
004254
000015
000016
000440

JCHECK IF MESSAGE B
JYES, CHECK IF LOOFP ON ERROR
sMESSAGE B INCORRECT
sCHECK IF LOOP ON ERROR
;CHECK IF ZERO
sNO, INCKEMENT CYLINDER
JNEXT CYLINDER=777
s INCREMENT CYLINCER NUMBER
JCHECK IF FINISHED
JNO, TRY NEXT CONFIGURATION

R R R AR

AN R AN AR AR AR R AR AR AR AR AR R AR RN R RN F RN Rk

OFFSET COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WiTH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC 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 CORREZTLY.
REPEAT FOR OFFSET
REGISTER = 1-377.

IR AR

R R AR R R R AR AN AR AR

TST16:

SCOPE
MOV
MOV
(LR
MOV
(LR

#100.,8TIMES
$BASE ,R2
OF F VAL
#OFFSET,E.CST
E.MR2

MOV
MOV
MOV
MoV
MOV
MOV

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
OF F VAL ,RKASOF
(R2) ; LOAD OFFSET VALUE
#OFFSET ,RKCST1(R2) ; ISSUE OFFSET
#3+4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1(R2)

MOV

sCHECK IF MESSAGE A CORRECT
JYES, CHECK M MESSAGE B

CYLIN
26$%
#776,CYLIN
CYLIN
#1777 ,CYLIN
%

AR AR AR A AR R AR AN

JCHECK IF CYLINDER ADDRESS BITS (ORRECT
JYES, CHECK MESSAGES AgRB
sCYLINDER ADDRESS BIT INCORRECT
sCHCCK TF LOOP ON ERROR

000000
000026
000016
000000

000026

2%:

#18 ,SLPERR

R R R R RN R AR R AR AR R AR AR R AR R R AR

2:D0 100. ITERATIONS
sLOAD RK611 BASE
JINITIALIZE OFFSET VALUE
;LOAD EXPECTED (CS1
sLOAD EXPECT MAINT REG 2

RN RN

;LOAD LOOP ON ERROR LOCATION FOR
;
SUBTEST LOOP

SEQ 0063

CZR6BDO RK611 DSKLS CiRL PRT2
CZR6BD.P1
14=-SEP=-81 13:47
3305

3306
3307
3308

3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322

3323

012342

012350
012352
012354

012362
012370
012376
012402
012410
012414
012422
012426
012432
012436
012442
012450
012456
012460

012466

012762

005300
001370
016237

016237
016237
005037
013737
005137
042737
006337
006337
006337
006337
052737
032737
001003
052737

023737

000040

000026

000000
000034
000u36
004210
004254
004210
177700
004210
004210
004210
004210
014000
000200

004120
004146
004150

MOV
DEC
BNE
MOV
MOV
MOV
CLR
MOV
(OM
BIC
ASL
ASL
ASL

002000

004210

004160

004210
004210

004210
004254

004120

10%:

012474
012476
012500
012506

001405
104031
012762
000426

3329
3330
3331
3332
3333
%g%g

012510
012516
012924
012532
012534
012536

013737
042737
023737
001402
104032
000412

004150 001160
140017 9001160
004210° 001160
S

4%:

3336
3337
3338

012540
012546
012550

023737
001401
104033

004206

004146

5%:

004210

004150

6%:

012552
012560
012562
012564
012566
012572
012600

023737
001401
104034
104415
005237
022737
103237

100000

004254
000377

000000

25%:
004254

3347

ASL
BIS
BIT
BNE
BIS

CMP

3352
3353
3354
3355

i
e®
o
s

3351

g;g?

012602
012604

000004
012737

000144

001200

E.MR3
#14000,E .MR3
#BIT7,0F FVAL
108
#BIT10,E.MR3

E.CST1,T.CS1

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

;DETERMINE SIGN

sCHECK IF CS1 CORRECT

43
31
#CCLR,RKCST1(R2)
25%

MOV
BIC
(MP
BEQ
ERROR
BR

T.MR3,$TMPO
#140017,8TMPO
E.MR3,$TMPO
5%
32
25%

;JMASK BITS NOT UNDER TEST

CMP
BEQ
ERROR

E.MR2,T.MR2
6%
33

;CHECK IF MESSAGE A CORRECT
;YES, CHECK MESSAGE B
sMESSAGE A INCORRECT

CMP
BEQ
ERROR
SCOP1
INC
CMP
BHIS

TRTEST 17

3350

#DMD ,RKMR1(R2)
RO
2%
RKCS1(k2),T.CS1
RKMR2(R2) ,T.MR2
RKMR3(R2) ,T.MR3
E.MR3
OFFVAL ,E .MR3
E.MR3
#177700,E.MR3
E.MR3
E.MR3
E.MR3

SEQ 0064

BEQ
ERROR
MOV
BR

gg‘ig

3358
3359
3360

14-SEP-81
15:10 PAGE 65
OFFSET COMMAND LOADING FOR DRIVE MESS.

3324
3325
3326
%%gg

3339
3340
3341
3342
3343
3344
ggzg

MACY1 3?{;046)

E.MR3,T.MR3
25%
34
OF F VAL
#377,0FFVAL
1%

JYES, CHECK MESSAGE AgB
;CLEAN UP FOR NEXT CONFISURATION
sCHECK IF LOOP ON ERROR

sCHECK IF OFFSET VALUE CORRECT
;YES, CHECK MESSAGES A&B
sOFFSET VALUE INCORRECT
;CHECK IF LOOP ON ERROR

sCHECK IF MESSAGE B CORRECT
;JYES, CHECK IF LOOP ON ERRR
JMESSAGE B INCORRECT
sCHECK IF LOOP ON ERROR
s INCREMENT OFFSET VALUE
sCHECK IF FINISHED
sNO, TRY NEXT CONFIGURATION

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 1)
R AR AR AR R R R R R AR AR R AR R R R AR AR AR R AR R AR AR

CLEAR RK617 WITH CONTROLLER CLEAR.

DIAGNOSTIC MODE.

AR AR

PUT TONTROLLER IN

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
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.

.';Qtttttltttttttlttttttttttttttt'tttttttlitttttt.tttttt'ttt'ttttt
iST17:
SCOPE
MOV
#100.,8TIMES
::P0 100. ITERATIONS

CIR6BDO RK611 L3kLS CYRL PRT

_IR68D P

14-5EP=81 13:4

MACY1T

3?{;066)

14=SEP-81

N 5
PAGE 66

15:10

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 1)

3361
232
T3
T
3365
3369

012612
012816
1%
10682
012640
012646

0137 ;
0127
012737
012737
0127
0127

001;79
00177
000052
000001
100000
00004

004252
004254
004160
000000
00026

MOV
MOV
MoV
MOV
MOV
MOV

$BASE ,R2
#1777 ,CYLIN
#52 ,0F FVAL
#SELDNv,E.CST
#CCLR,RKCS1(R2)
#DMD ,RKMR1(R2)

3368

012662

0!576

000052

000016

MOV

#52 ,RKASOF
(R2) ;LOAD OFFSET VALUE

370

012676

01%656

0127

§369 012670 012762
3371
5§7§
337
3376
3375
3376
3377
3378
3379
3380
3381
3382
3383
g%gg
3386

012 OS
81571
12716
012720
012722
012730
012736
012744
012752

012756
012764
012766
012770
012776

81%700

12762
012762
005300
001370
016237
016237
016237
012737
005037
023737
001405
104035
012762
000423

00177

000001

000016

00020

MOV

000000

000440
000040

000026
000026

000000
000034
000036
000000
004210
004160

004120
004146
004150
004206

100000

000000

MOV
18%:

004120

MOV

013000
013000
013006
013014
013076
013020

013737
042737
0C07402
104037
000412

004150
140017

001160
001160

2%:

33935
3394
3395
3396
3397
%533

013022
013030
013032
013034
013042
013044

023737
001401
104040
023737
001401
104041

004206

004745

4%:

004210

004150

6S%:

:LOAD RK611 BASE
;LOAD CYLINDER VALUE
;LOAD OFFSET VALUE
:
;LOAD EXPECTED (S1
;CLEAR RK611
;PUT RK611 IN MAINTENANCE MODE

#1777.RKDCYL(R2) JLOAD CYLINDER VALUE
0SELDRV,RKCS1(R2) ;s ISSUE SELDRV
#3%4+2 RO

;CLOCK IN DRIVE MESSAGE

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

:CHECK IF CS1 CORRECT
;YES, CHECK MESSAGES 7&B

MOV
BIC
BEQ
ERROR
BR

T.MR3,$TMPO
#140017,8TMPO
4%
37
TST20

;MASK OUT BITS NOT UNDER TEST
;CHECK IF CYLINDER ADDRESS ZERO
JCYLINDER ADDRESS BITS INCORRECT
2:G0 ON TO NEXT TEST

CMP
BEQ
FRROR
CMP
8EQ
ERROR

E.MR2,T.MR2
5%
40
E.MR3,T.MR3
TST20
41

sCHECK IF MESSAGE A CORRECT
JYES, CHECK MESSAGE B
sMESS A INCORRECT
JCHECK IF MESSAGE B CJRRECT
;2YES, GO ON TO NEXT TEST
JMESS B INCORRECT

MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
CLR

cMP
BEQ
ERROR
MOV
bk

3387
3388
3389
3390
%gg;

SEQ 0065

#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKCS1(R2),T7.CS1 ;STORE COMMAND AND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3
#0,E.MR2
;LOAD EXPECTED MAINT REG. 2
E.MR3
;LOAD EXPECTED MAINTENANCE REG. 3

;CLEAR CONTROLLER FOR NEXT TEST
::G0 ON 70 NEXT TEST

3400

.-'-tttttttttttt'ttttttttt't"t.tttt'tt'ntt'.ttttt'.tttt'.tttt.tt't

%28;

J*TEST 20

3403
3404
3405
3406
3407
3408

Fa
"
A
;.
2.
.

22?8
54]1
3,12
3413
214
215
316

013046
013050
013056
013062
013070

000004
015737
O1 70;
012737
012737

000144
001279
001777
000052

001200

004252
004254

CYLINDER ADDRESS LOADING OF

DRIVE MESS

(PART 2)

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

WITH 777.
LOAD THE OFFSET REG TO S2.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A PACK ACKNOWLEDGE.
CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.

:.-0.Qt.t'lt.t..tttlt..'tt.t!!.ltl.!ll.t....l.tlit.ttt....t.tnOQQQ
1S120:
SCOPE

MOV
MOV
MOV
MOy

#100, ,$TIMES
$8ASE ,R?
#1777 ,CYLIN
852,0FF VAL
.

2:D0 100, ITERATIONS
:LOAD Rk611 BASE
JLOAD CYLINDER VALUE
:LOAD OFFSET VALUE

(ZR6BDO Rk611 DSKLS CTRL PRT?
14-SEP-81 13:47
CZR6BD.P11

3617
3,18
3,19
3620
3621
3622
3623
3624
3425
3626
3427
3428
3409
3,30
3431
3432
3433
3434
3435
3436
34,37
3438
3439
3440
3442
3643
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472

MACY11

30(1046)
120

013076
013104
013112
013120
013126
013134
013142
013146
013154
013162
013164
013166
013174
013202
013210
013216
013222
013230
013232
013236
013242

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

013244
013204

032737

013252
013254
013256

001002
104036
000423

013260
013260
013266
013274
013276
01330C

013737
0462737
001402
104037
000412

074150

013302
013310
013312
013314
013322
013324

023737
001401
104040
023737
001401
104041

004206

004146

4%:

004210

004150

5%:

000003
100000

000040
001777
000052
000G03
000016
000440
000040

004160

000000

000026
000026

000000
000034
000036
004000
004210
004160

004120
004146
004150
004206

100000

000000

004000

004140

1%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE

MOV
MOV
MOV
MOV

2%:

:LOAD EXPECTED CS1

;CLEAR RK6T1

#1777 ,RKDCYL (R2)

sPUT RK611 IN MAINTENANCE MODE
;LOAD CYLINDER VALUE

#3%4+2 R0

:CLOCK IN DRIVE MESSAGE

#52 ,RKASO
(R2)
F : LOAD OFFSET VALUE
#PACK ,RKCS1(R2) s 1SSUE PACK

#DMD 'MCLK ,RKMR1
(R2)
#DMD
. RKMRT (R2)
RO
1%
RKCS1(R2),T.CST ;STORE COMMAND AND STATUS REC.
RKMR2
(R2) . T.MR?2 :STORE MAINT REG. 2
RKMR3(R2)
. T.MR3 ;STORE MAINT REG. 3
#S.PACK,E.MR2
;LOAD EXPECTED MAINT REG. 2

MOV

B8R

#CCLR,RKCST(R2)
TST21

;CLEAR CONTROLLER FOR NEXT TEST
;G0 ON TO NEXT TEST

BIT

#S.PACK,T.MR2

BNE

3%
36

1sT21

sCHECK If PACK COMMAND
BIT SET
;
;YES, CHECK CYLINDER ADDRESS BITS
:S.PACK BIT NOT SET
::G0 ON TO NEXT TEST

T.MR3,$TMPQ

;MASK OUT BITS NOT UNDER TEST

sCHECK IF CYLINDER ADDRESS ZERO
;CYLINDER ADDRESS BITS INCORRECT
;:G0 ON TO NEXT TEST

001160
001160

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

;LOAD EXPECTED MAINTENANCE REG. 3
sCHECK IF CS1 CORRECT
;YES, CHECK MESSAGES AgB

ERROR

140017

#PACK ,E.CST

SEQ 0066

E.MR3
£.051,7.(S)
2%
35

CLR
CMP
BEQ
ERROR

004120

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

MOV

BIC
BEQ
ERROR
BR

#140017,$TMPO

TST21

;CHECK IF MESSAGE A CORRECT
;YES, CHECK MESSAGE B
sMESS A INCORRECT

CMP

BEQ
ERROR
CMP
BEQ
ERROR

sCHECK IF MESSAGE B CORRECT
;;YES, GO ON TO NEXT TEST
sMESS B INCORRECT

':l"tt't'ttttfittt!t"t't"t.'tttitttt.'tttt‘ittt'.tfitttttttttt'.

TRTEST 21

CYLINDER ADDRESS LOADING OF

DRIVE MESS

(PART

PUT CONTROLLER IN
CLEAR RK611 WITH CONTROLLER CLEAR.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A CLEAR DRIVE.
CLOCK

DIAGNOSTIC MODE.

*
*

MESSAGES A AND B

INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

ADDRESS FIELD

IS ZERO IN DRIVE MESSAGE.

013326

000004

AR AR AR A AR AR AR A AR AR

7ST21:
§

SCOPE

AR AR

AR AR AR AR

RN h R

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

MACY11

3473
3476

013330
013336

012737
013702

000144
001270

3476
3477
3478
3479

013350
013356
013364
013372

012737
012737
072762
012762

000052
000005
100000
000040

004254
004160
000000
000026

3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
gzgg

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

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

000052
000005
000016
000440
000040

000016
000000

000000
000034
000036
000400
004210
004160

004120
004146
004150
004206

100000

000000

3499
%gg?

013524
013524

032737

000400

3502
3503
gggg

013532
013534
013536

001002
104036
000423

3475

3480

3506

013342

013400

013540

012737

012702

C
6
14-SEP-81
15:10 PAGE 6 8
30( 1046)
121
CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 3)

001200

001777

MOV
Mov

004252

001777

000026
000026

1%:

004120

004146

2$:

3%:

3507
3508
3509
3510
gg};

013540
013546
013554
013556
013560

013737
042737
001402
104037
000412

004150
140017

001160
001160

3513
3514
3515
3516
3517
gg}g

013562
013570
013572
013574
013602
013604

023737
001401
104040
023737
001401
104041

004206

004146

48:

004210

004150

5%:

:;D0 100. ITERATIONS
;LOAD RK671 BASE

#52,0FF VAL
#CLEAR,E.CST
#CCLR,RKCST(R2)
#DMD ,RKMR1(R2)

sLOAD OFFSET VALUE
;LOAD EXPECTED (CS1
;CLEAR RK611
;PUT RK611 IN MAINTENANCE MODE

MOV

#1777, ,CYLIN

MOV

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

MOV
MOV
MOV
MOV

000020

#100.,$TIMES
$BASE ,R2

sLOAD CYLINDER VALUE

Mov
MOV
MOV
Mov
MOV
DEC
BNE
MOV
MOV
MOV
MOV
CLR
CMP
BEQ
ERROR
MOV
BR

#52 ,RKASOF
(R2) :LOAD OFFSET VALUE
#CLEAR,RKCST1(R2) ;ISSUE CLEAR
#3%4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
18
RKCST1(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.CLR,E.MR2
;LOAD EXPECTED MAINT REG. 2
E.MR3
;LOAD EXPECTED MAINTENANCE REG. 3
E.CST1,T.(CS1
;CHECK IF CS1 CORRECT
c$
;YES, C(HECK MESSAGES AgB
35
#CCLR,RKCST1(R2) ;CLEAR CONTROLLER FOR NEXT TEST
TST22
::G0 ON TO NEXT TEST

BIT

#S.CLR,T.MR2

:CHg§$ gETCLEAR COMMAND

BNE
ERROR
BR

3%
36
TST22

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

MOV
BIC
BEQ
ERROR
BR

T.MR3,$TMPO
#140017,8TMPO
‘s
37
TST22

sMASK OUT BITS NOT UNDER TEST
sCHECK IF CYLINDER ADDRESS ZERO
;CYLINDER ADDRESS BITS INCORRECT
::G0 ON TO NEXT TEST

CMP
BEQ
ERROR
CMP
BEQ
ERROR

E.MR2,T.MR2
5%
40
E.MR3,T.MR3
TST22
41

sCHECK IF MESSAGE A CORRECT
;YES, CHECK MESSAGE B
sMESS A INCORRECT
sCHECK IF MESSAGE B CORRECT
:.YES, GO ON TO NEXT TEST
sMESS B INCORRECT

3520
ggg;

,'"titit'tttfiti!tfittttt"itttfi.tt."i*‘t'ttit'tfi't"'tt'..tt't'1"
J*TEST 22
CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 4)

3523
3524
3525
3526
3527
3528

;e
:*
e
:®
:*
;e

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE QFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH AN UNLOAD.
CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

SEQ 0067

CZR6BDO RKk611 DSKLS CTRL PRT2
14=SEP=81

CZR6BD. P11

13:47

MACY11

30(1046)
122
*

14-SEP-81
15:10
PAGE 69
CYLINDER ADDRESS LOADING OF DRIVE MESS
ADDRESS FIELD

SEQ 0068

(PART &)

IS ZERO IN DRIVE MESSAGE.

000026
000026

000000
000034
000036
002000
004210
004160

004120
004146
004150
004206

Mov
MoV
MOV
MOV

100000

000000

002000

004146

DEC
BNE

140017

_—

004150

3%:

000412

023737
001401

004206

004146

4%:

023737
001401

004210

004150

§8:

104040
104041

ITERATIONS

*LOAD RK611 BASE
:LOAD CYLINDER VALUE

:CLEAR RK611
:PUT RK611 IN MAINTENANCE MODE

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

#52 ,RKASOF
(R2)

;LOAD OFFSET VALUE

#UNLOAD ,RKCST(R2) ;ISSUE UNLOAD

#3%4+2 RO
:CLOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1(R2)
ggno.nxua1<n2)
1%

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

#S.UNLD,E.MR2

;LOAD EXPECTED MAINT REG.

BEQ
ERROR
MOV
BR

#CCLR,RKCST(R2)
TST23

;CLEAR CONTROLLER FOR NEXT
::G0 ON TO NEXT TEST

BIT

#S.UNLD,T.MR2

:CHgE§ éETUNLOAD COMMAND

BNE
ERROR
BR

:YES, CHECK CYLINDER ADDRESS BITS

MOV

(MP
BEQ
ERROR
CMP

BEQ
ERROR

AR RN R A AR AR

LRTEST 23

;

;YES, CHECK MESSAGES Ag&B

TEST

;S.UNLD BIT NOT SET
::GO ON TO NEXT TEST

p—

JMASK OUT BITS NOT UNDER TEST

sCHECK IF CYLINDER ADDRESS ZERO

ST23

::G0 ON TO NEXT TEST

.MR2,T.MR2
$

3,T.MR3
ST23
1

R AR AR AR TR

;CYLINDER ADDRESS BITS

INCORRECT

;CHECK IF MESSAGE A CORRECT
;YES, CHECK MESSAGE B

sMESS A INCORRECT
sCHECK IF MESSAGE B CORRECT
;.YES, GO ON TO NEXT TEST
sMESS B

ARARA RN RN

INCORRECT
AR PR R

CYLINDER ADDRESS LOADING OF DRIVE MESS

(PART 5)

. %

. &

;LOAD EXFECTED MAINTENANCE REG. 3
sCHECK IF CS1 CORRECT

BIC
BEQ
ERROR
BR

104037

*LOAD OFFSET VALUE
;LOAD EXPECTED (S1

000423

#52,0FFVAL
#UNLOAD,E.CS1_
#CCLR,RKCST(R2)
#DMD ,RKMRT (R2)

—_

104036

;:DO 100.

$BASE .R2
#1777.CYLIN

wo~

2%:

AR AR R AR

E.MR3
E.CS1,T.CST

CLR
CMP

004120

#100.,$TIMES

000040

004252
004254
004160
000000
000026
000020
200016
000000

001002

013737
042737
001402

SCOPE

AR AR AR RN R RN R AR AR AR

—~ NS

032737

15122:

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

000431

001200

AR AR

000144
001270
001777
000052

AR AR

S=—meunm

(eoleleleoleololelolololeololololeoleoleoleololele)
Lo e e R B TM L L
D
P
P
T
e PP P P
e|
pSTe
Yo No I LSTLSLSTLSLNTSTST
NSNS IV STe]

722
724

BB J\gl\bl\i\

—d

)

eleleleleleBleleleleleleBoleleelelelelololeloleleleoleleolelololeloleololololelele
el le)

SRR

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

CZR6BDO RKk611 DSKLS CTRL PRT?

CIR6BD.P

14=SEP=81 13:4”

MACY1T1 30(1 046)

3585
3586
3587
%ggg

.
*

WITH 777. LOAD THE OFFSET REG TO S52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A START SPINDLE.
(CLOCK

014066
014070
014076
014102
014110
014116
014124
014132

000004
012737
013702
012737
012737
012737
012762
012762

000144
001270
001777
000052
000011
100000
000040

001200
3
00425¢
004254
004160
900000
000026

3601

014146

012762

000052

000016

3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
gg}g

014162
014166
014174
014202
014204
014206
014214
014222
014230
014236
014242
014250
014252
014254
014262

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

3619
ggsq

014264
014264

032737

36¢2
3623
gggg

014272
014274
014276

001002
104036
000423

3626
3627
3628
3629
3630
ggg;

014300
014300
014306
014314
014316
014320

013737
042737
001402
104037
000412

004150
140017

001160
001160

3633

014322

023737

004206

004146

4%:

004210

004150

5%:

3602

3634
3635
3636
3637
3628

36‘0

014140
014154

014330
014332
014334
(014342
014344

012762

001401
104040
023737
0014017
104041

001777

000011

000016
000440
000040

000020

000000
000034
000036
000100
004210
004160

004120
004146
9004150
004206

100000

000000

000100

004146

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

ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.

:':tttttttt.Qtttttt'tttttlttt'tt'ttttttttttttt'tttt*tttttttttttt't
TST23:
SCOPE
MOV
#100.,$TIMES
;:D0 100. ITERATICNS
MOV
$BASE ,R2
;LOAD RK611 BASE
MOV
#1777 ,CYLIN
;LOAD CYLINDER VALUE
MOV
#52,0FFVAL
sLOAD OFFSET VALUE
MOV
#SRTSPL ,E.CS?
;LOAD EXPECTED CS1
MOV
#CCLR,RKCST(R2) ;CLEAR RKk611
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE

MOV

00000C
000026
000026
:

E 6
PAGE 70

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 5)

3591
3592
3593
3594
3595
3596
3597
3598
3599

3600

15:10

123

;%
.

3588

14-SEP-81

#52 ,RKASOF
(R2)

MOV
MOV
MoV
DEC
BNE
MOV
MOV
MOV
MOV
CLR
CMP
BEQ
ERROR
MOV
BR

#3%4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%
RKCST1(R2),T7.CS1 ;STCRE CUMMAND AND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3
#S.STSP,E.MR2
sLOAD EXPECTED MAINT REG. 2
E.MR3
;LOAD EXPECTED MAINTENANCE REG. 3
E.C51.T.L5
sCHECK IF CS1 CORRECT
2%
JYES, CHECK MESSAGES AgB
35
#CCLR,RKCS1(R2) ;CLEAR CONTROLLER FOR NEXT TEST
TST24
;:G0 ON TO NEXT TEST

MOV
1%:

004120

2%:

3%:

#1777.RKDCYL(R2) ;LOAD CYLINDER VALUE

MOV

;LOAD OFFSET VALUE

#SRTSPL ,RKCST(R2) ;ISSUE SRTSPL

BIT

#S.STSP,T.MR2

:CHSE? éETSRTSPL COMMAND

BNE
ERROR
BR

3%
36
TST24

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

MOV
BIC
BEQ
ERROR
BR

T.MR3,$TMPQ
#140017,8TMPC
31
37
TST24

sMASK OUT BITS NOT UNDER TEST
JCHECK IF CYLINDER ADDRESS ZERO
JCYLINDER ADDRESS BITS INCORRECT
;:G0 ON TO NEXT TEST

CMP

E.MR2,7T.MR2

sCHECK IF MESSAGE A CORRECT

BEQ
ERROR
(MP
BEQ
ERROR

5%
40
E.MR3,T.MR3
TST24
41

;YES, CHECK MESSAGE B
JMESS A INCORRECT
sCHECK IF MESSAGE B CORRECT
;:YES, GO ON TO NEXT TEST
JMESS B INCORRECT

.'"tt't't.ttt'tltt.tttt"'t".'t.'.".t!..'.'....'.'.""Q.l.'.'..

SEG 0069

(ZREBDO Rk611 DSKLS CTRL PRTZ2
TIR6BD.P1T
14=SEP=81 13:47

MACY1I 3?(1066)
14-SEP-81
15:10 PAGE 71
24
CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 6)

%gz;

;*TEST 26

3643
3644
3645
3646

:®
.
i
g

CLEAR RK611 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 WITH A RECALIBRATE.
(LOCK

3648

:®

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

3647

gggg
3651
3652
3653
3654
3655
3656
3657
3658
3659

014346
014350
014356
014362
014370
014376
014404
014412

000004
012737
013702
012737
012737
012737
012762
012762

3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
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

3674
3675
3676
gg;g

014530
014532
014534
014542

001405
104035
012762
000431

3679
gggq

014544
014544

032737

3682
3683
gggg

014552
014554
014556

001002
104036
000423

3686
3687
3688
3689
3690
ggg;

014560
014560
014566
014574
014576
014600

013737
042737
001402
104037
000412

004150
140017

001160
001160

3693
3694
3695
3696

014602
014610
014612
014674

023737
001401
104040
023737

004206

004146

4%:

004210

004150

S%:

3660

3673

014420

014522

012762

023737

000144
001270
001777
000052
000013
100000
000040

001200

000052
000013
000016
000440
000040

000016
000000

001777

000000
000034
000036
000040
004210

004252
004254
004160
000000
000026

000020
000026
000026

004729

100000

000000

000040

004146

MESSAGES A AND B

INTO SHIFT REGISTERS.

MAKE

SURE

ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.

:'."ttQ.ttt'.i'..'.t."""t't".'.l.'."Q't'tt"'t'.'.'tt'tttt."
TST24:
SCOPE
MOV
#100.,$TIMES
;:D0 100. ITERATIONS
MOV
$BASE ,R2
sLOAD Rk611 BASE
MOV
#1777 ,CYLIN
;LOAD CYLINDER VALUE
MOV
#52,0FFVAL
;LOAD OFFSET VALUE
MOV
#RECAL ,E.CST
;LOAD EXPECTED CS1
MOV
#CCLR,RKCS1(R2) ;CLEAR RK611
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE

MOV

18:

004120
004146
004150
004206

004160

CYLINDER ADDRESS LOADING GF DRIVE MESS (PART 6)

#52 ,RKASOF
(R2) :LOAD OFFSET VALUE
#RECAL ,RKCS1(R2) ;ISSUE RECAL
#3%4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKCS1(R2),T.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
;LOAD EXPECTED MAINTENANCE REG. 3

BEQ
ERROR
MOV
BR

2%
35
#CCLR,RKCST(R2)
TST25

BIT

#S.RECL,T.MR?

:CHSE§ gETRECAL COMMAND

BNE
ERROR
BR

38
36
TST25

sYES, CHECK CYLINDER ADDRESS BITS
;S.RECL BIT NOT SET
;.60 ON TO NEXT TEST

MOV
BIC
BEQ
ERROR
BR

T.MR3,$TMPO
#140017,$TMPO
3]
37
TST25

JMASK QUT BITS NOT UNDER TEST

CMP
BEQ
ERROR
(MP

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

;CHECK IF MESSAGE A CORRECT
JYES, CHECK MESSAGE B
sMESS A INCORRECT
sCHECK JF MESSAGE B (ORRECT

CMP

2%:

3%:

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

MoV
MOV
MOV
MoV
MOV
DEC
BNE
MoV
MOV
MOV
MOV
CLR

E.CST1,T.CST

;CHECK IF CS1 CORRECT

;YES, CHECK MESSAGES Ag&B
;CLEAR CONTROLLER FOR NEXT TEST
;:GO0 ON TO NEXT TEST

sCHECK IF CYLINDER ADDRESS ZERO
sCYLINDER ADDRESS BITS INCORRECT
::G0 ON TO NEXT TEST

SEQ 0070

(ZR6BDO Rk611 DSKLS CTRL PRT2

TIR6BD.P11

164=SEP=81

3697
gggg

001407
104047

014622
014626

13:47

MACY11

30(1046)
124

G 6
PAGE 72
CYLINDER ADDRESS LOADING OF DRIVE MESS

14=SEP-81

BEQ
ERROR

3700

15:10

1S125
41

(PART 6)

SEQ 0071

;iYES, GO ON TO NEXT TEST
JMESS B INCORRECT

ttt't.'tittt""t't""t"ttt'..Q.t.'...".'t"".t'.tttt"'ttt

%;8;

'YEST 25

3703
3704
3705
3706

i
*
)
A

MESSAGE

SELECT BIT

CLEARING FOR CLASS A

(PART

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

(OMMAND AND STATUS REGISTER 1 WITH A PACK ACKNOWLEDGE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

;;8;

3705
3710
3711
3712
3713
3714
3715
3716
3717
3718

014626
014630
014636
014642
014650
014656
014664

000004
012737
013702
012737
012737
012762
012762

000144
001270
000017
000003
100000
000057

001200

014672

012762

000003

000000

:"t'ttt.itttttlt'Qt"""tttttttttttt'ttQntt'tttt"ttttt.'tttnt'
TST25:
SCOPE
MOV
#100.,$TIMES
;:D0 100. ITERATIONS
MOV
$BASE ,R?2
;LOAD RK611 BASE
MOV
#17 ,MSGCOD
;LOAD MESSAGE CODE FOR PRINT QuUT
01
#PACK ,E.CST
;LOAD EXPECTED (S1
MOV
#CCLR,RKCST1(R2) :CLEAR RKk611
MOV
#DMD
' 17 ,RKMR1 (R2) ;PUT RK611 IN MAINTENANCE MODE
:
SELECT MESSAGE 17
MOV
#PACK RKCS1(R2) s ISSUE PACK

3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734

014704
014712
014720
014722
014724
014732
014740
014746
014754
014762
014770
014772
015000
015006
015012

052762
042762
005300
001370
016237
016237
016237
016237
012737
032737
001403
052737
012737
005037
023737

0004C0
000400

0000260
000026

000000
000026
000034
000036
002040
020000

004120
004144
004146
004150
004204
004744

020000
004000
004210
004160

004204
004206

3736
3737
%;gg

015022
015024
015032

104042
012762
000442

3740
3741
3742
3743
;;2?

015034
015042
015044
015046
015054

3746
%;2;
3749
3750

3719

3735

1751

014700

015020

012700

001405

000016

004246
004160
000000
000026

000000

023737
001405
104043
012762
000431

004204

004144

100000

000000

015056
015056

032737

004000

004146

015064
015066

001002
104044

000423

10%:

004120

100000

015070

1%:

MESSAGE SELECT BITS ARE CLEARED.-

MOV

3%:

sCLOCK IN DRIVE MESSAGE

#MCLK, RKMR1 (R2)
#MCLK .RKMR1(R2)
RO
1%
RKCST1(R2),T.CS1
RKMR1(R2),T.MR1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
#MEWD 'DMD,E .MR1
#ECCW,T.MRT
108
#ECCW,E.MRT
#S.PACK,E.MR?2
E.MR3
E. 051, 7.C8

;LOAD EXPECTED MAINT REG. 2
JLOAD EXPECTED MAINT REG. 3
;CHECK IF CS1 CORRECT

ERROR
MOV
BR

42
#CCLR,RKCS1(R2)
TST26

;CLEAR RK611 CONTROLLER FOR NEXT TEST
22G0 ON TO NEXT TEST

CMP
BEQ
ERROR
MOV
BR

E.MR1,T.MR1
3%
43
#CCLR,RKCST1(R2)
TST26

;CHECK IF MAINT REG. 1 CORRECT
JYES, CHECK MESSAGES ARB
JMAINT REG. 1 INCORRECT
;CLEAR RK611 CONTROLLER FOR NEXT TEST
;2G0 ON TO NEXT TEST

BIT

#S.PACK,T.MR?

;
:cwg§¥ gEIPACK ( OMMAND

BNE
ERROR

4
44

JYES, CHECK MESSAGE SELECT BITS
;S.PACK BIT NOT SET

1ST26

;G0 ON

BEQ

2%:

#3x4*é RO

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

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

JYES, CHECK MAINT REG. 1

TO NE¥T

TEST

MACY11

(ZR6BDO Rk611 DSKLS CTRL PRT2
CIR6BD.P11
14-SEP=81 13:47
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769

015072
015072
015100
015106
015110
015112

013737
(042737
001402
104045
000412

004150
177760

001160
001160

015114
015122
015124
015126
015134
015136

023737
001401
104046
023737
001401
104047

004206

004146

015140
015142
015150
015154
015162
015170
015176

000004
012737
013702
012737
012737
012762
012762

3785
3786
3787
3788
3789
3790

015204
015212
015216
015224
01523¢
015234

BIC
BEQ
ERROR
BR

5¢%:

3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
gggg

015244
015252
015260
015266
015274
015302
015304
015312
015320
015324
015332
015334
015336
015344

CMP

015346
015354

SELECT BIT

PAGE 73

CLEARING FOR CLASS A

T.MRZ, $TMPO

11
77760,8TMPO
5%
45
1ST26

(PART

SEG 007¢

;MASK OUT BITS NOT UNDER TEST

:CHECK IF MESSAGE SELECT ZERO
JMESSAGE SELECT BITS NOT ZERO
;:G0 ON TO NEXT TEST

E.MR2,T.MR2

JCHECK IF MESSAGE A CORRECT

JMESSAGE A INCORRECT

CMP
BEQ
ERROR

E.MR3,T.MR3
1ST26
47

2222222222222

;YES, CHECK MESSAGE B

;CHECK IF MESSAGE B CORRECT
;JsYES, GO ON TO NEXT TEST
JMESS B INCORRECT

2322222232322 223232332323223232233223333232233322222222220
2}

MESSAGE

SELECT BIT

CLEARING FOR CLASS A

(PART 2)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROL!
FR IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17. (O0AD
COMMAND AND STATUS REGISTER 1 WITH A DRIVE CLEAR.
CI.OCK MESSAGE TO LOAD B SHIFT REG.

MESSAGE

SELECT BITS ARE

CLEARED.

TIME.

MAKE SURE

.'2222222322233 2222232322322232322223323222323 3222233333223 32222222202 2]

001200

012762
012700
052762
042762
(05300
001370

000005
(C00016
000400
000400

000C09

016237
016237
016237
012737
032737
001403
052737
012737
005037
023737
001405
104042
012762
000442

000000

000026
000034
000036
002040
020000

004120
004144
004146
004150
004204
004144

020000
000400
004210
004160

004204
004206

100000

000000

004204

004144

023737
001405

15:10

REG

ERROR

s
o
2
38

000144
001270
000017
000005
100000
000057

016237

MESSAGE
MOV

015236

14=-SEP-81

-TEST 26

377
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
g;gz

3807
3808

004615C

125

3770

3791

004210

30(1046)

TST26:

#100. ,$TIMES

2:D0 100.

MOV
[0}

#17 ,MSGCOD
#CLEAR,E.CST

;LOAD MESSAGE CODE
:LOAD EXPECTED (S1

MOV

004246
004160
000000
000026

000026
000026

SCOPE

MOV

MOV
MOV
MOV
1%:

10%:

BIC
DEC

#MCLK ,RKMR1(R2)
RO

BNE
MOV
MOV
MOV
MOV
MOV
BIT
BEQ
BIS
MOV

CLR

#MCLK ,RKMR1(R2)

1%
RKCST(R2),T7.CS1
RKMR1(R2),T.MR1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
#MEWD !DMD,E .MR1
#ECCW,T.MR1
108
#ECCW,E.MR1

IN MAINTENANCE MODE

SELECT MESSAGE 17
;s ISSUE CLEAR

;CLOCK IN DRIVE MESSAGE

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

;LOAD EXPECTED MAINT REG.

E.CST1,T.CST

JCHECK IF CS1 LORRECT

E.MR3

2%
&2

1ST127

CMP
BEQ

;

FOR PRINT QuT

#S.CLR,E.MR?

BEQ
ERROR
MOV

2%:

#CLEAR,RKCS1(RZ)

#3x4+42 R

BIS

ITERATIONS

;LOAD RK611 BASE

#CCLR,RKCST1(R2) ;CLEAR RKk611
#DMD'!17 ,RKMR1(R2) ;PUT RK611

MOV

CMP

004120

$BASE ,R2

;LOAD EXPECTED MAINT REG. 3
YES CHECK MAINT REG.

#CCLR,RKCS1(R2)

;CLEAR RK61?

CONTROLLER FOR NEXT

E.MR1,T.MR1
3%

;CHECK IF MAINT REG. 1 CORRECT
:YES, CHECK MESSAGES A&R

;G0 ON TO NEXT TEST

TEST

ALVIRV W, L,|

(ZR6BDO RKk611 DSKLS CTRL PRT?
14-SEP=-81 13:47
CZR68D.P1T

032737

000400

000000

004146

3%:

420

104044

oo
oo

177760

—

004159

—_—

013737
042737
001402

(%:

LA
(o

&S
WW

D
e

023737
001401

004206

004146

5%:

023737
001401

004210

004150

6%:

104046

JMAINT REG. 1 INCORRECT
JCLEAR RK611 CONTROLLER FOR NEXT

BIT

#S.CLR,T.MR?

:(Hé%? gETCLEAR C OMMAND

BNE
ERROR

A 3
44

:YES, CHECK MESSAGE SELECT BITS
;S.CLR BIT NOT SET

T.MR3,$TMPO

;MASK OUT BITS NOT UNDER TEST

TST27

e
s
o
o
]

—d
d —d - O

000144
001270

000017
000007
100000

000057

O WWWWWW

& ~y~rornororOWw

ON =t =t e ad =2 OO

;MESSAGE SELECT BITS NOT ZERO

;260 ON TO NEXT TEST

E.MR2,T.MR?2
6%
46
E.MR3,T.MR3
TST27
47

;CHECK IF MESSAGE A CORRECT
;YES, CHECK MESSAGE B
JMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT
;:YES, GO ON TO NEXT TEST
JMESS B INCORRECT

MESSAGE

SELECT BIT

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 AN UNLOAD.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.

. 2232322323322 2323232233323232333232323232333232323233223333222222220R2R02 2 2]

N 2=

joleleleleleleleloleleoleleelelelslelele]

inavananwna v
Vi
oo

(e e Yo NV IV AV IV IV IV IV IV IV IV IRV IV P &H e
—=LOONO VNS DWW
=
—=ON oo
SOOI OSON OO o

——-——)
g

:CHECK IF MESSAGE SELECT ZERO

jwlelelelelelelelelolsleleBelelelelelele]

2232232222323 232233323232333233233233333232332323323232323323323322322222222
2}

tTEST 27
-

;260 ON TO NEXT TEST

;:G0 ON TO NEXT TEST

#177760,$TMPO
5%

CMP
BEQ
ERROR
CMP
BEQ
ERROR

104047

TST27

BIC
BEQ

ERROR

000412

5440
5446
15450

43
CCLR,RKCS1(R2)
18727

MOV

104045

SEG 0073

ERROR
MOV
BR

000423
OO
oo

o
N

A LV AV AV AV v

404

—

D —d e

OO0O0O0O

OOO0O0O0O0

100000

1
6
15:10
30(1046)
14=SEP-81
PAGE
7
MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 2)
126

001002

\:\.h\ll

OO0
—_ 2 —

OO
—_—

ooo
—

104043
012762
000431

MACY11

001200

fST??:

004246
004160
000000
000026

000007
000016
000400
000400

000000

000000
000026
000034
000036
002040
020000

004120
004144
004146
004150
004204
004144

000026
000026

1%:

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV

#100. ,$TIMES
;:D0 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#17 ,MSGCOD
;LOAD MESSAGE CODE FOR PRINT OuT
#UNLOAD ,E.CST
;LOAD EXPECTED (S1
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD '17 ,RKMR1(R2) :PUT RK611 IN MAINTENANCE MODE

MOV
MOV

#UNLOAD ,RKCS1(R2)
#3%4+2 RO
;CLOCK

BIC
DEC
BNE

#MCLK ,RKMR1(R2)
RO
1%

BIT
BEQ

SEC(W,T.MRT
108

BIS

MOV
MOV
MOV
MOV
MOV

#MCLK ,RKMR1(R2)

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

SELECT MESSAGE 17

: ISSUE UNLOAD
IN DRIVE MESSACGE

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

TEST

(ZR6BDO RK611
(ZRGBD.P1

DSKLS CTRL PRTZ2
14-SEP=-81 13:47

MACY11

30(1046)
14-SEP-81
15:10
PAGE 75
127
MESSAGE SELECT BIT CLEARING FOR (LASS A

3865
3866
3867
3868
3869
3870
3871
%g;%

015616
015624
015632
015636
015644
015646
015650
015656

052737
012737
005037
023737
001405
104042
012762
000442

020000
002000
004210
004160

004204
004206

100000

000000

3874
3875
3876
3877
gg;g

015660
015666
015670
015672
015700

023737
001405
104043
012762
000431

004204

004144

100000

000000

3880
ggg;

015702
015702

032737

002000

004146

3883
3884
gggg

015710
015712
015714

001002
104044
000423

3887
3888
3839
3890
3891
gggg

015716
015716
015724
015732
015734
015736

013737
042737
001402
104045
000412

004150
177760

001160
001160

3894
3895
3896
3897
3898
%ggg

015740
015746
015750
015752
015760
015762

023737
001401
104046
023737
001401
104047

004206

004146

5%:

004210

004750

£8%:

108:

004120

2%:

3%:

4%:

(PART 3)

BIS
MoV
CLR
(MP
BEQ
ERROR
MOV
BR

#ECCW,E.MRT
#S.UNLD,E.MR2
E.MR3
E.CS1,T.CS1
2%
42
#CCLR,RKCST(R2)
TS730

(MP
BEQ
ERROR
MOV
BR

E.MRT1,T.MRT
33
43
#CCLR,RKCST(R2)
TST30

sCHECK IF MAINT REG. 1 CORRECT
sYES, CHECK MESSAGES A&B
sMAINT REG. 1 INCORRECT
;CLEAR RK611 CONTROLLER FOR NEXT TEST
::GO ON TO NEXT TEST

BIT

£
#S.UNLD,T.MRZ

:CH%E? éETUNLOAD COMMAND

BNE
ERROR
BR

‘8
44
TST30

sYES, CHECK MESSAGE SELECT BITS
;S.UNLD BIT NOT SET
::G0 ON TO NEXT TEST

MOV
BIC
BEQ
ERROR
BR

T.MR3,$TMPO
#177760,8TMPO
5%
45
TST30

sMASK QU7 BITS NOT UNDER TEST

sCHECK IF MESSAGE SELECT ZERO
JMESSAGF SZLECT BITS NOT ZERO
;.60 ON TO NEXT TEST

CMP
BEQ
ERROR
CMP
BEQ
tAalR

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

sCHECK IF MESSAGE A CORRECT
sYES, CHECK McSSAGE B
sMESSAGE A INCORRECT
sCHECK IF MESSAGE B CORRECT
;.YES, GO ON TO NEXT TEST
sMESS B INCORRECT

3901

R A R R R

ggg%

;*TEST 30

;LOAD EXPECTED MAINT REG. 2
;LOAD EXPECTED MAINT REG. 3
sCHECK IF CS1 CORRECT
;YES, CHECK MAINT REG. 1
;CLEAR RK611 CONTROLLER FOR NEXT TEST
;:G0 ON TO NEXT TEST

AR R R R AR R R R R AR RN AR R AR R AN N AR R AR RN AR AR

R R AR AR R R R

MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 4)

* %

3904
3905
3906
3907

:®
;e
:®
:®

gggg

gTM
015764
015766

000004
012737

000144

001200

3914
3915
3916

016000
016006
016014

012737
012737
012762

012762

000017
000011
100000

000057

004246
004160
000000

000026

016030

012762

000011

000000

3917
3918

3919

3920

COMMAND AND STATUS REGISTER 1 WITH A START SPINDLE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

MFSSAGE SELECT BITS ARE CLEARED.

. ®

3910
3911
3912

3913

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

015774

016022
016036

013702

012700

001270

000016

:-;an-nnnnttttt-ttttnttta:ttttttttttnatttttttt-nt'tttn--tn---tuaT5730:
SCOPE
MOV
#100.,8$TIMES
::D0 100. ITERATIONS

MoV

$BASE ,R2

;LOAD RK611 BASE

MOV
MOV
MOV

#17 ,MSGCOD
#SRTSPL,E.CS1_
#CCLR,RKCST1(R2)

MOV

#SRTSPL ,RK(CS1(R2)

MOV
MOV

;LOAD MESSAGE CODE FOR PRINT QuUT
;LOAD EXPECTED (S?
:CLEAR RK61?

#DMD ' 17 ,RKMR1(R2) ;PUT RK611 IN MAINTENANCE MODE
:

#324+2 R0

SELECT MESSAGE

: ISSUE SRTSPL

sCLOCK IN DRIVE MESSAGE

SEQ 0074

CZR6BDO RK611 DSKLS CTRL PRT?2

3968
3969
3970
3971
3972

3973
3974
3975

004204
004206

100000

000000

004204

004144

104043
012762
000431

100000

000000

032737

000100

004146

016160

016172
016200
016202
016204
016212

016214
016214
016222
016224
016226
016230
016230
016236
016244
016246
016250
016252
016260
016262
016264
016272
016274

023737
001405

108:

004120

2%:

#ECCW,T.MRY
109
#ECCW,E.MRT

(LR
CMP
BEQ
ERROR

E.MR3
E.(80.7.L90
2%
4?2

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

#S.STSP,E.MR2

;LOAD EXPECTED MAINT REG.

MOV

#CCLR,RKCST1(R2)

:CLEAR RK611

(MP

E.MR1,T.MRi

CRROR

TST31

MOV

TST31

4%:

177760

023737
001401

004206

004146

023737

004210

004150

6%:

004150

000412

CONTROLLER FOR NEXT

;2G0 ON TO NEXT TEST
:CHECK IF MAINT REG.

JYES, CHECK MESSAGES Ag&B

#CCLR,RKCST(R2)

;CLEAR RA611

JMAINT REG. 1

INCORRECT

CONTROLLER FOR NEXT

;:G0 ON TO NEXT TEST

43
44

JYES, CHECK MESSAGE SELECT BITS
S STSP BIT NOT SET

T.MR3,$TMPO

JMASK OUT BITS NOT UNDER TEST

TST31

;GO ON TO NEXT TEST

BIC
BEQ
ERROR
BR

#177760,8TMPO
5%
45
TST31

(MP
BEQ

E.MR2,T.MR?
6%

BEQ

2222222222

;CHECK ]F MESSAGE SELECT ZERO
;MESSAGE SELECT BITS NOT ZERO
;.60 ON TO NEXT TEST

46
E.MR3,T.MR3

sCHECK IF MESSAGE A CORRECT
;YES, CHECK MESSAGE B
JMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT

JMESS B INCORRECT

15731
R

J:YES, GO ON TO NEXT TEST

ARR332SR

MESSAGE

SELECT BIT

CLEARING FOR CLASS A

CLEAR RK611

WITH CONTROLLER CLEAR.

(PART

PUT CONTROLLER IN

DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17,
LOAD
COMMAND AND STATUS REGISTER 1 WITH A RECALIBRATE.
(LOCK MESSAGE

MESSAGE

TO LOAD B SHIFT REG.

SELECT BITS ARE

CLEARED.

TIME.

MAKE

TEST

CORRECT

BNE
ERROR

FRROR
CMP

'YEC'

:CH55§ 12 SRTSPL COMMAND

ERROR

#S.STSP,T.MR?

MOV

104045

;LOAD EXPECTED MAINT REG.
JCHECK IF CS1 CORRECT
;YES, CHECK MAINT REG. 1

BIT

BR
001160
001160

001401
104047

BIT
BEQ
BIS

RKCST1(R2),T.CST1
RKMR1(R2),T.MR1
RKMRZ2(R2,,T.MR2
RKMR3(R2),T.MR3
#MEWD
'DMD ,E.MRT

MOV

000423

104046

BIC
DEC
BNE

BEQ

2%:

SEQ 0075

#MCLK ,RKMR1(R2)

#MCLK ,RKMR1(R2)
RO
1%

001002
104044

013737
042737
001402

3963
3964
3965
3966
3967

020000
000100
004210
004160

BIS

MOV
MOV
MOV
MOV
MOV

¢+

3962

004120
004144
004146
004150
004204
004144

3953
3954
3955
3956
3957
3958
3959
3960
3961

000000
000026
000034
000036
002040
020000

1%:

3951
3952

000026
000026

016162
016170

3937

000400
000400

3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950

13:47

15:10
14-SEP-81
30(1046)
PAGE 76
T20
MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 4)

016042
016050
016056
016060
016062
016070
016076
016104
016112
016120
016126
016130
016136
016144
016150
016156

NNNWNNNYN

3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936

14-SEP=-81

[olelelelelelolele
o)
O=2VNO
W~ bt s
VIO =RONROONONONON
O NNH YN

(ZR6BD.PN

MACYTT

SURE

TEST

(ZR6BDO RK611 DSKLS CTRL PRT?
14-SEP=-81 13:47
CZR6BD.P11

3977
3978
3979
3980
3981
3982
3983
398,
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998

3999
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022

4023
4024
4025
4026
4027

4028
4029

4030
4031
4032

MACY11

6
L
15:10
30(1046)
14-SEP-81
PAGE 77
MESSAGE SELECT BIT CLEARING FOR (LASS A (PART 5)
131

SEQ 0076

CERAARAARARARARAAARRAANAARANRRRARAAARARANRAR
AR ARAAA AR AR

016276
016300
016306

000144
001270
000017
000013

016312
016320
016326
016334

100000

000057

001200
004246
004160
000000
000026

000013
000016
000400
000400

000000

000000
000026
000034
000036
002040
020000

004120
004144
004146
004150

020000
000040
004210
004160

004204
004206

100000

000000

023737
001405

004204

004144

016516
016524

012762
000431

100000

000000

016526
016526

032737

000040

004146

016342
016350
016354
016362
016370
016372
016374
016402
016410
016416
016424
016432
016440
016442

016450
016456
016462
016470
016472
016474
016502
016504
016512
016514

016534
016536
016540

000442

104043

000026
000026

1%:

004204
004144

108:

004120

2%:

3%:

000423

177760

016550
016556
016560
016562

001160
001160

MOV
MOV

BIS
BIC
DEC
BNE

4%:

001401

5%:

004210

004150

6%:

sPUT RK611

IN MAINTENANCE MODE

SELECT MESSAGE 17
#RECAL ,RKCS1(R2)"
; ISSUE RECAL
#3%442
RO
;CLOCK IN DRIVE MESSAGE
#MCLK ,RKMRT(R2)
#MCLK ,RKMR1(R2)
T.CS1
T.MR1

;STORE COMMAND AND STATUS REG.

MOV

1
MR/l

(LR
(MP
BEQ
ERROR

E.CST1.T.CS1
28
42

TST32

#CCLR,RKCST(R2)

sCLEAR RK611 CONTROLLER FOR NEXT TEST

E.MR1,T.MR1
3$

;YES,

;.60 ON TO NEXT TEST

;CHECK IF MAINT REG.

1 CORRECT

43
#CCLR,RKCST(R2)
IST32

BIT

#S.RECL,T.MR2

:cuff§ gETRECAL COMMAND

BNE
ERROR
BR

‘8

*YES, CHECK MESSAGE SELECT BITS

MOv

(MP
BEC
ERROR
CMP
BEQ

;LOAD EXFECTED MAINT REG. ¢
;LOAD EXPECTED MAINT REG. 3
sCHECK IF CS1 CORRECT
JYES, CHECK MAINT REG. 1

CMP
BEQ
ERROR
MOV
BR

BEQ

004146

#DMD ' 17 ,RKMR1(R2)

BIT
BEQ
BIS

BIC

004206

$BASE k2

;STORE MAINTENANCE REG. 1
T.MR2 ;STORE MAINTENANCE REG.Z2
T.MR3 ;STORE MAINTENANCE REG. 3
%.HR1 ;LOAD EXPECTED MAINT REG. 1

ERROR
BR

016564
016572

;:D0 100, ITERATIONS
sLOAD RK611 BASE
#17 ,MSGCOD
;LOAD MESSAGE CODE FOR PRINT QuT
#RECAL ,E.CST
sLOAD EXPECTED (S1
#CCLR,RKCST(R2) :CLEAR RK611

#100.,8TIMES

MOV
MOV
MOV
MOV
MOV

MOV

104044

004150

SCOPE

MOV
MOV
MOV
MOV

MOV
MOV

001002

016542
016542

016574
016576
016604

15131

TST32

1
7
60,$TMPO
5%
TST32

E.MR2,T.MR2
[}

46
E.MR3,T.MR3
TST32

CHECK MESSAGES ARB

IMAINT REG,

INCORRE(CT

;CLEAR RK611 CONTROLLER FOR NFXT TEST
::G0 ON TO NEXT TEST

*S.RECL BIT NOT SET
2:GO ON TO NEXT TEST

;MASK OUT BITS NOT UNDER TEST

;CHECK IF MESSAGE SELECT ZERO
JMESSAGE SELECT BITS NOT ZERO
2:G0 ON TO NEXT TEST
;CHECK IF MESSAGE A CORRECT
sYES, CHECK MESSAGE B
sMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT

;;YES, GO ON TO NEXT TEST

CZR6BDO RK611 DSKLS CTRL PRTg
14-SEP-81 13:4
(ZR6BD.P11
4033
4034

016606

MACY11

30(1046)
14-SEP-81
15:10 PAGE 78
31
MESSAGE SELECT BIT CLEARING FOR CLASS A (PART §5)

ERROR

104047

SEQ 0077

JMESS B INCORRECT

4035
4036

.’.'.."..'Q..".".....'."""........'..."...Q'""..."......'

4038
4039
4040
4041
4042
4043
4044
4045
4046
4047
L0488
4049
4050
4051
4052

i
i
i
o
i

SRTEST 32

4037

016722
016730
016736
016744
016752
016754
016762
016766
016774
017002
017004
017006
017014

017016
017024
017026
017030
017036

4077
4078
4079
4080
4081
4082

017040
017040

4085

017056

4083
4084

4086
4087
4088

017046
017054

017060
‘
017062

WNO

- O
— e

000144
001270
000017
000015
100000

C00057

001200

000000

000000
000026
000034
000036
002040
020000

004120
004144
004146
004150
004204
004144

020000
004206
017760
004160

004204

100000

000000

023737
001405
104043
012762
000423

004204

004144

100000

000000

013737
042737
001402

004150

001160
001160

177760

TST32:

(PART 6)

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER IN
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
MESSAGE SELECT BITS ARE CLEARED.

000026
000026

004210
004120

1%:

10%:

2%:

3$:

000412

004206

004146

#100.,8$TIMES

MOV
MOV
MOV
(01"

#17 ,MSGCOD
;LOAD MESSAGE CODE FOR PRINT OQuT
#OFFSET,E.CST
;LOAD EXPECTED CS1
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD!17 ,RKMR1{R2) :PUT RK611 IN MAINTENANCE MODE

MOV

#OFFSET ,RKCS1(R2)

BIC
DEC

#MCLK ,RKMR1(R2)
RO

MOV
BIS
BNE

104045

023737

SCOPE

MOV

004246
004160
000000
000026

000015
000016
000400
000400

o
o

016654
016662
016666
016674
016702
016704
016706
016714

016646

WNV!N-‘NNOOOO-*&NNNN RN

016610
016612
016620
016624
016632
016640

N=OVIOW=—_ = b a2 OO0

4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076

CLEARING FOR CLASS A

:'"Q"Q...'t."tfi...."""'...'.....'i"'."...Q.Q"..'.'.'QQQ'
oleleoleleolelelelelelelelelelelele BN elelolele L]

4053
4054
4055
4056
4057
4058
4059
4060

MESSAGE SELECT BIT

- %

5%:

$BASE ,R2

;:D0 100. ITERATIONS
;LOAD RK611 BASE

#3%4+2 R
#MCLK ,RKMR1(R2)
1%

SELECT MESSAGE 17

;ISSUE OFFSET

sCLOCK IN DRIVE MESSAGE

MOV
MOV
MOV
MoV
MOV
BIT
BEQ
BIS

RKCST(R2),T.CS1
RKMR1(R2),T.MR1
RKMR2(R2) ,T.MR2
RKMR3(R2).T MR3
#HEUD'DHD E.MR1
RECCW,T HR1
108
#ECCW,E.MRT

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

MOV
CMP
BEQ
ERROR
MOV
BR

#17760 ,E .MR3
E.CS1,T.CST
2%
42
#CCLR,RKCST1(R2)
TST33

sLOAD EXPECTED MAINT REG 3
sCHECK IF CS1 CORRECT
:YES, CHECK MAINT REG. 1

CMP
BEQ
ERROR
MOV
BR

E.MR1,T.MR1
3%
43
#CCLR,RKCST(R2)
TST33

;CHECK IF MAINT REG. 1 CORRECT
JYES, CHECK MESSAGES Ag&B
JMAINT REG. 1 INCORRECT
;CLEAR RK611 CONTROLLER FOR NEXT TEST
;:G0 ON TO NEXT TEST

MOV
BIC
BEQ
ERROR
BR

T.MR3,$TMPO
#177760,$TMPO
5%
45
TST33

JMASK QUT BITS NOT UNDER TEST

CMP

E.MR2,T.MR2

;CHECK IF MESSAGE A CORRECT

CLR

E.MR2

;LOAD EXPECTED MAINT REG 2

;CLEAR RK611 CONTROLLER FOR NEXT TEST
;:G0 ON TO NEXT TEST

:CHECK IF MESSAGE SELECT ZERO
:MESSAGE SELECT BITS NOT ZERO

;:G0 ON TO NEXT TEST

(ZR6BDO RK611 DSKLS CTRL PRT2

CIR6BD.P11

4108
4109
4110
6111
4112

13:47

MACY11

BEQ

201401

104046

023737
001401

004270

004150

. *

. "

MESSAGE

MESSAGE SELECT P.T CLEARING FOR CLASS A (PART 7)

SELECT RITS ARE

CLEARED.

]

017106
017110
017116

017122
017130
017136
017144

4137

017324

104042

000144
001270
000017
000017
100000

000057

001200

000017
000016
000400
000400

000026
000026

00000
000026
000034
000036
002040
020000

004120 004144
0047456
004150
004204
004144

020000
000020
004210
004160

004204
004206

000000

004144

4138

017326

012762
000431

100000

000000

017336

032737

000020

004146

017344

001002

017334

017336

SCOPE
MOV
MOV

MOV

1%:

MOV

BIS
BIC
DEC
BNE

MOV
MOV
MOV
MOV
MOV

10%:

BIT
BEQ
BIS

MOV

CLR
(MP
BEQ
ERROR

004120

100000

iiEiR
2R
Rttt
Rl 2

MOV
M0V
MOv
MOV

000000

012762
000442

104043

15733:

004246
004160
000000
000026

004204

L1464

sMESS B INCORRECT

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

. ®

023737
001405

4145

E.MR3,T.MR3
15133

;YES, CHECK MESSAGE B
sMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT
;;YES, GO ON TO NEXT TEST

017314
017322

4142

104047

4135
4136

4141

6%:

LeTEST 33

017152
017160
017164
017172
017200
017202
017204
017212
017220
017226
017234
017242
017250
017252
017260
017266
017272
017300
017302
017304
017312

4139

ERROR

SEQ 0078

AL AiAEEARttt

4113
4114
4115
4116
4117
4118
4119
4120
4121
4122
4123
4124
4125
4126
£127
4128
419
4130
4131
4132
4133
4134

4140

6
14-SEP-81
15: 10 PAGE 79
30(1046)
132
MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 6)

MOV

2%:

(MP
BEC
ERROR
MOV

B8R

3%:

#100. ,8$TIMES

$BASE ,R2

#17 ,MSGCOD

#SEEK E.CST

;:D0 100. ITERATIONS
;LOAD RK611 BASE

sLOAD MESSAGE CODE FOR PRINT OuT

sLOAD EXPECTED CS1

#CCLR,RKCS1(R2) :CLEAR RK611
#DMD !17 ,RKMR1(R2) ;PUT RK611
#SEEK ,RKCS1(R2)

#3%4+2
R0

;

IN MAINTENANCE MODE

SELECT MESSAGE 17

s ISSUE SEEK

;CLOCK IN DRIVE MESSAGE

#MCLK ,RKMR1(R2)
#MCLK .RKMR1(R2)
RO
1%
RKCS1(R2),T.CS1 ;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.

#MEWD
' DMD .E .MR1
HECW,T.MRT
108
#ECCW,E.MR1
#S.SEEK ,E.MR2

E.MR3
E.CS1,T.CS1
2%

42
#CCLR,RKCST1(R2)
TST34

.MR1,T.MR1

- g SN
VYN

4098
4099
4100
4101
6102
4103
4104
4105
4106
4107

017070
017072
017074
017102
017104

wviroro —DNNOOO*O*;:U\NNNN ROPRONRONOW

4089
4090
4091
4082
4093
4094
4095
4096
4097

14-SEP=-81

o0 [elelelelelelelelelelolololeleolelelolelelele
o
onN O VIOW= = b
200NN N—
— d e
b O
— N
SN O NNHYNoorY ~No
W
OW WWWO WWWW WW~N
~
v~ NNNWNNNN NNO

$ LR LRKCST(R2)

8l17

#S.SEEK,T
MR2

BNE

;LOAD EXPECTED MAINT REG. 1

;LOAD EXPECTED MAINT REG. 2
;LOAD EXPECTED MAINT REG. 3
;CHECK IF CS1 CORRECT
JYES,

CHECK MAINT REG.

sCLEAR RK611 CONTROLLER FOR NEXT TEST
::G0 ON TO NEXT TEST

;CHECK IF MAINT REG. 1 CORRECT
JYES, CHECK MESSAGES Ag&B
JMAINT REG.

INCORRECT

JCLEAR RK611 CONTROLLER FOR NEXT TESY

5.G0 ON TO NEXT

TEST

SCHECK F SEEK COMMAND
BT N
:
sYES, (MECK MESSAGE SELECT BITS

017366
017370
017372

017374
017402
017404
017406
017414
017416

104044

177760

004150

013737
042737
001402
000412

004206

004144

5%:

004210

004150

6$:

.SBTTL

«200

TST34

::G0 ON TO NEXT TEST

MOV

BIC
BEG
ERROR
RR

T.MR3,$TMPO
#177760,$TMPO
5%
45
TST34

:MASK OUT BITS NOT UNDER TEST

CMP
BEQ

E.MR2,T.MR2
6$

;CHECK IF MESSAGE A CORRECT
:YES, CHECK MESSAGE B

CMP

E.MR3,T.MR3

:CHECK IF MESSAGE B CORRECT

ERROR

BEQ

;S.SEEK BIT NOT SET

TST34

:CHECK IF MESSAGE SELECT ZERO
:MESSAGE SELECT BITS NOT ZERO
::G0 ON TO NEXT TEST

:MESSAGE A INCORRECT

::YES, GO ON TO NEXT TEST

;MESS B INCORRECT

*«DRIVE MESSAGE LOOPBACK AND PARITY GENERATICN TESTS

;:ttt*tttttt.'ttttttt'*ttt*'tttttt*tttttttittttttttttt'.i'Qt.t't'

Sen.

s*TEST 34

—b
Nt

017504
017512
017520
017524
017532
017540
017542
017544
017552
017560
017566
017570
017572

017420
017422
017430
017434
017442
017446
017454
017462
017470
017476

REGISTER 1 WITH A SELECT COMMAND.
C(CLOCK 4 BITS
THROUGH THE DRIVE MESSAGE LOOPBACK. VERIFY THAT BITS
ARE INDEED LOOPED BACK.

000431

222222222222

2Rt

RRRR Rl

000000

#100.,8TIMES
$BASE ,R2
#CCLR,RKCST1(R2)

004206
004230
004210
004232
600026

MOV
MoV
MoV
MoV
MOV

#5,E.MR2
;LOAD
#5,U.MR2
sLOAD
#3,E.MR3
;LOAD
#3,U.MR3
sLOAD
#DMD ! 3 ,RKMR1(R2)

000010
000000

MoV
MOV
MOV
BIS

#5,RKCS2(R2)
:LOAD DRIVE NUMBER = 5
#SELDRV,RKCS1(R2)
s ISSUE SELECT DRIVE
#3%4+2 RO
;CLOCK IN MESSAGE
#MCLK ,RKMR1(R2) ;ISSUE CLOCKS

MOV

RKMR2(R2) ,T.MR2 ;STORE SHIFT REG.

001200

000005
000001
000016
000400
000400

000034
000036
004206

202222

SCOPE
MOV
MOV
MOV

000144
001270
100000
004256
000005

000005
000003
000003
000043

TST34:

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 COMMANC AND STATUS

-t

4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199

SEQ 0079

ERROR

104047

4164

4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177

104045

023737
001401
104046
023737
001401

7
14-SEP-81
15:10 PAGE 80
MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 7)

000423

_—

017352
017352
017360

‘
3?;;0&6)

'l’llll.l

4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163

017346
017350

oo
O

4145
4146
6147
4148
4149
4150
4151
4152

MACYT

000026
000026

CLR

1%:

BIC
DEC
BNE

MOV
CMP
BEQ
ERROR
BR

SFETCNT

;:D0 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RK611

sINITIALIZE SHIFT COUNT

;

#MCLK ,RKMR1(R2)
RO
1%

Rdd]

EXPECTED SHIFT REG. A
UNSHIFTED SHIFT REG. A
EXPECTED SHIFT REG.B
UNSHIFTED SHIFT REG.B
;PUT RK611 IN MAINT. MODE

MESSAGE SELECT =3

RKMR3(R2)
. T.MR3 ;STORE SHIFT REG. B
E.MR2,T.MR2
:CHECK SHIFT REG A CORRECT
2%
:YES, CHECK SHIFT REG. B
50
:SHIFT REG A INCORRECT
1ST35
;260 ON TO NEXT TEST

£~

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

4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255

017574
017602
017604
017606

023737
001402

017610
017616
017620
017622

032737
001402
000261
000401

017624
017626
017632
017636
017642
017646
017654

000241
006037
006037
012700
005237
022737
103323

MACY11

14-SEP-81
15:10
PAGE 81
30¢( 1046)
134
DRIVE MESSAGE LOOPBACK

004210

004150

28%:

000001

004210

3%:

CZR6BDO Rk611 DSKLS CTRL PRT?
14=SEP=-81 13:47
(ZR6BD.P11

104051

000423

BEQ
ERROR
BR

CMP

E.MR3,T.MR3
3%
51
TST35

sCHECK SHIFT REG B CORRECT
;YES, SHIFT A BIT
sSHIFT REG B INCORRECT
;:G0 ON TO NEXT TEST

BIT
BEQ

#BITO,E.MR3
3

sCHECK IF SHIFT BIT =1
;NO, CLEAR SHIFT BIT

SEC

004206
004210
000004
004256
000004

4%:

5%:

cLC

ROR
ROR

E.MR2
E.MR3

CMP
BHIS

#4 ,SFTCNT
1%

MoV
INC

004256
SR

SEQ 0080

;*TEST 35

sGENERATE EXPECTED SHIFT

REGISTERS A& B

;CLEAR SHIFT BIT

;GENERATE EXPECTED SHIFT REG A
;GENERATE EXPECTED SHIFT REG B

#4 ,RO
SFTCNT

R R A AR AR AR AR A A AR AR

sSET SHIFT BIT

sLOAD COUNT FOR 1 BIT SHIFT
s INCREMENT SHIFT BIT COUNT

sCHECK IF FINISHED
sNO, SHIFT IN NEXT BIT
R AR A A AR AR AR AR R A AR AR A A AR AR AR

A AR

ARk ®

DRIVE MESSAGE SHIFT

*
:*
>

;*
o

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. LOAD CYLINDEF ADDRESS WITH 441.

LOAD HEAD ADDRESS WITH 1. LOAD COMMAND AND STATUS
REGISTER 1 WITH A SEEK IN 24 SECTOR MODE. CLOCK 8 BITS
THROUGH THE DRIVE MESSAGE LOOPBACK.
SHIFTED PROPERLY.

VERIFY

THAT BITS ARE

:'"t*tl’ttt'ttfit*ttttt'tttt'ttttifitttttttt*tttit'ttt'ttttttttttittt
017656
017660
017666
017672
017700
017704
017712
017720
017726
017734
017742
017750
017756
017764
017770

017776

020004

001200

004206
004230
004210
004232
000026
000020
000006
000000

42762

020016

000431

000016
000400
000400

000026
000026

000034
000036
004206

004146
004150
004146

SCOPE

MoV

#100. ,$TIMES

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#S.FMT!S.SEEK!BIT12,U.MR2
:LOAD UNSHIFTED SHIFT REG. A
#11020,E.MR3
sLOAD EXPECTED SHIFT REG. B
#11020,U.MR3
sLOAD UNSHIFTED SHIFT REG. B
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT. MODE
#441 ,RKDCYL(R2) ;LOAD CYLINDER ADD. REG.
#400,RKDA(R2)
;LOAD DISK ADDRESS REG.
#SEEK!CFMT ,RKCS1(R2)
: ISSUE SEEK

MOV
BIS
BIC

#3%4+2 RO
#MCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)

MOV
MOv
CLR
MOV

000000

020006
020010
020024
020032
020034
020036

T57135:

1%:

DEC
BNE
MOV
MOV
CMP
BEQ
ERROR
BR

::D0 100.

ITERATIONS

$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCS1(R2) ;CLEAR RK611
SFTCNT
INITIALIZE SHIFT COUNT
#S.FMT!S.SEEK!BIT12,E.MR2
sLOAD EXPECTED SHIFT REG. A

RO
1%
RKMR2(R2) ,T.MR2
RKMR3(R2) ,T.MR3
E.MR2,T.MR2
2%
50 _
TST36

sCLOCK IN MESSAGE
;IZSUE CLOCKS

;STORE SHIFT REG. A
;STORE SHIFT REG. B
sCHECK SHIFT REG A CORRECT
JYES, CHECK SHIFT REG. B
sSHIFT REG A INCORRECT
2.G0 ON TO NEXT TEST

(ZR6BDO RK611 DSKLS CTRL PRTZ2
(ZR6BD.P11
14-SEP-81 13:47
4257
4258
4259

020040
020046
020050

004210

020052

023737
001402
104051

000423

4262
4263
4264
4265

020054
020062
020064
020066

022737
001402
000261
000401

000001

4268
4269
4270
4271
4272
4273

020070
020072
020076
020102
020106
020112

000241
006037
006037
012700
005237
022737

Zgg?

2%29

25;2

020120

103323

14-SEP-81
15:10 PAGE 82
DRIVE MESSAGE SHIFT

004150

(MP
BEQ
EKROR

E.MR3,T.MR3
3%
51

;CHECK SHIFT REG B CORRECT
JYES, SHIFT A BIT
;SHIFT REG B _INCORRECT

BIT
BEQ
SEC
BR

#BITO,E.MR3
3
5%

sCHECK IF SHIFT BIT =1
;NO, CLEAR SHIFT BIT
;SET _SHIFT BIT
sGENERATE EXPECTED SHIFT

E.MR2
E.MR3
#4 ,RO
SFTCNT
#8. ,SFTCNT

;CLEAR SHIFT BIT
s GENERATE EXPECTED SHIFT REG A
;GENERATE EXPECTED SHIFT REG B
;LOAD COUNT FOR 1 BIT SHIFT
s INCREMENT SHIFT BIT COUNT
sCHECK IF FINISHED

2%:

004206
004210
000004
004256
000010

MACY11 3?§;046)

004210

3%:

(%:
5%:

CLC
ROR
ROR
Mov
INC
(MP

004256

BHIS

;.60 ON TO NEXT TEST

;

sNO, SHIFT IN NEXT BIT

25;;

;*TEST 36

4279
4280
4281

:®
S
:®

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER 1
A SELECT COMMAND. CLOCK ALL 16 BITS THROUGH THE

zsgz

PROPERLY.

c %

4,282

i
020122
020124
020132

000004
012737
013702

4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300

020144
020152
020160
020164
020172
020200
020202
020204
020212
020220
020226

012762
012762
012700
012762
012762
005300
001370
016237
016237
012737
012737

4303

020242

001002

4307
4308
4309

020250
020256
020260

032737
001002
104053

100000

4312

020264

023737

004210

2;}?

ARA RN R AR

RARRAR AR AR

R R RS

DRIVE MESSAGE PARITY PRECONDITIONING
WITH

DRIVE MESSAGE LOOPBACK. VERIFY PARITY HAS BEEN PRECONDITIONED
REPEAT FOR BAD PARITY GENERATION.

:-'-tttttttt'tttttttttttttittttttttttttttttttttt'ttlttttttttQt'tttt

4286
4287
4288

4304
2;82

4285

238}

AR AR AR AR AR R AR AR AR AR

REGISTERS A & B

4276

4289

TST36

SEG 0081

020136

020234

020244
020246

020262

012762

032737

000144

001200

001270
100000
000040
000001
000116
000440
000040

000026
000026

000034
000036
100000
100000

004146
004150
004206
004210

100000

TST36:

000000
000026
000000

1%:

004150

SCOPE
MoV

MoV
MoV
MOV
MOV
MOV
MOV
_Mov
DEC
BNE
MoV
MOV
MOV
MOV
BIT
BNE

104052
000420
004146

2%:

000412
3%:

;:D0 100.

ITERATIONS

$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCS1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
:PUT RK611 IN MAINTENANCE MODE
#SELDRV,RKCS1(R2) ;ISSUE SELECT DRIVE
#19.%4+2 R0
:LOAD DRIVE MESSAGE AND SHIFT
#DMD 'MCLK ,RKMR1(R2) ;
ALL 16 BIiS
#DMD ,RKMR1(R2)
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
#100000,E.MR3
;LOAD EXPECTED MESSAGE A
#BIT15,T.MR3
sCHECK IF PARITY ON MESSAGE A CORRECT
$

;YES,

CHECK PARITY ON MESSAGE B

ERROR
BR

52
5%

BIT
BNE
ERROR

#BIT15,T.MR2
3%
53

sCHECK IF PARITY ON MESS B CORRE(CT
;YES, CHECK MESSAGE A AND B
sPARITY ON MESSAGE B INCORRECT

(MP

E.MR3,T.MR3

sCHECK

BR
004150

#100.,8TIMES

sPARITY ON MESSAGE A INCORRECT
:TRY EVEN PARITY

:TRY EVEN PARITY
IF

MESSAGE

A CORRECT

CZR6BDO Rk611 DSKLS CTRL PRTZ2
(ZR68D.P11
14-SEP-81 13:47
4313

6314
4315
(316
4317
4318

020272

MACYN 3?§2046)

001407

BEQ

020274
020276
020304
020306
020310

104054
023737
001401
104055
012762

012762

000060

4321

020324

4323
4324
2%52

020336
020344
020352

4327
4328
4329
6320
4331
4332
4333
4334

020354
020356
020364
020372
020376
020402
020410
020412

4337
4338
4339

020416
032737
020424
001402
020426, 104057

100000

020430

000412

4342
4343
4344

020432
020440
020442

023737
0014017
104060

004210

004150

&%:

004206

004745

9%:

2;2;

020454

104061

4319
4320

6322

2%;2

2%2?

4345
4346

020316

020332

020414

020444
020452

004206

004146

48:

100600

000000

5%:

012762

000001

000000

012762
012762
005300

000460
000060

000026
000026

000034
000036
004206
004210
100000

004146
004150

012700

001370
016237
016237
005037
005037
032737
001402
104056

000116

000026

¢6%:

004150

000420

023737
001401

g ¥
14-SEP-81
15:10 PAGE 83
DRIVE MESSAGE PARITY PRECONDITIONING

7%:

MOV

#SELDRV,RKCST1(R2)

MOV
MOV
DEC

#DMD ! PAT !MCLK ,RKMR1(R2)
#DMD ! PAT ,RKMR1(R2)
RO

MOV

BIT
BEQ
ERROR

#BIT15,T.MR2
8%
57

;CHECK IF PARITY ON MESS B CORRECT
sYES, CHECK MESSAGE A AND B
;sPARITY ON MESSAGE B INCORRECT

CMP
BEQ
ERROR
CMP
BEQ
ERROR

E.MR3,T.MR3
9%
60

sCHECK IF MESSAGE A CORRECT
sYES, CHECK MESSAGE B
sMESSAGE A INCORRECT
sCHECK IF MESSAGE B CORRECT
;.YES, GO ON TO NEXT TEST
;MESSAGE B INCORRECT

i
;e
:®
e
:®
.

6367
4368

020506

000004
012737
013702
012737
012737

SELECT DRIVE

;STORE SHIFTED MESSAGE B
;STORE SHIFTED MESSAGE A
;LOAD EXPECTED MESSAGE B
;LOAD EXPECTED MESSAGE A
;CHECK IF PARITY ON MESSAGE A CORRECT
;YES, CHECK PARITY ON MESSAGE B

4352
4353
4354
4355
4356
4357

020456
020460
020466
020472
020500

AND EVEN PARITY

;ISSUE

6%
RKMR2(R2) ,T.MR2
RKMR3(R2),T.MR3
E.MR2
E.MR3
#BIT15,T.MR3
7$
56

;*TEST 37

4361
4362
4363
4366
4365
4366

BNE
MOV
MoV
CLR
CLR
BIT
BEQ
ERROR

2%29

4360

lDMD!PAT,RKMRT(Ré) ;PUT RK611 MAINTENANCE MODE

;LOAD DRIVE MESSAGE AND SHIFT

. %

JMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT
;YES, TRY EVEN PARITY
sMESSAGE B INCORRECT
;CLEAR RK611

#19.%4+2 RO

4349

:®

CHECK MESSAGE B

54
E.MR2,T.MR2
5%
55
#CCLR,RKCST(R2)

2%28

;YES,

ERROR
(MP
BEQ
ERROR
MOV

004146

SEQ 0082

TST37

E.MR2,T.MR2
1ST37

R AR R AR AR

;

ALL 16 BITS

sPARITY ON MESSAGE A INCORRECT

;:G0 ON TO NEXT TEST

2:GO ON TO NEXT TEST

AR AR AR RN T RAR AR R AR AR

ODD 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 THAT PARITY HAS BEEN
GENERATED CORRECTLY. REPEAT FOR MESSAGE SELECT =

DRIVE SELECT = 2-17,

:-;ntntnttt-tt-tn-ttn.ttnn'nt--ntttnnttt.tnttt-ntt--n-----'.-n.n000144

001200

0000017
020506

004244
001110

001270

TS137:

SCOPE
MOV

#100.,8TIMES

;.D0 100.

MOV
MOV

#1,DRVCOD
#18,SLPERR

;LOAD DRIVE CODE
sLOAD LOOP ON ERROR LOCATION FOR
.
SUBTEST LOOP

MOV

$BASE ,R2

ITERATIONS

;LOAD RK611

BASE

4385
4386
4387
4388
4389

4390

4391
4392
4393
4354
4395
4396
4397
4398
4399
4400
YA
44072

4403

L4604
4405
L4406

4407
L4408
4409
4410

461
4612

4413

L4114

4415
4416
L4617
4418
44619
44620
L6201
4422

L4674

012762
013762
052762

13762
12762
12700

52762

oo
or

020506
020514
020522
020530
020536
020544
020550
020556
020564
020566
020570
020576
020604
020610
020614
020616
020620
020622
020624
020626
020630
020636
020644
020650
020654
020656
020664
020672
020700
020706
020714
020722
020724
020726

14=SEP=-81

IR
W~

4369
4370
43N
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384

DSKLS CTRL PRT?

el=l=l=l=l=l=l=l=l=lel=)
s PP P PSSP

CZR6BDO RKE11
CZR6BD.P11

13:47

100000

004244
00040
004244
000001
000116

000400
000400

MACY11

30(1046)

137

000000
000026
000026
000010
000000
000026
000026

MOV
MOV

2%:

004244
004244
004260
000001

004206
004210

100000
100000
100000

004260
004206
004210
001160
001160
001160

004150

7%:

023737
001401

004206

004146

8%:

021012

021020

BNE

SHIFTED MESSAGE B

sPARITY ON MESSAGE

sMASK ALL BITS EXCEPT PARITY

PARBIT,$TMPO
7%

;CHECK IF PARITY CORRECT
ON MESSAGE B
:
sPARITY ON MESSAGE B

sCHECK IF MESSAGE A CORRECT
sYES, CHECK MESSAGE B
sMESSAGE A INCORRECT
sCHECK IF MESSAGE B CORRECT
sYES, CHECK IF LOOP ON ERROR

8%
54
E.MR2,T.MR?
25%
55

;MESSAGE B INCORRECT

;CHECK IF LOOP ON ERROR
; INCREMENT DRIVE SELECT CODE
sCHECK IF FINISHED

DR vCoD
#1s7.DRVC0D
1

INCORRECT

sCHECK IF LOOP ON ERROR

E .MR3,T.MR3

INCORRECT

T.MR2,$TMPO

53
25%

(MP

;CHECK IF LOOP ON ERROR

#77777,$TMPO

BEQ
ERROR
SCOP1
INC
(MP
BHIS
A

sCHECK IF PARITY CORRECT
ON MESSAGE A
;.

6$
52
258

(MP
BEQ
ERROR

LRTEST 40

sMASK ALL BITS EXCEPT PARITY

PARBIT.$TMPO

MOV

AR R

;CHECK FOR PARITY ON WORD
;PARITY ALREADY 0ODD
;SET PARITY BIT

#77777.8TMPO

BIC
(MP
BEQ
ERRCR
BR

004244

#B1T0,R4
#BIT15,PARBIT
#BIT15.E.MR?
#BIT15.E.MR3
T.MR3, $TMPO

BIC
(MP
BEQ
ERROR
BR

25%:

;LOAD EXPECTED SHIFTED REG. B
sLOAD EXPECTED SHIFTED REG. A

BIS

104053

DRVCOD,E .MR?2
DRVCOD
,E .MR3

PARB]
T

MOV

6%:

16 BITS

CLR

000412

103232

ALL

ROR
BCC
INC
DEC

5%:

004210

;

" :DETERMINE PARITY

MOV
BIS

023737
001401

IN MAINTENANCE MODE

;LOAD DRIVE SELECT CODE
s ISSUE SELECT DRIVE

;STORE SHIFTED MESSAGE A

CLR
BIT
BNE

020760
020766
020770
020772
021000
021002
021004
021006

001160
001160
001160

;LOAD MESSAGE SELECT CODE

;STORE

MNV
MOV

013737
042737
023737
001402

004244
000017

sLOAD DRIVE MESSAGE AND SHIFT

MOV

020730
020736
020744
020752
020754
0c0756

005237
022737

#19.%4+2
R0

MOV

000426

104055
104415

;PUT RK611

MoV
MoV

4%:

104054

#DMD ,RKMR1 (R2)

#MCLK ,RKMRT(R2)
#MCLK ,RKMRT(R2)

BIS
BIC
DEC
BNE

38:

004146
077777
004260

;CLEAR RKk611

DRVCOD ,RKCS2(R2)
#SELDRV,RKCST(R2)

MOV
MOV
MOV

SEQ 0083

#CCLR,RKCST(R2)

DRVCOD,RKMR1(R2)

BIS

000034
000036
004244
000004

004150
077777
004260

y-¥

14=SEP-81
15:10
PAGE 84
ODD DRIVE MESSAGE PARITY GENERATION

sNO,
R

DRIVE MESSAGE PARITY

TRY NEXT

S22

COMNFIGURATION

2222222222222

INTERACTION

2220

4438
L4635

4440

4441
44642
4443
4644
4445
4446

4466
L4667
4468
4469
4470
467

4472
4473
44674

4475
4476
4477
4478
4479
4480

100000

021100

004246
000040
004244
000001
000116
000400
000400

001200

=
2
%
AR AR

15740:

021256
021264
021266
021270
021276
021300
021302
021304
021310
021312

1$:

2$:

SEG 0084

LOAD COMMAND AND STATUS REGISTER
VERIFY THAT THE CORRECT PARITY

R R A AR AR AR R R R AR AR AR AR

#100. ,$TIMES
$BASE ,R2

#1,DRVCOD

004210

004150

023737
001401

004206

004146

5%:

005737
001416
005037

004244

3%:

AR R

::D0 100. ITERATIONS
;LOAD RK611 BASE

;SET

INITIAL DRIVE

SELECT

CODE

MSGCOD
#BIT15,E.MR2
#BITO,E.MR3

sSET INITIAL MESSAGE SELECT CODE
;LOAD EXPECTED MAINT. REG. 2 (MESS B)
sLOAD EXPECTED MAINT. REG. 3 (MESS A)

MOV

#1%,SLPERR

;LOAD LOOP ON ERROR LOCATION FOR

#BIT15, PARBIT

:LOAD PARITY FOR MESSAGE B
SUBTEST LOOP

MOV
MOV
BIS
MOV
MOV

#CCLR,RKCST1(R2) ;CLEAR RK611
MSGCOD ,RKMR1(R2) ;LOAD MESSAGE

SELECT

#SELDRV,RKCS'(R2)

;ISSUE

SELECT

BIS
BIC
DEC
BNE

#MCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)
RO
2%

ALL

MOV

CODE

#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
DRVCOD ,RKCS2(R2) ;LOAD DRIVE SELECT CODE

#19.%4+2 RO

DRIVE

;LOAD DRIVE MESSAGE AND SHIFT
;

MOV

RKMR2 (R2),T.MR2 :STORE

MOV

T.MR3,$TMPO

RKMR3(R2) .T.MR3 :STORE

16 BITS

SHIFTED MESSAGE B

SHIFTED MESSAGE A

:MASK ALL BITS EXCEPT PARITY

BIC

#77777,$TMPO

BNE
ERROR
BR

3%
52
25%

:
ON MESSAGE A
.
.
sNC, PARITY ON MESSAGE INCORRECT
;CHECK IF LOOP ON ERROR

T.MR2,$TMPO

sMASK ALL BITS EXCEPT PARITY

PARBIT,$TMPO

;CHECK

E.MR3,T.MR3
5%
54
E.MR2,T.MR?
25%
55

sCHECK IF MESSAGE A CORRECT
;YES, CHECK IN MESSAGE B CORRE(T
sMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT
sYES, CHECK IF LOOP ON ERROR
sMESSAGE B !NCORRECT
sCHECK IF LOOP ON ERROR

MOV

PARBIT.$TMPO

BIC

#77777,8TMPO

BEQ
ERROR
BR

3]
53
25%

CMP

25%:

R AR R

CLR
MOV
MOV

(MP

023737
001401

004244

SCOPE
MOV
MoV

MOV

004146
077777
004260

104055
104415

INTERACTION

013737
042737
023737
001402
104053
000412

104054

A AR AR AR R AR

MOV

000426

021234
021242
021250
021252
021254

DRIVE MESSAGE PARITY

MOV

010034
000036
004150
077777
004260

021226

PAGE

IS GENERATED FOR BOTH MESSAGES. REPEAT FOR MESSAGE
SELECT = 1 AND DRIVE SELECT = 0.

004206
004210
004260
001110

000026
000026

15:10

wITH DRIVE SELECT = 1,
WITH A SELECT COMMAND.

004244

000000
000026
000026
000010
000000

14-SEP-81

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER 2

8,8,

000144
001270
000001
004246
100000
000001

100000

Li6?2

4465

13:47

30(1046)
740

Sis.8.

021050
021056
021064
021072

4456
4457
4458
4459
4460
4461

L4664

MACY1T

021044

4447
4448
4449
4450
463
4452
4453
4454
4455

4463

PRT?

021022
021024
021032
021036

NN NNONNNO
WWWWWWO
WO
NNNNNNNONS

4435
4636
4437

14=SEP=81

wlelelelelelelels
e d A D)t
=2 O
RO
WNINOWN O

4625
L4626
627
4428
4429
4630
4431
6432
4433
TN
TA

CTRL

“IR6BD

DSKLS

CIR6BDD RkH1Y

CMP
BEQ
ERROR
(MP
BEQ
ERROR
SCOP1
TST
BEQ

(LR

DRV(COD
TST41

DRV(COD

;CHECK

PARITY BIT

CORRECT

PARITY CORRECT

:
MESSAGE B
sPARITY ON MESSAGE B INCORRECT
;(HECK IF LOOP ON ERROR

;CHECK IF DRIVE SELECT = O
;:YES,GO ON TO NEXT TEST

:SET DRIVE SELECT CODE = O

(FINISHED)

CIJR4BDOD Rk611

“IR68D.P11

DSKLS

CTRL

14=SEP=81

PRT2

13:47

MACY'T

004246
004206

4B1
GGR2

021316
021324

012737
012737

000001
000001

GGBG

0271340

005037

004260

483

ALgS

“89
[AA

021332

021344

012737
D00655

100000

30(1046)

140

004210

14=SEP-81

H
15:10

PAGE

DRIVE MESSAGE PARITY

INTERACTION

SEQ 0085

MOV
MOV

#1,MSGCOD
lBITO E.MR?2

;SET MESSAGE SELECT CODE
JLOAD EXPECTED MAINT REG 2

(LR

PARBIT

;LOAD PARITY FOR MESSAGE B

MOV

#RIT15,E.MR3

B8R

;TRY SECOND CONFIGURATION

." (2228222 2RSS 2222222322333 23233333222222222222222222222222¢2;

azgg

J*TEST 41

EVEN DRIVE MESSAGE PARITY GENERATION

4490
4491
4492
4493

gTM
o*
i
L

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

4495
4239

o
i

EVEN PARITY IS GENERATED.
DRIVE SELECT = 2-17.

6494

o ¥

L4498

4499

4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510

021346

000004

021350
021356
021362
021370

012737
013702
012737
012737

000144
001270
000001
021376

001200

021376
021376
021404
021412

(012762
013762
052762

100000
004244
00006C

000000
000026
000026

4511

021420

013762

004244

4513

021434

012700

000116

4512

021426

012762

4514
4515
4516
4517
4518

027440
021446
021454
021456
021460

052762
042762
005300
001370
016237

4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536

021474
021500
021504
021506
021510
021512
021514
021516
021520
021526
021534
021540
021544
021546
021554
021562
021570

013701
012703
005004
006001
103001
005204
005303
001373
013737
013737
005037
032704
001411
012737
052737
052737
013737

6519

021466

016237

(MESS B)

:LOAD EXPECTED MAINT REG 3 (MESS A)

TST41:

004244
001110
1%:

000010

0000017

000000

000400
000400

000026
000026

000034
00003¢
004244
000004

004146
004150

2%:

004206

004210

100000
100000
100000
004150

004260
004206
004210
001160

5%:

STATUS REGISTER

AR R R AR AR

SCOPE

AR R

SELECT

R R RN R R

COMMAND.

VERIFY

THAT

RFPEAT FOR MESSAGE

SELECT =

AR TR AR R R AR AR A RR R R AR AR R AR R

MOV
MOV
MOV
MOV

#100.,$TIMES
$BASE .R2
#1,DRVCOD
#1%,8LPERR

MOV
MOV
BIS

#CCLR,RKCST1(R2) :CLEAR RK611
DRVCOD,RKMR1(R2)
;LOAD MESSAGE SELECT CODE
#DMD ! PAT ,RKMR1(R2)
;PUT RK61T1 IN MAINTENANCE MODE
;
AND SeT BAD PARITY

;:;DO 100. ITERATIONS
:L0AD RK611 BASE
;LOAD DRIVE CODE
;LOAD LOOP ON ERROR _LOCATION FOR
;
SUBTEST LOOP

DRVCOD, RKCSZ(RZ)

MOV

lSELDRv RKCS1(R2)

BIS
BIC
DEC
BNE
MOV

#MCLK ,RKMR1(R2) :
ALL
#MCLK _RKMR1(R2)
RO
2%
RKMR2 (R2),T.MR2 :STORE

MOV
MOV
CLR
ROR
BCC
INC
DEC
BNE
MOV
MOV
CLR
BIT
BEQ
MOV
BIS
BIS
MOV

DRVCOD,R1
#4 ,R3
Ré
R1
4%
R4
R3
38
DRVCOD,E .MR2
DRVCOD,E.MR3
PARBIT
#BITO,R4
5%
#BIT15,PARBIT
#BIT15.E .MR?
#R1T15 F.MR3
R3,$TMPO

MOV

4%:

004244
004260
0000017

AN A

MOV

2$:

004244

AND

JLOAD DRIVE SELECT CODE

;ISSUE

SELECT DRIVE

219, 'A‘é RO

;LOAD DRIVE MESSAGE AND SHIFT

RKMR3(R2),T.MR3

SHIFTED MESSAGE B
SHIFTED MESSAGE A
;DETERMINE PAR]ITY

16 BITS

:STORE

JLOAD EXPECTED SHIFTED REG B

sLOAD EXPECTED SHIFTED REG.
:CHEC<"FOR PARITY ON WORD
;PARITY ALREADY EVEN
:SET PARITY BIT
JMASK ALL BITS EXCEPT

PAR]TY

CZREBDO RKE1T DSKLS CTRL PRTZ2

CIR6BD.P1T
4537

021576

14=SEP=81 13:47
042737

4538

021604

023737

222;

021616

000426

4539
4540

021612
021614

001402
104056

077777

004260

MACYT

001160

021620

013737

004146

001160

4545

021634

023737

004260

001160

4547

021644

104057

6546

2;23

4550
4551
4552
4553

4554
4555
64556
4557
4558

2228

021626
021642

042737
001402

021646

000412

021650
021656
021660
021662

023737
001401
104060
023737

021670
021672
021674
021676
021702

021710

001401
104061
104415
005237
022737

103232

14=-SEP-81

077777

001160

BEQ
ERROR

6$
56

;
ON MESSAGE A
sPARITY ON MESSAGE A INCORRECT

T.MR2,$TNPO

sMASK ALL BITS EXCEPT PARITY

PARBIT,$TMPQ

JCHECK IF PARITY CORRECT

;PARITY ON MESSAGE B INCORRECT

MOV

7%:

004206

004146

8%:

004244
000017

:
25%:

4561

25%

#77777,$TMPQ

BEQ

25%

(MP
BEQ
ERROR
(MP
BEQ

E.MR3,T.MR3
8%
60
E.MR2,T.MR2

INC
(MP

DRVCOD
#17,DRVCOD

ERROR
SCOP1

004244

PARBIT,$TMPQ

BI¢

ERROR

004150

SEQ 0086

877777 ,$TMPO

(MP

004210

1 7
PAGE 87

BIC

(MP

6%:

15:10

EVEN DRIVE MESSAGE PARITY GENERATION

4543

4544

39£;046)

BHIS

25%
61

sCHECK IF PARITY CORRECT

;CHECK IF LOOP ON ERROR

;

ON MESSAGE B

;CHECK IF LOOP ON ERROR

sCHECK TF MESSAGE A CORRECT
;YES, CHECK MESSAGE B
sMESSAGE A INCORRECT
sCHECK IF MESSAGE B CORRECT

JYES, CHECK IF LOOP ON ERROR
;MESSAGE B INCORRECT
sCHECK IF LOOP ON ERROR
s INCREMENT DRIVE SELECT CODE
sCHECK IF FINISHED

sNO,

TRY NEXT CONFIGURATION

2%2%

LSBTTL

4564

2222

JHTEST &2

4567
4568
4569
4570
4571
4572

;e
:®
;
i
:®
s®

4575

:-.-----t-nntttttttntntt'ttttttntntnttt.tt'tt.tntttnnnntqttntt-‘t‘n

22;2

4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592

:*
021712
021714
02i722
021726
021734

000004
012737
013702
012737
012737

000144
001270
000010
021742

001200

021742
021742
021750
021756
021764

012762
012762
013762
012762

000040
000040
004244
000001

000010
000026
000010
000000

021776
022004
022012
022014

012762
012762
005300
001370

000440
000040

000026
000026

021772

012700

000120

TST42:

004244
001110
18:

2%:

=« ASS A (OMMAND EXECUTION
R

AR R R AN

R AR R R R RN AR R R

R AR AR R

AR R AR AR AR R AR RN AR

R RO RN RN

RELEASE COMMAND IN DIAGNOSTIC MODE

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. LOAD COMMAND AND
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.
SCOPE
MoV
MOV
MOV
MOV

#100.,8TIMES
$RASE ,R2
#10,DRVCOD
#1%,SLPERR

MOV
MOV
MOV
MOV

#SCLR,RKCS2(R2) ;CLEAR RKO6 SUSSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
DRVCOD ,RKCS2(R2) ;LOAD DRIVE SELECTION
#SELDRV,RKCS1(R2) ;ISSUE DESELECT

MOV
MOV
DEC
BNE

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
2%

MOV

#20.+4 R0

::D0 100. ITERATIONS
;LOAD RK611 BASE
JINITIALIZE FOR DESELECT OF DRIVE C
;LOAD LOOP CN ERROR LOCATION FOR
;
SUBTEST LOOP

;LOAD COUNT

TO COMPLETE

;CLOCK THRU COMMAND
.-

COMMAND

CZR6BDO RK611 DSKLS CTRL PRT2
CZRE6BD.P1T
14=SEP-81 13:47
4593
6594
6595
4596
4597
4598
4599
4600
4601
4602

4603

4604
4605

4606
4607
4608
4609
4610

4611

022016

022026
022032
022040
022046
022054
022062
022070
022074
022100

MOv

004130
004132
004134
004160
094170
004170

MOV
MOV
MOV
MOV
MOV
BIS
CLR

004170

004130

3%:

023737
001401

004174

004134

48:

022136

023737

004172

022152

005237

004244

022164

103266

022110
022112
022120
022122

022124
022132
022134

022144
022146
022150

4616

022156

22};

004120

022106

005037
023737

000000
000010
000012
000014
000200
004244
000100
004172

004174
004160

4612
4613
4614

4615

016237
016237
016237
016237
012737
013737
052737
005037

001401

104062
023737
001401
104063
104064

001401
104126
104415

022737

000017

MACY11 30(1046)
14-SEP-81
15:10 PAGE 88
142
RELEASE COMMAND IN DIAGNCSTIC MODE

004132

(LR
(MP

BEQ

5%:
6%:

004244

RKCS1(R2),T CS1

SEQ nna7

RKCS2(RZ),T.(S2
RKDS(R2),7.DS
RKER(RZ) ,T.ER
#RDY ,E.CST
DRVCOD,E.CS2
#IR,E.CSc
E.DS

;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.
;GENERATE EXPECTED COMMAND AND
;
STATUS REG. 2
;LOAD EXPECTED DRIVE STATUS REGISTER

;YES, CHECK (S2

E.ER
E.CST,T.CST

;LOAD EXPECTED ERROR REGISTER
;CHECK COMMAND AND STATUS REG 1

62
E.CS2,7.(S2

; COMMAND AND STATUS REG. 1 INCORRECT
;CHECK COMMAND AND STATUS REG. 2 CORRECT

CMP
BEQ

E.ER,T.ER
5%

sCHECK ERROR REGISTER CORRECT
;YES, CHECK DRIVE STATUS REG

BEQ
ERROR
ERROR

CMP

3
63
64

E.DS,T.DS

BEQ
ERROR
SCOP1

6%
126

C(MP

#17 ,DRvCOD

INC

BHIS

DRVCOD

;YES, CHECK ERROR REGISTER
;COMMAND AND STATUS REG. 2 INCORRECT
sERROR REGISTER

INCORRECT

sCHECK DRIVE STATUS REG CORRECT
sYES, CHECK IF LOOP ON ERROR
;DRIVE STATUS REG INCORRECT
;CHECK IF LOOP ON ERROR

s INCREMENT DRIVE NUMBER

;CHECK IF ALL DRIVE NUMBERS TESTED
sNO, DO IT FOR NEXT DRIVE NUMBER

SRR AR AR AR AR A AR A AR

zgg?

s*TEST 43

4622
4623

:®
"

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. LOAD COMMAND AND
STATUS REGISTER 2 WITH DRIVE SELECT = 0. LOAD

4626
4627

o
:*

CLOCK COMMAND TO COMPLETION. MAKE SURE MESSAGE SHIFT
NOT DONE DURING THE RECEIVE CYCLE OF DRIVE MESSAGE.

:*
:®

2253
4630

:*
b

4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642

022166
022170
022176
022202
022206

4644
4645
4646
4647
4648

4643

000004
012737
013702
005037

001200

012737

022214
022214
022222
022230
022236

012762
012762
013762
012762

000040
000040
004244
000001

000010
000026
000010
000000

022250
022256
022264
022266
022270

012762
012762
005300
001370
016237

000440
000040

000026
000026

000000

004120

012700

AR AN AR RN AA AR AR AR

SELECT

COMMAND

RAAAAAA AR AR AR AR AR AR

IN DIAGNOSTIC MODE

COMMAND AND STATUS REGISTER 1

WITH A SELECT.

MAKE SURE NO ERRORS SET. REPEAT FOR DRIVE SELECT = 1-7,

;;tt'ittt!tttfitfitttfitttt"'t'tttt'.iit'ittttt'ttt'tt'.ttittt't..t
000144
001270
004244
022214

022244

CORRECT

ERROR
CMP

4619

L624
4625

000120

TST43:

001110
1%:

28%:

SCOPE
MOV
MOV
CLR
MOV

#100.,8TIMES
$BASE ,R2
DRVCOD
#1%,SLPERR

MOV
MOV
MoV
MOV

#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
:PUT RK611 IN MAINT MODE
DRVCOD,RKCS2 (R2)
;LOAD DRIVE SELECT
#SELDRV,RKCS1(R2)
;ISSUE DRIVE SELECT

MOV
MOV
DEC
BNE
MOV

#DMD 'MCLK ,RKMR1
#DMD ,RKMRT (R2)
RO
2%
RKCST1(R2),T.CS1

MOV

#20. *4 RO

;:D0 100. ITERATIONS
;LOAD RK611 BASE
sINITIALIZE FOR SELECT OF DRIVE O
;LOAD LOOP ON ERROR LOCATION FOR
:
SUBTEST LOOP

:LOAD COUNT TO DESELECT COMPLETE
(R2)

;STORE

sCLOCK UNTIL DESELECT FINISHED

COMMAND AND STATUS REG.

CZRABDO RK611 DSKLS CTRL PRT2

CZR6BD.P11

14-SEP=-81

13:47

L649
4650
4651

012737
023737
001402

000001
004160

013703
012701
005000
006003

004244
000003

MACY11

30(1046)
743

004160
004120

3%:
(%:

022462
022470
022472
022474

b ed 2 A NO
-k B DO -

022400
022404
022412
022420
022422
022424
022432
022440
022446
022454
022456
022460

[elelelelelelelelele
el

5%:

023737
001402

004210

100000
100000

004210
004206

000003
000004
000440
000040
000000
000034
000036
004160

004206

000026
000026

004210

004150

104070

022600

elelelelelelelelele]
e
e per g Y« L TRy
WROONONONON
=
oy
NNNONONONO
NN N
WWWWWWNO
O
NNNNNNOON

4704

7%:

8%:

E.CS1,T.CST
3%
65
25%

;LOAD EXPECTED COMMAND AND STATUS REG. 1
;CHECK IF READY RESET
;YES, CONTINUE COMMAND
; COMMAND AND STATUS REG. 1 INCORRECT
;GO CHECK IF LOOP ON ERROR

MOV
MOV

#3,R1

DRV(COD,R3

;GENERATE EXPECTED MAINT REG 3

(LR
ROR
BCC
INC
DE(
BNE

BIT
BNE
BIS

MOV
MOV
MOV
MOV
MOV

DEC
BNE

MOV
MOV
MOV

CMP
BEQ
ERROR
BR

9%:

104067

000471

4691
4692

6%:

000477
023737
001402

#SELDRV,E.CST

MOV

004120
004146
004150
004120

004146

SEQG 0088

MOV

CMP
BEQ
ERROR
BR

104065
000566

004244
000001

15:10
PAGE 89
14=SEP=81
SELECT COMMAND IN DIAGNOSTIC MODE

108
:

;STORE EXPECTED MAINT REG 2

;ISSUE 3 CONTROL CLOCKS

#4 ,RO
#DMD !MCLK ,RKMR1(R2)
dgMD.RKHR1(R2)
R

RKCS1(R2) T.CS1
RKMR2 (R2) T.MR2
RKMR3(R2) {.MR3
E.CS1,T.C §
9%
66

25%

;STORE COMMAND AND STATUS REG.

;STORE MAINT REG 2
;STORE MAINT REG 3
sCHECK COi MAND AND STATUS REG 1 CORRECT
sYES, CHECK MAINTENANCE REG. 2
;CS1 INCORRECT
;CHECK IF LOOP ON ERROR
sCHECK MAINT REG 2 CORRECT

CMP
BEQ
ERROR
BR

E.MR2,T.MR2

CMP
BEQ
ERROR
BR

E.MR3,T.MR3

DEC
BNE

R1
;CHECK IF CCMMAND FINISHED
7$
sNO, ISSUE ANOTHER CONTROL CLOCK
#4 RO
; ISSUE LAST CONTROL CLOCK FOR READY
#DMD !MCLK ,RKMR1(R2)
#DMD
, RKMR1 (R2)
RO

000004
000440
000040

000026
000026

MOV
MOV
MOV

000000
000010
000012
000014
000200
004244

004120
004130
004132
004134
004160
004170

MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE

108

67
25%
11%
70

25%

JYES, CHECK MAINTENANCE REG 3
sMR2 INCORRECT
;CHECK IF LOOP ON ERROR

;CHECK IF MAINT REG 3 CORRECT

sYES, CHECK COMMAND COMPLETE
:MR3 INCORRECT

;CHECK IF LOOP ON ERROR

;STORE COMMAND AND STATUS REG. 1
;STORE COMMAND AND STATUS REG. 2
sSTORE DRIVE STATUS REGISTER
:STORE ERROR REGISTER
;LOAD EXPECTED COMMAND AND STATUS REG 1
;GENERATE EXPECTED COMMAND AND STATUS REG. 2

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

MACY11

4705
4706

022606
022614

052737
005037

000100
004172

004170

4708

022624

023737

004160

004120

4707

4709

022620

022632

005037

001401

4710
4711

022634
022636

104071
023737

4713
714
4715
4716
4717

022646
0c2657
022656
022660
022662

104072
023737
001401
104073
023737

4719
4720

022672
022674

6712

4718

6721
4722

4723

z;gg

022644

022670

001401

104127
104415

004174

004170

;LOAD EXPECTED DRIVE STATUS REGISTER

(MP

E.CS1,T.0S1

;CHECK COMMAND AND STATUS REG 1 CORRECT

ERROR
CMP

71
E.(S2,T.CS2

;CST INCORRECT
;CHECK COMMAND AND STATUS REG 2 CORRECT

72
E.ER,T.ER
15%
73
E.DS,T.DS
127

E.ER

BEQ

148:

004172

004132

15%:
25%:

ERROR
SCOP1

022712

000137

022214

103402

#IR,E.(S2
E.DS

004134

004244
000007

004244

BEQ

138

148

DRVCOD
#7 ,DRVCOD

JMP

SRR AR A AR

A AR

;YES, CHECK (S2

;YES, CHECK ERROR REG

;YES, CHECK IF LOOP ON ERROR

;DRIVE STATUS REGISTER INCORRECT
;CHECK IF LOOP ON ERROR
; INCREMENT DRIVE NUMBER
sCHECK IF ALL DRIVES TESTED

15744

R AR

;LOAD EXPECTED ERROR REGISTER

;(S2 INCORRECT
;CHECK IF ERROR REG CORRECT
;YES, CHECK DRIVE STATUS REG CORRECT
;ERRCR REG INCORRECT
;CHECK DRIVE STATUS REG CORRECT

258

INC
CMP

BLO

4726

SEQ 0089

BIS
CLR

004174

005237
022737

PAGE 90

SELECT COMMAND IN DIAGNOSTIC MODE

CLR

13%:

15:10

14 -SEP-81

ERROR
CMP
BEQ
ERROR
CMP

022676
022702

022710

004130

30(1046)
743

s.YES, GO TO NEXT TEST
:TRY NEXT DRIVE

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

RELEASE COMMAND

R AR AR

2;5;

rTEST 44

IN NCRMAL MODE

4729
4730
4731
4732
4733
4734

"
;e
;9
:®
:®
3

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
LOAD COMMAND AND STATUS REGISTER 2 WITH DRIVE SELECT = 10.
LOAD COMMAND AND STATUS REGISTER 1 WITH A SELECT.
MAKE SURE NO ERRORS OCCUR. REPEAT FOR DRIVE
SELECT = 11-17

TST44:

SCOPE
MOV

4735

4736
4737

022716
022720

ND0004
©12737

47640

022740

012737

4738
4739
4741

4742

4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760

022726
022732

022746
022746
022754
022762
022770
022774
023000
023002
023004
023006
023014
023022
023030
023036
023044
023052
0°3060
023064

013702
012737

012762
013762
012762
012700
105762
100402
005300
001373
016237
016237
016237
016237
012737
013737
052737
005037
005037

000144
001270
000010
022746

001200

000040
004244
000001
004262
000000

000010
000010
000000

000000
000010
000012
000014
000200
004244
000100
004172
004174

004120
004130
004132
004134
004160
004170
004170

A R AR AR AR

MOV

#100.,$TIMES
$BASE, R
#10,DRVCOD
#1$,$LPERR

MoV
MOV
MoV
MOV
TSTB
BMI
DEC
BNE
MOV
MOV
MOV
MoV
MoV
MoV
BIS
(LR
(LR

#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
DRV(COD,RKCS2(R2)
;LOAD DRIVE SELECTION
#SELDRV,RK(S1(R2)
: ISSUE DESELECT
WAITIM,RO
;WAIT FOR READY
RKCS1(R2)
3%
RO
2%
RKCS1(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 REGISTER
RKER(R2) ,T.ER
;STORE ERROR REG.
#RDY ,E.CS1
;LOAD EXPECTED COMMAND AND STATUS REG. 1
DRVCOD,E.{S2
:GENERATE EXPECTED COMMAND AND STATUS REG.
#IR,E.(CS2
E.DS
;LOAD EXPECTED DRIVE STATUS REG
E.ER
:LCAD EXPECTED ERROR REG.

MOV
MOV

004244
001110

1%:

2%:

3%:

R R R AR A AR R A AR AR R R A AR AR AR R AR RN AR R AR

;D0 100, ITERATIONS
LOAD RK611 BASE
sINITIALIZE FOR DESELECT OF DRIVE 0
:LOAD LOOP ON ERROR LOCATION FOR
:

SUBTEST LOOP

CZR6BDO RK611 DSKLS CTRL PRT2
14=SEP=-81 13:47
CZR6BD.P1

4805
4806

4807
4LBNR
4LBUY
4810
4811
4812
4813

———) -—d
g —
— N — Y —
N
R
[

004160

004120

023737
001401
104075
023737
001401
104076
023737
001401
104130

004170

004130

4$:

004174

004134

004172

004132

6$:

005237
022737

004244
000017

104074

104415

103274

7%:

004244

14-SEP-81

15:10

M7
PAGE 91

SEQ 0090

RELEASE COMMAND IN NORMAL MODE

CMP
BEQ
ERROR

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
SCOP1

INC

CMP
BHIS

E.CS1,T.CS1
4$
74

:YES, CHECK (S2
+CS1 INCORRECT

5%
75
E.ER,T.ER
6$
76
E.DS,T.DS
7$
130

*YES, CHECK ERROR REGISTER
:CS2 INCORRECT
*CHECK ERROR REG CORRECT
:YES, CHECK DRIVE STATUS REG CORRECT
*ERROR REG INCORRECT
:CHECK DRIVE STATUS REG CORRECT
*YES, CHECK IF LOOP ON ERROR
:DRIVE STATUS REGISTER INCORRECT

£.CS2,T.CS2

DRVCOD

#17 ,DRVCOD
1%

:CHECK COMMAND AND STATUS REG 1 CORRECT
:CHECK COMMAND AND STATUS REG 2 CORRECT

*CHECK

LOOP ON ERROR

*INCREMENT DRIVE NUMBER

*CHECK IF ALL DRIVE NUMBERS TESTED
*NO, DO IT FOR NEXT DRIVE

:;'Qtt'.t.t'litttt.tfi't""tttt.ttttt'ttttttt!t.tt.t't.tt"'t.ttt

S*TEST 45

INTERRUPT AT COMMAND COMPLETION

- %

i
i
i
- %

023232

023266

4816

023270

04¢

2746

ISSUE A RELEASE
COMMAND WITH INTERRUPT ENABLE SET. MAKE SURE
INTERRUPT OCCURS. LOWER PRIORITY AFTER INTERRUPT
AND MAKE SURE INTERRUPT HAS CLEARED.

LOWER PROCESSOR PRIORITY TO ZERO.

i
v

OCCURS.
SET INTERRUPT ENABLE AND MAKE SURE NO
INTERRUPT OCCURS.

- X

023156
023160
023166
023172
023200
023206
023212
023216
023222
023224
023230

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

LOW-R PROCESSOR PRIORITY TO ZERO.

4814

4815

T44

023737
001401

eleleleleolelelelole
e
D
R
e
TM |
wvwhornwrRonwWN
O

4773

4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803

VS BB WWNIMNIN
= 2 2O o
SOOI ON o

L4766
L767
4768
4769
4770
4771
4772

NN
N NNN
(N NN NN N NN NN NN W

4763
4764
4765

023070
23076

[oleleoleoleleleolelelelele
e oo

4761
4762

MACY11 30(1046)

WITH INTERRUPT ENABLE RESET.

MAKE

REISSUE RELEASE

SURE NO INTERRUPT

;:Qtttttttttt.tlttt.t.'ttt"tttt'tttttt't'.l'titttttttttttttt""
000144
001270
000040
000010

004234
023274
000340

001200

1ST45:

000010
000010

MOV

CLR

023232

000101
004262
000000

000340
023270

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV

000000

64%:

2%:

3$:

4%:

#100.,$TIMES
$BASE _R2
#SCLR,RKCS2(R2)
#10,RKCS2(R2)
RKVEC ,R1
#5%, (R1)+

;DO 100. ITERATIONS
:L0AD RK611 BASE
:CLEAR RK06 SUBSYSTEM
:SET DESELECT BIT
*LOAD INTERRUPT VECTOR

-(SP)

;LOAD STACK TO ALLOW ALL

#PR7, (R1)

MOV
RT]

#64$,=(SP)

MOV

#SELDRV'IE,RKCS1(R2)

ISTB
BM]
DEC
BNE
MOV

RKCS1(R2)
38
RO
2%
#PR7,~(SP)

MOV

MOV
RT]

ERROR

WAITIM,RO

#4%,=(SP)
100

*LOAD NEXT ADDRESS
*CLEAR PSW

INTERRUPTS

;ISSUE SELECT DRIVE

:WAIT FOR READY

:LOCK OUT

IMTERRUPTS

;INTERRUPT DID NOT OCCUR

CZREBDO RK611 DSKLS CTRL PRT2
14-SEP=81 13:47
(ZR6BD.P11

MACY11

30(1046)
T45

000522

4817

4818
4819
4,820
4821
4822
4823
4824

5%:

000004
000000
000010
000014
000300
000110
004174
004160

4825

4826
4827
4828
4829
4830

023416
023416
023420
023426
023434
023442
023446
023452
023454
023456
023460
023462
023470
023476
023500
023504
023510

004130

6%:

004174

004134

7%:

023512

160626

B%:

023522
000010
000001
004262
000000

012762
000240
012746
012746
000002
062706

023522
023526
023530

062706

023532

023540
023546
023552
023554

104104

023532
000100

160606

9%:

160544

118:

000340

023540

000004

108:

000004

15%:

062706
104255

000004

208:

012762
013701

000040
004234

062721

000002

000403

01011

#4,SP
RKCS1(R2),7.CS1

:ADJUST STACK
:STORE COMMAND AND STATUS REG.

MOV
MOV
(LR
CMP

#RDY'1E,E.CST
#IR!'10,E.CS2
E.ER

;LOAD EXPECTED CS1
;LOAD EXPECTED (S2
:LOAD EXPECTED ERROR
*CHECK IF CS1 CORRECT

CMP

E.ER,T.ER

000010

25%:

RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
RKER(R2) ,T.ER
:STORE ERROR REG.

BEQ
ERROR
CMP
BEQ
ERROR

E.CS1,T.CS1
6$
101
E.CS2,T.CS2
7$
102

SYES, CHECK CS2
+CS1 INCORRECT
*CHECK IF €S2 INCORRECT
“YES, CHECK IF ERROR REG CORRECT
:CS2 INCORRECT

BEQ
ERROR

13
103

:YES, CHECK IF INTERRUPT CLEARED
*ERROR REG. INCORRECT

“CHECK IF ERROR REG CORRECT

MOV
CLR
MOV

#10%, SRKVEC
-(SP)
#65%,=(SP)

NOP
MOV

#15%, ARKVEC

MOV
MOV
ISTB

#SELDRV,RKCST(R2)
WAITIM,RO
RK(S1(R2)

BM]
DEC
BNE

NOP

#10,RKCS2(R2)

11%
RO
9%

*LOAD VECTOR FOR UNEXPECTED INTERRUPT
:LOAD STACK TO ALLOW ALL INTERRUPTS
*LOAD NEXT ADDRESS

;CLEAR PSW

;WAIT FOR INTERRUPT
:LOAD VECTOR ADDRESS FOR UNEXPECTED

:ISSUE DESELECT

;WAIT FOR

INTERRUI
T

MOV

#2208, SRKVEC

S?Y

#PR7 ,=(SP)
#25%.-(5P)

ADD

#6,SP

;ADJUST

B8R

25%

“RESTORE TRAP (ATCHER

ADD

26,57

SADJUST

ADD

86, SP

;ADJUST STACK

MOV

#SCLR,RKCS2(R2)

INTERRUPT ENABLE
:CLEAR RK06 SUBSYSTEM

MOV
NOP
MOV

000000

000407
104254

ADD
MOV

MOV

000010
000000

SEG 0091

25%

RTI

65%:

023512
023516
023520

023536

004170

MOV
MOV

02341¢

023414

15:10
14=SEP-81
PAGE 92
INTERRUPT AT COMMANU COMPLETION

ERROR

ERROR
8R

ERROR
MOV
MOV
ADD

#IE.RKCST(R2)

104

254
258

25§

RKYE_ R
R1,(R1)
82,(R1)e

INTERRUPT

*LOAD VECTOR ADDRESS FOR UNEXPECTED INTERRUPT
:SET INTERRUPT ENAV
E
SALLOW INTERRUPT T{ OCCUR
;LOCK QUT INTERRUPT
“RESTORE

TRAP CATCM:R

STACK

SUNEXPECTED INTERRUFT
STACK

SUNEXPECTED INTERRUPT ON DESELECT
*RESTORE TRAP CATCHER

SUNEXPECTED INTERRUPT WHEN SETTING
RE"JR{

TRAP

(AT(HER

CZR6BDO Rk611 DSKLS CTRL PRT?

(ZR6BD.P11

14~SEP-81

4873
4874
4875
4876
4877
4878
4879
4880
4881
4,882
4883
4,884
4885
4886
4887

005017

SILO

CLEARED.

000144
001270
000040
000024
000010
000001
004262
000000

0
0
0
0

0
0
023737
001401
104105

DATA BUFFER

TO MAKE

SURE

THE

COMMAND

SILO HAS BEEN

(DATA LATE SET AFTER READ OF DATA BUFFER)

-SCOPE

MOV
MOV
MOV

#100.,$TIMES
$BASE .R2
#SCLR.RKCS2(R2)

28:

MOV
MOV
MOV
TSTB

#10,RKCS2(R2)
:LOAD DESELECT DRIVE 0
#SELDRV,RKCS1(R2)
: ISSUE DESELECT
WAITIM,RO
:WAIT FOR READY
RKCS1(R2)

000010

CLR

000010
000000

004120
004130
004132
004134
004160
004170

3$:

004730

005762
0
0
0
0
0
0
0

000024
000000
000010
000014
100200
100110
004170

108 :

100000

118:

BM]

RKDB (R2)

;:DO 100. ITERATIONS
:LOAD RK611 BASE
:CLEAR RK06 SUBSYSTEM

*LOAD 1 WORD IN SILO

DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CMP
BEQ
ERROR
ST
MOV
MOV
MOV
MOV

RO
28
RKCS1(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 REGISTER
RKER(R2).T.ER
-STORE ERROR REGISTER
#RDY ,E.CS1
:LOAD EXPECTED (S1
#IR'10,E.CS2
:LOAD EXPECTED CS2
E.DS
*LOAD EXPECTED DRIVE STATUS REG
E.ER
*LOAD EXPECTED ERROR REGISTER
E.CS2,T.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

BEQ
ERROR

118
106

MOV
CMP
MOV

#DLT'IR'10,E.CS2 ;LOAD EXPECTED CS2
E.CS2,T.CS2
;CHECK IF DATA LATE SET
#CCLR,RKCS1(R2)

*YES, CLEAR CONTROLLER REG.
SDATA LATE NOT SET
:CLEAR RK611

CONTROLLER

tfittl‘tttttttt*tttttttttt*iifiQ**i't*fi.ttt*ttttttlttfittttttl'ttt

~resr 47
=

024004

THE

TST46:

4913

000000
000010
000012
000014
000200
000110
004172
004174
004170

001200

4907
4908
4909
4910
4911
4912

READ

ISSUE A RELEASE
WAIT FOR READY.

:'tttt'tfi*tttt'!ttttti""'ttflQttfi'...t!fi.t.tttt'tt'.'t'ttttti"t

023562
023564
023572
023576
023604
023610
023616
023624
023630
023634
023636
023640
023642
023650
023656
023664
023672

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

WRITE ONE WORD INTO THE SILO.
WITH INTERRUPT ENABLE RESET.

- %

4904
4905
4906

4928

GO CLEAR OF

ta
S
e

4903

4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927

23223333223232323232323232332323233232323233323233322332323323223233333223333323323]

- %

4900
4901
4902

SEQ 0092

(R1)

RTEST 46

4896
4897
4898
4899

SEEK COMMAND IN DIAGNOSTIC MODE

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE_A SEEK WITH CDT SET

24 SECTOR FORMAT TO CYLINDER 1714, HEAD 7, DRIVE 0.

MAKE SURE NO STATUS BITS ARE
BITS ARE SET.

SET AND NO ERROR

4895

14-SEP-81
15:10 PAGE 93
INTERRUPT AT COMMAND COMPLETION
CLR

4893
4894

30(1046)
T45

4888
4889
4890
4891
4892

023560

13:47

MACY11

SRSRSS2
R 2]

4929

4930

4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
49643
4944

024022
024026
024034
024042
024050
024056
024064
024070
024076
024104
024106
024110
024116
024124
024132
024134

000004

012737

013702
012762
012762
012762
012762
012762
012700
012762
012762
005300
001370
016237
012737
023737
001402
104107

000144

001270
000040
000040
001714
003400
012017
000120
000440
000040
000000
012017
004160

001200

000006
000000
000026
000026

024136

4949
4950
4951
4952
4953

024140
024146
024154
024160
024164

012737
012737
012701

071020
136300
000003

004210
004206

2762
g;gg

000440
000040

000026
000026

4957
4958
4959
4960
4961

024204
024212
024220
024226
024234

6237
6237
6237
3737
1402

000000
000034
000036
004160

004120
004146
004150
004120

2822

024240

000502

4965
4966
4967

024242
024250
024252

023737
001402
104111

004206

4970

024256

023737

004210

23;2

024270

000466

4975

024272

005301

4978
4979
4980
4981
4982
4983
4984

024276
024302
024310
024316
024320
024322
024330

012700
012762
012762
005300
001370
016237
016237

4962

2323

4971
4972

23;?

024236

024254

024264
024266

024274

000543

000004

3%:

48:

5%:

—_

2700

104110

SCOPE

MoV

004146

6%:

7%:

8%:

001331
000004
000440
000040

000026
000026

000000
000010

004120
004130

9%:

—

SEQ 0093

#100. ,8STIMES

;;D0 100. ITERATIONS

3%
107

sYES,

$BASE ,R2
;LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#1714 ,RKDCYL (R2)
;LOAD CYLINDER ADDRESS
#3400, ,RKDA(R2)
;LOAD HEAD 7
#SEEK!CFMT!CDT,RKCS1(R2)
;: ISSUE SEEK (DT SET,24 SECTOR
#20.%4 R0
;LOAD COUNT TO DESELECT DECISION
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
2%
RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
#SEEK!CFMT!CDT,E.CS1
;LOAD EXPECTED COMMAND AND STATUS REG 1
E.CS1,T.CS1
;CHECK IF READY RESET

TST50

CONTINUE COMMAND

;:G0 ON TO NEXT TEST

MOV
MOV
MOV

#S.SEEK!S.FMT!70000,E.MR3
;LOAD EXPECTED MAINT REG.
#136300,E.MR2
;LOAD EXPECTED MAINT REG. 2
#3,R1
;ISSUE 3 CONTROL CLOCKS

MOV
QEZ

#DMD 'MCLK ,RKMR1
(R2)
gg"D-RK"R1<R?>

MOV

#4.RO

BNE
MoV
MOV
MOV
CMP
BEQ
ERROR

5%
RKCS1(R2),T.CS1
RKMR2(R2) ,T.MR2
RKMR3(R2) ,T.MR3
E.CS1,7.051
6%

;STORE COMMAND AND STATUS REG 1
;STORE MAINT REG 2
;STORE MAINT REG 3
;CHECK COMMAND AND STATUS REG. T
JYES, CHECK MAINTENANCE REG. 2

TST50

;:GO TO NEXT TEST

CMP
BEQ
ERROR

E.MR2,T.MR2
’$
111

;CHECK MAINT REG 2 CORRECT
;YES, CHECK _MAINTENANCE REG 3
;MAINT REG 2 INCORRECT

CMP

E.MR3,T.MR3

;CHECK IF MAINT REG 3 CORRECT

TST50

::G0 TO NEXT TEST

BR
004150

MoV
MOV
MoV
MoV
MOV
MOV
Mov
MOV
mMov
DEC
BNE
Mov
Mov
CMP

000474

001402
104112

14=SEP-81
15:10 PAGE 94
SEEK COMMAND IN DIAGNOSTIC MODE

BEQ
ERROR

W
~N

026172
024200
024202

2%:

004120
004160
004120

232;

4956
4955
4956

TST47:

000010
000026
000020

[elelelelelelolelele
o]
ON ==
OO =

4945
4946

024012

024014

MACY11 3?2;046)

BEQ
ERROR

110

TST50

8%
112

;CS1

CORRECT

INCORRECT

;:G0 TO NEXT TEST

sYES, CHECK COMMAND COMPLETE
sMR3 INCORRECT

DEC

MoV
MOV
MOV
DEC
BNE
MOV
MOV

#4 ,RO
; ISSUE LAST CONTROL CLOCK FOR READY
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
9%
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG. 2

BNE

JCHECK

sNO,

COMMAND FINISHED

ISSUE ANOTHER CONTROL CLOCK

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

CZR6BD.P11

14=SEP=81 13:4/

MACY11

30(1046)

4985
4986
4987
4988
4989

024336
024344
024352
0264360
024366

016237
016237
012737
012737
005037

000012
000014
012216
000100
004172

004132
004134
004160
004170

4991
4992
4993
4994
4995
4996

024376
024404
024406
024410
024416
024420

023737
001401
104113
023737
001401
104114

004160

004120

004170

004130

10%:

004174

006134

11%:

4999
5000
5001

024432
024434
024442
024444

104115
023737
001401
104131

004172

004132

12%:

4990

4997
4998

ggg%

024372

024422
024430

005037

023737
001401

004174

14=SEP=81

CMP
BEQ
ERROR
CMP
BEQ
ERROR

E.CS1,T.CS1
108
113
E.(S2,T.(S2
11%
114

CLR

(MP
BEQ

ERROR
CMP
BEQ

5006

gggg

;*TEST 50

5009

5012
5013

5017

c®
024446
024450
024456
024462
024470
024476
024504
024512
024520
024524
024532
024540
024542
024544
024550
024554
024560
024562
024564
024566

000004
012737
013702
012762
012762
012762
012762
012762
012700
012762
012762
005300
001370
005062
013700
105762
100412
005300
001373
016237

5039
5040

024602
024604

104132
000460

5038

024574

012737

;LOAD EXPECTED ERROR REGISTER

E.ER,T.ER
12%

;CHECK ERROR REGISTER
;YES, CHECK DRIVE STATUS REG

115
E.DS,T.DS
TST50
131

;CHECK IF COMMAND AND STATUS REG. 2
;YES, CHECK (S2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG. 2 CORRECT
;YES, CHECK ERROR REG
;CS2 INCORRECT
;ERROR REG. INCORRECT
;CHECK DRIVE STATUS REGISTER CORRECT
::YES, GO ON TO NEXT TEST

;DRIVE STATUS REGISTER INCORRECT

#*+ERROR AND STATUS BIT FORCING WITH DRIVE MESSAGES

. *

5018
5019
5020
5021
5022
5023
5026
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037

E.ER

;"
¢

SEQ 0094

RKDS(R2),T.DS
;STORE DRIVE STATUS REGISTER
RKER(R2) ,T.ER
;STORE ERROR REGISTER
#RDY!CFMT!CDT!<SEEKE*(<GO>>,E.CS1
;LOAD EXPECTED (S?
#IR,E.(S2
;LOAD EXPECTED (S2
E.DS
;LOAD EXPECTED DRIVE STATUS REGISTER

.SBTTL

5014

PAGE 95

MOV
MoV
MOV
MOV
CLR

2882

28}2

SEEK COMMAND IN DIAGNOSTIC MODE

ERROR

5010
5011

15:10

R et

DRIVE STATUS FROM SHIFT REGISTER

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

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

:'.-ltt'ttttt'tQtt"ttnt"ttt'tttttt'.ttnttt"tttt.t.ttttttttttttQt
000144
001270
000040
000040
000757
000400
000017
000132
000440
000040

001200
000010
000026
000020
000006
000000

000026
000026

000026
004262
00C000

000000

000216

TST50:

1%:

2%:

004120

004160

SCOPE
MOV
MOV
MoV
MOov
Mov
MoV
MOV
MoV
MOV
MOV
DEC
BNE
(LR
MOV
TSTB
BMI
DEC
BNE
MOV

#100. ,$TIMES
::D0 100, ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#757 ,RKDCYL (R2) ;LOAD CYLINDER ADDRESS
#400,RKDA(R2)
;LOAD HEAD ADD =1
#SEEK,RKCS1(R2) ;ISSUE SEEK
#22.%4+2,R0
; ISSUE 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
RKCS1(R2)
3%
RO
2%
RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1

ERROR
BR

132
108

MOV

#RDY | SEEKE<A(<G0>>,E.CST ;LOAD EXPECTED CS1
;READY NOT SET
:CLEAR RKO6 SUBSYSTEM

£~

(ZR6BDO RKk611 DSKLS CTRL _PRT g

(ZR6BDO RK611 DSKLS CTRL PRTZ
CZR6BD.P11
14-SEP-81 13:4
5041

E
8
MACY11 30(1046)
14-SEP-81
15:10 PAGE 96
150
DRIVE STATUS FROM SHIFT REGISTER

5042
5043
5044
5045
5046
5047
5048
5049
5050

024606
024614
024622
024630
024636
024644
024652
024660
024664

016237
016237
016237
016237
012737
012737
012737
005037
032737

000000
000010
000012
000014
000216
000100
104325
006174
004325

004120
004130
004132
004134
004160
004170
00417

5053
5054
5055
5056

024676
024704
024706
024710

023737
001401
104134
023737

004160

004120

4%:

004170

004130

5S%:

5051
5052

024672
024674

001001
104133

3%:

004132

MOV
MOV
MOV
MoV
MOV
MOv
MOV
(LR
BIT

BNE
ERROR

(MP
BEQ
ERROR
CMP

RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(RZ),T.DS
;STORE DRIVE STATUS REF
RKER(R2) ,T.ER
;STORE ERROR REG.
#RDY ! SEEKR< A(<G0>>,E.CST ;LOAD EXPECT (S1
#IR,E.CSc
:LOAD EXPECTED (S2
#DRATOFST!SPDLSSTVVDRDY'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
3
133

E.CS1,T.(ST
5%
134
£.CS2,T.(CS2

:YES, CHECK REGISTERS
INO BIT IN DRIVE STATUS SET

;CHECK CS1 CORRECT
;YES, CONTINUE
2CS1 INCORRECT
;CHECK CS2 CORRECT

SEQ 0095

5057
5058
5059

024716
024720
024722

5061
5062

024732
024734

5060

5063

024730
024742

001401

104135
023737

001401

104136
023737

001401

5064
5065
5066
5067
5068

024744
024746
024754
Q024762
024770

104137
013737
013737
013737
013737

5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082

024776
025004
025012
025020
025026
025034
025042
025050
025054
025060
025066
025070
025072

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737

5084
5085

025102
025104

104225
023737

5069
5070
5071

5083

5086

025100
025112

5087
5088

025114
025116

2839

025126

5089

025124

001401

104226
023737

001401

004174

004172

004134

004132

004120

004220

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

9000000
004120
004130
004132
004134
004160
004170

004170

004130

004130
004132
006134

004172
004174

004222
00422¢
0042¢6

004132
0041346

7%:

10%:

BEQ

€3

BEQ

;YES, CONTINUE
;(S2, INCORRECT
;CHECK ERROR REG CORRECT

ERROR
CMP

136
E.DS,T.DS

;ERROR REG INCORRECT
sCHECK DRIVE STATUS CORRECT

ERROR
MOV
MOV
MOV
MOV

137
T.CS1,P.CS1]
T.(s2,P.CS2
T.DS,P.DS
T.ER,P.ER

BEG

108

118:

#CCLR,RKCST(R2)
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T.DS
RKER(R2) ,T.ER
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CS1
118
224
£.052.7.052

i2%:

ERROR
CMP

225
E.DS,T.DS

ERROR
CMP

226
E.ER,T.ER

ERROR

227

138%:

BEQ
BEQ

BEQ

12$

138

TSTS51

sYES CONTINUE
;CLEAR RK611

;DRIVE STATUS INCORRECT
;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 CS1
;LOAD EXPECTED (S2
:
:LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG
:CHECK COMMAND AND STATUS REG 1 CORRECT
;YES, CHECK (S2
:CS1 INCORRECT
;CHECK COMMAND AND STATUS REG
2 CORRECT

;YES, CHECK DRIVE STATUS REG

:CS2 INCORRECT
sCHECK IF DRIVE STATUS REG CORRECT

:YES, CHECK ERROR REG

;ERROR REG_INCORRECT
;CHECK IF ERROR REG CORRECT

;.YES, GO ON TO NEXT TEST

;ERROR REG INCORRECT

AR AR AR AR AR RN AR AR AR AR AR AR A AR R AR AR AR

'TEST 51

5095
5096
5097
5098
5099
g}g?

.'
e
c®
.
*
*

025130
025152
025140
025144
025152
025160
025166
025174
025202
025206

000004
012737
013702
012762
012762
012762
012762
012762
012700
012762

000144
001270
000040
000040
000002
000000
000017
000132
000440

001200

DRIVE AVAILABLE SETTING

AR AR

R AR RAR RN R A RN RN h

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SEEK TO A RkQ6,
26 SECTOR FORMAT TO CYLINDER 2, HEAD 0, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILIABLE SETS.

:-' AR AR AR AR AR R AR AR AR R R R AR AR A AR RR AR AR R AR N R AR RN R R
T§751:
SCOPE

000010
000026
000020
000006
000000
000026

SEG 0096

135
E.ER,T.ER

ERROR
(MP

MOV
mMov
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CMP
BEQ
ERROR
(MP

104227

2832

5104
5105
5106
5107
5108
5109
5110
5111
5112

¢€%:

004120

5092

5102
5103

MACY11 30(1046)
14-SEP-81
15:10 PAGE 97
150
DRIVE STATUS FROM SHIFT REGISTER

i%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RN R AR RN

#100. ,$TIMES
:;D0 100, ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#2 ,RKDCYL(R2)
;LOAD CYLINDER AND
#0,RKDA(R2)
;LOAD HEAD ADDRESS
#SEEK ,RKCST1(R2) ;ISSUE SEEK
#22.%4+2 R0
; ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD !MCLK,RKMR1(R2)

P WY

CZR6BDO RK611 DSKLS CTRL BPRT2
CZR6BD.P1
14=SEP=-81 13:47

TIR6BD.P11

14=SEP=81

13:4°

§113
5114
5115
5116
§117
5118
5119
5120

012762
0053C0
001370
005062
013700
105762
100402
005300

000040

§121
§122
§123
5124

025214
025222
025224
025226
025232
025236
025242
025244

5129
5130
5131
5132
5133
513,
5135
5136
5137
5138
5139
5140
5141
5142
5143
§144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156

025322
025330
025336
025340
(025342
025350
025352
025354
025362
025364
025366
025374
025376
025400
025406
025414
025422

001373
016237
016237
016237
016237
012737
012737
012737
012737
023737
001401
104140
023737
001401
104141
023737
001401
104142
023737
001401
104143
013737
013737
013737
013737

025430
025436
025444
025452
025460
025466
025474
025502
025506
025512

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737

5158
5159

025522
025504

104224
023737

004170

5161
5162

025534
025536

104225
023737

:
004172

5164

025546

5125
5126
5127
5128

5157
5160
5163

025246
025250
025256
025264

000026
004262
0000600

025272
025300
025306
025314

025520
025532
025544

007401

001401
001401

104226

5165

025550

023737

g}g;

025560

104227

5166

025556

001401

WMACY11

30(1046)

151

000026

SRETTRE

2%:

000000
000010
000012
000014
000216
000100
100001
000000
004160

004120
00413C
004132
004134
004160
004170
004172
004174
004120

3$:

004170

004130

48$:

004172

:
004132

5%:

004174

004134

€$:

004120
004130
004132
004134

004220
004222
004224
004226

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
004160
004170

004174

7%:

004120
004130

004132

004134

14-SEP-81

12%:

13%:

PAGE 98

DRIVE AVAILABLE SETTING

MOV
DEC
BNE
(LR
MOV
TSTB
BMI
DEC

#DMD ,RKMR1 (R2)
RO
18
RKMR1 (K2)
WAITIM,RO
RKCS1(R2)
3$
RO

MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CMP

RKER(RZ).T.ER
:STORE ERROR REG
#RDY ! SEEKR<*C<GO>>,E.CST ;LOAD EXPECTED ST
#IR,E.(S2
:LOAD EXPECTED (S2
#SVAL 'DRA,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#0,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CS1
;CHECK COMMAND AND STATUS REG.1 CORRECT
4$
:YES, CONTINUE
140
E.(S2,T.CS2
;CHECK COMMAND AND STATUS REG. 2 CORRECT
5%
YES, CONTINUE
141
E.DS,T.DS
;CHECK DRIVE STATUS REG. CORRECT
6%
:YES, CONTINUE
142
E.ER,T.ER
;CHECK ERROR REGISTER CORRECT
7$
:YES, CLEAR Rk611
143
1.CS1.P.CS1
;STORE PREVIOUS CONTENTS OF
1.0S2,P.CS2
i
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,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. (S
:LOAD EXPECTED (S1
#IR,E.CS2
:LOAD EXPECTED (S2
E.DS
:LOAD EXPECTED DRIVE STATUS REG
E.ER
:LOAD EXPECTED ERROR REG
E.CS1,T.CS
:CHECK COMMAND AND STATUS REG 1 CORRE(T

ERROR
(MP

224
E.(S2,T.CS2

ERROR
(MP

225
£.DS,T.DS

ERROR

226

BEQ

15752

RNE
MOV
MOV
MOV

MOV
CMP
BEQ
ERROR

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV
MOV
MOV
MOV

BEQ
11%:

15:10

BEQ
BEQ

(MP

ERROR

SEQ 0097

;FINISH COMMAND IN NORMAL MODE
*WAIT FOR READY

2%
RKCS1(R2),T.CST ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REG 2
RKDS(R2),7.DS
:STORE DRIVE STATUS REG

118

:YES, CHECK (S2

128

:YES, CHECK DRIVE STATUS REG

:CS1 INCORRECT
:CHECK COMMAND AND STATUS REG 2 (ORRECT

:CS2 INCORRECT
:CHECK IF DRIVE STATUS REG CORRF(T

:YES, CHECK ERROR REG
:ERROR REG_INCORRECT

E.ER,T.ER

:CHECK IF ERROR REG CORRECT

227

:ERROR REG INCORRECT

::YES, GO ON TO NEXT TEST

e Ty

CIR6BDO Rk611 DSKLS CT RL PRT2

CZR6BDC RK611 DSKLS CTRL PRT2
FIREBD.P11T
14=SEP=B1 13:4°

MACY11 30(1046)
14-SEP-81
15:10 PAGE 99
152
DRIVE BUS PARITY ERROR

5169

SEQ 0098

$170

LRTEST 52

DRIVE BUS PARITY ERROR

5172

5174

5173

5175

5176
g};g

5179
5180
5181
5182
5183

:*
e

5184
5185
5186
5187
5188
5189
5190
5191

000004
012737
013702
012762
012762
012762
012762
012762
012700
012762
012762
005300

5193
5194
5195
5196
5197
5198
5199
5200

025660
025664
025670
025674
025676
025700
025702
025710

005062
013700
105762
100402
005300
001373
016237
016237

000026
004262
000000

070000
000010

004120
004130

025724
025732
025740
025746
025754
025762
025770
025772

016237
012737
012737
012737
012737
023737
001401
104144

000014
120216
000100
100001
000000
0047160

004134
004160
004170
004172
004174
004120

026002
026004
026006
026014
026016

001401
104145
023737
001401
104146

5201

5202
5203
5204
5205
5206
5207
5208
5209

5210
5211
5212
5213
5214
5215

5216
5217
5218
5219
5220
5221
5222
5223
5224

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A SEEK

TO A RKO6, 26 SECTOR FORMAT TO CYLINDER 3, HEAD O,

DRIVE 0. CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.

TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE BUS
PARITY, DRIVE AVAILIABLE, AND CONTROLLER ERROR ARE

SET.

P w

025562
025564
025572
025576
025604
025612
025620
025626
025634
025640
025646
025654

5192

(LEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

025656

025716

025774

026020
026026
026030
026032
026040
026046
026054
026062

001370

016237

023737

000144
001270
000040
000040
000003
000000
000017
000132
000440
000040

000012

001200
000010
000026
000020
000006
000000
000026
000026

:.tttQtt'ttt'tit.ttttttt'tttttttttitltttt't'ttt't.ttt'tt..'t"t"
TST52:
SCOPE
MOV
#100.,8TIMES
::D0 100. ITERATIONS
MOV
$BASE ,R2
;LOAD RK611 BASE
MOV
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM

1%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
DEC

#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#3,RKDCYL(R2)
;LOAD CYLINDER AND
#0,RKDA (R2)
;LOAD HEAD ADDRESS
#SEEK,RKCST1(R2) ;ISSUE SEEK
#22.%4+2 R0
; ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO

(LR
MOV
TSTB
BMI
DEC
BNE
MOV
MOV

RKMR1(R2)
WAITIM, RO
RKCS1(R2)
3%
RO
2%
RKCS1(R2),T.CS1
RKCS2(R2),T 2

MOV
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR

RKER(R2),T.ER
:STORE ERROR REG
:
#CERR!SPAR!RDY!SEEKE<*(<GO>>,E.CS]1 ;LOAD EXPECTED (S1
#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.CS1
;CHECK COMMAND AND STATUS REG.1 CORRECT
4%
:YES, CONTINUE
144

BEQ
ERROR
(MP
BEQ
ERROR

5%
145
E.DS,T.DS
6%
146

BNE

2%:

3%:

004732

MOV

004170

004130

4$:

004172

004132

5%:

023737
001401
104147
013737
013737
013737
013737

004174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

012762

100000

000000

CMP

CMP
BEQ
ERROR
MOV

MOV
MOV
MoV
MOV

RKDS(R2),T. DS

£.CS2.7.CS¢2

E.ER,T.ER
7%
147
7.C51,P.CS1
1.0(52,P.CS2
1.DS,P.DS
T.ER,P.ER

;FINISH COMMAND I[N NORMAL MODE
;WAIT FOR READY

;STORE COMMAND AND STATUS REG 1
;STORE COMMAND AND STATUS REG 2

sSTORE DRIVE STATUS REG

;CHECK COMMAND AND STATUS REG. 2 CORRECT
;YES,

CONTINUE

;CHECK DRIVE STATUS REG. CORRECT
;YES, CONTINUE

; CHECK ERROR REGISTER CORRECT
:YES, 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 RK611

5225
5226
5227
5228
5229
5230
5231
5232
5233

026070
026076
026104
026112
026120
026126
026134
026140
026144

016237
016237
016237
016237
012737
012737
005037
005037
023737

5235
5236
5237
5238
5239
5240
5241
5242

026154
026156
026164
026166
026170
026176
026200
026202

104224
023737
001401
104225
023737
001401
104226
023737

g%zg

026212

104227

5234

5243

026152

026210

001401

000000
000010
000012
000014
000200
000100
004172
004174
004160

MACY11 30(1046)
14=SEP-81
15:10 PAGE 100
152
DRIVE BUS PARITY ERROR
004120
004130
004132
004134
004160
004170
004120

004130

11%:

004172

004132

12%:

004174

004134

13%:

RKCST1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),7.DS
RKER(RZ) ,T.ER
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CS1

;STORE COMMAND AND STATUS REG 1
;STORF COMMAND AND STATUS REG 2
:STORE DRIVE STATUS REG
;STORE ERROR REG
;LOAD EXPECTED CS1
;LOAD EXPECTED (S2
;LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR PEG
:CHECK COMMAND AND STATUS REG 1 CORRECT

ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP

224
E.CS2,7.CS2
12%
225
E.DS,T.DS
13$
226
E.ER,T.ER

;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG 2 CORRECT
;YES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
:CHECK IF DRIVE STATUS REG CORRECT
:YES, CHECK ERROR REG
:ERROR REG INCORRECT
:CHECK IF ERROR REG CORRECT

ERROR

227

BEQ

5246

ggzg

;*TEST 53

5249

5253

gggg

5256
5257
5258
5259
5260
5261
5262

026214
026216
026224
026230
026236
026244

000004
012737
013702
012762
012762
012762

5264
5265
5266
5267
5268

026256
026264
026272
026274
026276

012762
012762
005300
001370
005062

5263

5269
5270
5271
5272
5273
5274
5275
5276
5277

5278

5279
5280

026252

026302
026306
026312
026314
026316
026320
026326
026334
026342

026350

026356
026364

012700

013700
105762
100402
005300
001373
016237
016237
016237
016237

012737

012737
012737

000144
001270
000040
000040
000001

000010
000026
000000

000440
000040

000026
000026

000132

001200

000026
004262
000000

004120
004130
004132
004134

000100
100000

004170
004172

004160

118%

15753

R AR R R R AR R A

:YES, CHECK (S2

*:YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

AR AR AR R KRR AR AR AR R AR R AR AR

AR IR AR AR AR RS

DRIVE AVAILABLE RESET ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SELECT
TO A RK06, 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.

:-.-QQQttttttt'tttttttttt'ttt'ttttttttttttttttttt.tttt!nttttttt'n't
1S753:
SCOPE
MOV
#100.,8TIMES
::D0 100. ITERATIONS
MOV
$BASE ,R2
:LOAD RK611 BASE
MOV
#SCLR,RKCS2(R2) ;CLEAR RK06 SUBSYSTEM
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
MOV
#SELDRV,RKCST1(R2)
;s ISSUE SELDRV
1%:

2%:

000000
000010
000012
000014

100200

T
i
Jx

SEQ 0099

MOV
MOV
MOV
MoV
MOV
MOV
CLR
(LR
(MP

BEQ

004170

5250
5251
5252

3%:

MOV

#22.%4+2 R0

:ISSUE CLOCKS UNTIL PHASE ADDRESS 6

MOV
TSTB
BMI
DEC
BNE
MOV
MOV
MOV
MOV

WAITIM,RO
RKCS1(R2)
3%
RO
2%
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T7.DS
RKER(R2),T.ER

;WAIT FOR READY

MOV
MOV
DEC
BNE
CLR

MOV

MOV
MOV

#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%
RKMR1(R2)
:FINISH COMMAND IN NORMAL MODE

;STORE
:STORE
;STORE
:STORE

COMMAND AND STATUS REG !
COMMAND AND STATUS REG 2
DRIVE STATUS REG
ERROR REG

#CERR'RDY
' SELDRVE<*C<GO>>,E.CST :LOAD EXPECTED (51
#IR,E.(S2
:LOAD EXPECTED (S2
#SVAL'0,E.DS ;LOAD EXPECTED DRIVE STATUS REG

e
¥

CZR6BDO RK611 DSKLS CTRL PRT2
(IR6BD.P11
14=SEP=81 13:47

001401
104150
023737
001401
104151
023737
001401
104152
023737
001401
104153
013737
013737
013737
013737

026500
026506
026514
026522
026530
026536
026544
026552
026556
026562
026570
026572
026574
026602
026604
026606

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737
001401
104225
023737

026614
026616
026620
026626
026630

001401
104226
023737
001401
104227

000000

004174

004160

004120

004170

004130

48:

004172

004132

S8:

004174

00413t

<$:

004120
004130
004132
004134

004220
004022
004224
004226

7%:

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
024160
004170

004170

004130

11$:

004172

004132

128:

004174

004134

#0,E.ER ;LOAD EXPECTED ERROR REG

BEQ
ERROR
(P
BEQ
ERROR
(M2
REQ
ERROR
(P
BEQ
ERROR
MOV
MOV
MOV
MOV

8
150
E.(S2,7.C82
5§
151
£.DS,7.DS
6%
152
E.' ,T.ER
o
153
1.0S1,P.CS!
1.052.P.CS2
1.05.8.08
T.ER.P.ER

MOV
MOV
MOV
MOV
MOV
MOV
MOV
(LR
(LR
CMP
BEQ
ERROR
(MP
BEQ
ERROR
(MP

BEQ
ERROR
(MP
BEQ
ERROR

£,.651,7.C81

;CHECK COMM'ND AND STATUS REG.1 CORRECT
IYES, CONTINJE

;CHECK COMMAND AND STATUS REG. 2 CORRECT
:YES, CONTINUE
;CHECK DRIVE STATUS REG.
IVES, CONTINUE

CORRECT

;CHECK ERROR REGISTER CORRECT
“YES, CLEAR RK611

:STORE PREVIOUS CONTENTS OF
;"
COMMAND AND STATUS REG !
.
COMMAND AND STATUS REG Z
*
DRIVE STATUS REG
:
AND ERROR REG
#CCLR,RKCST(R2) :CLEAR RK611
RKCS1(R2),7.CS1 STORE COMMAND AND STATUS REG 1
RKLS2(R2),T.(S2 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 EXFECTED (ST
#IR,E.CS2
*LOAD EXPECTED (S2
E.DS
:LOAD EXPECTED DRIVE STATUS REG
-ER
:LOAD EXPECTED ERROR REG
!
E.CS1,T.CS1
:CHECK COMMAND AND STATUS REG 17 CORRECT
118
YES, CHECK €S2
224
CS1 INCORRECT
E.CS2,T.CS2
:CHECK COMMAND AND STATUS REG 2 CORRECT
128
:YES, CHECK DRIVE STATUS REG
225
:CS2 INCORRECT
£.DS,T.DS
*CHECK IF DRIVE STATUS REG CORRECT

138

YES, CHECK ERROR REG
:ERROR REG INCORRECT
*CHECK IF ERROR REC CORRECT
;YES, GO ON TO NEXT TEST
:ERROR REG INCORRECT

226
E.ER,T.ER
15154
227

".'t't'it.'fi'....ttt."t.'""t.tt"tttti"'ifi.fi.'..itt'tt"tt"tt

Sesan

2N
B
4

NN,

NN AN

SATEST

CPT

SET DRIVE

TYPE

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

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 DIAGNOSTIC MODE
AND MAKE SURE ONLY DRIVE AVAILIABLE SETE.

VI
NN AN

138:

SEG 0100

MOV

CMP

004120

N A NN

N NN N N N NN N N NN NN N NN NN NN N NN
WWWWWWINNDNONONDNODNNIIONIN
S
s D aw a o a o
VSR WN=O VO NOWVNEWNN—=O
VNN WN=O

5304
5305
5306
5307
5308
5309

026406
026410
026412
026420
026422
026424
026432
006434
026436
026444
026446
026450
026456
026464
026472

023737

5302
5303

(12737

5083
5084
5285
5286
5087
5288
5089
5290
5291
5292
5093
5294
5295
5096
5097
5298
5099
5300
5301

026372

026400

J 8
30(1046)
14=SEP=B1
15:10 PAGE 101
153
DRIVE AVAILABLE RESET ERROR

5281

5282

MACY11

000004
012737
013702
012762
012762

:- R
TST54:
SCOPE
MOV
-

026632
026634
026642
026646
026654

(000144
001270
000040
000040

001200
000010
000026

MOV
MOV
MOV

R
#100.,8TIMES
$BASE ,R2
#SCLR,RKCSZ(R2)
#DMD ,RKMR1(R2)

I
::D0 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE

L P

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

027132
027140
027146
027154
027162
027170
027176
027204
027210
027214
027222
027224
027226
027234
027236
027240
027246

" x

W
b

000040
DB OO0 OO = OO

026662
026670
026676
026704
026710
026716
026724
026726
026730
026734
026740
026744
026746
026750
026752
026760
026766
026774
027002
027010
027016
027024
027032
027040
027042
027044
027052
027054
027056
027064
027066
027070
027076
027100
027102
027110
027116
027124

D B B

;

MACY11

CZR6BDO RK611 D S
4
CZR6BD.P11

001401

#23,RKDCYL(R2)
#0,RKDA(R2)

;LOAD CYLINDER AND
*LOAD HEAD ADDRESS

000026
000026

MOV

#22.%4+2 R0

:ISSUE CLOCKS UNTIL PHASE ADDRESS 6

MOV

2%:

3%:

000000
004160
004170

004130

4%:

004174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

100000

000000
004120

004170

004130

11%:
12%:

#CDT!SEEK,RKCST(R2)

;ISSUE CDT!SEEK

#DMD 'MCLK ,RKMR1
(R2)
#DMD
. RKMR 1 (R2)
RO
1%
RKMR1(R2)
WAITIM,RO

RKCS1(R2)

;FINISH COMMAND IN NORMAL MODE
‘WAIT FOR READY

MOV
MOV
MOV
MOV

3%
RO
28
RKCS1(R2),T.CS1
RKCS2(R2).T.CS2
RKDS(R2),T.DS
RKER(R2).T.ER

;STORE
:STORE
:STORE
-STORE

MOV

#IR,E.CS2

:LOAD EXPECTED (S2

ERROR
CMP

BEQ

ERROR
CMP

#SVAL 'DRA'DDT,E.DS

154
E.CS2,T.CS2

155

E.DS,T.DS

CMP

E.ER.T.ER

BEQ
ERROR

;LOAD EXPECTED DRIVE

156

:CHECK DRIVE STATUS REG.

*YES, CONTINUE

T1.CS2.P.CS2

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CMP
BEQ

#CCLR,RKCST(R2)
RKCS1(R2),T.CS1
RKCS2(R2).T.CS2
RKDS(R2),T.DS
RKER(R2) .T.ER
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CS1
118

BEQ

CLEAR RK611

1.CS1,P.CS1

;STORE PREVIOUS CONTENTS OF

1.DS,P.DS
T.ER.P.ER

:
*
*

128

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 CS1
*LOAD EXPECTED (S2
*LOAD EXPECTED DRIVE STATUS REG
*LOAD EXPECTED ERROR REG
*CHECK COMMAND AND STATUS REG 1 CORRECT
*YES, CHCCK CS2

:CS1 INCORRECT
*CHECK COMMAND AND STATUS REG 2 CORRECT

*YES, CHECK DRIVE STATUS REG

ERROR

225

1052 INCORRECT

BEQ

138

*YES, CHECK ERROR REG

CMP

CORRECT

:CHECK ERROR REGISTER CORRECT

MOV

224
E.CS2,7.CS2
E.DS,T.DS

CORRECT

*YES, CONTINUE

*YES.,

ERROR
CMP

STATUS REG

:CHECK COMMAND AND STATUS REG. 2 CORRECT

7$
157

MOV

:LOAD EXPECTED CS1

#0,E.ER :LOAD EXPECTED ERROR REG
E.CST,T.CS1
:CHECK COMMAND AND STATUS REG.1
4%
*YES, CONTINUE

ERROR

COMMAND AND STATUS REG 1
COMMAND AND STATUS REG 2
DRIVE STATUS REG
ERROR REG

#CDT!RDY!CDT
! SEEKR<C<GO>>,E.CS1

BEQ

MOV
MOV

004130
004132
004134
004160
004170

004132

BMI
DEC
BNE

MOV
CMP
BEQ

5%:

004120

TSTB

MOV

004132

000000
000010
000012
000014
000200
000100
004172
004174
004160

MOV
DEC
BNE
CLR
MOV

MOV

004172

SEG 0101

MOV
MOV

004120
004130
004132
004134
004160
004170
004172
004174
004120

100401

K
8
14-SEP-81
15:10 PAGE 102
CDT SET DRIVE TYPE

000020
000006
000000

000026
004262
000000

000000
000010
000012
000014
002216
000100

30(1046)
154

“CHECK

DRIVE

STATUS REG CORRECT

5393
5394

027250
027c52

104226
023737

g%gg

027262

104227

5395

027260 001401

004174

MACY11 30(1046)
14=-SEP-81
15:10 PAGE 103
154
(DT SET DRIVE TYPE
004134

13%:

ERROR
CMP

226
E.ER,T.ER

sJERROR REG INCORRECT
sCHECK IF ERROR REG CORRECT

ERROR

227

JERRCR REG INCORRECT

BEQ

5398

gzgg

tTEST

SEQ 0102

15756 °

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

::YES, GO ON TO NEXT TEST

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

CDT SET AND DRIVE

A R R AR

AR R AR R AR

R R A

TYPE ERROR

]

5401
5402
5403
5404
5405
5406

e
;e
o
s
L
o

228;

5409

. %

027264
027266

000004
012737

000144

001200

5413
5414
5415

027300
027306
027314

012762
012762
012762

000040
000040
000002

000010
000026
000020

54717

027330

012762

002017

000000

56416

027274

027322

5418
5419
5420
5421
5422
5423
54246
5425
5426
5427

027336
027342
027350
027356
027360
027362
027366
027372
027376
027400

5429

027404

5428

5430
5431
5432
5433
5434
5435
5436

5437
5438

027402

027412
027420
027426
027434
027442
027450
027456

027464
027472

5439
5440

02747¢4
027476

5442
5443

013702

012762

012700
012762
012762
005300
001370
005062
013700
105762
100402
005300
001373

001270

000000

000132
000440
000040

000026
000026

010026
004262
000000

004120

023737
001401

004160

004120

004130
004132
004134
004160
004170
004172
004174

1%:

3%:

004170

004130

4§%:

027506
027510

104161
023737

004172

004132

5%:

5445
5446

027520
027522

104162
023737

004174

004134

68%:

5448

027532

104163

5444

5447

027504

027516

027530

001401
001401

001401

SCOPE
MOV

#100.,8TIMES

2:D0 100.

MoV
MOV
MOV
MOV

#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#2 ,RKDCYL (R2)

;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE
;LOAD CYLINDER AND

MOV
MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BM]
DEC

#22.%4+2 RO
;ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKMR1(R2)
JFINISH COMMAND IN NORMAL MODE
WAITIM,RO
JWAIT FOR READY
RKCS1(R2)
3%
RO

MOV

104160
023737

5441

AND “ONTROLLER ERROR SET.

MOV

2%:

000000

000010
000012
000014
102216
000100
100001
000040

TST55:

000006

016237

016237
016237
016237
012737
012737
012737
012737

WITH CDT SET, 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, DRIVE TYPE ERROR,

:.tttttttttttttttttttttt'ttttttttttttttt'!ttitt!tttttttt'lttttttt

5410
5411

5412

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

BNE

$BASE ,R?2

#0,RKDA(R2)

ITERATIONS

;sLOAD RK611 BASE

;LOAD HEAD ADDRESS

#CDT!SEEK,RKCST1(R2)

sISSUE CDT!SEEK

MOV

RKCS1(R2),T.CS1

(MP
BEQ

E. CS1. .CS1
4$

;CHECK COMMAND AND STATUS REG.1 CORRECT
sJYES, CONTINUE

JYES, CONTINUE

sJYES, CONTIMNUE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
ERROR
(MP

BEQ

;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
sSTORE DRIVE STATUS REG
RKER(RZ2) ,T.ER
:STORE ERROR REG
#CDT'CERR'RDY'CDT'SEEK&(‘C<60>> E.CS1 ;LOAD EXPECTED CS1
#IR,E.CS2
;LOAD EXPECTED CSZ
lSVAL'DRA E.DS LOAD EXPECTED DRIVE STATUS REG
#DTVYE ,E. ER
JLOAD EXPECTED ERROR REG
160
E.CS2,T.(CS2

ERROR
CMP

161
E.DS,T.DS

ERROR
CMP

162
E.ER,T.ER

BEQ

ERROR

163

;sCHECK COMMAND AND STATUS REG. 2 CORRECT
sCHECK DRIVE STATUS REG. CORRECT
sCHECK ERROR REGISTER CORRECT

:YES, CLEAR RKé611

MY~

CZR6BDO RK611 DS LS (7 ?L PRT2
'ZRbBD P11
14=SEP=-81 13:47

CZR6EDO RK611 DSKLS CTRL PRT2
14-SEP=-81 13:47
CZR6BD.P11
027534
027542
027550
027556

004120
004130
004132
004134

004220

027564
027572
027600
027606
027614
027622
027630
027636
027642
027646
027654
027656
027660
027666
027670
027672
027700
027702
027704
027712
027714

100000

000000
004120
004130
004132
004134
004160
004170

000000
000010
000012
000014
000200
000100
004172
004174
004160
004170

mn 8
30(1046)
14-SEP-81
15:10 PAGE 104
155
(DT SET AND DRIYE TYPE ERROR
7%:

004226

004120

004130

MOV

T.CS1,P.CS1

MOV

T.ER,P.ER

MOV
MOV

118:

004172

004132

12%:

004174

00413«

13%:

r.cse,p.cse
T.DS,P.DS

MOV
MOV
MOV
mMov
MOV
MOV
Mov
CLR
CLR
CMP

#CCLR,RKCST1(R2)
RKCST(R2,,T.CS1
RKCS2(R2),T.CS2
RKDS(R2),7.DS
RKER(RZ) ,T.ER
#RDY E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CST

{MP

£,052,7.C52

BEQ
ERROR

BEQ

11%
224

12$

ERROR

225

BEQ

138

CMP

E.DS,T.DS

ERROR

226

BEQ
ERROR

TST56
227

CMP

104227

E.ER,T.ER

SEQ 0103

.STORE PREVIOUS CONTENTS OF

;
;
;

;

COMMAND AND STATUS REG 1
COMMAND AND STATUS R:G 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 (S2
;LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG
;CHECK COMMAND AND STATUS REG 1 CORRECT

;YES, CHECK CS2
;CS1 INCORRECT

;CHECK COMMAND AND STATUS REG 2 CORRECT

sYES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
:CHECK IF

DRIVE STATUS REG CORRECT

:YES, CHECK ERROR REG
;ERROR REG INCORRECT
sCHECK IF

ERROR REG CORRECT

;:YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

;'tlttttttt'ttt‘tttt.t'it't.tt'!'tt'i.'.....'.....'..'t."'0"".

S*TEST 56

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR

PUT CONTROLLER

%
N
%

ISSUE A _SEEK

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

%
LI

IN DIAGNOSTIC MODE.

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

RKO6 AND DRIVE TYPE ERROR

DRIVE

TYPE ERROR,

027774
030002
030010
030012
030014
030020
030024
030030

e =lelelelelele
lele e o)

027716

95449
5450
5451

MACY11

000144
001270
000040
000040

000023
000000
000017
000132
000440
000040
000026
004262
000000

001200
000010

000000

000026
000026

A2 ARttt
R ]

15756:

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE

::D0 100. ITERATIONS
sLOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE
;LOAD CYLINDER AND
;LOAD HEAD ADDRESS
;ISSUE SEEK
: ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1$

MOV
TSTB
BMI

WAITIM,RO
RKCS1(R2)
3%

MOV
MOV

CLR

2%:

#100.,$TIMES
$BASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#23 ,RKDCYL(R2)
#0,RKDA(R2)
#SEEK ,RKCS1(R2)
#22.%4+2 R0

RKMR1(R2)

FINISH COMMAND IN NORMAL MODE

AIT FOR READY

(ZR6BD.P11

13:47

030032

030216
030224
030232
030240
030246
030254
030262
030270
030274
030300

gmmwmmmbb

DO
NO NS WN =0V

owuAuAWVY
ANV
VNN
SOV
UYL
O

5547

MOV
MOV
MOV

SEQ 0104

28
RKCS1(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'RDY
' SEEK8<*C<GO>>,E.CST ;LOAD EXPECTED CS1

MOV

#IR,E.CS2

:LOAD EXPECTED €S2

000040
004160

004120

MOV

#DTYE .E.ER

:LOAD EXPECTED ERROR REG

004170

004130

4$:

004172

004132

5%:

004174

004134

€$:

MOV

100401

030210

DEC
BNE
MOV

MOV

100216

104167
737

N 8
14-SEP-81
15:10 PAGE 105
RKO6 AND DRIVE TYPE ERROR

000100

004120
004130
004132
004134

004220
004222
004224
004226

100000

000000
004120
004130

000000
000010
010012
000014
000200
000100
004172
004174
004160
004170

000000
000010
000012
000014

[ LT

VI AT AT
L
Y I I
I

A T AT N AN
I
N
I
L
I
I
I

TN NN DT AN TN TN NN w
Y I
I
L
I
IV LV LV IV TV IV IV IV IV IV VLY v
S WWWWWWWWWWNRONONNONODONNNDINN
b am a e b aaaa0 o

OVONOVNSEWN=O
VO NOWVSWN=O VRNV WN-=0O 00 ~

5505

14-SEP=-81

MACY11 3?;;0‘6)

CMP

BEQ

E.CST.T.CS1
48
164

E.CS2,7.CS2

:LOAD EXPECTED DRIVE

STATUS REG

*CHECK COMMAND AND STATUS REG.1 CORRECT
:YES, CONTINUE
;CHECK COMMAND AND STATUS REG.

*YES, CONTINUE

CMP

E.DS,T.DS

:CHECK DRIVE STATUS REG.

ERROR
CMP

166
E.ER,T.ER

:CHECK ERROR REGISTER CORRECT

ERROR

167

ERROR

BEQ
BEQ

165

*YES, CLEAR RK611

T.CS1,P.CS1

:STORE PREVIOUS CONTENTS OF

MOV

T.ER,P.ER

004132
00434
004760
004170

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#CCLR,RKCST(R2)
RKCS1(R2),T.CS1
RKCS2(R2).T.CS2
RKDS(R2),7.DS
RKER(R2).T.ER
#RDY ,E.CS1
#IR,E.CS2

004120

CLR
CMP

E.ER
E.CS1,T.CS1

MOV
MOV

(LR

BEO
11$:

004172

004132

128%:

004174

004134

13$:

104227

ERROR
CMP

BEQ

T.CS2,P.CS2
T.DS,P.DS

s.os

118

224

£.CS2,7.CS2

128

*"
:

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 CS1
*LOAD EXPECTED €S2
:
*LOAD EXPECTED DRIVE

STATUS REG

:LOAD EXPECTED ERROR REG
:CHECK COMMAND AND STATUS REG 1

*YES, CHECK (S2
2CS1

INCORRECT

*YES, CHECK DRIVE STATUS REG

225

+CS2 INCORRE(T

ERROR
CMP

226
E.ER,T.ER

*ERROR REG INCORRECT
“CHECK IF ERROR REG CORRECT

BEQ

ERROR

£.DS.T.DS
138

1S157

227

CORRECT

*CHECK COMMAND AND STATUS REG 2 CORRECT

ERROR

CMP
BEQ

2 CORRECT

CORRECT

$YES, CONTINUE

MOV

004130

7%:

CMP
BEQ
ERROR

#SVAL 'DRA'DDT,E.DS

SCHECK IF DRIVE STATUS REG CORRECT
SYES, CHECK ERROR REG

2:YES, GO ON TO NEXT TEST
:ERROR REG INCORRECT

:;Q.Q'.t'.t..."".".'."".'.....".Q"'."Q..'Qt.'.'..t".."'

SSTEST 57
I
e
‘e
.

SPEED LOSS FROM SHIFT REG.

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SEEK
TO A Re0s,
26 SECTOR FORMAT, TO CYLNDER 3, MEAD 1, DRIVE 0.
CLOCK

IN DIAGWOSTIC MODE UNTIL

PHASE

ADDRESS 6.

TURN

TMTM

CZREBDO RK611 DSKLS CIRL PRT?

(ZR6BD.P1

14-SEP-81

13:47

MACY11

3 0 (1046)

OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE AVAILIABLE AND

NN
NN TN AT AW
AN
LY IV LV IV LV IV TV LV TV

gmmmmwwwwwwwww
WA = O V00NNV
S W) =

olelelelelelelele]le]
PSurnrPurarGururGury
1
RONONONONONWNO

000026
000026

VIV
vA A
oo

000026
004262
000000

030650
030656
030664
030672
030700
030706
030714
030722

jelelelelelelele BN e lelele
Ll
O b
d e d —d
— O
VIRDROONONONONNY
NN NN

030642

2%:

010000
004160

004170

004130

4%:

004172

004132

5%:

004174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

100000

000000

100021

000000
000010
000012
000014
000200
000100
004172

il2222222222202t
R
2202222002l ]

SCOPE

MOV
MOV
MOV
MoV
MoV
MOV
MOV
MOV
MOV
MOV

DEC
BNE
CLR

3%:

000010
000012
000014
000216
000100

001401

1%:

004120
004130
004132
004134
004160
004170
004172
004174
004120

000000

TSTS57:

000010
000026
000020
000006
0000G0

SEQ 0105

SPEED LOSS ARE SET.

. %

001200

T 57

000144
001270
000040
000040
000003

14-SEP-81
15:10 PAGE 106
SPEED LOSS FROM SHIFT REG.

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
mMov

(LR

#100.,8TIMES

;:D0 100.

#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#3,RKDCYL(R2)

;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE
;LOAD CYLINDER AND

$BASE ,R2

#400,RKDA(R2)

ITERATIONS

;LOAD RK611 BASE

:LOAD HEAD ADDRESS

#SEEK ,RKCS1(R2) ;ISSUE SEEK
#22.%4+2 R0
; ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)

RKMR1(R2)
WAITIM, RO
RKCS1(R2)

;FINISH COMMAND IN NORMAL MODE
;WAIT FOR READY

RKCS1(R2),T7.CS1 ;STORE COUMMAND 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
#RDY ! SEEKR<*(<GO>>
,E.CS1 ;LOAD EXPECTED CS1
#IR,E.CS2
;LOAD EXPECTED (S2

#SVAL IDRA!SPDLSS,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#0,E.ER ;LOAD EXPECTED ERROR REG

E.CS1,T.CS1
?;0

:CHECK COMMAND AND STATUS REG.?'
;YES, CONTINUE

E.CS2,T.CS2

;CHECK COMMAND AND STATUS REG. 2 CORRECT
:YES, CONTINUE

?;1

E.DS,T.DS

:CHECK DRIVE STATUS REG.

;YES, CONTINUE

?;2

E.ER,T.ER

CuL

&CT

:CHECK ERROR REGISTER CORRECT

;;3

:YES, CLEAR RKk611

T.CS1,P.CS1

:STORE PREVIOUS CONTENTS OF

T.ER,P.ER

T.CS2,P.CS2
7.DS,P.DS

:
:

#CCLR,RKCS1(k2)
RKCS1(R2),T.CS1

COMMAND AND STATUS REG 1
COMMAND AND STATUS REG 2

DRIVE

STATUS REG

AND ERROR REG

;CLEAR RK611
;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
#RDY ,E.CS1
#IR.E.CS2

E.DS

:LOAD EXPECTED CS1
:LOAD EXPECTED (S2

*LOAD EXPECTED DRIVE STATUS REG

CORRECT

[ Yo|

CZR6BDO RK611 DSKLS CTRL PRT2

5617
§618

030726
030732

5620
5621
5622
5623
5624
5625
5626
5627

030742
030744
030752
030754
030756
030764
030766
030770

gggg

031000

5619 030740

5628

030776

c 9
14-SEP-81
15:10 PAGE 107
MACY11 3001 046)
157
SPEED LOSS FROM SHIFT REG.

005037
023737

004174
004160

104224
023737
001401
104225
023737
001401
104226
023737

.
004170

004130

11%:

004172

004132

12%:

004174

00413¢

13$:

001401

004120

5631

gggg

:LOAD EXPECTED ERROR REG
*CHECK COMMAND AND STATUS REG 1 CORRECT

ERROR
CMP
BEQ
ERROR
CMP
REQ
ERROR
CMP

224
£.(S2,T.CS2
12$
225
E.DS,T.DS
138
226
E.ER,T.ER

+CS1 INCORRECT
*CHECK COMMAND AND STATUS REG 2 CORRECT
“YES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
*CHECK IF DRIVE STATUS REG CORRECT
*YES, CHECK ERROR REG
*ERROR REG INCORRECT
*CHECK IF ERROR REG CORRECT

ERROR

227

*ERROR REG INCORRECT

BEQ

i l=lelelelelelelelelel L
lelelelelelelelelelelolelole
o)

031100
031104
031110
03i114
031116
031120
031122
031130
031136
031144
031152
031160
031166
03%174
031202
031210
031212
031214

031002
031004
031012
031016
031024
031032

0004
2737
3702
2762
2762
2762
2762
2762
2700
5762
762
5 300
1 370
5 062
3 700
5 762
0 402

5300
1373
6237
6237
6237
6237
2737
2737
2737
2737
3737
1401
4174
3737

11$

15760

DRIVE OFF

000440
000040

001200

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

*
.
T
a
Ta
T

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 DIAGNOSTIC MODE AND MAKE SURE DRIVE AVAILIABLE
AND DRIVE OFF TRACK ARE SET.

§
TST60:

SCOPE
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MoV

000010
000026
000020
000006
000000
000026
000026

00002¢
004262
000000

::YES, GO ON TO NEXT TEST

TRACK FROM SHIFT REG.

:A AiAE2S 2222222222223

000144
001270
000040
000040
000003
001000
000017
000132

*YES, CHECK (S2

2222323233 333232333232233323233232323332332233233232323233333232323223323233232322333 2]

5635
5636
5637
5638
5639
5640

5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
672

E.ER
£.CS1,T.CS1

RTEST 60

5634

2642
5643
5644
5645
5646
5647

CLR
CMP

BEQ

104227

SEQ 0106

1%:

2%:

000000
000010
000012
000014
000216
000100
100041
000000
004160

004120
004130
004132
004134
004160
004170
004172
004174
004120

3%:

004170

004130

4$:

MoV
MOV

DEC
BNE
CLR
Mov
TSTB
BMI
DEC
BNE

MoV
MoV
MOV
MOV
MoV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP

#100.,$TIMES
$BASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#3,RKDCYL(R2)
#1000,RKDA(R2)
#SEEK ,RKCS1(R2)
#22.%4+2 R0

2222022232222

R RN 22

;:D0 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE
;LOAD CYLINDER AND
;LOAD HEAD ADDRESS
;ISSUE SEEK
: ISSUE CLOCKS UNTIL PHASE ADDRESS 6

#DMD 'MCLK , RKMR1 (R2)
#DMD,RKMR (R2)
RO
1%

RKMR1(R2)
;FINISH COMMAND IN NORMAL MODE
WAITIM,RO
;WAIT FOR READY
RKCS1(R2)
3%
RO
2%
RKCS1(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
#RDY
! SEEK&<*(<G0O>> ,E.CST ;LOAD EXPECTED (S1
#IR,E.CS2
;LOAD EXPECTED (S2
#SVAL IDRA'DROT,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#0,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CS1
;CHECK COMMAND AND STATUS REG.1 CORRECT
4%
:YES, CONTINUE
174
£.(52,7.052
;CHECK COMMAND AND STATUS REG. 2 CORRECT

CZR6BDO RK611 DSKLS CTRL pnrz
CIR6BD.P11
14-SEP=81 13:4

5673
5674
5675
5676
5677
5678
5679

MACY11

COOOO—=
—.—J—l—.o

001401

COO0OCOOOO
[ B
R
e
b

30(1046
14-SEP-81
15:10 PAGE 108
160
DRIVE OFF TRACK FROM SHIFT REG.

004172

004132

5%:

004174

004134

68:

004120
004130
004132
004134

004220
004222
00422¢
004226

7%:

100000
000000
000010
000012
000014
-000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
004160
004170

004170

004130

11%:

004172

004132

12%:

004174

004134

13%:

BEQ
ERROR
CMP
BEQ
ERROR
CMP

5%
175
E.DS,T.CS
6%
176
E.ER,T.ER

MoV
MOV
MOV
MoV
MOV
MoV
MOV

;STORE PREVIOUS CONTENTS OF
:
COMMAND AND STATUS REG 1
;
COMMAND AND STATUS REG 2
;
DRIVE STATUS REG
AND ERROR REG
;
#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
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

BEG
ERROR
MOV
MOV
MOV
mMov

CLR
CLR

004120

CMP

BEQ

104227

SEQ 0107

ERROR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ

ERROR

’$
177
T.CS1,P.CS]
T.CS2,P.CS2
T.DS,P.DS
T.ER,P.ER

;YES, CONTINUE
sCHECK DRIVE STATUS REG. CORRECT
sYES, CONTINUE
;CHECK ERROR REGISTER CORRECT

;YES, CLEAR RK611

E.DS
E.ER

sLOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG

118

sYES,

TST61

;.YES, GO ON TO NEXT TEST

E.CS1,T.CS1

224
£.052,7.052
12%
225
E.DS,T.DS
13$
226
E.ER,T.ER
227

sCHECK COMMAND AND STATUS REG 1
CHLCK CS2

CORRECT

;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG 2 CORRECT
;YES, CHECK DRIVE STATUS REG
;€S2 INCORRECT
sCHECK IF DRIVE STATUS REG CORRECT
;YES, CHECK ERROR REG
sERROR REG INCORRECT
;CHECK IF ERROR REG CORRECT
;ERROR REG INCORRECT

J*TEST 61

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A PACK ACKNOWLEDGE

:®
;"
e
;'

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.

tvnnvnqxnnunx:
o

031434
031436
031444
031450
031456
031464
031472
031500
031506

WRITE LOCK ERROR FROM SHIFT REG.

;e
.

(=lelelelelelele
o
— OO

CONOWVNSB
W =200V
NN WN=O

(O LV LW TN LW, LW LW LV LW LV TV WL TV TV RV

NNNNNNNNNNNNNNNNNNN
PONLNINONONONONUND
=
e e
e =2 =

WL LW, LV, LV |

.';'*"tfittt'.Ql‘*i.t't't'.Q"'.Qtt.ittttt"*tt".'itfi!.'Q!"Qt"'tt

TO A RKO6, 26 SECTOR FORMAT, WITH CYLINDER 0,

:':ttttl‘tttttttQt'ttltttt'tt’t!it't'tttfiQttttittttttt'tt.tttittQtt
000144
001270
000040

001200
000010
000026
000020

000006

000132

000000

TST61:

SCOPE

MoV

#100. ,8$TIMES

MOV
MOV
MOV

#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#0,RKDCYL(R2)

MOV

#PACK ,RKCS1(R2)

MOV

MOV
MOV

;;D0 100.

ITERATIONS

$BASE ,R2

;LOAD RK611 BASE

#400,RKDA(R2)

:LOAD HEAD ADDRESS

#22.+%4+2,R0

;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE
;LOAD CYLINDER AND
;ISSUE PACK

s ISSUE CLOCKS UNTIL PHASE ADDRESS 6

oTM

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

CTRL PRT?2
P=81 13:47

wl ad anb anl anl <l axl wd aud anl) wb aul aild asld wdd

000440
000040

—_—
O

2%:

004170

004130

4%:

004172

004132

5%:

004174

004134

6%:

014120
004130
004132
004134

004220
004222
004c24
004226

7%:

100000

000000
004120
004130
004132
004134
004160
004170

100020

000000
000010
000012
000014
000200
000100
004172
004174
004160

004120

004170

004130

004172

004132

004174

004134

MOV
MOV

#DMD 'MCLK ,RKMR1
(R2)
#DMD .RKMRT (R2)

MOV
TSTB

WAITIM,RO
RKCS1(R2,

DEC
BNE
CLR

004000
004160

100202

104227

1%:

3%:

000100

001401

14-SEP-81
15:10
PAGE 109
30(1046)
WRITE LOCK ERROR FROM SHIFT REG.
761

00412C
004130
004132
004134
004160
004170
004172
004174
004120

000000
000010
000012
000014

032064

000026
000026

000026
004262
000000

T Y N TN
o N VTV
(=] NNV SSNWWWNNOND
—
n &~ CCONSHNNOCNNIONNVO OO

WWWWWWWWWWWWWWWWWWW

(oleleolelelelolelololelelelelolelelelele]

MACY11

BMI
DEC
BNE

MOV
MOV
MOV
MOV

RO
1%
RKMR1(R2)

SEQ 0108

;FINISH COMMAND IN NORMAL MODE
*WAIT FOR READY
£
:

RO
28
RKCS1(R2),T.CS1
RKCS2(R2).T.CS2
RKDS(R2),T.DS
RKER(R2).T.ER

:STORE
:STORE
:STORE
:STORE

#IR,E.CS2

:LOAD EXPECTED (S2

E.CST,7.CS1

:CHECK COMMAND AND STATUS REG.1 CORRECT

COMMAND AND STATUS REG 1
COMMAND AND STATUS REG 2
DRIVE STATUS REG
ERROR REG

MOV

#CERR'RDY
' PACKE<*C<G0>>,E.CS1

MOV
MOV

#SVAL
| SPDLSS,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#LE E.ER
:LOAD EXPECTED ERROR REG

MOV

CMP

BEQ
ERROR
CMP
BEQ
ERROR

4$
200
E.CS2,T.CS2
5%
201

BEQ
ERROR
CMP
BEQ

6$
202
E.ER,T.ER
7%

CMP

ERROR

MOV

MOV
MOV

E.DS,.T.DS

203

*YES, CONTINUE

:CHECK COMMAND AND STATUS REG. 2 CORRECT
*YES, CONTINUE

:CHECK DRIVE STATUS REG. CORRECT
*YES,

:CHECK ERROR REGISTER CORRECT

T.CS1,P.CS1

;STORE PREVIOUS CONTENTS or

1.DS.P.DS
T.ER.P.ER

:
:

T1.CS2.P.(S2

:"
:

COMMAND AND STATUS REG
1

COMMAND AND STATUS REG 2
DRIVE STATUS REG

AND ERROR REG

#CCLR,RKCS1(R2) :CLEAR
RKCS1(R2),T.CS1 :STORE
RKCS2(R2).T.CS2:STORE
RKDS(R2),T.DS
:STORE
RKER(R2).T.ER
:STORE

MOV
CLR
CLR
CMP

#IR,E.CS2
E.DS
E.ER
E.CS1,7.CS1

CMP

E.(CS2,T.CS2

CMP

£.DS,T.DS

BEQ
ERROR

BEQ
ERROR
BEQ
ERROR
CMP

BEQ

ERROR

CONTINUE

*YES, CLEAR Rk611

MOV
MOV
MOV
MOV
MOV
MOV

:LOAD EXPECTED CS1

RK611
COMMAND AND STATUS REG 1
COMMAND AND STATUS REG 2
DRIVE STATUS REG
ERROR REG

#RDY ,E.CS1

*LOAD EXPECTED CS1

18
224

SYES, CHECK (S2
*CS1 INCORRECT

12$
225

*YES, CHECK DRIVE STATUS REG
+CS2 INCORRECT

138
226

*YES. CHECK ERROR REG
:ERROR REG INCORRECT

E.ER,T.ER

15762

227

*LOAD EXPECTED
:LOAD EXPECTED
*LOAD EXPECTED
:CHECK COMMAND

(€S2
DRIVE STATUS REG
ERROR REG
AND STATUS REG 1 CORRECT

:CHECK COMMAND AND STATUS REG 2 CORRECT

*CHECK IF

DRIVE STATUS REG CORRE(T

*CHECK IF

ERROR REG CORRECT

$:YES, GO ON TO NEXT TEST
:ERROR REG INCORRECT

(ZR6BDO RK611 D SK
4
CZR6BD.P11

5785

S786

S;gg

J*TEST 62

5789

5792
5793

L
I

2%
i

5794

g;gg

i *

5800
5801
5802
5803

000004
012737
013702
012762
012762
012762

5805
5806
5807
5808
5809
5810

032132
032140
032144
032152
032160
032162

012762
012700
012762
012762
005300
001370

5812

032170

5811

5813

5814
5815

5816
5817
5818
5819

5820

5821

5822
5823
5824

5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840

SEG 0109

RR
R

SEEK INCOMPLETE

CLEAR RK06 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, CLOCK IN DIAGNOSTIC MODE UNT:L
PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE AND MAKE

SURE SPEED LOSS, SEEK INCOMPLETE, AND CONTROLLER ERROR

ARE

SET WITH DRIVE

AVAILIABLE RESET.

. %

032066
032070
032076
032102
032110
032116

5804

. %

5790
5791

5797
5798
5799

MACY11 30(1046)
14<-SEP-81
15:10 PAGE 110
761
WRITE LOCK ERROR FROM SHIFT REG.

032124

032164

032174

032200
032202

032204
032206
032214
032222

032230

032236

032244
032252
032260

032266
032274
032276
032300
032306
032310
032312
032320
032322
032324
032332

032334
032336
032344
(032352
032360

012762

000144
001270
000040
000040
000000

001200

000007
000132
000440
000040

000000

000400

000010
000026
000020

000006

000026
000020

005062

000026

105762

000000

001373
016237
016237
016237

000000
000010
000012

004320
004130
004132

012737

100206

004160

013700

100402
005300

016237
012737
012737
012737

023737
001401
104204
023737
001401
104205
023737
001401
104206
023737
001401

104207
013737
013737
013737
013737

000100
100020
000002

004160

MOV
MOV
MOV
MOV

$8ASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#0,RKDCYL(R2)

MOV
MOV
MOV
MOV
DEC
BNE

#UNLOAD ,RKCST(R2)
; ISSUE UNLOAD
#22.%4+2 RO
s ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%

MOV

1%:

CLR

004262

000014

E."tttt.tt.ttt't.ttttQtt"ttttttttQt.tlQQtQQttttt.'tn'Qtttt"'t.t
TST62:
SCOPE
MOV
#100.,8TIMES
;:D0 100. ITERATIONS

2%:

3%:

004134

BNE
MOV
MOV
MOV

3%
RO
2%
RKCS1(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

MOV

#(ERR!RDY!UNLOAD‘<‘C<GO>>,E.CS1 :LOAD EXPECTED (S1

T1STB

004130

4%:

004172

004132

5%:

004174

004134

68%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

BEQ
ERROR

CmMP

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV
MOV
MOV
MOV

RKCST1(R2)

RKER{(R2) ,T.ER

;WAIT FOR READY

IN NORMAL MODE

BM]
DEC

CMP

004170

JFINISH COMMAND

WAITIM, RO

MOV
MoV
MOV

004120

RKMR1(R2)

;LOAD HEAD ADDRESS

MOV

004170
004172
004174

#400,RKDA (R2)

sLOAD RK611 BASE
;CLEAR RK06 SUBSYSTEM
;PUT RK611 IN MAINT MODE
sLOAD CYLINDER AND

:STORE ERROR REG

#IR,E.CS2
;LOAD EXPECTED (CS?2
#SVAL
! SPDLSS,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#SKI ,E.ER
;LOAD EXPECTED ERROR REG

E.CST1,T.CST
4%
204
E.CS2,T7.CS2
" 5%
205
E.DS,T.DS
6%
206
E.ER,T.ER
’$
207

T.CS1,P.CS1
7.(S2.P.CS2
T1.DS,P.DS
T.ER,P.ER

;CHECK COMMAND AND STATUS REG.1 CORRECT

JYES, CONTINUE

;CHECK COMMAND AND STATUS REG. 2 CORRECT
sYES, CONTINUE

JCHECK DRIVE STATUS REG.
JYES, CONTINUE

CORRECT

sCHECK ERROR REGISTER CORRECT
JYES, CLEAR RK611
sSTORE PREVIOUS CONTENTS OF
;
COMMAND AND STATUS REG 1
;
COMMAND AND STATUS REG 2
.
DRIVE STATUS REG

Ui
T ]

CIZR6BDO Rk611 DSKLS CTRL PRT2
CZR6BD.P11
14=SEP=81 13:47

(ZR6BDO Rk611
CIREBD.P1T

5841
5842
5843
5844
5845
5846
5847
5848

5849
5850
5851
5852

5853
5854
5855

032366
032374
032402
032410
032416
032424
032432
032440
032444
032450
032456

DSKLS CTRL PRT2
14=SEP=81 13:47

012762
016237
016237
016237
016237
012737
012737

005037
005037
023737
001401

5856
5857
5858
5859
5860

032460
032462
032470
032472
032474
032502
032504
032506

104224
023737
001401
104225
023737
001401
104226
023737

ggg%

032516

104227

5861

032514

001401

100000
000000
000010
000012
000014
000200
000100

004172
004174
004160

MACYN

3?é;066)

000000
004120
004130
004132
004134
004160
004170

004170

004130

11$:

004172

.
004132
-~

128:

004174

004134

13%:

225
E.DS.T.DS
138
226
E.ER,T.ER

ERROR

227

:ERROR REG INCORRECT

224
E.CS2,T.CS2
12%

BFQ

;*TEST 63

5893
5894
5895

5896

032520
032522
032530
032534
032542
032550
032556
032564
032572
032576
032604
032612
032614
032616
032622
032626
032632

000004
012737
013702
012762
012762
012762
(12762
012762
012700
012762
012762
005300
001370
005062
013700
105762
100402

(032646

016237

032634
032636
032640

005300
001373
016237

000144
001270
000040
000040
000000
000400
000005
000132
000440
000040

001200

00C026
004262
000000

000000
000010

18%:

2$:

004120
004130

AR R

R T

:;YES, GO ON TO NEXT TEST
R

R R AR AR AR AR R

AR AN NI R

AR AN TR AR AR R R RN

NON-EXECUTABLE DRIVE FUNCTION FROM SHIFT REG.

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR
PUT CONTROLLER IN DIAGNGSTIC MODE. ISSUE
A DRIVE CLEAR TO A RK06, 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 FUNCTION, AND
CONTROLLER ERROR ARE SET WITH DRIVE AVAILIABLE RESET.
AR AL

TST63:

000010
000026
000020
000006
000000

000026
000026

15763

3
-

wvi

5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892

E.DS
E.ER
E.CS1,T.CS1
1%

AR A AR

-9

SEG 0110

ERROR
(MP
BEQ
ERROR
(MP

ERROR
(MP
BEQ

gggg

.
.
.
.
i
.
.

111

;
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
:LOAD EXPECTED DRIVE STATUS REG
:LOAD EXPECTED ERROR REG
:CHECK COMMAND AND STATUS REG 1 CORRECT
:YES, CHECK (S2
:CS1 INCORRECT
:CHECK COMMAND AND STATUS REG 2 CORRECT
:YES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
:CHECK IF DRIVE STATUS REG CORRECT
:YES, CHECK ERROR REG
:ERROR REG INCORRECT
:CHECK IF ERROR REG CORRECT

#CCLR,RKCST(R2)
RKCST(R2),T.CS1
RKCS2(Rk2),T.CS2
RKDS(R2),7.DS
RKER(R2),T.ER
#RDY ,E.CS1
#1R,E.CS2

5864

5867
5868
5869
5870
5871
5872
gg;z

PAGE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
(LR
(LR
CMP
BEQ

004126

14-SEP-81
15:10
SEEK INCOMPLETE

3%:

ARl

SCOPE
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BMI

DEC
BNE
MOV
MOV

R 2332222322332
222 0

#100.,8TIMES
;:00 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RK06 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#0,RKDCYL(R2) ~ ;LOAD CYLINDER AND
#400,RKDA(R2) _ :LOAD HEAD ADDRESS
#CLEAR,RKCST(R2)
s ISSUE CLEAR
#22.%4+2 R0
; ISSUE 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 READY
RKCS1(R2)
3%

RO
2%
RKCS1(R2),T.CS1

;STORE COMMAND AND STATUS REG 1
RK(S2(R2),T.(S2 ;STORE COMMAND AND STATUS REG 2

TIR6BD.P11

5897
5898

032654
032662

5903
5904

032720
032726

5899
5900
5901
5902

14=SEP=-81 13:47

016237
016237

032670
032676
032704
032712

012737
012737
012737
012737

5905
5906
5907
5908
5909
5910
5911
5912
5913
5914

032730
032732
032740
032742
032744
032752
032754
032756
032764
032766

104210
023737
001401
104211
023737
001401
104212
023737
001401
104213

5917
5918
5919
5620
5921
5922
5923
5924
5925
5926
5927
5928
5929

033004
033012

013737
013737

5915
5916

5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
232?

5942

2322

032770
032776

033020
033026
033034
033042
033050
033056
033064
033072
033076
033102

033110
033112
033114
033122
033124
033126
033134
03}136
033140
033146
033150

000012
000014

MACY11

004132
004134

MOV
MOV

RKDS(R2),T7.DS
RKER(RZ2),T.ER

;sSTORE DRIVE STATUS REG
;STORE ERROR REG

004120

CMP
BEOQ

E.CS1,T.(CS1
43

sCHECK COMMAND AND STATUS REG.T CORRECT
sYES, CONTINUE

100204
000100
100020
000004
004160

004160
004170
004172
004174

004170

004130

004172

004132

S%:

004174

004134

68%:

013737
013737

004120
004130

004220
004222

7%:

012762
016237
016237
016237
016237
012737
012737
005037
005037
02373?

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
904130
004132
004134
004160
004170

023737
001401

001407
104224
023737
001401
104225
023737
001401
104226
023737
001401
104227

004132
004134

MOV
MOV
MOV
MOV

4%:

FRROR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

MOV
MOV

004224
004226

M0V
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CIR
CMP

004720

004170

004130

11%:

004172

004132

12%:

004174

0047134

13%:

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ

o
:
1t
2
I
L

SEQ 011

#CERR!RDY!CLEARRB<*(<GO>>,E.CST ;LOAD EXPECTED CS1
#IR,E.(S2
sLOAD EXPECTED (S2
#SVAL !SPDLSS,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#NXF E.ER
;LOAD EXPECTED ERROR REG
210
E.CS2,7.(S2
5%
211
E.DS,T.DS
6%
212
E.ER,T.ER
7%
213

;CHECK COMMAND AND STATUS REG. 2 CORRECT
JYES, CONTINUE
;CHECK DRIVE STATUS REG. CORRECT
JYES, CONTINUE
sCHECK ERROR REGISTER CORRECT
;YES, CLEAR RK611

T.CS$1,P.CST
1.(S2,P.(CS2

;STORE PREVIOUS CONTENTS OF
;
COMMAND AND STATUS REG 1

11$%

;JYES, CHECK (CS2
(51 IN€ORRECT
CHECK COMMAND AND STATUS REG 2 CORRECT
YES CHECK DRIVE STATUS REG
:C52 INCORRECT
sCHECK IF DRIVE STATUS REG CORRECT
sYES, CHECK ERROR REG

T.DS,P.DS
T.ER,P.ER

;s
COMMAND AND STATUS REG 2
.
DRIVE STATUS REG
.
AND ERROR REG
#CCLR,RKCST1(R2) ;CLEAR RA611
RKCST1(R2),7.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
sSTORE 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
E.CS1.7.E5)
;CHECK COMMAND AND STATUS REG 1 CORRECT

224

E.CS2,T7.CS2

ERROR
CMP
BEQ
ERROR

12%
225
E.DS,T.DS
13%
226
E.ER,T.ER
TST64
227

22222222222

'TEST 64

5945
5946
5947
5948
5946
5950

2321

30(1046)
14-SEP-81
15:10 PAGE 112
163
NON=-EXECUTABLE DRIVE FUNCTION FROM SHIFT REG.

JERROR
;CHECK
;;YES,
JERROR

REG INCORRECT
IF ERROR REG CORRECT
GO ON TO NEXT TEST
REG INCORRECT

222222223222223 1232312

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 RK06, IN 24 SECTOR FORMAT, CYLINDER 0O, HEAD O,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE AC LOW, DRIVE
DETECTED SERCOM PARITY, AND CONTROLLER ERROR SET WITH

DRIVE AVAILABLE RESET.

YTM

(IR6BDO RK611 DSKLS CTRL PRT2

Y
E
MACY11 30(1046)
14=SEP-81
15:10 PAGE 113
T64
AC LOW AND (=D PARITY FROM SHIFT REG.

§5953%

5954

5955

5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975

5976

033152

033154

033162
033166
033174
033202
033210
033214
033222
033230
033232
033234
033240
033244
033250
033252
033254
033256
033264
033272
033300
033306
033314

5977 033322
5978 033330
5979 033336
5980 033344
5981
033346
5982 033350
5983 033356
5984
033360
5985 033362
5986 033370
5987 033372
5988 033374
5989 033402
5990 .033404
5991
033406

5992

033414

5993 033422
5994 033430
5995
5996 033436
5997 033444
5998 033452

5999

6000
6001
6002
6003
6004
6005
6006
6007
6008

033460
033466
033474
033502
033510
033514
033520
033526
033530
033532

000004

012737

013702
012762
012762
012762
012700
012762
012762
005300
001370
005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737

000144

001270
000040
000040
010011
000132
000440
000040

001200
000010
000026
000000
000026
000026

000026
004262
000000

AR R AR R AR R AR R RN R

TST64:

1%:

°$:

SCOPE

MOV

#100.,8$TIMES

;:D0 100, ITERATIONS

MOV

#IR,E.CS2

;LOAD EXFECTED (S2

MOV
MOV
MOV
MOV
MOV
MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BMI
DEC
BNE
MOV
MOV
MOV
MOV
MOV

000000
000010
000012
000014
110210
000100
100010
000010
004160

004120
004130
004132
004134
004160
004170
004172
9004174
004120

3%:

004170

004130

4%:

004172

004732

5%:

004174

004134

6%:

004120

004220

7%:

013737
013737

004132
004134

004224
004226

MOV
MOV

012762
016237
016237

100000
000000
000010

000000
004120
004130

MOV
MOV
MOV

012737

012737
012737
023737
001401
104214
023737
001401
104215
023737
001401
104216
023737
001401
104217
013737

013737

016237

016237
012737
012737
005037
005037
023737
001401
104224
023737

004130

000012
000014
000200
000100
004177
004174
004160
004170

004222

004132
004134
004160
004170

004120
004130

11%:

TR R R AR R AR RN R RN R AN R AR R R I AR R RN

MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

MOV

MOV
MOV
MOV
MOV
(LR
(LR
CMP
BEQ
ERROR
(MP

SEG 0112
C AR R

R RO ®

$BASE ,R2
sLOAD RK611 BASE
#SLLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#SRTSPL!CFMT ,RKCST1(R2)
;ISSUE SRTSPL!CFMI
#22.%4+2 RO
s ISSUE CLOCKS UNTIL PHASE ADDRESS 5
#DMD !MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2)
RO
1%
RKMR1(R2)
JFINISH COMMAND IN NORMAL MODE
WAITIM,RO
JWAIT FOR READY
RKCS1(R2)
3%
RO
2%
RKCS1(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'CFMT'RDY!SRTSPL!'CFMTR<*(<GO>>,E.CST ;LOAD EXPECTED (S1
#SVAL 'ACLO,E.DS
#DRPAR,E.ER
E.CS1,T.CST
4%
214
E.CS2,T.CS2
5%
215
E.DS,T.DS
6%
216
E.ER,T.ER
7%
217
T.CS1,P.CST

T.CS2,P.(CS2
T.DS,P.DS
T.ER,P.ER

;LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG
sCHECK COMMAND AND STATUS REG.1 CORRECT
JYES, CONTINUE
sCHECK COMMAND AND STATUS REG. 2 CORRECT
sYES, CONTINUE
;CHECK DRIVE STATUS REG.
JYES, CONTINUE

CORRECT

;CHECK ERROR REGISTER CORRECT
sJYES, CLEAR RK611

;STORE PREVIOUS CONTENTS OF

COMMAND AND STATUS REG 1

;
COMMAND AND STATUS REG 2
;.
DRIVE STATUS REG
:
AND ERROR REG
#CCLR,RKCST1(R2) ;CLEAR RK611
RKCST1(R2),7.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2

RKDS(R2),T7.DS
sSTORE DRIVE STATUS REG
RKER(R2) ,T.ER
sSTORE ERROR REG
#RDY ,E.CST
;LOAD EXPECTED CS1
#IR,E.CS2
sLOAD EXPECTED (S2
E.DS
sLOAD EXPECTED DRIVE STATUS REG
E.ER
sLOAD EXPECTED ERROR REG
£.051.7.L51
JCHECK COMMAND AND STATUS REG 1 CORRECT
11%
. JYES, CHECKk (S2
224
2CS1 INCORRECT
E.CS2,7.CS2
;CHECK COMMAND AND STATUS REG 2 CORRECT

CZR6BDO RK611 DSKLS CTRL PRT2
CIR6BD.P1Y
14=-SEP=-81 13:47

TN
VAT

OOV
s S
(o 0 ol 0 L WP ol S T |

MACY11

30(1046)
T64

001407

1046225

023737
001401

004172

004132

12%:

023737
001401

004174

004134

138

104226

104227

14-SEP-81
15:10
PAGE 114
AC LOW AND (=D PARITY FROM SHIFT REG.

SEQ 0113

BEQ
ERROR

12%
225

;YES, CHECK DRIVE STATUS REG
+CS2 INCORRECT

BEQ

13$

*YES, CHECK ERROR REG

CMP

ERROR

£.DS,T.0S

226

CMP

E.ER,T.ER

ERROR

227

BEQ

2222333233222

LATEST 65

15165

“CHECK

DRIVE

STATUS REG CORRECT

*ERROR REG INCORRECT
“CHECK

ERROR REG CORRECT

*:YES, GO ON TO NEXT TEST
*ERROR REG INCORRECT

2323232323322 23333323332323332233233232332332323323233333233323232321

ILLEGAL DISK ADDRESS ERROR FROM SHIFT REG.

- %

e
T
e

e
i
e
T

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A RECALIBRATE
TO AN RK06, IN 26 SECTOR FORMAT, CYLINDER 0, HEAD
1

DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
SPEED LOSS, ILLEGAL DISK ADDRESS ERROR, AND CONTROLLER
ERROR ARE SET WITH DRIVE AVAILABLE RESET.

- %

U\NNNN%NNNWNO

o
N
W N O WWWWWNWNWN W~
~ O =N NNNNNNN ~NW

WS
=2 WRONONONONONONON
= ?
NN S
NN
Nhororo W

034014
034022

:-. (1223323233232 233323333322323332223233233323332332333233232323233322333332322322323}
=
= lelelelelelelelelolel
Lt lelelelelelelelelelelelelele e
NOON) = b b b b b e 2 OO0
=D
Nt
awauCa D=

6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019

[=lelelelelele
e

CIR6BDO RKE11 DSKLS CTRL PRT?
14-SEP-B81 13:47
CZR6BD.PN

000144
001270
000040
000040
000000
000400

000013
000132
010440
000040

001200

TS765:

000010
000026
000020
000006
000000
000026
000026

000026
004262
000000

#100.,$TIMES
$BASE ,R2
#SCLR.RKCS2(R2)
#DMD,RKMRT (R2)
#0,RKDCYL(R2)

MOV

#RECAL ,RKCS1(R2)

MOV

1%:

2%:

3$:

000000
000010
000012
000014

SCOPE
MOV
MOV
MOV
MOV
MOV

100212
000100
100020
002000
004160

MOV
MOV
MOV

DEC
BNE
CLR
MOV
TSTB
BM]
DEC
BNE
MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV

CMP
BEQ

004170

004130

4$:

004172

004132

#400,RKDA(R2)
#22.%442 R0

::DO 100. ITERATIONS
*LOAD RKG11 BASE
:CLEAR RKO6 SUBSYSTEM
:PUT RK611 IN MAINT MODE
:LOAD CYLINDER AND

:LOAD HEAD ADDRESS

- ISSUE RECAL

;1SSUE 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 READY

RKCS1(R2)
3$
RO
2%
RKCS1(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(RZ).T.ER
*STORE ERROR REG
#CERR'RDY 'RECALR<*C<GO>>,E.CST :LOAD EXPECTED CS1
#IR,E.CS2
:LOAD EXPECTED (€S2

#SVAL
| SPDLSS,E.DS :LOAD EXPECTED DRIVE STATUS REG
#1DAE ,E.ER
:LOAD EXPECTED ERROR REG

*CHECK COMMAND AND STATUS REG.1
*YES, CONTINUE

CORRECT

ERROR

E.CST.T.CS1
4%
220

BEQ
ERROR
CMP
BEO

5%
221
E.DS,T.DS
6%

:CHECK COMMAND AND STATUS REG.

*YES, CONTINUE

2 CORRECT

CMP

£.CS2,T.CS2

:CHECK DRIVE STATUS REG.
JYES, CONTINUE

CORRECT

(ZR6BDO RK611 DSKLS CTRL PRT2
rIR6BD.P11
14=SEP=-81 13:47
6065
6066
6067
6068
6069

034024
034026
03403¢
034036
034040

104222
023737
001401
104223
013737

6071
6072
6073
6074
6075
6076
6077
6078
6079

034054
034062

6070

6080
6081
6082
6083
6084
6085
6086

6087

004176

004134

6%:

004120

004220

7%:

013737
013737

004132
004134

004224
004226

034070
034076
034104
034112
034120
034126

012762
016237
016237
016237
016237
012737

100000
000000
000010
000012
000014
000200

034142
034146
034152
034160
034162
034164

005037
005037
023737
001401
104224
023737

004172
004174
004160

034046

034134

034172

5088
6089

034174
034176

6091
6092

034206
034210

6090
6093
gggg

MACY11 30(1046)
165

034204

034216

034220

013737

012737

001401

104225
023737

001401

104226
023737

001401

004130

000100

004170
004172
004174

004222

ERROR
CMP
BEQ
ERROR
MOV

222
E.ER,T.ER
7%
223
T.CS1,P.CST

MOV
MOV

T.DS,P.DS
T.ER,P.ER

MOV

T.CS2,P.(CS2

SEQ 0114

;CHECK ERROR REGISTER CORRECT
:YES, CLEAR RK611
:STORE PREVIOUS CONTENTS OF

COMMAND AND STATUS REG 1

11%:

CLR
CLR
CMP
BEQ
ERROR
CMP

E.DS
E.ER
E.CS1,T.CS1
1%
224
E.CS2,T7.CS2

12%:

ERROR
CMP

225
E.DS,T.DS

ERROR
CMP

226
E.ER,T.ER

ERROR

227

MOV

004120

004134

14=SEP-81
15:10 PAGE 115
ILLEGAL DISK ADDRESS ERROR FROM SHIFT REG.

MOV
MOV
MOV
MOV
MOV
MOV

004170

004132

:
COMMAND AND STATUS REG 2
:
DRIVE STATUS REG
:
AND ERROR REG
#CCLR,RKCST1(R2) ;CLEAR RK611
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REC 2
RKDS(R2),T.DS
:STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
#RDY ,E.CS1
:LOAD EXPECTED CS1

000000
004120
004130
004132
004134
004160

004130

138:

104227

BEQ

#IR,E.CS?2

:LOAD EXPECTED (S2

12%

:YES, CHECK DRIVE STATUS REG

138

15766

:LOAD EXPECTED DRIVE STATUS REG
:LOAD EXPECTED ERROR REG
:CHECK COMMAND AND STATUS REG 1 CORRECT
:YES, CHECK (S2
:CS1 INCORRECT
:CHECK COMMAND AND STATUS REG 2 CORRECT
;€S2 INCGRRECT
:CHECK IF DRIVE STATUS REG CORRECT

;YES, CHECK ERROR REG

:ERROR REG INCORRECT
:CHECK IF ERROR REG CORRECT

::YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

6096

e i22222323233233232332233232332232333233233323332323333333233332323332222332232220%]

gggg

-rfsr 66

IDAE

DETECTION

IN RK611

CONTROLLER

(PART

- %

6099
6100
6101
6102
6103
6104

I*
ix
*
*
*
I

2182

6107
6108

6109

6110
6111
6112

6113
6114

6115

6116
6117
6118
6119

6120

e
- &

034222

034224

034232
034236
034244

034252

034260

034266

034274
034276
034304
034310

034316

000004

012737

013702
012762
012762

012762

012737

012737
005046
113766
012662
012737

012762

000144

001200

CLEAR RK0O6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 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
SURE DRIVE AVAILABLE, ILLEGAL DISK ADDRESS ERROR,

AND CONTROLLER ERROR ARE SET.

:-. AR AR AR AR A AR R AR AR R
TST66:
SCOPE

MOV

#100. ,8$TIMES

MOV

#1002,RKDCYL (R2) "

001270
000040
000040

000010
000026

MOV
MOV
MOV

001002

004252

MOV

00100

000020

000000

004250

004250
000006
000006

000001

000017

004266

000000

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

MOV

CLR
MOVB
MOV
MOV

MOV

$BASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1 (R2)
#1002,CYLIN

#0,HDCODE

-(SP)
HDCODE ,1(SP)
(SP)
+ ,RKDA(R2)
#6,DRVTYP

::D0 100. ITERATIONS

:LOAD RK611 BASE
:CLEAR RK06 SUBSYSTEM
:PUT RK611 IN MAINTENANCE MODE

:LOAD CYLINDER ADDRESS

:LOAD HEAD ADDRESS
LOAD DRIVE TYPE FOR PRINT QuT

OSEEK RKCS1(R2) >:1SSUE SEEK TO RK06

034472
034474
034476
034504
034506

000026
000026

000026
004262
000000

30(1046)
T66

1%:

3%:

100216

000100
100001
002000
004160

004174
004120

004170

004130

4%:

004132

5%:

034510
034516
034520
034522
034530
034536
034544

024174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

034552
034560
034566
034574
034602
03461C
034616
034624
034630
034634
034642
034644
034646
034654
034656
034660
034666
034670

100000
000000

000000
004120
004130

004170
004172
104226

004120

004132

CMP
BEQ
ERROR
cMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

MOV
MOV
MOV
MOV

MOV
MOV
MOV
MoV
MOV
MOV
MOV

004132
004134
004160
004170

004130

MOV
TSTB
BMI
DEC
BNE
MoV
MOV
MOV
MoV
Mov
MoV
MoV
MOV

004172

000010
000012
000014
000200
000100
004172
004174
004160

MOV
MOV
MOV

DEC
BNE
CLR

2%:

000000
000010
000012
000014

14-SEP-81
15:10
PAGE 116
IDAE DETECTION IN RK61T CONTROLLER (PART 1)

10%:
11%:

CLR
CLR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

#22.%4+2 RO

SEQ 0115

;ISSUE CLOCK TO GET THROUGH PHASE 6

#DMD 'MCLK , RKMR1 (R2)

#DMD ,RKMR
1 (R2)
RO
1$

RKMR1(R2)
WAITIM, RO
§§CS1(R2)

JALLOW COMMAND TO FINISH
sLOAD WAIT TIME
;WAIT FOR READY

9
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REC.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
#CERR!RDY !<SEEK&*(<GO>>,E.CST
;LOAD EXPECTED (S1

#IR,E.CS2

;LOAD EXPECTED COMMAND AND STATUS REG.2

#1DAE ,E .ER

;LOAD EXPECTED ERROR REG

#SVAL !DRA,E.DS

E.CS1,T.CST
4%
230

E.CS2,T.CS2

;LOAD EXPECTED DRIVE

STATUS REG

;CHECK COMMAND AND STATUS REGT
;YES, CHECK CS?2
2CS1 INCORRECT
:YES,

E.DS,T.DS
6%

;CHECK DRIVE STATUS REG.
;YES, CHECK ERROR REG

232

E.ER,T.ER
’$
%33

.CS1,P.CS1T

1.Cs2,P.CS2
T.DS,P.DS

T.ER,P.ER

#CCLR,RKCST1(R2)

RKCS1(R2),T.CS1
RKCS2(R?2),T.CS2
RKDS(R2),T7.DS
RKER(R2) ,T.ER
#RDY ,E.CS1

#IR,E.CS2
E.DS
.ER

.CS1,7.CS1
.(S2,7.CS2
.T.DS

CORRECT

;CHECK CUMMAND AND STATUS REG2 CORRECT

231

U'l

01401

000132
000440
000040

MACY11

O D= VO
(elA=AV
1" Tl X

-t ed wd S OOOOO = OOOO

NONONONON
= NO VIl

wrr

034430
034436
034444
034452
034460
034462
034464

034422

N =2 —d'ed

6123
6124
6125
6126
6127
6128
6129

034324
034330
034336
034344
034346
034350
034354
034360
034364
034366
034370
034372
034400
034406
034414

(eleleleleBelelelelelelel Haelelelelelele]

6121
6122

CTRL PRT?2
P
-81 13:47

Mun

CZR6BDO RK611 DSK
4=
CZR6BD.P11

CHECK DRIVE STATUS REG.

:CS2 INCORRECT

;DRIVE STATUS REG.

CORRECT

INCORRECT

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

ERROR REG.

;ISSUE CONTROLLER CLEAR

;STORE
;STORE
;STORE
;STORE

COMMAND AND STATUS REG.1
COMMAND AND STATUS REG.?2
DRIVE STATUS REG.
ERROR REG

;LOAD EXPECTED CS1

;LOAD EXPECTED CS?2
;LOAD EXPECTED DRIVE STATUS REG.
;LOAD EXPECTED ERROR REG.

;CHECK COMMAND AND STATUS REG.7 CORRECT

sYES, CHECK (S2
;CS1 INCORRECT

;CHECK COMMAND AND STATUS REG2 CORRECT

;YES, CHECK DRIVE

;€S2 INCORRECT

STATUS REG

;CHECK DRIVE STATUS REG CORRECT
sYES,

CHECK ERROR REGISTER

;DRIVE STATUS REG INCORRECT

6177

6178

g}gg

034672

023737

034702

104227

034700 001401

004174

MACY11 30(1046)
14=SEP-81
15:10 PAGE 117
166
IDAE DETECTION IN RK&1T CONTROLLER (PART 1)
004134

6181

12%:

SEQ 0116

CMP

E.ER,T.ER

;CHECK ERROR REG CORRECT

ERROR

227

JERRCR REG. INCORRECT

BEQ

1ST67

;sYES,GO ON TO NEXT TEST

2322222332323 32323232322332323222232323323323323232323232333323333232332333323332323322322]

g}g%

tTEST 67

IDAE DETECTION IN RK611

CONTROLLER

(PART 2)

6184
6185
6186
6187
6188
6189

o
o
i*
)
L
L

6192

:'ttttttttttttt'tttttttttttittttttttttttttltittttttttttttttttt'tt

g}g?

6193
6194
6195
6196
6197

034704
034706
034714
034720
034726

000004
012737
013702
012762
012762

000144
001270
000040
000040

001200

6199

034742

012737

001022

6198

034734

6200

034750

6202

034760

6201

6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215

6216
6217
6218
6219
6220

gsg;

034756

034766
034772
035000
035006
035012
035020
035026
035030
035032
035036
035042
035046
035050

035052
035054
035062
035070
035076

035104

012762

012737

005046

113766

012662
012737
012762
012700
012762
012762
005300
001370
005062
013700
105762
100402
005300

001022

000000
004250

000006
000007
002017
000132
000440
000040

000010
000026

#100.,8TIMES
$BASE ,R2
#SCLR,RKCS2(R2)
#DMD RKHRI(RZ)

004252

MOV

#1022,CYLIN

000020

000026
000026

004120
004130
004132
004134

000100

004170

6225
6226
6227
6228
25%8

035126
035134
035142
035144
035146

012737
023737
001401
104230
023737

00C000
004160

004174
004120

6231

6232

035154

035156

001401

104231

004170

3$:

004160

012737

120401

1%:

2%:

000000
000010
000012
000014

012737

CLR

004266
000000

035112

035120

MOV

900001

6223

6224

MOV

004250

000026
004262
000000

002216

WITH ILLEGAL DISK ADDRESS ERROR RESET.

SCOPE
MOV
MOV
MOV
MoV

001373
(016237
016237
016237
016237

012737

T1ST67:

CLEAR RK0O6 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT
RK611 CONTROLLEK 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

004130

-(SP)

:LOAD HEAD ADDRESS

HDCODE ,1(SP)

BNE
MOV
MOV
MOV
MOV

2%
RKCS1(R2).T.C51
RKCS2(R2),T.CS2
RKDS(RZ).T.DS
RKER(R2),T.ER

;STORE
SYORE
*STORE
;STORE

MOV

#IR,E.CS2

:LOAD EXPECTZD COMMAND AND STATUS REG.2

MOV
CMP
BEQ
ERROR
CMP

#0,E.ER ;LOAD EXPECTED ERROF REG
E.CS1,T.CS1
;CHECK COMMAND AND STATUS REG! CORRECT
4%
SYES, CHECK (S2
230
sCST1 INCOPRECT
E.CS2,T..32
;CHECY COMMAND AND STATUS REG2 CORRECT

MOV
MOV
MOV
MOV
MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BM]
DEC

1 [0)")

4%:

#0,HDCODE

;LOAD CYLINDER ADDRESS

MOvV3

MOV

004172

01022 RKDCYL(RZ)

;:D0 100. ITERATIONS
:LOAD RK611 BASE
;CLEAR RK06 SUBSYSTEM
;PUT RK611 IN MAINTENANCE MODE

BEQ

ERROR

(SP)+ ,RKDA(R2)
#7 ,DRVTYP
:LOAD DRIVE TYPE FOR PRINT QUT
#CDT!SEEK ,RKCST1(R2)
;ISSUE SEEK TO RKO6
#22.%4+2 RO
;ISSUE CLOCK TO GET THROUGH PHASE 6
#0MD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKMR1(R2)
;ALLOW COMMAND TO FINISH
WAITIM,RO
;LOAD WAIT TIME
RKCS1(R2)
:WAIT FOR READY
3%
RO

CUMMAND AND STATUS REG.1
COMMAND AND STATUS REG.2
DRIVE STATUS REG
ERROR REG

#CDT'RDY!<SEEK &‘C<60>> E.CS?
JSVAL!DRA!PIP‘DD? E.DS

231

;LOAD EXPECTED CS1

;LOAD EXPECTED DRIVE STATUS REG

;YES, CHECK DRIVE STATUS REG.

+(S2 INCORRECT

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

MACY11

3?;;0‘6)

004172

004132
«

5%:

004174

004134

68:

004120
004130
004132
004134

004220
004222
004224
004226

7¢:

100000

0000G0
004120
004130
004132
004134

MOV
MOV
MOV
MOV
MOV

:CHECK DRIVE STATUS REG. CORRECT
;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.?
:
COMMAND AND STATUS REG.2
:
DRIVE STATUS REG.
ERROR REG.
:
#CCLR,RKCST1(R2) ;ISSUE CONTROLLER CLEAR
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.Z2
RKDS(R2),T.DS
;STORE DRIVE STATUS REG.
RKER(R2) ,T.R
;STORE ERROR REG

004170

MOV

#IR,E.CS2

6286

6287
6288

035234
035242
035250
035256
035264
035272
035300
035306
035312
035316
035324
035326
035330
035336
035340
035342
035350
035352
035354
035362
035364

OO0O0O—=O
—
e = O ON
NN
&S =

035160
035166
035170
035172
035200
035202
035204
035212
035220
035226

001401
104227

13:4:

000000
000010
000012
000014

004160

15:10

IDAE DETECTION IN RKSTT CONTROLLER (PART 2)
CMP
BEQ
ERROR
(MP
BEQ
ERROR
MOV
- MOV
MOV
MOV

MOV

CLR
CLR

SEQ 0117

E.DS,T.DS
6%
232
E.ER,T.ER
g
233
T.CS1,P.CST
r.CS2,P.CS2
T.DS,P.DS
T.ER,P.ER

#RDY ,E.CS1T

:LOAD EXPECTED CS1

E.DS
E.ER

:LOAD EXPECTED DRIVE STATUS REG.
:LOAD EXPECTED ERROR REG.

:LOAD EXPECTED (S2

004160

004120

004170

004130

10%:

004172

004132

118:

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP

12%:

ERROR
CMP

226
E.ER,T.ER

:DRIVE STATUS REG INCORRECT
:CHECK ERROR REG CORRECT

ERROR

227

;ERROR REG.

004174

004134

BEQ

E.CS1,T.CS1
108
224
E.CS2,7.CS2
11%
225
E.DS,T.DS

12%

15170

;CHECK COMMAND AND STATUS REG.1 CORRECT
:YES, CHECK CS2
:CS1 INCORRECT
;CHECK COUMMAND AND STATUS REG2 CORRECT
:YES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
:CHECK DRIVE STATUS REG CORRECT

:YES, CHECK ERROR REGISTER
::YES,GO ON TO NEXT TEST
INCORRECT

.'"ttttttttttfitttttttttt't't"tttttt.tt!t.t'ttt.tt!ttttttttttttt't

:*TEST 70
t

I
I

;v
3
it
.

IDAE DETECTION IN RK611

CONTROLLER

(PART 3)

CLEAR RKO6 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 0.

CLOCK IN DIAGNOSTIC MCDE UNTIL

PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MCDE AND MAKE
SURE DRIVE AVAILABLE, DRIVE OFF TRACK, SPEED LOSS.
g%%EGAL DISK ADDRESS ERROR, AND CONTROLLER ERROR ARE
-

- "

035366
035370
035376
035402
035410
035416
035424

035432

035440
035442

=l lelelele Lo o]

6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
4e73
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6086
6285

14-SEP-81

OCOO0O0O0O0OOO
O
VIRVNOONONONONY

CZR6BD. P11

14-SEP-81

'. 2222223232222 332323232232332232232322322322323223232322232232223222222222R22 0]

000144

001200
000010
000026

00020
25
00425
004250

000001

15170:

SCOPE

MOV

#100. ,STIMES

MOV
MOV

#SCLR,RKCS2(R2) ;CLEAR RKQ6 SUBSYSTEM
#DMD ,RKMRT(R2)
:PUT RK611 IN MAINTENANCE MODE

MOV
MOV
MOY
?o;
L

MOVB

;:D0 100.

ITERATIONS

$BASE ,R?2

:LOAD RK611 BASE

#2 RKDCYL(R2)
#2,CYLIN
0?§2?coo£

;LOAD CYLINDER ADDRESS

HDCODE ,1(5P)

:LOAD HEAD ADDRESS

N 9
PAGE 118

CZR6BDO RK611 DSKLS CTRL PRT;

000040

1%:

004120
004130
004132
004134
004160

000100

004170
004172
004174
004120

—_

100216

—_—

002000
004160
004170

001401
104231

004130

023737
001401

004172

004132

5%:

023737

004174

004134

6%:

~N NNNNNNYN

OONNNNN&N
NNWW NN

023737

004120
004130
004132
004134

004220
004222
004224
004226

100000

000000
004120
004130
004132
004134
004160
004170

000000
000010
000012
000014
000200
000100
004172
004174
004160

104225

7%:

004130

(SP)+,RKDA(R2)

;LOAD DRIVE TYPE FOR PRINT OUuT

RO
1%
RKMR1(R2)

;ALLOW COMMAND TO FINISH

MOV
TSTB

WAITIM,RO
RKCS1(R2)

;LOAD WAIT TIME

RKCS1(R2),T.

MOV
MOV

RKCS2(R2),T.

;STORE COMMAND AND STATUS REG.!
;STORE COMMAND AND STATUS REG.2

MOV

;STORE DRIVE STATUS REG
:STORE ERROR REG
#CERR'!RDY!<S EKB*(<GO>>,E.CS1
sLOAD EXPECTED (S1

MOV

#IR,E.CS2

;LOAD EXPECTED COMMAND AND STATUS REG.?2

CMP
BEQ
ERROR

E.CS1,T7.CS1
4%
230

;YES,

BEQ

5%
231
£.DS,.1.08
6%
232

BM]
DEC
BNE

MOV

C(MP

LRROR
C(MP
BEQ
ERROR
CMP

BEQ
ERROR
MOV

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV

004120
108:

3s
RO
2%

RKDS(R2),T.D
RKER(R2),T.E

;WAIT FOR READY

#SVAL !DRA!DROT!SPDLSS
,E.DS
:LOAD EXPECTED
#IDAE ,E.ER
;LOAD EXPECTED ERROR REG

E.C08.7.00¢

E.ER,T.ER

7%
233

Muj

T.(S2,P.CS2
T.DS,P.DS
T.ER,P.ER

MOV
CLR
CLR
CMP
BEQ
ERROR

CMP
BEQ
ERROR

#CCLR,RKCS1(
RKCS1(R2),T.
RKCS2(R2),T.
RKDS(R2),T.D
RKER(R2),T.E
#RDY ,E.CS1

#IR,E.CS2
E.DS
E.ER
E.CS1,T.CST
108
224

E.CS2,T.CS2
11%
225

DRIVE STATUS REG

;CHECK COMMAND AND STATUS REG1 CORRECT
CHECK (CS2

;CS1 INCORRECT
;CHECK COMMAND AND STATUS REGZ2 CORRECT

;YES, CHECK DRIVE STATUS REG.
:CS2 INCORRECT
sCHECK DRIVE STATUS REG. CORRECT
;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.Z
DRIVE STATUS REG.
ERROR REG.

s ISSUE CONTROLLER CLEAR

;STORE COMMAND AND STATUS REG.!

;STORE COMMAND AND STATUS REG.Z

;STORE DRIVE STATUS REG.
;STORE ERROR REG

;LOAD EXPECTED
;LOAD EXPECTED
;LOAD EXPECTED
;LOAD EXPECTED
;CHECK COMMAND

;YES, CHECK CS2

CS1
(SZ2
DRIVE STATUS REG.
ERROR REG.
AND STATUS REG.1 CORRECT

2CS1 INCORRECT
;CHECK COMMAND AND STATUS REGZ CORRECT
:YES,

CHECK DRIVE

:S2 INCORRECT

STATUS REG

(e Fan

SEQ 0118

#6,DRVTYP

OO0O0O0QOCOO
OO = = v e e
=
VNN ONONONONNY

NN NW-—=

OO o—=0O
_a —O0O
=
NN W W
S
NN N
WNW WWO

104232

PAGE 119

#SEEK ,RKCST1(R2) ;ISSUE SEEK TO RK06
#22.+4+2
R0
; ISSUE CLOCK TO GET THROUGH PHASE 6
#DMD !MCLK ,RKMR1(R2)
#DF.D ,RKMR1(R2)

MOV
MOV

L$:

B 10

MOV
MOV
MOV
MOV

DEC
BNE
(LR

3%:

15:10

IDAE DETECTION IN RK611 CONTROLLER (PART 3)
MOV

2%:

000000
000010
000012
000014

004170

036022

000026
000026

14-SEP-81

MOV

004266
000000

004262
000000

035630

035716
035724
035732
035740
035746
035754
035762
035770
035774
036000
036006

30(1046)
170

000026

100061

035636
035640
035642
035650
035652
035654
035662
035664
035666
035674
035702
035710

MACY11

NN,

Ww—=uvirorornornoronn

000006

WWWWWWWWWWWWW

035450

il olelelelelsle]e]
O=O0O0O00O0
b
a.aa

CZR6BDO RK611 DSKLS CTRL PRT2
14 S p-81 13:47
(ZR6BD.P11

036024
036032
036034
036036
036044
03¢ 046

023737
001401

104226
023737
001401

004172

004132

11%:

004174

004134

12%:

104227

CMP
BEQ
ERROR
CMP
BEQ
ERROR

SEQG 0119

;CHECK DRIVE STATUS REG CORRECT
;YES, CHECK ERROR REGISTER
;DRIVE STATUS REG INCORRECT
;CHECK ERROR REG CORRECT
;:YES,GO ON TO NEXT TEST
;ERROR REG. INCORRECT

E.DS,T.DS
12%

226

E.ER,T.ER
1ST71

227

°:tttt'fi!t.ttttt'*ttt't'"'i'ii*titfi'ttfi'tt.itttt"Qt'*ttt.'tlt.'

LATEST 71

IDAE

DETECTION IN RK611

CONTROLLER

(PART 4)

fl
TR TRTR

. *

. *
s

. %
t

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
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
ADDRESS 6.
DRIVE AVAILABLE, UNSAFE, ILLEGAL DISK ADDRESS ERROR
AND CONTROLLER ERROR ARE SET.

2222222222220
2322202222222
2222222 R )

036256
036264
036272

036300
036306
036310
036312

DEC
BNE
CLR

100216

000100
100001

042000
004160

004120

004170

004130

4%:

1$
RKMR1(R2?
WAITIM,RO
RKCS1(R2)

DEC
BNE
MOV

MOV
MoV
MOV
MOV

MO
MoV
MOV

BEQ
ERROR

CMP

(MP

;CLEAR RKO6 SUBSYSTEM
sPUT RK671 IN MAINTENANCE MODE
;LOAD CYLINDER ADDRESS

;LOAD HEAD ADDRESS

3%:

000000
000010
000012
000014

;LOAD RK611 BASE

HDCODE, 1(SP)
(SP) + ,RKDA(R2)
#6,DRVTYP
;LOAD DRIVE TYPE FOR PRINT OUT
#SEEK ,RKCS1(R2 ) ;ISSUE SEEK TO RKO06
#22.%4+2
RO
:ISSUE CLOCK TO 6ET THROUGH PHASE 6
#DMD 'MCLK ,RKMR1
(R2)
#DMD ,RKMR1(R2)

2%:

MOV
TSTB
BMI

#4 ,HDCODE
={5P)

1%:

#SCLR,RKCS2(R2 )
#DMD ,RKMR1 (R2)
#3,RKDCYL (R2?
#3,CYLIN

000026
000026

MOV
MOV
MOV
MOV
MOV

$BASE ,R2

lUNS'lDA

E.CST,

F"“)flv

004266
000000

000026
004262
000000

036242
036250

CLR
MOVB
MOV

;:D0 100. ITERATIONS

#100. ,8$TIMES

000001

000010
000026
000020
004252
004250

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

fl!

004250
000006
010006
000017
000132
000440
000040

73 171:

001200

-t

737
046

000144
001270
000040
000040
000003
000003
000004

000004
012737
013702

W
~
o

036050
036052
036060
036064
036072
036100
036106
636114
036122

o =lelaleleleleldolelele]
o Ok
b
O

6345
6346

C 10
14-SEP-81
15:10 P A GE 120
IDAE DETECTION IN RK 6 11 CONTROLLER (PART 3)

30(1046)
170

230
£.(S2.7.0%2

;ALLOW COMMAND TO FINISH
;LOAD WAIT TIME
;WAIT FOR READY

;STORE COMMAND AND STATUS REG o)

$2 ;STORE COMMAND AND STATUS REG.Z2
;STORE DRIVE STATUS REG
: STORE ERROR REG

EKR*C<G0>>,E.CS1

;LOAD EXPECTED (S1

;LOAD EXPECTED COMMAND AND STATUS REG.?2
sLOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG
;CHECK COMMAND AND STATUS REG1 CORRECT
;YES, CHECK CS?2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG2 CORRECT

fan

MACY11

CZR6BDO RK611 DSKLS CTRL PRTZ
14-SEP=-81 13:4
(ZR6BD.P11

CZREBDO RK611 DSKLS CTRL PRT2
14=SEP=81 13:47
(ZR6BD PN

6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428

6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440

036344
036346
036350
036356
036364
036372

001

036400
036406
036414
036422
036430
036436
036444
036452
036456
036462
036470
036472
036474
036502
036504
036506
036514
036516
036520
036526
036530

— ggy,

6413

6414

005037

004172

004132

58:

004174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7$:

100000

000000
004120
004130
004132
004134
004160
004170

000000
000010
000012
000014
000200
000100
004172
004174
004160

14-SEP-81

004170

004130

108$:

004172

004132

11%:

004174

;
004534

12%:

BEQ
ERROR
CMP
BEQ
ERROR
CMP
REQ
ERROR
MOV
MOV
MOV
MOV

D 10
PAGE 121

SEQ 0120

MOV
MOV
MOV
MOV
MOV
MOV
MOV

:YES, CHECK DRIVE STATUS REG.
©CS2 INCORRECT
“CHECK DRIVE STATUS REG. CORRECT
*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.
ERROR REG.
*
#CCLR,RKCS1(R2) :I1SSUE CONTROLLER CLEAR
RKCS1(R2),T.CS1 -STORE COMMAND AND STATUS REG.?
RKCS2(R2).T.C52 -STORE COMMAND AND STATUS REG.?
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

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP

108
224
£.CS2,T.CS2
11$
225
E.DS,T.DS
12$
226
E.ER,T.ER

BEQ

ERROR

104227

15:10

IDAE DETECTION IN RK&11 CONTROLLER (PART &)

CLR
CLR
CMP

004120

5%
231
E.DS,T.DS
6$
232
E.ER,T.ER
7$
233
1.CS1,P.CS1
1.CS2.P.CS2
1.DS.P.DS
T.ER,P.ER

E.DS
E.ER
E.CS1,T.CST

1ST72

227

*LOAD EXPECTED DRIVE STATUS REG.
*LOAD EXPECTED ERROR REG.

*CHECK COMMAND AND STATUS REG.1 CORRECT
*YES, CHECK CS2
*CS1 INCORRECT
*CHECK COMMAND AND STATUS REG2 CORRECT
“YES, CHECK DRIVE STATUS REG

+CS2 INCORRECT
“CHECK DRIVE STATUS REG CORRECT
*YES, CHECK ERROR REGISTER
*DRIVE STATUS REG INCORRECT
*CHECK ERROR REG CORRECT

*;YES,GO ON TO NEXT TEST
*ERROR REG.

INCORRECT

::ttttttkttt'tl'ttt'tttt'tttt'tttfittfittttttltttitttttti"ttttttt'

L*TEST

IDAE DETECTION IN RK611

CONTROLLER

(PART 5)

- %

i
i
e
*
e
i
i

6441
6442
6443
6444

6445

6446

- %

036532
036534
036542
036546
036554
036562
036570
036576

(=lelelelelelele]

6447
6448
6449
6450
6451
6452
6453
6454
6455
6456

3?;}046)

001407

perP

6410
6411
6412

036320

e P

6401
6402
6403
6404
6405
6406
6407
6408
6409

MACYT

CLEAR RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
WITH CDT SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD §.
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.

E:titttttttttitttttttt'tttttttfitttt'tfittt.ttttiti'tttttt'tt'tt-'t

000144
001270
000040
000040
000023
000023
000005

001200
000010
000026
000020
004252
004250

TS172:

SCOPE

MOV
MOV
MOV
MOV
MOV

MOV
MOV

#100.,$TIMES
$BASE .R2
#SCLR.RKCS2(R2)
#DMD ,RKMR1 (R2)
#23 ,RKDCYL(R2)

#23,CYLIN
#5,HDCODE

;;DO 100. ITERATIONS
*LOAD RK611 BASE
:CLEAR RK06 SUBSYSTEM
:PUT RK611 IN MAINTENANCE MODE
:LOAD CYLINDER ADDRESS
;LOAD HEAD ADDRESS

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

6458
6459
6460
6461
6462

036604

036606
036614
036620
036626
036634

005046

113766
012662
012737
012762
012700

6463
blbt
6465
6466
6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
gz;g

036640
036646
036654
036656
036660
036664
036670
036674
036676
036700
036702
036710
036716
036724
036732

6479
5480
6481
6482
6483
6484

036740
036746
036754
036762
036770
036772

012737
012737
012737
023737
001401
104230

6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
gzgg

037002
037004
037006
037014
037016
037020
037026
037030
037032
037040
037046
037054

0014017
104231
023737
001401
104232
023737
001401
104233
013737
013737
013737
013737

6500
6501
6502
6503
6504
6505
6506
6507
6508
6509
6510
6511
6512

037062
037070
037076
03710¢
037112
037120
037126
037134
037140
037144
037152
037154
037156

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737

gfigg

036774

012762
012762
005300
001370
005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737

023737

004250
000006
000007
002017
000132
000440
000060

E 10

MA(CY11 30(1046)
14-SEP-81
15:10 PAGE 122
172
IDAE DETECTION IN RK6TT CONTROLLER (PART 5)
(LR

000001
004266
000000
000026
000026

000026
004262
000000

1%:

000000
000010
000012
000014
102216

004120
004130
004132
004134
004160

000100
100421
042000
004160

004170
004172
004174
9004120

004170

004130

3%:

43:

004172

004732

5%:

004174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
004160
004170

004170

004130

004120
10%:

HDCODE
, 1(SP)
(SP)+,RKDA(R2)
#7 DRVTYP
;LOAD DRIVE TYPE FOR PRINT OQUT
#CDT!SEEK,RKCST1(R2)
:ISSUE SEEK TO RK06
#22.%4+2 R0
;ISSUE CLOCK TO GET THROUGH PHASE 6

MOV
MOV
MOV
(MP
BEQ
ERROR

#IR,E.CS2
:LOAD EXPECTED COMMAND AND STATUS REG.Z
#SVAL !DRA!SPDLSS!DDT,E.D5
;LOAD EXPECTED DRIVE STATUS REG
#UNS
! IDAE ,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CS1
;CHECK COMMAND AND STATUS REGT CORRECT
4%
;YES, CHECK (S2
230
;CS1 INCORRECT

E.(52,1.0l8

;CHECK COMMAND AND STATUS REGZ CORRECT

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MoV
MOV
MoV
MoV

5%
231
E.DS,T.DS
6%
232
E.ER,T.ER
’$
233
7.CS1.P.CS1
T.(S2,P.CS2
T.DS,P.DS
T.ER,P.ER

;YES, CHECK DRIVE STATUS REG.
;CS2 INCORRECT
sCHECK DRIVE STATUS REG. CORRECT
;YES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRECT
;CHECK ERROR REG. CORRECT
sYES, CHECK CONTROLLER CLEAR
;ERROR REG. INCORRECT
;STORE PREVIOUS VALUES OF
;
COMMAND AND STATUS REG.1
;
COMMAND AND STATUS REG.?2
:
22#35 ggeTUS REG.

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
(LR
CMP
BEQ
ERROR
(MP

#CCLR,RKCS1(R2)
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2) ,7.DS
RKER(R2) ,T.ER
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CS1
108
224
E.CS2,T.CS2

;ISSUE CONTROLLER CLEAR
;STORE COMMAND AND STATUS REG.!
;STORE COMMAND AND STATUS REG.?2
;STORE DRIVE STATUS REG.
;STORE ERROR REG
;LOAD EXPECTED CS1
;LOAD EXPECTED CS2
;LOAD EXPECTED DRIVE STATUS REG.
;LOAD EXPECTED ERROR REG.
;CHECK COMMAND AND STATUS REG.1 CORRECT
;YES, CHECK (S2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REGZ2 CORRECT

MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BMI
DEC
BNE
MOV
MOV
MOV
MOV
MoV

2%:

CMP

=(SP)

MOvVB
MOV
MOv
MOV
MOV

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKMR1(R2)
sALLOW COMMAND TO FINISH
WAITIM,RO
;LOAD WAIT TIME
RKCS1(R2)
;WAIT FOR READY
3%
RO
2%
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.!
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.Z
RKDS(R2),7.DS
;STORE DRIVE STATUS REG
RKER(R2) ,T.ER
;STORE ERROR REG
#CERR!CDT!RDY!<SEEKR*(<GO>>,E.CST
;LOAD EXPECTED (S1

SEQ 0121

(ZR6BDO RKk611 DSKLS CTRL PRT?
14-SEP=-81 13:47
CZREBD.P11

6516

6517
6518
6519

037164
037166
037170
037176
037200
037202
037210
037212

3?;;066)

104225

023737
001401

004172

023737
001401

004174

104224

F 10
14-SEP-81
15:10 PAGE 123
IDAE DETECTION IN RKkS11 CONTROLLER (PART §)

BEQ

001407

004132
004134

118:

:YES, CHECK DRIVE STATUS REG

CMP

£.DS,T.0S

“CHECK DRIVE STATUS REG CORRECT

ERROR

226

BEG

15173

BEQ

12%:

SEQ 0122

ERROR
CMP

225

12%

E.ER,T.ER

ERROR _ 227

104227

+CS2 INCORRECT

*YES, CHECK ERROR REGISTER

*DRIVE STATUS REG INCORRECT
*CHECK ERROR REG CORRECT

*:YES,GO ON TO NEXT TEST
*ERROR REG. INCORRECT

:;t"tt't"t.t' 1222322332222 223323233323232332323232323223233223232332232232232220203 ]

SeTEST

i
i

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

P
P
i

DRIVE 0. CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS
6. TURN CFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILABLE, UNSAFE, DRIVE OFF TRACK, ILLEGAL

037406
037414

037422
037430
037436
037444

037452

[sleleleleBelelelelelelel
L lelololelelelolelelellelelelelelelolo o)

6513
6514
6515

MACY11

001200

2
2
2
2
2 737

000144
001270
000040
000040
000023
000023
000006

3
2
2
2
2
2
2

004250
000006
000007
002017
000132
000440
000040

000001

5 046

1370

5062
3
5
0
5

000026
004262
000000

6
6
6
6
2

000000
000010

2
2
2
3

000100

000012
000014
102216
100441

042000
004160

000026
000026

1%:

2%:

004120
004130

004132
004134
004160
004170
004172
004174
004120

3%:

CONTROLLER

(PART 6)

DISK ADDRESS ERROR, AND CONTROLLER CLEAR ARE SET.

il Al

2Rl Rttt
Rl 2

SCOPE
MOV
MOV
MOV
MOV
MOv
MOV

#100.,8TIMES
$BASE ,R?
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#23 ,RKDCYL(R2)
#23,CYLIN

CLR
MOvVB
MOV
MOV
MOV
MOV

-(SP)
HDCODE, 1(SP)
(SP) + ,RKDA(R2)
#7 ,DRVTYP
;LOAD DRIVE TYPE FOR PRINT OUT
#CDT!SEEK,RKCST(R2)
;ISSUE SEEK TO RKkO06
,
#22.%4+2 R0
;ISSUE CLOCK TO GET THROUGH PHASE 6

DEC
BNE
CLR
MOV
TSTB
BMI
DEC
BNE
MOV
MoV
MOV
MOV
MOov

RO
1%
RKMR1(R2)

MOV

004266
000000

DETECTION IN RK611

WITH CDT "SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD 6,

i S T73:

000010
200026
000020
004252
004250

IDAE

MOV
MoV

#6 ,HDCODE

;:D0 100. ITERATIONS
;LOAD RKG11 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINTENANCE MODE
;LOAD CYLINDER ADDRESS
;LOAD +EAD ADDRESS

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

WAITIM, RO

RKCS1(R2)
3%
RO
2%
RKCS1(R2),T.CS1

sALLOW COMMAND TO FINISH
;LOAD WAIT TIME

;WAIT FOR READY

;STORE COMMAND AND STATUS REG.!

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

#CERR!CDT!RDY!<SEEKE*(<GO>>,E.CST

;LOAD EXPECTED (S$?

MOV
MOV
MOV

#IR,E.CS2
;LOAD EXPECTED COMMAND AND STATUS REG.Z2
#SVAL'DRA'DROT'DDT E.DS
;LOAD EXPECTED DRIVE STATUS REG
#UNS ! IDAE,E ER"
;LOAD EXPECTED ERROR REG

BEQ

CMP

£.051,7.059

:CHECK COMMAND AND STATUS REG!

;YES, CHECK (S2

CORRECT

(ZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.PI
14-SEP=-81 13:47

6569

0374564

104230

gg;g

037456

023737

6572

037464

001401

6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
gggz

6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600

037466
037470
037476
037500
037502
037510
037512
037514
037522
037530
037536

013737
013737
013737
013737

004130

4%:

004172

004132

5%:

004174

004134

6%:

s
004120
004130
004132
004134

00420
004222
004224
004226

7%:

G 10

14-SEP-81
15:10
PAGE 124
IDAE DETECTION IN RKS17 CONTROLLER (PART 6)

ERROR

SEQ Q123

(MP

€.052,.7.(S2

230

;CS1

BEQ

ERROR
CMP
BEG
ERROR
(MP
BEQ
ERROR

5%
231
E.DS,T.DS
6$
232
E.ER,T.ER
7$
233

;YES, CHECK DRIVE STATUS REG.

MOV
MOV
MOV
MOV
M0V
MOv
MOv
(LR
(LR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
CMP

#CCLR,RKCST(R2)
RKCST1(R2),T.CS1
RKCS2(R2),T.(S2
RKDS(R2) ,T7.DS
RKER(R2) ,T.ER
#RDY ,E.CS1T
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CS?
108
224
£.052.7.082
11%
225
E.DS,T.DS

;ISSUE CONTROLLER CLEAR
;STORE COMMAND AND STATUS REG.!
;STORE COMMAND AND STATUS REG.?2
;STORE DRIVE STATUS REG.
;STORE ERROR REG
sLOAD EXPECTED CS1
;LOAD EXPECTED (S2
sLOAD EXFECTED DRIVE STATUS REG.
sLOAD EXPECTED ERROR REG.
:CHECK COMMAND AND STATUS REG.1 CORRECT
;YES, CHECK (S2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG2 CORRECT
sYES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
;CHECK DRIVE STATUS REG CORRECT

MOV
MOV
MOV
Mov

1.(51,P.CS1
r.cs2,p.cse
T.DS,P.DS
T.ER,P.ER

INCORRECT

;CHECK COMMAND AND STATUS REGZ CORRECT
;CS2 INCORRECT
;CHECK DRIVE STATUS REG. CORRECT
sYES, 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.Z
3
gségg ggeTUS REG.

000000
004120
004130
004132
004134
004160
004170

00417C

004130

10%:

004172

004132

11%:

004174

004134

12%:

BEQ
ERROR
(MP
BEQ
ERROR

Vv
6607

AR R R R R R AR R

gggg

J*TEST

6610
6611
6612
6613
6614
6615

:*
A
;e
;e
;e
.

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
WITH CDT SET IN 24 SECTOR FORMAT, 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

037660
037662
037664
037672
037674

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737
001401
104225
023737

30(1046)
173

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

6601
6602
6603
6604
2292

037544
037552
037560
037566
037574
037602
037610
037616
037622
037626
037634
037636
037640
037646
037650
037652

104231
023737
001401
104232
023737
(001401
104233

004170

MACY11

001401
104226
023737
001401
104227

004120

22;9
6618
6619
6620
6621
6622
6623
6624

;e
037676
037700
037706
037712

037720

000004
012737
013702
012737

012737

000144
001270
000001
037726

001200
004244
001110

128
226
E.ER,T.ER
TST74
227

;YES, CHECK ERROR REGISTER
;DRIVE STATUS REG INCORRECT
sCHECK ERROR REG CORRECT
;:YES,GO ON TO NEXT TEST
;ERROR REG. INCORRECT

AR R R R A R R AR AR R R AR A AR AR AR AR AR AR R R

AR AR AR R AR

NON-STANDARD MESSAGE RECEIVING

2 AND 4.

:'"tt!'tttttttttttttttttttttttt!tttttt'tttttttfitt.!t'ttttt't.ttfitt
T5174:
SCOPE
.
MOV
#100.,8TIMES
:;D0 100. ITERATIONS
MOV
$BASE ,R2
;LOAD RK611 BASE
MOV
#1,DRVCOD
;LOAD INITIAL DRIVE CODE
MoV
#1% ,SLPERR
:LOAD LOOP ON ERROR LOCATION iOR
.
SUBTEST LOOP

000040
000040
001757
003400
004244
002017
000132
000440
000040

000026
00002¢%

000026
004262
000000

004130

#DMD ,RKMR1(R2)

#3400 RKDA(R2)

004132

6% :

004174

004134

7%:

8% :

004244

IN MAINTENANCE MODE

:LOAD HEAD 7

DRVCOD,RRCS2(R2)" ;LOAD DRIVE NUMBER

DEC
BNE

RO
28

MOV

#DMD _RKMRT (R2)

RKMR1 (R2)
WAITIM,RO
RKCS1(R2)

:ALLOW COMMAND TO FINISH
*LOAD WAIT TIME
“WAIT FOR READY

RKCS1(R2),7.CS1

;STORE

E.DS
E.ER

:LOAD EXPECTED DRIVE STATUS REG.
:LOAD EXPECTED ERROR REG.

BM]
DEC
BNE

4$
RO
38

MOV
MOV
MOV
MOV
MOV
BIS

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
#CDT!RDY!<SEEKR~C<GO>>,E.CS1
;LOAD EXPECTED (S1
DRVCOD ,E.CS2
:LOAD EXPECTED €S2
#IR.E.(CS2

CLR
CLR

5%:

:PUT RK611

#CDT!SEEK,RKCST(R2)
;ISSUE A SEEK WITH CDT SET
#22.%4+2 R0
-ISSUE CLOCKS THROUGH PHASE &
#DMD 'MCLK ,RKMR1
(R2)

MOV

004120

:CLEAR RK06 SUBSYSTEM

MOV
MOV
MOV

4%:

004172

COMMAND AND STATUS REG.1

CMP
BEQ
ERROR

E.CS1,T.CS1
5$
234

:CHECK COMMAND AND STATUS REG.1
SYES, CHECK (S2
:CS1 INCORRECT

BEQ

:YES, CHECK DRIVE STATUS REG.

CMP

E.ER,T.ER

:CHECK

DRVLOD

*GENERATE NEXT DRIVE

CMP

ERROR
CMP
BEQ
ERROR
BEQ
ERROR
SCOP1
ASL

BIT

BEQ

E.CS2,T7.CS2
235
£.DS,T.DS
7%
236

8$
237

#B1T3,DRVCOD
1%

CORRECT

*CHECK COMMAND AND STATUS REG.2 CORRECT
:CS2 INCORRECT
*CHECK DRIVE STATUS REG CORRECT
*YES., CHECK ERROR REG
:DRIVE STATUS REG INCORRECT
IF

ERROR CORRECT

:YES, CHECK IF LOOP ON ERROR
*ERROR REG INCORRECT
:CHECK IF LOOP ON ERROR

SCHECK IF FINISHED
*NO,

COME

TRY NEXT COME

t'tQtttttfltQttttttit"t'tttttttttttttttttttt.tttttt'ttttt‘tttt'

«resr
l'

004244
000010

#1757 ,RKDCYL(R2)" ;LOAD CYLINDER ADDRESS REG

+»

001647

004170

MOV

CLR
MOV
ISTB

6664
6665
6666

004120
004130
004132
004134
004160
004170
004170

#SCLR,RKCS2(R2)

MOV

2%:

DRIVE BUS PARITY ON NON-STANDARD MESSAGE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR,

PUT

THE RK611

CONTROLLER

IN DIAGNOSTIC MODE.

A SEEK TO AN RKO6 IN 26 SECTOR FORMAT,

ISSUE

CYLINDER 2,

HEAD 0, DRIVE 1.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE
SURE DRIVE BUS PARITY ERROR AND CONTROLLER ERROR SETS.

'.."'.tttttt't'tt!'t"'."'.'...t.".t..i.t'.'.'.!.""‘!"'l.t

SEQ 0124

MOV
MOV

Sesan.N.n,

6663

000000
000010
000012
000014
002216
004244
000100
004172
004174
004160

H 10

14=-SEP-81
15:10
PAGE 125
NON=STANDARD MESSAGE RECEIVING

MOV

6645
6646
6647
5648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6561
6662

1%:

6644

6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680

00001C
000026
000020
000006
000010
000000

3?;2046)

6625
6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643

MACYT?

CZRGBDO RKE11 DSKLS CTRL PRT?
14-SEP=-81 13:47
CZR6BD.P1T

CZROBDO RK611
CZR6BD.P11

6681
6682

6683
6684
6685
6686
6687
6688
6689

6690
6691
6692

040210
040212

040220
040224
040232
040240
040246
040254
040262

DSKLS CTRL PRT2
14=SEP-81 13:47

000004
012737

013702
012762
012762
012762
012762
012762
012700

000144

001270
000040
000040
000002
000001
000017
000132

040266
040274
040302

012762
012762
005300

000440
000040

6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708

040306
040312
040316
040322
040324
040326
040330
040336
040344
040352
040360
040366
040374
040400
040404

005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737
012737
005037
005037
023737

000026
004262
000000

6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731

040414
040416
040424
040426
040430
040436
040440
040442
040450
040452
040454
040462
040470
040476
040504
040512
040520
040526
040534
040542
040550
040556

104240
023737
001401
104241
023737
001401
104242
023737
001401
104243
013737
013737
013737
013737
012762
016237
016237
016237
016237
012737
012737
005037

040566

023737

6693

6709

6732

6733

6734

6735
6736

040304

040412

040562

040574

040576
040600

001370

001401

005037

001401

104224
023737

000000
000010
000012
000014
120216
000101
004172
004174
004160

MACY11

001200

110

30(1046)
14=SEP-81
15:10
PAGE 126
175
DRIVE BUS PARITY ON NON-STANDARD MESSAGE

TST75:

000010
000026
000020
000010
000000
000026
000024

18%:

:
004120
004130
004132
004134
004160
004170

3%:

4%:

004120
5%:

004172

004132

6%:

004174

004134

7%:

004120
004130
004132
004134
100000
000000
000010
000012
000014
000200
000100
004172

004220
004222
004224
004226
000000
004120
004130
004132
004134
004160
004170

8$:

004160

004120

004130

$BASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#2,RKDCYL(R2)
#1,RKCS2(R2)
#SEEK ,RKCST1(R2)
#22.%4+2 R0

;
;:D0 100.

ITERATIONS
;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINTENANCE MODE
;LOAD CYLINDER ADDRESS REG
:LOAD DRIVE NUMBER 1
;ISSUE SEEK
: ISSUE CLOCKS THROUGH PHASE 6

#DMD 'MCLK ,RKMR1 (R2)
#DMD ,RKMR
1 (R2)
RO

CLR
MOV
TSTB
BMI
DEC
BNE
Mov
MOV
MOV
MOV
Mov
MOV
(LR
CLR
CMP

RKMR1(R2)
;ALLOW COMMAND TO FINISH
WAITIM, RO
;LOAD WAIT TIME
RKCS1(R2)
JWAIT FOR READY
4%
RO
3%
RKCS1(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!SPAR!R
! SEEKR*C<G0>
DY
,E.CST
:LOAD EXPECTED CS1
#IR!1,E.CS2
:LOAD EXPECTED (S1
E.DS
:LOAD EXPECTED DRIVE STATUS REG.
E.ER
;LOAD EXPECTED ERROR REG.
EA81,.1.C0)
sCHECK COMMAND AND STATUS REG.1 CORRECT

5§

sYES, CHECK CS2

ERROR
240
sCS1 INCORRECT
CMP
E.CS2,7.CS2
;CHECK COMMAND AND STATUS REG 2 CORRECT
BEQ
6%
:YES, CHECK DRIVE STATUS REG
ERROR
241
:CS2 INCORRECT
CMP
E.DS,T.DS
;CHECK DRIVE STATUS REG. CORRE(T
BEQ
’$
:YES, CHECK ERROR REG.
ERROR = 242
:DRIVE STATUS REG. INCORRECT
. ER.T.
IR
:CHECK ERROR REG CORRECT
BEQ
8$
;YES, CLEAR RK611
ERROR
243
;ERROR REG. INCORRECT
MOV
T.CS1,P.CS]T
:STORE PREVIOUS CS1, (S2,
MOV
T.(S2,P.CS2
.
DRIVE STATUS REG.,
MOV
T.DS.P.DS
:
AND ERROR REG.
MOV
T.ER,P.ER
MOV
#CCLR,RKCST1(R2) ;CLEAR RK611
MOV
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.1
MOV
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.?2
MOV
RKDS(R2) ,T.DS
;STORE DRIVE STATUS REG.
MOV
RKER(R2) ,T.ER
;STORE ERROR REG:
MOV
#RDY,E.CS1
sLOAD EXPECTED (CS1
Mov
#IR,E.CS2
:LOAD EXPECTED (S2
(LR
E.DS
:LOAD EXPECTED DRIVE STATUS REG.

CLR

E.ER

CMP

E.CS1,T.CS1

ERROR
(MP

224
£.(S2,1.C82

BEQ
10$:

#100.,$TIMES

MoV
MoV
DEC

BEQ

004130

004170

MOV
MOv
MOV
MOV
MOV
MOV
MOV

BNE

004170

004174

SCOPE
MOV

SEG 0125

108

:LOAD EXPECTED ERROR REG.

;CHECK COMMAND AND STATUS REG.1

JYES, CHECK (S2

CORRECT

:CS1 INCORRECT
:CHECK COMMAND AND STATUS REG.2 CORRE(T

104225

BEQ

023737
001401

004172

004132

11%:

023737

004174

004134

12%:

104226

001401

104227

11%

;YES,

—

€€Q 0126

CHECK DRIVE STATUS REG

ERROR

225

;€S2 INCORRECT

BEQ
ERROR

12%
226

;YES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRECT

CMP

BEG
ERROR

E.DS,T.DS

sCHECK DRIVE STATUS REG CORRECT

E.ER,T.ER

1ST76
227

;CHECK ERROR CORRECT

;;YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

;"'Q'lQtttQQtt.t.fitt"i'"Qtfit.fi.ttQfi."""'.'Qt..'*!.it..ttt'i'

;*TEST

NON-EXISTENT DRIVE

(DRIVE MESSAGE

TIME OuT)

* %

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

HEAD 0O, DRIVE 0.

;e
i*

THE RK611

CONTROLLER

IN DIAGNOSTIC MODE.

[ISSUE

A SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER O,

CLOCK IN DIAGNOSTIC MODE UNTIL

PHASE ADDRESS 5.

TURN OFF

DIAGNOSTIC MODE

AND MAKE SURE NON-EXISTENT DRIVE AND CONTROLLER
ERROR ARE SET.

THIS TEST (HECKS NON-EXISTENT DRIVE

DUE TO DRIVE MESSAGE TIME OuT.

:'.'tttt'ttttl"l*'ttt.t't'ttt"tQtifitttttittttttttttttt"ttttittttt
040636
040640
040646
040652
040660
040666
040674
040700
040706
040714
040716
040720
040724

040730
040734
040736
040740
040742
040746
040750
040752
040760
040766
040774
041002
041010
041016
041020
041026
041034
041042
041046
041054
041056

000144
001270
000040
000040
000001
000124
000440
000040

001200
200010
000026
000000

000026
000026

000026
004262
000000

100200

020000

020000
010100
100000

004174
004160

1$:

SCOPE

MoV
MOV
MOV
MOv
MoV
MOV
MOV
MOV
DEC
BNE

#100.,8TIMES
;:D0 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
:PUT RK611 IN MAINTENANCE MODE
#SELDRV,RKCST(RZ)
;ISSUE SELECT DRIVE
#21.%4 RO
: ISSUE CLOCKS THROUGH PHASE 4
#DMD !MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2)
RO
1%

MOV

WAITIM,RO

CLR

2%:

004264

000000
000010
000012
000014

TST76:

3%:

4%:
OONWWWWND

6763
6764
6765
6766
6767
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

J 10

14-SEP-81
15:10
PAGE 127
30(1046)
175
DRIVE BUS PARITY ON NON=STANDARD MESSAGE

001401

0
004
004172
Ny

6762

040606
040610
040612
040620
040622
040624
0460632
040634

ol llelel LVele)

6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761

MACY11

004120

TSTB
BMI
DEC
BNE
MOV

JALLOW COMMAND TO FINISH

RKCS1(R2)
3%
RO
2%
STALL RO

;WAIT FOR READY

sLOAD WAIT

TIME

;STALL 100 USEC FOR MESSAGE

TIME OUT

DEC
BNE

RO
48

MOV

RKDS(R2),T.DS

;STORE DRIVE STATUS REG

MOV

#CERR!RDY,E.CST

;LOAD EXPECTED (ST

BIS
MOV

#SPAR,E.CS1
#NED!IR,E.CS2

;PUT BUS PARITY ERROR IN EXPECTED (S?
;LOAD EXPECTED (S2

CLR
CMP

E.ER
E.081.0.L50

;LOAD EXPECTED ERROR REG.
;CHECK COMMAND AND STATUS REG.1

MOV
MOV

MOV
gég

5%:

RKMR1(R2)

MOV

BEQ
ERROR

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.?

RKER(R2) ,T.ER

ggPAR,T.CS1

#SVAL ,E.DS

6%
244

;STORE ERROR REG

;CHECK FOR BUS PARITY ERROR

;LOAD EXPECTED DRIVE

sYES, CHECK (S2
;CST1 INCORRECT

STATUS REG.

CORRECT

CZR6BDO RK611 DSKLS CTRL PRT?
14-SEP=81 13:4°
(ZR6BD.P11

0411
1
1

001401
104245

6$:

004172

004132

7%:

023737

004174

004134

8s:

013737
013737
3737

004120
004130
004132

004220
00422¢
004224
004226
000000
004120

9% :

104246

737
762

237
237
237
237

737
737

037
005037
023737

004134
100000

000000
000010
000012
000014

000200
000100

004172
004174
004160

004120

£.CS2,T.CS2
7$
245

;CHECK COMMAND AND STATUS REG.2 CORRECT
*YES, CHECK DRIVE STATUS REG
+CS2 INCORRECT

BEQ
ERROR
CMP
BEQ
ERROR

8$
246
E.ER,T.ER
9%
247

*YES, CHECK ERROR REG.
*DRIVE STATUS INCORRECT
*CHECK ERROR REG CORRFCT
*YES, ISSUE CONTROLLER CLEAR
*ERROR REG INCORRECT

MOV
MOV

1.DS,P.DS
T.ER,P.ER

MOV
MOV

E.DS,T.DS

T.CS1,P.CS?
T.CS2,P.CS2

*CHECK DRIVE

STATUS REG CORRECT

:STORE PREVIOUS €S1,CS2
:"
DRIVE STATUS REG.,
.

AND ERROR REG.

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR

#CCLR,RKCS1(R2)
RKCS1(R2),T.CS1
RKCS2(R2).T.CS2
RKDS(R2),7.DS
RKER(R2) ,T.ER
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER

;ISSUE CONTROLLER CLEAR
:STORE COMMAND AND STATUS REG.1
:STORE COMMAND AND STATUS REG.?2
:STORE DRIVE STATUS REG.
;STORE ERROR REG.
*LOAD EXPECTED CS1
*LOAD EXPECTED (S2
:LOAD EXPECTED DRIVE STATUS REG.
:LOAD EXPECTED ERROR REG.

108
224
E.CS2,T.CS2

:YES, CHLCK (S2
:CS1 INCORRECT
*CHECK COMMAND AND STATUS REG.2 CORRECT

CMP

023737

004170

004130

108 :

BEQ
ERROR
cMP

023737

004172

004132

118:

CMP

023737
001401

004174

0C413%4

12%:

104227

CMP
BEQ
ERROR
CMP

004130
004132
004134
004160
004170

K 10
14-SEP-81
15:10 PAGE 128
NON-EXISTENT DRIVE (DRIVE MESSAGE TIME OUT)

—

004130

023737
001401

VINVNOONONCRONNOWN

023737 004170

olelelalelelelele
o]
[ Rp—-—

—

SN
=
a
O
oSNNS

041060
041066
041070
041072
041100
0411
Pl

6793
6794
6795
6796
6797
6798
6799
6800
6801
6802
6803

3?;;0‘6)

BEQ
ERROR
BEQ
ERROR
CMP

BEQ

ERROR

E.CS1,T.CS1

11$
225

E.DS,T.DS

*CHECK COMMAND AND STATUS REG1

:YES, CHECK DRIVE STATUS REG.
:CS2 INCORRECT
:CHECK DRIVE

128
226

CORRECT

STATUS REG CORRECT

*YES, CHECK ERROR REG
*DRIVE STATUS INCORRECT

E.ER,T.ER

*CHECK ERROR REG CORRECT

1177

::YES, GO ON TO NEXT TEST

227

*ERROR MESSAGE INCORRECT

:;tttlttttt'tttttttttttt‘ttttttttittttttitittttttttttttttfitQtttt'

S*TEST 77
]

v
ta
ta

o
&

I
i+
i
i
- n

041300
041302
041310
041314
041322

2737
3702
2762
2762

NON-EXISTENT DRIVE AND NO SACK

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
THE RK611

CONTROLLER IN DIAGNOSTIC MODE.

ISSUE A

PUT

SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 0,

HEAD 0, DRIVE 0.
PHASE ADDRESS 4.

CLOCK IN DIAGNOSTIC MODE UNTIL
TURN OFF DIAGNOSTIC MODE AND MAKE SURE

NON-EXISTENT DRIVE AND CONTROLLER ERROR ARE SET.

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
INDEED CAUSE A NON-EXISTENT DRIVE.

;;tttttttttttt.ttttttttl"t'tttttttt!ttt.ttltitt!ttttttttttt'ttt'
000144
001270
000040
000040

001200
000010
000026

SCOPE

MOV
MOV

#100.,8TIMES
$BASE ,R2

#SCLR,RKCS2(R2)
#DMD,RKMR1(R2)

;:DO 100. ITERATIONS
*LOAD RK611 BASE

:CLEAR RKO6 SUBSYSTEM
:PUT RK611 IN MAINTENANCE MODE

sce 0127

CZR6BDO RKk611 DSKLS CTRL PRT?
14=-SEP=-81 13:47
CZR6BD.P1

MACYTT

CZR6BDO RK611 DSKLS CTRL PRT?2

CZR6BD.P11T
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
68%
6895
6896
6897
6898
6899

6900
6901
6902
6903
6904

061330
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
047536
041544
041552
041560
041566
041574
041602
041610
041616
041624
041632
041636
041642
041650
041652
041654
041662
041664

041666
041674
041676
041700
041706

14=-SEP=-81 13:47
012762
012700
012762
012762
005300
001370
005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104250
023737
001401
104251
023737
001401
104252
023737
001401
104253
013737
013737
013737
013737
012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737
001401
104225

023737
001401
104226
023737
001401

000001
000116
000440
000040

MACY11

L 10
14=-SEP-81
15:10
PAGE 129
30(1046)
177
NON-EXISTENT DRIVE AND NO SACK

000000
000026
000026

1%:

MOV
MOV
MOV
MOV

DEC

BNE
(LR

000026
004262
000000

3%:

000000
000010
000012
000014
100200
010100
004172
004174
004160

004120
004130
004132
004134
004160
004170

004170

004130

4%:

MOV

TSTB

BM]
DEC
BNE
MOV

MOV
MOV
MOV
MOV
MOV

CLR

004120
5%:

004172

004132

6%:

004174

004134

7%:

004120
004130
004132
004134
100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

004220
004222
004224
004226
000000
004120
004130
004132
004134
004160
004170

8%:

004170

004130

CLR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ

ERROR
CMP
BEQ
ERROR

MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV

MOV
MOV

004120
10%:

004172

004132

11%:

004174

004134

12%:

CLR
CLR
CMP
BEG
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ

#SELDRV,RKCS1(R2)

#19.%4+2,R0

SEQ 0128

;ISSUE SELECT DRIVE
CLOCKS THROUGH PHASE 3

. 1S SUE

#DMD 'MCLK ,RKMR1
(R2)

#DMD ,RKMR1 (R2)

RKMR1(R2,
WAITIM,RO

§§CS1(R2)

sALLOW COMMAND TO FINISH
;LOAD WAIT TIME

;WAIT FOR READY

RKCST1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T7.DS
RKER(R2) ,T.ER

;STORE
;STORE
;STORE
;STORE

E.CS1,T.CS1
5%

;CHECK COMMAND AND STATUS REG.T1
;YES, CHECK (S2

#CERR!RDY,E.CST
#NED!IR,E.CS2
E.DS
E.ER

250
E.CS2,T.CS2
6$

251

E.DS,T.DS
7%

252

8$
253
T.CS1,P.CS1
T.CS2.P.CS2
1.DS.P.DS
T.ER,P.ER

;LOAD
;LOAD
;LOAD
;LOAD

COMMAND AND STATUS REG.!
COMMAND AND STATUS REG.Z

DRIVE STATUS REG
ERROR REG
EXPECTED (CS1
EXPECTED (S2
EXPECTED DRIVE STATUS REG.
EXPECTED ERROR REG.

CORRECT

;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG.2 CORRECT
;YES,

CHECK DRIVE STATUS REG

;€S2 INCORRECT

;CHECK DRIVE STATUS REG CORRECT
sYES, CHECK ERROR REG.

;DRIVE STATUS INCORRECT

;CHECK ERROR REG CORRECT

sYES, ISSUE CONTROLLER CLEAR
;ERROR REG INCORRECT
*STORE PREVIOUS CS1,CS2
:"
DRIVE STATUS REG.,
:

AND ERROR REG.

#CCLR,RKCS1(R2)
RKCST(R2Y,T.CS1
RKCS2(R2).T.CS2
RKDS(R2),T.DS
RKER(R2).T.ER

;ISSUE
:STORE
:STORE
:STORE
:STORE

E.DS
E.ER
E.CS1,T.CS1
10

:LOAD EXPECTED DRIVE STATUS REG.
*LOAD EXPECTED ERROR REG.
*CHECK COMMAND AND STATUS REG1 CORRECT
*YES, CHECK CS2

#RDY ,E.CS1
#IR,E.CS2

22
E.CS2,7.CS2
11

225

E.DS,T.DS
12%

226
E.ER,T.ER

157100

CONTROLLER CLEAR
COMMAND AND STATUS REG.1
COMMAND AND STATUS REG.2
DRIVE STATUS REG.
ERROR REG.

*LOAD EXPECTED CS1
*LOAD EXPECTED (€S2

2CS1 INCORRECT
*CHECK COMMAND AND STATUS REG.2 CORREC!
*YES,

CHECK DRIVE

:(S2 INCORRECT

STATUS REG.

*CHECK DRIVE STATUS REG CORRECT
*YES, CHECK ERROR REG

*DRIVE STATUS INCORRECT
*CHECK ERROR REG CORRECT

S;YES, GO ON TO NEXT TEST

CZR6BD.P11

14-SEP=-81

6905
6906
6907
6908
6909
6910
6911
6512
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
6952
6553
€954

104227

041710

13:47

MACY11

m10
14~SEP-81
15:10
PAGE 130
30(1046)
NON-EXISTENT DRIVE AND NO SACK
177
ERROR
.SBTTL

SEQ 0129

;ERROR MESSAGE INCORRECT

227

*«]LLEGAL FUNCTION CODE TEST

S22 2222222222222
2222
2R
Rttt
Rl )

T TEST 100

ILLEGAL FUNCTION CODE

CLEAR RK617 WITH A CONTROLLER CLEAR.

SETTING CONTROLLER READY WITH PROPER ERROR CONDITIONS.

2222203333222

1S T100:

000764
000033
041736

ISSUE AN ILLEGAL

(OMMAND IN NORMAL MODE AND MAKE SURE COMMAND FINISHES

SCOPE
MOV
MOV
MoV

220222222

2022

#500. ,8TIMES
#33, ILLFUN
#1%,SLPERR

Rttt

lll

)

;.D0 500. ITERATIONS
sSET ILLEGAL FUNCTION

sLOAD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

042104
042112
042114
042116
042124
042126
042130
042132
042140
042146

W
~

VIROONONNL & -swb—-\\n‘oowmmmmum

[=lelelelellele
b l=lelelelelelele lolele)

042044
042046
042050
042056
042064
042072
042100

cd a OONIOONV
= b
D
NI 2=

{

023737

101273

1%:

100000

004270
000001

BIC
BIS

100200
000001

000040
004270
000000
000014
004160

004134
004120

004174

004134

100000
000000
000014
000200
004174
004160

000000
004120
004134
004160

004174

004134

000002
000041

MOV
MOV

MOV
MOV
MoV
MOV
MoV

3%:
4%:

004120

004270
004270

6%:
7%:

CMP
BEQ
ERROR
CMP
BEG
ERROR
MOV
MOV
MOV

MOV
CLR
CMP
BEQ
ERROR
CMP

BEQ
ERROR
SCoP1
ADD

(MP
BHI

#CCLR,RKCST(R2)

;CLEAR RK611

#G0,E.CST
#CERR'!RDY,E.CS1
#ILF E.ER

;LOAD EXFECTED ERROR REG

ILLFUN,E.CST

#DMD ,RKMR1(RZ)

CONTROLLER

;GENERAIE EXPECTED CS1

;PUT RK611

IN DIAGNOSTIC MODE

ILLFUN.RKCST(R2) ;ISSUE ILLEGAL FUNCTION

RKCST(R2),T.CS1
RKER(R2),T.ER
E.CS1,T.(S1
3%
256

;STORE COMMAND AND STATUS REG 1
;STORE ERROR REG
sCHECK IF CS1 CORRECT
;YES, CHECK ERROR REG
2CS1 INCORRECT AFTER ILL FUNCT

sYES,

257

#CCLR,RKCS1(R2)
RKCST1(R2),T.CST
RKER(R2),T.ER
#RDY,E.CST
E.ER

E.CS1,T.CS1
6%
260
E.ER,T.ER
7%

261
#2,ILLFUN
#41,ILLFUN

sCHECK IF ERROR REG CORRECT
CLEAR CONTROLLER

sERROR REG INCORRECT AFTER ILL FUNCT
;CLEAR RK611 CONTROLLER
;STORE COMMAND AND STATUS REG.
;STORE ERROR REG
;LOAD EXPECTED CS1
;LOAD EXPECTED ERROR REG

sCHECK IF CS1 CORRECT (CERR CLEAR)
;YES, CHECK IF ERROR REG CORRECT
;CONTROL CLEAR DID NOT CLEAR CERR
;CHECK IF ILF CLEARED
;YES,

GO ON TO NEXT CONFIGURATION

s CONTROLLER CLEAR DID NOT CLEAR ILF

sCHECK IF LOOP ON ERROR
sGENERATE NEXT ILLEGAL
sCHECK IF FINISHED

sNO,

USE NEXT

FUNCTION

CONFIGURATION

£~

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BDO Rk611 DSKLS CTRL PRT2

(ZR68BD.P11

14=-SEP=81

13:47

MACY11

30(1046)

14-SEP-81

15:10

END OF PASS ROUTINE
.SBTTL

N 10
PAGE 131

SEQ 0130

END OF PASS ROUTINE

...'Q'."Q......t'."."'Q'Q'Q.Q...Q.QQl."""...'.'.'t""".

'INCREMENT THE PASS NUMBER ($PASS)
;«TYPE "END PASS #XXXXX TOTAL NUMBER Oi ERRORS SINCE LAST REPORT YYyyy''
s *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

;«]F

THERES A MONITOR GO TO IT

oo~

s*1F THERE ISN'T JUMP TO NEWPAS

042176

000004
005037
005037
005237
042737
005327

$EOP:

001102
001200
001222
100000

SCOPE
CLR

(LR
INC
BIC

001222
$EOPCT:

DEC
.WORD

BGT

MOV

042176
104401

000407
042234
042234

104405
104401

042250

042312
042312

013746
104405
10440,

005037
013700
001405
000005
004710
000240
000240
000240

e
-2

OO0

roroN
NNN

000137
005254
3 77
042360

TYPE

éigss:

001222

000421

042316
042320
042324
042330

042216

013746

042240
042242
042246

$ENDCT: .WORD
$EOPCT
-

;. LOOP?

658

,,TVPE

,67%

669%

MOV

$ERTTL ,~(SP)

LSCRLF

$ERTTL
a#62 RO
$DOAGN

$ENDAD:

PC,(RO)

NOP
NOP

$DOAGN:

377

042432
000340
172100

000

000004
000006

COUNTER

ASCIZ STRING

;GET OVER THE ASCIZ

;:SAVE $PASS FOR TYPEOUT
;s TYPE PASS NUMBER

;.60

TYPE--DECTMAL

,,TYPE ASCIZ STRING

;:SAVE SERTTL FOR TYPEOUT

;. TOTAL NUMBER OF ERRORS
;:G0 TYPE--DECIMAL ASCII WITH SIGN
;sTYPE CARRIAGE RETURN, LINE FEED

;sCLEAR ERROR TOTAL
;2GET MONITOR ADDRESS
;BRANCH IF NO MONITOR
;sCLEAR THE WORLD

2:G0 TO MONITOR

s :SAVE ROOM

J.ACTN

JMP
.WORD

LSBTTL

(HECK FOR MEMORY (HMECK ENABLE OPTION

(HKPAR: MOV
MOV

MOV

SIGN

::FOR

NOP

.?;gz

WITH

sGET OVER THE ASCIZ

SRTNAD:

$ENULL :

ASCII

TOTAL ERRORS SINCE LAST REPORT
/

CLR
$GET4L2: MOV
BEQ
JSR

TEST NUMBER

<12><15>/END PASS #/

RESET

2=YES

;s ;RESTORE

$PASS ,~(SP)

LASCIZ

THE

::ZERO THE NUMBER OF ITERATIONS
INCREHENY THE PASS NUMBER
..DON T ALLOW A NEG. NUMBER

(PC)+,a(PC)+

MOV

TYPDS
TYPE

001211
001112
000042

(PC)+
1
$PCAGN

LASCIZ

TYPE

001112

;21ERO

$TIMES
$PASS
#100000,$PASS

TYPDS

--g?i:

$TSTNM

a(PC)+
NEWPAS

-1,-1,0

#2088 ,ERRVEC
#PR7 ,ERRVE(+2
#MEMBAS R3

; ;RETURN

;sNULL CHARACTER STRING

;SET VECTOR FOR MEMORY PARITY (MECK
;LOAD REGISTER TO DETERMINE
;

MEMORY (HME(CK ENABLE AVAILIABLE

7011
7012

7013

000020
000001
042450
000340

042400
042404
042410
042416
042424
042426
042430

16%:

MOV
MOV

#16. R4
#PAR.EN,(R3)+

MOV
DEC
BNE

#PR7 ,MEMVE(C+2
R4
16%

MOV

#MEMERR ,MEMVEC

042432
042434
042442
042446

000006
000006

000004

20%:
22%:

(MP
MoV
CLR

042464
004272

000002

042502
042506

012706
000177

001202
001000

001202

136442

;LOAD MEMORY CHECK VECTOR

;CHECK IF FINISHED
;NO, SET UP NEXT MEMORY PARITY MODULE
sRESTORE TRAP VECTOR

sRETURN

MEMORY CHECK ENABLE TRAP

MEMERR: MOV
MOV

#108,SESCAPE
(SP) ,TRAPPC

;LOAD ESCAPE
;STORE PC

108:

$ESCAPE
#SW9,aSWR

;CLEAR ESCAPE
sCHECK IF LOOP ON ERROR

ERROR

262

CLR
BIT

BNE

sREPORT MEM PARITY ERROR

15%

RTI

001100
136376

sLOAD COUNT
;EMABLE MEMORY CHECK

(SP)+,(SP)+
JADJUST STACK
#ERRVEC+2,ERRVEC
;RESTORE TRAP CAT(CHER
ERRVEC+2

RTS

.SBTTL

042450
042456
042462
042464
042470
042476
042500

22%

SEQ 0131

;YES, FORCE STACK AND TRY AGAIN
sNO,

158:

MOV

#STACK,SP

.SBTTL

SCOPE HANDLER ROUTINE

JMP

P IRRER AR AR R

sINITIALIZE STACK

a$SLPERR

;*THIS ROUTINE

R AR

R R AR

CONTROLS THE

RETURN

;LOOP ON ERROR

RRR AR RRRR AR R

LOOPING OF

AR RN RN AR RN R

SUBTES/S.

IT WILL

INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG)
s*THE

SWITCH OPTIONS PROVIDED BY

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

;*SW14=1
;*SW11=1
:*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 TEST IN SWR<7:0>

CKSWR

BIT
BNE

;#MARASTART OF

042552

177060

MOV

000004

5%:

#BI1T14,3SWR
$OVER

CODE

FOR

THE

;:TEST
XOR

@#ERRVEC,=(SP)

MOV

#58 ,Q#ERRVEC

MOV

(SP)+,a#ERRVEC

000004

;:SCOPE=]0T

SCOPE

$XTSTR: BR
000004

INTO DISPLAY<15:08>

THIS ROUTINE ARE:

CMP
MOV
BR
6%:;#4##H4END OF

k177060

$SVLAD

FOR CHANGE

IN SOFT-SWR

..LOOP ON PRESENT TEST?
:YES IF SW14=1

TESTERA#AMA

;:IF RUNNING ON THE ‘XOR'® TESTER CHANGE

2;THIS INSTRUCTION TO A "NOP'" (NOP=240)
;;SAVE

THE

CONTENTS OF

::SET FOR TIMEOUT

THE ERROR VECTOR

S:TIME OUT ON XOR?

:-RESTORE THE ERROR VECTOR

2360 TO THE NEXT TEST

(SP)+,(SP)+
*:CLEAR THE STACK AFTER A TIME QUT
(SP)+,a#ERRVEC
..RESTORE THE ERROR VECTOR
7%
:LOOP ON THE PRESENT TEST
CODE FOR THE XOR TESTER#A#a#

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

CZR6BD.P11

B 11
MACY11 30(1046)
14-SEP-81
15:10 PAGE 132
CHECK FOR MEMORY CHECK ENABLE OPTION

CZR6BDO Rk611 DSKLS CTRL PRT2
(ZR6BD.P11
14-SEP-81 13:47
7067

042562

032777

042572

005046

042606
042610
042614
042616
042620

002411
011637
005316
006316
062716

7068

042570

7070
7071
7072

042574
042600
042602

7069

7073
7074
7075
7076
7077

7078

042624

7079
7080
7081
7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109
7110
7111
7112
7113
7114

042630
042632
042634
042640
042642
042650
042652
042660
042662
042670
042672
042676
042702
042704
042712
042714
042720
042722
042726
042734
042736
042744
042752
042756
042764
042770
042774
043000
043006
043014
043020
043022
043024
043024
043026
043030

7118

043040

7115
7116
7117

7119
7120
7121

7122

001421

117716
001414
022716

013637

000466
005726
105737
001421
123737
101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

043032
043034
043036

005274
005600
006060
006324
006636
007200

043042
043044

010034
010352

043046

043050

007516
010616

011062

000400

MACY11 30(1046)
14-SEP-81
15:10
SCOPE HANDLER ROUTINE
136350

136340
000100

043024

001106
001103
001115

001103

001000

136260

001110

001106

001103
001200

004000

136226

001222
001104
001200

000001
043022
001102
001102
001106
001110
001202
000001
001102
001106

001104
001704
001200
001220

001115
136126

SEQ 0132

BIT

#B1T708,aSWR

.,LOOP ON SPEC. TEST?

CLR

=(SP)

::CLEAR A TEMP.

8%
(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)

;;BRANCH IF TEST NUMBER IS OUT OF RANGE
;;UPDATE THE TEST NUMBER
; sBACKUP BY ONE
;sSCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF TEST POINTER

BEQ

MOovB
BEQ
CMP

aSWR, (SP)
8$
#100, (SP)

MoV

@(SP)+,$LPADR

BLT
MOV
DEC
ASL
ADD

001102

c 1"
PAGE 133

BR
8$:
TST
2$:
TSTB
BEQ
CMPB
BHI
BIT
BEQ
7%:
MOV
BR
4%:
CLRB
CLR
BR
3%:
BIT
BNE
TST
BEQ
INC
CMP
BGE
18:
MOV
Mov
$SVLAD: INCB
MOVB
MOV
MoV
CLR
MOvVB
S$OVER:
MOV
MOV
RTI
$MXCNT: 2000.
$SWOBTBL
:
.WORD
.WORD
.WORD

;BR_IF NO

LOCATION

;:PICKUP THE DESIRED TEST NUMBER
;;BRANCH IF BAD TEST NUMBER IN SWR
;s CHECK THE NUMBER IN THE SWR

;;SET LOOP ADDRESS TO DESIRED TEST

$OVER
(SP) +
$ERFLG
3%
$ERMAX ,$ERFLG
3%
#BIT09,aSWR
4%
$LPERR,SLPADR
$OVER
$ERFLG
$TIMES
1%
#BIT11,3SWR
1%
$PASS
1%
$ICNT
$TIMES,SICNT
$OVER
#1,81CNT
$MXCNT,$TIMES
$TSTNM
$TSTNM,STESTN
(SP) ,$LPADR
(SP) ,$LPERR
$ESCAPE
#1,SERMAX
$TSTNM,aDISPLAY
$LPADR, (SP)

;:G0 _ LOOP ON THE TEST
;;CLEAN THE BAD TEST NUMBER OFF OF THE, STACK
;sHAS AN ERROR OCCURRED?
::BR IF NO
;;MAX. ERRORS FOR THIS TEST OCCURRED?
::BR _IF NO
;:;LOOP ON ERROR?
;:BR _IF NO
;;SET LOOP ADDRESS TO LAST SCOPE

.WORD
.WORD
.WORD

TST1+2
TST2+2
TST3+2
TST4+2
TST5+2
TST6+2

;:STARTING
;;STARTING
;;STARTING
::STARTING
;:STARTING
:;STARTING

.WORD
.WORD

TST10+2
TST11+2

;;STARTING ADDRESS OF
:;STARTING ADDRESS OF

.WORD

LWORD

.WORD

TST7+2

TST1242

TST13+2

;:ZERO THE ERROR FLAG
;;CLEAR THE NUMBEF OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
;o INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
: : INCREMENT ITERATION COUNT
;s CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
sREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
;:COUNT TEST NUMBERS
;;SET _TEST NUMBER IN APT MAILBOX
::SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
::FUDGE RETURN ADDRESS
;:FIXES PS
;sMAX. NUMBER OF ITERATIONS

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

:;STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST

1
2
3

4
5
6

TEST 7

TEST 10
TEST 11
TEST

TEST 13

043052
043054
043056
043060
043062
043064
043066
042070

7134

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

454

7135
7136
7137
7138
7139
7140
7141
7142
7143
7144

7145
7146
7147
7148
7149
7150
7151

7152
7153

7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176
7177
7178

043176
043200
043202
043204
043206
043210
043212
043214
043216
043220
043222

026216
026634
027266
027720
030352
031004
031436
032070
032522
033154
033572
034224
034706
035370
036052
036534
037216
037700
040212
040640
041302
041714
MR

"SBTTL

.WORD
.WORL
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

D 1

PAGE

TSTi4+2
TST15+2
TST16+2
TST17+¢
TST20+2
TST21+2
TST22+2
TS723+2
TST24+2
TSTZ25+42
TST26+2
TST27+2
TST30+2
TST31+2
TST32+2
TST33+2
TST34+2
TST35+2
TST36+2
TST37+2
TST40+?2

134
;;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
2 sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
::STARTING ADDRESS OF
:;STARTING ADDRESS OF
::STARTING ADDRESS OF
s sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF
;:STARTING ADDRESS OF
::STARTING ADDRESS OF
;;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
2 ;STARTING ADDRESS OF
::STARTING ADDRESS OF
:sSTARTING ADDRESS OF
s :STARTING ADDRESS OF
:sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;:STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
; :STARTING ADDRESS OF
;sSTARTING ADDRESS OF
;:STARTING ADDRESS OF
; :STARTING ADDRESS OF
; :STARTING ADDRESS OF
::STARTING ADDRESS OF
:;STARTING ADDRESS OF
; :STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
::STARTING ADDRESS OF
:;STARTING ADDRESS OF
;:STARTING ADDRESS OF
::STARTING ADDRESS OF

TST41+2
TST42+2

TST&43+2
TST&4+2
TST45+2
TST46+2
TST47+42
TST50+2
TST51+2
TST52+2
TST53+2
TST54+2
TST55+2
TST56+2
TST57+2
TST60+2
TST61+2
TST62+2
TST63+2
TST64+2
TST65+2
TST66+2
TST67+2
TST70+2
TST71+2
TST72+2
TST73+2
TST74+2
TST75+2
TST76+2
TST77+2
TST100+2

L AR
R
s

LOOP ON INTERNAL

SEQ 0133

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

BBBB BWWWWW W N W WM NN NN PNO NN = — - —a

14-SEP-81
30(1046)
15:10
SCOPE HANDLER ROUTINE

VNS WSO NOWVMBWN=ONO
NS W =ONO VNS WN—=O O NS

7123
7124
7125
7126
7127
7128
7129
7130
7131
7132
7133

MACY11

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST 56
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
; :STARTING ADDRESS OF TEST 100
NS SN

(ZR6BDO RKk611 DSKLS CTRL PRT2
14-SEP-81 13:47
(ZR6BD.P1

2222233332232 22222222¢

CZR6BDO RKk611 DSKLS CTRL PRT2
CZR6BD.P11
14-SEP-81 13:47

SCOP1$: BIT

001103
001110

5%:
LSBTTL

E 1
PAGE 135

SEQ 0134

;CHECK IF LOOP ON ERROR
;NO, CONTINUE

§§U9.GSUR

BEQ
TSTB
gERFLG
BEQ
MOV
$LPERR, (SP)
RTI
APT COMMUNICATIONS ROUTINE

sCHECK IF ERROR OCCURRED

:NO, CONTINUE
;LOAD ERROR RETURN

sRETURN

A2 2222222022
R
R
2R
R
E ]

043250
043256
043264
043266
043274
043274
043276
043300
043304
043306
043314
043316
043324
043326

043332
043340
043344
043346
043352
043354
043356
043362
043364
043370
043376
043400

043406

7215
7216
7217
7218
7219
7220
7221
7222
7223
7224
7225
7226
7227
7228
7229

043414
043420
043424
043426
043426
043432
043434
043440
043442
043446
043450
043456
043464
043470
043474

7232
7233
7234

043506
043510
043512

7230
7231

135706

043500
043504

001425
017600
062766

005737
001375
010037
105720
001376
163700
006200
010037

012737
000413
017637
062766
013746
004737
000000

105737
001416
205737
001413
005737
001375
017637
062766
005237
105037
105037

105037
012601
012600
000207
000

000001
000001

SATY1:

000001

$ATYS:
$ATYC:

$ATY3:

043512
000001

001234

000100

001235

000004
000002

000004

001214

001230

1%:

2%:

001230
001232
000004
000004

000002

177776
044200

001214
043424
000004

043514

3%:

000002

001214
043514
043513
043512

;:T0 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

MOVB

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD

RO,=(SP)
R1,-(SP)
SMFLG
5%
gePTENV.stV

;sPUSH RO ON STACK
;sPUSH R1 ON STACK

$MSGTYPE

::SEE

RO, $MSGAD
(RO)+

;;PUT ADDR IN MAILBOX
;sFIND END OF MESSAGE

ASR
MOV
MOV
BR
MOV
ADD

RO
RO, $SMSGLGT
gg.SMSGTYPE

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;sPUT LENGTH IN MAILBOX
;.TELL APT TO TAKE MSG.

24 (SP) 48
#2,4(SP)

;:PUT MSG ADDR

JSR
.WORD

scLSTYPE

177776,=(SP)

; ;PUSH 17?776 ON STACK
::CALL TYPE MACRO

TSTB

$FFLG

TST

$ENV

TST

$MSGTYPE

; :SHOULD REPORT FATAL ERROR?
BR
;:IF NOT:
;sRUNNING UNDER APT?
BR
;:IF NOT:
;sFINISHED LAST MESSATE?
WAIT
::1F NOT:
;:GET ERROR #
::BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
;2CLEAR FATAL FLAG
;:CLEAR LOG FLAG
;sCLEAR MESSAGE FLAG

TST

BNE

MOV
;SEB
N

BEQ

001214

11%:

001216
000004
12%:

$MFLG:

#1,8FFLG
#1,$MFLG

MOVB

MOV

001234

000004

MOvVB

SUB

— e

7214

001000

14-SEP-81
15:10
30(1046)
LOOP ON INTERNAL ERROR

OANn

7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213

032777
001405
105737
001402
013716
000002

SO ——
=O——
oM
NNV
WOWW
NWN~

7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7157
7198
7199
7200
7201

043224
043232
043234
043240
043242
043246

PO
RO =OO
WOINOO
==
NN=N=UNOCO
NONHN=O
WWWWNWES
S
N=NONOO"

7179
7180
7181
7182
7183
7184
7185

MACY1T

BEQ
BNE
MOV
ADD
INC
CLRB
CLRB
CLRB
MOV
MOV
RTS

BYTE

$SATY(

::SHOULD TYPE A MESSAGE?

BR
;.IF NOT:
; sOPERATING UNDER APT?

;2IF NOT:
BR
#APTSPOOL,$ENVM ;.SHOULD SPOOL MESSAGES?
3%
;:IF NOT:
BR
@4 (SP) ,RO
;:GET MESSAGE ADDR.
#2,4(SP)
,sBUMP RETURN ADDR.

2%
$MSGAD ,RO

12%

11$%
@4 (SP) ,$FATAL
#2,4(SP)
$MSGTYPE
$FFLG
$LFLG
SMFLG
(SP)+,R1
(SP)+ RO
PC

::IF NOT:

DONE W/ LAST

WAIT

XMISSION?

IN JSR LINKAGE

-BUMP RETURN ADDRESS

;;POP STACK INTO R1
::POP STACK INTO RO
::RETURN
;sMESSG.

FLAG

(ZR6BDO RK611 DSKLS CTRL PRT?

CZR6BD.PTY

043513
043514

14-SEP=-81

13:47

MACY11

F 1
15:10
14-SEP-81
PAGE 136
APT COMMUNICATIONS ROUTINE

30(1046)
$LFLG:
$FFLG:

000
000

.BYTE
.BYTE

EVEN
APTSIZE= 200

043516

000200
000001
000100
000040

0
0

::L0G FLAG
;:FATAL FLAG

APTENV=001

APTSPOOL=100
APT(SUP=040
.SBTTL
ERROR HANDLER ROUTINE
At

A2 22222202
Rt
D)

:*THIS ROUTINE WILL

:*SAVE

INCREMENT

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR

;*SW15=1
:*SW13=1
;*SW10=1
;*SW09=1
;*CALL

e
104407
105237

001775
013777
032777
001402
104401

005237
011637

162737
117737
032777
001004

$ERROR:

0011C3

7%:

001102
002000
1%:

043716
001211

122737
001007
113737

000001

001234

001114
043266

043636

104401

004737
000
000
000777
005777
100002

000000
104407

032777
001402
013716

005737
001402
013716

001110
001202
001202

20%:

21%:

22%:
2%:

135272

001000

ERROR
CKSWR

INCB
BEQ
MOY

BEQ
TYPE
INC
MOV
SuB

MOVB

004737

135256

3%:
4%:

5%:

ERROR FLAG AND

THIS ROUTINE

THE

ERROR

COUNT,

THE ERROR (AL

ARE:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

BIT

001204
001112
071116
000002
135324
020000

THE

THE ERROR ITEM NUMBER AND THE ADDRESS OF

:«AND GO TO TYPERR ON ERROR

;*THE

043516
043516
043520
043524
043526
043534
043542
043544
043550
043554
043560
043566
043574
043602
043604
043610
043614
043614
043622
043624
043632
043636
043637
043640
043642
043646
043650
043652
043654
043662
043664
043670
043674
043676€
043702

SEQ 0135

; ;ERROR=EMT AND N=ERROR
;sTEST

FOR

ITEM NUMSER

CHANGE

#BIT10,aSWR
1%

;sBELL ON ERROR?
;:NO - SKIP

(SP) ,$ERRP(
#2,8ERRP(

;;GET ADDRESS OF

ERROR

;;STRIP AND SAVE

THE ERROR ITEM CODE

LSBELL
$SERTTL

9$ERRPC,$ITEMB

;sRING BELL
;s COUNT THE NUMBER OF ERRORS

BIT
BNE

#BIT13,aSWR

;:SKIP TYPEOUT

JSR

TYPE

PC,TYPERR

,$CRLF

::G0

CMPR
BNE
MOVB
JSR

#APTENV, SENV

;JRUNNING

.BYTE

0
22%

;;APT ERROR LOOP

.BYTE

BR
TST

BPL
HALT
CKSWR

208

2%
$ITEMB,21%
SC,SATYC

aSwWR
3%

BIT

#RIT09,aSWR

MOV
TST

$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

BEQ
BEQ

MOV

IN SOFT-SWR

$ERFLG
;:SET THL ERROR FLAG
7%
;;DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;::DISPLAY TEST NUMBER AND ERROR FLAG

::SKIP TYPEOUTS

INSTRUCTION

SET

TO USER ERROR ROUTINE

IN APT MODE

::NO,SKIP APT ERRUR REPORT
;:SET ITEM NUMBER AS ERROR NUMBER
;;REPORT FATAL ERROR TO APT

;.HALT ON ERROR
::SKIP IF

CONTINUE

;sHALT ON ERROR!
;2TEST FOR CHANGE IN SOFT=-SWR
;:LOOP ON ERROR SWITCH SET?
;:BR

::FUDGE
;sCHECK
::BR IF
::FUDGE

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

043702
043710
043712
043714
043714

022737
001001
000000

042340

000042

(MP
BNE

6%:

000002

G 11
PAGE 137

30(1046)
14-SEP-81
15:10
ERROR HANDLER ROUTINE

HALT

#SENDAD ,a#4?
6%

RTI]
AR

—

MACY11

SEQ 0136

;;ACT=11 AUTO-ACCEPT?
:sBRANCH [F NO
JIYES

s JRETURN

AR AR AR AR R R R R

R R

PR RN AR RN R RN

R AR AR R R R R R RN PO R AR

O RN R

.SBTTL
TYPE ERROR ROUTINE
;*ENTRY JSR PC,TYPERR

;*RETURN RTS P(

:*THIS ROUTINE USES THE "‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN USES THE "'ERROR TABLE'' (SERRTB)
:'gzgRgnggéDEFlNE WHAT INFORMATION IS TO BE REPORTED CONCERNING
.

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
044042
044046
044050
044054
044056
044060

TYPERR: SAVREG

104413
113700

042700
005300
006300
006300
006300
062700
012037
001404

MOVB

001300
043760

104401
104401

001211

012037
001404

043776

000000

104401
104401
000000

012001
001445
005004
012000
012002

104401
112003
105720

1%:

2%:
5%

5%:

10%:

118:

104401

050201

12%:

104401

001211

13%:

005710
001401
005104

;FORM ADLRESS OF

BEQ

;BRANCH IF

TYPE

.WORD
MOV
BEQ

(RO)+,2%

LSCRLF

sCLEAR UNUSED BITS
;FORM INDEX FOR ERROR TASLE

:GET EM POINTER
;TYPE

EPROR ENTRY

THERE ISN'T ONE

CARRIAGE RETURN LINE

;TYPE

ERROR MESSAGE

;TYPE

CR-LF

(EM)

O
(RO) +,4%
5%

;EM POINTER GOES HERE
:GET DH POINTER
;BRANCH IF THERE ISN'T ONE

TYPE
.WORD

;TYPE DATA HEADER
;DH POINTER GOES HERE

BEQ

20%

;BRANCH IF

MOV

LSCRLF

(RO) +,R1

CLR

MOV

(RO)+,R2

TYPE

(RO)+,R0O

;GET DF POINTER

sSTORE NUMBER OF DH'S

LSCRLF

:TYPE

TST

MOV
TYPOC

a(R1)+,-(SP)

BR
TYPE

11%
LSCRLF

DEC
BEQ
TYPE

TST

BEQ

(OM

THERE ARE NONE

JRESET INDENT SWITCH

(RO)+,R3
(RO) +
R3

BNE

;GET & STORE NUMBER OF DATA WORDS
:BUMP PAST FORMAT WORD
:TEST IF ANY DATA FOR THIS HEADER

14%

;NO = SKIP DATA PRINT

12%

JYES, GO INDENT

R3
13%
,SPACE?2

(R0O)

14%

FEED

;GET DT POINTER

MOVB
TSTB
TST

BEQ

104402

000771

#$ERRTB,RO

MOV

RO
RO
RO

R R

;ENTER ERROR NUMBER

ADD

ASL
ASL
ASL

MOV
001211

$ITEMB,RO

#177400,R0
RO

TYPE

4%:

AR AR AR AR RARR AR AR AR AR AR AR AR AR R AR R R

BIC
DEC

TYPE

00121

005703
001416
005704
001004
013146

005303
001403

R AR AR AR AR AR AR AR R R

;CHECK FOR

INDENT

;PUT FIRST DATA WORD ON STACK
:TYPE IT

;MORE DATA WORDS
;NO=-BRANCH
;TYPE SEPARATORS
;LOOP
JTYPE <CR><LF>

JCHECK IF NEXT HEADER AVAILIBLF
;NO,

DO NOT CHANGE

s CHANGE

INDENT

CZR6BDO Rk611 DSKLS CTRL PRT?
14-SEP=-B81 13:47
CZR6BD.P11Y

(IR6BDO Rk611 DSKLS CTRL PRT2
. (IR68D. P11
14-SEP=-81 13:4~
7347

7348

7349
7350
7351
7352

7353
7354

7355

7356

7357

7358
7359
7360
7361

7362
7363

7364
7365
7366
7367

7368

7369

;g;?

7372
7373

;g;g

044062

005302

044066
044072
044074
044076

012037
001751
005704
001402

044104

104401

044064

044100

003414

104401

044106

000000

044114

000740

044110

044116
044120
044124
044132

104401

MACY11 30(1046)
14=SEP-81
TYPE ERROR ROUTINE
148

044106

050201
001211

104414
005237
032777
001421

004242
010000

135006

000024

004242

104401

050204

044150
044154

005737
001407

000042

044164

012706

001100

044134
044142

044144

044156

044170
044174
044176

022737
103015

012737

000001

000137

042150

;MORE DH'S?

MOV
BEQ
TST
BEQ

(RO)+,18%
108
Ré
17%

:GET NEXT DH POINTER
:IF NO HEADER GO GET DATA

208

TYPE

18%:

22%:
25%:

.SBTTL

:YES=TYPE SPACES

;TYPE

RESREG
INC
BIT
BEQ

108

:GO

ERRCNT
#SW12,aSWR
25%

: INCREMENT THE ERROR COUNT
sCHECK IF SWITCH 12 SET

:DH POINTER GOES HERE

TYPE

,ABORT

LSCRLF

TYPE

OUT DATA

ST
BFQ

42
22%

:NO, RETURN
:CHECK IF ERROR THRESHOLD EXCEEDED
:NO, RETURN
:TYPE "PROGRAM ABORTED BECAUSE ERROR
;
THRESHOLD EXCEEDED'
:CHECK IF IN CHAIN MODE
:NO, HALT PROCESSOR

MOV

#STACK,SP

;INITIALIZE

#20.,ERRCNT
25%

#1,8EOPCT

JMP

000000
000207

,SPACE?2

MOV

)

: INDENT?
:NO-BRANCH

(MR ...
BHIS

042176

:NO=-BRANCH

.WORD

TYPE

20%:

SEQ 0137

TYPE

17%:

PAGE 138

DEC

BLE

15%:

15:10

H 11

:FOR PASS COUNT FOR ABORT

$EOP

HALT
RIS

STACK

:BRING IN NEXT PROGRAM

TYPE ROUTINE

7376

'-:tttttttttttttttttttttttttttitttttttttt'ttt'tt.tttttttt'tt'ttttt

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:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
*NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

7383

s*CALL:

7386

,-OR

;gg;

*NOTE3:

7384
7385

:*1)
*

7387
7388
7389

7390

7391
7392
7393
7394

044200
044204
044206
044210

7396
7397
7398
7399
7400
76401
7402

044214
044220
044226
044230
044236
044240
044244

7395

044212

105737
100002
000000
000430

001157

017600
122737
001011
132737
001405
010037
004737

000002
000007

:
001234

000100

001235

010046

044250
043256

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

USING A TRAP INSTRUCTION
TYPE
,MESADR

o
Ce
. ®

TYPE
ME SADR

$TYPE:

TSTB
BPL
HALT
BR

1%:

——— - ——

MOV

MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

$TPFLG
1%

1S FIRST ADDRESS OF

AN ASCIZ STRING

::1S THERE A TERMINAL?
;:BR IF YES
;;HALT HERE IF NO TERMINAL
;. LEAVE

3%
RO,=(SP)

@2(SP) ,RO
#APTENV,SENV
62%
#APTSPOOL ,$ENVM
62%
R0,61%
PC,8ATY3

::MESADR

::SAVE RO

::GET ADDRESS OF ASCIZ STRING
:;RUNNING IN APT MODE
::NO,GO CHECK FOR APT CONSOLE
; :SPOOL MESSAGE TO APT
::NO,GO CHECK FOR CONSOLE
::SETUP MESSAGE ADDRESS FOR APT
::SPOOL MESSAGE TO APT

-—

e—

14=SEP=81

7403
7404
7405
7406
7407
7408
7409
7410
76411
7412

000000
132737
001003

7413
7414

7415

7416

7417

7418
7419
7420
7421
7422

7423
7424
7425
7426
7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456
7457
7458

044250
044252
044260
044262
044264
044266
044270
044272
044276
044300
044304
044306
044312
044314
044316
044320
044322
044326
044330
044334
044340
044342
044346
044352
044354
044360
044364

13:47

000040

001235

122716

001006
005726

6 1%:

62%:

000002

60%:
3%:

000011

4%:

000200

105037

000755
004737
123726
001350

044412
001156
001154

105366

000001

5%:

€$:

78:

044412
044530

000040
044412

000307

100022

13452¢

044530

8%:
9%:

$TYPEC:

134502

101%:

134476
177600

000021

102%:

105777
100375

134460

10%:

—

SEQ (138

2 sMESSAGE ADDRESS

(RO)+,=(SP)
4%
+
(SP)
(SP)+,R0
#2,(SP)

;sRESTORE RO
::ADJUST RETURN PC

#HT, (SP)

:;BRANCH IF <HT>

MOV
ADD

RTI
CMPB

BEQ

TERMINATOR POP IT OFF

THE

;s CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
2;I1S IT TIME FOR FILLER CHARS.?
;:I1F NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED

1(SP)

PC,STYPEC

$CHARCNT
7$

;:TYPE

;:AND

EQUIV

A CR AND LF

THE NULL CHAR.

;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STAC(K
2:G0 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;.LOOP

TAB PROCESSOR

_(SP)

PC,$TYPEC
#7,$CHARCNT
9%
(SP)
+

a$TKS
108

a$TKB,=(SP)

;REPLACE TAB WITH SPACE

;sTYPE A SPACE

;:BRANCH IF NOT AT

;. TAB STOP

;:POP SPACE OFF STACK
;2GET NEXT CHARACTER

;:CHAR IN KYBD BUFFER?
;:BR IF NOT
;:GET CHAR

BI(
(MPB
BNE

#177600, (SP)
#SXOFF
, (SP)
102%

::STRIP EXTRANEOQOUS BITS
;:WAS CHAR XOFF

TSTB

as$TKS
101%
a$TKB, (SP)

;:WAIT FOR CHAR

;:BR IF NOT

BPL
MOVB
BIC
(MPB
BNE

#$XON, (5P)
101$

;:GET CHAR
JiSTRIP IT
JsWAS IT XON?
;:BR IF NOT

TST

+
(SP)

JeFIX

TSTB

a$TFS
108

;:WAIT UNTIL PRINTER IS READY

BPL

STACK

: sRETURN

$CHARCNT

DECB

TSTB

;3]F

::POP

MOV

BNE
TST
BR

;2BR IF IT ISN'T THE TERMINATOR

+
(SP)

$FILLC,(SP)+
2%
$NULL ,=(SP)

MOVB
JSR
BITR

;sPUSH CHARACTER TO BE TYPED CONTO STA(CK

;;BRANCH IF NOT <CRLF>

PC,$TYPEC

BLT
JSR
DECB
BR

;sAPT CONSOLE SUPPRESSED
:3YES,SKIP TYPE OuT

#CRLF,(SP)

CLRB
BR
JSR
(MPB
BNE

MOV

000023

139

MOVB

BNE
TST

BPL-

134522
177600

BNE

;HORIZONTAL

044366
044372
044376
044404
044406
044410
044412
044410
044416
044420
044424
044430
044434
044436
044436
044442
044444
044450
044454
044460
044462
044462
044464
0444bl
044470

I N

PAGE

IA:TCSUP.SENVM

$CRLF

044530

15:10

BITB

TYPE

013746

002770
004737

.WORD

(MPB
BNE
TST

104401

001211

14-SEP-81

TYPE ROUTINE

2$:

112046

001005
005726
012600
062716
000002
122716
001430

30(1046)

#177600, (SP)

STACK

:MJDOO1
;MJDOO1
;sMJDO01
sMJD001
:MJDO01
:MJDO01T
sMJDOO
;MJDO01
;MJDOO01
sMJDOO
;MJDOO01
:MJDOO
:MJDOOT

:MJDOOT
:MJDOO1

sMJDOOT

JMJDCM

(ZR68BD.P1

MACY11

oo
L

CZR6BDO RKk611 DSKLS CTRL PRT?

7459
7460
7461
7462
7463
7464
7465
7466
74667
7468
7469

044472
044500
044506
044510
044514
044516
044524
044526
044530
044532

1 16677
122766
001003
105037
000406
122766
001402
105227
000000
000207

000002
000015

MACY11

30(1046)

14-SEP-81

TYPE ROUTINE

134452
000002

MOVB
(CMPB

BNE
CLRB
BR

044530
000012

000002

7470
7471
7472
7473

18:

(MPB

BEG
INCB
$CHARCNT
: ,WORD
$TYPEX: RTS

J 1

PAGE 140

2(SP) ,a$TPB

qu.Z(SP)

SEQ 0139

;;LOAD CHAR TO BE TYPED iNTO DATA REG.

::IS CHARACTER A CARRIAGE RETURN?
sBRANCH IF NO

$CHARCNT
$TYPEX

..YES;'CLEAR CHARACTER COUNT

$TYPEX

; :BRANCH IF YES
;s COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

#LF ,2(SP)

(PC)+

R AR AR

AR AR

::1S CHARACTER A LINE FEED?

(ASCID) AND TYPE

BINARY TO OCTAL

.SBTTL
IR

15:10

(ZR6BDO RK611 DSK LS CTRL PRT?
14=
(ZR6BD.P11
-SE P-81 13:47

AR AR R R RN RN AR AR AR

AR ARRR AR RRRRR

*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.
:+$TYPOS=---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*«CALL:
= (SP)
NUM,
MOV
;.
:sNUMBER TO BE TYPED
%
TYPOS
;:CALL FOR TYPEOUT
N
;:sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
'
BYTE

7474
7475
7476
7477
7478
7479
7480

7481
7482
7483

.BYTE

::M=1 0R 0

::1=TYPE LEADING ZEROS

. s0=SUPPRESS LEADING ZEROS

.'
]

7484
7485

;*$TYPON===~ENTER HERE
:*$TYPOS OR $TYPOC

s«CALL:

I *

MOV

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

,
= (SP)
NUM

- %

;;NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

i«$TYPOC=---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;*CALL:

MOV

= (SP)
NUM,

; :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

$TYPOS:

MOV

a(SP) ,=(SP)
1(SP) ,$0FILL
(SP)+,$0MODE
+1
#2,(SP)
$TYPON
#1,80FILL
#6,$0MODE
+1
#5,80CNT

;:PICKUP THE MODE

044534
044540
044546

044552
044556
044560
044566
044574
044602
044604
044606
044610
044614
044616
044622
044626
044632
044636
044640
044642

O==wOO—=O0O0O0—=—==u
OO0 —=—=0O
-tk e N
R
B B @ L OO
WONIWNWOOONINNOMNNON
N

I *

637

346

000000
000001
044761
000002
000001
000006
000005

044757

044757
044761
044756

005003

MOVR

MovB
ADD
BR

$TYPGC: MOVB
MOVB
$TYPON: MOVB

044761

MOV
MoV
MOV
MOVB

000006
044760
044757
000012

ADD
MOVB
MOvB
MoV

446

437

TYPOC

R4 ,=(SP)
R5,=(SP)

;:SET THE ZERO FILL SWITCH

;:SET FOR SIX(6) DIGITS
s SET THE ITERATION COUNT

.2:SAVE

::SAVE R4

$OMODE +1,R4

::SAVE RS
;2GET THE NUMBER OF DIGITS TO TYPE

CLR

$OFILL R4
12(SP) ,R5
R3

;:SUBTRACT IT FOR MAX. ALLOWED
;.SAVE IT FOR USE
2.GET THE ZERQ FILL SWITCH
;:PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD

::G0 DO MSB

NEG

1%:

R3,-(SP)

;;LOAD ZERO FILL SWITCH
; NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

ROL

R4
#6,R4
R4, $OMODE

;;ROTATE MSB INTO *‘C**

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

044644
044646
044650
044652
044654
044656
044662
044664
044670
044672
044674
044676
044700
044704
044710
044714
044720
044724
044726
044730
044732
044734
044736
044740
044742
044750
044752
044754
044755
044756
044757

006105
006105
006105
010503
006103
105337
100016

042703
001002
005704
001403
005204
052703
052703

110337
104401
105337

003347

MACY1Y

K 11
30(1046)
14-SEP=81
15:10 PAGE 141
BINARY TO OCTAL (ASCII) AND TYPE

2%:

ROL

3%:

044760
177770

4$:

BIC

#177770,R3

TST

5%:
7%:

6%:

000004
8%:
$OCNT:
$OFILL:
$OMODE:
.SBTTL

044760

BEQ

SRR

::FORM THIS DIGIT

RS
RS
R5,R3
R3
$OMODE
7%

BNE

000069
000040
044754
044754
044756

000002

ROL
ROL
MOV
ROL
DECB
BPL

;s:BR IF YES

BIS

#'0,R3

BIS
MOVB

#' ,R3
R3,8%

TYPE

,8%

DECB

;:GET LSB OF THIS DIGIT
ssTYPE THIS DIGIT?
;:BR IF NO
;:GET RID OF JUNK
::TEST FOR 0
;s SUPPRESS

INC

SEQ 0140

$OCNT

;:DON'T

THIS 0?

SUPPRESS ANYMORE

;cMAKE THIS DIGIT ASCII

0°'S

s sMAKE ASCII IF NOT ALREADY
;SAVE FOR TYPING

;:G0 TYPE

THIS DIGIT

;:COUNT BY 1

BGT
BLT
INC

2%
6%
R4

::BR IF MORE TO DO
;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK

MOV

(SP)+,Ré4

s sRESTORE R4

BR
MOV

2%
(SP)+,RS

MOV
MOV

(SP)+,R3
2(SP) ,4(SP)

BYTE
.BYTE

0
0

MOV
RTI

(SP)+,(SP)

.BYTE
.BYTE
.WORD
CONVERT
AR

;;RESTORL R3
;3SET THE STACK FOR RETURNING
;;RETURN

;;STORAGE FOR ASCII DIiGIT
;sTERMINATOR FOR TYPE ROUTINE

0
;sOCTAL DIGIT COUNTER
O
..ZERO FILL SWITCH
0
;NUMBER OF DIGITS TO TYPE
BINARY TO DECIMAL AND TYPE ROUTINE

tTHIS ROUTINE

;.G0 DO THE LAST DIGIT
;;RESTORE RS

A AR AR AR R R AR

IS USED

s*SIGNED DECIMAL

AR AR AR AR A AR AR AR AR AR R AR AR

TO CHANGE A 16-BIT BINARY NUMBER

(ASCII) NUMBER AND TYPE

IT.

AR AR AR AR AR

TO A 5-DIGIT

DEPENDING ON WHETHER THE

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.

*#CALL:
e
MOV

$TYPDS:

246

605

2766
0

NUM, - (SP)

TYPDS

MOV

RO,=(SP)

MOV

MOV
comem— MOV
~ MOV

&H
o

O—=O—=0000O0O0O
O=O0O
- w
e

044762
044762
044764
044766
044770
044772
044774
045000
045004
045006
045010
045016

WOONSOOOO

MOV

020200
000020
000055

MOV
BPL

000001

NEG

MOVB

(LR

R1.=(SP)

R2.=(SP)
R3.-(SP)
R5.-(SP)

#20200,-(SP)
20(SP) -RS
1$

::PUT THE BINARY NUMBER ON THE

1:GO TC THE

ROUTINE

::PUSH RO ON STACK

*:PUSH R1

ON STACK

::PUSH R2 ON STACK
:;PUSH R3 ON STACK
*:PUSH RS ON STACK

*SET BLANK SWITCH AMD SIGN

;:GET THE IMPUT NUMBER
“:BR IF INPUT IS POS.

*:MAKE THE BINARY NUMBER POS.

;s ZERO THE CONSTANTS INDEX

#'-_1(SP)

SIMAKE

THE ASCII NUMBER NEG.

STACK

CZR6BDO RKk611 D SKLS € T RL PRT?
4&=SEP- 8 1 13:47
CZR6BD.P11
.

045020

012 703

112 723

005 002
016 001
160 105
002402
005202
000774
060105
005702
001002

045064
045072
045076
045102
045104
045106
045112
045114
045116
045120
045122
045124
045126
045134
045136
045140
045142
045144
045146
045150
045154
045162
045164
045166
045170

045172
045174
045176

105716
100407
106316
103003
116663

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603
012602
012601
012600

104401
016666
012616
000002
023420
001750
000144
000012
000004

045176
000040

L 11

15:10 -PAGE 142
14-SEP-81
30(1046)
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2$:

045166

3%:

4%:

MOV
MovB

BLT

045176
000002

177776

9%:

000004
:
$DTBL

$DBLK:
.SBTTL

;2FORM THIS BCD DIGIT

;:BR IF DONE

BNE

::FALL

::CHECK IF BCD DIGIT=0

1<sp>

‘.

Ré

-1(R3)

+
(SP)
9%
=1(SP) ,=2(R3)
(R3)

(SP) +,RS
(SP)+.R3

(SP)+,R2
(SP)+ ,R1
(SP)+,R0

,$DBLK

2(SP) ,4(SP)
(SP)+,(SP)

10000.
1000.
100.
10.BLKW

;iMSD?

R2. (R3)0
(RO)+
RO,#10
2%
8%

MOV
MOV
MOV
MOV
MoV
TYPE
MOV
MOV
RTI

THROUGH

2;STILL DOING LEADING 0°'S?
S3BR I V&S

(SP)

CLRB

TTY

TO A BLANK

;s INCREASE THE BCD DIGIT BY 1

BLT
BGT

8%:

:SET THE FIRST CHARACTER

;;ADD BACK THE CONSTANT

177777

7%:

;sCLEAR THE BCD NUMBER
;sGET THE CONSTANT

TST

MoV
BR
TSTB
BPL
MOVB

177777

2
$DTBL (k0) ,R1
R1,R5

ADD

000010

000001
000060
000040

;:SETUP THE OUTPUT POINTER

INC
BR

TSTB
BMI
ASLB
B(C
MOVB
BIS
BIS
MovB
TST
CMP

5%:

#$DBLK ,R3

g'L(R%)+

CLR
MOV
SUB

SEQ 0141

;:BR IF NO
;2YES==SET

THE SIGN

;3PUT

CHARACTER

;sMAKE THE BCD DIGIT ASCII
:2MAKE IT A SPACE IF NOT ALREADY A DIGIT
THIS

IN THE OUTPUT BUFFER

;s JUST INCREMENTING
;sCHECK THE TABLE INDEX
;G0 DO THE NEXT DIGIT
:2G0 TO EXIT
::GET THL LSD
;:G0 CHANGE TO ASCII
;sWAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO

JsYES==SET THE SIGN FOR TYPING

;2sSET THE TERMINATOR
::POP STACK INTO RS
;:POP STACK INTO R3

;:POP STACK INTO R2
;sPOP STACK

INTO R1

;;POP STACK INTO RO
;NOW TYPE THE NUMBER
:;ADJUST THE STACK
;;RETURN TO USER

INPUT ROUTINE

;;Qttiiittt*ttttttttt.t'ttttti"tttttQttttttt'titl'.ti"lt'tttt'.

.ENABL
SRR

LSB
A AR AR A A AR AR AR A AR AR A AR A AR AR AR AR

AR AR

AR RN

*SOFIUARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
*«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTEK TRAP CALL

045206
045214
045216

=
oo
=D
NO~N

757
7572
7573
7574
7575
7576
7577
7578
7579

MACY11

000176
133722

001140

- «WHEN OPERATING

$CKSWR: CMP
BNE

- TSTB

IN TTY FLAG MODE.
#SWREG, SWR
;1S

15%
a$TKS

THE SOFT-SWR SELECTED?
;;BRANCH IF NO
::;CHAR THERE?

CZR6BDO RKk611 DSKLS CTRL PRTZ
14-SEP-81 13:4
(ZR6BD.P11
045222

100071

117746

042716
022726
001062

001456

045252
045256
045262
045266
045270
045274
045276
045300
045304

104401
104401

046071
046076
000176

045306
045312

005046
005046
105777
100375

117746

MovB

BIC

000007

045250

104402
104401

BPL

177600

001134

CMP

BNE
CMPB
BEQ

000001

$GTSWR:

046107

19%:

133640

7$:

133634

045316
045322
045324
045330
045334

021627
001005

000025

9%:

046064
000006

20%:

045336
045342
045344
045350
045352
045360
045364
045370
045376
045400
045406
045410
045414
045420
045422
045426
045430
045434
045440
045442
045444
045446
045450
045454
045460
045462

021627
001022
005766
001403
016677
062706

010015

10%:

001003
012777
(00002
004737

044412
000060

000060
000002

000002

133536

000100

000001

000067

104401

133560

000002
000006
001211
001135

1
16%:

143

SEQ 0142

a$TKB,=(SP)

:31F NO, DON'T WAIT AROUND
;:SAVE THE CHAR

#7,(SP)+

::1S IT A CONTROL G?

15%

#2C177.(SP)
15§

::STRIP=0FF

THE ASCII

JsNO, RETURN TO USER

$AUTOB,#1
15%

;;ARE WE RUNNING IN AUTC=-MODE?
s sBRANCH IF YES

LSCNTLG
. SMSWR

;:ECHO THE CONTROL=G (“G)

;s TYPE CURRENT CONTENTS
2 *SAVE SWREG FOR TYPEOUT
;:G0 TYPE--OCTAL ASCIICALL DIGITS)

CLR
CLR
TSTB

=(SP)
=(SP)
a$TKS

. sCHAR THERE?

a$TKB,~(SP)

;:PICK UP CHAR

(SP) ,#25

::1S IT A CONTROL=-U?
: :BRANCH IF NOT
;:YES, ECHO CONTROL-U (*W)
;: IGNORE PREVIOUS INPUT
;:LET'S TRY IT AGAIN

TYPE

BPL

CMP

. SMNEW

108

ADD

#6,SP

CMP
BNE

(SP)
16

TYPE

LSCNTLU

19%

,#15
(SP)

BEQ
MOV
ADD

11
2(SP) ,aSWR
#6,SP

CMPB
BNE
MOV

#?
$INTAG,
15%
#100,387TKS

JSR

PC,STYPEC

TYPE

RTI

CMP
BLT
CMP

. SCRLF

BIC

(SP) ,#60
18%
(SP) ,#67
18%
#60, (SP)+

BEQ

17%

BGT
TST

ASL
ASL
ASL

2(SP)
(SP)
(SP)
(SP)

INC
BIS

2(SP)
=2(SP),(SP)

001210

TYPE

.SQUES

;:;CLEAR COUNTER

;+1F NOT TRY AGAIN

#2C177,(SP)

BNE

;:PROMPT FOR NEW SWR
;s THE NEW SWR

177776

PAGE

SWREG,=(SP)

TST

_—)

104401
123727

000004

MoV
TYPOC

BIC

177600

104401

TYPE
TYPE

MOvVB

042716

062706
000757

15:10

14=SEP-81
TTY INPUT ROUTINE

30(1046)

133716

123727

013746

MACY11

ssMAKE IT 7-BIT ASCII

;IS IT A <CR>?

: ;BRANCH IF NO
:2YES, IS IT THE FIRST (CHAR?
;;BRANCH IF YES
;:SAVE NEW SWR
;sCLEAR UP STACK
:;ECHO <CR> AND <LF>
:;RE-ENABLE TTY KBD INTERRUPTS?
; ;BRANCH IF NOT
;sRE-ENABLE TTY KBD INTERRUPTS

2 JRETURN

;;ECHO CHAR
::CHAR <
;;BRANCH
;:CHAR >
s BRANCH

IF YES

;:STRIP=-0OFF ASCII

::1S THIS THE FIRST CHAR

; :BRANCH IF YES
;iNO, SHIFT PRESENT
CHAR OVER TO MAKE
38
ROOM FOR NEW ONE.
r§;:KEEP COUNT OF CHAR
;;SET IN NEW CHAR

;sGET THE NEXT ONE
::TYPE 72<CR><LF>

045466

MACYTT

000720

30(1046)
TTY

INPUT ROUTINE

.DSABL
s

14-SEP-81

BR
LSB

NT1
PAGE 144

15:10

208

SEQ 0143

;s SIMULATE CONTROL=U

R AR R AR AR AR R TR

R AR ARAARRANARRARRAAARARRRRA
AR

:'E:IS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
I

iLs

e
e

045470
045472
045500
045504
045506
045514
045522
045530
045532
045536
045540
045544
045550
045554
045556
045560
045566
045570
045576
045600
045606
045610
045616

000004

000002

133434
177600
000004

000004
000004
000023

133440

133406

1%:

2%:

000021

MOV

TSTB
BPL
MOVB

000021

000004

00140

000004

000175

000040

000004

3$:

(SP) ,=(5P)

;:PUSH DOWN THE PC

as$TkS
1%
@$TKB,4(SP)

S:WAIT FOR
::A CHARACTER
*:READ THE TTY

4(SP),2(SP)

::SAVE THE PS

#4C<177>,4(SP)
4(SP) ,#2%

::GET RID OF JUNK IF ANY
::1S IT A CONTROL=-S?

TSTB

as$TKS

::WAIT FOR A CHARACTER

MOVB

a$TKB,=(SP)

BNE
BPL

BIC

#°C177.(SP)

BNE

CMP
BEQ
CMP

4(SP) ,#$XON
1%
4(SP) ,#140

BLT

CMP

BGT
48:

;;CHARACTER IS ON THE STACK
::WITH PARITY BIT STRIPPED OFF

BIC
CMP

CMP

000004

;:INPUT A SINGLE CHARACTER FROM THE TTY

RETURN HERE

$SRD"HR: MOV

133402
177600

026627
002407
026627
003003
042766
000002

RDCHR

BIC
RT]

::BRANCH ifF NO

::LOOP UNTIL ITS THERE
S:GET CHARACTER

S:MAKE 17 7-BIT ASCII

(SP)+,#21

::1S

1:YES,

;;BRANCH IF

YES

S:BRANCH IF

YES

4L(SP) 4175
#40,4(SP)

IT A CONTROL=Q?

::1F NOT DISCARD IT
RESUME

::1S IT A RANDOM XON?
::BRANCH IF YES
::IS IT UPPER CASE?

:RANOO1
*RANOO1

::1S IT A SPECIAL CHAR?
$:MAKE IT UPPER CASE

1:G0 BACK TO USER

ttt'tttt.ltt.t.tt!tttttt""t'tQQQ'tt"'tttQi'titttttttt't'ttt.

-g:gs ROUTINE WILL
:*(ALL:

010346
005046
012703
022703
101456
104410
112613
122713

001022
005716
001007
112737
104401

012716

<DL IN

RETURN HERE

1%:

2%:

MOV

cMP
BLOS

RDCHR

000177

108:

MOVB

(MPB

BNE

000134
06605;
12777

046052

TTY

::INPUT A STRING FROM THE TTY

:;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;;TERMINATOR

$RDLIN: MOV
(LR

046054
046064

INPUT A STRING FROM THE

R3,=(SP)
-(5P)

#STTYIN,R3

#STTYIN+8..R3
4%
(SP)+, (R3)

#177.(R3)

5§

::G0 READ ONE

#-1,(SP)

BYTE

ALL

CHARACTER FROM THE

S:GET CHARACTER
i3IS

IT A RUBOUT

:BR IF NO

;sTYPE

,9%

MOV

::BUFFER FULL?
;:BR IF YES

#'\,9%

TYPE

MOVR

0'S

S:GET ADDRESS

::SAVE R3
::CLEAR THE RUBOUT KEY

(SP)

BNE

WILL

1S THIS THE FIRST RURBOUT?

::BR IF NO

A BACK

SLASH

::SET THE RUBOUT KEV

TTY

CZR6BDO RK611 DSKLS CTRL PRT g
14=SEP=-81 13:4
(ZR6BD.P11

CZR6BDO RK611 DSK LS (7 RL PRT2
14-SEP-8 113:47
(ZR6BD.P11
7739
7740
7741
7742
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

7777

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
045760
045764
045770
045772
045776
046000
046004
046010
046014
046016
046022
046026
046030
046032
046034
046042
046050
046052
046053
046054
046064
046071
046076
046104
046107
046114

0053 03
0203 27
1034 34
1113 37
104 401
0 00746
005716
001406
112737
104401

005016
122713
001003

5%:

000134
046052
000025
046064

122713
001011
105013
104401
104401
000717
104401

000022

000712

111337
104401
122723
001305
105063
104401

005726
012603
011646
016666

012766
000002
000010
052?36
005015
020075
040
036440

046052
7%:

8%:

001211
046054
4%:

046052
046052
000015

3%:

BLO

e )

BEQ

;sBACKUP BY ONE
;sSTACK EMPTY?
;:BR IF YES
J2SETUP TO TYPEOUT THE DELETED CHAR.
;.60 TYPE
;.60 READ ANOTHER CHAR.
;sRUBOUT KEY SET?
;:BR IF NO

#25,(R3)

;:CLEAR THE RUBOUT KEY
;:1S CHARACTER A CTRL U?

TST

177777

LSCNTLU
$

CMPB
BNE
CLRB

#22,(R3)
$
(R3)

TYPE

BR
MOVB
TYPE

MOV

9%:

005015
006507
053523
000
047040
000040

(SP)

BNE
TYPE
BR

CMPB

TYPE
TST

000002
000004

(R3),9%
.98

#'\,9%
,9%
(SP)

MOV

000004
046054

R3IAETTYIN

MOvB
TYPE
CLR

CMPB
BNE
CLRB

001212

SEQ 0144

CMP

TYPE
TYPE

001210

PAGE 145

DEC

MOVB
TYPE

046052
046052

B 12

15:10

14-SEP-81
TTY INPUT ROUTINE

30(1046)

6%:

046054

104401

000726

MACY11

;.TYPE A BACK

;:BR IF NO
;2TYPE A CONTROL 'V’

;.60 START OVER
;31S CHARACTER A "TMR'TM?
. sBRANCH IF NO

;sCLEAR THE CHARAC(CTER

LSCRLF
LSTTYIN

;. TYPE

,SQUES

2TYPE A

(R3),9%
,9%

#15,(R3)+
2%
-1(R3)

STRING

°2°

;sCHECK FOR RETURN
;:LOOP IF NOT RETURN

;:CLEAR RETURN (THE 15)
;sTYPE A LINE FEED
::CLEAN RUBOQUT KEY FROM THE STACK

LSLF
+
(SP)

(SP)+ ,R3

(SP) ,-(SP)

.BYTE

;RESTORE
R3

::ADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCII CHARACTER ON IT
‘e
;RETURN

;:STORAGE FOR ASCII CHAR.
;s TERMINATOR

000
000012
020122

$TTYIN:
$CNTLU:
$CNTLG:
$MSWR:

.BLKB
JASCIZ
LASCIZ
JASCIZ

8.
/7*2U/<15><12>
/7%G/<15><12>
<15><12>/SWR =

053505

$MNEW:

JASCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE

THE

TO TYPE

;sRESERVE 8 BYTES FOR TTY INPUT

;;CONTROL ‘U
;2CONTROL ''G"’

NEW =

AR AR AR AR AR R AR R AR R R

WILL

INPUT

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

4(SP) ,2(SP)
#STTYIN,4L(SP)

'THIS ROUTINE

THE

;.60 PICKUP ANOTHER CHACTER

MOV
MOV
RTI

SLASH

TTY

R AR AR R R AR R AR AR AR R R AR AR AR AR RN

READ AN OCTAL

s*CHANGE IT TO BINARY.
:*THE INPUT CHARACTERS WILL BE

(ASCII)

NUMBER FROM

R A RRRN R

THE

TTY AND

CHECKED TO INSURED THEY ARE LEGAL

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '"?'' UILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
:'E:Ef BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
b

. ®

RDOCT
RETURN HERE

;;READ AN OCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BD. P11

14-SEP-81

13:47

MACY11 30(1046)

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

046120
046122
046130
046132
046134
046136
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

000004

000002

$RDOCT: MOV

1%:

046246

2%:
000060

CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL

BIC

ADD

3%:

4%:

000000

CLR
CLR
MOVB
BEQ
CMPB

177770

001210

MOV
MOV
MOV
MOV
RDLIN
(0]
[0}

BGT

000067

000012
046256

€ 12

PAGE 146

5%:
$HIOCT:
.SBTTL

SEQ 0145

TTY

;sHIGH ORDER BITS ARE IN SHIOCT

TST

MOV
MOV
MOV
[0}
MOV
RTI

(SP) ,=(SP)
4(SP) ,2(SP)
RO,=(SP)
R1,=(SP)

R2,=(SP)

(SP)+ RO
RO,5%
R1

R2
(RO)+,=(SP)
3$
#'0,(SP)
$
#'7,(SP)
o~

7799
7800
7801
7802

15:10

READ AN OCTAL NUMBER FROM THE

7795

7796
7797
7798

14=SEP=81

THE

;;PICKUP THIS CHARACTER
1F ZERO GET OUT
;.
;sMAKE SURE THIS CHARACTER
;:1S AN OCTAL DIGIT

;.%8
#*C7,(SP)
(SP) +,R1

+
(SP)
R1,12(SP)
R2.$HIOCT
(SP)+,R2
(SP) +,R1
(SP)+,R(C

+
(SP)
(RO)

.WORD

0
. SQUES

TYPE

SPACE FOR

;s INPUT NUMBER
;sPUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
:sREAD AN ASCIZ LINE
;.GET ADDRESS OF 1ST CHARACTER
;3AND SAVE IT
;:CLEAR DATA WORD

J.%2

8T
CLRB
TYPE

:;PRCVIDE

;sSTRIP THE ASCII

JUNK

::;ADD IN THIS DICGIT
;:LO0P
;;CLEAN TERMINATOR FROM STACK
:sSAVE THE RESULT

;sPOP STACK INTO R?2
;:POP STACK INTO R1
;:POP STACK INTO RO

s RETURN
;.CLEAN PARTIAL FROM STACK

soSET A TERMINATOR

;2TYPE UP THRU THE BAD (HAR.
:;l.?..

.lCRll

'.LF'O

;. TRY AGAIN
:; ;HIGH ORDER BITS GO HERE
SAVE AND RESTORE RO-R5 ROUTINES

BR
.WORD

'.'l"t"ttt'tttttttt!t't"ttt"fiitt"tttittt'l't'.'!t"t't"'t"tt

**SAVE RO-RS

J«CALL:

SAVREG
:A
:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
. %

PATOP===(+16)

;% 42-==(418)
;% +4--=R5

;% +6=---R4

:® sQ===R3

;*+10---R2
;*+12-==R1

7894
7895
7896
7897
7898
7899
7900

D 12
PA GE 147

RO,=(SF)
R1,=(SP)

R2,=(SP)
R3,=(SP)

R4 ,=(SP)

SEQ 0146

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

132560
046402
000340

046354
046362
046370
046376
046400

004274
000024
000026

STACK
STACK
STACK
STACK
STACK
STACK

;:PUSH R1

::PUSH R2

;:PUSH R3
::PUSH R4

::PUSH
s :SAVE
::SAVE
s :SAVE
;:SAVE

(SP)+,RO

: ;RESTORE PC OF CALL
; ;RESTORE PS OF CALL
; ;RESTORE PC OF MAIN FLOW
s ;RESTORE PS OF MAIN FLOW
:sPOP STACK INTO RS
;;POP STA(CK INTO R4
;;POP STACK INTO R3
;sPOP STACK INTO R2
;;POP STACK INTO R1
:sPOP STACK INTO RO

RS
PS
PC
PS
PC

MAIN FLOW
MAIN FLOW
CALL
CALL

POWER DOWN AND UP ROUTINES
2Rt

POUER DOWN ROUTINE

$PWRDN:

;sPUSH RO

R5,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

2222222

MOV
MOV
MOV
HALT

2Rt

#SPWR
, PWRVE
UP C

sSAVE SWITCH REG
sSET UP VECTOR

;HANG UP

aSWR, SAVSWR

#PR7 ,PWRVE(+?2

Rttt

AL LEEASE SRRt
R0
222002 RRRRRRRRE 2]

046402
046406
046414
046420
046422
046426
046430
046436
046444
046450
046454
046460
046466

046472
000144
046472

W
~

7893

15:10

;*RESTORE RO=R5
*CALL
RESREG
SRESREG

.SBTTL

NNN—‘&—‘U’NM

7887
7838
7889
7890
7891
7892

MOV
RTI

000022
000022
000022
000022

(=1

7883
7884
7885
7886

046316
046316
046322
046326
046332
046336
046340
046342
046344
046346
046350
046352

MOv
MOV
MOV
MOV
MOV

MoV
MOV
MOV
MOV

000022
000022
000022
000022

—3

7880
7881
7882

14-SEP-81

ES
SAVE AND RESTORE RO=RS ROUTINES

$SAVREG:

046260
046260
046262
046264
046266
046270
046272
046274
046300
046304
046310
046314

~
H

7865

7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879

30(1046)

;%+14===R0

rpd=lelelele lolele]
O===20000—=0

7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862
7863
7864

MACY11

POUER UP ROUTINE

046474

046474
046354
000340
001100
046476
042360
004274
132414

000024
000026

132452

SPURUP
1%:

CLR

MOV
INC
BNE
DEC

BNE

MOV

MOV
MOV
TYPE
JSR
MOV
JMP

SPWRCT
#100. ,8PWRCT+2
$PWRCT
1%

;LOOP LOOP TIMER
sWAIT FOR

TELETYPE

SPWR(T+2
1%

#$PWR
, PWRVE
DN
C
#PR7 ,PWRVE( +2
#STACK,SP

;SET UP THE POWER DOWN VECTOR

PC,CHKPAR
SAVSWR ,aSWR

;CHECK FOR MEMORY CHECK ENABLE OPTION
JRESTORE SWITCH REG

. SPOWER

a$LPADR

sFORCE STACK POINTER
;TYPE

POWER

;START TEST AGAIN

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

CZR6BDO RK611 DSKLS CTRL PRT?
14-SEP-81 13:47
(ZR6BD.P11
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917

046472
046476
046504

000000
005015
000122

000000
047520

MACY11

042527

7922

7923
7924
7925

7926

7927

7928
7929
7930
7931

793¢

7933
7934

;COUNTER FOR TELETYPE

.SBTTL

.EVEN
TRAP DECODER

0,0

<15><12>/POWER/

AL S22ttt

s*AND USE

Rttt

TO INDEX

THROUGH THE

TRAP TABLE

RRRRld

]

THE ''TRAP'‘ INSTRUCTION

FOR THE

STARTING ADDRESS

;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
046506
046510
046514
046516
046520
046522
046526

010046
016600

005740

$TRAP:

000002

006300
016000
000200

TST

046542

011646
016666
£00002

000004

9000002

IS USE

;s SAVE RO
;;GET TRAP ADDRESS

RO
$TRPAD(RO)
,RO
RO

;;POSITION FOR INDEXING
;;INDEX TO TABLE
::G0 TO ROUTINE

TO HANPLE

$TRAP2: MOV
MOV
RTI

.3BTTL

RO,=(SP)
2(SP) ,RO

=-(R0O)
(RO) ,RO

RTS

;:THIS

046530
046532
046540

MOV
MOv

mMCvB
ASL
MOV

111000

THE

; ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP

"'GETPRI'' MACRO

(SP) ,=(SP)
4(SP) ,2(SP)

::MOVE
;:MOVE

THE PC DOWN
THE PSW DCWN

;;RESTORE

THE

PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE "'TRAP'' INSTRUCTION.

7939
7940

7947
7948
7949
7950
7951
7952
7953
7954
7955
7956
7957

.WORD
LASCIZ

7935

7946

$PWRCT:
$POWER:

SEQ 0147

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

7936
7937
7938
7941
7942
7943
7944
7945

148

7918

7919
7920
7921

E 12

14~SEP-81
15:10
PAGE
30(1046)
POWER DOWN AND UP ROUTINES

THE

ROUTINES CALLED

ROUTINE

$TRPAD: .

046542
046544
046546
046550
046552
046554

046530
044200

044560
044534
044574
044762

$TYPDS

046556

045256

$GTSWR

046560
046562
046564
046566
046570
046572
046574

045206

$CKSWR
;s CALL=CKSWR
$RDCHR
;s CALL=RDCHR
$RDLIN
;sCALL=RDLIN
$RDOCT
s sCALL=RDOCT
$SAVREG
.;s CALL=SAVREG
$RESREG ;s CALL=RESREG
SCOP1$
;s CALL=SCOP1

045470
045620
046120
046260
04€316
043224

$TRAP?

s sCALL=TYPOC
s sCALL=TYPOS
s sCALL=TYPON

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)

2 sCALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

;s CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

TRAP+7(104407)
TRAP+10(1
TRAP+11(1
TRAP+12(1
TRAP+13(1

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL WNUMBER FROM TTY

;s CALL=TYPE

TRAP+14(1

TRAP+15(1

TYPE OCTAL

NUMBER

(NO LEADING ZEROS)

TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

SAVE RO-R5 ROUTINE

RESTORE RO-R5 ROUTINE
INTERNAL LOOP ON ERROR

CZR6BDO RKk611 DSKLS CTRL PRT?
14=SEP=81 13:47
CZR6BD.P1T

MACY11

7958

7959
7960

7961
7962
7963

7964

7965

7966
7967

7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7578
7979
7980

046576
046602
046610
046616
046622
046630
046636
046644
046652
046660
046666
046674
046702
046704
046712
046714
046722
046730
046736
046744
046752
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

14=-SEP-81

15:10

F 12
PAGE

DATA PRINTED BY ERROR ROUTINES

149

.SBTTL

DATA PRINTED BY ERROR ROUTINES

DT000:
DTOO01:

.WORD
.WORD

$TESTN, TRAPP(
$TESTN,SERRPC,E.CST1,T.CS?,E.MR2,T.MR2
E.MR3,T MR3

DT002:

.WORD

$TESTN,SERRPC,E.CST1,T.CS1,DRVCOD,E.MR?,T.MR2
E.MR3, T .MR3

DT006:

.WORD

$TESTN,SERRPC,E.CS1,T.CS1,HCCODE
,E.MR2,T.MR2 E.MR3,T.MR3

DT012:

.WORD

$TESTN,SERRPC ,E.CST,T.CST1,E.MRT,T.MR1 MSG(COD

.WORD

E.MR2,T.MR2,E.MR3,T.MR3

004272
001116
004206
004150
001116
004244
004210
001116
004250
004210
001116
004204

004160
004206
004150
004160
004206
0041590
004160
004144

004146

004210

001116
004252
004210
001116
004254

004160
004206
004150
004160
004206
004150
004160
004254
004210

DT017:

.WORD

$TESTN,SERRPC ,E.CST,T.CST1,CYLIN,E.MR2,T.MR2
E.MR3,T .MR3

DTO31:

.WORD

$TESTN,$ERRPC,E.CS1,T.CS1,0FFVAL
,E.MR2,T.MR2 E.MR3,7.MR3

DT035:

.WORD

$TESTN,SERRPC,E.CST,T.CS7,CYLIN,OFFVAL

.WORD

E.MR2,T.MR2,E.MR3,T.MR3

004230
004206
004150
004210
004146
004760
004130
004174

DTO050:

.WORD

$TESTN,$ERRPC,U.MR2,U.MR3,SFTCNT,E.MR2,T.MR2
,E.MR3,T .MR3

DT0S52:

.WORD

$TESTN,SERRP( ,E.MR3,T.MR3,E.MR2,T.MR2

DTO62:

.WORD

$TESTN,$ERRPC ,E.CST,T.CS1,E.CS2,T7.CS2,E.DS,T.DS
E.ER,T.ER

004160

DT065:

.WORD

$TESTN,SERRPC E.CST1,T.CSi

004206
004150

DT067:

.WORD

$TESTN,SERRPC,E.MR2,T.MR2
E .MR3,T .MR3

DT100:
DT126:

.WORD
.WORD

$TESTN,SERRPC
$TESTN,SERRPC,E.CS1,T.CST

DT224:

.WORD

$TESTN,$ERRPC ,E.CS1,T.CS1,E.CS2,T7.(S2,E.DS,T.DS

.WORD

E.ER,T.ERP.CST1,P.CS2.P.DS.P.ER

.WORD

$TESTN,SERRPC ,DRVTYP,CYLIN, HDCODE ,E.CST,T.CST,E.CS2,7.(S2

.WORD

E.DS,.T.DS.E.ER,T.ER

.WORD

$TESTN,SERRPC,F.CST,T.CST,E.ER,T.ER,ILLFUN

004160
004146

004160
004160
004130

004132
004120
004270

30(1046)

001116
004174

004220
004226
004266
004160
004130
004174
004160

004134

DT230C:

DT256:

SEG (148

CZR6BDO Rk611 DSKLS CTRL PRT?
(ZR6BD.P11
14,-SEP=81 13:47
8014

8015
8016

047232
047234
047236
047240
047242
047244
047246
047250
047252
047254
047256
047260
047262
047264
047266
047270
047272

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
000
050610
003
050410
000
050447
004
000007
000
050271
000
050307
002
050634
000
050701
005

000

MACY11

14-SEP-81
30(1046)
DATA FORMATS

.SBTTL

DATA FORMATS

DF000:

.WORD

DFO01:

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

000
000

.WORD

000
000
000

.WORD

DFO02:

000

000
000
00

000
000

000

DFC06:

000

.WORD

000

.WORD

000

00C
000

000
000

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

000

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

.WORD

LFO12:

.WORD

BYTE
.WORD
BYTE
.WORD
BYTE
. WORD
BYTE

15:10

G 12
PAGE

150

SEG 0149

2'0
7

sERROR 1

4,0
7

:ERRORS 2-5

0.0
DHO00A
0,0
DH000B
2.0
DHOOTA
0.0
DH001B
2'0
DH001C
0.0
DHO01D
0.0
DHO00A

0.0
DH000B
g.0
DHO02A
0,0
DH002B
3'0
DHO01C
0.0
DHO01D
4,0
7

0.0
DHO00A
0,0
DHO00B
2.0
DHO06A
0'0
DH006B

;ERRORS 6-11

3.0

DHO01C
0'0
DHOO1D

4,0
7

0'0
DHO00A

0.0
DHO008
2'0
DHO12A
0.0
DHC 128
5.0

;ERRORS12-16

(ZR6BDO Rk611 DSKLS CTRL PRT?
14=SEP=81 13:4°
(ZR6BD.P11

wsd
e
e
el wd
ik
)
)
il
i
) ol el
i
il
ol
il

MNOPOMNONUNUND
= Db
b B G B B
w OO o
VB W= OV
O NS W
—=O0V00~N o

00 0o Go 0o Co Go 0o Co Co Co 0o GO 0o Co 0o Co 0o Co Co Co Co

8070
8071

047406
047410
047412
047614
047416
047420
047422
047424
047426
047430
047432
047434
047436
047440
047442
047444
047446
047450
047452
047454
047456
047460
047462
047464
047466
047470
047472
047474
047476
047500
047502
047504
047506
047510
047512
047514
047516
047520
047522
047524
047526
047530
047532
047534
047536
047540
047542
047544
047546
047550
047552
047554
047556
047560
047562
047564

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

000
050447

004
000007
000
050271
000
050307
002
051076
000
051135
004
050410
000
050447
004
000007
000
050271
009

050307
002
051173
000
051221
003

MACY1T

14-SEP=-81
30(1046)
DATA FORMATS

000
000

000

DFO17:

000

000
000

000
000
000
000

DFO31:

000
000

000
000
000
000

000

DF(035:

000

000
000
000
000
000
000

000
000

000

.WORD
BYTE
.WORD
HYIE

DHQO1C
0,0
DHO01D
&,

.BYTE
.WORD
YT
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD

0.0
DWKOOOA
©.0
DKO00B
2.0
DHO17A
0,0
DHO0178B
3,0
DHO01C
0.0
DHOO01D
4,0
&
0,0
DHOO00A
0.0
DHO00B
2.0
DHO31A
0,0
DHO31B
3,0
DHOO1C
0,0
DHO01D

.WORD

.BYTE
.WORD
.BYTE
.WORD

.WORD
.BYTE
.WORD

000

DFO50:

15:10

4,0
7
0.0
DHO00A

H 12
PAGE

151

SEQ 0150

;ERRORS 17-30

;ERRORS 31-34

;ERROR 35-41

DHO00B
.0
DHO35A

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

0,0
DHO035B
4,0
DHO01C
L0
DHOO01D
4,0
7

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

DHOQOA
0.0
DHOOOB
2.0
DHOS0A
0,0
DHO508B
3,0

;ERRORS 50 & 51

CZR6BDO Rk611 DSKLS CTRL PRT?2
14-SEP=81 13:47
CZR68D.P11
S0
W W WWWINWWNWWNNNI
NN
YN N NN NN S S BN
VN NS WN 20OV
VS W N - OO0 ONO NS W 2OV

00 00 0o Co Co Go 0o 0o 0o 0o Co Co Go 0o Co o Co Co 0o o Go 0o Co Co Co 0o Co Co 0o 0o Co Ot GO Go 0o 0o 0o Jo Co Ov Lo Co Co 0o Co 0o 0o 0o Co OB Co OO OO 0o (O

8126
il
nld
il
el
sl
il cnld cdd
el
vl
el
i
b

I
I
I
I
e I
e
ke
T
S
g
g
e
R
R
R——
Y
Y
——— Y
W—
QU
T JE T U
N
Y
[

WO N NNNNNNNNYNO
SOV
NONEB W 2OV

OO
NO VMBS W 2O

127

047566
047570
047572
047574
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
047742
047744

050410
000
050447

004

000005
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
000005
000
050271
000
050307
002
051443
000
051502
004
000003
000
050271
000
050307
002
000005
000
050271

000
050307

002

MACY11

14-SEP-81
30(1046)
DATA FORMATS

.WORD
.BYTE
.WORD

000
009
000

DFOS2:

000

.WORD

000

.WORD
.BYTE
.WORD

000

000
000

DF062:

000
000

000

DFO065:

00
000

000

DF067:

000

DF100:

000
000
000

.WORD
.BYTE
.WORD

DHOO1C
0,0
DHO01D
4,

0.0
DHO00A
0.0
DHO00B
2.0
DHO01C
0,0
DHO01D

0.0

112

PAGE

152

;ERRORS 52-61

;ERRORS 62-64

DHOO00A

0,0

DHQ00B

2,0

DHO62A
0.0
DH0628B

5
0.0
DHO00A
0.0
DHO00B
2'0
DHOO01A
0,0
DH0018

0.0
DHO00A
0.0
DH(00B
2.0
DHO67A

;ERRORS=-65-66

;ERRORS 67-70

:ERROR 100

.WORD

000
000

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

000

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

000

.WORD
.BYTE
.WORD

15:10

DF126:

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

:ERROR 126

SEQ 0157

000
000

DF230:

000
000

000
000
000

000

DF256:

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

o
b
o
@
o
>

o
@
no
P2

A
>»
@
£H

000

;ERRORS 230-233
>

.WORD
BYTE
.WORD
.BYTE
.WORD

000

.WORD
.BYTE
.WORD
.BYTE
.WORD

000

;ERRORS 224=227

>»

DF224:

©O

000

.WORD
.BYTE
.WORD

SEQ 0152

000
051712

~- 000

153

050004
050006
050010
050012
050014
050016
050020
050022
050024
050026
050030
050032
050034
050036
050040
050042
050044
050046

.WORD

000

PAGE

>»

050000
050002

J 12

8193

8194
8195
8196
8197

051540
000
051557
002
000007
000
050271
000
050307
002
051247
000
051346
010
051575
000
051630
004
000007
000
050271
000
050307
002
051665

15:10

8189
8190
819N
8192

047746
047750
047752
047754
047756
047760
047762
047764
047766
047770
047772
047774
047776

30(1046)
14=SEP-81
DATA FORMATS

8182
8183
8184
8185
8186
8187
8188

MACY11

VIO OD WO ODNNODOUDONHRDOTUDOUDODNDODONNND OO
o« I
&£
Es
Es
Fv
Es
s
I >
o}
I~
I~
I
I~
I~
I
~
OO OONONOOOCOTO
OMNNON
j=lelelelelelele
e
e
N
oo
o
W
W
O
O
OO~
N
o
o
o

(ZR6BDO RK611 DSKLS CTRL PRT?
14=SEP-81 13:47
(ZR68BD P11

;ERROR 256

CZR6BDO Rk611 DSKLS CTRL PRT;
14=35EP=-81 1
(ZR6BD.P11
8215
8216
8217
8218
8219
8220
8221
8222
8223

050050
050052
050054
050056
050060
050062
050064
050066
050070

000
050271
000
050307
002
051736
000
052002
005

000
000
000

000

MACY11

30(1046)

14-SEP-81

DATA FORMATS

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

15:10

0.0
DHOOCA
0.0
DHO00B
2.0
DH256A
0.0
DH2568

K 12
PAGE 154

SEQ 0153

CZR6BDO Rk611 DSKLS CTRL PRT2
CZR6BD.P11
14=SEP=81 13:47

MACY11 30(1046)
14-SEP-81
ASCII MESSAGES

wVINIOON

a
~n

~ CONESNON
=

030461

020050

030461

NNDOO—=

W
W

NNOON=MNES

0
0
5
4

3
5

050264

.SBTTL

ASCII MESSAGES

OPROO1:

.ASCIZ

<15><12>/RKk611 BUS ADDRESS ( /

OPRO02:

.ASCIZ

/) =/

OPROO3:

.ASCIZ

/RKk611 VECTOR ADDRESS ( /

OPROO&4:

.ASCIZ

/RK611 PRIORITY

SPACEZ2:
ABORT:

.ASCIZ
LASCIZ

/
7/
<15><12>/PROGRAM ABORTED BECAUSE ERROR THRESHOLD EXCEEDED/<15><12>

( /

;

50200

8250

L 12
PAGE 155
:

n
o

wViSwrornorno -'80\!
onrn

D e e
O
— e

2
2
0

wh v

(elelelelelelelelels
o]

vivvvioarvraoaruavavav
v

j=lelelelelelelalelalelalelalel

o
W
W

8224

15:10

042

005015

SEQ 0154

054105
020040
045522
020040
042514
105

040525

020040
030523

156

SEG 0155

DATA HEADERS

DHOO0A:

LASCIZ

/TEST

ERROR/

DHOO00B:

LASCZ

/NUM

PC/

DHOO00C:

LASCII

/TEST

TRAP/<15><12>

LASCIZ

/NUM

PC/

DHOO1A:

LASCIZ

/EXPECT

ACTUAL/

020061
051503

DHO01B:

LASCIZ

/RK(CS1

RKCS1/

042520

052103
052524
054105
020040
046101

DHOO1C:

LASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

051505

020123

DHOO01D:

LASCIZ

/MESS A

MESS A

MESS B

MESS B/

DHO02A:

LASCIZ

/EXPECT

ACTUAL

DRIVE/

DHO02B:

LASCIZ

/RK(CS1

RKCS1

SELECT/

DHOO6A: LASCIZ

/EXPECT

ACTUAL

HEAD/

DHO068: LASCIZ

/RK(S1

RKCS1

ADD/

DHO12A:

LASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

MESS/

DHO12B:

LASCIZ

/RK(51

RKCS1

RKMR!

RKMR1

SELECT/

051505

042440
000
046525
050040
052123
051124

020115
041520
050130
040440
000114
051503
045522

046440
020101
020123
051505

042520
041501
020040
000105
051503
045522
020040
052103
050130
040440
020114

N
W

020123
051505
046440

PAGE

.SBTTL

O
]
O

115

m12

OO0
OO0
OO0OO
PI AV
N RV VL LV
M=
=D
=N
O—=Wwnownwuno
HOOONVNOON
OO
OWWVNOWW=—=
&c&SHW

126
020040
051117
116
020040
042524
020040
005015
052516
020040
105
020124
040525
045522
020040
000061
054105

15:10

OO0
AV LN
=D
2o
OCOON
===

050271

14=SEP-81
MACY11 30(1046)
DATA HEADERS

OO0
OO0OO0O0O0D
L
R
S Y
L
I
_,em
O
=OOHNVN
oWV
N=O—=Wun—=
H—=m
NLDOHTONVNO
OWW
W=OWVHfnW

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

CZR6BDO RKk611 DSKLS CTRL PRT;
14-SEP=81 13:4°
CZR6BD.P11
8307
8308
8309
8310
8311
831§
8313
8314
8315
8316
8317
8318
8319
8320
8321
8322
8323
8324
8325
8326
8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340
8341
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
355
8356
8357
8358
8359
8360
8361
8362

050722
0150730
050736
050744
050747
050754
050762
050770
050775
051002
051010
051016
051021
051026
051034
051042
051050
051056
051064
051072
051076
051104
051712
051120
051126
051134
051135
051142
051150
051156
051164
051172
051173
05200
051206
051214
051221
051226
051234
051242
051247
051254
051262
051270
051276
051304
051312
051320
051326
051334
051342
(051346
051354
051362
051370
051376

030522
046513
042523
020
050130
040440
020114
047111
041513
051040
020040
000
050130
040440
020114
062523
051503
045522
020040
000105
042520
041501
020040
020116
051506
041513
051040

MACY11 30(1046)
14=SEP-81
DATA HEADERS

15:10

N 12
PAGE 157

SEQ 0156

DHO17A:

LASCIZ

/EXPECT

ACTUAL

CYLIN/

DHO17B:

LASCIZ

/RK(S1

RKCS1

ADD/

DHO31A:

LASCIZ

/EXPECT

ACTUAL

OFFSET/

DHO318B:

LASCIZ

/RK(S1

RKCS1

VALUE/

DHO35A: JASCIZ

/EXPECT

ACTUAL

CYLIN

OFFSET/

DHO358:

LASCIZ

/RK(S1

RKCS1

ADD

VALUE/

DHOS0A:

LASCIZ

/BEFCRE

SHIFTING SHIFT/

DHOS08B:

LASCIZ

/MESS A

MESS B

COUNT/

DHO62A:

LASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL/

/RK(S1

RK(ST

RKCS2

Rk(S2

RKDS

RKER

RKER/

040526
052103
052524

DHO62R: LASCI2

SEQ 0157

045522
020040
020040
051105
045522

051504
045522
020040
020040
051105

050130
040440
020114
041505
052103

041505
052103
042440
020124
040525

DHO67A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

045522
020040
020062
051115
045522
054105
020040
046101
122
020040
030523
120
052517
044507
041440
052116
045522
020040
020062
051504
045522
104
020040
047111
040505
054524
020040
020040
000104
054105
020040
046101
042520
041501
020040
045522
020040
020061
051105
045522
020040
000124

051115
045522
020040
020063
051115
042520
041501
000
041513
051040
000
042522
020123
052123
047117
000123
051503
045522
020040
020040
051105
044522
041440
020040
000104
042520
042101
020040

020062
051115
045522
020040
000063
052103
052524

DHO47B:

.ASCIZ

/RKMR2

RKMR2

RKMR3

RKMR3/

DH126A:

.ASCIZ

/EXPECT

ACTUAL/

030523
041513
i
044526
042522
051105
042524

DH126B:

.ASCIZ

/RK(CS1

RK(CS1/

DH224A:

.ASCIZ

/PREVIOUS REGISTER CONTENTS/

020061
051503
045522
020040
000
042526
046131
044040

DH22%4B:

.ASCIZ

/RKCS1

RK(SZ2

RKDS

;
DH230A:

.ASCIZ

/DRIVE

CYLIN

HEAD/

020040
020104
042101

DH2308B:

.ASCIZ

/TYPE

ADD

ADD/

042520
041501
020040
052103
052524
046111
051503
045522
020040
020040
051105
052506

052103
052524
054105
020040
046101
000114
020061
051503
045522
020040
020040
041516

DH256A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

ILL/

DH256B:

.ASCIZ

/RK(S1

RK(S1

RKER

FUNCT/

W
e M
S
W
Ui
W
N
e W
.
Wi
B
Wi
W
W
S
W
W
M
i
S
W
A
i

RKER/

000174

020040
020040
051504
045522
020040
000
105
020124
040525
050130
040440

051500
051502
051510
051515
051524
051532
051540
051546
051554
051557
051564
051572
051575
051602
051610
051616
051624
051630
051636
051644
051652
051660
057665
051672
051700
051706
051712
051720
051726
051734
051736
051744
051752
051760
051766
051774
05200¢
052010
052016
052024
052032
822040
2046

B 13
PAGE 158

8374
8375
8376
8377
8378
8379
8380
8381
8382
8383
8384
8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8413
8414
8415

051404
051412
051420
051426
051434
051442
051443
051450
051456
051464
051472

15:10

8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373

'
MACY11 30(1046)
14-SEP-81
DATA HEADERS

—

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

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BD.P1T

14-SEP=-81 13:47

MACY11 30(1046)

14-SEP-B1

ERROR MESSAGES

gt;g

15:10

C 13

PAGE 159

.SBTTL

ERROR MESSAGES

EMO00:

.ASCIZ

/UNEXPECTED MEMORY PARITY ENABLE TRAP/

SEQ 0158

8419

052050

04712>

054105

042520

8421
8422
8423
8424
8425
8426
8427
8428
8429
8430
8431
8432
8433
8434

052064
052072
052100
052106
052114
052115
052122
052130
052136
052144
052152
052160
052166
052174

046505
040520
042440
020105
000
101
052120
020101
052103
032062
047524
046522
020116
020124

051117
044522
040516
051126

020131
054524
046102
050101

052124

046505

EM100:

.ASCIZ

/ATTEMPTING A SELECT IN 24 SECTOR FORMAT [N MAINT MODE/

052124
047111
051104
046103
047111
052116
000105
042524
043516
046116
047111
052116
000105
042524
043516
041501
047113
043504
046440
046440

046505
020107
053111
040505
046440
046440

EM10':

.ASCIZ

/ATTEMPTING A DRIiVE CLEAR IN MAINT MODE/

050115
040440
040517
046440
046440

EM102:

.ASCIZ

/ATTEMPTING A UNLOAD [N MAINT MODE/

050115
040440
020113
053517
020105
044501
042117

EM103:

_ASCIZ

/ATTEMPTING A PACK ACKNOWLEDGE IN MAINT MODE/

042524
043516
041505
040522
020116
0201246
000
052124
047111
052123
050123
000105
042524
043516
046105
051525

050115
040440
046101
042524
040515
047515

EM104:

.ASCIZ

/ATTEMPTING A RECALIBRATE IN MAINT MODE/

046505
020107
051101
047111

EM105:

LASCIZ

/ATTEMPTING A START SPINDLE/

050115
040440
041505
047111

EM106:

LASCIZ

/ATTEMPTING A SELECT USING ALL DRIVE SELECTION CONFIGS IN MAINT MODE/

8420

8435
8436
8437

8438
8439
8440
8441
8442
8443
8444
8445
B4std
8447
8448
8449
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472

052056

052202
052203
052210

052216
052224
052232
052240
052246
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
052472
052500
052506
052514

052103

000
101
052120

020101
020105
020122
044501
042117
052101
044524
052440
020104
044501
042117
052101
044524
050040
041501
042514
047111
052116
000105
052101
044524
051040
041111
044440
047111
042504
101
052120
020101
020124
046104
052101
044524
051440
020124

042105

047111
042523
044440
051440
020122
052101
040515
047515

046440

020107
042514
020116
041505
047506
044440
047111
042504

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

MACY11

8473
8476
8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487

052522
052530
052536
052544
052552
052560
052566
052574
052576
052604
052612
052620
052626
052634
052642

020107
051104
042523
047511
043116*
047111
052116
000105
052101
044524
051440
020124
020107
042510
042104

046101
053111
042514
020116
043511
046440
046440

020114
020105
052103
047503
020123
044501
042117

042524
043516
046105
051525
046101
042101
041440

050115
040440
041505
047111
020114
040440
047117

8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507

052656
052664
052672
052673
052700
052706
052714
052722
052730
052736
052744
052752
052760
052766
052773
053000
053006
053014
053022

020116
020124
000
101
052120
020101
052103
043516
046440
042523
041440
051507
040515
047515
101
052120
020101
052040
051040

040515
047515

047111
042504

052124
047111
042523
052440
040440
051505
042514
047117
044440
047111
042504
052124
047111
042523
020117
030113

046505
020107
042514
044523
046114
020123
052103
044506
020116
020124
000
046505
020107
045505
(47101
020066

8511
8512
8513
8514
8515
8516
8517
8518
8519

053046
053054
053062
0530
053076
053104
053112
053120
053122

052101
0445246
051440
044527
052104
044440
047111
042504
101

042524
043516
042505
044124
051440
020116
020124
000
052124

8521
8522
8523
8524
8525
8526
8527
8528

053136
053144
053152
053160
053166
053174
053202
053210

047101
042523
046440
046440
052101
044524
046517
053440

047440
020124
044501
042117
042524
043516
040515
052111

043106
047111
052116
000105
050115
041440
042116
020110

8488

8520

052650

053130

044506

052120

051507

047111

30(1046)
14<SEP-B1
ERROR MESSAGES

15:10

b 13

PAGE 160

SEG 0159

EM107:

.ASCIZ

/ATTEMPTING A SELECT USING ALL HEAD ADD CONFIGS IN MAINT MODE/

EM108:

.ASCI?

/ATTEMPTING A SELECT USING ALL MESS SELECT CONFIGS

EM109:

.ASCIZ

/ATTEMPTING A SEEK TO AN RKO6 IN MAINT MODE/

050115
040440
020113
041440
052105
040515
047515

EM110:

.ASCIZ

/ATTEMPTING A SEEK WITH CDT SET IN MAINT MODE/

046505

EM111:

_ASCIZ

/ATTEMPTING AN OFFSET IN MAINT MODE/

_ASCII

\
:
/ATTEMPTING COMMAND WITH NON-ZERQ CYLINDER ADDRESS AND/<15><12>

044440

020107

EM112:

IN MAINT MODE/

Sunihu—=ro
&S A —=O NN

020116
042524

040
040

053462

042526

046440

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

053470
053476
053504
053512
053520
053526
053534
053542
053550
053556
053564
053570
053576
053604
053612
053620
053626
053634
053642
053650
053656
053663
053670
053676

040523
052101
044524
020117
040522
042104
052111
051440
020124
020105
043501
052101
044524
020117
040522
042526
044522
020116
052103
042526
040523
101
052120
047503

020105
000
052124

042507
042524
043516
042507
042524
050040
0207131
046105
051104
042515
000105
042524
043516
042507
042524
020116
054524
042523
042040
046440
042507
052124
047111
050115

/ATTEMPTING COMMAND WITH NON-ZERO MES-AGE SELECT CODE/<15><12>

LASCIZ

/IN MAINTENANCE MODE/

EM114:

_ASCIZ

/ATTEMPTING TO SHIFT DRIVE MESSAGES/

EM115:

_ASCIZ

/ATTEMPTING TO GENERATE ODD PARITY ON SELECT DRIVE MESSAGE/

EM116:

L.ASCIZ

/ATTEMPTING TO GENERATE EVEN PARITY ON SELECT DRIVE MESSAGE/

EM117:

_ASCII

/ATTEMPTING C(OMPLETE EXECUTION OF

0441
055
042
020
052
006

947
046

051

000
050
052
042
047
051
047
041
053
051

050
052
042
042
0405
0474
0425
0445
0515
0
0465
0201
0425

S NO—=

8554
8555
8556

_ASCII

053422
053430
053433

111
047111
041516
042504
186

053407
053414

044527
047117
020117
043501
042514
042117

;
/NON=ZERG OFFSET IN MAINTENANCE MODE/

0465
0201
0471

LASCIZ

052124
047111
046515

SEQ Q0160

0550
0431
04k4
0471
0415
0425

E 13
PAGE 161

IS n=afno=-aununin—=un

047117
020117
052105
040515
040516
047515

047516
047522
047111
042101
020123
012
116
051105
051506
020116
042524
020105
000
101
052120
047503
020104
047040
051105
051523
042523
041440
012

15:10
:

W= OOOWVNWWMNONWM

0425
0461
0201
0515
0065

053216
053224
053232
053240
053246
053254
053255
053262
053270
053276
053304
053312
053320
053321
053326
053334
053342
053350
053356
053364
053372
053400
053406

30(1046)
14-SEP-81
ERROR MESSAGES

S NNOWVNMNLHFOOOO0OWVT

026516
041440
042504
051104
047101

8529
8530
8531
8532
8533
853,
8535
8536
8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
8547
8548
8549
8550
8551
8552
8553

MACY11

—=~yun

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

EM113:

DESELECT DRIVE

COMMAND/

o
~

IV IV IV IV IV wn
W
~

3712
3 720
3 726

%734
7642
3 750

3752

olelelolelalele) o

oo
0

C(ZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.PIT
14-SEP=-81 13:47

042526
052503

047440
042523
062040
041440
042116

005015

042440
044524

020106
042514
0445%
046

047

MACY11

30(1046)
14-SEP-81
ERROR MESSAGES

054072
054100
054106
054113
0546120
054126
054134
054142
054150
054156
056164
054172
054200
054202
054210
054216
054224

040
040
047
0521
054105

047511
042040
041505
053111

047040
020114
000104
052101
044524

LASCIZ

<15><12>/]IN MAINTENANCE MODE/

.ASCII

/ATTEMPTING (OMPLETE EXECUTION OF

LASCIZ

<15><12>/IN MAINTENANCE MCODE/

EM119:

_ASCIZ

/ATTEMPTING EXECUTION OF DESELECT DRIVE AT NORMAL SPEED/

EM120:

L.ASCIZ

/ATTEMPTING TO WRITE COMMAND AND STATUS REG.

WASC

/ATTEMPTING EXECUTION OF

INTERRUPT

,ASCII

/ATTEMPTING DESELECT COMMAND AFTER WRITING SILO /

8624
8625
8626
8627

054232
054240
054246
054254
054262

020117
020105
047101
020104
051525
020056
046440

B630
8631
8632
8633
8634
8635
8636
8637
B638
8639
8640

056304
054312
054320
054326
054334
054342
056350
(054356
054364
054372
054377

044524
042530
047117
042504
052103
042526
020110
051122
047105
051440
101

8623

020116
042524
020105
000
046505

020116
051505
020124
020105

043117
046105
(051104
052101

051117
050123

042524
043516
051127
047503

020104
052123
051040
020061
044501

020107
052125

SELECT DRIVE (OMMAND/

040515
042505

050115
052040
052111
046515

IN MAINT MODE/

047107
052101
043505
047111
052116

8 Gl wEle Bl R L
043516
052503
047440
042523
042040
053440
047111
050125
041101
052105
052126

SEQ Q161

042
05%

01
044412
047111
041516
042504
052124
047111
041505

F 13
PAGE 162

042
047

EM118:

8606
8607
8608
3609
8610
8611
8612
8613
8614
8615
B616
8617
8618
8619
8620
8421
8622

15:10

042440
044524
020106
042514
044522
052111
042524
020124
042514
000
046505

EM122:

DESELECT

DRIVE

WITH

ENABLE

SET/

163

SEG (162

LASCIZ

/TO (HECK

EMI123:

LASCIZ

/ATTEMPTING COMPLETE EXECUTION OF

050115
051440
020124
020105
044501
042117

EM124:

LASCIZ

/ATTEMPTING

SELECT

050115
041440
021040
051440
021123
047506
006207

EM125:

LASCII

/ATTEMPTING

CHECK

LASCII

/DRIVE AVAILIABLE, SPEED LOSS. VOLUME VALID,/<15><12>

LASCII

/OFFSET,

LASCIZ

/DRIVE

LASCIZ

/ATTEMPTING

50 CLEAR/

DRIVE

"'LOAD

SEEK

[N MAINT MODE/

IN MAINT MODE/

STATUS'' BY

FORCING/<15><12>

042524
043516
045503
042101
052524
020131
047111

PAGE

020107
062514

8652
8653

G 13

15:10

DRIVE

READY,

AND

WRITE

LOCK/<i5><12>

WSO

8647
8648
8649
8650
8651

047111
042523
061440
042116
051105
044524

164=SEP=-81
30(1046)
ERROR MESSAGES

—_)
= OO

8645

8646

052120
042504
052103
040515
052106
044522
051440

044522
040524
042522

NE&ON

8644

054404
054412
054420
054426
054434
054442
054450
054456
054464
054472
054500
054506
054514
054522
054530
054536
054544
054552

13:47

052124
047111
043040

NNV

8641

8642
8643

14=SEP=B81

MACY1T

Swnsnonr

(ZR6BD.P1T

DSKLS CTRL PRT?

O—=NO
==
L0

(IRSBDD RK6E1T

EM126:

STATUS REG./

TO FORCE

DRIVE AVAILIABLE/

(ZR6BDO RK611

CZR68BD.P11T

DSKLS CIiRL PRT?

14-SEP=81 13:47

8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746

055072
055100
055106
055114
055116
055124
055132
055140
055146
055154
055162
055170
055172
055200
055206
055214
055222
055230
055236
055244
055252
055260
055266
055274
055275
055302
055310
055316
055324
055332
055340
055342
055350
055356
055364
055372
055400
055406
055414
055422
055424
055432
055440
055446
053454
055462
055470
055476
055504
055511

042503
042526
046111
000105
052101
044524
020117
020105
020105
040520
042440
005015
042504
042105
045522
052101
044524
020117
020105
020105
044514
051040
042440
000
1264
043516
(51440
044522
050131
04252¢
000116
052101
044524
020117
020105
020105
042440
053440
042103
000124
052101
044524
020117
020105
020105
042440
040440
051523
045522
101

8748
8749
8750
8751
8752

055524
055532
055540
055546
(055550

047524
042503
042105
000123
052101

8747

055516

052120

MACYTY

14=SEP=81

EM127:

_ASCI]

/ATTEMPTING TQ FORCE DRIVE BUS PARITY ERKROR/<15><12>

LASCIZ

/DETECTED BY RK&11/

EM128:

_ASCIZ

/ATTEMPTING T0O FORCE DRIVE AVAILIABLE RESET ERROR/

ERROR MESSAGES

15:10

H 13
PAGE 164

30(1046)

SEG (163

042040
040440
040511

044522
040526
046102

042524
043516
047506
051104
052502
044522
051122

0S0115
052040
041522
053111
020123
054524
051117

042524
041040
030466
042524
043516
047506
051104
053101
C41101
G51505
051122

052103
9020131
00006?
050115
052040
0641522
053111
044501
042514
052105
(051117

057505
041440
052105
042526
020105
052103

044524
9052104
042040
052040
042504
047511

EM129:

_ASCIZ

/TESTING CDT SET DRIVE

042524
043516
047506
051104
054524
051122
052111
020124

050115
052040
041522
053111
042520
051117
020110
042523

EM130:

,ASCIZ

/ATTEMPTING TO FORCE DRIVE

TYPE ERROR WITH CDT SET/

042524
043516
047506
051104
054524
051122
042104
047111
033060
052124

050115
052040
041522
053111
042520
051117
042522
020107
000
046505

EM131:

_ASCIZ

/ATTEMPTING TO FORCE DRIVE

4
:
TYFE ERROR ADDRESSING RK06/

EM13C:

_ASCIZ

/ATTEMPTING TO FORCE

043040
051440
046040

05117
042520
051517

042524

050115

EM133:

_ASCIZ

/ATTEMPTING TO FORCE DRIVE OFF

047111

020107

TYPE DETECTION/

SPEED L0OSS/

TRACK/

CZR6BDO RK611 DSKLS CTRL PRT2

MACY11 30(1046)
W= OWVMWO,
=N O

=N —=NIOOOW—N
=N
— — =
o
—LO=MNH=BO—MNS

NOO—=OO
SNV

LASCIZ

/ATTEMFTING TO FORCE SEEK INCOMPLETE/

NSNS
e all
NOO—==—=00
SVNWNNNWVT

EM136:

L.ASCIZ

/ATTEMPTING TO FORCE NON-EXECUTABLE FUNCTION/

EM137:

_ASCIZ

/ATTEMPTING TO FORCE AC LOW AND C=-D PARITY ERROR/

EM138:

_ASCII

/ATTEMPTING TO FORCE

LASCIZ

<15><12>/FROM DRIVE MESSAGE BITS/

EM139:

_ASCIZ

/ATTEMPTING TO CLEAR RK611 WITH A CONTROLLER CLFAR/

044

046

047522

— A\ ) e

\ S =\

A NN = e
s
PN e\ N
=

EM135:

052124
047111
043040
044440

/ATTEMPTING TO FORCE WRITE LOCK ERROR/

ON=TVNVINON =200
NDWN=TUNNW=O
N IV

041516
000
052124
047111
043040
040440
020127
026503
044522
051122

,ASCIZ

MW =2 N e e wd O b = a N

—

&~
no

052}
047
0

EM134:

H,O==mamOO
DN =NS
YN

1
047 5
1

O—=0OWwWViw
O =2 =2\ NN

wvawnvanes
=—=—-aWw

=L OO
OO = =00 —=O
O = =B O=H =NV
=W

—

o
o

056137
056144
056152

OO0O0O

8797
8798
8799

052506
047117
101
052120
047524
042503
047514
020104
040520
042440
000
101
052120
047524
042503

s
—=WOO

8770
8771
8772
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796

0
0
0
0
0
0
0
0
0
0
(055770
055776
056001
056006
056014
056022
056030
056036
056044
056052
(56060
056061
056066
056074
056102
056110
056116
056124
056132

101
052120

OO0O0O0

055661
855666

020105

wVilDNWISS
DY
OO =YY

0
0
0 55644
0

OOO0O0O0OOC

o
oo
o
o

8768
8769

?OOO leolelolelelelolelelele)
wnsSsunsSsuvnincornownessun

043516

SEG C164

=Ny

044524

oo
&He
wvineSs
o~ nN—=OO
TN
S o

8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767

055556
0
0

ERROR MESSAGES

113
PAGE 165

OOOO0O0OO o
oSO no &~
—_HONO—=O o
- L LA
=—=NNOO0O—=O00
N
H =W

13:47

OO0
v NS
—Ooo

14=SEP=-81

15:10

jeolelelelelele
HSEniwesrnosSs
OAANNVWNLOON

(ZR6BD.PN

14=SEP=81

ILLECAL DISK ADDRESS ERROR/

13:47

==L ONNOO == =ONNOON—=
=00 =0 =MVOO
VIO NS OV
N WVS O = = =3 S NS =IO
—un

041440

EM141:

LASC1Z

/ATTEMPTING

TO RECEIVE

NON=STANDARD MESSAGES/

046505
020107
041505
047040
040524

EM142:

LASCII

/ATTEMPTING

TO RECEIVE

NON-STANDARD MESSAGES/

LASCIZ

/ WITH PARITY ERROR/

EM143:

LASCIZ

/ATTEMPTING

TO FORCE

NON-EXISTENT

DRIVE

(DRIVE

EM144:

LASCIZ

/ATTEMPTING

TO FORCE

NON-EXISTENT

DRIVE

(NG

EM145:

LASCIZ

/ATTEMPTING EXECUTION OF

DRIVE

WITH

—=OMNNNO
(NWNOW
—
OO0
WVINWVT

A B

SEQ (165

/TESTINC

ILLEGAL

DISK

ADDRESS ERROR LOGIC

IN Rk611/

Y 21,

OO0

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

J 13
PAGE 166

15:10

LASCIZ

wrororn

— d e \) —b

vy
e un

LAY}

OOOO0O

EM140:

wvissun

042

OO0OO0O0O0O0

S S

047

SOV

047

30(1046)
14=SEP-B81
MESSAGES
ERROR

042514
044524

wvivvanaesSsawnesun

056242
056250
056253
056260

(olelelelele]

8809
8810

CTRL PRT?

P=81

o OO0 OO0O0O
OO
S
v
W S Hnnanesess
N NS N
ONN—=—=SWNN
——a
NN = S NN = = S DN = S NN
S

CIR6BDO RK611 DSK
14~
CIR6BD.PNT

o nre
Mu

’

:
MACY11

DESELECT

BUS

TIMEOUT)/

SACK)/

RESET/

CZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14-SEP=81 13:47
8865
8866

8867
8868
8869
8870
8871
8872
8873
8874
8875
8876
8877
8878
8879
8880
8881
8882
8883

8884
8885
8886
8887
8888
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

056726
056734

056742
056750
056756
056764
056772
057000
057006
057014
057022
057030
057036
057044
057052
057060
057066
057067
057074

057102
057110
057116
057124
057132
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

053117
044124

042522
052101
044524
020117
052125
044440
046101
052103
052101
044524
020117
020122
040507
041516
000
106
041440

042116
042040
052117
044440
053111
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

MACY11 30(1046)
14<SEP-81
ERROR MESSAGES

020105
044440
042523
042524
043516
054105
020105
046114
043040
047511
042524
043516
046103
046111
020114
044524

000124
050115
052040
041505
047101
043505
047125
0C0116
050115
052040
040505
042514
052506
047117

044522
046517
041040
042111
051440
020116
020105
040440
044522
051505
047111
041505
053111
051523
041516
052103
046517
040440
040524
043505
047111
041505
053111
042514
042117
046440
042507
041516
052103
040505
020104
044440
051523
020101
051122
047111
027107
041516

15:10

K 13
PAGE 167

SEG 0166

044527
020105
EM146:

LASCIZ

/ATTEMFTING TO EXECUTE AN ILLEGAL FUNCTION/

EMI&7:

_ASCIZ

/ATTEMPTINC TO CLEAR ILLEGAL FUNCTION/

042526
040515
052111
047040
052105
051104
042515
000
042526
(021 123
047503
000124
020105
041040
051117
€09
040515
042116
051525
020056
047503
000124
02C105
052103
020105
051505
040449
051117
000
020104
047503
020116
043501
047111
041505

EM2000:

.ASCIZ

/DRIVE COMMAND BIT DID NOT SET IN DRIVE MESS A/

EM2C01:

.ASCIZ

/DRIVE MESS A INCORRECT/

EM2002:

.ASCIZ

/DRIVE MESS B INCORRECT/

EM2003:

,ASCIZ

/COMMAND AND STAUS REG.

EM2004:

.ASCIZ

/DRIVE SELECT CODE

EM2005:

.ASCIZ

/HEAD ADD CODE

IN MESSAGE A INCORRE(CT/

020124
030440
051117

EM2006:

.ASCIZ

/MAINT REG. 1

INCORRECT/

IN MESSAGE A INCORRECT/

(ZR6BDO RK611 DSKLS CTRL PRT 2
(ZR6BD.P11
14=SEP-81 13:4°
8921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932
8933
8934
8935

057426
057433
057440
057446
057454
057462
057470
057476
057503
057510
057516
057524
057532
057540
057546

115
042523
(041440
047111
040523
044440
042522
103
042504
020104
044440
051523
020102
051122

052103
051505
042514
042117
046440
042507
041516
052103
046131
020122
044502
020116
0435017
047111
041505

000
020123
052103
020105
051505
041040
051117
000
047111
042101
051524
042515
020105
047503
000124

8938
8939

057570
057576

041040
047111

052111
046440

020123
051505

8941
8942
8943
8944
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960

057612
057620
057625
057632
057640
057646
057654
057662
057667
057674
057702
057710
057716
057724
057731
057736
057744
(57752
057760
057766

044440
042522
1
020137
047111
040523
044440
042522
1
020131
047111
040523
044440
042522
103
042116
051440
020123
020062
051122

041516
052103
051101
044502
046440
042507
041516
052103
051101
044502
046440
042507
041516
052103
046517
040440
040524
042522
047111
041505

051117
000
052111
020124
051505
040440
051117
000
052111
020124
051505
041040
051117
000
040515
042116
052524
020107
047503
000124

8962

060002

042522

020107

047111

8936
8937
8940

8961

8963
8964
8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976

057554
057562
057604

057774

060010
060015
060020
060026
060034
060042
060050
060056
060064
060072
060100
060106
060114
060122

042522

MACYT1

043117
053040

040523

051105

047503
000124
047503
020104
052123
051040
044440
042522
020124
020105
051505
047503
020104
052123

051506
046101
042507

047522
051122

046515
047101
052101
043505
041516
052103
044120
042101
020123
046515
047101
052101

052105
042525

30(1046)
14=SEP-B1
ERROR MESSAGES

15:10

PAGE 168

SEQ 0167

EM2007:

.ASCIZ

/MESS SELECT CODE IN MESSAGE B INCORRE(T/

EM2008:

.ASCIZ

/CYLINDER ADD BITS IN MESSAGE B INCORRECT/

EM2009:

.ASCIZ

/OFFSET VALUE BITS IN MESSAGE B INCCRRECT/

EM2010:

.ASCIZ

/PARITY BIT IN MESSAGE A INCORRECT/

EM2C'1:

_ASCIZ

/PARITY BIT

EM2012:

.ASCIZ

/COMMAND AND STATUS REG 2 INCORRECT/

EM2013:

.ASCIZ

/ERROR REG INCORRE(CT/

EM2014:

.ASCIZ

/COMMAND AND STATUS REG 1

INCORRECT AT PHASE ADDRESS 4/

=
EM2015:

,ASCIZ

/COMMAND AND STATUS REG 1

INVALID DURING COMMAND EXECUTION/

041040

020122

IN MESSAGE B INCORRE(T/

041505
047101
020104
051525
030440
051117
040440
051501
051104
000064
047101
020104
051525

CZR6BDO RK611 DSKLS CTRL PRTZ
CZR6BD.P11
14-SEP-81 13:4
8977
8978
8979
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991
8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002
9003
9004
9005
9006
9007

9009
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9020
9021
9022

9023
9024
9025
9026
9027
9028
9029
9030
9031
9032

060130
060136
060144
060152
060160
060166
060174
060200
0602
060214
060222
060230
060236
060244
060252
060260
060266
060274
060300
060306
060314
060322
060330
060336

060344
060352
060360
060366
060374
060400
060406
060422
060430
060436
060444
060452
060460
060466
060474
060502
060510
060513
060520
060526
060534

060542
060550
060556
060564
060572
060576
060604
060612
060620
060626

051040
044440
042111
047111
046515
054105
047511
040515
040516
042522
047125
052103
041440
042105
047111
046515
054105
047511
040515
040516
042522
047125
05103
041440
042105
047111
046515
054105
0475711
047111
050125

041517
047503
020104
052123
051040
044440
042522
052106
052116
052120
103
042116
051440
020123

020062
051122
043101
047111
050125
051105
042522
0517105
051117
040440

043505
053116
042040
020107
047101
041505
000116
047111
041516
020107
054105
042105
040510
042040
020107
047101
041505
000116
047111
041516
020107
054105
042105
040510
042040
020107
047101
041505
000116
042524
020124

052503
046515
047101
052101
043505
041516
052103
051105
051105
000
046517
040440
040524
042522
047111
041505
042524
042524
000124

047522
044507
044440
042522
052106

MACY11 30(1046)
14-SEP-81
ERROR MESSAGES

15:10

m13

PAGE 169
:

SEQ 0168

030440
046101
051125
047503
020104
052125

042524
020105
020062
042520
054514
043516
051125
047503
020104
052125

EM2016:

.ASCIZ

/MAINTENANCE REG 2 UNEXPECTEDLY CHANGED DURING COMMAND EXECUTION/

042524
020105
020063
042520
054514
043516

EM2017:

,ASCIZ

/MAINTENANCE REG 3 UNEXPECTEDLY CHANGED DURING COMMAND EXECUTION/

051122
044504

EM2018:

.ASCIZ

/INTERRUPT DID NOT OCCUR/

EM2019:

.ASCIZ

/COMMAND AND STATUS REG 1

040515
042116
052524
020107
047503
020124
0%0122
051122

EM2020:

.ASCIZ

/COMMAND AND STATUS REG 2 INCORRECT AFTER INTERRUPT/

020122
052123
041516
052103
051105

EM2021:

,ASCIZ

/ERROR REGISTER INCORRECT AFTER INTERRUPT/

051125
947503
020104
052125

000122
047101
020104
051525
030440
051117
040440
044440
052522

INCORRECT AFTER INTERRUPT/

CZR6BDO RK611 DSKLS CTRL PRT;

CZIR6BD.P11

14=SEP=81

13:4

903%
903,
9035
9036
9037

044440
052522
111
052522
042111

052116
052120
052116
052120
047040

9038
9039
9040
9041
9042
9043
9044
9045

9046
9047

9048
9049
9050
9051
9052
9053
9054
9055
9056
9057
9058
9059
9060

060634
060642
060647
060654
060662

060670
060676
060704
060710
060716
060724
060732
060740

060746
060754

060762
060770
060776
061004
061012
061020
061026
061032
061040
061046
061054
061062
061070

041440
044440
030466
040504
052101
0201064
041517
044127

040505
051440

051104
047503
020104
044440
051523
047111
041505
051104
052123
051040
042524
047503
000124

042514
020116
000061
040524
020105
047516
052503
047105

044526
046111

053111
046515
044502
020116
043501
047503
000124
053111
052101
043505
020122
051122

30(1046)

14=SEP=-B1

051105
000
051105
042040
052117

EM2022:

.ASFIZ

/INTERRULPT DID NOT CLEAR IN RK611/

EM2023:

.ASCIZ

/DATA LATE DID NOT OCCUR WHEN LEAVING $ILO/

EM2024:

.ASCIZ

/DRIVE COMMAND BITS IN MESSAGE

020105
051525
051511
047111
041505

EM2025:

.ASCIZ

/DRIVE STATUS REGISTER INCORRECT/

EM2C26:

.ASCIZ

/CONTROLLER READY DID NOT SET/

EM2027:

.ASCIZ

/LOAD STATUS DID NOT LOAD DRIVE

EM2028:

.ASCIZ

/UNEXPECTED INTERRUPT OCCURRED/

EM2029:

.ASCIZ

/INTERRUPT OCCURRED WHEN INTERRUPT ENABLE SET/

048040
044504
02012
020122
046040

043516
000117
220105

047101
051524
042515
020105
051122

061072
061100
061106
061114
061122
06127

047503
046114
040505
042111
051440
114

052116
051105
054504
047040
052105
040517

047522
051040
042040
052117
000
020104

9068
9969
9070
9071
9072

061142
061150
061156
061164
061172

042040
052117
020104
020105
(51525

042111
046040
051104
052122
051040

047040
040517
053111
052101
043505

061202

047125

054105

042520

061216
061924

052116
052120

051105
047440

052522
041503

061134

9073

061200

9075

061210

9074

9076
9077

9078
9079

9080
9081
9082

083
9084
9085

9086
9087

061232
061240
061246
061254
061262
061270
061276
061304
061312

052123

000056

052103

051125
047111
050125
052503
053440
047111
050125
041101

052105
000001

052101

042105

042522
042524
020124
051122
042510
042524
020124
042574
000

SEG 0169

051101
045522

9061
9062
9063
9064
9065
9066

9067

ERROR ME SSAGES

15:10

N 13
PAGE 170

MACY11

051525

044440

000104
051122
041517
042105
020116
051122
047105
051440

JEND

INCORRECT/

STATUS REG./

SEQ 0170

P T

8
15:10
30(1046)
14=SEP-81
PAG
CROSS REFERENCE TABLE == USER SYMBOLS
1213

82
12
12
59

-l

ONNSOWNES WS
=2 OO

— ~JOO
~J
LaS 1N Te
AVe]

WWNO
O

72394
72384
72404
1185
1176
1
1

——d

—

HTNINOON NN

T Y

—

SN == CAPNVNVN) = 2 2 L PNV
=2 PONUNUND = = a N =
N NOOO OV NOOOOODOOV—=OO0OO
N0 -~

364

MACY11

—

S B

(e]

e e e e e e e e e e e e b e e
e e e d e e e e e e
e
e e d d d ek
e
D
e
o T
S
(T (N
T T
R
N
NN NN NN NN . SN O
NN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNWNNO W
SLASLISLS NSNS S OSSN OSSN SN NS TSNS NN ST ST NS LN NN ST SN SN TSN NSy
~
3
i

ABASE = 177440
050204
000000
ACDW2
000000
ACLO
000010
ACPUOP= 000000
ADDWO
000000
ADDW1
000000
ADDW10
000000
ADDW11
000000
ADDW12
000000
ADDW13
000000
ADDW14
000000
ADDW15
000000
ADDW2
000000
ADDW3
000000
000000
ADDW4
ADDWS
000000
ADDW6
000000
ADDW?7
000000
ADDWS8
000000
ADDW9
000000
ADEVCT
000000
ADEVM
000000
AENV
000000
AENVM
000000
AFATAL= 000000
AMADR1= 000000
AMADR?2= 000000
AMADR 3= 000000
£ 1ADR4
= 000000
AMAMS 1= 000000
AMAMS
2= 000000
AMAMS
3= 000000
AMAMS
4 = 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000
AMTYP3= 000000
AMTYP4= 000000
APASS = 000000
APRIOR= 000005
APTCSU= 000040
APTENV= 000001
APTSIZ= 000200
APTSPO= 000100
000000
000000
000000
000000
120210
000000
000020
000400
ABORT
ACDW1

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

e e
OB
T

CZR6BDO RK611
CZR6BD.P11

7273
7399

1211

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

= 001000

wWooomoomoooomooooooomo@

1T0 = 000001
1T00 = 000001
IT01 = 000002
1702 = 000004
1703 = 000010
1704 = 000020
IT05 = 000040
IT06
IT07
1708
IT09
IT1T

=
=
=
=
=

000100
000200
000400
001000
000002

IT11
IT12
1T13
IT14
IT15

=
=
=
=
=

004000
010000
020000
040000
100000

IT2 =
IT3 =
BIT4 =
BITS
=
BIT6 =
BIT7 =
BIT8 =
BIT9 =
BPTVEC=
=
BSE
CCLR
=

000004
000010
000020
000040
000100
000200
000400
001000
000014
000200
100000

IT10 = 002000

9814

5174
9074
906#
905#
904n
9034
902#
9014
9004
8994
8984
9164

897#4

= 002000

CERR

= 100000

CFMT

= 010000

.
-

(HKPAR
(KSWR =
CLEAR =
=
(OE
(R
=
CRLF
=
=
(T0
CYLIN

042360
104407
000005
001000
000015
000200
004000
004252

= 100000
DCk
DDISP = 177570

977
917
916
915
914
913
912

911
910
909
908
1011

982

1010

1029

7067
7085

7284

1001

1020

620¢

4262

4392

1053

1068

3322

8964
895#
8944
8934
8924
4394
9154
9144
9134
9124
9114
9104
9094
9084
9244
10174
9894
2874
3249
3658
3944

983
985
986
987
988
4395
1012
994
995
996
978
979
980
981

1002
1003
1004
1005
989
4396
1031
1013
1014
1015
997
998
999
1000

1021
1022
1023
1024
1006
4438

1038
1055
1039
1040
1025
4440

1054
4236
1056
1057
1041
4483

1032
1033
1034
1016
1017
1018
1019

6667
1047
1048
1035
1036
1037
1052

1062
1063
1049
1050
1051
1067

2498
2890
3299
3676
3983

2570
2937
3326
3715
4005

2587
2953
3365
3737
4011

2621
2993
3383
3743
4050

5586
6806

5764
6885

5842
6924

4318

C 14

MACY11 30(1046)
14=SEP=81
15:10 PAGE 173
CROSS REFERENCE TABLE == USER SYMBOLS

9824

4369

3223

4531

4664

2546
4535

4301
4666

43C7
4667

4332

4337

7261

7092

2537
4534

1064
1065
1066

3320

2639
3011
3418
3782
4072

2677
3042
3436
3804
4078

2701
3060
3478
3810
4110

2741
3097
3496
3849
4132

2764
3118
3538
3871
4138

2770
3165
3556
3877
4179

2811
3181
3598
3916
4234

2827
3228
3616
2938
4289

4917

5996

6074

6159

6244

6330

6415

6500

6585

6724

3231

4936

4943

4987

5339

5355

5417

5433

6205

6221

6461

6562

6704

6927

5821

5899

5975

6053

6136

6307

2850

6865

5743

2848

€783

2913

2974

2976

4243

4936

4943

4987

3781

3785

5883

5899

3140«
3362«
7981

3141
3415+«
8006

3158
3475+«

3167
3535+

3203
3595+«

3205+
3655+«

3222~
6114+

3230
6199+

3241
6285+

6562
5203

Sggg#

gg;?

2624

2479
7052
962#
10194
8324
8334
9834
23364
3271
6370+
1025#
8394

4482

4507

6546
4912

6477

4439

4445

6477
9884

6392

1069
4237
7268
7053
1058
4533

SEG 0171

5920
6939
6632
5278

7007#
7257
2805

7904
7283
3477

79514
3482

7460
2426

7470
7414

7470

3091+«
3273«
6455+«

3099
3274«
6540+

3110
3275
7975

1145

2389

6648
5433

5070

5511

2911

5147

5224

5299

5376

5454

5532

5609

DFO6S
DF067
DF100

047646
047672
047716

DF224
DF230
DF256
DHOO0A

047756
050012
(050046
050271

- DHO00B

050307

DHO00C
DHOO1A
DH001B
DHO01C
DHOO1D
DHO02A
DH0228
DHOO6A
DHOO6B
DHO12A
DHO12B
DHO17A
DHO178

050322
050353
050372
050410
050447
050506
050534
050563
050610
050634
050701
050747
050775

DHO31B

051050

DHO35B
DHOSOA
DHOS0B
DHO62A
DHO62B
DHO67A
DHO67B
DH126A
DH126B
DH224A

|
'
'
|

DF126

' DHO31A
-

DHO35A

047732

051021

051076

051135
051173
(051221
051247
051346
(051443
051502
051540
051557
(051575

6224

6480

6565

1680
1248
1268
1288
1313
1364
1386
1452
1464
1512

1686
1253
1273
1293
1318
1369
1392
81164
1470
1518

1692
1258
1278
1298
1323
1374
1398

1698
80324
80464
1303
1333
8088#
1404

1704

1710

1716

1722

8018#

1410
1338

1416
1344

1428
1349

1434
1354

1440
80744

80604

81024

1476
1552
1674

1482
1558
1728

1488
1564
1734

1494
1570
1740

4
1500
1576
1746

81304
1582
1758

1599
1764

1605
1770

2058
2184

2064
2190

8090

8104

8078

8092

8084
8086

8098
8100

1806
1884
1962

1812
1890
1968

1818
1896
1974

2022
2148
2226
1525
1539
1593

2028
2154
2232
1532
1546
1617

2034
2160
2238
1587
1650
1752

2040
2166
81404
1637
1656
2244

2046
2172

2052
2178

1643
81604
2250

81504

2100
2124
2256
8020
8178

2106
2130
2262
8034
8188

2112
2136
2267
8048
8202

2118
2142
2272
8062
8216

81864
82004
82144
8076
82534

8180
2275
8024
8026
8028
8030

8190
82584
8156
8158
8042
8044

8204

8218

82564

81764

8022

8038
8040
8052
8054
8066
8068
8080
8082

8094

8036

82814
8285#
82894
82934
82974
83044
83114
83154

8064

82634
82664
8056
8058

8070
8072

8210
8212

83474
83584

8319#

8096

83234

8110
8122
8124
8146
8148
8166
8168
8182
8184
8196

83334
83394
83434
8192
8194
83694
83754
8380#
83834
83864

8108

28059

83274

PPN
AL
ASAS

2070
2196

1842
1920
1998

2076
2202

1848
1926
2004

1854
1932
2010

8118

8132

8142

8152

8162

8172

8106

8120

8134

8144

8154

8164

8174

2112
8114

8126
8128

8136
8138

82694
8275#4

1824
1902
1980

1830
1908
1986

1836
1914
1992

2082
2208

2088
2214

2094
2220

1624

1782
1860
1938
2016

1611
1776

1658
1800
1878
1956

1662
1794
1872
1950

1631
1788
1866
1944

5513

SEQ 0172

1238
1243
1263
1283
1308
1359
1380
1446
1458
1506

5357

80164

10374

2277

PAGE 174

CROSS REFERENCE TABLE == USER SYMBOLS

DFO01
DFQ02
DFO06
DFQ12
DFO17
DFO31
DF03S
DFOSO
DFOS2
DFO62

= 000400
047232
047236
047272
047326
047342
047416
047452
047506
047542
047576
047622

15:10

DDT

DFO00

14=SEP=81 13:47

14=SEP=81

D 14

30(1046)

81704

TZR68D.P11

MACY11

AMD

CZR6BDO RK611 DSKLS CTRL PRT2

CZR6BDO RKE11
(ZR6BD.P11

DH224B
DH230A
DH230B
DH2S6A
DHZ2S68B

051630
051665
051712
051736
(052002

DI
= 040000
DISPLA
001142
DISPRE
000174

DLT

DMD

= 100000

= 000040

DSKLS CTRL PRTZ2
14-SEP=81 13:4~

MACY11

8198
8206
8208
8220
8222

83914
83964
84004
84044
8410#

9874
11454
10778

7260+

2499

2512

2513

2571

4319
4671

4323
4695

4324
4696

4371
4933

S048

5050

2743
2996
3300
3544
3862

2755
3043
3304
3545
3917

5107
5419
5730
6112
6463
6767

000200
000040
000010
004244

6395
1036#
1034#
10134
23334

DRVMSK= 000007
DRVTYP
004266
DSC
= 040000

9934
23424
10404

DTE
= 010000
DTYE
= 000040
DTO00
046576
DT001
046602
DT002
046622
DT006
046644

10224
10154
2276
1237
1242
1262

= 000001

DRDY
=
DROT
=
DRPAR =
DRVCOD

. DSWR

C
-

7107«

5028
5414
5729
6040
6453
6766

DRA

2397«

4913

4294
4670

2389+
2397

1006#

10484

DT012
DT017
DT031
DT035
DT0S0
DT052
DT062

= 177570

046666
046714
046736
046760
04700¢
047026
047042

E 14

30(1046)
14-SEP-81
15:10
PAGE 175
CROSS REFERENCE TABLE == USER SYMBOLS

2812
3047
3305
3599
3929

2815
3048
3366
3604
3984

SEQ 0173

2575

2576

4447
4938

4509
4939

5357

5435

5513

2816
3098
3371
3605
3996

2875
3102
3372
3659
4051

5184
5467
5808
6197
6548

6852

5189
5498
5880
6207
6549
6929

2622

2626

2627

2678

2684

4590
4979

4640
4980

4644
5022

5590

5667

6139

6224

6310

4370

4372

4381

4389

4350

1439
79754

2878
3103
3419
3664
4063

2879
3166
3424
3665
411N

2938
3170
3425
3716
4123

2941
3171
3479
3728
4185

5190
5569
5885
6208
6628

5261
5574
5886
6283
6634

5264
5575
5958
6293
6635

5265
5646
5961
6294
6685

4585
4953

4589
4954

2942
3229
3484
3783
4240

5112
5420
5802
6122
6464
6848

5113
5492
5807
5123
6538
6851

6480
5048
5667
5978
2564+

6565
5050
6310

6565

2572

2582

2592

2604

2605

4364

6119+

6204

6290+

6375+«

6460*

£545+«

8006

8384

1144

2388
5514
1691
1257
1277
1297
1322
1373
1397

1697
79644
79674
1302
1327
7978#
1403

1703

1709

1715

1721

79614

1282
1307
1358
1379
1445
1457
1505

5436
79604
1679
1247
1267
1287
1312
1363
1385
1451
1463
1511

1409
1328

1415
1332

1421
1337

1422
1343

1427
1348

1433
1353

79814

1475
1551

1481
1557

1487
1563

1493
1569

1499
1575

7988#
1581

1598

1604

1029#

4418
4558
4739+

1630
1787
1865
1943

2021
2147
2225

4419
4579+
4745

1661
1793
1871
1949

2027
2153
2231

L636*
4586
4757

1685
1252
1272
1292
1317
1368
1391
79854
1469
1517
1667
1799
1877
1955

2033
2159
2237

5128

4448
4598
47764%

1673
1805
1883
1961

2039
2165
79904

5205

4478
4615+«
4775

1727
1811
1889
1967

2045
2171

4L80*
4616
6622

1733
1817
1895
1973

2051
2177

4502«
4634
6631

1739
1823
1901
1979

2057
2183

4508
4641
6649

1745
1829
1907
1685

2063
2189

4511
4655
6666+

1757
1835
1913
1991

2069
2195

4520
4663
6667

1763
1841
1919
1997

2075
2201

5336
5651
5962
6368
6690

4528
4704
7964

1769
1847
1925
2003

2081
2207

2685

2994
3233
3485
3795
4290

2998
3234
3539
3850
4293

5341
5652
6034
6378
6691

5342
5724
6039
6379
6763

4529
4721«

4645
5027

4557
4722

:
79704

1610

1623

1853
1931
2009

1859
1937
2015

1775

2087
2213

1781

2093
2219

CZR6BDO RK611
CZR6BD.P1T
DT06S
0T067
DT100
DT126
DT226
DT230
DT256
ECCw
=

047066
047076
047112
047116
047126
047162
047214
020000

1524
1538
1592
7999#
2099
21¢3
2255
10568

ECH
= 000100
EMTVEC= 000030
EMOO0
052050

10164
9278
2274

EMIN

001300

EMI100
EM101
EM102
EM103
EM104

052115
052203
052252
052314
052370

EM106
EM107
EM108
EMIC9
EM110
EM111
EM112
EM113
EM114
EM115
EM116
EM117
EM118
EM119
EM120
EM121
EM122
EM123
EM124
EM125
EM126

052472
052576
052673
052773
053046
053123
053166
053321
053433
053476
053570
053663
054000
054113
054202
054276
054377
054500
054564
054632
055051

EM128
EM129
EM130
EM131

055214
055275
055342
055424

EMI140

0562°3

EM105S

DSKLS CTRL PRT2
14=SEP=81 13:47

EM127

EM132
EM133
EM134
EM135
EM136
EM137
EM138
EM136

052437

055116

055511
055550
055614
055661
055725
056001
056061
056177

4064

12358
2898+
3047+
2620
2804
2867
2930
2992
30417
1240
1260
1280
1305
1330
1356

1377
1407
1443
1455
1479
1503
1522

1567
1584
1590
1621
1634

1677
1749
1785
1809
1833
1857
1881
1905
1929
1653
1977
2001
2025
2049
2073
2097
2121

MA(CY1Y

30(1046)
14=~SEP-81
15:10
PAGE 176
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0174

1531
1545
1616

1586
1649
1751

1636
1655
2243

1642
79964
2249

7998#

2105
2129
2261
2756

21
2135
2266
2758

2117
2141
2271
3729

80014
80064
80114
3731

379¢

3798

3863

3865

3930

3932

3997

3999

2372+
8415#
2620+
2904+
3058+
84204
84364
84434
84494
84574

2373«

2637+
2608+
3065+«

2644+
2930+
3071+

2650%
2951+
3075+

2654+
2961+

2804+
2967+

2825+
2971«

2835+
2992«

2841+
3009+

284S+
3016+

2867+
3022+

2888+
3026+

1245
1265
1285
1310
1335
1361
1383
1413
1449
1461
1485
1509
1529
1573
86194
1596
1628
1640
1683
1755
1791

1250
1270
1290
1315
1341
1366
1389
1419
85564
1467
1491
1515
1536
1579

1255
1475
1295
1320
1346
1371
1395
1425

84694
84814
1300
1325
1351
85194
1401
1431

1473
1497
1725
1543
1737

85624
85724
8582#
1549
86094

1602
86404
1647
1689
1761
1797

1608

1614

86294

1653
1695
1767
1803

1659
1701
1773
86944

1665
1707
1779

1839
1863
1887
1911

1845
1869
1893
1917

1851
1875
1899
1923

87124
87214
87284
87374

2139

88114

40€6

BLbLn

1815

1935
1959
1983 2007
2031
2055
2079
2103
2127

4124

1821

1941
1965
1989
2013
2037
2061
2085
2109
2133

4126

1827

1947
1971
1995
2019
2043
2067
209
2115

87014

874€H
87524
87584
87654
87724
8780#
87894
88024

79944

84924
85034
85114

85254
1437

85424

1555

1561

1731

85964

1671
1713
86674

1743
1719

86514
86604

"ZR6BUO RK611
[IR68D.P11

|
|

056335
056411
056507
05660
05666
056750

2145
2168
2193
2217
2041
2253

2151
2175
2199
2223
2247
2259

TM2000
#2001

057067
057145

1311
1251
2650
1286
2971
1241

057022

EM2002

057174

EM2002

057223

1762

2076
3009

2163
2187
2211
2235

88204
8828
B840#
88504

1336
1271
2B41
Yo76
3026
7261

1420
1521
2967
Y326
8894
1306

2644
Y%7
3022
1332

2835
1347
3071
402

2898
1372
88504
1438

2961
I3

3016
W

3065
Y44

88824
el

w198

M50

149

2S5

2908

1331

1357

1378

1408

1504

1550

158

1660

1678

2098
3058

2122
88984

2146

2170

219

2218

2254

1578

200

2026

2050

8929#

2069

1786

1810

1834

1246
1266
1286
1291
1316
1362
1456
1462
1510

1684
169
1414
1426
1342
8936w
1480
1486
1556

85044
89114
8918#
1708
1390

8922#4
1714

1702
1720
15764

8943#
8949#
1622

EM2013

057774

1580
2044

1672
2068

EM2014
EM2015
EM2016
EM2017
EM2018
EM2019
EM2020
EM2021
EM2023
EM2024
EM2025
EM2026

1516
199,

1986

1562
2020

2008

060020
060106
060200
060300
060400
0604 30
050513
060576

1523
1530
1537
1544
1591
1597
1603
1609

1635
1641
1648
1654
90064
90104
90194
9028#

89654
8974
8984H
89954

060710
060762
061032

1629
1690
1726

90414
90484
1732

060647

1615

061072

2074
90614

061202

2242

90744

EM2029
ERRCNT
ERRVEC=
£.ASOF
£.BA
£.0S1

061240
004242
000004
004176
004164
004160

1756

1666

2056

1774
2092

1882

1768

2080

1804
2116

1906

1792

2104

1828
2140

1930

1816

2128

1852
2164

1954

2265

1340

2152

1876
2188

2637

1864

2176

1900
2212

2825

1888

2200

1924
2236

2888

1912

2951

1936

2224

8955#

1942

1966

1948
2260

1972
2270

1738

17644

1780

1798

1822

1846

1870

1896

1918

2038

2062

2086

2110

2134

2158

2182

2206

2230

90554

7359%
2387+

7362
2398+

7007+

7008+

7020%

7021+

7058

7059+

7061+

7064*

2506
2823

2519+
2848

2522
2850+

2565+
Q068+

2584
2876

2624+
2886

2635
2911

2672+
2913+

2698
2931s

2736+
2935

4649+

4650

4677

3935

3982«

4002

4756+

4761

90664

2248
90794
23328
2405+
920#
2386
23064
23014 .
22994
2505+
2E)S+
2813
2974
2976+
3323
3364e
3714«
3734
4129

2032

1858

90354

1990
1750

061127

EM2028

1960

SEQ 0175

2157
2181
2205
2229
BBSO#
88684
88754
1386
1296
2904
1501
3075
1281

057266
057337
057404
057433
057503
057554
057625
057667
057731

EM2027

2066

G 14

30(1046)
14=S EP-81
15:10 PAGE 177
CROSS REFERENCE TABLE == USER SYMBOLS

EM2004
EM2005
EM2006
EM2007
EM2008
EM20GS
EM2010
EM2011
EM2012

EM2022

i
.

WMACY11

EM141
EM162
EM143
EMI4s
EM145
EM146

EM147

DSKLS CTRL PRT2
14=SEP=B1 13:4°

4597«

2996+
3380
3781«

4602

3007
3417+
3801

3045+
3433
3848+

3056
3477+
3868

3092+
3493
3915«

4703s

3115
3537+

4708

3160«
3553

3178
3597

3223+
3613

2761
2949

4049*

3246
3657+

4067

3293s
3673
410%e

4823+

4826

4907s

JREBDD &x61T
J6RD P

DSKLS CTRL PRT2
14=5EP=81 13:4°

MACVY1Y

6912+

4963+

5152«
5385
5665«
5902
6164

5156
5433«
5669
5925«
6168

6729+
£927«

6733
6933

64624

£E.CS2

006170

7999

004166
004202
004200
004172

8001

4964

4960

4987+

4991

5046+

5053

5207
5459+«
5695
5975«
6226

5229+«
5463
5743«
5979
6249+

5233
5511«
5747
€001«
6253

5278+«
5515
5769«
6005
6307«

6783+
6942+

6786+
6944

6790
7961

6811+
7964

6815
7967

6567

6590

4705«
5047+

4711
5056

L4757«
5076«

4758+
50

6336*

6342

6394+

6482

8006

6505«
8011

6509

6562«

4598
4913«

4599+
4914

4605
L9988+

4704%
4994

6223«

6256

6309+

6315

5210
5460«
5698
5976«

5038+«

SEQ 0176

5203«
5437
5691+
5929
6221

23034
4905

5204«
5440
5692«
5932

E.DA
£.DB
E.DCYL
E.DS

6477«

H 14
30(1046)
14=SEP=-81
15:10
PAGE 178
CROSS REFERENCE TABLE == USER SYMBOLS

5230«
5466
5744«
5982

5236
5512«
5750
6002«

5279«
5518
5770«
6008

5285
5538«
5776
6054~

5305«
5544
5822«
6060

5075«

5079

5126«

5130

5282
5537«
5773
6053«
6312

5304+
5541
5821+
6057
6335«

5308
5588+«
5825
6079«
6339

5355«
5592
5847«
6083
6392«

5359
5614
5851
6136
6397

5381«
5418
5899+
6141
6420+

6865«
7970

6869
7975

6890
7978

6894
7981

6925+«
7990

6926+
7994

4764
5127«

4824
5133

5311
5589«
5828
6080«

6594

6648+

6653

6704+

4829
5153«

6708

4902+
5159

5356
5595
5848+«
6086

5362
5615«
5854
6138+«

5382«
5621
5900«
6144

5388
5666+
5906
6165«

5434+
5672
5926+
6171

6650
6897

6656
7990

6705«
8001

6711
8006

6730+

6485
6736
2302#
2308#
2307#
23044
5085
5357+«
5598
5849«
6089
6395«
6659

6229

6250

4600+
5128«
5365
5616+
5857
6139«
6404
6706

4611
5136
5383«
5624
5901~
6148
6422«
6714

4706
5154«
5391
5667«
5909
6166
6430
6731«

4717
5162
5435+«
5675
5927+«
6174
6480«
6739

4759«
5205«
5443
5693«
5935
6224
6489
6788+

4770
5213
5467«
5701
5977+«
6233
6507«
6796

4903
5231
5469
5745«
5985
6251
6515
€213«

4989+«
5239
5513«
5753
6003«
6259
6565
6821

5000
5280«
5521
5771«
6011
6310«

6574
6867+«

5048«
5288
5539+
5779
6055«
6319
6592«
6875

5062
5306
5547
5823«
6063
6337«
6600
6692«

5077+
5314
5560+
5831
6081+
6345
6651+
6900

7990

6506
6787+

6512
6793

6564
6812«

6570
6818

6591«
6866+«

€597
6872

6649+
6891+«

6400

6421

6427

6479

E.ECPS
E.ECPT
E.ER

004212
(004214
001174

23124
23134
23054
5059
5307«
5550
5824
6066
6338«
6603

8001

8009

4601«
5078+«
5317
5591+
5834
6082+«
6348
6652+

4608
5088
5358«
5601
5850«
6092
6396«
6662

4707«
5129«
5368
5617«
5860
6140
6407
6707«

4714
5139
5384*
5627
5902«
6151
6423«
6717

4760
5155«
5394
5668+«
5912
6167«
6433
6732«

4767
5165
5436
5678
5928+
6177
6481+«
6742

4825+
5206«
5446
5694
5938
6225«
6492
6789+

4832
5216
5462+
5704
5978+«
6236
6508
6799

4904«
5232+«
5472
5746
5988
6252
6518
6814+

4990+
5242
5514*
5756
6004
6262
6566
6824

4997
5281+
5524
5772«
6014
6311+
6577
6868+

C049+
5291
5540+
5782
6056+
6322
6593+
6878

E.MRT

004204

23094

2754x

2755+«

2758+«

2767

3728+

3731«

3740

3795«

3798+

3807

3862+

3865+

E.MR2

004206

6893+
;gzg
/

23104
2711
2965
3336
3732«
4155
4414

E.MRT

(004210

7967

23114
2906
213¢

6903

3929«

2520+«
2759«
2977+«
3378«
3760

4181
4638
7973

2521«
2948+
3159«

6928+
3932«

2582+«
2780
3005«
23932
379G«

4196
4474
7675

2583«
2969
319N

693

3941

2597
2806+
3020
3431«
3827

6943«
3996*

2633+
2832
3054«
3453
3866+

6947

7990

8011

4008

4063+

4066+

4075

4123

4126

4135

2648
2839
3069
3491«
3854

2691«
2851~
3109«
3513
3933«

2692+
2869+
3133
3551«
3961

2693+
2895
3177«
3573
4000«

2694*
2902
3196
3611
4028

2685+
2914
3240«
3633
4067«

2696+
2932«
3264
3671
4088
4389+
7961

2706
2058
3264
3693
127«

4395+
7964

2714
3110«
3243«

2760«
3111«
3244

2783
3112+
3245«

2822+«
3113«
3259

2843
2714+
3en?

2885+
312K
3311

4236
4528+

4252
L4534+

4269+
4553

2600
3006
3196

2634+
3024
3206

2652
3055«
3241«

2697«
3073
3242«

7983

8009

3999+«

6213«
4682«
7978

8004

7985

7988

4299+
LO667*
7996

4315
L6B2

4330
4950

4345
4965

(ZR6BDD RK611
CIR68D.P1T

DSKLS CTRL PRT?
14=5EP=81 13:47

3312+
3432+
3830

6206

6439

E.SPAR
E.wC
FMTE

GNS

004216
004162

= 000020
=

anewen

= 000001

GTSWR = 104406

HDCODE
HT
HVRC

004250

= 000011
= 000400

IDAE
=
IE
=
=
ILF
ILLFUN
INTR
=
IOTVEC=
IR
=

M(Lk

002000
000100
000001
004270
000300
000020
000100

= 000012

000400

MACYTY

30(1046)

14=SEP-81

CROSS REFERENCE

3313

3314

4214w
4671
7973

4238+
(483

4529+

4535

2425

€978

6985

5899

5038
5975

6053

6136

2671+
6456+

2680
6458

3456
3867+

3492+

3897

7975

7955
4987

7956

79494

7412

7470

6056

6140

4806

6928
6919+

7983

4031
4300+
4663+

7943

7944

7945

5126

5203
6221

2692
6541+

2718+
6543

7957

5046

MSP

004246

010000
004000
005254000004
000015
004254

= 000004

7947

7949

7951

7952

7953

5278
6307

5433
6477

5511
6562

5588
6648

5665
6704

5743
6926

2719
7967

6115+«
8006

6200+

6202

6286+

6288

6371

5047
5538
6054
6591

5076
5589
6080

6650

5153
5666
6165
6730

5204
5692
6223
6787

2878

2941
3720

3047
3787

3102
3788

7988

6951+

6952

8011

4758

4824

4902

4913

2684
3424
3988

5434
5926
6479

2746
3484
3989

5460
5976
6506

2747
3544

3664
4115
4515
5419
6463

4055

4116
4589

4451

6039

4376
5112

6122

5189
6207

3728

3795

3862

3929

3996

40€3

4123

2742

2754

2760

2775

2787+

2788

3713+

3780+

4049

4053

3343

3344

3363+

3416

34760

4452

5264

6293

4191
4670

4246

5651
6690

L4595
5729
6766

3847+

3914+

3981+

3536

3596

5497
6548

7014+

002000
000200

= 000100

NED
=
NEM
=
NEWPAS
NXF
=
OFFSET=
OFFVAL

OFST

001000
172100
042450
000114
00i000
000017

4201
4411
7964

6930

2626
3371
3922

3396
3800+

4183+
4396+
7961

6925

7470

3379«
3763

4158

6566

5382
5900
6421

3339
3733«

4390+
4970

6481

5356
5848
6394

3331
3696

4128+
6342
4949

6356

4375
5027
MDS
=
MEMBAS=
MEMERR
MEMVEC=
MERD
=
ME SMSKk=
MEWD
=
MIND
=
MSGCOD

3318+

4001«
4270+
4550
7985

7978

SEQ 0177

3612+

6311

5305
5822
6336
6861

7464

3317«
3576

4852

4705

6309
6866

3376w
355¢+
3964
4262

4823

2371+~

2370+
4599
5279
5770

3315«
3516
3934%
6257

I 14

15:10
PAGE 179
TABLE == USER SYMBOLS

4437

446

44B1s

7970

€86€

3302
3301
5050

3312

3329

004222

P.DS

004224

P.ER

004226

RDCHR =
RDDATA=
RDGATE=
RDHEAD=
RDLIN =
RDOCT =
RDY
=

104410
000021
100000
000025
104411
104412
000200

RECAL = 000013
RESREG= 104414

RESTRT
004306
RESVEC= 000010

RKASOF= 000014
RKBA
= (000004
RKLST1 = 000000

7014

7888

7901

7900«

7901«

5604+

5681+
6802+
5682+
6803+
5683+
6804+
5684+
6805+

4545

5759+
6881+

5837+
8004
5838+
8004
5839+
8004
5840+
8004

5915+

6224

554

2327
2357
835
2376+

5065%
6069+
5066+
6070
5067+«
6071+
5068+

6072+

79524

79534

2444

4597

5229
5743
6249
6811
2995

7887«

7888+

5219«
6239+
5220«
6240%
§5221%
6241+
5222+
6242+

5294+
6325+
5295+
6326+
5296+
6327+
5297+
6328+

5371«
6410«
5372«
6411«
5373«
6412«
5374
6413%

79544
4756

4823

4901

5449+

6495+
5450

6496+
5451+
6497«
5452+
6498+

4987
5459
5975

5381
5899
6420
6942
3982

6037

3301+

3541+

3661+

2498+
2682+
2876+

2570+
27
2939+

2579
2764+
2953+

79564

5304
5821
6335
6890

3657

5355
5847
6392
6927

3662

6505

6720+

5605+

6721
5606+
6722+
5607+
6723«

5760+
6882+
5761+
6883+
5762+
6884+

5075
5588

5916+
5917+
5918+

5152
5665
6164
6729

6079
6648

23514

P.C(S2

7008

4538

004220

4854

4533«

P.(ST

4812

4530~

—

PSW
= 177776
PWRVEC= 000024

4800

4484~

WU
oo

177776

4509

5743

4466

OWwW~NO

000140
00022
000240
000300
000340

4324

5727

4459

oo
Vowno
O\ NS

=
=
=
=
=

«323

3718

4440+

PR3
PR4
PRS
PR6
PR7

4406

= 000100

3714

4399

PRZ

PIRQ
= 177772
PIRQVE= 000240
PRO
= 000000
PR1
= 000040

3422

6394

= 002000
= 020000

4319

8230#

= 010000

PGE
PIP

7012

SEG 0178

PCD

= 004000

2348#

3417

180

TABLE == USER SYMBOLS

PCA

= 000020

2931

43971«

2460

J 14

PAGE

00 (N OO0 N CONL
o
WONO—=00O

PAT

CROSS REFERENCE

15:10

(o 3%, 1o AV To AV Te NV ]

PARM
004276
PAR.EN= 000001

61%

004260

= 000003

PARBIT

14=SEP=-81

PACK

30010460

OPROO&
OR
= 000200

L E 2R

OPROC3

MACYTT

82264
24643
82324
8237#

VIINWWWNO
WV
SN oo
&= YO =N
N

020000
050072
050121
050127
050157

0Pl

CPROO1
OPROO2

DSKLS CTRL PRT?
14=5EP=81 13:4~

WOOVOOOOODOOVOWOOS

CIR6BDO RK611
(ZR6BD.P'1

CIR6BDD RK611 DSKLS CTRL PRT2

MACY11

30(1046)

3044%
3237
3,36+
3658+
3810*
3952

3051
3249+«
3478«
3662+
3849+
4005+

3060*
3299«
3482+
3668
3852+«
4011+

CIR&BD . P11

RKCS2 = 000010

RKDA

= 000006

RKDB

= 000024

" RKDCYL= 000020

|
|
|

RKPS

= 000012

|
.

RKECPS= 000030
RKECPT= 000032

RKER

RKMR1

= 000074

= 000026

14=SEP=81 13:47

4179+
4512«
4BLkr
5033
5224
5405
5610
817
6037+
624k
6469
6696
6886

OLSH
4745

5021%
5350
5688
6033+
6389
6701
944k
5804+

418BB*
4587+
4B4H
5037
5225
5425
5649*
5842+«
6045
6245
6473
6700
6924*
2572+
4753

5043
5378
5723
6050
6417
6726
2681
5882+«

950#

4889+

5108+
6284r

5185+
63(9+

949#
9468

5302
5819
2;35

954H
9554

9478

5228
5742
62648
6810

3099+

4595

5353
5845
6390

4596

5277
5768
6306
6864

9514

2699+

4185+
4377

4190%
4375+

2742«
2940+
3229+
3484+
3721»
3906

4590%
4979+

Q743%
0994+
3233«
3485+
3725
3984+
4640*
4980+

14-SEP-81

15:10

K 14

PAGE 181

CROSS REFERENCE TABLE == USER SYMBOLS

4234+
4593
4BS2+
5042
5262%
5454*
5657
5843
6049
6291%
6500%
6724%
6930*

3097+
3300+
3488
3676
3858
4050%
4243%
4642+
4891+

5070«
5270
5455
5661
5883+
6074*
6299
6501
6725

5072
5413%
5740
6076
6452+
6762+
4240%
6025%

6931
4372+
4797+
S106*
5430
5766
6111+
6476
6780
4935«
6118+

3167*

3230%

41B7+
4796%

4908

5337%
6454r

4701

5379
5897
6418

4702

5303
5820
6334
6889

2512+

d746%
2998+
3234«
353G
3783«
3988+

4191%
4376%

4b4hr
5022+

5415%
6539+

4754

5431
5923
6475

4755

5354
5846
6391
6932

2513

2747+
2999+
3300%
3544+
3787«
3989+
4240+
4446
4645
5027+

3100¢
3308
3496+
3715+
3871+
4053+

4289+
46LB
4893
5071
5274
5495«
5686+
5891
6075
6303
6546+
6764r
6939+

3106
3326+
3538+
3718«
3877+
4059

4291+
4674
4897

S110«
5299+
5503
5687
5895
6120«
6330*
6554
6772

SEQ 0179

3118+
3365+
3542«
3724
3916*
4072+

3165+
3369+«
3548
3737«
3919«
4078+

3168+«
3375
3556+
3743«
3925
4110+

3174
3383«
3598«
3782+
3938«
4113«

3181+
3418«
3602+
3785+
3044+
4119

3228+
3422«
3608
3791
3983«
4132«

3231
3428
3516+
3804+
3986+
4138«

4584%
4B69+

4586%*
4BBB+

4594
4890+

4639+
4898

4&41e
4910

4700
4932+

4744+
4984

5416+
6544+

S5494x
6630+

5571+

5648+

5726+

4318+
4699
4909
S118
5300
5507
5727+
5920«
6128
6331
6558
6779

4321%
4746
4917+
5122
5339+
5532«
5735
5921
6132
6376+
6585+
6806+

4369%
4748
4936+
5147+«
5347
5533
5739
5959«
6159+
6384
6586
6807

4373«
4752
4942
5148
5351
5572«
5764+
5967
6160
6388
6632+
6849+

4445t
4806t
4957
5187+
5376%
5580
5765
5971
6205+
6415+
6640
6857

4449+
4808
4983
5195
5377
5584
5805+
5996+
6213
6416
6644
6861

4507+
4820
5025+
5199
5417+
5609+
5813
5997
6217
6461w
6688+
6885+

5123
5456
5801«
6133
6502
6808
5024+
6203«

6940
4511%
4B43x
5149
5491+
5818
6167
6537+
6B47
5109+
6289«

3367+

3420%

3480*

3540+

3600+

5803+«

3660%
5881«

4241+

4934+

6113+

5023+
6198+

4985

5044

5073

5124

5150

5201

5227

5276

44kB*
4821

5493+
6620+

4899

5457
5973
6503

4822

5380
SB98
6419
6941

5570«
6686*

5183«
5508
5844
6196
6559
6862
5186%
6374%
5647+

5260*
5585
5922
6282+
6631%

5275
5611
5957«
6304
6645

6035+

5301
5645+
5972
6332
6684r

5335=
5662
5998
6367+
6687+

5535
6051
6588

5586
6077
6646

5612
6134
6702

5663
6162
6727

5689
6219
6781

5741
6247
6809

6305

4900

4911

4986

5045

5074

5125

5151

5202

5432
5924
6476

5458
5974
6504

2575+

2576%

424k
4447+

4247+
4451%

4290%
4452+

4E70*
5028«

5725+

5226
5568+
5896
6246
6627+

5509
5999
6560

2571+

2751
3043+«
3304*
3545+
3788+
3993

5200
5534
5879+
6218
6587
6887
5338+
6459+

QB12+
3047+
3305%
3599+
3792
4051+
4671%
5031+«

QB15%
3048+
3366%
3604+
3850%
4055+
4605+
5107+

5767

6863

S510
6000
65617
s

5536
6052
6589

5587
6078
6647

5613
6135
6703

5664
6163
6728

6220
6782

2816%
3098+
3371+
3605+
3854+
4056+

2626

2875«
3102«
3370%
3659+
3855x
4060

2627+

Q878+
3103+
3419+
3664*
3859
4111+

2678+

2684*

2685+

4696%
5112+

4933
5113«

4319+
4514%

4938+
5176«

4323+
4515+

4324+
4585+
4953+
5185+

4370+
4589s

2622+

4293+
4508+

429%+
4509+

2879+
3166+
3424+
3665+
3917+
4115+
4930+
5184+

2938+
3170+
3425«
3716
3921«
4116+

5690

2941+
3171+
3479+
3720+
3972e
4120
4954w
5190e

JREBDO RK611 DSKLS CTRL PRT2
REBD.P11

RKMRZ = Q0003
RKMRY = 00003¢
RKPRI
004236
RKSPAR= 000022
RKVEC
004234
RKWC

I RLS

= 000002

= 000010

SAVREG= 104413
- SAVSWR 004274
- 3CLR
= 000040
.

;
.

SCOPT = 104415
SCOP1$

SEEx

(43224

= 000017

SELDRV= 000001

13:4

5193«
5692«
5729«
5962«
6211«
6538+
6766

9524

3238

CROSS

5261+«
5497«
5730«
5965+
6283«
6548+
6767«
2517

3309

5264+
5498+«
5733«
6034
6293«
6549+
4770«
2580

3376

14=SEP-81

REFERENCE

5265+«
5507+
5802+«
6039+«
6294+
6552+
6848+
2631

3429

15:10

TABLE

5268+
556G+
5807+«
6040+«
6297+
6628+
6851+
2689

3489

3549

2820

3609

5342+«
5578+
5880«
6122«
6379+
6638+
5929«

5345+
5646+
5885+
6123«
6382+
6685+

S414+
5651+
5886*
6126
6453+
6690+

5419+
5652«
5889+
6197«
6463r
6691+

5420+
5655+«
5958+«
6207«
bLbhr
669

5423«
5724+
5941e
6208+
6467
6767+

2883

2946

3003

3052

3107

3175

3108

3176

3669

3726

3793

3860

3927

3994

4297
2690

4328
2753

4379
2821

4455
2884

4518
2947

4675
3004

4958
3053

4062

4122

4195

4251

4298

4329

4380

4456

4519

4676

4959

2475«

2476+

4798

4835+

4842+

4851+

4B70

7307
23454
9964
5413
6452
2603

79554
7886+
4584
5491
6537
2717

7905
4639
5568
6627
2786

4744
5645
6684
2847

4796
5723
6762
2910

4869
5801
6847
2973

4888
5879

4932
5957

5021
6033

5106
6111

5183
6196

5260
6282

5335
6367

3139

3202

3270

3342

4417

4477

4556

967#
5025
5572
6477
9604
3369

3092
5038
5588
6546
2500
4188

3100
5046
5649
6562
2505
429N

3160
5110
5665
6632
2519
4321

3168
5126
6120
6648
2565
4373

3223
5187
6136
6688
2573
4449

3231
5203
6205
6704
2623
4512

4109
5339
6221

4113
5355
6291

4243
5417
6307

4936
5433
6376

4943
5495
6392

4987
5511
6461

2624
4587

2672
4642

2682
4649

2736
4746

2744
4806

3364
4844

4216+

4217

4235«

4272+«

4273

7985

82414
6704
5050
2351«
3045
2368

6784
5590
2354+
3597
7034

6786
5745
2427
3602
7369

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

3235

2327/
9564
23264
942#
994
#

4614
71794

4891

3310

2477+

4720
7957

52¢2

3377

4773

5278

3430

6665

4764

3490

6950

6849

START
START1
STKLMT=
SVAL
=

004316
004322
177774
100000

23544
2352

23554

SwR

001140

1080
2349
8364
10414
5977
11448

5048
6055
2366

5128
6139
2388+«

5205
6224
2390

5280
6310
2396

2396

2418

7624

7637

= 000004
= 000010
= 000020

2752

5341+
5575«
5811
6112+«
6378
6635+
6855+

SEa

4250
2632

4180+
5824
7553
5203
5048
2348+
3044
2356

Swd2
Sw03
Sw04

5336+
5574«
5808+«
6043«
6368+
6634
6852+

SYMBOLS

4194
2581

23384
10114
7341
9864
10334
23288
964k
8254

SWREG
000176
SwO0
= 000001
Sw00 = 000001
Sw01
= 000002

USER

4121
2518

004256
000002
050201
020000
000020
004240
000011
001100

004264

L 14
PAGE 182

4061
9534

SFTCNT
Skl
=
SPACE2
SPAR
=
SPDL 55=
SRTFLG
SRTSPL=
STACK =

STALL

‘

14-SEP=B1

WACY11 30(1046)

23414

7179

1078%#
8894
8794
8784
8774

8764
8754

6776

7261

889
888
887

886
885

7268

7280

7284

3550

79574

7360

3610

7624

3670

7661«

3727

7886

3794

7905+

3861

3928

3995

0180

CZR6BDO RK611 DSKLS CTRL PRT2

CIR6BD.P1N

SW0S = 000040
Sw06 = 000100
Sw07 = 000200
SWw08 = 000400
SWw09 = 001000
SW1
= 000002
SWw10 = 002000
= 004000
SW11
SWw12 = 010000
SW13 = 020000
Swié = 040000
= 100000
SW15
= 000004
SWw2
SWw3
= 000010
= 000020
Swé
- SWS
= 000040
= 000100
' Sw6
. SW7
= 000200
= 000400
SWw8
SWw9
= 001000
S.CLR = 000400
S.FMT = 001000
S.PACK= 004000
S.RECL= 000040
S.RTC = 000200
S.SEEK= 000020
S.STSP= 000100
S.UNLD= 002000
TBITVE=
TKVEC =
TPVEC =
TRAPPC

TRAPVE=
TRTVEC=
TST1
TST1I0
TST100
TsT11
1ST12
TST13
1ST14
TST15

TST16
1ST17

TST?2

TST20
T1ST21
1S122
15123
1ST24
1ST25

1ST26
T1ST27
1ST3
1ST30
1ST31

000014
000060
000064
004272

000034
000014
005272
010032
041712
010350
010614
011060
011376
011706

012240
012602

005576

013046
013326
013606
014066
014346
014626

015140
015452
006056
(15764
016276

14=SEP=81 13:47
8744
8734
B72#
871#
870#
888#
8694
868#
B67#
8664
B65#
Be4Ln
8R7#
8864
8854
884w
8834
882#
R81#4
880#
10664
10678
10498
1063#
1065#
1062#
1064#
1068

922#
9294
9304
23448

9288
9234
2481
2912
6904
2975
3012
3061
31554
3204

3289
33594

2509

3384
3437
3497
3557
5617
3677

3738
3805
26178
3872
3939

MACY11 30(1046)

14=5EP-81

15:10

PAGE 183

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0181

884
883
882
881
880

7360

7030
2806
2633
2932
3005

7179
2831
2642
2957
3014

5
3491
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
2927#
65174

7112
7119
7175

30384
30884

7121
7122

25614

7113

3758
3825

7127
34724
35324
35924
36524
3710#
3764
3831

7128
7129
7130
7131
7132
37778
3844

7133
7134

3892

3898

39114

7135

2989
3018
3067
7123

7120
3025
3074

32194

7124

2525

2547

7125
7126
3391
3444
3504
3564
3624
7684

3744
3811
7114
3878
3945

3397
3451
3511
3571
3631
3691

3751
3818
3885

3952

34124
3457
3517
3577
3637
3697

3959

3965

39784

7134

2957

2977

4236

4237

4949

4127

4142

4236

4237

4949

(ZR6BDO Re61T DLKLS CTRL PRT;
CIR6BD.P11
14=5EP=81 13:4
1ST32
1813

016610
017106

40
407

1ST35

017656

4193

187134

017420

6133

MACYT1
4012
4079

4019
4086

4204

42318

4139

157136
1S137
1514

020122
020456
006322

4255
4335
2640

4260
4340
2646

TST41

02134(

4479

44998

TS143

022166

4318

T1ST46
1ST47
1ST5
TSTSO
1STS1
1ST52
TSTS3
TSTS4

023562
024012
006634
024446
025130
025562
026214
026632

4LBBSH
4929#
27328
4947
5089
5166
5243
5318

7149
7150
7116
4963
51034
5180#
52574
53324

1ST56

027716

5473

S4(B8%

TST40

021022

1S142

02171¢

TST44
TST4S

02%716
023156

1STSS

027264

1ST57
1STé

46338
45764

4723
47932

5395

N 14
30(1046)
14=-SEP=-81
15:10 PAGE 184
CROSS REFERENCE TABLE == USER SYMBOLS

7143
7145

7146

47368
7148

54104

4146

L2868
4346
2653

4968
7152
7153

1ST61

031434

5705

57204

7160

1ST66
1ST67

N3W222
034704

6093
6178

60304
6108%#
61938

7164
7165
7166

TST70
1ST71

035366
036050

6263
6349

62798
63648

7167
7168

1ST73
1ST74

037214
037676

6519
6604

65344
66194

7170
7171

1ST62
1ST63
TST64
1ST6S

032066
032520
033152
033570

TST?7

007514

1ST72

036532

TST75

TST76
1ST77
TYPDS
TYPE

040210

=
=

040636
041300
104405
104401

TYPERR

043716

T.BA

004124

5783
5861
5939
4015

2849

64 34

66814

6743
6825
6982
2412

7318
7635

7763

7270

57984
58764
59544

28648

64498
7172

67594
6844

6989
2429

7322
7636

7139

7141
43618
26682

7142
7115

4973

5001

5018#

7151

2439

2443

2451

2460

7159

7161
7162
7163

711°

7165

7173
7174

79478
2432

7323
7639

7767

7831

7307#

4176

7157

7158

56424

7137

7154
7155
7156

55654
7117

5628

7140

4159

40458
7138

7147

5551
28014

031002

4153

4032
4105

7144

030350
007176

1ST60

4026
4092

SEQ 0182

7330
7652
7833

7341
7663

7343
7682

7903

79434

7353
7737

6976

7354
7743

- 6983

7356
7748

6990

7364
7752

7263

7617
775

7271

7317

7530
7758

7605
7760

TYPOC = 104402
TYPON = 104404
TYPOS = 104403
T.ASOF
004136

2431
79464
79454
22874

2442

2459

7338

7638

79444

1.S1

22808

2504

2506

2516«

2522

2579«

2584

2630+

§6SS

2688+

2698

2750«

276"

3178

237«

3246

3308

3323

2375«

3280

3428

3433

3488

3453

3548

3953

004120

2282#

2819«

823

2882«

2886

294?-

2949

3002+

3007

051«

3056

3106

3115

3174

(ZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14-SEP-81 13:47
3608+

4002
L75¢%
5042+

004130

=
——

004126
004142
004140
004132

:
.ECPS
LECPT
.ER

004152
004154
004134

3613

3668+

3673

4069
4820+
5065

6119«
4826
5071«

7994
2284H
4984%

7999
4594+
4994

8001
4605
5043«

8006
4700
5056

5818+«
5998+«

6229
6427
6701~

5828
6008
6240
6474%
6711

5838
6050«
6246%
6485
6721

5844+
4060
6256
6496
6726%

22834
22894
22884
22854

4595«

4611

5276%

5288

5296

210
388
5605

.DA
.DB
.DCYL
.DS

B 15

4059+
4761
5053

5225+
$437
5618
5837
6049+
6245+
6482
6720
6894
T.CS2

;

MACY11 30(1046)
14-5EP-81
15:10 PAGE 185
CROSS REFERENCE TABLE == USER SYMBOLS

5067

5457+
5675
5857
6071
6305«
6503«

gggg

22934
2294H
22864
5045+«
5228«
5446

5627
5840
6052+«
6248
6492
6723
6932+

T.MRT

004144

22904

T.MRZ2

004146

22914

3926+

2704

5233
5449
5661+
5843+
6057
6253
6495
6725«
6931+«

5220
5630%
5611«

5073«

5274+
5455+
5669
5851
6069
6303«
6501~
6733
6933

5226%
5440
5621

5085

37264«

3734

3791«

4129
4897+«
5079

4593+
4909+
5122«

4602
4942+
5130

8011
47N
5066

5308
5527
5739«
5921«
6141
6339
6580
6802
7964

L4753«
5072«

5854
6070
6304+
6502«
6736

4701«
5302«

52832
5463
5581
5895+
6075«
6312
6509
6779«
6940%

5236
5450
5662«

5124«

SEQ 0183

3801

3858«

3868

3925+«

3935

5351«
5533«
5747
5929
6154
6388+
6586
5807«
7967

5359
5541
5759
5971~
6160«
6397
659
6815
7970

4674+
4960
5156

4677
4983+
5199«

5377«
5592
5773
5991
6217«
6416+
6653
6869
7978

5385
5604
5817«
5997+«
6226
6424
6700«
6881
7981

5429+
5610+
5825
6005
6239
6473+
6708
6886+
7990

4764
5082

4821+
5123«

4829
5133

4898+
5143

4905
5149«

4910
5159

4914
5200+

5896+«
6076~
6315
6512
6780+

5906
6086
6326
6559«
6793

5916
6133«
6332+
6570
6803

5922«
6144
6342
6581
6808+«

5932
6155
6389+
6587«
6818

5972«
6161«
6400
6597
6862+«

5982
6171
6411
6645
6872

5992
6218+
6417+
6656
6882

4717

4754«

4770

4899+

4985+

5000

5044+

5050

5062

5314

5353«

5365

5373

5379«

5391

56431+

5443

5275+«
5456
5672

5136

5300«
5515
5695
5915
6132«
6331
6567
6790
7961

5285
5466
5682

5144

5295
5508+«
5688+

5150«

5301+
5518
5698

5162

5311
5528
5740«

5201~

5371
5584«
5765«
5979
6168
6410
6644
6861+
7975

5352«
5534
5750

5213

5362
5544
5760

5221

4699+
4991
5207

3992+

4650
4957+
5148+

5294
5507+
5687«
5903
6083
6325
6558+
6784
6944

4648
4944
5142

5372
5585+«
5766

5227+

4708
5037+
5219

5378+
5595
5776

5239
5451

5469
5683
5897+«
6077«
6319
6515

5509«
5689+«
5909
6089
6327
6560«

5521
5701
5917
6134
6333«
6574

5529
5741«
5923«
6148
6345
6582

5535«
5753
5935
6156
6390+
6588+

5547
5761
5973«
6162«
6404
6600

5586+
5767«
5985
6174
6412
6646

5598
5779
5993
6219«
6418+«
6659

5606
5819+«
5999«
6233
6430
6702+«

5612«
5831
6011
6241
6475+
6714

5624
5839
6051+«
6247+
6489
6722

5663+
5845+
€063
6259
6497
6727+

4596+

4608

4702«

4714

4755+

4767

4822+«

4832

4900%

4911+«

4986+

4997

6728+
6925

6742
6941+

6782+
6947

6799
7990

6810
8009

6824
801

6864~

6878

6884

6781+

5059
5242
5452
5664«
5846+
6066
6262
6498

2751«

3930

2517«

2711

6796

5068
5277+
5458+
5678
5860
6072
€306+
6504

6804

5074«
5291
5472
5684
5898+
6078+
6322
6518

2756

2767

2527

2530

3941

2752«

3993«

2780

6809+«

5088
5297
5510+
5690+
5912
6092
6328
6561+
3725«

6821

5125«
5303«
5524
5704
5918
6135«
6334+
6577

6805
8004

3729

6863

5139
5317
5530
5742+«
5924+
6151
6348
6583
3740

6875

5145
5354+
5536+
5756
5938
6157
6391+«
6589«
3792+-

6883

5151~
5368
5550
5762
5974«
6163«
6407
6603
3796

6888+

5165
5374
5587+
5768«
5988
6177
6413
6647+
3807

6900

5202«
5380+«
5607
5782
5994
6220
6419+«
6662
3859+

7990

5216
5394
5607
5820
6000+
6236
€433
6703+

5222
5432+
5613+
5834
6014
6242
6476+
6717

3863

3874

26438

2689+

6889+

3997

4008

4060

4064

4075

4120

4124

4135

2820+

2830

2839

2883+

2893

2902

2946

295¢

2534

2537

2580

2590

2597

2631

2642

8001

6903

7970

2965

CZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14=SEP=-81 13:47
3003+
3252
3560
3827
41642
4406

T.MR3

004150

7964
2292#

2783
3136
3,30«
3687
3964

4257
4519*

T.SPAR

2B21%
3176«
3447
3696
3995+

L298*
4536
7985

7973
2540

B43
3189
3456
3727+
4022
4301
4550

7988

3052«
3336
3620
3894
4196
44bh
7975
2543

0884*
3199
3490+
3754
4031
4312
4676%
7996

UFE
= 000400
UNLOAD= 000007
UNS
= 040000

9994
963#
1024#

2868
6396

3537
6481

3542
6566

23224
23234
1035#
23408
5656
6695

4182+
4184
5048
4747
5734
6771

4237+
4239x
5050
4807
S812
4856

7985
7985

UPE

= 020000

004230
004232
000100
004262

WCE
=
WwLE
=
" WRDATA=
| WRHEAD=
CWRL
=
. WRTCHK=
| WRTGAT=
$APTHD

040000
004000
000023
000027
004000
000031
040000
001000

|
|

SASTAT=
SATYC
SATYT
SATY3

|
|

SAUTOB
$BASE

SATYA

sawess U
043274
043250
043256

043266

00154
001270

$BDADR
$BDDAT
SBELL
$COWT
$CDW2
$CHARC
$CKSWR
$(MTAG

001122
001126
001204
001274
001276
044530
045206
001100

3063
3376+
3633
3927+
4250%
4474
7978
2546

2906
3239«
3507
3763
4062«

4329+
4687

22814

10044

10054
10214
9694
9714
10384
G7 oM
10574
11064

7219
7190
71884
7189#

71914

4B45
5890

3069
3393
3669«
3948
4252
4S1B*

3107+«
3429«
3680
3961

SEQ 0184
3121
3440
3693
399«

7983
2581%

4297~
4543
7985
2600

4307
4553
7988
2632+

4330
4959%

4342
4970

4380%
7961

2947+«
3257
3516
379+«
4082

2969
3267
3550
3821
4091

3004+
3310«
3567
3830
4122+

3133
3453
3726
4015
4315
4675+
799
2652

3024
3329
3576
3861+
4149
4397
7964

3175+
3489+
3747
4028
4308+
4682

3184
3500
3760
4061+
4337
4958+

3196
3513
3793«
4088
4345
4965

3238
3549«
3814
4121+
4379«
7961

2690%

2714

2753«

2773

4411
7967

4456+
7973

4457
7975

4471
7978

3053+
3339
3610%
3888
4158

3073
3377«
3627
3897
4195«

2108+
3387
3636
3928«
4201

3126
3396
3670+
3955
4251«

3848

3852

5805

5821

4892
5966

5032
6044

5117
6127

519
6212

5269
6298

5346
6383

5424
6468

5502
6553

5579
6639

5746
5048

5050

11104

7234
71924
7402

7276

11414
12134
0He0
3913

2422«
2430
57
3980

7632
2438+
W
4047

7783
2497
P
4107

2563
1
4178

2619
%Kik
4233

2670
WA
4288

2734
Bk
4363

2803
B
4435

2866
%M
4501

2929
Y2
4578

2991
Ve
4633

3040
e
4738

2800

5878

59%

6032

6110

6195

6281

6366

645

6536

621

6483

676l

2379

2380

4795

'
.
|
|
|
|

7967
2518+

3020
3309«
3609+
3881
419%%
4655%

22954

004122

U.MR2
| U.MR3
W
=
WAITIM

3014
3264
3573
3860+
4155
4414

004156

CT.WC

~
|
|

7983

c 15
MACY11 30(1046)
14-SEP-81
15:10 PAGE 186
CROSS REFERENCE TABLE =- USER SYMBOLS

11364
1138#
11648
12154
12164
7619%
76248t
112 L

4887

4931

S020

5105

7263

7296

7429«
7951

7436

7462+

74678

2364

2372

2378

2363

5182

5059

5334

5412

5490

5567

S6kd

5722

CZR6BDO RK611 DSKLS CTRL PRT2
(ZR6BD.P11
14-SEP=-81 13:47
000000
000010
046071
046064
001242
001211

11544
11542
7635
7652
11874
;;990

$DBLK
$DEVCT
$DEVM
$DOAGN
$DTBL
' SENDAD
SENDCT
- BENULL
SENV
$ENVM
$EOP
$EOPCT
$ERFLG
SERMAX
$ERROR
$ERRPC

045176
001224
001272
042350
045166
042340
042204
042354
001234
001235
042150
042176
001103
001115
043516 001116

7571
11784
12144
6972
7574
1090
2378
70024
1183#
11844
6964%
378«
274
1 33#
37 2
13 L
98 8
23 38
13 14

|
|

.
'
|
|
.
C
|
-

$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
$HIBTS
SHIOCT
SICNT
$INTAG
$ITEMB
SLF
SLFLG
SLPADR
SLPERR

043514
001156
001155
00'120
007124
042330
045256
000000
001000
046256
001104
00i135
001114
001212
043513
001106
001110

SMADR1
$MADRZ2
$MADR3
SMADR4
SMAIL
SMAMST
$MAMS?
$MAMS3

001246
001252
001256
001262
001214
001244
001250
001254

B xR

16
18

001300

001112
001202
001234
007300
001216

)

D 15

30(1046)
14-SEP-81
15:10 PAGE 187
CROSS REFERENCE TABLE == USER SYMBOLS

11554
7778#
7752

11564
77774

92%2

7271

7605

76134

6993
7605#
2410
69744

69994
69954

7291

2416
2401
7370
69714
7042
2381«
72564
7265+«
7990
7314
6987
2380+

7197
7199

1158#

1159%#

11604

11614

11624

7296

7317

7322

7330

7343

7356

7221
7399

7273
7404

7397

6975
708
7083

7368+
7083
7106

:
7086
7111

711

7181

7258+

7296

7266+
7994

7267
7996

7296
7998

7961
7999

7964
8001

7967
8006

7970
8011

699
.«

7264+

7296

7287

7289

7296

7219
7470

7228+

72364

7099«

7110

7026«

12174
7225+
7191«
7422
7470

78354
7096+

7097

11324

7267«

7275

11424

7664

7783

7767

7296

7308

7777

7836

2383+

7078+«
2566+

4580+

7087+«
2673+«

4635+

7103+«
2737+«

7108
2807+

7110
2870+

7906
2933«

1116

11734

2400

2416

7102

7273

7397

4441+

4503+«

1112
11944
12024
12054

7105+«

7470

7296
72354
2382+

12004
12044
12074
12104

7029+

7418

7470

7663

7757

7975

7978

7981

7985

3224+

3295+

4365+

7949

11674
7229+
11294
11304

SEQ 0185

1157%#

116
1754
188+«
152#
1514
1354
1374
9924
6368
810
11114
7824«
11284

NO
R mama

$ERRTB

Yy aamaany=—=aiN)
= —an

$CM3 =
$(M&
=
SCNTLG
SCNTLU
$CPUOP
- $CRLF

SERTTL
$SESCAP
SETABL
$ETEND
$FATAL

MACY11

4740+

6623+

6920«

7035

3093+

7087

3161+

71064

7170

7183

7286

SMTYP4
SMXCNT
SNULL
SNWTST

043512
046107
001230
001232
001214
046076
001245
001251
001255
001261
043022
001154
000001

1208#
1112#

189+
39

"un

001260

001002

E 15

30(1046)
14-SEP-81
15:10
PAGE 188
CROSS REFERENCE TABLE == USER SYMBOLS

7230+

SEG C18¢

72344

7208

7211+

7223

7227+

SMAMSS
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
SMTYP1
SMTYP?2
- SMTYP3

MACY11

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

LS e N e
i
i
B
I
N R |
ISAPUNUN)
= O8N — — -2 0N
OO0V W~N00 0
WO~
= O

CIR6BDO RK611
(IR6BD.P11

054

4222
47264

|
'

$RDSZ
SRESRE

,
~
|

SR2A
$SAVRE
$SCOPE

SRDCHR

7833

7836

2378

2379

2380

LA2222

SRTNAD

045620
046120
000010
046316
042352

$SETUP

046260
042512
000137

$RDOCT

7777

NN SN
O WWWWD
N0
LRl e AV Te QW WIILN]
WA NPNOWININO

$RDDEC
SRDLIN

NN
S NN
ororurnL H~O0N0o
O00WV00
O~ —
PO
0O NWO O

$PWRUP

SQUES

177777

042752
000220
167400

2370
7283

2372
7291

NONWDN SN

O —a —-a2PNOSHON0O
OO OON — = —
O —NOWO00
0

SPWRCT

| $PWRDN

54764
5944
65224

7002

[e Yo AV, P N WV, ¥]
O =2 = -2 NN 00
VOO ~NOON—
£SO
H YO~

$POWER

SPASTM

53984
5866
64374
6911

75464

O 00 00 \O — NO0
— ~JOO YW
0o —
Lo
JaNToRV eTo S pNE )

044756
044760
043006
001222
001006
046476
046472
046354
046402
007210
045470

4037
L4874
4921

L4224
4877

5171
5708#
6183
67464

OIS NN

.
|

$OCNT
$OMODE
SOVER
$PASS

28544
3211
36404

2791#
3146
35804
3970

2610
30294
3402
38344

2382

2410

2473

1163

2928
3711

6966

1164

2990
3778

6577
5546

4632

704€

7047

6620

5643
6E82

MACY1?

(IR6BDO Rk611 DSKLS CTRL PRTZ
14-SEP=-81 13:4
CIR6BD.P11

7065
7249

$SWREG 001236
$SWRMk= 000000

$TPS

001152
001157

2379+«
3220«

2496+
3290*

7964
8001

8006

4177«

4232«

4287+

7097
7470
7470

7100+
7617
7617

7110
7628
7626

2434
24L72%
2832
3257«
3568+

J\Nmoogmu\mmmu\
o

7970

7961
7999

4106+

5019«

6031+
7090«

2562+
3360
5104
6109«

2618+
3413«

5181«
6194«

2438
2590«
2894+
3259
3628«

2445+
2591+
2895
3329+
3687«

L4664+

4465~

4082

4083+

2669+
3473
5258+
6280+

2447
2592
2956+
3330«
3688+

4149
4466

8011
2733+
3533«

7981

7985

7988

7990

2978+
3711=

2990+
3778+

3039+
3845+

3089+
3912«

5333«
6365+

6620+

L362+

4577+
5566+

7645
7642

7703

2450
2704+
2957+
3331
3754

2466
2773
3127+

3447+
3822+

4150+
4536+

4399
4543'

4632+
5643
6682+

L4737+
5721+

479
5799+

2468+

2469+
2775
3189+
3507«
3889+

2470+
2830+

2774+

3128
3448
3888+

4404+
45644+

6760+

4405+
4545

6845+

3190+

3508+
3955+

4406

4022+
4458+

7998

I
84

2550C
2849
30394
3347
3497
3624
3751
3876

4006

4133
4276
45774
4963
5246
SS€64
5939
6266

4092
47324
4487
4LS19

5166
5476
57994
6178
6522
6904

5169
54894
5861
6181
65354
6909

79464

79478

61944

2640
2917
3078
3397
3520

36534
37784
3901

4032

4159
4346

4726

R 3

2509
27334
3018
3220#
3457
3580
3711%
3834
3965

5006
53334
5705
60‘8
63654
£746

k=3

24964
2722
3012
3209
3451
3577
3700
3831
3959

63465

66204
7112

001150

$TRAP
046506
$TRAP? (046530
$TRP
= 000016
$TRPAD

7667

7960

4086
4220
4479
48864

$1PB
S$TPFLG

7110

7071

7443
7441

7107

R-3

e PSANNWNNINY
= -

w DA N OWN =00

d e o

001162

001164
001166
(001170
001172
001174
0071176
000101

L
'

001144
001160

7104

7048

5955«
6967+

—

$TMP1T

$TMP?
$TMP3
$TMP4L
$TMPS
$TMPE
$TMP7
=
$TN

001146

7092
7296

7047

7996

OO0 DB

$TxS
$TMPQ0

7083
7268

7111#
7102+

4046+
4930+

$TkRB

7082
7261

[l = OWMNIWVNON O
S N—= N

001200

7081
7252

O P NWNOOPNWN—=O00
NI NWNO
D
= NN
& OO N—=COO

$TIMES

7068
725"

043024
001220

7067
7250

SEQ (187

v IS BN B B DWW
N W N W) N

$SWOBT
$TESTN

2403
822

F 15
15:10
PAGE 189
14-SEP=81
30(1046)
CROSS REFERENCE TABLE == USER SYMBOLS

(046542

7G484

7949

79504

7951

79524

79534

7954
%

76558

(ZR6BDO RK611
CZR6BD.P11

001004
001102
046054

MACY1T

G 15

14=SEP-81
15:10
30(1046)
PAGE 190
CROSS REFERENCE TABLE == USER SYMBOLS
7042
7740

7074+
7758

7101+
7772

7935
7435
7L68#

7943
764408

7668

2450

7112
71254
7138#

71148

771644

71668

6966+
7728

SEC (188

7102

7107

7111

7260

2453

2473

2474

2475

2477

71154

71164
71294
71424

71174

77764

7296

w
ARk

7947
73914
7428
7665
7944
75024
7945

2440
7470
7470

RRW

061315
I ERE
R R}

001000

7500+
7270
10764

2367

77764
7192
11CS

71278
71408
71534

71284
71414
7154%
71674

71684

71304
71434
71564
71694

1089#

1091#
7002

70034

71554

71194
71324
71454

7158#
7171%

1608
7173

71484
71614
71744

7123
71364
71498
71622
71754

1103#
7296

110%#
7470

1774
76134

7121»
71344
71478

7122#

71354

75454

1088

2383
7783

67794
7836

7890

10934

—

71514

044757

7946

]

044762
044200
044412
044532
044560
044574
044534
001226
001010
001240
001264
001266
000023
000021
042524
000000
000101

~ -

$TSTM
$TSTNM
$TTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$STYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
$USWR
$VECTT
SVECT2
$XOFF
$XON

CTRL PRT?2
P=81 13:47

(ZR6BDO RKE11

rIR6BD.P11T
CLRPSW
COMMEN
CYLWRY
ENDCOM
ERROR

GETPRI]

GE TSWR

.
,

IDAETT
LDLPER
MESCMD
MESSFT
MSCMD1
MSG

:SG?EL
Ut

NEWTST

30(1046)

3414

3474

3534

3594

3654

2651
2889
2076
3269
3503
3683
3832

2524
2655
2899
3117
3325
3510
3620
3870

2529
2700
2905
3123
3333
3515
3695
3876

2533
2708
2909
3130
3338
3518
3698
3884

2536
2713
2952
3135
3341
3555
3736
3891

2539
2716
2962
3138
3382
3563
3742
3896

4198
4416
4684

4203
4461
4689

14=SEP=81 13:4
4801
932#
3361
932#
2508

4836

4010

4018

4025

4030

4859

4863

4867

4907

2645
2846
3072
2266
3495
3675
3829

5055
5167
5316
5468
5620
5758
5911
6062
6228

ESCAPE

MACY11

1117#
1%
11178
%
8264

4160
4413
4679

FORERR

DSKLS CTRL PRT2

1117%

11174
1117#
4635

5058
5209
5319
5471
5623
5775
5914
6065
6232

9324

5105

9324

611
2566
4740

4254
4468
4710

14=SEP-81

15:10

CROSS REFERENCE TABLE == MACRO NAMES

4131

4137

4145

4152

4157

4916

4946

4962

4993

4996

4999

5002

5039

5052

4401
4613
4831

4408
4652
4834

5087
5238
5387
5526
5677
5830
5981
6094
6261

4967

5090
5241
5390
5543
5680
5833
5984
6143
6264

4972

5132
5244
5393
5546
5697
5836
5987
6147
6314

5135
5284
5396
5549
5700
5853
5990
6150
6318

5138
5287
5439
5552
5703
5856
6007
6153
6321

5141
5290
5442
5594
5706
5859
6010
6170
6324

5158
5293
5445
5597
5749
5862
6013
6173
6341

5161
5310
5448
5600
5752
5905
6016
6176
6344

5182

5259

5334

5412

5490

5567

5644

5722

5800

5878

5956

6032

6281
2737
6920

6366
2807

6451
2870

6536
2933

3093

3161

3224

3295

6365

4447

4503

4580

2929
2552

26084

2610

26574

2659

31448
3582
40954

27228

3146
36404
4097

2724

3209«
3642
L1650

27912

321
37004
4167

2793

3278%
3702
62208

28544

3280
37674
4222

2856

33478
3769
L2768

29178

2345
3834
4278

4566
51694

L6198
5171

4621
52464

L7268
5248

4728
53214

47788
5323

4780
5398#

LB875#
5400

2917

2980

3029

4875

4919

24134

6195
2673
6623

3;;5‘

3779

6748
3846

6£8284#

6830

69094

5398
6607

4347
4610
4828

5084
5235
5370
5523
5674
5827
5940
6091
6258

111;:

4276

4344
4607
4816

5081
5218
5367
5520
5671
5784
5937
6088
625°

L5648
5094

5321
€522

4339
4604
4772

5064
5215
5364
5517
5629
5781
5934
6085
6238

4489
50924

4220

4334
4555
4769

5061
5212
5361
5474
5626
5778
5931
6068
6235

L4874
5008

9324

2638
2842
3066
3261
3458
3638
3824
4004

4093

4424
5006#

3347

2602
2836
3059
3254
3455
3635
3817
3966

4090

L4228
4921
55544
6098

2599
2826
3027
3248
3450
3630
38C%
3963

4317
4552
4766

4351
4919¢
5478
60964

3278

2594
2785
3023
3201
3443
3623
3803
3958

4314
4547
4763

L3494
4877
5476#
6020

6672

2586
2782
3017
3198
3435
3415
3765
3951

4309
4540
4719

2991
4233
2866
25504

66704

2548
2777
3010
3193
3398
3578
3762
3943

4077

4304
4476
4716

4085

2545
2769
2972
3186
3395
3575
3757
3937

4071

4259
447%
4713

2619
4178
2803
2487

29804
3402
39014

2542
2763
2968
3180
3390
3570
3750
3899

SEa 0189

4033

11774
1117%#
1117#
24854

2919
34004
3836

H 15
PAGE 192

2982
34604
3903

67468

3040

30294
3462
39684

5556
61814

3031
35204
3970

56314
6183
3913

30784
3522
40354
5633
62664
3980

3080
35804
4037

5708#
6268

5710
63524

4047

4107

6911

57864
6354

2485

2550

2608

2657

2722

2791

2854

4349

4422

4487

4564

4619

4726

4778

3400

5476
6670

5164
5313
5465
5603
5755
5908
6059
6179
6347

3460

5554
6746

3520

5631
6828

3580

5708
6909

3640

5786

3700
5864

3767
5942

5788
66374

3834

6018

58¢44
6439

3901

6096

5866
65228

3968

5006

6181

594ck
6524

3078

4035

5092

6266

5944
66078

3144

4095

5149

6352

60184
6609

3209

4165

5246

6637

REPORT

SCOPE

B27#
3359

4286
5410
SETPR]

SETTRA
-

SETUP
SK]IP

6619

7935%

1%
14

3067
3564
3764
3965

4169
5166

SLASH

SPACE

STARS

6349

N
=
O
O

7232

7194

O
WSS~
NONWNION
OWNWN—

PUSH

1117#

I 15

14=SEP=81
15:10
PAGE 193
30(1046)
CROSS REFERENCE TABLE == MACRO NAMES
7874
7799

7854

2801
3710

2864
3777

SEQ 0190

2927

4736

4793

5954

7951

7952

7955

2646
3437
3637

2653
3444
3677
3878

2975

5705

5939

5876

OV
S WUIWNINONY
VWO
O MNNDWNIWND
— e
b YOO
VO
U NI
O=-2N

PARGEN

PCP

MACYTT

(o AN LV IV ]
—OVOo
NO
— NN
W00
Co Co

CZR6BDO RKE11 DSKLS CTRL PRT?
14=SEP=-81 13:47
CIR6BD.PIN

4079
4479

3088

932#

2485

2657
3087
3580

2550

2560

2616

3531
4035

4044

4498

4564
5102
5708
6278
6909

TRMTRP

7718
14
7935#

TYPNAM

TYPNUM
TYPOCS

2608
3520

2722
3640
4619
5786

2980
3901

4422
5554
6746
7946

4487
5631
6828
7947

7951

7954

7955

2525

2547
3391
3624
3825

2646

2912
3457
3691
3892

2975
3497
3697
3898

4919
6096

3144

6995

5169
€352

O NWNO

2550
3460

oWV~

1159

NN =P
. V\"

3067
3564
3764

1157

—_ N

6522
79354
2400#

1156

oS
© 00000

1117#
11174
14
14
3278
4220
5321

ny-

$8SKIP

6843
7687

7616

NN NN

$S5ET
$SSETM

6758

7637
6983

$SCMRE
BSCMTM
$$ESCA
SENEWT

|
|
-

TYPOCT

TYPTXT

14
14

WNIANWN

7549

14
14

TYPBIN
TYPDEC

0o
~ &~

.
'

7376

SWRSU

6107

e <Jo V]
— -2 00

5092
5641
6266

5554

CZR6BDO RK611 DSKLS CTRL PRT?2

14-SEP=81 13:47

CZR6BD.P11T

2965

4006

LEGUAT
.HEADE
¥ Rk
.SETUP
. SWRH!
.SWRLO
LBACTI
.$APTB
.SAPTH
SAPTY
.SASTA

5166
6349
1%
%
1%
1%
1%
800#
14
1%
1%
1%
1%

5243
6434
800#
8004

LS(MTA
.$DB2D
.$DB20
D1V
.SEOP
.$ERRO
.SERRT
JSMULT
. $POWE

1%
1%
1%
1%
1%
1%
i
1%
14

.SRDOC
.SREAD
.SR2AZ
.$SAVE
.$5B2D
.$SB20

K
1%
it
i
14
1#

4199

.SCAT(C

. SRAND
.SRDDE

|
'
|
-

.$SCOP

1%
il

.$SIZE
.$SUPR
LS$TRAP
.$7YPB

1%
1%
1#
1%

.STYPE

LSTYPD

.$TYPD

1170

. ABS.

061315

.$40CA

ERRORS DETECTED:

MACY11
4019
4250

4204

5395
6604

J 15
30(1046)
14=SEP-81
15:10 PAGE 194
CROSS REFERENCE TABLE == MA(CRO NAMES
4026
6335

5473
6743

4032
4340

5551
6825

800#
8004
822#
800#
11654
800#
8004

800#

8004

800#
800#
8004
8004
800#
800#

7783
7614

800#

7836

800#

7037

800#

7912

800#

7547
7374
7470

8004
800#

000
O

CZR6BD,CZROBD,LST/SOL/CRF/NL:TOC=SYSMA(C,SML
,(ZR6BD.P11
RUN-TIME: 32 37 3 SECONDS
RUN-TIME RATIO: 141/73=1.9
(B4 PAGES)
42k
CORE USED:

4073
634¢

5628
6904

4C79
4479

5705

4086
4723

5783

SEC 0197
4139

64968
6015

&4
437

6093

415%
5001

6178

4156

5089
6263