Digital PDFs

AH-9106E-MC

May 1982

201 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CZR6CE0 RK611,RK06,RK07 RK611 DSKLS PRT 3 MAY 1982 bw
Order Number:	AH-9106E-MC
Revision:	000
Pages:	201
Original Filename:	CZR6CE0__RK611,RK06,RK07__RK611_DSKLS_PRT_3__AH-9106E-MC__MAY_1982_bw.pdf

OCR Text

g e HIEART

MACY1) 30(1046)
.REM

~8-AUG-81

10:35

1
PAGE 2

SEQ 0001

Mmm
Nho .2

—4 —b = 2 b 3 —d
NO NN
=0 000 NN

O N

2O O

N WAWWNINUFONINLPORNINUNINY
b —

~no B OOV

lanYan

Yoy

~dgy

2 $K611 DSKLS CTRL PRT3
P
27-AUG=81 10:2¢4

IDENTIFICATION

PRODUCT CODE:

AC=9104E-M(

PRODUCT NAME:

CZR6CEO RK611

DATE:

AUGUST 10 1981

MAINTAINER:

DIAGNOSTIC

AUTHOR:

BRIAN LEBLANC

THE

INFORMATION

DSKLS PRT3

GROUP

THIS DOCUMENT

SUBJECT

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 [N THIS DOCUMENT,
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY
OF SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL
ITS AFFILIATED COMPANIES.
COPYRIGHT

THE

FTOLLOWING ARE

DIGITAL

1] 34

(()

1976,1981

TRADEMARKS OF

PDP

DECUS

DIGITAL

EQUIPMENT

CORPORATION

DIGITAL EQUIPMENT CORPORATION:
UNIBUS

DECTAPE

MASSBUS

TIR6CED RK611 DSKLS CTRL PRT3
27-AuG=81 10:264

TIRGCE P

MACY11 30(1046)

28-AUG-81

TABLE

10:35

PAGE 3

SEG 0002

CONTENTS

ABSTRACT
REQUIREMENTS

2.1 EQUIPMENT
2.2 PRELIMINARY PKOGRAMS
OPERATING PRCGRAMS
3 1 LOADING PROCEDURE
3 2 STARTING PROCEDURE
3 3 OPTIONAL SWITCH SETTING
3 4 RUN TIMe
0 P%RATING PROCEDURES
4

4
4

"'SOF TWARE'' SWITCH REGISTER
2 CONTROL C (“C) OPERATION
3 CONTROL S (*S) OPERATION

4.4

CONTROL Q@

(*Q)

OPERATION

PROGRAM DESCRIPTION

ERROR REPORTING
ABSTRACT

RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 3
A.

TESTS THE LOADING OF

FOR

CLASS B COMMANDS.

THE DRIVE BUS MESSAGE

SHIFT REGISTER

TESTS INDEX AND SECTOR PULSE DETECTION.

C. TESTS SILC AND NPR TRANSFERS FROM MEMORY IN 16 AND 18
BIT MODE.

ON-EBYSTANT MEMORY AND UN]BUS PARITY ERROR DETECDIORESTS N

TESTS READ AND WRITE MFM LOOPBA(CK.

TESTS

NO Rk06 DRIVE

CLASS B

INSTRUCTION £RRORS.

1S REQUIRED FOR PROGRAM EXECUTION.

2.0 REQUIREMENTS

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

2.2 PREL IMINARY PROGRAMS
RK611
RK611

DISKLESS CONTROLLER DI AGNOSTI(C:
DISKLESS CONTROLL ER DI AGNOSTI(C:

PART

PART 2

(C IR6A)
(C ZR6B)

(IR6CED RK611 DSKLS CTRL PR3

TIR6CE P

27=-AUG=-81 10:24

MACY11

30(1046)

28-AUG-B81

10:35

PAGE

SEQ 0003

3.0 OPERATING PROCEDJRES
3.1

LOADING PROCEDURE

THE

PROGRAM

(AN BE

LOADED

FROM PAPER

OR FROM XXDF MEDIA SUPPORTED BY XXDP.

TAPE

USING ABSOLUTE

LOADER

3.2 STARTING PROCEDURE

= START PROGRAM

LOCATION 204

= RESTART PROGRAM

LOCATION 214

- REQUEST BUS ADDRESS,

PRIORITY MODIFICATION

VECTOR ADDRESS, AND

3.3 OPTIONAL SWITCH SETTINGS
SW15
SWl4
SW13
SW12
SW11
SW10
SW9
Sw8

-~
«
-

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

3.5 RUN TIME
FIRST PASS
SUBSEQUENT PASSES

4.0
THE

30 SECONDS
8:40 MINUTES

OPERATING PROCEDURES
PROGRAM

EXECUTED BY

STARTING AT

THE

APPROP]ATE

ADDRESS.

4.1
IF

'SOFTWARE'
THe

SWITCH REGISTER

PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

OR 11/34)

THE PROGRAM WILL DETERMINE

THAT

THE HARDWARE

([.E.,

SWIT(H

AN 11/04

REGISTER IS NOT PRESENT AND WILL USE A °*SOFTWARE' SWIT(CH
REGISTER.
THE SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED

THROUGH A KEYBOARD ROUTINF WHICH IS CALLED BY TYPING 'CONTROL G'.
PROGRAM WILL RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE
PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN RKO6 INTERRUPT,
THE

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER

el ed

'SOFTWARE®

—

B e

b cmd md

D v

e conlh -V

C and ceh

el e

oD i

d o

D b

£ NN N AN
NAHLG W2 ITOPOR PO NOPUNING ) = — =2 —2 s
- OO0
OOV
NN
AW
= O VO YOWVNEWN
OOV
NS WSOV
N

106

LOCATION 200

SWR = NNNNNN

THE

PROMPT

EACH TIME
REGISTER

'RUBOUT'

FROM

THE

SWITCH ENTRY

ROUTINE:

NEW ='

SWITCH SETTINGS ARE ENTERED,

IMAGE

AND

[N RESPONSE

MUST BE

'CONTROL

ENTERED.

THE ENTIRE

SWITCH

LEADING ZEROES ARE

FUNCTIONS “MAY BE USED

NOT

REQUIRED.

TO (ORRECT

TYPING

THE

TIR6CED RK611 DSKLS CTRL PRT3
CIRGCE PN
27-AUG=81 10:24

MACY11

30(1046)

28-AuG-81

10:35

PAGE 5

SES 0004

;22

ERRORS DURING SWITCH ENTRY,

147

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

146

IN THE

148

B
LA =
o
) e
ek
b

e TV, 1V, IV, 1V, 19, XV, 1V, IV, IV |
OO0 NV BN -

159

'UP'

USED.

POSITION,

ALL

'SOFTWARE'

SWIT(H

SWITCH REGISTER REFERENCES WILL BE

TO THE

THE

FOLLOWED.

4.2

CONTROL

(*C)

OPERATION

IS TYPED AT ANY TIME DURING THE PROGRAM EXECUTION THE

PROGRAM IS HALTED IMMEDIATELY. IF A MONITOR IS PRESENT (XXDP CHAIN,
ACT, APT) THE PROGRAM RETURNS CONTROL TO THE MONITOR. IF NO MONITOR

IS PRESENT,

THE

CPU IS HALTED.

A PROGRAM RESTART.

163
}g?

IF *S IS TYPED AT ANY TIME THE PROGRAM WILL
UNTIL A CONTROL Q@ (*Q) IS TYPED.

;29

4.4

168

};g

5.0 PROGRAM DESCRIPTION

O V00 ~NO N B\

d =D e
d
ad
e
e

00 NN NNNNNN

CONTROL

(*S)

DEPRESSING THE

4.3

(*Q)

A “S HAS BEEN TYPED,

INITIATED

THE

“S,

INTO A STALL LOOP

OPERATION

TYPING THE

“Q CANCELS

*+«DRIVE MESSAGES FOR CLASS B
TEST

READ HEADER

THE

SEEK MESSAGE

(LEAR THE RK611

MESSAGE

TEST 2

SET.

STALL

INSTRUCTIONS

PUT THE RK611
A READ HEADER
HEAD 0, DRIVE
VERIFY THAT A

182

184

CONTINUE KEY WILL DO

OPERATION

181

185

16 SWITCHES

'SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST BE

12;

169

THE

PROGRAM FINDS ALL

CONTROLLER WITH A (ONTROLLER CLEAR.

CONTROLLER IN DIAGNOSTIC MODE.
[SSUE
TO AN RKO6 IN 26 SECTOR FORMAT, CYLTINDER 9
0. CLOCK IN SEEK MESSAGE INTO SHIFT REGIST
SEEK IS LOADED WITH THE PROPER BITS IN
REPEAT

IN 24

SECTOR FORMAT,

WRITE

HEADER

FOR A READ HEADER WITH (DT

CYLINDER

1777.

HEAD 7.

SET

DKIVE

SEEK MESSAGE

187
188

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER

196
191
192

CLOCK IN SEEK MESSAGE INTO SHIFT REGISTER.
VERIFY
THAT A SEEK IS LOADED WITH THE RTC BIT SE7.
REPEAT
FOR A WRITE HEADER WITH CDT SET IN 24 SECTOR FORMAT,

189

IN 26 SECTOR FORMAT.

93
195

198
199

200

CYLINDER O, HEAD O, DRIVE 0.

CYLINDER 1777. HEAD 7. DRIVE
TEST

READ

HEADER

DRIVE

CONTROLLER
TO AN RKO6

CLEAR MESSAGE

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER wiir (DT SE:

IN 24 SECTOR FORMAT,

CYLINDER 1777, HEAD 7, CRIVE 7.

"IR6CED RK611 DSKLS CTRL PRT3
JIRECE.PTT
27-AUG=81 10:2%

MACY11

30(1046)

28-AUG=81

10:35

201

204

PAGE 6

58%
%82

Fo1

TEST

SEQ 0005

CLOCK SEEK MESSAGE AND MAKE SURE A DRIVE CLEAR IS

GENERATED AND THE PROPER BITS ARE SET.
4

207
208
209
210
311
g;g

WRITE

HEADER DRIVE

CLEAR MESSAGE

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE.
.SSUE A WRITE HEADER WITH CDT SET
IN 24 SECTOR FORMAT, CYLINDER 1777, HEAD 7. DRIVE 7.
CLOCK SEEK MESSAGE AND LOAD GENERATED DRIVE CLEAR
INTO SHIFT REGISTER.
MAKE SURE THE DRIVE CLEAR IS
GENERATED AND THE PROPER BITS ARE SET.

214

515

%19

++INDEX AND SECTOR PULSE DETECT ON

S;g

TEST 5

SECTOR PULSE DETECT

IN READ HEADER

(PART

220
221
222
223
sgg

CLEAR RK611 WITH A CONTRGLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
1ISSUE A READ HEADER TO AN RKO6
IN 26 SECTOR MODE. CYLINDER O, HEAD O, DRIVE 0.
CLOCK BOTH SEEK ANY DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 ZEROES AND A ONE.

Sgg

MAKE

228

%%%

TEST 6

SURE READ GATE DOES SET.

SECTOR PULSE DETECT

IN READ HEADER

(PART 2)

331
232
233
234

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RKO6
IN 26 SECTOR MODE. CYLINDER O, HEAD O, DRIVE O.
CLOCK BOTH SEEK ANY DRIVE CLEAR MESSAGES.

Sgg

MAKE SURE READ GATE DOES NOT SET.

SIMULATE INDEX PULSE, 255 ZEROES AND A ONE.

5%2

339
54?

TEST

SECTOR PULSE

DETECT

IN READ HEADER

(PART

242
543
544
245
529

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROL!ER
DIAGNOSTIC MODE.
1ISSUE A READ HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CHECK MESSAGES.
SIMULATE 255 ZEROES AND A ONE.

MAKE SURE READ GATE DOES NOT SET.

550

525

253
254
255
25¢

TEST

INDEX PULSE

DETECTION

IN WRITE

HEADER

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PULI
THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER
TO AN RK06, IN 26 SECTOR FORMAT, TO CYLINDER O, HEAD O,
DRIVE O, WITH A ONE WORD TRANSFER.
(LOCK THROUGH THE

CIR6CED Rx611 DSKLS CTRL PRT3
ZIRECE.PI
27-AUG~81 10:2¢4
257
258
259

MACY11 30(1046)

28-AUG-81

10:35

PAGE 7

SEEK AND THE DRIVE CLEAR MESSAGES.
ISSUE 200 CONTROLLER
CLOCKS AND MAKE SUKE WRITE GATE DOES NOT SET.
SIMULATE
SECTOR PULSE AND 200 CONTROLLER CLOCKS MAKING SURE WRITE

)

260
261
262

263
264

%22
%2;

SEC 0006

GATE DOES NOT SET.
WRITE GATE SETS.

SIMULATE

INDEX PULSE AND MAKE

SURE

**NPR READING OF MEMORY
TEST

NPR OUTPUT

DATA TRANSFER

269
270

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
[ISSUE A WRITE HEADER TO AN RKO6

272
273
274
275

SPECIFY A ONE WORD DATA TRANSFER.
(LOCK BOTH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE INDEX PULSE.
CLOCK IN FIRST WORD OF NPR TRANSFER.
(HECK INPUT READY,
QUTPUT READY, BUS
ADDRESS, WORD COUNT, AND CONTENTS C*

271

IN 26 SECTOR FORMAT,

5;9

278

5;8

281
28¢
283
284
285
286
287
288
289
290
291
%g%

THE SILO.

TEST

CYLINDER 777,

HEAD 7,

12 PARTIAL SILO FILLING

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MOCE.
ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE O.
SPECIFY A ONE WORD DATA TRANSFER.
C(l1OCK IN ALL
SPECIFIED WORDS INTO THE SILO.
CHECK WORD COUNT,
BUS ADDRESS, INPUT READY, AND OQUTPUT READY.
MAKE
SURE NO MORE THAN SPECIFIED DATA LENGTH IS CLOCKED
INTO THE SILO.
CHECK THE SILO FOR CORRECT DATA.
REPEAT FOR WORD COUNTS 2-65.
TEST

13 SILO FILLING WITH NPR TRANSFERS
CLEAR RK611

%gg

ADDRESS, WORD COUNT, AND CONTcNTS OF

295
296
297
298
301

REPEAT FOR 8 DIFFERENT DATA PATTERNS.

274

%%%

DRIVE

WITH A CONTROLLER CLEAR.

PUT (ONTROLLER

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.
SPECIFY A 66 WORD DATA TRANSFER, CLOCK IN ALL 66 WORDS
INTO THE SILO.
CHECK INPUT READY, OUTPUT READY, BUS

TEST

THE SILO.

14 SILO CAPICITY WITH NPR TRANSFERS

304

CLEAR RK611 WITH A CONTROLLER CLEAR.

306
307
308
209
310

IN 26 SECTOR FORMAT, CYLINDER 0. HEAD O, DRIVE 0.
SPECIFY A 68 WORD DATA TRANSFER.
CLOCK IN 66
WORDS INTO THE SILO.
MAKE SURE THAT SILO WILL STOP
FILLING AT 66 WORDS.
TAKE ONE WORD FROM SILO AND
CHECK IT.
CLOCK IN NEXT WORD.
MAKE SURE NO MORE

217

WORD FROM SILO AND CHECK

305

311

IN DIAGNOSTIC MODE.

THAN

ONE

WORD

PUT CONTROLLER

ISSUE A WRITE HEADER TO AN RKO6

CLOCKED

[T,

THE

SILO.

(CLOCK

TAKE

ONE

IN NEXT WIRD.

"IR6TED RKETT OSKLS CTRL PRTS
“IRe(E P
27=AUG=81 10:24

MACY11

30(1046)

28-AUG-81

'0:35

PAGE 8

SEQ 0007

313

CLOCK IN NEXT WORD.

317
218

MAKE SURE NO WORDS ARE (LOCK INTO SILO.

34
;:2

%gg

321
322

SILO AND MAKE

OOy N
W

WNNUNAN LN
NN U AN LN N

343

.,%:g

346
347
48
349
350

251

gg%

254

355

356
357

%gg
360
361
362

SURE AL!

THE WORDS ARE

UNLOAD THE

CORRECT.

TEST 15 BUS ADDRESS INHIBIT

325
326
327
328
329
320
%%;

34
gz;

MAKE SURE NO MORE THAN ONE WORD IS

CLOCKED IN THE SILG.
TAKE ONE WORD FROM SILO AND
CHECK IT. ATTEMPT TO CLOCK IN NEXT WORD AND

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN
RKO6 IN 26 SECTOR FORMAT, CYLINDER 0O, HEAD 0O, DRIVE 0.
SPECIFY A 66 WORD DATA TRANSFER WITH BUS ADDRESS
INHIBIT INCREMENT.
(HECK WORD COUNT, BUS ADDRESS,
INPUT READY, OUTPUT READY, AND MAKE SURE ALL THE
WORDS IN THE SILO ARE THE CORRECT SAME WORD.
TEST

16 NON-EXISTENT MEMORY

CLEAR RKOH11

WITH A CONTROLLER CLEAR,

IN DIAGNOSTIC MODE.

ISSUE A WRITE

PUT (ONTROLLER

HEADER

TO AN RKO06

IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.

SPECIFY A ONE WORD DATA TO A NON-EXISTENT ADDRESS

(760000) AND MAKE SURE THE NON-EXISTENT
OCCURS IN THE RK611 (ONTROLLER.

MEMORY ERRCR

TEST 17 BuS ADDRESS BIT 16
CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLFR
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO
AN RKO6
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD O, DRIVE 0.
SPECIFY A ONE WORD DATA TRANSFER FROM 200000.
READ THE SILO AND MAKE SURE RIGHT CONTENTS ARE READ.

REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 177776.

CHECK BUS ADDRESS AND WORD COUNT.

NOTE:

THIS TEST IS ONLY EXECUTED IF MORE

OF MEMORY

TEST 20 BUS ADDRESS BIT

IS ON THE

SYSTEM,

"HAN 32¢

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEADER 0, DRIVE 0.

363
364
365
ggg

SPECIFY A ONE WORD DATA TRANSFER FROM 400000.
READ THE SILO AND MAKE SURE RIGHT CONTENTS ARE READ.
REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 377776,
CHECK BUS ADDRESS AND WORD COUNT.

3e8

NOTE:

THIS TEST

IS ONLY EXECUTED

THAN 64K

§ x

LS CTRL PRT3

AUG=81

10:24

MACY1T1

30(1046)

28-AUG-81

10:35

1
I
PAGE 9

SEa 0008
OF MEMORY IS ON THE

TEST 21

SYSTEM.

ADDRESSING GREATER THAN 96K

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
[SSUE A WRITE HEADER TO AN RK0O6
IN 26 SECTOR FORMAT, CYLINDER O, HEADER 0, DRIiVE 0.
SPECIFY A ONE WORD DATA TRANSFER FROM 600000.

READ THE SILO AND MAKE SURE RIGHT CONTENTS ARE READ.
REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 577776.

CHECK BUS ADDRESS AND WORD COUNT.

NOTE:

THIS TEST
OF MEMORY

TEST 22 SILO FILL

IS ONLY EXECUTED [F
IS ON THE SYSTEM,

THAN 96K

IN 18 BIT MODE

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 264 SECTOR FORMAT, CYLINDER O, HEAD 0. DRIVE 0,
SPECIFY 66
WORD DATA TRANSFER.
(LOCK
ALL 66 WORD INTO THE SILO.
CHECK THAT ALL €6
WORDS ARE

*+*MFM READ

LOOPBACK

CORRECT

(16 LEAST

SIGNIFICANT

BITS).

TESTS

TEST 23 READ LOOPBACK

(PART

CLEAR RK611 WITH A CONTROLLER CLEAR, PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN Rk06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 ZEROES, A

ONE,

AND A HEADER CONSISTING OF

FOLLOWING WORDS:

THE

THREE

177777

000060
177777
“AKE

SURE

THAT

TRANSFERRED.

TEST 24 READ LOOPBACK

424

READY

COMES UP AFTER

C(HECK THE

THE

THIRD WORD

SILO FOR CORRECT CONTENTS.

(PART 2)

CLEAR RK611 WITH A (ONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RkOQ€

IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.

TIRGCED RK611 DSKLS CTRL PRT3
"IRECE..P1
27=-AUG=81 10:24

MACY11 30(71046)

28-AuUG-81

10:35

PAGE 10

425
426
&27

SEQ 0009

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PU_SE, 255 ZEROES, A ONE,
AND A HEADER CONSISTING OF THE THREE

“28

FOLLOWING WORDS:

429
430
43

000000
177777
000000

2§§
434

MAKE

2%2

SURE

THAT READY

IS TRANSFERRED.

(OMES UP AFTER

(HECK

THIRD WORD

THE SILO FOR CORRECT (CONTENTS.

437
438

439
44?

TEST 25 READ LOOPBACK

(PART 3)

442
463

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MOVE.
ISSUE A READ HEADER TO AN RKk06

445

CLOCK BOTH SEEK AND DRIVE

IANA

LGk
L7
248

IN 26 SECTOR FORMAT,

CYLINDER 0O, HEAD 0, DRIVE 0.
CLEAR MESSAGES

SIMULATE SECTOR PULSE, 255 ZEROES, A ONE, AND A HEADER (CONSISTING OF THE THREE
FOLLOWING WORDS:

450
451
22%

125252
052525
125252

454

MAKE

457
228

TEST 26 READ LOOPBACK

222

SURE

THAT READY

IS TRANSFERRED.

COMES UP AFTER

CHECK THE

THE

THIRD WORD

SILO FOR CORRECT CONTENTS.

(PART &)

460

CLEAR RK611

462
463
L6464
465

IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 225 ZEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE

461

466

467
468
469

2;9

472
2;2

475

2;9
478
479
48(

WITH A CONTROLLER CLFAR.

IN DIAGNOSTIC MODE.

ISSUE

PUT CONTROLLER

A READ HEADER

TO AN RKO06

FOLLOWING WORDS:

044444
022222

IRRRRR

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
1S TRANSFERRED.
C(HECK THE SILO FOR COKRECT CONTENTS.

TEST 27 READ LOOPBACK

(PART 5)

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT (ONTROL._ER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RKk0¢
26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE C.

TIRGCED RK611 DSKLS CTRL PRT3

TIR6LE P11

27=-AUG=81

10:24

MACY11 30(1046)

28-AUG-81

10:35

PAGE

481
(82
(83
(B4
485

SEQ 0010

CLOCK BOTH SEEK AND DRIVE
ONE,

AND A HEADER CONSISTING OF

FOLLOWING WORDS.

THE

THREE

052012
100520
052012

486

LB7

(B8
489
490
491
492
493
494

CLEAR MESSAGES.

SIMULATE SECTOR PULSE, 255 ZEROES, A

MAKE

SURE

THAT READY

TRANSRERRED.

TEST 30 READ HEADER
CLEAR RK611

COMES UP AFTER

CHECK THE

THE

THIRD WORD

SILO FOR CORRECT CONTENTS.

18 BIT MODE

WITH A CONTROLLER CLEAR.

IN 264 SECTOR FORMAT,

PUT CONTROLLER

CYLINDER O, HEAD 0, DRIVE 0.

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 ZEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE
FOLLOWING WORDS:

S77777
000000
177777
MAKE

o —
8
O
O 000
NN

L
(A I L

L MV I T

PONUNUPURNONY
~2 =t = = o =b 2 —

[V TV SV TV AV, RV RV, AV,

TEST

SURE

THAT

TRANSFERRED.

SYNCH DETECT

READY

COMES UP AFTER

THE

THIRD WORD

C(HECK THE SILO FOR CORRECT CONTENTS.

IN READ HEADER

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE AND 350 ZEROES.
MAKE

ggg;vREADY REMAINS RESET AND

THE

SILO REMAINS

TEST 32 ZERO SYNCH ON READ

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE

CLEAR MESSAGES,

SIMULATE SECTOR PULSE, 255 ZEROES SHIFTED BY A HALF
BIT TIME, A ONE, AND A HEADER CONSISTING OF THE
THREE

FOLLOWING WORDS:

177777

000000

177777

MAKE

SURE

THAT

READY

(OMES AFTER

THE

THIRD WCRD

ZIR6CED RK611 DSKLS CTRL PRT3
TIREIE P
27-AUG~81 10:24

MACY11

30(1046)

28-AUG-81

10:35

537
538
539

540

541
542
543
544
545
546
547
548
540

550
551
552
553
554
555

556

557
558
559
560
561
56¢
563
564
565

566

567

568
569
570

571

572
573%
574

575

576
577
578

1
L
PAGE 12

SEQ 0011

IS TRANSFERRED.

**MFM WRITE

LOOPBACK

C(HECK THE SILO FOR CORRECT CONTENTS.

TESTS

TEST 33 WRITE ZEROS UNTIL

SECTOR PULSE WITH WRITE HEADER

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTHY SEEK AND DRIVE CLEAR MESSAGES. SIMULATE

INDEX PULSE AND 500 DATA BITS.

ZEROES ARE WRITTEN.

WRITE

GATE

RESETS.

TEST 34 WRITE LOOPBACK

(PART

MAKE SURE THAT

SIMULATE SECTOR PULSE AND MAKE

SURE

CLEAR THE RK611 WITH A CONTROLLER (LEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF

THE

FOLLOWING DATA,

AND AN

INDEX PULSE:

177777
000000
177777
MAKE SURE
CHECK FOR

THAT READY COMES UP AFTER THE SECOND INDEX PUL
CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

TEST 35 WRITE LOOPBACK
CLEAR THE RK611

(PART 2)

WITH A CONTROLLER CLEAR.

IN DIAGNOSTIC MODE.

PUT CONTROLLER

ISSUE A WRITE HEADER TO AN RK06

IN 26 SECTOR FORMAT, CYLINDER 0, HEAD O, DRIVE O.

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:

000000

177777

000000
MAKE

SURE

THAT READY

TRANSFERRED.

COMES UP AFTER

AND PRECOMPENSAT]ON.

TEST 36 WRITE LOOPBACK

THE

THIRD WORD

C(HECK FOR MORRECT WRITE ENCODED DATA

(PART

CIR6CED RKO1T DSKLS CTRL PRT3
“IR6TE.P1T
27-AUG=B1 10:24

MACY11 30(1046)

28-AUG-81

10:35

PAGE 13

593

595
596
567
ggg

600
601

125252
052525

602

125252

60¢
682

MAKE SURE THAT READY (OMES UP AFTER THE SECOND INDEX PUL
CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

688

SEQ 0012

C.EAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
STIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:

594

607

)

TEST 37 WRITE LOOPBACK (PART 4)

610
611
612
613

C(LEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE

g}g

CONSISTING OF

614

INDEX PULSE,

67
618
6'9

620

TEST 40 WRITE 1 D0PBACK

AND AND

INDEX PULSE:

(PART 5)

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER 10 AN RKO6
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:

634
635
636

052012
100520
05202

638

MAKE SURE

THAT READY (OMES UP AFTER THE SECOND INDEX PUL
CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

228

THREE WORD HEADER

FOLLOWING DATA,

MAKE SURE THAT READY (COMES UP AFTER THE SECOND INDEX MGD
CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

627
628
629
630
631
2%%

641
642
@22

THE

044444
022222
IRRRRN

621
gg%
624
2%2

SECTOR PULSE, ONE

TEST 41

WRITE LOOPBACK

(PART 6)

645

CLEAR THE RK611 WITH A (ONTROLLER CLEAR.

64?7
648

IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.
CLCCK BOTH SEEK AND CRIVE CLEAR MESSAGES.
SIMULATE

64¢

IN DIAGNOSTIC MODE.

PUT C(ONTROLLER

ISSUE A WRITE HEADER 10 AN Rk(0é6

TIR6CED Rk611 DSKLS CTRL PRT3

TIRGLE P

27-AUG-81 10:2¢4

MACY11

30(1046)

28-AUG-81

10:35

1
N
PAGt

SEQ 0013

INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:

MAKE SURE READY (OMES UP AFTER SECOND INDEX PULSE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

TEST 42 WRITE LOOPBACK

(PART 7)

PUT CONTROLLER
CLEAR THE RK611 WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE O.
(LOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONF THREE WNRD HEADER
CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:
104210
104210
104210

MAKE SURE READY COMES UP AFTER SECOND

INDEX PULSE.

CHECK FOR (ORRECT WRITE ENCODED DATA AND PRECOMPENSATION

TEST 43 WRITE

TWO HEADERS

PUT CONTROLLER
CLEAR RK611 WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN Rk06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE O.
(LOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATF
INDEX PULSE, SECTOR PULSE, THREE WORD HEADER
CONSISTING OF

THE FOLLOWING DATA:

177777
000000
177777
FOLLOW THAT BY A SECTOR PULSE AND ONE “HREE WORD
HEADER CONSISTING OF THE FOLLOWING DATA:

000000

177777

000000

SIMULATE AN INDEX PULSE AND MAKE SURE READY (OMES UP.
(HECK FOR CORRECT WRITE ENCODED DATA AND PRECOMENSATION.
TEST 44 DATA FIELD FILLING ON WwRITE HtACER

CZRO6CED RKE11 DSKLS CTRL PRT3
-AUG=-81

R
e
700
709
708
;83
13
4
AL
e
ol
P18
77
o
4k
7

;55

10:24

MACY11 30(1046)

28-AUG-81

10:35

PAGE 15

SEQ 0014

CLEAR
THE RK611 WITH A CONTROLLER CLEAR. PUT CONTSgLLER
IN DIAGNOSTIC MCDE. ISSUE A WRITE HEADER TO ANORKAND

IN 26 SECTOR_FORMAT, CYLINDER 0, HEAD 0, DRIVE 0,
SPECIFY TWO 3 WORD HEADERS CONSISTING OF THE
FOLLOWING DATA:
125252
052525
125252
052525
125252
052525
MAKE SURE THE DATA SYNCH ANY OTHER BITS OF DA TA AND
ECC #J..D ARE WRITTEN CORRECTLY.

TEST 45 WRITE HEADER FOR 26 SECTORS
HE

758

RK611

N 26 SECTOR FO

WITH A CONTROLLER CLEAR.

PUT

CONTROLLE R

755

éb WORDS. MAKE SURE ALL 26 SECTORS ARE WRITTEN CORRECT.

;gg
73
722
%
73
T3
735
738
736

TEST 46 WRITE HEADER IN 24 SECTOR FORMAT
THE RK611 CONTROLLER WITH A CONTROLLER CLEAR. PUT
?hEA?ONTSOLLER IN DIAGNOSTIC MODE. ISSUE A WRITE HEGDSR
OF SIX WORDS IN 24 SECTOR FORMAT TO AN RKO6, CYLINDE Q0
HEAD O, DRIVE 0. CLOCK THROUGH THE SEEK AND DRIVEAS%E
MESSAGES, SIMULATE INDEX PULSE, SECTOR PULSE, 3 HEDER
WORDS,
SYNCHAN AND
DATA,
ANOTHER
SECTOR
PULSE,
3 HETO MARE
WORDS,
AND
INDEX
PULSE.
C(HECK
DATA
WRITTEN
SURE ONLY LOW 16 BITS OF SILO ARE USED.

i
;2§
;2é
eJ

«*«TYPE B INSTRUCTION ERRORS
TEST 47 FORMAT ERROR (PART 1)
R THE RK06 SUBSYSTEM WITH A SUBSYSTEM (CLEAR. PU T TH

739

2
720
751

;gg

725
£
;%g

760

CLOCK IN MAINTENANCE MODE"UNTIL PHASE ADDRESS 6. TURN ¢
MAINTENANCE MODE. MAKE SURE FORMAT ERR?R,
6 S

DRIVE

’

AVAILABLE AND (ONTROLLER ERROR SET.

TEST S0 FORMAT ERROR (PART 2)

AR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
! HEADERPUT! "0 THA
EbfiTROLLER
IN
DIAGNOSTI{
MODE.
ISSUE
A
READ
RKO&, IN 24 SECTOR FORMAT, CYLINDER 3, HEAD C, DRIVE C.

CZRO6CED RK617 DSKLS CTRL PRT3
FIR6CE.P11
27-AUG=81 10:24

MACY1T 30(1046)

28-AUG-81

10:35

PAGE 16

761

CLOCK

762
763
765

769
770
771
772
;;;

ADDRESS 6.

TURN O

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT TH

6.0 ERROR REPORTING
THE

780
781
782
783
784

OPERATION DESCRIPTION AND ERROR DESCRIPTION
TEST
ERROR
NUM
PC
XXXXXX
YYYYYY
EXPECT
ACTUAL
OTHER PERTENAN

;gg

788

789

GENERAL

REG

1227277

NOTE:

FORMAT QOF

REG

AAAAAA

THAN ONE

PRINTED OUT.

OF MORE

1IS:

INFORMAT
10N

WWwWWWW
MORE

ERROR REPORTS

SET OF

EXPECT/ACTUAL

OTHER PERTENANT

THAN ONE WORD.

REGISTERS MAY BE

INFORMATION MAY

CONSIST

792
793
794
;gg

OTHER PFRTINENT INFORMATION MAY CONTAIN A WORD LABELED
“BIT COUNT'. THIS COUNT IS REPORTED WHEN THE OPERATION BEING
PERFORMED INVOLVES CLOCKING THE CONTROLLER THROUGH ONE OR MORE
OF THE VARIOUS FIELDS THAT MAKE UP THE PHYSICAL SECTOR FORMAT.

797

THESE

799

800
801
802
803
804
805
806
807
808
809
810
611

PHASE

CONTROLLER IN DIAGNOSTIC MODE.
I1SSUE A WRITE HEADER TO
AN RKO6. IN 26 SECTOR FORMAT. CYLINDER 3. HEAD 0, DRIVE
0.
CLOCK IN MATNTENANCE MODE UNTIL PHASE ADDRESS 6.
TURN OFF MAINTENANCE MODE.
MAKE SURE DRIVE
AVAILAB_E AND CONTROLLER ERROR SET.

;;g

785

UNTIL

TEST 51 FAULT SETTING CONTROLLER ERROR

768

;;9

IN MAINTENANCE MODE

MAINTENANCE MODE.
MAKE SURE FORMAT ERROR.
DRIVE AVAILABLE AND CONTROLLER ERROR SET.

766

775

SEQ 0015

FIELDS

(ALL

VALUES GIVEN

FIELD

HEADER PREAMBLE
HEADER
GAP
DATA PREAMBLE
DATA
(22(10) SECTOR/TRACK)
(20(10) SECTOR/TRACK)
Ece
POSTAMBLE
GAP
(22(10) SECTOR/TRACK)
(30(10) SECTOR/TRACK)

IN OCTAL)

ARE:
BITS

400
60
100
400

10000
11000
40
20
160

140

WORDS

20
3
L
20

400
400
2
1
7

81%

REFER TO THE RKO6 UNIBUS DISK SUBSYSTEM SPECIFICATION FOR MORE

816

THE *BIT COUNT'* REPORTED 1S INITIALIZED AT THE START OF EAH FIELD

DETAILED DESCRIPTION.

C(ZR6CEQ RK611 DSKLS CTRL PRT3
CIR6CE.P1N
27=-AUG~81 10:24

MACY11 30(1046)

10:35

PAGE 17

AND

819

WHEN THE OPERATION BEING PERFORMED INVOLVES WRITING, OTHER PERTINENT

ggg

AND PRECOMPENSATION DELAY

826
827
828
829

INCREMENTED
FOR EACH BIT PROCESSED.

SEQ 0016

g}g

820
821
822
823

28-AUG-81

INFORMATION
PRESENT BIT
WAY TO SHOW
RK611 LOOKS

MAY CONTAIN WORDS LABELED PRESENT BIT, PRESENT BIT -1,
=2, AND PRESENT BIT +1. THESE BITS ARE PRESENTED IN THIS
THE WRITE DATA STREAM IN THE SAME MANNER THAT THE
AT THE DATA STREAM TO COMPUTE PRECOMPENSATION ADVANCE
IN THE WRITE OPERATION,

WHEN THE OPERATION BEING PERFORMED INVOLVES READING, OTHER PERTINENT
INFORMATION MAY (ONTAIN PREVIOUS BIT AND PRESENT BIT WORDS. THESE
BITS RELATE TO RK611 LOGIC THAT LETERMINES WHEN THE BIT IS VA'ID
FROM THEZDECODER.

DSKLS CTRL PRT3

27-AUG=81 10:24

MACY11

30(1046)
;

167400

000001

«xx

NLIST
LLIST
.ENABL

28-AUG-87

REV

003

10:35

PAGE

SEQ €017

«x»

CND,MD
, M(C
ME
ABS,AMA

$SWR=
167400
1
$TN=
LTITLE
CZR6CEO RK611 DSKLS CTRL PRT3
;*COPYRIGHT (C) 1976,1981

EQUIPMENT CCRP.

;*DIGITAL

;*MAYNARD, MASS.

01754

- R

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC
-PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977,

SBTTL

OPERATIONAL

SYSMA(

SWITCH SETTINGS

000011
000012
000015
000200
177776

177774
177772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006

USE

o
e
b ek
b

O O—=M)wWHWN

¥
B

IEY

¢
B
B
%

YRR

SBTTL
001100

SWITCH

»
»

. %

(ZR6CED RK611
TIRECE.PI

HALT

LOOP ON TEST
BASIC DEFINITIONS

;*INITIAL ADDRESS OF
STACK=
1100
LEQUIV
.EQUIV

EMT,ERROR
10T.SCOPE

THE

;:BASIC DEFINITION OF
1:BASIC DEFINITION OF

:PROCESSOR STATUS WORD

PS,PSW

PIRQ=

177772

STKLM(= 177774

177570
177570

; “GENERAL

R1=

140)

PURPOSE

FOR HORIZONTAL

::STACK LIMIT REGISTER

1 'PROGRAM

INTERRUPT REQUEST REGISTER

: *HARDWARE SWITCH REG!STER
. *HARDWARE DISPLAY REGISTER

:;GENERAL REGISTER

;s GENERAL

R3=

;. GENERAL REGISTER

RS=
R6=

z5
4

;. GENERAL REGISTER
;;GENERAL REGISTER

SP-

::STACK POINTER

Ré4=

R7=

¥4

TAB

*:CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN=-LINE FEED

R2=

ERROR CALL
SCOPE CALL

177776

.EQUIV

RO=

1100 wx«

;:CODE

12
15
200

DSWR=
DDISP=

=#+

LF=
CR=
CRLF=

pS=

IN SWR<7:0>

STACK POINTER

;*M]SCELLANEOUS DEF INITIONS

HT=

ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
ABORT PROGRAM AFTER 20 ERRORS
INHIBIT JTERATIONS
BELL ON ERROR
LOOP ON ERROR

;;GENERAL REGISTER

; GENERAL REGISTER

;;GENERAL REGISTER

30(1046)
28-AUG-81
BASIC DEFINITIONS

OOV

s SWITC H
Sw15=
0

;;PRIORITY LEVEL

s .PRIORITY LEVEL
J:PRIORITY LEVEL
;sPRIORITY LEVEL
;;PRIORITY LEVEL

STER'' SWITCH DEFINITIONS

40
20
10000
4000

Swlé=
Swi3=
Swi2=
Swll=
swi0=

2000

SW09-

1000

Sw09,Sw%
Sw08,Sw8
Sw07,Sw/
SW06,SW6
SW05,Sw5
SW04,Swé
Sw03,Sw3
Sw0Z2,Sw?2
SW01,SwW!
Sw00,Sw0

TR TR
TR TR
I
[

BIT DEFINITIONS
100000
40000
POES 2PV BN 2NN
PO
= no
OO0 OOOOOO QOO
QOOOOOVO o
OOVOO
oO

TR T

A
e B
R

e Ll
Y
e

R
R
B

R
Y
K
L
L
e L

e e
e

T
-

LEQUIV
.[QUIV
LEQUIV
LEQUIV
LEQUIV
LEQUIV
EQUIV
LEQUIV
LEQUIV
.EQUIV
OOOOOOOOO
== — a2 >

400

SW08=
SW07=
Sw06=
SW05=

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

::PRIORITY LEVEL

JsPRIORITY LEVEL
s sPRIORITY LEVEL

£, THEOHOO
OOOCODO

PR/7=

OO
@ a@o oo oo

100000

P
%

000001

PR3=

PR4=
PRS=
PR6=

000040
000020
000010
000004
000002

4
1

PR1=
PR2=

040000
020000
010000
004000
002000
001000
000400
000200
000100

SEQ 0018

:;PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

100000

PAGE 19

(BITOO TO BIT1S,

000000
000040
000100
000140
000200
000240
000300
000340

PRO=

10:35

NO WS WA

PC=

000007

MACY11

oyl

CZRO6CED RKk611 DSKLS CTRL PRT3
CZR6CE.PIT
27-AUG=-81 10:24

CZIR6CEQ RK611 DSKLS CTRL PRT3
27=-AUG=81 10:2¢4

TIR6(E.PIT

943
944
945

00000?

946

947

948
949
950

951
952
953
954
955
956
957

958
959
960
961
962
963
964
965
566
G907
968
969
970
971
972
973
974
975
976
977
978
G79
930

981
982
983
984
G35
986

987
988
989
990
961
99?2
9973
994
995

996

967
998

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

MACY1T

30(1046)
28-AUG-81
BASIC DEFINITIONS

BIT00=

000250

PAGE 20

SEQ 0019

"'CPU'" TRAP VECTOR ADDRESSES
;. TIME

QUT

AND

OTHER ERRORS

::R§§ESY$D AND ILLEGAL INSTRUCTIONS

14
14
14

;: TRACE

TRAP

: :BREAKPOINT TRAP (BPT)
;o INPUT/0UTPUT TRAP (JOT)

20
24
30
TRAPVE(C= 34
TKVEC=
60

;;POWER FAIL

;:EMULATOR TRAP (EMT)

::"'TRAP'' TRAP

:2TTY KEYBOARD

w=SCOPE«»

««xERROR%»

VECTOR

;:;TTY PRINTER VECTOR
64
PIRQVE(C= 240
; ;PROGRAM INTERRUPT REQUEST
SBTTL
MEMQORY MANAGEMENT DEF INITIONS

TPVEC=

VECTOR ADDRESS

MMVEC-

;*KT11
177572
177574

BIT09,BIT9
BIT08,8]IT8
BI1107,BI177
BIT06.8IT6
BITO5,BITS
BIT04,BIT4
BIT03,BIT3
BI1702,B:iT2
B8IT01,BIT1
817100,BIT0

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUlV
.EQUlV
.tQulv

;*KT11
.

10:35

250

STATUS REGISTER ADDRESSES

SRO-=

177572

SR1=

177574

SR3=

172516

SR?2=

J*KERNEL

KIPDRO=
KIPDRi=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
K'PDR6=
KIPDR7=

177576
"'I'" PAGE

DESCRIPTOR REGISTERS

172300
172302
172304
172306
172310
172312
172314
172316

J*KERNEL ''I'' PAGE ADDRESS REGISTERS
KIPAROKIPART=
KIPAR2=
KIPAR3=
K]PARL=

172340
172342
172344
172346
172350

VECTOR

CZR6CED RKO11 DSKLS CTRL PRT3

ZIR6CE.PI

27=AUG=81 10:24

MACY11 30(1046)

28-AuG-81

10:35

PAGE 21

MEMORY MANAGEMENT DEFINITIONS

999
1000
}88;

172352
172354
172356

KIPARS= 172352
KIPARG= 172354
KIPAR?= 172356

1003
1004
1005
1006
1007
1008
}898

000114
172100
000004
000001
120210
000005
177440

MEMVE(=
MEMBAS=
WR.PAR=
PAR.EN=
AVECT1=
APRIOR=
ABASE=

114
172100
4
1
120210
§
177440

LSBTTL

RK611 CONTROLLEP REGISTER DEFINITION

RKCS1RKWC=
RKBA=
RKDA=
RK(CS2=
RKDS=
RKER=
RKASOF=
RKDCYL=
RKDB=
RKMR1=
RKMR2=
PKMR3=
RKECPS=
RKECPT=
RKSPAR=

0
2
4
6
10
12
14
16
20
24
26
34
36
30
32
272

.SBTTL

DRIVE COMMANDS
01
03
05
(7
11
13

}81;
1013
1014
1015
1016
1017
1018
1019
1029
1021
1022
1023
1024
102
1026
1027
}858

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

}8;?
1032
1033
1034
1535
103¢
1037

000001
000003
000005
000007
000011
000013

SELDRV=
PACK=
(LEAR=
UNLOADSRTISPL=
RECAL=

1041
1042

000023
000025

WRDATA= 23
RDHEAD= 25

1038
1039
1040
1043
1044

%822

000015
000017
000021

000027
000031

000300

182;
1049
1050

1051
1052
1053
054

000001
000100

000200
000400
001000
062000

OFFSET= 15
SEEK=
17
RDDATA= 21

WRHEAD= 27
WRTCHK= 31

;MEMORY PARITY VECTOR
;MEM PARITY OPTION
;WRITE BAD PARITY
:ENABLE PARITY ENABLE
;DEFINE RK611 VECTOR ADDRESS
:DEFINE RK611 PRIORITY
:DEFINE BASE OF RK611 REGISTERS

;CONTROL AND STATUS REGISTER 1
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
;ERROR REGISTER
:ATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:DATA BUFFER
:MAINTENANCE REGISTER 1
MAINTENANCE REGISTER 2
:MAINTENANCE REGISTER 3
SECC POSITION INFORMATION
:ECC PATTERN INFORMATION
:SPARE REGISTER

:SELECT DRIVE
;PACK ACKNOWLEDGE
;DRIVE CLEAR
:UNLOAD
;START SPINDLE
;RECAL IBRATE

:OFFSET
;SEEK
:READ DATA

WRITE DATA
:READ HEADER

WRITE HEADER AND DATA
JWRITE CHECK

:GENERATE INTERRUPT TQ CPU

INTR

300

JSRTTL

(ONTROL AND STATUS REGISTER 1 BITS

60=
[E=

BITO
B176

RDY=
BA16=
BA17=
(DT-

BIT?7
BIT8
B]T9
BIT10

SEC 0020

;G0 BIT
:INTERRUPT ENABLE

:CONTROLLER READY
;BUS ADDRESS BIT 16
;BUS ADDRESS BIT 17
SCONTROLLER DRIVE TYPE

(0=RK06)

CZR6CED Rk6I1 DSKLS CTRL PRT3
TIRECE.PM
27-AUG=81 10:24

[

1055

004000

(o=

BIT"1

1057

010000

(FMT=

BITY?

1056

1058
1059
1060
1061

1062

020000
040000
100000
100000

1822

MACY11 30(1046) 28-AUG-81 10:35 PAGE 22
CONTROL AND STATUS REGIS ER " BITS
.

SEQ €021

;CONTROLLER TIMED OUT WAITING FOR
;

DRIVE RESPONSE

;CONTROLLER DRIVE FORMAT (0=26 SECTOR, 1=24 SECTOR)

SPAR=
Dl=
(ERR=
(CLR=

BIT13
BIT14
BIT15
BITI1S

sDRIVE BUS PARITY ERROR DETECTED BY (ONTROLLER
;DRIVE INTERRUPT
;CONTROLLER ERROR
;CONTROLLER (LEAR

LSBTTL

(ONTROL AND STATUS REGISTER 2 BITS

1065

000007

DRYMSK= 7

;MASK FOR DRIVE SELECTION (ODE

067

000920

BAl=

;BUS ADDRESS INCREMENT [NHIBIT

000100
000200

IR=
OR=

1066

1068

1069
1070
1071
1072
1073

1074

1075
1076
1077

;gzg

000010

000040

RLS=

BIT3

SCLR=

BITS

000400
001000
002000

UFE=
MDS=
PGE=

010000
020000
740000

NED=
UPE=
WCE=

004000

100000

}gg?

NEM=

DLT=

FMTE=
DTYE=
ECH=

1094
1095
1096

;885

SKl=

DRPAR=

000200
000400

BSE=
HVR(=

010000
020000
040000

DTE=
OPl=
UNS=

100000

1?88

(OE=
IDAE=
WLE=

DCK=

BIT1

BIT3

BIT4
BITS
BIT6

BIT7
81718

BIT9
BIT10
BIT1

BIT12
BIT13
8IT14

BIT1S

DRA=

BITO

1105
1106
107
1108

000004
000010

000020
000040
000100
000200

OFST=
ACLO=

BIT?
BIT3

1110

000400

004000

DDT-

BIT8

SPDLSS=
DROT=
Vv=
DRDY=
WRL -

BIT4
BITS
BITé
BIT7
BiT11

INCOMPLETE

;DRIVE DETECTED DRIVE BUS PARITY ERROR

:FORMAT ERROR
:DRIVE TYPE ERROR
JECC HARD
;BAD SECTOR ERROR

;HEADER YR( ERRROR

:CYLINDER ADDRESS OVERFLOW ERROR
JINVALID DISK ADDRESS ERRCR
JWRITE LOCK ERROR

:DRIVE TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
;DRIVE UNSAFE

:DATA CHICK

STATUS REGISTER BIT DEFINITION

000001

1109

JSEEK

.SBTTL

101
1102

11903
1104

:DATA LATE ERROR

JNON-EXECUTABLE DRIVE fUNCTION

006020
000040
000100
001000
002000
004000

NON=-EXISTENT DRIVE
JUNIBUS PARITY ERROR
;WRITE CHECK ERROR

BITZ2

1086
108
1068

1091
1092
1093

BIT15

:NON=EXISTENT MEMORY

JILLEGAL FUNCTION CODE

NXF =

1089
1090

BIT1?
BIT13
BIT14

JUNIT FIELD ERROR
;MULTIPLE DRIVE SELECT
;PROGRAMMING ERROR

BITO

000004

00001C

BIT1

:INPUT READY
;OUTPUT READY

ILF=

1084

1085

BIT8
BITS
BIT'0

;CLEAR CONTROLLER AND ALL DRIVES

ERROR REGISTER BIT DEFINITION

000001

000002

BIT6
BiT7

:DESELECT OR RELEASE DRIVE N BITS 0-2

.SBTTL

1082

1083

BIT4

:DRIVE AVAILABLE (CONTROLLER
;
THIS BIT IS RESET)

;DRIVE OFFSET
JAC LOW

:SPEED LOSS
;DRIVE OFF TRACK
;VOLUME VALID
;DRIVE READY

:DRIVE TYPE (0=Rk(6)
:WRITE

LOCK

SET

[

P11

10:24

3 3 s a3
NN NN AN AN N N PO RO PO NS PO PO PONONOND) — -2 =

WSO 000 NN S

100000

OO0 NN
NS WN
N

PIP=
DS(=

SVAL=

BITi3
BIT14
BIT1S

JPOSITIONING IN PROGRESS
:DRIVE STATUS (HANGE

LSBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

JSTATUS VALID

001000
002000
004000
010000
020000
040000

MERD=
MEWD=
PCA=
PCD=
ECCwW=
WRTGAT=

BIT9
BIT10
BIT1
BIT1?
BIT13
BIT14

JMAINTENANCE ENCODED READ DATA
JMAINTENACNE ENCODED WRITE DATA
;PRECOMPENSATION ADVANCE
;PRECOMPENSATION DELAY
JECC WORD IS BEING READ OR WRITTEN
{WRITE GATE

.SBTTL

TRANSMITTED MESSAGE

000020
000040
000100
000200

S.SEEK=
S.RECL=
S.STSP=
S.RTC=

BIT4
BITS
BIT6
BIT17

. SEEK COMMAND
;RECALIBRATE COMMAND
:START SPINDLE CCMMAND
;JDRIVE RETURN TO CENTERLINE

001000
002000
004000

S.FMT=
S.UNLD=
S.PACK=
.SBTTL

BIT9
BIT10
BITN
TRAP CATCHER

:FORMAT
;UNLOAD
JSET VOLUME VALID

MCLK=

BITS8

<MAINTENANCE CLOCK

RDGATE= BIT15

000400

B B U

SEQ 0022

;FORCE EVEN PARITY ON DRIvE MESSAGE LINES
;DIAGNOSTIC MODE
JMAINTENANCE SECTOR PULSE
JMAINTENANCE INDEX

100000

WL 2OV

DEFINITION

RIT4
BITS
BIT6
BIT?

000400

D DN B BS80S

STATUS REGISTER BIT

J
2
PAGE 23

PAT=
DMD=
MsP=
MIND=

S.CLR=

000000

JREAD GATE

BITS8

;CLEAR ERROR AND DSC

.=0

J*ALL UNUSED LOCATIONS FROM 4 - 776 (ONTAIN A

s=SEQUENCE

COMMAND

(PACK ACKNOWNLEDGE)

‘' +2 HALT"

TO CATCH ILLEGAL TRAPS AND INTERRUPTS

:'LOCAT10N194CONTAINS 0O TO CATCH IMPROFERLY LOADED VECTORS

000174

003662
003652

000214

000137

003642

10:35

000020
000040
000100
000200

000137
8885?2

28-AUG-81

JMESSAGE MASK

002200
000204

WL =20V

30(1046)

MESMSK= 17

000000
000000

MACY11

000017

NN UM A NN

200NN

27-AUG=81

000174
000176

QOO

Db
D
S
D
D
D =D
D
D
b e
b
D
D
D
D
D
D e
A
D
)
D
D
d
D
D
ek
d
D ed
)
D
b md ed md
P
o
D ad
b ed
D ed
ek
o

DSKLS CTRL PRT3
020000
040000

—

oo~

b
b ad
D
D
D
D
D
P
d
b
D
D
D
B
) e
)
D
B
d
D
D et
e d e d ed
) eh e
d
D
D
D e
=D ed
edmd o d e
d~—d o d
8
Y
S
S
R
S
N
S
[P QT G

0 RK 611

DISPREG: .WORD
0
SWREG:
.WORD
0
.SBTTL
STARTING ADDRESS(ES)

JMP
ng14

SBTTL

IMp

ACT11

A#START
RESTRT

PARM

HOOKS

; :SOF TWARE
.SOFTWARE

DISPLAY REGISTER
SWITCH REGISTER

;:JUMP T0O STARTING ADDRESS OF PROGRAM
SJUMP TO RESTART ROUTINF

:JUMP TO OPERATOR ASSIGNED PARMETERS

.'"t"tt!tttt'tl‘fittlltt'.t'Q'ti.tt'.ltttl..ttitt'tt't't"'ttt.'t't

000220

000046

000046
835328

000052

000000

000220
000114

*HOOKS

REQUIRED BY

$SVP(-.
=46
‘E§8A°

TWORD

" =$SVPC
.=MEMVE(

ACT11

:SAVE PC
::1)SET LOC.46 TO ADDRESS CF

::2)SET LOC.52 TO ZERO
T

"RESTORE PC

SENDAD IN .SEGP

CZR6CED RK611 DSKLS CTRL PRT3
CZR6CE.PI
27-AUG-81 10:24
1167

1168
1169

000114

000116

}};?

MA(CY11

30(1046)
28~AUG-81
ACT11 HOOKS

043650

000340
00° 000

K
2
PAGE 24

10:35

SEQ 0023

MEMERR
PR7
.=1000

.SBTTL

APT PARAMETER BLOCK

1172

1173

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1174

1175
1176
1177
1178
1179
1180

; AR AR R AR

000024
000044

1181

1182
1183
1184
1185
1186
1187
1188
1189
1190
11391

R AR

R R AR AR
R R

R R F RN RN

A AR

R AR

R RN R AN

AR AR KRN R AR

R ANN

RN RN AR

L8X=.
.=24
200

001000
001000

SAPTHDR ;cPOINT TO APT HEADER BLOCK
=.$X
;JRESET LOCATION COUNTER

000044

.~4é

;s SAVE CURRENT LOCATION
;;SET POWER FAIL TO POINT
:sFOR APT START UP

A AN R

001000
000024
000200

;;POINT

TO APT

000000
001214
000000
000000
000000
000032

A AN AR AR
AR

TO START OF

AR AN A

AR RN RN R A

PROGRAM

INDIRECT ADDRESS PNTR.

. tt*ttttttt*t'ttttttttttt*ttt'ttttttttttttttttttttttttttttttittt

SETUP APT PARAMETER BLOCK AS DEFINED
JINTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

KRR

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

.WORD
.WORD
_WORD
_WORD
_WORD
.WORD

IN THE

APT-PDP11

DJAGNOSTIC

0
SMAIL

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
; ;ADDRESS OF APT MAILBOX (BITS 0-15)
ssRUN TIM OF LONGEST TEST
JoRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
. ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EA(CH ADDITIONAL
SETEND=-$SMAIL/?2 ;;LENGTH MAILBOX-ETABLE (WORDS)

UN;T

0 RK611 DSKLS CTRL PRT3
P11
27~AUG-81 10:24

MACY11

30(1046)
28-4uG-81
COMMON TAGS
.SBTTL

10:35

L
2
PAGE 25

SEQ 0024

COMMON TAGS

';ttt'tltt'i*'*t*it'.'ii"i'tfit'ttttt'tttt*ttttittt.'tttttt'ttttt

1*TH]S TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
J*USED IN THE PROGRAM.

000000
000
000
000000
000000

—

1244

1245

1246
12647

.WORD
:
SWR
.WORD
DISP_AY: . WORD
177560
$TKS:
177562
$TKR:
177564
$TPS:
177566
$TPR:
ENULL:
SFILLS: .BYTE
$FILLC: .BYTE
$TPFLG: BYTE
$TMPO:
.WORD
$TMP:
.WORD
$TMP?2:
.WORD
$TMP3:
.WORD
$TMPS:
.WORD
$TMPS:
.WORD
.WORD
$TMP6:

001140
007142
[olele] ()
jeleolalelololelelelele]
OOO OO lelelelolélelelalelels)
— e
D e
md md
D
D
b —ed
— ——d —d [

144
146

NNN ~

ik w—ch —

—d

150
152
154
155
156
157
160
162
164
66

—

rnoronY PORLNLNLRLALRL NV NINLNL AL N NLNLNLNLNL NNV NV N AL NINIPL NNV N NU AU NI N
0 SN NN NN
N NN AN
NN
NN NONINON) D e et =2 ed D 2 22 2 2 OO
NP — OV
NN
W
—=2O VNN
WN 2OV
NN S WN—O000

001112

001200
001202
001204
001210
001211

001212

.WORD

$TSTNM:
$ERFLG: BYTE
$ICNT:
.WORD
$SLPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
SITEMB:
$ERMAX: .BYTE
$ERRPC(: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
SAUTOR: BYTE
$INTAG: BYTE

001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136

.=1100

$STMP/:

000377

. WORD

$TIMES: 0
$ESCAPE: 0
$RELL:
LASCIZ
$QUES:
.ASCI1I
$CRLF:
LASCII
$LF:
LASCIZ

::START OF COMMON TAGS

=i
ilalaleleleolelo]ololdolelolelele]olo)

$CMTAG:

;;CONTAINS THE TEST NUMBER
;;CONTAINS ERROR FLAG
;s CONTAINS SUBTEST .TERATION COUNT
;:CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
JoCONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM (CONTROL BYTE
;;CONTAINS MAX. ERRORS PER TEST
;:CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF 'GOOD' DATA
;:CONTAINS ADDRESS OF °‘*BAD' DATA
;. CONTAINS 'GOOl"' DATA
;;CONTAINS °*BAD' DATA
. JRESERVED=-=-NOT TO BE USED
;;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

SWR
DISP

;.ADDRESS OF
;.ADDRESS OF

22 TTY
;s TTY
;:TTY
::TTY

SWITCH REGISTER
DISPLAY REGISTER

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS

. sCONTAINS NULL CHARACTER FOR FILLS
J2CONTAINS # OF FILLER CHARACTERS REQUIRED
JJINSERT FILL CHARS. AFTER A 'LINE FEED"

001100

e]eoleleleleleleler
Vo]

001100
061100
001102
001103
001104
001106
001110

s 'TERMINAL AVAILABLE'® FLAG

JsUSER
2 sUSER
;sUSER
s sUSER
s sUSER
s :USER
;sUSER
..USER
;MAX,

DEFINED
DEFINED
DEFINED
DEFINED
DEFINED
DEF INED
DEF INED
DEF INED

NUMBER OF

(BIT<07>=0=YES)

]TERAT]ONS

ESCAPE ON ERROR ADDRESS

<207><377><377> ,,CODE FOR BELL
/?/
2 cQUESTION MARK
<15>
;o CARRIAGE RETURN

J:LINE FEED

;;t"t'!tt...t.Qt'..'t't't'.'.".."..".'.'t.....""'.'.'.""‘

LSBTTL
AL

E&EN

APT MAILBOX-ETABLE
ASER

SRR

R RRRRRRRRRRRRARRRRRRRRRRRRR2ARRRAND]

CZR6CEQ RKk611

TZR6(E.PY

DSKLS CTRL PRT3
27-AUG-81 10:24

1
1
1

1
1
1
1
1
1
1
1
i

000000
000000
000000
000000
000000
000000
000000
000000
000
000
000000
000000
000000

N2 OV

RNNNNNNNNNNNNN
[0 Yo SV, IV, IV IV, IV, IV IV, IV IV, TV, IV o)

NN WO
0

1263

MACY11

30(1046)

28-AUG-81

APT MAILBOX-ETABLE

:
$MAIL
$MSGTY: .WORD
SFATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
SMSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

10:35

AMSGTY
AFATAL
ATESTN
APASS
ADEVC(CT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM

ASWREG
AUSWR
ACPUOP

PAGE 26

;s APT MAILBOX

;;MESSAGE TYPE (ODE
;.FATAL

ERROR NUMBER

;2 TEST NUMBER
;.PASS COUNT
;;DEVICE COUNT
;3170 UNIT NUMBER
: sMESSAGE ADDRESS
s sMESSAGE LENGTH
;;APT ENVIRONMENT TABLE
s ENVIRONMENT BYTE
; sENVIRONMENT MODE BITS
;. APT

SWITCH REGISTER

;s USER SWITCHES
;:CPU TYPE,OPTIONS
BITS 15=-11=CPU TYPE

1
1
1
1
1

1:
FMAMS

001244

001245

SMTYP1:

AMAMST
AMTYP1

. *®

.BYTF
.BYTE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q=10

Seven,

SEQ 0025

]

BIT 10=REAL TIME CLOCK
BIT
O9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
;.HIGH ADDRESS,M.S. BYTE
J:MEM.

TYPE.,BLKA#1

MEM.TYPE

BYTE

900 NSEC

300 NSEC BIPOLAR=002
500 NSEC M0S=003

001246

$MADR1:

.WORD

AMADR1

;sHIGH ADDRESS.,BLK#1

001250
001251
001252
001254
001255
001256
001260
001261
001262
001264
001266
001270
0031272
001274
001276
001300

$MAMS?:
SMTYP?:

BYTE
LBYTE
.WORD
.BYTE
BYTE
.WORD

AMAMS
2
. AMTYP?
AMADR?2
AMAMS
3
AMTYP3
AMADR3

;:HIGH ADDRESS M.S.

.BYTE
WORD
.WORD
. WORD

AMTYPS
AMADRG
AVECT1
AVECT?

.WORD
.WORD

ACDWI
ACDW?2

$MADR?:

3:
$MAMS
SMTYP3:
$MADR3:
$SMAMSS:
$MTYPS:
$MADRS;
$VECT1:

SVECT?Z:
$BASE:
000000

$DEVM:
$COW:
$CDWc:
$ETEND:
MEX]T

.BYTE

.WORD
.WORD

AMAMSS

ABASE
ADEVM

(HICGH BYTE)

CORE=001

MEM.LAST ADDR.=3 BYTES,THIS WURD AND LOW OF
BYTE

s sMEM,.TYPE ,BLKA?2
s ;MEM_LAST ADDRESS.BLKA#?2
;;HIGH ADDRESS,M.S.BYTE
::MEM,TYPE ,BLKA3

JJMEM._AST ADDRESS.BLK#3
;;HIGH ADDRESS.M.S.BYTE
:;MEM.TYPE ,BLK#G

JsMEM,LAST ADDRESS.BLK#4

2 INTERRUPT VECTOR#1,BUS PRIORITYR®]

;s INTERRUPT VECTORAZ2BUS PRIOR.TY®?
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;.DEVICE MAP
;s CONTROLLER DESCRIPTION WORD#1
;s CONTROLLER DESCRIPTION WORD#?

‘'TYPE'' ABOVE

CZR6CEQ RK611 DSKLS CTRL PRT3
(ZR6CE.P11
27-AUG-B1 10:24

MA(CY11

30(1046)
28-AuG-81
10:35
ERROR POINTER TABLE

PAGE 27

SES 0026

129

.SBTTL

1296
1297
1298
1299

;*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 SITEMB IS C THE ONLY PERTINENT DATA IS ($ERRPC),

1300

1202
1303
1304
1305
1306
1307

1308

1309

T *NOTER:
'
.
)
*

001300

1310
1311

001300
1312001302
1313
001304

1314

1315
1316
1317
1378
1219
1320
1321

1322
1323
1324

1325
1326
1327
1328
1329
1330
1331
1332

1333

1334

1335
1336
1337
1338
1339
1340
1341
1342
1343
1344

1345
1346

001306

001310

001312
001314

001316

SERRTB:

;

055405
061564
050644

051306
055405

051306

055405
061653
050644
051306

001330
001332

055467
061564
050644
051306

007334
00133¢

001340
001342
001344
001346

055467
061627
050644
051306

001350
001352
001354
001356

055467
06.06%3
05064é
051306

001362
001364

;
:

061627
050644

001320
001322
001324
001326

13471 001360

13,8
17,5

ERROR POINTER TABLE

055552

041564
050644

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

EM
DH
DT
DF

ERROR

;;POINTS
“IPOINTS
:IPOINTS
IPOINTS

TO
TO
TO
T

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

ATTEMPTING TO CHECK SEEK MESSAGE

FROM READ HEADER

ERROR 2:

ATTEMPTING TO CHECK SEEK MESSAGE
MESSAGE A INCORRECT.

FROM READ HEADER

ATTEMPTING

EM200
EM3000
DT00]

DF 001

EM200

(S?

INCORRECT.

EM3001
DT001

;

;
:

;

;
:

:
:

DF 01
ERROR

EM200
EM3002
DT007
DF 001
ERROR 4:
EM201
EM3000
DT001
DF 001

ERROR 5:
EM201
£:13001
07001
D¥701

ERROR 6:

£M201
£M3002
21001
DF 001

ERROR 7.
EM202

EM3000
D1GO!

CHECK

SEFK MESSAGE

FROM READ

ATTEMPTING TO (MECK
(ST INCORRECT.

SEEK MESSAGE

FROM WRITE

HEADER

ATTEMPTING TO CHECK SEEK MESSAGE

FROM WRITE

WEADER

ATTEMPTING
MESSAGE IS

FROM WRITE

WEADZR

MESSAGE B INCORRE(T.

MESSAGE

INCORRECT,

TO CHECK SEEK MFSSAGE
INCORRECT,

HEADER

ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM READ WEADER
€S INCORRECT

N—=OOVRNONEWAR—O

0 RK611 DSKLS CTRL PRT3
27-AuG-81 10:2¢4
P
001366

051306

MACY11

PAGE 28

SEQ 0027

DFOO1

ERROR 10: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM READ HFADER

EM202
EM3001

001370
001372
001374
001376

10:35
30(1046)
28-AUG~81
ERROR POINTER TABLE

MESSACE

INCORREC(CT.

DT001
DF0O1
ERROR 11: ATTEMPTING TO CHECK DRIVE
MESSAGE B

INCORRECT.

CLFAR MESSAGE FROM READ HEADER

EM202
EM3002
DT001
DFOO01
ERROR 12: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM WRITE HEADER

001400
001402
001404
001406

CS1

INCORRECT.

EM203
EM3000
DT001
DFOO1
ERROR 13: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM WRITE HEADER

001424
001426

050644
051306

001430
001432
001434
001436

055643
061653

007440
001442

055735

001444
001446

001450
001452
00i454
001456

001460
001462
001464
001466

001470
001472
001474
001476

050644
051306

EM203
EM3007

DT001
DFOO01
ERROR 14:

EM203
EM3002

DT001
DF 001

MESSAGE

INCORRECT.

ATTEMPTING TO CHECK DRIVE CLEAF MESSAGE

MESSAGE

FROM WRITE

HEADER

INCORREC(CT.

ERROR 15: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETE(CT
CS1 INCORRECT AFTER SENDING DRIVE CLEAR.
4
EM20
EM3003
DTO15
DFO15
ERROR 16: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT
(S1 INCORRECT AFTER DATE SIMULATION.
EM204
EM3004
DT015
DFO15
ERROR 17: ATTEMPTING A READ HEADER TG CHECK SECTOR PULSE DETECT
MAINT REG. 1 INCORRECT DURING DATA SIMULATION (SECTOR PULSE)
EM204
EM3005
DT1017
DFO17
ERROR 20: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT
MAINT REG. 1 INCORRECT DURING DATA SIMULATION (INDEX PULSE)
EM204
EM3006
D117
DFO17
ERROR 21: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT

(ZR6CEO RK611 DSKLS CTRL PRT3
TIR6CE PN
27-AUG=-81 10:24
1406

1407
1408
NN —O

1433
1434

1435
1436
1437
1438
1439
1440

1441
1442

14643

1444
1445
14646

1447
1448

1449

1450
1451
1452
1453
14564
1455
1456
1457
1458
1459

1460
1461

10:35
28-AuUG-81
ERROR POINTER TARLE

30(1046)

PAGE

SEQ 0028

MAINT REG. 1 INCORRECT DURING DATA SIMULATION (NO INDEX OR SECTOR)
EM204
EM3007
pT017
DFO17
ERROR 22: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
CS1 INCORRECT AFTER SENDING DRIVE (I EAR
EM205
EM3003
DT022

001500
001502
001504
001506

NOA NS WAL= O Y00 NN
~no —— OV

—_ e
—d b e
£ P
oW oW ol I

S SN S ol A 2

2l 2 2

DDy _ 2 =d =D

a_3

i 2l Sl ol o N SN o o

W WIHNMNUNONURO
RO AUNIPONUND — 3 3 3 2
a2

1409

MACY11

DFO22

ERROR 23: ATTEMPTING A WwRITE HEADER TO CHECK INDEX PU.SE DETECT
BUS ADD INCORRECT AFTER SENDING DRIVE CLEAR.
EM205
EM3008

DT02¢
DF022
ERROR 24: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
WORD COUNT INCORRECT AFTER SENDING DRIVE CLEAR
EM205
EM3009
DT022
DF022
ERROR 25: ATTEMPTING A WRITE HEALER TO CHECK INDEX PULSE DETECT
MAINT REG * INCORRECT DURING DATA SIMULATION (NO INDEX OR SECTOR)
EM205
EM3014

001536
001540
001542

001544

007546

051426

001550
001552
007554
001556

062504
050712
051402

001560
001562
001564
001566

056023
062551
050712
051402

001570
001572
001574
00157¢

056023

001600
001602
001604
001606
0016'C

056023

DT025

DFO25
ERROR 26: ATTEMPTING A WRITE HEADER TO CHE"K INDEX
(S1 CHANGED DURING COMMAND EXECU'ION
EM205
EM3010
DT022
DF022
ERROR 27: ATTEMPTING A WRITE HEADER TO CHECK INDEX
BUS ADDRESS (HANGED BEFCRE INDEX PULSE
EM205
EM3011
DT022
DFO22
ERROR 30: ATTEMPTING A WRITE HEADER TO CHECK INDEX
WORD COUNT CHANGED BEFORE INDEX PULSE
EM205
EM3012
DT022
DFO22
ERROR 31: ATTEMPTING A WRITE HEADER TO CHECK INDEX
(ST CHANGED AFTER INDEX PULSE
EM205
EM3013
DTO31
DFO31
ERROR 32: ATTEMPTING A WRITE HEALER TO CHECK INDEX
EM205

BUS ADDRESS (HANGED AFTER [NDEX PULSE.

PULSE DETECT
—

PULSE DETECT

PULSE DETEC”

PULSE DETECT

PULSE DETECY

(ZRATED RK611 DSKLS CTRL PRT3
CZRSCE.PIN
27-AUG=81 10:24
1462
16463

}22?

1666
1467

1468
1469
1470
1471
1672
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
483
1484
1485

1486
1487
1488
1489

1490
1491

1492
1493
1494
1495

1496
1497
1498
1499

1500

1501
1502
1503

1504
1505
1506

1507
1508

1509

:
30(1046)
28-AUG-81
10:35
ERROR POINTER TABLE

D 3
PAGE 30

SEQ 0029

001612
001614

062774
050744

EM3015
DTQ3"
DFO31
ERROR 33: ATTEMPTING A WRITE READER TO (HECK INDEX PULSE DETECT

001620
001622
0016246
001626

056023
063042
050744
051452

EM205
EM3C16
DT031
DFO31
ERROR 34: ATTEMPTING A WRITE HEADER TO (HECK INDEX PULSE DETECT

001630
001632
001634
0010636

056023
0
(50744
0S5

EM205
EM3025
DT031
DFO31
ERROR 35:

001616

001640
001642
001644
001646

001650
001652
Q001654
001656

051452

05611
061564
050770
051476

05
063107
05
05

WORD COUNT

EM206
EM3000
DT035
DFO35
ERROR 36:
EM?206
EM3018
DT035
DFO35
ERROR 37:

001660
001662
001664
001666

056111
063153
050770
051476

EM206
EM3019
DTO35
DFO35
ERROR 40:

001670
001672
001674
00167¢

056111
063201
050770
051476

EM206
EM3020
DT035
DFO35
ERROR 41:

056111

EM206
EM3021
DT041
DF Q41
ERROR 42:

007700

001702
001704
001706

001710

1510
1511
1512
1513

001712
001714
001716

1516
1517

001722
001724

1514
1515

MACY11

001720

063232
051074
051522
056111

063256
051024
051546
056111

063326
051024

EM206
EmM3022
DT042
DF 042
ERROR 43:

EM206
EM3023
DT04?

CHANGED AFTER

MAINT REG 1

INDEX PULSE

INCORRECT AFTER SECTOR PULSE

ATTEMPTING AN NPR READ OF

ONE

ATTEMPTING AN NPR READ OF

ONE WORD

ATTEMPTING AN NPR READ OF

ONE

ATTEMPTING AN NPR READ OF
WORD COUNT REG INCORRECT

ONE WORD

ATTEMPTING AN NPR READ OF
WORD READ INCORRE(CT

ONE

ATTEMPTING AN NPR READ OF

ONE WORD

ATTEMPTING AN NPR READ OF

ONE

CS?T

INCORREC!

€S2 INCORRECT

BUS ADDRESS

(S1

INCORRECT

WORD

INCORRECT AFTER READING DATA BUFFER

WORD

(S2 INCORRECT AFTER READING DATA BuFFER

CZR6CED RKO11 DSKLS CTRL PRT3

TIR6CE.P
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532

27-AUG=81 10:24

001726

05154¢

001730
001732
001734
001736

056154
061564
050770
051476

0017640
001742
001744
001746

056154
063107
050770
051476

MACY11 30(1046)

28-AUG-81

ERROR POINTER TABLE
H
;

:
:

;

DF Q42
ERROR &44:

EM207
EM3000
DT035
DF 335
ERROR &45:
EM207
EM3018
DT035
DFO35
ERROR 46:

10:35

PAGE 31

ATTEMPTING AN NPR READ COF ONE WORD
(S1 INCORRE(T

ATTEMPTING AN NPR READ
(Sc INCORRECT

ATTEMPTING AN NPR READ
BUS ADDRESS INCORRECT

SEQ 0030

(ZR6CED RK61T DSKLS CTRL PRT3
27-AUG=81 10:24
056154
063153
050770
051476

EM207
EM30'9
DTO35
DFO35
ERROR 47:

001760
001762
001764
00176¢

056154
063201
050770
051476

EM207
EM3020
pPTO35
DFO35
ERROR 50:

001770
00177¢
001774
001776

056203
061564
050770
051476

EM208
EmM3000
DT035
DFO35
ERROR 51:

002000
002002

056203
063107
050770
051476

EM208
EM3018
DTO35
DFO35
ERROR 52:

056203
063153

£M208
EM3019
DT035
DFO35
ERROR 53:

050770
1476

=\ NN

Lo NaNTo
0 o

EM208
EM3020
DT035
DFO35
ERROR 54:

EM207
EM3021
DTO54
DFO56
ERROR 55:
EM207
EM3022
DTOS5S
DFOSS
ERROR 56:

EM207
EM3023
DTOS55
DFOS5S
ERROR 57:

002060
002062

0562564
061564

EM209
EM3000

— AN
N
ONPOON

002050
002052
002054
002056

OOOO
[V ]V, e NV, |
— b A NN
O Crn~—

002040
002042
002044
002046

[ololele]
(VLIV
Yo V]
— 2 NON
WNORD
=
~N SN
rROORD

002030
002032
002034
002036

056203
063201
050770
051476

QOO0
[V,10,
1o 3V, }
— = AN OTM
oOoOrn)
»

oo ONONOM NN
NN NN NV
(W, IFW] N = OV
NN WO
000000000000
NN NN NNNNY
W
ANN) 2O 000 NON N & W) —

2
b
ed
b
d
b
D
B

£ B BN NN ANINNNWN
N = OO0 NV~ W

(WAL

-t md

s
e
e
D e
ad
i o
d e
D e
— e

VN VNN
NNWVA N TSI
NN L

N VTN VLN
VNN
VDA U

10:35
28-AUG-81
tRROR POINTER TABLE

30(1046)

001750
001752
001754
001756

002026

-—

AW RV JW AU L0 LV [V, IV ]

IR6CE.PMY

MACY1Y

F
3
PAGE 32

ATTEMPTING AN NPR READ
WORD COUNT INCORRECT

ATTEMPTING NPR READ (HECKING ZERO DETECT
(S® INCORRECT

ATTEMPTING NPR READ CHECKING ZERO DETE(CT

(S2 INCORRECT

ATTEMPTING NPR READ CHECKING ZERO DETECT
BUS ADDRESS INCORRECT

ATTEMPTING NPR READ CHECKING ZERO DETE(CT

WORD

COUNT

INCORRECT

ATTEMPTING NPR READ

DATA BUFFER INCORRE(T

ATTEMPTING NPR READ

(S1

INCORRECT AFTER READING DATA BUFFER

ATTEMPTING NPR READ

(S2 INCORRECT AFTER READING DATA BUFFER

ATTEMPTING NPR READ W!TH BUS ADDRESS INCREMENT
INHIBIT (S1 INCORRECT

SEQ 0031

CZR6CED RKG1T
JIRG6CE.PIY

002064
002066
002070
002072
002074
002076

DSKLS CTRL PRI3
27-AUG=81 1J:2¢4

050770
05147¢
056254
063107
050770

051476

2 =

002130
002132
002134
002136

051476
056343
063107
050770
051476

002140
002142
002144
002746

— N

WO PN

nNOrO
S

ONPLON

002170
002172
002174
002176

—~2 AN

002160
002162
002164
002166

VL1V,
To NV}

002150
002152
002154
002156
QOO0

2 —d
v
b
POND) =3

el
e
—t

002126

OO0
(V,1V
. T XV}
— e AN O
O OrOr

= OO0
~NO N
NN

D
=D
h
md

oocoorOrOrOrONONOE

202100
002102
002104
002106

MACY1Y

30(1046)
28-AuG-81
ERROR POINTER TABLE

DTO3S
DFO35
ERROR 60:

10:35

PAGE

SEQ 0032

ATTEMPTING NPR READ WITH BUS ADDRESS

INCREMENT

ERROR 61:

ATTEMPTING NPR READ WITH BUS ADDRESS

INCREMENT

EM209
EM3019
DT035
DF035
ERROR 62:

ATTEMPTING NPR READ WITH BUS

ADDRESS

INCREMENT

EM209
EM3020
DT035
DFQ35
ERROR ¢3:

ATTEMPTING NPR

CHECK

ZERO

EM209
EM3018
D135
DFO35

EM210
EM3000
DT035
DFO035

INHIBIT (S2 INCORRECT

INHIBIT BUS ADDRESS

INHIBIT WORD COUNT

DETECT=CS1

INCORRECT

READ WITH

INCORRECT

IBA

ERROR 64:

ATTEMPTING NPR READ

WITH BAl

TO (HECK

ZERO

EM210
EM3018
DT035
DFO35
ERROR 6€5:

ATTEMPTING NPR READ WITh BAl

TO (HECK

ZERO

EM210
EM3019
DT035
DFO35
ERROR 66:

ATTEMPTING NPR READ WITH BAl

TO CHECK

ZERO

EM210
EmM3020
DT035
DFO35
ERROR 67:

ATTEMPTING NPR READ WITH BUS ACDRESS

INHIBIT

EM209
EM3021
DT054
DFO54
ERROR 70:

ATTEMPTING NPR READ WITH BUS

INWIBIY

DETECT-(S2 INCORRECT

DETECT-BUS ADDRESS

DETECT~WORD COUNT

INCORRECT

INCREMENT-DATA BUFFER

INCREMENT=CST

INCORRECT

ADDRESS

INCORRECT AFTER READING DATA BUFFER

CZROCED RKO11 DSKLS CTRL PRT3
CIR6CE.PY
27-AuG=81 10:24

1649
1650
1651
1652
1653
1654
1655

05
61

056457
061564
051070
051642

1656

1657
1658

1659
1660
1661
1662
1663
1664
1665

1666
1667
1668
1669
1670
1671

1672
1673
1674
1675

1676

1677
1678
1679
1680
1481
1682
1683
1684

1685

1686
1687
1688
1689
1690
1691
1692
1¢93%
1694
1695
1696

1697
1698
1659

700

25
32

002200

[0 328 T0 0

1648

oooo
(9, 1V, ¢ SV, }
2 A NO

1645

1646
1647

002226
002230
002232
002234
002236

002244
002246

057070
051642

002260
002262
002264
00c266
002270
002272
00227¢
002276
002300
002302
002304
002306

056457

PAGE

SEQ 0033

EM209
EM3023
DTOS5
DFOQSS
ERROR 72:

ATTEMFTING

TO FORCE

NON-EX]STANT MFMORY

EM211
EM3000
DT072
DFO72
ERROR 73:

ATTEMPTING

TO FORCE

NON=-EXISTENT MEMORY

EM211
EM302¢4
DT072
DFQ07?2
ERROR 75:

063153

ATTEMPTING NPR READ W[TH ADDRESS BUFFER

056457
063376
051070
051642

10:35

ERROR 71:

EM211
EM3018
DT072
DFO72
ERROR 74:

056457

002250
002252
002254
002256

20(°046)
28-AUG-81
ERROR POINTER TABLE

056457
063107
051070
U51642

002240

002242

MACY1T

EM211
EM3019
D1072
DFO7?2
ERROR 76:

EM211
EM3020
DT1072
DFO72

ERROR 77:

EM212
EM3000
DT077
DFO77
ERROR 100:

INHIB]T

INCREMENT=-(S2 INCORRECT AFTER READING DATA BUFFER

(S1

INCORRECT

(S2 INCORRECT

ATTEMPTING TO FORCE NON-EXISTENT MEMORY
ERROR REG INCORRECT

ATTEMPTING

TO FORCE

NON-EXISTENT MEMORY

ATTEMPTING

FORCE

NON-EXISTENT

MEMORY

ATTEMPTING

CLEAR NON<EXISTENT

MEMORY

BUS ADDRESS

WORD

(ST

COUNT

INCORRECT

ATTEMPTING

CLEAR NON--EXISTENT

MEMORY

(S2 INCORRECT
EM212
EM3018
D1077
DFO77
ERROR 101: TESTING EXTENDED MEMORY ADDRESSING BiTS
(ST INCORRECT
EM213
EM3000
DT035
DFO35
ERROR 102: TESTING E#TENDED MEMORY ADDRESSING BITS
Y INCORRE

CZR6CEDQ Rk611
TIRGLE.P1T

——

27-AUG-81
056577
063107
050770
051476

1701
1702

NNNNNN NN NNNNNNNNNNSNNNNNNSNNNNNNNNN
AN
f ¥ ¥ o WIWININWWIWIWIWIWNIWNORNDROMNOAORN)NONOMNOND
2
02
g
2 0O
=0 NVONOWNEWN 2OV
NO NS W
SOV
NOAWVIS WA —=-0OO

DSKLS CTRL PRT3

002400
002402
002404
002406

002410
002412
002414
002416
002420
002422

ERROR
EM213

EM213

10:35

3
I
PAGE 35

SEQ CO34

103: TESTINC EXTENDED MEMORY ADDRESSING BITS
BUS ADDRESS INCORRECT

TESTING EXTEND MEMORY ADDRESSING BITS

WORD

COUNT

INCORRECT

EM3020

DT035

DFO35
ERROR 105:
EM213

002340
002342
002344
002346

002370
002372
002374
002376

EM213
EM30'8
DT035
DFO35

DFO35
ERROR 104:

002330
002332
002334
002336

002360
002362
002364
002366

30(1046)
28-AuG-81
ERROR POINTER TABLE

EM3019
DTO35

002326

002350
002352
002354
002356

10:24

MACY11

TESTING EXTENDED MEMORY ADDRESSING BITS

DATA BUFFER

INCORRECT

EM3021
DT041
DF 041

ERROR 106: ATTEMPTING TO FORCE UNIBUS PARITY ERRCR
CS1 INTORRE(CT
EM214

EM3000

051642
056647

063197
051070
051642

DTQ72

DFO72
ERROR 107: ATTEMPTING TO FORCE UNIBUS PARITY ERROR
(S2 INCORRECT
EM214
EM3018
DT072
DFQO7?2
ERROR 110: ATTEMPTING TO FORCE UNIBUS PARITY ERROR
EM214

BUS ADDRESS

EM3019
DT1072
DFQ72
ERROR 111:
EM214

INCORRECT

ATEMPTING TO FORCE UNIBUS PARITY ERROR

WORD COUNT

INCORRECT

ERROR 112: ATTEMPTING NPR READ OF
CS1 INCORRECT
EM215

EM3000

LOCATION PRIOR TO BAD PARITY

DT035
DFO35
ERROR 113: ATTEMPTING NPR READ OF LOCATION PRIOR TO BAD PARITY
(S2 INCORRECT
EM215
EM3018

CZR6CED RK611 DSKLS CTRL PRT3
TIR6(E L1
27-AUG=-81 10:24

17€4
1765

1766

1767
1768
1769
1770
1771
1772
1773
1774

1775

1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807

1808

1809
1810

1811
1812

002430
002632
002434
002436

BUS ADDRESS

INCORRECT

WORD

COUNT

INCORRECT

OF LOCATION PRjOR TO BAD PAR!TY

EM3018
DT035
DFO35
ERROR 116: ATTEMPTING TO FORCE UNIBUS PARITY ERROR
ERROR REG INCORRECT
EM214

002450
002452
002454
002456

EM3024
DT072
DFO72
ERROR 117: ATTEMPTING TO CLEAR UNIBUS PARITY ERROR
EM216

002460
002462
002464
002466

EM3000
0'277
DL07”
057003
063107
051120
051676

002500

057053
061564
050770
051476
5
0
7
7

057053
063153
050770
051476

INCORRECT

CST

E#rCRk 120:

002470
002472
002474
002476

002530
002532
002534
002536

SEQ 0035

DT035
DFO35
ERROR 1%4: ATTEMPTING NPR READ OR LOCATION PRIOR TO BAD PARITY

EM215

002440
002442
002444
002446

002526

J 3
PAGE 36

EM3019
DT235
DFO35
ERROR 115: ATTEMPTING NPR READ

OO NW

1763

28-AUG-81
10:35
ERROR POINTER TABLE

3001046

EM215

QOO

1760
1761
1762

05077¢
05147¢

[V 1V, Yo SV, ]
—~ OWN
HN—=O

1759

002424
002426

[elelele]
VIV,
Te RV}
=S OWN
S NNVO
NNOWw
[e J T
XV ]

1757

1758

MACY11

ATTEMPTING TO CLEAR UNIBUS PARITY ERRCR

_S2 INCORRECT

FMZI5,8

DT077
DFQ77
ERROR 121: ATTEMPTING '8 BIT NPR READ
{S1 INCORRECT
EM217
EM3000
DT035
DFO35
ERROR 122: ATTEMPTING 18 BIT NPR READ
(S2 INCORRECT
7
EM21
EM3018
DT035
DFO35
ERROR 123: ATTEMPTING 18 BIT NPR READ
BUS ADDRESS INCORRECT
EM217

EM3019
DT035
DFO35
ERROR 124: ATTEMPTING 18 B IT NPR READ

EM217
EM3020
DTO35
DFO35

WwORD

COUNT

IN{ORRE cr

CZR6CED RK611
N

=S OVOO NN

= OO 00 NN

WWNWNININOPOMNONINININDAY
— —
2 s—

U
i U N
i S
U QN YU S S S -

00 00 00 00 00 Co 0o 00 00 00 00 0o o 00 00 00 00 OO 00 oo

TZROCE.PIN

DSKLS CTRL PRT3
27-AuG-81 10:24

002540
002542
002544
002546

057106

002550
002552
002554
002556

SEQ 0036

ERROR 125: ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETEC(T
CS1 INCORRECT

EM3000
DTO35
DFO35
ERROR 126: ATTEMFTING 18 BIT NPR READ (HECKING ZERO DETECT
EM218
CS2 INCORRECT

EM218

051476
057053

002610
002612
002614
002616

057053
063256
051052
051616

002640
002642
002644
002646

K
3
PAGE 37

BUS ADDRESS

INCORRECT

EM3019
DT035
DFO35
ERROR 130: ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETE(T

051024
051546

002630
002632
002634
002636

10:35

EM218

002600
002602
002604
002606

002620
002622
002624
00c626

30(1046)
28-AUG-81
ERROR POINTER TABLE

EM3018
DTO35
DFO35
ERROR 127: ATTEMPTING 18 BIT NPR READ (HECKING ZERO DETE(CT

002560
002562
002564
002566

002570
002572
002574
002576

MACY11

063232

WORD

EM3020
DT035
DFO35
ERROR 131:
EM217

COUNT

INCORRECT

ATTEMPTING 18 BIT NPR READ

DATA BUFFER

INCORRECT

EM3021
DT042

DF 042
ERROR 132: ATTEMPTING 18 BIT NPR READ
EM217
CS1 INCORRECT AFTER READING DATA BUFFER

EM3022
DT055
DFO55
ERROR 133: ATTEMPTING 18 BIT NPR READ
EM217
(S2 INCORRECT AFTER READING DATA BUFFER

EM3023
DT0O55
DFOS55
ERROR 124: ATTEMPTING 18 BIT NPR READ WITH BIT
(ST INCORRECT
EM219

16(PA)

EM3000
DT035
DFO35
ERROR 135: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA)
(SZ INCORRECT
EM219
EM3018
DT035
DFO35
ERROR 136:

ATTEMPTING 18 B]T NPR READ W]TH BIT 16(PA)

BUS ADDRESS INCORRECT

SET

CZR6CEOQ RK611 DSKLS CTRL PRT3
{ZR6CE.PY
27-AUG=-81 10:24
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889

PONUNORDNY
~@ =8 =d <b e ek b =2 =
£ M) =2 OO0 NN
NN

b
el
D
ed
e
d
h
e p
e
e
-

OO OO OOV OO0V OVOO0OO00

1890
1891
1892
1893
1854
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1605

002650
002652
002654
002656

MACY11

30(1046)
28-AUG=81
ERROR POINTER TABLE

PAGE 38

EM219
EM30°9
DT035
DFO35
ERROR 137: ATTEMPTING 18 BIT NPR READ WwITH BIT 16(PA)

05716¢

WORD

COUNT

INCORRECT

SEQ 0037

SET

EM219
EM3020
DTO35
DFO35
ERROR 140: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET

002660
002662
002664
002666

002670
002672
002674
002676

10:35

CHECKING ZERQ DETECT
CS1 INCORRECTM

EM220
EM3000
DTO035
DFO35
ERROR 141: ATTEMPTING 18 BIT NPR READ wlTH BIT 16(PA)

051476

CHECKING ZERO DETECT

002700
002702
002704
002706

(S2 INCORRECT
EM220
EM3018
DTQ35
DFO3S
ERROR 142: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA)

057246
063107

050770
051476

(HECKING ZERO DETECT
BUS ADDRESS INCORREC T

002710
002712

EM220
EM3019
DT035
DFO35
ERROR 143: ATTEMPTING 18 BJT NPR READ WITH BIT 16(PA) SET

002714
002716

00,720
002722
002724
002726
002730
002732
002734
002736
002740
002742
002744
002746

002750
002752
002754
002756

SET

CHECKING ZERO DETEC(CT
WORD COUNT INCORRECT

;
.

EM220
EM3020
DT035
DFO35
ERROR 144: ATTEMPTING 18 BIT TNPR READ WITH BIT 16(PA)

EM219
EM3021
DT041
DF 041

DATA BUFFER

INCORREC

SET

BIT NPR READ WITK BIT 16(PA) SET
ERROR 145: ATTEMPTING 18
(ST INCORRECT AFTFR READING DATA BUFFER
EM21G
EM3022

L1077
DFO77

ERROR 146: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA)
(S2 INCORRECT AFTER READING DATA BUFFER
EM219
EM3023
DTQ77
DFQO77

SET

1951
1952

1953
1954
1955
1956

1957

1958
1959
1960
1661
1962

1963

1964
1965

1966

1967
1968
1969
1970
1971
1972

1973

1974
1975
197¢
1977
1978
1979
1980

051546
057402
063541
051024
051546

003020
003022
003024
003026

003040
003042
003044
003046

003060
003062
003064
0030¢6
003070

PAGE

CS1

INCORRECT

CS1

INCORRECT AFTER UNLOADING DATA BUFFER

DTO55
DFOSS
ERROR 154: ATTEMPTING DATA BUFFER READ AFTER READ HEADER

003030
003032
003034
003036

002050
003052
003054
00305¢

EM221
EM3000
DT150
DF150
ERROR 151: ATTEMPTING READ HEADER IN MAINTANENCE MODE
CS1 INCORRECT AFTER COMPLETION OF COMMAND
EM222
EM3026
DT042
DF 042
ERROR 152: ATTEMPTING READ HEADER IN MAINTANENCE MODE
(S2 INCORRECT AFTER COMPLETION OF COMMAND
EM222
EM3027
DT042
DFO42
ERROR 153: ATTEMPTING DATA BUFFER READ AFTER READ HEADER
EM223
EM3022

OO W

1948
1949
1950

003010
003012
003014
003016

051024

—_ N~

1944

1945
1946
1947

002770
002772
002774
002776

OO0
VO

1943

002760
002762
002764
002766

003000
003002
003004
003006

10:35
28-AUG-81
ERROR POINTER TABLE

30(1046)

JNEXPECTED MEMORY PARITY ENABLE TRAP
ERRCR 147:
EMOQ0
DHOO0O0C
DTO00
DFO00
ERROR 150: ATTEMPTING SIMULATION OF DATA IN READ HEADER

QOO0
VWO
N
- NN
VoM
&~

WA OO0~ O un

OO
‘Q‘OOO‘OOOO‘OOOOOO
N NN WO N noro

P2P
o
N NN WIN
Ny —s O V00 NN

—_—

NelVel

S
S
S
N
N S S
S
S pury

CZR6CEQ RK611 DSKLS CTRL PRT3
(ZRECE.P
27-AUG-81 10:24

MACY1T

(S2

INCORRECT AFTER UNLOADING DATA

EM223
EM3023
DTOS5
DFOS55
ERROR 155: ATTEMPTING DATA BUFFER READ AFTER READ HEADER
DATA READ

INCORRECT

EM223
EM3021
DTO54
DFO54
ERROR 156: ATTEMPTING SIMULATION OF DATA IN READ HEADER (20 BlTM FORMAT
(S1 INCORRECT
EM2264
EM3000
DT150
DF150
ERROR 157: ATTEMPTING READ HEADER (20 BIT FORMAT) [N MAINT MODE/
CS1 INCORRECT AFTER (OMMAND COMPLETION

EM225
EM3026
DT042
DFQ42
ERROR 160: ATTEMPTING READ HEADER (20 BIT FORMAT) [N MAINT MODE
(S2 INCORRECT AFTER COMPLETION OF (OMMAND
EM225

SEQ 0038

CZR6CED RK611 DSKLS CTRL PRT3
27-AUG-81 10:24

TZRECE.P

EM227
£M3000

040015
063107
051150
051746

003150
003152
003154
003156

060015
063610
051150
051746

002160
003162
003164
003166

060015
063657
051150
051746

003170
003172
003174
003176

000000

ERROR 165: ATTEMPTING TC (HECK SYNCH DETECT ON READ HEADER
(S2 INCORRE(T
27
EM2
EM3018
DT164
DF 164
ERROR 166: ATTEMPTING TO CHECK SYNCH DETECT ON READ HEADER
(S1 INCORRECT READING EMPTY SILO

gme27
EM3028
DT164
DF 164

ERROR 167: ATTEMPTING TO CHECK SYNCH DETECT ON READ HEADER
(S1 INCORRECT READING EMPTY SILO
EM227
EmM3029
DT164
DF 164

EHU:

ERROR 170:

171:

003140
003142
003144
003146

DT164
DF 164

051746

INCORRECT

4RITE BIT ERRORS

WRITE GATE NOT RESET wiTW SECTOR PULSE

003130
0C3132
003134
0G3136

003200
003202
003204
003206

CS1

—

2017
2018
2019
2020
2021

003126

gNNOw%
— - A
[ale]
NNV

2015

2016

PAGE 40

DATA BUFFER INCORRE(CT
EM226
EmM3021
DT054
DFO54
ERROR 164: ATTEMPTING TO CHECK SYNCH DETECT ON READ HEADER

gNOI) o=

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014

003100

D b

1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1968
1999

EM3027
D104
DF 042
ERROR 161: ATTEMPTING DATA BUFFER READ AFTER 20 BIT READ HEADER
CS1 INCORRECTTM AFTER UNLOADING DATA BUFFER
EM226
EM3022
DTO55
DFCSS
ERROR 162: ATTEMPTING DATA BUFFER READ AFTER 20 BIT READ HEADER
(S2 INCORRECT AFTER UNLOADING DATA BUFFER
EM226
EM3023
DTO55
DFO55
ERROR 163: ATTEMPTING DATA BUFFER READ AFTER 20 BIT READ HEADER

0635641
051024
051546

DM -RBRED

1983
1984

003072
003074
003076

MOOMMMOOOO

1981

1982

MACY11 30(1046)
28-AUG-81
10:35
ERROR POINTER TABLE

wRiTE GATE NOT SET w!TMw SECTCOR P_
< RESE?

SEQ 0039

CZR6CEO RK611 DSKLS CTRL PRT3
27-AUG~-81 10:24
C(ZR6CE.PIY

MACY1T

30(1046)
28-AUG-81
ERROR POINTER TABLE

EM232
EM3030
DT171
DF171
ERROR 173:

2047
2048
2049
2050

003240
003242
003244
003246

061261
061564
051222
052042

2059
2060
2061
2062

003250
003252
003254
003256

06126
06310
05122
4

2071
2072
2073
2074
2077
2078
2079
2080

003260
003262
003264
003266
003270
003272
003274
003276
003300
003302
003304
003306

003326

GATE

NOT RESET WITH SECOND

INDEX PULSE

CS1 INCORRECT
EM241
EM3000
DT175
DF175

ERROR 176: ATTEMPTING TO FORCE FORMAT ERROR (CFMT
(S2 INCORRECT

052042
061261
064007
051222
052042
067345
061564
051222
052042

061345
063754
051222
052042

26)

DF175
ERROR 177: ATTEMPTING TO FORCE FORMAT ERROR (CFm7

26)

DF175
ERROR 200: ATTEMPTING TO FORCE FORMAT ERROR (CFMT

26)

EM241
EM3032
DT175
DF175
ERROR 201: ATTEMPTING TO FORCE FORMAT ERROR (CFMTY

24)

DRIVE

061345
063107
051222
052042

2092

WRITE

SEQ 0040

ERROR 174:
CS1 INCORRECT AT END OF WRITE HEADER
EM236
EM3000
DT015
DFO15
ERROR 175: ATTEMPTING TO FORCE FORMAT ERROR (CFMT

003230
003232
003234
003236

2053
2054
2055
2056

2065
2066
2067
2068

4
PAGE 41

10:35

STATUS REG

INCORRECT

ERROR REG INCORRECT

CS1

INCORRECT

EM242
EM3000
DT175
DF175
ERROR 202: ATTEMPTING TO FORCE FORMAT ERROR (CFMT
CS2 INCORRECT
EM242
EM3018
DT175
DF175
ERROR 203: ATTEMPTING TO FORCE FORMAT ERROR (CFMT
DRIVE

EM242
EM3031
DT175
DF175

STATUS REG

INCORRECT

24)

(ZR6CEQ RK611
TIR6CE.PT

DSKLS CTRL PRT3
27-AUG-81 10:24

MACY11

30(1046)
28-AUG-81
ERROR POINTER TABLE

2093

209¢
2095
2096
2097
2098

VT N1, U1, W1 N T N1 AN, S 1,8 )

2101
2102

003344

003346

051222

003356
003352
003354
003356

061431
063107
051222
052042

003360
003362
003364
003366

061431
063754
051222
052042
061431
064007
051222
052042

003400
003402
003404
003406

061532
061564
051246
052066

003410
003412
003414
003416

061532
063107
051246
052066

D d e
D ) D e
) e
) el aared el ol
b —d b
D )
b
md el
B o

003420
003422
00342
003426

06153¢
063754
051246
052066

003430
003432
003434
003436

061532
064007
051246
052066

ATTENMPTING TO CONTROLLER ERROR WITH FAULT BIT [N DRIVE MESS

EM3000
DT175
DF175
ERROR 206:
ATTEMPTING TO CONTROLLER ERROR WITH FAULT BIT IN DRIVE MESS
(S2 INCORRECT
EM243
EM3018
DT175
DF175
ERROR 207:
ATTEMPTING TO CONTROLLER ERROR WITH FAULT BIT IN DRIVE MESS

052042

003370
003372
003374
003376

((CFMT = 24)

CS1 INCORRECT
EM243

DRIVE

EM243
EM3031
DT175

STATUS REG

DF175

ERROR 210:
ERROR REG

EM243
EM3032
DT175
DF175

INCORRECT

ATTEMPTING TO CONTROLLER ERROR WITH FAULT BIT

INCORRECT

ERROR 211:
ATTEMPTING TO CLEAR CONTROLLER ERROR
CS1 INCORRECT
EM244
EM3000
DT211
DF211

) e

D D med D ) d

LS1aNT S, U1, N1, N1, 1, 01,01, ST,V 1,8 N1, S, N, N1 ,N T, ST, ST,V .S ST, 01, N1, 1,01, 81 N1, S, 6T N1, W1, N 1, U1,V 1, 1, 1

D d D ed )

BB WWWWWWWWWIWNIN
NN NPONINMNIND 2
2 2 D
2
D2 OO0
3O NOAVIENN 2OV
NO NS W
2OV
NO N
W
20O 000 NN
W)= O 000NN

ERROR 205:

061431
061564

) ——h D

003340
003342

SEQ 0041

ERROR 204: ATTEMPTING TO FORCE FORMAT ERROR
ERROR REGISTER INCORRECT

0
0
0
05

d D D ed

103

003330
003332
00333¢
003336

&
PAGE 42
C

10:35

ERROR 212:
ATTEMPTING TO CLEAR CONTROLLER ERROR
(52 INCORRECT
EM244

EM3018
1211
DF211
ERROR 213:
DRIVE

ATTEMPTING TO CLEAR CONTROLLER

STATUS REG

INCORRECT

EM244
EM3031
DT211
DF211
ERROR 214: ATTEMPTINT TO CLEAR CONTROLLER
ERROR REG INCORRECT
EM244

LSBTTL

EM3032
DT211
DF211
TEMPORARY STORAGE FOR RKo11

CONTROLLER REGISTER

IN DRIVE MESS

CIR6CED RKGO'1 DSKLS CTRL PRT3

TIR6CE.P1T

27~AUG=81 10:24

MACY11 30(1046)

28-AUG-81

10:35

PAGE 43

TEMPORARY STORAGE FOR RK611 CONTROLLER REGISTER

2149
2150
2151
2152
2153
2154
2155
2156
2157

003440
003442
003444
003446
003450
003452
003454
00%%S6
003460

000000
000000
000000
000000
000000
000000
000000
000000
000000

T.CS1:
T.w(:
T.BA:
T.DA:
T.(S2:
T.DS:
T.ER:
T.ASOF:
T.DCYL:

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

O
0
0
0
0
0
0
0
O

:CONTROL AND STATUS REGISTER 1
:WORD COUNT REGISTER
;BUS ADDRESS REGISTER
:DESIRED TRACK SECTOR REGISTER
:CONTROL AND STATUS REGISTER 2
:DRIVE STATUS REGISTER
:ERROR REGISTER
;ATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER

2161

003470

000000

T.MR3:

_WORD

;MAINTENANCE REGISTER 3

2158
2159
2160
2162
2163
S;gé

003462
003464
003466
003472
003474
003476

000000
000000
000000
000060
000000
000000

S}gg

T.DR:
T.MR1:
T.MR2:

.WORD
_WORD
.WORD

T.ECPS: .WwORD
T_ECPT: .WORD
T.SPAR: .WORC

O
0
0
0
O
0

:DATA BUFFER
IMAINTENANCE REGISTER 1
sMAINTENANCE REGISTLR 2

;ECC POSITION INFORMATION
JECC PATTERN INFORMATION
:SPARE REGISTER

LSBTTL

EXPECTED RK611 CONTROLLER REGISTERS

2168
2169
2170
2171
2172
2173

003500
003502
003504
003506
003510
003512

000000
000000
000000
000000
000000
000000

E.CS":
E.WC:
£.BA:
E.DA:
E.CS2:
E.DS:

.WORD
LWORD
WORD
.WORD
.WwORD
.WORD

0
O
O
0
0
0

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

2179
2180
2181

003526
003530
003532

000000
000000
000000

E.MR2:
.WORD
£.MR3:
.WORD
E.ECPS: .WORD

O
0
O

MAINTENANCE REGISTER 2
MAINTENANCE REGISTER 3
ECC POSITION INFORMATION

2174
2175
2176
2'77
2178

2182
S}SZ

003514
003516
003520
003522
003524

003534
003536

000000
000000
000000
000000
0009000

000000
000000

%;gg

E.ER:
.WORD
E.ASOF: .WORD
E.DCYL: .WORD
.WORD
E.DB£E.MR1:
.WORD

0
0
0
0
0

O
O

:ERROR REGISTER
;ATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:DATA BUFFER
MAINTENANCE REGISTER 1

E.ECPT:
E.SPAR:

.WORD
.WORD

:ECC PATTERN INFORMATION
:SPARE REGISTER

.SBTTL

PREVIOUS RK611 CONTROLLER REGISTERS

2187
2188
2189
2190
2191
2192
2193
2194
2195

003540
003542
003544
003546
003550
003552
003554
003556
003560

000000
000000
000000
000000
000000
000000
000000
000000
000000

P.CS*:
P.W(:
P.BA:
P.DA:
P.(S2:
P.DS:
P.ER:
P.ASOF:
P.DCYL:

.WwORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

0
O
0
0
0
0
0
0
O

:CONTROL AND STATUS REGISTER 1
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DESIRED TRACK SECTOR REGISTER
:CONTROL AND STATUS REGISTER 2
:DRIVE STATUS REGISTER
:ERROR REGISTER
CATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER

2'97
2198
2199
2200
2201
2202

003564
003566
003570
003572
003574
00357¢

000000
000000
000000
000000
000000
000000

P.MR1:
P.MR.:
P.MR3:
P.ECPS:
P.ECPT:
P.SPAR:

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD

0
0

:MAINTENANCE REGISTER 1
JMAINTENANCE REGISTER 2
IMAINTENANCE REGISTER 3
JECC POSITION INFORMAT
[ON
JECC PATTERN INFORMATION
:SPARE REGISTER

2196

2203

003562

000000

P.DB:

.SBTTL

.WORD

;DATA BUFFER

0
0
O
PROGRAM DEF INED VARJABLES

SEQ 0042

003600
003602
003604
003606

MACY?

000210
000240
000000
000000

28=-AUG-81

10:35
PROGRAM DEF INED VAR]IABLES

30(1046)
RKVEC:
RKPR]:

.WORD

.WORD
TRAPP(: .WORD
SRTFLG: .WORD

PAGE 1)

SEQ C043

JRK611
JRK611

210

PRS
0
0

;PC

VECTOR
PRIORITY

FOR MEMORY

;START FLAG

;

(HMECK ENABLE

TRAP

0 = 200

;=1

204

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WRD(NT: .WORD
SECCNT: .WORD
MEMPAR: . WORD
WAITIM: .WORD
SAVSWR: .WORD
: LWORD
PARPRE

0
0
0
O
0
O
0
0
0
15
0
O

003640

000000

(SRPITR:
.SBTTL

.WORD

PROGRAM SETUP

LOCAT]ION USED
:
JPOINTER TO CSR TO BE

003642
003650

012737
000406

000001

003600

PARM:

MOV

#1,SRTFLG

sLOAD START FLAG FOR PARMETER START

003€52
003660

012737
000402

177777

003606

RESTRT:

MOv

#-1,SRTFLG

;LOAD START FLAG FOR RESTART

003662
003666
003670
003674
003700
003704
003710

005037
000005
012796
004737
012746
012746
000002

003606

(LR

SRTFLG

;CLEAR START FLAG
JRESET THE WHOLE SYSTEM
JINITIALIZE STACK POINTER
2 INIT KEYBOARD
JLOAD STACK TO LOCK QUT ALL INTERRUPTS
;LOAD START OF PROGRAM
;LOAD PSW

¢ —
—

s g e

5TART
START1:

001100

046724
000340
003712

JNEXT BIT IN DATA SIMULATION

;PRESENT BIT IN DATA SIMULATION
JPREVIJUS BIT IN DATA SIMULATION

;BIT BEFORE PREVIOUS BIT
;BIT POSITION
WORD COUNT FOR NPR TRANSFER
:SECTOR COUNT

;MEMORY EMABLE ON FIRST 24K
:WAIT TIME FOR TONTROLLER READY

;STORAGE FOR SWIT(H REGISTER

JPARITY

START1

STARTI

RESETY
MOV

#STACK,SP

MOV

#PR7 ,=-(SP)

MOV
RT]

#1%,-(SP)

JSR

0C3712

PC,S$TKINT

OPTION PRESENT

FOR

USED

0011C2

003732
003740
003746
003754
003762
003770
003776
004004
004012

044220
000340
045146
000340
050556
000340
050420
000340
042414
001200

[olelelolelelalelele

e lole
o) (o]
-2 OO
—
YAV 1AV ]
NA
~ WO~
o NONO
e La¥o
Yo Yol

1¢:

063712
002716
003720
003724
003726

004020

000000
000000
000000
000000
000000
000000
000000
000000
000000
000015
000000
000000

T PD D

:
:
:
:
:
BITINT:

;ERROR COUNT FOR SWITCH 12 ABORT

002610
0C3612
003614
003616
003620
003622
003624
003626
003630
003632
003634
003636

TXOOM

N—20
— D

;1 = 214

[ e R R
R
e R e e )
wvwhorofuroroNorOND
ONNNNNNNN N
AN AN LN AN AN LA N AN AN N
SNONNNNNNNNYNY

2
7

(EOQ RK611 DSKLS CTRL PRT3
kP
27=AuG=81 1)]:24

LSBTTML
INITIALIZE THE COMMON TAGS
;. CLEAR THE COMMON TAGS ($(MTAG) AREA
NS(MTAG,R6
MOV
;FIRST LOCATION TO BE C(LEARED
(R6)+
(LR
;s CLEAR MEMORY LOCATION

001140

(MP
BNE

001100
000020
000022
000030
000032
000034
000036
000024
000026
042406

#SWR,R6

;;DONE?

;.LOOP BACK [F NO
;SETUP THE STA(K POINTER

Muv

#STACK,SP

MOV
MOV

#S$SCOPE.,a#IOTVEC

;;]0T

VECTOR FOR

#$ERROR,a#EMTVEC

;.EMT

VECTOR FOR ERROR ROUTINE

#STRAP,Q#TRAPVEC

;;TRAP VECTOR FOR

#$PWRDN,@#PWRVEC

;:POWER FAJLURE

JJINITIALIZE A FEW VECTORS
MOV
MOV
MOV
MOV
MOV

MOV
MOy

(LR

SCOPE

#340,9#]0TVEC+2 ;:LEVEL 7
#340,9#EMTVEC+2 ;;LEVEL

#3340,

TRAPVE(C+2;LEVEL 7

#3640, ,9#PURVE(+2 ;;LEVEL 7
SENDCT,SEOPCT
$TIMES

ROUTINE

TRAP CALLS

VECTOR

;:SETUP END=OF =PROGRAM (QUNTER
JoINITIALIZE NUMBER CF JTERATIONS

CZROCED RKG1Y DSKLS CTRL PRT3

TIR6E P

27-AuG=81 10:24

WMA(Y!? 30(1046)

INITIALIZE THE COMMON TAGS

2261
2262
2263
2264
2265
2266
2267
2268
2269

004024
004030
004036
004044

005037
112737
012737
012737

001202
000001
004036
004046

001115
001106
001110

004052
004056
004066

0137246
012737
012737

000004
004112
177570

000004
001140

2272
2273
22764
2275

004106

001012

2270
2271

004072
004100

004110
004112

012737
022777

000403
012716

177570
177777

001142
1750%

004120

004116
004120
004126
004134

000002
012737
012737
(12637

2281
2282
2283
2284

004140
004144
006152
004154

005037
132737
001403
012737

001222
000200

001235

001236

001140

2286

(04162

005037

003610

004166
004172
004174
004202
004204

005227
001047
022737
001443
104401

177777

004210
004214
004216
004224
004226
004234
004236
004240
004242

005737
001012
123727
001406
023727
001005
104406
000403
112737

2305
2306
2307
2308
2309

004250

000420

004312
004312
004316

005227
001002

2311
2312
2313
2314
2315

004326
004332
004336
004340
006366

022737
001122
104401
013746
104402

2285

2287

2288
2289
2290
2291
2292
2293
2296
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304

2310

c¥%

(004162

004250

004320

004634€

104401

106401

042550

001140
(01142

004252
000042
(001234

(00001

001740

000176

000001

001134

(052234
000007

052122
001270
052154

65%:

I ¥

67%:

003606

#DDISP,DISPLAY
#-1,3SwR

BR
MOV

65%
X658, (SP)

66%

;;AND A HARDWARE DISPLAY REGISTER
;;TRY TO REFERENCE HARDWARE SWR

..BRANCH IF NO TIMEOUT TRAP CCCURRED
JAND THE HARDWARE SWR [S NOT - -1
$:BRANCH IF NO TIMEOUT
$:SET UP FOR TRAP RETURN

RTI
MOV
MOV
MOV

;:POINT TO SOF TWARE SWR
#SWREG,SWR
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC ;;RESTORE ERROR VECTOR

('R
BI'B
BEQ
MOv

$PASS
NAPTSIZE ,$ENVM
67%
#$SWREG, SWR

;s CLEAR PASS COUNT
;.TEST USER SIZE UNDER APT
J2YES.USE NON-APT SWIT(H
;NO,USE APT SWITCH REGISTER

(LR

ERRCNT

;CLEAR ERROR COUNT FOR SWITCH 2 ABORT

TYPE PROGRAM NAME

;:TYPE THE NAME OF THE PROGRAM [F FIRST PASS
soFIRST TIME?
#-1
INC
BNE
68%
. :BRANCH IF NO
(MP
#SENDAD , Q442
JoACT=112
BEQ
68%
; ;BRANCH IF YES
TYPE
,69%
;. TYPE ASCIZ STRING
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
LY
;;ARE WE RUNNING UNDER XXDP/A(T?
BNE
70%
;.BRANCH IF YES
(MPB
SENV, M1
;;ARE WE RUNNING UNDER APT?
BEQ
708
;sBRANCH IF YES
(MP
SWR,#SWREG
;. SOFTWARE SWITCH REG SELECTED?
BNE
71%
;;BRANCH [F NO
GTSWR
;:GET SOFT-SWR SETTINGS
BR
71%
708%:
MOVB
#1,3AUTOB
;. SET AUTO-MODE INDICATOR
71%:

;:69%:
68%:

177777

PAGE 45

MOV
(MP

8NE

.SBTTL

000042

CLR
SESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
:sALLOW ONE ERROR PER TEST
#1,$ERMAX
MOVB
MOV
#.,$LPACR
;:INITIALIZE THE LOOP ADDRESS FOR S(OPE
MOv
#.,SLPERR
;SETUP THE ERROR LOOP ADDRESS
.SIZE FOR A HARDHARE SWITCH REGISTER. IF NOT FOUND OR IT [S
;EQUAL TO A ''=1"', SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
I#ERRVEC,~-(SP)
;;SAVE ERROR VECTOR
MOV
#64$,aNERRVEC
::SET UP ERROR VECTOR
MOV
#DSWR,SWR
;;SETUP FOR A HARDWARE SWICH REGISTER

64%:

2276
2277
2278
Ssgg

000176
000174
000004

28-AuG-81

10:35

¢€$:

5%:

BR
(ASCIZ

68%
GET OVER THE ASCIZ
<(RLF>/CIR6CEOQ RK611 DSKLS CTRL PRT3/<(RLF>

INC
BNE

”-1
63

JTEST [F FIRST PASS
:NO - SKIP

(MP
BNE
TYPE
MGV
TYPQO(

#1 SRTFLG
158
,0PROOY
$8ASE,~(SP)

JCHECK [F PARAMETER START
sNO, CONTINUE SETUP
;TYPE "RK611 BUS ADDRESS ¢
) -''
;o SAVE $BASE FOR TYPEQUTY
;G0 TYPE-=OCTAL ASCI](ALL DICITM<y

TYPE

,OPRO0O6

,OPROO?

;TYPE RUN TIME MESSAGE

SEG (044

004352
004354
004360
004362
004370
004372
004400

004404
004410
004414
004416
006422
004424
004430
004432
004440
006442
004450
004456
004462
004464
004470
004472
004474
004476
004500
004502
004504
004510
004512
004516
006520
004526
004530
004536
004540
004544
004550
004554
004560
004564
004572
004600
004606
004614
004622
00462€
004632

004636
004042
0040646

104412

MACY11

RDOCT
MOV

012637
001407
022737

001160
160000

001160

013737

001160
052162

001270

101361

104401

013746
042716
104402
104401
104412

001264

052154

001160

042737
053737
104401

017777
001160
052212

001264
001264

113716

0012¢5

104401
104412

012637
001430
022737
103753

10%:

007160

000004

001160

160000

001265
043712
001270
001202
00000(

004650

001264
001265
003600
003600

003602

;TYPE

$VECT1,-(SP)

;TYPE

#1600C0, (SP)

,OPR002

JCHECLK

#1000,$TMPO
7%

#17777 ,SVECTT
$TMPQ, SVECTI
.OPR0O0O4

<(R>

PRIORITY

JSHIFT 5 BITS RIGHT

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

(SP)

sGET VALUE

§§§)*.STMPO

sCHECK FOR DEFAULT
;CHECK IF LEGAL

#7,8TMPO
10%
#4 ,$TMPO

10%
$TMPO
$TMPO
$TMPO
$TMPO

$IMPO

T+
$TMPO,SVECT
$VECT1 ,RKVEC

PC,8SIZE

(LR

$BASE ,R?
$ESCAPE

MOV
MOV

#PR)
= (SP)
#TSTT,=(SF?}

RTI

:TYPE "RK611

=(SP)

;SHIFT S BITS LEFT

#160000,RKVEC(
SVECT1+1,RKPR]

MOV

ADDRLSS

;LOAD NEW VECTOR ADDRESS

BIC

JSR

VECTOR ADDRESS

VECTOR

JCHECK [F LEGAL

#160000,8VECT

MOV

"RK611

OUT

sGET VALUE

(SP)+,$TMPO
108

BIC
BISB
MOVB

NEWPAS:

;LOAD NEW BUS ADDRESS

,0PR0OO3

,0PR00?2

ASL
ASL
AS|
ASL
ASL

15%:

5%
$TMPQ, $BASE

TYPE

BEQ
CMP
8LO
CMP
BHI

JCHECK [F <CR>
sCHECK IF IN I/0 PAGE

#160000,8TMPO

SVECT1+1,(SP)

SEQ 0045

JGET VALUE

;iP)*,STMPO

MNVA
ASR
ASR
ASR
ASR
ASR

MOV

000007

001160
001264

TYPE

(LR

RDOCT

001160

160000

BEQ
(MP
BLOS
BI(
BIS

TYPO(

052154

001160
001160
001160
001760
001160

TYDE
MOV

TYPQOC
TYPE
RDOCT
MOV

001000

006216
006216
006216
006216
006216
104402

7%:

MOV

RIC

001160

005046

BEQ
CMP
BHI

160000

012637
001412
022737
101757

G &
30(1046)
28-AUG-81
10:35
PAGE 46
GET VALUE FOR SOFTWARE SWITCH REGISTER

—_—

[V
F o WA

-0

N N AN N AN AN U

oo [0 X0 X

v
Al

W AR NO RO PO RO NI NI N NI
= - s
SO0
NO NS W
200~y

LA N N N N N N N NN N N N N N N N N NN N NN N N N
N NN N
N NN AN AN N NN

&~ BB
B
NN NN NN
Xo AV VAV IV IV, TW RV
1V
,] (Y P
2OV
N NHWNI OO0~ fo W
2OV
NN
WN

1N 1, U1,V 1,01 ST, N 1 W1, N1 VT, U1 ST, 0T, ST S LN TN T, N
N1, NY .V 1L V], V1, V1.V, V1, V1, VT, ST N1 ST, 01,01, §1

~ ~

ST, 1, U1, N1,01 ST ST,V 1, ST, ST VT, ST N TSR oI«.

?6‘1 DSkLS CTRL PRT3
27=AUG=81 10:24

:STORE NEW PRIORITY
;STORE RK611

VECTOR

;STORE PRIORITY
s SIZE MEMORY

JSET RK611 BASE
;CLEAR ESCAPE
JALLOW ALL

INTERRUPTS

(

)

(

)

(ZR6CEO Rk611
TIR6CE.PN

DSKLS CTRL PRT3
27=AuG=81 1J:2¢4

MACY1T

H
&
30(1046)
28-AUG-81
'0:35
PAGE 47
*+DRIVE MESSAGES FOR (LASS B INSTRUCTIONS

2369
2370
237
2372
2373
2274
2375

*«DRIVE MESSAGES FOR CLASS B INSTRUCTICNS

ANR
AR
SRRl RARllllRRRRRdRRRRR
Rl
RS AN

012700
012762
012762
005300
001370
016237
016237
016237
012737
012737
012737
023737
001405
104001
012762
000412
023737
001401
104002
023737
00140
104003

000016
000440
000040
000060

000034
000036
012025

071027
037760
003500

000000
000026

000020

*
%

N,
%,

004730
004734
004742
004750
004752
004754
004762
004770
004776
005004
005012
005020
005026
005030
005032
005040
005042
005050
005052
005054
005062
005064

001200

X
B

2393
2364
2395
2396
2397
2398
2399
26400
2401
2602
2403
2604
2405
2406
2407
2608
2609
2410
26411
26412
2613
2414

000144
001270
100000
000040
001777
003400
000007
012025

%
»

000004
012737
013702
012762
012762
012762
012762
012762
012762

READ HEADER SEEK MESSAGE

THE

HEAD

CONTROLLER WITH A CONTROLLER CLEAR.

RK611

CONTROLLER

DRIVE

SET.

REPEAT

IN DIAGNOSTIC MODE.

A READ HEADER TO AN RKO6 IN 26 SECTOR FORMAT,
VERIFY

MESSAGE

CLOCK

THAT A SEEK

IN SEEK MESSAGE

INTO

[SSUE

CYLINDER 0.

SHIFT

IS LOADED WITH THE PROPER BITS
FOR A

READ HFADER WITH

(DT

SET

IN 24 SECTOR FORMAT, CYLINDER 1777, HEAD 7, DRIVE

R ARESN]
Ty T
T R L E 2R

ST1:

SCOPE

#100. ,8TIMES

MOV
MOV

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

MoV
MOV

Mov

#3400 ,RKDA(R2)
;LOAD TRACK
#7 RK(S2(R2)
sLOAD DR]VE NUM.
#CDT!CFMT!RDHEAD ,RKCST(R2)
;ISSUE RDHEAD WITH (DT SET

MOV
MoV

#3+4+2 RO
;CLOCK
ADMD .MCLK ,RKMR1(R2)

IN DRIVE MESSAGE

Mov

#(DT!CFMT!RDHEAD,E.CST

;LOAD EXPECTED (S1

$BASE ,R2

MOV

000000

1%:

003440
003466
003470

0032090

003526
003530
003440

100000

000000

003526

003466

2%:

003530

003470

3%:

;.00 100. ITERATIONS
;LOAD RK611 BASE

MOV

000006
000010

000026
000026

(LEAR THE RK611

PUT

0.8,

2388
2389
2390
g%g}

004650
004652
004660
004664
004672
004700
004706
004714
0047c2

% e B,

2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387

.SBTTL

TRTEST 1

2376

SEG C04¢

;CLEAR RK611
;PUT RK611 IN DIAGNOSTIC MODE

#1777 ,RKDCYL(R2)" ;LOAD CYLINDER ADDRESS REG.
s

MOV
DE(
BNE
MOV
MOV
MOV

24 SECTOR FORMAT

#DMD ,RKMR1 (R2)
RO
1%
RKCST1(R2),T.CS1 ;STORE COMMAND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2 (MESS A)
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3 (MESS B)

MOV
MOV
(MP
BEQ
ERROR
MOV
BR
CMP
BEQ
ERROR
CMP

BEQ

ERROR

#5S.SEEK!S.FMT!70007
,E.MR2
;LOAD EXPECTED MR?
#37760,E.MR3
JLOAD EXPECTED MR3
E.CST1,T.751
sCHECK COMMAND AND STATUS REG.
2%
;YES, CHECK MESSAGE A
1
;CS1 INCORRECT
#CCLR,RKCST1(R2) ;CLEAR Rk611
TST2
;.60 TO NEXT TEST
E.MR2,T.MR?
sCHECK MESS A (ORRECT
3$
JYES, (HECK MESSAGE B
2
JMESS A INCORRECT
E.MR3,T.MR3
sCHECK MESS B CORRECT

TST?2

;. YES, GO ON TO NEXT TEST

;MESS B INCORRECT

:;tttttt'tt'Qttttttttt'."'t'it'ttttttt!ttttttttt"ttttttttttt-nn

JrTEST 2
N
ot
A
.t
it
:

WRITE HEADER SEEK MESSAGE
CLEAR RK611 WITH A (ONTROLLER CLEAR.
PUT (ONTROLLER
IN DJAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN Rk06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
"LOCK IN SEEK MESSAGE INTO SHIFT REGISTER.
VERIFY
"HAT A SEEK IS LOADED WITH THE RTC BIT SET.
REPEAT

FOR

WRITE

WEADER

WITH

(DT

SET

SECTOR

FORMAT,

(ORRECT

CZRECED RK6TM1 DSKLS CYRL PRT3
CIR6CE.PI
27=-AUG=81 10:24

MACY11

5252

2L27
2628
2429
243C
2431
2432

005066
005070
005076
005102
005110

(00004
012737
013702
C127¢2
C1..702

000144
(01270
100000
000040

001200

2634
2635
2436

005124
005132
005140

21¢762
012762
C'276c

(03400
0¢0007
012027

000006
000010
00000V

2438
2439
26640
2641
2642
2463
2644

005146
005152
005160
005166
005170
005172
005200

012700
012762
012762
005300
001370
016237
016237

000016
000440
000040

000026
000026

000000
000034

2666

005214

012737

012027

005236

023737

26433

24637

2445

2647
2448

2449

2650
2651
26452
2453
2654
26455
26456

2457
2658
5228

4
[
30(1046)
28-AUG-81
10:35 PAGE 48
T
WRITE HEADER SEEK MESSAGE

0C5116

005206

005222
005230
005244
005246
005250
005256
005260
005266
005270

005272
005300
005302

Q12762

016237

012737
012737

001405
104004
012762
000412
023737
001401
104005

023737
001401

001777

000036

071227
037760

003500

000000
000026

000020

SEG (047

CYLINDER 1777, HEAD 7, DRIVE 7.

:-'-Qtttttttttt'fltttnttt'tttttttttt'tttttt'tt"ittt'Qtthntttnlttt't
1S12:
SCOPE
MOV
#100.,8TIMES
;:D0 100. ITERATIONS
MOV
$BASE ,R?
;LOAD RK611 BASE
MOV
#CCLR,RK(ST1(R2) ;CLEAR RK611
MOV
#DMD _RKMR'(RZ2)
;PUT RK611 [N DIAGNOS
IC MODE

Mov

01777,RKDCYL(R2)

;LOAD CYLINDER ADDRESS REG.

MOV
MoV
MoV

#3400,RKDA(R2)
;LOAD TRACK
#7 RK(S2(R2)
;LOAD DRIVE NUM,
#CDT!CFMT!WRHEAD ,RK(S1(R2)
;ISSUE WRHEAD WITW (DT SET

003440
003466

MOV
MOV
MOV
DE(
BNE
MOV
MOV

#324+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1
(R?2)
#DMD ,RKMR1(R2}
RO
1%
RKCST1(R2),T.CS1 ;STORE COMMAND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2 (MESS A)

003500

MOV

#(DT!CFMT
! WRHEAD ,E.CS1

C(MP

E.CST1,T.CST

1%:

003470

MmNV

003526
003530

MOV
MOV

003440

100000

000000

003526

003466

¢$:

003530

003470

3%:

24 SECTOR FORMAT

-LOAD EXPECTED (S1

lS.SEEK!S.RTC!S.FMT!70007,E.MR2 :LOAD EXPECTED MR?
#37760,E.MR3
:LOAD EXFECTED MR3
JCHECK COMMAND AND STATUS REG.

2%
4
#CCLR,RK(ST1(R2)
TST3
E.MR2,T.MR?
3%
5

JYES, CHECK MESSAGE A
2CS1 INCORRECT
;CLEAR RK611
2.G0 TO NEXT TEST
JCHECK MESS A CORRE(CT
JYES, CHECK MESSAGE B
JMESS A INCORRECT

BEQ
FRROR

JMESS B INCORRE(CT

E.MR3,T _.MR3
TST3

gzg%

;*TEST 3

2464

CLEAR Rk611

Szgg

GENERATED AND THE PROPER BITS ARE SE”.

ot
M
.t

2470
2471
26472
2673

00530¢
005306
005314

000004
012737
013702

000144
001270

2475

005326

012762

000040

2477

005342

012762

003400

2474

2676

2478
2479

2480

005320

005336

005350
005356

012762

(012762
012762

Q001200

100000

000000

001777

000020

000007
012025

000026

000006

000010
000000

RN R R R AR A P

N R R

1 CORRECT

JCHECK MESS B CORRE(CT
J.YES, GO ON TO NEXT TEST

2461

2465
2466
2667

R AN

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

BEQ
ERROR
MOV
BR
CMP
BEQ
ERROR

CMP

104006

;

R AN R A AN R A AR R

AN R P

R AN RN AN RN AN

AR R TR

READ HEADER DRIVE CLEAR MESSAGE
WITH A (ONTROLLER CLEAR.,

PUT

CONTROLLER

IN DIAGNOSTIC MODE.
]SSUE A READ HEADER WITH (DT SET
IN 26 SECTCR FORMAT, CYLINDER 1777, HEAD 7, DRIVE 7.
CLOCK SEEK MESSAGE AND MAKEt SURE A DRIVE CLEAR IS

:-;ntt-t-ttttnt.ttttttttt"tttttttttnt'tnttntttttnt'n--"tt:-.-'tn
T5T3:
SCOPE
MOV
#10C. ,$TIMES
;:D0 100. ITERATIONS
MOV
$BASE ,R?
;LOAD RK611 BASE
MOV

#CCLR,RKCST(RZ)

MOV

11777,RKDCYL(R2)

MOV
MOV

#DMD RKMR1(R2)
#3400,RKDA(R2)

;CLEAR RK6

;PUT RK611

IN DIAGNOST]C MOCDE

JLOAD CYLINDER ADDRESS REG.

;LOAD

TRACK

#7 Rr.(S2(R?2)
;LOAD DRIVE NUMBER
#CC"!CFMT
RDHEAD ,RKCST(R2)
;]SSUE COMMAND W]'TMH (DT SE~
;24 SECTOR FORMAT

CZRGCEQ RK611 DSKLS CTRL PRT3
CIR6CE.P1T
27-AUG~-81 10:24

26481
2482
2683
26484
2485
2486
2487

005364
005370
005376
005404
005406
005410
005416

2493

005460

2488
2489
2490
26491
26492

012700
012762
012762
005300
001370
016237
016237

0054264
005432
005440
005446
005452

016237
012737
012737
005037
023737

2694
2695
2496
2497
26498
26499

005462
005464
005472
005476
005502
005504

104007
012762
000412
023737
001401
104010

2501
Sgg%

005514
005516

001640
104011

2500

005506

001405

023737

000156
000440
000040
000000
000034
000036
012025
0714607
003530
0035060

VACY11

000026
000026

&
J
30(1046)
28-AUG-81
10:35
PAGE 49
T3
READ HLADER DRIVE CLEAR MESSAGF

MOV
MOV
MOV
DEC
BNE.
MOV
MOV

18%:

003440
003466
003470
003500
003526
003440

GOC000

003526

003466

.
2%:

003530

003470

23%:

5282

tTEST 4

=0
OO0

A 12V

(9, 1V,

2511
Sg;%
2514

ERROR
MOV
B8R
P
BEQ
ERROR

7
#CCLR,RKCST(R2)
TST4
E.MR2,T.MR2
3
10

;CST INCORRECT
;CLEAR RK611
;G0 TO NEXT TEST
;CHECK MESS A CORRE(T
JYES, CHECK MESS B
JMESS A INCORRECT

BFQ
ERROR

TST4
1!

2:YES, GO ON TO NEXT TEST
JMESS B INCORRECT
CLEAR MESSAGE

ISSUE A WRITE HEADER WITH (DT SET

:t'fittt.tttltti!ttttt"""ttt'fiiit'ttt.fi'fitit..tltt'!t.t'tttttt

000000
000026

2521

005556

012762

003400

000006

MoV

005550
005564

005572

012762
012762
012762

2525
2526
2527
2528
2529
2530
2531

005600
005604
005612
005620
005622
005624
005632

012700
012762
012762
005300
001370
016237
016237

2533

005646

012737

2535
2536

RN R A NN RN RO RO RS

CLOCK SEEK MESSAGE AND LOAD GENERATED DRIVE CLEAR
INTO SHIFT REGISTER.
MAKE SURE THE DRIVE CLEAR IS
GENERATED AND THE PROPER BITS ARE SET.

SCOPE
MOV
MOV
MOV
MOV

2534

AR AR A AR R AR A AN AN NA N AR R R

IN DJAGNOSTIC MODE.

000144
001270
100000
000040

2532

T TR

IN 24 SECTOR FORMAT, CYLINDER 1777, HEAD 7, DRIVE 7.

000004
012737
013702
012762
012762

2523
2524

JCHECK MESS B CORRE(TY

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER

005520
005522
005530
005534
005542

2522

E.MR3,T.MR3

JYES, CHECK (S2

WRITE HEADER DRIVE

2515
2516
2517
2518
2519

2520

RN AR AN N A A AR A AR
llnl'tll

2507

RKMR3(R2),T.MR3 ,STORE MAINT, REG. 3 (MESS B)
#CDT!(FMT. RDHEAD E.CST
LOAD EXPECTED (S1
#S.CLRI!IS.FMT, 70007 E. MR2
JLOAD EXPECTED MAINT REG. 2
E.MR3
JLOAD EXPECTED MAINT REG.
E.CST1,T7.CH
:CHE(K COMMAND AND STATUS REC 1 CORRECT

C(MP

2504

#27.+4+2 RO
sLOAD COULNT Y0 LOAD DRIVE CLEAR
#DMD 'MCLK ,RKMR1T(R2)
#DMD ,RKMR1(R2)
RO
1%
RKCS1(R2),T.(S1 ;STORE (OMMAND AND STATUS REG. 1
RKMR2(R2,,T.MR2 STORE MAINT. REG. 2 (MESS A)

MOV
MOV
MOV
(LR
(MP

BEQ

100000

SEQ (0048

005640

005654

005662
005666

001777
000007

012027

TST4:

000020
000010
000000

000156
000440
000040

000026
000026

000000
000034

003440
003466

Mov

#7 RK(S2(R2)

012027

003500

003530
003500

003440

(LR
(MP

000036

012737

071407

003470

003526

::D0 100. ITERATIONS
sLOAD RK611 BASE
;CLEAR RK611
:PUT RK611 IN DIAGNOST!IC MODE

#1777 ,RKDC. L (R2)" ;LOAD CYLINDER ADDRESS REG.

MOV

18%:

#100.,8$TIMES
$BASE ,R?
#CCLR,RKCST1(R2)
#DMD RKMR1(R2)

MOV

MOV
MOV
MOv
DEC
BNE
MOV
MOV
MOV
MOV

016237

005037
023737

001200

MOV

#3400,RKDA(R2)

;LOAD TRACK

:LOAD DRIVE NUMBER

#CDT!CFMT!WRHEAD ,RKCST(R2)
;ISSUE COMMAND WITH (DT SET
:
24 SECTOR FORMAT

w27 .%4+2 ,R0
;LOAD COUNT TO LOAD DRIVE CLEAR
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKCST1(R2),T.(S1 .STORE COMMAND AND STATUS REG.
RKMRZ2(R2),T.MR2 ;STORE MAINT. REG. 2 (MESS A)

£.MK3
E.CST,T.(S1

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

#CDT!CFMT WRHEAD E.CS1

#S.C R'S.FMT170007,6,MR2"

(MESS B)

;LOAD EXPECTED (S1

;LOAD EXPECTED MAINT REG. 2

;LOAD EXPECTED MAINT REG.
JCHECK COMMAND AND STATUS REG 1

(ORKE(T

OO0~y

& 0T e o)
OO

DSKLS CTRL PRT3
27~AUG-81 10:26

005674
005676
005700
005706
005710

001405
104012
012762
000412
023737

005720
005722
065730
005732

104013
023737
001401
104C14

005716

001401

MACY11

100000

000000

003526

003466

003530

003470

CONOWNE WOV

VOIS NN

[V LV RV, LW AN RV, LV, AN RV A AV A VALY IV LV, LV, RV, IV, IV, (W, [V, [V, IV I
v (VL IV AV
VL TV LV IV Pl
SIS0 B PSANNN

[ X

ooV
DNV NNV

O RK611
P11

30(1046)
T4

K
&
28-AuUG-81
10:35
PAGE 50
WRITE HEADER DRIVE CLEAR MESSAGE

28%:

BEQ
ERROR
MOV
BR
(MP

2%
12
#CCLR,RKCST(R2)
TSTS
E.MR2,T.MR?

JYES, CHECK (S2
;CS1 INCORRECT
;CLEAR RK611
;.60 TO NEXT TEST
sCHECK MESS A CORRECT

ERROR
CMP
BEQ
ERROR

13
E.MR3,T.MR3
TSTS
14

JMESS A INCORRECT
sCHECK MESS B CORRECT
;. YES, GO ON TO NEXT TEST
sMESS B INCORRECT

BEQ

38:

.SBTTL

SeTEST S
o

T RARRANARNARNARAANARRNNRRNRRNAANR
AN R AN RS

SECTOR PULSE DETECT IN READ HEADER (PART 1)

)

‘e

JYES, CHECK MESS B

««INDEX AND SECTOR PULSE DETECT ON

PP RAANAREA RN AR RARANN AN AR

SEQ 0049

CLEAR RK611 WITH A CONTROLLER CLEAR.
IN DIAGNOST]IC MODE.

PUT CONTROLLER

!SSUE A READ HEADER TO AN Rk(06

IN 26 SECTOR MODE, CYLINDER 0, HEAD 0, DRIVE O.

C1OCK BOTH SEEK ANY DRIVE CLEAR MESSAGES.

SIMULATE SECTOR PULSE, 255 ZEROES AND A ONE.

MAKE SURE READ GATE DOES SET.

(R1

;:tttttt't'ttitttttli‘*ttittttttttttlttttitttt.tttttttttt"tttttt
005734

005736

005744
005750
005756
005764
005772
006000

006006

000004

012737

013702
012762
012762
012762
012762
012762

012700

006012
006020
006026
006030
006032
006u40
00046
006054
006056
006060

012762
012762
005300
001370
016237
012737
023737
001405
104015
012762

006070
006076
006104

012762
012762
012737

006066

006112
006316
006122
006126
006132
006136

000553

005037
005037
005037
012700
004737
016237

000012

001270
100000
000040
000140
000040
000025

000312

001200

000026
000026

000000
000025
003500

003440
003500
003440
.

100000

.000000

000140
000040
022040

000026
000026
0032
[

003464

SCOPE

MOV

#10.,$TIMES

::DO 10.

MOV

#50.%4+2,R0

:CLOCK UNTIL READY FOR SECTOR PULSE

MOV
MOV
MOV
MOV
MOV
MGV

000000
000026
000026
000025
000000

000440
000040

003622
0036714
003616
000200
043540
000026

*S1S:

18%:

MOV
MOV
DEC
BNE
MOV
MOV
CMP
BEQ
ERROR
MOV

#DMD 'MCLK ,RKMR1 (R2)
#DMD _RKMR1 (R2)
RO
18
RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG.
#RDHEAD ,E.CST
:LOAD EXPECTED CS1
E.CST,7.CS1
:CHECK COMMAND AND STATUS REG.
28
“YES, CLOCK ZEROES
15
+CS1 INCORRECT
#CCLR,RKCST(R2) :CLEAR RK611

MOV
MOV
MOV

#DMD 'MSP ,RKMR1(R2)
:SIMULATE SECTOR PULSE
#DMD _RKMR1 (R2)
#OMD 'MEWD!ECCW,E.MRT
:LOAD EXPECT MAINT REG. 1
BITCNT
SINITIALIZE BIT COUNT
PR.BI1
“INITIALIZE PRESENT AND PREV]IOUS
M1.BIT
2
BITS 10 GENERATE ZEROES
#128. RO
*GENERATE 128 ZEROS UNTIL REAL GATE
PC,RDBIT
*READ A ZERO
RKMR1(R2),T.MR1 -STORE MAINT REG. !

B8R
2%:

ITERATIONS

$BASE ,R2
*LOAD RK611 BASE
#CCLR.RKCST(R2) :CLEAR RK611
#DMD ,RKMR1(R2)
:PUT RK611 IN DIAGNOSTIC MODE
#DMD iMSP _RKMR1(R2)
:INITIALIZE ROM ADDRESS
#DMD .RKMR
1 (R2)
#RDHEAD ,RKCST(R2)
;ISSUE READ HEADER

CLR
(LR
CLR
MOV
JSR
MOV

1ST6

1
1

CORRECT

2:60 ON TO NEXT TEST

CZR6CED RK611 DSKLS CTRL PRT3
CZR6CE.PN
27-AUG=81 10:24

2628

2529
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645

006244
006250
006252
006254
006262
006266
006274

006302
006304
000306
006314
006316
006322
006330
006334
006340
006346
006354
006356
006360
006366
000370
006376
006404
006412
006414

012762
000514

100000

000000

005237
005300
001356
012737
012700
004737
016237
023737
001405

003622

104017

104017
012762
000465

122040

000177
043540
000026
003524
100000

6%:

003524
003464
003464

003622
000001
043540
000026
003524

003464
003464

012762
000440
005237
013737
005037
004737
016237
023737
001405

100000

000000

104017

013622
003614
003614
043540
000026
003524

BITCNT
RO

JSR
MOV

PC,RDBIT
RKMR1(R2),T.MR1

MOV

(MP
BEQ

003614

003616

012762
000413

000000

016237
012737
023737

000000
000025
003500

003440
003500
003440

;LOAD EXPECTED MR1

#127..,R0

;GENERATE 127 ZEROS

E.MR1,T.MR1
118

;CHECK MAINT REG. 1 CORRECT
:YES, SIMULATE NEXT BIT

JREAD A ZERO
;STORE MAINT REG.

E.MR1,T.MR1

12%
17
#CCLR,RKCST(R2)

;CHECK MAINT REG. 1

INC

BITCNT

#1,PR.BIT
PC,RDBIT
RKMR1(R2),T.MR1

TST6

:MAINT REG. 1
;CLEAR RK611

BEQ
ERROR
MOV

INCORRECT

260 ON TO NEXT TEST

:LOAD ONE FOR READING 1
;READ A ONE
;STORE MAINTENANCE REG.

JYES, CONTINUE
JMAINTENANCE REG.
;CLEAR RK611

INCORRECT

;:GO ON TO NEXT TEST

:INCREMENT BIT COUNT

PR.BIT,M1.BIT
PR.BIT
PC.RDBIT
RKMR1(R2),T.MR1

:SIMULATE ZERO
;STORE MAINTENANCE REG.

ERROR
MOV
BR

17
#CCLR,RKCS1(R2)
TST6

JMAINTENANCE REG.
;CLEAR RK611
J:G0 TO NEXT TEST

MOV
MOV

RKCST(R2),T.CST1
#RDHEAD ,E.CS?

BEQ

TST6

ERROR

:NO, CONTINUE

#DMD 'MEWD 'ECCW'RDGATE
,E.MRT

:INCREMENT BIT COUNT
;CHECK IF ALL ZEROS ISSUED
;NO, CONTINUE

(MP

104016

; INCREMENT BIT COUNT
;CHECK READY OF READ OGATE

BITCNT
RO
108

MOV
CLR
JSR
MOV

CORRECT

TEST

INC
DFC
BNE
MOV
JSR
MOV

(MP
BEQ

13$:

;CLEAR RK611
;:G0 ON TO NEXT

17
#CCLR,RKCST1(R2)
TST6

B8R

003464
003464

;CHECK MAINTENANCE REG. *
:YES, SIMULATE NEX'TM BIT
IMAINT REG. 1 INCORRECT

ERROR
MOV
BR

(mMp

E.MR1,T.MR1
13%

E.CST,T.CS1

:LOAD ZERO FOR NEXT BIT

:CHECK MAINT REG. 1
:CHECK £S1 CORRECT

CORRECT
INCORRE(T

;STORE COMMAND AND STATUS REG.
:LOAD EXPECTED (CS1

JCHECK CSY CORRECT
J;YES,

;CS1

GO TO NEXT

INCORRECT

TEST

2222222202232
2R RRRRRRRRRRRRRRRRRSRRRRRRRRRRRRNE 2]

TRTEST 6

2646

2647
2€48

INC
DEC
BNE
MOV

1'¢:

100000

001401

#CCLR,KKCST(R2)
TST6

10%:

12%:

E.MR1,T.MR1
6%
17

MOV
BR

000000

005237
005300
001356
012737
004737
016237
023737
001405
104017

(MP
BEQ
ERROR

SEQ 0050

SECTOR PULSE DETECT IN READ HEADER (PART 2)

2622
2623
2624
2625
2626
2627

006176
006204
006210
006214
006222
006230
006232
006234
006242

003464

2618
2619
2620
2621

006174

003524

267

006166
00€172

023737
001405

2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616

006144
006152
006154
006156
006164

4
L
10:35
PAGE 51
28-AUG-81
SECTOR PU.SE DETECT IN READ HEADER (PART 1)

30(1046)
15

2593
2594
2595
2596
2597
2598
2599
2600
2601

MACY11

PUT CONTROLLER
CLEAR RK611 WITH A CONTROLLER CLEAR.
ISSUE A READ HEADER TO AN RKO06
IN DJAGNOSTIC MODE.

IN 26 SECTOR MODE, CYLINDER O, HEAD O, DRIVE O.

(LOCK BOTH SEEK ANY DR]JVE CLEAR MESSAGES.

SIMULATE INDEX PULSE, 255 ZEROES AND A ONE.

CZR6CEO RK611 DSKLS CTRL PRT3
CZR6CE.PY
27-AUG=-81 10:24

2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704

MAKE

SEG 0051

SURE READ GATE DOES NOT SET.

006432
006440
006446
006456
006462
00e670

006474
00650¢
006510
006512
006514
006522
006530
006536
006540
006542
006550
006552
006552
006560
006564
006572
006600
006602
006604
006612
006616
006624
006630
006634
00€640
006644
00665¢
006660
006662
00ct64
006K/72

006674
006700
006702
006704
006712
006716
006724
006732
006734
006736
006744

N NO S NNMNVWWSNN N SN NNNSNNNO
WO = OWWNNOOITOTOTOONONOWO
VNN NN NOOMNNIOMNININININN
NS

:'.'Qtt"titt.t'.fifii.‘tt""tt.tt"tQt'tll't*it*'ttfittt't'ttttti"'
006416
006420
006426

NNN
o~ OO

2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
¢680
2681
2682
2683
2684
2585
2686
2687
2688
2689
2690
2691
2692

30(1046)
28-AUG-81
10:35 PAGE 52
Té
SECTOR PULSE DETECT IN READ HEADER (PART 2)
- %

no ON)

2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660

MACY1

000012
001270
100000

000040
000140
000040
000025
000312
000449

005237

000000
000000
000026
000026
00000C

000040

000026
000026

000000
000025
003500

003440
003500
003440

100000

000000

000240
000004
000640
000240

000026

010040
003622
022040
003614
003¢€16

000026

000377
043540
000026
003524

000464

001200

100000

000026
000026

003464
003464

1$:

#10.,$TIMES
$BASE ,R2
#CCLR.RKCST1(R2)
#DMD ,RKCST(R2)

MOV
MOV

#DMD .RKMR1 (R2)
#RDHEAD ,RKCST(R2)

MOV

MOV
MOV
DEC
8NE
MOV
MOV

CMP
BEQ
ERROR

;ISSUE READ HEADER

#DMD 'MCLK ,RKMR1
(R2)
#DMD
. RKMR1 (R2)
RO
1%
RKCS1(R2),T.CS1 :STORE COMMAND AND STATUS REG.
#RDHEAD ,E.(ST
;LOAD EXPECTED (S1

E.CST,T.CS1
2%
15

"CHECK COMMAND AND STATUS REG.
“YES, CLOCK IN ZEROS

1ST7

1:G0 ON TO NEXT TEST

MOV

#DMD .MIND .RKMR 1 (R2)

MOV

:INITIALIZE ROM ADDRESS

SCLOCK UNTIL READY FOR SECTOR PULSE

#DMD 'MIND ,RKMR1(R2)
#4 RO

CORRECT

;CLEAR RK611

;SIMULATE

INDX PULSE

#DMD . MIND .MCLK ,RKMR1(R2)
RO
38

MOV

¥DMD ,RKMR1(R2)

MOV
CLR
(LR
MOV
JSR
MOV
CMP

#DMD 'MEWD 'ECCW,E.MRT
:LOAD EXPECTED MAINTENANCE REG.
PR.BIT
SINITIALIZE PRESENT AND PREVIOUS
M1.BIT
2"
BITS TO GENERATE ZEROS
#255. .R0
*GENERATE 255 ZEROES
PC.RDBIT
‘READ A ZERO
RKMR1(R2‘,T.MR1 :STORE MAINTENANCE REG. 1
E.MR1,T.MR1
*CHECK READ GATE NOT SET

BITCNT

SINITIALIZE BIT COUNT

'READ GATE NOT SET SIMULATE NEXT BIT

MOV

#CCLR,RKCST(R2)

-1SSUE CONTROLLER CLEAR

INC
DEC
BNE

BITCNT
RO

- INCREMENT BIT COUNT
SCHECK IF ALL ZEROES ISSUED
*NO, CONTINUE

BEQ
ERROR

7%
20

*YES, CONTIMUE
*MAINT REG. 1 INCORRE(CT

ERROR

003524

003464
003464

MOV
JSR
MOV
CMP

100000

000000

MOV

000026

#50.«4+2,R0

MOV
MOV

BEQ

6% :

#DMD 'MSP,RKMR1(R2)

#CCLR,RKCST(R2)

CLR

5¢:

;:D0 10. ITERATIONS
*{0AD RK611 BASE
:CLEAR RK611
-PUT RK611 IN DIAGNOSTMIC MODE

MOV

DEC
BNE

000000

003614

SCOPE

MOV
MOV
MOV
MOV

MOV

00324

003622

000001
043540

T§T6:

B8R

T1ST7

#1.PR.BIT
PC RDBIT
RKMR1(R2),".MR'
E.MR1,T.Mf1

#CCLR,RKCST(R2)

1ST7

"MAIN" REG. 1

INCORRECT

1260 ON TO NEXT TEST

“LOAD ONE FOR READING 1
‘READ A ONE
:STORE MAINTENANCE REG. 1
*CHECK READ GATE NOT SET

:I1SSUE CONTROLLER CLEAR

1:60 ON TO NEXT TEST

E%RbCEO RK611 DSKLS CTRL PRT3

R6CE.P1T

27-AUG=-81 10:24

MACY 3?é1046)

2705
2706
2707
2708
2709
2710
2711
2712
g;}g

006746
006752
006760
006764
006770
006776
007004
007006
0G7014

005237
013737
005037
004737
016237
023737
001404
012762
000613

003622
003614
003614
063540
000026
003526

100000

000000

2715
2716
2717

007016
007024
007032

016237
012737
023737

000000
000025
003500

00344C
003500
003440

2718
S;;g

007040
007042

001401
104016

003616

7%:

003464
003464

2724
2725
2726
2727
S;Sg

M
*
*
*

)
5%(1
2732

2733
2734
2735
2736
2737
2738
2739

007044
007046
007054
007060
00706¢
007074
007102

000004
012737
013702
012762
012762
012762
012762

2741

007116

012700

27640

2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
275%

2754

2755

2756

001200

000440
000040

000026
000026

000000
000025
003500

003440
003500
003440

012762
000515

100000

000000

007200

005037

00362

007212

005037

003614

007122
007130
007136
007140
007142
007150
007156
007164
007166

007170
007176
007200

0072064

2757
2758

007216
007222

c760

007232

2759

MoV
MOV
(MP

RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
#RDHEAD ,E.(S?
;LOAD EXPECTED (S1
JCHECK CS1 CORRECT
E.CS1,T.CST

N RN

00722§

012762

012762
012762
005300
001370
016237
012737
023737
001405
104015

012737

005037
012700

004737

(016237

1S17
1€

RN AR R AR RN RPN LA RN

SEQ 0057

s INCREMENT BIT COUNT
;LOAD ZERO FOR NiX'T BIT

sSIMULATE ZERO
,;STORE MAINTENANCE REG. 1
;CHECK MAINTENANCE REG. 1 CORRECT
;CHECK CS1 CORRE(CT
,CLEAR RX611
260 TO NEXT 1EST

JoYES, GO TO NEXT TEST
2CS1 INCORRECT

RN R AN

AR RN AR

RAR RN T AN R AR RN AT N RO RN

SECTOR PULSE DETECT IN READ HEADER (PART 3)

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
DIAGNOSTIC MODE. ISSUE A READ HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CHECK MESSAGES.
SIMULATE 255 ZEROES AND A ONE.

MAKE SURE READ GATE DOFS NOT SET.

:-;-qtt-t--t-tttt-tnqntttnttn-nattttt-tttnntat-'ttt'tt-tt-tnttt't

000012
011270
100000
000040
000140
000040
000025

007110

PAGE 53

BITCNT
PR.BIT M1.BIT
PR.BIT
PC.RDBITY
RKMR1(R2),T.MR1
E.MR1,T.MR1
12 ]
#CCLR,RKCST(R2)
1817

JeTEST 7

INC
MOV
CLR
JSR
MOV
(mpP
BEG
MOV
BRR

BEQ
ERROR
AN

10:35

SECTOR PULSE DETECT IN READ HEADER (PART 2)

93:

2721

g;gg

28-AUG-81

000312

022040

000000
000000
000026
000026
000000

000026

18$:

2%:
003524

003616
000377
0463540

1317

C[034cts

SCOPE
MOV
MOV
MOV
MoV
MOV
MOV
MOV

#10.,$TIMES
2:D0 10. ITERATPONS
$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKCST1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#DMD 'MSP _LRKMR1(RZ)
;INITIALIZE ROM ADDRESS
#DMD ,RKMR1 (R?2)
#RDHEAD RKCST1(R2)
;ISSUE READ HEADER

MOV
MOV
DEC
BNE
MOV
MOV
{mMp
bEQ
ERROR

#DMD 'MCLK ,RKMRT(R?2)
#DMD ,RKMR1 (R2)
RO
1$
RKCST(F2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
#RDHEAD E.(S1
;LOAD EXPECTED (S1
E.CSY,T.CS1
;CHECK COMMAND AND STATUS REG. 1 CORREC(CT
2%
JYES, CLOCK [N ZEROS
15

MOV

lSO.tk*é.RO

;CLOCK UNTIL READY FOR SECTOR PULSE

#CCLR,RKLST(R2)
TST10

;(LEAR RK611
2260 ON TO NEXT

(LR

BiICNT

JINITIALIZE BIT COUNT

(LR

PR.BIT

JINITIALIZE PRESENT AND PREV]OUS

P(,%CRIT

JREAD A ZERC

MOV
B8R

MOV

5% :

#DMD 'MEWD 'E(CW,E.MRT

(LR
MOV

M _BRIT
#255. R0

MOV

RKMRT R2), T MR

JSR

TEST

LOAD EXPECTED MAINTENANCE REG,

; BITS TO GENERATE ZEROS
JGENERATE 255 ZEROES
STCRE MAINTENANCE REC, !

(ZR6CEO RK611 DSKLS CTRL PRT3
TIR6CE.PY
27-AUG=-81 10:24

2813
2814
2815

816

003464

012762
000464

100000

000000

007262
007266
067270
007272
007300
007304
007312
007320
007322
007324
007332

005237
005300
001356
012737
004737
016237
023737

003622

007334
007340
007346
007352
007356
007364
007372
007374
007402

005237
013737
005037
004737
016237
023737
001404
012762
000413

003622
003614
003614
043540
000026
003524

003464

100000

000000

007404
007412
007420
007426
007430

016237
012737
023737
001401

000000
000025
013500

003440
003500
003440

104021

001405
104021
012762
000437

30(1046)
17

B 5
10:35
PAGE 54
28-AUG-81
SECTOR PULSE DETECT IN READ HEADER (PART 3)
;CHECK READ GATE NOT SET
JREAD GATE NOT SET SIMULATE NEXT BIT

MOV

E.MR1,T.MR1
6$
‘
21

#CCLR,RKCST1(R2)
TST10

INC

BITCNT
RO

s INCREMENT BIT COUNT
JCHECK IF ALL 7EROES ISSUED
sNO, CONTINUE
;LOAD ONE FOR READING 1
JREAD A ONt
;STORE MAINTENANCE REG. 1
sCHECK READ GATE NOT SET

CMP

BEQ

ERROR

6%:

DEC
BNE

000001

003614

MOV

0000c6

003464
003464

MOV

043540

003524

100000

JSR

CMP
BEQ
ERROR

000000

003616

CONTINUE

JMAINT REG.

INCORRECT

;ISSUE CONTROLLER CLEAR

INC
MOV

BITCNT
PR.BIT M1.BIT

s INCREMENT BIT COUNT
;LOAD ZERO FOR NEXT BIT

PR.BIT
PC,RDBIT

RKMR1(R2),T.MR1
5§MR1.T.MR1

MOV

#CCLR,RKCST(RD)
TST10

MOV

RKCS1(R2),T.CS1
#RDHEAD ,E.CS1

E.CS1,T.CST
TST10

(MP
BEQ
ERROR
MR

INCORRECT

#CCLR,RKLCST(RZ2)
TS710

MOV

104016

;ISSUE CONTROLLER CLEAR
;G0 ON TO NEXT TEST

MOV

9%:

JMAINT REG.

sYES,

(IR
JSR
MoV
(MP
REQ

003464

SEQ 0053

AAASARR

SRS

;SIMULATE ZERO
;STORE MAINTENANCE REG.
¢ CHECK MAINTENANCE REG.
sCHECK CS1 CORRECT
;CLEAR RK611
;.60 TO NEXT TEST

1
1

CORRECT

;STORE COMMAND AND STATUS REG.
;LOAD EXPECTED (S1
sCHECK CS1 CORRECT
;. YES, GO TO NEXT TEST
;CS1 INCORRECT

AR RARRRRERREstdRRRtRRRRRRRRRRRRRRRRRRRRSR)

INDEX

PULSE

DETECTION

IN WRITE HEADER

*
2

e,
O

¥
*

CONTROLLER

IN DIAGNOSTIC MODE.

SECTOR PULSE AND 200 CONTROLLER CLOCKS MAKING SURE WRITE

GATE DOES NOT

WRITE

CONTROLLER WITH A CONTROLLER CLEAR.

PUT
ISSUE A WRITE HEADER
TO AN RKO6, IN 26 SECTOR FORMAT, TO CYLINDER O, HEAD O,
DRIVE O, WITH A ONE WORD TRANSFER.
CLOCK THROUGH THE
SEEK AND THE DRIVE CLEAR MESSAGES.
ISSUE 200 CONTROLLER
CLOCKS AND MAKE SURE WRITE GATE DOES NOT SET.
SIMULATE
THE

CLEAR THE RK611

LRXTEST 10

2:GO ON TO NEXT TEST

GATE

SET.

SETS.

SIMULATE

INDEX PULSE

AND MAKE

SURE

2788

2789
2790
2791
2792
2793
2794
2795
2796
2797
2758
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812

003524

007432
007434
007442
007446
007454
007462
007470
007476

004

NNN NNNTMN
[0 oY e o OO
W
[AS1)
8] ~no LASLAN
1N RN

2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787

023737
001405

007240
007246
007250
007252
007260

QOOOOOOO
—2 e —d b —d
2 O
rororrONWNLO

2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773

MACY1T

000012
001270

100000

000040
000140
0000490
064714

001200
000000
000026
000026
000026
000004

TST1C:

RSS2

SCOPE
MOV
MoV
MOV
MOV
MOV
MOV
MOV

#10.,8TIMES

$BASE ,R?2
#CCLR,RKCS1(R2)
#DMD ,RKMR1(R2)

RRRRRRRRRRRRRRRRRRRRRRRRRXRRRR

:;D0 10. ITERATIONS
;LOAD RK611 BASE
;CLEAR RK61!
:PUT RK611

#DMD ' MSP ,RKMR1
(R?)
#DMD ,RKMR1(R2)
#WRBUFF ,RKBA(R2)

IN DIAGNOST!C MODE

JINITIAILZE ROM ADDRESS

;. 0AD BUS ADDRESS

007540
007542

007544
007552
007560
007566
007574

007602
007610
007616
007620
007622

O WWWWWWWNNOONO o
WNNNNNNNOONMN o

007504
007512
007520
007524
007532

104022

177777

000000
000004
000002
000027
064774
177777
003500

003440
003444
003442
00350G
003504
003502
003440

007626
007634
007636
007640

023737
001403

003504

000137

010550

007644
007652
007654
007656

023737
001403

0035C2

000137

010550

b
2 —b b

007662
007670
007674
007700
007706
007714
007722
007730
007736
0C7744

104024

022040
003622
010310
000440
000040
000440
000040
000026
003524

30(1046)
10
,'

000002
000000

000026
000026

010550

104023

MACV11

000027
000312
000440
000040

000137

OORY —b b

O~y

DSKLS CTRL PRT3
27-AUG-81 10:24
QOO0 OOOOOOOOOOOO
P 1, ¥ P Pur S S
S
ar e 0o Pur Gur Gurginre
= NI
ONONON =NV
MPON)
SN NN NN
NI NN N NN

mMmm

0 RK611

1%:

28-AUG-81

10:35

C
5
PAGE 55

SEQ 0054

INDEX PULSE DETECTION IN WRITE HEADER
MOV
MOV
MOV
MOV
MOV
DEC

BNE

MOV
MoV
MOV
MOV
MOV
MOV

(MP
BEQ
ERROR
JMP

#-1,RKWC (R2)

:LOAD WORD COUNT

AWRHEAD ,RKCS1(R2) ;ISSUE WRITE HEADER
#50.%4+2,R0
;CLOCK UNTIL READY FOR INDEX PULSE
#DMD 'MCLK ,RKMR1 (R2)
#DMD
. RKMR1 (R2)

RKCS1(R2),T.CS1
RKBA(R2) ,T.BA
RKWC(R2).T.WC
#WRHEAD ,E.CS1

;STORE COMMAND AND STATUS REG.
:STORE BUS ADDRESS REG.
:STORE WORD COUNT REG.
:LOAD EXPECTED (S1

E.CST,7.CS1

sCHECK COMMAND AND STATUS REG.

#WRBUFF.E.BA
#-1,E.wC

22
608

:LOAD EXPECTED BUS ADDRESS
;LOAD EXPECTED WORD COUNT

sYES, CONTINUE

;CS1 INCORRECT
;CLEAR CONTROLLER

003444

’%:

cMp
BEQ
ERROR
JMP

E.BA,T.BA
3%
23
60%

sCHECK BUS ADDRESS CORRECT
JYES, CONTINUE
;BUS ADDRESS INCORRECT
;CLEAR RK611

003442

3%:

CMe
BEQ
ERROR
JMP

E.WC,T.WC
3
24

;CHECK WOGRD COUNT
JYES, CONTINUE

mMov

#ECCW!MEWD!DMD,E.MR1
LOAD EXPECTED MAINT REG.
BITCNT
JINITIALIZE BIT COUNT
#200. ,RO
:ISSUE 200 MAINT BITS

003524

4%:

000026
000626
000026
000026
003464
003464

5¢:

CLR

MOV
MOV
MOV
MOV
MOV
MOV

(MP
BEQ

60%

CORRECT

;WORD COUNT INCORRECT
;CLEAR RK611

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R?2)
RKMR1(R2),T.MR1 ;STORE MAINT REG.

E.MR1,T.MR1
6$

CORRECT

s CHECK MAINTENANCE REG.
;YES, CONTINUE

CORREC(T

CZR6CED RK611 DSKLS CTRL PRT3

“IR6CE P

27-AUG=81 10:24

2BSS
gggg

007746
007750

10402°€
000137

2858
2859
2860
2861
2862
2863

007754
007756
007760
007766
007774
010002

005300
001350
016237
016237
016237
023737

2864
2865
5329

010010
010012
016014

001403
104026
000137

MACY11

6% :

000000
000004
000002
003500

003440
003444
003442
003440

(23737
001403
104027
000137

003504

2873
2874
2875
Sg;g

010036
010044
0100646
010050

023737
001403
104030
000137

003502

2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
289C
5395

070054
010060
010066
010076
010102
0101064
010106
010114
010122
010130
010136
010144
010146
010150

012700
012762
012762
012762
005300
001370
012762
016237
016237
016237
023737
001402
104026
000577

000004
000140
000540
00014C

000026
9000026
000026

000040
000000
000C04
000002
003500

000026
003440
003444
003442
003440

2893
2894
2895
5339

010152
010160
010162
01C164

023737
001402
104027
000571

003504

003444

2898
2899
2900
538;

010166
010174
010176
010200

023737
001402
104030
000563

003502

003442

2903
2904

010202
010206

005027
012700

003622
00031C

2907

010226

012762

000440

01024¢
010250

016237
023737

010212 012762
010220 012762

2908 01023«
2909
2910

D 5
PAGE 56

INDEX PULSE DETECTION [N WRITE HEADER

ERROR
JMP

25
60%

JMAINT REG 1 INCORRECT
"CLEAR RK611

DEC
BNE

MOV
MOV
MOV
CMP

RO
5¢
RKCS1(R2),7.CS1
RKBA(R2).7.BA
RKWC(R2).7.WC
E.CS1.7.CS1

;CHECK IF READY FOR SECTOR PULSE
'NO, GET NEXT BIT
;STORE COMMAND AND STATUS REG. 1
:STORE BUS ADDRESS REG
:STORE WORD COUNT REG
SCHECK CS1 CORRECT

10%
26
60$

CMP
BEQ
ERROR
JMP

E.BA.T.BA
11%
27
60

:CHECK BUS ADDRESS CORRECT
JYES, CONTINUE
*BUS ADDRESS INCORRECT
*CLEAR RK611

(03642

11%:

CMP
BEQ
ERROR
JMP

E.WC,T.w(
12%
30
608

JCHECK WORD COUNT REG. CORRECT
SYES, CONTINUE
*WORD COUNT INCORRECT
SCLEAR RK611

12%:

MOV
MOV
MOV
MOv
DEC
BNE
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
BR

#4 RO
;SIMULATL SECTOR PULSE
#DMD 'MSP ,RKMR1
(R2)
#DMD 'MSP iMCLK ,RKMR1(R2)
#DMD i MSP ,RKMR1
(R2)
RO
138
#DMD ,RKMR1 (R2)
RKCS1(R2),7.CST ;STORE COMMAND AND STATUS REG. 1
RKBA(R?Z) ,T.BA
:STORE BUS AND REG.
RKWC(R2).T.WC
:STORE WORD COUNT REG.
E.CS1,T.(
;CHECK COMMAND AND STATUS REG. 1
15¢
SYES, CONTINUE
26
:CS1 INCORRECT
608
SCLEAR RK611

15%:

cMP
BEQ
ERROR
BR

E.BA.T.BA
16$
27
60%

:CHECK BUS ADDRESS CORRECT
SYES, CONTINUE
*BUS ADDRESS INCORRE(CT
SCLEAR RK611

16$:

CMP
BEQ
ERROR
BR

E.W(,T.W(
20$
30
608

;CHECK WORD COUNT CORRECT
SYES, CONTINUE
*WORD COUNT INCORRECT
“CLEAR RK611

208

(LR
MOV

BITCNT
#200. ,RO

SINITIALIZE BIT COUNT
- [SSUE 200 MAINT BITS

MOV

#DMD 'MCLK ,RKMR1(R2)

000026
000026

000026

012762 000040 000026
003464
003464

13$:

2°'$:

MOV
MOV

MOV

MOY
(MP

#DMD 'MCLK ,RKMRT (R?)
#DMD _RKMR1 (R2)

#DMD
. RKMR (R2)

SEQ 0055

JYES, CONTINUE
2CS1 INCORRECT
“CLEAR RK511

10%:

010550

000026
003524

10:35

003444

010550

00044C
000040

28-AUG-81

BEQ
ERROR
JMP

010550

010020
0100c6
010030
010032

2905
2906

010550

2868
2869
2870
gg;}

301 046)

RKMKI(R2),T.MR1 ;STORE MAINT REG, 1
£.MR1,T_MR1
TCHEFK MAINT REG. 1 CORRE(T

INCORRECT

CZR6CEO RKE11 DSKLS CTRL PRTY
TZR6CE P
27-AUG=-81 10:2¢4
2911
2912
5312

010256
070260
010262

0C1402
104025
000532

2915
2916
2917
2978
2919
2920
2921
2922
Sgsz

010264
010266
010270
010276
010306
010312
010320
010322
010324

005300
001351
016237
016237
016237
v23737
001402
104026
000511

2925
2926
2927
Sggg

010326
0310334
010336
010340

2930
2931
2932
Sggz
2935
2936
2937

MA(YI?

3958046)

5
E
28-AuG-81
10:35 PAGE 57
INDEX PULSE DETECTION IN WRITE HEADER

SEQ 0056

BEQ
ERROR
B8R

278
25
60%

;YES, CONTINUE
JMAINT REG. 1 INCORRECT
;CLEAR RK611

2c%:

DEC
BNE
MOV
MOV
MOV
(MP
BEQ
ERROR
BR

RO
21%
RKCST(RZ,,T.CS1
RKBA(R2),”.BA
RKWC(Kk2),T7.WC
E.CST,T.CS?
23%
26
60%

;JCHECK [F READY FOR INDEX PULSE
;NO, GET NEXT BIT
;STORE COMMAND AND STATUS REG. !
;STORE BUS ADDRESS
;STORE WORD COUNT
;CHECK CS)1 CORRECT
;YES, CONTINUE
;CS1 INCORRECT
;CLEAR RK611

000000
000004
000002
003500

003440
003444
003442
003440

023737
001402
104027
000503

003504

(003444

23$8:

(MP
BEQ
ERROR
BR

E.BA,T.BA
248
27
60%

;CHECK BUS ADDRESS CORRECT
;YES, CONTINUE
sBUS ADDRESS INTCRRECT
:CLEAR RK611

010342
010350
010352
010354

023737
0014602
104030
000475

003502

00344c

c4$:

(MP
BFQ
ERROR
BR

E.WC,T.W(
25%
30
60%

;CHECK WORD COUNT CORRECT
sYES, CONTINUE
;WORD COUNT INCORREC(CT
;CLEAR RK611

010356
010364
G10370

012762
012700
072762

000240
000004
00064"

000026

25%:

000026

26%:

MOv
MOV
MOv

#DMD !MIND ,RKMR1(R?2)
;SIMULATE PULSE
#6 R0
#DMD MIND !MCLK ,RKMR1(R?2)

010406
010410
010616

005300
001370
012762
012700

0270040
000002

000026

BNE
MOV
MOV

26$%
#DMD ,RKMR1(R2)
#2 RO

2944
2965
2946
2947

010422
0106430
010436
010440

012762
012762
005300
001370

000440
00004C

000026
000026

010450
010456
010464
010472

016237
016237
016237
0127%"

000026

0237
001401
10403°
023737
001401
104032
023737
001401

000000
000004
000002
062040

003464

#DMD !MCLK ,RKMRT(R2)
#DMD ,RKMR1 (R2)
RO
27$

2949
2950
2951
2952

01¢237

MOv
MOV
DEC
BNE

303500

003440

MOV
MOV
MOV
MOV

RKCST(R2),T.CST ;STORE COMMAND AND STATUS REG !
RKBA(R2) ,T1.BA
;STORE BUS ADDRESS
RKWC(R2),T7.WwC
;STORE WORD COUNT
#WRTGAT
MEWD .ECCW!DMD,E.MR1
LOAD EXPECTED MAINT REG.

2938

2939
2940
2941
2942

2943

2948

2953
2954
2955
2956
2957
2958
2959
2960
2961

2962
2963
2964
2965

010376
010404

010442

010500
010506
010510
010512
010520
010522
010524
010532
010534

010536
010544
010546
C10550

012762

104033

023737
001401
104034
012762

000240

000026

27%:

MOv
DEC

MOV

003440
003444
003442
003524

003504

003444

28S:

00350¢

003442

29%:

00352¢

0034646

3CS

100000

000000

60$:

(MP
BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR

(MP
8EQ
ERROR
MOV

#DMD !MIND ,RKMR1(R?2)
RO

sSIMULATE
;

GATE

TWO CLOCK PULSES FOR WRITE

TO COME

upP

RKMR1(R2,T.MR1

;STORE MAINTENANCE

E.CS1,T7.CS1T
28%
31
E.BA,T.BA
29%
32
E.wC,T.uW(
308

sCHECK CS1 CORRECT
JYES, CONTINUE
;(S1 INCORRECT
s CHECK BUS ADDRESS CORRECT
;YES, CONTINUE
;BUS ADDRESS INCORRE(CT
sCHECK WORD COUNT CORRECT
JYES, CONTINUE

E.MR1,T MR
60%
34
#CC.R,RKCST(R2)

JCHECK MAINT REG 1 (ORRE(T
JYES, CLEAR Rk611
MAINT REG, 1 INCORREC(T
;(LEAR Rk611

JWORD COUNT

REG.

INCORRECT

CIRGCED RKE1T DSKLS CTRL PRT3

TIRG6{E.PIN

27=-AUG=81 10:24

28-AuUG-81

MACY11 30(1046)

10:35

««NPR READING OF MEMORY

Zgfig

PAGE 58

LSBTTL

««NPR READING OF MEMORY

SEa 0057

5989

T
JeTEST

2972
2973
2974
2975
2976
2977
2978
Zggg

.t
M
o
M
oTM
;e
M
it

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MOLE. ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 777, HEAD 7, DR.VE 7.
SPECIFY A ONE WORD DATA TRANSFER. (LOCK BOTH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE [NDEX PULSE.
CLOCK IN FIRST WORD OF NPR TRANSFER.
(HECK INPUT READY,
QUTPUT READY, BUS ADDRESS, WORD COUNT, AND CONTENTS OFf
THE SILO. REPEAT FCR 8 DIFFERENT DATA PATTERNS.

Sg;?

5981

2982

010556

000004

010560
010566
010572

012737
013702
012703

000144
001270
064374

001200

2987
2988
2989
2590

010602
010610
010616
0'0622

012737
012737
005037
012737

06476
000027
003502
010630

003504
003500

2991

295¢

2993

010576

010630

012704

000010

010630
010636
010642
010650
010656
010664

012762
011337
012762
012762
012762
012762

100000
064714
000040
000777
003400
064716

000000

3001
3002

010700
010,36

(12762
012762

177777
000027

2603

30us
3005
3006
3007
3008
3009
3010

2011
3012

3013
304
3015
3016
017
3018
3019
3020
3021
22e

010672
010716

012762

012700

000007
000312

TST11:

°$:

;:D0 100. ITERATMIONS
;LOAD RK611 BASE
;LOAD PATTERN ADDRESS

MDYV
MOV
(LR
MOV

#WRBUFF+2 E.BA
#WRHEAD ,E . (ST
E.WC
#1%,$LPERR

;LOAD
;LOAD
;LOAD
;LOAD

4#8. R4

;LOAD PATTERN COUNT

EXPECTED BUS ADDRESS
EXPECTED (S1
EXPECTED WORD COUNT
LOGP ON ERROR LOCATION FOR

SUBTEST

LOOP

000026
000020
000006
000C04

#CCLR,RKCST(R2) ;CLEAR RK611
(R3) ,WRBUFF
;LOAD BUFFER FOR WRITE HEADER
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#777 ,RKDCYL(R2)
;LOAD CYLINDER ADDRESS
#3400 ,RKDA(R2)
;LOAD DISK ADDRESS
#WRBUFF ,RKBA(RZ)
;LOAD BUS ADDRESS

000002
000000

MOV
MOV

#-1,RKWC(R2)
;LOAD WORD COUNT
#WRHEAD ,RKCS1(R2)
ISSUE WRITE HEADER

000010

MOV

012762
012762

00044C
000040

000026
000026

2%:

005300
001370
012762
012700
012762
012762
005300
001370
016237
0°6c37

000026
000026
000026

3$:

070766
010770
010772
011000
011004
011012
011020
011022
011024
011032

012762
012762

000004
000240
000640
000240

010760

#100.,8TIMES
$BASE ,R?
#PATTERN,R3

MOV
MOV
MOV
MOV
MOV
MOV

010720
010726
010734
01C736
010740
010744
010752

005300
001370
012700
012762

SCOPE

MOV
MOV
MOV

MOV

003110

2994
2995
2996
2997
2998
2999

3000

R )

E:'tttttttt'tttlttttt'tttttttttttttttt'ttttttttttttt'lttt'tt'ttt'

¢983
2984
2985

2986

NPR QUTPUT DATA TRANSFER

000040
000045
(000440
000040

000026

000000
000004

003440
003444

000026
000026

4%:

l?,RKCSé(RZ)

;LOAD OTHER NUMBER

l50.'4*é.R0

J1SSUE CLOCKS UNTIL READY FOR

DEC
BNE
MOV
MOV

.
INDEX PULSE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
23
#4 RO
;SIMULATE INDEX PULSE
#DMD 'MIND ,RKMR1(R?2)

DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV

RO
3s
#DMD ,RKMR1 (R?2)
#37. R0
JSIMULATE 1 NPR TRANSFER
#DMD 'MCLK ,RKMR1(R?)
#DMD ,RKMR1 (R2)
RO
43
RKCST(R2),T.CST ;STORE COMMAND AND STATUS REG.,
RKBA(R2),T.BA
*STORE BUS ADDRESS REG

MOV
MOV

#DMD 'MIND 'MCLK ,RKMR1 (R?2)
#DMD 'MIND ,RKMR1
(R2)

°*

CIR6CEU RK611
CIRGCE.PI

3023

011040

DSKLS CTRL PRT3
27=AUG~81 10:24

(016237

3026
3025
3026
3027
3028

011046
011052
011054
011056
011064

012700
005300
001376
016237
012737

3020
3031
3032
3033
3034

011100
011102
011104
011112
011114

00140N
104035
023737
001401
104036

3036
3037
3038
3039
3040

011126
011126
011130
011136
011140

001401
104037
023737
001401
104040

3042
3043
30644
3045
3046
3047
3048
3049
3050
3051

011150
011154
011162
011164
071166
011176
011202
011210
011216
011220

3029

3035

3041

3052
3053

3054
3055
3056
3057
%928

011072

011116

011142

011222
011230

011232
011234
017236
011240
011242

023737

016237

011337
023737
001401
104041
016237
016237
012737
023737
001401
104042

023737
00140

000002
000024

000010
000307

003500

MACY1Y

30(1046)
111

(03442

MOV

5%:
003450
003510

003440
003450

¢8%:

003504

003444

003502

003442

8$%:

000024

003462

09%:

003462

000000
000010
0060107
003500

003440
003450
9203510
003440

15%:

003510

003450

7%:

1064043
104415
005723
005304
001000

20%:

RKW( (R2),T.w(C

SEQ 0058

;STORE WORD COUNT

MOV
DEC
BNE
MOV
MOV

#20. ,R0
JWAIT FOR OUTPUT READY
RO
5%
RK(CS2(R2),T.(S2 ;STORE (OMMAND AND STATUS REG. 2
#OR.IR.7,E.(S2
;LOAD EXPECTED (S2

BEQ
ERROR
(MP
BEQ
ERROR

6%
35
E.CS2,T.(S2
7%
36

JYES, CHECK (S2
2CS1 INCORRECT
JCHECK (€S2 CORRECT
JYES, CONTINUE
;€S2 INCORRECT

BEQ
ERROR
(MP
BEQ
ERROR

8%
37
E.WC,T.WC
9%
40

;YES, CONTINUE
sBUS ADDRESS INCORRECT
,CHECK WORD COUNT REG CORRECT
JYES, CONTINUE
sWORD COUNT INCORRECT

MOV
CMP
BEQ
ERROR
MOV
MOV
MoV
(MP
BEQ
ERROR

(R3) ,E.DB
£E.DB,T7.DB
15%
41
RKCST1(R2),7.CS1
RK(S2(R2),7.CS2
#IR!7,E.CS2
E.CST,T.(
17%
42

c(mp

003510

003522
003522

28-AuUG-81
10:35
PAGE 59
NPR QUTPUT DATA TRANSFER

{mpP

MOV

(MP
BEQ
ERROR
SCOP?
IST
DEC
BNE

E.CS1,T.LS1

E.BA,T.BA

RKDB(R?2),7.DB

E.(S2,T7.(S2
2098

(R3) +
R4
TST12

JCHECK CS1 CORRECT

;CHECK IF BUS ADDRESS INCREMENT QOCCURRED

JREAD DATA BUFFER

;LOAD EXPECTED DATA BUFFER
sCHECK IF DATA CORRECT
JYES,CONTINUE
;DATA BUFFER INCORRECT
;STORE CUMMAND AND STATUS REG.
;STORE COMMAND AND STATUS REG.
JLOAD EXPECTED €S2
;CHECK COMMAND AND STATUS REG.
JYES, CONTINUE
2CS1 INCORRECT

1
2
1

(ORREC(T

JCHECK COMMAND AND STATUS REG. 2 CORRECT
JYES, CONTINUE
;CS2 INCORRECT
;CHECK [F LOOP ON ERROR
JCENERATE ADDRESS OF NEXT (ONFIG
JCHECK IF ALL 8 CONFIGS TRIED
;2NO, TRY NEXT DATA PATTERN

3060

".'t"'Q't.'.'.t'.fi.l"'.'t"t'.tfitfit"t'fil"t'fi".fi"“"t"'."'

JeTEST

3063
3064
3065
3066
3067
2068
3069
3070

.
.
M
o
*
M
.t
A

(LEAR RK611 WITH A CONTROLLER (LEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKOQ6
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
SPECIFY A ONE WORD DATA TRANSFER.
C(CLOCK [N ALL
SPECIFIED WORDS INTO THE SILO.
C(HECK WORD COUNT,
BUS ADDRESS, INPUT READY, AND OQUTPUT READY.
MAKE
SURE NO MORE THAN SPECIFIED DATA LENGTH IS CLOCKED
INTO THE SILO.
C(HECK THE SILO FOR CORRECT DATA.

3073
30764
3075
2076
3077

:-'-ttttt'ttlt'tttt.tttt'.t'ttt‘tttt'ttt.ttt'!tt'tnttt'tt"'it'ttt'
TST12:
SCOPE
MOV
#100.,8TIMES
2:D0 100. ITERATIONS
MOV
$BASE ,R?
;LOAD RK611 BASE
MOV
#1 $TMPQ
:LOAD NUMBER OF WORDS FOR DATA "RANSFER

ggg;

gg;g

3076

011244
(011246
011256
011260

011266

000004
0]2737

0337202
012737

012704

000144
001270
000001

000065

001200
001160

PARTIAL SILO FILLING

REPEAT FOR WORD COUNTS 2-65.

MOV

#65.R

:(CAD ITERATION (OUNT

CIRGCED RKO1T DSKLS CTRL PRT3

TIRGCE.P
3079
3080
3081

3082

27-AUG~81 10:2¢6

011272
011300

MA(Y11 30(1046)

112

012737
0©12737

000027
011306

(03500
001110

012762
012762
012762

100000
000040
064472

000000
000026
000004

3083

011306

3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3068
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
23109
2110
3111
3112
3113
3114

011330
011336
011344
011350
011356
011364

012737
013737
005437
013762
012762
0127060

064472
001160
003502
003562
000027
000312

003504
003502

011370
011376

012762
012762

003440
000040

000026
000026

012762
012762

000004
00024C
000640
000240

000026
000026
000026

3086
3085
3086

011306
011314
011322

011404
011406
011416
011414

011422
011430
071436
011440
011442

005300
001370
012700
012762

3116
3117
2118

011476
011500
011502
01'510
011516
0115264
011532
011534
011540
011562

005300
001370
012762
012737
012700
012762
012762
005300
001370
016237
016237
016237
022737
001004
012700
005300
001376

3120
3121

011552
011560

062737
005237

3115

3119

3122
3123
3126
3125

3126
3°27
3128
3129
2250
3137
3122
2722

011450

011456
0171462
011470

011544

011564
011572
011574
0'1576

011604
011606
011610
011616
011620
011622
011630
(011632

(011634

000002
000000

000040
000300
000045
00044C
000040

000026
003510

000000
000004
000002

003449
003444
0034472

064472

1%:

000026
000026

2%:

3%:

4%:
5%:

6$%:

016237

000010

003450

023737
00140°
104044
(023737

003500

003440

003570

003450

8%:

003504

(003444

9%:

003502

003442

10$:

001401
104045
023737
001401
104046
023737
001401
104047

005737

000002
003502

0063502

003504

7%:

'1s:

10:35

PAGE 60

PARTIAL SILO FILLING

SEQ C059

MOV
Mov

#WRHEAD,E.CST
#°'$,SLPERR

MOV
MOV
MOV

#CCLR,RKCST(RZ) ;CLEAR RKo11
#DMD ,RKMR1(R2) ;PUT RK611 IN MAINT MNDF
#NPRBUF ,RKBA(R?2) ;LOAD BUS ADDRESS

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

MOV
MOV
NEG
MOV
MOV
MOV

,E .BA
A#NPRBUF
$TMPO,E.WC
E.wC
E.WC,RKWC (R2)

MOV
MOV

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

DEC
BNE
MOV

003504

000024

28-AUG-81

)%
MOV
MOV
DEC
BNE
MOV

;LOAD WORD COuUNT

#WRHEAD ,RKCS*(R2) ;ISSUE WRITE HEADER
#50.+4+2,R0
;ISSUE rLOCKS UNTIL READY FOR
;.

INDEX PULSE

RO
2%
#4 RO
¢ SIMULATE INDEX PULSE
#DMD !MIND ,RKMR1(R2)

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

DEC
BNE
MOV
MOV
MOV
(MP
BNE
MOV
DE(
BNE

RO
3%
#DMD ,RKMR1 (R2)
#IR!OR,E.CS2
;LOAD EXPECTED (S2
#37. RO
;SIMULATE 1 NPR TRANSFER
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
5%
RKCST(R2),T.CSY ;STORE COMMAND AND STATUS REG.
RKBA(R2),7.BA
;STORE BUS ADDRESS
RKWC(R2),T.wWC
;STOKE WORD COUNT
#NPRBUF £ .BA
;CHECK IF FIRST WORD
7%
:NO, STORE (S¢2
#20. ,R0
JWAIT FOR OUTPUT READY
RO
63

ADD
INC

#7,E.BA
E.wC

: INCREMENT WORD COUNT AND BUS ADD

9$
45
E.BA,T.BA
i0$
«6
E.W(,T.w(
118

;YES, CHECK BUSS ADDRESS REG.
:(S2 INCORRECT
;CHECK BUS ADDRESS CORRECT
JYES, CHECK WORD COUNT
;BUS ADDRESS INCORRE(CT
;CHECK WORD COUNT CORRECT
JYES, CHECK [F ALL WORDS TRANSFERRED
;WORD COUNT INCORRECT

MOv

MOV
MoV
MOV

MOV
(MP
BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ

ERROR

TST

RKCS2(R2),T1.(S2 .STORE COMMAND AND STATUS REG. 2
E.CST1,T.CST
8%
44
E.CS2,T.(S2

E.wl

;CHECK COMMAND STATUS REG. 1 CORRECT
JYES, CHECK (S2
2CS1 INCORRECT
;CHECK COMMAND STATUS REG. 2 (ORRE(T

JCHECK JF FIN]SHED

TIR6CED RKE1T DSKLS CTRL PRY3
"IRECE.PN
27=-AUG=-81 10:24
3735

011640

001306

3138
3139
3140
3141
3142
363
3164
3145

011654
011662
011664
011666
011674
Q11702
01171C
011716

012762
005300
(001370
e 37
T ced”
016237
$'62%7
03737

3147
3148
3149
3150
3151
3152
2153
3154
3155
3156
3157
3158
3159
2160
3161
7162

011726
011730
011736
011740
011742
011750
011752
011754
011762
011764
011766
01772
011776
012002
012010
012014

104050
023737
001401
104051
023737
001401
104052
023737
001401
104053
013701
012703
005037
016237
012337
023737

3164
2165
3166
3167

012024
012026
012034
012042

3136
3137

3146

3163

3168
2169
3170
3171
3172
3173

31746

2175
3176
3177
3178
3179
2180
2181
2182
g;gz

011642
011646

0117246

012022

012046
012050
012056

012064
012066
012070

012076

012100
012102
012106
012110
012112
012114
012120
012122
012124

012700
012762

0o 4ul

001401

104054
016237
016237
022701

001003
012737
023737

00160
104055
023737
001401

104056
005237
005301
001334
104415
005237
005304
001402
000137

000112
000440

MA(Y11 30(104¢°
112

000040

000026
000024

000000
000010
700004
000002
003500

003440
003450
003444
003442
00344C

15%:

003450

16%:

003504

003446

17%:

003502

(03442

18S$:
19¢:

003462

25%:

003462
003440
003450

000100
003500

003510
003440

27%:

003510

Q03450

28%:

0C3624

JNO, TRANSFIR NEXT WORD

MOV
DE(
BNE
MOV
MOV
MOV
MOV
(MP

#DMD ,RKMR1(R2)
RO
15%
RKCST1(R2,,T.(S1
RKCS2(R2),T.(S2
RKBA(R?2),T7.BA
RKUC(RZ),T. w(
E.CST,T.(S1

;STORE
;STORE
;STORE
;STORE
JCHECK

ERROR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
(MP
BFQ
ERROR
MOV
MOV
(LR
MOV
MOV
(MP

50
E.CS2,T7.CS2
17$
51
E.BA,T.BA
18%
52
E.wC,T.wC
19%
53
$TMPO,R1
#NPRBUFF R3
WRDCNT
RKDB(R2),7.DR
(R3)+, E DB
E.DB,T.DB

2CS1 INCORRECT
;CHECK COMMAND STATUS REG. 2 CORRECT
JYES, CHECK BUS ADDRESS
.CS2 INCORRECT
;CHECK BUS ADDRESS CORRECT
JYES, CHECK WORD (COUNT
;BUS ADDRESS INCORREC(T
;CHECK WORD COUNT CORREC(CT
JYES, CONTINUE
;WORD COUNT INCORRE(T
;LOAD NUMBER OF WORDS LOADED
;LOAD START ADDRESS
JINITIALIZE WORD COUNT FOR PRINTOUT
JREAD DATA BUFFER
JLOAD EXPECTED DATA BUFFER
JCHECK [F DATA CORRECT

ERROR
MOV
MOV
CMP

54
RKCST(R2),T.CS1
RKCS2(R2),T.CS2
#1 ,R1

p[01"
MOV

#2+37. ,R0
. ISSUE ENOUC- CLOCKS FOR
#DMD MCLK,RKMR1(R2)
;
2 NPR TRANSFERS

16$

BEQ

070000
000010
000001

26%:

298

001160
011306

SEQ 0060

BNE

BEQ

003510

001160
064472
003624
000024
003522
0035¢2

]
28-AUG-81
10:35 PAGE 61
PARTIAL SILO FILLING

268

BNE
MOV
(MP

27’%
#IR,E.(CS2
E.(ST1,7.C1

BEQ

29%

BEQ
ERROR
CMP

28%
55
E.CS2,T.(S2

ERROR
INC
DEC
BNE
SCOP1
INC
DEC
BEQ
JMP
N

56
WRD(NT
R1
25%

R R

AR A

JYES, CHECIK €S2

JYES, CONTINUE

;DATA BUFFER INCORRE(Y
;STORE COMMAND AND STATUS REG. 1
;STORE COMMAND AND STATUS REG. 2
JCHECK IF LAST WORD IN SILO

JNO, CONTINUE
sLOAD EXPECTED (S¢2
;CHECK COMMAND STATUS RFG. 1 CORRECT

JYES, CONTINUE
;CS1 INCORRECT
:CHECK COMMAND STATUS REG. 2 (ORRECT
JYES,

CONTINUE

2CS2 INCORRE(T
JINCREMENT WORD COUNT
JDECREMINT WORDS READ
JCHECK ]F ALL WORDS READ
JCHECK [F LOOP ON ERPOR
JINCREMENT WORDS READ FROM MEM
:CHECK [F FINISHED
JJYES, GO ON TO NEXT TEST
;TRY NEXT WORD COUNT

$TMPQ
R4
TST13
1%
RN

(OMMAND AND STATUS REG. 1
COMMAND AND STATUS REG. 2
BUS ADDRESS REG.
WORD COUNT
COMMAND STATUS REG. 1 CORRE(T

7185

%;gg

J*TEST

AN RN AR

AN R RN RN

AN R AN PN RN NI RN EREI O RY

3188
1189
2190

.t
.
M

CLEAR RK611 JITH A CONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOST]IC MODE.
[SSUE A WRITE HEADER TQ AN Rk(Qé
IN 26 SECTOR FORMAT, CYLINDER O, WEAD 0, DRIVE O.

SILO FILLING W]TH NPR TRANSFERS

28-AUG=-81

10:35

PAGE 62

SEQ 0061

SILO FILLING WITH NPR TRANSFERS

SPECIFY A 66 WORD DATA TRANSFER, CLOCK IN ALL 66 WORDS
INTO THE SILO.
CHECK INPUT READY, OUTPUT READY, BUS

8
»

ADDRESS,

WORD CCUNT, AND CONTENTS OF

THE

SILO.

cwew®

[aY)

ooOr
[@1,81,8)

NNWWV\I\I\I;

001004

000144
001270
000027
100000

000040
064474

064472

177677
177676
000027
000312

000440
000040
000004
000240
000640
000240

001200

NNNNN \lg\l\l\l NO

[
e
= Y P P
B
Y e ]
ALINLNAININL
NNV N WN O

OCQOOOOODOOODO

[olalelololalolololalolaololelololelelele
]l

622

O QR
2 OO — 2
~n et b OO =t eid et ek
~N QOO =2 WRLRININDND
= NNV
= PO
N
WIWW SN NN NWW
NN
~ ~no
NOOO OO NOOO
V] v WWNOONO OW
~ ~ ~ NCOMNMNO NN OONNNOOONIN

s~rOOMNSONONSOND
oo

NmNNNNNNN
RSIASIANIASTAN
I, N1,V 1, V1, V1,0 W
[, V1,0
WNW
N = 2O NN

ONNO NN
BN NWWN)
2 -2 0
OSSN OCONOODNOON

nd
—

el ——l

OOOOOOOOOOOOO

D wred et D 2D d i wed oD —d D ad e
D e
b
b e wmd o
d e
b o
b
b ad
md o
d med e v
e el

3198
3169
3200
3201
3202
7203
3204
3205
2206
3207

113

319

30(1046)

(olslolelelololalololelelelolalalalslalolelelolelo
lole) olololslolelololelole)

316
3192
3193
3194
3195
3196

MACYN

ZR6CEOR§611 DSKLS CTRL PRT3
TIR6(E
27=-AUG=81 19:24

2222232222223

TST13:

003500
000000
000024
003504
000004
003502
000002
000000
000026
000026

000020
000026
000026

000040
000300
010045
000440
000040

000026
003510

000000
000004
000002
064474

003440
003444
003442
003504

000026
000C28

000024

SCOPE
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV

MOV

MOV
MOV

18:

MOV
MoV

DF(
BNE

2%:

003450
003440

’$:

003510

003450

8%:

003504

003444

9%:

003502

003442

10%:

RRRillRRtl

ITERATIONS

*(0AD RK611 BASE

#WRHEAD ,E.CS1 _ ;LOAD EXPECTED (S1
#CCLR,RKCST(R2) :CLEAR RK611
#DMD ,RKMR1(R2)
:PUT RK611 IN MAINT MODE
#NPRBUF
+2 ,E.BA
;LOAD BUS ADDRESS
#NPRBUF ,RKBA (R2)
#-65. E.WC
;LOAD WORD COUNT
#-6¢. .RKWC (R2)
#WRHEAD ,RKCS1(R2)
;I1SSUE WRITE HEADER

#50.%4+2,R0

:ISSUE CLOCKS UNTIL READY FOR
*"TINDEX PULSE

#DMD .MCLK ,RKMR1(R2)
#DMD _RKMR 1 (R2)
RO

MOV

#DMD ,RKMR1(R2)

INDEX PUL SE

MOV
MOV
MOV
MoV

#IR!OR,E.C52

;LOAD EXFECTED (S2

MOV
MOV
MOV
CMP

RKCS1(R2).T.CS1

RKBA(R2),7.BA
RKWC(R2) .T.WC

:STORE COMMAND AND STATUS REG.

-STORE BUS ADDRESS
-STORE wORD COUNT

MOV

#20. RO

*NO,

BNE

000010
003500

$BASE .R2

;:DO 100.

1%
#4 RO
:SIMULATE
#DMD 'MIND ,RKMR1
(R2)
#DMD IMIND 'MCLK ,RKMR1 (R2)
#DMD I MIND .RKMR1
(R2)
RO

DEC
BNE

6$:

#100.,8TiMES

2222222222222

MOV
MOV
MOV
MOV
DEC

BNE

'S ¥

2232222222022

#37.,R0
:SIMULATE
#DMD “MCLK . PKMR1 (R?)
#DMD .RKMR 1 (R2)

#NPRBUF
+2 ,E.BA

NPR

TRANSFER

:CHECK IF FIRST WORD
STORE (S2

;WAIT FOR OUTPUT READY

RK(S2(R2),7.CS2 ;STORE COMMAND AND STATUS REG. 2

E.CS1,7.CSY
8s

;CHECK COMMAND STATUS REG. 1 CORRECT
JYES, CHECK (S2

£.0S2,T.CS2

;CHECK COMMAND STATUS REG. 2 CORRECT

9%
45

E.BA,T.BA

;CS1

INCORRECT

JYES, CHECK BUS ADDRESS
;CS2 INCORRECT

sCHECK BUS ADDRESS CORRE(T

108
46

;YES, CHECK WORD COUNT
.BUS ADDRESS INCORRECT

118
&7

JYES, CHECK
;WORD COUNT

E.wC,T.wC

sCHECK WORD COUNT CORRECT

JF ALL WORDS TRANSFERRED
INCORRECT

CZR6CED RK61T DSKLS CTRL PRI3
(ZR6CE P
27-AUG-81 10:24
3247

012462

003510

003502
000002
000112
000440
000040

000703

3254
3255
3256
3257
3258
2259
3260
3261
3262
3263
3264

012510
012514
012522
012526
012534
012542
012544
012546
012554
012562
012570

005037
162737
012700
012762
012762
005300
001370
016237
016237
016237
016237

3267
3268
3269
3270
3271
327¢
3273
3276
3275
3276
3277
3278
3279
3280

012606
012610
012616
012620
012622
012630
012632
012634
012642
012644
012646
012652
012656
012662

104050
023737
001401
104051
023737
001401
104052
023737
001401
104053
012701
012703
005037
012737

3281

3282
3283
2284
3285
3286
3287
3288
3289
3290
3291

2292
3293
32964
295
3296
3297
3298
3299
3300
3301
3302

012576
012604

012670

012676
012702
012710
012712
012714
012722
01c726
012730
012734
012736

0127640
012746
012752
012754
012762
012770
012772
012774
013002
013004
013006

#OR,E.(CS¢

000200

012506

3265
3266

MOV

012737

%Sg%

012500

#2,E.BA

003504

005237
100710
001004

3251

ADD

000002

012470
012474
012476

023737
001401

016237

012337
023737
001401
104054
016237
005737
001015
012700
005300
001376

016237
022701
001003
012737
023737
001401
104055
023737
001401
104056
005237

003502

003504

000026
0000co

11%:

12%:

)
158:

003440
003450
003444
003442
003440

003510

003450

16%:

003504

0036446

17$:

003502

003442

18%:

010102

000024

003522
003522

000000
003624

17%:

003510

003462

25%:

003462

003440

000024

268%:

27%:

000010
000001

003450

00C100
003500

003510
003440

28$:

003510

003450

29%:

)
0036¢c4

INC
BM]
BNE
BR

000000
000010
000004
000002
003500

064472
003624
000300

28-AUG-81
10:35 PAGE 63
SILO FILLING WITH NPR TRANSFERS

062737

3248
3249
3250

MACYTI 3?%%046)

30¢:

(LR
SUB
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV

C(MP
BEQ
ERROR
(MP
BEQ
ERROR
(MP

E.wC
4%
128

s INCREMENT WORD COUNT AND BUS ADDRESS
)

E.CS1,T.CS1
16%

JCHECK COMMAND STATUS REG. 1 CORRECT
JYES, CHECK (S2

RKDB(RJ) ,T.DB

:READ DATA BUFFER

MOV
CLR
MOV
MOV
CMP
BEQ
ERROR
MOV
TST
BNE
MOV
DEC
BNE

(R3)+,E.DB
E.DB,T.DB
26%
54
RKCST1(R2),T.CS1
WRDCNT
28$
#20. ,RO
RO
27$

ERROR
(MP
BEQ
ERROR
MOV

MOV

MOV
(MP
BNE
MOV
(MP
BEQ
ERROR
(Mp
BEQ
ERROR
INC

;LOAD EXPECTED (S2

;PROCESS LAST WORD

E.wC
JADJUST EXPECTED WORD COUNT
#2,E.BA
;
_AND BUS ADDRESS
#2+37,,R0
: ISSUE ENOUGH CLOCKS FOR
#DMD .MCLK ,RKMR1(R2)
;
2 NPR TRANSFERS
#DMD ,RKMR1(R2’
RO
15%
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKCS2(R2),T.(S2 ;STORE COMMAND AND STATUS REG. 2
RKBA(R2) ,T.BA
;STORE BUS ADDRESS REG
RKWC(R2),T.WC
;STORE WORD COUNT
50
£.(S2,T.CS2
17%
51
E.BA,T.BA
18%
52
E.WC, T.WC
19%
53
#66. ,R1
ANPRBUF ,R3
WRDCNT
#IR!'OR,E.CS2

BEQ

H
;CHECK [F FINJSHED (NO, BRAN(CH)
JCHECK [F LAST WORD

RKCS2(R2),T.CS2
#1,R1
28%
#IR,E.CS2
E.CST,T.CST
29%
55
£.(S2,7.CS2
308
56
WRD(NT

2CS1 INCORRECT
;CHECK COMMAND STATUS REG. 2 CORRECT
JYES, CHECK BUS ADDRESS
2CS2 INCGRRECT
s CHECK BUS ADDRESS CORRECT
;YES, CHECK WORD COUNT
;BUS ADDRESS INCORRECT
JCHECK WORD COUNT (ORRECT
JYES, CHECK DATA
JWORD COUNT INCORRECT
;LOAD NUMBER OF WORDS LOADED
JLOAD START ADDRESS
JINITIALIZE WORD COUNT FOR PRINT QUT
JLOAD EXPECTED (CS2
JLOAD EXPECTED DATA BUFFER
sCHECK ]F DATA CORRECT
JYES, CONTINUE
;DATA BUFFER INCORRE(T
;STORE COMMAND AND STATUS REG 1
;CHECK IF FIRST WORD
JNO, GET (S2
JWAIT FOR INPUT READY TO SET

;STORE COMMAND AND STATUS REG. 2
JCHECK IF LAST WORD IN SILO
;NO, CONTINUE
JLOAD EXPECTED (S2
sCHECK COMMAND AND STATUS REG. ° C(ORRECT
JYES, CHECK (S2
;CS1 INCORRECY
sCHECK COMMAND AND STATUS REG. 2 CORRECT
JYES, GET NEXT WORD
20S2 INCORRECT
;INCREMENT WORD COUNT

SEQ 0062

CZROCED RK61T DSKLS CTRL PRI
TIR6CE.PI
27-AUG=-81 10:24
3303
%ggg

013012
013014

5
L
MACY11 30(1046)
28-AUG-81
10:35 PAGE 64
713
SILO FILLING WITH NPR TRANSFERS

00530
00132¢

DEC
BNE
IR

3307

J*TEST 14

3325

3326

3337
3328
3329
3330
3331

3332
3333
333,
3335

3336

AN N N NN AN N N NN N NN N NN N
AN N A N N N N NN AN N (NN N NN N
PNIPOPNUPNIN)
— —2 2 b
D
22O (=]
&H W
= O 000 NOMNANIN NN = O 000

2306

S
¥
BB

TR Y
T

R RN R R RN R R AR

A AN R RN RN

I RN

TR AR,

SILO CAPICITY WITH NPR TRANSFERS

CHECK IT.

%
%

AR R RN

WORDS INTO THE SILO.
FILLING AT 66 WORDS.

(CLOCK

MAKE SURE THAT SILO WILL STOP
TAKE ONE WORD FROM SILO AND

IN NEXT WORD.

MAKE SURE NO MORE

THAN
ONE WORD IS CLOCKED IN THE SILO.
TAKE ONE
WORD FROM SILO AND CHECK IT.
CLOCK IN NEXT WORD.

CLOCK IN NEXT WORD.
MAKE SURE NO MORE THAN ONE WORD
CLOCKED IN THE SILO.
TAKE ONE WORD FROM SILO AND
CHECK IT. ATTEMPT TO CLOCK IN NEXT WORD AND

R AR A AN

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKD6
IN 26 SECTOR FORMAT, CYLINDER 0. HEAD O, DRIVE 0.
SPECIFY A 68 WORD DATA TRANSFER.
C(CLOCK IN 66

MAKE SURE NO WORDS ARE
SILO AND MAKE SURE ALL

IR IR

R RN

CLOCK INTO SILO.
UNLOAD
THE WORDS ARE CORRECT.

THE

013016

013020

013026
013032
013040
013046
013054
013062
013070

013076
013104

013112

000004

012737

013702
012737
012762
012762
012737

012762
012737

012762
012762

012700

013116
013124
013132
013134
013136
013142
013150
013156
013164
013166
013170
013176

012762
012762
005300
001370
012700
012762
012762
012762
005300
001370
012737
012737

3359
3352
3353
335¢
3355
3356

013210
013216
(013224
013226
013230
013236

012762
012762
005300
001370
016237
016237

3357
T35

;DECREMENT WORDS READ
;CHECK IF ALL WORDS READ

[

3337
3338
3339
33,0
33,1
33,2
3343
3344
3345
3346
33,7
33,8
33,9

3350

R1
25%

SEQ 0063

013204

013244
013252

012700

016237
022737

000144

001270
000027
100000
000040
066474
064472
177675

177674
000027

000312

001200

#100.,$TIMES

MOV
MOV

#NPRBUF ,RKBA (R2)
#-67. .E.WC
:LOAD WORD COUNT

MOV

#50.+4+2,R0

;ISSUE CLOCKS UNTIL READY FOR

#37..R0

SSIMULATE 1 NPR TRANSFER

903500
000000
000026
003504
000002
00000

MOV
MOV

000004
003502

000026
000026

000004
000240
000640
000240

000026
000026
000026

000040
000300

000026
003510

000440
000040

000026
000026

000000
000004

003440
003444

000002
064474

SCOPE

MOV

MOV
MOV
MOV
MOV
MOV

000440
000040

000045

RAARRSSRAS RS
RARSRR 280 RRRRR2RRRRRARRRRRRERSNA

7ST14:

003442
003504

18:

2$:

(8:

S$:

$BASE .R2
#WRHEAD ,E.CST_
#CCLR,RKCST(R2)
#DMD ,RKMRT (R2)
#NPRBUFF+2,E.BA

;:DO 100.

ITERATIONS

*(0AD RK611 BASE
;LOAD EXPECTED (S1
>CLEAR RK611
:PUT RK611 IN MAINT MODE
:LOAD BUS ADDRESS

#-68. RKWC (R2)
#WRHEAD RKCST(R2)

:ISSUE WRITE HEADER

MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV

+
TINDEX PULSE
#DMD 'MCLK ,RKMR1
(R2)
#DMD
. RKMR1 (R2)
RO
18
¥4 RO
:SIMULATE INDEX PULSE
#DMD IMIND ,RKMR1
(R2)
#DMD IMIND 'MCLK ,RKMR1(R2)
#DMD I MIND .RKMR 1 (R2)
RO
28
#DMD, RKMR1
#IR'OR,E.CS2
;LOAD EXPECTED €S2

MOV
MOV
DEC
BNE
MOV
MOV

#DMD {MCLK ,RKMR1
(R2)
#DMD
. RKMRT (R2)
RO
5¢
RKCS1(R2), r.cs1 :STORE COMMAND AND REG.
RKBA ‘R?)
,T
SSTORE BUS ADDRESS

MOV

MOV
(MP

RKW( (RQ) T
lNPRBUF*é E BA

*STORE WORD COUNT
JCHECK JF FIRST WORD

~NO
[e ¥ Yo N &) N~
N

NN VWA
S
oSNNS

540

604

~no
N
~

3456

T14

6%:

003450
003440
003450

7%:

8%:
:
g%

003502

003442

10%:

000002

0035C4

11¢%:

177776

003502

064472
010112
000440
000040

000026
000C26

000000
000010
000004
000002
003500

003440
003450
003444
003442
003440

003510

003450

12%:

L X

003504

—_—

003502
000002
000003
003624

7$
;NO, STORE (S2
#20. RO
JWAIT FOR OUTPUT READY
RO
6$
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG. 2
E.CST1,T.CS1
sCHECK COMMAND STATUS REG. 1 CGRRECT

ERROR
CMP
BEQ

44
£.CS2,7.CS2
9

CMP

BEQ
ERROR
CMP

BEQ
ERROR
ADD

003444

17%:

003502

003442

18%:

000300
000024
003522
003522

003510
003462

19%:

£.BA,".BA

108
46
E.WC,T.WC
118

JYES, CHECK (S2

;CST INCORRECT
;CHECK COMMAND STATUS REG. 2 CORRECT

JYES,

CHECK BUS ADDRESS

2CS2 INCORRECT
sCHECK BUS ADDRESS CORRECT
JYES, CHECK WORD COUNT

;BUS ADDRESS INCORRECT

sCHECK WORD COUNT CORRECT
JYES, CHECK IF 1ST 65 WORDS TRANSFERRED
sWORD COUNT INCORRECT
; INCREMENT BUS ADD AND WORD COUNT

CMP

#2,E.BA
E.WC
#-2.E.WC

BNE
MOV
BR

128
#OR,E.CS2
4

;CHECK IF 65 WORDS IN SILO
JNO, GET NEXT WORD
JCHECK IF ALL 65 WORDS IN SILO
JLOAD EXPECTED (S¢2
sPROCESS 66TH WORD

E.WC

;ADJUST WORD

INC

DEC

SUS

MOV
CLR
MOV
MOV
MOV
MOV

MOV
MOV
CMP

003504

003462

ERROR

DEC
BNE
MOV
MOV

16%:

SEQ 0064

MOV
DEC
BNE
MOV
CMP

BH]

003510

10:35
PAGE 65
SILO CAPICITY WITH NPR TRANSFERS

BEQ

003444

000200

28-AUG-81

BNE

162737

[olelolalelelelelols]
N
= b =d OO bt =
[ ¥ a Yo Yo R

[
1V,

3436
3444

VAN AANAL

D —
D ad
b
b
d

AN N N N A W
roroNy nN)
NN oo
OO O

D
d
h
d
D

N NN N N

b oD md
D
oD

NN AN U

b o
ed
o
e

V] A U N A
N NN
~ NN
~ nO

cd o

b
md and
e
i

005337

NN
0~
WwWnronN
PO

d ek ok —id

3404
3410
3416

30(1046)

003504

003502

000700

NN
&H

e cd
e
e
)
D el

003510

N NN W
(A AV LV RV ] P

il
D
el
e
e
i

000010
003500

3402

AN AN AN AN N U

cd
il

3387
3288
3389
3390
3391
3392
3293
3394
3395
3396
3297
3298
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3611
3412
3613
3414

3286

MACY11

000024

362

N AN

3285

3379
33280
3381
3382
3383
3384

3377
3378

)

3374
3375
3376

3373

b e

3370
3379
3372

AN N AN WA WA

3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369

slelalelelelololololaloleleolalolalololololeloloaleolololelolelolololalelolalolaolalelolololololololelelelelols) o

CZRSCEQ RK611 DSKLS CTRL PRT3
TIR6CE. P11
27-AUG=-81 10:24

BEQ
ERROR
CMP
BEQ
ERROR
CMP

BEQ
ERROR

#2,E.BA

RO
15%
RKCS1(R2).T.CS
RKCS2(R2).T.CS
RKBA(R2),T.BA
RKWC (R2) . T.WC
£.CS1,7.CS1

16$
SO
£.052.7.CS2
17%
S1
E.BA,T.BA

18$
52

E.wC,T.W(

MOV

#1R .OR,E.CS2

MOV
(MP

(R3)+,E.DB
f£.0R,7.08

MO",

BEQ

BUS ADDRESS

#3_R1
WRDCNT
#NPRBUF ,R3
LO AD START ADDRESS
#2+37. RO
'5§SUE ENOUGH CLOCKS FOR
#DMD ! MC LK , RKMR1( R
;2 NPR TRANSFERS
#DMD
. RKMR1 (R2)

CMP

BEQ
ERROR

COUNT AND

19$
53

RKDB(RJ).T.DB
"5

;STORE COMMAND AND STATUS REG.
;STORE (OMMAND AND STATUS REG.
sSTORE BUS ADDRESS REG

:STORE WORD COUNT

sCHECK COMMAND STATUS REG.

JYES,

CHECK (S2

1
¢

$CS1 INCORRECT
; CHECK COMMAND STATUS REG. 2 CORRECT
JYES,CHECK BUS ADDRESS

€S2 INCORRECT

s CHECK BUS ADD CORRECT
JYES, (HECK WORD COUNT
;BUS ADDRESS INCORRECT
;CHECK WORD COUNT

CORRECT

sYES, READ 1 WORD FROM SILO
JWORD COUNT INCORRECT
:LOAD EXPECT (S2
;STORE DATA BUFFER
sLOAD EXPECTED DATA BUFFER
JCHECK IF DATA CORRECT

JYES,

CONTINUE

(ZR6CED RK611 DSKLS CTRL PRT3

TIR6CE.PY1

27-AUG-81 10:26

3,15
3,16
3,17
318
3419

013606
013610
013616
013622
013624

104054
016237
012700
005300
001376

3,22
3,23
324

012642
013644
013646

001401
104055
023737

3,20
3,01

3,25

3606
3,27
34,08
3,29

013626
013634

013654

013656
013660
013664
013672

016237
023737
001401

104056
012700
012762
012762

3430
3431
3,32
3,33
3,3,

013700
013702
013704
013710
013712

343¢
3,37
3,38
3439

013724
013732
013740
013746

012737
016237
016237
016237

341
3442

013762
013770

023737
001401

3435

3440
3,43

3644

3445

3646
3447
3448

3449
3,50
3,51
34,52
3453
3,54
3455
gigg

013720

013754

013772

016237
104044

023737

014004
014006
014014

104045
023737
007401

014002

014016
014020
014026
014030
014032
014036
014040
014042
014046

2,60
3461
2462
3,63
264
3665
3,66
367
468

014060
074066
014072
014100
0164104
014112
014714
0164116
01412¢

(1el34

369

005237

013774

3458

3,56

005300
001370
022701
001410
062737

01405«

(14130

007401

104046
023737
001401
104047
005237
005301
001402
000137

MACY!! 39%1046)

090000
000024

003440

000010
063500

003450
003440

003510

003450

000045
000440
000040

268:

000026
000026

;DATA BUFFER INCORRE(T
54
RKCS1(R2),T.CS1 :STORE COMMAND AND STATUS REG. |
:WAIT EOR OUTPUT READY
#20. ,RO
RO
268

BEQ
ERROR
(MP

278
55
E.CS2,7.CS2

BEQ

ERROR
MOV
MOV
MOV

RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG. 2
E.CST,T.CS1
:CHECK IF COMMAND STATUS REG. | CORRECT
308

:YES, CHECK (S2
:CS1 INCORRECT
:CHECK IF COMMAND STATUS REG. 2 CORRECT
IYES, DO NPR TRANSFER

:CS2 INCORRECT
56
#37. RO
:CLOCK IN ONE WORD (NPR TRANSFER)
#DMD IMCLK ,RKMR1
(R2)
. RKMRT (R2)
#DMD

003504

000200
000000
000010
000006

003510
003440
003450
003444

MOV
MOV
MOV
MOV

#ORE.(S2
RKCST{R2),T.CS1
RKCS2(R2),T.CS2
RKBA(R2),T.BA”

;LOAD EXPECTED (S2
:STORE COMMAND AND STATUS REG. 1
STORE CGMMAND AND STATUS REG. 2
:STORE BUS ADDRESS

003500

003440

CMP
BEQ

E.CS1,T.CSi
338

*CHECK COMMAND STATUS REG. 1 C(ORRE(T
YES, CHECK (S2

003502

000002

003510

INC

32%:

003442

003450

MOV

3$38:

003504

003444

348:

003502

003442

358:

003624

3¢68:

013432
003504

012737
012701
016237
012337
023737
007401
104054
016237
022737

000300
000101
000026
003522
003502

003510

000000
000002

Q03440
003624

(12700

ERROR
MOV
MOV
DEC
BNE

000002

000001

000002

001006

308:
3'$:

PAGE 66

SILO CAPICITY WITH NPR TRANSFERS

MOV
CMP

27%:

10:35

DEC
BNE
CMP
BEQ
ADD

162737

005037

25%:

28-AUG-81

003502

000024

003462

39%:

40$:

003462

4°8:

ERROR

(MP

BEQ

ERROR
(MP
BEQ

ERROR
(MP
BEQ
ERROR
INC
DEC
BEQ
JMP

RO
318
#1,R1
32§
#2,E.BA

:CHECK IF 68TH WORD READ
*YES, NO NPR WILL TAKE PLACE
: INCREMENT BUS ADD AND WORD COUNT

E.WC

RKWC(R),T.WC
&4

£.(S2.7.CS2
348

45
E.BA,T.BA
358
46
E.WC,T.W0
348
47
WRD(NT
R1
39%
13§

:STORE WORD COUNT
:CS1

INCORRECT

:CHECK COMMAND STATUS REG. 2 (ORRE(T
YES, CHECK BUS ADD

(S INCORRECT
:CHECK BUS ADD CORRECT
YES, CHECK WORD COUNT

:BUS ADD INCORRECT
:CHECK WORD COUNT CORRECT
IYES, CONTINUE
:WORD COUNT INCORRE(CT
;CHECK IF READ TO UNLOAD SI.0
JYES, READ DATA; BUFFER
INO, INPUT NEXT WORD

SUB

#2,E.BA

;ADJUST WORD COUNT AND BUS ADDRESS

MOV
MOV
MOV
MOV
Cmp
8EQ
ERROR
MOV
(P

#IR.OR,E.CS2
#65. R
RKDBR2),T.DB
(R3)+,E.DB
E.DB.T.D8
L
54
RKCST(R2),T.(SY
82 (URDONT

;LOAD EXPECTED (S2
:LOAD NUMBER OF WORDS LEFT
:READ DATA BUFFER
:LOAD EXPECTED DATA BUFFER
SCHECK IF DATA CORRECT
TYES, CHECK CS1
:DATA BUFFER INCORRE(T
;STORE (OMMAND AND STATUS REG. !
SCHECK F FIRST WORDS

MOy

#20. R0

cwA]T FOR INPUT READY

(LR

BNE

E.WwC

3§

INO, DO NOT WAIT FOR INPUT REAL:

SEQ 0065

CZR6CED RK6TT DSKLS CTRL PRT3
CZR6CE.P11
27~AUG-81 10:24
3,71
3472
3,73
3,74
3475
3,76
3477
3,78
3479
3,80
3,81
3,82
3,83
3,84
gzgg

014140
014142
014144
014152
0164156
014160
014166
014174
014176
014206
014206
014210
014212
014216
014220

005300
001376
016237
022701
001003
(12737
023737
001401
104055
023737
001401
104056
005237
005301
001324

MACY11

42%:

000010
000001

003450

43%:

000100
003500

003510
003440

448:

003510

003450

45%:

003624

30(1046)
28-AUG-81
10:35 PAGE 67
T14
SILO CAPICITY WITH NPR TRANSFERS

468:

DEC
BNE
MOV
CMP
BNE
MOV
(MP
BEQ
ERROR
(MP
BEQ
ERROR
INC
DE(
BNE

gzgg

SATEST 75

3490
3491
3492
3493

i
D
D
P

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN
RK06 IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.
SPECIFY A 66 WORD DATA TRANSFER WITH BUS ADDRESS

3495

INPUT READY, OUTPUT READY, AND MAKE

- %

3494,

%239
3,99
3500
3501
3502
$503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3501
3502
3523
3524
3525
3506

RN R R AR AR AR R A

014222
014224
014232
014236
014244
014252
014260
014266
014274
(74302
014310
014316
014324

000004
012737
013702
012737
012762
012762
012737
012762
012737
012762
012762
012762
012700

014330
014336
014344
016346
074350
014354
014362
014370
0164376
014400
014402
014410
014416
014422

012762
012762
005300
001370
012700
012762
012762
012762
005300
001370
012762
012737
012700
012762

;STORE COMMAND AND STATUS REG. 2
*CHECK IF LAST WORD
*NO, CONTINUE
:LOAD EXPECTED (S2
:CHECK ST CORRECT
YES,CHECK CS2
:CS1 INCORRECT
:CHECK COMMAND AND STATUS REG. 2 CORRECT
*YES, READ NEXT WORD ON SILO
1052 INCORRECT
* INCREMENT WORD COUNT
TCHECK IF ALL WORDS READ
*NO, READ NEXT WORD

2487

3498

R R

RO
42%
RKCS2(R2),T.(S2
#1,R1
448
#IR,E.CS2
E.CST,T.(S1
45
55
E.CS2,7.(S2
468
56
WRDCNT
R1
408

SEG 0066

AR R R RN AR

A AR AR

AR RN TR NRR

RN AN AR R AN R

BUS ADDRESS INHIBIT

INHIBIT INCREMENT.

CHECK WORD COUNT, BUS ADDRESS,
SURE ALL

WORDS IN THE SILO ARE THE CORRECT SAME WCRD.

THE

.' t***Qttlttttttt**i&tltitt't*fititt*fi**tfit*l’tttit*tttfittik*tttttt

000144
001270
000027
100000
000040
064472
064472
177677
177676
000020
000027
000312

001200

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

000040
000320
000045
000440

T3115:

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

18%:

MOV
MOV
DE(
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV

003500
000C00
000026
003504
000004
003502
000002
000010
000000

000026
003510
000026

28%:

4%:
S%:

#100.,$TIMES
;:DO 100. ITERATIONS
$BASE _R2
:LOAD RK611 BASE
#WRHEAD ,E.CS1
:LOAD EXPECTED (ST
#CCLR,RKCST(R2) *CLEAR RK6T1
#DMD,RKMR1
(R2)
*PUT RK611 IN MAINT MODE
#NPRBUF ,E_.BA _ :LOAD BUS ADDRESS
#NPRBUF ,RKBA (R2)
#-65. F WC
;LOAD WORD COUNT
#-60.
. RKWC (R2)
#BA1,RKCS2(R2)
;SET BUS ADDRESS INCREMENT INHIBIT
#WRHEAD ,RKCST(R2)
;1SSUE WRITE HEADER
#50.%4+2,RO
;ISSUE CLOCKS UNTIL READY FOR
:
TINDEX PULSE
#DMD ! MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1$
¥4 RO
:SIMULATE INDEX PULSE
#DMD 'MIND , RKMR1 (R2)
#DMD iMIND 'MCLK ,RKMR1 (R2)
#DMD ! MIND ,RKMR 1 (R2)
RO
2%
#DMD, RKMR1 (R2)
YR, OR'BAI,E.CS2 ;LOAD EXPECTED (S2
#37. RO
;SIMULATE 1 NPR TRANSFER
#DMD TMCLK ,RKMRT
(R2)

0 RK611 DSKLS CTIRL PRT3
P
27-AUG-81 10:24
014430
014436
014440
014442
014450
014456
014464
014472
014474
014500
014502
014504
014512
014520
014522

012762
005300
001370
016237
016237
016237
022737
001004
012700
005300
001376
016237
023737
001401
104057

014532
014534
014536
014544
014546
014550
014556
014560
014562
014566
014570
014572

001401
104060
023737
001401
104061
023737
001401
104062
005237
100713
001004
012737

014524

014600

023737

000706

000040

000026

000000
000004
000002
000101

Q03440
003444
003442
003502

000024

7%:

003510

003450

8S$:

003504

003444

0O9%:

003502

003442

108:

003502
000220
013502
000112

014620
014626
014630
014632
014040
014646
014654
014662
014670
014672
016674
014702
014704
014706
014714
014716

012762
005300
001370
016237
016237
016237
016237
023737
001401
104063
023737
0016401
104064
023737
001407
104065

000040

014720
014726
014730
014732
0164736
014744
014750

023737
001401
104066
012701
013737
005037

016237

6%:

003450
003440

005037
012700

012762

11%:
003510

000440

000C26

000000
000010
000004
000002
003500

003440
003450
003444
003442
003440

003510

003450

168%:

003504

0034446

178:

_
00350¢

.
003442

18$%:

000102
064472
003624

003522

000024

003462

MOV
DEC
BNE
mav
MOV
MOV
(MP
BNE
MoV
DEC
BNE
MOV
CMP
BEQ
ERROR

#DMD ,RKMR1 (R2)
RO
5%
RKCST1(R2),T.CST
RKBA(R2) ,1.BA
RKWC(R2),T.WwC
#65. ,E.WC
’$
#20. K0
RO
6%
RKCS52(R2),T.CS2
E.CS1,T.CST
8%
57

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
INC
BM!
BNE
MOV

9%
60
E.BA,T.BA
108
61
E.WC, T.WC
11%
62
E.wW(
3
12%
#OR!BA],E.CS2

(MP

12%:
000026

30(1046)
28-AUG=81
10:35 PAGE 68
T15
BUS ADDRESS INHIBIT

000010
003500

014602
014606

014612

MACY11

15%:

19%:
258%:

£.(S2,7.(CS2

CLR
MOV

#2*37 .RO

MOV
DEC
BNE
MoV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

#DMD,RKMR1 (R2)
RO
158
RKCS1(R2),T.CS1
RKCS2(R2Y,T.CS2
RKBA(R2),7.BA"
RKWC(R2),T.WC
E.CS1,T.CS1
16%
63
E.CS2,T.CS2
17%
64
E.BA,T.BA
18%
65

mMov

CMP
BEQ
ERROR
MOv
MOV
CLR
MOV

;STORE COMMAND AND STATUS REG.
;STORE BUS ADDRESS
;STORE WORD COUNT
sCHECK IF FIRST WORD
sNO, STORE (S2
;WAIT FOR QUTPUT READY

RKDB(R?2),7.DB

;STORE COMMAND AND STATUS REC. 2
;CHECK COMMAND STATUS REG. 1 CORRECT
JYES, CHECK (CS2
;CS1 INCORRECT

sCHECK COMMAND STATUS REG. 2 CORREC(T

JYES, CHECK BUS ADDRESS
;€S2 INCORRECT
s CHECK BUS ADDRESS
JYES, CHECK WORD COUNT
;BUS ADDRESS INCORRE(CT
sCHECK WORD COUNT CORRECT
JYES, CHECK IF ALL WORDS TRANSFERRED
;WORD COUNT INCORRECT
s INCREMENT WORD COUNT
JCHECK IF FINISHED (NO, BRANCH)
;CHECK IF LAST WORD
;LOAD EXPECTED (OMMAND STATUS REG. 2
JPROCESS

THE LAST WORD

JADJUST WORD COUNT
s 1SSUE ENOUGH CLOCKS FOR

#DMD'MCLK ,RKMR1(R2)TM

E.WC, T.W(
19%
66
#66. ,R1
NPRBU} € .DB
WRD(NT

SEQ 0067

;

2 NPR TRANSFERS

;STORt COMMAND AND STATUS REG. 1
;STORE COMMAND AND STATUS REG. 2
:STORE BUS ADDRESS REG.
:STORE WORD COUNT REG.
;CHECK COMMAND STATUS REG. 1 CORRE(T
JYES, CHECK (S2
;CS1 INCORRECT
;CHECK COMMAND STATUS REG. 2 CORREC(T
JYES, CHECK BUS ADDRESS
2C(S2 INCORRECT
s CHECK BUS ADDRESS CORRE(CT
JYES, CHECK WORD COUNT
sBUS ADDRESS INCORRECT
sCHECK WORD COUNT CORRECT
JYES, C(HECK DATA
;WORD COUNT IMNCORRECT
;LOAD NUMBERS OF WORDS LOADED
JLOAD EXPECTED DATA BUFFER
s INITIALIZE WORD COUNT FOR PRINT QUT
;READ DATA BUFFER

~N~g

+t Y

R6CEQ RKE11 DSKLS CTRL PRT3

MACY11 30(1046)

3583
3584
3585

R6CE.PI

27~AUG=81 10:24

014756
0164764
014772

012737
023737
001407

000320
003522

003510
003462

014776

016237

OOOOQO

003440

104067

3586

014774

3588
3589
3590
3591
3592

015004
015010
015012
015016
015020

005737
001015
012700
005300
001376

3594
3595

015030
(015034

022701
001003

3587

3593

3596
3597
3598
3599

3600

3601
3602
3603
3604
%282

115

015022

0036264

000024

26%:
27%:

000010

00345C

015036
015044
015052

012737
023737
001401

000120
003500

003510
003440

28%:

015056

023737

003510

003450

29%:

015054

015064
015066
015070
015074
015076

104070

001401
104071
005237
005301
001324

003624

BEQ
ERROR
MOV
TST
BNE
MOV
DEC
BNE
MOV
(MP
BNE

20%:

10:35

BUS ADDRESS INMIBIT
MOV
(MP

016237

000001

28-AUG-81

MOV
(MP
BEQ

ERROR

C(MP

BEQ
ERROR
INC
DEC
BNE

PAGE 69

SEQ 0068

#IR.OR'BAI,E.CS2 ;LOAD EXPECTED (S2
;CHECK [F DATA (ORRECT
£E.DR,T.DB
26$
67

*YES, CONTINUE
:DATA BUFFER INCORRECT

WRDCNT
28$
#20.,R0
RO
27%

JCHECK IF FJRST WORD
*NO, GET €S2
“WAIT FOR INPUT READY TO SET

#1,R1
28$

;CHECK ]1F LAST WORD
*NO, CONTINUE

©CS1

RKCST1(R2),T1.LS1 ;STORE COMMAND AND STATUS REG. 1

RKCS2(R2),7.CS2 ;STORE COMMAND AND STATUS REG. 2
#IR.BAI,E.CS2
£.(S1,1.C(1
298

£.0S2,7.€S¢2
308
71
WRDCNT
R1
25$

:LOAD EXPECTED (S2
:CHECK COMMAND AND STATUS REG. 1 CORRE(T
SYES, CHECK CS2
INCORRECT

;CHECK COMMAND STATUS REG 2 (ORREL(T
“YES., GET NEXT WORD
2CS2 INCORRECT
:INCREMENT WORD COUNT
*DECREMENT WORDS READ
SCHECK IF ALL WORDS READ

5607

.-;tttttttttttt'ttttt'ttt'tttttttthtttt.tttltttttt""ttttttt'ttt.

%288

TeTEST

36°0
3611
3612
3613
3614

.
e
.
M

%2}2

CLEAR RK611 WITH A CONTROLLER CLEAR, PUT CONTROLLER
IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O,
SPECIFY A ONE WORD DATA TO A NON-EXISTENT ADDRESS
(760000) AND MAKE SURE THE NON=-EX]STENT MEMORY ERROR

3617

:'.-ti'ttttt'ttltttttttt"t't"tQ!ifii'lt.tttttttttt"'.tt'tt't't'tt

318

015100

000004

3419
30
3621
3622

015102
015110
015174
015122

012737
012702
012762
012762

000144
001270
100000
000040

001200

3624
3625
3626
3627
3628
3629
3630
3631

015136
015144
015152
015160
015166
(15176

012762
012737
012762
012737
012762
012700

160000
177677
177676
101626
001427
000312

000004
003502
000002
003500
000000

015200

012762

000440

3633
363,
3635

015214
015216
015220

005300
001370
012700

3637

015232

3623

3632

3636
238

015130

015206
015224

015240

012737

012762

012762
012762

012762

160002

000040
000004

000000
000026

003504

000026

000240

000026

000240

000026

000640

1$716:

000026

OCCURS IN THE RKk611 CONTROLLER.
SCOPE

MOV
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#CCLR,RKCST1(R2)
#DMD ,.RKMR1(R2)

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#160000,RKBA(R2)
#-65. E.WC
:LOAD WORD COUNT
#-66. .RKWC (R2)
#CERRTRDY 'BAT6!'BA17 'WRHEADR<*C<GO>>,E.
(ST
#BA17'BA16'WRHEAD ,RKCST(R2) ;ISSUE WRITE HEADER
#50.24+2,R0
:ISSUE CLOCKS UNTIL READY FOR
:
INDEX PULSE
#DMD 'MCLK ,RKMR1(R2)

DEC
BNE
MOV

RO
18
26 ,R0

MOV

18:

2%:

NON-EXISTENT MEMORY

MOV

#160002 € .BA

;:DO 100. ITERATIONS
:LOAD RK611 BASE
;CLEAR RKk611
:PUT RK611 [N MAINT MODE

:LOAD BUS ADDRESS

#DMD . RKMR T (R2)

-SIMULATE [NDEX PULSE

#DMD MIND ,RKMR1
(R2)

#DMD MIND ' MCLK ,RKMR1 (R2)

#DMD MIND .RKMRT
(R2)

CIR6CEDQ RK61T DSKLS CTRL PRI

“2R6E.PM

27-AUG~81 10:24

3639
3640
3641
3642
3643
3644
3645
3646

0152646
015250
015252
015260
015264
015272
015300
015302

005300
001370
012762
012700
012762
012762
005300
001370

3650
2651
3652
2653
3686
3655
3656
3657
3658
3659

015326
01533&
015342
015346
015354
015362
015364
015372
015400
015402

016237
016237
005037
012737
032737
001403
052737
023737
001401
104072

3647
3648
6Ly

3660

3661
3662
3663
3666
3665
3666
3667
3668
3069
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
ggg§

015304
015312
215320

015404

015412
015414
015416
0156424
015426
015430
0156436
015440
015442
015450
015452
0156454
015462
015470
015476
015504
015512
015520
015522
0155264
015532
015534

016237
016237
016237

023737

001401
104073
023737
001401
104074
023737
001401
104075
023737
001401
104076
012762
016237
016237
012737
012737
023737
001401
104077
023737
001401
104100

wA(Y1? 3?#;046)

000040
000045
000440
000040

000026

000000
000010
000004

003440
003450
00344¢

000002
000014
003514
004100
000200

000026
000026

58%:

28-AUG-81

NON=EXISTENT MEMORY

003510
003450

000200
003500

003510
003440

7%:

003510

003450

8S$:

003514

003454

9%:

003504

003444

003502

003462

1'%:

100000
000000
000010
000200
000100
003500

000000
003440
003450
003500
003510
003440

12%:

003510

003450

15%:

PAGE 70

DEC
BNE
MOV
MOV
MOV
MOV
DE'
BNE

RO
2$
#DMD ,RKMR1(R2)
#37.,RU
;SIMULATE 1 NPR TRANSFER
(R2)
#DMD iMCLK ,RKMR1
#DMD ,RKMR1 (R2)
RO
5

MOV
MOV
CLR
MOV
BIT
BEQ
BIS
CMP
BEQ
ERROR

RKWC(R2),T.WC
RKER(RZ),T.ER
E.ER
#IR'NEM,E.CS2
#OR,T.CS2
7%
#OR,E.CS2
E.CST,T.CSY
8%
72

;STORE WORD COUNT
:STORE ERROR REG.
:LOAD EXPECTED ERROR REG.
;LOAD EXPECTED (S?2

9%
73
E.ER,T.ER
10$
74
£.BA,T.BA
1%
75
E.WC,T.WC
12$
76
#CCLR,RKCST(R2)
RKCST(R2),T.CS1
RKCS2(R2),T.CS2
#RDY,E.CS1
#IR,E.CS?
E.CS1,T.CS1
15$
77
£.CS2,7.CS2
TST17
100

*YES, CHECK ERROR REG.
:(S2 INCORRECT
SCHECK ERROR REG CORRECT
:CHECK BUS ADDRESS
:ERROR REG INCORRECT
:CHECK BUS ADDRESS CORRECT
SYES, CHECK WORD COUNT
:BUS ADDRESS INCORRECT
:CHECK WORD COUNT REG.
:YES, CLEAR RK611
“WORD COUNT INCORRECT
:CLEAR RK6M
:STORE COMMAND AND STATUS REG. 1
:STORE COMMAND AND STATUS REG. 2
:LOAD EXPECTED (S1
“LOAD EXPECTED CS2
SCHECK COMMAND AND STATUS REG, 1
SYES, CHECK (S2
:CS1 INCORRECT
SCHECK IF NEM CLEARED
“:YES, GO ON TO NEXT TEST
:CS2 INCORRECT

MOV
MOV
MOV

003442
003454

10:35

CMP

BEQ
ERROR
CMP
BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR

RKCS1(R2),T.CST ;STORE COMMAND AND STATUS REG. 1
RKCS2(R2),7.CS2 :STORE COMMAND AND STATUS REG. 2
RKBA(R2),T.BA
;STORE BUS ADDRESS

£.0S2,7.CS2

;CHECK COMMAND STATUS REG. 1 CORRE(T
SYES, CHECK (S2
:CS1 INCORRECT
*CHECK COMMAND STATUS REG. 2 CORRE(CT

3684

".'tttltttt!tt.QQt'tit'ttt"t'ttttttttt'tt'tlnt.'t'tt!"ttttt'tt't

%232

LeTEST

3¢87
3688
3689

ot
.
;e

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT (ONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD Q, DRIVE O.

3691

READ THE SILO AND MAKE SURE RIGHT CONTENTS ARE READ.

CHECK BUS ADDRESS AND WORD COUNT.

3690
3692

3693
2654

BUS ADDRESS BIT 16

SPECIFY A ONE WORD DATA TRANSFER FROM 200000.

REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 177776.

SEQ 0069

(2R6CED RK611 DSKLS CTRL PRT3

TIR6CE.PNY

27=AuUG=81 10:24

MA(Y11 30(1046)

28-AUG-81

10:35

PAGE 71

v17

BUS ADDRESS BIT 16

3695

NOTE:

3698
3699

E.-tttl'tttfiltttttttt'ttttt'tttt.ttttfittttt.tttttitt'tttttttttttt‘
TST17:
SCOPE

gggé
05536

000004

015552
015554
015562

100004
022737
103417

3706
3707
3708
3709

015564
015572
015576
015600

012737
005227
0010G7
104401

3711
3712
%;}2

015610
015612
015616

3700
3701

3702
2703
3704
3705

3710

3715

3716
3717
3718
37°9
3720
3721

3722
3723

015540
015546

015564

015604

015622

015626
015634
01.84C
(Q1564c
0715652

015660

012737
005737

1%
#2000,8LSTBK
2%

:NO, BYPASS TEST
:CHECK IF ENOUGH MEMORY
;YES, DO TEST

(52443

MoV
INC
B8NE
TYPE

#1,8T.MES
[ 23
6493

:FORCE INTERATION COUNT T0 1
;ONLY DO ONCE
;NO, GO TO NEXT TEST
:TYPE TEST N BYPASSED

104402
104401
000137

052453
016652

YA 3

TYPOC
TYPE
JMP

013702

001270

2%:

MNyV

$BASE ,R?2

MOV
MOV
MOV
MOV
MOV
MOV

#CCLR,RKCST(R2) ;CLEAR RK6E11
#DMD ,RKMRT(R2)
;PUT RKk611 IN DIAGNOSTIC MODE
#-1_RKWC(R2)
#BA16. WRHEAD ,E.(S1 ,LOAD COMMAND
#BA16'WRHEAD ,RKCS1(R2)
#50.+4+2 RO
;ISSUE ENOQUGH CLOCKS UNTIL

MOV
DEC
BNE
MOV
MOV
MOV
MOV

#DMD. RKMR1 (R2)
RO
5%
#6 RO
;SIMULATE INDEX PULSE
#DMD _MIND,RKMR1(R2)
#DMD 'MIND .MCLK ,RKMR1(R2)
#DMD 'MIND ,RKMR1
(R2)

3724
1725
3726
3727
3728
2729

015660
015666
015674
01570c
015710
015716

L1¢ 01276,
012762
012737
012762
012700

3731
3732
3733
3734
3735
3736
3737

015730
0'S736
015740
015742
01§746
015756
015762

012762
005300
001370
012700
012762
012762
012762

3730

3738
3739

37640
3741

3742

3743
T744
2745

3746
37647
3748
2749

2750

015722

015770
015772

015774
016002

016006
016014

016022

012762

005300
001370

000001
177777

001200

)

002000
177572
064477
7787
‘oo

172354
140000
001110

.00
540
1{7777
000427
(0C0427
000312

000000
000026
000002
00309
000000

000440

000040

000026

C€00026

S%:

000004
000240
000640
000240

000026
000026
000026

¢6%:

012762

00C040C

000026

005300

01605C

012700

016237
016237
016237
005390

3%:

000440

000000
00000&
000002
000024

8PL
(MP
BLO

MOV

000026

012762

1%:

001220

000040
000045

001370

016054

044216

012762
012700

016026

016026
016034
016042

002000

OF MEMCRY IS ON THE SYSTEM.
#100.,8TIMES
$KT1

012732
005237
13737
(OS570FTC
12737

001200

THIS TEST IS ONLY EXECUTED IF MORE THAN 32k

MOV
TST

013746

000144
043750

SEQ 0070

J00026

MOy
INC
MOV
(LR
MOV

MOV

DEC
BNE

7§%:

MOV
MOV

MOV

L 0]"
DEC

BNE

Q03440
0034644
003442
8$:

LTSTRY1

$STESIN,=-(SP)
L,TSTRY?
1ST20
#2000,k 1PARG
SRO
NPRBUF
, 140000
SRO
#3%,8. PERR

::D0 100. ITERATIONS
:CHECK FOR MEMORY MANAGEMENT

::SAVE STESTN FOR TYPEOQUT

::G0 TYPE--OCTAL ASCII(ALL DIGITS)
;GO TO NEXT TEST

;LOAD K611 BASE

:LOAD PAGE ADDRESS 6 FOR DATA
:TURN ON MEMORY MANAGEMENT
;LOAD WOKD IN MEMORY
:TURN OFF MEMORY MANAGEMENT
:LOAD LOOP ON ERROR LOCATION FOR
;.
SUBTEST LOOP

cDMD'MCLK RKMR1 (R2) ;.

INDEX PULSE

RO
6%

#DMD,RKMR1 (R2)
#37..,R0

JJSSUE 1 NPR TRANSFER

#DMD “MCLK,RKMR1 (R2)
#DMD. RKMR1 (R2)
RO
7%

MOy
MOV
MOV

RKCST(R2),7.CSY ;STORE COMMAND AND STATUS REG. °
RKBA(R?) T.8A
SYORE B8US ADDRESS
RKWC ‘R2).T.WC
:STORE WOR

DEC

MOV

#2C.,R0

JWAIT FOR OUTPUT READY

CZR6CED RK611 DSKLS CTRL PRT3
TIR6CE.PN
27-AUG=~81 10:26

MACY1T

3751
016056
3752
016060
3753 . 016066
3754
016074
3755 016102
3756
016106

00137¢
016237
012737
076737
005037
023737

000010
000300
000002
003502
003500

003450
003510
003504

3758
3759

01€116
016120

104101
023737

0035'0

003450

3761
3762
3763
2764

016130
016132
016140
016142

1041302
023737
001401
104103

3766

016152

3757

3760

3765

3767

3768

3769
2770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
2781
2782
3783
3784

016114

016126

016144

016154

016156

016164
016172
016200
016202
016204
016206
(016214
016220
016226
016234
010240

001401

023737

007401

104104

016237

013737
023737
001401
104105
104415
012737
005237
013737
013737
005037
012737

003504

003444

118

003502

003442

12%:

000024

003442

13%:

064472
003522

003527
003462

001777
177572
064472
064476
177572
016246

17235«

001110

100000
000040

000C0D
000026

3786
3787
3788
3789
3790
3791

016270
016276
0156302
016310
016316
016324

012762
005037
012762
012737
012762
012700

177776
003504
177776
000427
000027
000312

000002

3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
2803

016336
016344
016346
016350
06354
016362
016370
016376
016400
016402
016410

012762
005300
001370
012700
(012762
012762
012762
005300
001370
012762
012701

000060

000040
000002

000026

28G5

016420

012762

000440

000026

3792

3804

3806

016262

01¢330

(016414

076426

012737

012762

012700
012762

177777

15¢:

140076
140100

012762
012762

208:

003502

000440

000026

21%:

000004
000240
000640
000240

000026
Q00026
000026

22%:

000045

0000640

000026

MOV
MOV
CLR
CMP

#IR.OR,E.CS2
#2 ,E.BA
Wl
£.CS1,7.CST

*LOAD EXPECTED
“LOAD EXPECTED
“LOAD EXPECTED
:CHECK COMMAND

ERROR
CMP

107
£.CS2.7.CS2

2CS1 INCORRECT
SCHECK IF €S2 CORRECT

ERROR
cMP
BEQ
ERROR

102
£.BA,T.BA
12$
103

:C(S2 INCORRECT
SCHECK IF BUS ADD INCORRECT
JYES, CHECK WORD COUNT CORRECT
;BUS ADDRESS INCORRECT

138

SYES, CHECK DATA BUFFER

BEQ

CMP

BEQ

ERROR

MOV

MOV
CMP
BFQ
ERROR
SCOP1
MOV
INC
| [03Y
MOV
(1R
MOV

108
118

E.WC,T.W(C

104

RKDR(RZ2),1.DR
NPRBUF ,E.DB
E.DB,T.DB
15$
105

COMMAND AND

‘YES, CHECK CS2

STATUS REG.

(S2
BUS ADDRESS
WORD COUNT
STATUS REG. 1

;CHECK

:WORD COUNT INCORRECT

JREAD DATA BUFFER

;LOAD EXPECTED DATA BUFFER
;CHECK [F DATA CORRECT
SYES, CHECK IF LOOP ON ERROR
*DATA INCORRECT
;CHECK [F LOOP ON ERROR
;LOAD PAGE ADDRESS 6 FOR DATA
J;TURN ON MEMORY MANAGEMENT
;LOAD WORDS IN MEMORY

#2000-1,KIPAR6
SRO
NPRBUF ,140076
NPRBUF
+2, 140100
SRO
:TURN OFF MEMORY MANAGEMENT
#20%,8LPERR
;LOAD LOOP ON ERROR LOCATION FOR
:
SUBTEST LOOP

#-2.RKWC (R2)
E.BA
;LOAD BUS ADDRESS
8177776 ,RKBA(R2)
#BA16
' WRHEAD,E.CST :LOAD COMMAND
#WRHEAD (RKCS1(R2)
#50.%4¢2 K0
JISSUE ENQUGH CLOCKS UNTIL

#-1,E.uC

:CLEAR RK611
:PUT RK611 IN DIAGNOSTIC MODE
*LOAD WORD COUNT REG.

MOV

#DMD 'MCLK ,RKMQ1(R%); INDEX PULSE

MOV

#37. RO

248:

MOV

CGRRECT

IF WORD COUNT (ORRECT

MOV
CLR
MOV
MOV
MOV
MOV

)

SYES, CHECK BUS ADDRESS CORRECT

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

MOV
DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV

23%:

RKCS2(R2),T.(S2 ;STORE

MOV
MOV
MOV

000004
003500
000000

000026

BES
10$%:

SEQ 0071

BNE

MOV

003440

016246
016246
016254

3785

G 6
30(1046)
28-AUG-81
10:35 PAGE 72
117
BuS ADDRESS BIT 16

#DMD,RKMR1 (R2)
RO
218
#4 RO
;SIMULATE INDEX PULSE
#DMD .MIND ,RKMR1
(R2)
#DMD iMIND 'MCLK ,RKMR1(R2)
#DMD 'MIND ,RKMR1
(R2)
RO
22%
#DMD ,RKMR 1 (R2)
#2 Ri
:ISSUE 2 NPR TRANSFERS
#DMDTMCLK ,RKMRT (R2)

#DMD _RKMR
T (R2)

Y
DSKLS (TR, PRT
27-AuG=-8" s
O WINWW~N

005300
000000
000004
000002
003502

003440
003444
003442

000010
0003G0
003500

00345C
00359
003440

208:

003510

003450

28%:

003504

003444

29%:

003502

003442

308:

000002
003502

003504

31$:

d e
e

003462

358:

003442
36$:

10000C

.,
«

..lo.ll.l.ll

_‘i..-..!...l.

600034

;STORE COMMAND AND STATUS REG.

MOV

RKWC(R2),T.WC

:STORE WORD (OUNT

RKBA(RZ),T.BA
E. W

MOV
(MP
BEQ
ERROR

#IR_OR,E.CS2
E.CS1,7.¢80
288
101

(MP

BEQ
ERROR
(MP
BEQ
ERROR
ADD
INC
DE(
BNE
MOV
MOV
MOV
MOV
CMP

BEQ
FRROR
DEC
BNE
SCOP1

FIRST

iNO, GET (S2

#20. RO
RO
258

(MP
BEQ
ERROR

*CHECK

268

MOV
DEC
BNE

MOV

:STORE BUS ADDRESS REG.

WORD

:WAIT FOR OUTPUT READ’

RKCS2(R2),T.0S2 ;STORE COMMAND AND STATUS REG 2
~

E.(S2,7.CS2
293
102
E.BA,T.BA

LOAD EXPECTED (S2
*CHECK COMMAND STATUS REG 1
VES, CHECK (S2
:CS1 INCORRECT

“CHECK COMMAND STATUS REG 2 CORRECT
YES, CHECK BUS ADDRESS
052 INCORRECT
*CHECK BUS ADDRESS CORRE(T

308
103
E.WC,T.WC
3is
104
#2,E.BA
E.WC
R
238

YES, CHECK WORD COUNT
:BUS ADDRESS INCORRECT
:CHECK WORD COUNT CORRE(T
YES, GET TEXT WORD
*WORD COUNT INCORRE(T
: INCREMENT BUS ADDRESS AND
:
WORD COUNT
*CHECK IF FINISHED
iNO, GET SECOND WORD

368
105
RO
358

VES, CHECK IF FINISHED
*DATA BUFFER INCORRECT
*CHECK IF FINISHED
:NO_READ SECOND WORD
:CHECK IF LOOP ON ERROR

#2 R0
ANPRBUF ,R3
RKDB(R2),T.DB
(R3)+,E.DB
E.DB,7.DB

#CCLR,RKCST(R2)

CORRECT

:LOAD COUNT AND ADDRESS WORD
:
DATA (OMPARE
:READ DATA BUFFER
SGET EXPECTED DATA
ZCHECK IF CORRECT

:CLEAR RK611

2222223228222 232222202R2RR2220RRRRRRRRRRRRRRRRRRRR
RN 2]

SeTESI

J1665¢

SEQ 0072

RO
248
RKCST(R2),T.CST

MOV

000000

PAGE 73

DEC
BNE
MOV
1ST

25¢:

10:35

BUS ADDRESS BIT 16

BES

000024

000002
064472
010024
003522
003522

28-AUG~81

MOV

d ed

d —d ed

D and

016434
016436
016440
016446
016454

LINGAR] 3?;;046)

.
2

=2 000000000 COOO

CIRG6CED RKO1T1
“IR6CE. P11

BUS ADDRESS BIT

CLEAR RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER T0 AN RKO06
IN 26 SECTOR FORMAT, CYLINDER O, HEADER
0, DRIVE 0.

SPECIFY A ONE WORD DATA TRANSFER FROM 400000.

READ

THE SILO AND MAKE

SURE RIGHT CONTENTS ARE READ.

REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 377776.
CHECK BUS ADDRESS AND WORD COUNT.
NOTE:

THIS TEST
OF MEMORY

IS ONLY EXECUTED IF MORE
[S ON THE SYSTEM,

THAN 64K

..'...Qt."'.t.lfi.tt'..'t'.tt.I.fi.tt"tlt't.t'.l!!..l.!'.".".'

S720:

SCOPE

TIRGCED Rk611 DSKLS CIRL PRT3
"ZRe{E P
27-AuG=81 10:24
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901

016654
016662
016666
016670
016676
016700
016700
0Q1€706
016712
016714
016720
016724
016726
016732

000137

016736
016742
016750
016754
016762
(16766

013702
012737
005237
013737
005037
012737

3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915

017110
017116
017122
017130
017136
017140
017142
017150
017156
017164
017170
017172
017174

004000

0446216

172354

MOV
TST
8PL

1%:

016774

100000

000040
177777

001027
001027
000312
010440

000026
000026
000026

000026

000000
000004
000007
000024

003440
203444

000010
000300
000002
003502

OO0
jalele

000026
€00026

;FORCE INTERATION COUNT
;ONLY DO ONCE

,1STBY1

;TYPE

649

$TESTN,-(SP)

MOov
CLR
M0V

#3$ ,SLPERR

TYPE

INC

sNO, GO TO NEXT TEST

TEST N BYPASSED

;:SAVE STESTN FOR TYPEOUT

;.60 TYPE--OCTAL ASCIICALL DIGITS)

;GO TO NEXT

TEST

$BASE ,R2

;LOAD K611 BASE

SRO
NPRBUF ,140000
SRO

;TURN ON MEMORY MANAGEMENT
;LOAD WORD IN MEMORY
sTURN OFF MEMORY MANAGEMENT

;LOAD PAGE ADDRESS 6 FOR DATA

sLOAD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

MOV
MOV
MOV
MOV

#4 RO

MOV
MOV
MOV
MOV

DEC
BNE

8S:

TO 1

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(RZ2)
;PUT RK611 IN DIAGNOSTIC MODE
#-1,RKWC(R2)
#BA17
! WRHEAD ,E.CS1 ;LOAD COMMAND
#BA17 ! WRHEAD ,RKCS1(R2)
#50. %442 RO
: JSSUE ENOUGH CLOCKS UNTIL
#DMD 'MCLK ,RKMR1(R2) ;
INDEX PULSE
#DMD ,RKMR1 (R2)
RO

DEC
BNE

7%:

sCHECK iF ENQCUGH MEMORY
;YES, DO TEST

MOV
MOV
MOv
Mov
MOV
MOV
MOV
MOV

DEC
BNE

6$%:

TEST

#1,$TIMES
#-i

#4000,KIPAR6

5%:

BYPASS

MO\

MOV
Mov

003442

N NN
o e
O =N
H QO

;NO,

2%:

NN
NN
WL NI

000040
000045
000440
000040

ITERATIGNS

sCHECK FOR MEMORY MANAGEMENT

#45000,8LSTBK
2%

JMP

~
o

000004
000240
000640
000240

000026
000026

;:D0 100,

$KT11

648

3%:

SE3 0073

#100, ,$TIMES

,TSTBYZ
TST21

001110

000000
200026
000002
003500
000000

CMP
BLO
INC
BNE

140000

000040

O NN N o
NNNNOOO NNNO o

017276

762
762
762

O NN

3618

017202

(17210

00200

10:35 PAGE 74
30(1046)
28-AUG=-81
120
BUS ADDRESS BIT 17

TYPE
MOV
TYPOC

WWAN AN NO

3916

2917

017106

000144
063750

001200

[elolelolelolelolololalalelelolalolololeloleolololalalelalelalele
Ot e OO P A
a2 OO =0
=002 = w0
P
NPONUON =2 AR
ONON = ANV
NUNY — WARO NN N = uanuro oo oo

3902

016774
016774
017002
017010
017016
017024
017032
017036
017044
017052
017054
017056
017062
017070
017076
017104

MACY1T

MOV
MOV
MOV
MOV

DEC
BNE

MOV
MOV
MOV

(LR

¢ SIMULATE

INDEX PULSE

#DMD !MIND ,RKMR1(R2)

#DMD 'MIND 'MCLK ,RKMR1(R2)
#DMD !MIND,RKMR1(R2)
RO

63
#DMD ,RKMR1 (R?2)
#37..R0
;JSSUE
#DMD 'MCLK ,RKMR1(R?2)

NPR TRANSFER

#DMD ,RKMR1(R2)

RKCST1(R2),T.CS1

;STORE

RKWC(R2),T.W(

;STORE WOR

RKBA(R?2),T.BA

:80.,R0

COMMAND AND STATUS REG.

;STORE BUS ADDRESS

JWALT FOR QUTPUT READY

RK(S2(R2),T.(S2 ;STORE COMMAND AND STATUS REG. 2

#IR.0OR,E.(S2

sLOAD EXPECTED (S2

E.w(

JLCAD EXPECTED WORD COUNT

#2,E.BA

sLOAD EXPECTED BUS ADDRESS

CIRECED RK61T DSKLS CTRL PRT3
“IR6E P
27-AUG=-81 10:24
3919

Q17222

023737

3921
2922

017232
0°723¢

104101
023737

3924
3925
3926
3907

017264
017246
017254
017256

104102
023737
0014601
106103

3620
3923

3928

3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945

3946
3047

017230

017242

017260

017266
017270
017272
017300
017306
017314
017316
017320
017322
017330
(017334
017342
017350
017354
017362

00140%

(01401

023737

001401
104104
016237
013737
023737
001401
104105
104415
012737
005237
013737
013737
005037
012737

003500
003510

003440
003450
0036446

11%:

003502

003442

12%:

000024
064472
003522

003462
003522
003462

13%:

003777
177572
064472
064474
177572
017362

172354

001110

100000
000040

000000
000026

2949
7950
3951
3952
3953
3954
3655
3956
3957
3958
3959
3960
3961
3962
2963
3964
3965
3966

017404
017412
017416
017424
017432
017440
017444
017452
0176460
017462
(017464
017470
017476
017504
017512
017514
077516
017524

012762
005037
012762
012737
012762
012700
012762
012762
00530C
001370
012700
012762
012762
012762
005300
001370
012762
012701

1?7776
003504
177776
001027
000427
000312
000440
000040

000002

000040
000002

000026

I968

017534

012762

00044C

Q00026

3970
3971
3972
3973
3974

017550
017552
017554
017562
017570

3967
3969

017530

017542

012737

012700
012762

005300
001370
016237
016237
0'6237

177777

000004
000240
000640
000240

00C045

000040

000000
000006
000002

15%:

140076
140100

012762
012762

017376

10%:

20$:

003502

000026
000026

000026
000026
000026

000026
003440
003444
003447

E.CS1,T.C91

;CHECK COMMAND STATUS REG. 1 (ORRE(?

ERROR
CMP

101
E.(S2,7.082

:CST INCORRECT
TCHECK IF CS2 CORRECT

ERROR
CMP
B8EQ
ERROR

102
E.BA,T.Bn
125
103

BEQ

21%:

22%:

278
248:

108

“YES, CHECK (S2

*YES, CHECK BUS ADDRESS (ORRECT
;CS2 INCORRECT
*CHECK IF BUS ADD INCORRECT
JYES, CHECK WORD COUN® CORRECTM
*BUS ADDRESS INCORRECT
JCHECK IF WORD COUNT CORRECT
JYES, CHECK DATA BUFFER
;WORD COUNT INCORRECT
:READ DATA BUFFER
*LOAD EXPECTED DATA BUFFER
:CHECK IF DATA CORRECT
JYES, CHECK IF LOOP ON ERROR
:DATA INCORRECT
SCHECK IF LOOP ON ERROR
:LOAD PAGE ADDRESS 6 FOR DATA
:TURN ON MEMORY MANAGEMENT
;LOAD WORDS [N MEMORY

CMP
BEQ
ERROR
MOV
MOV
CMP
BEG
ERROR
SCOP1
MOV
INC
MmNV
MOV
(LR
MOV

E.WC,T.wC

MOV

#CCLR,RKCS1(R2) :CLEAR RK611
#DMD ,RKMRT1(R2)
:PUT RK611 IN DIAGNCOSTIC MODE

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

#-2 RKWC (R2)
E.BA
:LOAD BUS ADDRESS
#177776 ,RKBA(R?)
#BA17 'WRHEAD,E.CS? ;LOAD COMMAND
#BA16
' WRHEAD .RK(CS1(R2)
#50.+4+2 R0
;1SSUE ENOUGH CLOCKS UNTIL
ODMD'HCLK RKMR1(R2) ; INDEX PULSE
#DMD. RKMR1 (R2)
RO
218
#4 R0
;SIMULATE INDEX PULSE
#DMD 'MIND ,RKMR1
(R2)
#DMD {MIND . MCLK ,RKMR1(R2)
#DMD MIND ,RKMR1
(R2)
RO
22%
#DMD ,RKMR1 (R2)
22
n1
:ISSUE 2 NPR TRANSFERS

MOV

000C04
003500
000000

SEG (074

CMP

BEQ

003504

017362
017370

3948

MACYTY 30(1046) 28-AUG-81
10:35 PAGE 75
120
BUS ADDRESS BIT 17

MOV
MOV

MOV

DEC
BNE
MOV
MOV
MOv

13$
104
RKDB(R2),T7.DB
NPRBUF,E .DB
£.DB,T.DB
15$
105

#6000-1,K]PARG6
SRO
NPRBUF ,140076
NPRBUF +2,140100
SRO
;TURN OFF MEMORY MANAGEMENT
#208,$.PERR
“LOAD LOGP ON ERROR LOCATION FOR
.
SUBTEST LOOP

#-1,E.WC

*LOAD WORD (OUNT PEG.

237,

ODHD'HCLK RKMR1(R?2)

#DMD_RKMRT (R2)

RO
248
RKCST(R2),T. cs1
RKBA(R2),7.8
RKWC( RI).T. c

:STORE COMMAND AND STATUS REG,
:STORE BUS ADDRESS REG.
*STORE WORD COUNT

4000
4001
4002
4003
40046
4005
4006
4007
4008
4009
4010
4011

=D
D
D
nd
e
ed

[AV]

e
D e

TST

000024

25%:

28%:

023737

003504

003444

29%:

003502

003442

30s:

0000 02
003502

003504

023737
001401

7712
7714
7716

064472

7722

000024

003522
003522

003462

;STORE
JYES,

CHECK (S2

;CS1 INCORRECT
;CHECK COMMAND STATUS REG 2 CORRECT
JYES, CHECK BUS ADDRESS
;€S2 INCORRECT
;CHECK BUS ADDRESS

CORRECT

JYES, (HECK WORD COUNT
;BUS ADDRESS INCORRECT
;CHECK WORD COUNT CORRECT
JYES, GET TEXT WORD

E.WC,T.wC
218
104
#2,E.BA
E.w(
R1
23%
#2,R0
JNPRBUF R3
RKDB(RZ) 7.D8
(RS)*.E.DB

;WORD

COUNT

INCORRECT

s INCREMENT BUS ADDRESS AND
;.

WORD

COUNT

;CHECK IF FINISHED
sNO,

GET

SECOND WORD

sLOAD COUNT AND ADDRESS WORD
DATA (COMPARE
:
;READ DATA BUFFER

JGET EXPECTED DATA
JCHECK IF CORRE(CT

E.DB,T.DB

BEQ
ERROR
DEC
BNE
SCOP1
MOV

COMMAND AND STATUS REG ¢

JLOAD EXPECTED (S¢2
sCHECK COMMAND STATUS REG ' CORRECT

28$
101
E.(S2.T.(S2
29%
102
E.BA,T.BA
308
103

(MP

368
105
RO
35%

JYES,

CHECK

FINISHED

sDATA BUFFER [NCORRECT

JCHECK IF FINISHED
;NO READ

#CCLR,RKCST(R2?

SECOND WORD

JCHECK IF LOOP ON ERROR
;CLEAR RK611

ALRARSS2SR
SRR RRRRRRRRRRRRRRRRRRRRRRE RS

TeTEST 21

ADDRESSING GREATER

THAN 96K

PUT CONTROLLER
CLEAR RK611 WITH A CONTROLLER CLEAR.
ISSUE A WRITE HEADER TO AN RK06
IN DIAGNOSTIC MODE.
IN 26 SECTOR FORMAT, CYLINDER O, HEADER O, DRIVE O.
SPECIFY A ONE WORD DATA TRANSFER FROM 600000.

M
.

READ

4019
4020

THE

SILO AND MAKE

REPEAT

FOR A TWO WORD

NOTE:

THIS

SURE

RIGHT

TRANSFER

CONTENTS

ARE

I[F

THAN 96Kk

FROM ADDRESS

(HECK BUS ADDRESS AND WORD COUNT.

'-t

READ.

577776.

4021
4022
402%

4030

35%:

000000

4018

4028
4009

#IR!0R,E. s
E.CST, f.c51

INC
DEC
BNE
MOV
MOV
MOV
MOv

003462

4014
4015
4016
4017

4027

MOV
(MP

JWAIT FOR QUTPUT READY

RO
25%
RK(S2(R2),T.

(MP
BEQ
ERROR
ADD

36%:
100000

#20. R0

REQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR

000002

17726
17734
17740
17746
17750
17752
17754
17756
17760

MOV

DEC
BNE
MOV

SEQ 0075

JCHECK [F FIRST WORD
JNO, GET (S2

265

BEQ

003510

104103

NN~
QOO NN
OO~

003502

4012
4013

4024
4025
4026

120

023737

001401

K
6
10:35_
PAGE 76
BUS ADDRESS BIT 17

28-AUG-81

30(1046)

26%:

001401
104102

VACYN]

000610
000300
003500

104101

—ad
D
e
ed e

3995

3996
3967
3698
2999

005737
001404
012700
005300
001376
016237
012737
023737
001401

NNNN

3682
3983
2684
3985
2986
3987
3988
3989
3990
3991
3962
3993
3964

d ed

3580
3981

3979

—d

3975
3976
3977
3678

[ololeloleololaloldlelolelalaleolololololalolelalolololololola
] o)

(ZR6CED RKk611 DSKLS CTRL PRIT3
CIR6CE.P
27-AUG-81 10:2¢4

o®
:.

TEST

OF MEMORY

IS ONLY EXECUTED

S ON THE SYSTEM,

(A AR

017766

017770
017776
020002
020004
020072

000004
012737
005737

000144
043750

001200

022737

006000

044216

100004

103417

SCOPE

MOV

1100 LSTIMES

BPL
(MP
BLO

18
#6C00,8LSTBK
2%

TST

R RRRERRRRRRRRRRRRRRARERN)

2.D0 100.

ITERAT]ONS

;CHECK FOR MEMORY MANAGEMENT

;NO,

BYPASS

JCHECK ]F

TEST

ENOUGH MEMORY

JYES, DO TEST

CZRO6CEQ RK6!T DSKLS CTRL PRT3
TZR6{E PV
27-AUG-81 10:24
4031
6032
4033
4034
4035
4036
4037
4038
2828

020014
0200«
020022
020026
020030
020034
020040
020042
020046

(12737
005227
001007
104401
013746
104402
104401
000137

000001
177777

4041
4042
4043
6044

020052
020056
0200646
020070

013702
012737
005237
013737

001270
006000
177572
064472

4046

020102

012737

012762
012762
012762
012737
012762
012700
012762

4045

020076

6047
4048
4049

020110

4057
4058
4059
4060
4061
64062
4063
4064
4065
4066
4067
4068

020160
020166
020170
020172
020176
020204
020212
020220
020222
020224
020232
020236

4050
4051
64052
4053
4056
4055
4056

4069

4070
4071
«272
4)73
6374
4J75

4076

020110
020116
020124
020132
020140
020146
020152

020244

020252
020254
020256
020264
020272
020300

020304

005037

012762
005300
001370
012700
012762
012762
012762
005300
001370
012762
012700
012762
012762

005300
001370
016237
016237
016237
012700

005300

4077
<078
4079
<080
4081
4082

020306
020310
020316
020324
020332
020336

001376
016237
012737
012737
005037
023737

4084

020346

1041017

4086

020356

<083

4085

0c0344

020350

001401

023737

001401

MACY11 30(1046) 28-AUG-81
10:35 PAGE 77
T2l
ADDRESSING GREATER THAN 96K
001200

1%:

052443
001220

052453
021102

64%:

LSTIMES

l64%

,TSTRY1
$TESTN,=(SP)

,TSTRY?
TST22

JFORCE INTERATION COUNT TO 1
;ONLY DO ONCE
JNO, GO TO NEXT TEST
;TYPE TEST N BYPASSED
;. SAVE STESTN FOR TYPEOUT
;.60 TYPE--OCTAL ASCIT(ALL DIGITS)

;GO TO NEXT TEST

140000

MOV
MoV
INC
MoV

020110

001110

MOV

$BASE ,R2
#6000,K1PAR6
SRO
NPRBUF ,140000
SRO
#3$,$LPERR

100000
000040
177777
001427
001427
000312
000440

000000
000026
000002
003500
000000

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#-1,RKWC (R2)
#BA16!BA17!WRHEAD
,E.CS1 ;LOAD COMMAND
#BA16!BA17
! WRHEAD ,RK(S1(R2)
#50.%4+2,R0
: ISSUE ENOUGH CLOCKS UNTIL
#DMD 'MCLK ,RKMR1(R2) .
INDEX PULSE

MOV

#DMD. RKMRT (R2)

177572

000040

000004
070240
000640
000240

172354

3s:

5%:

000026
000026
000C26

6%:

000026

000000
000004
000002
000024

003440
003444
003442

003510

CLR

000026

000040
000045
000440
000040

000010
000300
000002
00350¢
003500

2%:

MOV
INC
BNE
TYPE
MOV
TYPOC
TYPE
JMP

SEQ 0076

000026
000026

7%:

8%:
003450
003510
003504

003440
003450

MOV
DEC
BNE
MOv
MOV
Mov
MOV
DEC
BNE
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV

DEC

BNE
MOV
MOV
MOV
CLR
(MP

BEQ

108:

ERROR

(MP

BEQ

JLOAD
;LOAD
;TURN
;LOAD

K611 BASE
PAGE ADDRESS 6 FOR DATA
ON MEMORY MANAGEMENT
WORD IN MEMORY

sTURN OFF MEMORY MANAGEMENT

JLOAD LOOP ON ERROR LOCATION FOR
;

SUBTEST LOOP

#DMD ,RKMR1 (R2)
RO
5%
#4 R0
: SIMULATE INDEX PULSE
#DMD !MIND ,RKMR1(R2)
#DMD !MIND !MCLK ,RKMR1(R?)
#DMD !MIND ,RKMR1
(R2)
RO
63
#DMD ,RKMR1(R2)
#37.,R0
;ISSUE 1 NPR TRANSFER
#DMD- MCLK ,RKMR1(R2)
RO
7$
RKCST(R2),T.CS?
RKBA(R2),T.BA
RKWC(R2),T.WC
#20. RO

;STORE COMMAND AND STATUS REG.
;STORE BUS ADDRESS
;STORE WOR
JWAIT FOR QUTPUT READY

$
RKCS2(R2),T.0S2
#IR!OR,E.CS2
AL
E.wW(
E.CST1,T.CST

;STORE COMMAND
JLOAD EXPECTED
;LOAD EXPECTED
;LOAD EXPECTED
sCHECK COMMAND

101

2CS1

108

£.(52,7.CS2

118

JYES, CHECK (S2

AND STATUS REG. ¢
(S2
BUS ADDRESS
WORD COUNT
STATUS REG. 1 CORKECT

INCORRECT

;CHECK IF

(S2 CORRECT

JYES, CHECK BUS ADDRESS CORRECT

CZR6CEQ RK611 DSKLS CTRL PRT3

cIR6CE.P11
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103

4104
4105
4106

27-AUG=81 10:24

020360
020362
020370
020372
020376
020402
0204606
020406
020414
020422
020430
020432
020434
020436
020444
020450
020456

003444

11$:

003502

003442

12%:

000024
064472
003522

003462
003522
003462

13$:

172354

005037
012737

005777
177572
064472
064474
177572
020476

020476
020504
020512
020520
020526
020532

012762
012762
012737
012762
005037
012762

100000
000040
177777
177776
003504
177776

000000
000026
003502
900002

020546

012762

001027

020464
020470
020476

4115

020540

L116

4117
4118

4119

4120
4i21
4122

4123
4124
4125

4126
4127
4128

020554
020560

020566

020574
020576
020600

020604
020612
020620

4129

020626
020630
020632
020640

4131
4132
4133

020650
020656
020664

4135
4136

020670
020676

4130

4134

4137
4138

4139
4140
4141
147

121

003504

4107
4108

4109
4110
4177
4112
4'13
4114

104102
023737
001401
104103
023737
001401
104104
016237
013737
023737
001407
104105
104415
012737
005237
013737
013737

MACY!1 30(1046)

020644

020666

0207064
020712

020716
020720
0207264
020726

012737
012700
012762

012762
005300
001370
012700

012762
012762
012762
005300
€01370
012762

001427

000312
000440

000040
000006
000240

000640
000240

140076
140100
001110

000026
000C26

000026
000026
000026

003440
003444

001404
012700

000024

005300
001376

MOV
MOV
CMP
BEQ
ERROR
SCOP1
MOV
INC
MOV
MOV
CLR
MOV

102
£.BA,".BA
12%
103
E.WC,T.WC
13¢
104
RKDB(R2),7.DB
NPRBUF ,E .DB
E.DR,T.DB
158
105

;€S2 INCORRECT
“CHECK IF BUS ADD INCORRECT
“YES, CHECK WORD COUNT CORRECT
*BUS ADDRESS INCORRECT
“CHECK IF WORD COUNT CORRECT
“YES, CHECK DATA BUFFER
*WORD COUNT INCORRECT
:READ DATA BUFFER
*LOAD EXPECTED DATA BUFFER
“CHECK IF DATA CORRECT
LYES, CHECK IF LOOP ON ERROR
;DATA INCORRECT
SCHECK IF LOOP ON ERROR
:LOAD PAGE ADDRESS 6 FOR DATA
“TURN ON MEMORY MANAGEMENT
:LOAD WORDS IN MEMORY

#6000-1,KIPAR6
SRO
NPRBUF ,140076
NPRBUF +2,140100
SRO
:TURN OFF MEMORY MANAGEMENT
#208, SLPERR
*LOAD LOOP ON ERROR LOCATION FOR
.
SUBTEST LOOP

#BA17 | WRHEAD
,RKCST (R2)

000000
000004
000002
003502

ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

SEQ 0077

MOV

016237
016237
016237
005737

ADDRESSING GREATER THAN 96K

000000

003500

000026
000026

001370

PAGE 78

000004

000440
000060

012762
012762
005300

000045

#CCLR,RKCST(R2) :CLEAR RK611
#DMD ,RKMRT(R2)
:PUT RK631 IN DIAGNOSTIC MODE
#-1,E.WC
*LOAD WORD COUNT REG.
#-2.RKWC (R2)
E.BA
;LOAD BUS ADDRESS
#177776 ,RKBA(R2)

000026

012700

208:

10:35

MOV
MOV
MOV
MOV
CLR
MOV

000040
000002

012701

15%:

28-AUG-81

MOV

21%:

MOV
MOV

MOV
DEC
BNE
MOV

22%:

238:

24$:

MOV
MOV
MOV

DEC
BNE
MOV
MOV

MOV

MOV
MOV
DEC
BNE

MOV
MOV

003442

MOV
ST
258 :

BEQ
MOV
DEC
BNE

#BA16'BA17 'WRHEAD ,E.CST1 ;LOAD CCMMAND

#50.+4+2 R0
“ISSUE ENOUGH CLOCKS UNTIL
#DMD 'MCLK ,RKMR1(R2) ; INDEX PULSE

#DMD
. RKMR1 (R2)
RO
218
#4 RO

:SIMULATE
#DMD 'MIND ,RKMR1
(R2)
#DMD i MIND iMCLK ,RKMR1(R2)
#DMD . MIND ,RKMR1
(R2)
RO
22%
#DMD ,RKMR1(R2)

#2 RI

#37. RO

INDEX PULSE

:ISSUE 2 NPR TRANSFERS

#DMD 'MCLK ,RKMR1
(R2)
#DMD
. RKMR 1 (R2)
RO
248

RKCST(R2),T.CS1
RKBA(R2),7.8#

;STORE COMMAND AND STATLS REG.
:STORE BUS ADDRESS REG.

263

*NO, GET €S2
SWAIT FOR OUTPUT READY

RKWC(R2) .T.WC
E.W(

#20. RO
R0
25%

>STORE WORD COUNT
SCHECK IF FIRST WORD

CZR6CED RK611 DSKLS CTRL PRT3
CIR6CE PN
27-AuUG=-81 10:24

003442

000002
003502

003504

003462

INC
DEC
BNE

35%:

003462

(MP

BEQ

36%:
012762

10000¢C

MOV
MOV
MoV
MOV

ERROR
DEC
BNE

SCOP1

000000

MOv

SEQ 0078

RKCS2(R2),T.(S2 ;STORE COMMAND AND STATUS REG 2
#IR!OR,E.(S2
JLOAD EXPECTED (S2

E.CS1,T.(ST
28%
101
E.(S2,T.(S2
29%

102
E.BA,T.BA

sCHECK COMMAND STATUS REG 1 CORRECT

JYES,

CHECK (S2

JYES,

CHECK BUS ADDRESS

2CS1 INCORRECT
;CHECK COMMAND STATUS REG 2 CORRECT
2CS2 INCORRECT

sCHECK BUS ADDRESS CORRECT
JYES, CHECK WORD COUNT
;BUS ADDRESS INCORRECT
sCHECK WORD COUNT CORRECT
JYES, GET TEXT WORD
;WORD

ADD

#2,R0
#NPRBUF ,R3
RKDB(R2),7.DB

(R3)+,E.DB
E.DB,T.DB
36%
*05
RO

COUNT

INCORRECT

s INCREMENT BUS ADDRESS AND
WORD COUNT
;
JCHECK [F FINISHED
JNO, GET SECOND WORD
sLOAD COUNT AND ADDRESS WORD
.

_DATA (COMPARE

JREAD DATA BUFFER
T EXPECTED DATA

;. .{ECK IF CORRECT
JYES, CHLCK If FINISHED

;DATA BUFFER

35%

#CCLR,RKCST(R2)

INCORRECT

JCHECK IF FINISHED
sNO READ SECOND WORD
;CHECK IF LOOP ON ERROR
;CLEAR RK611

;'th.t't..tt.ttt.ttt‘tit""t.t.ttttt."t't.'fittt'ttt.tt.".l"tt

IN 18 BIT MODE

SILO FILL

PUT (CONTROLLER
CLEAR RK611 WITH CONTROLLER C(LEAR.
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0. DRIVE 0,
SPECIFY 66
WORD DATA TRANSFER.
CLOCK
ALL 66 WORD INTO THE SILO.
CHECK THAT ALL 66
WORDS ARE CORRECT (16 LEAST SIGNIFICANT BITS).

8,8 0.8,
8, 0,

CRTEST 22

4174
4175
4176
L4177
4178
4179
4180
(181
4182
4183
4184
4185
4,186
L187
4L188
4189
4190
L9
4192
4193
L1194
4195
L19¢
4197
« 98

CMP
BEQ
ERROR
CMP
BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR

4170
LI
4172
L1173

003502

10:35
PAGE 79
ADDRESSING GREATER THAN 96K

4168
4169

02720

000144
001270

‘d\FV‘Q\rN‘flaf

4167

003444

000002
064472
000024
003522
063522

QOO NWNON N
OfUSNNITY
NN ~N

4166

003504

28-AUG-81

MOV
MOV

003510

lelelelaleleleleloelelo
o)

4165

021000
021002
021010
021012
021014
021022
021026
021030
021032
021036
021042
021050
021054
021062
021064
021066
021070
021072
027074

30(1046)
T

000010
000300
003500

020736
020744
020752
020754
020756
020764
020766
020770
020776

ST ST N1, V1, V1,V 1, ¥

4164

020730

[aS1aN 1N

4143

4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
L6154
4155
4156
4157
4158
4159
4160
4161
4162
4163

MACY11

100000

000040

17676
177677

064472
064474
010027
01,°27
000si2
000440

001200

000000
000026
000002
003502
000004
003504
003500
000000
000026

TST22:

EA AR SRRRRRARRRRRRRRRRRRRRRRRRRRRRRRRRRRRARE
A

SCOPE

MCV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
MoV

5%.

Moy

#100,,$TIMES

:;D0 100.

#DMD ,RKMR1(R2)

JPUT RK611

$BASE ,R?
#CCLR,RKCST(R2)

#-66. ,RKWC(R2)
#-65.
€ .W(

ITEPATIONS

sLOAD RK611 BASE

:CLEAR RK611

[N MAINTENANCE

sLOAD WORD COUNT

#NPRBUF ,RKBA(R2);LOAD BUS ADDRESS
#NPRBUF
+2 ,E .BA

#WRHEAD CFMT E.CS?

:LOAD EXPECTED (S!

SWRHEAD
' CFMT.RKCST(R2) :1SSUT COMMAND
#50.°¢+2
RO

SISSUE ENOUGH CLOCKS DATA

DMD ML K, RKMRT(R?)

INDEX PULSE

MODE

(ZR6CEO RK611 DSKLS CTRL PRT3
TIR6CE.PIY
27~AUG=-81 10:2¢4
4199
4200
4201
4202
4203
4206
6205
4206
4207
6208
4209
4210
4211
4212
4213
4214
4215
4216
6217
4218
4219
4220
4221
4222
4223
4224

4225

4226

4227
4228

4229
4230

4231

021210
021216
021220
021222
021226
021234
021242
021250
021252
021254
021262
021270
021274
021300
021306
021314
0213i6
021320
021326
021334
021342

021350
021352
021356
021360
021362

000026

000004
000240
000640
000240

000026
000026
000026

MOV
DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
Mov
mMov
MOV
MOV
MoV
DEC
BNE
MOV
MOV
MOV
CMP

000040
00C300
000102
000050
000440
000040

000026
003510

000000
000004
000002
064474

003440
003444
003442
003504

000026
000026

000024

68:

7$:
8%:

9%:

012737
023737

000200
003500

003510
003440

11%:

021416

023737

003510

003453

12%:

0216430

023737

003504

0034446

13%:

003502

003442

14%:

000002
003502

003504

15%:

000440
000040

000026
000026

20%:

000002
003502
000000
000010
000004
000002

003504

021374

021376
0216404
021412
021414

021436
021440
021442
021450
021452
0271454
021462
021466
021470

4247
4248
4249
4250
4251
4252
6253
6254

000040

9003450

4235
4236
6237
6238
4239
6240
4241
6242
4243
4245
4246

28-AUG-81
10:35 PAGE 80
SILO FILL IN 18 BIT MODE

000010
003502

027424
021426

4244

001004
012700
005300
001376
016237

021472

021476
021504

021512
021514
021516
021524
021530
021536
021544
021552

001003

001401
104121

001401
104122

001401
104123
023737
001401
104124
062737
005237
005301
001301

012700

012762
012762

005300
001370
162737
005037
016237
016237
016237
016237

MACYI 3?5;046)

005737

021370

4232
4233

4234

012762
005300
001370
012700
012762
012762
012762
005300
001370
012762
012737
012701
012700
012762
012762
005300
001370
016237
016237
016237
022737

000120

003440
003450
003444
003442

10%:

BNE
MOV
DEC
BNE
MOV

SEQ 0079

#DMD ,RKMR1(R2)
RO
5%
#4 RO
; SIMULATE INDEX PULSE
#DMD !MIND ,RKMR1
(R2)
#DMD !MIND .MCLK ,RKMRT(R2)
#DMD . MINL ,RKMR1(R2)
RO
6%
#DMD ,RKMR1 (R2)
#IR!0R,E.CSZ
JLOAD EXPECTED (S2
#66. ,R1
;ISSUE 66 NPR TRANSFERS
#40. ,RO
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
8$
RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKBA(R2) ,T.BA
;STORE BUS ADDRESS REG. 2
RKWC(R2),T.WC
;STORE WORD COUNT
ANPRBUF
+2 ,E.BA
;CHECK IF FIRST WORD
108
#20.,RO
RO
9%

sNO, CONTINUE
;WAIT FOR OUTPUT READY

TST

RKCS2(RZ),T.CS2 ;STORE COMMAND AND STATUS REG.
E.wWC
sCHECK IF LAST WORD

MOV
CMP

#OR,E.CS2
E.CS1,T.CS1

CMP

E.CS2.T.CS2

C(MP

E.BA,T.BA

BNE

BEQ
ERROR
BEQ
ERROR

11%

;NO,

12%
121

;YES, CONTINUE
;CST1 INCORRECT

13$
122

sYES, CONTINUE
;€S2 INCORRECT

;CHECK BUS ADDRESS CORRECT

MoV
MOV

#DMD .MCLK ,RKMR1T(R2)
#DMD ,RKMR1(R2)

DEC
BNE
SUB
CLR
[0}
MOV
MOV
MOV

RO
20%
#2,E.BA
E.WC
RKCS1(R2),7.CS1
RKCS2(R2),T7.(S2
RKBA(R2),T.BA
RKWC(R2),T.wWC

CONTINUE

;CHECK CS2 CORRECT

14$
123
E.WC, T.WC
15%
124
#7,E.BA
E.wWC
R1
7$

#2+40.,R0O

;LOAD EXPECTED (CS2
;CHECK CS1 CORRECT

BEQ
ERROR
CMP
BEQ
ERROR
ADD
INC
DEC
BNE

MOV

SYES, CONTINUE
;BUS ADDRESS INCORRECT
sCHECK WORD COUNT REG CORRECT
;YES, CONTINUE
sWORD COUNT INCORRECT
; INCREMENT BUS ADDRESS AND
;
WORD COUNT
JCHECK IF SILO FULL
;NO, GET NEXT WORD

;ISSUE CLOCKS FOR TWO NPR'S

;ADJUST BUS ADDRESS AND WORD COUNT
;STORE
;STORE
;STORE
;STORE

COMMAND AND STATUS REG. 1
COMMAND AND STATUS REG. 2
BUS ADDRESS
WORD COUNT

PRt

CZR6CEOD RK611 DSKLS CTRL PRT3

TIR6CE.PI

27-AUG-81 10:2¢4

4255
4256
4257

021560
021566
021570

023737
001407
104125

6259

021600

001401

4258
4260

6261
6262
6263
6264
4265
64266
267

4268
4269

4270
6271
6272
6273
4274
64275
6276
4277
4278
4279
4280
4281
4282
4283

4284

4285

4286

021572

021602

023737

104126

218:
22%:

003502

003442

238%:

021642

012701

000102

021634

021646
021652
021660
021664
021672
021674
021676
021702
021704
021706
021714
021722
021726
021730

021736
021744

021746

012737

005037
016237
012337
023737
001401
104131
012700
005300
001376
016237
016237
022701
001003
012737

023737
001401

104132

021766

005301

4296

003450
003444

4291

4294

003510
003504

023737

4295

003440

023737
001401
104127
023737
001401
104130
012703

021750

253%

003500

021604
021612
021614
021616
021624
021626
021630

4287

4288
4289
4290

MACYI 395;046)

027756
021760
021762

021770

001401
104133
005237

064472

000300
003624
000024
003522
003522

9003510
003462

26%:
27%:

000000
000010

003440
9C3450

000100
003500

003510
003440

003510
003624

258%:

003462

000050

000001

24%:

003450

(8%:

29%:
30%:

001330

28-AUG-81

PAGE 81

SILO FILL IN 18 BIT MODE

SEQ (080

(MP
BEQ
ERROR

E.CS1,T.CST
21%
125

sCHECK CS1 CORRECT
JYES, CONTINUE
;CS1 INCORRECT

BEQ

22%

;YES, CONTINUE

CMP

ERROR

£.CS2,7.CS2
126

(MP
BEQ
ERROR
(MP
BEQ
ERROR
MOV

E.BA,T.BA
23%
127
E.WC,T.W(
24%
130
ANPRBUF ,R3

Mov

#66. ,R1

MoV

CLR
MOV
MOV
(MP
BEQ
ERROR
MOv
DEC
BNF
MOV
Mov
CMP
BNE
MOV

(MP

BEQ

ERROR

#IR!OR,E.CS?
WRDCNT
RKDB(R2),T.DB
(R3)+,E.DB
E.DB,T.DB
26$
131
#40. RO
RO
27%
RKCS1(R2),T1.CS1
RKCS2(R2),T.CS2
#1,R1
28%
#IR,E.CS2

;CHECK €S2 CORRECT
;€S2 INCORRECT

;LOAD EXPECTED CS2
;LOAD COUNT

JINITIALIZE WORD COUNT
;GET DATA BUFFER
;GET EXPECTED DATA
JCHECK IF DATA CORRECT
sYES, CONTINUE
;DATA READ INCORRECT
;SET STALL
;RUN STALL TO ZERO

;STORE COMMAND AND STATUS REG 1
;STORE COMMAND AND STATUS REG 2
sCHECK IF LAST WORD
sNO, CONTINUE

;LOAD EXPECTED (CS?2
sCHECK CS1 CORRECT

132

2CS1

29%

£.CS2,7.(CS2

DEC

30%
133
WRDCNT

25%

;CHECK BUS ADDRESS INTORRECT
JYES, CONTINUE
;BUS ADDRESS INCORRE(CT
;CHECK WORD COUNT CORRECT
;YES, CONTINUE
;WORD COUNT INCORRECT
;LOAD BUFFER ADDRESS FOR COMPARE

E.CS1,T7.(S1

CMP

BEQ
ERROR
INC

BNE
.SBTTL

10:35

;YES,

CONTINUE

INCORRECT

;CHECK €S2 CORRECT

JYES, CCNTINUE
;(S2 INCORRECT
s INCREMENT WORD COUNT
;CHECK

FINISHED

;NO, CONTINUE

+««MFM READ LOOPBA(CK TESTS

CZR6CED Rk611 DSKLS CTRL PRT3
TIRGCE.PN
27=-AUG=-81 1]:2¢4

MACY11

4297
4298
4299
4300
4301
4302
4303
4304
4305
6306

30(1046)
123

28-AUG-81

11:35

READ LOOPBACK

(PART

7
D
PAGE 82

SEQ 0081

SE 2322282222282l
RRlERsRiRl Sttt
Rl

%
8

EEL

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.

SIMULATE SECTOR PULSE, 255 ZEROES, A

ONE, AND A HEADER CONSISTING OF
FOLLOWING WORDS:

THE

THREE

177777
000000
177777

IN DIAGNOSTIC MODE.
[ISSUE A READ HEADER TO AN Rk06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0O, DRIVE 0.

(PART

MAKE

SURE

THAT READY COMES UP AFTER

1S TRANSFERRED.

THE

THIRD WORD

CHECK THE SILO FOR CORRECT CONTENTS.

READ LOOPBACK

CLEAR RK611 WITH A CONTROLLER CLEAR, PJUT CONTROL_ER

TR I

LeTEST 23
I

';Qtttl'tttfittttt*t*t"'tttt't*ttttttttttttt**i*t'*tt'tttttttttt't

021772
021774
022002
022006
022014
022022
022030
022034
022042
022050
022052
022054
022062
022070
022074
022100
022104
022110
022112
022114
022122
022126
022132
022136
022144
022146
022152
022160
022162
022164
022170

022172
022200
022204
022212
022220

000144
001270
100000
000040
000025
000312
000440
000040

005037

001200
000000
000026
000000
000026
000026

0190140
000040
003614
003616
000341
043540

000026
000026

000001
043540
000003
064412
000025

003614

000020
003614

15123

1¢:

2%:

003500
003616

5%:

6%:

#100. ,$TIMES
;.D0 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK6:1 IN DIAGNOSTIC MODE
ARDHEAD ,RKCS* (R2)
,ISSUE READ HEADER
#50.%4+2 RO
; ISSUE ENOUGH CLCCKS UNTIL READY
#DMD .MCLK ,RKMR1(RZ2)
;
FOR SECTOR PULSE
#DMD ,RKMR1 (R2)
RO
1%
#DMD !MSP,RKMR1(R2)
;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
PR.BIT
JINITIALIZE PRESENT BIT AND
PREVIOUS BIT
;
M1.BIT

JSR
DEC
BNE

PC,RDBIT
RO
2$

;SIMULATE SYNCH

#3,R1
#HEAD1,R3
#RDHEAD ,E.CS1
(R3)+ R4
#16. ,RO
PR.BIT,M1 BIT

;LOAD NUMBER OF WORDS
;LOAD ADDRESS OF DATA
;LOAD EXPECTED (S1
;GET DATA
;LOAD BIT COUNT
;STORE PREVIOUS BIT

;CHECK IF

MoV

003614

003440
003440

7%:
8%:

#225. ,R0

MOV
JSR

#1,PR.BIT
PC.RDBIT

ROR

MOV
MoV
MOV
MOV
MOV
MOV

BCS

003614

012737
004737
016237
023737
0014617

SCOPE
MOV
MOV
MoV
Mov
MOV
MOV
MOv
Mov
DEC
BNE
MOV
MOV
CLR
CLR

(LR
BR

PR.BIT
8$

MoV

#1,PR.BIT

JSR
MOV

{MP

BEQ

PC,RDBIT
RKCS®(R2),T.CS1

E.CST,T.CS1
9%

;GET NEXT BIT

:NO, ZEROD
;SIMULATE READ DATA
; ONE

;SIMULATE READ DATA
;READ COMMAND AND STATUS REG.

sCHECK IF CS1 (ORRECT
JYES,

SIMULATE NEXT BIT

CZROCED RKO11 DSKLS CTRL PRI
rIR6CE P11
27-AUG-81 10:24
4353
4354
4355
4356

022222
022230
02223
022242

012737
160137
012737
160037

000003
003624
000020
003622

4358

2%28

022250

022256

012762

100000

43617

022260

005300

4363
4364
4365

4266

022264
022266
022270
022276

005301
001326
012700

000004

4368

022306

005037

003614

4357

4362

4367
4369

4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
(380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392

zggz

022246

022262

022302

022312

022314
022316
0223264
022332
022340
022346
022354
022356
022360
022366
022370
022372
022376
022402
022406
022416
0226422
022430
022436
022440
022446
022454
022456

0226460

106150

000522

013737
004737

005300

001367
016237
016237
012737
012737
023737
001401
104151
023737
001401
104152
005037
012703
012337
016237
016237
016237
022737
001003
012737
022737
001402
104153

023737

2§33

022474

000413

4400
4401
4402
4403
4404
4282

022476
022504
022506
022510
022514
022522

003622

003616

158%:

043540
003440
003450
003500
003510
003440

003510

003450

003624
064412
0N3522
000024

001402
104154

023737
001401
104155
005237
022737
001327

#3,WRDCNT
R7.WRDCNT
#16. ,BITCNT
RO,BIT(NT

MOV

#CCLR,RKCST(R2)

DEC

:CHECK

DEC
BNE
MOV
MOV

R1
5¢
#4 RO

SCHECK IF HEADER FINISHED
*NO, GET NEXT WORD
"LOAD COUNT FOR POSTAMBLE

JSR

PC.RDBIT

BNE

CLR

DEC

000000
000010
000224
000300
003500

16%:
17$:

000000
000010
000002

003462
003442
003450
003624

000100
003500

003510
003440

20%:

21$:

BNE
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CLR
MOV
MOV
MOV
MOV
MOV
CMP
BNE
MOV
CMP
BEQ
ERROR

B8R
003510

003450

003522

003462

003624
000003

003624

22%:

23%:

24%:

SEQ (082

MOV
SUB
MOV
SUB

BR
9% :

003614

E 7
28-AUG-81
10:35
PAGE 83
READ LOOPBACK (PART 1)

ERRCR

000000

000421

022462

022470
022472

395;046)

003624

001333

4395

4396
4397

waA(Cv']

;CS1 INCORRECT DURING HEADER

TST24

2:GO ON TO NEXT TEST

PR.BIT,M1.BIT

PR.BRIT
RO

:CLEAR RK611

'NO.

READY

FOR NEXT WORD

GET NEXT BIT

:STORE LAST BIT

*LOAD NEXT BIT

‘SIMULATE

“CHECK

BIT READ

TIME FOR READY

15%
;NO, CONTINUE WITH POSTAMBLE
RKCST(R2),T.CS1 -GET CURRENT (S1
RKCS2(R2).7.CS2 :GET CURRENT (S2
#RDY 'RDHEADR<AC<GO>>,E.CST ;LOAD EXPECTED CS1
#OR'IR.E.CS2
;LOAD EXPECTED (S2
£.CS1,T.CST
*CHECK CST CORRECT
16$
SYES, CHLCK CS2
151
+CS1 INCORRECT
£.CS2,7.CS2
SCHECK €S2 CORRECT
17$
*YES, CHECK DATA
152
;(S2 INCORRECT
WRDCNT
SINITIALIZE WORD COUNT
#HEAD1,R3
*GET ADDRESS OF DATA
(R3)+,E.DB
:GET EXPECTED DATA
RKDB(R2),7.DB
:GET ACTUAL DATA
RKCS1(R2),T.CS? :STORE COMMAND AND STATUS REG. |
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
#2 . WRDCNT
SCHECK [F LAST WORD IN DATA BUFFER
21$
*NO. CHECK CS1
#IR,E.CS2
*STORE EXPECTED (S2
E.CS1,T.781
*CHECK (S1 CORRECT
22%
*YES, CHECK CS2
153
+CS1 INCORRECT

15724

E.CS2.T7.CS2

B8R

15124

CMP
BEO
ERROR
INC
CMP
BNE

:LOAD BIT COUNT

150

CMP

BEQ
ERROR

:LOAD WORD COUNT

©:GO ON TO NEXT TEST
:CHECK €S2 CORRECT

23¢
154

*YES, CHECK DATA
+(S2 INCORRECT

E.DB,T.DB
248
155
WRDCNT
#3,WRD(NT
208

:CHECK IF DATA CORRECT
*YES. GET NEXT HEADER WORD
:DATA INCORRE(CT
“INCREMENT WORD COUNT
SCHECK IF ALL THREE WORDS CHECK
*NO. GET NEXT WORD

2:G0 ON TO NEXT TEST

L44G7

4408

AN RN AR R AR RN

YeTEST 24

RN AR N AN R IR AN

A RN RN RO AR A E R A ATAR TN

READ LOOPBACK (PART 2)

R EANR IR IR

CZR6CEQ RK61T1 DSKLS CTRL PRT3
CIR6CE.PN
27-AuUG-81 10:24

MACY1T

3?(10‘6)

24
202N

4409

N
%

INAYA

4427

4428

4429
44630
4431
4432
4433
4634
4435
4436
4437
4438
4439
4440
4441
6642
4443

4444
4445
L4646
4447
L4448
4449
4450
4451

4452

4453
4454
4455
4456

4457
4458
4459
4460
44661
4462
4463
IAXYA

FOLLOWING WORDS:

THE

THREE

6417

000000

177777

000000

PR I I

MAKE

SURE

THAT

TRANSFERRED.

READY

COMES

CHECK

THE

UP AFTER

THIRD WORD

SILO FOR CORRECT

CONTENTS.

4418
4419
4420
4621
4622
4423
44624
4425
L426

SEG (083

(PART 2)

AND A HEADER CONSISTING OF

4615

44616

READ LOOPBACK

CLEAR RK611 WITH A (ONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MCDE.
ISSUE A READ HEADER TO AN Rk06
IN 26 SECTOR FGRMAT, CYLINDER O, HEAD 0, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 ZEROES, A ONE,

44610
4611
66"
2
4613

7
F
PAGE 8¢

10:35

28-AuUG-81

022524
022526
022534
022540
022546
022554
022562
022566
022574
022602
022604
022606
022614
022622
022626
022632
022636
022642
022644
022646
022654
022660
022664
022670
022676

022700
022704
022712
022714
022716
022722

022724

022732
022736
022744
02275¢
022754
022762

2737
3702
2762
2762
2762
2700
2762
§762
1

2 762
2 762

5037

2 701
2 03
2 37
2
2 00
3 737
6
3

000144
001270
100000
000040
000025
000312
000440

000040

000140
000040

013614
003616
000341
043540

000001
043540
000002
064420
000025
000020
003614

5037
0

003614

2 737

000001
043540

4 737

6 237
3 737
1 617
P4 737
0 137

001200

1ST24:

000000
000026
000000
000026
000026

1%:

SCOPE

2%:

003614

003616

5%:

6%:

DEC

MOV
MOV
MOV
MOV
MOV
MOV

#225.,R0
PC,RDBIT

MOV
JSR

#1,PR.BIT
PC,RDBIT

MOV

003500

003440
003440

000003

003624

#HEAD?Z ,R3

PR.BIT
M1.BIT

RO
2%

;SIMULATE

SINITIALIZE PRESENT BIT AND
:
PREVIOUS BIT
;SIMULATE

SYN(H

;LOAD NUMBER OF

#RDHEAD ,E.CST
(R3)+,R4
#16. ,R0
PR.BIT ,M1.B]T
R4

;LOAD EXPECTED (S1
;GET DATA
;LOAD BIT COUNT
;STORE PREVICUS B!T

(LR

PR.RIT

JNO,

MOV

#1,PR.BI1T

s ONE

(MP

E.CS1,T7.C51

JCHECK [F (CS1 CORRECT

MoV
MOV
MOV
MOV
ROR

JSR
MOV

BEQ

MoV

SUB

AR AN N RS

SECTOR PULSE

#3 ,R1

7%:
8%:

JSR

DEC
BNE

#CCLR,RKCST(R2) :CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#RDHEAD ,RKCST(R2)
;ISSUE READ HEADER
#50.%4+2,R0
; ISSUE ENOUGH CLOCKS UNTIL READY
#DMD MCLK ,RKMR1(R2)
;
FOR SECTOR PULSE
#DMD ,RKMR1(R2)
#DMD !MSP ,RKMR1(R2)
#DMD ,RKMR1 (R?2)

(LR
CLR
MOV

;:D0 100. ITERATIONS
;LOAD RK611 BASE

MOV
MOV

BCS

003614

AR AANRARNRARAA

#100.,8$TIMES
$BASE ,R?2

MOV

003500

AR AN

MOV
Mov

BNE

000026
000026

000000

003624

AN AN AR AT RARARAAAAN

PC,RDB]T
RKCST(R2),T.CS1

#3,WRD({NT

R1,WRD(NT

WORDS

;LOAD ADDRESS OF DATA

JGET NEXT BIT

JCHECK

ZERD

;SIMULATE READ DATA
;SIMULATE READ DATA
;READ COMMAMD AND STATUS REG.

JYES,

SIMULATE NEXT B]T

:LOAD WORD COUNT

TIRETEC RKOTT DSKLS C(TRL PR'3
“IRECELPYY
27-AUG=81 10:2¢4
4665

022766

012737

023000
023002

104150
012762

4671

023012

005300

467%

023016

005301

4476

023026

4480

023046

6666

4667
(668

4498
46

(472

6474
4475

4477
4478
L4799

4481
4482
LLB3

LLBG

L6485
L4B6
L4687
4488
4489
4490
4491
4492
4493

4494

4495
4496
4497
4498
L4499

4500

4501
4502

2282

022774

023010

02%W14

160037

000522

023020
023022

001326
012700

023034
023040
023044

005037
004737
005300

000000

ERROR
MOV

150
#CCLR,KKCST(R2)

:CS1 INCORRECT DURING HEADER
:CLEAR RKk611

DEC

:CHECK IF READY FOR NFXT wORD

DEC

;CHECK

000004

023737
001401
104151
023737
001401
104152
005037
012703
012337

003500

003440

023146
023154
023162
023170
023172

016237
016237
022737
001003
012737

023140

023200
023206
023210

023212

012737

016237

023737
001402
104153

000413

023230
02323¢
023240
023242
023246

023737
001401
104155
005237
022737

023254

003614
043540

000300

003510

003624
064420
003522

000024

000000
000010
000002
000100

003500

15%:

003510

003450

16%:

003440
003450
003¢24

003510

003440

21%:

001402
104°54

001327

003450

003522

003462

003624
000003

003624

22%:

23%:
24%:

HEADER FINISHED

PR.BIT
PC,RDBIT
RO

:LOAD NEXT BIT
:SIMULATE 1 BIT READ
:CHECK [F TIME FOR READY

PR.BIT ,M1.BIT

15¢%

JSTORE LAST BIT

JNO, CONTINUE WITH POSTAMBLE

MOV
MoV
MOV

RKCS1(R2),T.CST ;GET CURRENT (S1
RK(CS2(R2),T.(S2 ;GET CURRENT (S2
#RDY .RDHEADE<*(<GO>>,E.CST ;LOAD EXPECTED (S1

(MP
BEG
ERROR
CMP
BEQ
ERR{R
CLR
MOV
MOV

E.CS1,T.CS
16%
151
E.CS2,7.CS2
17%
152
WRDCNT
#HEAD2,R3
(R3)+,E.DB

MOV

#OR!'IR,E.CS2

;LOAD EXPECTED (S?2

RKDB(RZ2),T7.DB

JGET ACTUAL DATA

:CHECK CS1 CORRE(CT
;YES, CHECK €S2
;CS1 INCORRECT
:CHECK C52 CORRECT
:YES, CHECK DATA
:(S2 INCORRECT
JINITIALIZE WORD COUNT
:GET ADDRESS OF DATA
;GET EXPECTED DATA

MOV
MOV
CMP
BNE
MOV

RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REG. 2
#2 ,WRDCNT
:CHECK IF LAST WORD IN DATA BUFrER
21%
INO, CHECK (S1
#IR,E.CS2
:STORE EXPECTED (S2

BEQ
ERROR

22%
153

(MP

E.CST1,T.r 51

JCHECK CST

TST25

::G0 ON TO NEXT TEST

CMP

E.(S2,T7.CS2

;CHECK €S2 CORRECT

1ST2S

;3GO ON TO NEXT TEST

BEQ
ERROR

CMP
BEQ
ERROR
INC
(MP

23
154

E.DB,T.DB
249
155
WRDCNT
#3 WRDCNT

20%

AR R R RN RN AR R AR R AR AP LR

42}3

4520

:NO, GET NEXT BIT

CLR
JSR
DEC

MOV

JATEST 25

;:G0 ON TO NEXT TEST

:NO, GET NEXT WORD
;LOAD COUNT FOR POSTAMBLE

B8NE
NN

TST2S

5%
#4 RO

003570

RO,BITINT

BNE
MOV

MOV

17%:

003462

B8NE

BNE

000421

023226

023222
023224

SuUB

9$ .

023100
023106
023110
023112
023120
023122
023124
023130
023134

2288

4517

100000

003440
003450
003500

023737

22;2

JLOAD BIT (OUNT

000000
000010
000224

023214

4510
4511
4512
4513
4514

#16. ,BITONT

016237
016237
0$12737

023072

SEL 0086

MOV

(0036°¢

001367

G 7
28-AuUG-81
10:35 PAGE 85
READ LOOPBACK (PART 2)

(03622

003614

023050
023056
023064

013737

3951046)

000020

003622

007333

4505

4506
4507

wACYI

CORRECT

JYES, CHECK (S2
:CST INCORRECT

JYES, CHECK DATA
:(S2 INCORRECT

;CHECK IF DATA CORRECT
JYES, GET NEXT HEADER WORD
:DATA INCORRE(CT
:INCREMENT WORD COUNT
;CHECK TF ALL THREE WORDS (MECK

JNO, GET NEXT WORD

R R AR RN AN AN AN AR E R R I AN RN CITCRIRIROEY

READ LOOPBACK (PART 3)

CLEAR RK611

WITH A CONTROLLER CLEAR,

PUT (ONTROLLER

MACY11

H
7
30(1046)
28-AuUG-81
10:35
PAGE 8¢
READ LOOPBA(CK (PART 3)
125

SEG (085

IN DIAGNOSTIC MOVE.
ISSUE A READ HEADER TO AN Rk06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0O, DKIVE O.
(LOCK BOTH SEEK AND DRIVE CLEAR MESSAGES
SIMULATE SECTOR PULSE, 255 ZEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE

CZR6CED RKE1T DSKLS C(TRL PR'3
TIRGCE.PN
27=AuG=81 10:2¢4

FOLLOWING WORDS:

125252

NV JEE

125252

MAKE

LR I

NN B

052525
SURE

THATM READY

TRANSFERRED.

(CMES UP AFTER

CHECK

THE

THIRD WORD

SILO FOR CORRECT

CONTENTS.

023256
023260
023266
023272
023300
023306
023314
023320
023326
023334
023336
023340
023346

023354

023360
023364
023370
023374

2737

3 702
2 762
2 762
2762
2700

000025
000312

000026
000020

2 762
2 762
p) 037
5 037
2700

000140
000040

000026
000026

003614
003616
000341
043540

737

000001
043540
000003
064426
000025

700
737

000020
003614

2703

75125

000000
000026
000000

000440
000040

023446
023450
023454

1%:

003614

003616

01¢237

NINAN
N — N
NNNNNYN

000001
043540
000000
003500

000003
003624
000020
003622

SCOPE
MOV
MoV
MOV
MOV

#100.,$TIMES
$BASE ,R2
#CCLR,RKCST(R2)
#DMD ,RKMR1(R2)

MOV
MOV
MOV
DEC
BNE
MOV
MOV

#50.+4+2,R0
;ISSUE ENOUGH CLOCKS UNTIL
#DMD 'MCLK ,RKMR1(R2)
FOR SECTOR PULSE
#DMD ,RKMR1 (R2)
RO
1%
#DMD !MSP ,RKMR1(R2)
;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)

MOV
JSR

#225. ,R0
PC,RDBIT

CLR
CLR

2%:

003500

ASAARNARR Rl RRRRRRRRRRRRRRRRRRRRRRR
2

MDYV

5%:

6%:

003614

= OO0
O =Or—OMN
ONVON)
— N
QO
N—=N&N

023456
0234¢4
023470
023476
023504
023506
023514
023520
023526

001270
100000
000040

001200

5762
762
5

023376

023400
023406
023412
023416
023422
023430
023432
023436
023444

000144

LSRR

DEC
BNE

003440
003440

003624

003622

7%:
8¢:

#RDHEAD ,RKCST(R2)

PR.BIT
M1.BI7
RO
2%

:ISSUE READ HEADER

:SIMULATE

SYNCH

#1,PR.B]IT
PC,RDBIT
#3 R
#HEAD3.R3
#RDKEAD ,E.CST
(R3)+,R4
#16.,R0
PR.BIT M1.BIT

;LOAD NUMBER OF WORDS
;LOAD ADDRESS OF DATA
:LOAD EXPECTED (S1
:GET DATA
JLOAD BIT COUNT
;STORE PREVIOUS BIT

8CS

;CHECK IF

ROR

;GET NEXT BIT

PR.BIT

MOV

#1,PR.BIT

s ONE

(MP

E.CST1,T.C(S?

;CHECK IF CS1 CORRECT

JSR
MOV

BEQ
MOV

PC,RDBIT
RKCS1(R2),T.CS1

#3 ,WRDCNT

SUB

R1,WRDCNT

SUB

RO,BIT(NT

MoV

#1€. ,BITONT

sNO,

ZERO

(LR

READY

JINITIALIZE PRESENT BIT AND
;
PREVIOUS BIT

MOV
JSR
MoV
MOV
MOV
MOV
MOV
MOV

003614

;.00 100. ITERAT]JONS
;LOAD RK611 BASE
;CLEAR RK611
:PUT RK611 IN DIAGNOSTIC MODE

;SIMULATE READ DATA
:SIMULATE READ DATA
;READ COMMAND AND STATUS REG.

:YES,

SIMULATE NEXT BIT

JLOAD WwORD COUNT
;LOAD BIT

COUNT

4614
4615
4616
4617

003462
003440
003450
003624

000100
003500

00319
003440

MOV
MOV
MoV
MOV

16%:
17%:

20%:

023737
001402

023762
023770
023772
023774
024000
024006

023737
001401

003522

005237
022737
001327

003624
000003

003510

003450

21%:

22%:

104154

000413

104155

003462

203624

MOV
MOV
MOV
MOV
MOV

*MP
BNE

000421

023746
023754
023756
023760

CMP
BEQ
ERROR
(MP
BEQ
ERROR
(LR

23%:
245:

MOV

CMP
BEG
ERROR
BR

;CHECK

TIME

FOR READY

sNO, CONTINUE WITH POSTAMBLE
;GET CURRENT (S1

RKCS2(R2),T.(S2 ,GET CURRENT (S2

E.CS1,T.CST
16$
151

£.(S2,7.CS2
17%
152

WRDCNT
#HEAD3 ,R3

(R3)+,£.DB

sCHECK CS1 CORRECT

JYES,

;CS1

CHECK (S2

INCORRECT

;CHECK (€S2 CORRECT
JYES, CHECK DATA
;€S2 INCGRRECT

sINITIALIZE WORD COUNT
:GET ADDRESS OF [ATA
;GET EXPECTED DATA
JGET ACTUAL DATA
s STORE COMMAND AND STATUS REG. 1
sSTORE COMMAND AND STATUS REG. ¢
JCHECK JF LAST WORD IN DATA BUFFER
sNO, CHECK CS1
sCHECK CS1

JYES,

;CHECK €S2 CORRECT
SYES, ChECK DATA
;€S2 INCORRECT

:;GO ON TO NEXT TEST
;CHECK IF DATA CORRECT
JYES, GET NEXT HEADER WORD
;DATA INCORRECT
JINCREMENT WORD COUNT

155
WRD(NT
#3 WRDCNT

JCHECK

IF ALL

THREE WORDS C(HECK

;NO, GET NEXT WORD

208

CORRECT

CHECK CS2

2CS1 INCORRECT
;G0 ON TO NEXT TEST

$2.T7.CS2

READ

(S1

;STORE EXPECTED (SZ2

E.DB,T.DB
24%

ALALAAS RS

;SIMULATE 1 BIT READ

#RDY !RDHEADE<*C<GO>>
,E.(S1 ;LOAD EXPECTED
#OR!IR,E.(S2
;LOAD EXPECTED (S¢Z

CMP

BEQ
ERROR
INC
(mp
BNE

;STORE LAST BIT

;LOAD NEXT BIT

RO
15%
RKCS1(R2),T.CS1

(MP
BEQ
ERROR
BR

LRTEST 26
[

PR.BIT M1.BIT
PR.BIT
PC.RDBIT

(7.1

003624
064426
003522
000024
000000
000010
010002

CLR
JSR
DEC
BNE

[}

003450

#4 RO

a—

003440
003450
003500
003510
003440

MOV

4413

003510

15¢:

—~N N
D

L4611
4612

000000
0C3010
000224
000300
003500

003616

DEC
BNE
MOV

Hde

4610

001003

000004
003614
003614
043540

sCHECK IF READY FOR NEXT WORD
JNO, GET NEXT BIT
sCHECK IF HEADER FINISHED
sNO, GET NEXT WORD
JLOAD COUNT FOR POSTAMBLE

DEC
BNE

4607

4608
4609

023700
023706
023714
023722
023724
023732
023740
023742
023744

:
9%

no
o

4605

4606

SEQ 0086

;ST INCORRECT DURING HEADER
;CLEAR RK611
;;G0 ON TO NEXT TEST

=My

4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604

000000

150
#CCLR,RKCST(R2)
18726

NANNDe

4593

ERROR

MOV

4591

4592

125

10:35
PAGE 87
READ LOOPBA(K (PART 3)

28-AUG-81

—rom

4585
(586
4587
4588
{589
4590

100000

30(1046)

023532

[olelelelelolol loleaielelolelololelelolels) o
Ned e =2 ad d OO ONIOON )t ed d b
OO
= =t O
PNOONONONPOPNO N IS S NS = NPNONOONON = N S VNN -2
NNVPINIINNO
= 85 N = 8 NN NNV PO WWN N O
NW WKW
WWWWIWNWOWWNO
WO WWWIWIWON OWWIWO NI O WO
NN NN NNWNN @ N = =2 N NNV N NONNNOON = WO

4577

4578
4579
4580
4581
4582
4583
4584

MACYTT

—

TIRECED RKO1T DSKLS CTRL PRT3
TIRGCE P
27=AUG=81 10:24

R R
2]

LOOPBA(CK

(PART

PUT CONTROLLER
CLEAR RK611 WITH A (ONTROLLER CLEAR.
IN DIAGNOST]C MODE.
ISSUE A READ HEADER TO AN Rk06
IN 26 SECTOR FORMAT, CYLINDER O, WEAD O, DRIVE 0.

(ZR6CED RK61T DSKLS CTRL PRT3
TIRGLE.PN
27=-AUG=81 10:24

WACY11

7
J
3C(1046)
28-AUG-81
10:35 PAGE 88
126
READ LOOPBA(CK (PART 4)

4633
4634
4635
4636
4637
4638
4639

o
M
o
;
o

4641
(642

o
L.

4645

024010

000004

024012
024020
024024
024032
024040

012737
013702
012762
012762
012762

000144
001270
100000
000040
000025

001200

4653
4654
4655
4656
4657
4658
4659
4660
4661
6662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675

024052
024060
024066
024070
024072
024100
024106
024112
024116
0264122
024126
024130
024132
024140
0261446
024150
024154
024162
024164
024170
024176
024200
024202

012762
012762
005300
001370
012762
012762
005037
005037
012700
004737
005300
001374
012737
004737
012701
012703
012737
012304
012700
013737
006004
103403
005037

000440
000040

000026
000026

000140
000040
003614
003616
000341
043540

000026
900026

000001
043540
000003

003¢14

4678
4679
4680

024210
024216
024222

012737
004737
016237

000001
043540
000000

003614

4683
4684
4685

024240
0242646
024252

012737
160137
012737

000003
003624
000020

003624

4687

026264

100000

4676

4681
4682

4686

4688

IRRRER

MAKE

4647
4648
4649
4650
4651

4652

064444
022222

2222
4646

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 225 ZERUES, A
ONE, AND A HEADER C(ONSISTING OF THE THREE
FOLLOWING WORDS:

o
;.

L6460

024046

024206

024230
024236

024260
024266

012700

000403

023727
001417

160037

104150

012762

000312

064442
000025

000020

003614

003622

THAT READY COMES UP AFTER

THE

THIRD WORD

CHECK THE SILO FOR CORRECT CONTENTS.

A LRSSl
RRSRRRRRRRsR
R0 iR RRRRl R

SCOPE

MOV
MOV
MOV
MOV
MOV

#100. ,$TIMES
;;DO 100. ITERATIONS
$BASE .R2
*LOAD RK611 BASE
#CCLR,RKCST(R2) :(LEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#RDHEAD RKCST(R2}
~;ISSUE READ HEADER

Mov
MOV
DEC
BNF
MOV
MOV
(LR
CLR
MOV
JSR
DEC
BNE
MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
ROR
BCS
(LR

#DMD 'MCLK ,RKMR1(R2)
;
FOR SECTOR PULSE
#DMD
, RKMRT (R2)
RO
18
#DMD 'MSP _RKMR1(R2)
;SIMULATE SECTOR PULSE
#DMD
. RKMR1 (RZ)
PR.B]T
JINITIALIZE PRESENT BIT AND
M1.BIT
.
PREVIOUS BIT
#225. RO
PC,RDBIT
;SIMULATE SYNCH
RO
2%
#1,PR.BIT
PC.RDBIT
#3,R1
;LOAD NUMBER OF WORDS
#HEADS ,R3
.LOAD ADDRESS OF DATA
#RDHEAD ,E.CS1
:LOAD EXPECTED (S
(R3)+,R4
*GET DATA
#16. RO
:LOAD BIT COUNT
PR.BIT,M1.BIT
:STORE PREVIOUS BIT
R&
SGET NEXT BIT
7$
CHECK IF 1
PR.BIT
NO, ZERQ

#50. %4+ R0

; ISSUE ENOUGH CLOCKS UNTIL READY

*SIMULATE READ DATA

MOV
JSR
MOV

#1,PR.BIT
PC.RDBIT
RKCST(R2),T.CST

; ONE
:SIMULATE READ DATA
READ COMMAND AND STATUS REG.

#3,WRDCNT
R1,WRDCNT
#16. BITCNT

:LOAD WORD COUNT

003622

MOV
SUB
MOV

000000

MOV

1%:

003500
003616

5%
6$:

003614

003500

SURE

IS TRANSFERRED.

T8§126:

000000
000026
000000

SEG €087

MOV

003440
003440

7$%:
8s:

(MP
BEQ

SUB

ERROR

E.CST1,T.CST
9%

RO, BITCNT

150

#CCLR,RKCST(R2)

JCHECK IF (CS1 CORRECT
IYES, SIMULATE NEXT BIT
:LOAD BIT

COUNT

;CS1 INCORRECT DURING HEADER
:CLEAR RK611

CZR6CEO RK611 DSKLS CTRL PRT3
CIRGCE.PN
27-AuG-81 10:2¢4

000009
000010
000224
000300
003500

003440
003450
003500
003510
003440

003510

003450

003624
064442
003522
000024
000000
000010
000002
0170100

003500

024464

024472
024474
024476

16$:
17%:

003462
003440
003450
003624

003510
003440

28-AuUG-81

20%:

21%:

023737
001402

024514
024522
024524
024526
024532
024540

023737
001401

003510

003450

22%:

104154

003462

003624
000003

003624

23$:

248:

;.G0 ON TO NEXT TEST

DEC
BNE
DEC
BNE

RO
6$
R1
5%

;CHECK IF READY FOR NEXT WORD
;NO, GET NEXT BIT
;CHECK ]F HEADER FIN]SHED
sNO, GET NEXT WORD

MOV

PR.BIT M1.BIT

;STORE LAST BIT

MOV

(LR
JSR
DEC
BNE
MOV
MoV
Mov

ERROR
CMP
8FQ

ERROR

#6 ,RO

;LOAD COUNT FOR POSTAMBLE

;LOAD NEXT BIT
PR.BIT
PC,RDBIT
;SIMULATE 1 BIT READ
;(HECK IF TIME FOR READY
RO
15%
;NO, CONTINUE WITH POSTAMBLE
RKCS1(R2),T.CS1 ;GFT CURRENT (S1
RKCS2(R2),T1.C(S2 ;GET CURRENT (S?2
#RDY !RDHEAD§<*(<GO>>,E.CST ;LOAD EXPECTED (S1

#O0R.IR,E.CS2
E.CS1,T.CS1
16$
151
£.(S2,1.(S2
17%

152

:LOAD EXPECTED (S2

;CHECK CS1 CORRECT
JYES, CHECK (S2
2CS1 INCORRECT
sCHECK (€S2 CORRECT
JYES, C(HECK DATA
2CS2 INCORRECT

CLR

WRDCNT

MOV

(R3)+,E.D8B

;GET EXPECTED DATA

MoV
CMP
BNE
MOV

RKCS2(R2),T.CS2
#2 WRDCNT
21%
#IR,E.CS2

;STORE COMMAND AND STATUS REG. 2
JCHECK [P LAST WORD IN DATA BUFFER
;NO, CHECKk CS1
;STORE EXPECTED (SZ2

ERROR

153

2C(S1

ERROR

£.CS2,T.CS2
23%
154

sCHECK €S2 CORRECT
JYES, CHECK DATA
:CS2 INCORRECT

(MP
BEQ
ERROR
INC
(MP
BNE

E.DB,T.DB
248
155
WRDCNT
#3 WRDCNT
20%

;CHECK IF DATA CORRECT
JYES, GET NEXT HEADER WORD
sDATA INCORRE(CT
;INCREMENT WORD COUNT
;JCHECK IF ALL THREE WORDS (HETK
;NO, GET NEXT WORD

Mov

MOV
MOv

CMP
BEQ

cMP

BEQ

#HEAD4 ,R3

RKDB(R2) ,T.DB
RKCS1(R2),7.CS1

E.CST1,7.CS1
22%

1ST127

TST127

JINITIALIZE WORD COUNT

;GET ADDRESS OF DATA

;GET ACTUAL DATA
;STURE COMMAND AND STATUS REG.

;CHECK CS1 CORRECT
JYES, CHECK (S2
INCORRECT

;G0 ON TO NEXT TEST

;.G0 ON TO NEXT TEST

"'tt'QtQttt.ttttttttt't"t"'.i..t.'ttl.'tt'.t..Qt't'ttt'tt.'!'I.

CRTEST 27
®

104155
005237
022737
001327

003522

SEQ 0088

(PART 4)

18127

000413

7
PAGE 89

024500
024506
024510
024512

10:35

READ LOOPBA(CK

MOV
(MP
BEQ

4735
4736
6737
4738
4739
4740
4741
6742
4743
4744

003616

15%:

4734

000004
003614
003614
043540

4733

9%:

4730
6731
6732

000522

4715
4716
6717
4718
4719
4720
4721
4722
6723
4724
4725
4726
6727
4728
4729

024406

024410
024414
024420
0246424
024432
024440
024446
024454
024456

126

L4714

024276
024300
024302
024304
024306
024312
024320
024324
024330
024332
024334
0246342
024350
024356
024364
024372
024374
024376
024404

30(1046)

4773

024274

WO WWNO W

L689
4690
4691
4692
4693
4694
4695
4696
4697
L698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
6712

VACY11

READ LOOPBACK (PART 5)

C(LEAR RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RKk(06
26 SECTOR FORMAT, (YLINDER 0, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE C(LEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 ZEROES, A

CZR6CED RKk611

CZR6CE.PIT

4773

4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792

4793

479%
4795
4796
4797
4798
4799
4800

MACY11

30(1046)
127
- %

‘e
;t

28-AUG-81

10:35

READ LOOPBACK

7
L
PAGE 90

SEQ 0089

(PART 5)

ONE, AND A HEADER CONSISTING OF
FOLLOWING WORDS.

THE

THREE

052012

100520

052012

MAKE SURE THAT READY COMES UP AFTER THF 'THIRD WORD
IS TRANSRERRED.
(HECK THE SILO FOR CORRECT CONTENTS.

'"l'tttttt.ttttttltt.ti'.itit'ttt'tiQi't'ttti."tttiltttttittttttt

024542
024544
024552
024556
024564
024572
024600
024604
024612
024620
024622
024624
02463¢
024640
024644
024650
024654
024660
024662
024664
024672
024676
024702
024706
024714
024716
024722
024730
024732
024734
024740

024742
024750
024754
024762
02470
024772
025000
025004
0250:2
02501¢
025020
025026

OQ= = QOO a3
D

4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772

DSKLS CTRL PRI3
27-AUG-81 10:24

004
737

702
762
762
762
700
762
762

300

370
762
762
037
5037
012700

004737
012737
004737
2703

000144
001270

100000

000040
000025

000312

000440

001200
000000
000026
000000

000040

000026
000026

000140
000040

000026
000020

003614
003616
00034;
043540

000001
043540
000003
064450

003614

000025

003500

2700
013737

000020
003614

003616

005037

003614

012737
004737
016237
023737
001417
012737

000001
043540
000000
003500

003614

000003

003624

000020

003622

012737

160037
104150

012762
000822

003624

003622

1000C0

1%:

2%:

727

160137

15127

5%:

6%:

SCOPE

MOV
MoV
MoV
MoV
MOV
MOV
Mov

#100.,$TIMES
;.D0 100. ITERATIONS
$BASE ,R2
sLOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#RDHEAD RKCST1(R2)
;ISSUE READ HEADER
#50.+4+2,R0
s ISSUE ENOUGH CLOCKS UNTIL READY
#DMD !MCLK ,RKMR1(R2)
;
FOR SFCTOR PULSE

DF(
BNE

RO
1%

MoV

MOV
MOV
CLR
CLR
MOv
JSR

#DMD !MSP ,RKMR1(R2)
;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
PR.BIT
JINITIALIZE PRESENT BIT AND
M1.BIT
;.
PREVIOUS BIT
#225. ,R0
PC,RDBIT
;SIMULATE SYNCH

MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
ROR

#1,PR.BIT
PC.RDBIT
#3,R1
HHEADS ,R3
#RDHEAD ,E.CS1
(R3)+ R4
#16. ,R0
PR.BIT
,M* BIT
R4

(LR

PR.BIT

;SIMULATE READ DATA

MOV

#1,PR.BI1T

. ONE

DEC
BNE

BCS
BR

003440
003440

000000

7%:
8%:

#DMD ,RKMR1 (R2)

JSR
MOV
CMP
BEQ
MOV
SUB
MOV

SUB

ERROR

MOV
BR

RO
2%

PC,RDBIT
RKCST1(R2),T.CS1
E.CST,T.CST
9%
#3,WRDCNT
R1.WRDCNT
#16. ,BITCNT

RO,BITCNT

150

#CCLR,RKCST(R2)
TST30

;LOAD NUMBER OF WORDS
;LOAD ADDRESS OF DATA
sLOAD EXPECTED

;GET DATA

CS1

JLOAD BIT COUNT
;STORE PREVIOUS BIT
;GET NEXT BIT

sCHECK
:NO,

ZERO

;SIMULATE READ DATA
;READ COMMAND AND STATUS REG.
sCHECK IF CS1 CORRECT
;YES, SIMULATE NEXT BIT

sLOAD WORD COUNT
;LOAD BIT COUNT

:CS1 INCORRECT DURING HEADER
>CLEAR RK611
260 ON TO NEXT

TEST

CZR6CED Rk611 DSKLS CTRL PRT3
CZR6CE.P1T
27-AUG-81 10:24
4801
4802
«803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814

4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828

025030
025032
025034
025036
025040
025044
025052
025056
025062
025064
025066
025074
025102
025110
025116
025124
025126
025130
025136
025140
025142
025146
025152
025156
025164
025172
025200
025266

4829
4830

025210
025216

2§§2

025230

4831
4832

025224
025226

005300
001333
005301
001326
012700
013737
005037
004737
005300
001367
016237
016237
012737
012737
023737
001401
104151
023737
001401
104152
005037
012703
012337
016237
016237
016237
022737
001003

012737
023737
001402
104153

MACYN 395;046)
9% :

000004
003614
003614
043540

003616

158:

000000
000010
000224
000300
003500

00344C
00345J
003500
003510
003440

003510

003450

16%:

003624
064450
003522
000024
000000
000010
000002

17¢:
003462
003440
903450
003624

000100
003500

003510
003440

025232
025240
025242

023737
001402
104154

003510

4840
4841
4842
4843
4844

025246
025254
025256
025260
025264

023737
001401
104155
005237
022737

003522

003462

003624
000003

003624

2322

025244

025272

c21%:

000421

4835
4836
4837

23%3

20$:

003450

22%:

000413

001327

m
7
28-AUG-81
10:35
PAGE 91
READ LOOPBACK (PART 5)
DEC
BNE
DEC
BNE
MOV
MOV
CLR
JSR
DEC
BNE
MOV
MOV
MOV
MOV

MOV
(MP

RO
:CHECK IF READY FOR NEXT WORD
6%
JNO, GET NEXT BIT
R1
:CHECK IF HEADER FINISHED
5%
INO, GET NEXT WORD
#4 R0
:LOAD COUNT FOR POSTAMBLE
PR.BIT,M1.BIT
:STORE LAST BIT
PR.BIT
:LOAD NEXT BIT
C.RDBIT
:SIMULATE 1 BIT READ
RO
$CHECK IF TIME FOR READY
158
INO, CONTINUE WITH POSTAMBLE
RKCST(R2),T.CS1 ;GET CURRENT (S1
RKCS2(R2),T.CS2 :GET CURRENT (S2
#RDY ' RDHEADE<*(<G0>>,E.CST ;LOAD EXPECTED (S1
#OR'IR,E.CS2
;LOAD EXPECTED (S2
E.CS1,7.CS1
$CHECK CST CORRECT
16$
:YES, CHECK €S2
151
1CS1 INCORRECT
E.CS2,7.CS2
:CHECK €S2 CORRECT
17$
:YES, CHECK DATA
152
:CS2 INCORRE(CT
WRDCNT
:INITIALIZE WORD COUNT
#HEADS ,R3
:GET ADDRESS OF DATA
(R3)+,E.DB
:GET EXPECTED DATA
RKDB(R2),T.DB
:GET ACTUAL DATA
RKCST1(R2),T.CS1 :STORE COMMAND AND STATUS REG. 1
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
#2 , WRDCNT
:CHECK IF LAST WORD IN DATA BUFFER
218
INO, CHECK CS1
#IR,E.(S2
:STORE EXPECTED (S2
E.CST.T.CST
*CHECK CS1 CORRECT

15730

$:G0 ON TO NEXT TEST

(MP
BEQ
ERROR

£.0S2,T.CS?
238
154

;CHECK €S2 CORRECT
SYES, CHECK DATA
:0S2 INCORRECT

(MP
BEQ
ERROR
INC
CMP

E.DB,T.DB
248
155
WRDCNT
#3,WRDCNT

;CHECK IF DATA CORRE(CT
YES, GET NEXT HEADER WORD
:DATA INCORRECT
* INCREMENT WORD COUNT
ICHECK IF ALL THREE WORDS CHECK

(MP
BEQ
ERROR
(MP
BEQ
ERROR
(IR
MOV
MoV
MOV
MOV
MOV
CMP
BNE
BEQ
ERROR

BR
23$:

248:

SEQ €090

BNE

22%
153

TST30

20$

:YES, CHECK (S2
ST INCORRECT

;GO ON TO NEXT TEST

INO, GET NEXT WORD

108107
2323

":ititt**'ttfitt*tt*tfi'itti*Q'fifiii'kt'*tfittttttitt*titttttt.ttitt't
STEST 30
READ HEADER IN 18 BIT MODE

4850

4853

4851
4852

4,854

4855

4856

i
i

CLEAR RK611

WITH A CONTROLLER CLEAR.

PUT

CONTROLLER

IN 24 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.

SIMULATE SECTOR PULSE, 255 ZEROES,

ONE, AND A HEADER CONSISTING OF THE THREE
FOLLOWING

WOURDS:

CZR6CED RK611 DSKLS CTRL PRTI3
CZR6CE.PIY
27-AUG~81 10:24

“MACYN) 3?;8046)

4857
4858
4859

28-AUG-81
10:35 PAGE 92
READ HEADER IN 18 B'T MODE

e
A
i

SEQ 0091

177777
000000
177777

4860
4861

ot
.*

232‘

E"tfittttttttttfi*tttt*titttittitfit*ttttttttfitit*'tt*ttvtttttttttlt

486%
4865

0252764

000004

025276
025304
025310
025316

012737
013702
012762
012762

000144
001270
100000
000040

001200

4872
4873

025336
025344

012762
(032762

000440
000040

000026
000026

4874

4875
4876
4877
4878
4879
4880
4881
4882

4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
48794

2232

025324
025332

025352

025354
025356
025364
025372
025376
025402
025406
025412

025414
0256416
025424
025430
025434
025440
(25446
025450
025454
025462
(025464
025466

025472

012762
012700
005300

001370
012762
012762
005037
005037
012700
004737
005300

001374
012737
004737
012701
012703
012737
012304
012700
013737
006004
103403
005037

000403

070025
000312

000000

000140
000040
003614
003616
000377
043540

000026
000026

000001

003614

0463540
000003
044412
010025
000020
003614

003500
003616

000001
043540
000000
003500

003614

4903

025532

012737

000003

012737
160037
104156

003624

025536
025544
025550

160137

000020
003622

Q03622

025560

000522

100000

000000

4907

2382

025552

012762

4910

025562

005300

91,

025506

005301

4911

THAT READY COMES UP AFTER THE

THIRD WORD

(CHECK THE SILO FOR CORRECT CONTENTS.

025564

001333

003440
003440

SCOPE

MOV
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#CCLR,RKCS1(R2)
#DMD ,RKMR1(R2)

MOV
MOV

#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1T (R2)

MOV
MOV
DEC

5%:
6%:

003614

012737
004737
016237
023737
001417

4904
64905
64906

1%:

2%:

025474
025502
025506
025514
025522

025524

TST30:

00000V
000026

4897
4898
4899
4900
4901

4902

SURE

IS TRANSFERRED.

4866
4867
4868
4869
4870
4871

MAKE

78:
8%:

#CFMT !RDHEAD ,RKCST1(R2) ;ISSUE READ HEADER (24 SECTOR FORMAT)
#50.%4+2 ,R0
; ISSUE ENOUGH CLOCKS UNTIL READY

;

FOR SECTOR PULSE

BNE
MOV
MOV
CLR
CLR
MoV
JSR
DEC

1%
#DMD .MSP ,RKMR1(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1(R2)
PR.BIT
JINITIALIZE PRESENT BIT AND
M1.BIT
;.
PREVIOUS BIT
#255.,R0
PC,RDBIT
s SIMULATE SYNCH
RO

PC.RDBIT
#3,R1
;LOAD NUMBER OF WORDS
#HEAD1,R3
.LOAD ADDRESS OF DATA
#CFMT .RDHEAD ,E.CST ;LOAD EXPECTED (S1
(R3)+,R4
;GET DATA
#16.,RO
;LOAD BIT COUNT
PR.BIT,M1.BIT
;STORE PRESENT BIT
R4
;GET NEXT BIT
7$
sCHECK IF 1
PR.BIT
;NO, ZERO
8%
s SIMULATE READ DATA

MOV
JSR
MOV
(MP
BEQ

#1,PR.BIT
PC,RDBIT
RKCST1(R2),T.CS1
E.CST,T.CST
9%

SuB

R1,WRDCNT

BNE
MOV
JSR
MOV
MOV
MoV
Mov
MOV
MOV
ROR
BCS
CLR

MoV

2%
#1,PR.BIT

#3,WRDCNT

s ONE
; SIMULATE READ DATA
;READ COMMAND AND STATUS REG.
JCHECK IF CS® CORRECT
JYES, SIMULATE NEXT BIT

;LOAD WORD COUNT

MOV
SuB
ERROR

#16. ,BITCNT
RO,BITCNT
156

JLOAD BIT COUNT

TST31

2.00 ON TO MEXT TEST

MOV

9% :

;:D0 100. ITERATIONS
;LOAD RK611
;CLEAR RK$11
;PUT RK611 IN DIAGNOSTIC MODE

#CCLR, RKCST1(RZ)

2CS1

INCORRECT DURING HEADER

;CLEAR RK611

DEC

sCHECK [F READY FOR NEXT WORD

DEC

;(HECK

BNE

sNO, GET NEXT BIT
IF

HEADER FIN]ISHED

(ZR6CEOQ RK611 DSKLS CTRL PRT3
TZR6LE.PIT
27-AUG-81 10?4

4940
4941

4942
4943

L9944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956

W= NONONONPONOWNILES
= NS
NN

HN NONMNVMNNDWNO
= SN = SN~
WO OWWNO WINIWINW
OW WO WNWWIWO
NWSNISNSNSNNWNO
2NN
NNNNYN
O~

4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939

025620
025626
025634
025642
025650
025656
025660
025662
025670
025672
025674
025700
025704
025710
025716
025724
025732
025740
025742
025750
025756
025760
025762

001326
012700
013737
005037
004737
005300
001367

4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924

025570
025572
025576
C25604
025610
025614
025616

=000 2000000
(= COOOOOOOOO
o

4913

060000
000010
010224
000300
003500

003510

BNE
003616

158:

168:
17$:

003624
064412
003522
000024
000000
000010
000002

003462
003440
003450
003624

000100
003500

203510
003440

208:

218:

DEC
BNE
MOV

RO
15$
RKCS1(R2),T.CS1

CLR
JSR

023737
001402
1041€2
000413

£03510

026000
026006
026010
026012
026016
026024

023737
001401
104163
005237
022737
001327

003522

003462

003624
000003

003624

003450

22%:

238:
248:

SEQ 0092

:NO, GET NEXT WORD

#4,RO
PR.BIT,M1.BIT

*LOAD COUNT FOR POSTAMBLE
:STORE LAST BIT

PR.BIT
PC.RDBIT

:LOAD NEXT BIT
READ BIT
:CHECK IF TIME FOR READY
INO, CONTINUE WITH POSTAMBLE
:GET CURRENT (S]

RKCS2(R2) T, (32 :GET CURRENT (S2

MOV
MOV
CMP

#CFMT. RDY IRDHEADE<*(<G0>>,E.(ST ;LOAD EXPECTED (S1
#ORLIRE.CS2
SLOAD EXPECTED ($52
:CHECK (ST CORRECT
E.CS1,7.CS

(MP
BEQ
ERROR

E.CS2,7.CS2
178

:CS1 INCORRECT
:CHECK €S2 CORRECT
YES. CHECK DATA
:0S2 INCORRECT

MOV
MOV
MOV

(R3)+,E.DB
RKDB(R2),T.DB
RKCS1(R2),T.CS1

:INITIALIZE WORD COUNT
IGET ADDRESS OF DATA
:GET EXPECTED DATA
:GET ACTUAL DATA
:STORE COMMAND AND STATUS REG.

TST31

;G0 ON TO NEXT TEST

BEQ
ERROR

16$
157

:YES, CHECK (S2

160

(LR
MOV

WRDCNT
#HEAD1,R3

MOV
CMP
BNE
MOV
(MP
BEQ
ERROR

RKCS2(R2).T.CS2
#2 ,WRDCNT
21%
#1R,E.(S2
E.CST,T.CS1
22%
161

025764
025772
025774
025776

MOV
MOV

MOV

003440
003450
003500
003516
003440

003450

10:35 PAGE 93
30(1046)
28-AUG-81
READ
HEADER
IN
18 BIT MODE
130

104161
000421

4957
4958
4959

4960
4961
4962
4963
4964
4965
4966
4967
4968

000004
003614
003614
043540

MACY11
.

(MP

E.CS2,T.CS2

;CHECK €S2 CORRECT

ERROR
BR

162
TST31

052 INCORRECT
;G0 ON TO NEXT TEST

BEQ

(MP
BEQ
ERROR
INC
CMP
BNE

23$

E.DB,T.DB
248
163
WRDCNT
#3,WRDCNT
. 20%

:STORE COMMAND AND STATUS REG. 2
:CHECK If LAST WORD IN DATA BUFFER
N0, CHECK (S1
*LOAD EXPECTED (2
:CHECK CS1 CORRECT
YES, CHECK (S2
:CS1 INCORRECT

:YES,

CHECK DATA BUFFER

;CHECK DATA BUFFER CORRECT
YES, GET NEXT WORD
:DATA BUFFER INCORRE(T
: INCREMENT WORD COUNT
SCHECK IF FINISHED
:NO READ NEXT WORD

2222232322232222322322222323282232820208R00020RRRARSRARRRRRRaRls
R

S*TEST

D
P
ix
i
i
i

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
ISSUE A READ HEADER TO AN RKO06
IN DIAGNOSTIC MODE.
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE C.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE AND 350 ZEROES. MAKE
SURE READY REMAINS RESET AND THE SILO REMAINS

SYNCH DETECT

IN READ HEADER

EMPTY,

:'.fit.tltttii.tl’t‘t"tt't'ti'tlt.tfltfi't"!ltttfi“itttl"ti!ttt'lit
026026

000004

TST31:

SCOPE

TZRECED RK611 DSKLS CTRL PRT3
FIRECE.P11
27-AUG=81 10:24

MACY1 3?;}046)

4969

026030

012737

000144

001200

4971
4972

026042
026050

012762
012762

100000
000060

000000
000026

4975
4976
4977
4978
4979
4980

026070
026076
026104
026106
026110
026116

012762
012762
005300
001370
012762
012762

000440
000040

000026
000026

000140
000040

000024
000026

4984
4985

026142
026150

012737
005037

4970 026036 013702
4973
4974

4981
4982
4983

4986
4987
4988
4989
4990
4991

026056
026064

026124
026130
026134

026154
026160
026166
026174
026202
026204

012762
012700

005037
005037
012737

004737
016237
016237
023737
007402
104164

001270
000025
000312

003614
003616
000025

000100
003622
043540
000000
000010
003500

026210

023737

4996

026220

104165

4995

4997

4998
4999
5000
5001

5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
2815

026216

026222

026224
026230
026236
026240

026244
026252
026260
026266
026274
026302
026304
026306
02¢314
026316
026320

001402

000441

005237
022737
001346
005762

016237
016237
012737
012737
023737
001401
104166
023737
001401
104167
012762

MOV
MOV

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

MOV
MOV
DEC
BNE
MOV
MOV

#DMD 'MCLK ,RKMR1(R2) :
FOR SECTOR PULSE
#DMD .RKMR T (R2)
RO
1%
#DMD 'MSP ,RKMR1(R?2) ;SIMULATE TO SECTCOR PULSE
#DMD .RKMR1 (R2)

000000

MOV
MOV

003500

003510

003440
003450
003440

2%:

003622
000536

000024

003450

003622

3%:

000000
000010
100224
100100
003500

003440
003450
003500
003510
003440

003510

003450

5%:

100000

000000

6$:

-CLEAR RK611
-PUT RK611 IN MAINT MODE

#RDHEAD ,RKCS1(R2) ;ISSUE READ HEAD
#50.%4+2 R0
- 1SSUE ENOUGH CLOCKS UNTIL READY

JSR
MOV
MOV
CMP
BEQ
ERROR

PC,RDBIT
RKCST1(R2),T.CS1
RKCS2(R2).T.CS2
E.CST,T.CS1
3$
164

:STORE CS1
:STORE (S2
‘CHECK IF CS1 CORRECT
SYES, CHECK CS2
:€S1 INCORRECT

MOV
CLR

#IR,E.CS2
BITCNT

1ST32

*LOAD EXPECTED CS2
*SIMULATE 350 ZEROES

::GO ON S0 NEXT TEST

CMP

E.CS2,T.CS2

:CHECK IF

ERROR

165

1052 INCORRECT

BEQ

INC
CMP
BNE
TST

MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

2812

JCTEST 32

5017

w
‘e
e
P
o
‘e
T

ITERATIONS

;INITIALIZE PRESENT AND
*"
PREVIOUS BIT
:LOAD EXPECTED CS1

5018
5019
5020
5021
5022
5023
5024

::DO 100.

*{0AD RK611 BASE

PR.BIT
M1.BIT
#RDHEAD ,E.CS1

5014

- %

$BASE .R2

CLR
CLR
MOV

B8R
003510

SEQ 0093

#100.,$TIMES

MOV

18:

MOV

zggg 026206 (00447

4994

28-AUG-81
10:35 PAGE 94
SYNCH DETECT IN READ HEADER

TST3?2

BITCNT
#350. .BITCNT
2%
RKDB(R?)

“YES,

€S2 CORRECT

CHECK

SILO EMPTY

;260 ON TO NEXT TEST

“INCREMENT BIT COUNT
:CHECK IF FINISHED
'NO, SIMULATE NEXT ZERO
;READ DATA BUFFER

RKCS1(R2),T.CS1 :STORE CS1 AND (S2
RKCS2(R2) .T.(S2
#CERR'RDY
' RDHEAD&<*C<GO>>,E.CST :LOAD EXPECT (S1
#DCK.IR,E.CS2
;LOAD EXPECTED (€S2
E.CST,T.CST
“CHECK FOR CONTROLLER ERROR
5%
;YES, CHECK FOR DATA LATE
166
+CS1 INCORRECT
£.(S2,7.CS2
"CHECK FOR DATA LATE
6%
YYES, CHECK RK611
167
10S2 INCORRECT
#CCLR,RKCST(R2) CLEAR RKET1

R AR R AR R R R RN R AR R

A R T R AR AR AR AR R AR RN AR R AR RN N R

A AR NP R AN

ZERD SYNCH ON READ

CLEAR RK611 WITH A CONTROLLER CLEAR.

PUT (ONTRCLLER
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES,
SIMULATE SECTOR PULSE. 255 ZEROES SHIFTED BY A WALF
BIT TIME. A ONE, AND A HEADER CONSISTING OF THE
THREE FOLLOWING WORDS:

177777

E%RbCEO RK611
R6CE.P1

DSKLS CTRL PRT3
27-AUG=-81 10:24

WACYN

5025

3?(1046)
32

5026

28-AUG-81
10:35
PAGE 95
ZERO SYNCH ON READ

SEQ (094

000000

5027
5028
gg%g

o
*
*
*

5031
5032
5033

:-:tit'ttttt'ttttttitttttlttttttttttfi'tt*tttttfitttt't'thttt'tttflQQ
TST32:
SCOPE
MOV
#100. ,8$TIMES
;:D0 100. ITERATIONS

5034
5035
5036
5037
5038
5039
5040
5041
5042
5043
5044
5045
50646
5047
5048
5049
5050
5051
5052
5053

5054

5055
5056
5057
5058
5059
5060
5061
5062
5063
2822

02€326

026330

026336
026342
026350
026356
026364
026370
026376
026404
026406
026410
026416
026424
026432
026440
026444
026450
026454
026460
026462
020464

026472

026476
026502
026506
026514
026516
026522
026530
026532
026534
026540

000004

012737

013702
012762
012762
012762
012700
012762
012762
005300
001370
012762
012762
012762
012762
005037
005037
012700
004737
005300
001374
012737

004737

012701
012703
012737
0123204
012700
013737
006004
103403
005037
000403

000144

001270
100000
000040
000025
000312
000440
000040
000140
000040
000440
000040
003614
003616
000341

001200
00000C
0000co
000000
000026
000026

043540

2$:

000001
003614
043540
010003
064412 ©
000025
003°09
000020
003614

78:
8%:

003614
003614

000003
003624
006020
003622

003624

5076
28;5

026620
026626

012762
000522

100000

000000

026630
(26632

005300
001333

104150

5%:
6%:

000001
043540
000000
003500

003440
003440

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

003622

#DMD ,RKMR1(R2)
RO
1%
#DMD !MSP ,RKMR1(R2)
;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
#DMD !MCLK ,RKMR1(R2)
;SHIFT DATA ONE HALF BIT
#DMD ,RKMR1 (R2)
PR.BIT
JINITIALIZE PRESENT BIT AND
M1.BIT
;
PREVIGUS BIT
#225.,R0

s SIMULATE SYNCH

MOV
MOV
MoV
MOV
MOV
MOV
ROR
BCS
CLR
BR

#1,PR.BIT
PC,RDBIT
#3,R1
#HEAD1,R3
#RDHEAD,E.CST
(R3)+,R4
#16.,R0
PR.BIT MY.BIT
R4
7%
PR.BIT
8%

;LOAD NUMBER OF WORDS
:LOAD ADDRESS OF DATA
;LOAD EXPECTED (S1
:GET DATA
;LOAD BIT COUNT
;STORE PREVIOUS BIT
;GET NEXT BIT
;CHECK [F 1
:NO, ZERO
;SIMULATE READ DATA

MO
JSR
MOV
(MP
BEQ
MOV
SUB
MoV
SUB

#1,PR.BIT
PC,RDBIT
RKCST1(R2),T.CST
E.(S1,T.CST
9%
#3,WRDCNT
R1,WRDCNT
#16. ,BITCNT
RO BITCNT

;ONE
;SIMULATE RFAD DATA
;READ COMMAND AND STATUS REG.
;(HECK JF CS1 CORRECT
JYES, SIMULATE NEXT BIT
;LOAD WORD COUNT

MOV
BR

#CCLR,RKCST1(R2)
TST33

150

:CS1 INCORRECT DURING HEADER
;CLEAR RK61!?
;.60 ON TO NEXT TEST

DEC
BNE

RO
€$

JCHECK IF READY FOR NEXT WORD
:NC, GET NEXT BIT

ERROR

J%:

$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RKE11
#DMD ,RKMR1(R2}
;PUT RK611 IN DIAGNOSTIC MODE
#RDHEAD ,RKCS1(R2)
;ISSUE READ HEADER
#50,%4+2,R0
; ISSUE ENOUGH CLOCKS UNTIL READY
#DMD 'MCLK ,RKMR1(R2)
;
FOR SECTOR PULSE

PC,RDBIT

JSR

003616

012737
004737
016237
023737
001417
012737
160137
012737
160037

026616

18:

000026
000026
000026
000026

026542
026550
026554
026562
026570
026572
026600
026604
026612

5079
5080

MAKE SURE THAT READY COMES AFTER THE THIRD WORD
IS TRANSFERRED.
(HECK THE SILO FOR CORRECT CONTENTS.

5066
5067
5068
5069
5070
5071
5072
5073
5074

5075

177777

RO
2%

;LOAD BIT COUNT

TIME

TZROCED RK6E11 DSKLS CTRL PRT3
TIR6(E.PY
27-AUG~81 10:24
5081
5082
5083
S84
5085
5086
5087
5088
5089
5090
5091
5092
5093

026634
026636
026640
026644
026652
026656
026662
02¢664
026666
026674
026702
026710
026716

5097
5098
5099
5100
5101

026736
026740
026742
026746
026752

026756
026764
026772
027000
027006
027010

027016
027024
027026
027030

012737

012737
023737
00°401
104151
023737
001401
104152
005027
012703
012337
016237
016237
016237
022737
001003
012737
023737
001402

003616

15%:

000224

000300
003500
003510

003450

003624
064412
003522
000024
000000
000010
000002

003462
003440
003450
003624

000100
003500

003510
003440

16%:
17%:

20%:

21%:

104153
000421

28-AUG-81
10:35
PAGE 96
ZERO SYNCH ON READ

SEG 0095

DEC
BNE
MOV
MOv
CLR
JSR
DEC
BNE

R1
5%
#4 RO
PR.BIT,M1.BIT
PR.BIT
PC,RDBIT
RO
15%

MOV

RKCS2(R2),T.CS2 ;GET CURRENT (S?2

MOV

000000
000010

RKCST1(R2),T.CST1

;CHECK IF HEADER FINISHED
:NO, GET NEXT WORD
;LOAD [OUNT FOR POSTAMBLE
;STORE LAST BIT
sLOAD NEXT BIT
sSIMULATE 1 BIT READ
JCHECK IF TIME FOR READY
sNO, CONTINUE WITH POSTAMBLE
;GET CURRENT (S1

MOV
MOV

#RDY !RDHEADE<*(<GO>>,E.CST ;LOAD EXPECTED (S1
#OR!IR,E.CS2
;LOAD EXPECTED (S2

CMP

E.CS2,T.CS2

(MP
BEQ
ERROR

BEQ
ERROR

E.CS1,7.CS1
16%
151

;CHECK CS1 CORRECT
JYES, CHECK (S2
;CS1 INCORRECT

17%
152

;YES, CHECK DATA
;CS2 INCORRECT

s CHECK

CLR

WRDCNT

MOV
MoV
MOV

RKDB(R2) ,7.DB
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2

MOV
MoV

(MP
BNE
MOv

cMp

BEQ

ERROR
BR

#HEAD1,R3
(R3)+,E.DB

#2 ,WRDCNT
21%
#IR,E.CS2

E.CST,T.CS1
22%

153
TST33

€S2 CORRECT

JINITIALIZE

WORD COUNT

;GET ADDRESS OF DATA
JGET EXPECTED DATA

;GET ACTUAL DATA
;STORE COMMAND AND STATUS REG.
;STORE COUMMAND AND STATUS REG.

JCHECK IF LAST WORD
JNO, CHECK (S1
;STORE EXPECTED (SZ2

1
2
[N DATA BUFFE R

sCHECK CS1 CORRECT
JYES,

CHECK (SZ2

2CS1 INCORRECT
2:G0 ON TO NEXT TEST

027032
027040
027042
027044

023737
001402
104154
000413

003510

003459

22%:

CMP
BEQ
ERROR
BR

E.CS2,T.CS2
23%
154
TST33

;CHECK CS2 CORRECT
sYES, CHECK DATA
;CS2 INCORRECT
;;G0 ON TO NEXT TEST

027046
027054
027056
027060
027064
027072

023737
001401
104155
005237
022737
001327

003522

003462

23%:

(MP
BEQ
ERROR
INC
(MP
BNE

E.DB,T7.D8B
24%

sCHECK IF DATA CORRECT
JYES, GET NEXT HEADER WORD

.SBTTL

155
WRDCNT
#3,WRDCNT
20%

*+MFM WRITE LOOPBACK

;DATA INCORRECT
; INCREMENT WORD COUNT
JCHECK IF ALL THREE WORDS (HE(K
sNO, GET NEXT WORD
TESTS

':.ttt.ttt'ttttltt!’"t'ttt"t'itttit'i'tttttttitttttit!"ttttt'tt

»N
¢

%
»

0.8,

8,8,

TeTEST 33

003624

248:

003624
000003

NN —=O V0NNV WN B WO 000
WSO OO NO NS
PN

e
e R
I
R
I
e I
R

RV LW RV

G
G

T U

W RV W LW L
LV W

s Y
PO

(G LV TN IV TV QW AV LG TW LV R

WWININWIWWWAORNOMNONONONONONDNUNY)
R =
D 2 2 2 2 2 OO

U LV LV AW RV, RV, RV LV, |

5102
5103
5104
5105
5106
5107

026724
026726
026730

001367
016237
016237

000004
003614
003614
043540

3?§;046)

S.w,

5094
5095
5096

005301
00132¢
012700
013737
005037
004737
005300

MACYTT

WRITE ZEROS UNTIL SECTOR PULSE WITH WRITE HEADLR

CLEAK THE RK611 WITH A CONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06

IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.

CLOCK BOTH SEEK AND DRIVE

CLEAR MESSAGES.

SIMULATE

SIMU_ATE SECTOR PULSE

AND MAKE

INDEX PULSE AND 500 DATA BITS.

ZEROES ARE

WRITE

GATE

WRITTEN.
RESETS.

MAKE SURE

THAT

SURE

TIRECED RK61T DSKLS CTRL PRTY
TIR6LE.P1
27-AuG=-81 10:24

vACYN

027074

000004

027076

012737

000144

001200

5142
5143
5144
5745

027110
027116
027126
027132

012762
012762
012762
012762

100000
000040
000140
000040

000000
000026
000026
000026

000027
002364

00000V

S146
5147

5148
569
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161

212%

5164

5165
5166
5167
5168
5169
5170
5171
5172
5173
5176
5175
5176
5177
5178
5179
5180

5181
5182
5183
5184
5'85
5186
5187
5188
5189
5'90
5191
519¢

""t.tltttttb"'l.ttt"tt'tt'ttltttttttt'tt'fitttt"!lQ't'it'tt""

5140

5141

28-AuUG-81
10:35
PAGL 97
WRITE ZEROS UNTIL SEZTOR PULSE WITH WRITE HEADER

5137

5138

5139

3?§%046)

027104

013702

027140
027146

012762
012762

027166
027174
027202
027204
027206
027212
027220
027226
027234
027236

012762
012762
005300
001370
012700
012762
012762
012762
005300
001370

027246

012737

027154
027162

027240

027256

027260
027266
027274
027276
027300
027304
027310
027314
027320
027324
027330
027336
027342
02736
027350
02735

027356
027360
027366

027374
027402
027410
027416
0276420
027422

027430
027436
0276466

012762
012700

007270

064714
177777

00002¢
000026

000004
000240
000640
000240

000026
000026
000026

012762

000040

000026

012700

000002

012762
012762
005300
001370
005037
005037
005037
005037
005037
012700
012737
005037
004737
104170
005237
005300

001371
042737
052737

012762
016237
023737
001407
104171
042737

052737

012762

016237

000440
000040
003626
003612
003614
003616
003620
000764
060°2%
003622
042570

1%:

2%:

3%:

5%:

003622
003524
003524
Q00026
003464
003464

000100
040000
000040

003524
003524
000026

000026

003464

MOV
MOV
MOV
MOV

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#DMD !MSP ,RKMR1(R?2) ;INITIALIZE ROM
#DMD ,RKMR1 (R2)

MOV
MOV

#WRHEAD ,RKCS1(R2)
#<256.+48.+464.+4256.+410.>¢2,R0 ; ISSUE ENOUGH CLOCKS
;
UNTIt READY FOR INDEX PULSE
#DMD 'MCLK ,RKMR1
(R?2)
#DMD ,RKMR1(R?2)
RO
1%
#4. RO
;SIMULATE INDEX PULSE

MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNF

;.00

100.

#WRBUFF ,RKBA(R?2)
#-1,RKWC (R2)

;ISSUE WRITE HEADER

MOV

#2,R0O

MoV
MOV
DEC
BNE
(LR
(LR
(LR
(LR
(LR
MOV
MOV
(LR
JSR
ERROR
INC
DEC

MCvV
MOV
(MP
BEQ
ERROR
BIC

BIS

MOV
MOV

ITERATIONS

;LOAD RK611 BASE

MOV

BNE
BIC
BIS

10%:

$BASE ,R?2

#MIND ! DMD ,RKMR1(R2)
#DMD .MIND 'MCLK ,RKMRT(R2)
#DMD 'MIND ,RKMR1(R2)
RO
2%
#DMD ,RKMR1(R2)

MOV

003170

040000
000100
000140
000026
003524

#100. ,8TIMES

MOV
MOV

0203524

000026
000026

SCOPE

MOV

000004
00000<

000440
000040

062040

TST33:

fiDMD!MEUD.ECCU!wRTGa ,EiMR;EélNITIALIZE EXPECTED
;

AINT.

JWAIT FOR WR]TE GATE

#DMD !MCLK ,RKMR1(R2)
.
#DMD ,RKMR1(R?2)
RO
3%
SECCNT
;CLEAR SECTOR COUNT
P1.BIT
JINITIALIZE BIT GENERATION
PR.BIT
M1.BIT
M2.BIT
#500. ,R0
;LOAD COUNT FOR 500 BITS
#EM230,EMY
;LOAD ERROR MESSAGE
BITCNT
JCLEAR BIT COUNT
PC,WRTIB]Y
JWRITE ONE BIT
170
JERROR IN WR]TE
BITCNT
JINCREMENT NUMBER OF BITS WRITTEN
RO
JCHECK JF FINISHED

5%
sNO, CONTINUE
#WRTGAT
,E MR}
;GENERATE EXPECTED MR?
#MSP
E .MR1
#DMD 'MSP ,RKMR7T
(R2) ;RAISE SECTOR PULSE
RKMR1(R2),T.MR1 ;STORE MAINT, REG. !
E.MR1,T.MR1
;STORE MAINT REG 1
108
JYES, LOWER SECTOR PULSE
171
JWRITE GATE DID NOT RESET
#MSP,E MR
;GENERATE EXPECTED MR1
#WRTGAT
,E . MR
#DMD _RKMR1(R2)
;RESET SECTOR PULSE
RKMRT1(R2),T.MR1

:STORE

MAINT

REG

SES CO96

(ZR6CED RK611 DSKLS CTRL PRT3
TIRG6CE.PN
27-AUG=81 10:24

MACY11

003524

003464

5193
5194
5195

027452

027460
027462

023737

001405

30(1046)
28-AuG-81
10:35
PAGE 98
133
WRITE ZEROS UNTIL SECTOR PULSE
(MP

E.MR1,T.MR1

ERROR

172

BEG

104172

TST134

WiTH WRITE

;CHECK MR1

SEQ 0097

HEADER

CORRECT

JoYES, GO ON TO NENT TEST

JWRITE GATE DID NOT SET

B R
RS

T
S

I
e

IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
(ONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:

177777
000000
177777

I
I

(LEAR THE RK€11 WiTH A CONTROLLER (LEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK06

%
%

AN 1aNTAN
1N ], 01,0

027702
027706

OOW

ronoroONLND
N

NNNNNNN

PPN

(2]
~no

=N
~

PONOWINDND = NNONODMNLND = NPV

027674

[sleBNolelelelalaleloleololelolololololeloleleleleloleleolelslolale)
b b D D D b 2 e O
e D
OO
= OO R A2 OO

W= O D00

5245

027542
027550
027556
027560
027562
027566
027574
027602
027610
027612
027614
027622
027626
027634
027642
027644
027646
027654
027662
027666

004

(e L ]
AN

027464
027466
027474
027500
027506
027514
027522
027530
027536

B W=
O 000 NN

WA
VI LA

(PART

MAKE SURE
(HECK FOR

THAT READY (OMES UP AFTER THE SECOND INDEX PULSE.
CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

LELSLELELE
LSS L VST N1 NTNT 0 1 S IA 1) V]
8 85 3 8 BONN
NN NN N NN WO N

NNV

WRITE LOOPBA(CK

;:t'tttt.'Q'.tfiti*tQt't'i't"Qtt'ttti.tl't'ltt'.'t"t'."."ttt"

5227

ANV

)

;*TEST 34

000144
001270
100000
000040
064412
177775

000027
010312

001200

000C26
000026

000004
000240
000640
000240

000026
000026
000026

000140
000040
003626
060475
062040

003612
003614

000026
000026

003170
003524

#100. ,8TIMES

2:D0 100.

MOy
MOy
Mov

A#CCLR,RKCS?(R2)
#DMD ,RKMR1(R2)
#HEAD1 ,RKBA(R2)

;CLEAR RK611
;PUT RK611 IN DIAGNOSTI( MODE
;ISSUE WRITE HEADER

MOV
MOv

#WRHEAD ,RK(S1(R2)
#50.+4+2,R0
s ISSUE ENOUGH CLOCKS uUNTIL
.
READY FOR INDEX PULSE
#DMD !MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2)

MOV

1%:

2%:

MOV
MOV

DEC
BNE
MOV
MOV
MOV
MOV

DEC
BNE

000026
000026
000026

St OFE

MOV

200000
000026
000004
000002
000000

000440
000040

000040
000010
000440
000049

TST34:

3s:

MOV
MOV

DEC
BNE

MOV
MOv
(LR
MOV
MOV

(LR
(LR

$BASE ,R?2

#-3 ,RKWC (R2)

ITERATIONS

;LOAD RK611 BASE

RO
1%

#4 RO
< 1SSUt INDEX PULSE
#DMD !MIND ,RKMR1
(R2)
#DMD !MIND !MCLK ,RKMRT (R2)
#DMD !MIND ,RKMR1(R2)

RO
2$

#DMD,RKMR1 (R?)
#8. RO

;WAIT

#DMD 'MCLK ,RKMR1 (R2)

FOR WRITF

GATE

#DMD,RKMR1 (R2)

RO
3%

#DMD !MSP,RKMR1(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1(R2)
SECCNT
JINITIALIZE SECTOR COUNT
#EM233 EMW
:LOAD ERROR MESSAGE
#DMD MEWD .ECCW!WRTGAT
E.MR1 INITIALIZE

P1.K1T
PR.BIT

;

MAINT REG 1

JINITIALIZE BIT

EXPECTED

GENERATION

027712
027716
027722
027726
027732
027736
027740
027744
027746
027750
027756
027762

000001
062570

003622
060541
064412
000603
000020
003616
003614
0036°2

000001
042570

b —d

000020
003616
003614
003612
003612
042570

003612

(o)

D
QO ==
OON 2 =2

#1,P1.BI7
PC,WRIB]T
170
BIT(NT
NEM234 ,EMW
#HEADT ,R3
#3,R0

MOV

#16. R

MOV
M0V
ROR

PR.BIT ,M1.BIT
P1.BIT,PR.BIT
R4

12%:

MOV

18%:

MOv

JSR

000040
000026

000026
003464

003524

003464

20%:

RO
5%

SEQ (098

:SIMULATE SYNCH
JINITIALIZE BIT COuUNT
,WRITE ONE BIT

;DATA INCORRE(CT

JCHECK ]F READY FOR DATA
:NO, GENERATE NEXT BIT
JPUT

IN SYNCH BT

;DATA

INCORRECT

JINITIALIZE BIT COUNT
:LOAD ERROR MESSAGE

(R3)+,R4

;LOAD ADDRESS OF DATA
;LOAD NUMBER WORDS N HEADER
JGET NEXT WORD

M1.B]T,mM2.BIT

JSHIFT BITS

14%
P1.BIT
15%

;LOAD BIT

:SHIFT

;CHECK
;ZERO
;cLOCK

COUNT

IN NEXT BIT

]F ONE

IN BIT

#1,P1.BIT

; ONE

170

JBIT INCORRECT

P(,WRTBIT

JWRITE

BIT

BIT(NT
R1
12%
RO
10%

JINCREMENT BIT COUNT
JCHECK IF WORD FINISHED
JNO, CONTINUE WITH NEXT BI7T
;CHECK [F HEADER COMPLETE
JNO, GET NEXT WORD

MOV
MOV
MOV

M1.BIT M2 .BIT
PR.BIT M1.BIT
P1.BIT,PR.BIT

JSHIFT BITS

MOV

#16. ,R1

JLOAD BIT

COUNT

FOR NEXT

INC
DEC
BNE
MOV

P1.BIT
PC,WRTBIT
WRITE ZERO
170
;BIT INCORRECT
BIT(NT
JINCREMENT BIT (COUNT
R1
;CHECK IF FINISHED
18%
JNO, CLOCK NEXT B!T
#DMD 'MIND ,RKMR1(R2)
:SIMULATE [NLCEX

DEC
BNE

RO
208

ERROR

000026
000026

INC
DEC
BNE
DEC
BNE

CLR
JSR

000026

170

MOV
JSR
ERROR
(LR
MOV
MOV
MOV

ERROR

003620
003616
003614

BITCNT
PC,WRTBIT

BITCNT

MOV

M1.BIT
M2.BI"
#256. ,RC

INT

8CS
(LR
BR

000240
000004
000640
000240

022040
003524

ERROR

10%:

003622

003170

003622

D
d
—d

003612

003620
003616
003614

(LR
JSR

DEC
BNE

003612

NN AN NN AN AN NN NN AN

5%:

005237
005300

030050
030056
030062
030064
030070

30(1046)
10:35 PAGE 99
28-AUG-81
(PART 1)
LOOPBA(CK
4
WRITE
T3
(LR
CLR
MOV

104170

027770
027776
030002
030006
030010
030014
030022
030030
030036
030040
030042
030046

OOCOCOOOOMOOOOOO0O

MACYTT

005037
005037
012700
005037
004737

027764

AN AN WAL U

IV, IV V. IO TV, IV YV TV, TV, IV, IV, | N
(VLI

MALNLNALAL
AL NV NI AL NI NN NONY ~N)

(o Yo Yo XV, IV 1V, 1V, IV IV, IV 1V, [V 1V ] »
AN =2 O V00 NN
NN~ O O

"IRETEC RKETT DSKLS CTRL PRT3
TIRETELPMY
27-AUG=81 10:24

MoV
MOV
MOV

MOV
MOV
MOV

(MpP

BEQ
ERROR

WORD

#4 RO
#DMD !MIND 'MCLK ,RKMR1(R2)
#OMD 'MIND ,RKMR1(R2)

#DMD ,RKMR1(R2)
RKMRT1(R2),T.MR1 ;GET MAINT PEG 1
MEWD'ECCW.DMD,E.MR1 ;LOAD EXPECTED MR?

E.MRY, T .MR1
25%
173

;CHECK MR! CORRECT (WRITE GATE RESET)
:YES, CHECK F READY SET
;MAINT REG 1 INCORRECT

CZRGCED PK611 DSKLS CTRL PRT3
TIR6(E.P11
27=-AUG=81 10:24
5305
5306
5307
5308
5309
5310
5311

030236
030242
030250
030256
030260
030262
030270

5313
g%}g

030304
03C306

5312

030276

012700
012762
012762
005300
001370
016237
012737
023737
001401
104174

MACY

000010
000440
000040

000026
000026

000000
000226

003440
003500

003500

39;1046)
25%:
26%:

003440

I
8
28-AUG=81
10:35
PAGE 100
WRITE LOOPBACK (PART 1)
MOV
MOV
MOV
DEC
BNE
MOV
MOV
(MP
REQ
ERROR

#8. R0
;FINISH COMMAND
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R?2)
RO
26$%
RKCST(R2),T.CST ;GET (OMMAND AND STATUS REG 1
#RDY . WRHEADE<*(<GO>>,E.CST ;LOAD EXPEFTED (S1
E.CS1,T1.C51
;JCHECK IF (S1 (ORRECT
TST35
;.YES, GO ON TO NEXT TEST
174
2CS1 INCORRECT

5316

IR R

g%}g

J*TEST

£319

(LEAR

ggsg

CONSISTING OF

5329
5321
5322
5323

ot
ot
M
M

R AR R

SEQ (G095

R R R R R R

WRITE
THE

AR R R AN N

LOOPBACK

RK611

WITH A

AR R

(PART

AN AR AR

R AR

AR RO RN E R E RGO ONS

CONTROLLER

CLEAR.

PUT

(ONTROLLER

IN DJAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RkO06&
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER

THE FOLLOWING DATA, AND AN INDEX PULSE:

5326
5327

it
;.

5334
5335

:'-tttfitttttttttttittt'tttt'tt'tt'tttttttfi'tt'tlttttttttttfitt'nttt
15135:
SCOPE

2359

5330
5331
g%%%

M
o
M

5336
5337
5338
5339
5340
5341
5342

030310
030312
030320
030324
(030332
030340
030346
030354

000004
012737
013702
012762
012762
012762
012762
012762

5344
5345
5346
5347
5348
5349
5350
5351
5352

030366
03C374
030402
030404
030406
030412
030420
030426

012762
012762
005300
001370
012700
012762
012762
012762

5343

5353
535
5355
5356
5357

5358

5359
5360

000000
177777

030362

030434
030436
030440
030446
030452

030460

030466
030470

012700

005300
001370
012762
012700
012762

0i2762

905300
001370

000144
001270
100000
000040
064420
177775
000027

001200

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

000312

00004C
000010
000440

000040

000000
000026
000004
000002
000000

000026

MAKE SURE THAT RtADY COMES UP AFTER THE THIRD WORD
1S TRANSFERRED,
CHECK FOR CORRECT WRITE ENCODED DATA
AND PRECOMPENSATION.

MOV
MOV
MOV
MOV
MOV
MOV
MoV

#100.,8TIMES
;:D0 100. ITERATIONS
$BASE ,R?
sLOAD RK611 BASE
#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMR1(R?2)
;PUT RK611 IN DIAGNOSTIC MODE
#HEAD? .RKBA(R2) ;ISSUE WRITE HEADER
#-3,F wC(RZ)
#WRHEAD ,RK(S1(R2)

Moy
MOV
DEC
BNE
MOV
MCV
MOV
MOV

;
READY FOR INDEX PULSE
#DMD ‘MCLK ,RKMRY
(R2)
#DMD ,RKMR1(R2)
RO
1%
#4 RO
. 1SSUE INDEX PULSE
#DMD !MIND ,RKMR1(R2)
#DMD !MIND 'MCLK ,RKMR1(R?2)
#DMD !MIND ,RKMR1T(R2)

Mov
1$:

2%:

000026

000000

3%:

#50.%4+2,R0

;ISSUE ENOUGH CLOCKS UNTIL

DEC
BNE
MOY
MOV
MOV

RO
’$
#DMD ,RKMR1(R2)
#8. R0
JWAIT FOR WRITE GATE
#DMD 'MCLK ,RKMR1(R?2)

DE(
BNE

RO
s

MOV

#DMD
. RKMRT (R2)

wMA(CY11 39;;046)

(ZR6CED RK611 DSKLS CTRL PRT3

“IR6CE.P11
5361
5362
5363
§364
2365
5367

5368
5369
370
5371

5372
5373
5374

27-AUG=-81 10:24

030472
030500
030506
030512
030520
030526

030532
030536
030542
030546

030552
030556
030562

5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5360
5391
5392
3393

030564
030570
030572
030574
030602
030606
030610
030614
030622
030626
030632
(30634
030640
030646
030654
030662
030664
030666
030672

5395
5396
5397

030674
030702
030706

5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408

5409
5410
5411
5412
5413
5414
5415
5416

030710
030714
030716
030720
030722
030724
030730
030736
030744
030752
030756

030762

030764
030770
030772
030774
031002
031006
031014

012762
012762
005037
(012737
012737
005037

005037
005037
005037
012700

005037
004737
104170

000140
000040
003626
060475
062040

003170
~03524

003612

003614
003616
003620
000400

003622
062570

005237
005300
001371
012737
004737
104170
005037
012737
012703
012700
012304
012701
013737
013737
013737
006004
103403
005037
000403

003622

012737
004737
104170

000001
042570

000001

042570

003622
060541
064420
000003
000020
003616
003614
003612

5%
'

003672

003170
108:
003620
003616

'2%:

003614

003612

005237
005301
001350
005300
001343
012701
013737
013737
013737
005037
004737

003622

005237
005301
001356
012762
012700
012762
012762

003622

104170

(00026
000026

000020
003616
003614
003612
003612
042570

003612

003620
003616
003614

14%:
158:

185:

00240
000004
000640
000240

28-AUG-81

000026
000026

20$:

PAGE 101

WRITE LOOPBACK (PART 2)
MOV
MOV
CLR
MOV
MOV

#DMD ' MSP ,RKMR1(R2) ;SIMULATE SECTOR PULSE
. RKMR1 (R2)
#DMD
;INITIALIZE SECTOR COUNT
SECCNT
#EM233 EMW
:LOAD ERROR MESSAGE
#DMD IMEWD . ECCWWRTGAT
E.MR1 ;INITIALIZE EXPECTED

CLR

P1.BIT

SINITIALIZE BIT GENERATION

BITCNT
PC,WRTBIT
170

:SIMULATE SYNCH
:INITIALIZE BIT COUNT
:WRITE ONE BIT
:DATA INCORRECT

(LR
CLR
CLR
MOV

PR.BIT
M1.817
M2.81T
#256. RO

INC
DEC
BNE
MoV
JSR
ERROR
CIR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ROR
BCS
(LR
BR

BITCNT
RO
58
#1,P1.817
PC,WRTBIT
170
BITCNT
HEM234 ,EMW
#HEAD2 ,R3
#3,R0
(R3)+,Ré
#16. ,R1
M1.BIT,M2.BIT
PR.BIT M1.BIT
P1.BIT,PR.BIT
R4
14$
P1.BIT
158

MOV
JSR
ERROR

#1,P1.B1T
PC,WRTBIT
170

(LR
JSR
ERROR

;CHECK [F READY FOR DATA
:NO, GENERATE NEXT BIT
:PUT IN SYNCH BIT
;DATA INCORRECT
:INITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
:LOAD ADDRESS OF DATA
:LOAD NU'BER WORDS IN HEADER
:GET NEXT WORD
:LOAD BIT COUNT
:SHIFT BITS
JSHIFT IN NEXT BIT
:CHECK IF ONE
: ZERD
:CLOCK IN BIT
; ONE
‘WRITE BIT
:BIT INCORRECT

INC
DEC
BNE
DEC
BNE
MOV
MoV
MOV
MOV
CLR
JSR

BIT(NT
R
128
RO
108
#16. R1
M1.BIT,M2.BIT
PR.BIT,M1.BIT
P1.BIT,PR.BIT
P1.BIT
PC,WRTBIT

INC
DEC
BNE
MOV
MOV
MoV
MOV

BITCNT
: INCREMENT BIT COUNT
R
ICHECK IF FINISHED
188
:NO, CLOCK MEXT BIT
#DMD 'MIND ,RKMR1(R2) " ;SIMULATE INDEX
#4 ,RY
#DMD 'MIND . MCLK ,RKMR1(R2)
#DMD ! MIND ,RKMR
(R2)

ERROR

000026

10:35

170

: INCREMENT BIT COUNT
:CHECK IF WORD FINISHED
:NO, CONTINUE WITH NEXT BIT
:CHECK IF HEADER COMPLETE
:NO, GET NEXT WORD
:LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

:WRITE ZERQ

:BIT INCORRECT

SEu 0100

(ZR6CEOQ RK611 DSKLS CTRL PRT3
CZR6LCE.P1Y
27-AUG=81 10:24
5617
548
5419
5420
5421
5422
5423
5424
5425
5626
5427

031022
031024
031026
031034
031042
031050
031056
031060
031062
031066
031074

5428
5429
5430
5431

031102
031104
031106
031114

5433

031130

5432

gzgg

031122
031132

005300
001370
012762
016237
012737
023737
001401
104173
012700
012762
012762
005300
001370
016237

012737

023737
007401

000040
000026
022040
003524

MACYIT

T35

000026
003464
003524
003464

000010
000440
000040

000026
00002¢

000000
000226

003440
003500

003500

30(1 046)

25%:
26%:

28-AUG-81

WRITE LOOPBACK

DEC
BNE
MOV
MOV
MOV
(MP
BEG
ERROR
MOV
MOV
MOV
DEC
BNE
MoV
MOV

003440

(MP

BEQ

104174

10:35

ERROR

K 8
PAGE 102

(PART 2)

SEG 0107

RO
2098
#DMD ,RKMR1(R2)
RKMR1(R2),T.MR1 ;GET MAINT REG 1
#MEWD 'ECCw'DMD,E.MR1 ;LOAD EXPECTED MR1
E.MR1,T .MR1
;CHECK MR1 CORRECT (WRITE
25%
JYES, CHECK IF READY SET

GATE RESET)

173
IMAINT REG 1 INCORREC"
#8. ,RC
JFINISH COMMAND
#DMD 'M(CLK ,RKMR1
(R?)
#DMD ,RKMR1(R?2)
RO
26%
RKCST(R2),T.CS1

;GET COMMAND AND STATUS REG 1
#RDY . WRHEADR<*(<GO>>,E.CST ;LOAD EXPECTED (S1

E.CST1,T.CS1
TST36

174

;CHECK IF CST1 CORRECT

:;YES,

:CS1

GO ON TO NEXT

INCORRECT

TEST

5436

:;tntttttttttt'ttt'Qt"tt't'ttttttttttttttttt't"tttt'tttttttt'tt

gz%g

J*TEST

WRITE

LOOPBACK

(PART

* %

5439
5440
5441
5447
5443

o
B
o
e
B

5446
5447

)
X

gzzg

2223

5450

gzg;

5453

i
031134
031136
031144
031150
031156
031164

000004
012737
013702
012762
012762
012762

000744
001270
100000
000040
064426

5467

031200

012762

5463
5464
56465
5465
5467
56468
5469
5670
5471
547¢

031212
031220
031226
031230
031232
(031236
031244
031252
031260

012762
012762
005300
001370
012700
012762
012762
012762
005300

5462

031172

031206

012762

012700

CONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:
125252
052525

125252

MAKE SURE

THAT READY COMES UP AFTER THE

SECOND INDEX PULSE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

:‘;lttttttttttt.ttt*ttttt't'tttttttt'ttttttttttttttttttttttttttttt

5454
5455
5456
5457
5458
5459
5460

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRI'E HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.
(LOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
STIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER

000000
000026
000004

SCOPE
MOV
MOV
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#CCLR,RKCST1(R2)
#DMD ,RKMRT(R2)
#HEAD3 ,RKBA(R2)

000027

000000

MOV

#WRHEAD ,RK(S1(R2)

(002440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

177775

000312

001200

T1ST36:

000002

MOV

MOV
1%:

2%:

MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
DEC

#-3 ,RKWC(R2)

050.~4*é.R0

;D0 10D, ITERATIONS
;LOAD RK611 BASE
;CLEAR RK611
;PUT RK611 IN DIAGNOSTIL MODE
;ISSUE WRITE HEADER

;ISSUE ENOUGH CLOCKS UNTIL

:
READY FOR INDEX PULSE
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1(R?2)
RO
18
#4,R0
;ISSUE INDEY PULSE
#DMD 'MIND ,RKMR1(R2)
#DMD :MIND 'MCLK ,RKMR1(R2)
#DMD _MIND ,RKMR1(R2)
RO

(ZROCED RK611 DSKLS CTRL PRT3

CZR6CE.P1Y

27-AUG-81 10:24

5473
5474
5475
5476
5477
5478
5479
5480
5481
S482

031262
031264
031272
031276
031304
031312
031314
031316
031324
031332

001370
012762
012700
012762
012762
005300
001370
012762
012762
005037

gzgg

031344

5486
5487
5488
5489
5490
5491
5492
5493
5494
5495

5497
5498

000040
000010
000440
000040

000026

000140
000040
003626

000026
000026

012737

062040

003524

031352
031356
031362
031366
031372
031376
031402
031406
031410
031414

005037
005037
005037
005037
012700
005037
004737
104170
005237
005300

003612
003614
003616
003620
000400
003622
062570

031420
031426

012737
004737

000001
042570

031434
031440
031446
031452
031456
031460
03464
031472
031500
031506
031510
031512
031516

005037
012737
012703
012700
012304
012701
013737
013737
013737
006004
103403
005037
000403

003622
060541
0646426
000003

03i520
031526
031532

012737
004737
104170

000001
042570

54,83 031336 012737 060475

5496

5499

5500
5501
5502
§503
5504
5505
5506
5507
5508
5509
5510
§511
gg}g
§514
5515
5516

5517
5518
5519
5520
5521
5522
5523
5524
5525
5506
5507

5528

MACYN? 3%;046)

031416

031432

031534
031540
031542
031544
031546
031550
031554
031562
031570
031576
031602

031606

001371

104170

005237
005301
001350
005300
001343
012701
013737
013737
013737
005037
004737

104170

000026
000026

3%:

00317C

108:
003620
003616
003614

12%:

003612

14%:
15%:

003612

003622

000020
003616
003614
003612
003612
042570

003620
003616
003614

18%:

PAGE 103

2%
#DMD ,RKMR1 (R2)
#8..R0
:WAIT ©OR WRITE GATE
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
3¢
#DMD 'MSP ,RKMR1(R2) :SIMULATE SFCTOR PULSE
#DMD
. RKMR1(R2)
SECCNT
;INITIALIZE SECTOR COUNT

MOV

#DMD!MEUD!ECCU'wRTGa;ifiinggG;{NITIALIZE EXPECTED

#EM233 ., EMW

*LOAD ERROR MESSAGE

CLR
CLR
CLR
CLR
MOV
CLR
JSR
ERROR
INC
DEC

P1.BIT
PR.BIT
M1.BIT
M2.BIT
#256. R0
BITCNT
PC,WRTBIT
170
BITCNT
RO

YINITIALIZE BIT GENERATION

MOV
JSR

#1,P1.8IT
PC.WRTBIT

CLR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ROR
BCS
CLR
BR

BITCNT
HEM234 , EMW
#HEAD3.R3
#3 RO
(R3)+,R4
#16. ,R1
M1.BIT.M2.BIT
PR.BIT.M1.BIT
P1.BIT,PR.BIT
R4
14$
P1.BIT
15%

SINITIALIZE BIT COUNT
*LOAD ERROR MESSAGE
SLOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER
*GET NEXT WORD
SLOAD BIT COUNT
:SHIFT BITS

MOV
JSR
ERRCR

#1,P1.817
PC.WRTBIT
170

: ONE
CWRITE BIT
*BIT INCORRECT

ERROR

003170

BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
CLR

BNE

003612

10:35

WRITE LOOPBACK (PART 3)

MOV

003622

000020
003616
003614
003612

28-AUG-81

INC
DEC
BNE
DEC
BNE
MOV
MOV
MOV
MOV
CLR
ISR

ERROR

:SIMULATE SYNCH
SINITIALIZE BIT COUNT
“WRITE ONE BIT
*DATA INCORRECT

5¢

:CHECK IF READY FOR DATA
*NO., GENLRATE NEXT BIT
*PUT IN SYNCH BIT

170

:DATA INCORRECT

BITCNT
R1
12
RO
108
#16. .R1
M1.BIT,M2.BiT
PR.BIT.M1.8BIT
P1.BIT.PR.BIT
P1.RIT
PC.WRTBIT

170

SSHIFT IN NEXT BIT
SCHECK IF ONE
+7ERD
SCLOCK IN BIT

“INCREMENT BIT COUNT
SCHECK IF WORD FINISHED
*NO, CONTINUE WITH NEXT BIT
“CHECK IF HEADER COMPLETE
'NO, GET NEXT WORD
“LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

:WRITE ZERO

:BIT INCORRECT

SEQ 0102

0 RK611 DSKLS CTRL PRT3

27-AUG=81 10:24

031610
031614
031616
031620
031626
031632
031640
031646
031650
031652
031660
031666
031674
031702
031704
031706
031712
031720
031726
031730
031732
031740
031746
031754
031756

005237
005301
001356
012762
012700
012762
012762
005300
001370
012762
016237
012737
023737
001401
104173
012700
012762
012762
005300
001370
016237
012737
023737
001401
104174

3$§2046)

003622

000240
000004
000640
000240

000026

000040
000026
022040
003524

000026
0034€¢
003524
(003464

000010
000440
000040

000026
000026

000000
000226
003500

003440
003500
003440

000026
000026
‘

20%:

25%:
26%:

28-AUG-81

10:35

PAGE 104

WRITE LOOPBACK (PART 3)
INC
DEC
BNE
MOV
MOV
MoV
MOV
DEC
BNE
MoV
mMov
MOV
CMP
BEQ
ERROR
MOV
MoV
MOV
DEC
BNE
Mnv
MOV
CMP
BEQ
ERROR

SEQ 0103

BITONT
s INCREMENT BIT COUNT
R1
JCHECK IF FINISHED
18%
;NO, CLOCK NEXT BIT
#DMD .MIND,RKMR1(R2)
;SIMULATE INDEX
#4 RO
#DMD !MIND !MCLK ,RKMR1(R2)
#DMD !MINL ,RKMR1(R2)
RO
20$
#DMD ,RKMR1 (R2)
RKMR1(R2) ,T.MR1 ;GET MAINT REG 1
H#MEWD 'ECCW.DMD ,E.MR1 ;1 OAD EXPECTED MR1
E.MR1,T.MR1
;CHECK MR1 CORRECT (WRITE GATE RESET)
25%
;YES, CHECK IF READY SET
173
JMAINT REG 1 INCORRECT
#8.,R0
:FINISH COMMAND
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
26%
RKCST1(R2),T.CST1 ;GET COMMAND AND STATUS REG 1
HRDY ! WRHEADR<*(<GO>>
,E.CSt ;LOAD EXPECTED (S1
E.CS1,T.CS1
;CHECK IF CS1 CORRECT
TST37
;.YES, GG ON TO NEXT TEST
174
2CS1 INCORRECT

:;tttttt*tttttt*ttttttit'iitt**itfit**t*!t*ttttttttttit't!tt"tttt

031760
031762
031770
031774
032002
032010
032016
032024

032032

032036
032044

000004
012737
013702
012762
012762
012762
012762
012762

012700
012762
012762

000144
001270
100000
000040
064442
177775
000027

000312

000440
000040

001200

000000
000026
000004
000002
000000
000026
000026

WRITE LOOPBACK (PART 4)

w
B
&
B
X
B

R
I
e
e

B
B

e
I

TR IR TR Y]

;*TEST 37

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF 'HE FOLLOWING DATA, AND AND INDEX PULSE:

044444
022222
LRRR RN

MAKE SURE THAT READY (OMES UP AFTER THE SECOND INDEX MODE.
CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

0000000000
N NNNNNNYNOR
S NN = OV
NN
NN
OO

LAV
LT HA LAV AVI LA LA
[V IV TV TV LV, IV TV IV RV, IV, RV, [V, TV, TV, TV, RV

(VI TV, TV, AV LV TV 0L IV (U LV LV, LV, |
(W W LW, TV, LV LV LV, LV AV, V[V, [V, ]V, |
[oay [0 Y0 NV RV IV LV RO LV IV L, IV, LV,
~n SOV
WO

P11

MACY!!

;;'tttttttttttttttttt'ttttt'ttttttttttttttttt'tttttttttttttt'tttt
T5T37:
SCOPE
MOV
#:00.,8TIMES
::D0 100. ITERAT]IONS
MOV
$BASE _R2
*{0AD RK611 BASE
MOV
#CCLR.RKCST(R2) :CLEAR RK611
MOV
#DMD,RKMR1(R2)
-PUT RK611 IN DIAGNOSTIC MODE
MOV
#HEADSG ,RKBA(R2) :ISSUE WRITE KHEADER
MOV
#-3,RKWC (R2)
MOV
#WRHEAD ,RKCS1(R2)
18%:

MOV

#50. #4+2 R0

- ISSUE ENOUGH CLOCKS UNTIL

MOV
MOV

#DMD 'MCLK ,RKMR1(R2)
#DMD
. RKMR1 (R2)

*""READY FOR

INDEX PULSE

27-AUG=-81 10:24

2052
2054
2056
032062
032070
032076
032104
032106
2110
2116
2122
2130
2136
2140
21642
2150
2156
2162
2170

005300
001370
012700
012762
012762
012762
005300
001370
012762
012700
012762
012762
0053C0
001370
012762
012762
005037
012737
012737

2176
2202
2206
2212
032216
032222
032226
032232
032234
032240
032242
032244

005037
005037
005037
005037
012700
005037
004737
104170
005237
005300
001371
012737

2256
032260
032264
032272
032276

104170
005037
012737
012703
012700

032252

032302

2306
2310
2316
2324
2332
2334
2336
2342

004737

012304

000004
000240
000640
000240

012737

000001

2356

104170

2360
2364

2366
2370
2372

005237
005301

001350
005300
001343

JINITIALIZE BIT GENERATION

003612

ERROR
(LR
MOV
MOV
MOV

170
BITCNT
#EM234 ,EMW
#HEAD4 ,R3
#3,R0

:DATA INCORRECT
SINITIALIZE BIT COUNT
*LOAD ERROR MESSAGE
;LOAD ADDRESS OF DATA
*L0AD NUMBER WORDS IN HEADER

MOV
MOV
MOV
MOV
ROR
BCS
CLR
8R

#16. R
M1.BIT,M2.BIT
PR.RIT.M1.BIT
P1.BIT.PR.BIT
R4
14
P1.BIT
15$

*LOAD BIT COUNT
:SHIFT BITS

MOV

#1,P1.817

:ONE

ERROR

170

“BIT INCORRE(T

3%:

SY:

JSR

003170

108 :
003620
003616
002614

12%:

003612

14%:

003612

042570
003622

WRITE LOOPRA(CK (PART &)

P1.BIT
PR.BIT
M1.B1T
M2.BIT
#256. R0
BITCNT
PC,WRTBIT
170
BITCNT
RO
5%
#1.P1.8IT

2%:

003622

2344

15%:

MOV

JSR
INC
DEC

8NE
DE(
BNE

#DMD I MIND _MCLK ,RKMR1(R2)
(R2)
#DMD ' MIND ,RKMR1
RO
28
#DMD ,RKMR1(R2)

#8. R0
:WAIT FOR WRITE GATE
#DMD .MCLK ,RKMR1(R2)
. RKMRT (R2
#DMD

RO
3$
#DMD 'MSP ,RKMR1
(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
SECCNT
SINITIALIZE SECTOR COUNT
#EM233 ,EMW
:LOAD ERROR MESSAGE
#DMD!MEHD!ECCU!HRTGa;i§iMSgG:%NITIALIZE EXPECTED

PC.WRTBIT

(R3) +,R4

PC,WRTIBIT
BIT(NT
R

128
RO
108

:SIMULATE SYNCH
“INITIALIZE BIT COUNT
;WRITE ONE BIT
;DATA INCORRECT
;CHECK IF READY FOR DATA
'NO. GENERATE NEXT BIT
‘PUT IN SYNCH BIT

“GET NEXT WORD

SSHIFT IN NEXT BIT
“CHECK IF ONE
ZERO
SCLOCK IN BIT

:WRITE BIT

“INCREMENT BIT COUNT
SCHECK IF WORD FINISHED
*NO, CONTINUE WITH NEXT BIT
‘CHECK IF HEADER COMPLETE
INC, GET NEXT WORD

SEQ 0104

—~

PAGE 105

(IR
CLR
CLR
CLR
MOV
CLR
JSR
ERROR
INC
DEC
BNE
MOV

000026
300026

003612
003614
003616
003620
000400
003622
042570

003622
060541
064442
000003

003170
003524

000026
000026
000026

000026
000026

042570

10:35

RO
1$
#4 RO
;ISSUE INDEX PULSE
(R2)
#DMD . MIND ,RKMR1

000140
000040
003626
060475
062040

000001

28-AUG-81

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

000026

000020
003616
003614
003612

004737

137

000040
000010
000440
000040

012701
013737
013737
013737
006004
103403
005037
000403

2352

MACY1T 30(1046)

e
O
v

611 DSKLS CTRL PRT3

M
CZR6CED RK611 DSKLS CTRL PRT3

CZR6CE.P1T

27-AUG=81 10:24

5641
5642
5643
5644
56645
5666
5647
5648

032374
0326400
032406
0326416
032422
032426
032632
032434

012701
013737
013737
013737
005037
004737
104170
005237

5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665

032442
032444
032452
032456
032464
032472
032474
032476
032504
032512
032520
032526
032530
032532
032536
032544

001356
012762
012700
012762
012762
005300
001370
012762
016237
012737
023737
007401
104173
012700
012762
012762

5649

5666
5667
5668
5669

5670
5671
gg;g

032440

032552
032554
032556
032564

032572
032600
032602

005301

005300
001370
016237
012737

023737
001401
104174

000020
003616
003614
003612
003612
042570

WA(YN] 3?;;046)

003620
003616
003614

18%:

003622

000240
000004
000640
000240

000024

000040
000026
022040
003524

000026
003464
003524
003464

000010
000440
000040

000020
000026

000000
000226

003440
003500

003500

000026
9000026

20%:

25%:
26%:

B 9
PAGE 106
WRITE LOOPBACK (PART 4)
28-AUG-81

MOV
MOV
MOV
MOV
CLR
JSR
ERROR
INC
DEC
BNE
MOV
MOV
MoV
MoV
DEC
BNE
MOV
MOV
MOV
(MP
BFQ
ERROR
MoV
MOV
MOV
DEC
BNE
MOV
MOV

003440

(MP
BEQ
ERROR

10:35

#16. ,R1
M1.BIT,M2.BIT
PR.BIT,M1.8IT
P1.BIT,PR.BIT
P1.BIT
PC,WRTBIT
170
BITCNT

;LOAD BIT COUNT FOR NEXT WORD
;SHIFT BITS

;WRITE ZERQ
;BIT INCORRECT
; INCREMENT BIT COUNT
R1
;CHECK IF FINISHED
18%
;NO, CLOCK NEXT BIT
#DMD .MIND ,RKMR1(R2)
;SIMULATE INDEX
#4 RO
#DMD .MIND !MCLK ,RKMR1(R2)
#DMD !MIND ,RKMR1(R¢)
RO
20%
#DMD ,RKMR1(R2)
RKMRT(R2) ,T.MR1 ;GET MAINT REG 1
HAMEWD !ECCW.DMD,E.MR1 ;LOAD EXPECTED MR1
E.MR1,T.MR1
;CHECK MR1 CORRECT (WRITE GATE RESET)
25%
;YES, CHECK IF READY SET
173
;MAINT REG 1 INCORRECT
#8. ,RO
;FINISH COMMAND
#DMD 'MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (RC)
RO
26$
RKCS1(R2),T.CST1 ;GET COMMAND AND STATUS REG 1
#RDY ! WRHEADR<*(<GO>>,E.CST ;LOAD EXPECTED (S1
E.CS1.T.(ST
;CHECK IF CS1 CORRECT
TST40
:;YES, GO ON TO NEXT TEST
174
;CS1 INCORRECT

5674

.-'-ttttttttttttttttttttttttttttttfittttttttttttt*itttttttttttittttt

22;2

;*TEST 40

5477
5678
5679

;e
;e
o*

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.

ggg%

CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:

5680
5681

i
v
. &

5684
3685

ot
S

5688

5686
5687

o*
X

gggg

5691

5692
5693
5694
5695
5€9¢

.
032604
(032606
032614
032620
032626

000004
012737
013702
012762
012762

WRITE LOOPBACK (PART 5)

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER

052012
100520
052012
MAKE SURE

THAT READY COMES UP AFTER THE SECOND INDEX PULSE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

:‘."tttttttt*ttttttktttt't't't!ttttttt‘ttttttttttttttt'ttttt"tttt
000144
001270
100000
000040

001200
000000
000026

TST40:

SCOPE
MOV
MOV
MOV
MOV

#700.,8TIMES
$BASE ,R2
#CCLR,RKCST(Rc)
#DMD ,RKMR1(R2)

;DO 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RK611
;PUT RK611 IN DIAGNOSTIC MODE

SEQ 0105

CZR6CEQ RK611 DSKLS CTRL PRT3

CIR6CE.P1I
5697
§698
5699

27-AUG=-81 10:24

032634
032642
032650

012762
012762
012762

064450
177775
000027

5700 032656 012700 000312
5701
§702
5703
5704
5705
€706
5707
5708
5709
5710
§711
5712
5713
5714
5715
5716
5717
5718
5719
5720
5721
g;g%

032662
032670
032676
032700
032702
032706
032714
032722
032730
032732
032734
032742
032746
032754
032762
032764
032766
032774
033002
033006
033014

012762
012762

5724

033022

005037

5725
5726
5727
5728
5729
5730
5731
§732
5733
5734
5735
5736
5737
5738
5739
5740
5741

033026
033032
033036
033042
033046
033052
033056
033060
033064
033066
033070
033076
032102
033104
033110
033116
033122

5742 033126
5743
5744
5745
5746
5747
5748
5749
2;2?

033130
033134
033142
033150
033156
033160
033162
033166

005300
001370
012700
012762
012762
012762
005300
001370
012762
012700
012762
012762
005300
001370
012762
012762
005037
012737
012737
005037
005037
005037
012700
005037
004737
104170
005237
005300
001371
012737
004737
104170
005037
012737
012703
012700

012304

012701
013737
013737
013737
006004
103403
005037
000403

MACYM 3925046)
000004
000002
000000

000440
000040

000026
000026

000004
000240
000640
000240

000024
000026
000026

000040
000010
000440
000040

000740
000040
003626
060475
062040

MOV

1%:

28:

3$:

000026
000026
003170
003524

003612

003614
003616
003620
000400
003622
0462570
003622

000001
062570
003622
060541
064450
000003

000020
003616
003614
003612

003612

003170

108 :
003620
003616
003614

12%:

003612

14$:

003612

§752 033170 012737 000001

PAGE 107

SEQ 0106

#HEADS ,RKBA(R2) ;ISSUE WRITE HEADER
#-3 ,RKWC (R2)
#WRHEAD ,RKCS1(R2)

#50.%4+2,R0

- ISSUE ENOUGH CLOCKS UNTIL

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

*""READY FOR INDEX PULSE
#DMD 'MCLK ,RKMR1(R2)
#DMD .RKMR 1 (R2)
RO
1$
#4 RO
:ISSUE INDEX PULSE
#DMD _MIND ,RKMR1(R2)
#DMD .MIND .MCLK ,RKMR1(R2)
#DMD 'MIND ,RKMR1(R2)
RO
28
#DMD ,RKMR1 (R2)
#8. RO
<WAIT FOR WRITE GATE
#DMD 'MCLK ,RKMR1(R2)
#DMD .RKMR1 (R2
RO
38
#DMD .MSP,RKMR1(R2) :SIMULATE SECTOR PULSE
#DMD .RKMR1 (R2)
SECCNT
;INITIAL;ZE SECTOR COUNT
#EM233,EMW
*LOAD ERROR MESSAGE
#DMD.MEHD!ECCU!HRTGa;iEnggc;{NITIALIZE EXPECTED

CLR

P1.BIT

MOV
MOV

CLR

10:35

WRITE LOOPBACK (PART 5)
MOV
MOV
MOV

000026

000026
000026

28-AUG-81

CLR
CLR
MOV
CLR
JSR
ERROR
INC
DEC
BNE
MOV
JSR
ERROR
CLR
MOV
MOV
MOV

PR.BIT
M1.BIT
M2.BIT
#256. R0
BITCNT
PC.WRTBIT
170
BITCNT
RO
5¢
#1.P1.BIT
PC.WRTBIT
170
BITCNT
#EM234 , EMW
#HEADS .R3
#3,R0

MOV
MOV
MOV
MOV
ROR
BCS
(LR
BR

#16. R
M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT,PR.BIT
R4
14$
P1.BIT
15

MOV

#1.P1.8]17

MOV

(R3)+,R4

“INITIALIZE BIT GENERATION

:SIMULATE SYNCH
SINITIALIZE BIT COUNT
‘WRITE ONE BIT
"DATA INCORRECT
:CHECK IF READY FOR DATA
*NO. GENERATE NEXT BIT
*PUT IN SYNCH BIT
;DATA INCORRECT
YINITIALIZE BIT COUNT
*LOAD ERROR MESSAGE
*LOAD ADDRESS OF DATA
*LOAD NUMBER WORDS IN HEADER

*GET NEXT WORD

*LOAD BIT COUNT
:SKIFT BITS
SSHIFT IN NEXT BIT
“CHECK IF ONE
+2ERO
SCLOCK IN BIT

: ONE

CZRECED RK611 DSKLS CTRL PRT3
TIR6CE.PI
27~-AUG-81 10:24
5753
57564
5755
5756
5757
5758

5759
5760
5761
5762
5763
5764
5765
5766
5767

033176
033202
033206
033210
033212
033214

004737
104170
005237
005301
001350
005300

5768

033216
032220
033224
033232
033240
033246
033252
033256
033260
0332646

001343
012701
013737
013737
013737
005037
004737
104170
005237
005301

5770
5771
5772
5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5786
5785
5786
5787
5788

033270
033276
033302
033310
033316
033320
033322
033330
033336
033344
033352
033354
033356
033362
033370
033376
033400
033402
(033410

012762
012700
012762
012762
005300
001370
012762
016237
012737
023737
001401
104173
012700
012762
012762
005300
001370
016237
012737

5790
2;3;

033424
033426

5769

5789

033266

033416

001356

023737
001401
104174

MACYT

042570

3?28046)
15%:

003622

000020
003616
003614
003612
003612
042570

003620
003616
003¢°'¢

18%:

003622
000240
000004
000640
000240

000026
000026

000040
000026
022040
003524

000020
003464
9003524
003464

000010
000440
000040

Q00026
000026

000C00
000226

003440
003500

003500

000026

9
D
28-AuG-81
10:35
PAGE 108
WRITE LOOPBA(CK (PART 5)
JSR
ERROR
INC
DEC
BNE
DEC

25%:
26%:

003440

108
#16. ,R1
M1.BIT,M2.BIT
PR.BIT ,M1.BI7
P1.BIT,PR.BIT
P1.BIT
PC,WRTBIT
170
BITCNT

MOV
MOV
MOV
MOV
DEC
BNE
MOV
MoV
MOV
(MP
BEQ
ERROR
MOV
MOV
MOV
DEC
BNE
MOV
MOV

#DMD !MIND ,RKMR1(R2)
;SIMULATE INDEX
#4 RO
#DMD 'MIND 'MCLK ,RKMR1 (R2)
#DMD .MIND,RKMR1(R2)
RO
20%
#DMD ,RKMR1(R2)
RKMR1(R2),T.MR1 ;GET MAINT REG 1
AMEWD'ECCW.DMD,E.MR1 ;LOAD EXPECTED MR1
E.MR1,T.MR1
JCHECK MR1 CORRECT (WRITE GATE RESET)
25%
JYES, CHECK IF READY SET
173
JMAINT REG 1 INCORRE(CT
#8. R0
;FINISH (CMMAND
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
26%
RKCST(R2),T.CST ;GET COMMAND AND STATUS REG 1
#RDY ! WRHEADE<*(<GO>>,E.CST1 ;LOAD EXPECTED (S1

BEQ
ERROR

TST41
174

(MP

5793

IR AR

g;gé

JxTEST

5796
5797
5798
5799
5800

M
;Y
M
M
M

5803
5804
5805
5806
5807
S808

Dt
it
L
R
St
;.

ggg}

JWRITE BIT
;JBIT INCORRECT
JINCREMENT BIT COUNT
JCHECK IF WORD FINISHED
JNO, CONTINUE WITH NEXT BIT
JCHECK IF HEADER COMPLETE

BNE
MOV
MOV
MOV
MOV
(LR
JSR
ERROR
INC
DE(

BNE _
20%:

PC,WRTBIT
170
BITCNT
R1
12%
RO

SEQ 0107

18%

JNO, GET NEXT WORD
;LOAD BIT COUNT FOR NLXT WORD
JSHIFT BITS

JWRITE ZERO
JBIT INCORRECT
;INCREMENT BIT COUNT
JCHECK

FINISHED

sNO, CLOCK NEXT BT

E.CST1,T.CS1

JCHECK [F (S1

A AR R KR R R AN I N R N P AN R AR AR AR AR AR RN

WRITE

| OOPBACK

CORREC(CT

J:YES, GO ON TO NEXT
;CS1 INCORRECT
(PART

TEST

A R AN C AR RO AN RN

AN RIS

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DJACNNSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER

CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:
155555
066666
155555

MAKE SURE READY COMES UP AFTER SECOND INDEX PULSE.
(HECK FOR (CORRE(CT WRITE ENCODED DATA AND PRECOMPENSATION.

CIR6CED RKE11 DSKLS CTRL PRIT3
CZRECE P
27=-AUG=81 10:24

v41

28-AUG-81

WRITE

10:35

LOOPBACK

E 9
PAGE 109

SEQ €108

(PART 6)

033722
033726
033730
033734
033742
033746
033752
033754
033760
033766

kb O
D
i ek
d o
-

000440
000040
000004
000240
000640
000240

001200

18141

000000
000026
000004
000002
000000
000026
000026

00002¢
000026
000026

£100.,8TIMES

MOV

#DMD 'MCLK ,RKMR1T(R2)
#DMD ,RKMR1(R2)
RO

DEC
BNE

’%:

MOV
MOV

003170
003224

MoV
Mov

000001
042570

BNE

CLR

(LR
(LR

CLR
CLR

00362¢
060541
064456
000003

000020
003616
003614

003612

MOV
CLR

JSR
ERROR
INC
DEC
BNE
MOV

JSR
ERROR
(LR

003179

MOV
MOV

10%:

12%:

;

READY

FOR

INDEX

PULSE

#DMD .MSP ,RKMR1(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
SECCNT
;INITIALIZE SECTOR COUNT
#EM233 , EMW
*LOAD ERROR MESSAGE
#OMD . MEWD 'ECCW'WRTGAT,E.MR1 ; INITIALIZE EXPECTED
:
MAINT REG 1
P1.BIT
SINITIALIZE BIT GENERATION
PR.BIT
M1.B1T

000026
000026

003622

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611T IN DIAGNOSTIC MODE
#HEAD6 ,RKBA(R2) ;ISSUE WRITE HFADER
#-3,RKWC (R2)
#WRHEAD ,RK(CST(R2)
#50.%4+2 R0
;ISSUE ENOUGH CLOCKS UNTIL

#DMD ,RKMR1(R2)
48.,R0
JWAIT
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO

000140
000040
013626
060475
062040

5¢:

ITERATIONS

;LOAD RK611 BASE

MOV
MOV
MOV
MoV
DEC

DF(
BNE

3%:

;:D0 100.

1%
#4 R0
JISSUE INDEX PU. SF
#DMD 'MIND ,RKMR1
(R2)
#DMD .MIND 'MCLK ,RKMR1(R2)
#8MD!MIND.RKMR1(R2)

000026

000026
200026

$BASE ,R2

MOV
MOV
MOV
Mov

000040
000010
000440
000040

003€22
042570

SCOPE

MOV
MoV
MoV
MO\
MOV
MoV
MOV
MOV

MOV

003612
003614
003616
003620
000400

SINNWNNYN

033646
033652
033656
033662
033666
033672
033676
033702
033704
033710
033712
033714

177775

000027
000312

OOOOOODOOCOOVOOQOOOOL OO0
PIFN o TP e o PE PR EEPEY o o Pt PE P PR Y o Lo PR

033506
033514
0335¢°2
033524
033526
033532
033540
033546
033554
033556
033560
033566
033572
033600
033606
033610
033612
033620
033626
033632
033640

000144
001270
100000
000040
064456

OO0V

033430
033432
033440
033444
033452
032460
033466
033474
033502

OQOOOOOOOOO

LR AANRNRRARNARCARNPANRRA
P ENERAA AR ARNRNAARARANANRANAARARIACCARANERAREAANR TR

WWOOO
NN—=HO

5855
5856
5857
5858
5859
5860
5861
5862
5863
5864

30(1046)

’

OOOOOOOOO
— b e
d b =i O
(WIS LNT N1 N 1, N1 NIV, |

5809
5810
5811
5812
5813
5814
5815
5816
5817
$818
5819
5820
5821
5822
5823
5824
5825
$826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854

MACYT1

MOV

MOV
MOV
MOV
MOv

FOR WRITE

GATE

M2.BIT

#256. R0
BITCNT

:SIMULATE SYNCH
SINITIALIZE BIT COUNT

170
BITCNT
RO

*DATA INCORRECT

PC.WRTBIT

#1.P1.8IT
PC.WRTBIT

170

SWRITE

ONE

:CHECK

BIT

READY FOR DATA

*NO. GENERATE NEXT BIT
*PUT

IN SYNCH BIT

:DATA INCORRECT

BITCNT
#EM234 EMW
#HEADG .R3
#3 RO

SINITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
SLOAD ADDRESS OF DATA

216, R

SLOAD BIT

(R$)+,R4

M1.BIT M2.BIT
PR.B]T M1.BIT

SLOAD NUMBER WORDS

SGET NEXT WORD

COUNT

;SHIFT BITS

IN HEADER

DSKLS CTRL

PRTS

MACYTT

033774
034002
034004
034006
034012

013737
006004

003612

G03¢14

005037
000403

003612

034014
034022
034026
034030
034034
034036
034040
034042

012737
004737

000001
0462570

RECED RKO1Y
7
R6(E.P1T
7

27-AUG=81 10:2¢4

103403

30(.46)
141

MOV

003612

14%:

15%:

701
737

737

737
037

000020

003616
003614
003612
003612
042570

003620
003616
003614

18%:

5888
5889

5919

592¢

022040
003524

700

000440

000026
000026

237

000000

ZS?

003500

003440
003500
003440

762

737

000040

000226

15$

;CLOCK

IN BIT

25%:
26%:

148
P BIT

MOV

AAN: T

ERROR

170

JSR

JCHECK IF ONE
s ZERO

: ONE

P WRTBIT

JWRITE BIT

INC
DEC
SNE
DEC
BNE

BITCNT
R1
12%
RO
10%

; INCREMENT BIT COUNT
;CHECK IF WORD FINISHED

MOV
MOV
MOV
(LR

M1.BIT ,M2.BIT
PR.BIT M1.BIT
P1.BIT,PR.BIT
P1.BIT

MOV

#16. R

:BIT INCORRE(T

sNO, CONTINUE WITH NEXT BIT

;CHECK IF HEADER COMPLETE
:NO, GET NEXT WORD
;LOAD BIT COUNT FOR NEXT WORD
;SHIFT BITS

PC,WRTBIT

;WRITE

INC
DEC

BITCNT
R1

; INCREMENT BIT COUNT
sCHECK IF FINISHED

MOV

#4 RO

MOv
MOV

170

;BIT

18%
;NO,
#DMD !MIND ,RKMR1(R2)

ZERQ

INCORRE(CT

CLOCK NEXT BIT
;SIMULATE INDEX

#DMD .MIND 'MCLK ,RKMR1(R2)
#DMD !MIND ,RKMR1(R2)
RO
208

MOV
MOV
MOV
(MP

#DMD ,RKMR1(R2)
RKMR1(R2),T.MR1 ;GET MAINT REG 1
#MEWD .ECCW'!'DMD,E.MR1 ;LOAD EXPECTED MR
E.MR1,T.MR1
;CHECK MR1 CORRECT (WRITE GATE RESET)

ERROR

173

JMAINT REG

174

2CST

BEQ

MOV
MOV
MOV
DEC
BNE
MOV
MOV
(MP
BEQ

ERROR

25%

JYES,

CHECK IF
1

READY SET

INCORRECT

#8. RO
:FINISH COMMAND
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR 1 (R2)
RO
26%
RKCST(R2),T.CS1 ;GET COMMAND AND STATUS REG !
#RDY . WRHEADE<*(<GO>>,E.(ST ;LOAD EXPECTED (S1
E.CS1,T.CS1
;CHECK [F €S® CORRECT
TST42
;;YES, GO ON TO NEXT TEST
INCORRECT

;tttttttttttt.tttttttttit"tt.tl'tttttttitttt.ttltttttlttt'!t-tfi

WRITE LOOPBACK

(PART

;*TEST
%

034252

000010

DEC
BNE

5913
5914
5915
5916
5917
5918

737
737

000026
003464
003°24
003464

000026

°20$:

5912

010040

000026
000026

5905
5906
5907
5908
5909
5910
5911

762

237

IN NEXT BIT

BNF
MOV

5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5601
5902
5903
5904

000026

SEQ C109

JSHIFT

ERROR

000240
000004
000640
000240

P1.BIT,PR.BIT

110

Ré

JSR

003622

ROR

8(S
(LR

003622
350
300
343

WRITE

10:35
PAGE
LOOPBACK (PART 6)

28-AUG-81

CLEAR THE RK611 WITH A CONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MODE.
[ISSUE A WRITE HEADER TO AN RKk06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMu_ATE
iNDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA, AND INDEX PL.SE:

b
b
—

2
2
%
%
%

MAKE

SURE READY

COMES uUP AFTER

SECOND

[NDEX PULSE.

(HECK FOR (ORRECi WRITE ENCODED DATA AND PRECOMPENSATION.

PR
TN Y

SEa C110

OO0

1042
1042
1042
OOO

¥4

G 9
10:35 PAGE 111
28-AyG=-81
WRITE LOOPBA(K (PART 7°

034424

034432
034434
034436

034444
034452
034456
034464

ey urGurGureur e

PORUPONININD
NN O

OOOOOCOOOO

001

100006

000000
200026
000004
000002
000000

177775

o
o

024402
034404
034412
034416

00120C

000027
000312

WWIWWW o o
NNNW ~N no

034356
034364
034372
034400

000144

000040
064464

NWWANND
-4 YO NOOOLO
W NWWN N O W NWWO WWINING
NONN—ONO NNO NNNN

034332
034340
034346
034350
034352

232222232002

001270

OOOOO0OOOOOOOOOOOOOOOOOO0
=, LSO
= OO =2t d OO Rt md = OO —4 —b
ROMNOAARNIRN = nPuMRONIND = NN PO PO
=N PO N
W
~NNO
WV ~N

034320
034326

A%, WSS

5945
5946
5947
5948
5949
5950
5951
£952
5953

3?(1066)

| o =O000000
o (=] QOO —=0O000

5921
5922
5923
5924
5925
5926
5627
5928
5926
5630
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5641
5942
5943
5944

MACY1

CIR6CED RK61T DSKLS CTRL PRT3
TIRGCE.P
27=AuG=81 1):2¢

000440
0000+¢
000004
000240
000640
000240

000026
000026

000026

000026
000026

000040
010010
000440
000040

000026

000140
000040
003626
060475
062040

000926
€00026

000026
000C2s

003170
003524

003612
003614
003616
003629
000400
003622
042570

003622

SCOPE

MOv
MOV

MOV
MOV
MOV
MOV
MOV
Mov

1%:

MOV
MOV

DEC
BNE

2%:

MOV
MOV
MOV
MOv
DEC

BNE

#100.,8TIMES

$BASE ,R?2

::D0 100.

;LOAD RK611 BASE

:_
READY FOR
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%

#4 RO
: ISSUE
#DMD .MIND,RKMR1(R2)
#DMD !MIND,RKMR1(R2)

(LR
(LR
(LR
(LR

P1.BIT
PR.BIT

;SIMULATE

GATE

SECTOR PULSE

SINITIALIZE

BIT

GENERATION

M1.B]T

M2.BIT

#256. .R0O

BITCNT
PC,WRTBIT

BNE

5¢

JSR
ERROR
(LR

FOR WRITE

SECCNT
;INITIALIZE SECTOR COUNT
#EM233, EMW
*LOAD ERROR MESSAGE
#DMD MEWD 'ECCW.WRTGAT,E.MR1 :INITIALIZE EXPECTED
MAINT REG 1
.

CLR
JSR
ERROR
INC

MOV

INDEX PULSE

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

(LR
MOV
MOv

INDEX PULLSE

#DMD .MIND .MCLK ,RKMR1(R2)

MOV
MOV

DEC
BNE

ITERATIONS

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
:PUT RKAT1 IN DIAGNQOSTIC MODE
#HEAD?7 ,RKBA(RZ) ;ISSUE WRITE HEADER
#-3 ,RKWC(R2)
#WRHEAD ,RKCST(R2)
#50.+4+2 R0
:ISSUE ENOUGH CLO(KS UNTIL

MOv
MOV
MOV

DEC

003612

2022222222822 RARARAdRdRRRRRRRRll
Rl

#DMD ,RKMR1(R2)
48. R0
JWAIT
#DMD .M(CLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO

MOV

MOv

00362¢

000001
042570

15742:

222

:SIMULATE SYNCH

SINITIALIZE BIT COUNT
*WRITE ONE BI!

170

:DATA

:CHECK

BITINT

#1,P1.817
PC

170

WRIB]IT

BIT(NT

INCORRECT.
IF

READY FOR DATA

*NO, GENERATE NEXT BT

:PUT IN SYNCH BIT

:DATA INCORRE(T

JINITIALIZE BIT COUNT

TIRG6CED RK6TT DSKLS CTRL PRT3
ZIR6CE.PYY
27-AUG=81 1]:24

MACY11

060541

0603170

5000
6001
600¢
€003
6004

6005

6006
€007
6008
6009
6010
6011
6012

6913
6014
6015
6016
€017
6018
6019
6020
6021
6022

6123
culé
6325
6026
6027
6028
6029
6030
6031
6032

034640
034646
034652
034654
034660
034662
034664
034666
(034670
034674

034702
034710
034716
034722
034726

034730

034734
034736
034740
034746
034752
034760
034766

034770
034772
035000
035006
035014

035022
035024
035026
035032
035040

035046
035050
035052
035060
035066
035074
035076

012737
703
7 00

000003

701

000020

737

003612

;37
37

064464

003616
003614

005037

003612

012737
004737

000001
042570

005237

003622

350
300
343

701
737
737
737

000020
003616

037
737

003614
003612
003612
042570

005237

003622

012762
2700

000240
000004

762
762

=BNNMNOWNSN
NN 2 NN
NN
NOWWWNOPROONOWWWKWOE~N Q
S =2 NNNOONINIO
W~ NNNNO o

5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999

034560
034566
034572
034576
034600
034604
034612
034620
034626
034630
034632
034636

[« P
Y oY )

5977
5978
5979
5980
5981
5982
5983
5984
9985
5986
5987
5988

H
9
30(1046)
28-AuG=-81
10:35 PAGE 1172
142
WRITE LOOPBACK (PART 7;

MOV
108:

003620
003616
003614

003612

1°8:

MOV
MOV

MOV

.
15¢

000640
000240

000026
000026

000040
00002¢
022040
003524

000026
0034€4
003524
003464

000010
000440
000040

000026

20%:

148
P1.BIT
15$

SSHIFT

MOV

#1.P1.8]1

: ONE

170

*BIT INCORRECT

JSR

ERROR

MOV

“INCREMENT BIT rCUNT
SCHECK IF WORD FINISHED

128
RO
108

#16. ,R1

*NO, CONTINUE WITH NEXT BIT
*CHECK IF HEADER COMPLETE
'NO, GET NEXT WORD
‘LOAD BIT

COUNT

FOR NEXT WORD

DEC
BNE

RO
208

MOV
MOV
MOV

BEQ
ERROR

170

:SHIFT BITS

:WRITE ZERO

*BIT INCORRECT

#4 RO
#DMD ! MIND 'MCLK ,RKMR1(R2)
#DMD I MIND .RKMR T (R2)
#DMD ,RKMR1 (R2)
RKMRT(R2),T.MR1

:GET MAINT REG

E.MR1.T.MR1

SCHECK MR1

#MEWD . ECCW!'DMD,E.MR1

258
173

;LOAD EXPECTED MR?

CORRECT

#8. RO
‘FINISH COMMAND
#DMD 'MCLK ,RKMR1(R2)
#DM
. RKMR 1 D
(R2®

MOV

#RDY !WRHEADE<*(<GO>>,E.CS1

BEQ
ERROR

TST43
174

AARAAAS SRS

TRTEST 43

(WRITE

*YES, CHECK IF READY SET
*MAINT REG 1 INCORRECT

MOV
MOV
MOV

(MP

BITCNT
R1

‘WRITE BIT

BITCNT
*INCREMENT BIT COUNT
R1
‘CHECK IF FINISHED
18%
*NO, CLOCK NEXT BIT
#DMD 'MIND ,RKMR1(R2) ~ :SIMULATE INDEY

DEC
BNE
MOV

PC WRTBIT

INC
DEC
BNE
MOV

CMP

003440
003509
003440

IN NEXT B]T

SCHECK IF ONE
1 ZERO
SCLOCK IN BIT

M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BI"
P1.BIT
PC.WRTBIT

MOV

25%:

SLOAD BIT COUNT
:SHIFT BITS

MOV
MOV
MOV
LR
JSR

MOV
MOV

26%:

:GET NEXT WORD

ERROR

000026

(R$)+,Ké

:LOAD ADDRESS OF DATA
*LOAD NUMBER WORDS IN HEADER

8CS
CLR
SR

BNE
DEC
BNE

003620
003610
003614

;LOAD ERROR MESSAGE

#HEAL”.R3
#3.R0

#16. R}
M1.BIT M2.BIT
PR.BIT,M: .BIT
P1.BIT.PR.BIT

INC
DEC

'8%:

#EM234 EMW

MOV
MOV
MOV
MOV
ROR

14%:

Sea (1N

GATE

RO
26$
RKCST(R2),T.CST

;GET COMMAND AND STATUS REG !

E.CS1,T.CST

JCHECK IF

;LOAD EXPECTED (S1

CS1

CORRECT

s.YES, GO OM TO NEXT
;(ST INCORRECT

RERAARARRRERRAR N

WRITE

TWC HEADERS

RESET)

TEST

AR RRRRR2RRRARRRAEERRR
RN

CIR6CED RR6IT DSKLS CTRL PRI3
TIRGCE.PN
27-AUG=81 1J:26

MA(Y11

6033
6034

30(1046)
28-AUG-81
10:35
143
WRITE TWO HEADERS
it
.t

CLEAR RK611 Wi"H A CONTROLLER CLEAR.

i
o

INDEX PULSE, SECTOR PULSE, THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA:

6035
6036
6037

it
i+
ot

6041
6042

e
H

6044

6038
2828

6043

F,” “O""wTM ER
IN DIAGNOSTIC MCDE.,
ISSUE A WRITE HEALcR "~ A', RKO6
IN 26 SECTOR FURMAT, CYLINDER 0, HEAD Q, DRIVE 0.
CLOCK B0OTH SEEK AND DRIVE CLEAR MESSACES.
SIMULATE

1772777
000000

6045

2829

6048
6949

2829

177777

FOLLOW THAT BY A SECTCR PULSE AND ONE THREE WORD
HEADER

:*
i

9
1
PAGE 113

CONSISTING OF

THE

FOLLOWING DATA:

000000
177777

000000

6052
2822

.Y
.t

6055
6056

:-.-tt!'tttlttt.tt.tt!t"t"'tttitttttttt't'tttt.tQttttttttttttnt't
TST43:
SCOPE

6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075

6076
6077
6078

6079

6080
6081
6082
6083
6084
6085
6086

6087

6088

SIMULATE AN INDEX PULSE AND MAKE SURE READY (OMES UP.
(HECK FOR C JRRECT WRITE ENCODED DATA AND PRECOMENSATION.

035100
035102
035110
035114
035122
035130
035136
035142
035150
035156

000004
012737
013702
(012762
012762
012762
012703
012762
012762
012700

035162
(35170
035176
035200
035202
035206
035214
035222
035230

012762
012762
005300
001370
012700
012762
012762
012762
005300

035232
035234

035240

03524€¢

001370
005037

012762

012705

035252
035256
035264
035272
035274
035276
035304

012700
012762
012762
005300
001370
012762
012762

(35320

012737

035312

012737

000144
001270
100000
0000640
064412
064412
177772
000027
000312

001200

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

003626
000040

000002

MOV
MOV
MOv
MOV
MOV
MOV
MOV
MOV
MOV

000000
00002¢
000004
000002
000000

18%:

2%:

000026

000026
000026

3%:

000140
000040

000026
000026

<«%:

062040

003524

003170

MOV

#DMD ,RKMR1 (R2)

BNE
(LR

000010
000440
000040

060475

MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
DEC

#100. ,$TIMES
2;D0 100. ITERATIONS
$BASE ,R2
sLOAD RK611 BASE
#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 TO DIAGNOSTIC MODE
#HEAD1 ,RKBA(RZ) ;ISSUE WRITE HEADER
#HEAD1,R3
)
#-6,RKWC (R2)
#WRHEAD ,RkCST1(RZ)
#50.%442 ,RC
s ISSUE ENOUGH CLOCKS UNTIL
.
READY FOR INDEX PULSE
#DMI M7 _K ,RKMR'(R.)
#DMO ,FKMRT(RQ)
RO
13
#4 50
: ISSUE ALX PULSE
#DMD !MIND ,RKMR1(R2)
#DML MINDIMCLK ,RKMRY (R}
ADMD 1 MIND RKMPT
(R2)
RO

2%
SECCNT

:"LtAR SECTOR COUNT

MOV

#2 RS

:LOAD NUMBER OF HEADERS

MoV

wEm283 Emy

:LOAD ERROR ME SSAGE

MOV
MOv
MOV
DEC
BNE
MOV
MOV

MOV

#8.,R0
:WAIT FOR WRITE GATE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
3$
#DMD !MSP ,RKMR1(R2) ;SIMULATE SECTOR PuLSE
#DMD RKMR1(R2)

#DMD MEWD'!ECCW.WRTGAT
E.MRY ;INITVIALIZE EXPECTED

SEQ 0112

CZR6CED RKk611 DSKLS CTRL PRT3

CIRG6CE.P1Y
6089

27-AUG=81 1):24

6090
6091
6092
6093
6094
6095
6096

035326
025332
035336
035342
035366
035352
035356

005037
005037
005037
005037
012700
005037
004737

003612
003674
003616
003620
000400
003622
042570

6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6'09
6110
6111
6112
61°3
6114
2};2

035364
035370
035372
035374
035402
035406
035410
035614
035422
035426
035430
035434
035442
035450
035456
035460
035462
035466

005237
005300
001371
012737
004737
104170
005037
012737
012700
012304
012701
013737
013737
013737
006004
103403
005037
000403

003622

6117
6118
€119
6120
6121
6122
6123
6124
£125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6737
6138
6139
6140
6141
6142
6143
6144

035470
035476
035502
035504
035510
035512
035514
035516
035520
035524
035532
035540
035546
035552
035556
035560
035564
035566
035570
035574
035576
035600
035606
035612
035620
035626
035630
035632

012737
004737
104170
005237
005301
001350
005300
001343
012701
012737
013737
013737
005037
004737
104170
005237
005301
001356
005237
005305
001237
012762
012700
012762
012762
005300
001370
012762

6097

035362

104170

000007
042570

003622
060541
000003
000020
0036i&
003614
003612

WMA(YI

3?2;046)

003612

003170

108:
003620
003616
003614

12%:

003612

1.%:
5%

003620
003616
003614

18%:

003612

000001
042570
003622

000020
003616
003614
003612
003612
042570
003622

003626
00024C
000004
000640
000240

000026

000026
000026

000040

000026

20%:

28-AUG-81

10:35

WRITE TWO HEADERS

J 9
PAGE 114
:

SEQ 0113
MAINT REG 1

CLR
CLR
CLR
CLR
MOV
CLR
JSR

P1.BI”
PR.BIT
M1.RIT
M2.BIT
#256. ,RO
BITCNT
PC,WRIBIT

INC
DEC
BNE
MOV
JSR
ERROR
CLR
MOV
MOV
MOV
MOV
Mny
MOV
MOV
ROR
BCS
(LR
BR

BITCNT
RO
5¢
¥1,P1.61T
PC WRTBIT
170
BITCNT
REM234 EMW
#3 RO
(R$)+.R4
#16. R
M1.BIT,M2.BIT
PR.BIT.M1.B8]T
P1.BIT.PR.BIT
R4
148
P1.BIT
15

MOV
JSR
ERROR
INC
DEC
BNE
DEC
BNE
MOV
MOV
MOV
MOV
CLR
JSR
ERROR
INC
DEC
BNE
INC
DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV

#1.P1.8]T
< ONE
PC.WRTBIT
‘WRITE BIT
170
*BIT INCORRECT
BITCNT
“INCREMENT BIT COUNT
R1
SCHECK IF WORD FINISKED
12
*NO, CONTINUE
RO
“CHECK IF HEADER COMPLETE
108
*NO, GET NEXT WORD
#16.,R1
"LOAD BIT COUNT FOR NEXT WORD
M1.BIT,M2.BIT
:SHIFT BITS
PR.BIT.M1.BIT
P1.BIT.PR.BIT
P1.BIT
PC WRTBIT
;WRITE ZERO
170
*BIT INCORRECT
BIT(NT
* INCREMENT
R]
‘CHECK IF READY FCR NEXT WEADER
18%
*NO, CONTINUE
SECCNT
L INCREMENT
RS
*CHECK IF SECOND HEADER WRITTEN
4%
*NO, DO SECOND HEADER
#DMD _MIND,RKMR1(R2) " :SIMULATE INDEX PULSE
¥o R0
#DMD _MIND .MCLK ,RKMR1(R2)
#DMD MIND .RKMR 1 (R2)
RO
20
#DMD ,RKMR1 (R?)

ERROR

170

:SIMULATE SYNCH
SINITIALIZE BIT COUNT
“WRITE ONE BIT

*DATA INCORRECT

;CHECK IF READY FOR DATA
'NO,GENERATE NEXT BIT
‘PUT

IN SYNCH BIT

;DATA INCORRECT
“INITIALIZE BIT COUNT
*LOAD ERROR MESSAGE
*LOAD NUMBER OF WORDS
*GET NEXT WORD
*LOAD BIT COUNT
:SRIFT BITS

IN HEADER

SSHIFT Iy NEXT BIT
SCHECK IF ONE
1 2ERO
*CLOCK IN BIT

CZR6CEQ RKk611 DSKLS CTRL PRT3
CZRO6CE.P
27-AUG-81 10:24
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156

035640
035646
035654
035662
035664
035666
035672
035700
035706
035710
035712
035720

016237
012737
023737
001401
104173
012700
012762
012762
005300
001370
016237
012737

6158
2128

035734
035736

(C01401
104174

6157

035726

023737

000026
022040
003524

003464
003524
003464

000C10
000440
000040

000026
000026

000000
0002¢6

00344C
003509

MOV
MOV
(MP
BEQ
ERROR
MOV
MOV
MOV
PEC
BNE
MOV
MOV

RKMR1(R2) ,T.MR1 ;GET MAINT REG 1
#MEWD ECCW!DMD,E.MRT1
LOAD EXPECTED MR1
E.MR1,T.MR1
JCHECK MR CORRECT (WRITE GATE RESET
25%
;YES, CHECK IF READY SET
173
JMAINT REG 1 INCORRECT
#8. R0
:FINISH COMMAND
#DMD !MCLA ,RKMR1(R2)
#DMD ,RKMR" (R2)
RO
26%
RKCST(R2),T.CST1 ;GET COMMAND AND STATUS REG 1
#RDY ! WRHEADR<*(<GO>>,E.(CS1 ,LOAD EXPECTED (S

BEQ
ERROR

TST44
174

003500

25%:
268%:

003440

(MP

g}g%

JeTEST b

6164
6165
6166
6167
5168

o
o
o
it
A

6171
6172
6173
6174
6175

.t
i
i
:*
ot

6169
6170

it
o

6176
6177

.t
i

2;;8

6190
6191

6192
6193
6194
6195
6196
6197
6198
6199
6200

v
035740
035742
035750
035754
035762
035770
035776
036002
036010

000004
012737
013702
012762
012762
012762
012703
012762
012762

036022
036030
036036
036040
030042
036046
036054
(036062
036070

012762
012762
005300
001370
012700
012762
012762
012762
005300

036016

012700

28-AUG-81
10:35
WRITE TWO HEADERS

6161

6180
6181
6182
6183
6184
6185
6186
6187
6188
6189

WMACY'! 39£;046)

000144
001270
100000
000040
064426
064426
177772
000027

001200

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

000312

000000
000026
000004
000002
000000

R T

PAGE 115

E.CST1,T.CST

R AN R

AN E

SEQ 0114

JCHECK IF CS1 CORRECT

J;YES, GO ON TO NEXT TESI

AN RE RN N

A AN

R R AN R AN N

T AN

AR NN AR NN RS

DATA FIELD FILLING ON WKITE HEADER

CLEAR THE RK611 WITH A (ONTROLLER CLEAR.
PUT (ONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR_FORMAT, CYLINDER O, HEAD O, DRIVE 0, AND
SPECIFY TWO 3 WNRD HEADERS CONSISTING OF THE
FOI LOWING DATA:
125252
052525
125252
052525
125252
052525
MAKE SURE

THE DATA SYN(H ANY OTHER BITS OF DATA AND

ECC FIELD ARE WRITTEN CORRECTLY.

:-;..-nn-.:t.-nn--ttatnt'ct-a--t--q--nnnnt-wtnc.ntt------n.n-----.
TST44:
SCOPE
MOV
#100.,$TIMES
;.D0 100, ITERATIONS
MOV
$BASE ,R2
;LOAD RK611 BASE
MOV
#CCLR,RKCST(R2) ;CLEAR RK611
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
MOV
#HEAD
3 ,RKBA(R2) ;ISSUE READ HEADER
MOV
#HEAD3,R3
MOV
#-2+3 RKWC(R2)
MOV
#WRHEAD ,RK(S1(R2)
1%:

2%:

MOV

#50.%4+2,R0°

;ISSUE CLOCKS UNTIL READY

MOV
MOV
DE(
BNE
MOV
MOV
MOV
MOV
DEC

#DMD MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
18
#4 RO
: ISSUE INDEY. PULSE
#DMD !MIND ,RKMR1(R?)
#DMD . MIND !MCLK ,RKMR1(R2)
#DMD !'MIND ,RKMR1(R2)
RO

FOR

INDEX PULSE

ZIR6CE P11

27-AUG=81 10:24

6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211

036072
036074
036102
036106
036114
036122
036124
036126
036132
036136
036144

001370
012762
012700
012762
012762
005300
001370
005037
012705
012762
012762

6213
6214

036160

012737

6212

036152

012737

000040
000010
000440
000040

T44

000026
000026
000026

3$:

003626
000002
000140
000040

000026
000024

4$:

062040

003524

060475

003170

28-AUG-81

10:35

PAGE 116

DATA FIELD FILLING ON WRITE HEADER
BNE
MOV
MOV
MOV
MOV
DEC
BNE
CLR
MOV
MOV
MOV

28
#DMD ,RKMR1 (R2)
:WAIT EOR WRITE GATE
#8. RO
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
3¢
:CLEAR SECTOR [OUNT
SECCNT
#2.R5
*LOAD NUMBER OF HEADERS
#DMDTMSP ,RKMR1(R2) :SIMULATE SECTOR PULSE
#DMD | RKMR1 (R2)

MOV

#DMD 'MEWD'ECCW!'WRTGAT
,E.MR1 :INITIALIZE EXPECTED
. MAINT REG 1

MOV

NEM2%3, EMW

;LOAD ERROR MESSAGE

6215
6216
6217
gs;g

036166
036172
036176
036202

005037
005037
005037
005037

003612
003614
003616
003620

CLR
CLR
(LR
(LR

P1.RIT
PR.BIT
M1.B1T
M2.BIT

6220
6221
6222
6223
6224
6225
6226
6227

036206
036212
036216
036222
036224
036230
036232
036234

012700
005037
004737
104170
005237
005300
001371
012737

000400
003622
042570

MOV
CIR
JSR
ERROR
INC
DEC
BNE
MOV

#256. R0
BITCNT
PC.WRTBIT
170
BITCNT
RO
5%
¥1.P1.BIT

:SIMULATE SYNCH
SINITIALIZE BIT COUNT
*WRITE ONE BIT
:DATA INCORRECT

6229
6230
6231
6232
6233
6234
6235
6236

036246
036250
036254
036262
036266
036270
036274
036302

104170
005037
012737
012700
012304
012701
013737
013737

ERROR
CLR
MOV
MOV
MOV
MOV
MOV
MOV

;DATA INCORRECT
“INITIALIZE BIT COUNT
;LOAD ERROR MESSAGE
‘LOAD NUMBER OF WORDS IN HEADER
SGET NEXT WORD
*LOAD BIT COUNT
:SHIFT BITS

MOV
ROR
BCS
CLR
BR

170
BITCNT
HEM234 EMW
#3,R0
(R3) +,R4
#16. R
M1.BIT.M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
R4
148
P1.BIT
15%

MOV

#1.P1.8BIT

: ONE

BNE
DEC

BNE
MOV

12%
RO
108
#EM237 EMW

*NO, CONTINUE
‘CHECK IF HEADER COMPLETE
*NO. GET NEXT WORD
*LOAD ERROR MESSAGE

MOV
MOV
MOV
(LR

M1.BIT.M2.BIT
PR.RIT.M1.BI7
P1.BIT.PR.BIT
P1.BIT

6228

6237
6258
$239
6240
252;

036242

036310
036316
036320
036322
036326

004737

013737
006004
103403
005037
000403

003622
000001
042570
003622
040541
000003
000020
003616
003614
003612

036336
036342
036344
036350

6250
6251

6248
6249

6252

6253
6254
6255
6256

036352
036354

004737
104170
005237
005301

003612

003170
108 :
003620
003616
003614

12%:

042570

003612

14%:

036356
036360

060773

003170

036372
036400
036406
036414

013737
013737
013737
005037

003616
003614
003612
003612

003620
003616
003614

012701

15%:

003622

001350
005300
001343
012737

036366

JSR

003612

6263 036330 012737 000001
6244
6245
6246
62647

000477

18%:

JSR
ERROCR
INC
DEC

MOV

PC.WRTBIT

PC,WRTIBIT
170
BITCNT
R1

#64.+255 ,R1

:CHECK [F READY FOR DATA
'NO. GENERATE NEXT BIT
*PUT IN SYNCH BIT

SSHIFT IN NEXT BIT
“CHECK IF ONE
$2ERO
SCLOCK IN BIT

JWRITE BIT
;BIT INCORRECT
“INCREMENT BIT COUNT
SCHECK IF WORD FINISHED

SLOAD COUNT

:SHIFT BITS

—

MACY11 30(1046)

SEQ 0115

CIR6CED RKk611 DSKLS CTRL PRT3

CZR6CED RK611 DSKLS CTRL PRT3
CIR6CE.P11
27-AUG=81 10:24
6257

6258

6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271

6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
€287
6288
6289
6290
6291
6292
gggz

036420

004737

036426
036430
036432
036440
036444
036446
036456
036460
036464
036472
036500
036506
036512

005301
001360
012737
004737
104170
012737
005037
012701
013737
013737
013737
005037
004737

036424

036516
036520
036524
036526
036530
036534
036542
036546
036550
036554
036556
036560
036566
030572
036576
036600
036604
036606
036610
036614
036616
036620

104170

104170
005237
005301
001356
012701
042737
004737
104170
005237
005301
001371
052737
012701
004737
164170
005237
005301
001371
005237
005305
001402
000137

6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306

036624
036632
036636
036644
036652
036654
036656
036664
036672
036700

012762
012700
012762
012762
005300
001370
012762
016237
012737
023737

6307

6308

036706
036710

6309
6310
6311
6312

036712

001401
104173

036716
036724
036732
036734

012762
012762
005300
001370

012700

m 9
MACY11 30(1046)
28-AUG-81
10:35 PAGE 117
T44
DATA FIELD FILLING ON WRITE HEADER

042570

003612

061041
003622
007777
003616
003614
003612
003612
042570

003170
003620
003670
003614

20%:

003622
000040
020000
042570

003524

21%:

003622
020000
000012
042570

003524

22%:

003622

003626
:
036136
000240
000004
000540
000240

000026

23$:

000026
000026

25%:

000040
000026
022040
003524

000026
003464
003524
003464

000010
000440
000040

JSR

PC,WRTBIT

:WRITE ZERO

DEC
BNE
MOV
JSR
ERROR
MOV
CLR
MOV
MOV
MOV
MOV
CLR
JSR

R1
18$
#1,P1.8IT
PC.WRTBIT
170
#EM238, EMW
BITCNT
#256.%16.-1,R1
M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BI"
P1.BIT
PC.WRTBIT

SCHECK IF READY FOR DATA
*NO, CONTINUE
*SET SYNCH BIT
‘WRITE SYNCH BIT
*SYNCH BIT INCORRECT
*LOAD ERROR MESSAGE
:CLEAR BIT COUNT
-LOAD COUNT
:SHIFT BITS

MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
CMP

#DMD .MIND ,RKMR1(R2) ;SIMULATE INDEX PULSE
#4 RO
#DMD 'MIND 'MCLK ,RKMR1 (R2)
#DMD IMINT ,RKMRT
(R2)
RO
25%
#DMD ,RKMR1 (R2)
RKMRT(R2) ,T.MR? :GET MAINT REG 1
#MEWD 'ECCW!DMD,E.MR1 :LOAD EXPECTED MRI
E.MR1.T.MRi
:CHECK IF MR1 CORRECT
*
(WRITE GATE RESET)
28%
SYES, CHECK IF READY SET

ERROR

000001
042570

000026
000026

288%:

29%:

SEQ 0116

ERROR
INC
DEC
BNE
MOV
BIC
JSR
ERROR
INC
DEC
BNE
BIS
MOV
JSR
ERROR
INC
DEC
BNE
INC
DEC
BEQ
JMP

BEQ
ERROR

MOV
MOV
MOV
DEC
BNE

170

170
BITCNT
R1
208
#32. .R1
#ECCW,E.MR1
PC.WRTBIT
170
BITCNT
R1
21
#ECCW,E.MR1
#10. R
PC,WRTBIT
170
BITCNT
R1
228
SECCNT
RS
238
4%

173

#8. RO

:BIT INCORRECT

:WRITE ZEROS
*BIT INCORRECT
“INCREMENT BIT COUNT
“CHECK IF READY FOR ECC
*NO, CONTINUE
*LOAD COUNT
*RESET ECCW BIT
“WRITE ECC FIELD
:BIT INCORRECT
*INCREMENT COUNT
‘CHECK IF READY FOR POST AMBLE
*NO CONTINUE
SSET ECCW
*CHECK IF READY FOR NEXT HEADER
*WRITE POSTAMBLE
*BIT INCORRECT
* INCREMENT COUNT
“CHECK IF READY FOR NEXT HEADER
*NO, COMPLETE POSTAMBLE
- INCREMENT COUNT
SCHECK IF ALL HEADERS RECEIVED
SYES, SIMULATE INDEX
*NO GET NEXT HEADER

*MAINTENANCE REG 1

*FINISH COMMAND

#DMD 'MCLK ,RKMRT
(R2)
#DMD RKMR 1 (R2)
RO
298

INCORRECT

Con

CZR6CEQ RK611 D SKL
C T RL PRT3
CZR6CE.P1Y
G 8 1 10:24
2 7- AUG=—OOO00O

036762

23 I4
73 7
2 73 7
0 40 1
0 17 4
1
1

H 2w

036736
036744
036752
036760

000000
000226
003500

3?21046)

003440
003500

28-AUG-81

RKCST1(R2),T.CS1

,GET COMMAND AND STATUS REG 1

E.CS1,T.CST
TST45

JCHECK IF CS1 CORRECT
;.YES, GO TO NEXT TEST

MOV

#RDY !WRHEAD&<*(<G0O>>
,E.CST ;LOAD EXPECTED (S1

ERROR

174

(MP
BEQ

INCORRECT

WRITE HEADER FOR 26 SECTORS

CLEAR THE RK611 WITH
IN DIAGNOSTIC MODE.
IN 26 SECTOR FORMAT,
66 WORDS.
MAKE SURE

A CONTROLLER CLEAR.
PUT CONTROLLER
ISSUE A WRITE HEADER TO AN RKO06
CYLINDER 9, YEAD 0, DRIVE O, SPECIFYING
ALL 26 SECTORS ARE WRITTEN CORRECTLY.

YIRS
Y

2CS1

J*TEST 45

SEQ 0117

DATA FIELD FILLING ON WRITE HEADER

MOV

003440

N 9
PAGE 118

10:35

"'ttt*tttttl*t*tt*tttt*tt"iit'i*ttt*tt**ttttflttt*t*ttt*ittt'tttt

000000
000026
000004

177676

000002
000000

000027
000312
000440
000040

000026
000026

010004
(10240
0v0640
000240

000026
000€26
000026

TST4S:

Vo
A VIRV, LV, TV V]

1§

2$:

003626
000026
000140
000040
060475
062040
00361¢
003614
0C361%

003620
000400
003622

MOV
MOV

#WRHEAD .RKCS1(R2)
#50.%4+2 R0
:ISSUE

#4 RO
:ISSUE
#DMD .MIND ,RKMR1
(R2)

MOV

#DMD IMIND ,RKMR1
(R2)

MOV

RO
1$

RO
2%

#DMD
, RKMR 1 (R2)
#8. RO

MOV

#DMD .RKMR1 (R2)

MOV
MOV
MOV

MOV

CLR

(LR

:WAIT FOR WRITE GATE
#DMD 'MCLK ,RKMR1
(R2)

RO
38

SECCNT

#22. RS

:CLEAR SECTOR COUNT

LLOAD NUMBER OF HEADERS

#DMD .MSP _RKMR1(R2)
#DMD | RKMR1 (R2)

#EM253, EMw

;SIMULATE

SECTOR PULSE

:LOAD ERROR MESSAGE

#DMD MEWD'ECCW.WRTGAT
E.MR1 ;INITIALIZE

P1.BIT

;

MAINT REG 1

PR.BIT

(LR
(LR

M1.BIT
M2.B]T

MoV

#2%6. R0

(LR

INDEX PULSE

#DMD I MIND _MCLK ,RKMR1(R2)

MOV
MOV

MOV

CLOCKS UNTIL READY

FOR INDEX PULSE

MOV
MOV

DEC
BNE
4$:

#DMD ,RKMR1(R2)
:PUT RK611 IN DIAGNOSTIC MODE
#NPRBUF ,RKBA (R2)
:ISSUE READ HEADER
ANPRBUF _R3
#=22.%3.RKWC(R2)

#DMD 'MCLK ,RKMR1(R2)
#DMD
. RKMR1 (R2)

CLR

000026
000026
003170
003524

::DO 10 ITERATIONS
L 0AD RK611 BASE
:CLEAR RK611

MOV
MOV

DEC
BNE

000026

000026
000026

#10,$TIMES
$BASE ,R2
#CCLR.RKCST(R2)

DEC
BNE

000040
000010
000440
000040

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

2 =
R

OO ==

001200

100000

000040
064472
064472

—

NNNNN\A—'\ANNNT\)L—’:\ANNNN—'\J\NN

POPNINOPLNI
NN N

000010
001270

370

2 D OO

037046
037054
037062
037064
037066
037072
037100
037106

-tk

036764
036766
036774
037000
037006
037014
037022
037026
037034
037042

Q-

6313
6314
6315
6316
6317
6318
6316
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368

MACY11

BITCNTY

:SIMULATE SYNCH

JINITIALIZE BIT COUNY

EXPECTLD

CIROGCED RKOI1 DSKLS CTRL PRT3

CZR6CE.P11

27~AUG-81 10:24

6369

037242

004737

042570

6371
6372
6373
6374
6375
6376

037250
037254
0.7256
037260

005237
005300
001371
012737

003622

037272
037274
037300
037306
037312
037314
037320
037326

104170
005037
012737
012700
012304
012701
013737
013737

6370 037246

6377
6378
6379
6380
6381

037266

104170

004737

6382
6383
6384
6385
6386
6387

037334
037342
037344
037346

013737
006004
103403
005037

6390
6391

037354
037362

012737
004737

gggg 037352 000403
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401

6402
6403
6404
6405
6406
6407
6408
6409
6410
6611
6612

6413
6414
6415
6416
6417
6418
6419
6420
6421
66422
6423
6624

037366
037370
037374
037376
037400
037402
037404
037412
037416
037424

037432
037440
037444
037450
037452
037454
037456
037464
037470
037472
037500

037504
037510
037516
037524
037532
037536
037542
037544
037550
037552
037554
037560

104170
005237
005301
001350
005300
001343
012737
012701
013737
013737
013737
005037
004737
104170
005307
001360
012737
004737
104170

012737

005037
012701
013737
013737
013737
005037
004737
104170
005237
005301
001356
012701
042737

000001

042570

MACY11 30(1046)

145

003612

003622
060541
000003

003170

000020
003616
003614
003612

003620
003616
003614

108:
12%:

14%:
158 :

003622

060773
000477
003616
003614

003612
003612
042570

003170
003620
0036156

003612

061041

003170

003620
003616
003614

003622
000040
020000

18%:

003614

000001
042570
003622
007777
003616
003614
003612
003612
042570

PC,WRTBIT

INC
DEC
BNE
MOV

BITCNT
RO
5%
#1,P1.811
PC WRTBIT
170

ERROR

ERROR
(LR
MOV
MOV
MOV
MOV
MOV
MOV

003524

PAGE 119

170

BITCNT
REM234 EMW
#3,R0
(R3)+,R4
#16. R1

MOV
ROR
BCS
CLR
MOV
JSR

#1,P1.BIT
PC WRTBIT

ERROR
- INC
DEC
BNE
DEC
BNE
MOV
MOV
MOV
MOV
MOV
CLR
JSR
ERROR
DEC
BNE
MOV
JSR
ERROR
MOV

20%:

B 10

M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
R4
14%
P1.BIT

B8R
003612

10:35

WRITE HEADER FOR 26 SECTORS

JSR

003612
00000"
042570

28-AUG-81

CLR
MOV
MOV
MOV
MOV
CLR
JSR
ERROR
INC
DEC
BNE
MOV
BIC

170
BITCNT
R1
12%
RO
108
HEM237 ,EMW
#64.+255_ R1
M1.BIT.M2.BIT
PR.BIT.M1.8]T
P1.BIT.PR.BIT
P1.BIT
PC.WRTBIT
170
R1
18%
#1,P1.817
PC.WRTBIT
170

#EM238,EMW
8ITCNT
#256.%16.-1,R1
M1.BIT,M2.8IT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
P1.BIT
PC.WRTB]T
170
BITCNT
R1
20%
#32. R
#ECCW,E. MR

:WRITE ONE BIT

*DATA INCORRECT
;CHECK IF READY FOR DATA
'NO, GENERATE NEXT BIT
‘PUT IN SYNCH BIT
:DATA INCORRECT
“INITIALIZE BIT COUNT
*LOAD ERROR MESSAGE
'L0AD NUMBER OF WORDS IN HEADER
*GET NEXT WORD
*LOAD BIT COUNT
:SHIFT BITS
sSHIFT IN NEXT BIT
*CHECK IF ONE
+ZERO

‘CLOCK IN BIT
: ONE
‘WRITE BIT

*BIT INCGRRECT
“INCREMENT BIT COUNT
"CHECK IF WORD FINISHED
*NO, CONTINUE
"CHECK IF HEADER COMPLETE
'NO, GET NEXT WORD
*LOAD ERROR MESSAGE
*LOAD COUNT
:SKIFT BITS

:WRITE ZERO
*BIT INCORRECT
"CHECK IF READY FOR DATA
*NO, CONTINUE
‘SET SYNCH BIT
‘WRITE SYNCH BIT
“SYNCH BIT INCORRECT
*LOAD ERROR MESSAGE
SCLEAR BIT COUNT
:LOAD COUNT
:SHIFT BITS

;WRITE ZEROS
*BIT INCORRECT
“INCREMENT BIT COUNT
“CHECK IF READY FOR ECC
*NO, CONTINUE
*LOAD COUNT
‘RESET ECCW BIT

SEQ 0118

LROCED RKO1T DSKLS CTRL PRTY
FIR6CE P11
27~AUG=81 10:24
6425

6426

6427
6428
6629
6630
6431
6632

6433
6634
6635

6636
6637
6438
6639
222?
6642
6663
6644
6665
6446
6447
6648
649
6650
6451
6452
6653
6654
6455
66456
6457
6458
6459
6460
6461
6462
6463
6464
6465

037566

004737

042570

03774
037600
037602
C27604
037612

005237
005301
001371
052737
012701

003622

037622
037626
037630

104170
005237
005301

037572

037616

037632
037636
037640
037642
037644

104170

004737

001371
005237
0053GS
001402
000137

037650
037656
037662
037670
037676
037700
037702
037710
037716
037724

012762
012700
012762
012762
005300
001370
012762
016237
012737
023737

037732
037734
037736
037742
037750
037756
037760
037762
037770
037776
040004
060006

001401
104173
012700
012762
012762
005300
001370
016237
012737
023737
001401
104174

020000
Q00012

“MACYI1Y

c 10
30(1046)
2B-AUG-81
10:35
PAGE 120
145
WRITE HEADER FOR 26 SE(TORS
218

003524

042570

22%:

003622

JSR

PC,WRTBIT

;WRITE ECC FIELD

INC
DEC
BNE
8IS
MO\

BITCNT
R?
218
NECCW,E. MR
#10. R

: INCREMENT COUNT
SCHECK [F READY FOR POST AMBLE
:NO CONTINUE
SSET ECCW
:CHECK IF READY FOR NFXT HEADER

ERROR
INC
DE L

170
BITCNT
R1

MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
CMP

#DMD 'MIND ,RKMR1(R2) ;SIMULATE [NDEX PULSE
#4 RO
#DMD 'MIND 'MCLK ,RKMR1(R2)
#DMD 'MIND ,RKMR1(R2)
RO
25%
#DMD ,RKMR1(R2)
RKMR1(R2),T.MR1 ;GET MAINT REG 1
AMEWD 'ECCW.DMD,E.MR1 ;LOAD EXPECTED MR1
E.MR1,T.MR1
;CHECK ]F MR1 CORRECT
:
(WRITE GATE RESET)
28$
;YES, CHECK IF READY SET
173
;MAINTENANCF REG 1 INCORRE(T
#8. RO
SFINISH COMMAND
#DMD 'MCLK ,RKMR1
(R2)
#DMD _RKMR1 (R2)
RO
29%
RKCST1(R2),T.CS1 :GET COMMAND AND STATUS REG 1
#RDY ' WRHEADR<*(<GO>>,F.(S1 ;LOAD EXPECTED CS1
E.CS1,T.CS7
;CHECK IF CS1 CORRECT
1ST46
::YES, GO TO NEXT TEST
174
:CS1 INCORRECT

ERROR

JSR

037162
000240
000004
000640
000240

000026

23%:

000026
000026

¢5%:

000040
000026
022040
003524

000026
003464
003524
003464

010010
000440
000040

000026
000025

000000
000226
003500

003440
003500
003440

28%:
29%:

222;

J*TEST 46

6469
6470
6471
6472
6473
6474
6475

it
T
it
i
e
e
i

22;9

i
.

040010
040012

000004
012737

000144

001200

AARA R

:BIT INCORRECT

PC. WRIBIT

;WRITE POSTAMBI
E

:BIT INCORRECT
: INCREMENT COUNT
SCHECK IF READY FOR NEXT HEADER

228
SECCNT
RS
238
4$

8EQ
ERROR
MOV
MOV
MOV
DEC
BNE
MOV
MOV
(MP
BEQ
ERROR

6466

6478
€479
6480

170

BNE
INC
DEC
BEQ
JMP

003626

SEQ 0119

:NO, COMPLETE POSTAMBLF
: INCREMENT COUNT
:CHECK If ALL HEADERS RECEIVED
SYES, SIMULATE INDEX
:NO GET NEXT HEADER

A A

R R

WRITE HEADER IN 24 SECTOR FORMAT

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER
OF SIX WORDS IN 24 SECTOR FORMAT TO AN RK06, CYLINDER 0O,
HEAD O, DRIVE 0.
CLOCK THROUGH THE SEEK AND DRIVE CLEAR
MESSAGES, SIMULATE INDEX PULSE, SECTOR PULSE. 3 HEADER
WORDS, SYNCH AND DATA, ANOTHER SECTOR PULSE, 3 HEADER
WORDS, AND AN INDEX PULSE.
CHECK DATA WRITTEN TO MAKE

SURE ONLY LOW 16 BITS OF SILO ARE USED.

:-"t'tt.tlt.t.t!ttlttt.ittti.lt'tt!ttttttntt'*tiittttt' EEEEXEER
RR
15746:
SCOPE
MOV
#100.,8TIMES
::D0 100. ITERAT]ONS

"IR6CED RKO11 DSKLS CTRL PRT3
27=-AuG=-81 10:24
"IR6(E P

6517

6518
6519
6520

6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532

6533
6534
6535
€536

040072
040100
040106
040110
040112
040116
040124
040132
040140
040142
0460144
040150
040156
040162
040166
040174
0460202
040204
040206
040214

040222
040230
040236
040242
040246
040252
040256
040262
040266
040272
040274
040300
040302
040304
040312
040316
040320
040324
040332
040336
040340
040344
040352
040360
040366
040370

762

300
370

700

762

~J
o
[aS)

040066

703

rOVIAIAL

€511
6512
6513
6514
6515
6516

040032
040040
0400646
040052
040060

100000

[elolololelolelolelolalololololelololelololaelslolslo
b 2 B OOt = 4 DO
2t OO s =
PORNIRNON) =AM NONI NV 2 RO
N =
oo
oo

6510

001270

040020
040024

QOO0
=lelele)

6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
64692
6493
6494
6495
6496
64697
6498
6499
6500
650
6502
6503
5504
6505
6506
6507
6508
6509

000040
064412
064412
177772

010027
000312
000440
0000490
000004
000240
000640
000240

003626
000040
000002

000010
000440
000040

000140
000040
061100
062040

MACY1Y

30(1046)
146

000002
000000

MOV

00002¢
00002¢

MOV
MOV

000026
000026
000026

MOV
MOV
MOV
MOV
DEC

DEC
BNE

2$:

BNE
CLR

000026

000020
000026

3%:

000026
000026

4%:

003170
003524

5¢:

003612

$RASE ,R2

#CCLR,RKCST(R2)
#DMD ,RKMR1(R2)
#HEAD1 ,RKBA(R?2)

:LOAD RKE11 BASE

;CLEAR Rk611
;PUT RK611 TO DIAGNOSTIC MODE
;ISSUE WRITE HEADER

#HEAD1,R3
#-6,RKWC(R?)
#CFMT 'WRKHEAD,RKCST(RZ2)
#50.24+2 R0
;ISSUE ENOUGH rLOCKS UNTIL
:
READY FOR INDEX PULSE
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
#4 RO
:ISSUE
#DMD 'MIND,RKMR1(R?2)

INDEX PULSE

#DMD .MIND 'MCLK,RKMR1(R?2)
#DMD 'MIND,RKMRT
(R2)

2%
SECCNT

;CLEAR SECTOR COUNT

#DMD ,RKMR1(R?2)
#2,R5
;LOAD NUMBER OF KFADERS
#8. R0
JWAIT FOR WRITE GATE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO

P1.BIT
PR.BIT

(LR
2SR
ERROR
INC
DEC
BNE

MOV

SEQ 0120

(LR
CLR

ERROR
CLR

0%:

PAGE 121

#DMD !MSP ,RKMR1(R2) ;SIMULATE SECTOR PJLSE
#DMD ,RKMR1 (R2)
#EM239 . EMW
:LOAD ERROR ME SSAGE
#DMD . MEWN 'ECCW!'WRTGAT
,E.MR1 ; INITIALIZE EXPECTED

MOv
JSR

303170

D 10

MOV
MOV
MOV
MOV

MoV

003622

000020

DEF
BNE

CLR

003622
04257C

003622
061172
00C003

MNV
MOV
MOV
MOV
MOV

(LR

000400

10:35

WRITE HEADER IN 24 SECTOR FORMAT
MOV
MOV
MOV
MOV
MOV
MCv

000000
000026
000004

003612
003614
003€16
003620

000001
042570

28-AuG-81

MOV
MOV
MOV

MoV
MOV
MOV
ROR

B(S

M1.BIT
M?2.BIT
#256. RO

MAINT REG 1

:SIMULATE

SYNCH

BITCNT

SINITIALIZE BIT COUNT

BITCNT
RO
5¢

SCHECK IF READY FOR DATA
*NO,GENERATE NEXT BIT

PC.WRTBIT
170

#1.P1.BIT

PC WRTBIT
170

“WRITE ONE BIT
*DATA INCORRE(T

2PUT

IN SYNCh BIT

:DATA

INCORRE(T

BITCNT

SINITIALIZE BIT COunT

#3 R0

*LOAD NUMBER QF

#16. R

SLOAD BIT

#EM24L0, EMW
(R3)+.R4

M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.RIT.PR.BIT

*LOAD ERROR MESSAGE
SGET NEXT WORD

WORDS

COUNT

:SHIFT BITS
SSHIFT

SCHECK

IN NEXT BIT
IF

ONE

IN HEADER

CZRECED RK61T

TIR6CE.PN

6537

DSKLS CTRL PRT3

27=-AUG=~81 1):2¢4

040372
040376

005037
000403

003612

040400
0460406

012737

000001
042570

040612

6573

6574
6575
657€
€577
6578
6579
6580
6581
6582

6583
6584
6585
6586
6587
6588
6589
6590
6591
€59¢

040414
040420
040422
040424
040426
040430
040434
0460442
040450
0460456
0460462
040466
040470
040474
0460476
040500
040504
040506
040510
040516
040522
040530
040536
040540
040542
040550
040556
040564
040572
040574
040576
040602
040610
040616
040620
040622
040630
040636
040644
040646

MACY11

003612

30(1046)
T46

14%:

168

003622

E 10
10:35
PAGE 122
28-AuG-81
WRITE HEADER IN 24 SECTOR FORMAT
(LR
BR

P1.BIT

15%

:2ERO
SCLOCK IN BIT

MOV

s ONE

ERROR

170

JSR

'8%:

003626

BITCNT
R1
128
RO

MOV

#16. ,R1

«01

M1.BIT.M2.81"

MOV
CLR
JSR
ERROR
INC
DEC
BNE

P1.BIT.PR.BIT
P1.BIT
PC.WRTBIT
170
BITCNT
R1
18%

DEC
BNF

RS
4%

MOV

000026

010040
000026
022040
003524

000026
003464
003°24
003464

000010
000440
000040

000026
000026

000000
010226
003500

003440
003500
003440

000026
000026

208:

25%:

268:

*BIT INCORRECT

“INCREMENT BIT COUNT
SCHECK IF WORD FINISHED
*NO, CONTINUE
“CHECK IF HEADER COMPLETE

'NO, GET NEXT WORD
*LOAD BIT

COUNT FOR NEXT WORD

:SHIFT BITS

PR.BIT.M1.8]T

:WRITE

ZERO

*BIT INCORRECT
*INCREMENT
“CHECK IF READY FOR NEXT HEADER
*NO, CONTINUE

SECCNT

* INCREMENT

*CHECK IF SECOND HEADER WRITTEN
*NO. DO 5ECOND HEADER

MOV
MOV

#DMD .MIND ,RKMR1(R2)
#4 RO

MOV
MOV
MOV

#DMD
, RKMR1 (R2)
RKMRT
(R2) .T.MR1 :GET MAINT REG 1
#MEWD ECCW'DMD,E.MR1
:LOAD EXPECTED MR1

MOV
MOV
DEC
BNE

CMP
BEQ
ERROR
MOV
MOV
MOV
DEC
BNE
MOV

- MOV

CMP

BEQ
ERROR
_SBTTL

‘WRITE BIT

108

MOV

INC

000240
000004
000640
000240

,P1.617

PC WRTBIT

IN
DEC
BNE
DEC

BNE
003620
203616
003614

SEQ 0121

;SIMULATE

INDEX PULSE

#DMD 'MIND .MCLK ,RKMR1(R2)
#DMD MIND ,RKMR1(R2)
RO
208

E.MR1.T.MR1
SCHECK MR1 CORRECT (WRITE GATE RESET
258
SYES, CHECK IF READY SET
173
*MAINT REG 1 INCORRECT
#8. RO
‘FINISH COMMAND
#DMD ! MCLX , RKMR1 (R2)
#DMD _RKMR 1 (R2)

RO
268
RKCST(R2),T.CS1

;GET COMMAND AND STATUS REG 1

E.CS1.7.CS1

SCHECK

#RDY ' CFMTWRHEADR<4(<G0>>,E.CST ;LOAD EXPECTED (S1
1ST47
174

CS*

CORRECT

*;YES, GO ON TO NEXT TEST

*sTYPE B INSTRUCTION ERRORS

""'Q!'t't'itt*'.'.".'.'."'.’t'-".'.‘.'tt".."...i.Q'.Q."".l.

TUTEST 47

FORMAT ERFOK

(PART

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

e
ie

RK06, IN 2€ SECTOR FORMAT, CYLINDER 43, HEAD 0, DRIVE 0.
CLOCK IN MAINTENANCE MOVDE UNTIL PHASE ADDRESS k.
TURN OFF

CONTROLLER IN DIAGNOSTIC MODE.

PuT THE

1SSUE A READ HEADER 1C AN

CIR6CEQ RK611 DSKLS CTRL PRT3
TIRGIE P
27=AuG=81 1):2¢4

NV NUAU NN PO ROWN O

1
7
401
176

737
401
177
737

104200

061214

041220

SCOPE

001200
000010
000026
000020
00000¢
000026
200026

1%:

012762
016237
01€237
016237
016237
01273%7
012737
005037
005037

000026
003632
000000

000000
000010
000012
000014
100224

000100
100001
000020
013500

’%:

003440
00345y
003452
003454
003500
003510

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE
(LR

=
NANN
~

7
7
7

013737
013737
013737
013737

6644

6647
£64L8

3
2
2 37
2
2

001401

6645
6646

402

WNC
W
NN
— N

6621
6622
€623
6624
6625
6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643

001270
000040
000040
000043
000025
000132
000449
000040

062

2 NS 2 WO ONONON =2 VN O VNN

66°7
6618
6619
6620

000144

WNWNIWINES 2 NS = NS

6€14
6615
5616

040660
040664
0460672
040700
040706
040714
040720
040726
040734
040736
040740
040744
040750
040754
040756
040760
040762
040770
040776
041004
041012
041020
041026
041034
041042
041050
041052
041054
041062
041064

WNANAPNOPOONOND
NN

6605
6606
6607
6608
6609
6510
6611
6612
6613

040650
040652

ODOOOOOO 2000000000000

6604

F 10

28-AuG-81
10:35
PAGE
FORMAT ERROR (PART 1)

123

SEQ C122

A 32222222222
d
222222 RRR2RRZR]

- 002000

6601
6602
6603

30(1046)
4
147

MAINTENANCE MODE.
MAKE SURE FORMAT ERRQOR,
DRIVE AVAILABLE AND CONTROLLER ERROR SET.

_A—A—hd(:(:fixsggggcflafiucnahd-hd-A—hd—a—MACDCMDCD—“DCDCLd—J—LJ-J—A.J—hdcp

6593
6594
6595
£596
6597
6598
6599
6600

MACY1T

003512
003514
003440

MOV
TSTR
BM]
DFC

BNE

MOV
MOV
MOV
MOV
MOv
MOV

MOV
MOV

003510

003450

003512

003452

5¢:

003514

003440
003450
003452
003454

7%:

(mp
BEQ
ERROR
{MP
BEQ
ERROR
(mMpP
BEQ
ERROR
(Mp
BEQ
ERROR
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MoV
MOV
MOV
MOV

CLR
(LR

#100,,$TIMES

$BASE ,R?2

;:D0

100.

ITERATIONS

;LOAD RK611 BASE

#SCLR,RKCS2(R2) ;CLEAR RK611 SUBSYSTEN
#DMD ,RKMR1(R2)
;PUT RK6'1 IN MAINTENANCE MODE
#43 RKDCYL(R2) ;LOAD (YLINDER ADDRESS REG
#RDHEAD ,RKCS1(R2) ;ISSUE RE£AD HEADER

#22.%4L+2 RO

¢ ISSUE CLOCKS UNTIL PHASE ADDRESS 6

RKMR1(R2)
WAITIM,RO
RKCST1(R2)
3%
RO
2%
RKCS1(R2),T.CS1
RKCS2(R2),T.(S2
RKDS(R2),T7.DS
RKER(R2),T.ER

;FINISH COMMAND
:WAIT FOR READY

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%

[N NORMAL MODE

:STORE COMMAND AND STATUS REG 1
;STORE CUMMAND AND STATUS REG 2
:;STORE DRIVE STATUS REG
;STORE ERROR REG

#CERR'RDY'RDHEADE<*(<GO>>,E.CST ;LOAD EXPECTED
#IR,E.CS2
:LOAD EXPECTED (S2

#SVAL 'DRA,E.DS
#FMTE E .ER

E.CS1,T.CS?

?gs

;LOAD EXPECTED DRIVE STATUS
:LOAD EXFECTED ERROR REG

(S1

REG

:CHECK COMMAND AND STATUS REG 1

;YES, CONTINUE

(ORRECT

E.CS2.T.CS2

:CHECK COMMAND AND STATU REG 2 CORRECT

E.DS,T.DS

:CHECK

?gb

?;7

E.ER,T.ER

;YES, CONTINUE
IF

DRIVE

ERR REG CORRECT

JYES, CONTINUE
:CHECK

STRATUS REG CORRE(CT

;30

:YES,

T.CS1,P.CST

:STORE PREVIOUS CONTENTS OF

T.DS,P.DS
T.ER,P.ER

:
COMMAND AND STATUS REG 2
;.
DRIVE STATUS REG
:
AND ERROR REG
;CLEAR RK611
;STORE COMMAND AND STATUS REG

T.0S2,P.(S¢2

#CCLR,RKCST1(R2)
RKCST1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T.DS
RKER(R2),T.ER
#RDY E.CST
#IR,E.(S2
£.0S
E.ER

CONTINUE

COMMAND AND STATUS REG 1

!
;STORE COMMAND AND STATUS REG 2
:STORE DRIVE STATUS REG
;STORE ERROP REG
;LOAD EXPECTED (CS1
:LOAD EXPECTED (S2

;LOAD EXPECTED DRIVE STATUS REG
:LOAD EXPECTED ERROR REG

TZRETED RKO1T DSKLS CTRL PRT3

MA(YTT

39£;046)

TIR€7E.PNY

27=AUG=81

10:24

6649

023737
00140}

003500

(03440

023737
001401

003510

003450

11%:

023737

003512

003452

12%:

002514

003454

iRt ¥

6650
6651

6652
5653

6654
6655
6656
6657
6658
6659
6660
6661
6662
6663

0612264

061232
041234
041236

0412464
061246
041250
061256
041260
041262
041270
061272
041274

104211

104212

001401

104213

023737
001401
104274

28-AuG-81

FORMAT

(MP

14%:

BEQ
ERROR
(mpP
BEQ
ERROR
{mMpP

ERROR

10:35

(PART

8EQ
ERROR
BEQ

16%

EFRQOR

E.CST1,T.CS1
118
21
£.(S2,7.082
1%
212
E.DS,T.DS
13¢
213

(MP

G 10
PAGE 124

SEQ (123

JCHECK (ST CORRECT

JYES, CONTINUE
;(S1 INCORRECT
;JCHECK (€S2 CORRECT
JYES, CONTINUE
;CS2 INCORRECT
;CHECK DRIVE STATUS (ORPECT

JYES, CONTINUE
;DRIVE STATUS REG INCORREC(CT

E.ER,T.ER

JCHECK IF ERROR REG CORRECT
JYES,

214

GO ON TO NEXT

JERROR REG INCORRECT

TEST

""."Q.""fi"*l.i'Q."""t'*l’"fi"fl*"*‘tiififififiitfiifi‘t"ti""'

6664

;*TEST

6466

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

6668
6669
6670

RKk06,

MAINTENANCE

6665

6667

6701
£702
£75
€704

001200

000026
000026

000026
003632
000000

ERROR

(PART

CONTROLLER IN DIAGNOSTIC MODE.
IN 24

SECTOR FORMAT,

MODE.

MAKE

CYLINDER

SURE

PUT

THE

ISSUE A READ HEADER TOQ AN
3,

HEAD 0,

DRIVE

C1.OCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6.
FORMAT

ERROR,

TURN OFF

DRIVE AVAILABLE AND CONTROLLER ERROR SET.

003450

100001

1%:

3s:

W LW LU, I o

00C100

o 30 i

003510

110224

SCOPE

MOv

#100.,8TIMES

MOV
MOV
MOV
[0
MOV

#SCLR,RKCS2(R2) ;CLEAR RK611 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
#3,RKDCYL(R2) ;LOAD CYLINDER ADDRESS REG
#RDHEAD
! CFMT ,RKCS1(R2) ;ISSUE READ HEADER
#22.%4+2 R0
o ISSUE CLOCKS UNTIL PHASE ADDRFSS 6

DEC
8NE
(LR
MOV
TSTR

RO
1%
RKMR1(R2?

MOV

2%:

000030
003500

000000
000010
000012
000014

TST50:

000010
000026
000020
000000

&St
a2 ONINN
S
O NOOHTNLOO

062

000144
001270
000040
000040
0N0003
010025
000132
006440
000040

MOV
MOV

BMI
DEC
BNE
MOV

MOV
MOV
MOv

2:D0

100.

ITERATIONS

;LOAD RK611 BASE

#DMD 'MCLK ,RKMR1T
(R?2)
#DMD ,RKMRY (R2)

WAITIM_ RO

JFINISH COMMAND
JWAIT FOR READY

IN NORMAL MODE

RKCS1(R2)
3%
RO
3
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),7.DS
JSTORE DRIVE S5TATUS REG

MOV

MOv

#FMTE !DRPAR E.E

BEQ

(3 3

MOV

(MP

A ¥

$BASE ,R?2

RKER(R2) ,T.ER
;STORE ERROR REG
#CERR!RDY !RDHEAD . CFMTR<*(<GO>>
,E.CS1 ;LOAD EXPLCTED (S?
#]R,E.CS?
JLOAD EXPECTED (S2

MOV

EaRV

6697
6698
6699
6700

0461276

041304
04°310
041316
067324
04641332
041340
047344
041352
041360
041362
041364
0413790
041374
041400
061402
0414604
0641406
041414
041422
041430
061636
04614644
041452
041460
041466
041474
041478
04150C
0415C¢

FORMAT

:':t"Q't"fi't"t'fi*'*fit't"t"*.ttfi"fi"fi‘iti**fi*t*'ttt'Qfiti*'tttt.

ub1274

OQOOOOQOOOO
OOOQOOOOOO
AN N WA AN NN NN N

6678
€679
€680
6681
6682
6683
6684
6585
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696

o %

etk
e e NN
e LASIASTAC
T o Yo YoNN
Yo o —'\A‘C:V'!LN\H—‘\.HNI\)NNNN
N N 1o NN
NN

6675
6676
6677

8 NNV &

6674

O WO O WNWINWNINWWNWWNA N O o
N =
NN NN NN NINWO no

6671
6672
66”3

#SVAL !DRAE.DS

E.CST,T.CST

ERROR

201

BEQ

(MpP

E.(S2.T1.(S2

;LOAD

EXPECTED

DRIVE

STATUS

REG

.LOAD EXPECTED ERROR REG

sCHECK COMMAND AND STATUS REG 1

JYES, CONTINUE

(ORRE(Y

sCHECK COMMAND AND STATU REG ¢ (ORREC(CT
JYES,

CONTINUE

6705

1046202

00352

003452

5%:

0237%7

003514

003454

63:

003440
003450
003452
003454

003540
003550
003552
00355¢

7%:

100000

000000
003440
003450
003452
003454
003500
003510

041704

041706
061714
041716

0461720

NN ~ & =

W OO

no &~

041672
041674
041702

N =2 NYIN) = N = = NNNNNNNNNND

OOOCO— L
-——
—d =2 )(=]
NN
S —~a

041650
041656
061660
041662
0461670

=SOO=O0O0O0=Q OO0V
OCOCOOCO
NOCNIOON
OO ~d b = = w2 =3
BN
NS D NWNVNTOPNORONONONNY

0461640
041644

000000
000010
000012
000014
000200
000100
003512
003514
003500
003510

003450

11%:

003512

003452

12%:

0n35¢

003454

13$:

104214

ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV
MOV
MOV
MOV

202
£.DS,".DS
6$
203
E.ER,T.ER
7$
204
1.CS1,P.(51
T.(S2.P.(S2
1.DS.P.DS
T.ER.P.ER

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#CCLR,RKCST(R2)
RKCST(R2),T.CS1
RKCS2(R2).T.(S2
RKDS(R2),T.DS
RKER(R2).T.ER
#RDY E. (S
#IR,E.CS2

CMP

£.CS1,7.CS1

CLR
(VR

003440

30(*046)
28-AUG-81
10:35 PAGE
FORMAT ERROR (PART <
T5C

0237%7
001400
104203

0461566
04°574
041662
061€79
041616
041624
041632

MACY'T

Q) =

CIRECED RKO1T DSKLS CTRL PRT3
“IRECE.P1T
27=AuUG=81 13:2¢4

E.DS
E.ER

BEQ
ERROR

118
211

(MP
BEQ
ERROR
CMP

E.CS2.7.CS2
12$
212
E.DS.T.DS

BEQ

SEa (124

;CHECK IF DRIVE STRATUS REG CORRECT
SYES, CONTINUE
:CHECK IF ERR REG CORRECT
:YES, CONTINUE
;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 CST

CORRECT

SYES, CONTINUE
+(S1 INCGRRECT

*CHECK €S2 CORRECT
SYES, CONTINUE
$(S2 INCORRE(CT

*CHECK DRIVE STATUS CORREC”

13$

SYES. CONTINUE

E.ER,T.ER
148

‘CHECK IF ERROR REG CORRECT
SYES, GO ON TO NEXT TEST

ERROR

213

ERROR

214

CMP
BEQ

125

;DRIVE

STATUS REG

:ERROR REG

INCORREC(T

INCORRECT

:;""ttt.'tttttt't't't"'Q'Q'tti't'!t!ttttt'ttt'tt'tt!!tt'tttfit.

LeTEST

Te
i
ie
ie

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT THE
CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TC
AN RKO6, IN 26 SECTOR FORMAT, CYLINDER 3, HEAD O, DRIVE
0.
CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6.

AVAILABLE AND CONTROLLER ERROR SET.

TURN

FAULT

OFF

SETTING CONTROLLER ERROR

MAINTENANCE

MODE.

MAKE

SURE

DR]VE

6755
6756
6757
6758

6759

€760

061720
041722
041730
0417%4
041742
041750
041756
0461764
061772
042000

OOONOOOOOO
-d-‘—lfl—fl—‘—‘—hfl:)
LASTANT SR NT N UL NIV 1N T
NONN NN NNNNO
[T
e No o NoNoNo
N alViw)
QONUMNIPLNLNLNOMN)
N &

E;'ttlttttttt.Qtttttttt'tttttttttttttttttt'tttttttt't't'tttt'!tt!
000144
001270
000040
000040
000003
177775

064714
000027
000132

001200
000010
000026
000020

000002
000004
000000

T§T51:

SCOPE

MOV

#100.,$TIMES

MOV
MOV
MOV

#SCLR.RKCS2(R2) :CLEAR RK611 SUBSYSTEM
#DMD ,RKMRI (R2)
:PUT RK611 IN MAINTENANCE MODE
#3 RKDCYL (R2) :LOAD CYLINDLR ADDRESS REG

MOY
MOV

#WRBUFF ,RKBA(R2) ;LOAD BUS ADDRESS
#WRHEAD ,RKCST(R2) ;ISSUE WRITE HEADER

MOV

;:DO 100.

ITERATIONS

$BASE .R2

*{0AD RK611

BASE

#=-3,RKWC (R2)

:LOAD WORD COUNT

#22.%4+8,R0

:ISSUE CLOCKS UNTIL PHASE ADDRESS &

JZRETED RKO1T DSKLS CTRL PRT3
FIREELPN
27-AUG=81 10:24
6761

€762

062006

062912

012762

012760

6763
€766

062020
062022

005300
001370

6766
6767
6768
6769
£770
6771
6772
6773
6774

062030
042034
042040
042042
042044
0420646
042054
042062
042070

013700
105762
100402
005300
001373
016237
016237
(016237
016237

6765

6775

6776

042024

042076
042104

005062

000440

000040

MA(Y1T 3?;;046)

I 10
28-AuG=-81
10:35 PAGE 126
FAULT SETTING CONTRGLLER ERROR

G0002¢

MOV

#DMD 'MCLK ,RKMR1(R2)

DEC
BNE

RO
1$

000026

000026
2%:

00344C
003450
003452
003454

012737

000100

003510

012737
025737
001401
104205

060000
003500

100226

003500

MOV

042112

012737

6782

(042140

023737

003510

003450

4%:

023737

003512

003452

5%:

003514

Q03454

¢%:

003540
003550
003¢52
003554

7%:

013737
013737

0N3440
003450
003452
003454

6783
5784

6785

6786
6787
6788
6789
6790
€791
6792

6793
6794
6795

0462120
042126
042134
042136
042146
042150

042152

042160
042162
042166
042172
042174
042176
042206

042212
042220

0014017
104206

001401
104207
023737
001407
104210
013737
013737

MCv
TSTB
BM]
DEC
BNE
MOV
MOV
MOv
MOV

MOV

6777

6778
6779
6780
6781

100001

MOV
(LR

003032
000000

000000
000010
000012
000014

012737

i$:

003512

003514
003440

SEQ 0125

#DMD .RKMRT (R2)
RKMR1(R?2’

WAITIM, RO
RK(S1(R2.
3$
R
3
RK(S1{R2),T.CS1
RK(S2(R2),T.(S2
RKDS(RZ),T.DS
IKER«R2),T.ER

JFINISH (OMMAND IN NORMAL MODE
“WwAIT FOR READY

;STORE
:STORE
;STORE
+STORE

COMMAND AND STATUS REG 1
COMMAND AND STATUS REC 2
DRIVE STATUS REG
FRROR REG

lCERR!RDY!URHEAD§<‘C<GO>>.E.CS1 JLOAD EXPECTED (S1
#IR,E.CS2

;LOAD EXPECTED (S2

MOV

#SVAL .DRA,E.DS

CMP

E.(S2.T1.(CS2

;CHECK COMMAND AND STATU REG 2 (ORRE(CT

E.DS,T1.DS

;CHECK ]F DRIVE STRATUS REG CORRE(TY

MOV
CMP
BEQ
ERRQR
BEQ
ERRCR

(MP

BER
ERROR
(MP
BEQ
ERROR
MOV
MOV

MOV
MOV

;LOAD EXPECTED DRIVE

STATUS REG

#0,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CH
;CHECK COMMAND AND STATUS REG 1 CORRE(T
4$
SYES, CONTINUE
205
5%
206

6%
207
E.ER,".ER
7%
210
T.(S1,P.CS1
1.0S2.P.(S2

T.DS,P.DS
T.ER,P.ER

JYES, CONTINUE
;YES,

CONTINUE

;CHECK ]F ERR REG (ORRE(CT
;YES, CONTINUE
;STORE PREVIOUS CONTENTS OF
:
COMMAND AND STATUS REG !
.
COMMAND AND STATUS REG 2
.
DRIVE STATUS REG
:

AND ERROR REG

6796
4797
6738

042226
042234
042242

012762
016237
01¢237

100000
000000
000010

0000CO
003440
003450

MOV
MOV
MOV

#CCLR,RKCST(RZ) :CLEAR RK6TT
RK(ST1(R2),T.CS1 :STORE COMMAND AND STATUS REG 1
RK(S2(R2",T.(S2 ;STORE COMMAND AND STATUS REG 2

AB00
6801

042256
042264

016237
012737

000014
000200

003454
0035G0

MOV
MOV

RKER(R2),T.ER
#RDY ,E.CS?

6799
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816

04225C

04c272
042300
042304
042310
062316
042320
042322
042330
062332
062336
042342
(0462344
042346
(042354
(42356

076237

012737
005037
005037
023737
00101
104cM
023737
001407
104212
023737
001401
104213
023737
001401
104274

000012

000100
003512
003514
003500

003452

MOV

00350
0C3440

(03510

20%450

11¢:

.
00351C

003452

12%:

003514

(03454

138:

MOV
(LR
(LR
(MP
BEO
ERROR
(MP
BEQ
ERROR
CMP
8fEQ
ERROR
CMP
BEQ
ERROR

RKDS(RZ2),T1.DS

:STORE DRIVE STATUS REG

#IR E.CS2
£.DS
£.ER
£.CST,T.C51
118
21
£.(S2,1.(S2
128
212
£.DS,7.DS
13%
213
E.ER,T.EK
14$
214

SLOAD EXPECTED €S2
:LOAD EXPECTED DRIVE STATUS REG
*LOAD EXPECTED ERROR REG
S(HECK CS1 CORRECT
SYES, CONTINUE
:(S1 INCORRECT
:CHECK (S2 CORRECT
SYES, CONTINUE
:CS2 INCORRECT
SCHECK DRIVE STATUS CORRECT
SYES, CONTIMUE
;DRIVE STATUS REG INCORRE(T
“CHECK ]F ERROR REG CORRECT
SYES, GO ON TO NEXT TEST
CERROR REG INCORRE(?Y

;STORE ERROR REG
SLOAD EXPECTED CS1

CIRGCEQ RKG1T DSKLS CTRL PRT3

TIRG(E.PN
6B17

¢818

042360

27=AuG=81 10:2¢4

WMA(CY1Y 30(1046)

151

148

28-AUG=81

10:35

J 10

PAGE 127

FAULT SETTING CONTRGLLER ERROR

SEG C12¢

CZR6CED RK611 DSKLS CTRL PRTS

CZR6CE P11

27=-AuG=81 10:2¢

K 10

MACY11 30(1046)
28-AUG-81
10:35
END OF PASS ROUTINE
.SBTTL

6819

PAGE 128

SEQ 0127

END OF PASS ROUTINE

2222222223322

2222

SRR

RRR

ARl

:*INCREMENT THE PASS NUMBER ($PASS)
;*TYPE ''END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yyyvvy"

J*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:«1F THERES A MONITOR GO TO IT
;«IF THERE ISN'T JUMP TO NEWPAS

042360
04236
0423 62
042366
042372
042376
042404
042406
042410
042412
042414
042416
042420
0642424
062444
042444

320004

005237
005037
005237
062737
005327
000001
003063
012737
000001
042406
104401

000407

013746
104405
104401

042450
042452
042456

000421

042522
042522

013746

042526
042530
042584
0425%0
042544
062546
042550
042552
042554
042556
042560
042560
042562
042564

$EOP:

001222
$EOPCT:

$ENDCT:

042426
;;25$:

64%:

001222
042460

éag7$:

001112

6874

(LR
(LR
INC
BIC
DEC

$TSTNM
$TIMES
$FASS
#100000,$PASS
(PC)+

:;1ERO THE TEST NUMBER
;s IJERO THE NUMBER OF ITERATIONS
::INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
..LO0P?

MOV

(PC)+,a(PC)+

,,RESTORE

,655

,,TYPE ASCIZ STRING

.WORD
8GT

1
$DOAGN

B8R

6469

MOV

$PASS,-(SP?

::SAVE $PASS FOR TYPEOUT

TYPDS
TYPE
8R

,67%
66%

;G0 TYPE--DECIMAL ASCII WITH SIGN
;2TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

$ERTTL ,~(SP)

$FOPCT
TYPE

LASCIT

.ASCJZ

TOTAL

(LR

$ERTTL

BEQ
RESET

$DOAGN

000137
004636
3 77
062570

$GET42: MOV

$ENDAD: JUSR

NCP
NOP

377

000

$RINAD:

$ENULL :

032490
000440
000026

L05524
(20026
CG3<ts

;GET OVER THE ASCI2

<12><15>/END PASS #/

005037
013700
001405
000005
004710
000240
000240
000240

TYPE

$D0OAGN:

COUNTER

TYPDS

104401

JYES

-WORD

104405

.SBTTL
042570
042576
042604

SCOPE

ERRORS

LSCRLF

a#s?l RO

P(C,(RO)

.WORD

.?Vgg

PASS NUMBER

SINCE

LAST REPORT /

::SAVE SERTTL FOR TYPEOUT
;. TOTAL

NUMBER OF

ERRORS

;:TYPE

CARRIAGE RETURN,

260 TYPE--DECIMAL ASCI] WITH SIGN
:;CLEAR ERROR TOTAL

LINE

FEED

;:GET MONITOR ADDRESS

::BRANCH IF NO MONI]TOR
:;CLEAR THE WORLD

::G0 TO MONITOR
;. SAVE ROOM
:;FOR

JACTN

NOP
JMP

;;TYPE

a(P()

; sRETURN

«1,-1,0

;:NULL CHARACTER STRING

NEWPAS

SIMULATE ONE BIT OF WRITE DATA [N MAINTANENCE MODE

WRTBIT: BIS

MOV

#MCLK 'MEWD,E.MR1

:CREATE EXPECTED MAINT. REG.

#DMD 'MCLK ,RKMR1(R2) ;PROVIED 1ST UPWARD TRANS!TiON
RKMR1(R2),T.MR1

SYORE MAINT.

REG.,

(ZR6CED RK61T DSKLS CTRL PRI3
JZROCE.PI
27-AUG=-81 10:2¢4

003464

012737
012737

062642
064033

001202
003172

00141¢

011646

042642
042650
062652

032777
001402
000137

001000

042656
042664
042672
042676
042700
042704
042706
042714
042720
042722
042726
042730
042736

042737
052737
005737
001152
005737
001023
042737
005737
001007
005737
001412
052737

014400
042000
003614

042740
042744
042746
042754
042762
042770
042776
043000
043006
043014
043016

005737

003620

0432020
043026
043030
043034
043042
043050

043056
043064
043066
043074
043102
043104

L 10
10:35 PAGE 129
28~AuUG=-81
SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE

30(1046)

00406

1%:

043524

035¢¢
03524

3%:

002000
003612

000040C
000026
0N3464

SEMWT EMW+2
(SP),=(SP)

sLOAD ERROR MESSAGE
s SAVE RETURN

BIT

#SW9,aSWR

;CHECK

63%

;YES, LOOP ON ERROR

BREQ
JMP

BIC
BIS
TST

TST

BNE
BIC
TST
BNE

003524

TST

003620
010000

MOV
MJv
MOV
RTS

;CHECK JF MAINT REG 1 CORRECT
JYES, PROVIDE DOWNWARD TRANSISTION

BNE

003616

004000

136270

BEQ

003524

BIS
BR

003524

043020
064122

002400
000440
000026
003524

003524
000026
003464
003464

03106
064213

001202
003172

136024

11%:

043524

043106
043114
043116

032777
001402
000137

001000

063122

052737

002000

12%:

003524

15¢:

:MR1

;NO,

FOR LOOP ON ERROR

INCORRECT ON UPWARD TRANSITION
IF

LOOP ON ERRUR

CONTINUE

#MCLK.PCA!PCD,E.MRT ;INITIALIZE MAINTENANCE
#MEWD
! WRTGAT ,E.MR1
PR.BIT
;CHECK IF ONE

RFG.

20%

JYES,

5%
M2.BIT
108

JYES, CHECK FOR PRECOMP ADVANCE
sCHECK FOR PRECOMP. ADVANCE

M1.BIT
108
#MEWD ,E .MR1
P1.BIT

#PCD,E.MK1

108

SIMULATE ONE

sNO,

JSET

CLOCK

IN ZERO

PRECOMP.

;CLOCK

IN ZERO

DELAY

#DMD ,RKMR1(R2)
RKMR1(R2),T.MR1
T.MR1,E.MR1
12%
#11%,8ESCAPE
#EMWZ ,EMW+2
(SP) ,~(SP)
PC

;CLOCK IN DATA BIT
;STORE MR1
JCHECK IF MR1 CORRECT
;YES, CONTINUE
;LOAD ESCAPE FOR LOOP ON ERROR
;LOAD ERROR MESSAGE
;SAVE RETURN
:MR1 INCORRECT

BIT
BEQ
JMP

#SW9,aSWR
12%

BIS

#MCLK 'MEWD ,E.MR1

(MP
BEQ

E.MR1,T.MR1

‘CHECK IF MAINT REG. 1 CORRE(CT

NEMWS, EMW+2

*L0AD ERROR MESSAGE

MOV
MOV

BIT

BEQ
JMP

BIS

#PCA E.MR1

63%

;CHECK [F PREVIOUS ONE
JYES, NO TRANSISTION
sINDICATE TRANSISTION
JCHECK IF NEXT BIT =1

;CHECK FOR PRECOMP.
;CLOCK IN ZERO

MOV
RTS

043524

JLOAD ESCAPE

M2.BIT
108

MOV
MOV

13%:

#1%,SESCAPE

TST
BNE
BIS
Mov
MOV
cMp
BEQ
MOV
MOV
MOV
RTS

001000

SEQ 0128

E.MR1,T.MR1
3%

(MP
BEQ

000207

6904
€905
€906
6907
6908
6909
6910
6611
6912
6913
6914
6915
6916

003524

NO
N

6903

023737

NNOANNMNON

6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902

262612
062620
062622
042630
042636
042640

NN
NP NN
WW
= NWON

6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885

MACY11

sSET

PRECOMP.

ADVANCE

sCHECK IF LOOP ON ERROR
sNO, CONTINUE

;YES, LOOP ON ERROR

;CREATE EXPECTED MAINT REG 1

#DMD . MCLK ,RKMR1(R2) ;PROVIDE OND UPWARD TRANSISITION
RKMR1(R2).T.MR1
158
#13%, $SESCAPE
(SP),=(SP)
PC

#SW9,aSWR
15%

:STORE MAINT REG.

SYES, CONTINUE
"LOAD ESCAPE FOR LOOP ON ERROK
:SAVE RETURN
sMR1 INCORRECT

;CHECK IF LOOP ON ERROR
sNO, CONTINUE

63%

JYES, LOOP ON ERROR

#MEWD E (MR

JRESET

TRANSITION

INDICATION

6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
€961
€962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972

6973
6974
6975
6976

6977
6978
6979
6580
6981
6982
6983
6984

6985

6986

043224
043230
043232
043236
043240
043246

000207

005737
001007
005737
001415
052737

6
2

01 0
03 7

BIC

201000

2
2

Yo N

043202
043210
043212
043216
043222

043202
064302

03
00
03
03

WVHOwWn

000400
000040
000026
003464

el )]

043130
043136
043144
043152
043160
043162
043170
042176
043200

M 10
30(1046)
28-AUG-81
10:35 PAGE 130
SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE
MOV
MOV

CMP
BEQ

[aS 1S TP o

6931
6932
6933
6934
6935
6936
6937
6938

MACY1T
ole B olelole

(ZR6CEOQ RK611 DSKLS CTRL PRT3
C(ZR6CE.P1N
27-AUG-81 10:24

13573¢C

MOV
MOV
MOV
RTS

17%:

001202
200002

18%:

003612

20%:

ADD

RTS

003616

TST
BNE
TST

BEQ
BIS
BR

00400CC

003524

043250
043256
043262
043264
043272
043300
043306
043314
043316
043324
043332
043334

000400
003616

003524

010000
000040
000026
003464

003524
000026
003464

043336
064122

001202
003°72

043336
043344
043346
043354
043362
043370
043376
043400
043406
043414
043416

001000

135574

41%:

000400
000440
000026
003524

003524
000026
003464
003464

42%:

043420
064213

001202
003172

043420
043426
0643430
043436
043444
043452
043460
043462

001000

135512

47%:

00240C
000040
000026
003464

003524
000026
003464
003524

45%:

043502

001202

000411

BIT
BNE
CLR

30%:

40%:

003524

BIC
IST
BNE
BIS

MOV
MOV
cmMp

BEQ

#MCLK
,E .MR1
#DMD ,RKMR1(R2)

RKMR1T (RZ),T.MR1
T.MR1,E.MR1
18%
#17%,8E SCAPE
HEMWS EMW+2

;SUPPLY LAST PART GF

;STORE MR1

(SP),=(SP?
PC

#5W9,SWR

sCHECK

$ESCAPE
#2,(SP)
PC

;CLEAR ESCAPE
sADJUST RETURN
JRETURN

63%

LOOP ON ERROR

JYES, LOO® ON ERROR

P1.BIT

;CHECK

M1.BIT
40$

;CHECK FOR PRECOMP ADVANCE
sNO, CLOCK IN DATA BIT

30%

APCA,E .MR1

40%

JYES,
;SET

IN NEXT BIT A ONE

CHECK IF PRECOMP DELAY

PRECOMP.

ADVANCE

s CHECK MR1

AMCLK ,E .MR1
M1.BIT

JRESET MAINT CLOCK IN EXPECTED MR1
;CHECK FOR PRECOMP DELAY

#PCD ,E.MR1
#DMD ,RKMR1(RZ2)

;SET SET PRECOMP DELAY
;CLOCK IN DATA BIT

408

RKMR1(R2),T.MR1
T.MR1,E.MR1
428

;NO,

CHECK MR1

;STORE MR1
;CHECK MR1 CORRECT
JYES, CLOCK IN REST OF BIT

#41%,$ESCAPE
(SP) ,=(SP)
PC

; SAVE RETURN
sMR1 INCORRECT

BIT

#SW9,aSWR

;CHECK

#6438, SESCAPE

;LOAD ESCAPE

(SP) .= (SP)
PC

*SAVE RETURN
*MR1 INCORRECT

#5W9, 3SWR

;CHECK

MOV
MOV

(MP
BEQ

MOV

MOV
MOV
RTS

BIT
BNE
BIC

MOV
MOV

(MP

BEQ

MOV

DATA

JCHECK IF MR1 CORRECT
;YES, RETURN
;LOAD ESCAPE FOR LOOP ON ERRORK
;LOAD ERROR MESSAGE
s SAVE RETURN
;MR1 INCORRECT

MOV
MOV
MoV
RTS

BNE
BIS

SEQ 0129

H#EMWZ EMW+2

;LOAD ESCAPE

FOR LOOP ON ERRCR

;LOAD ERROR MESSAGE

LOOP ON ERROR

63%
;YES, LOOP ON ERROR
A#MCLK ,E .MR1
:CHREATE EXPECTED MAINT. REG. 1
#DMD .MCLK ,RKMR1(R2) ;PROVIDE 2ND UPWARD TRANSITION
RKMR1(R2),T.MR1 ;STORE MAINT REG 1
E.MR1,T.MR1
JCHECK IF MAINT REG 1 CORRECT
45%
JYES, CONTINUE

HEMWS, EMW+2

63$

:LOAD ERROR MESSAGE
IF

LOOP ON ERROR

‘YES, LOOP ON ERROR

AMEWD .MCLK,E.MR1
;SET TRANSISTION
.E
#DMD ,RKMR1(R2)
;CLOCK TRANSISTION

RKMR1(R2),T.MR1
T.MRT E.MR1
50%
#47%,$ESCAPE

;STORL MR1
;CHECK IF MR1
;YES, RETURN
;LCAD ESCAPE

CORREC(T
FOR LOOP ON ERROR

MACY11

(ZR6CED RK611 DSKLS CTRL PRT3
CZR6CE.P1T
27-AUG=81 10:24

7073

7014

7015
7016
7017
7018
7019
7020
7021
7022
7023
7024
7025
7026
7027

032777
001005
005037
062716
000207

001000

135430

043524
043530
043534

005037
012706

0120
0110
3535

000177

63%:

000026

043564
043572
043600
043606
043614

012762
012762
012762
012762
000207

001440
000040
000440
000040

000026
000026
200026
000026

043616
043624
043632
043640
043646

012762
012762
012762
012762
000207

000442
010040
001440
000040

000026
Ca002s
000026

043702
04370¢

001202
001000

#SW9,aSWR

ADD

CLR

MOV

135242

; SAVE RETURN
JMR1 INCORRECT
JCHECK

LOOP ON ERROR

63%

;JYES, LOOP ON ERROR

#2,(SP)
PC

JADJUST RETURN
JRETURN

$ESCAPE

;CLEAR ESCAPE

$ESCAPE

;CLEAR ESCAPE

d$LPERR

;LOOP ON ERROR

#STACK,SP

;FORCE

STACK

RDBIT:

TST
BNE
TST
BEQ

MnV

PR.BIT
JCHECK IF ONE
10%
JYES, SIMULATE ONE
M1.BIT
sCHECK IF PREVIOUS ONE
4%
:NO, INSERT TRANSITION
#DMD .MCLK ,RKMR1(R2)
;YES, DO NOT INSERT
5%
;CLOCK IN ZERO

MoV
MOV
MOV
MOV
RTS

#DMD !MCLK !MERD ,RKMR1(R2)
;INSERT
#DMD ,RKMR1(R2)
;CLOCK IN ZERO
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

MOV
MoV
MoV
MOV
RTS

#DMD 'MCLK ,RKMR1(R2)
;CLGCK
#0MD ,RKMR1 (R2)
#DMD !MCLK !MERD ,RKMR1(R2)
#DMD ,RKMR1(R2)

.SBTTL

MEMORY

CHECK ENABLE

MEMERR:

Mov
MOov
ERROR
CLR

0%:

15%:

MOV

#STACK,SP

LSRTTL

ROUTINE

TO SIZE

JMP

TRANSITICN

IN ONE

JRETURN

BIT
BNE

10%:

TRANSITION

JRETURN

#10%,$ESCAPE
(SP) , TRAPPC
147
$ESCAPE
#SW9,aSWR
15%

RTI

012706
000177

;LOAD ERROR MESSAGE

(SP) ,=(SP)
PC

SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE

000C26

001202

SEQ C130

.SBTTL

003616

043664
003604

BIT
BNE
CLR

JMP

000440

043650
043656
043662
043664
043670
043676
043700

REMWS4 ,EMW+2

RTS

043554
043562

043552

47%:

50%:

003614

043544
043546

MOV

MOV
RTS

001202
000002

005737
001024
005737
001404
012762
000403

043540

10:35 PAGE 131
28-AUG-81
SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE

30(1046)

OON

043502
043510
043512
043516
043522

NO
oo

7005
7006
7007
7008
7009
7010
7071
7012

003172

—r ——

7000
7001
7002
7003
7004

064302

N —

6994
6995
6996
6997
6998
6999

012737
011646
000207

6993

043470
0643476
043500

—0
WO

6987
6988
6989
6990
6991
6992

N 10

TRAP

o$LPERR

;LOAD ESCAPE
sSTORE P(
JREPORT MEM PARITY ERROR
;CLEAR ESCAPE
JCHECK IF LOOP ON ERROR
;YES, FORCE STACK AND TRY AGAIN
sNO, RETURN
SINITIALIZE

STACK

;LCOP ON ERROR

MEMORY

222222333222222232223RR22R2RR2RRRRRRRRRRRRRRRZRRRRRRRRRRRAND]

SeCALL:

PC,$SIZE
JSR
RE TURN
te$LSTAD WILL CONTAIN:
WwITH KT11 OPT]ON
.

== AST

VIRTUAL

ADDRESS OF

TwE LAST BANK

CZR6CEQ RK611 DSKLS CTRL PRT3
CZR6CE.PN
27-AUG-81 10:24
7043
7044
7045
7046
7047
7048
7049
7050

7051
7052
7053
7054
7055
7056

7057

7058

7059
7060
7061
7062
7063
7064
7065

7066

7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084

7085

7086

7087
7088
7089

7090
7091
7092

7093
7094
7095
7096

7097
7098

MACY11

30(1046)

28~AUG-81

10:35

ROUTINE TO SIZE MEMORY

B8 11
PAGE 132

'\-

A
WITHOUT KT17 OPTION
== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAf
Pe$SKT11 IS THE MEMORY MANAGEMENT KEY

*BITO? = 0 DON'T USE MEMORY MANAGEMENT
MUST BE

SETUP BEFORE

THE

CALL

MOV

RO,=-(SP)

;:SAVE RO ON THE STACK

MOV
MOV

R2,=-(SP)
R3,~-(SP)

;sSAVE R2 ON THE STACK
;:SAVE R3 ON THE STACK

'BITTS 0 DON'T HAVE MEMORY MANAGEMENT OPTION
DETERMINED BY ROUTINE
;

$S12E:

043712
043714
043716
043720
043722
043726
043732

000004
000006

MOV
MOV

;SET

043734
043736
043742
043746
043750
043752
043754
043762
043766
043774
043776
044002

177572
100000

172340
000010
07740¢

044006

000004

043750

177740

1%:

010200
177600

044050
000020
177572
044102
143776
000040
172356

044102
044104

000004

(PC)+

MOV

#77406,-40(R2)

MOV
MOV

MOV
ADD
SOB
MOV
(LR

BR
(MP

4% :

MOV
TST

SKTOUT:

MOV

PUSH OLD

PSW AND

ON STACK

;:SAVE THE PSW IN @#ERRVE(+?2

:;USE MEMORY MANAGEMENT?

#KIPARQ,R2
#*D8,R3

(SP) ,(R2)+
#200, (SP)
R3,1%
#177600,-(R2)
-(R2)

::LOAD "'PAR"’
:;UPDATE FOR NEXT ''PAR'’
;:LO00P UNTIL ALL EIGHT ARE LOADED
::SETUP KIPAR7 FOR 1/0
;:SETUP KIPARG6 FOR TESTING

#2%,#ERRVEC
#20,2#SR3

3%
(SP)+,(SP)+

2#SR0O

ADD
(MP
BHI

#40,(R2)
a#KIPAR? (R2)
4%

BNE
SUB

;:SETUP ADDRESS

J;YES~=SET KT11 KEY
JoINITIALIZE FOR “'PAR'' LOADING
:;ADDRESS OF FIRST 'PAR"
;:LOAD EIGHT '"'PAR.'S'' AND EIGHT ''PDR.'S'’

INC

TST

$(ROUT:

(SP)+, AMERRVEC+2"’

#100000,8kT1?
-(SP)

(MP

004000

:SAVE THE STACK POINTER

TO THE PRESENT PS

BIS
CLR

177776

043750
000004

SP,RO

200
;:SET TO USE MEMORY MANAGEMENT
$CORE
;:BR IF NO
HSKTNEX ,Q#ERRVEC ;;SET FOR TIMEOUT
D#SRO
;:KT11 AKE YOU THERE?

004000
000040

100000

S#ERRVEC,-(SP)
;:;SAVE PRESENT ERROR VECTOR PS & PC
DXERRVE(+2,-(SP)

.WORD
BPL
MOV
TST

CLR
BR
$KTNEX: BIC
$CORE:
MOV
(LR
1%:
ADD
ADD

044150

ON THE STACK

#3776 ,R1

TSTR

2%:

3%:

J:SAVE R1

MOV

MOV
MOV

177572

162701

TRAP

MOV
$KT11:

044112

4[0)%

R1,-(SP)

THE ERRVEC PS

000006
003776

044014
044016
044022
044024
044030
044032
044040
044046
044050
044052
044056
044064
044070
044074
044100

044110
044112
044120
044126
044130
0464134
044140
0464142
044146
0446150

MOV

;:;PDR
= 4K,

UP,

READ/WRITE

;;CATCH TIMEOUT IF NO SR3
;;ENABLE 22 BIT MODE

;:THIS PDP=-11 HAS A SR3 REGISTER
;sCLEAN OFF THE STA(CK~~NO SR3

;s TURN ON MEMORY MANAGEMENT

HSKTOQUT ,Q#ERRVEC ;;SET FOR TIME OQUT
143776
;s TRAP ON NON-EX-MEM

(R2) ,R2

JJMAKE A 1K STEP
:JLAST ONE?
JsNO==TRY IT

J:GET LAST BANK+1

a#SR)
;s TURN OFF MEMORY MANAGEMENT
$SIZEX
#100000,8kT11
J:KT1T NON-EXISTENT
#$CROUT ,Q#ERRVEC ;,;SET FOR TIMEQUT
R2
;:SET UP BANK
#4000,R1
::INCREMENT BY 1K
#40,R?
231K STEP
(R1)

;;TRAP DN TIME

1%
#4000,R1

;sNO=--TRY AGAIN

8177776 ,R1

::LAST ONE

QUT

SEQ 0131

(ZR6CED RK611

TIROCE.P N
7099
7100
2101

=D
b
b
o
e
—

VoYe -ENTe NV, P g W ],V

7102
7103
7104
7105

DSKLS CTRL PRT3
27-AUG=-81 10:24

044154
044160
0446162

162702

30(1046)

ROUTINE

$SIZEX:

000040
000006
000004
044214
044216

044166

044172
044176
044202
0464204
044206
044210
044212
044214
044216

MACY11

28-AuG-61

SUB

mMov
MoV
MOV
MOV
MOV
MoV

A AR

PAGE 133

#40,R2

;sDROP BA(CK

(SP)+ ,R?2

;;RESTORE R2

(SP) + ,R1
(SP)+,R0

RTS

;sRESTORE R1
:;RESTORE RO

.WORD
(O
.WORD
O
SCOPE HANDLER ROUTINE

AR RN NN R R AR AN R E R

S*THIS ROUTINE

;o CONTAINS THE LAST ADDRESS
;s CONTAINS THE LAST BANK

AR RN KRR

SWITCH OPTIONS PROVIDED BY

:~§zos-1

LOOP ON TEST IN SWR<7:0>

044220

$SCOPE:

044222
044230

032777
001131

044232

000416

044234
044240
044246
044252
044256
044260
044262
044266
044270
044270
044276
044300
044302

013746
012737
005737
012637
000500
022626
012637
000440

000004
044260
177060
000004

032777

000400

044306
044310
044314
044316
0464322
044324
044326
0644332
0644336

040000

134710

CKSWR
BIT
BNE

134632

00C051

00110¢

134647

#BIT14,aSWR
$OVER

CODE

FOR

THE

XOR

MOV
MOV

A#ERRVEC,-(SP)
#5%, a#ERRVEC

MOV

(SP)+,#ERRVEC

INCREMENT

ARE:

::SCOPE=]OT

SCOPE

S#HHBHSTART

000004

IT WILL

INHIBIT I1TERATIONS
LOOP ON ERROR

$§X1STR: BR

000004

THIS ROUTINE

RIS
;ALY

104407

SUBTESTS.

R RRARNN R

INTO THE DISPLAY REG.(DISPLAY</:0>)
INTO DISPLAY<15:08>

LOOP ON TEST

SaSWll=1
S aSW09-1

044220

R A ANNN AR R AR AR

CONTROLS THE LOOPING OF

;*AND LOAD THE TEST NUMBER(STSTNM)
;*AND LOAD THE ERROR FLAG (SERFLG)
J*THE

SEQ 0132

RO, SP
;oRESTORE THE STA(K
(SP)+,Q#ERRVEC+2 ;,RESTORE ERROR VECTOR
(SP)+ ,a#ERRVEC
R1,8LSTAD
;. LAST ADDRESS
R2,$LSTBK
;s LAST BANK
(SP)+ ,R3
;;RESTORE R3

mMov
MOV

000000

10:35

TO SIZE MEMORY

MOV

$LSTAD:
$LSTBK:
.SBTTL

cNn

an177060

MOVB

BEQ
CMP
BLT
MOV
DEC

ASL
ADD
MOV

TESTERA#AAA

;:iF RUNNING ON THE "XOR'' TESTER CHANGE
“THIS INSTRUCTION TO A 'NOP'" (NOP-240)
::SAVE THE CONTENTS OF
ZSSET FOR TIMEOUT

THE ERROR VECTOR

S:TIME OUT ON XOR?
::RESTORE

THE ERROR VECTOR

$SVLAD

2.60 TO THE NEXT TEST

aSWR, (SP)

2 PICKUP THE DESIRED

CMP
MOV
BR
6% :: #AAAREND OF

BIT
BEQ
(LR

::TEST
FOR CHANGE IN SOFT=-SWR
*>L0OP ON PRESENT TEST?
CIYES IF SwWi4=1

(SP)+, (SP)+
*“CLEAR THE STACK AFTER A TIME OUT
(SP)+.a#ERRVEC
:-RESTORE THE ERROR VECTOR
S:LOOP ON THE PRESENT TEST
7%
CODE FOR THE XOR TESTERA####
#B1T08,aSWR
;:LOOP ON SPEC. TEST?
28
SiBR IF NO
-(SP)
S CLEAR A TEMP. LOCATION

8%
#51,(SP)
8$
(SP),$TSTNM
(SP)

(SP)
#$SWOBTBL,
(SP)
@(SP)+,SLPADR

$OVER

TEST NUMKER

S:BRANCH IF BAD TEST NUMBER IN SWR
S CHECK THE NUMBER IN THE SWR
“:BRANCH IF TEST NUMBER IS QUT OF RANGE
SSUPDATE THE TEST NUMBER
S BACKUP BY ONE
S SCALE THE TEST NUMBER AS AN INDEX
::FORM THE ADDRESS OF TEST POINTER
;;SET LOOP ADDRESS TO DESIRED TEST

;.G LOOP ON THE TEST

(ZR6CED RK611 DSKLS CTRL PRT3
rIR6CE.PIY
27=AUG=81 10:24
7155

7156

7157

7158

7159
7160
7161
7162
7163

7164

7165

7166

7167
7168

7169

7170

7171
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182

7183

7184
7185
7186
7187
7188
7189
7190
7191

7192
7193
7194

7195

7196

7197
7198
7199
7200
7201
7202,
7203
7204
7205

7206

7207
7208

7209
7210

044340
044342
0446346
044350
044356
044360
044366
044370
0644376
044400

064404
0464410
04644612
044420
044422
0464426
0464430
0464434
044442
0464444
044452
044460
044464
0664472
0464476
044502
044506
044514
044522
044526
044530
0464532
044532
0464534
044536
044540
064542
0645644
044546
044550
044552
0464554
044556

00572¢

105737

001115

001103

001600

134552

001110

001106

004009

28-AuUG-81
10:35
SCOPE HANDLER ROUTINE

30(1046)

8%:
’y:

001103

001103
001200

7% :
(%

134520

001222
001104
001200
000001
044530
001102
001102
001106
001110
001202
000001
001102
00110¢

004652
005070
005306

001104
001200

(MPR
BH]
BIT
BES

$ERMAX ,$ERFLG
3%
#B1T09,aSWR
4%

BEQ

MOV
8R

(LRB

001220

001115

134420

$SVLAD:

E$ )

::BR IF NO

$_PERR,$LPADR
$OVER

;:SET

$ERFLG

;. lERO

LOOP ADDRESS
THE

ERROR

TO LAST

FLAG

#B1T11,aSWR
19

JoINHIBIT ITERATIONS?
;:BR IF YES

BEQ

$PASS

THE STACK

;;MAX, ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;;LO0P ON ERROR?
J2BR IF NO

BIT
BNE

;JESCAPE

TO THE NEXT

;2
1F FIRST

PASS

SCOPE

ITERATIONS TO MAKE

TEST

PROGRAM

INHIBIT ITERATIONS

INC

$ICNT

BGE
MOV

$OVER
#1,81CNT

INCB
MovB

$TSTNM
$TSTNM,STESTN

;sCOUNT TEST NUMBERS
;sSET TEST NUMBER IN APT MAILBOX

$ESCAPE
#1,8ERMAX
$TSTNM,aDISPLAY
$LPADR, (SP)

;:CLEAR THE ESCAFE FROM ERRCR ADDRESS
JsONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
:sFUDGE RETURN ADDRESS

MOy

CLR
MOvB
MOV
MOV
RT]
2000.

STIMES,$SICNT
SMXCNT ,S$TIMES
(SP) ,$LPADR
(SP) ,$LPERR

;; INCREMFNT

ITERATION COUNT

;oCHECK THE NUMBER OF

ITERATIONS MADE

csBR IF MORE ITERATION REQUIRED
JoREINITIALIZE THE ]ITERATION (OUNTER

;oSET NUMBER OF

;:SAVE
. 2SAVE

SCOPE LOOP ADDRESS
ERROR LOOP ADDRESS

JsFIXES PS

TST1+2

;;STARTING ADDRESS OF

.WORD
.WORD

TST4L+2
TSTS5+2

;sSTARTING ADDRESS OF TEST 4
;;STARTING ADDRESS OfF TEST S

.WORD
.WORD

;J:MAX.

]TERATIONS T0O DO

EMXCNT:
$SJOBTRI
.WORD

TST2+2
TST3+2

NUMBER OF

ITERATIONS

::STARTING ADDRESS OF
::;STARTING ADDRESS OF

TEST

TEST 2
TEST 3

TST6+2
TST7+2
TST10+2
TST11+2
TST12+2

;;STARTING
::;STARTING
;2STARTING
. sSTARTING
2;STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF

TEST
TEST
TEST
TESTTM
TEST

.WORD
.WORD
.WORD
.WORD

TST14+2
TST1542
TST16+2
TST17+2

;sSTARTING
;;STARTING
;sSTARTING
;;STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
Of

TEST 14
TEST 15
TEST 16
TEST 17

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

TST22+2
TST23+2
TST24+2
TST25¢2
75726*?
TST27+2

2;STARTING
;JSTARTING
;JSTARTING
2 :STARTING
;o STARTING
;:STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST

.WORD
.WORD

025276

;;CLEAN THE BAD TEST NUMBER OFF OF
;;HAS AN ERROR OCCURRED?

csCLEAR THE NUMBER OF

.WORD

0464564
0464566

SEQ 0133

$TIMES

MOV
MOV

$OVER:

134

(LR

CMP

1%:

PAGE

(SP)+
$ERFLC

TST

001104

D 1"

TST
TSTR

.WORD
.WCRD
.WORD
.WORD
.WORD

0464560
044562

044570
044572
044574
0464576
044600
0446C2
044604
044606
044670

MACY11

.WORD

TST134+2

TST20¢?2
TST21+¢2

TST30+2

6
°
10
11
12

;:STARTING ADDRESS OF TEST 13

::STARTING ADDRESS OF TEST 20
;STARTING ADDRESS OF TEST 21

;:STARTING ADDRESS Of

22
23
24
25
26
27

TEST 30

7211
7212
7213
7214

72°5
7216
7217
7218

7219

7220
7021

7202

7223

7224

MACYTY

30(1046)
28-AUG-81
SCOPE HANDLER ROUTINE

044612

0464614
044616
064620
044622
044624
044626
044630

0464632
044634
0646636
044640
0464642
LL644

TES'
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

31
32
33
34
35
36
37
40
41
42
43

;;STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
:ISTARTING ADDRESS
:'STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS

.WORD

TST45¢¢

:*STARTING ADDRESS OF TEST 45

JWORD
JWORD

044652

OF
OF
OF
OF
OF
OF
QF
OF
OF
OF
OF

TST31+2
TST32+2
TST33+2
T5T34e¢
TST35+7
TST36+2
TST37+2
TS740+2
TST41+2
TST42+2
TST4342

.WORD
WORD

064646
044650

SEJ (134

JWORD
JWORD
-WORD
WORD
JWORD
.WORD
JWORD
WORD
WORD
JWORD
“WORD

WORD

036

E 1N
PAGE 135

TST44+2
TST4§+2
TST47+/

TST50+2
TST5142

:*STARTING ADDRESS OF

::STARTING ADDRESS OF
:ISTARTING ADDRESS OF

TEST 44

TEST 46
TEST &

::STARTING ADDRESS OF TEST 50
:*STARTING ADDRESS OF TEST 51

;;IQt"ll'fi'*tt*t*ifi"ti'tttt"i.t'tfl'fl.iitt‘fit.t.it"ttttt"tQtt

044654
044662
044664
044670
0464672
044676

032777
001405

044700
044706
044714
044716
044724
044724
044726
044730
044734
044736
044744
044746
044754
044756
044762
044770
0464774
044776
045002
045004
045006
045012
045014
045020
045026
045030
045036

-— D) - b
—_)
- —

"SBTT.

001000

134256

LOOP ON INTERNAL ERROR

SCOP1S: BIT
BEQ

TSTB

001103

BEQ

001110

5%
.SBTTL

MOV
RT]
APT

#SW9,3SWR
58

;CHECK IF LOOP ON ERROR
:NO_RETURN

N0, RETURN

SERFLG

$LPERR, (SP)

:CHECK

ERROR OCCURED

GO BACK TO BEGINNING OF LOOP

:RETURN
COMMUNICATIONS ROUTINE

7259
7260
7261

7266

[oleleleleolelldellelelalelelel ot
il i

';liQtttt!liitttfit'ltt'ttt'!ttfitifititttt'tttfit"l"t"t'tfi"t"'Q

7
7

000001
010001

045744
045142

$ATY1:
$ATY3:

000001

045744

$ATY4L:
$ATY(:

146

045142

000001

0012324

000100

001235

000004
000002
001214

000004

001230

000004

000002

1%:

2%:

::T0 REPGRT FATAL ERROR
::T0 TYPE A MESSAGE

#1,8FFLG

::T0 ONLY REPORT FATA_ ERROR

MOV
MOV
TSTR

RO,=-(SP)

;PUSH RO ON STACK

MOV
ADD

a4 (SP) ,RO

TST
BNE
MOV

TSTB

BNE
SuB
ASR

MOV
MOV

001214
045054
000004

#1,8FFLG
#1,8MFLG

BEOQ
(MPR
BNE
BITB
BEQ

00123(
001232
000004

MOVB
MOVB
BR
MOVB

3¢

MOV
ADD

SATY(

R1,-(SP)
SMFLG
5%
HAPTENV,$ENV
13
#APTSPOOL
, $ENVM
3s
#2,4(SP)

::PUSH R1 ON STA(CK
::SHOULD TYPE A MESSAGE”
BR
;2]F NOT:
: ;OPERATING UNDER APT?
BR
::1F NOT:
;;SHOULD SPOOL MESSAGESTM
BR
;:1F NOT:

;:GET MESSAGE ADDR.

;:BUMP RETURN ADDR.

$MSGTYPE
1%
RO, $MSGAD
520)4

::SEE IF DONE W/ LAST XM!SSION®
:oIF NOT:
WAIT
::PUT ADDR [N MAILBOX
;;FIND END OF MESSAGE

$MSGAD ,RO

::SUB START OF MESSAGE

RO, $MSGLGTY

::PUT LENGTH IN MA]LBOX

gg,SMSGTYPE

4 (SP),4%
82,4(SP)

::GET MESSAGE LNGTH IN WORDS

::TELL APT T0 TAKE MSG.

::PUT MSG ADDR IN JSR L INKAGE

;;BUMP RETURN ADDRESS

(IR6CEOQ Rk611 DSKLS CTRL PRT3
27-AuG=81 12:24

TIR6CE.PY

10:35

.
”

IR6CED RKO6TT1 DSKLS CTRL PRT3
TRECE.PIN
27-AUG=81 1):24
7267
7268
7269
7270

7271

7272

7273
7274

7275
7276
7277

7278

7279

7280
7281

7282

7283
7284
7285
7286
7287
7288
7289
7290
7291
729¢
7293
7294

045044
045050
045054
045056
045056
045062
045064
045070
045072
045076
045100
045106

013746
004737
000000

045708

000004

045114
045120
045124
045130
045134
045136
045140
045142
0465143
045144

7318

7319
7320

7321

7327

00124
00000«

SEQ 0135

;:PUSH 177776 CN STA(CK

.WORD

1STR

$FFLG

TST

12%

S$ENV

:2SHOULD REPORT FATAL ERROR?
BR
::]F NOT:

MOV

12%
$MSGTYPE
1%

a4 (SP) ,$FATAL

BR
;:1F NOT:
;oFINISHED LAST MESSAGE?
WAIT
J;IF NOT:

ADD
INC

#2,L(SP)
$MSGTYFE

(LRB
(LRB

$LFLG
SMFLG

MOV

(SP)+,R0

CLRB

(SP)+ ,R1

RTS

.BYTE
.RYTE
.BYTE
.EVEN
APTSIZE=200
APTENV=001
APTSPOOL=100

2:CALL TYPE MACRO

JsRUNNING UNDER APT?

$FFLG

MOV

$MFLG:
$LFLG:
$FFLG:

PAGE 136

177776 ,=(SP)
PC,STYPE
O

BEQ
TST
BNE

11¢:;

MOV
JSR

BEQ

12%:

;3GET ERROR #

:;BUMP RETURN ADDR.
J:TELL APT TO TAKE ERROR
:;CLEAR FATAL FLAG
;:CLEAR LOG FLAG
;¢ CLEAR MESSAGE FLAG
;:POP STACK

INTO R1

:.POP STACK INTO RO

;JRETURN

:sMESSG. FLAG
..L0G FLAG

0
0
0

;:FATAL

FLAG

APTCSUP-040

000040

.SBTTL
S

ERROR HANDLER ROUTINE

S22 2822222222222l
iRRRRRRRRRRRRR R

J*THIS ROUTINE wiLL
;*SAVE
J*AND

THE

INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

ERROR ITEM NUMBER AND
TYPERR ON ERROR

THE

ADDRESS OF

THE

ERROR CALL

J«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW1S=1
;*SW13=1
2*SW10=1
;*SW09=1
JeCALL

7306

7314

10%:

001214

10:35

APT COMMUNICATIONS ROUTINE

001234

7296
7297
7298
7299
7300
7301
7302
7303
7304
7305

7315
7316
7317

28-AUG-81

30(1046)

4%
5%:

0465144

7295

7307
7308
7309
7310
7311
7312
7313

MACY11

05146
045146
045150

045154
045156
045164
045172
0465174
045200
045204
045210
045216
045224
045232
045234

104407
105237

001775

$ERROR:

001103

7%:

001102
002000
001204
001112
001116
000002
133674
020000

045346

HALT ON ERROR

INHIBIT ERROR TYPEQUTS
BELL ON ERROR
.00P ON ERROR
ERROR
(KSWR
INCB
BEQ

MoV

BIT

BEQ

TYPE

INC

MOV

SUB
MOVB

81T
BNE
JSR

; :ERROR=EMT AND N=ERROR

$ERFLG
’$
$TSTNM aDTSPLAY
#RIT10,aSWR
1%

LSBELL

SERTTL
(SP) ,$ERRF(
#2 ,$ERRP(

9$ERRP(,$1TEMB
#B]773,aSWR

20%

PC,TYPERR

TEM NUMBER

;. TEST FOR CHANGE [M SOFT-SWR
;. SET THE ERROR FLAG

J:DON'T LET THE FLAG GO TO ZERO
;.DISPLAY

TEST NUMBER AND ERROR FLAC

;.BELL ON ERROR?
;N0 = SKIP
JoRING BELL
;. COUNT THE NUMBER OF ERRCRS
::GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR [TEM (ODE
JoSKIP TYPEQUT IF SET
;:SKIP TYPEQUTS

:;G0 TO USER ERROR RCLTINE

fIR6CED RK611 DSKLS CTRL PRT3
CZR6CE.PN
27=-AUG=81 1]:2¢4
7323

7324

7325
7326
7327
7328
7329
7330
7331
7332
7333

7334
7335
7336
7337
7338
7339
7340
7341
7342

7343

7344
7345

7346
3.7

7348

045240
065244
045244
045252
045254
045262
045266
045267
045270
045272
045276
045300
045302

045304
045312
045314
045320
045324
045326
045332
045332
045340
045342
045344
045344

10440°

0012M

122737
001007

000001

001234

007114
06471¢

045266

113737

004737

7369
7370
7371
7372
7373
7374

7375

7376

7377
7278

30(1046)

28-AuG-81

20%:

PAGE

137

SEQ C13¢

LSCRLF

(mMPB

#APTENV,SENV

JoRUNNING IN APT M(C'E

MOVB

$I1TEMB,21¢

J2SET ITEM NUMBER AS ERROR NUMBER

BNE

22%:
2%:

G 1

TYPE

JSR
.BYTE
BYTE
BR
TST

B8PL

HALT

(KSWR

PC,8ATY4
0
0
228
aSWR

:sNO,SKIP APT ERRQO~ REPORT
;;REPORT FATAL ERROR

TO API1

::APT ERROR LOOP
;.HALT ON ERROR

;:SKIP IF CONTINUE
;sHALT

ON ERROR!

s TEST FOR (HANGE

IN SOFT=-SWR

3%:

BIT

#8]T709,aSWR

001110
001202

4%:

MOV
TST

$LPERR, (SP)
$ESCAPE

.sFUDGE RETURN FOR LOOPING
JsCHECK FOR AN ESCAPE ADDRESS

001202

MOV

$ESCAPE, (SP)

;:FUDGE

(mMpP

#SENDAD , Q442

001000

022737
001001
000000

10:35

ERROR HANDLER ROUTINE

21%:

133642

042550

133626

BEQ

000042

BNE
HALT

000002

7349

7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7300
7361
7362
7363
7364
7365
7366
7367
7368

MACY11

4%
5%

RT]
AARAAS

"SBTTL

J:LOOP ON ERROR SWIT(H SET?
;:BR IF NO
;:BR [F

NONE

RETURN ADDRESS

FC-

E°

APE

;oA(T=11 AUTO=-ACCEPT?
:;BRANCH IF NO
JoYES
; :RETURN

SRR

SRR RRRd

TYPE ERROR ROUTINE

ARl

RR AR R

ER R

:*ENTRY JSR PC,TYPERR

S#RETURN RTS P{
.

:+THIS ROUTINE USES THE "'ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE wHI(s
J*ERROR IS TO BE REPCRTED. IT THEN USES THE '"'ERROR TABLE'® ($ERRIB)
:*gnggpggnDEFINE WHAT INFORMATION [S TO BE REPORTED CONCERNING
. %

’:tt"t.'t..ttt.ttttttt...'.'fi"'.fii'.it"Q.Q".t't.t"tttt""'.

045346
045350
045354
045360
045362
045364
045366
045370
045374
045400
045402
045406
045410
045412
0465416
045420
045424
045426

045430
065432

104413
112700

042700
005300
006300
006300
006300
062700
012037
001404
104401
104401

000000
012037
001404
104401
104401

000000
012001
001445

001114
17700

001300
045410

TYPERR: SAVREG
MOVR
BI(
DEC

1¢:

001211

045426

2%:
3s:

00121"
4%

5¢:

$ITEMB RO
#177400,R0
RO

ASL
ASL
ASL
ADD

RO
RO
RO
#SERRTB,RO

BEQ

MOV
TYPE
TYPE

. WORD
MJv

BEQ
TYPE
TYPE

.WORD

MOV
BEQ

(RO)+,2%

JSCRLF

0
(RO)+,4%

b} )
,SC(RLF

(RO, R
208

JENTER ERROR NUMBER
;s CLEAR UNUSED BITS
;FORM INDEX FOR ERROR

sFORM ADDRESS

;GET EM POINTER

JBRANCH IF

JTYPE
;TYPE

THERE

TAR.t

ERROR ENTRY

ISN'T ONE

CARRIAGE RETURN L INE
ERROR MESSAGE (EM)

;EM POINTER GOES HERE
JGET DH POINTER

JBRANCH ]F THERE ISN'T ONE
;TYPE CReLF

:TYPE

DATA HEADER

;DH POINTER GOES MERE

JGET DT POINTER
JBRANCH IfF THERE ARE NONE

FEED

MA(Y1Y

30(1046)
28-AuG-81
TYPE ERROR ROUTINE

CLR

0012M1

MOV
MOV
“YPE
MOvVB
IS8

17%:

B8EQ
TST
BNE

1°§:

73G9
7400
7401

052353

"2%:

061211

13%:

052353

003610
0106000

133356

000024

003610

7413
7414
7415

7429
7430
743

76432

7433

7434

104401

052356

045600
Ua5604
045606
045614
045620
045624
045626

005737
001407
012737

000042

045630
045634
045642
045046
045652
045656
0465660
045664

O
QO —-=OO0O
OOOOO
~4 —a A =2 N 8 PORU WA
OO
NS NINY
WIAWN =2NOOOO
NNO N—=ONUN

7416

7428

TST
BEQ
coM
DF(
BLE

Mov

BEQ
TYPE

7611
7412

74610

76427

TYPE

ISt

001211

76426

B8R

BER

7607
7408
7409

749
7620
7421
7422
7423
7424
7425

TYPE

15¢:

045536

7406

7417

DEC
B8EQ

14%:

7402
7403
74C4
7405

7418

MOV
TYPOC

000001
001100
042360

17‘:

TVPF

14%:

. WORD

TYPE
BR
RESREG

20%:

SES C137

JRESET

INDENT

SWIT(H

(R2)+,R0O
(RO)+,Re

JGET DF POINTER

(RQ)+ R3Y

JGET & STORE NUMBER OF DATA WORDS
:BUMP PAST FORMAT WORD

LSCRLF
(RO)»

R3
R4

128
e+, =(5P)
d{R")
R3
138
,SPA(E?
11%

JOCRLF

(RO,
149%
R4
R2

(RQ)+,18%
108

17¢%

,SPA(E?

0
. SCRLF

:STORE NUMBER OF DH'S

JTEST

ANY

DATA

FOR

JNO - SKJP DATA PRINT
JCHECK IF INDENT WORDS
JYES, GO INDENT

JPUT FIRST
JTYPE T

DATA WORD

;TYPE

SEPARATORS

:TYPE

.LOOP
JCHECK

NEXT HEADER AvA]_ IRLE

ING, DO NOT CHANGE
;CHANGE INDENT

INDENT

JMORE DH'S?
;NO-BRAN(CH

JGET NEXT DH POINTER
;IF NO HLADER GET DATA
JINDENT?
;NO=BRANCH
s INDENT

;TYPE

;DR POINTER GOES HERE

BEQ
{MP
BHIS

25%

sNO,

TST
8EQ

MOv
MOV

JMP

BEQ

(LRR
(R

; HECK ]F ABORT AFTER 20 ERRC
>
RETURN

JCHECK IF EROR THRESHCLD EXCEEDED

25%
~ABORT

:NO, RETURN
;TYPE ‘PROGRAM HAS BEEN ABORTED BECAUSE

JCHECK IF

#1,$E0P(T

FOR ABQRT
sFORCE END OF PASS COUNT TO OM
JINITIALIZE STA(CK
;BRING IN NEAT PROGRAM IN (HA]I®,

308

#STACK,SP

$E0P

ERROR THRESHOLD EXCEEDED''

JNO,

HALT

IN CHAIN MODE

CONTROLLED PROGRAM wALT

MOV
MOV
MOV
TYPE
TST

STA(Kk

;MORE DATA WORDS

JINCREMENT ERROR COUNT

#20. ERRMNT

HEADER

;NO=-BRAN(CH

ERRCAT

#5W12,aSwR

THIS

INC

HAL
T
RTS

000000

R&4

138

. LOOP

TYPE

H 11

PAGF

108

BIT

042406

10:35

$BASE ,R?

#CCLR.RKCST(R2)
#STACK,SP

,0PROO?

5$
$ERF LG
$ESCAPE

JSET '611 BASE
JCLEAR C(ONTRO_LER
JCLEAR STA(K
JTYPE HALT MESSAGE
JTEST IF MONJTOR BRESENT
JNO - SK]P
:CLEAR ERRCR FLAG
J(LEAR ESCAPE

CIR6CED RKO1T DSKLS CTRL PRT3
27=-AUG=81 1):2¢4

"IRGLE.PN
7435
7436

7437
7438
7439
7440
74641
7442

045670
045674

005037
000137

045700
045702

000000

000137

10:35
28-AUG-81
MACY1T 30(1046)
CONTROLLED PROGRAM HALT
(LR
JMP

042406
042360

003466

7443

745%

7456

7470

7471

7472

7473
7474

7475
7476
7677

7478
7479
7480
7481
7482
7483

7484
7485

7486

7487

7488
74,89
7490

;DO RESTART

CONTINUE

TYPE AS(]Z MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
$N LL

RAGIEE

$FILLC CONTAINS THE (HARACTER TO FJILL AFTER.

D
o

7455

7469

;HALT PROGRAM

CTART1

JANDTEREY

7454

7465

$F ..LS

JeCALL:

7452

7466
7467
7468

TYPE ROUT.NE

;1) USI", A
) R
TYPE

7651

7464

LORTT.

JMP

JeN TE

7449
7450

7463

HALT

«SOUTINGE

7448

7662

5%:

;SET PASS (COUNT TO O
;GO TO END OF PASS

J»7HE RGUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

7446
26447

7461

SEOPCT
$E0P

SEQ (138

".'"""Q'i\".t..filt.""'...ittttt.tttkt"tt"fi'ttt't.t'.."'!'

7644
7445

7457
7458
7459
7460

In
PAGE 139

CONTAINS

TRAP INSTRUCTION
.MESADR

THE CHARACTER TO BE USED AS
THE NUMBER OF

JsMESADR

THF

FILLER (HARA(TER.

FILLER CHARACTERS REQUIRED.

FIRST

ADDRESS OF

AN ASCIZ

STRING

TYPE
MF SADR

045706
045712
045714
045716
045720
045722
045726
045734
045736
045744
045746
045752
045756
045760
065766
045770
045772
045774
045776
046000
046004
046006
046012
046014
046020
046022
046024
046026
046030
046034
046036
046042

046046

105737

100002
000000
000430
010046

017600

122737
001011
132737

001405
010037
004737
000000
132737

001003

001157

HAL 7
BR

000002

122716

000200

BEQ
MOV

(

1235

JSR
. WORD
BITR

2%:

BNFE
MOVR
BNE

60%:

MOV

RT!
(MPBR

3%:

TST

ADD

BEQ

(MPR
BNE
TST

TYPE

$CRLF
(LRB

0466236
(646120

201156

5¢:
6$:

a2 (SP) RO
#APTENV, $ENV

2:GET ADDRESS OF ASCIZ
;sRUNNING IN APT MODE

62%

BITB

000040

;JHALT HERE
;o LEAVE

BNE

001235

61%:
62%:

;1S

RO,=-(SP)

000100

0465756
0464706

$TPFLG

MOV

001234

000011

001006

BPL

MOV
(MPB

122716

001430

1¢:

TSTIR

000002
000001

112046

001005
005726
012600
062716
000002

$TYPE:

RAPTSPOCOL ,$ENVM

;J:BR IF

YES

TERMINAL?

TERMINAL

;:SAVE RO

STRING

;:NO,GO CHECK FOR APT (ONSOLE
; :SPOOL MESSAGE

TO APT

629%

;2NO,GO CHECK FOR CONSOLE

PC,SATY3
0
NAPTCSUP,SENVM

;s SPOOL MESSAGE TO APT
s MESSAGE ADDRESS
::APT CONSOLE SUPPRESSED

RO,61%

608
(RQ)+,=(SP)
4%
(SP) ¢

(SP)+ RO

2, (SP)

#HT, (SP)

8%
#(CRLF,(SP)
5%

;. SETUP MESSAGE ADDRESS FOR APT

:2YES.SKIP TYPE QuUT

::PUSH CHARACTER TO BE TYPED ONTQO STA{K
::BR IF IT ISN'T THE TERMINATOR
;3
1F TERMINATOR POP

;sRESTORE RO

IT OFF

THE

;:ADJUST RETURN PC
. sRETURN
JJBRANCH

<HT>

:;BRANCH ]F NOT <(CRLF>

(SP)«

J:POP

$CHARCNT

::CLEAR CHAPACTER COUNT

PC,STYPEC
$FILLC,(SP)+

;:60 TYPE THIS (MHARACTER
oIS 1T TIME FOR FILLER (KARS,?

B8R

Pé

BNE

JSR
(MPB

THERE

;:TYPE

<CR><LF> EQUIV
A (R AND LF

::GET NEXT (HARACTER

2o1% NO GO GET NEXT (MAR,

STALK

"IR6CEQ RK611 DSKLS C(TRL PRT3
27=AUG=81 10:2¢4

TIR6CE.PN
7491
7492
7493

7694
7495
7696
7497
7498
7699
7500
7501
7502

7503
7504
7505

7506
7507
7508
7509
7510
751

7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522
7523
7524
7525
7526

7527

7528
7529
7530
7531
7532

7533

7534
7535
7536
7537
7538
7539
7540
7541

7542
7543
7544
7545

7546

046050

01374¢

001154

046054
046060
0646062
046066
066072

105366
002770
004737

000001

105337

000770

MACYTT

30(1046)
TYPE

28-AuUG-81

ROUTINE

7%:

046120
06636

MOV

., =(SP)
$NUL

DE(B

1(SP)

BLT
JSR

046112
046114
046116
046120
046120
046124
046126
1046132
046136
046142
046144
046144
0646150
046152
046156

040162

046166
046170
046170
046172
046172
046176
046200
046206
046214

046216

046222
046224
04¢232
046234

046236
046240

000040
04610
000067

105777
100022

133020

122716

000023

105777
100375
117716

132774

017746
042716
001012

042716
122716
001366

8%:

046236

116677
122766
001003
105037

132770

000021

10c%:

000207

10%:

132752
134744

000002

04623¢
000012

TST

#7,$CHARCNT
9%
(SP)+

B8R
TSTB

000002

J:GET & QF FILLER CHARS, NEEDED

JsAND

THE

NULL

(MHAR,

2:DOES A NULL NEED TO BE TYPED?
;+BR ]JF NO=-=-GO POP THE NULL OFF OF STACK
;:G0 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;.L00P

,(SP)

PC,STYPEC

P 3

a$TkKS
108
a$TKkB,=(SP)

J;REPLACE TAB WITH SPACE
;2 TYPE A SPACE

;¢BRANCH [F NOT AT

;;TAB STOP

::POP SPA(CE OFF STA(K
;:GET NEXT CHARACTER
;:CHAR IN KYBD BUFFER?
;s+BR IF NOT
J:GET (HAR
J:STRIP EXTRANEQUS BITS

#177600, (SP)
#SXOFF
, (SP)

ISTR
BPL

BIC
(MPB
BNE

a$7kKS
1018
a$7KkB, (SP)
#177600, (SP)
#$XON, (SP)
1018

;sBR IF NOT

TST

(SP)+

soFIX STACK

T1STR
BPL

as$TPS
108

;sWAIT UNTIL PRINTER IS READY

BNE

MOVR

102%

2(SP) ,a%$7PB

#(CR,2(SP)
18

CMPB
BNE
(LRR
BR
1$:
(MPR
BEQ
INCB
$CHARCNT
: . WORD
$TYPEX: RTS

LSBTTL

TO OCTAL

SEQ 0139

BI(
(MPB

MOvB

177600

000002
000015

MOVB

MOV

101¢:

140

TAB PROCESSOR

BPL

133014
177600

PAGE

$(HARCNT

JSR
BITR
BNE

$TYPEC:

005726
105777
100375

9%:

J 1N

PC,STYPEC(

DECB

JHORJZONTAL

046074
046100
046104

10:35

BINARY

$CHARCNT
$TYPEX

#LF ,2(SP)

;. WAS (HAR XOFF
;.BR IF NOT

;.WAIT FOR (HAR

::GET CHAR
J:STRIP IT
JoWAS [T XON?

::L0AD CHAR TO BE TYPED INTO DATA REG.
2:31S C(HARACTER A CARRJAGE RETURN?
:sBRANCH IF NO
::gi?;-CLEAR CHARACTER COUNT

:31S CHARACTER A LINE FEED?

$TYPEX

;;BRANCH [F

;s CHARACTER CQUNT STORAGE

AZASEE AR

YES

2 COUNT THE CHARACTER

(P(C)+

(ASCID)

AND

ARl

TYPE

RRR

RRRNRRERERE

J*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGI!T
J*OCTAL (ASCI]) NUMBER AND TYPE IT.
;*$TYPOS=-=~ENTER HERE
Je(CALL:

TO SETUP SUPPRESS ZEROS AND NUMBER Of

MOV

- (SP)
NUM,

BYTE

TYPQOS

:NUMBER T0 BE TYPED
;;CALL FOR TYPEOQUT

JIN-1

TO 6 FOR NUMBER OF

DIGITS YO TYPE

DIGITS TQ TvpF

(ZR6CED RKOIT DSKLS CTRL PRT3
27-AuG=81 10:24

TIR6CE.PYY

MACY11

K 11

10:35
PAGE 141
30(1046)
28-AUG-81
TYPE
AND
BINARY TO OCTAL (ASCII)

.BYTE

7547

7549
7550

;*$TYPOS OR $TYPOC

;«CALL:

7554

.'.

7555

7562

7563
7564
7565
7566
7567
7568
7569
7570
7571
7572
7573
7574
7575

7576

7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601

7¢02

::M=1 OR 0
;s V=TYPE LEADING ZEROS
:;0=SUPPRESS LEADING ZEROS

;*$TYPON=-~=~ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

7551
7552
7553

7556
7557
7558
7559
7560
7561

7548

SEQ (140

MOV

TYPON

NUM,=(SP)

. W

::NUMBER TO BE TYPED
;sCALL FOR TYPEOQUT

;*$TYPO(~=--ENTER HERE FOR TYPEQUT OF A '6 BIT NUMBER

Je(CALL:

[0}
TYPOC

,
- (5P)
NUM

;sNUMBER TO BE TYPED
;sCALL FOR TYPEOUT

$TYPOS:

MOV
MOVB
MOvVB
ADD

a(SP) ,-(SP)

;sPICKUP

066465

$TYPOC(:

046464

$TYPON:

MOVB
MOVB
MOvVB
MOV
MOV

#1,80FILL
#6, SOMODE +1
#5,800NT

;:SET THE ZERO FILL SWITCH
;;SET FOR SIX(6) DIGITS
;oSET THE ITERATION COUNT

R4,=(SP)

;. SAVE R4

NEG
ADD

R4
#6,R4
R4, SOMODE

M 3
. ¥

046242
046246
046254
046260
046264
046266
046274
046302
046310
046312
046314
046316
0466322
046324
046330
046334
046340
046344
046346
046350
046352
046354
046356
046360
046362
0466364
04€370
046372
04376
046400
046402
046404
046406
046412
046416
0466422
046426
046432
046434

046436
046440

000000
000001
046467
000002

000001
000006
000005

046465

046467

MOV
MOvVB

046467
00000¢

MOVB
MOVB
MOV

046466

046465
000012

046466

CLR

1¢%:

ROL

2$:

ROL
ROL
ROL
MOV
ROL

3%:

DECR

BPL
8IC
BNE
TST

177770

000060
00C040
04646¢
06646¢
046464

5¢:
7%:

BEQ
INC
BIS
BIS

MOVB
TYPE

DECB

BGT
BLT
INC

1(SP) ,$0FILL
(SP)+, $OMODE +1
#2,(SP)
$TYPON

R3,-(SP)

R5,=(SP)
$OMODE +1,R4

$OFILL,RS
12(SP) RS

THE MODE

:;LOAD ZERO FILL SWITCH
:-NUMBER OF DIGITS TO TvPE
:sADJUST RETURN ADDRESS

;2SAVE RO

::;SAVE RS
;:GET THE NUMBER OF DIGITS TQ TYPE

;:SUBRTRACT IT FOR MAX. ALLOWED
::SAVE [T FOR USE
;;GET THE Z2ERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO '‘C"

;.60 DO MSB
::FORM

THIS

DIGIT

::GET LSB OF THIS DIGIT
:;TYPE

THIS

;:BR [IF NO
;;GET RID OF
;;TEST FOR

DIGIT?

JUNK

;s SUPPRESS THIS 07
;iBR

YES

::DON'T SUPPRESS ANYMORE 0°'S
JoMAKE THIS DIGIT ASCII
;:MAKE ASCII IF NOT ALREADY
2 :SAVE FOR TYPING

;:GO TYPE

THIS DIGIT

::COUNT BY !

;:BR IF MORE T0 DO
J:BR IF DONE

2 INSURE LAST DIGI T ISN'T A BLANK
::6G0 DO THE LAST DIGIT

(ZR6CED RK611 DSKLS CTRL PRT3
TIR6CE.P11
27-AUG~81 10:24
7603

7604
7605

7606
7607
7608
7609
7610
7611
7612
7613

;g}g

046442

046444
046446

046450
046456
046460
046462
046463
046464
046465
046466

MACY11

012605
012604

012603

016666
012616
000002
000
000
000
000

L N
30(1046)
28-AUG-81
10:35
PAGE 142
BINARY TO OCTAL (ASCII) AND TYPE

6$:
000002

000004
8$:
$OCNT:
$OFILL:
$OMODE:

000000

MOV

(SP) +,RS
(SP)+.R4

MOV
MOV
RT]
BYTE
BYTE
.BYTE
.BYTE

2'SP) ,4(SP)
(SP)+. (SP)

MOV
MOV

_SBTTL

::RESTORE RS
L RESTORE Ré

(SP) +.R2

*RESTORE R3

0
0
0
0

: ;RETURN
*:STORAGE FOR ASCII DIGIT
*:TERMINATOR FOR TYPE ROUTINE
:;OCTAL DIGIT COUNTER
S2ERQ FILL SWITCH

J:SET

THE

STA(CK FOR RETURNING

NUMBER OF

DIGITS

CONVERT BINARY TO DECIMAL’AND TYPE ROUTINE

TYPE

7616

7617
7618
7619

*THIS ROUTINE IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A 5-DIGIT
*«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

7621

**REPLACED WITH SPACES.

7620

JwCALL:
o

;ggg

7626

046470

7629
7630
7631
7632

046474
046476
046500
046502

7633

7634

7635
7636
7637
7638
7639
7640
7641
7642

7643
7644

7645

046470
(046472

010046
010146

046506

016605

046512

046514
046516
046524
(46526
(046532
046536
046540
046544

046546
046550

046552

(010246
010346
010546
012746
100004

005405
112766
005000
012703
112723
005002
016001
160105

06010§
005702
001002
105716
100407

7652
7653

046570
046572

103003
116663

7655
7656

046604
(046610

7654

7657
7658

0100020
000001

046704
000040

052702

046612

005720

052702
110223

020027

1$:

046674

3%:

5¢
00000°

000060

000040

000010

177777

6$:
7$:

FIRST DIGIT OF

THE NUMBER.

LEADING ZEROS WILL ALWAYS BE

MOV

NUM, - (SP)

;2PUT

MOV
MOv

RO,=(SP)
R1,=-(SP)

::PUSH RO ON STACK
:JPUSH R1 ON STACK

MOV

20(SFP) RS

J:GET THE

TYPDS

BPL

106316

046600

046674

020200

000055

THE

MOv
MOV
MOV
MOV

000774

(046554
046556
046560
046562
046564

046566

$TYPDS:

002402
005202

7646
7647
7648
7649
7650

7651

2222223332223 22222322422232228422232222232222
222X RXREX RN RN

;*BEFORE

7622
7623

7627
7628

.WORD

SEQ C141

NEG
MOVR
(LR
MOV
MOVRB
CLR
MOV
SUB

R2,=(SP)
R3,-(SP)
R5.=(SP)
#20200,-(SP)
1%

RS
#'=,1(SP)
RO
#SDBLK RS
#' ,(R3)+
R2

THE BINARY NUMBER ON THE

::G0 TO THE ROUTINE

::PUSH R2 ON STACK
:;PUSH R3 ON STACK
S:PUSH RS ON STACK
;;SET BLANK SWITCH AND
;:RR

INPUT NUMBER

INPUT

SIGN

IS POS.

*:MAKE THE BINARY NUMBER POS.
;;MAKE THE ASCI] NUMBER NEG.
*22ERO THE CONSTANTS INDEX
J:SETUP THE OQUTPUT POINTER
J2SET THE FIRST CHARACTER TO A BLANK
*:CLEAR THE BCD NUMBER

BLT
INC

$DTBL (RO) ,R1
R1,RS
X
R?

ADD
TST
BNE
TSTR
BM]

R1.RS
R?
5§
SP)
7%

;;ADD BACK THE CONSTANT
;:CHECK IF BCD DIGIT=0
PIFALL THROUGH IF 0
S2STILL DOING LEADING 0°S?
S:BR IF YES

BC(
MOVB

6$
1(SP),-1(F3)

S:BR IF NO
LYES==SET THE SIGN

B8R

ASLB

3¢

(SP)

BIS

#'0.R2

(RO) +

8IS
MOvB

CMP

¥
R2

RO
(RS)O

RO, 410

STACK

P:GET THE CONSTANT
_:FORM THIS BCD DIGIT
* BR IF DONE
*INCREASE THE BCD DIGIT BY

LiMSD?

::MAKE THE BCD DIGIT ASCII

“IMAKE IT A SPACE IF NOT ALREADY A DIGIT
J2PUT THIS CHARACTER IN TKHE OULTPUT BUFFEFR

S JUST INCREMENTING
::CHECK THE

TABLE

INDEX

(ZR6CED Rk6171 DSKLS CTRL PRT3
27~AUG=-81 10:24

CZRO6CE.PIT
7659
7660
7661

7662

7663
7664
7665
7666

7667

7668
7669
7670
7671

7672

7673
7674
7675
7676
7677
7678

7679
7680
7681
7682
7683
7684
7685
7686

7687
7688

7689
7690
7691
7692
7693
7694
7665
7696
7697
7698
7699
7700
7701
7702

7703
7704
7705
7706
7707

7708
7709
7710
7711
7712
7713
7714

046620
046622
046624

MACY11

002746

046626

8%:

046630
046632
046634
04€642
046644
046646
046650
046652
046654
046656
046662
046670
046672
046674
046676
046700
046702
046704

MmN
30(1046)
28-AUG=81
10:35
PAGE 143
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

177777

046704
000002

177776

9% :

BLT
BGT
MOV
BR
TSTB
BPL
MOVB

2%
8%
RS,R2
6%
(SP)+
9%
«1(SP),=c(R3)

;:G0 DO THE NEXT DIGIT
J:GO0 TO EXIT
;:GET THE LSD
;.60 CHANGE TO ASCI!I
;:WAS THE LSD THE F]RST NON=-ZERC?
::BR IF NO
2:YES=-=SET THE SIGN FOR TYPING

MoV

(SP)+,R3

;;POP STACK INTO R3

CLRB
MoV

(R3)
(SP)+,RS

MOV
MOV
MOV

TYPE

. $DBLK

2(SP),4(SP)

MOV
RT]

$DTRL:

000004

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

MOV

000004

(SP)+,(SP)

10000.
1000.
100.
10.
&
.BLKW
TTY INPUT ROUTINE

$DBLK:
CSBTTL

SEQ 0142

2:SET THE TERMINATOR
:;POP STACK INTO RS

;:POP STACK INTO R2
:;POP STACZK INTO R1
;:POP STACK INTO RO

J:NOW TYPE

THE NUMBER

::ADJUST THE STACK
:;RETURN TO USER

":t*tttt*t*tfittttifittfittttti*tttttttitttfifiittfitttt'tttititttttttt

046714
046716
046720
046722

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKGOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=,

C00000
000000

000000
000001
046723
046724

0
0
O
1

;sNUMBER OF ITEMS [N QUEUE
;2 INPUT POINTER
;. OUTPUT POINTER
;:TTY KEYBOARD QUEUE

.EVEN

;*TK INITIALIZE ROUTINE
J*THIS ROUTINE WILL INITIALIZE

THE

TTY KEYBOARD

[NPUT QUEUE

J*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
;«CALL:

o
o*

046724
046730
046736
046744
046752
046760
046764
046772

046714
046722
046716
046774
000200
132162
000100

046716
046720
000060
000062

$TKIN

132152
;*TK

JSR
RE TURN

PC,STKINT

CLR
MOV
MoV
MOV
MOV
TST
MOV
RTS

$TKCNT
#STKQSRT,$TKQIN
$TKQIN.$TKQOUT
#STKSRV,d#TKVEC
#200,@#TKVEC+2
a$TKB
#100,28TKS
PC

SERVICE

::CLEAR COUNT OF ITEMS IN QUEUE
;:MOVE THE STARTING ADDRESS OF THE
;:;QUEUE INTC THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;;'BR' LEVEL 4
;sCLEAR DONE FLAG
:ENABLE TTY KEYBOARD INTERRUP~
::RETURN TO CALLER

ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE

CHARACTER FROM THE

INPUT BUFFER AND PUTTING

s+IT IN THE QUEUE.
;*]F THE CHARACTER IS A "'CONTROL=-C'' (*C)

STKINT

IS CALLED AND

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (CTRHLT)

(ZR6CEQ RK611 DSKLS CTRL PRI3

P11
TIRGCE.P

7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734
7735
7736
7737
7738
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

27-AUG-81

10:2¢4

117746

132146
177600
000021

066774

047000
047004
047010
047012
047014
047016
047016
047022
047024
04703)
047034
047036
047042
047046
047050
047056
047060
047060
047066
047070
047074
047076
047100
047104
047106
047112
047114
047120
047122
047126
047132
047136
047140
047146
047150
0467154
047160
047162
047166
047170
047174
047200
047204
047212
047214

047222

042716
021627
001002
005726
000002
021627
001007
104401

004737
005726
000137
021627
001004
022737
001500
022737
001004
104401

005726
000451
021627
001021
005077
005726

105777
100375
117746
042716

022627
001366
612777
000002
005237
021627
002405
021627
003002
042716

112677

005237
023727
001003
012737
000002

MACY11

30%:

7769

MOVB
BIC
(MP
BNE
TST
RTi

045630
000607

1%:

000176

001146

000001

046714

¢%:

JSR
TST
JMP
(MP

BNE
(MP

3%:

000023
132032
132024

$1%:

132020
177600
131776

046714
000740

32%:

000175

BNE
(LR
TST

TSTRB

BPL
MOVB

MOV
RT]

INC

C(MP

177516
046716
046716

046723

046722

244716

4%:

5¢%:

SP. 43

LICNTLC

PC,$TKINT

(SP)+
CTRHLT
(gP),#?

#SWREG, SWR

;1S IT A RANDOM XON?

; :BRANCH IF NO
;:CLEAN RANDOM XON OFF STA(K
; sRETURN
;.18 IT A CONTROL C?
s +BRANCH IF NO
;;TYPE A CONTROL=C

(*C)

;o INIT THE KEYBOARD
¢ CLEAN UP STA(CK
;. CONTROL C RESTART
;.15 IT A CONTROL G?
. sBRANCH IF NO
;1S SOFT-SWR SELECTED?
;.60 TO SWR CHANGE

:;EL§¢N (HARACTER OFF OF STACK

a$TKS
31$
a$TKB,-(SP)

(SP)+

;1S IT A CONTROL=-S?
;;BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
::;CLEAN CHAR OFF STAC(K
;:WAIT FOR A (CHAR
J:LO0P UNTIL ITS THERE
;:GET THE CHARACTER

318

;:1S IT A CONTROL=-Q?
;:BRANCH IF NO

;;RING

5%
(SP) 423
328
a%TKS

#*C177,(SP)
(SP)+, 421

#100,a8TKS

$TKCNT
(gP),l140

48
#40,(SP)
(SP)+,3$TKQIN

RT]

JsPICKUP THE (CHARACTER
;:STRIP THE JUNK

(SP)+

JEBELL

BGT
BIC

MOV

SEQ 0143

;:1S THE QUEUE FuLL?
;;BRANCH IF NO

MOVB
INC
CMP
BNE

164

BLT

CMP

000040

(SP)+

#1,8TKONT

BIC
(MP
BNE

000021

(SP), #$XON

CMP
BNE

(mMpP

PAGE

30$

B8R

N 11

A$TKB, = (SP)

BEQ

TYPE
TST

001204

10:35

RAC177.(5P)

(MP
TYPE

050122
046724

000100

INPUT RGUTINE

BNE

(SP) 4175

THE

TTY BELL

::MAKE

::REENABLE
: :RETURN

7-BIT ASCII

TTY KEYBOARD

INTERRUPTS

;:COUNT THIS CHARACTER
::1S 1T UPPER CASE?
;;BRANCH [F YES
;1S 1T A SPECIAL (HAR?

;;BRANCH IF YES
;;MAKE IT UPPER CASE

JoAND PUT IT IN QUEUE

$TKQIN
:JUPDATE THE POINTER
g;KQIN.#STKQEND ::60 OFF THE END?
::BRANCH IF NO
#$TKQSRT,$TKQIN J;RESET THE POINTER
; JRETURN

:"ttt'.t"tttt't.t.'tt"t'!'."t'fiti'.'iltfi'.'l.it.tt't"t.t."t.

;*SOFTWARE SWIT(CH REGISTER CHANGE ROUTINE.
s *ROUTINE

7768

7770

TTY

$TKSRV:

000003

28-AUG-81

30(1046)

0647224

022737

000176

30140

IS ENTERED

FROM THE

TRAP HANDLER,

AND WwlL

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWIT(H REC.STER TRAF
:eCALL WHEN OPERATING IN TTY INTERRUPT MODE
.
#SWREG, SWR
$CkSWR: (MP
;1S THE SOF T=SwR SELECTED

CZR6CED RK611 DSKLS CTRL PRT3
TIR6(E P11
27-AUG-81 10:24
77
7772

7773

7774

7775
7776
7777
7778

047232
047234
047240
047242
047246
047252
047256

001124
105777

100121
117746

042716
021627
001300

MACY11

BNE

TSTB
BPL
MOvVB

131704

131700
177600
0000607

BIC
CMP
BNE

7779

7780
7781

7782

7783
7784
7785

7786
7787
7788
7789
7790
7791
7792
7793
7794
7795

7796
7797
7798
7799
7800
7801
7802

7803

7804

7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822

7823

7824
7825
7826

30(1046)
28-AUG-81
TTY INPUT ROUTINE

047260
047266
047270
047272
047276
047302

123727

001674
005726
004737
005077
112737

001134
046724

131642
000001

104401
104401
013746
104402
104401

050134
050141
000176

105777
160375

131602

117746

047354
047360
047362
047366
047372
047400
047402
047410

021627
001015

047414
047420
047422
047426
047432

021627
001005

047434
047440
047442
047446
047450
047456

021627
001022
005766

047310
047314
047320
047324
047326
047332
047334
047336
047342
047344
047350

005046
005046

042716

104401

062706
123727
001003
012777
000137

104401

062706
000737

001403
016677
062706

000001

001135

PAGE

SEQ Q144

15%
as$TkKS
15
a$TKB,=(SP)

(SP) 47
2$
AR

AN R

NOT

A CHAR WAITING?
NOT, EXIT

#AC177,(SP)

AR AR AR

7-BIT ASCII
E IT
I T A CONTROL=G?

;.1F NOT, PUT IT IN THE TTY QUEUE
J;AND EXIT
AR R

ARAR A RN

R AR R RN

R R AR

*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
;*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
:
$AUTOB, 21
68
CMPB
;;ARE WE RUNNING IN AUTO-MODE?
Q
2%
BE
;sBRANCH IF YES
(SP)+
TST
;.CLEAR CONTROL-G OFF STACK
PC,STKINT
JSR
;;FLUSH THE TTY INPUT QUEUE
a8TKS
CLR
;:DISABLE TTY KEYBOARD INTERRUPTS
#1,8INTAG
MOVB
;:SET INTERRUPT MODE INDICATOR
$GTSWR:

050152

B 12

10:35

19%:

TYPE
TYPE
MOV
TYPOC

TYPE

LSCNTLG
. SMSWR

;sECHO THE CONTROL=G (*G)

SWREG,-(SP)

;o TYPE CURRENT CONTENTS
;. SAVE SWREG FOR TYPEOQUT

L SMNEW

;;PROMPT

;.60 TYPL--0CTAL ASCII(ALL DIGITS)
FOR NEW SWR

;. CLEAR COUNTER
;s THE NEW SWR
;s CHAR THERE?
IF NOT TRY AGAIN
;.

CLR
CLR

-(SP)
-(SP)
a$TKS
7%

131576

MOVB

@$TKB,~(SP)
#4C177,(SP)

;sPICK UP CHAR

000003

{mMp
BNE

(SP) 43

(MPB
BNE

SINTAG, #°
8$

;.18 IT A CONTROL-C?
:;BRANCH IF NOT
;. YES, ECHO CONTROL-C (*0O)
;s CLEAN UP STA(K
;;REENABLE TTY KEYBOARD INTERRUPTS?
2 :BRANCH IF NO
;;ALLOW TTY KEYBOARD INTERRUPTS
;: CONTROL=~C RESTART

7%:

177600

050122
000006
001135
000100
045630

TSTB
BPL

BIC

TYPE
ADD

000001
131534

8%:

MOv

JMP

#100,8TKS
CTRHLT

000025

9%:

050127
000006

CMP
BNE

(SP) ,#25
108

20%:

ADD

#6,SP

000015

10%:

000004
000002
000006

TYPE

(MP
BNE
TST

131462

BEQ
11¢:

MOV
ADD

LSCNTLU

19%

J;MAKE

IT 7-BIT ASCII

;IS IT A CONTROL-U?
;;BRANCH IF NOT
;. YES, ECHO CONTROL=-U (*U)
;. IGNORE PREVIOUS INPUT

;;LET'S TRY IT AGAIN
IS 1T A KCRY?

:;BRANCH IF NO
::YES, IS IT THE FIRST (HAR?
;.BRANCH IF YES

;. SAVE NEW SWR
;. CLEAR UP STA(K

7828
7829
7830
7831
7832
7833
7834

7835

7836
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849

047462
047466

047474
047476
047504
047506
047512
047516
047520
047524
047526
047532
047536
047540
047542
047544
047546
047552
047556
047560
047564

104401

123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266

056616
000667
104401
000720

001211
001135

000001

000100

131440

046120
000060
000067

000060
000062

000002

17%:

001210

18%:

177776

.DSABL
A

JSR
(mMP
BLT

ASL
ASL
ASL
INC
BIS

BR
TYPE
BR
LSB

2322222222322

JxCALL:

o*
it

7855

7856

7881

MOV
RT!

10:35

c 12

PAGE

146

SEQ 0145

;s ECHO <CR> AND <LF>
; ;RE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH [F NOT

,$CRLF

#1
$INTAC,

159
#100,28%TKS

s cRE-ENABLE TTY KBD INTERRUPTS

;JRETURN

;.ECHO CHAR

PC,STYPEC

::CHAR < 07?

(SP)
, 460

; sBRANCH [F YES

::CHAR > 7?

; JBRANCH IF YES
;:STRIP=0OFF ASCII

#60, (SP)+

::1S THIS THE FIRST (HAR
; :BRANCH [F YES
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
S
ROOM FOR NEW ONE.
A
J:KEEP COUNT OF C(HAR
;sSET IN NEW CHAR
;;GET THE NEXT ONE

2(SP)
17%
(SP)
(SP)
(SP)

2(SP)
=2(SP), (SP)
7%

. SQUES
20%

23R

202

2 TYPE

2<CRO<LF>

;s SIMULATE CONTROL-U

RSN

RRRARRRRR R

“*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTy

7854

7887

TYPE
(MPRB
BNE

BEQ

785¢
7853

7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880

14%:

{MP
BGT
B8IC
1ST

7850
7851

7857
7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868

30(1046)
28-AUG-81
TTY INPUT ROUTINE

JOUEN

7827

MACY11

[0,3¥,)
L X

(ZR6CED RK611 DSKLS CTRL PRT3
TIR6CE.PIT
27-AUG=-81 10:2¢

047566
047570
047576
047602
047604
047610
047612
047612
047616
047620
047624
047632
047636
047644

047646

047654

011046
016666
005066
005046
012746
000002

000004
000004

047612

005737
001775
005337

046714

00523/
023727
001003
012737
000002

046720
046720

117766

000002

046714

177070

046722

$<DCHR: MOV

1%:

046723
2%:

L(SP)
~(SP)

::GET READY FOR A (HARA(TER
;:PUT NEW PS ON STACK

MOV

#6468 ,-(SP)

::THE PS

:2PUT NEW PC ON

STA(K

::POP NEW PC AND PS

525

?;KCNT

::WAIT ON A CHARA(CTER

DEC

$TKLNT

::DECREMENT THE COUNTER

INC
(MP
BNE

:JUPDATE THE POINTER
$TKQOUT
$TKQOUT ,#STKQEND ;;DID IT GO OFF CF THE END?
2%
;JBRANCH IF NO

MOVR

000004

;sWITH PARITY BIT STRIPPED OFF
::PUSH DOWN THE PC AND

4(SP),2(SP)

RT]

::GET A CHARACTER FROM THE QUEJE
;s CHARACTER IS ON THE STACK

(SP) ,-(SP)

MOV

(LR
(LR

046720

RDCHR
RETURN HERE

MOV

RTI

a$TKQOUT ,4(SP)

#STKQSRT ,$TKQOUT

;:GET ONE

CHARACTER

;;RESET

THE POINTER

: ;RETURN

:;tttttttttttfittttt*tt.t'ttit'it'ttt.ttttti'ttifii'tttt'itiit'tttt

;*THIS ROUTINE wlLL INPUT A STRING FROM THE TTY

J+CALL:

M
;e
047656

010346

RDLIN

RETURN HERE

$RDL IN: MOV

R3,-(SP)

:;INPUT A STRING FROM THE

TTY

;;ADDRESS OF FIRST (HARACTER WILL BE ON THE STACK
:;TERMINATOR WILL BE A BYTE QOF ALL 0°'S
::SAVE R3

(ZR6CED RkAHTT DSKLS CTRL PRI
CIR6CE.PI
27-AUG-81 10:24
7883
7886
7885

047660
047662
047666

005046
012703
022703

050112
050122

7886
7887
7888

047672
047674
047676

7890
7891

047704
047706

001022
005716

7893

047712

112737

000134

7895

047724

012716

177777

7897

047732

020327

7889
7892

7894

7896

7898
7899
7900
7901
7902
7903
7904
7905
7906
7907

7908
7909
7910

7911

7912
7913
7914
7915
7916
7917
7918
7619
7920
7921
7922

047700
047710

047720
047730

047736
047740
047744
047750

047752
047754
047756
047764
04777C¢
047772

047776
050000
050004

050006

101456
104410
112613

122713

001007

1044017

005303

103434
111337
104401
(000746
005716
001406
112737
104401
005016
122713

001003
1044017

000726

000025

7%:

050127

122723

105063
104401

177777
001212

7925
7926
7927
7928
7929
7930

050064
050066
(050070
050072
050100
050106

005726
012603
011646
016666
012766
000002

7933
7934
7935
7936
7937

050112
(050122
050127
050134
(050141

0006010
041536
136
043536
015

050146

050110

050110
050110
000015

001305

7938

000134
0S0110

4%:

050052

050110
050111

5¢:

001210

000712
1711337
104401

7931
7932

050110
050110

104401

050034
(050036
050042

050054
050060

6$:

050112

8%:

000002
000004

000
000

036440

9% :
005015
006525
005015
051412

000040

8LOS
RDCHR
MOVR

000
000012
000
051127

$"TYIN:
SCNTLC:
$CNTLU:
S$CNTLG:
$MSWR:

10:35

D 12
PAGE 147

=-(SP)
#STTYIN,R3
#STTYIN+8, ,R3

SEQ 0146

;:CLEAR THE RUBOQOUT KEY
;:GET ADDRESS
;J:BUFFER FULL?

(SP)+,(R3)

::BR IF YES
;:G0D READ ONE CHARACTER
:;GET (HARACTER

5%
(SP)

JiBR IF NO
;21S THIS THE

(MPR

#177,(R3,

BNE

BNE
TST

;iBR

MOV

#=-1,(5P)

;:SET THE RUBOUT KEY

(MP

R3,A#$TTYIN

;iSTACK EMPTY?

48
(R3),9%
,9%

TST
BFQ
MOVB
TYPE
CLR
(MPR

(SP)
7%
#'\,9%
,9%
(SP)
#25,(R3)

BNE TYPE
BR

::BACKUP BY ONE

;:BR IF YES
JISETUP TO TYPEOUT
;:G0 TYPE

;G0 READ

TYPE
TYPE

,$CRLF
LSTTYIN

;:BR IF NO
J:TYPE A CONTROL "'V
;:G0 START

QVER

;:1S CHARACTER A 'TMR'TM

;sBRANCH IF
;:CLEAR THE

B8R

;G0 PICKUP ANOTHER

BR
MOVR
TYPE

1%
(R3),9%
,9%

;sCLEAR THE BUFFER AND
;:ECHO THE CHARACTER

J:TYPE
2. TYPE

,$QUES

NO
CHARACTER

A ''CR B ULFTM
THE INPUT STRING

J:TYPE A

(MPB

#15,(R3)+

:;CHECK FOR RETURN

(LRB
TYPE

-1(R3)
JSLF

;sCLEAR RETURN (THE
;;TYPE A LINE FEED

TST
MOV
MOV
MOV
MOV
RT]

(SP)+
(SP)+ ,R3
(SP) ,-(SP)
4L(SP) ,2(SP)
0srrv1~ L(SP)

.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

8.
/*(/<15><12>
/74U/<15><12>
/%G/<15><12>
<15><12>/SWR =

.BYTE
.BYTE

(HAR.

3%
(R3)

TYPE

DELETED

;;CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?

#22,(R3)

ANOTHER

THE

:;RUBOUT KEY SET?
;.BR IF NO
;. TYPE A BACK SLASH

8%
JSCNTLUY

(MPB

BNE
CLRB

;2TYPE A BACK SLASH

,9%

BLO
MOVR
TYPE

FIRST RUROUT?

#£'\,9%

DEC

FROM THE

;;1S IT A RUBOUT

MOVB

BNE

,
000004
050112

(LR
mov
(MP

TYPE

001211
050112

000717

7923
7924

0501°'C

104401
104401

050026

050046

10%:

000022

001011
105013

050030

1%:
2%:

000177

050110

30(1046)
28-AUG-81
TTY INPUT ROUTINE

122713

050012
050014

050016
050022

WMA(CY1T

::LOOP

NOT

RETURN

CHACTER
LOOP

15)

2 CLEAN RUBQUT KEY FROM THE STACK
:;RESTORE R32
;;ADJUST THE STACK AND PUT ADDRESS OfF
)
FIRST ASCII CHARACTER ON I

; :RETURN

0
0

;o STORAGE FOR ASCI! (HAR,
::TERMINATOR
J;RESERVE 8 BYTES FOR TTY
JJCONTROL ‘'
::CONTROL 'V
;CONTROL ''GTM'

TO TY=E
[NPUT

THE

CIR6CED RKO611 DSKLS CTRL PRT3
CZRECE.PN
27-AUG=81 10:24
7939

7940

7941
7942
7943
7944
7945

50152

0 160

020040

02007¢
050164

042318

30(1046)

28-AuG-81

020127

SMNEw:

.ASCIZ

EVEN
_SBTTL

READ AN OCTAL NUMBER FROM THE

7969
7970
7971

7972

7973
7974
7675

;«CALL:

b
i

SEQ (0147

NEW =/

WILL

READ

TO BINARY,

AN OCTAL

AN ILLEGAL

RETYPED.

THE

INPUT

RDOCT

RETURN HERE

- %

050164
050166
050174
050176
050200
050202
050204
050206
050212
050214
050216
050220
050222
050226
050230
050234
050236
050240
050242

000004

000002

$RDOCT:

050312
’s:

000060

000067

177770

7982

000012
050322

7983
7984

3%:

001210
000000

MOV
MOV
CLR

(SP)+ ,RC
RO,5%
R1

RDLIN

(LR
MOVR
BEQ
(MPB
BGT
(MPB
BLT

TTY

(ASCII)

NUMBER

FROM

THE

TTY

CHARA(CTER IS READ A ''7"" Wl
L BE

AND

$4I0CT:

R2
(RO)+,=-(SP)
3%
#'0, (SP)
4%
#8'7,(5P)
4

TERMINATED BY

TYPING A

;:PROVIDE

SPACE

FOR

;s INPUT NUMBER

;:READ AN ASCIZ LINE
;;GET ADDRESS OF 1ST (HARA(TER
J;AND SAVE IT
;. CLEAR DATA WORD

;sPICKUP THIS CHARACTER
1F ZERO GET OQUT
..
2 sMAKE

SURE

THIS

CHARACTER

;IS AN OCTAL DIGIT

(SP)+ R

::ADD IN THIS DIGIT
;. LO00P

2%
(SP)+
R1,12(SP)

:3CLEAN TERMINATOR FROM STA(K
;;SAVE THE RESULT

(SP)
e

;cPOP STACK INTO R2
;:POP STACK INTO R1
::POP STACK INTO RO
::RETURN
;s CLEAN PART ;AL FROM STA(K

LWORD

1%
O

.WORD

;o8
;sSTRIP THE ASCII

(RO)

TYPE

nrC7,(SP)

(LRB
TYPE

THE

;:PUSH RO ON STACK
:;PUSH R1 ON STACK
;:PUSH R2 ON STACK

ADD

R2,$HIOCT
(SP)
¢+ ,R?
(SP)+,R1
(SP)+ RO

L3QUES

RETURN.

;:LOW ORDER BITS ARE ON TOP OF THE STACK
;sHIGH ORDER BITS ARE IN $HIOCTM

;%2

RT]

(CARRIAGE

;.READ AN OCTAL NUMBER

R1
R2
R1
RZ
R1
R2

BR
TST
MOV

TYPED

THE COMPLETE NUMBER MUST

ASL
ROL
ASL
ROL
ASL
RGL

MOV
MOV
MOV
MOV

4%:

7989

MOV

(SP),=(SP)
4(SP) ,2(SP)
RO,=(SP)
R1,=-(SP)
R2.=-(SP)

BIC

7985

7986
/987
7988

MOV
MOV

1¢:

7977
7978
7679
7980
7981

7964

;*THEN BE

7976

7690
7991
7992
7993

148

:*FOLLOWED BY A CARRIAGE RETURN=-LINE FEED.

7953

7967
7968

PAGE

INPUT (HARACTERS WILL BE CHECKED TO INSURED ‘THEY ARE LEGAL

;*OCTAL DIGITS.

7951
7952

7965

ROUTINE

:*(HANGE

7950

7966

INPUT ROUTINE

$*THE

7948
7949

7961
7962
7963
7964

10:35

':ll’*'fit"i.fififi'tfi*fi"""t'itfitfitt!tlfit..tttltt.t*t'Q.tt""".'

7947

/958
7959
79450

TTY

;*THIS

7946

7954
7955
7956
7957

E 12

MACY11

J:SET A TERMINATOR

;sTYPE
-

ll,ll

llcR..

THRU
z

THE

JUNK

BAD

(HAR.

IOLF.I

,,YRY AGAIN
;sHIGH ORDER BITS GO WEKE

TIR6CED RK6'T DSKLS CTRL PRT3

TIR6CE.PIY

27=AUG=81 1J:24

MA(VY11 30(1046)

28-AuG=-81

F 12

PAGE 149

10:35

SEG (148

SAVE AND RESTORE RO=R5 ROUTINES
.SBTTL

7995

SAVE AND RESTORE RO-R5 ROUTINES

7996
7997

;;tt.t'!tfi'ttt'tttt"tt!""Qttt'.'tt.ttt'ttt.t.t.'t'tQQQ"ttt'tt

7999

;eCALL:

;*SAVE RO=RS

7998

SAVREG
M
FROM $SAVREG THE STACK WILL LOOK LIKE:
RETURN
;*UPON

8000
8001
8002
8003
8004
8005
8006
8007
8008
8009
8010
8011

8012
8013
8014
8015
8016
8017
8618
80i9
8020
8021
8022
8023

8024
8025
8026
8027
8028

8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041
8042

8043
8044
8045
8046
8047
8048
8049
8650

- %

)

SaTQP===(+16)

T +2e==(+18)
;v +4===RS

e6===-RL

;v +8--=R3

;*+10=--=R2
J*+12-==R1
;v+14--=R0

050324
050324
050326
050330
050332
050334
050336
050340
050344
050350
050354
050360

$SAVREG:

MOV
Mov

Mnv
MOV
MOV
MOV

MOV
MOy
MOv
g?y

000022
000022
000022
000022

RO,~(SP)
R1,-(SP)

R2.=-(SP)
R3,-(SP)
R&4 ,=~(SP)
RS ,=(SP)
22(SP) ,~(SP)
22(SP) ,~(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;;PUSH RO ON STA(K
;sPUSH R1 ON STAC(K

;.PUSH
;;PUSH
;;PUSH
;;PUSH
;;SAVE
2 SAVE
;sSAVE
;:SAVE

R2
R3
R4
RS
PS
PC
PS
PC

ON
ON
ON
ON
OF
OF
OF
OF

STA(K
STA(K
STA(K
STA(K

MAIN FLOW
MAIN FLOW
CALL
C(ALL

;*RESTORE RO-RS
J*CALL:

050362
050362
050366
050372
050376
050400
050404
050406
050410
050412
050414
050416

000022
000022
000022
000022

J*
RESREG
SRESREG:

)
'

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+,22!SP)
(SP)+,22(SP)
(SP)+,22¢SP)
(SP) + RS
(SP)+ R4
(SP)+,R3
(SP)+,R?

;.RESTORE P( OF (ALL
;JRESTORE PS OF CALL
;oRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
;.POP STACK INTO R4
;;POP STACK INTO R3
;.POP STACK INTO RZ

E?Y

(SP)+ RO

;;POP STACK INTO RO

MOV

.58TTL

(SP)+ ,R1

;;POP STA(K INTO R!

POWER DOWN AND UP RCUTINE

:;'t"tit!.t".'..'ti"""".'t'tl..t'.'t.."""i""l't'."'n'

050420
050426
050434
050442
050444

130574
050446
000340

003634
000024
(0002

.POWER DOWN ROUTINE
$PWRDN: MOV
aSWR, SAVSWR
MOV
#$PWRUP ,PWRVEC
MgvT
#PR7 ,PWRVE(+?2
HAL

;HANG UP

;SAVE SWITCH REGISTER
;SET UP VECTOR

CIRGCED ROV DSKLS CTRL PRTTMS
27=AuG=81 10:24

TIR6(E P

NV N NN
O NN

D
S OO
B (D
-

NN N

(O, LV

050536
000144
050536

050420
000340
001109
050542
003634
001270
130350

(e Len ]

OO0OO0OCO0O

Y LV R,V
AV, NES » S &~
=O~~
O~NNOOO al
O~
RSN
O ny

mmmmmmgwmmmmm
OO o

OOOOO0OVOOOOOD

0646

000000
042527

8071

050540

1%:

(LR

PAGE

$PWR(T
#100.,9PWR(T+2

MOV

$PWR(T

INC
BNE
DEC
BNE

0000c¢
0000co

150

SEG (149

1%
#$PWRDN,PWRVE(
#PR7 ,PWRVE(+2
NSTACK,SP

. SPOWER

SAVSWR ,aSWR

$BASE ,R?
A$LPADR

JmP

000122

$PWR(T:
$POWER:

.SBTTL

sLOAD WAIT COUNT
JWAIT FOR TELETYPE

$SPWR(T+?2

MOV
MOV
MOV
TYPE
MOV
MOV

130412

;GO BACK

0.0
/POWER/
LASCIZ
.FVEN
TRAP DE(CODER
.WORD

JSET UP FOR POWER DOWN VECTOR

;FORCE STACK

;TYPE POWER
JRESTORE SWITCH REGISTER

JREINITIALISE R2 FOR '611 BASE
TO LAST

TEST

JTELETYPE

CAANARARANAANERAANRANNAR
AN
TTAEARNNNAACARNRN

TIME

OUT

AN ARARRTARAINTOARROINIOERNRD

S*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF ThE '‘TRAP'' INSTRUCTION
;*AND

USE

INDEX

THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
ROUTINE. THEN UISING THE ADDRESS OBTAINED IT WitL

;*0F THE DESIRED
:*GO TO THAT ROUTINE.

8078

8079

010046
016600
005740

0170002

006300
016000
000200

050604

$TRAP:

111000

050570

RO,-(SP)
2(SP) ,RO
-(RO)
(RO) ,RO
RO
$TR(R0O)
PAD
,R0
RO

MOV
MOV
TST
MOVB
ASL
MOV
RTS

;s SAVE RO
::GET TRAP ADDRESS

; ;BACKUP BY ?

;:GET RIGHT BYTE OF TRAP
2;POSITION FOR INDEXING
;s INDEX TO TABLE
;.60 TO ROUTINE

;o THIS IS USE TO HANDLE THE "'GETPRI'' MA(RO
011646
016666
000002

8095

000004

000002

$TRAP?: MOV

(5P) ,=(SP)

MOv

L(SP) ,2(SP)

RTI

.SBTTL

TRAP

;;MOVE THE P( DOWN
;.MOVE

THE

PSW DOWN

;cRESTORE

THE

PSW

TABLE

s*TH]S TABLE CONTAINS THE STARTING ADDRESSES OF

:*BY THE "'TRAP'' INSTRUCTION.

THE ROUTINES C(ALLED

TTY

BF o 3
OQOOOO
£ D
—
E

TRAP ¢4

TRAP+3

s CALL=TYPON

s CALL=TYPOS

OO0
ol
o ol o

TRAP+
TRAP+

—

$TRAP?
;o CALL=TYPE
s CALL=TYPG(

)

$TRPAD: .

050572
045706
046266
046242
046302

ROUT INE

050572
05¢574
050602

—

8094

$PWRUP:

050540

8077

8093

POWER DOWN AND UP ROUTINE

G 12

:POWER UP ROUTINE

8072
8073
8074
8075
8076

8080
8081
8082
8083
8084
8085
8086
8087
8088
8089
809C
8091
8092

10:35

8C56
8057
8058
8059
8060
8061
8062
863
8064
8065
8066
8067
8068
8069
8070

28-AuUG-81

'.'Q".'Q.'Q.Q‘.tlt..'0'"'t'Q.'QQ.Q'Q'Q'.Q'."Q"QQ"..'.t'..'...

8051
8052
8053
8054
8055

MACY1T

30(1046)

TYPE

TYPEOUT ROUTINE
OCTAL

NUMBER

TYPE OCTAL NUMBER

TYPE

OUTAL

NUMBER

(Ww]lTH LEADING ZERCS:

(NC LEADINy ZEROS)

(AS

PER

LAST

CAL_
)

. O
©
-0
-

o>
»
s
DD
A —dd
D
d
-

- d 2
md
=2 OQOOO
NOC N W=
O 00N

30 00 00 00 00 O 00 00 00 0o 30

N~
Pegp
o]

KLS CTRL PRT3

~AUG=-81

10:24

MACYTY

30(1046)
28=AuG- 81
TRAP TABLE

10:35

H 12
PAGE 151

SEa C150

050616

04647C

$TYPDS

::CALL=TYPDS

TRAP+5(104405)

TYPE DECIMAL

050620

0e7314

$GTSWR

;s CALL=CTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

050622
050624
050626
050630
050632
050634
050¢€36

0467226
047566
047656
050164
050324
050362
044654

$CKSWR
$RDCHR
$SRCLIN
$RDOCT
$SAVREG
$RESREG
SCOP1$

JoCALL=(KSWR
;s CALL=RDCHR
2 ;CALL=RLLIN
s+ CALL=RDOCT
s s CALL=SAVREG

TRAP+7(104407)
TEST FOR CHANGE IN SOF T=SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) SAVE RO-R5 ROUTINE
TRAP+14(1046414) RESTORE RO-RS ROUTINE
TRAP+15(104415) INTERNAL LOOP ON ERROK

;s CALL=RESREG

;. CALL=SCOPT

NUMBER

(WITHM SIGN)

001220
003440
001220
003462
001220
003440
003624
001220
003440
003514
003504

WMACY1T

112
PAGE 152

DATA TABLE FOR PRINT QuUT

DTO00:
DTOOT:

.WORD
.WwORD

STESTN,TRAPP(
$TESTN.SERRPC,E.CST,T.CS7,E.MR2,T.MR2,E.MR3,T
MR3

003500

DTO15:

.WGRD

$TESTN,$ERRPC,E.CS1,T.CST

003524
003616
)
003500
003444

DTO17:

.WORD

STESTA,SERRPC,E.MR1,T.MR',PR.BIT,M1.BI1,8I1TCNT

DT022:

.WORD

STESTN,$ERRPC,E.CS1,T.CST,E.BA,T.BA,E.W(,T.W(

003524

DT025:

.WORD

STESTN,SERRPC,E.MR1,T.MR1,BITCNT

003500
(03444
003524

DTO31:

.WORD

STESTN,$ERRPC,E.CS1,T.CST.E.BA,”.BA,E.WC,T.WC,E.MRT,
T MRT

00111¢
003510
003444
003442
007116

003500
003450

DTO35:

.WORD

STESTN,SERRPC,E.CST,T.CS1,E.CS2.7.CS2,E.BA,T.BA

003522

DT041:

.WORD
.WORD

E.WC,T.W(
STESTN.SERRPC.E.DB,T.DB

001116
003510
001116
003624
001116
003510

003500
003450
003522

DT04Z:

.WORD

STESTN.SERRPC,E.CS!,T.CS1.E.CS2.T.(S2

DIOS%:

.WORD

STESTN,SERRPC.E.DB.T.DB.WRDCNT

003500
003450

DT055:

.WORD

STESTN,SERRPC.E.CS1.T.CS1.E.CS2.T.CS2,WRDCNT

001116
003510
003454
003444

003500
003450

DT072:

.WORD

STESTN,SERRPC.E.(SH.T.CS1.E.CS2.T.CS2.E.ER,T.ER

003502

JWORD

E.BA,T.BA.E.WC.T.WC

003500 DT07":

.WORD

STESTN,SERRPC.E.CS1,T.CS1.E.CS2.T.CS2

DT150:

.WORD

STESTN,SERRPC.E.CS1,T.CS1,WRDCNT.BITCNT

DT164:

.WORD

STESTN,SERRPC,E.(S1,T.{S1,E.CS2,T.CS1,BITCNT

DT17C:

.WORD

$TESTN,SERRP(,E.MR1,T_MR1,P1.BIT,PR.BIT
M1 BIT M2 3T BITCNT, SECCNT

003604
001116
003526
00370
001116
001116
003614
001116
003504
003442
001116
003622
001116
003504
003442

003500
003466

003616

003620

003622

007220

001116

003524

DT17':

.WORD

STESTN,SERRPC.E.MR1,T.MRI

001220
003440

001116
003510
003452

003500
003450
003514

DT175:

.WORD

STESTN,SERRPC,E.CST,T.CS1,E.CS2.1.CS2.E.DS.T.DS.E.ER,T.ER

001116

203500

DT211:

_WORD

STESIN,$ERRPC,E.CS?,T.(ST1,E.CS2,7.CS2,E.DS,T.DS.E
BR, T ER

(o)

&»H

—

88%2‘122

003450
003500
003622
003500
003440

o
D

003510
001116 6
003 624
001; 8
003

003440
001220
003440
001220
003440
003622

30(1046)
28-AUG~81
10:35
DATA TABLE FOR PRINT QUT
.SBTTL

001220 00171€

B
NN
= 2 OO OV NWNEWWNON
22O
OB
ONMNONION RO
OONIS OO S

BONUNURURNUNUNONOND
cd =t —8 0 b 2 b s —d b =k

ld trd

)

d -

[

AN A VNN N U

AVTA VT

(o]

&
(e]

051024
051032
i
051046
051052
051060
051066
1070
076

003464
001220
003440
003504
003502
001229

050766
050770
050776
051004
051010
03101

001220
001220
003440
003530
001220
003440
001220
003464
003622
001220
003440
003502
001220
003464
001220
003440
003502

050640
050644
050652
050660
050664
050672
050674
050702
050710
050712
050720
050726
050732
050740
050744
050752
050760

nlelelolelalololelelelololslololelolelelelolel

d —
d wd
o
ad
b
_ped
ok
gD o
D
D epmd

podt hd
o

SNINN PO
WM = O VOIS W

B ok
b

Db —d =Dl

NNNANY NTVNAWVIANE S
B SE BT BB WWWWWWINWIWILWNNI N RO NN NN AN TY — —
O OO NO NS WA= O OO NN
W= O 00N NS W
200~y
NS W= OO oo

000 00 O 00 On 00 G 0O On 00 OC Ko N O 0o Yo 00 On G0 O¢ Po 0o 0o K 30 (o GO Co 00 G0 0L 00 O Ko 0O 0o OB CB OV o 00 0O X 00 G0 Ko 0o Co 0o O Yo 00 0O 0o oo

CIRGCEC RK611 DSKLS CTRL PRI3
JIR6(E.PY?
27=AuG=81 10:24

SEG 0151

CIRECED RKO1Y DSKLS CTRL PRIZ
TIRGLE.P
27=AUG=81 10:24
51254
91262
51270
51272
51300

003440
003512
003454
003540
003554

MACYT1

003510
003452

00345C
003514

003550

003552

30(1046)
28-AUG~81
10:35
DATA TABLE FOR PRINT QuT

.WORD

J 12
PAGE 153

P.(S1,F."S2,P.DS,P.ER

SEQ 0152

C2R6CED RK611 DSKLS CTRL PRT3S

CZR6CE.P11

27=ALG=B1 19:24

g}gg
8181
8182
8183
8184
8185
8186
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211

051302
051304
(51306
051310
051312
051314
051316
051320
051322
051324
051326
051330
051332
051334
051336
051340
051342
051344
051346
051350
051352
051354
051356
051360
051362
051364
057366
351370
051372
051374
(051376

000001
002
000005
000
052467
000
052505
002
052551
000
052630
006
000005
000
052467
000
052505
002
052707
000
052726
002
000005
000
052467
000
052505
002
052744
000
053010

8213

051402

000005

051406
051410
051412
051414
051416
051420
051422
051424
051426
051430
051432
051434
051436
051449
051442
051444
051446
051450

052467
000
052505
002
053056
000
053135
006
000005
000
052467
000
052505
002
053212
000
053236
003

8212
8214

8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232

8233
8234

05400
051404

051452
051454

000
00

.WORD
BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
LBYTE
.WORD
BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYJE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD

DFO01:

DFO15:

000
000

000

DF017:

000
0C0
000
000

000

DF022:

000
000
000
000

000

DFO25:

000
000
000

000
000

PAGE 154

DFO00:

000

K 12

DATA FORMAT FOR PRINT OuT

060

000

10:35

LSBTTL

000

28-AUG-81

DATA FQORMAT fFOR PRINT QuUT

000

005

000005
000

MACY11 30(1046)

DFO31:

1
2.0
5
0.0
DHQOO0A
0,0
DKO00&
2,0
DHOO1A
0,0
DH001B
6,0

:ERRORS 15=16

:ERROR 17=21

:ERROR 22-24

0,0
DHO00A
0,0
DHO00B
2,0
DHO15A
0,0
DHO15B
2,0

.BYTE

0.0
DHQO00A
0,0
DHQO00B
2.0
DHO17A
0,0
DHO178
5,0

BYTE

0.0

.WORD

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

_WORD
BYTE

:ERRORS 1-14

DHQ00A
0.0
DHOO0B
2,0
DHQZ22A
0,0
DHOZ2ZB
6.0
S
0,0
DHOQ0A
0,0
DHOO0B
2,0
DHOZ25A
0.0
DHQ?5B
3.0

5§
0,0

:ERROR 25

;ERROR 31-34

SEQ 0153

CZR6CED RKk611 DSKLS CTRL PRT3
CZR6CE.PIT
27-AUG=-81 10:24
8235
8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258

051456
051460
051462
051464
051466
051470
051472
051474
051476
051500
051502
031504
051506
051510
051512
051514
051516
051520
051522
051524
051526
051530
051532
051534

05¢467
000
052505
002
0532€4
000
053363
010
000005
000
052467
000
052505
002
053461
000
053560
010
000005
000
052467
000
052505
002

MACY11

10:35
30(1046)
28~-AUG-81
DATA FORMAT FOR PRINT QuT

000
000
¢00

000
000

DFO35:

060
000
000

000

000
000

000

DFO4':

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

DHO00A
0,0
DH0O00B
2.0
DHO31A
0,0
DHO31B

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

5
0,0
DHOO00A
0.0
DHO00B
2.0

L 12
PAGE

155

;ERRORS 35-40

DHO35A

0.0
DH035B
8..,0
5
0.0
DHOO00A
0.0
DH0OQ0B
2.0

JERROR 41

SEQ 0154

b o)
D
—ed
) ed
e
b
D
D
e
b
oD
b
b ed md
d
D
aed ed mad
e
D
—

IV IV, TV LV L1V
[oaY o Yo Ne Yo Yo O\ ONOM N YN AL ULV
N = =
b d [ OOONNNNOOO o VA
P
VY
o
[op}
N
To
W
N
VTaTe
Wt
V]
OB
NVOCNSNO
O
OONSMNVO

OO0 OOOOOOOOOCOOOOOOOCOOOOO

(W LV IV, W AW LW LW, AV, VRV LW, R, AV L0, LU AV, U AU RV LU R L

051622

053655
000
053672
002
000005
000
052467

(94

.—

VL VY
(VL T

IR I

e e s e e e

IV I
I
I

L=
o

s e

I
N

—

sSsrOO

e e e

NNNYN

000
000
000

002
053707
000
053746
004
000005
000
052467
000
052505
002
054004
000
054031
003
000005
000
052467
000
052505

000

054057
000
054124
005
000007
000
052467
000
052505
002
054172
000
054231
004
056267
000
054346
006
000007
000
052467
000
052505
002
054172
000

MACY11

10:35
30(1046)
28-AUG-81
DATA FORMAT FOR PRINT 0QuUT

000

052505

002

8273
8274

8269
8270
8271
8272

8265
8266
8267
8268

8264

elelelalaleololelelelelololelololelolele
e

8259
8260
8261
8262
8263

AV RV, [V, IV, |

CZR6CEQ RK611 DSKLS CTRL PRT3
CIR6CE P11
27-AUG=-81 10:2¢4

DFQO42:

000
000
000

DFOS54:

000

000
000

000

DFO55:

000

DFO72:

000
000
000

000
000

000
00C
000

000
600

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

.WORD
BYTE
.WORD
BYTE
.WORD

000

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

DFO77:

.BYTE

DHO4TA
0.0
DHO41B
P
5
0.0
DHO00A
0.0
DHO00E
2.0
DHO&2A
0,0
DHO42B
4,0
5
0,0
DHO00A
0.0
DHO00B
2.0
DHOS4A

0,0
DHO548B
3.0
5
0.0
DHO00A
0.0

DH000B
2,0
DHOS55A
0.0
DHO558
.

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

0,0
DHOO0A
0.0
DHO00B
2.0
DHO72A
0.0
DHO728
4,0
DHO72C
0.0
DHQO72D

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

0.0
DHOO0A
0.0
DHOO0B
2.0
DHC72A
0,0'v

.BYTE

M 12
PAGE

156

;ERRORS 42-43

;ERROR 54

;ERROR 55

SEQ 0155

000

DF171:

000

000
000
000

.BYTE

.WORD

DF175:

000

. WORD

00¢

000

000
000

.WORD
.BYTE
.WORD
.BYTE
.WORD

. WORD
DF211:

BYTE

.WORD
.BYTE
.wORD
LHYTE

o
>

o
>
o
@©

o
p-

o
x>

[v.0]

o
>
o

000

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTF
.WORD
.BYTE
.WORD
BYTE
.WORD
BYTE
.wJRD

000

JERROR 170

;ERRORS 171-174
>

000

.BYTE
.WORD
BYTE

DF170:

000

[an]

000

—

000

000005
000
052467
000
052505

000

JERROR 164

000

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

——

000

052505
002
054515
000
054561
005

DF1k4:

JERRORS 175-210
>

000

SEQ 0156

JERROR 150

052006
052010
052012
052014
052016
052020
052022
052024
052026
052030
05203¢
052034
052036
052040
052042
052044
052046
052050
052052
052054
052056
052060
052062
052064
0520¢6
052070
052072
052074

000

157

8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8263
8364
8365
8366
8367
8368
83¢9
B370

052002
052004

000

052467

DF150:

PAGE

DHO/28B

8341
8342

000

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

N 12

051746
051750
051752
051754
051756
051760
051762
051764
051766
051770
051772
051774
051776
052000

051744

000

(&)
) ]

8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340

8326

054231
004
000005
000
052467
000
052505
002
054423
000
054457
004
000005

051716
051720
051722
051724
051726
051730
051732
051734
051736
051740
051742

10:35
28-AUG-81
DATA FORMAT FOR PRINT OLT

30(1046)

p o]

8315
8316
8317
8318
8319
8320
8321
8322
8323
8324
8325

MACY11

DOUVO NI OONODODOWVMINND
OO COVEOODNTDODONNTDODNTDODOVNIDOTNDODOWMS
L)
.
.
s
I~
s
X~
I
I~
I~
X
»
I.
a
X
b&
v
LSOO OO0O00
O—-O—=OQOOO00
O—2O0O—=00000
Q= QO —= OO0 O
OO
&
2O -200000
wviow
o
o
(e]
o
O
o
o
o
o~
N
o
~N
N
O
©
ON
N
O
<

(ZR6CEQ RK611 DSKLS CTRL PRT3
TIR6CE.P1T
27-AuG-81 10:24

;ERRORS 211<214

CZR6CED RK611 DSKLS CTRL PRT3

TIR6CE.P11

27-AUG=81 10:24

8371
8372
8373
8374
8375
8376

052076
052100
052102
052104
052106
052110

052505
002
055061
000
055160
010

8378
8379
8380

052114
052116
052120

000
055303
004

8377 052112

055255

200

000
600
000
000

MACY11 30(1046)

28-AUG-81

10:35

DATA FORMAT FOR PRINT OUT
.WORD
BYTE
"WORD
BYTE
"WORD
BYTE

"WORD

BYTE
"WORD
BYTE

DH000B
2.0
DH175A
0,
DH1758
8.,0

DH2T1A
0.0
DH211B
4,0

B 13

PAGE 158

SEQ 0157

MACY11

MESSAGES

LSBTTL

ASCII

.ASCIZ

€13
PAGE 159

/RK611

VECTOR ADDRESS

OPRN04:

/RK611

PRIORITY

VNO —=—Wninun—

OCODONNNIOO—
VO WVISNONOWNES
2Ny

OO0OO0OODOO0OOO
S
P
IV LY
NOMNIN-=O
=W

025052
050040
046501
042524
025052
005015

O
(LI
—

NS NWS
WVINUO NV

[
(e

<15><12>/RK611

)

VECTOR ADDRESS

(

OPROO6:

<15><12>/2ND PASS RUN

TIME

IS APPROX

OPROO7:

LASCIZ

<€155<12>/vwwan

:
ABORT

SPACEZ:

LASCIZ
ASCIZ

/7
<15><12>/PROGRAM ABORTED BECAUSE

TSTBY1:

LASCIZ

<15><12>/TEST

TSTBYZ2:

LASCI2Z

/ BYPASSED/<15><12>

13 MINUTES/<15><12>

005015

o0
[
WV
OV
—N)
VIO

VIO

—=O0OW

Q&N

NOO

046

OO
NNO
= NNON

047
046

= NOOOI
N
N
OOOQO == O—=NOON—=NES

e VNN S WNWN

o~ WS OON

=2 O OO NN

S NOONSSONOoONSCNONS
oS NEONON

FORLNLNLALNLNLNLNL
AL NN NININL NN AL NN PLNINININLNL NV NV NN PN
AN N LA NN NN N N W NN PO PO RO NO N PONO TN — e b b
2

OPR0Q?Z:

0PRO03: .

SEQ 0158

MESSAGES

S INIWWND

ASCII

10:35

OPROO1:

52443

8425

28-AUG-81

30(1046)

INIWNNIN) = O N NN

CZR6CEO RK611 DSKLS CTRL PRI3
TIR6CE P11
27-AUG~81 10:2¢4

PROGRAM HALTED

rexran/C155<12>

ERROR

THRESHOLD EXCEEDED/<15><12>

8477
8478
8479
8480
8481

/NuM

PC/

DHOOOC:

.ASCII

/TEST

TRAP/<15><12>

LASCIZ

/NUM

PC/

DHOO1A:

.ASCIZ

/EXPECT

ACUTAL

EXPECT

ACTUAL

EXPECT

A(CTUAL/

DHOO1B:

.ASCIZ

/RK(S1

RK(CS?

MESS A

MESS B

MESS B/

0415
0521

DHO1SA:

_ASCIZ

/EXPECT

ACTuAL/

020061

DHO158:

,ASCIZ

/Rk(S1

RK(S1/

DHO17A:

_ASCiZ

/EXPECT

ACTUAL

PRESENT PREVOUS BIT/

DHO17B:

,AS(IZ

/RKMR1

RKMR1

BIT

COUNT/

EXPELT

ACTUAL

EXPECT

—

o
~
oMM
=

O =AY
=

—

o
o~

—

QOO0
VIV ON
OO0
—O 2O

OO
WiiL

.ASCIZ

roro

DHO0OB:

P
-]

8403
8464
8465
8466
8467
8468
8469
8470
8471
8472
8473
8474
8475
8476

ERROR/

= OWO

t462

/TEST

052734
052742
052744
052752

052103
042440
020124
040525
051503
045522
020040
040440
051523
042515
020040
041040
050130
040440
010114
051503
045522
042520
041501

052103
052524

052766
0527764
053002
053010
053016
053024
053032
053040
053046
053054
053056
053064
053072
053100

051705
051120
020123
045522
020040
020061
020124
044502
020040
000124
054105
020040
04€101
042520

047105
053105
044502
051115
045522
020040
020040
020124
047503

020124
052517
000124
020061
051115
044502
020040
020040
047125

052726

052760

053106
053114
053122
053130
053135

046101

041501
020040
052103
052524
122

020040

042520
041501
020040
052103
052524
054105
020040
046101
041513

040
050
040
000
020
051
042
020
040
951
042

OO0

8458
8459
8460
8461

.ASCIZ

051203
NSOV =SNUNUNO

8457

DHOOOA:

051120

052103
052524
054105
020040
046101
042520
041501
000
030523
NOONHOH OO

052660
052666
052674
052702
052707
052714
052722

SEQ 0159

DATA HEADERS

040440
020114
041505
052103
045522
020040
020061
051523
042515
020040
041040
051523
105
020124
040525
045522
020040
000061
056105
020040

052636
052644
052652

D 13
PAGE 160

10:35

.SBTTL

OV
OWNWNO =
OO
2O =28WNINLSBOOO
S
WNOWVIWNOOWNW—=
OO
OWNC TMD

8450
8451
8452
8453
8454
8455
8456

8447
8448
8449

MA(Y11 30(1046)
28-AUG-81
DATA HEADERS

o
no
o
2N —=2 58 1nN0o0

052600
052606
052614
052622
052630

Y
L IV
I
L I
I
N

8443
8444
8445
8446

N VITNVIAVALES
S
WWNNIN S OO NN
~ NN
~n SO ONSOONIWVRUS N

i NN

8440
8441
8442

ORI PLALPNLNVNINL
N PVNDNONUND

8426
8427
8428
8429
8430
84631
8432
8433
8434
8435
8436
8437
8438
8439

oleloleleolololololololalel
o]

CIRO6CED RK611 DSKLS CTRL PRT3
ZR6CE.PN
27-AUG=~81 10:24

DHO22A:

,ASCIZ

/EXPECT

ACTUAL

ACTUAL/
)

DHO22B:

.ASCIZ

/RK(S1

RK(S!

RKSA

RKBA

RKWl

RKW(/

TIRGCED RK611 DSKLS CTRL PRT3
TIRG6CE.PT
27-AUG-81 10:2¢4
8482
8483
8486
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496
8497

053142
053150
053156
053164
053172
053200
053206
053212
053220
053226
053234
053236
053244
053252
053260
053264

020040
030523
041113
051040
020040
020103
053513
054105
020040
046101
000124
045522
020040
020061
047125
054105

051040
020040
020101
041113
05'040
020040
000103
042520
041501
020040

8500
8501
8502
8503
8504
8505
8506
8507

053306
053314
053322
053330
053336
053344
053352
053360

042520
041501
020040
052103
052524
054105
020040
046101

8498
8499

8508

8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8519
8520
8521
8522
8523
8524
8525
8526
8527
8528
8529

8530
8531
8532
8533
8534
8535
8536
8537

053272
053300

053363

053370
053376
053404
053412
053420
053426
053434
053442
053450
053456
053461
053466
053474
053502
053510
053516
053524
053532
053537
053544
053552

053560
053566
053574
053602
053610
053616
053624
053632

020040
046101

122

020040
030523
041113
051040
020040
020103
053513
(051040
020040
030522
105
020124
040525
050130
040440
020114
041505
052103
040
041505
052103

045522
020040
020061
051503
045522
020040
020040
040502

wACY11 30(1046) 28-AUG-81
DATA HEADERS

10:35

E 13
PAGE 161

SEQ C160

04153
051040
020040
0201017
053513
051040

052103

DHO25A:

.ASCIZ

/EXPECT

ACTUAL

BIT/

051115
045522
020040
000124
042520

020061
051115
047503

DHOZ5B:

.ASCIZ

/RKMR®

RKMRT

(OUNT/

052103

DHO31A:

_ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL/

052103
052524
054105
020040
046101
042520
041501
000

020040
046101
042520
041501
020040
052103
052524

RKMR1

RKMR1/

041501
020040

052524
044502

052524
054105

041513

030523

DRO3°B: ,A>(IZ

/RK(S1

RK(S!

RKBA

RKwW(

RKW(C

DHG354:

_ASCII

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL/

LASCIZ

051503
045522
020040
020062
051503
045522
020040

041505
052103
042440
020124
040525
050°30
040440
114
050130
040440
000114
020061
051503
045522
020040
020062
040502
045522

ASCI]

/RK(S?

RK(S2

RKBA

RKBA/

051040
020C4C
020101
041113
051040
020040
020103
046513
051040
000
050130
040440
020114
041505
052103
042440
020124
040525
042440
020124
040525

041513
051040
020040
020101
053513
051C4)
020040
030522
046513

DHO3SK:

EXPECT

ACTUAL/

RK(CS1

Rk(S2

SEQ C161

LASCIZ

/EXPECT

WORD/

DHO41B:

LASCIZ

/WORD

READ/

NS
C NN

DHO42A:

LASCIZ

/EXPECT

ACTUAL

EXFECT

ACTUAL/

NPVOOCHSNNOOY

“NRNPNI
O PN —

DHO4L?2R:

LASCIZ

/RK (ST

RK(S1

RKCSZ

RKCS2/

DHOS54A:

LASCIZ

/EXPECT

WORD

WORD/

OHQ548:

LASCIZ

/WORD

READ

COUNT/

DHOS
" A:

LASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

WORD/

DHOS55R:

LASCIZ

/RK(S1

RK(CS1

RK(S?2

RKCS2

COUNT/

DHO72A:

LASCIZ

/EXYPECT

ACTUAL

EXPECT

ACTUAL/

DHO728:

LASCIZ

/RK(S1

RKCS1

RK(S?2

RKCS2/

Dr0O72(:

LASCIZ

/EXPECT

AC TUAL

EXPECT

ACTUAL

—n

0424

NS OWNO OV S

RKW(

OO
(¥,] N

OOOOO
SsrosSsunes

NNEOO

OO
£SO

O
—_O

OO
e

NS
_——
O
—NOOWm
QO
M
NWNOON,

DHO4LTA:

OOOHOQ

RKwC/

EaNaNT
U R O RV, |

WWNRNOMNW
SHFWO0O

£\

WWOOW

(V. [\N) o~

Howwnro
N

PAGE 162

£SO VNN

OO =W —

OWWSOO o

N=OOwW—=
NN [@ XV, 1V, ]
OO
NVO
NONO
N
W 40OV
OSSO
—_- O
N OOWV
—_-AUSRS
=

HuonronrL

QOOOQOQO

OO QOO
OO0

lele]
=t

054267
054274

054140
054146
054154
054162
054170
054172
054200
054206
054214
054222
054230
054231
054236
054244
054252
0542¢0
054266

F 13

LASCIZ

0405

OOOOOOO0O

wilngs LS nunif

OO0

10:35

WOV S W

051590
0455
0200
0200
0515

OONO

1°

WANSOO

Hun
rno

0 13
0 44
0
041 50
052 10

QWNIOPJIWN

NSNS

2 2
4 2

B544
8545
B546
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
8559
8560
8561
8562
8563
85€4
8565
8566
8567
8568
8569
8570
8571
8572
8573
B8574
8575

N —

020124
000104
047527
020040

OOOO

8542
8543

105

8541

020040
004
1 52
01 3
3A4

020040
047527
045522

F a3 o

8538
8539
8540

30(1046)
28-AUG=-81
DATA HEADERS

MACY1T

CIRECED RKE1TM DSKLS CTRL PRT3
TIR6CE P
27-AuG=-81 10:24

EXPECT

ACTUAL.

054742
054750

LASCIZ

/EXPECT

ACTUAL

WORD

BIT/

DH150R:

LASCIZ

/RK(ST1

RK(S1

COUNT

COUNT/

OWWN

DH1€4A:

LASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

B8IT/

NIWO
O WA

DH144B:

LASCIZ

/RKCSH

RK(ST1

RK(S2

RKCSC

COUNT/

OH =256
00
VNORONIWOROWWN

NUNDOIONOVIOSHROOWNMSO
O OQWWOOOWN

DH15QA:

DH17(A:

LASCIZ

/EXPECT

A(CTUAL

PRESENT

BIT

SECTOR/

DH170RB:

LASCIZ

/RKMR1

FKMR1

gIT+1

BIT

BIT-1

BIT=2

(OUNT

(OUNT/

S22
=SSP NOSSOO0O

RKBA

RKw(

RKW(/

OO0

ni—O0O WV

A
E X 2YA

— OO NNOINO RN —
VO —=OWVMWNM—=SO
=WV

N Hrodhness
NOONN—=

OOO0OO00V

)
= B
N

o
O

RKBA

OOOOO0O

NVAND N SN
N2 Q=

SEG C162

RKER

OOVOOOOOCOOO

FNASIV, T, P ol RV LV TV B )

G 13
PAGE 163

/RKER

020040

10:35

LASCIZ

N
OO0

054726
054734

wninD

054706
054714
054722

30(1046)
28-AuG-81
DATA HEADERS

DHO72D:

&~
o~

=N
B NO

OMNIWVNIO 2 WO ONIWSH

054672
054700

(o] OO

NOOOW=HHhroOoO0OOoONNOONWVNWNIESOIWWNES

OWwWnMHoO O

OO0OO00OO0OO0

WO
W S
— et ed O b b
OHr
200V

OO OOWWOOW

o
OOW
=

054544
054552
054560
054561
054566
054574
054602
054610
054616
054624
054627
054634
054642
054650
054656
054664

054756
054764

(=
OOO0OOO0O OO0
&~
P RV,
PRIV,
P N UP YV
RV IV, NIV, PRV, [,V ] [pS
NOOOWN —-OONIN—O
SN =OO0O
NHNVO =20 [oleYe)
~ OO NNOOWN
=\ = S =N
s
M= QOO W — =2
O=2nNf—
SN O NSO ENONNS
OO =
S, OO
W

(¥,

O
— N

(o]
&H

054457
054464
054472
054500
054506
054514
054515
054522
054530
054536

QOO0

8615

054444
054452

[o]lelelelelelelelele]
NS NO NSNS
Own—O
=R
oOor
O\~
= N =2 N2
O NN
SNV
DN
BN

8614

0200

8596
8567
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613

054302
054310
054316
054324
056332
054340
054346
054354
054362
054370
054376
054404
054412
054420
054423
054430
054436

(=]

8594

8595

OO (o] OOOOOOOOODOO
H e no AU ES NN O BN
S P lelelV, P lelelelelelsel
V)
NNNOOWN
O
un— s
NMHDNENO
S
WML

MACY11

{IR6CEQ RKETT DSKLS C(TRL PRTY
27=-AuG=81 10:24
TIRG(E P

8671
8672
8673
3674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8486
8637
8688
8689
8690
8691

055154
055160
055166
055174
055202
055210
055216
055224
055232
055240
055246
055254
055255
055262
055270
055276
055303
055310
055316
055324
(55332

8670

055146

02006
026524
047503
020040
000124
054105
020040
046101

020049

122

020040
030522

020040
051504
045522
020040

051040

M 13
PAGE 164

SEQ (163

DH77A:

LASCIZ

/EXPECT

ACTUAL/

DH171R:

LASCIZ

/RKMR1

RKMR1/

DH175A:

JASCIZ

JEXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTuaL

EXPECT

/
ACTUAL

DH17%8B:

LASCIZ

/RK(S1

RK(S1

RK(CS?

RK(CS?2

RKDS

RKER

RKER/

DHe1°A:

LASCIZ

/PREVIOUS REG

CONTENTS/

DH211R:

LASCIZ

/RK (S

105

020124
040525
050130
0640440
020114
041505
052103
042440
020124
040525
045522
020040
020061
051503
045522
020040

'0:35

054772
055000
055006
055014
055022
055024
055032
055040
055043
055050
055056
055061
055066
055074
055102
055110
055116
055124
055132
055140

10:24

30(1046)
28=-AUG=81
DATA HEADERS

B6SO
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8669

27-AuG-81

MACY1T

TIR6CE P

DSKLS CTRL PRT3

OO
OO
OO0
FVY IRV, IV, B YN
1, ¥
OO
N
NOO
&
— =2 OO\
—N
O
NSO

JIR6CED RK61Y

052103
020061
051503
045522
020040
020062
051504

045522
020040
020040
051105

RK(S2

RKDS

RKER/

CIR6CEQ RK61Y DSKLS CTRL PRT3
(ZR6CE.PY
27-AuG=81 10:24

WA(CY11 30(1046) 28-AUG-81
ERROR MESSAGFS

ggg%

10:35

.SBTTL

ERROR MESSAGES

113
PAGE 165

SEQ 0164

8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
B706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8776
8717
8718
8719
8720
8721
8722

055340
055346
055354
055362
055370
055376
055404
055405
055412
0556420
055426
055434
055442
055450
055456
055464
055467
055474
055502
055510
055516
055524
055532
055540
055546
055552
055560
055566
055574

047125
052103
046505
040520
042440
020105
000
101
052120
047524
045503
020113
043501
046517
020104
051105
101
052120
047524
045503
020113
043501
046517
042524
042504
052101
044526
020117
020113

054105
042105
05117
044522
040516
051124

042520
046440
020131
054524
046102
050101

EMO00O:

LASCIZ

/UNEXPECTED MEMORY PARITY ENABLE TRAP/

052124
047111
041440
051440
042515
020105
051060
042510
000
052124
047111
041440
051440
042515
020105
053440
044040
000122
0425246
063516
044103
(046103

046505
020107
0425°0
042505
051523
051106
040505
042101

EM200:

.ASCIZ

/ATTEMPTING TO (HECK SEEK MESSAGE FROM READ HEADER/

046505
020107
042510
042505
051523
051100
044522
040505

FM20*:

_ASCIZ

/ATTEMPTING TO (HECK SEEK MESSAGE FROM WRITE HEADER/

EM202:

.ASC]Z

/ATTEMPTING TO (HECK CLEAR DR]VE MESSAGE FROM READ HFADER/

8725
8726
8727

055616
055624
(055632

043501
046517
020104

020105
051040
0425710

050115
052040
041505
040505
053111
051223
051106
040505
04¢10?

101

052124

0646505

EM203:

_ASCIZ

/ATTEMPTING TO CHECK CLEAR DRIVE MESSAGE FROM WRITE HEADER/

042526
040523
047522
052711
042101
101
052120
020101
044040
020122
042510
041505
052520
042504

046440
042507
020115
020105
051105
052124
047111
042522
040505
047524
045503
047524
051514
(042524

051505
043040
051127
042510
000
044505
020107
042101
0425064
041440
051440
020122
020105
052103

EM204:

.ASCIZ

/ATTEMPTING A READ HEADER TO (HECK SECTG/

8723
8724

8728

8729

8730
8731
8732
8733

8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
747

055602
055610

055640

055643

055650
055656
055664
055672

055700
055706
055714
055722
055730
055735
055742
055750
055756
055764
055772
056000
(056006
(56014

020122
020105

051105

052120
047524
045503
051101

051104
042515

000

047°11
041440
041440
042040

020107
042510
042514
044522

- :LSE DETECT/

CZR6CED RKk611 DSKLS CTRL PRT3
“IR6(E P
27-AUG=-81 10:24
B7648

056022

000

wACY1Y

30(1046)
28-AUG=-81
ERROR MESSAGES

10:35

J 13
PAGE 166

SEQ (0165

8749
8750
8751
8752
8753
8754
8755
8756
8757

056023
056030
056036
056044
056052
056060
056066
056074
056102

101
052120
020101
020105
051105
044103
047111
052520
062506

052126
047111
051127
042510
052040
041505
042504
051514
042524

066505
020107
052111
042101
020117
020113
020130
020105
052103

EM20S:

.ASC!Z

/ATTEMPTING A WRITE HEADER TO CHECK

8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
3772
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801
8802
8803

056111
056116
056124
056132
056140
056146
056154
056162
056170
056176
056203
056210
056216
056226
056232
056240
056246
056256
056262
056270
056276
056304
056312
056320
056326
056334
056342
056343
056350
056356
056366
056372
056400
056406
056414
056422
056430
056431
056436
056444
056452
056457
056464
056472
056500

101
052120
047101
051040
043117
053440
052101
044524
020116
042522
101
052120
050116
062101
045503
042532
052105
052107
044524
051120
020104
041040
042106
064440
042515
044116
000
107
052120
050116
042101
020110
042101
020123
046505
047111
124
040
044513
051105
042524
101
052120
047526
062503

052124
047111
047040
040505
047460
051117
042524
043516
050116
042101
052124
047111
020122
061440
047111
047522
041505
062524
043516
051040
044527
051525
042522
041516
052116
041111

046505
020107
051120
020104
042516
000104
050115
040440
020122
000
046505
020107
042522
042510
020107
042040
000124
050115
047040
040505
044124
04044)
051523
042522
044440
052111

EM206:

.ASCIZ

/ATTEMPTING AN NPR READ Of ONE WORD/

EM207:

.ASCiZ

/ATTEMPTING AN NPR READ/

EM208:

.ASCIZ

/ATTEMPTING NPR READ (HECKING ZERO DETECT/

EM2C3:

.ASCIZ

/ATTEMPTING NPR READ WITH BUS ADDRESS INCREMENT INHIB;T/

052124
047111
020122
053440
052502
051104
047111
047105
044510

046505
020107
042522
052111
020123
051505
051103
020124
044502

EM210:

.ASCI1

/ATTEMPTING NPR READ WITH BUS ADDRESS INCREMENT INHIBIT/

044103
043516
020117
052103
052124
047111
063040
047040

041505
055040
042504
000
046505
020107
051117
047117

LASCIZ

/ CHECKING 2ERO DETECT/

.ASCIZ

/ATTEMPTING TO FORCE NON=EXISTENT MEMCRY/

8758

056110

000

EM211:

INDEX PULSE DETECT/

885¢
8857
8858
8859

3
2
2
0
4

OOOOO0
OOOOO0
OO
S~
Snassroes
Son
£ 200
OSSO
NPRONNDOON
PO
OH' NN
2 NO =S NN
S NO N — 2 N
NOWN —
QOHNPNV=—=0OOOONINIOWNIO
=N = =000 ~N)
NOOOONNNWDNOMNOSC ROV
WO VA

S, OV
OOO
N

S NN
= NO
S = =2\

30(1046)
2B8-AUG~81
ERROR MESSAGES

K 13
PAGE 167

10:35

SEQ 0166

EM212:

CASLIZ

/ATTEMFTING

EM213:

LASCIZ

/TESTING

EM214:

LASCiZ

/ATTEMPTING

EM215:

LASCIZ

/ATTEMPTING NPR

EM216:

LASCIZ

/ATTEMPTING

TO CLEAR UNIBUS PARITY ERROR/

EM217:

LASCIZ

/ATTEMPTING

18 BIT NPR READ/

EM218:

LASCIZ

/ATTEMPTING

18 BIT NPR READ CHECKING ZERO DETECT/

EM21G:

LASCIZ

/ATTEMPTING

18 BIT

CLEAR NON=EXISTENT MEMORY/

EXTENDED MEMORY

FORCE

ADDRESSING BITS/

UNIBUS

PARITY

ERROR/

042

5
1

o
OO
H
i
—=NOO

?OOOOOOOOO

5
5
0405
0424
0
5
1
1

£
OOO
N
= OO D
O=~NWNOOOO
& YWNo

040520
C

OOOOOOOOOOO
NOWNWNO
NSNS NOWWN
OOOONONINOOO
et Nt 2 O 2NN 2 P —a
NS =S
O 2PN
—
£, OB ONONLEOWVMT

8853
8854
8855

047

044530
020124
054 2
2

OOCOOOO
Ea AR 21 R L 2
QW
s S v
NN=—O SN NO
YN = S ON
NN =2 £
NN
= 2 O b
b VN — I
NON)
= BNO 2 NVOMN
B
=2 r0NY &S
SN2 OO
OO =
NI WO

8804
8805
8806
8807
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838
8839
8840
8841
8842
8843
8844
8845
8846
8847
8848
8849
8850
8851
8852

—=O =N —=OVNONINO
—
(9,1, To WOV IV, IV, PP ot e PV, |

TIR6(E P11

MACYT1

DSKLS CTRL PR3
27-AUG=-81 10:24

—— OO

TIR6CED RKO611

READ

LOCATION PRIOR

NPR READ W[TH BIT

TO BAD

(PA)

PARITY/

SET/

(ZR6CEQ RK611 DSKLS CTRL PR3
TZR6CE.PN
27-AUG=81 10:24
8860
8861
8862
8863
8864
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

057210
057216
057224
057232
057240
057246
057254
057262
057270
057276
057304
057312
057320
057325
057332
057340
057346
057354
057362
057370
057376
057402
057410
057416
057424
057432
057440
057446
057454
057455
057462
057470
057476
057504
057512
057520
057526
057533
057540
057546
057554
057562
057570
057576
057604
057612
057620
057626
057630
057636
057644
057652
057660
057666
057674
057702

050116
0421071
020710
033061
020051
052101
044524
020070
050116
042101
020110
033061
020051
101
052120
044523
044524
020106
044440
042101
042504
052101
0445246
040505
042101
020116
040524
020105
000
101
052120
040504
043125
042522
052106
040505
042101
101
052120
044523
044524
020106
044440
042101
042504
020070
047506
000051
052101
044524
040505
042101
034061
043040
024524
040515

MACY11

020122
053440
044502
024040
042523
042524
043516
044502
020122
053440
044502
024040
042523
052124
047111
052515
047117
040504
020116
044040
000122
042524
043516
020104
051105
040515
042516
047515

(42522
052111
020124
040520
000124
050115
030440
000124
042522
052111
020124
040520
124
Q46505
020107
040514
047440
040524
042522
040505

30(1046)
28-AUG-81
ERROR MESSAGES

10:35

L 13
PAGE 168

SEG 0167

EM220:

.ASCII

/ATTEMPTING 18 BIT NPR READ WITH BIT 16 (PA)

EMZ21:

L.ASCIZ

/ATTEMPTING SIMULATION 0F

050115
051040
042510
044440
947111
041516
042504

EM222:

.ASCIZ

/ATTEMPTING READ HEADER IN MAINTANENCE MODE/

052124
047111
040524
042506
042101
051105
020104
051105
052126
047111
052515
047117
040504
020116
044040
020122

046505
020107
041040
020322
040440
051040
042510
000
046505
020107
040514
047440
040524
042522
040505
030450

EM223.

.ASCI7

/ATTEMPTING DATA BUFFER READ AFTER READ HEADER/

EM224:

.ASCIZ

/ATTEMPTING SIMULATION OF DATA IN READ HEADER (18 BIT FORMAT)/

042524
043516
020104
051105
041040
051117
064440
047111

050115
051040
042510
024040
052111
040515
020116
020124

EM225:

_ASCIZ

/ATTEMPTING READ HEADER (18 BIT FORMAT)

044502
046522

SET/

DATA IN READ HEADEFR/

020124
052101

[N MAINT MODE/

NS NN SO NWVNMOORONIONOIONIO
NIVIO

0440

EM226:

EM227:

=S EHEONESN)—=OO

EM230:

10:35

M13
PAGE 169

SEQ 0168

LASC!I

/ATTEMPTING DATA BUFFER READ AFTER <12><15>

LASCIZ

/READ HEADER IN 18 BIT FORMAT/

LASCII

/ATTEMPTING "0 CHECK

LASCIZ

/CHECKING ZERO DETECT/

LASCII

/ATTEMPTING

LASCIZ

/AND

LASCII

/ATTEMPTING

LASCIZ

/SECTOR

LASCII

/ATTEMPTING TO SET WRITE

SYNCH DETECT ON READ HEADER/<15><12>

CHECK WRITING OF

ZEROES

BETWEEN

INDEX/<15><12>

SECTOR PULSE/

EM231:

NN —=iiaN
SN

OOOOCOO

Eunror0 S un
O—=00N—
AS) b oed ok \ ) —2

Honon oS

OO0 [

(]

£~

052120

OO = NH)WNINIWNOODOWNOWDMNIONIO
W

S VNI

0201
0260
0475

30(1046)
28-AUG-81
ERROR MESSAGES

—=OOOMN—

QO
2O
OQOCOCOOON) N
SN
O0O—
I rORINIG
S~ =~

o0 COOOOOCDOOOD
S ~ SN
NS S
o&
N —2 S NN OOMNN—=NFrVO
N
Oy
D
N\ N2 2 \ NS D

N1 — = NN =NV
=2
aaIn—0ownowm ——
OO
O= =220 000NNIONO—=OMNON)
SN NONWNOOWVIWWNISO
=N
=2 NN

(=]
&~

o
r

\¥,}

046
020
041
020
040
0064

nNNOOO

8971

060312
060320
060326
060334
060342
060350
060353
060360
060366
060374

041

042504
052
04

£Sunn0 &
RO
A b —3 \ Y

8948
8949
8950
8951
8952
89->3
8954
8955
8956
8957
8958
8959
8960
8961
8962
8963
8964
8965
8966
8967
8968
8969
8970

060002
060010
060015
060022
060030
060036
060044
060052
060060
060066
060074
060076
060104
060112
060120
060123
060130
060136
060144
060152
060160
060166
060174
060202
060210
060216
060224
060231
060236
060244
060252
066260
060266
060274
060302
060304

047515

OO0

8944
8945
8946
8947

057710
057715
057722
057730
057736
057744
057752
057760
057766
057774

o
o

8916
8917
8918
8919
8920
8921
8922
8923
8924
8625
8926
8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943

MACY11
OO0
L0
— O NN NNO [o )
—_—
D = N
N
H—20 =20
OQLOW2O0O00ONNE
SNV
O00O

CZR6CED RK611 DSKLS CTRL PRT3
CZR6CE P11
27~AUG-81 10:24

EM232:

TO RESET WRITE

PULSE

IN A WRITE

GATE

HEADER

SETTING/<15><12>

(OMMAND/

GATE BY RESETTING/<15><12>

MACY11 30(1046)

CZR6CED RK611 DSKLS CTRL PRT3

Q027

161054

VW
—

—OQO
OO0

/ATTEMPTING O RESET WRITE GATE WITH SECOND/<15><12>

LASCIZ

/INDEX PULSE OF WRITE HEADER/

EM236:

,ASCIZ

/ATTEMPTING TO COMPLETE WRITE HEADER IN MAINT MODE/

EM237:

L.ASCIZ

/ATTEMPTING TO WRITE GAP OR DATA SYN(H/

EM238:

_AST]7 /ATTEMPTING TO WRITE DATA FIELD/

VIO
= RO~
Huarno~WDn

~F R

—had — ST

—=_ONSOOND

NN NN N NI NN O O NI
—_ N NNV

VAN S IS0 8

OOOOOO

S aVIV, L NAV, |

VNN
= NN

£HSunr

W—=O
O—=20OMN—

N —d b 2y —

OO0

. ASCII

no S

e e

e T

)

OOOOOO

OO ONY

e 1V

/ATTEMPTING TO WRITE HEADER DATA/

== OOO—=DOO=MNNO

101
052120
047524

044103

NO NN 2

061041
061046

9025
9026

061036

052111

= = ed N

042101
101
052120
047524
046120
051127
042510
044440
047111
042504
101
052120
047524
042524
047440
040524

9024

047440

ASCIZ

EM235:

060704
060711
060716
060724
060732
000740
060746
060754
060762
060770
0607732
061000
061006
061014
061022
061030

060676

/ATTEMPTING TO WRITE SYNCHY OF HEADER/

046?
020
051 5
044 5
052 1
044 1
047 1

— N =2\ N} 2\

9708
90V9
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9020
9021
9022
9023

9007

PAGE 170

_ASCIZ

EM234:

OO0
Sbhui

060670

N 13

/SECTOR PULSE IN A WRITE HEADER COMMAND/

5
1
0445
0405
0405

054

10:35

.ASCIZ

EM233:

QOO0
Hnsross

050040

9006

042116

O=HO0OO0OMNOO=S
OO ==\NO—=H&NNoNWD

111

052124
047111
053440
044040
020122
000
052124
047111
051040
053440
043440
044527
041505
012
e S [)S] no &~

060662

047524
042524
042504
040524
101
052120
047524
052105
042524
020105
051440
006504

053
0514
04744
042101

NONL S

9005

060655

047524
042524
044103
042510
000
101
052120

ERROR MESSAGES

S OWWNND
OOMNNIN—
YN =20 o
W~
—
Y o, O
g A
N
Y o R
el R
B
B
B
S = NOSRNLD S
NON=2O—=OH 2NNOOON

9004

060554
060562
060570
060576
060601
060606
060614
060622
060630
060636
060644
060652

OOOOOOOOOOO O jele]

8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002
9003

060510
060516
060524
060532
060540
060541
060546

0511
0425
0414 4
0421 1
10
0521 2

OO0

8985
8986
8987
8988
8989
8990
8991

060450
060456
060464
060472
060475
060502

04344
05450
05210
00501
04252
05004
04443

(VL NP RV, Py}

8979
8980
8981
8982
8983
8984

060402
060410
060416
060424
060426
060434
060442

WS \A

8972
8973
8974
8975
8976
8977
8978

27-AUG-81 10:¢2

OO0

CIR6CE.PIT

28-AUG-81

SEQ 0169

9083

061374
061402
061410
061416

061424
06i431
061436
061444
061452

061460

061466
061474
061502
061510
061516
061524
061532
061540
061546

061554

047522

042440
053440
040506
044502
042040
046440
052101
044524
020117

020122

/ATTEMPTING TO WRITE HEADER DATA USING 24 SECTOR FORMAT/

EM241:

.ASCIZ

/ATTEMPTING TO FORCE FORNAT ERROR

EMc42:

LASCIZ

/ATTEMPTING TO FORCE FORMAT ERROR (CFMT = 24 SELTOR)/

EM243:

.ASCIZ

/ATIEMPING TO FORCE CONTROLLER ERROR WITH FAULT BIT

EM244:

.ASCIZ

/ATTEMPTING TO CLEAR ERROR/

—

_ASCIZ

SEQ 0170

OO
S

EM240:

‘

(CFMT = 26 SECTOR)/

NS 2NN SN
OO WM
VOO NS HOWONWNON =10

052124
047111
043040
043040
020124
020122
020124
051440
024522
052124
047111
043040
043040
020124
020122
020124
051440
024522
052124
043516
047
04

NV ANOOOWSSWINT

061360
061366

046522

/ATTEMFING TO WRITE SYNCH OF HEADER USING 24 SECTOR FORMAT/

=PANIO
=2 22 22 OWN

9074
9075
9076
9077
9078
9079
9080
9081
9082

067352

047506
000
101
052120
047524
042503
040515
047522
046506
033062
047524
101
052120
047524
042503
040515
047522
046506
032062
047524
101
(44520
020117
020105

032062
047524

.ASCIZ

PRONOWVNIWNON 2 SO NWVINNLO WO N UNO WM NN N WO WDNWNO W NI N NIV

9073

061324
061332
061340
061345

020107
041505

QOQOOQ=NLOMNNLN
=N —=2OO
VWO &SN SN =N SO

9049
9050
9051
9052
9053
9054
9055
9056
9057
9058
9059
9060
9061
9062
9063
9964
9065
9066
9067
9068
9069
9070
9071
9072

061236
061244
061252
061260
061261
061266
061274
061302
061310
061316

020117
020105
051105
020101

0435
0511
0425
0420
0515

OCOOOOOOOOO0O
(UL P S
¥
L2 2L NP ANV, LW, o
=SSO NN =
OONN = ONNY

ed
b
md
e
md
) e
—

9047
9048

052101
044524

EM239:

=2V
NO
—= OSSNV
PO
2O
—

061200
061206
061214
061222
061230

044
047
02?
05
04 3
042
0430
0001
0425

OOOOOOOOO
YIS SN

9042
9043
9044
9045
9046

053440
051440
047440
042101
044523
020064
051117
040515

042524
020107

O =~y
O
._a._aj\_a_n._)_no_a
ORS00
N

042040
084506

OOOOOOOOOD
oSS
v

042524
020101
000104
052101
047111

OOOOOVUOO
SO SVIIND
S

061062
061070
061076
061100
061106

OOOOOOOO
BSOS

9028
9029
9030
9031
9032

28-AUG-81

ERROR MESSAGES

10:35

B 14
PAGE 171

30(1046)

NONOON)INOQOQ
= =N =N
SO ==
= OO
PO
=200
VIO — 2 N3 3
s D NONO WO N 22 a2 SO VO S 2—
o
OB 2NV
AN = LO DN
OOCONVNO
20000 VVNO =200

10:24

27-AUG-81

NN
IS NN
—
OO
ONOND &

CZR6CE.P11T

MACYT1

OOOOOOOOOOOOOOO0
SO
SO
IESSNSES

C(ZR6CED RK6T1 DSKLS CTRL PRT3

IN DRIVE MESS/

MACY11

OWO NOWI S —

NSNS
SN 8

= O =N = NN NN
—b
ek D
LB N2 NN
2 NO = O NO = SN2
NN
N
2NONN 2SN
28O0 =200 2000 NW=OO OO NWONOWVNO
NOWVMWIWON
— =N

OOOOOOOOOO

OO0

P O = NINWN—L OO

dSsuonnw

—

C 14
PAGE 172

10:35

SEQ 0171

EM3000:

LASCIZ

/COMMAND AND

EM3001:

LASCIZ

/MESSAGE

INCORRECT/

EM3002:

LASCIZ

/MESSAGE

INCCRRECT/

EM3003:

LASCIZ

/CS1

INCORRECT AFTER

EM3004:

CASCIZ

/CS1

INCORRECT AFTER AFTER DATA SIMULATION/

EM3005:

LASCII

/MAINT

LASCIZ

<15><12>/AFTER

LASCII

/MAINT REG.

LASCI2

<15><12>/AFTER

LASCII

/MAINT REG.

STATUS REG

INCCRREC"/

SENDING DRIVE

(LEAR/

—_ OO

oo
N =N =N
—
—
Y
W=
\n—= N —
— O NOWN—
== O
—=O—=2OWN—
NHOMN
[P B A 2R MR B
Yo R ARV To Yo SRV, [UNEi
% E NIV e Yo S

N =

NNV
N

AN =d =d e

&Hro

NN=O=—=2ONIO—2O00O0OH~MNNO—=2—0ON o
O
=2 NN = NN =2 N =200 W= NN =N wn

S —

NN 2 N NOOWN — =N —

S oo Lk
W NIPONL LS —

L an]
OO0 je

30(1046)
28-AUG-81
ERROR MESSAGES

VAV,
B Yo )

VWA S S

OOOODOOODO

044501
043505
047111

——h

115

051040
020061
051122
052504
042040
044523
044524
005015
020122
020130
009105
040515
042522

052

o
»

042040
044523
044524
005015
020122
051117
042523

044440
042522
05210¢

040440
040440
042040
044523
064524

061674
061677
061704
061712
061720
061726
061734
061742
061747
061754
061762
061770
061776
062004
062012
062020
062021
062026
062034
062042
062050
052056
062064
062072
062076
062104
062112
062120
062123
062130
062136
062144
062152
062160
062166
062174
062200
062206
062214
062222
062224
062232

[V, 1,01V, |
N=O

YT R Y

= OO0

D —D =D

NS W

b e
D

W
W
W

b
b
—d ad

[T )G T

O O OO0 OO0 OO0

9100
9101
9102
9103
9104
9105
9106
9107
9108

061666

\J} —2 QO =OWN=3
=l N

9099

061562
061564
061572
061600
061606
061614
061622
061627
061634
061642
061650
061653
061660

lelelele]

5084
9085
5086
9087
9088
9089
9090
9091
9092
9093
9094
9095
9096
9097
5098

ono O =2O=0000 +0=NOOO—=OO0O
20O —-=0O0 20N
SNO
~Hro —SOWVIO H =2 NTNWWORN NSNS NWONWWO NVIWON NNV
O O W &~

CZR6CEQ RK611 DSKLS CTRL PRT3
TIR6CE P11
27-AUG-81 10:2¢

EM3006:

EM3007:

REG.

INCORRECT

DURING DATA

SIMULATION/

SECTOR PULSE/

INCORRECT DURING DATA SiMULATICON/

INDEX

PULSE/

INCORRECT DURING DATA SIMuLATION/

9164

9195

SEQ 0172

NO =N

NN
O

LASCIZ

/BUS

ADDRESS

AFTER

EM3009:

LASCIZ

/WORD

COUNT

EM3010:

LASCIZ

/(ST

(HANGED DURING COMMAND EXECUTION/

EM3011:

LASCIZ

/BUS

ADDRESS

EM3012:

LASCIZ

/WORD

COUNT

EM3013:

LASCIZ

/CS1

CHANGE

AV, B o
S
P ALY 2R 2
B

=OOOONWO

SPROW=O—=
=0

OOO0OOOCOOV0
wr s oo
s
SOOOOOO
QY W SRV, 1, 61,0

SUPPLIED/

EM3008:

[NCORRECT

AFTER

SENDING DRIVE

b A\

b md md

INCORRECT

b eod
=2
NI
~

(HANGED BEFORE

[NDEX PULSE/

INDEX PULSE/

SO=OHS

(HANGED BEFORE

(U IV

051525

INDEX PULSE

OO oOrO OQOONVIW—-LOO

064524

<15><12>/,N0O SECTOR OR

QOO OO0
Fol o o
NSO

Srororowv

P
Y = 1Y
QHrhOH
—2ONON

OOOOOD
Pl VLIV, Py, ], U] OOOOO
VLV,
1, S P LW, |

D 14
PAGF 173

jole) QOO0
R
F
S8
N~ W=
Y, PN
V. P
N—=O-arS

9180
9181
9182
9183
9184
G185
9186
9187
9188
9189
7190
9191
9192
9193

262440
062446
062454
062462
062470
062476
062504
062512
062520
062526

052542
062550
062551
062556
062564
062572
062600
062506
062614
062620
062626
062634
062642
062650
062656
062664
062666
062674
062702
062710
062716

10:35

o0 (o]

9179

062432

062534

30(1046)
28-AUG-81
ERROR MESSAGES

LASCIZ

(YL
P o
P o £
-0 =P — -

9157
9158
9159
G160
9161
9162
9163
9164
9165
9166
9167
9168
9169
9170
9171
9172
9173
9174
9175
9176
9177
9178

MACY1T

9154
9155
956

062336
062344
062345
062352
062360
062366
062374
062402
062410
062416
062424
062425

G P

9151
9152
9153

U R Y

9148
9149
9150

2 ¥ 2R Y

9147

9145

9146

10:24

QOOOOOOO
H &N

9144

062254
062262
062270
062276
062301
062306
062314
062322
062330

044440
042522
051125
040504
046511
047511
015
042523
047440
042504
051514

=O—O

9143

062240

062246

27-AUG=-81

PN=OOOOWONR 2N

9140
914
9142

DSKLS CTRL PRT3

EedAS

TIR6CED RK611
TIRGCE P

AFTER

INDEX PULSE/

CLEAR/

CIR6CED RK61T DSKLS CTRL PRT3

JIRGCE.PT
9196

9197

27-AUG=-81 10:26

062723

062730

115

064501

051040

043505

10:35

E 14

PAGE 174

WACY1Y 30(1046)

28-AUG-81

52116

EM3014:

.ASCIZ

/MAINT REG 1 INCORRECT BEFORE INDEX PUL.SE/

EM3015:

.ASCIZ

/BUS ADDRESS CHANGED AFTER INDFX PULSt/

ERROR MESSAGES

030440

051117

9198
9199
9200
9201
9202
9203
9204
9205
9206
9207
9208

062736
062744
062752
062760
062766
062774
063002
063010
063016
063024
063032

044440
042522
043105
047111
052520
052502
051104
044103
020104
020122
020130

041516
052103
057117
042504
057514
020123
051505
047101
043107
047111
052526

9210

063042

047527

042122

041440

EM3016:

.ASCIZ

/WORD COUNT CHANGED AFTER INDEX PULSE/

063106

000

046517
040440

040515
042116

EM3018:

.ASCIZ

/(OMMAND AND STATUS REG. 2 INCORPECT/

9205

9211
9212
9213
9214
9215

9216

9217
9218
9219
9220
9221
9222
9223

9226

9225
9226
9227

9228

9229
9230
9231
9232

9233
9234
9235
9236
9237
9238
9239
9240
9241
9242
9243
9244
9245
9266
9247
9248
9249
9250
9251

063040

063050
063056
063064
063072
063100

063107
063114

000105

052517
040510
040440
044440
050040

103
042116

052116
043516
052106
042116
046125

020105
020130
000105
042101
020123
042507
04252¢
042504
051514
041440
042105
051105
054105
042523

063122
063130
063136
063144

051440
020123
031040
051117

063153

102

051525

040440

EM3C19:

.ASCIZ

/BUS ADD REG INTORRECT/

127

051117

020704

EM3020:

.ASCIZ

/WORC COUNT REG INCORRECT/

040524
020704
051122

051040
04711°
041505

EM3021:

.ASCIZ

/DATA READ INCORRECT/

020061
051122
043101
042522
020107

047111
041505
042524
042101
040504

EM3027:

.ASCIZ

/0ST

047111
041505
24

EM3023:

.ASCIZ

/(S2 INCORRECT AFTER READING DATA BUFFER/

020122

EM3024:

,ASCIZ

/ERROR REG INCORRE(T/

063152

000

063160
063166
063174

042104
044440
042522

063206
063214
053222
063230

047503
(42522
047503
000124

063201

063232
063240
063246
063254
063256
063264
063272
063300
063306
063314
063322
063326
063334
063342
063350
063356
063364
063372
06337¢

040504
040505
047503
000124
051503
047503
020124
020122
047111
040524
042506
051503
047503
020124
020122
047111
040524
042506
051105

040524
042522
044440
042522

041040

051040
041516
052103

047125
020107
051122

047040
000122
020062

051122
0431
0425
0201
041?
000
047 5

052524
027107
041516
052103
043505
051117
_ 000
020124
047111
041505

INCORRECT AFTER READING DATA BUFFER/

043125

SE3 C173

MACY1T
N

N0 OROONWO S MW SN VION
S WN—
NN
NSO NYNLVONIVINVO NN

= OO —=2OO

2 NVOO =2 =N

VSO OO NWO

b e —d e \ N = =
ad O
O N D \N =
=
N N
= Q= = cd
=t N

OO0
s
— D -2
Vel \NAVNION 0 = O

OO0
OO0OO0O0 (=]
SO
VWW
NS
oo |=]
—
¥,
LA IV 1] o
O N—=O
Y
NNV o T IV THY o PR S U R
P
LV R

QN
OWNNG
VNN
N= AN

043

OO0

A= TOWN

NWONW S

~No
2 NN = =N =
N
N
N = = 2 OO0
O —

GOOOOOC‘)?
SRV TV TV, I L o

Q=)
=
) -3 =2 N
AT
SNES B Nt b N
=2 - 2N~ =
N
NN O == O
OQ
LTI

OOO0O
OO0
PVLIV,
P
RV PRV SRV

0640€2

NS NOWONIONION SNV =S NO 2DO0O0O0MNINOWNINIOO
-

047

042

047

020124
020061
051122
043101
047111

04711
041505

Qi
0 QO DO = = OMNINNOO—=0ONO
N —NOMN)
W =2 WNVNWOMNAN NN = PO S NN S 8
DN = DO B

CTRL PR3
G-81 10:2¢4

30(1046)
28-AUG-81
ERROR MESSAGES

10:35

PAGE 175

SEQ 0174

EM3025:

JLASCIZ

/MAINT

EM3026:

LASCIZ

/(ST

INCORRECT AFTER (OMMAND COMPLETION/

EM3027:

ASCIZ

/(S2

INLunnt
(1 AFTER (OMMAND

EM3028:

LASCIZ

/CSY

INCORRECT AFTER READING EMPTY SILO/

EM3029:

JASCHYS

/{32

INCORRECT AFTER READING EMPTY SILO/

EM303C:

/MAINT

REG

£EM3031:

LASCIZ

/DRIVE

STATUS REG

EM3032:

LASCIZ

/ERROR REG

EMWT.

LASCIZ

/MRT

REG

INCORRECT

AFTER

INDEX PULSE/

052520

COMPLETION/

044523
064440

042522
052106
040505

042440
051440
1

INCORRECT/

INCORRE(T/

INCORRECT ON 1ST UPWARD

TRANSISTION OF

MAINT

(LOCK/

9320
9321

G322

9323
9324
9325
9326
9327
9328
9329

9330
9331

93372
6233
9334
9335
9336
9337
6338
9339
9340
9341
G342

Pl
QW o

Oa—a
W~
—_— e O =
D
QCOR =IO
QS0
—

OO0

Q=2 O =~ PN = NINIO — —
WO NNO NN S ON NS WINWNWWN

9317

9318
G319

040522

WO WSO
ON S
W

9315

9316

064070
064076
064104
064112
064120
064122
064130
064136
064144
064°52
064160
064166
064174
064202
064210
064213
064220
064226
064234
064242
064250
064256
064264
064272
064300
064302
064310
064376
064324
064332
064340
064346
064354
06/ 3€2
0€4370

COOCOOOOOOO
PV, W SV IV VIV, | V¥ NV I'e)
IPRDIAN = N0
= O

9308

9309
9310
93N
9312
9313
9314

TIRECED RKG611 DSKLS CTRL PRT3
"IR6(E L1
27=AuG=81 10:24

MACYi1

30(1046)
28-AuG-81
ERROR MESSAGES

10:35

G 14
PAGE 176

SE3 (175

EMw?:

LASCIZ

/MRT

IN(ORRECT ON 1ST DOWNWARD TRANSISTION OF MAINT

(LOCK/

EMw3:

LASCIZ

/MRT

INCORRECT ON IND UPWARD TRANSISTION OF MAINT (LOCK/

EMWS :

LAC_[Z

/MR1

INCCRRECT ON Z2ND DOWNWARD

04751

TFANSISTION OF MAINT CLOCK/

CIRGCED RKE11 DSKLS CTRL PRTY
TIR6(E P
27=AuG=81 10:24
9343

9344
9345

SBTTL

9346
9347
I8
G349

064374
Q64376
0646400
064402

9351

064406

9350

3352
9353
9354
9355
9356

9357
9358
9359

9360
0361
9362
8363
9364

9365
9366
9367

9368
93¢9
9370
9371
9372

9373
9374
9375
9376
9377
9378
9379
9350
9381
9382
9383
9384
9385
9386

9387
9388

9389
9390
9291
9392
7393
9394

9395
9396
9367
G398

MACY11 3001046 28-AUG-81
DATA PATTERNS

064404

064410
064412
Q64414
Q64416
064420
Q64422
0644246
(064426

064430
064432
064434
Q04436
(0646440
064442
064444
064446

064450
064452
064454
064456
064460

064462
064464
(064466
064470
064472
054474
(064476
064500
06450
064504
064506
(004510
06457°
(64514

(064516
064520

064522
064524
(064526
064530
064532
064534

(064536
0646540
(0646542

(64544

064374

EVEN

000000
177777
125252
052515

PATTERN:

101706

060422

130715

177777

“eAD1:

000000
177777
000000

HEAD2:

177777
000000
125252

HEAD3:

052525
125252
052525
125252
052525
044444
(022222
111111

HEAD4:

DATA PATTERNS
.wORD
.WORD
.WORD
.WORD
.WORD

000000
177777
125252
052515

.WORD
,WORD
JJORD
.WORD
.WORD

130715
177777
000000
177777
000000

06042¢

.WORD
.WORD
.WORD

177777
000000

(WORD
WORD
LWORD

044444
(022222
111N

.WORD
.WORD
LWORD
.WORD
.WORD

125252
052525
125252
052525
125252
052525

LWORD
.WORD
LWORD
.WORD

(052012
100520
(052012
155555

HEADS:

155555
104210
104210
104210
100
101
102
103
194
105
106
107
‘10
1M

.WORD
HEAD7:
.WORD
.WORD
.WORD
NPRBUF: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
JBYTE
.BYTE

114
115
116
117
120
121

BYTE
BYTE
BYTE
JRYTE
BYTE
LBYTE

HEAL4:

112
113

114
115
116
117
120
121

122
123
124

125

100
101
102
103
04
105
106
107
110

112
113

122
123
124

125

101706

.WORD

052012
100520
052012
155555
066666

10:35

.WORD

.BYTEF
.BYTE

BYTE
BYTE
BYTE

RYTE

066666

155555
104210
104210
104210
100,100
101,101
102,102
103,103
104,104
105,105
106,106
107,107
110,110
111,111

112,112
113,113

116,114
115,115
116,116
117,117
120,120
121,121

122,122
123,123
126,124

125,125

H 14

PAGE 177

sEqQ (17¢

TIROCED RK611 DSKLS CTRL PRTY

IR6(E P11

9399
9400

9401
9402

(064546
064550

9423

9424
9425

9426

9627

9428

9429
9630
9431
9432
9432
9434
9435
9436
9437
9438
9439
6440
9441
9442
9643
G444
9445
9446
9647
9448
9649
9450

945"

9452

132
133
134
135
136
137

132
133
134
138
136
137

BYTE
BYTE
LBYTE
BYTE
.BYTE
BYTE

132,132
133,133
134,134
135,135
136,136

144
145
46

.BYTE
BYTE
BYTE

144,144
145,145
146,146

140
141
142
143

064602
064604
064606

9622

.BYTE
BYTE

06457
0645 ¢
064576
064600

9613
9614
9415
9416
9417
9418
9419
9620
9421

064610
064612
(064614
064616
064620
064672
064624
064626
(64630
064632
064634
(064636
064640
0646642
064644
064646
064650
064652
054654
064656
064660
064662
064664
064666
(064570
064672
(064674

064676
064700
064702
064704
064706
064710
0646712
(064714

DATA PATTERNS

10:35

126
127

130
131

064556
064560
064562
064564
064566
064570

1D:24

28-AuG-81

12¢
127

064552
064554

9403
604
9405
9406
9407
9408
9409
9410
9411
9412

27~AuG=81

MA(Y1Y 30(1046)

144
145
146

147
150
151
152
153
154
155
156
157
160
161
62
163
164
165
166
167
170
171
172
173
174
175
176
177
200
201

20¢
203
206
205
206
207
210
000102
064730

000C01

130
*3

BYTE
BYTE

140
141
142
143

147
150
151
152
153
154
155
156
157
160
161
162
163
164
165
166
167
170
171
172
173
A
175
176
177
200
201

202
203
204
205
206
207
210

126,126
127,127

130,130
131,13

BYTE
.BYTE
.BYTE
BYTE

137,137
140,140
141,141
162,14¢
143,143

.BYTE
BYTE
.BYTE
RBYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
LBYTE
BYTE
.BYTE
BYIE
BYTE
.BYTE
.BYTE
LBYTE
.BYTE
.BYTE
LBYTE
LBYTE

147,147
150,150
151,151
152,152
153,153
154,154
155,155
156,156
157,157
160,160
161,161
162,162
163,163
164,164
165,165
166,166
167,167
170,170
171,171
172,172
173,173
174,174
175,175
176,176
177,177
200,200
201,201

LBYTE
202,202
BYTE
203,203
BYTE
206,204
BYTE
205,205
BYTE
206,206
BYTE
207,207
BYTE
210,210
WRBUFF: .BLKW
06,
BADPAR= WRBUFF+14
LEND

1 14
PAGE 178

SEQ (177

CIR6CED RK611
(IR6CE.PN
ABASE

ACDW1

= 000000

000000
000010
000000
000000
000000
000000

1247
11044
12«7
1247
1247
1247

1291

BADPAR
BAj

(06473(
00002C

) b =
e e

4
4
4

4
4
4
4

8
5
4
4

5
6

0 ¥

NSV
O00 NN
VIVI0000 - JON0000 N NTWVTLVROD VN
— NNV
E =20 DO
NWND NOWNMN
OO OO0 O W

1247
124
?22

SPOPNONLNLNLPNVNL
AL RONL ALV NN RN PN
NN

1247
1247
1247

N—b—-l—.-—l—-l—a—d—h-l—)—l—d-fl—-l—-l-—b—a—l—l—-l-—l—l

000000
000000
000005
000040
000001
000200
000100
000000
000000
000000
000000
120210
000000

1247
1247
1247
1247
1247
1247
1247
1247
1247
1247
1247

AMTYP4=
APASS =
APRIOR=
APT(CSU=
APTENV=
APTS1ZAPTSPO=
ASWREG=
ATESTN=
AUNIT =
AUSWR =
AVECT1=
AVECT2=

1262

1247
1247
1247
1247
1247

D D d

AMTYP3= 000000

1290

1247

d YN N N

AMADR3- 000000
AMADR4= 000000
AMAMS
1= 000000
AMAMS2= Q00000
AMAMS
3= 000000
AMAMSS= 000000
AMSGAD= 000000
AMS5LG= 000000
AMSGTY= 000000
AMTYP1- 000000
AMTYP2= 000000

1288

1247

Q00000
000000
000000
000000
000000
000000
000000
(000000
000000
000000
000000

J 14

30(1046)
28-AUG-81
10:35
PAGE 180
CROSS REFERENCE TABLE <= USER SYMBOLS

1247
1247

b D e

000000
000000
000000
Q00000
000000

1247

IR ONIRINIRLAIRININI
O MU RN NN U AU

ADDW13= 000000

ADDW14= 000000

AMADRZ2-

1247

84124

ADDW11= 000000
ADDw12- 000000

ADDW15=
ADDW? =
ADDW3 =
ADDW4 =
ADDWS =
ADDW6 =
ADDWZ7 =
ADDW8 =
ADDW9 =
ADEVCTADEVM AENV
AENVM AFATAL=
AMADR1=

10054

7416

AND

ACDWZ =
ACLO
=
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=

177440

WMACY11

052356

ABORY

DSKLS CTRL PRT3
27=-AUG=-81 1):2¢4

72914
72904
72924
1260
1251
1254
1261
1247
1287

3509

7325

7464

7466

1286

3524

3554

3583

3596

SE3 0178

K 14
30(1046)
28-AUG-87
10:35
PAGE 181
CROSS REFERENCE TABLE == USER SYMBOLS

CZROCED RK6ET11 DSKLS CTRL PRT3
CZR6CE.PIT
27-AUG=81 10:24

MA(Y11

BA16 = 000400
BA17
= 001000
BITCNT
003622

10528
10538
22178

3627
3627
2587«

3628
3628
2569+

3727
3890
2612+«

3728
3891
2623+

4998+

4999

5073«

5074+

5176+

4355«

53871«
5729+

BITO
BIT00
BITO1
BI1T02
BIT03
BI104

=
=
=
=
=
=

000003
000001
000002
000004
000010
000020

BITO5 = 000040

6005+«
6287+
6555

938#4

948

9534
943k
9424
9414
9404
939«

937#
9364

BIT09 =
BIT1
=
BIT10 =
BIT11 =
Birt2
BIT13 BIT14 =
BIT15 =
BIT2
=
BIT3
BIT4
=
BITS
=
BIT6
=
BIT7
=
BIT8
=
BIT9
=
BPTVEC=
BSE
CCLR
-

9344
952#
9334
9324
9314
930#
9294
928
9514
9504
9494
9484
9474
9464
9454
9444
9604
1085
10614
2621
2965
4759
5695

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

935#4

4008
(oT
CERR
CFMT

= 002000
= 100000
= 010000

(KSWR =
CLEAR =
=
(OE
(R
=
CRLF
=
CSRPTR
(10
CTRRLT

104407
000005
001000
000015
000200
003640
004000
(045630

5398+
5732«

5993+«
6280
6543«

BIT06 = 000100
BITO07 = 000200

BIT08 = 000400

4356

10544
10604
0574

4922

7127
1034
10914
8684
B6o#
22254
1055#
74278

1049
953
952
951
950
949

947
946

945

944
1083
1054
1055
1057
1058
1059
1060
1084
1066
1067
1068
1050
1051
1052
1053

4465+

5610«
5738«

6095+«
6368
8126
108¢

71462

4466%

5491«
5755«

6098+
6371+
8132
1101

3789
3952
2680+

3953
4053
2693+

4053
4054
2705+

4054
4115
2754+

4115
4116
2767«

5179+

5252«

5255+

5261+

5278+

4575+

4576+

5494+
5767+«

5500+
S848+

L6BSx

5517+
5851«

67104
6377+
8158

6120+
6393
8160

6132«
412x
8163

7160

7336

1073
1074
1075
107¢
1077
1061
11C3
1085
1086
1087
1069
1070
1071
1072

1092
1093
1094
1095
1096
1078

1125
1110
1127
1111
1112
1097

1140
*126

7313
1141

1128
1129
1113

7320
7128
1130

1104
1105
1106
1088
1086
1090
1091

1119
1120
1107
1108
1109
1124

1134
1135
1121
1122
1123
1139

238¢
2631
2994

2607
2655
2084

2431
2670
3200

2452
2690
3329

2474
2702
3503

4798
5814

4868
5933

4907
6059

4050
2391
3627
2391

4109
2401
5004
2,01

5529«
5857+«

6221
6420%

4795+

5610«
5874+

2495
2712
3621

2518
2736
3672

2566
2764
3783

2581
2776
3845

2596
2786
3887

2609
2812
3946

5142
6717

5218
6796

2489

2523

2533

7537

7728

7811

5648+
5976+

5375«

2539
2751
3724

2479
6775
2479

7537
7481

5636+
5970+

5372+

1136
1137
1138

2446
6696
2446

7527
2307

5619+
5967+«

52600+

7167

2436
6619
2636

8114

5613+
5886+

6273+
£527«

4468

6696

2903«
4935+

6265+
6521«

4429

6680

2846+t
4905+

6246«
6518+

4358

5012
6331

2779+
4904%

6230+
6434*

4319

4971
6184

4796+

6224
6427+

4188

6579

733¢

4686

LI171

6487

7309

SEQ (179

5035
6482

2489

5076
6640

2523

2533

4539

4578

4649

L688

4194

4195

4870

4888

5338
7428

5457

5576

CZR6CEQ RKk611 DSKLS CTRL PRI3
CZRGCE.P11
27-AUG-81 10:24
DCK
= 100000
DDISP = 177570
DDT
= 000400
DFOO0
051302

DFOOT
DFOT5

051306
051332

DFQ22

051402

DFO17

DFO25
DFO3T
DFO35

DFO4T
DFO42
DFOS4

051356

051426
051452
051476

DFO55
DFO72
DFO77
DF150
DF164
DF170
DF171
DF175
DF211
DHOOOA

051522
051546
051572
051616
051642
051676
051722
051746
051772
052016
052042
052066
052467

DHOO0B

052505

DHO00C
DHOOTA
DHO01B8
DHO15A
DHO158
DHO17A
DHO17B
DHO22A
DHO022B
DHO25A
DHO25B
DHO31A
DHO318
DHO35A
DHO358
DHO41A
DHO418
DHO42A

052520
052551
052630
050707
052726
052744
053010
052056
053135
053212
053236
053264
053363
053461
053560
053655
053672
053707

DHO42B
DHOS54A
DHO54B
DHO55A
DHO558
DHO72A
DHO72B
DHO72C

053746
054004
054031
054057
054124
054172
05423
054267

L 14

MACY11 30(1046)
28-AUG-81
10:35 PAGE 182
CROSS REFERENCE TABLE == USTR SYMBOLS

10974
8754
11004
1929

81814

1398

1406

1374
1286

1416

5005
1220

1326
2050

1422

1428

8223
1464
1488
1602
1770
1885
1722
1518
1638
1584
1662
1692
1971
2013
83374
2040
2062
2134
8195
8329
8197
8331
84334
84384
844654
84544
8457

8271
8279
8281
8289
8291
8299
8301
8303

85534
8553%
85624
85664
85734
8313
8315
85924

8209
8211
8219
8221
8229
8231
8239
8241
8249
8251
8259
8261
8269

2270

1320
1392

143,
1458
1482
1596
1764
1878
1506
1512
1572
1578
1656
1686
1935
2007
2030
2035
2056
2128
8185
8319
8187
8321
1927
8189
8191
8199
8201

SEQ 0180
)

1332
8193

1338

1344

1350

)

1356

1362

1368

1374

1380

1548

1554

1560

1566

1410

8203#

1440

14646

1452

82134

1470
1496

1476
1500

8233
1526
1620
1806
1906

1530

1626
1812
82434

1536

1632
1818

]
1542

1977

1983

8263#

1650
16764
1788

1947
82734
1848
1657
3

185
1728
1924

1953
1734
83074

1959
1740

-989
1746

1995
1776

82834
82934

2025

7086

2092

2098

2104

2110

8235
8369
8237
8371

8245
B42B#
8247
84314

8255

8265

8257

8267

1608
1796
1892
1912
1862
1965

164k
1668
1782
B8317#
2019
2045
2068
2140
8205
8339

2207
8341

8460#
8466w
8473#
8481
8489
8493#
84974
85084
85194
85304
85414
B8544n
85474

85804
8586w

1614
1800
1899
82534
1941
2001

837a
2074
2146
8215
8340

8217
8351

1698
1826

1704
1830

1710
183

1716
1860

81834

1590

1752
1866

1758
1872

2116

2122

83574

8275

8285

8295

8309

8277

8287

8297

(8%
8367#
w2ci
B350
8227
831

CZR6CED RK6TT DSKLS CTRL PRI3
TIR6CE.P1T
27-AUG=81 10:26

MACY1T

DHO72D
DH1S50A
DH150B
DH164A
DH164B
DH170A
DH170B
DKH171A
DH171B
DH175A
DH175B
DH211A
DH211B
DI
=
DISPLA
DISPRE
DLT
=
DMD
-

8305
8323
8325
8333
8335
8343
8345
8353
8355
8363
8365
8377
8379
10594
12204
11494
10784
11204
2567
2662
2814
2905
3006
3104
3223
3391
3560
3735
3805
3956

86004
8608~
86134
86194
8626#
86334
B6LLA
86554
8658#
8373
8375
86834
86874

4653

4654

054346
054423
054457
(054515
(054561
054627
(054726
(055024
055043
(055061
055160
055255
055303
040000
001142
000174
100000
000940

2278+

7182«

7312+

2387

2394

2395

2432

2439

2440

2475

2482

2483

2519

2526

2527

3622
3736
3806
3960

3631
3737
3888
3961

3632
3740
3893
3962

3636
3742
3894
3965

3637
3743
3898
3968

3638
3784
3899
3969

3641
3792
3900
4051

3643
3793
3903
4056

3644
3797
3905
4057

3725
3798
3906
4061

3730
3799
3947
4062

3731
3802
3955
4063

4767

4768

4869

4,872

4873

5161
5237
5345

5162
5238
5346

5165
5241
5350

5166
5242
5351

5184
5245
5352

5532
5593
5696

2568
2673
2815
2906
2010
3107
3257
3428

2569
2675
2820
2907
3011
3108
3258
3429

2572
2676
2821
2908
3012
3137
3330
3504

2573
2679
2845
2935
3015
3138
3338
3513

2584
2681
2848
2937
3017
3201
3239
3514

2585
2737
2849
2938
3018
3209
3343
3518

4069
4203
4430

4110
4204
4433

4118
4205
4434

4119
4208
4437

4123
4212
4438

4877

4972

4975

4976

4979

4980

5036

5357

5358

5144
5219
5295

4657
5145
5225
5296

5151
5226
5299

5152
5230
5301

5778
5838
5946
6021
6088
6199
6310
6442
6501
6601
6958

5783
5841
5947
6022
6138
6202
6332
6444
6504
6605
6970

11014

6621

6698

6777

5039

4125
4245
4543

5040

2656
2742
2879
2945
3095
3215
7348
3523

2657
2743
2880
2952
3099
3216
3351
3526

4128
4246
4544

413
4320
4547

5043

S044

2658
2755
2881
2996
2100
3219
3352
3527

4189
(324
4650

5045

5046

5470
5545
5603

5471
5546
5651

5474
5577
5653

5476
5583
5654

5477
5584
5657

5480
5588
5659

5481
5589
5664

5484
5590
5665

5784
5889
5950
6060
6140
6204
6339
6445
6505
6606
6982

5815
5891
5952
6067
6141
6205
6340
6448
6508
6678
7007

5821
5892
5953
6068
6144
6210
6344
6450
6509
6682
7010

582¢
5895
5956
6072
6146
6211
6345
6456
6511
6683
701

5826
5897
5957
6073
6151
6213
6346
6457
6561
6755
7012

5827
5902
5960
6074
6152
6295
6349
6483
6563
6761
7013

5828
5903
6708
6078
6185
6297
6351
6490
6564
6762
7016

5831
5934
6010
6081
6192
6298
6352
6491
6567
6873
707

5365

5712

56413

5714

5415

5715

5416

5718

5419

5719

5421

§72°2

2661
2813
2884
3005
3101
3222
3390
3559

4132
(323
4548

5158
5235
5339

5709

5776
5837
5945
6016
6086
6198
6309
6360
6497
6575
6932

(764

4124
4213
4540

2602
2739
2851
2944
3094
3214
3345
3520

5157
5232
5307

5708

5469
5540
5600

4763

2586
2738
2850
2941
3085
3210
3344
3519

5156
5231
5306

5362

5773
5834
5941
6014
6085
6197
6303
6358
6496
6574
98;;

5707

4760

5361

5464
5535
5596

5703

5465
5538
5599

4658

5458
5534
5595

5702

0006001

2270+
2278

4068
4199
432

5355

SEQ 0181

86614
86724

4066
4198
4327

5143
5191
5293

DRA

M 14

30(1046)
28-AUG-81
10:35 PAGE 183
CROSS REFERENCE TABLE == USER SYMBOLS

5426

5770

L876

5427

5772

5833
5940
6011
6082
6193
6301
6357
6495
6569
6903
7018

CZR6CEQ RK611 DSKLS CTRL PRT3

CZR6CE.P1T

27-AUG=81 10:24

=
DRDY
=
DROT
DRPAR =
DRVMSK=
DSC
=

000200
000040
000010
000007
040000

11084
11064

DTCOT

050644

1313

MACY11 30(1046)

28-AuG-81

10:35

6699

DSWR = 177570
= 010000
DTE_
= 000040
DTYE
050640
DTO00
050664
050674
050712
050732
050744

1385
1397
1615
1433
1457

1391
1403
1421
81324
1463

2049
1409
1427

8124#
81264
1439

1469

1475

81344

1595
1763

1601
1769

1607
1793

1613
1799

1619
1805

DTO35

050770

1481

1219
81204

1319

1487

DT041
DT042
DTOS54

051014
051024
051040

1877
1505
1517
1571

1517
1637

D077
DTI50
DT16&
DI170

051120
051134
051150
051166

1685
193,
2006
2029

051222

2055

DT055
DT072

DT171

DT175
DT2171

051052
051070

057212

057246

ECCW

= 020000

ECH

= 000100

EMW

002170

CEMW1
EMW2
EMW3
EMWa
EMOO0
EM200
EMO01
EMO02
EMI03

064033
064122
064213
064302
055340
55405
055467
055552
055643

EMTVEC= 000030

EMO04
£M205
EM206
EM207
EM208
EM09
EM210
EMI11

055735
056023
056111
056154
056203
056254
056343

056457

1577
1655

2034

2127

1128#
5540

1884
1721

1325

1493

1499

1337

1343

1349

1445

145"

81294

1523

1529
1625
1811

1355

1361

1367

1373

1535

1541

1547

1553

1559

1631
1817

1697
1823

1703
1829

1709
1835

1715
1859

1858
8142#
1940
2000

1905

81384

1946
81464

1976

1982

8144w

1691
1970
2012
81634

1781
8158#
2018

1787

1917

1853
1727
1923

1952
1733

81564

1958
1739

1988
1745

199
1775

8148
81514

2024

81604

2039

2061

2044

2133

2067

B167A

2139

2145

1583
1661

1643
1667

6283
10884
9634

2253%

2254+

6570%
6878
6908
6922
6937
1926
1311
1329
1347
13¢5

6528+«
93034
6963
6975
6987
B694N
1317
13,.
1353
1371

6878+

1653

1331

18917
191'
1841
1964

2602
5659

1383
1413
1479
1527
1545
1587
1611

SEQ 0182

2269

2586
5603

20278
5858«

PAGE 184

CROSS REFERENCE TABLE == USER SYMBOLS

10854
10654
11124
8744
10944
10874
1928

DTOIS
DT017
DT022
DT025
DTO31

N 14

6303

5175+
5959

1389
1619
1485
1527
1551
1583
1617
1659

6360

5244+
5977«

1649
1673

1847
1679

1379

81214

1565

1589

1751
1865

2073

2079

2085

2091

2097

2103

2109

2115

2121

8169

2681
5722

2755
5778

2845
5841

2952
5897
€511

5162
5960

6569

5245
6016

5301
6088

S365
6146

5421
6213

5484
6277

5840«
6411+

81734

6424

6430

6450

5262%
6087+
6908+

5364+
6105«
6922+

5382+
6212+
6937+

5483+
6231+
6963+

5501%
6251+
6975+

5602+
6264+
6987+

5620+
6359+

5721+
6378+

5739+
6398+

1407
1437
1583
1569
8769«
1635
B7&(#

8739
1443
1509
1575

1449
1515
1581

1455
8750w
B7&5H

1461

1467

147%

8749

1641

1647

B7764

93134
9323«
9333w

1323
1341
1359
1377
1395

1425
1491
1533
1557
1599
1623
1665

1757
1871

87014
87104
8719
8729
1401

1431
1497
1539
1563
1605

1629
1671

1677

BBOO#

CZR6CED RK611 DSKLS CTRL PRT3
27-AUG=81 10:24

MACY11

O O VIWIAN

=3 OO = = 0D — b b —d —d b b b b
O O 00O O 00000000
N N~ NN
00 O~ N O 00 \VVNO
00
ON—= NN
=20

6359
6378

89834
89904

WO~

1654

1684

2048

2054

00000

1612

2005

1732
92174
1762

1756

1768

19504

1828

)

158%
1249

1810

1834

1876

B
X

—

— =PI
OOW—=—OO
O
=0
N WWO
W —

90914
90954

18:¢2
883

AN
WwWOooO~

G P

%J\NO\{:OO—"JVJ

O — — =2 O — = PN
=SB NWWO
NN
2O
O = £ N0 MIWWNO
0o
—
e
—

O OO

1354
1360
90994

—

=
N
PSS NN S~ 00O 00NN

N e e R

WN—=O

—

9224LN

1660
2084

) =

e R

1792

——

EmM3021

1348

90514
90604
90694
90804
1480
1858

063201
063232

2065
2089
2113
2137

——

Em3020

2059

063153

88574

oos

EM3019

'915

—

EM3018

062723
062774
063042
063107

88444

90184
90254

G ] A W1 A ]

EM301
EM3016

—b

EM3013
EM301

—d —

EM3011
EM3012

EM3010

1845

6087
6105

9114k

EM3005
EM3006
EM3007
EM3008
EM3009

S80S D WANNWNKWWNDD
NN 2O
NONICOON NN NN S NN O OOV 0ON) = rON—=2NO N
NOPROONCONNLON
SO OCONIONO S H OOV
N

EM3004

061627
061653
061677
061747
06202
062123
062224
062345
062425
062504
062551
062620
062666

—

EM3001
EM3002
EM3903

1839
88494

8865#.

2047

061564

88144
882°#

1909

EM238
EM239

EM240
EM241
EM242
EM243
EM244
EM3000

SEQ 0183

1719
1773

88284

D
d D
d =) e
e
b
b ed
=D

OO NN

2 =

IV LV (WL LV
I
(I

EM221
EM222
EM223
EM224
EM225
EM226
EM227
EM230
EM231
EM232
EM233
EM234
EM235
EM236
EM237

elolololololalalele

EM212
EM213
EM214
EM215
EM216
EM217
EM218
EM219
EM220

OO
O — OV VOOV OVVO000N YNNOON
S ONISNNWN O 00 NONNNINCO
=2 O NS PO 00

CZR6CE.PIT

B 15

10:35
PAGE 185
30(1046)
28-AUG-81
CROSS REFERENCE TABLE ==~ USER SYMBOLS

9233

MACY1T

1846
1852

92374
9244n

4351
4610
4922+

3299
3542
3818«
4258

3349+
3554+
3822
4268+

6652
8156

6697+
8160

3161
3839

3162
3932+

003506
003522

NWVIWANOD

»>

NN
ON S

SN
= NN
—
V00O ~N—

WWMNNY
ONPNVODWNY
VIOCONN

(¥,]

~
o
o

4219

2635+
2888
3296
3675+

4145
4485
4791

5057+

5788+
6580
8121
3238
3444
3660

L1440
4484
4818

5107
6808

3580«

4493«

4510

6165
4932+

6647+

6655

6803+

6622+«
8169
2602«
2853
5202

6632
8173
2606
29°0
5565+

8146

4609+
4944

3120+
3385+
3825

SN
—ONANND
2O N0
WO ~

»
»

4598
4938%

5312
6156+
6700
8148
3052

7101=

4339«
4595
4900

5311«
6027
6696+
8144
3048+

003510

2449

7091«

NN
N — N
O NOW
NO =W

2747%
3079
3477
3890

bbb

~
S

277
3049
3441
3819

O NS £ NN NN OO O
NO NWNNO
NS —d

2893
3247+
3545
3994«
8134

7056

2868
3241
3505+
3988
8129

7139+

7055

7614

2279«

=S =0WnNo

92944
92994

QNS00
N0 NN
MOV OO O 00O W\ N

2138
2144

»*

OO0
= O SN

NI ~InRurOD
Y SPSRR
Y e )
WNON
D) = o~

92904

3029

003532
003534
003514

1987
1993

1951
1957

SEQ C184

9262#
92694

003500

003520
003512

1976
192¢

nono S W WINND
\“\ OO £~Mr0 0o
] [0,3¥,] NNV
(o 0 2 - OV

003516
003504

1642
1648
92514
N NN WY =2 NONMAIND
— £~ (AN
-0 (¥4}
L I}y

063256
065326
063376
063422
063472
063541
063610
063657
063726
063754
064007
003610
ERRVEC= 000004

10:35
PAGE 186
30(1046)
28-AUG-81
CROSS REFERENCE TABLE == USER SYMBOLS

NN
OO S NN

(IR6CED RK61Y DSKLS CTRL PR T
CZROCE.PY
27-AuG-81 10:¢

14
4n

003524

6709

6735

6778

6788

2687

2710
5186
5603

2755+
5189
565C+

2761
5190

5182+
554C+

5660

TZR6CED RKO11

mmmm

TIROLE.P

.MRZ
-MR3

003526
003530
003536
002502

.SPAR

.WC

30(1046)

CROSS REFERENCE

TABLE == USER SYMBOLS

5778«
6283«
6886+
6957+
2402+

5779
6303~
6887+
6960
2409

5841+
6304
6892+«
6969
2447 %

5897+
6360
6897+«
6972
2454

5898
6424
6902«
6981«
2490+

5960«
6430+
6905
6984
2497

6016«

6017

6088+

2535«

2544

8121

21694
3131

2829+
7134

2840
3154

2873
3204+

2898
3244

2930
3268%

2959
3254+

2989+
3274

3765

3785

3812

3828

3832+

3918+

3928

3948

5722+
6277«
6875
6954«
21798

s}gg#
”

FMTE

GNS

3407

000020
tREARY

000001

GTSWR

104406
066472
064420
064426
064442
0646450
064456
064464
000011
000400

HEAD?

HEADZ
HEAD3
HEAD4
HF ADS
HEAD6

—

T
T I
L
T I
T

ILF
INTR
I0OTVEC

T T

IDAE

HT
HVR(

HEAD7

002000

000100
000001
000300
000020
000100

KIPDR7=
LF
MO
K

O
0
oOOwW N NN
OO SO TLO

NN NN
NN NN AN

D D
D
b
D ad
vod =
b ek ot = oed =

KiPDRS=

K |PDR6=

QONNNNNNNNNNNNNNNYN
O OMuNuMLNIRLNINDNLNONOPNON
RGO MNOTY

KIPDR4=

OO~

K IPAR4
=

K ]PARS=
K |PARG6=
K]PAR7=
K I[PDROKIPDR1=
K IPDR2=
KIPCR3=

2412

3435+«

3450

g;;l-

4133

4154

10864

6622

6699

1148
8114

1049%

2306
8115

2448+

3459«

6849
8117

8103

8104

5907

4483

6026

4593

6156

5056
93564

4382

4,887

4931

4558
4668
4778
5816
5935
B66H
10904
10924
10504
10824

4602
4712
4822

5859
5978
7479

5459
5578
5697
93714
93744
7537

5502
5621
5740

9614

2251«

2252«

3583

3596

3653

5005

9Ly
9954
9964
9974
9984

999#

10004
10014

9834

9844
9854
G864
9874
9884
98G#
9904

8674

11234

2905

5340

3028

3548

6842
8116

4338

1069%#

3533

2500

4237

4373

10454

3507+

2497

4225

3627

44972

2457

187

4191+

gigg#

4448

10:35

4158«

g%g?

4374

K IPAKD=
K IPAR1
K JPAR?2=
K IPAR3=

2403«

28-AUG-81

D 15
PAGE

MACYT1

DSKLS CTRL PRT3
27=AUG-81 10:24

5383

6213«

3038
3333«

3088+
3373

3089+
3377«

3090
3378

3121+
3384

3975

3991

3995+

4081+«
8134

8141

3576

3625+

3669

6872+
6951+

3755+

409

8106

8107

809

8111

8112

8113

4703

4813

4922

6579

6619

6696

6775

5311

5431

5550

5100

5220

5263

6061

6062

6484

6485

9353

6186
93654
9368#

6187

93594

2169

3220

1280

3295
4719

4814

2675

2742

6314

6461

4594

4609

4704

7041

7069

3879«

3937«

4042«

4100+

2482

2526

2572

2661

3774w

6570
6934
8167

8105

4499

3716+
7085

6147

8129

4484

6620

6569«
6931+
8163

3557+

6146«

4264

(389

5107

3551«

6511+
6930
8134
8121

6451
6919
8132
2541

4250+

3105

5092

6450«
6916+«
8126
2534+

4241+

3048

3676

SEQ 0185

3753

6646

3818

6697

3916

6723

3981

6776

5004

3349

4079

6802

5091

34610

3460

3476

2504,

4144

4209

4268

4283

2820

2848

2850

2880

4829

4923

4938

4984

7531

2394

2907

7537

2439

2937

2944

3005

011

L{h g

3094

310C

3107

3137

3205

3218

TIRGLE.PN

043650
003630

MEMVEC= 000114
MERD
= 001000

ME SMSk= 000017

MEWD

= 002000

MIND

= 00uc00

MMVEC = 000250

MSP

= 000100

mM1.8I7T

003616

3257
3730
4062

3338
3736
4068

3344
3742
4118

3351
3797
6124

3390
3798
6131

3428
3805
4198

3513
3893
4204

3519
3699
4212

3526
3905
4245

3559
3955
4323

3621
3961
4433

3¢37
3968
4543

5306
5565
5940
€297
6682

5345
5€53
5946
6309
6761

5351
5664
5952
6339
6872

5357
5702
6210
6345
6873

5615
5708
6021
6351
6886

$426
5714
6067
6444
6916

5664
5772
6073
6456
€917

5470
5783
6081
6490
6531

5476
5821
6140
6496
6954

5534
5827
6151
6504
6969

5545
5833
6192
6563
6970

5583
5891
6198
6574
6981

5589
5902
6204
6605
7007

2681

2755

2845

2952

516¢

7010

1072#
10044

1167
22204

1003%
11244
11174

11254

5540
6360
11224
3214
3736
4063
5293
5534
5773
607¢
6345

972N

(ROSS REFERENCE TABLE =-- USER SYMBOLS

4763

7012

2586

2602

5603
6450
2673
3215
2737
6123
5295
5535
5826
6073
6346

5165

5225

5231

5237

5295

5659
65"
2675
3216
3797
4124
5296
5588
5827
5074
6442

5722
6569
2676
3343
3798
6125
5350
5589
5828
6138
6444

5778
6872
2935
3344
3799
4203
5351
5590
5889
6140
6445

5841
6887
2937
3345
3898
4206
5352
565°
5891
6141
6495

5245

5301

5365

5421

5484

5897
6892
29328
3518
3899
4205
5413
5653
5892
6197
6496

5960
6916
3010
3519
3600
5156
5415
5654
5945
6198
6497

6016
6930
3011
3520
3960
5157
5616
5707
5946
4199
6561

6088
6981
3012
3636
3961
5158
5469
5708
5947
6295
6563

6146

6213

6303

3099
3637
3962
5230
5470
5709
6008
6297
6564

2100
3638
4061
5231
5471
5770
6010
6298

3i01
3735
4062
5232
5532
5772
6011
6344

2879

2880

2881

4327

6437

L4547

4657

4330+
4782+
5284
5625
5881+
6236
6532

4342%
4BO6+*
5285+«
5626+
5964+
6253
6533+

4366+
4879+
5369+
5642
5982
6254+
6549

4440
L8911+
5387
5643
5983+
667
6550«

L4452+
4915+
5388«
5726
5999
6268+
6890

L4776
4982+
5404
5744
6000«
6364
6949

2814

6550

4562%

4586+

4660+

4672+«

L696x

5267
5524%
5864+
6217+
6475+

2780%
4770%
5268+
5607+
5880
6235
6515+

5267+
5761«
6267+

5284+
5846+
6365+

5370+
5863«
6382+

5387+
5880+
6400+

5404+
5965+
6474+

5489+
5682+
6516+

5506+
5999+
6532+

5523+
6093+
6549%

5608+
6109+
6895

5625+
6126+
6900

3158
3769

3202
3776

3203
3777

3229
3836

3278
3881

3331
3932

3332
3939

3358
3940

1388
3969

3505
4044

6955

5060+
5488+
5761
6109
6383+
7005

6102

1038#
1
1
2

8383«

5157

2738

4095

"nouwu

5151

2657

3653
6865

000015
000004
020000
052122

5045

2584

4876
59%46
258G+

1075#
0744
23664

OFFSET=
OfFST
OP]
OPROOT

5039

2568

4767
5837
22154

= 010000
NED
NEM
= 004000
NEWPAS
004636

000004

708

7018

5173«
5727+
€235+

NXF

7016

1166
7010

22164
5642+
g%;g'

064472

4975

7024#

(003620

NPRBUF

4872

SEQ C18¢

11214

5048+
5405+«
5745+
6092+
6382

M2.BIT

PAGE 188

3222
3643
4056

4653

MEMERR
MEMPAR

E 15

28-AUG-81

27~AuG=81 1J:24

= 001000
MDS
MEMBAS= 172100

17:35

MACY1Y 30(1046)

TIR6CEQ RKGE1T DSKLS CTRL PRT3

3086
3506

10844

3087
3580

4979
6085
26¢c4w
5084v
5506
5762«
6110«
6400
8126

5250«
5744+
6253+

2114
3718

4103

5043
6210
2683+

5172«
5507
S5B45+
6126
6401+
8163

64162

5144
6357
2706+
5249+
5523
5863
6127«
6414

«192

5183
6508
2757+

6193

5184

6219

5189

4267

5241

6333

5361

6334

56480

93774

5599

5718

10:35

F 15

PAGF 189

CZR6CED RKk611 DSKLS CTRL PRT3

MACY11 30(1046)

2b6-AUG-81

OPRO02
OPRO03
OPRO04
OPROCE
0PRO07?

2316
2323
2335
2310
7430

2327
83894
83934
8396#
8404n

2344

83884

3583

3028

3105

3251

3280

4594

3656

3220

4484

2654

4704

4814

492%

5092

1155

22284

6886

6902

6951

22144

2588+«

2615+

L4777

(549

4555+«

TIR6(E.P1

052154
052162
052212
052234
052307

= 000200

PACK

= 000003

FARM

27-AUG~81 10:24

PARPRE
PAR.EN=
PAT
=
PATTER

003642

10704
1033«

003636
000001
000020
064374

2223
10064
1119#
2985

= 010000

11274

= 020000
PIP
PIRQ
= 177772
PIRAVE= 000240

11114
8734
9674

PCA

= 004000

PGE

= 002000

PCD

PR.BIT

003614

11264

10/34

4329

PRC

= 000000

6514+

8904

8914
8924

PR6
PR?

= 000300
= 000340

8964
8974

= 177776

8714

003556
003544

2194n
21854

PSWw

- 177776

PWRVEC= 000024
P.ASOF
P.BA

8934
8944
8954

P.MR2
P.MR3
P.SPAR

003560
(003570
(00357¢

4568+

4586

4587+

4659«

4665+

4775+
4981~
5286«
5627

5963+
6254
6534+

4782
5047+
5368+
5643

5983
6255«
6550

6712«

6791«

8177

21924

€637+

(714«

6763«

8177

21934

6638

6715«

6794+

8177

2200#
22014

003564

4565«

6635«

003572
003574

003554

4562

B04B+

P.ECPS
P.ECPT
P.MR1

2756+%

B047+

21964
2195#

P.ER

2707

2258+

003562
003560

003552

2706

2257+

P.DB
P.DCYL

21974

21984
2199
2202#

4209

2696+

9624

6636+

6713

2434

4144

2682«

4348«

8062

21914
21904

34°C

4079

4366

4785«
5053«
5388
S5¢44%

5984+
6268

4367+

4788+
5060
5389«
5725+

€551+

6000
6269«
6888

8061+«

8062

2¢0¢

871

3381

3981

2625+«

4769
4916«
528°¢
5626

6533

3349

2624

4345+

8048

21874

P.DS

2366

3916

3460

3504

3554

4227

4268

6374

2770«

2/80

2781

4672

L4675+

4678+

6957

4342

5882«
€237«

3818

2238

003540

003550
003546

5881
6236

6897

3753

1168

8§04

P.CST

P.(S¢
P.DA

4335+

6416

= 000040
= 000100

= 000140
= 000200
= 090240

6886

L697~
4915
5269~
5606+

PRY
PRZ

PR3
PRG
PRS

93464

4696
4897+
5268
5625+«

5865+
6216

SES (187

CROSS REFERENCE TABLE == USER SYMBOLS

6792+

8177

4439«

4806
5063
5405
5745

6001+
6363
7063

4445

4807+«
5066
5406
5746«

6091+
6383
8126

4452

4455

4878+
5084
5487+
5762

4884+
5085+«
5507
5763+

6110
A3BLx
8163

6111«
6401

4458

489
5171«
5508«
5844+

6127
6402

4476

4894«
5248«
5524
5864

6128+
6415

G 15
MACY11 30(1046)
28=-AuG-81
10:35 PAGE 199
(ROSS REFERENCE TABLE == USER SYMBOLS

CIR6CED RKOT1T DSKLS CTRL PRTY
TIRGIE P
27-AUG=81 10:24
P.w(
P1.81T

003542
003612

RDBITM

(043540

RDCHR = 104610
RDDATA= 000021
RDGATE= 100000

RDHEAD= 000025

2188#
2213
5395+«
5630«
5865
61C1«
6261+
6513+
2591
6368
366%

”

RKBA

= 000004

Rr(S1

= Q02000

1153

RkDB

- 000006

= (000024

2635

2659

2656

e716

4888

4922

4973

4983

5037

5057

4779

4813

4870

2771
4588
4986

2328

4339

6373

4631

64649

4483

6541

4559

4593

5004

2740

2747

4651

64669

4703

5091

6603

2345

B114a

4373
5807

4483
6026

4593
6156

4703
6314

4813
6461

4922
6579

5004
6619

5091
6645

5311
(696

5431
6722

3112
3649
5146+«

3143
$747
5220+

3203
3788+
5340+

2479+

2486

3675
5788

81164

22314
2816+
3263
3910
5578«

2825
3332«
3951«
5697«

2861
3356
3973
5816+

2886
3396
4073
5935«

2918
3439
4114%
6061+

2950
3506«
4136
6186+

2999«
3531
4192«
6333+

3022
3565
4217
64BLr

3086
3624
4253
6758¢

2518+
2655«
2751«
2994+
3286
3621+
3891+

2523+
2656«
2764+
3002+«
3329+
3628«
3909

2530
2659+
2776
3021
3335«
3647
3946

2539«
2665
2786
3046
3355
3672«
3953«

2566+
2670«
2789
3084«
3394
3673
3972

2570+
2690«
2812«
3091«
3416
3724+
4008

2576
2702«
2B18+«
311
3437
3728+
4050+

2581+
2712«
2824
3141
3467
3746
4054+

2596+
2715
2860
3165
7503+
3783«
4072

2609x
2736
2885
3200«
3570+«
3790+
4109

2621+
2737«
2917
3206«
3530
3809
4116+

2431+
2740+
2949
3226
3563
3845+
4135

2634
2746
2965+
3261
3587
3887+
417"~

4761+«
(987
53190

4790
5002
5338«

4798+
5012«
5342«

481"
5035+«
5430

4825
5037«
5457+

LB6B*
5068
5461+

4B70+
5076+
5549

4899
5089
557¢*

4907
5103
SS8(0»

10134

4688
4920
5142«

RkDA

2577

2759
4569
6917

10154
3227
3810
5459«

4188«
4460

RkCS2 = 000019

2570

2475

3627
ggg?

957#
10204

003652

2489

2401

10514
2;;?

RESVEC= 000010
RKASOF= 000016

RESTRT

6349
4698
5086

2391

8113

1037#
7410

= 000200

4336
4679
5067

2685
4478
4881

8112#

7961

RECAL = 0C0013
RESREG= 104474

RDY

6332
4666
5054

2626
6459
4808

6321

2317

2782
L662
5050

2616
L6466
«/789

2790

RDOCT = 104412

5392+
5427
5854»
6090+
6256
6417+

5272«
5508
5735«
5962+«
6129«
6384
6551

2602

1042#8

5367«
5526«
5763
5990«
6240+
6603+
8163

5389
5616«
5843+
6002«
6255
6416

2708
4556
4898

‘
5_87+«
5525
5752«
5987+«
6237
6402
6947

5378«
5605+
5764+
6001
6243+
6408+

2697
6552
4885

5286
5574+
5749«
5984
6227«
6390+
6893

5249
5497«
5724
5883«
6128
6374+
6540+«

2604
4642
477¢

5247+
5407+
5644
5871«
6114
6270+
6534

5275+
5511«
5746
5973«
6215«
6387+
6552+

5258+
5486+
5645+
5882
6117«
6362«
6537+

7887
10604
11304

6761

RDLIN = 104411

5170+
5406
5633
5868+
6111
6269
6524

)
SEG (188

5668
6184+
6641

10178

3292
3817

2386+

4195
LL68n

2391«

2607+

4251
4495

5695«
5189+
6680+

5699«
6313
€688

5787
6331
6692

3363
3915

3295
3680

3420
4078

3438
4143

3473
4224

2434

2477+

2521e

2908w

47]1
4934
5148+

2390x

4715
4971x
5218+

2435«

4702
6677«

4716
6693

1022¢

3041

3160

238G«

4759
4973«
5222+

2478«

4812
6719
3281

4279
(539

2431+

4216
4481

4606
66472

10164

2398

5814«
6336
6717+
2522«

4,826
675+«
31

43109y
4541

5818+
6460
6718
3000~

4921
6772
3462

2436%

4321+
4570

5906
6482+
6759«

2443

4350
4578+

4358
4591

2474+

4371
4605

4385
4649

4429
LHS5T

2405+

(437
«680

5937«
6578
6771

£025
6603
6796

6056
6611
6797

6064+
6615
7428+

4935
6798

3538
4280

4588

3564
4372

3593
4386

3648
4482

3674
4496

3757
4592

3582

37¢8

3837

3931

4000

4094

443

30¢7

3509«
4252

5933«
6487+
6767

2452

3047

3119

5003

3142

5090

3166

5104

3234

6600

6155
6640
3262

4616

H 15
30(1046)
28-AuG=-81
'0:35
PAGE 191
CROSS REFERENCE TABLE == USER SYMBOLS

FIRGCED Rke1Y DSKLS CTRL ORT3
TIR6CE.FM
27=AuG=B81 1):24

MACY1Y

427

4384

4494

4604

4774

4824

4933

10184
10264

6617

6643

6694

6720

6773

6799

10230

2387+

4056%
G125«
L2645«
4543«

4057+«
4128+
4246
4544

406'+
4L131x
4320%
4547 >

5040+
5'61x
5235«
5345+
5419«
5480+«

5043«
5165«
5237«
5346+
5420
5481«

5044«
S16€+
5238+
5350+«
5425«
5532+

RxDLYL= 000020

RxDS
= 000012
RKECPS= 000030
RKECPT= Q00032
RKER

RKMRT

= 00004

= 000026

10218

1027#
10194

2567+
2661
2760
2879
20L4Ly
2094+
3214«
33L5e
3520«
3643«
3793«
7903+«

(768~

5589+«

5665«
5772«
5833«

5941«
6015
6086+
6199«
6332*

RKkvEC
Rkw(C

RLS

6800

2568«
2662«
2772
2880+
2945+
3095+«
3215+
3348
3523+«
3644
3797+«
3905+

2569
2673+
2783
2881~
2948
3099+
3216+
3351«
3526+
3725«
37908+
3906«

2572«
2675+
2813«
2884+
2996«
3100+
32719«
3352«
3527%
3730«
3709+
3947«

2573+
2676+
2814+
2905+
3005+
3101+
3222+
3390+
3559«
3731«
3802+
3955«

2584+
2679+
2815«
2906«
3006+
2104+
3223«
3397«
3560+
3735+
3805«
3954«

2585«
2686
2820+
2907+
3010+
3107+
3257«
3428«
3622«
3736
3806+
3960+

2592
2698
2821+
2308+
3011«
3108+
3258+
3429«
3631+
3737+
3888+
3961«

4972+

4975

4869~

5590+«

5696+
5773«
5834+

5945+«
6021«
6138+
6202x
6339«

22054
10144

2359+
2817«

3786«

3811

SAVREG- 104413
SAySwR (0036%

5147«

10664

7359
22228

5001
6679

6774

003600
0000C2

= 000010

6602+

6721

2361+

3228

2997«

6695

22064

10284

2520¢

6644

003602

RKSPAR= 000022

2476+«

6618

6448+
6508+
6678«
€918

7012«
10248
10254

2433«

3651

6445
6505«
6609
6917+
RKMRZ - 002034
RKMR3 = 000036

RKPR]

2388«

SEQ (189

7013»
2399
2400

3264

5221«
8154
BO4Le+

2304«

4872+

5593«

5702«
5776%
5837«

5946+
6022+«
6140~
6204*
6360+

6449
6509+«
6682+
6932«

2395+

2432«

2439+

2440+

4062%
4132«
4323x
4548«

4063+
4189x
4324x
4650+

L066%
4L198x
4327«
4653

4068+
4199x
4328x
L4654«

5045+
5184«
5241+
5351+
5427+
5534+

5046+
5185
5242+
5352«
5458+
5535+«

51463
5191«
5293%
5355«
S5464*
5538«

5144+«
5192
5295+
5357«
5465%
5539

4873«

5595«

5703«
5777
5838+

5947+«
6060«
6141+
6205«
6344

L876¢

5596+«

5707+«
5783«
5889+

5950+
6067+«
6144«
6210«
6345+«

4877

5599+

5708+
5784
5891x

5600*

S5/09+x
5815+
5892«

5102
6756+

2475+

2482+

2483+

4069+
4203%
4L430%
4657+

4110+
4204+
L433x
4658+

4118+«
4205%
4434%
4760«

5145+
5219+«
5296+
5358+«
S5469x
§545«

51571+«
5225+«
5299+
5361+
5470+
5546+

5152+«
5226+
5300
5362+
5471x
5577+

5651+

5712«
5821«
5895+

4976+

5653«

5714+
5822+«
5896

5952+
6068+
6145
6211x
6346%

59535+«
6072«
6151+
6295«
6349%

£564r
6755«
6959

6567«
€761«
6970«

0491
6568
6762+
6971

6495+
6574*
6765+
6982+«

2526%

4119+
4208%
4437+
4763

4123«
4212+
4438
L7641

5156+
5230+
5306
5413«
5474x
5583+

5157«
5231+
5307+
S415%
5476+
5584+

5158«
5,32
5339«
5416w
5477«
5588«

5718«
5827+«
5903x

5719«
5828+
5934+

6309«
6442y

5770«
5831+
5G40+
6014+
6085+
6198+
6310«
6444

3205+

2627
2739«
2850+
2937+
3017«
3201«
3339«
3514
3637«
3743x
3898+
3968r

4979+«

4980+

5654+

5715+«
5826
5902«

5657+«

2658+
2743+
2852
2941«
3085+
3210+
3344
3519+
3641
3792+
3900«
4057«

5036+

5039+«

5658

6008«
6078«
6192+

6010+
6081«
6193»

6011+
6082«
6197«

64696+
6575«
6873+
6983

6601+
6874
7007«

6497

6501+
6605+«
6903+
7010«

6301+
6357+

6302
6358r

236(«
2826

2862

2887

2919

295

3001«

3023

3090

3113

3144

7889«

3911

3949+

3974

6052«

4074

4112«

4137

490

4218

3334+

5341«

B06S

3357
5460+

7018+
2531
2532

3397

5579

7010+«

244

5698+«

3508+«
5817«

3532

5936+

3566

6063+

3626

6188+

3650

6335+

2527+

2657«
2742+
2851+
2938+
3018+
3209«
3343w
3518+
3638«
3784+
3899«
3969x

6457+
6563+
A6EBEr
6958«

7017«
2487
2488

6490+«

5957+«
6074x
6185«
6298+
6352«

2519+

2617
2738+
2849+
2935+
3015+
7138«
7338«
3513«
3636«
3742+
3894«
3965+

6456+
6561+
6683
6933

7016+
2444
2445

6483+

5956
6073«
6152*
6297+
63%1x

2605
2709
2848+
2909
3012
3137+
3330+
3504«
3632+
3740
3893+
3962«

3726

(4BE&r

4124+
4213w
45400
L4767+

5664+

6504
6606+
€904
70"«

3748

4254

6757

TIRGCED RKG11 DSKLS CTRL PRT3
TIR6(E P11
27=-AUG-81 10:24

SCLR
= 000040
SCOPY = 104415
SCOP1S
(044654

SPDLSS=
SRTIFLG
SRTSPL=
SRO
=

000020
003606
000011
1775872

=
SR1
SR?
=
SR3
=
STACK =
START
START1
STRLMT=

177574
177576
172516
001100
003662
003666
177774

SVAL
SWR

SWREG
Sw0
Sw00
sw0l
Sw02
SWw03
SwWw04
Sw05
SWw06
Sw07
swd2
Sw09
Swi

Swl0
Swll
SwiZ2

Swi3
Swlé
Sw1S
Sw?2
Sw3
Swé
SwS
Sw6
SwZ?
Sw8
Sw9
S.CLR
S.FMT

=
=
=
=
=
=
=
=
=
=
=
-

5243«
6500+

5363
6558+

4099

4170

8'17#

5720«

5839

5658+

3941

4114

2231+

234

3719+

3775+

3882+

3938+

2249

€998

76429

8063

22354

7439

6698
2269+

6777
2271

782%«

8046

6926

€979

6991

7088+

100000
001140

7128

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
007000
000002

2299

7142

—

000017
000001
000002
052353
(020000

6754
3844

(V18]

SEEK
=
SELDRv=
skl
=
SPACE2
SPAR
=

6677
3773

SEQ C190

~NO~
N0

003626

I 15

30(1046)
10:35
PAGE 192
28-AUG-81
(ROSS REFERENCE TABLE == USER SYMBOLS

rorOON
&H
0
£
—
~N R

SECCNT

MACY11

7731

= 002000
= 004000
= 010000

=
=
=
=
=
=
=
=
=
-

020000
040000
100000
000004
000010
000020
000040
000100

000200
000400
001000
000400

- 001000

S.PACK= 00400C

9214
5204
9174
9164
11384
11394
IREAY

2490

7028

??611 DSKLS CTRL PRT3
27=-AUL=81 10:24

MA(VY11

J 15
30(1046)
28-AUG-81
10:35
PAGE 193
CROSS REFERENCE TABLE == USER SYMBOLS

000040
000200
000020
000100
002000
000014
000060
000064
003604
000034
000014
052443
052453
004650
007432
010556
011244
012130
013016
014222
015100
015536
005066
016652
017766
021102
021772
022524
023256
024010
024542
005304
025274
026026
026326
C27074

11354
11378
11340
11364
17400
9584
9654
9664
22074
964k
9594
3709
3712
2367
2752
29824
3058
3182
33254
34994
36184
3681
2408
3713
3876
4039
L3164
4359
4469
4579
4689
2453
4799
4908
4992
5077

031°3¢
031760
005520
03 00¢
%3430
V34256
035100
035740
036764
040010
040650
005734
041274
041720
006416
007044

5433
5552
2496
5671
5790
5909
6028
6158
6316
6463
6581
2540
66740
67518
2582
2671

54548
55734
2501
56924
58114
59304
60564
61814
63284
66794
65974
2545
7226
7227
2597
2691

7216
7217
25154
7218
7219
7220
7221
7222
7223
7224
7225
25634

2610
2703

2€¢22
2713

104401

2293

2310

2313

2316

0274664
032031¢C

104405

5194
5313

6846

2447
2402

2447

7703+

7704+

7025+«
2255+
)}
387¢
3875
23834
2765
7195
30740
31964
7198
7199
7200
36994
2413
3862#
40254
431854
7205
4393
4503
4613
4723
2458
4823
4942
4997
511

8120
2256+

52154
53354

6853

4035
4038

84214
84234

2777

2787

7187

2792

SEQ 0191

28094

7194

2632
2718

2637
27334

26528
7193

7192

2323

2327

2335

2344

7196
7197

7201
26284
7202
7203
7204
4398
45C8
4618
4728
24714
4838
4947
50328
5116

7214
7215

81074

7188

L4264
45364
46468
47564
7189
48654
49684
7212
51394

7206
7207
7208
7209
721C
7211

7213

7190

7191

3709

3712

3872

387¢

4035

CIR6CED RK6E11 DSKLS CTRL PRT3
CZR6CE.PN
27-AuG-81 10:24

TYPERR

045346

4038
7405
7806

6840
7406
7816

7322

7359~

6854
7416
7846

7335
7430
7894

7323
74684
7900

7369
7597
7905

7370
7672
7909

7374
7725
7914

2326

2343

3711

3874

4037

7390

7794

81044

21514

2825«

2835

2861«

2868

3227«
3573
4136

2886

3241
3649+
4157

2893

2918«

214948
2665«
2888
3165«
3421
3673«

2398+«
2667
2917+«
3170
3437«
3677

2404
2715«
2920
3226«
344
3746«

2443%
2717
2949x
3235
3467«
3756

2449
27646+
2953
3261«
3477
3809«

2L86*
2748
3021
3265
3530«
3819

2492
2789
3029
3286*
3539
3909«

4681
4920+

4701«
4924

4705
4934~

4715«
4639

4720
4987+

4790
4989

4791
5002«

7990

2315

TYPOS = 104403
T.ASOF
003456

8105#
21564

T.BA

003444

T.(S°

003440

8106#

3112«
3447
g?gzt

4145
4460

T1.0S2

003450

5108
6025+«
6641
8124
21534
3262«
3480
3759
4252«
4598
64935+

T.ER

003472

(003474

003454

T.MR1T

003464

T.MR?

(003466

5430«
6157
6700
8138
3047«
3299
3564
3915«

3160
3839
L4494
8146

21548
6793

6617«
6799+

6629
6811

2157#

T.ECPS

5312
6155«
6692
8134
3032
3292«
3542
3822

4251«
4485

3043
3837+«
4400
B142

003460

T.ECPT

5310«
6027
6649
8129
3027«
3268
3538+«
3817«

4228
4481

3151
3565«
4088

3041«
3770
4384«
5118

T.DCYL

003452

4216
4461

3143«
3545
4073«

81034

21584
3768«
4273
5102+

6642«
8144

2152#

T.DS

3128
3537«
3988

8064

4280~
4615
4988+

003446

003462

7992

42°8
4606
4944

T.DA

1.08

SEQ 0192

6847
7408
7827

TYPOC = 104402
TYPON = 104404

K 15

MACY11 30(1046)
28-AUG-81
10:35 PAGE 194
CROSS REFERENCE TABLE == USER SYMBOLS

21624

21634

21554

6652
8148

3651+

5432
6313+
6712
8144
3052
3363«
3570
39272

5549«
6315
6718+
8148
3119«
3367
3593«
2980«

5551
6460*
6726
8151
3125
3395«
3600
3985

6713
8169

67219«
8173

2950+

2956

3396+
3825
8129

3022+«

3404
3910+
8134

3439
3925
8'38

2530«
2791
3046+«
3296
3563«
3919

2536
2824«
3049
3355«
3567
3972«

2576+
2830
3111«
3364
3587«
3982

2578
2860
3122
3394«
3597
4072«

2634+
2863
31410
3398
3647+
4082

2636
2885+
3145
3416+
3657
4135w

4811«
5006

4815
5068+

4825+
5069

4830
5089+

4350«
4571

5668
6462
6771+
8156
3142«
3401
3648+«
4078+

31672
3931«
4510

3281«
3933
4604

3283
4000«
4620

6637
8169

6643+
8173

6655

3663

6618+

6632

2593

2605+«

2606

€794

2709+
2962
5777«
6570
6983«
21604

2710
5185«
5779
6874+
6984
2399«

2760«
5186
5896+«
6875
8126
2409

6703
8156

6800+

2761
5192«
5898
6904+
8132
2444

4372+«
4708
5003«

2925

3271
3747«
4234

4395
4812+
5096

6788

2592«

4284
(570~

7393
7792
7920

4386*
4725
5090+«

6774

21594

4279«
4500

7382
7791
7917

4378
4716%
5009

6693«
8151

4287
4702«
4994

4255
4495«

3263«
3666
G217«

7375
7737
7915

]

6814

2772«
5193
6015«
6905
8134
2454

3356~
3762
4253%

4351
4591«

5670
6578+«
6779
8158
3148
3420«
3654
4085

3370
3810+
4261

4371«
4595

5787«
6580
6791
8160
3166
3424
3660
4143«

7395
7795
7924

3035

4375
4605«

4385+
4610

4390
4680+

5789
6615+
6797«
8169
3173
3438
3674«
4148

5906+
6623
6805
8173
3234+
3444
3680
4224

5908
6635
8121

3238
3473
3752+
4231

6808

8138

4899+
5093

4482«
4818
5104«

4488
(826*
5113

4496+
4835
6616

3611x
4002
4714~

3413
4094
4730

3462«
4096
4824+

3464
4163
4840

3582+
4165
4933

3584
4271+
4949

6694+

6706

6714

6720

6732

677%+

6785

6638

6644

6658

6695+«

6709

6715

6721

6735

2617«

2618

2627+

2687

2698+

2699

8151

2773
5300«
6017
6918«
8163
2487«

6729

B169

2783«
5302
6145«
6919
8167
2497

6772+«

8173

6782

6792

2784
5420«
6147
6933+«

2852+
54272
6302«
6934

2628

2686+

2531

2541

8121

2853
5539+
6304
6959+

6798+

2909+
5541
66469
6960

4505
4921«
6626

4900
5103«

2910
5658+
645"
6971+

4592+
L927
6636

2948«
5660
6568+
£97?2

CZRO6CED RK611 DSKLS CTRL PRT3

T.MR3
“.SPAR

03470
003476

VWl

003442

JFE
=
UNLOAD=
UNS
=
UPE
=

000400
009007
040000
020000

vV
=
WAITIM
WwCE
=
WwLE
=
WRBUFF
WRDATA=
WRDCNT

000100
003632
040000
004000
064714
000023
003624

30(1046)

26400+

2412

2645

2457

2488+

2500

2532«

2544

8121

2826+

2840

2862+

2873

2951+

2959

3397«
38.8
8129

3407
3911«
8134

34400
3928
8141

6610

6687

6766

2828

2987

8#
Or

3159«
4290+

3588
4497

3603+
4513

3«
2

L7964 >
5099«

4953

5071«

27-AUG-81 10:2¢4

21614
21¢°#
2l.ua

3113«
3450
g?;é*

7
12
74
2w

WwRHEAD- 000027

wRL
= 004000
WwRTBIT
042570

8
3
0
6
04

«rt.CAR= 000004
$APTHD
007000

10:35

SEQ 0193

3228«
3576
L137«

2887+«

3244
3650+
4154

2898

2919«

2930

2995«

2999

5146

6758

94504

9451

3176+
4353«

3279«
4354«

3287
4381+

3302«
4387

3387«
4403~

3453«
4404

3468
4463

3483~
4464

3581+«
4491

4821«
5105

4827
5121+«

4843
5122

4844
8146

4902+«
8148

4G03x
8158

4930+

£936

L9652«

3728
5148
5937

3002

3789
5222
6026

3079

5396

5408

31446~
3548
4074«

6573%
2436

2446

5253

5991

2952
6360

LN
M
3
054
1179

3335
4053
5580
6461

4574«

3502
4054
5669
6487
_
5259

WRTCHK= 000031
WwRTGAT= 040000

N3N
3532«
3991

28-AUG-81

3154
3566
409

3264
3669
L218%

3274
3748+«
4237

5617

g§§§#

4601+
2523

3510
4115
5699
6579

4607
2533

3627
4116
5788
6759

4623%
2818

3628
419
5818
6775

4624

2827

3727
4195
5907

L683
2988

5515

5527
6271

6525

6541

5162
6511

5182
6887

5190

5245

5365

5484

5603

5722

5841

5960

6088

2565
4187

2654
4318

2735
4428

2811
4538

2984
4648

6369

6375

6391

6404

6409

6418

6425

5855

6432

5872

6519

5884

5968

1185#

6481

6599

6676

6753

7427

8066

7315

7348

7737

7934

7496+

7503

7529+«

75344

2245

2253

2259

77704
11994

5498

6262

6330

7486+

3952
5461
6314

6257

2517
4041

047224
(001100

3891
5431
6189

6244

2473
3878

046236

3890
5342
6156

6228

2430
3715

$CrSWR
$ MTAG

3206

6222

2385
3620

(001122
001126
001204
001274
001276

2199

6130

7941
2363
3501

$8DADR
$8DDAT
$8ELL
$CDW1
(W2

3091

4734

6118

5849

5492

4733«

6102

7784
2322«
3327

6183
12114
12134
12394
12904
12914

3790
5311
6064

4717

6096

S76°¢

7469
7328
2303«
2314
3198

758

4711

6003

5753

72404
72414
72434
12164
1288#
3076

7242

46B4r

5379

5736

SATY]
$ATY3
$ATYSL
$AUTOB
$BASE

$C(HARC

3038

5373

5730

7286

044724

3023«

5288

5646

7271

044700
(044706
(044716
001134
001270

3373
3811+
4264

5276

5634

SASTAT- weerne

SATY(

3357«
3765
4254

0714
354
6#
64

SO
2O NNN S ONVNVNWN S NS S SN2
= )2
2
ON—=ONMNIOON
= = NN OWOONNNLINOOON) =2OOO0O
=N ISV NN = N =2 (NN YO =
= S = O NNV
NN

C(ZRO6CE.PT

L 15
PAGE 195
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11

72444

L867

8111
2244

4970

5034

5141

5217

2260

5337

2251

5456

5575

5694

5813

£932

6058

CIR6CED RKG11 DSKLS CTRL PRT3
TIRECE.PY
27-AUG=81 10:24
$CM3 =
$CM6 =
SCNTLC
SCNTLG
SCNTLU
$CORE
$CPUCP
SCRLF

000000
000010
050122
050134
050127
044120
001247
0012M

12294
1229
7725
7791
7816
7064
12624
12414

SCROUT
$DBLK
SDEVCT

044150
046704
001224
042560
Q46674
042550

$DEVM

001272

SENDCT
SENULL

042414
042564

$DOAGN
$DTBL
$ENDAD
SENV
$ENVM
$EOP
SEOPCT
SERFLG
$ERMAX
SERROR
$ERRPC
$ERRTB
$ERTTL
SESCAP

001300
0071112
001202

$ETABL
SETEND
SFATAL

001234
001300
00'216

SFFLG
S$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
$HIBTS

$HIOCT
SICNT
$INTAG
$ITEMB
SKINEX
$KTOUT
$KT11
$LF
SLFLG

$LPADR
$LPERR
S$LSTAD

12364

12374

7348

7369

7374

7382

7395

7408

7485

7273
7466

7325
7471

7464

2420%
7158
7181«

7435+
7164+
7186

7186

7233

7310«

7348

7433

7318«
8148

7319
8151

7348
8156

8121
8158

8124
8160

8126
8163

8129
8167

6855+«
2364+
7180x

7316+
6877+
7339

7348
6907+
7341

6921+
7348

6936+
746346

€943

6962+

7271
7537

7280«

72884

7172
7808
7327

7174«
7828
7348

7185
7941
7360

4027
7537

70634
7924

7067«
7934

7090+
7995

7153«
2990«

7162«
3080+

7178«
3723+

7183
3779+

7098
7672

76804

6836
7641
1162

6857
76764
229N

68634
68594

7343

12584
12594
68284
2259+
1202#
12084
2253
12094
8144
13084
12064
12384
70264«

2297
2282
7422
68354
7117
2262+«
73084
7317«
8146
7366
6851
2261+
7027«

7249
725°
7436
6839
7156
7158

12574
1191
12504

7240y
1227#
12264
12104
12124
68564
77924
846

050322
001104
001135
001114
044112
044102
043750
001212
045143

7983x
12034
12174
‘2074
7065
7082
3701
12424
7281«

044274

12354

7091
7€38
12534

045144
001156
001155
001120
001124
042540
047314
000000

(001106
001110

1234k

7323

2259
68664

11864

12334

6854

7995

68384

12624
7277~
7243«
7489
7537

79354
7537

7827

7914

8132
8169

8134
8173

8138

8142

6974

6986+

6993+

6967+

4105+

6999

7033

7162

8109

79944
7171«
7789«
7319«
70904
70874
3864
7348
72874

12044
12054

2263+
2264

7103«

77104

7179«

SEQ 0194

12324

12314
7934

12894

001000

MACY1T 30(1046)
28-AUG-81
10:35 PAGE 196
CROSS REFERENCE TABLE == USER SYMBOLS
12304
7806
79364
7909
70914

7934

001234
001235
042360
042406
001103
001115
045146
001116

M 15

7185

7235

7338

7185
3883«

CIR6CED RK611 DSKLS CTRL PRT3

CZR6CE.P11

27-AUG-81 10:24

3703

044216

SLSTBK

MACY11 30(1046)

28-AUG-81

10:35

N 15

PAGE 197

CROSS REFERENCE TABLE -- USER SYMBOLS
4029

3866

7104%

71i'#

2281

2297

SEQ 0195

001256
001262

12758
12798
12824
12854

$MAMST
§MAMS2
gMAMSS
sMAMSL
$MBADR
SMFLG
SMNEW
§MSGAD
$MSGLG
$MSGTY
SMSWR

12694
13774
1280#
12834
11878
72U1s
7795
12550
13368
12498
7792

SMTYP2
§MTYPS
SMTYPS4
SMXCNT

001251
001255
001261
044530 o

12788
12814
12844
7175

7185#

2571
5723
S607¢

2373
27958
3609

2416k
2797
3684

2418
2969
3686

24614
2971
3847#

2463
30604
3849

2504#
3062
4010

2506
31854
4012

25514
3187
4174w

2553°°
33064
4176

2640w
3308
42974

2642
34874
4299

27214
3489
44O7#

Sio7a
5795

5129
39728

51974
3914

5199
60314

5316w
6033

5318
61614

54364
6163

5438
63194

55554
6321

5557
6466M

S6744
6468

5676
65864

57934
6588

2291

225

830

001246
001252

$MADRT
SMADR?

$MADRS
$MADRG

SMAIL

001214

SMTYP1

001245

snULL

001154 §

SNWTST- 000001

- &

1987

12708

12250

42009

046464

SOCNT

SOMODE
SOVER
$PASS

66634
7569+

1191

7247
79394
7257«
7562+
7055

79374

7491

45178
6665
7598+

7564+
7129
12508
11894
8066
8055«
2057
8047
12404
78598
8115
78824
79564
7875#
80284
68654

$SAVRE
$SCOPE

8cloa
2051

8115
7126

7137

7309

#«exwex

050324
044220

$SETUP= 000137

$5:26
$SIZEX
$310p =
$SLIAD

043712
044154
177777
044460

12484

7177

7325

7464

5
St
:

7282+

7286M

7260

7263«

7275

7279+

;

046466
044514
007222
$PASTM 001006
SPOWER 050542
SPWRCT
050536
SPWRON 050420
SPWRUP 050446
$QUES
001210
SRDCHR 047566
SRDDEC- *=xexe U
SRDLIN 047656
$RDOCT
050164
$RDSZ = 000010
SRESRE
050362
SRINAD 042562
SR2A

7537

4519

67408
76114

Lb27H
6742

4629

7568+
7154
22B1¢

7573
7163
6832+

7576+
7173
6833+

7587+
71824
6844

BOTO#
8056+
8046a
8055#

8057«
BOGT

8059+

B069K

7537

7846

2251

2253

7348

8112

L737M

4739

4B4TH

4B4O

49564

4958

SO14w

S5016

76134

6866

7169

7186

7917

793%

7992

7995

2255

2257

2259

2260

8113
8114
8115

8117

55284
2362
7089
20284
7137

2250

7051#
70994
7 7en

7335

7729

73S

Pres

2261
o

2263

$TRPAD

046774
001160

$TMP1
$TMP2
$TMP3
$TMP4
$TMP5S
$TMP6
$TMP7

001162
001164
001166
001170
001172
001174
001176
= 000052

$1PB
$TPFLG
$TPS
$TRAP
$STRAP?
$TRP

050604
O

ONON

SNOM NN S SISO
N
— WO
OO AN NO NV S
S =200
VOO0 —0N—
NN NN NWO O
0

RVTeNV, [V, P o o SNV TUN] V1,81, 8]
— N NN NOONANNO
N
S
00 =0 —"'N00 VO ~NNIOOMN)
NNOONON D00 WA=
O
L 3
r
x

S NPLPONOND

81064

81074

81084

8109
81104

N OO~

oo
N

7517
7735
7726
7871
7702
7869
7762
7515

2314

354
7744
7772
7788+
7798

7810+

2346+
2350

2357+«
2353~

2354

24724
2632
2777
3306
2496
2637
2787
33264

W IV AN 1,81, V]
N NAWWND NS00 — N
S
NN —= OO S COWOWN
O WWWND NN NN S NN
x
][
X

[0 NV AV, Pl o

O—'—'O@@:—'WWU‘!@
r
_

[0,.Yo
QYL IV, ¥ 0 W
NP, 61,861,581, ¥}
N
O =2 OO ANONO NN S
S ONNST O 20O
O

ONON NN

[0
AW,]

AWES S oo

7700+

SN TNOC M

—

SO
— N ON

8111

SNy

~ NN

3873

LB66*

8146
2384«
3619+

6329+

4010

5014
5433
5912
6480

81124
8113«

NNWO

B 16
10:35
PAGE 198
28-AUG-81
CROSS REFERENCE TABLE == USER SYMBOLS

Co N0

3001046)

H ON = N0

W — =000

B ALYaRNTe
Yo RV, |
WNOOSONESO

NNV
AN — 00\

NN
N — 00N OO £~ 00
O PPNV WO W
NN LWNON AN

N NON S AN
— —
O WO
00
oo ONPNOONUY
NN
O OONNO

000220

NN OROWN—= 0N =000 M0\WNWN
WWWON
NN 2 NOOO
N — N
NNNWNNO
OO NO 2O —

167400

—_

001200

MACY11

(e - T0 o]

044532
001220

ON\JOOJ\C)C;G)J\M—‘WOO‘\J

$TKSRV

$IN

001236

NONSIAWNOOWSN
NONNON
W
N2
NN 2 N — 00N =2 =2 (NQD —
= OVIOONH =200
O

001146
046714
046724
046723
046716
046720
066722
001144

$TMPO

000000

O - OO0 NIWNNI DN
— NN
RO~
MU O £~ QOO Q0 — NJ — OO
Buax
L
R

$7k8B
$TKCNT
$STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS

e ]
VIO N =2 NN OO S ON OOV NN =2 NNV O — [oad
xR
R
R
X
»r

$TIMES

$SWREG
=
$SWRMK
$SW08T
$TESTN

O —=COQONMNNLNINO HO0WVNO H O noohuPuPINND
Q0 — O O WNPRUNL N 0D NV N YN = (NOD O £~ O NN

$SVPC
$SWR

AOOWOOOONY—
—
OO VNS SN

CZR6CED RKk611 DSKLS CTRL PRT3
TZR6CE.PI
27=-AUG=81 10:24
SEQ 0196

8138

4537

3197+

5931«

4503
L7574

40264
4508
4799

81'¢4»
8115#

50334
5436
#
593"
6581

CIRO6CED RKk611 DSKLS CTRL PRT3
TIR6CE.PN
27-AUG=-81 10:2¢4
$7STM

001004

$ISTNM
$TTYIN

001102
050112

STYPE
STYPEC
STYPEX
STYPOC
$TYPON
$TYPOS

045706
046120
046240
046266
046302
046242

SVECTT

001264

11884

7117
7897

7149«
7915

717€~
7929

74584
7495
7532
B104
75694
8105

B09S
7502
75354

8103
75074

7832

2324

2333«

2334

7537
7537

7718

71864
71994
72128

7187
72004
72134

71882
72014
72144

71894
72024
72154

SOFILL
046465
$40CAT= swrune |

7563%
7128

7567«
7322

7577

76124

LSASTA- erener
.8x
- 0061000

11988
76804
7241
11754

1243
7684
7244
1180

STYPBN= sxaeeer
$TYPDS 046470

SUNIT
SUNITM
SUSWR
SVECTZ2
$XOFF =
$XON
=
SXTSTR
$$GET4=

001226
001010
001240
001266
000023
000021
044232
(U000

$$Sw08= 000vL-2

065120

1201#
7884

€ 16

MACY11 30(1046) 28-AUG-81
10:35 PAGE 199
CROSS REFERENCE TABLE == USER SYMBOLS

8108
76264

7268
7488
7530
75674
7566
75624

12544
11904
12614

12864

12874
7512
7519
71314
68584

72254

11444

6830+
7885
8107

7226

11482

SEQ C197

7177
79334

7182

7186

7312

2337

2357«

2358+

2359

2361

71904
72034
72164

71914
72044
72174

71924
72054
72184

71934
7206
72194

71944
7207#
72204

7348

8106

72278

11544

2248
76884

77284

1160

2263
7689

11614

2264
76904

11634

68434
79334

11654

6866
7934

11664

68674
79414

11694

7185
7995

71054
72084
7221k

1175

7186
8050

71964
72094
72224

11764

72894
93454

71974
72104
72234

11784

7348
94504

71984
72114
7224»

CIR6CED RK6T1 DSKLS CTRL PRT3
TIR6CE.PIN
27-AUG=-81 10:24
BYPASS
CLRMSG
CLRPSW
COMMEN
ENDCOM
ERROR

GETPR]
GETSWR
LDLPER
MSG

3868
2517

4031

9684
9684
2406
2620
2865
3034
3172
3372
3,82
3668
3924

2411
2630
2870
3037
3175
3375
3541
3671
3927

2414
2638
2875
3040
3237
3400
3544
3679
3930

2451
2669
2890
3045
3240
3403
3547
3682
3635

2456
2589
2895
3051
3243
3406
3550
3758
3984

2459
2701
2900
3054
3246
3409
3569
3761
3987

2494
2719
2912
3124
3267
3415
3572
3764
3990

2499
2750
2922
3127
3270
3423
3575
3767
3993

2502
2763
2927
3130
3273
3426
3578
3772
4004

2538
2775
2932
3133
3276
3443
3586
3821
4084

2543
2793
2955
3147
3285
3446
3599
3824
4087

2546
2832
2958
3150
3298
3449
2602
3827
4090

2580
2837
2961
3153
3301
3452
3659
3830
4093

2595
2842
2964
3156
3366
3466
3662
3841
4098

4289

4357

4377

4380

4392

4397

4402

L4467

4487

4490

4502

4507

4512

4577

4597

5493
5766
6097
6317
6572
6731

5499
5781
6103
€370
6582
6734

5528
5850
6131
6392
6628
6781

5543
5856
6149
6405
6631
6784

5553
5873
6159
6410
6634
6787

5612
5885
6223
6419
6651
6790

5424
5737
6019
6286
6542
6711

1Y 4

NEWT>T
POP
PUSH
RDLOOP
REPORT

SCOPE

SEKMSG
SETPR]
SETTRA
SETUP
SKIP

9684

6599

2371»

2373

1%
1%
°92#

55554
646?
»

3607
5316

14
14
1192#
1%

8634
3699
5454
11924
14
80954
1
14
2637
4393

4942
€158

415%

4617
4926
5178

5434
5754
6029
6307
6554
6728

11924

2797
38474

(150

4612
4906
5120

4739

SEQ C198

3705
2473

4600
4842
5119

ESCAPE

D 16
30(1046)
28-AuG-81
10:35
PAGE 201
CROSS REFERENCE TABLE == MACRO NAMES

1192#
1192#
1192#
14
1»
8624
2608
2855
3031
3164
3369
3479
3665
3921
6147

FORERR

MACYTY

4156

4622
492y
5188

6676

6753

24164

3720
2418

4849

49564

9684
9684
2990

7059
22944
3080

29694
3849

2971
40104

5557
63230

4167
4687
4941
5195

5516
5791
6119
6376
6625
6737

4230
4707
4946
5254

4233

4710
4951
5260

4236

4722
4991
5277

4239

4727
4996
5289

4257
4732
5008
5304

5618
5900
6229
642¢
6654
6807

4260

4797
5011
5314

5635
5910
6245
6433
6657
6810

4263

4817
5075
5374

5647
5969
6258
6454
6660
6813

4266

4820
5095
5380

5662
5975
6263
6464
6702
6816

3779
26614

3883
2463

3942
25044

50144

5016

36074
4519

3609
462784

36844
4L629

3686
L7374

5914

603°#4#

6033

61614

6163

63194

6321

64664

2721

2795

2969
4847
6586

4956
6663

3060

3185

5014
6740

5127

5197

3499
5215

3618
5335

2622
3681

26372
4359

5907

6Ce%

27214

5795
67404

59124
6742

9684

2371

24616

2461

2504

2551

2640

9684
0684
4318
9684

7283
7244
4428

7284
7246
4538

7667
7267
4648

7984
7626
4758

8033
7958
5034

6013

2383
3862
5573
2385
9684
8104
G688
9684
2671

2428
4025
5692
24630
7862
8105
2242
2408
2691

2471
4185
5811

2515
4316
5930

2563
4426
6056

2652
4536
6181

2733
4646
6328

2809
4756
6479

2982
4865
6597

3074
4968
6674

3196
5032
6751

3325
5139
6829

8106

8107

8109

8111

8112

8113

8114

8115

8116

8117

2413
27C3

2453
2713

2458
2718

2496
2752

2501
2765

2540
2777

2545
2787

2582
2792

2597
3058

2610
3182

L4947
6316

4592
6463

4997
6581

5077

5194

5313

5671

5790

4398

4469

4503

5731
6004
6279
6526
6708

3489
45178

2642

57934
6665

4010
5674

5672
5962
6272
6520
6705
7026

34872
4409

26404

5676
66634

4958

4174
5793

4508

4237
5912

4579

5111

3187
42974

2553

56744
6588
3847
5555

4837
5110
5409

4105
25514
3308
44078

31854
4176

3684
5436

4832
5098
5397

4046
2506
33064
4299

3062
41748

4286

30604
4072

48478

4275

4407
6031

46°3

5176

5127#

4517
6161

4618

5129

4627
6319

4689

5197#

4737
6466

4723

5433

5199

4728

5552

53164

4799

5318

4833

2723

54368

3306

4838

27954
5438

3487

4508

CIRG(ED RK611 DSKLS CTRL PRT3
TIR6CE.P1T
27-AUG=81 10:24
SLASH
SPACE

SPREAD
STARS

I
G968~

2654
9684
2514
3306
4315
5127
5929

2735
1158
2551
33c4
4407
5138
6031

7851
I¥

7875
9684

7944
22hSH
3864

4027

6844

6851

5217
6183
6058

2314
6840
5337

6330
6481

11924

1229

3007
5316

1174
2640
3498
4517
5214
6161

1181
2651
3607
4535
5316
6180

1194
2721
3617
L4627
5334
6319

7997

8043

8052

8074

3710
6847

3873

4036

7793

5456

5575

5694

5813

5932

1230

1231

1232

1233

1234

1235

1236

3684
5436

2371
3847
5555
8108

2416
4010
5674
B106

2461
4174
5793
8107

2504
4297
5912
8109

2551
4407
6031
8111

2640
4517
6161
8112

2721
4627
6319
8113

2795
4737
€466
8114

2969
4847
6586
8115

3060
4956
6663

968%

2408

24°3%

2453

2458

249¢

2501

2540

2545

2582

4398
4947

4469
4992

4503
4997

4508
5077

4579
51i1

4613
5116

4618
5194

4689
5313

4723
5433

4728
5552

6821

B0Q9S#
11924
1

3701
9684

TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

1%
1%
14
14
4

9684
968#
9684
9684
968#

i¥

WRLOOP
WRTRK
WRTRK1
$$CMRE

1192#
1192#
1192#
11924

$EESCA
SENEWT

1%
14

SSCMTM

§§SE}M
S

$ESKIP

ggg?l

2637

4393
4942

LEQUAT
.HEADE

KT
.SETUP
.SWRHI
.SWRLO
JSACTT
.$APTR

.SAPTH
.SAPTY
.SASTA

LSCATC
LSCMTA
.$082D
.$D820
.$DIv

.$EOP
.SERRO
.$ERRT

6158
14
i#
1%
14
14
8354
14
4
14
14
14
i 4
14
14
1%
N
1%

Y 4
N J

SEQ €199

1172
2562
3487
4425
5197
6055

TRMTRP
TSTMEM
TYPBIN

TYPDEC

E 16
30(1046)
2B-AUG-81
10:35
PAGE 202
CROSS REFERENCE TABLE =~ MACRO NAMES

9684

11928
1»
2504
2195
4297
5¢31
5912

6750
SWRSU

WACY'T

9684

9684
9684

8104

2671

7037

2287

2691

6316
8354
835#
835#
8354
8354
8584
8354
1244k
8354
8354

6463
858
837
9¢8
2228
846

8354
835«

1147
1192

8354
B354
835#

¢819
7294

7114

2703

6581

7228

2713

7239

2718

7296

2752

1243
2732
3684
4645
5436
6327

7349

2765

1246
2795
3698
4737
5453
6466

7358

2777

2371
2808
3847

2382
2969
3861

2416
2981
4010

2427
3060
4024

2461,
3073
4174

2470
3785
4184

5572
6586

5674
6596

5691
6663

5793
6673

5810
6740

3185
5014
6740

3206
5127

3487
5167

2597

2610

2622

4799
5671

4833
5790

4838
5909

4755

4847

74643

7539

5555
6478

2787

2792

4864

7616

8116

3058

4956

7683

4967

7765

5014

7780

8117

3182

5681

2632

£359

4908
6028

1156

1170
7237
.

(ZR6CED RK611 DSKLS CTRL PR3
27=AUG=81 10:24
TZRECE.PUY
JEMULT

. $POWE
.SRAND
.SRDDE
. SRDOC
.$READ
.$R247
.$SAVE
.$S82D

i
M
.
18
Y J
1%
Y
%

.$SCOP

.$SUPR
.$TRAP
STYPB
L$TYPD
.STYPE
L$TYPO
.$40CA
L1170

14
14
14
14
14
8
14
Y J

. ABS.

065120

.$5B820
.$SIZE

18
14

ERRORS DETECTED:

MACY11

F 16
30(1046)
28-AUG-81
10:35
PAGE 203
CROSS REFERENCE TABLE == MACRO NAMES

8354
835#

835#

7942
7681

835«

7995

8354
8354

7112
7035

835#

8072

8354
8354
8354

7614
7441

7537

000
0

(ZR6CE,CZROCE.LST/SOL/CRF/NL:TOC=CZR6CE.SML,CZR6CE.PIN

RUN-TIME: 32 39 3 SECONDS
RUN-TIME RATIO: 254/75=3.3
(88 PAGFS)
44K
CORE USED:

SEQ 0200