Digital PDFs

AH-9106D-MC

November 1980

198 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CZR6CD0 RK611,RK06,RK07 RK611 DSKLS PRT3 NOV 1980 bw
Order Number:	AH-9106D-MC
Revision:	000
Pages:	198
Original Filename:	CZR6CD0__RK611,RK06,RK07__RK611_DSKLS_PRT3__AH-9106D-MC__NOV_1980_bw.pdf

OCR Text

RK611 ,RKOG,RKO7

RK611DSKLSPRT3

CZR6CDO

AH-9106D-MC

NOV 1980

MADE IN USA

.REM

19-JUN-80
X

13:52

1
PAGE 2

SEQ 0001

IOENTiFICATION

PRODUCT (ODE:

AC=-9104D-MC

PRODUCT NAME:

CZR6CDO RK611 DSKLS PRT3

DATE:

JUNE 1980

MAINTAINER:

DIAGNOSTIC GROUP

gy
S

[ ST, ST, VT NY NY N

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERROR THAT MAY APPEAR [N THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY
OF SOFTWARE ON EQUIPMENT THAT [S NOT SUPPLIED BY DIGiTAL OR
ITS AFFILIATED COMPANIES.

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

[gn
¥ an ]

MACYTY 30A(1052)

e R

NN = OO0 NOWNE NN = O OO0 NO N E

(IR6CDO RKE1T1 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.PY

CZR6CD.P1Y

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-B0

TABLE OF

13:52

1
PAGE 3

CONTENTS

1.0 ABSTRACT

2.0 REQUJIREMENTS
2.1 EQUIPMENT
2 2 PRELIMINARY PROGRAMS
3.0 0 PERATING PROGRAMS
3 .1 LOADING PRCCEDURE
3 .2 STARTING PROCEDURE
3 .3 OPTIONAL SWITCH SETTING
3 .4 RUN TIME
4.0 0 PERATING PROCEDURES
4
4
4

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

4.4

CONTROL Q

(*Q)

5.0 PROGRAM DESCRIPTION

6.0 ERROR REPORTING

OPERATION

SEQ 0002

(ZRECDO RK611 DSKLS CIRL PRT3

CZR6CDO RK61Y DSKLS CTRL PRT3
CIR6CD.PYY
19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-80

13:52

1
PAGE &

57
;g

1.0 ABSTRACT

THE RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 3

TESTS THE LOADING OF THE DRIVE BUS MESSAGE SHIFT REGISTER

62
63

" FOR CLASS B COMMANDS.
B. TESTS INDEX ANu SECTOR PULSE DETECTION.

D. TESTS NON-EXISTANT MEMORY AND UNIBUS PARITY ERROR DETECTION.

6?7
;?

C. g§¥T=ogéL0 AND NPR TRANSFERS FROM MEMORY IN 16 AND 18
E. TESTS READ AND WRITE MFM LOOPBACK.
TESTS CLASS B INSTRUCTION ERRORS.

NO RKO6 DRIVE IS REQUIRED FOR PROGRAM EXECUTION.

2.0 REQUIREMENTS

2.1 EQUIPMENT

77
78
79
g?

82
gz

85
g?

POP=11 SYSTEM (16X CORE MEMORY)
CONSOLE TERMINAL
DECTAPE, PAPER TAPE READER, OR DECDISK
RK611 CONTROLLER

2.2 PRELIMINARY PROGRAMS

RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 1 (CZR6A)
RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 2 (CZR6B)

3.0 OPERATING PROCEDURES

3.1 LOADING PROCEDURE

92
82

THC PROGRAM CAN BE LOADED FROM PAPER _TAPE USING ABSOLUTE LOADER
OR 7ROM XXDP MEDIA SUPPORTED BY XXDP.

3.2 STARTING PROCEODURE

LOCATION 200

= STARY PROGRAM

}8?

LOCATION 204

= RESTART PROGRAM

102
103
}82

LOCATION 214

106
107
108
109
110
13}
112

= REQUEST BUS ADDRESS, VECTOR ADDRESS, AND
PRIORITY MODIFICATION
3.3 OPTIONAL SWITCH SETTINGS
SW15
SW14
SW13
SW12
SW11
SWi0
SW9

=
=
-

HALT PROGRAM
LOOP ON TEST
INHIBIT ERROR TYPE OUT
ABORY AFTER 20 ERRORS
INHIBIT ITERATION COUNT
BELL ON ERROR
LOOP ON ERROR

SEQ 0003

il el end il
il e
D el
D
D el
d
i
D
il
D
D e
D
D
D
D
el
el o

AN N N N AN WA N LN N R NI PO PO NI NI NIA) b b ed b o b —
N=2O VB NO VN W20V
NO VNS W
=0V
~NOWV (v

CZR6CDO RK61T DSKLS CTRL PRTY
CZR6CD.P11
19-JUN-B0 13:49

MACY11 30A(1052)

19-JUN-80
SW8

13:52

1
PAGE S

LOOP ON TEST IN SWITCHES 0-7

3.5 RUN TIME
FIRST PASS
SUBSEQUENT PASSES
4.0

30 SECONDS
8:40 MINUTES

OPERATING PROCEDURES

TYE PROGRAM IS EXECUTED BY STARTING AT THE APPROPIATE ADDRESS.

6.1

‘SOFTWARE'

SWITCH REGISTER

IF THE _PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E., AN 11/04

OR 11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH
REGISTER IS NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH
REGISTER,
THE SETTINGS OF THE °'SOFTWARE' SWITCHES ARE CONTROLLED
THROUGH A KEYBOARD ROUTINE WHICH IS CALLED BY TYPING 'CONTROL G'.
THE
PROGRAM WILL RECOGNIZE THE ‘CONTROL G' AT ANY TIME EXCEPT WHEN THE
PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN RKO6 INTERRUPT.
THE
'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH

143

'RUBOUT' AND °*CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING

— e

SWR = NNNNNN

NEW =*

LEADING ZEROES ARE NOT REQUIRED.

ERRORS DURING SWITCH ENTRY.

146
147

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH
REGISTER MAY BE USED.
IF THE PROGRAM FINDS ALL 16 SWITCHES
IN THE ‘UP*' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
;88{53235' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST BE

D il

D el el

D el

)

D il

b cad

oooozoooo\nwmmmwmmmmbb
WN = OO NOWVNEWN-20O0®
00 ~NO
W

}2?

6.2

CONTROL C

(“C) OPERATION

IF “C 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. DEPRESSING THE CONTINUE KEY WILL DO
A PROGRAM RESTART.

6.3

CONTROL S (*S) OPERATION

IF S IS TYPED AT ANY TIME THE PROGRAM WILL GO INTO A STALL LOOP
UNTIL A CONTROL Q@ (*Q) IS TYPED.
‘.4

’

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

2
4

SEQ 0004

CONTROL Q@ (“Q) OPERATION

IF A *S HAS BEEN TYPED, TYPING THE “Q CANCELS THE STALL
INITIATED BY THE *S.

——

e e
D nd
D
il

MACY11 30A(1052)

19-JUN-80

13:52

PAGE 6

SEQ 0005

5.0 PROGRAM DESCRIPTION
¢+DRIVE MESSAGES FOR CLASS B INSTRUCTIONS
TEST 1

READ HEADER SEEK MESSAGE

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT THE RK611

CONTROLLER IN DIAGNOSTIC MODE.

[ISSUE

MESSAGE SET.

REPEAT FOR A READ HEADER WITH (DT SgT

A READ HEADER TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 0
HEAD O, DRIVE 0. CLOCK IN SEEK MESSAGE INTO SHIFT REGIST
VERIFY THAT A SEEK IS LOADED WITH THE PROPER BITS IN

NN SNNNNY ~Oo
O 00 O
B~ N — o0

CIR6CDO RK611 DSKLS CTRL PRTY
CZR6CD.PN
19-JUN-80 13:49

~0 O «© O 0o 0B Co OO OO OO OO

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

TEST 2

WRITE HEADER SEEK MESSAGE

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

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

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

CYLINDER 1777, HEAD 7, DRIVE 7.

TEST 3

READ HEADER DRIVE CLEAR MESSAGE

197
198

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER WITH (DY SET

58;

GENERATED AND THE PROPER BITS ARE SET.

199
200
203
ggg

IN 24 SECTOR FORMAT, CYLINDER 1777, HEAD 7, DRIVE 7.
CLOCK SEEK MESSAGE AND MAKE SURE A DRIVE CLEAR IS

TEST &

WRITE HEADER DRIVE CLEAR MESSAGE

206
207

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

209
210
g};

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

208

213
214

%}z
%1;
219

220
221
222
S%Z

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

++[NDEX AND SECTOR PULSE DETECT ON
TEST 5

SECTOR PULSE DETECT IN READ HEADER (PART 1)
CLEAR RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE. [ISSUE A READ HEADER TO AN RK06
IN 26 SECTOR MODE, CYLINDER O, HEAD O, DRIVE 0.
CLOCK BOTH SEEK ANY DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 IEROES AND A ONE.

CIR6CDO RK611 DSKLS CTRL PRT3

CZR6CD.PY

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-80

13:52

1
PAGE 7

SEQ 0006

MAKE SURE READ GATE DOES SET.

TEST 6

SECTOR PULSE DETECT IN READ HEADER (PART 2)

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RKO06
IN 26 SECTOR MODE, CYLINDER O, HEAD O, DRIVE O.
CLOCK BOTH SEEK ANY DRIVE CLEAR MESSAGES.
SIMULATE INDEX PULSE, 255 ZEROES AND A ONE.
MAKE SURE READ GATE DOES NOT SET.

TEST 7

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 O, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CHECK MESSAGES.

SIMULATE 255 ZEROES AND A ONE.
MAKE
TEST

SURE READ GATE DOES NOT SET.

10 INDEX PULSE DETECTION IN WRITE HEADER

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER
TO AN RKO6, IN 26 SECTOR FORMAT, TO CYLINDER O, HEAD O,

DRIVE O, WITH A ONE WORD TRANSFER.
(LOCK THROUGH THE
SEEK AND THE DRIVE CLEAR MESSAGES.
ISSUE 200 CONTROLLER
CLOCKS AND MAKE SURE WRITE GATE DOES NOT SET.
SIMULATE
SECTOR PULSE AND 200 CONTROLLER CLOCKS MAKING SURE WRITE
GATE DOES NOT SET.
SIMULATE INDEX PULSE AND MAKE SURE

WRITE GATE SETS.

*+NPR READING OF MEMORY

TEST 11 NPR OQUTPUT DATA TRANSFER

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

IN 26 SECTOR FORMAT, CYLINDER 777, HEAD 7, DRIVE 7.

CLOCK BOTH SEEK
SPECIFY A ONE WORD DATA TRANSFER.
AND DRIVE CLEAR MESSAGES.
SIMULATE INDEX PULSE.
CLOCK IN FIRST WORD OF NPR TRANSFER.
CHECK INPUT READY,
QUTPUT READY, BUS ADDRESS, WORD COUNT, AND CONTENTS OF
THE SILO.
REPEAT FOR 8 DIFFERENT DATA PATTERNS.
TEST 12 PARTIAL SILO FILLING

CLEAR RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER

CIR6CDO RK611 DSKLS CYRL PRTY

CZR6CD.P11Y

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-80

13:52

PAGE 8

SEQ 0007

281
282
283

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO06
IN 26 SECTOR FORMAT, CYLINDER O WEAD O, DRIVE 0.
SPECIFY A ONE WORD DATA TRANSFER.
CLOCK IN ALL

285

BUS ADDRESS,

287
%gg

INTO THE SILO.
CHMECK THE SILO FOR CORRECT DATA.
REPEAT FOR WORD COUNTS 2-6S.

284

SPECIFIED WORDS INTO THE SILO.

286

290
%g%

CHECK WORD COUNT,

INPUT READY, AND OUTPUT READY.

MAKE

SURE NO MORE THAN SPECIFIED DATA LENGTH IS CLOCKED

TEST 13 SILO FILLING WITH NPR TRANSFERS

293

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 0, DRIVE 0.
SPECIFY A 66 WORD DATA TRANSFER, CLOCK IN ALL 66 WORDS
INTO THE SILO.
CHECK INPUT READY, OUTPUT READY, BUS

%gg

ADDRESS, WORD COUNT, AND CONTENTS OF THE SILO.

294
295
296
297

300

gg;

TEST 14 SILO CAPICITY WITH NPR TRANSFERS

303

CLEAR RK611 WITH A CONTROLLER C_EAR.

307
308
309

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

b
d
D e
D
d
D
-— o

320
321

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 IS
CLOCKED IN THE SILO.
TAKE ONE WORD FROM SILO AND
CHECK 1T, ATTEMPT TO CLOCK IN NEXT WORD AND

MAKE SURE NO WORDS ARE CLOCK INTO SILO.
UNLOAD THE
SILO AND MAKE SURE ALL THE WORDS ARE CORRECT.

TEST 15 BUS ADDRESS INHIBIT

3264
325

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSY'C MODE.
ISSUE A WRITE HEADER TO AN

326

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

327
328
329
gg?
332
3

PUT CONTROLLER

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER 0. HEAD O, DRIVE 0.
SPECIFY A 68 WORD DATA TRANSFER.
CLOCK IN 66

QOO NO WVWN=O

WM AN AN AN N AN AN AN AN N

304
305
306

SPECIFY A 66 WORD DATA TRANSFER WITH BUS ADDRESS
INHIBIT INCREMENT. CHECK 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 RK611 WITH A CONTROLLER CLEAR,

IN DIAGNOSTIC MODE.

PUT CONTROLLER

ISSUE A WRITE HEADER TO AN RK0Q6

CIR6CDO RK611 DSKLS CTRL PRT3

CZR6CD.PYY

19-JUN-B0 13:49

MACY11

30A(1052)

19-JUN-80

13:52

PAGE 9

SEQ 0008

SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.

Y A ONE WORD DATA TO A NON-EXISTENT ADDRESS

0) AND MAKE SURE THE NON-EXISTENT
IN THE RK611 CONTROLLER.

MEMORY ERROR

TEST 17 BUS ADDRESS BIT 16

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

IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0,

DRIVE O.

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 THAN 32K

OF MEMORY IS ON THE SYSTEM.

TEST 20 BUS ADDRESS BIT 17

CLEAR RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 0O, YFADER 0, DRIVE O.

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:

TEST 21

THIS TEST IS ONLY EXECUTED IF MORE THAN 64K
OF MEMORY IS ON THE SYSTEM.

ADDRESSING GREATER THAN 96K

PUT CONTROLLER

CLEAR RK611 WITH A CONTROLLER CLEAR.

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, MEADER 0, DRIVE 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 IS ONLY EXECUTED IF MORE THAN 96K

OF MEMORY [S ON THE SYSTEM.

TEST 22 SILO FILL IN 18 BIT MODE

CLEAR RK611 WITH CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK06
IN 24 SECTOR FORMAT, CYLINDER O, HEAD 0. DRIVE O,

SPECIFY 66

WORD DATA TRANSFER.

(CLOCK

CZR6CDO RK611 DSKLS (TRL PRT3

CZR6CD.P11

19-JUN-80 13:49

MACY11 30A{1052)

19-JUN-80

13:52

1
PAGE 10

SEQ 0009

ALL 66 WORD INTO THE SILO.
CHECK THAT ALL 66
WORDS ARE CORRECT (16 LEAST SIGNIFICANT BITS).

+«MFM READ LOOPBACK TESTS

TEST 23 READ LOOPBACK (PART 1)

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, 255 ZEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE
FOLLOWING WORDS:

17777
000000
177777
MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

TEST 24 READ LOOPBACK (PART 2)

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 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 IEROES, A ONE.
AND A HEADER CONSISTING OF THE THREE
FOLLOWING WORDS:

000000
177777
000000

MAKE SURE THAT READY COMES UP AFTER THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

TEST 25 READ LOOPBACK (PART 3)

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MOVE. ISSUE A READ HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES
SIMULATE SECTOR PULSE, 255 IEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE
FOLLOWING WORDS:

CZIR6CDO RK611 DSKLS CTRL PRT3

CIR6CD.P11T
449
450

225

453

2gg

456

22;

19-JUN-B0 13:49

MACYI1 30A(1052)

19-JUN-B80

13:52

)

PAGE N

SEQ 0010

125252
052525

125252

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

TEST 26 READ LOOPBACK (PART 4)

459

CLEAR RK611 WITH A CONTROLLER CLEAR.

464

ONE., AND A HEADER CONSISTING OF THE THREE

460
461
462
463
465

466

467
468
298
47

2;%

z;z

477

478
479
480

481

4«82

483
484

485
486

23;

4«89

492
493

23;

496
497
498
499
500
501

502

503
504

PUT CONTROLLER

IN DIAGNOSTIC MODE. ISSUE A READ HEADER TO AN RK06
IM 26 SECTOR FORMAT, CYLINDER 0, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 225 ZEROES, A
FOLLOWING WORDS:

04444b
022222
111111
MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

TEST 27 READ LOOPBACK (PART 5)

CLEAR RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE. ISSUE A READ HEADER TO AN RKO6
26 SECTOR FORMAT, CYLINDER 0, HEAD O, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.

SIMULATE SECTOR PULSE, 255 ZEROES, A

ONE, AND A HEADER CONSISTING OF THE THREE
FOLLOMING WORDS.

052012
100520

052012

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
IS TRANSRERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

TEST 30 READ HEADER IN 18 BIT MODE

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN 24 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 255 ZEROES, A
ONE. AND A HEADER CONSISTING OF THE THREE
FOLLOWING WORDS:

177777
000000

CIR6CDOP11
RKA*1 DSKLS CYRL 13:49
PRT3 MACY11 30A(1052) 19-JUN-80 13:52 LPAGE 12

CIR6CD.

505

SEQ 00M

19-JUN-80

1mnn

VIV VAW
WA
VAW
PONIPOPIPIN)
b b od b ad ecd b o b
VIS WN = O 000 ~NO NS NN —

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
IS TRANSFERRED. CHECK THE SILO FOR CORRECT CONTENTS.

526

TEST 31 SYNCH DETECT 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 O, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE AND 350 ZEROES. MAKE
ggg;YREADY REMAINS RESET AND THE SILO REMAINS

TEST 32 IERC SYNCH ON READ

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.
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
1

MAKE SURE THAT READY COMES AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

s*MFM WRITE LOOPBACK TESTS

TEST 33 WRITE ZEROS UNTIL SECTOR PULSE WITH WRITE HEADER

CLEAR 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, ORIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES. SIMULATE
INDEX PULSE AND 500 DATA BITS., MAKE SURE THAT
ZEROES ARE WRITTEN. SIMULATE SECTOR PULSE AND MAKE SURE
WVAVAVAVAWA
VA VAVA

OO0 NN
W
gmmmmv\m\h\h

WRITE GATE RESETS.

TEST 34 WRITE LOOPBACK (PART 1)

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

CZR6CDO RK611 DSKLS CTRL PRT3

CIR6CD.P1Y
561

562
563
ggg

566

ggg

569

g;g

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-80

13:52

PAGE 13

SEQ 0012
177777
000000
17

MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX PUL

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

TEST 35 WRITE LOOPBACK (PART 2)

PUT CONTROLLER

g;%

CLEAR THE RK611 WITH A CONTROLLER CLEAR.

574
575
576
S77

IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RKO06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES. SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD MEADER

g;g

580
581

23%

584
585

586

S87
588
589

gg?

592
593
594
595
596
;gg
599
600
285

603
ggg
606

28;

609
610
611
612
613
- 2};
616

CONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:
000000
177777

000000
MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
1S TRANSFERRED. CHECK FOR CORRECT WRITE ENCODED DATA
AND PRECOMPENSATION.

TEST 36 WRITE LOOPBACK (PART 3)

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 O, DRIVE 0.
CLOCK BOTH SEEX AND DRIVE CLEAR MESSAGES. STIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:
125252
052525
125252

MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX PUL
CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION
TEST 37 WRITE LOOPBACK (PART &)

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK0é
IN 26 SECTOR FORMAT, CYLINDER 0O, 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 AND INDEX PULSE:
(\TYYYYA

13:52

1
PAGE 14

SEQ@ 0013

022222
1"Mn
MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX MOD

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION

TEST 40 WRITE LOOPBACK (PART 5)

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, 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:

052012

100520

052012

MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX PUL

CHECK FOR CORRECT WRiTE ENCODED DATA AND PRECOMPENSATION

TEST &1 WRITE LOOPBACK (PART 6)

CLEAR THE RK611 WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER i0 AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, 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.

CHECK FOR CORRECT WRI!TE ENCODED DATA AND PRECOMPENSATION

TEST &2 WRITE LOOPBACK (PART 7)

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, WEAD O, ORIVE O,
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES. SIBULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD w€ADER

CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:
0421
0421
0421

RAKE SURE

(-1 =7 ]

19-JUN-80

-l

MACY11 30A(1052)

(4]

CZRO6CDO RKO611 DSKLS CTRL PRY3
19-JUN-80 13:49
CIR6CO.PI

R READY (OMES UP AFTER SECOND

INDEX PULSE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION
TEST 43 WRITE TWO HEADERS
CLEAR RK611 WITH A CONTROLLER CLEAR.

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

000000
177777
000000
SIMULATE AN INDEX PULSE AND MAKE SURE READY COMES UP.
CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMENSATION.
TEST 44 DATA FIELD FILLING ON WRITE HEADER

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 O, DRIVE 0, AND
SPECIFY TWO 3 WORD HEADERS CONSISTING OF THE
AR WARNI NN
ANV
WALV
WV

>»—

ECC FIEL

22X
mm

MAKE SUR

O—=O=O—
VAR VAN W

ARV
WY

FOLLOWING DATA:

DATA SYNCH ANY OTHER BITS OF DATA AND

WRITTEN CORRECTLY.

TEST 45 WRITE HEADER FOR 26 SECTORS

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 O, DRIVE O, SPECIF
66 WORDS. MAKE SURE ALL 26 SECTORS ARE WRITTEN CORRECTL

[ Xan)

SEQ 0014

~ o~

CIR6CDO RK6T1Y DSKLS
CTRL PRTY MACY11 30A(1052) 19-JUN-B0 13:52 BPA%E 15
19-JUN-80 13:49

C(ZR6CD.PIY

CZR6CDO RK61T DSKLS CTRL PRTZ

CZR6CD.PVY

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-B0

13:52

2
PAGE 16

SEQ 0015

TEST 46 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 RKC6, CYLINDER O,
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.

+«TYPE B

INSTRUCTION ERRORS

TEST 47 FORMAT ERROR (PART 1)

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT TH
ISSUE A READ HEADER TO A
CONTROLLER IN DIAGNOSTIC MODE.
RKO6, IN 26 SECTOR FORMAT, CYLINDER 43, HEAD O, DRIVE 0.
CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6. TURN O
MAKE SURE FORMAT ERROR,
DRIVE AVAILABLE AND CONTROLLER ERROR SET.

MAINTENANCE MODE.

TEST 50 FORMAT ERROR (PART 2)

CLEAR THE RKO06 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT TH
ISSUE A READ HEADER TO A
CONTROLLER IN DIAGNOSTIC MODE.
RKO6, IN 24 SECTOR FORMAT, CYLINDER 3, HEAD O, DRIVE 0.
CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6. TURN O

MAINTENANCE MODE.
MAKE SURE FORMAT ERROR,
DRIVE AVAILABLE AND CONTROLLER ERROR SET.
TEST 51 FAULT SETTING CONTROLLER ERROR

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT TH
CONTROLLER IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO
AN RKO6, IN 26 SECTOR FORMAT, CYLINDER 3, HEAD O, DRIVE
0. CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6.
TURN OFF MAINTENANCE MODE.
MAKE SURE DRIVE
AVAILABLE AND CONTROLLER ERROR SET.

6.0 ERROR REPORTING

THE GENERAL FORMAT OF ERROR REPORTS IS:

OPERATION DESCRIPTION AND ERROR DESCRIPTION
TEST
NUM
XXXXXX

ERROR
PC
YYYYYY

REG

EXPECT

ACTUAL

OTHER PERTENANT
INFORMATION

—

CIR6CDO RKO61T DSKLS CTRL PRT3

CZR6CD.P1Y

19-JUN-80 13:49

MACY11

30A(1052)
T11117
NOTE:

19-JUN-80
WWWEWW

13:52

2
PAGE 17

SEQ@ 0016

AAAAAA

MORE THAN ONE SET OF EXPECT/ACTUAL REGISTERS MAY BE
PRINTED OUT, OTHER PERTENANT INFORMATION MAY CONSIST
OF MORE THAN ONE WORD.

OTHER PERTINENT 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.
TYESE

FIELDS

(ALL VALUES GIVEN

FIELD
HEADER PREAMBLE
HEADER
GAP
g:}: PREAMBLE

(22(10) SECTOR/TRACK)
(20€(10) SECTOR/TRACK)

ECC

POSTAMBLE
GAP

d =D
puery b

b o

Qo [« Yo Jo Jo To Yo Yo ]

(22(10) SECTOR/TRACK)
(20(10) SECTOR/TRACK)

820

IN OCTAL)

ARE:

BITS
400
60
100

WORDS
20

400

4
20

10000
11000

4«00
400

160
140

7
6

REFER TO THE RKO& UNIBUS DISK SUBSYSTEM SPECIFICATION FOR MORE
DETAILED DESCRIPTION.
THE 'BIT COUNT'' REPORTED IS INITIALIZED AT THE START OF EACH FIELD
AND IS INCREMENTED FOR EACH BIT PROCESSED.

WHEN THE OPERATION BEING PERFORMED INVOLVES WRITING, OTHER PERTINENT

INFORMATION MAY CONTAIN WORDS LABELED PRESENT BIT, PRESENT BIT -1,

PRESENT BIT =2, AND PRESENT BIT 1, THESE BITS ARE PRESENTED IN THIS
WAY TO SHOW THE WRITE DATA STREAM IN THE SAME MANNER THAT THE
RK611 LOOKS AT THE DATA STREAM TO COMPUTE PRECOMPENSATION ADVANCE
AND PRECOMPENSATION DELAY IN THE WRITE OPERATION.

WHEN THE OPERATION BEING PERFORMED INVOLVES READING, OTHER PERTINENT
INFORMATION MAY CONTAIN PREVIOUS BIT AND PRESENT BIT WORDS. THESE
BITS RELATE TO RK611 LOGIC THAT DETERMINES WHEN THE BIT IS VALID
FROM THExDECODER.

MACY11 30A(1052)

19-JUN-80

13:52

PAGE 18

; tee REV 003 wee

167400

000001

«NLIST
LIST
.ENABL

$SWR=
$TN=

LTITLE

CND,MD,MC
ME
ABS AMA

167100

C1R6C00 RK611 DSKLS CTRL PRT3

;*COPYRIGHT (C) 1976,1980
;*DIGITAL EQUIPMENT CORP.

; *MAYNARD, MASS. 017564
M

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMA(C
'PACKAGE (MAINDEC-11~DZQAC-C3), JAN 19, 1977,
OPERATIONAL SWITCH SETTINGS
SWITCH

BN BN 2N J

SBTTL

001100

15
14
13

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

1
10

INHIBIT ITERATIONS
BELL ON ERROR

BN
LN B
»

.SBTTL

USE

ABORT PROGRAM AFTER 20 ERRORS

LOOP ON ERROR
9
LOOP ON TEST IN SWR<7:0>
8
BASIC DEFINITIONS

:*INITIAL ADDRESS OF THE STACK POINTER tex 1100 wer

STACK=

.EQUIV

1100

EMT,ERROR

10T,SCOPE

;:BASIC DEFINITION OF ERROR CALL
¢:BASIC DEFINITION OF SCOPE CALL

000011
000012
000015
000200
177776

:'HISCEL%?NEOUS DEFINITIONS
HT=
::CODE FOR HORIZONTAL TAB
LF=
12
::CODE FOR LINE FEED
CR=
15
< :CODE FOR CARRIAGE RETURN
CRLF=
200
::CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
: sPROCESSOR STATUS WORD

177774

STKLMT= 177774

.EQUIV

PS,PSW

177772
177570
177570

PIRQ=
DSWR=
DDISP=

177772
177570
177570

000000

RO=

; :GENERAL REGISTER

000002

R2:=

: :GENERAL REGISTER

000001

000003
000004
000005
000006
000007
000C06

::STACK LIMIT REGISTER

: :PROGRAM INTERRUPT REQUEST REGISTER
: ;HARDWARE SWITCH REGISTER
: :HAROWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER ODEFINITIONS

R1=

R3=
Ré=
RS=
R6=
R7=
SP=

13
14
15
16
17
16

: :GENERAL REGISTER

: :GENERAL REGISTER
: :GENERAL REGISTER
::GENERAL REGISTER
s :GENERAL REGISTER
::GENERAL REGISTER
1:STACK POINTER

SEQ 0017

CIR6CDO RKO6T11 DSKLS CIRL PRT3
19-JUN-B0 13:49
CZR6CD.P1Y

CZR6CDO RKO6T11 DSKLS CTRL PRT3

19-JUN-80 13:49

19-JUN-80

BASIC DEFINITIONS

PAGE 19

PC=

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=

0
40
100

::PRIORITY LEVEL O
;:PRIORITY LEVEL 1
;sPRIORITY LEVEL 2

PR4=

200

;:PRIORITY LEVEL 4

PPR6=

300

100000

SW1S=
SWié=
SWi13=
swi2=
SWil=
SWwi10=
sw09=
Sw08=
Sw07=
sWwo6=
SW0S=
sWwi4é=
sWwo3=
Sw0?2=
SWo1=
SWw0o=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

140

PRS=

240

PR7=

340

::PRIORITY LEVEL S

:sPRIORITY LEVEL 6
::PRIORITY LEVEL 7

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10

4
2

1
SW09,Sw9
SW08,Sw8
SW07,Sw?7
SWO06,SW6

SWOS5,SwW5
SWO4,SuWé
SWO03,SwW3
SW02,5wW2
SWO1,Sw1
SW00,SwW0

¢DATA BIT DEFINITIONS (BITOO TO BIT15)
N

100000

40000

20000
10000

00
00
00
A0
0000

P g
o
o

0000
B

=
) oo
]
g
e
g e o

000002

;;PRIORITY LEVEL 3

¢ 'SWITCH REGISTER'' SWITCH DEFINITIONS

040000

PR3=

100000

; ;PROGRAR COUNTER

s*PRIORITY LEVEL DEFINITIONS

=4 =4

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

1 34

13:52

000007

OOOOQOOOOO
=t —bd=bd b b
=2 NI
S NON NB OO =2 NI S

CZR6CD.P1Y

MACY11 30A(1052)

SEQ 0018

CIR6CDO RK61T DSKLS CIRL PRT3
19-JUN-80 13:49
CZR6CD.PYY
942

943
944
945
946
947

000001

948
949
950
951

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

8I1700=
.EQUIV
.EQUlV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQU]V
.EQUIV
.EQUIV
.EQulv

13:52

PAGE 20

000250

:*BASIC '°CPU’" TRAP VECTOR ADDRESSES
ERRVEC= &
;:TIME OUT AND OTHER ERRORS
RESVEC= 10
:;RESERVED AND L. EGAL INSTRUCTIONS

TBITVEC=14

T BIT

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

: ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (1OT)
;. POWER FAIL

TRTVEC= 14

EMTVEC= 30
TRAPVEC=34

;s TRACE TRAP

TKVEC=
60
::TTY KEYBOARD VECTOR
TPVEC=
64
;:TTY PRINTER VECTOR
PIRQVEC=240
; ; PROGRAM INTERRUPT REQUEST VECTOR
.SBTTL
MEMORY MANAGEMENT DEFINITIONS

MMVEC=

250

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

; *KERNEL °‘I'* PAGE DESCRIPTOR REGISTERS
NNNNNNNYNY

«eSCOPEe+

;;EMULATOR TRAP (EMT) *«ERROR++
;" 'TRAP'' TRAP

:*KT11 STATUS REGISTER ADDRESSES
177572
177574
177576
172516

SEQ 0019

1
BIT09,BIT9
B81T108,8118
BIT07,8117
BIT06,B1T6
BIT05,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT?
81T701,8IM
817100,81T0

;*KT11 VECTOR ADDRESS

952
953
954
955
956
957
958
959

MACYTY 30A(1052)
19-JUN-80
BASIC DEFINJTIONS

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR&=
KIPDRS=
KIPDRé=
KIPDR?=

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNEL ‘''I'* PAGE ADDRESS REGISTERS
KIPARO=
KIPAR1=
KIPAR2=
KIPARS=
KIPARL=

172340
172342
172344
172346
172350

g8S2SR g
W

=2 OO0 NO NS WN—-O

AOPVRNIAIN)
b b b b ol od and oD b b

D
il
il
el
o
D i
) e

D e

D el

) i

OCOO0O0O0O0O0O0O0O0O0O0O000O

KIPARG= 172354
KIPAR?= 172356

177440

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

MEMVEC=
MEMBAS=
WR.PAR=
PAR.EN=
AVECT1=
APRIOR=
ABASE=

114
172100
4
1
120210
5
177449

.SBTTL

RK611

RKCS1=
RKWC=
RKBA=
RKDA=

0
2
&
6

;CONTROL AND STATUS REGISTER 1
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
;OESIRED TRACK SECTGR REGISTER

RKER=
RKASOF=
RKDCYL=
RKDB=
RKMR1=

14
16
20
26
26

;ERROR REGISTER
SATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER 1

RKCS2=
RKDS=

000001
000003
000005
000007
000011
000013
000015
000017

V) =2 O OO

O NS wify =

SRR RRRRRERRR

b e

1040

000300

;MEMORY PARITY VECTOR
<MEM PARITY OPTION
;MRITE BAD PARITY
¢ENABLE PARITY ENABLE
;DEFINE RK611 VECTOR ADDRESS
;DEFINE RK611 PRIORITY
;DEFINE BASE OF RK611 REGISTERS

CONTROLLER REGISTER DEFINITION

10
12

RKMR2=
34
RKMR3=
36
RKECPS= 30
RKECPT= 32
RKSPAR= 22
.SBTTL

KIPARS= 172352

998
999
1000

19-J UN-80
13:52 PAGE 21
MEMORY MANAGEMENT DEFINITIONS

MACY11 30A(1052)

:CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER

;MAINTENANCE REGISTER 2
;MAINTENANCE REGISTER 3
;ECC POSITION INFORMATION

;ECC PATTERN INFORMATION
:SPARE REGISTER

DRIVE COMMANDS

SELDRV= 01

+SELECT DRIVE

CLEAR=

:DRIVE CLEAR

PACK=

UNLOAD=
SRTSPL=
RECAL=
OFFSET=
SEEK=

07
1}
13
15
17

RDDATA=
WRDATA=
ROHEAD=
WRHEAD=

21
22
25
27

WRTCHK= 31
INTR=
300

;PACK ACKNOWLEDGE

:UNLOAD
¢START SPINDLE
+RECAL IBRATE
sOFFSET
: SEEK

+READ DATA
SWRITE DATA
:READ HEADER
;WRITE HEADER AND DATA

+WRTTE CHECK
:GENERATE INTERRUPT TO CPU

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

000001
000100

60=
1€=

BITO
BITé

;60 BIT
s INTERRUPT ENABLE

001000
002000

BA16=
BA17=
1=

BIT8
BIT9
BIT10

:BUS ADDRESS BIT 16
:BUS ADDRESS BIT 17
; CONTROLLER DRIVE TYPE (0=RK06)

RDY=

8I1?

; CONTROLLER READY

SEQ 0020

CZIRO6CDO RK611 DSKLS (IRL PRTS
19-JUN-80 13:49
CIR6CD.P1Y

CIR6CDO RK611 DSKLS CTRL PRTY
CZR6CD.P
19-JUN-80 13:49
1054
1055
1056
1057
1058
1059
}82?

MACY11 30A(1052)
19-JUN-80 13:52 PAGE 22
CONTROL AND STATUS REGISTER 1 BITS

004000

cT0=

BITN

010000
020000
040000
100000
100000

CFMT=
SPAR=
0l=
CERR=
CCLR=

BIT12
BIT13
BIT14
BIT1S
BIT1S

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS

}82%

SEQ@ 0021

;CONTROLLER TIMED OUT WAITING FOR
:
DRIVE RESPONSE
;CONTROLLER DRIVE FORMAT (0=26 SECTOR, 1=24 SECTOR)
;DRIVE BUS PARITY ERROR DETECTED B8Y CONTROLLER
;DRIVE INTERRUPT
:CONTROLLER ERROR
:CONTROLLER CLEAR

1064
1065
1066
1067
1068

000007
000010
000020
000040
000100

DRVMSK=
F'.S=
BAl=
SCLR=
IR=

7
8IT3
BIT4
BITS
BIT6

:MASK FOR DRIVE SELECTION CODE
;DESELECT OR RELEASE DRIVE IN BITS 0-2
;BUS ADDRESS INCREMENT INHIBIT
sCLEAR CONTROLLER AND ALL DRIVES
: INPUT READY

1070
1071

000400
001000

UFE=
MDS=

BIT8
BIT9

:UNIT FIELD ERROR
sMULTIPLE DRIVE SELECT

1069

1072
1073
1074

1075

1076
}8;;

000200

OR=

002000
004000

PGE=
NEM=

010000

NED=

020000

UPE=

040000
100000

W(E=
DLT=

}8;8
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
}88?

1108
1109

BIT10
BITI
BIT1?

BIT13
BIT14
BIT1S

;OUTPUT READY

+PROGRAMMING ERROR
sNON-EXISTENT MEMORY
sNON-EXISTENT DRIVE

;UNIBUS PARITY ERROR
;WRITE CHECK ERROR
:DATA LATE ERROR

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=
SKI=
NXF =
DRPAR=
FMTE=
DTYE=
ECH=
BSE=

OPl=
UNS=
DCK=

BITO
BIN
BIT2
BIT3
BIT4
BITS
BIT6
Bl17
BIT8
BIT9
BIT10
BITN
BIT12
BIT13
BIT14
BIT1S

.SBTTL

STATUS REGISTER BIT DEFINITION

000001

DRA=

8IT0

000004
000010
000020
000040
000100
000200
000400
004000

OFST=
ACLO=
SPOLSS=
DROT=
vys=
DROY=
0DT=
WRL =

BIT?
BIT3
BIT4
BITS
BIT6
BIT?
BIT8
eIt

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

}833
1100
1101
1102
1103
1104
1105
1106
1107

BIT17

HVRC=
COE=
IDAE=
WLE=
DTE=

s ILLEGAL FUNCTION CODE
:SEEK INCOMPLETE
sNON-EXECUTABLE DRIVE FUNCTION
sORIVE DETECTED DRIVE BUS PARITY ERROR
:FORMAT ERROR
;DRIVE TYPE ERROR
:ECC HARD
:BAD SECTOR ERROR
;HEADER VRC ERRROR
:CYLINDER ADDRESS OVERFLOW ERROR
s INVALID OISK ADDRESS ERROR
¢WRITE LOCK ERROR
:DRIVE TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
;DRIVE UNSAFE
;DATA CHECK

;DRIVE AVAILABLE (CONTROLLER IS SET
:
THIS BIT IS RESET)
;DRIVE OFFSET
sAC LOW
:SPEED LOSS
;ORIVE OFF TRACK
«VOLUME VALID
:DRIVE READY

;DRIVE TYPE (0=RK06)
(WRITE LOCK

I¥

IR6CDO RK61Y DSKLS CTRL PRT3
IR6CD.P1Y
19-JUN-80 13:49
10

020000

133
}}%

040000
100000

J 2
MACY11 30A(1052)
19-JUN-B0 13:52 PAGE 23
STATUS REGISTER BIT DEFINITION
PIP=

BIT13

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

DSC=
SVAL=

}}g

SEQ 0022

;POSITIONING IN PROGRESS

BIT14
BIT15

;DRIVE STATUS CHANGE
s STATUS VALID

}}9

000017

MESMSK= 17

sMESSAGE MASK

118
119

000020
000040

PAT=
DMD=

BIT4
BITS

;FORCE EVEN PARITY ON DRIVE MESSAGE LINES
;DIAGNOSTIC MODE

121
122
123
124

000200
000400
001000
002000

FIND=
MCLK=
MERD=
MEWD=

BIT?
BIT8
BIT9
BIT10

120

000100

125

MSP=

004000

126
127
128
}gg

PCA=

010000
020000
040000
100000

PCD=
ECCW=_
WRTGAT=
RDGATE=

}g}

BIT6

sMAINTENANCE SECTOR PULSE
sMAINTENANCE
sMAINTENANCE
sMAINTENANCE
;MAINTENACNE

B8IT11

:PRECOMPENSATION ADVANCE

BIT12
BIT13
BIT14
BIT15

:PRECOMPENSATION DELAY
;ECC WORD IS BEING READ OR WRITTEN
;MRITE GATE
:READ GATE

.SBTTL

TRANSMITTED MESSAGE A

133
134
135
136
137
138
139
140
}2;

000020
000040
000100
000200
000400
001000
002000
004000

S.SEEK=
S.RECL=
$.STSP=
S.RTC=
S.CLR=
S.FMT=
S.UNLD=
S.PACK=
.SBTTL

BIT4
BITS
BIT6
BIT17
BJT8
BIT9
BIT10
BITI
TRAP CATCHER

143

000000

144

145

000174
000176

000174
000000
000000

000200

000137

003662

154

000214

000137

003642

}gz

000204

888}?2

157

161

000046

163
}64
65

000052

16%

s SEEK COMMAND
sRECALIBRATE COMMAND
;START SPINDLE COMMAND
:DRIVE RETURN TO CENTERLINE COMMAND
;CLEAR ERROR AND DSC
:FORMAT
s UNLOAD
;SET VOLUME VALID (PACK ACKNOWNLEDGE)

;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A ', 42 HALT"

003652

:*LOCATION & CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174
DISPREG: .WORD
0
:; SOFTWARE DISPLAY REGISTER
SWREG:
.WORD O
+;SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JHP
S#START ;;JUMP TO STARTING ADDRESS OF PROGRAM

JH;1‘

.SBTTL

RESTRY

JMP
PARM
ACT11 40OKS

;JUMP TO RESTART ROUTINE

:JUMP TO OPERATOR ASSIGNED PARMETERS

:.'".".'t'.."."".""""""'....i.l'.'......""'.""""t

158

159
160

s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

146
147
148
149
150
151

}g%

INDEX
CLOCK
ENCODED READ DATA
ENCODED WRITE DATA

000220
000046

;HOOKS REQUIRED BY ACTI
$SVP(=.
.=46

+SAVE PC

042550

SENDAD

ssV)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

000000
000220
000114

.WORD
O
.=$SVP(
.=MEMVEC

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

000052

.=52

gop?§611 DSKLS CTRL PRTY

([aln]

[ala)

1166
1167
1168
}}98

19-JUN-80 13:49

000114
000116

MACY11 30A(1052)

043650

000340
001000

LSBTTL

173

177
1178
1179

001000
000026

000044

1180

000024

000044
001000
001000

R R

R R LA A A

Xz,

s sSAVE CURRENT LOCATION

200

:sFOR APT START UP

A Rl

AL LA L gL

::SET POWER FAIL TO POINT TO START OF PROGRAM

.zbé
::POINT TO APT INDIRECT ADDRESS PNTR.
SAPTHDR ;:POINT TO APT HEADER BLOCK
2. 8%
:sRESET LOCATION COUNTER
e

T T

L A

AL A A AL AL A

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
JINTERFACE SPEC.

1184

001000

1189

001010

1190

e R

=24

000200

1181
}}gg
1185
1186
1187
1188

SEQ 0023

:SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

1174

1176

PAGE 24

PR7
.=1000
APT PARAMETER BLOCK

1175

13:52

MEMERR

1"n

1172

19-JUN-B0

ACT11 HOOKS

001000
001002
001004
001006

001012

000000
001214
000000
000000

000000
000032

SAPTHD:

SHIBTS:
$MBADR:
$TSTM:
$PASTM:

.WORD
.WORD
_WORD
,.WORD

0
SMAIL

.WORD

SETEND=-SMAIL/2 ::LENGTH MAILBOX-ETABLE (WORDS)

SUNITM: .WORD

::TW0 HIGH BITS OF 18 BIT MAILBOX ADDR.
: ;ADDRESS OF APT MAILBOX (BITS 0-15)
;sRUN TIM OF LONGEST TESY
::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

CIR6CDO RKOT11 DSKLS CTRL PRT3
CZR6CD.P1Y
19-JUN-80 13:49

MACY11 30A(1052)
19-JUN-BO
COMMON TAGS

13:52

2
PAGE 25

SEQ 0024

;;tttttttttt't'tt"""'"tt"tt"ttttt'Q'Qt""'tttt'ttt"tt'tt'

}}32

:*USED IN THE PROGRAM.

~N)

1193

.SBTTL

1194

1197
1198
1199
1200
1201
1202
1203
1204
1205
1206

1207
1208
1209
1210
1211
1212
1213
1216
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120

001122
001124
001126
001130

001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154

1226
1227

001155
001156
001157

1238
1239
1240
12641

001204
001210
001211
001212

1228
1229
1230
1231
1232
1233
123
1235
1236
1237

126%

}52‘

COMMON TAGS

001160
001162
001164
001166
001170
001172
001174
001176
001200
001202

001100

SCMTAG:

000000
000
000
000000
000000
000000
000000
000

$TSTNM:
$ERFLG:
$ICNT:
SLPADR:
$SLPERR:
$ERTTL:
SITEM8:
SERMAX:
$ERRPC:
$GDADR:

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

177607
077
015
000012

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

.BYTE
.WORD
.WORD
$8DADR: .WORD
$GDDAT: .WORD
$80DAT: .WORD
.MORD
MORD
$AUTOB: .BYTE
$INTAG: .BYTE
WORD
SWR:
LWORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE

012
000

000000
000000
000000
00000
000000
000000
000000
000000
000000
000000

.z1100

$FILLC: .BYTE
$TPFLG: .BYTE

000377

$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
.WORD
$TMPS:
_WORD
$TMP4:
.WORD
$STMPS:
.WORD
$TMP6:
.WORD
$TMP7:
_MORD
STIMES: O
SESCAPE:0

O
0
O
O
O
0
O
0

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

O
2

12
O
O
O
O
O
O
0
0
O

$BELL:
$QUES:
$CRLF:
$LF:

.ASCIZ
.ASCII
.ASCI]
JASCIZ

<207><377><377>
7/
<%
<1

.SBTTL

APT MAILBOX-ETABLE

::START OF COMMON TAGS
;:CONTAINS
;:CONTAINS
::CONTAINS
::CONTAINS
:;CONTAINS
::CONTAINS
::CONTAINS
::CONTAINS
; ;CONTAINS
::CONTAINS

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL FRRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF °*GOOD' DATA

:;CONTAINS ADDRESS OF °'BAD' DATA
: :CONTAINS *GOOD* DATA
::CONTAINS °*BAD' DATA
: sRESERVED=-=-NOT TO BE USED
; sAUTOMATIC MODE INDICATOR
: : INTERRUPT MODE INDICATOR

:ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
;:TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CMARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED

;s INSERT FILL CHARS. AFTER A 'LINE FEED’
2 s TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
:;USER DEFINED
:;USER DEF INED
:;USER DEF INED
:sUSER DEF INED
;:USER DEFINED
:;USER DEF INED
:;USER DEF INED
:sUSER DEF INED
;:MAX, NUMBER OF ]TERATIONS
:;ESCAPE ON ERROR ADDRESS

;;CODE FOR BELL
:sQUESTION RMARK
:sCARRIAGE RETURN
c:LINE FEED

.e VOO CRREEEOEERNCCRRCRRCEOCROERRRREEERRERECECRORCCEORCOCRORRRROCERTRTETE

12‘5

: ;ttttttttt't..t'tt't"'Q"OQ'"t'!t"0.000...t.t..'.'.....'ltt't

1246

.EVEN

CIR6CDO RKO611 DSKLS CTRL PRT3

CIR6CD.P11
1247
1248
1249

1250
1251
1252
1253
1254
1255

19-JUN-80 13:49

001214
001214
001216

001220
001222
001224
001226
001230
001232

1256 001234
1257
1258
1259
1260
1261
1262

001234
001235
001236
001240
001242

000000
000000

000000
000000
000000
000000
000000
000000
000
000
000000
000000
000000

1263

1264
1265
1266
1267
1268
1269

1270

MACY11 30A(1052)

19-JUN-80

APT MAILBOX-ETABLE
SMAIL :
SMSGTY:
SFATAL:

STESTN:
SPASS:
SDEVCT:
SUNIT:
$SMSGAD:
$ASGLG:

SETABLE:
SENV:
SENVM:
$SWREG:
SUSWR:
$CPUOP:
;e

.WORD
.WORD

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

13:52

AMSGTY
AFATAL

ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVA
ASWREG
AUSWR
ACPUOP

001244
001245

000
000

‘e
i
i
i
$MAMST: .BYTE
SMTYP1: .BYTE

PAGE 26

SEQ 0025

:sAPT MAILBOX
::MESSAGE TYPE CODE
::FATAL ERROR NUMBER

::TEST NUMBER
::PASS COUNT
::DEVICE COUNT
::1/0 UNIT NUMBER
::MESSAGE ADDRESS
::MESSAGE LENGTH

$SAPT ENVIRONMENT TABLE

::ENVIRONMENT BYTE
;:ENVIRONMENT MODE B1TS
;:APT SWITCH REGISTER
;:USER SWITCHES
::CPU TYPE,OPTIONS
BiTS 15-11=CPU TYPE

11/06201,11/05=02,11/20=03,11/40=04,11/45=05

AMAMST
AMTYP1

11/70=06.P0A=07.0=10
BIT 10=REAL TIME CLOCK
BIT OQ=FLOATING POINT PROCESSOR
BIT B=MEMORY MANAGEMENT
;:HIGH ADDRESS.M.S. BYTE
::MEM. TYPE,BLKA

AMADRY

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;:;HIGH ADDRESS,BLK#

MEM.TYPE BYFE

(HIGH BYTE)

1271
1272
1273
1274

001246

000000

1276
1277
1278
1279
1280

001250
001251
001252
001254
001255

000
000
000000
000
000

$MAMS2:
SMTYP2:
SMADRZ2:
$MAMSS:
SMTYPS:

.BYTE
.BYTE
.WORD
.BYTE
.BYTE

AMAMS2
AMTYPZ
AMADR?
AMAMSS
AMTYPS

;:MIGM ADDRESS,M.S. BYTE
::MEM.TYFE,BLKA?
;:MEM.LAST ADDRESS,.BLK#2
;:MIGH ADORESS,M.S.BYTE
:MEM.TYPE,BLKA3

1282
1283
1284

001260
001261
001262

000
000
000000

SMANSL: .BYTE
SATYP4: .BYTE
$SMADR4: .WORD

AMANSL
ARTYP4
AMADRG

::MIGM ADDRESS,M.S.BYTE
::MEM.TYPE,BLKAS
::PSM LAST ADDRESS,BLK#4

1275

1281

1285
1286
1287
1288

1289
1290
1291
1292

001256

001264
001266
001270
001272

001274
001276

001300

000000

120210
000000
177440

000000

000000
000000

e
i
T

ADRY: .WORD

$SMADRS: .WORD

SVECT1: .WORD
SVECT2: .WORD
SBASE:
.WORD
$SDEVM:

$COW1:
$CDW2:

SETEND:
MEXIT

.WORD

.WORD
.WORD

AMADRS

AVECT1
AVECT2
ABASE
ADEVM

ACOWY
ACDW2

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

::MEM.LAST ADDRESS,BLKSS

::INTERRUPT VECTOR#1,BUS PRIORITY#
::INTERRUPT VECTOR#2BUS PRIORITYA2
;:BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP

::CONTROLLER DESCRIPTION WORDA
::CONTROLLER DESCRIPTION WORD#?2

'‘TYPE''

ABOVE

CIR6CDO RK6T1 DSKLS CTRL PRT3
CZR6CD.P1Y
19-JUN-80 13:49
1293
1294
1295
129%
1297
1298
1299

138
13,4
17
1348

.SBTTL

13:52

2
PAGE 27

SEQ 0026

ERROR POINTER TABLE

001300
001302

$ERRTB:
ERROR 1:
M

055321
061500

001304
001306

050560
051222

001310
001312
001314
001316

)
055321
061543
050560
051222

001320
001322
001324
001326

055321
061567
050560
051222

001330
001332
001334
001336

055403
061500
050560
051222

001340
001342
001344
001346

055403
061543
050560
051222

001350
001352
0035
001356

055403
061567
050360
051222

001360
001362
001364

055466
061500
050560

EM200
EM3000
07001
DFO001

ERROR 2:

EmM200
EM3001
07001
0F001
ERROR 3:

EM200
EM3002
07001
0F001
ERROR &:

:sPOINTS TO THE
:sPOINTS TO THE
¢ ;POINTS TO THE
¢ ;POINTS TO THE

)

001300

e»

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
seNOTE:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
PR YRR

1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
133,
1335
1336
1337
1338
1339
1340
1341
1342
1.8

MACY11 30AC1052)
19-JUN-80
ERROR POINTER TABLE

EM201
EM3000
DY001
0f 001

ERROR §5:

EM201
Em3001
01001
DF 001
ERROR 6:

EM201
Em3002
071001
DF 001
ERROR 7:

EM202
En3000
01001

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT -

ATTEMPTING TO CHECK SEEK MESSAGE FROM READ HEADER

CS1

INCORRECT.

ATTEMPTING TO (HECK SEEK MESSAGE FROM READ HEADER
MESSAGE A INCORRECT.

ATTEMPTING TO CHECK SEEK MESSAGE FROM READ HEADER
MESSAGE B INCORRECT.

ATTEMPTING TO CHECK SEEK MESSAGE FROM WRITE HEADER

CS1

INCORRECT.

ATTEMPTING TO CHECK SEEK MESSAGE
MESSAGE A INCORRECT.

FROM WRITE HEADER

ATTEMPTING TO CHECK SEEK MESSAGE

FROM WRITE HEADER

MESSAGE

1S INCORRECT.

ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM READ WEADER
CS1 INCORRECT

Qs Gt
pur

SEELE
~ =~~~
g
=200~

MESSAGE A INCORRECT.

EM203
EM3001
07001
DFO001
ERROR 14: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FRUM WRITE HEADER
MESSAGE B8 INCORRECT,
EM203
EM3002
07001
DFO001
ERROR 15: ATTEMPTING A READ HEADER TO (HECK SECTOR PULSE DETECT
CS1 INCORRECT AFTER SENDING DRIVE C(LEAR.
EM204
EM3003
DT015
DFO15
ERROR 16: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT
CS1 INCORRECT AFTER DATE SIMULATION.
EM204
EM3004

8888
2388
WAV VAWA

ok o

b
—

"o s

LaF
o8 o F o
NNNN

ot —a

8888

L o

8338
S838

auuuuuuuuuug

(=d=d=1=4
[V V. T XV ]

SR8
orrO

b
b
b
e
v

a3 ol o

ERROR 17: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT
MAINT REG. 1 INCORRECT DURING DATA SIMULATION (SECTOR PULSE)
EM204
EM3005
01017
DFO17
ERROR 20: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT
MAINT REG. 1 INCORRECT DURING DATA SIMULATION (INDEX PULSE)
EM204
EM3006
01017
DFO17
ERROR 21: ATTEMPTING A READ HEADER TO CHECK SECTOR PULSE DETECT

(Y]

A LMALIANAIAIANAMANAIAY

SEQ 0027

LA cAALA LA LA ta A IALNANA LA LA

RES288IIR SPEeeseEES 32

DFO01
ERROR 10: ATTEMPTING TO CHECK ORIVE CLEAR MESSAGE FROM READ HEADER

MESSAGE B INCORRECT.

e
e
o
D e
D

D
i
i
d
b
D
b

PAGE 28

EM202
EM3002
07001
0F001
ERROR 12: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM WRITE HEADER
CS1 INCORRECT.
EM203
EM3000
07001
DFOO1
ERROR 13: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM WRITE HEADER

~
Py W

b e

=
D =

EM202
EM3001
01001
DFO01
ERROR 11: ATTEMPTING TO CHECK DRIVE CLEAR MESSAGE FROM READ HEADER

ol
D i) il i e

ERROR POINTER TABLE

13:52

MESSAGE A INCORRECT.

001370
001372
001374
001376

D
D il e i ol
s enld
il
el el

19-JUN-80

LA LA LA A LA

051222

D e

[V vV V[V [V IV LV V[V IV [V IV ]
OO O VANV
OO0 ~NO NE
) =

001366

MACY11 30A(1052)

ML
A LA LA LA

CIR6CDO RK611 DSKLS CTRL PRTY
19-JUN-80 13:4
CIR6CD.PYY

~N~

CZR6CDO RK61Y DSKLS CTRL PRTI

19-JUN-B0 13:49

CIR6CD.P1Y

N1 =)
1

b e

[- ¥

WAVAIWDN

=& =4
Ogoo
(==L

poar Qo PusrGuurd

VAWNWAWD

porQurSpur e

8888

i
D
D i
D

WA AW

ANWVAWVA
Ll akad

2888

0O
8888

WM
N
orNO

i
D e
i
D e

osrrNvO

SIEVF

-l el wnld o

s
D o
e
d il e
D e
e
) e
e

o33

8388

8928
~N

- el il ol
oo

8888

) o

s
(=]

-t
o

3
PAGE 29

: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
WwORD COUNT CHANGED BEFORE INDEX PULSE

el e

ald el

ERROR POINTER TABLE

13:52

ERROR 25: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
MAINT REG 1 INCORRECT DURING DATA SIMULATION (NO INDEX OR SECTOR)
EM205
EM3014
07025
DF 025
ERROR 26: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
CS1 CHANGED DURING COMMAND EXECUTION
EM20S
EM3010
DT022
DF022
ERROR 27: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
BUS ADDRESS CHANGED BEFORE INDEX PULSE
EM205
EM3011

X
Y
Y
X X
¥ X,
O VAVAVAWVAVAWIWA
WA
(=2]OB O NN

—

19-JUN-80

SEQ 0028

MAINT REG. 1 INCORRECT DURING DATA SIMULATION (NO INDEX OR SECTOR)
EM204
EM3007
01017
DFO17
ERROR 22: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
CS1 INCORRECT AFTER SENDING DRIVE CLEAR
EM205
EM3003
DT022
DF022
ERROR 23: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
BUS ADD INCORRECT AFTER SENDING DRIVE CLEAR.
EM205
EM3008
01022
DF022
ERROR 24: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
WORD COUNT INCORRECT AFTER SENDING DRIVE CLEAR
EM205
EM3009

001500
001502
001504
001506

D ad i

D el e

D—

Xkl atal 2k 2t af 2R o F W W o o W o p o W P T2l al P o ¥ ¥ o R P P o o F o o P a2 o,
l
oy
¥ IV )
N ML PN NI RO PO PIPI RO PIRINY =D b cad = o e cd ocd o b (==l
e N 2O
0O
WA = OO0 NO W
N =2 OO0 YOV
NN = OO o~

1405

MACY11 30A(1052)

055737

ERROR 31: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
CS1 CHANGED AFTER INDEX PULSE
EM205
EM3013
01031
DFO31
ERROR 32: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECY
BUS ADDRESS CHANGED AFTER INDEX PULSE.
EM205

062710

1461
1462
1463
1464
1465

050660

051366

001630
001632
001634
001636

050660
051366

001640
001642
001644
001646

056025
061500
050704
051412

OrNO

=
-S4

NN~

~~~
NN
s~

8888

prur Qs G
Gy
oG

8888

388

NP1 =}

il al
) el and
—

PAGE 30

SEQ 0029

EM3015

ERROR 33: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT
EM205
EM3016
DTO3
DFO3
ERROR 34: ATTEMPTING A WRITE HEADER TO CHECK INDEX PULSE DETECT

001626

001650
001652
001654
001656

[« QY. F SV

13:52

WORD COUNT CHANGED AFTER INDEX PULSE

1666

1467
1468
1469
14670
14671
1672

MACY11 30A(1052)
19-JUN-80
ERROR POINTER TABLE

050025
063023
050704
051412

EM205
EM3025
DTO3N
DFO3
ERROR 35:

EM206
EM3000
01035
DFO35
ERROR 36:
EM206
EM3018
DT035
DFO35
ERROR 37:

056025
063067
050704
051412

EM206
EM3019
01035
DFO35
ERROR 40:

056025
063115
050704
051412

EM206
EM3020
01035
DFO35
ERROR 41:

056025
063146
050730
051436

EM206
EM3021
DT041
DF 041
ERROR &2:

056025
063172
050740
051462

EM206
EM3022
01042
DF 042
ERROR 43:

056025
063242
050740

EM206

EM3023
01042

MAINT REG 1

INCORRECT AFTER SECTOR PULSE

ATTEMPTING AN NPR READ OF
CS1 INCORRECT

ONE WORD

ATTEMPTING AN NPR READ OF

ONE WORD

ATTEMPTING AN NPR READ OF

ONE WORD

ATTEMPTING AN NPR READ OF
WORD COUNT REG INCORRECT

ONE WORD

ATTEMPTING AN NPR READ OF
WORD READ INCORRECT

ONE WORD

(S2 INCORRECT

B1)S ADDRESS INCORRECT

ATTEMPTING AN NPR READ OF ONE WORD
CS1 INCORRECT AFTER READING DATA BUFFER

ATTEMPTING AN NPR READ OF ONE WORD
CS2 INCORRECT AFTER READING DATA BUFFER

o
~~

CZR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.P1Y

17
18
19

20
21
22
23
24
25
26
27
28
29

A WA U WA WA VA VA VA VA VA VA VA VY WA VA VA VA WA WV AVA VA VAWV

A WA WA VAWV

WA WVAWAAWA VA VA WWA

30
31
32
33
34
35
36
37
38
39
40
41
Y
43
&
&%
6
47
«8
49
50
51
5¢
53
54
55

56
57
58
59
60
61
62
63
64
65

66
67
68
69
70
71
72

19-JUN-80 13:49

001726

051462

001730
001732
001734
001736

056070
061500
050704
051412

:
001740
001742
001744
001746

056070
063023
050704
051412

001750
001752
001754
001756

056070
063067
050704
051412

001760
001762
001764
001766

056070
063115
050704
051412

001770
001772
001774
001776

056117
061500
050704
051412

002000
002002
002004
002006

056117
063023
050704
051412

002010
002012
002014
002016

056117
063067
050704
051412

002020
002022
0020264
002026

056117
063115
050704
051412

002030
002032

056070
063146

002034
002036

050754
051506

19-JUN-80

ERROR POINTER TABLE
;
;

;
.

;
:

:
;

;
:

:
:

DF 042
ERROR &&4:

EM207
EM3000
DT035
DFO35
ERROR 45:

EM207
EM3018
01035
0F035

ERROR 46:

EM207
EM3019
DT035
DFO35
ERROR 47:
EM207
EM3020
DTO35
DFO35
ERROR S0:
EM208
EM3000
DT035
DFO35

ERROR 51:

EM208
EM3018
DT035
DFO35
ERROR 52:

EM208
EM3019
DT035
DFO035
ERROR S53:

EM208
EM3020
01035
DFO35
ERROR 54:

EM207
EM3021

DT054
DFO054
ERROR 55:

13:52

PAGE 31

ATTEMPTING AN NPR READ OF ONE WORD
CS1 INCORRECT

ATTEMPTING AN NPR READ
(S2 INCORRECT

ATTEMPTING AN NPR READ
BUS ADDRESS INCORRE(CT

ATTEMPTING AN NPR READ
INCORRECT

WORD COUNT

ATTEMPTING NPR READ CHECKING 2ERO DETECT
CS1 INCORRECT

ATTEMPTING NPR READ CHECKING 2ERO DETECT
(S2 INCORRECT

ATTEMPTING NPR READ CHECKING ZERO DETECT
BUS ADDRESS INCORRECT

ATTEMPTING NPR READ CHECKING ZERO DETECT
WORD COUNT INCORRECT

ATTEMPTING NPR READ
DATA BUFFER INCORRECT

ATTEMPTING NPR READ

SEQ 0030

¢o.PN

MACY11 30A(1052)

(D0 RK611 DSKLS CTRL PRT3

1573
15764
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618

1619
1620

1621
1622
1623
16264

1625
1626
1627
1628

002040
002042
002044
002046

056070
063172
050766
051532

002050
002052
002054
002056

056070
063242
050766
051532

002060
002062
002064
002066

056170
061500
050704
051412

002070
002072
002074
002076

056170
063023
050704
051412

002100
002102
002104
002106

056170
063067
050704
051412

002110
002112
002114
002116

056170
063115
050704
051412

002120
002122
0021264
002126

056257
061500
050704
051412

002130
002132
002134
002136

056257
063023
050704
051412

002140
002142
002144
002146

056257
063067
050704
051412

002150

056257

;

;
:

:
:

:
.

:
:

;
:

:
:

EM207
EM3022
DT055
DFOS5
ERROR 56:

EM207
Em3023
DT055
DFOS5
ERROR 57:
EM209
EM3000
DT035
DFO35
ERROR 60:
EM209
EM3018
07035
DFO35
ERROR 61:
EM209
EM3019
07035
0FO35

ERROR 62:
EM209
EM3020
DT035
DFO35
ERROR 63:
EM210
EM3000
01035
DFO35
ERROR 64:
EM210
EM3018
01035

DFO35
ERROR 65:
EM210
EM3019
01035
DF O35

ERROR 66:
EM210

13:52
CS1

3
PAGE 32

SEQ 0031

INCORRECT AFTER READING DATA BUFFER

ATTEMPTING NPR READ
(S2 INCORRECT AFTER READING DATA BUFFER

ATTEMPTING NPR READ WITH BUS ADDRESS INCREMENT
INHIBIT CSY1 INCORRECT

ATTEMPTING NPR READ WITH BUS ADDRESS INCREMENT
INHIBIT CS2 INCORRECT

ATTEMPTING NPR READ WITH BUS ADDRESS
INHIBLIT BUS ADDRESS INCORRECT

INCREMENT

ATTEMPTING NPR READ WITH BUS ADDRESS INCREMENT
INHIBIT WORD COUNT INCORRECT

ATTEMPTING NPR READ WITH IBA TO CHECK ZERO
DETECT-CS1 INCORRECT

ATTEMPTING NPR READ WITH BAI
DETECT-CS2 INCORRECT

TO CHECK ZERO

ATTEMPTING NPR READ WITH BAI TO CHECK ZERO
DETECT-BUS ADDRESS INCORRECT

ATTEMPTING NPR READ WITH BAl TO CHECK ZERO
DETECT-WORD COUNT INCORRECT

~ I~

MACY11 30A(1052)
19-JUN-80
ERROR POINTER TABLE

CIR6CDO RK6T1 DSKLS CTRL PRTY
CZR6CD.P1Y
19-JUN-80 13:49

063115
ERROR 67:

056170
063146
050754
051506

EM209
EM3021
01054
DFOS54
ERROR 70:

056170
063172
050766
051532

EM209
EM3022
DT055
DFO55
ERROR 71:

056170
063242
050766
051532

EM209
EM3023
DTOSS
DFOSS
ERROR 72:

050373
061500
051004
051556

EM211
EM3000
DT07?2
DFO72
ERROR 73:

056373
063023
051004
051556

EM211
EM3018
01072
DFO72
ERROR 74&:

056373
063312
051004
051556

Em21
EM3024
Y072
DFO72
ERROR 75:

SN -0

EM21
EM3019
01072
DFO72
ERROR 76:

NN~ ~~

b
-

oo oo

-t -

£2388%2288

050704
051412

Em11
EM3020
1072
DFO7¢
ERROR 77:
002260
002262
002264

EM212
EM3000
proz?

ATTEMPTING NPR READ WITH BUS ADDRESS INHIBIT
INCREMENT-DATA BUFFER INCORRECT

ATTEMPTING NPR READ WITH BUS ADDRESS INHIBIT

INCREMENT-CST

INCORRECT AFTER READING DATA BUFFER

ATTEMPTING NPR READ WITH ADDRESS BUFFER INMIBIT
INCREMENT=CS2 INCORRECT AFTER READING DATA BUFFER

ATTEMPTING TO FORCE NON-EXISTANT MEMORY
CS1 INCORRECT

ATTEMPTING TO FORCE NON-EXISTENT MEMORY

(S2 INCORRECT

ATTEMPTING TO FORCE NON-EXISTENT MEMORY

ERROR REG INCORRECT

ATTEMPTING TO FORCE NON-EXISTENT MEMORY

BUS ADDRESS INCORRECT

ATTEMPTING TO FORCE NON-EXISTENT MEMORY
WORD COUNT INCORRECT

ATTEMPTING TO CLEAR NON-EXISTENT MEMORY
CS1 INCORRE(CT

lalal

~a e

SEQ 0032

19-JUN-80 13:49

CZR6CDO RK611 DSKLS CYRL PRT3
19-JUN-80 13:49
CZR6CD.P11
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701

3
PAGE 34

051612

0FO77
ERROR 100:

002270
002272
002274
002276

056443
063023
051034
051612

EM212
EM3018
01077
DFO77
ERROR 101: TESTING EXTENDED MEMORY ADDRESSING BITS
CS1 INCORRECT
EN213

056513
061500
050704
051412
056513
063023
050704
051412

NPV NINIAINIAIPINIA)
= b cad b ed e b e s 2 O

gN&v\ruw-flgoaNO\AbuN-‘OOONOU\bw-floo

ATTEMPTING TO CLEAR NON-EXISTENT MEMORY
(S2 INCORRECT

EM3009
01035
DFO35
ERROR 102: TESTING EXTENDED MEMORY ADDRESSING BITS
(S2 INCORRECT
EN213
EM3018
D1035
DFO3S

ERROR 103: TESTING EXTENDED MEMORY ADDRESSING BITS
BUS ADDRESS INCORRECT
EM213
EM3019
DT035
DFO3S
ERROR 104: TESTING EXTEND MEMORY ADDRESSING BITS
WORD COUNT INCORRECT
EN213
EM3020
01035
0FO035
ERROR 105: TESTING EXTENDED MEMORY ADDRESSING BITS
DATA BUFFER INCORRECT
Em213

051436

056563
061500
051004
051556

=4
o

AV,

056563
063023

51556

[V[V IVIV [V ]

[
(=1]

13:52

002266

056513
-‘—‘-‘—.-‘-‘—.-‘-‘-fi-fl_‘—.—.-‘—.-‘d—‘-.-‘—.-‘-‘-.—‘-.—._._.-‘—.

MACY11 30A(1052)
19-JUN 80
ERROR POINTER TABLE

002376

051004
051556

EM3021
DT041
DFO4Y
ERROR 106: ATTEMPTING TO FORCE UNIBUS PARITY ERROR
CS1 INCORRECT
EM214
EM3000
D1072
DFO72
ERROR 107: ATTEMPTING TO FORCE UNIBUS PARITY ERROR
(S2 INCORRECT
14
EM2
EM3018
01072
DFO72
ERROR 110: ATTEMPTING TO FORCE UNIBUS PARITY ERROR
BUS ADDRESS INCORRECT
EM214
EM3019
01072
DFO72

ERROR 111: ATEMPTING TO FORCE UNIBUS PARITY ERROR

SEQ 0033

CIR6CD PN
1741
1742

1743
1744

19-JUN-80 13:4

MACY11 30A(1052)
19-JUN-80
ERROR POINTER TABLE

002400

AW n

A3 OO ~NO NS (N = o

051412

056633
063023
050704
051412

WAVAA WAV

md
e
e
d
i
e
e
i
i e
-

SNNNNNSNSNSNNYNNNY

:
:

050704
051412

056633
063023
050704
051412

:
:

V00
BNNNN\‘NNNNNN
~N~

D il

il
el
- —

=SIEIZARA
- v ~N

1782

:
:

002510

:
.

EM214
EM3020
01072
DFO72

13:52

3
PAGE 35

SEQ 0034

WORD COUNT INCORRECT

ERROR 112: ATTEMPTING NPR READ Of LOCATION PRIOR TO BAD PARITY
CS1 INCORRECY

EM215
EM3000
01035
DFO35

ERROR 113: ATTEMPTING NPR READ OF LOCATION PRIOR TO BAD PARITY
€S2 INCORRECT
5

DFO35

ERROR 114: ATTEMPTING NPR READ OR LOCATION PRIOR TO BAD PARITY
BUS ADDRESS INCORRECT
EM215
EM3019
DT035
DFO35

ERROR 115: ATTEMPTING NPR READ
WORD COUNT [NCORRECT

OF LOCATION PRIOR TO BAD PARITY

ERROR 116: ATTEMPTING TO FORCE UNIBUS PARITY ERROR

ERROR REG INCORRECT
EM214
EM3024
01072
DFO72
ERROR 117: ATTEMPTING TO CLEAR UNIBUS PARITY ERROR

EM216
EM3000
D1077
DFO?77

CS1 INCORRECY

ERROR 120: ATTEMPTING TO CLEAR UNIBUS PARITY ERROR
(S2 INCORRECY
EM216
EM3018
01077
DFO7?7

ERROR 121: ATTEMPTING 18 BIT NPR READ
CS1 INCORRECT

ERROR 122: ATTEMPTING 18 BIT NPR READ
(S2 INCORRECT

Em17

CIR6CDO RK61Y DSKLS CTRL PRTS

CIR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.P11
19-JUN-80 13:49
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823

002512
002514
002516

002550
002552
002554
002556

057022
063023
050704
051412

1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841

002560
002562
002564
002566

057022
063067
050704
051412

1824
1825

1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852

063023
050704
051412

002520
002522
002524
002526

056767
063067
050704
051412

002530
002532

002536

056767
063115
050704
051412

002540
002542

057022
061500

002534

002544
002546

002570
002572
002574
002576

050704
051412

057022
063115
050704
051412

002600
002602
002604
002606

056767
063146
050740
051462

002610
002612
002614
002616

056767
063172
050766
051532

002620
002622
0026264

056767
063242
050766

MACY1Y1 30A(1052)
19-JUN-80
ERROR POINTER TABLE

:
:

;
:

:
;

:
:

13:52

3
PAGE 36

SEQ 0035

EM3018
01035
DFO35

ERROR 123: ATTEMPTING 18 BIT NPR READ

BUS ADDRESS INCORRECT
EM217
EM3019
DT035
DFO35
ERROR 124: ATTEMPTING 18 BI' NPR READ
WORD COUNT INCORRECY
EM217
EM3020
01035
DFO35
ERROR 125: ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETECT
CS1 INCORRECT
EM218
EM3000
01035
DFO35
ERROR 126: ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETECT
CS2 INCORRECT
EM218
EM3018
DT035
DFO35

ERROR 127: ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETE(CT
BUS ADDRESS INCORRECT
EM218
EM3019
DT035
DFO35

ERROR 130: ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETECT
EM218
EM3020
DT035
DFO35

WORD COUNT INCORRECT

ERROR 131: ATTEMPTING 18 BIT NPR READ

DATA BUFFER INCORRECT
EM217
EM3021
DT042
DF 042
ERROR 132: ATTEMPTING 18 BIT NPR READ
CS1 INCORRECT AFTER READING DATA BUFFER
EM217
EM3022
01055
DFO55
ERROR 133: ATTEMPTING 18 BIT NPR READ
€S2 INCORRECT AFTER READING DATA BUFFER
EM217
EmM3023
DT055

—

CZR6CDO RK611 DSKLS CTRL PRTY

CIR6CD.PYY
1853
1854
1655
1856
1857
1858
1859
1860
1861
186%
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
18846

19-JUN-80 13:49

002626

051532

002630
002632
002634

057102
061500
050704

002636
002640
002642

002644
002646
002650
002652
002654
002656
002660
002662

002664
002666

051412

057102
063023
050704
051412

057102
063067
050704
051412
057102
063115

050704
051412

002670
002672
002674
002676

057162
061500
050704
051412

1887
1888
1889
1890
1891

002700
002702
002704
002706

057162
063023
050704
051412

1894
1895
1896
1897
1898

002710
002712
002714
002716

057162
063067
050704
051412

1885
1886

1892
1893

1899

1900
1901
1902
1903
1904
1905

1906

1907
1908

002720
002722
002724
002726
002730

osr1o§
06311
050704
051412
057102

MACY1Y 30A(1052)

19-JUN-B0

ERROR POINTER TABLE
;
;

:
;

;

;
:
:

;
:

;

:
:

13:52

3
PAGE 37

DFOSS
ERROR 134: ATTEMPTING 18 BIT NPR READ WITH BIT
€S1 INCORRECT
EM219
£EM3000
01035
DFO3S
ERROR 135: ATTEMPTING 18 BIT NPR READ WITH BIT
€S2 INCORRECT
EM219
EM3018
DT03S
DFO35
ERROR 136: ATTEMPTING 18 BIT NPR READ WITH BIT
BUS ADDRESS INCORRECT
EM219
EM3019
01035
DFO3S
ERROR 137: ATTEMPTING 18 BIT NPR READ WITM BIT
WORD COUNT INCORRECT
EM219
EM3020
01035
DFO3S
ERROR 140: ATTEMPTING 18 BIT NPR READ WITH BIT
CHECKING 2ERO DETECT
CS1 INCORRECT
EM220
EM3000
DT03S
DFO3S

SEQ 0036
16(PA) SET

16(PA) SET

ERROR 141: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET
CHECKING 2ERO DETECT
EM220
EM3018
0Y03$
DFO3S

€S2 INCORRECT

ERROR 142: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET
CHECKING 2ERO DETECT
EM220
EM3019
D103S
0FO03S

BUS ADDRESS INCORRECT

ERROR 143: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET
EM220
EM3020
D1035
DFO3S

CHECKING ZERO DETECT
WORD COUNT INCORRECT

ERROR 144: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET
EM219

DATA BUFFER INCORRE(CT

CIR6COO RK61Y DSKLS CTRL PRT3

CIR6CD.PYY

19-JUN-80 13:49

1909
1910
1911

2732
002734
002736

063146
050730
051436

1914
1915
1916
1917

002740
002742
002744
002746

057102
063172
051034
051612

1920
1921
1922
1923
1924
1925
1926
1927
1928

002750
002752
002754
002756

057102
063242
051034
051612

002760
002762
002764
002766

055254
052434
050554
051216

1912
1913

1918
1919

1929

1930
1931
1932
1933
1934

002770
002772
002774
002776

057241
061500
051050
051636

1937
1938
1939
1940

003000
003002
003004
003006

057316
063406
050740
051462

1943
1944
1945
1946
1947
1948
1949
1950
1951
1952

003010
003012
003014
003016

057316
063455
050740
051462

003020
003022
003026
003026

0573
063172
050766
051532

003030
003032
003034
003036

057371
063242
050766
051532

1935
1936

1941
1942

1953
1954
1955

1956
1957
1958

1959

1960
1961
196§
1963
1964

003040
003042
003044
003046

057371
063146
050754
051506

MACY11 30A(1052)

19-JUN-B0

ERROR POINTER TABLE

;
:

:
:

13:52

PAGE 38

EM3021
07041
DF 04

ERROR 145: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET
CS1 INCORRECT AFTER READING DATA BUFFER
EM219
EM3022
01077
DFO77

ERROR 146: ATTEMPTING 18 BIT NPR READ WITH BIT 16(PA) SET
€S2 INCORRECT AFTER READING DATA BUFFER
EM219
EM3023
01077
DFO77
ERROR 147:
EMO00
DHO00C
07000
0F 000

UNEXPECTED MEMORY PARITY ENABLE TRAP

ERROR 150: ATTEMPTING SIMULATION OF DATA IN READ HEADER
EM221
EM3000
07150
DF150

CS1

INCORRECT

ERROR 151: ATTEMPTING READ HEADER IN MAINTANENCE MODE
.
£S1 INCORRECT AFTER COMPLETION OF COMMAND
EM2¢2:
EM3026
DT042
DFO042

ERROR 152: ATTEMPTING READ HEADER IN MAINTANENCE MODE
€S2 INCORRECT AFTER COMPLETION OF COMMAND
EM222
EM3027
DT042
DF 042

ERROR 153: ATTEMPTING DATA BUFFER READ AFTER READ HEADER
CS1 INCORRECT AFTER UNLOADING DATA BUFFER
EM223
EM3022
D1055
DFO5S

ERROR 154: ATTEMPTING DATA BUFFER READ AFTER READ HEADER
€S2 INCORRECT AFTER UNLOADING DATA
Em223
EM3023
0105
DFOS5

ERROR 155: ATTEMPTING DATA BUFFER READ AFTER READ HEADER
EM223
Em3021
DTO54
DFO54

DATA READ INCORRECY

SEQ 0037

1965

1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990

1991
1992

1993
1994
1995
1996
1997
1998
1999

2000
2001

2002

2003
2004
2005
2009
200
2008
2009
2010
2011
201;
201
2014

2015

2019
2017

018

019
2020

;
003050
003052
003054
003056

057447
061500
051050
051636

003060
003062
003064
003066

057544
063406
050740
051462

003070
003072
003074
003076

057544
063455
050740
0514662

003100
003102
003104
003106

057631
063172
050766
05i532

003110
003112

057631
063242

003114
003116

050766
051532

003120
003122
003126
003126

057631
063146
050754
051506

003130
003132
003134
003136

057731
061500
051064
051662

003140
003142
003144
0031646

057731
063023
051064
051662

003150

003152
003154
CO03156

057731

;

;
:

:
;

;
:

;

:
:

063524
051064

051662

13:52

n3
PAGE 39

ERROR 156: ATTEMPTING SIMULATION OF DATA IN READ HEADER (20 BIT FORMAT)
EM224
EM3000
DT150
DF150
ERROR 157:

€S1

INCORRECT

ATTEMPTING READ HEADER (20 BIT FORMAT) [N MAINT MODE/
CS1 INCORRECT AFTER COMMAND COMPLETION

EM22S
Em3026
01042
DF 042
ERROR 160: ATTEMPTING READ HEADER (20 BIT FORMAT) IN MAINT MODE
€S2 INCORRECT AFTER COMPLETION OF COMMAND
EM225
EM3027
01042
DF042
ERROR 161: ATTEMPTING DATA BUFFER READ AFTER 20 BIT READ MEADER
CS1 INCORRECT AFTER UNLOADING DATA BUFFER
EM226
EM3022
DT0SS
DFOSS
ERROR 162:

EM226
EM3023

ATTEMPTING DATA BUFFER READ AFTER 20 BIT READ HEADER
€S2 INCORRECT AFTER UNLOADING DATA BUFFER

pT10S
DFOSS

ERROR 163: ATTEMPTING DATA BUFFER READ AFTER 20 BIT READ HEADER
DATA BUFFER INCORRECT
EM226
Em3021
01054
DF054
ERROR 164: ATTEMPTING TO CHECK SYNCH DETECT ON READ HEADER

€S1 INCORRECT

Em227
EM3000
DT164
DF 164
ERROR 165: ATTEMPTING TO CHECK SYNCH DETECT ON READ MEADER
€S2 INCORRECT
Em227
Em3018
DT164
DF 164
ERROR 166: ATTEMPTING TO CHECK SYNCH DETECT ON READ HEADER

Em227

CS1

INCORRECT READING EMPTY SILO

Em3028
DT164

:
:

OF 164

ERROR 167: ATTEMPTING TO CHECK SYNCH DETECT ON READ WEADER
CS1 INCORRECT READING EMPTY SILO

MACY11 30A(1052)
19-JUN-80
ERROR POINTER TABLE

SEQ 0038

CIR6CDO RK611 DSKLS CTRL PRTZ
CIR6CD.P1Y
19-JUN-80 13:49

N3
PAGE 40

SEQ 0039

057731
063573
051064
051662

000000
000000
051102
051706
060145
063642
051126
05732

003210
003212
003214
003216

040267
063642
051126
051732

003220
003222
003224
003226

060513

003230

13:52

19-JUN-80
MACY11 30A(1052)
ERROR POINTER TABLE

WRITE BIT ERRORS

WRITE GATE NOT RESET WITH SECTOR PULSE

ERROR 172: WRITE GATE NOT SET WITH SECTOR PULSE RESET
EM232
EM3030
pTI7
DFIT
ERROR 173: WRITE GATE NOT RESET WITH SECOND INDEX PULSE
EM235
EM3030
oTIN
DFI7
ERROR 174: CS1 INCORRECT AT END OF WRITE HEADER
EM236
EM3000
D101
01
DF
26)
ERROR 175: ATTEMPTING TO FORCE FORMAT ERROR (CFMT
CS1 INCORRECT
EM241

EM3000
DT175
DF17$
ERROR 176: ATTEMPTING TO FORCE FORMAT ERROR (CFMT
(S2 INCORRECT
EM241
EM3018
(18064
DF175

26)

ERROR 177: ATYEMPYING TO FORCE FORMAT ERROR ((CFMT

26)

DF17$
ERROR 200: ATTEMPTING TO FORCE FORMAT ERROR (CFMT
ERROR REG INCORRECT

26)

DRIVE STATUS REG INCORRECT
EM241
Em3031
D117

832 g gsss gsss
>
_
33 § 553 geeE

CIR6CDO RK611 DSKLS CTRL PRTS
19-JUN-80 13:49
CZR6CD.PIY

EM241

En30se
o117
0F17
ERROR 201: ATTERPTING TO FORCE FORMAT ERROR ((CFMT
(s !NCORIECI
En24

248)

003302
003304
003306

061500
051136
051756

003310
003312
003314
003316

061261
063023
051136
051756

003320
003322
003324
003326

061261
063670
051136
051756

003330
003332
003334
003336

061261
063723
051136
051756

003340
003342
003344
003346

061345
061500
051136
051756

003350
003352
003354
003356

061345
063023
051136
051756

003360
003362
003364
003366

061345
063670
051136
051756

003370
003372
003374
003376

061345
063723
051136
051756

003400
003402
003404
003406

061446
061500
051162
052002

003410 061446
003412. 063023
003414 051162

:
:

;
:

:
:

:
;

:
:

.
:

:
:

&
PAGE 41

EM3000
DT175
DF175
ERROR 202: ATTEMPTING TO FORCE FORMAT ERROR (CFMT = 24)
CSS %NCORRECT
EM24
EM3018
DT175
DF175
ERROR 203: ATTEMPTING TO FORCE FORMAT ERROR (CFMT = 24)
DRIVE STATUS REG INCORRECT
EM242
EM3031
0T175
DF175
ERROR 204: ATTEMPTING TO FORCE FORMAT ERROR (CFMT = 24)
ERROR REGISTER INCORRECT
EM242
EM3032
DT175
DF175
ERROR 205:
ATTEMPTING TO CONTROLLER ERROR WiTH FAULT BIT
CS1 INCORRECT
EM243
EM3000
DT175
DF175
ERROR 206:
ATTEMPTING TO CONTROLLER ERROR WITH FAULT BIT
(S2 INCORRECT
EM243
EM3018
01175
DF175
ERROR 207:
ATTEMPTING TO CONTROLLER ERROR WITH FAULT BIT
DRIVE STATUS REG INCORRECT
EM243
EM303?
DT175
DF175
ERROR 210: ATTEMPTING TO CONTROLLER ERROR WITH FAULT BIT
ERROR REG INCORRECT
EM243
EM3032
DT175
DF175
ERROR 211:
ATTEMPTING TO CLEAR CONTROLLER ERROR
CS1 INCORRECT
EM244
EM3000
DT211
DF211
ERROR 212: ATTEMPTING TO CLEAR CONTROLLER FRROR
€S2 INCORRECT
EM244
EM3018
prTeN

SEQ 0040

IN DRIVE MESS

= 0

r~~

13:52

AL
A AR LA MR LABAARIAIA AR IIANAIAIAIAIIRIAIAI R AIAINIAI A NIADI RO R RIRIPI NI AI PO RIND AL PRI AIFI R AU NI RO NI A NI PO NI A RO RO

2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
211
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
21264
2125
2126
2127
2128
2129
2130
2131
2132

MACY11 30A(1052)
19-JUN-80
ERROR POINTER TABLE

(Y]

CIR6COO RKOTY DSKLS CTRL PRTY
CIR6CD.PIY
19-JUN-80 13:49

003430
003432
003434
003436

061446
063723
051162
052002

003440
003442
003444
003446
003450
003452
003454
003456
003460
003462
003464

003466
003470
003472
003474

003476

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

T.CS1:
T.WC:
T.BA:
T.DA:
7.CS2:
T.DS:
T.ER:
T.ASOF:
T.0CYL:
T.08:
T.MR1:

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

0
O
O
0
0
0
0
O
O
O
0

000000
000000

T.ECPT: .WORD
T.SPAR: ,WORD

0
O

000000
000000
000000

%}gz

2167
2168
2169
2170
2171
2172
2173
2174
2175
2176

2177
2178
2179
2180
2181
S}g%

T.MR2: .WORD
T.MR3: .WORD
T.ECPS: .WORD

O
O
0

;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

;ECC POSITION INFORMATION
sECC PATTERN INFORMATION
:SPARE REGISTER

.SBTTL

EXPECTED RK611 CONTROLLER REGISTERS

003500
003502
003504
003506
003510
003512
003514
003516
003520
003522

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

€.CS1:
E.WC:
E.BA:
E.DA:
E.CS2:
E.DS:
E.ER:
E.ASOF:
E.DCYL:
E.0B:

.WORD
.WORD
.WORD
,WORD
.WORD
.WORD
,WORD
.WORD
WORD
.WORD

O
0
0
0
O
0
0
0
O
0

;CONTROL AND STATUS REGISTER 1
sWORD 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

003534
003536

000000
000000
000000
000000

E.ECPT: .WORD
E.SPAR: .WORD

O
O

:ECC PATTERN INFORMATION
;SPARE REGISTER

003524
0035;8
0035
003532

000000

S}gg

2186
2187
2188

;
:

003540
003542
003544

000000
000000
000000

E.MR1:
E.MR2:
E.MR3:
E.ECPS:

,WORD
,WORD
,WORD
.WORD

0
0
O
0

;MAINTENANCE REGISTER 1
;MAINTENANCE REGISTER g
;MAINTENANCE REGISTER
sECC POSITION INFORMATION

.SBTTL

PREVIOUS RK611 CONTROLLER REGISTERS

P.CS1:
P.WC:
P.BA:

.WORD
.WORD
.WORD

O
0
O

;CONTROL AND STATUS REGISTER 1
;WORD COUNT REGISTER
:BUS ADDRESS REGISTER

N~
D D>
A LA LA LA A MAIAIAIAIAMIAIAIAIAIAIAIAIALMAIAIAIAIAIAIAIAIAIRIRIRIRIAIAIRIRIAIAY

2162
%}gz

061446
063670
051162
05

A LA MA A TA tA

2159
2160
2161

.SBTTL

DF2N
ERROR 213: ATTEMPTING TO CLEAR CONTROLLER
DRIVE STATUS REG INCORRECT
EM244
EM3031
D121
DF2MN
ERROR 214: ATTEMPTINT TO CLEAR CONTROLLER
ERROR REG INCORRECT
EM244
EM3032
T2
DF211
TEMPORARY STORAGE FOR RK611 CONTROLLER REGISTER

:
:

SEQ 0041

2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158

003420
003422
003424
003426

&
PAGE 42

2143
2144
2145
%}29

052002

2141
2142

003416

13:52

2133
2134
2135
2136
2137
2138
2139
2140

MACY11 30A(1052)
19-JUN-B0
ERROR POINTER TABLE

(alal

CZR6CDO RK61T1 DSKLS CTRL PRTY
CZR6CD.PYY
19-JUN-80 13:49

C%RbCDO RK611 DSKLS CTRL PRT3
CIR6CD.P1Y
19-JUN=80 13:49

MACY11 30A(1052) 19=-JUN-80 13:52 PAGE 43
PREVIOUS RK611 CONTROLLER REGISTERS

SEQ 0042

2189
2190
2191
219;
2193
2194
2195
2196
2197
2198
2199
2200
2201
%%8%

003546
003550
003552
003554
003556
003560
003562
003564
003566
003570
003572
003574
003576

000000
000000
000000
000000
000000
000000
0000
000000
000000
000000
000000
000000
000000

P.DA:
P.CS2:
P.DS:
P.ER:
P.ASOF:
P.DCYL:
P.DB:
P.MR1:
P.MR2:
P.MR3:
P.ECPS:
F.ECPT:
P.SPAR:
.SBTTL

.WORD
O
:DESIRED TRACK SECTOR REGISTER
.MWORD
O
:CONTROL AND STATUS REGISTER 2
.WORD
0
:DRIVE STATUS REGISTER
.WORD
O
;ERROR REGISTER
.WORD
0
sATTENTION SUMMARY AND OFFSET REGISTER
WORD
O
:DESIRED CYLINDER REGISTER
.WORD
O
;DATA BUFFER
,_WORD
0
;MAINTENANCE REGISTER 1
.WORD
O
;MAINTENANCE REGISTER g
.WORD
O
;MAINTENANCE REGISTER
.WORD
sECC POSITION INFORMATION
.WORD
0
:ECC PATTERN INFORMATION
.WORD
0
;SPARE REGISTER
PROGRAM DEFINED VARIABLES

2204
2205
2206
2207
2208
2209
2210

003600
003602
003604
003606

000210
000240
000000
000000

RKVEC:
RKPRI:
TRAPP(C:
SRTFLG:

.WORD
.WORD
.WORD
.WORD

210
PRS
0
0

003610
003612
003614
003616
003620
00;232
00
&
003626
003630
003632
00363
003636

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

ERRCNT: .WORD
P1.BIT:..WORD
PR.BIT: .WORD
M1.81T: .WORD
M2.8IT: .WORD
BITCNT: .WORD
WRDCNT: .WORD
SECCNT: .WORD
SAVSWR: .WORD
PARPRE: .WORD

0
0
0
0
0
0
0
0
0
15
0
0

003640

000000

CSRPTR: .WORD
.SBTTL

PROGRAM SETUP

2227
gggg

003642
003650

012737
000406

000001

003606

PARM:

MOV
BR

#1,SRTFLG
STARTY

;LOAD START FLAG FOR PARMETER START

2230

003652

012737

177777

003606

RESTRT: MOV

#-1,SRTFLG

sLOAD START FLAG FOR RESTART

2233
22%
2235

003662
003666
003670

005037
000005
012706

003606

START: CLR
STARTY: RESET
MoV

SRTFLG

sCLEAR START FLAG
:RESET THE WHOLE SYSTEM
sINITIALIZE STACK POINTER

ggzg

003710

000002

2211
2212
2213
2214
2215
2%19
22
2218
2219
2220
2221
2222

2223
2224
%ggg

g%;;

2236
2237
2238

22641

2242
2243
22644

003660

003674
003700
003704

000402

004737
012746
012746

MEMPAR: .WORD
WAITIM: .WORD

001100
046652
000340
003712

JSR
MOV
MoV

RTI]

START

#STACK,SP
PC,.STKINT
#PR7,-(SP)
#19%,-(SP)

;ERROR COUNT FOR SWITCH 12 ABORT
sNEXT B8IT IN DATA SIMULATION
sPRESENT BIT IN DATA SIMULATION
;sPREVIOUS BIT IN DATA SIMULATION
;81T BEFORE PREVIOUS BIT
;BIT POSITION
:WORD COUNT FOR NPR TRANSFER
;SECTOR COUNT
:MEMORY EMABLE ON FIRST 24K
:WAIT TIME FOR CONTROLLER READY
;STORAGE FOR SWITCH REGISTER
:PARITY OPTION PRESENT FOR
: LOCATION USED
;POINTER TO CSR TO BE

USED

JIN]T KEYBOARD
;LOAD STACK TO LOCK OUT ALL INTERRUPTS
:LOAD START OF PROGRAM

:LOAD PSW

1%:

003712

:RK611 VECTOR
;RK611 PRIOR]ITY
;PC FOR MEMORY CHECK ENABLE TRAP
;START FLAG
: 0 =200
c 1 = 214
: =1 = 204

012706

001100

LSBTTL INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA

nov

JSCRTAG,RE

s:FIRST LOCATION TO BE CLEARED

CZR6CDO RK611 DSKLS CYRL PRT3

CIR6CD.P11

19-JUN-B0 13:49

MACY11 30A(1052)

003716
003720
003724
003726

005026
022706
001374
012706

2250

003732

012737

044220

000020

2252

003746

012737

045146

000030

2254

003762

012737

050464

000034

2256

003776

012737

050334

000024

2251

001140

001100

003740 012737 000340 000022

012737
013737

000340
042414

2259 004020 005037 001200
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270

2271
227
227%
2274

005037
112737
012737
012737

001202
0000017
004036
004044

001115
001106
001110

004052
004050
004064
004072
004100

013746
012737
012737
012737
022777

000004
004112
177570
177570
177777

000004
001140
001142
175032

004110
006112

000403
012716

004120

004106

001012

004116
004120
004126
004134

000002
012737
012737
012637

2280
2281
2082
gggz

004140
004144
004152
882}23

005037
132737
001403
012737

001222
000200

001235

001236

001140

2285

004162

005037

003610

005227
001047
022737

177777

2290

004166
004172
004174

042550

004204

104401

004252

229
2295
2296
2297
2298

004210
004214
004216
004224
oo«zgg

005737
oo101;
12372
001406
023727

000042

2300

004236

104406

2286
2287
2288
2289

2291 004202 001443
2292
2293

2299 004234

001005

000176
000174
000004

001140
001142

000042

000001

001140

000176

#$SCOPE,a# IOTVEC ;10T VECTOR FOR SCOPE ROUTINE

#340,a0f0TVEC+2 ;:LEVEL 7

#SERROR, BFENTVEC : ;EMT VECTOR FOR ERROR ROUTINE

MOV

#360,30EMTVEC+2 ;:LEVEL 7

MOV

#340,3# TRAPVEC+2; LEVEL 7

MOV

MOV
MOV

CLR

#3TRAP,3#TRAPVEC : ; TRAP VECTOR FOR TRAP CALLS

#3PURDN, a#PWRVEC ; ;POWER FAILURE VECTOR

#340,3#PWURVEC+2 ;:LEVEL 7
$ENDCT,SEOPCT
::SETUP END-OF -PROGRAM COUNTER

$STIMES

SSINITIAUIZE NUMBER OF ITERATIONS

BNE

668

BR
MoV

65%
#65%,(SP)

*:BRANCH IF NO TIMEOUT TRAP OCCURRED
::AND THE HARDWARE SWR IS NOT = -1
P:BRANCH If NO TIMEOUT
::SET UP FOR TRAP RETURN

CLR
$ESCAPE
:*CLEAR THE ESCAPE ON ERROR ADDRESS
MOVE
#1,SERMAX
::ALLOW ONE ERROR PER TEST
MOV
#..SLPADR
SSINITIALIZE THE LOOP ADDRESS FOR SCOPE
MoV
#..SLPERR
S'SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
“TEQUAL TO A '*=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
AFERRVEC ,-(SP)
;;SAVE ERROR VECTOR
MOV
2648 ,FERRVEC
::SET UP ERROR VECTOR
Moy
#DSWR,SWR
::SETUP FOR A NARDWARE SWICH REGISTER
MOV
#ODISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER
CMP
#-1,35WR
P'TRY TO REFERENCE HARDWARE SWR

668:

RTI
MoV
MOV
MOV

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

678

CLR
BITB
BEQ
mov

$PASS
WAPTSIZE,SENVM
678
#SSWREG, SWR

:sCLEAR PASS COUNT
::TEST USER SIZE UNDER APT
YYES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER

CLR

ERRCNT

:CLEAR ERROR COUNT FOR SWITCH 12 ABORT

CMP

FSENDAD, 3062

::ACT-112

65%:

.SBTTL TYPE PROGRAR NARME
SSTYPE THE NAME OF THE PROGRAM IF FIRST PASS
::FIRST TIME?
2-1
INC
< :BRANCH IF NO
68$
BNE

BEOQ
.SBTTL

001234

MOV

648 :

2275
2276
2277
%S;g

(R6) +
:CLEAR MEMORY LOCATION
#SWR,R6 ;:;DONE?
.6
::LOOP BACK IF NO
#STACK,SP
*'SETUP THE STACK POINTER

MOV

000026
042406

004024
004030
004036
004044

&
PAGE 44

CLR
CMP
BNE
MOV

MOV

2255 003770 012737 000340 000036
004
004012

;s INITIALIZE A FEW VECTORS

2253 003754 012737 000340 000032
2257
2258

13:52

INITIALIZE THE COMMON TAGS

2245
2246
2247
2248

2249

19-JUN-80

P:BRANCH IF YES

TYPE
698
SSTYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER

ST
BNE
(MPB
BEQ
CHP

BNE

GTSWR

¥,
708
$SENV. N
708
SWR, #SWREG

14T}

::ARE WE RUNNING UNDER XXDP/ACT?
S BRANCH IF YES
:ARE WE RUNNING UNDER APT?
S BRANCH IF YES
1 SOF TWARE SWITCH REG SELECTED?

'BRANCH IF NO

SiGET SOFT-SWR SETTINGS

$EQ 0043

2301
2302

004240
004242

2304

004250 000420

2303
2305

2306

006250

004312

000403
112737

2307
2308
2309
2310

004312
004316
004320
004326

005227
001002
104401
022737

2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323

004334
004340
004344
004346
004352
004354
004360
004362
004370
004372
004400
004404

104401
013746
104402
104401
104412
012637
001407
022737
101361
013737
104401
013746

004414
006416
004422

104402
104401
104412

2311

23264

2325
2326
2327

004332

001122

004410 042716

2328
2329
2330
2331
2332
2333

oo«a§4
004430
004432
004440
006642
004450

012637
001412
022737
101757
062737
053737

2335
2336

004462
004464

005046
113716

233, 004456
2337
2338
2339
2340
2341
234;
2348
2344
2345
2346

2347

004470
004472
004474
004476
004500
004502
004504
004510
004512
004516

004520

104401

006216
006216
006216
006216
006216
104402
104401
104412
012637
001430

000001

001136

003606

NS52036
001270

6$:
g

952070
001160
160000

001160

001160
052076
001264

001270

7%:

160000

001160
001000

001160

017777
001160

001264
001266

052126
001265

052070

001160

001160
001160

2349

004530

022737

000004

2351
235;
2358
2354
2355
2356

004540
004544
004550
004554
004560
004564

006337
006337
006337
006337
006337
042737

001160
001160
001160
001160
001160
160000

718
#1,8AUTOB

::SET AUTO-MODE INDICATOR

B8R

688

::GET OVER THE ASCIZ

INC
BNE
TYPE
CMP

#-1
63
,OPRO06
#1,SRTFLG

STEST IF FIRST PASS
‘NO = SKIP
“TYPE RUN TIME MESSAGE
SCHECK IF PARAMETER START

TYPE
MOV
TYPOC
TYPE
RDOCT
MOV
BEQ
CMP
BHI
MOV
TYPE
MOV

,OPROO1
$BASE , - (SP)

:TYPE 'RK611 BUS ADDRESS (
) ="'
::SAVE $BASE FOR TYPEOUT
1160 TYPE--OCTAL ASCII(ALL DIGITS)

_ASCIZ

BNE

TYPOC
TYPE
RDOCT

052070

0012664

108

SEQ 0044

BR
MOVB

BIC

000007

2350 004536 101347

718:

688

177777

022737

2348 004526 103753

708:

::69%:

052150
000001

<CRLF>/CIR6CD0 RKO1Y DSKLS CTRL PRT3I/<CRLF>

15¢

,OPR00?2
(SP)+,$TMPO
7%
#160000,8TMPO
5%
$TMPO, $BASE
,OPR0O3
$VECTT,-(SP)

#160000, (5P)
,OPR00?2

MOV
8EQ
CMP
BLOS
BIC
8IS

(SP)+,$TMPO
108
#1000,$THPO
7%
#17777.8VECT1
$TMPO, $VECT1

CLR
MOVB

<(SP)
SVECT1e1,(SP)

TYPE

ASR
ASR
ASR
ASR
ASR
TYPOC
TYPE
RDOCT
nOV
BEQ

;CHECK IF <CR>
:CHECK IF IN 1/0 PAGE

:LOAD NEW BUS ADDRESS
“TYPE 'RK611 VECTOR ADDRESS (
STYPE OUT VECTOR ADDRESS

;GET VALUE
SCHECK IF <CR>
SCHECK IF LEGAL

:LOAD NEW VECTOR ADDRESS

;TYPE "RK611 PRIORITY (

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

:SHIFT S BITS RIGHT

,OPR002

(SP)+,$TMPO
15%

#7.87MP0

CAP

24, $TAPO

ASL
ASL
ASL
ASL
ASL
BIC

$THPO
$TAPO
$TAPO
$TAPO
$TMP0
#160000,8VECTY

BH]

:GET VALUE

,0PROOG

[q, [

BLO

*NO, CONTINUE SETUP

10§
10$

:GET VALUE

;CHECK FOR DEFAULT

:CHECK IF LEGAL

SSHIFT S BITS LEFT

;STORE NEW PRIORITY

) ="

[ Xen]

MACY1Y 30A(1052)
19-JUN=-80 13:52 PAGE 45
GET VALUE FOR SOFTWARE SWITCH REGISTER

CIR6CDO RKO6TY1 DSKLS CTRL PRTY
CIR6CD.P11
19<JUN-80 13:49

004632

153737
013737
04%737
113737
004737
013702
005037

001160
001264
160000
001265
043712
001270
001202

004636
004642
004646

012746
012746
000002

000000
004650

004572
004600
004606
004614

001265

003600
003600
003602

158:

BISB

$STMPO,SVECTI#

JSR
Mov
CLR

PC,$SIZE
$BASE ,R2
$ESCAPE

;SET RK611 BASE
;CLEAR ESCAPE

#PRO,~(SP)

;ALLOW ALL INTERRUPTS

MOV
$VECT RKVEC
BIC
#160000 , RKVEC
MOVE SVECT1+{ ,RKPRI

NEWPAS: MOV

MOV

21sTi,-(sp)

;STORE RK611 VECTOR
:STORE PRIORITY
*SI2E MEMORY

R
SEQ 0045

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49

CZR6CD P11

&
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 46
GET VALUE FOR SNFTWARE SWITCH REGISTER
6

[T
]

—J

%%23

.SBTTL

2370

g;;

LeTEST 1

2373
2374

®
it

ot
.
:*
.

%ggg

2381

2382

ot
b

004650

2383
2384
2385
2386

004652
004660
004664
004672

2390
23IN
2392
2393
2394
2395

000004

2397
2398
2399
26400

000144
001270
100000
000040

001200

004722

012762

004730
004734
004742
004750

004754
004762
004770
004776

TST1:

000000
000026

#100.,$TIMES
$BASE ,R2
#CCLR,RKCST(R2)
#OMD , RKMR1 (R2)

012025

000000

Mov

012700
012762
012762
005300

000016
000440
000040

000026
000026

MOV
MoV
MOV
DEC

#COT!CFMT!RDHEAD ,RKCS1(R2) ;ISSUE RDHEAD WITH (DT SET IN
. 264 SECTOR FORMAT
#3¢442 RO
sCLOCK IN DRIVE MESSAGE
#DMD ! MCLK ,RKMR1(R2)
#OMD ,RKMR1 (R2)
RO

016237
016237
016237
012737

000000
000034
000036
012025

003440
003466
003470
003500

MoV
Mov
MoV
MOV

RKCST(R2),7.CS1 ;STORE COMMAND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2 (MESS A)
RKMRI(R2),T.MR3 ;STORE MAINT REG. 3 (MESS B)
#COT'CFMTIRDMEAD,E.CST
:LOAD EXPECTED (S

BEQ
ERROR
MOV
BR
CMP
BEQ
ERROR

2$
1
#CCLR,RKCS1(R2)
TST2
E.MR2,T.MR2
3%
2

YES, CHECK MESSAGE A
:CS1 INCORRECT
;CLEAR RK611
;.60 TO NEXT TEST
sCHECK MESS A CORRECT
:YES, CHECK MESSAGE 8
:MESS A INCORRECY

1s12

s:YES, GO ON TO NEXT TEST

001370

2404
2405
2406
2607
26408
2409
2610

005026
005030
005032
005040
005042
005050
005052

001405
104001
012762
000412
023737
001401
104002

2612

005062

001401

52}2
2‘15

%2}9

005054

005064

SCOPE

MOV
MOV
MOV
Mov

MOV
MOV
MoV

18:

BNE

2601 005006 012737 071027 003526
2602 005012 012737 037760 003530
2403 005020 023737 003500 003440

2611

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

:'tt"'ttt"tt"t"tt"'""'tQ"tt't'tt"ttt"'t't'ttt"t'ttt"t

012737
013702
012762
012762

004752

RE LR R RRERANRRNNORNRIRCERNROCRORROROCY

CLEAR THE RK&11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT THE RK611 CONTROLLER IN DIAGNOSTIC MODE. ISSUE
A READ HEADER TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 0.
HEAD O, DRIVE 0. CLOCK IN SEEK MESSAGE INTO SHIFT REGISTER.
VERIFY THAT A SEEK IS LOADED WITH THE PROPER BITS IN
MESSAGE SET. REPEAT FOR A READ HEADER WITH (DT SET

2387 004700 012762 001777 000020
2388 004706 012762 003400 000006
2389 004714 012762 000007 000010

2396

LR L LR R LN

READ HEADER SEEK MESSAGE

‘

SEQ 0046

«*DRIVE MESSAGES FOR CLASS B INSTRUCTIONS

IRTERRRNRNRNEE T L

2375
2376
2377
2378

023737

MOV
MOV
CMP

100000

000000

003526

003466

2%:

003530

003470

3§%:

104003

CMpP

BEQ

ERROR

CHNER AN

'TEST 2
X

::00 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RK611
sPUT RK611 IN DIAGNOSTIC MODE

#778,REDCYL(R2) TM ;LOAD CYLINDER ADDRESS REG.
#3400,RKDA(R2)
;LOAD TRACK
#7 ,RKCS2(R2)
:LOAD DRIVE NUM.

#S.SEEK'S.FAT! 70007, E. MRS ;LOAD EXPECTED MR2
237760, E MR3
;LOAD EXPECTED MR3
E.CS1,T .Cs1
;CHECK COMMAND AND STATUS REG. 1 CORRECT

E.MR3, T.MRS
3

;CHECK MESS B CORRE(T
;MESS B INCORRECT

WRITE HEADER SEEK MESSAGE

NN RECACL LR RO RN R NN RN

ERAANA NN O RAARRRRCERNARNRREORRACOLNTY

CLEAR RX611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DJAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK06

2618
2419

.
)

2621

CLOCK IN SEEK MESSAGE INTO SHIFf REGISTER. VERIFY

2623

FOR A WRITE HEADER WITH CDT SET IN 24 SECTOR FORMAT,

2620
2422

IN 26 SECTOR FORMAT, CYLINDER O,

HEAD 0, DRIVE 0,

THAT A SEEK 1S LOADED WITH THE RTC BIT SET.

REPEAT

MACYYT 30A(1052)
19-JUN-80 13:52 PAGE 47
*«DRIVE MESSAGES FOR CLASS B INSTRUCTIONS

[N an]

CIR6CDO RKOTT DSKLS CTYRL PRT3
CIR6CD.PI1
19-JUN-BO 13:49

gzgg
2‘.26

.*
‘%

CYLINDER 1777, HEAD 7, DRIVE 7.

E;tt"t"ttt""'t""""'Q""'ttt'ttt"ttt'ttttt"'t"t"tt'tt

2627
26428
2629
2630
2631

005066
005070
005076
005102
005110

000004
012737
013702
012762
012762

000144
001270
100000
000040

001200
000000
000026

SCOPE
MOV
MOV
MOV
MOV

2633
2634
2635
2636
2637
2438
2639
2440
2641
2442
2443
2444
26445

005124
005132
005140

012762
012762
012762

003400
000007
012027

000006
000010
000000

MOV
MOV
MOV

005146
005152
005160
005166
005170
005172
005200
005206
005214

012700
012762
012762
005300
001370
016237
016237
016237
012737

000016
000440
000040

000026
000026

000000
000034
000036
012027

003440
003466
003470
003500

2648

005236

023737

003500

003440

2632

005116 012762

001777

2646 005222 012737 071227
2447 005230 012737 037760

2449
2450
2651
2452
2453
2454
2455
2456
2457
g:;g

005244
005246
005250
005256
005260
005266
005270
005272
005300
005302

001405
104004
835Z6
1
023737
001401
104005
023737
001401

SEQ 0047

TST2:

000020

MOV

1$:

003526
003530

000000

003526

003466

28:

003530

003470

3%:

104006

;DO 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RK611
;PUT RK&11 IN DIAGNOSTIC MODE

#1778 ,REDCYL(R2) " ;LOAD CYLINDER ADDRESS REG.

MOV
MOV
MoV
DEC
BNE
MOV
MOV
MOV
MoV

#3400 ,RKDA(R2)
;LOAD TRACK
#7 ,RK(S2(R2)
:LOAD DRIVE NUM,
#COT!CFAT'WRMEAD ,RKCS1(R2)
;ISSUE WRHEAD WITH CDT SET [N
:
24 SECTOR FORMAT
#3+442 R0
;CLOCK IN DRIVE MESSAGE
#OMD 'MCLK ,RKMR1(R2)
#OMD,RKMR1
(R2)
RO
18
RKCS1(R2),7.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)
#COT!CFMT'WRHEAD,E.CS1
.LOAD EXPECTED (S1

CMP

E.CS1,T.CS1

MOV
MOV

100000

#100.,8TIMES
$BASE ,R2
#CCLR,RKCST(R2)
#OMD RKMRT(R2)

BEQ
ERROR
MOV
BR
CMP
B°0
ERROR
CMP
BEQ
ERROR

#S.SEEK'S.RTC!S.FMT!70007,E.MR2 :LOAD EXPECTED MR2
#37760,E.MR3
;LOAD EXPECTED MRS
2$
&
0cc%n,nxcs1(a2)
ST
E.MR2,T.MR2
3
S
E.MR3, T.MR3
1ST3
6

;CHECK COMMAND AND STATUS REG.

;YES, CHECK MESSAGE A
;CS1 INCORRECT
;CLEAR RK&11
::60 TO NEXT TEST
:CHECK MESS A CORRE(CT
;YES, CHECK MESSAGE 8
;MESS A INCORRE(T
:CHECK MESS B8 CORRECT
::YES, GO ON TO NEXT TEST

CORRECT

;MESS B INCORRECT

2‘60

;:tt"tttttttttt"t"t"'t't"'tt't'tt'lt'ltt't'tttt.tttt'Q't'ttt

5225

;*TEST 3

READ HEADER DRIVE CLEAR MESSAGE

2463
2464

;e
it

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE.
[SSUE A READ HEADER WITH (DT SET

2466
g:g;

;e
e

CLOCK SEEK MESSAGE AND MAKE SURE A DRIVE CLEAR IS
GENERATED AND THE PROPER BITS ARE SET.

2465

2669

2470

005304

2471
2472
2473
2674

005306
005314
005320
005326

2476

2478
2479

000004

;:QttQt'tQtt.t"Q't.""""t""ttt'll't't..tt't't!'l.t"tlt'.l'
1ST3:

SCOPE

012737
013702
012762
012762

000144
001270
100000
000040

001200
000000
000026

MoV
MoV
MOV
MoV

005342

012762

003400

000006

MoV

005356

012762

012025

000000

2475 005334 01276% 001777 000020
2477

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

005350

012762

000007

000010

MoV
MOV

MOV

#100.,$TIRES
$BASE ,R2
#CCLR,RKCST1(R2)
#OMD RKMR1(R2)

;.DO 100. ITERATIONS
:LOAD RK611 BASE
;CLEAR RK611
;PUT RK611 IN DIAGNOSTIC MODE

#3400 ,RKDA(R2)

;LOAD TRACK

21778, REDCYL(R2) T ;LOAD CYLINDER ADDRESS REG.
#7 ,RKCS2(R2)

:LOAD DRIVE NUMBER

#COT'CFMT'RDHEAD ,RKCS1(R2) :ISSUE COMMAND WITH (DT SET IN
;26 SECTOR FORMAT

&
I
MACY1Y 30A(1052)
19-JUN-80 13:52 PAGE 48
12
WRITE HEADER SEEK MESSAGE

CIR6CDO RK61Y DSKLS CTRL PRT3
CIR6CD.PIY
19-JUN-80 13:49

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.PYY

005364

2483

2484
26485
2486
2487

24L8
2689
2490
249N
2492
2493
2694

00000000
RO a3
WO
=N~

2480
2481
2482

000156
000440
000040
000000
000034

001405

104010
023737
001401

071407
003530
003500

MACY11

000026
000026

30A(1052)
19-JUN-80
13:52
PAGE 49
13
READ HEADER DRIVE CLEAR MESSAGE
MOV

1$:

MOV
MoV
DEC
BNE

003440
003466
003470
003500
003526

Mov
MOV
MOV
MOV
MOV

CLR
CMP
8€Q
ERROR

003440

100000

000000

003526

003466

2s:

003530

003470

3%:

MoV
B8R

CMP

BEQ
ERROR

cMP

BEQ
ERROR

104011

#27.4442,R0

SEQ 0048

:LOAD COUNT TO LOAD DRIVE CLEAR

#OMD
' MCLK , RKMR1 (RD)
#0MD
. RKMR{ (R2)

RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2(R2) .T.MR2 :STORE MAINT. REG. g (MESS A)
RKMR3(R2) T.MR3 :STORE MAINT. REG. 3 (MESS B)
#COTICFMTIROMEADE.CST

#S.CLR'S.FMT!70007,E.MR2°

;LOAD EXPECTED CS1

;LOAD EXPECTED MAINT REG. 2

E.MR3
£.CS1,T.CS1
28

:LOAD EXPECTED MAINT REG.
TCHECK COMMAND AND STATUS REG 1 CORRECT
SYES, CHECK €S2

E.MR2,T.MR2
3%

sCHECK MESS A CORRE(T
;YES, CHECK MESS B

7
lC%LR,RKCS1(R2)
TST4
10

E.MR3, T MRS
1ST4
"

1CS1 INCORRECT
;CLEAR RK611
::60 TO NEXT TEST
;MESS A INCORRECT

:CHECK MESS B CORRECT

:;YES, GO ON TO NEXT TEST
:MESS B INCORRECT

';t"t"..t.""""""""'Q'"Q"Q'.'.'Q'Q.t"'."i.'"'Q"t"

WRITE HEADER DRIVE CLEAR MESSAGE

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A UR;T; 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 TME DRIVE CLEAR IS
GENERATED AND THE PROPER BITS ARE SET.

100000

000040
001777
003400
000007
012027

000000
000034
000036
012027
1 407

[ol=l=1

oo
3R
LA

M N

NNNNNYNO

W L

000156
000440
000040

35 30
3500

[

—

NT N1 .N1 VT N1, V]

000144
001270

IV N NY. Y- YIV 1 .N] VT N
NO
N NN
NN

G-

Gnr QP

OO0OO00O0O00O

P unr-uar-S

OO0

—

b ald

E;C)C:C)C’C:E;E;

005572

38333833
FLELFERS

crafRRARARNRRRRRCEOCROCRRCCROCCERRROCRRCRRRRRRERRRRRARRRRACREANROARRRANOEANSRETSR

(=]

AV,]

ST NT ST VLN NI NI NN NI ST ST ST ST ST ST N N Lt L

Lot Lt L

Lt Lt L Lo

LA UL VA WA VA VA VA VAV WA WA VAL A VAV
VAV
WAV
VAW WA
APAIPLRNIRINININ)
b b d e b e = b b 2 O OO
4
MMM

,:U“\hflag:gfll‘dflfiNRC“NMNJ-‘CD1DCI*‘°FUNJ‘Uth—NCdZCl‘d

SeTEST &

SCOPE

001200

MoV

000000
000026
000020
000006

MoV
MOV
MOV
MoV
MOV
Mov

MoV

000010
000000
000026
000026

003440
003466
003470
003500
003526

003440

1$:

#100.,8TIMES
$BASE . R2
#CCLR.RKCST(R2)
#0MD ,RKMR1(R2)

;;DO 100. ITERATIONS
1LOAD RK611 BASE
:CLEAR RK611
:PUT RK611 IN DIAG.IOSTIC MODE

#1778, RkDCYL(R2) " ;LOAD CYLINDER ADDRESS REG.

#3400.RKDA(R2)
:LOAD TRACK
#7 ,RKCS2(R2)
:LOAD DRIVE NUMBER
#COT CFMT ! WRHEAD ,RKCS1(R2)
;ISSUE COMMAND WITH CDT SET

24 SECTOR FORMAT

[ [1]'}
MoV

#27.44+2,R0
SLOAD COUNT TO LOAD DRIVE CLEAR
#OMD
' MCLK ,RKMRY (R2)

DEC
BNE

MoV

mov
mov
MOV
Moy
MoV

CLR
Cmp

#0m0
. RKART (R2)

RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG. 1
RKMR2(R2).T.MR2 :STORE MAINT. REG. g (MESS A)
RKMRS(R2) .T.MRS :STORE MAINT. REG. $ (MESS B)

#COTICFMTIWRHEAD

E.CSY

:LOAD EXPECTED (S1

#S.CLR'S.FMT!70007.6.MR2" ;LOAD EXPECTED MAINT REG. 2
€.MR3
+LOAD EXPECTED MAINT REG.
:CHECK COMMAND AND STATUS REG 1 CORRECT
E.CS1,T.(Y

CIR6CDO RK611 DSKLS CYRL PRT3
CZR6CD.PY
19-JUN-80 13:49

2536
2537
2538
2539
2540
2541
256§
2543

005674
005676
005700
005706
005710
005716
005720
005722

001405
10401
012762
0004
023737
001401
104013
023737

%g:z

005732

104014

2544

005730

001401

MACY1Y 3?2(1052)

100000

000000

003526

003466

28:

003530

003470

3%:

2547
2550

%225

;eTEST §

2553
2554
2555
2556

ot
]
o
ot

SEQ 0049

8EQ
ERROR
MoV
8R
cmp
BEQ
ERROR
CMP

2s
12
#CCLR,RKCST(R2)
TSTS
E.MR2,T.MR2
3%
13
E.MRY, T .MR3

;YES, CHECK (€S2
sCS1 INCORRECY
;CLEAR RKH11
::60 TO NEXT TEST
sCHECK MESS A CORRECT
;YES, CHECK MESS B
sMESS A INCORRECT
;CHECK MESS B CORRECT

ERROR

JMESS B INCORRECT

BEQ

1ST1S

ssYES, GO ON TO NEXT TEST

RN RO e RN eI e et

v
]

gggg

i
.

005734

000004

005746

013702

E;tttttt'l'tQttQ'Qt"t't'ltt"tttt!'ttttt"t'it't.ttt'tt'ttt't"t
1STS:
SCOPE
#CCLR,RKCST(R2) ;CLEAR RK611

2567 005764 012762 000140 000026

MoV

ODHDEHSP.Rllkl(Ré)

2568
2569

005772

2571

012762

100000

MAKE SURE READ GATE DOES SET.

mov

005750

005756

001200

SIMULATE SECTOR PULSE, 255 2EROES AND A ONE.

000000

2565

000012

001270

012762

000040

012762
012762

000040
000025

000026
000000

006012

012762

000440

000026

2573
2576
2575

006026
006030
006032

005300
001370
016237

2578
2579
2580

006054
006056
006060

001405
104015
01276§

2570 006006 012700 000312

2576
2577

2235

006040
006046

006066

012737
023737

00055

000026
000026
003524

587

006116

005037

003614

2589

oomgb

012700

000200

004737
016237

MoV

000000

586 006112 005037 003622
006132
006136

MoV

100000
000140
000040
022040

2590
2591

18:

mov

BEQ
ERROR
mov

000025
003500

012762
01272;
0127

005037

MOV
mov

003440

000000

006070
006076
006104

006122

MoV

DEC
BNE
MOV

583
584
585

2588

MOV

000026

2572 006020 012762 000040 000026

003500
003440

MoV
cmp

BR
2%:

003464

5%:

::00 10. ITERATIONS

$BASE ,R2

*LOAD RK611 BASE

#0MD ,RKMRI(R2)

-PUT RK611

#OMD ,RKMR1 (R2)
#ROHEAD ,RKCS1(R2)

lSO."’é.RO

IN DIAGNOSTIC MODE

JINITIALIZE ROM ADDRESS

;ISSUE READ HEADER

;CLOCK UNTJIL READY FOR SECTOR PULSE

#OMD 'MCLK ,RKMR1(R2)

ODHD.RKHR{(RZ)

RO
1$
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1

#RDHEAD,E.(CS
E.CST,T.CH

+LOAD EXPECTED CS1
sCHECK COMMAND AND STATUS REG. 1 CORRECT

18716

::60 ON TO NEXT TEST

28
YES, CLOCK ZEROES
15
:CS1 INCORRECY
#CCLR,RKCS1(R2) ;CLEAR RK611

mov
mov
nov

#OMD ' MSP,RKMRI(R2)
;SIMULATE SECTOR PULSE
ODHD‘RKHR1(R2)
SORD 'MEVO'ECCY,E.MR1
;LOAD EXPECT MAINT REG. !

(LR

PR.BIY

JINITIALIZE PRESENT AND PREVIOUS

#128.,R0

SGENERATE 128

(LR

003616

043540
000026

ORRNROERARCEREOENRNTY

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

010.,8TIMES

2566

012737

RN R NeeeR RO

MOV

2564

005736

R e e

SECTOR PULSE DETECT IN READ HEADSR (PART 1)

%gg;

2563

.SBTTL «*INDEX AND SECTOR PULSE DETECT ON

%223

2561
2562

19-JUN=-B0 13:52 PAGE 50
WRITE HEADER DRIVE CLEAR MESSAGE

BITCNT

:lNlYliLllE 81T COUNT

CLR

l1.ng

JSR
nov

PC.RDBIT
JREAD A 2ERO
RKMRT(R2),T
. MRY ;STORE MAINT REG. 1

MOV

BITS TO GENERATE ZERQES

ZEROS UNTIL READ GATE

CIR6CDO RKO611 DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD.P1

006144
006152
006154
006156
006164

023737

006166
006172
006174
006176

003524

003464

100000

000000
6%:

003622

O~ B

737

122040
000177

003524

000026
003524

003464
003464

100000

000000

043540

198:

2762

003622

100000

000000

000000
000025
003500

003440
003500
003440

NNN YN N NO R

003616

g
VT NT. 3

=
=

;CHECK MAINTENANCE REG. 1 CORRECT
SYES, SIMULATE NEXT BIT
‘MAINT REG. 1 INCORRECT
:CLEAR RK611
1160 ON TO NEXT TEST

INC
DEC
BNE

BITCNT
RO
5¢

; INCREMENT 81T COUNT
SCHECK READY OF READ GATE
:NO, CONTINUE

MOV

#127. R0

:GENERATE 127" JEROS

:MAINT REG. 1

JSR
MOV
CMP
BEQ
ERROR
MOV

#CCLR,RKCS1(R2)

:READ A ZERO
:STORE MAINT REG. 1
SCMECK MAINT REG. 1 CORRECT
SYES, SIMULATE NEXT BIT
:CLEAR RK611

INCORRECT

INC
DEC
BNE
MOV
JSR

BITCNT
RO
108
#1,PR.BIT
PC.RDBIT

:INCREMENT BIT COUNT
TCHMECK IF ALL ZEROS ISSUEL
*NO, CONTINUE
:LOAD ONE FOR READING 1
*READ A ONE

CMP
BEO

E.MR1,T.MR
128

SCHECK MAINT REG. 1
SYES, CONTINUE
SMAINTENANCE REG. 1

BR
INC

1$16
B1TCNT

1:GO ON TO NEXT TEST
:INCREMENT BIT COUNT

CLR
JSR
MOV

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

;SIMULATE ZERO
:STORE MAINTENANCE REG.

MOV

#CCLR,RKCST(R2)

ERROR

003464
003464

PC,ROBIT
RKMRT(R2),T.MR1
E.MR1, T.MR1
118

;LOAD EXPECTED MR1

1360 ON TO NEXT TEST

MOV
128%:

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

1ST6

MOV

CMP
BEQ
ERROR

003622
003614
003614
043540
000026
003524

VWIN

000000

=S O
O =2 NN

100000

[« T
e
2 OON) =4
~N
[Vl
)Y
(NP
v yo=T.
NO
&S NN NO NN
O
— O WA AN A AN IO~ O

83 §383353338
bNgOO $ELREEYS

it
N =

006314

003464
003464

[l]

237
37

003614

000001
043540
000026
003524

E.MR1,T.MR1
63
17
#CCLR,RKCS1(R2)
TST6

B8R

118:

SEQ 0050

cMP
BEQ
ERROR
MOV
BR

MOV

~
[V|
-~

237

—ld

259
259
2594

L &
MACY11 30A(€1052)
19-JUN-80
13:52 PAGE 51
15
SECTOR PULSE DETECT IN READ HEADER (PART 1)

13%:

MOV
MOV

#CCLR,RKCST(R2)
PR.BIT,M1.BIT

;STORE MAINTENANCE REG.

:CLEAR RK4T

E.MR1,T.MRY
138
17

*CMECK MAINT REG. 1 CORRECT
SCHECK CS1 CORRECT
*MAINTENANCE REG. 1 INCORRECT

TST6

1260 TO NEXT TEST

RKCST(R2),T.CS1
#ROWEAD ,E.CS1

;STORE COMMAND AND STATUS REG.
;LOAD EXPECTED (S

:CLEAR RK611

E.CS1,T.CST

SCHECK CST CORRECT

ERROR

+CSY INCURRECT

B8 L X222k

INCORRECT

:LOAD ZERO FOR NEXT BIT

CHP

BEOQ
SeTEST 6

RKMRT(R2),T.MR1

T$To

$:YES, 79 TO NEXT TEST

X322 XX2223222222222221232122332333233137)22332322220322302020}]

SECTOR PULSE DETECT IN READ HEADER (PART 2)
PUT CONTROLLER
CLEAR RKO11 WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODE.
[SSUE A READ HEADER TO AN RK06
IN 26 SECTOR MODE, CYLINDER O, WEAD O, DRIVE 0.
CLOCK BOTH SEEK ANY DRIVE CLEAR MESSAGES.
SIMULATE INDEX PULSE, 255 IEROES AND A ONE.

CZR6CDO RX61Y DSKLS CTRL PRTY
CZIR6CD.PI1
19-JUN-80 13:49

n ¢
MACYTY 30A(1052)
19=JUN-80 13:52 PAGE 52
Té
SECTOR PULSE DETECT IN READ MEADER (PART 2)

%223

2650

: CHNRENRNRNR

2651

(& i

006416

000004

2652

006420

015737

000012

001200

2654

006432

01276¢

100000

000000

265

oooage 013702

2655
2656
2657
2658
2659

006440
006446
006454
006462
006470

2661

006502 012762

2660

2662
2663
2664
2665
2666

006474

00127

012762 0000640
012762 000140
012762 000040
012762 000025
012700 000312
o1zre$

000440

000026

006510
006512
006514
ooesgg
0065

005300
001370
016;37
012737
023737

2668
2669
2670
261
267
2673
2676

006540
006542
006550
ooossg
0065S
006560
006564

104015
012762
000535

100000

000000

012762
012700
012762

000240
000004
000640

000026

676

0066

2667 006536 001405

675

ooosgg 83%765 000240

2677
2678
2679
2680
2681
2
2683
2684
2685
2686
2687
2688
2689

006602
006604
006612
006616
006626
006630
006634
006640
006644
006652
006660
006662
OC+564

001370
01276;
005037
012737
005037
005037
012700
004737
0162%7
023737
001405
104020
012762

2692
269
2694
2695
2096
697
698

006676
006700
006702
004704
006712
006716
006726

005237
005300
oo1ss$
012737
004737
016;37
023737

700
701
;8%

0673
006736
0067644

104020
01278;
0004

ggg?

000672

000464

2699 076732 001405

000040
003622
022240
003614
003616
000377

000026

100000

000000

003622

100000

28:
38:

003524

003464
003464

b} ¥

003464
0034664
000000

#10. ,8TINES

MOV

#CCLR,RKCST(R2) :CLEAR RK611

MoV
MOV
MOV
MOV
MOV

MoV

$BASE,R2

::00 10. ITERATIONS

‘LOAD RK611 BASE

#O0MD iKCS1(R2) PUT RKO611 IN DIAGNOSTIC MODE
#0MD ISP, RKMR1(RQ) ;INITIALIZE ROM ADDRESS
#OMD ,RKMR1 (R2)
#RONEAD RKCST(R2) ;ISSUE READ MEADER
lSO.'b’é.RO
:CLOCK UNTIL READY FOR SECTOR PULSE
#OMD
! MCLK , RKMRT (R2)

MOV

#0M0
. RKMR{ (R2)

BEQ

Moy
MOV
MoV

#OMD'MIND,RKMRI(R2)
;SIMULATE INDX PULSE
24, RO
#DMD
' MIND ! MCLK ,RKMR1 (R2)

DEC

ERROR
MOV
B8R

MOV

RO
1%
RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
#RDHEAD,E.CS1
;LOAD EXPECTED (S1
E.CS1,T.CSY
:CHECK COMMAND AND STATUS REG. 1 CORRECT

SYES, CLOCK IN ZEROS

15
#CCLR,RKCST1(R2) ;CLEAR RK611
1817
2:60 ON TO NEXT TEST

#OMD ' WIND ,RKMR{
(R2)

BNE
MOV
CLR
Moy
CLR
CLR
MOV
JSR
MoV
C(HpP
BEQ
ERROR
MOV

{1
#0MD ,RKMR1 (R2)
BITCNT
JINITIALIZE BIT COUNT
#OMD'MEWD 'ECCW,E.MRT
;LOAD EXPECTED MAINTENANCE REG. 1
PR.BIT
:INITIALIZE PRESENT AND PREVIOUS
n1.BIT
: BITS TO GENERATE ZEROS
#255. .00
*GENERATE 255 ZEROES

PC.RDBIT
REKMRIC(R2),T.MRY
E.MR1,T.MRI
6%
20
#CCLR,RKCST(R2)

:READ A ZERO
:STORE MAINTENANCE REG. 1
JCHECK READ GATE NOT SET
:READ GATE NOT SET SIMULATE NEXT BIT
:MAINT REG. 1 INCORRECY
:ISSUE CONTROLLER CLEAR

INC
DEC
BNE
nov
JSR
MoV
CHp

BITONT
RO
5$
#1,PR.BIT
PC.RDBIT
RKMRT(R2) ,T.MRT1
;.HRI.!.IR1

s INCREMENT BIT COUNT
:CHECK IF ALL 2EROES ISSUED
INO. CONTINUE
:LOAD ONE FOR READING 1
sREAD A ONE
:STORE MAINTENANCE REG. 1
sCHECK READ GATE NOT SET

ERROR
MmOV
BR

20
:MAINT REG. 1 INCORRECY
lC(%l.lKCSl(RZ) :ISSUE CONTROLLER CLEAR
181
260 ON TO NEXT TEST

6%:

003614

MOV

DEC
BNE
MOV
MOV
CMP

000026

043540
000026
003526

000001
043540
000026
0035264

18:

003440
003500
003440

000026

scope

RN RCEPEOECRECECRCRCOTERRQOCQACRORQQRAGRORGERRGROARRAQARGRARROAGQAGSOANOQROTSY

MOV

000000
000026
000026
000000

000040 000026
000000
000025
003500

t&re:

MAKE SURE READ GATE DOES NOT SET.

BEOQ

1817

;260 ON TO NEXT TEST

SYES, CONTINUE

SEQ 0051

CIR6CD.PYY
704

2705

2706

19-JUN=-80 13:49

006746

00675

006760

005237

003622

S037

003614

13737

2707

006764

004737

2709
2710

006776
007004

023737
001404

2708

006770

27111

007006

2714
2715
2716

007016
007024
007032

01g; 14

007040

043540

003616

003464

01276%

100000

000000

016237
012737
023737

000000
000025
003500

003440
003500
003440

001401

003524

19-JUN-80

oooogb

%;}% 007014 00041

2717

003614

MACY11 30A(1052)
78:

INC

BITCNT

CLR

PR.BIT

MoV

MOV

CMP
BEQ

PAGE 53

9%:

PR.BIT,M1.BIT

; INCREMENT BIT COUNT

;LOAD ZERO FOR NEXT BIT

PC,ROBIT

:SIMJLATE 2ERO

E.MRT,T.MRY
98

:CHECK MAINTENANCE REG. 1 CORRECT
;CHECK €S1 CORRECT

::60 TO NEXT TEST

RKMRT(R2),T.MR1 :STORE MAINTENANCE REG. 1
cccsa.nxcs1(a2) sCLEAR RK611

MOV
MOV
CMP

RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG. 1
#ROHEAD,E.CS1
;LOAD EXPECTED (S
;CHECK €S1 CORRECT
£.CS1,7.CS1

ERROR

BEQ

TS17

::YES,

GO TO NEXT TEST

:CS1 INCORRECT
L A L

L L L

LA A AL

SECTOR PULSE DETECT IN READ MEADER (PART 3)

%;g;

(eTEST 7

2723
2724
2725
2726
g;gg

T
it
it
I
;e

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

g;%g

MAKE SURE READ GATE DOES NOT SET.

2731

.'Q

2732 007044

2733

2734
2735
273
2737
2738
2739
2740
2741
2762
27483
2766

2745
27
27647

748
749

007046

007056
007060
007
007074
007102
007110
007116
007122
007130

012737

scope

MoV

10, ,8TINES

::00 10. ITERATIONS

MOV
MoV

RKCST1(R2),T.CS1 :STORE COMMAND AMD STATUS REG. 1
;LOAD EXPECTED (S
ORDHEAD,E.CSY

000000

8EQ
ERROR

Y
B8R

s
S

SCCLR,RKCSI1(R2) ;CLEAR RK61Y
;.60 ON TO NEXT TEST
1$T10

CLR

S1TCuY

SINITIALIZE 81T COUNT

LR
CLR
ROV
JSR

n !l'

.11
0235, 00
pC.n081T

SINITIACIZE Pss SENT AND PREVIOUS
: 8118 10 g NRATE 2EROS
TGEnEMATE 258 TEROES
TREAD A JEROD
!

007164
00N

011405
104015

00N
thlfg

01276i
00051

100000

7SS

00SN37

0ON%s2

758 ¢
753 ¢
57
758 (
759

$§17:

016237 000000 003440
007142
01§737 000025 003500
0071$
007156 023737 003500 003440

750
;21

REELENRE NN RN RLEeeeeRe et et ReReRRRRRIRIELRERRIRIRELIRECRIECACLS

s8ASE ,R2
:LOAD RK611 BASE
#CCLR,RKCSI1(R2) ;CLEAR RK61Y
cono‘ixcs1(12) PUT RK611 IN DIAGNOSTIC MODE
20m0 {NSP RKMRY(R2) ;INITIALIZE ROM ADDRESS
20RO RKMR1 (R2)
PROMEAD RKCST(R2) ;ISSUE READ HEADER
sCLOCK UNTIL READY FOR SECTOR PULSE
#50.44¢4,00
' MCLK ,RXART(R2)
SOMD
#0m0 .RKAR{ (R2)

005300
001370

001270
100000
000040
000140
000040
000025
000312
000440
000040

001200

A A

nov
MOV
MoV
MOV
MoV
MOV
MoV
[ ]
MOV

007136
007140

013702
012762
012762
012762
012762
012762
012700
01276%
012762

000012

SEQ 0052

MOV

B8R

%;}g 007042 104016
2720

SECTOR PULSE DETECT IN READ HEADER (PART 2)

JSR

003464

13:52

0’37

,40

.12 €
' € b
‘wg (
? ¢
C. g ¢ 7
g 0.«737 0« 540

Ou’¢Se

016237

0uuv026

000000

000000
000026
000026
000000
00026

000026

1§:

DEC
BNE

cwe

ROV

003524

003464

s$:

ROV

RO
1%

E.CS1,T.CS1

:CHECK COMMAND AND STATUS REG. 1 CORRECT
;YES, CLOCK [N 2EROS

SJOMD 'MEVO'ECCY,E.MRT

:LOAD EXPECTED MAINTENANCE REG. !

REMRT(R2),T.MRY ;STORE MAINTENANCE REG.

(X an)

CZR6CDO RK6T11 DSKLS CTRL PRT3

9 R6COO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
€z R6CD.P11

023737
001405
000464

005237

007334
007340

023737
001404
012762
000613
016237
012737
023737
001401

003524

003464

100000

000000

000001
043540
000026
003524

003614

100000

000000

003464
003464

003616

000000

000000
000025
003500

003440
003500
003440

E.MRY,T.MRI
68
21

;CMECK READ GATE NOT SET
‘READ GATE NOT SET SIMILATE NEXT BIT
‘MAINT REG. 1 INCORREL.

B8R

1ST10

::GO ON TO NEXT TEST

INC
DEC
BNE
MOV
JSR
MOV
CMP
BEQ
ERROR
MOV

BITCNT
RO
5¢
#,PR.BIT
PC.ROBIT
RKMR1(R2),T.MR1
£.MR1,T.MR1
7%
21

: INCREMENT BIT COUNT
:CHECK IF ALL ZEROES ISSUED
:NO, CONTINUE
<LOAD ONI: FOR READING 1
TREAD A UNE
:STORE MAINTENANCE REG. 1
SCHECK READ GATE NOT SET
SYES, CONTINUE
SMAINT REG. 1 INCORRECT

TST10

1160 CN TO NEXT TEST

INC
MOV
CLR
JSR
MOV

BITCNT
PR.BIT,M1.BIT

s INCREMENT BIT COUNT
:LOAD JERO FOR NEXT BIT

CMP
BEQ
MOV
BR

PC.RDBIT
RKMR1(R2),T.MR1
E.MR1,T.MR1
9%
#CCLR,RKCST(R2)
TST10

;SIMULATL ZERO
:STORE MAINTENANCE REG. 1
SCHECK MAINTENANCE REG. 1 CORRECT
SCHECK £$1 CORRECT
;CLEAR RK611
:3€5 TO NEXT TEST

MoV

RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG. 1

B8R

7%:

003464
003464

100000

cMP
BEQ
ERROR

MOV

68:

003622

003622
003614
003614
043540
000026
003524

19-JUN=-80 13:52 PAGE 54
MACY11 30A(1052)
17
SECTOR PULSE DETECT IN READ HEADER (PART 3)

98:

104016

MOV
CMP
BEQ
ERROR

#CCLR,RKCS1(R2) :ISSUE CONTROLLER CLEAR

PR.BIT

NRDHEAD,E.CS1
E.CST,T.CS1
TST10
16

;LOAD EXPECTED (S
:CHECK CST CORRECT
LIYES, GO TO NEXT TEST
:CS1 INCORRECT

;:Q'tt'.t"""i"""""""tififi'..'I"t'tt"""'tt"'t't"t"

SeTEST 10
. &

e
;e
T

INDEX PULSE DETECTION IN WRITE HEADER

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR. PUT
THE CONTROLLER IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER
T0 AN RKO6, IN 26 SECTOR FORMAT, TO CYLINDER 0, HEAD O,

DRIVE O, WITH A ONE WORD TRANSFER.

‘e

WRITE GATE SETS.

i
;e
X
e

CLOCK THROUGH THE

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

—

)

el ald ol

wld

CDC"DCDCMDCDE;

007476

[LSTNTNT
NT NIV ST
NNNNNNNO
OO
OWO
POPLPONIRINY
~

E:'QI"t.'.""""""'""""""'.it""tl'."iit'fit'tttI"'t
000012

064630

TST10:

SCOPE

000000

MOV
MOV
MOV

#10.,8TIMES
;:00 10. ITERATIONS
:LOAD RK611 BASE
$BASE ,R2
#CCLR.RKCST(R2) :CLEAR RK61I

000004

MOV

#URBUFF ,RKBA(R2)

001200

MOV
MOV
MOV

cono'ixna1(az) PUT RK611 IN DIAGNOSTIC MODE
#0MD {MSP ,RKMR1(R2) ;INITIAILZE ROM ADDRESS
. RKMRT (R2)
#OMD
;LOAD BUS ADDRESS

SEQ 0053

cll
94

¢ 5
19-JUN-80 13:52 PAGE 55
MACY11 30A(1052)
110
INDEX PULSE OETECTION IN WRITE HEADER

2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829

007504
007512
007520
0075024
007532
007540
007542
007544
007552
007560
007566
007574
007802
007610

01276%
012762
012700
01 76%
012762
005300
001370
0162%7
016237
016237
012737
012737
012737
023737

177777
000027
000312
000440
000040

000002
000000

000000
000004
00000;
0000
064630
177777
003500

003440
003444
003442
003500
003504
003502
003440

2832

007622

000137

010550

2834
2835
2836
2837

007626
007634
007636
007640

023737
001403
104023
000137

003504

2839
2840

007644
007652

023737
001403

003502

2842

007656

000137

010550

844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
%ggg

007662
007670
007674
007700
007706
007714
007722
007730
007736
007744
007746
007750

012737
005033
0127
012762
012762
012762
012762
016237
023737
001403
104025
000137

022040
003622
000310
000440
000040
000440
000040
000026
003524

2857
2858
2859

007754
007756
(007760
007766
007774

005300
001350
016237
016237
016237

010012
010014

1v4026
000137

2861
2862
2863
2864
%ggg
2867
2868
2869
%g;?

010002
010010

010020
010026
010030
010032

023737
001403

023737
001403
104027
000137

000026
000026

18:

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

RO
13
RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKBA(R2) ,T.BA
;STORE BUS ADDRESS REG.
RKWC(R2),T.WC
;STORE WORD COUNT REG.
#WRHEAD ,E.CS1
;LOAD EXPECTED CS1
#WRBUFF ,E.BA
;LOAD EXPECTED BUS ADDRESS
#-1,E.WC
;LOAD EXPECTED WORD COUNT
COMMAND AND STATUS REG. 1 CORRECT
;CHECK
E.CS1,T.CS1
23
:YES, CONTINUE
:CS1 INCORRECT
22
:CLEAR CONTROLLER
60$

CMP
BEQ
ERROR
JMP

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

:CHECK BUS ADDRESS CORRECT
:YES, CONTINUE
:BUS ADDRESS INCORRECT
;CLEAR RK6M

003442

3%:

cMP
BEQ
ERROR
JMP

E.WC,T.W(C
3
24
60%

;CHECK WORD COUNT CORRECT
:YES, CONTINUE
;WORD COUNT INCORRECT
;CLEAR RK6M1

003524

48:

MOV
CLR

#ECCW!MEWD'DMD,E.
MR
;LOAD EXPECTED MAINT REG. 1
SINITIALIZE BIT COUNT
BITCNT

000026
000026
000026
000026
003464
003464

5$%:

MOV

#OMD
! MCLK ,RKMRY (R2)

MOV

MOV
MOV

CMP
BEQ
ERROR
JMP

#200. ,RO

:ISSUE 200 MAINT BITS

#OMD
. RKMR{ (R2)

#DMD {MCLK ,RKMR1 (R2)

#0Mm0 | RKMRT (R2)
RKMR{ (R2),T.MR1 ;STORE MAINT REG. 1
E.MR1, T.MR1
68
25
608

*CHECK MAINTENANCE REG. 1 CORRECT
SYES, CONTINUE
‘MAINT REG 1 INCORRELT
TCLEAR RK611

68:

DEC
BNE
MoV
ROV
MoV
CHP
BEQ
ERROR
JNP

RO
5$
RKCST(R2),T.CS1
RKBA(R2),T.BA
RKWC(R2),T.WC
E.CS1,T.C(
108
26
60$

sCHECK 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
:YES, CONTINUE
;CS1 INCORRECT
:CLEAR RK611

108:

CAP
BEQ
ERROR
JMP

E.BA,T.BA
1%
27
60%

:CHECK BUS ADDRESS CORRECT
;YES, CONTINUE
;BUS ADDRESS INCORRECT
:CLEAR RK611

003440
003444
003442
003440

003444

MOV

010550

:LOAD WORD COUNT

#WURHEAD ,RKCS1(R2) ;ISSUE WRITE HEADER
#50.+4+2,R0
:CLOCK UNTIL READY FOR INDEX PULSE
#0MD
' MCLK , RKMRT (R2)
#0MD
. RKMRT (R2)

2s:

010550

003504

#-1,RKWC(R2)

MOV
MOV
MOV
MOV

003444

010550

000000
000004
000002
003500

MOV

SEQ 0054

o
N~

CIR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.P1Y
19-JUN-80 13:49

2872
2873
2874
%g;Z

010036
010044
0100646
010050

023737
001403
104030
000137

003502

2877

010054

012700

000004

2879

010066

01276%

000540

2881
2882
2883

010102
010104
010106

2885
2886
2887

2878

010060

2880 010074

2884

2888

2889
gggg

012762

MACY1 3??61052)

003442

118:

CMP
BEQ
ERROR
JMP

E.WC,T.WC
12%
30
608

:CHECK WORD COUNT REG. CORRECT
SYES, CONTINUE
‘WORD COUNT INCORRECT
:CLEAR RK611

12%:

MOV

#4,R0

:SIMULATE SECTOR PULSE

13%:

MOV

#OMD 'MSP !MCLK ,RKMRT (R2)

010550

000140

000026

000140

000026

0§
19-JUN-80 13:52 PAGE 56
INDEX PULSE DETECTION IN WRITE HEADER

MOV

000240

000026

DEC
BNE
MOV

010122
010130
010136

0162}?
CY4257
023737

J00004
000002
003500

003444
003442
003440

MoV
MOV
o, [

010146
010150

104026
000577

010114 016237 0C0000 003440
010144

001402

Oono!NSP‘axna1(né)

MOV

005300
001370
012762

#DMD i MSP . RKMRT (R2)
RO
138
#DMD , RKMRT (R2)

MOV

RKCSi(RZ),T.CS1 :STORE COMMAND AND STATUS REG. 1
RKBA(RZ) ,T.BA
RKWC(R2),T.WC
E.CS1,T.CH

;STORE BUS AND REG.
;STORE WORD COUNT REG.
:CHECK COMMAND AND STATUS REG.

ERROR
BR

26
608

<CS1 INCORRECT
:CLEAR RK611

BEQ

15¢%

:YES, CONTINUE

2892
2893
2894
gggg

010152
010160
010162
010164

023737
001402
104027
000571

003504

003444

15%:

CMP
BEQ
ERROR
BR

€E.BA,T.BA
168
27
608

;CHECK BUS ADDRESS CCRRECT
*YES, CONTINUE
;BUS ADDRESS INCORRECT
:CLEAR RK611

2897
2898

010166
010174

023737
001402

003502

003442

16%:

CMP
BEQ
ERROR
BR

E.WC,T.WC
208

30
608

:CHECK WORD COUNT CORRECT
SYES. CONTINUE

2902

010202

005037

003622

CLR

BITCNT

;INITIALIZE BIT COUNT

2904

010212

012762

000440

000026

MOV

#OMD
I MCLK , RKMRT (R2)

2906

010226

012762

000440

000026

2909
2910
2911
gg:g

010250
010256
010260
010262

023737
001402
104025
000532

003524

003464

2914
2915

010264
010266

005300
001351

2899
ggg?

010176
010200

104030
000563

2903 010206 012700 000310

208:

2905 010220 012762 000040 000026

21$:

MOV

2907 010234 012762 000040 000026
2908 010242 016237 000026 003464

2916
2917
2918
2919
2920
2921

010270
010276
010304
010312
010320
010322

MOV
MOV

cHpP
BEQ
ERROR
BR

22%:

016237
016237
016;37
023737
001402
104026

000000
000004
000002
003500

023737
001402
104027
000503

003504

003440
003444
003442
003440

gggg 010324 000511

29264
2925
2926
2927

010326
01033
010336
010340

MOV
MOV

003444

238%:

#200. ,RO

;WORD COUNT INCORRECT
‘CLEAR RK611

S1SSUE 200 MAINT BITS

#0MD
. RKMRT (R2)

#OMD'MCLK,RKMR1(R2)

#0m0 . RKMR{ (R2)
RKMRT (R2),T.MR1 ;STORE MAINT REG. 1
€.MR1,T .MRI
228
25
608

;CHECK MAINT REG. 1 CORRECT
:YES, CONTINUE
:MAINT REG. 1 INCORRECTY
SCLEAR RK611

DEC
BNE
MOV
nov
MoV
CHP
BEQ
ERROR

RO
18

;CHECK IF READY FOR INDEX PULSE
*NO, GET NEXT BIT

608

‘CLEAR RK611

CHP
8¢€Q
ERROR
BR

£.BA,T.BA
248
27
608

B8R

SEQ 0055

RKCST(R2),T.CS1
RKBA(RZ) ,T.BA
RKWC(R2),T
. .W(
E.CS1,T.CSd
23
26

:STORE COMMAND AND STATUS REG. 1
:STORE BUS ADDRESS
:STORE WORD COUNT
SCHECK €S1 CORRECT
TYES. CONTINUE
:CS1 INCORRECT
:CHECK BUS ADDRESS CORRECY
:YES, CONTINUE
;BUS ADDRESS INCORRECY
"CLEAR RK611

INCORRECT

(eaTal
~ P~

CIR6CDO RK611 DSKLS CTRL PRT3
CIR6CO.PI11
19-JUN=-80 13:49

~No

RRERRRRER RKRRRIIIG 23S
P2
FRRRNSISEBRFFSNSEERN 2o8RASFE K3

003442

248

CMP
BEQ
ERROR
BR

E§¥C.T.HC
P
30
60$

012762
012700
01276%

000240
000004
000640
000240

000026

258:

MOV

#OMD 'MIND,RKMR1(R2)

000026
000026

268:

MOV

' MIND'MCLK ,RKMR1 (R2)
#DMD

000040
000002

000026

000440
000040

000026
000026

el i

O0O0O00O

003502

(=T =]
S
[=L=1=4
P PP

S g8222228
-auuvawrgfir—nahnv
~N

DEC

MOV
BNE

278

003444

28%:

003502

003442

29%:

003524

003464

308:

100000

000000

60$:

CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

.SBTTL

*«NPR READING OF MEMORY

(v (v
-~ fl

»
o
Ve
»

023737

MOV

012762

MoV
MoV
MoV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR

:SIMULATE TWO CLOCK PULSES FOR WRITE

#DMD _RKMRT (R2)

003504

~ b\l
B =0\ 04
oP
NO
S NO M~
W o (¥ ) O
purd ~ N
—
LY.

S
o

GATE TO COME UP
2"
#OMD 'MCLK ,RKMR1 (R2)

003500

L=4

MOV

#2.R0

8238

#DMD ! MIND ,RKMR
(R2)

RO
268
#DMD ,RKMR1(R2)

237

062040

;SIMULATE PULSE

DEC
BNE
MOV

003464
003440
003444
003442
003524
003440

737

27%:

#4,R0

000026
000000
000004
000002

237

-t

AVA
WA
VAWV AR WVWAV

oo~

[elelolelalelaleleleloletel

762
762

MOV

D i

12762
2700

MOV

SEQ 0056

;CHECK WORD COUNT CORRECT
;YES, CONTINUE
;WORD COUNT INCORRECT
;CLEAR RK611

02373;

D i

i i

O0O0O0O0O0O0O0

ol il il el

D ol e

D o

D e

0000000000000 O0O0O0O0O0O00

RKMR1(R2) ,T.MRT1 ;STORE MAINTENANCE REG.

RKCST(R2),T.CST ;STORE COMMAND AND STATUS REG 1
RKBA(R2),T.BA
;STORE BUS ADDRESS
RKWC(R2),T.WC
;STORE WORD COUNT
SWURTGAT'MEWD'ECCW!DMD,E.MRT
;LOAD EXPECTED MAINT REG.
sCHECK CS1 CORRECT
E.CS1,T.C1
28%
;YES, CONTINUE
1
;CS1 INCORRECT
;CHECK BUS ADDRESS CORRECT
E.BA,T.BA
298
:YES, CONTINUE
:BUS ADDRESS INCORRECT
32

E.wC,T.W(
308
33
E.MR1,T.MR1
60
34
#CCLR,RKCST(R2)

;CHECK WORD COUNT CORRECT
;YES, CONTINUE
sWORD COUNT INCORRECT
sCHECK MAINT REG 1 CORRECT
;YES, CLEAR RK611
sMAINT REG. 1 INCORRECT
;CLEAR RK611

:"tt'.'i."'.""""""""""'t""."'Qt."'lt"'.""""t

NPR OQUTPUT DATA TRANSFER

CLEAR RK611 WITH A CONTROLLER CLEAR.

IN DIAGNOSTIC MODE.
IN 26 SECTOR FORMAT,

TE)

TeTEST 11

&
5

SPECIFY A ONE WORD DATA TRANSFER.
HE SILO.

ISSUE A WRITE HEADER TO AN RK06
CYLINDER 777, WEAD 7, DRIVE 7.

CLOCK BOTH SEEK

AND DRIVE CLEAR MESSAGES. SIMULATE INDEX PULSE.
CLOCK IN FIRST WORD OF NPR TRANSFER. CHECK INPUT READY,
?urpuv READY, BUS ADDRESS, WORD COUNT, AND CONTENTS OF

REPEAT FOR 8 DIFFERENT DATA PATTERNS.

PUT CONTROLLER

000004
012737
013702

105 56
105 60
105 66

000144
001270

001200

tttt
tRRNRGRRRRRORRROEOPREGRORRRRRATRCETNTE
etttt
ettt ettt ettt
s aaseteteat

T11:

SCOPE

MOV
L)

#100. ,$TIMES
$BASE ,R2

¢:00 100. ITERATIONS
:LOAD RK611 RASE

3
19-JUN-80 1 %:52 PAGE 57
INDEX PULSE DETECTION IN WRITE HEADER

19-JUN-80 13:49

CIR6CD

MACY1T 3??61052)

[ale]

(9]

(ZR6(DOP$§611 DSKLS CYRL PRTY

CIR6CO0 RK61Y DSKLS CTRL PRTS
CIR6CD.P11
19-JUN-80 13:49
2984

2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996

010572

010576
010602
010610
010616
010622
010630

012703

012704
012737
012737
005037
012737

000010
064632
000027
003502
010630

001110

#WRBUFF ,RKBA(R2)

000026
000020

MOV
MOV
MoV
MOV

012762

064630

000004

MOV

012762

003400 000006
000007

000000

012762
012762
005300
001370
012700
012762
012762
01;78%
0053
001370
012762
012700
012762

000440
000040

000026
000026

000004
000240
000640
0002640

000026
000026
000026

3015
3016

010720
010726
010734
010736
010740
010744
010752
010760
010766
010770
010772
011000
011006

3018
3019
3020
3021
3022
3023
3024
3025

011020
011022
011026
011032
011040
011046
011052
011054

005300
001370
016237
016237
016237
012700
005300
001376

012700

3017 011012 012762

011056
011064
011072
011100
011102
011104
011112
011114
011116
011124
011126
OV115
011136
011140

016237
012737
023737
001401
104035
023737
001401
104036
023737
001401
104037
023737
001401
104040

MOV

177777 000002

000027

010714

MOV

000010

012762

3026
3027
3028
3029
3030
3031
sosg
303
3034
3035
3036
3037
3038
3039

#CCLR,RKCST(R2) ;CLEAR RK611
(R3) ,WRBUFF
:LOAD BUFFER FOR WRITE HEADER
#OMD,RKMRI(R2)
;PUT RKO11 IN MAINT MODE
#777 RKDCYL(R2)
;LOAD CYLINDER ADDRESS

000000

010706

3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014

100000
064630
000040
000777

3000 010700 012762
3002

#PATTERN,RS

MOV
MOV
MOV
CLR
MOV

003504
003500

000312

000040
000045
000440

MOV

MOV
2%:

3%:

000026
000026

000040 000026

&$:

000000
000004
000002
000024

003440
003444
003442

000010
000307
003500

003450
003510
003440

003510

003450

68:

003504

003444

78:

003502

003442

B8%:

5¢:

SEQ 0057

MOV

012762
011337
012762
012762

2999 010672
3001

064310

010630
010636
010642
010650

2997 010656 012762
2998

F
S
MACY11 30A(1052)
19-JUN-80 13:52 PAGE
58
)
T
NPR OUTPUT DATA TRANSFER

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

MOV

DEC
BNE
)]
MOV
MOV
MOV
DEC
BNE

MoV
MoV
CHP
BEO
ERROR
CnP
BEQ
ERROR
cHp
BEO
ERROR
CHpP
BEO
ERROR

8. ,RG
#WRBUFF+2,E.BA
#WRHEAD,E.CS!
E.W(
#18,SLPERR

;LOAD PATTERN ADDRESS

:LOAD PATTERN COUNT
:LOAD EXPECTED BUS ADDRESS
:LOAD EXPECTED CS1
:LOAD EXPECTED WORD COUNT
:LOAD LOOP ON ERROR LOCATION FOR
:
SUBTEST LOOP

#3400 ,RKDA(R2)

;LOAD DISK ADDRESS

#7,RKCSE(R2)

;LOAD OTHER NUMBER

2-1, RKWC(RD)

;LOAD BUS ADDRESS

:LOAD WORD COUNT

#_RHEAD ,RKCSY1(R2)

#50.¢4¢5,R0

;ISSUE WRITE HEADER

;ISSUE CLOCKS UNTIL PEADY FOR

:
INDEX PULSE
#DMD ' MCLK, RKMRY (R2)
#DMD
. RKMRT (R2)
RO
28
84 ,R0
;SIMULATE INDEX PULSE
#DMD ' MIND , RKMRY (R2)
#OMD'MIND'MCLK,RKMRY
(R2)
#OMD 'MIND ,RKMR1(R2)
RO
3s
20D, RKMR1 (R2)
#37..R0
:SIMULATE 1 NPR TRANSFER
#0M0
| MCLK , RKMRT (R2)

#0MD
. RKMRT (R2)
RO
‘8

RKCST(R2),T.CS1
RKBA(R2),T.BA~
RKWC(R2),T.WC
#20. R0
RO
5$
RKCS2(R2),T.CS2
SOR'IR'7,E.CS2
£.CS1,T.CS1

6%
35
;.csz.r.csz
$
36
E.BA.T.BA
8s

37
€.wC,1.WC
9%
40

;STORE COMMAND AND STATUS REG. 1
:STORE BUS ADDRESS REG
:STORE WORD COUNT
*WAIT FOR OUTPUT READY

;STORE COMMAND AND STATUS REG. 2
:LOAD EXPECTED (S2
SCHECK CSY CORRECT
SYES, CHECK €S2
;CS1 INCORRECTY
SCHECK €S2 CORRECT
SYES, CONTINUE
;€S2 INCORRECT
“CHECK IF BUS ADDRESS INCREMENT QOCCURRED
YES, CONTINUE
:BUS ADDRESS INCORRECT
;CHECK WORD COUNT REG CORRECY
*YES, CONTINUE
;WORD COUNT INCORRECT

CIR6CDO RK611 DSKLS CTRL PR

003462

g9222z292

016237
37
7

9%:

003462

19-JUN-80

MOV
MoV
CMP

S
PAGE 59

BEQ
ERROR

RKDB(R2),7.08
(R3),E.DB
£.08,7.08

SEQ 0058

:YES,CONTINUE
;DATA BUFFER INCORRECT
:STORE COMMAND AND STATUS
;STORE COMMAND AND STATUS
;LOAD EXPECTED (S2
;CHECK COMMAND AND STATUS
;YES, CONTINUE
:CS1 INCORRECT
"CHECK COMMAND AND STATUS

1CS2 INCORRECT
*CHECK [F LOOP ON ERROR

000107
003500
003510

003450

17¢:

MOV
CMP
BEQ
ERROR
(WP

208:

ERROR
SCOP1

DEC
BNE

R4
TST12

MoV
MOV

BEOQ
TST

;READ DATA BUFFER
;LOAD EXPECTED DATA BUFFER
;CHECK IF DATA CORRECT

15¢
41
1,081
RKCS1 (R2 ),
axcsz<22 ),71.052
FIR'7,E.CS2
1
E.CS1,T.CST
17%
42
E.CS2,7.CS2

158:

001000

13:52

NPR QUTPUT DATA TRANSFER

003440
003450
003510
003440

[=4

NOOSNONOOON
S

NSO

PIOPVPIPIAIPI
NI PRI NIA) = b
b acd o
d

D el

e
D e

il
D
D

o
ol

i
D

e
i

D ol

o
o
D

D
e
-l

D ol e

[=lelel-lelelelelalolalelalalalalalo R

19-JUN-80 13:

208

(R3)+

:YES, CONTINUE

REG.

REG. 2

REG. 1 CORRECT
REG. 2 CORRECT

*GENERATE ADDRESS OF NEXT CONFIG

SCHECK IF ALL 8 CONFIGS TRIED
1 NO, TRY NEXT DATA PATTERN

::'.t'"'t""."t""'Q'.""".Q"..'."'."'...'.Q".'Q"'."t

SeTEST

PARTIAL SILO FILLING

(& i

CLEAR RK611 WITH A CONTROLLER CLEAR.

SPECIFY A ONE WORD DATA TRANSFER.

i
i

PUT CONTROLLER

IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK IN ALL

;e
;e

SPECIFIED WORDS INTO THE SILO. CHECK WORD COUNT,
BUS ADDRESS. INPUT READY, AND OUTPUT READY. MAKE

INTO THE SILO.

e
te

SURE NO MORE THAN SPECIFIED DATA LENGTH IS CLOCKED
CHECK THE SILO FOR CORRECT DATA.

REPEAT FOR WORD COUNTS 2-65.

SIEBTER
~N
P X ¥

&S00

003500
001110

MOV
MOV

#WURHEAD,E.CS1
218, SLPERR

;LOAD EXPECTED (S?
*LOAD LOOP ON ERROR LOCATION FOR
SUBTEST LOOP
.

000000
000026
000004
003504
003502

......E;

O0O0O000O

001160

;:D0 100. ITERATIONS
:LOAD RK611 BASE
*LOAD NUMBER OF WORDS FOR DATA TRANSFER

100000

MOV

1%:

000026
000026

MOV
MoV
MOV

MOV
MoV
NEG

MOV
MOV

000002
000000

000440
000040

SCOPE

#100.,8TIMES
$BASE ,R2
21,3TRPO

001200

000040

15112:

MOV
MOV
MOV

000144
001270
000001
000065
000027
011306

O©OO0O0

PR3

(- =2
o

D il wld wld

\d\fi,:\fihfi\dhfl&flU‘
AN

-l el il

&i
O ~N~N

— dd

OO0

b
e
i

b
b
e

—

- el

il ol

el =l

-l

O00000O0000O

QOO0 O0O0O

;:.t.'"Q".""""""""""""l'..".'fi.'.i".Q"Q."'Qt"'

3040
3041

OO0

CIR6CD.

MACY1 3??%1052)

MOV

28:

265 R4

*LOAD ITERATION COUNT

#CCLR,RKCS1(R2) ;CLEAR RK611
#0MD, RKART (R2)
:PUT RK611 IN MAINT MODE
INPRBUF ,RKBA(R2)
;LOAD BUS ADDRESS
UNPRBUF
.E .BA
$TMPO, € .WC
E.WC

:LOAD WORD COUNT

£50.44+2,R0

;1SSUE CLOCKS UNTIL READY FOR

E.¥C,RKWC (R2)
#URHEAD RKCS1(R2)

;ISSUE WRITE HEADER

MOV

INDEX PULSE
.
#OMD 'MCLK , RKMRY (R2)

DEC

MOV

#0mD
. RKMR{ (R2)

112

000000
000004
000002
064406

003440
003444
003442
003504

VO OO0~©
=3
WO

000026
003510

3§N~NNWW SNNNN
NN NN
8W°O-~
WHN
N NO OO
NNNNOO
NN

000026
000026
000026

000026
000026

000024

8 NO
S NO S NN (v

-t
=t YO = YN

8238 ge2228g82ee

QO
onNO
=
NN
=2
B =2
B = OO OO

[ ¥ X Y=1NFJ

4$:

5$:

003450
003504

7%:

003440

003510

003450

8%:

003504

003444

9s:

003442

118

000112
001440
000040

000026
000026

000000
000010
000004
000002
003500

003440
003450
003444
003442
003440

003510
003504

108
:

003450
003444

15%:

17%:

S
PAGE 60

SEQ 0059

24 ,R0
:SIMULATE
#OMD !MIND ,RKMR1 ( R2)

MoV
MOV
Mov
MOV
MOV
DEC
BNE
MOV
MOV
MOV
CMP
BNE
MOV
DEC
BNE
MOV
ADD
INC
CMpP

#OMD
, RKMR1 (R2)
#IR'OR E.CS2

BEQ
ERROR

CMP
BEQ
ERROR
CMP
8EQ
ERROR
cmp
BEQ
ERROR
1ST
BNE
Mov
MoV
MOV

DEC
BNE
MOV
MOV
MOV
MOV
(NP
BEQ

16$:

Mov
MOV
MoV
MoV

DEC
BNE

6%:

003502

oONO

3%:

13:52

PARTIAL SILO FILLING

BNE

000040
000300
000045
000440
000040

000010
000002
003502
003500

19-JUN-80

ERROR
CHpP
8tq
ERROR
CMP
8tQ

INDEX PULSE

#DMD
I MIND !MCLK , RKMRY (R2)

#DMD ' MIND . RKMRT (R2)

237. R0

#DMD
| MCLK , RKMRY(

;LOAD EXPECTED (S2

é%{flULATE 1 NPR TRANSFER

:8no.axnai(az)
5$

RKCS1(R2),7.CS?
RKBA(R2),T.BA
RKWC (R2),T.WC
#NPRBUF ,E.BA

7%
#20.,R0
RO

;STORE COMMAND AND STATUS REG. 1
:STORE BUS ADDRESS
:STORE WORD COUNT
;CHECK IF FIRST WORD
:NO, STORE (S2
;WAIT FOR OUTPUT READY

6%
RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REG. 2
#2,E.BA
E.W(C

E.CS1,T.CS1
8$
)

£.0S2,71.(S2

9%
65
E.BA,T.BA
108

E.wC,T.W(
1%
47
E.WC
i
#2+37.,R0

: INCREMENT WORD COUNT AND BUS ADD

;CHECK COMMAND STATUS REG. 1 CORRECT
:YES, CHECK (S2
:CS1 _INCORRECT
;CHECK COMMAND STATUS REG. 2 CORRECT
;YES, CHECK BUSS ADDRESS REG.
;€S2 INCORRECT
:CHECK BUS ADDRESS CORRECT
;YES, CHECK WORD COUNT
:BUS ADDRESS INCORRECT
;CHECK WORD COUNT CORRECT
:YES, CHECK JF ALL WORDS TRANSFERRED
;WORD COUNT INCORRECT
;CHECK IF FINISHED
¢NO,

#OMD!MCLK , RKMRI1(R2)

#0MD
. RKMRT (R2)

TRANSFER NEXT WORD

: ISSUE ENOUGH CLOCKS FOR
;

2 NPR TRANSFERS

RO
15
RKCS1(R2),T.CS1

;STORE COMMAND AND STATUS REG. 1

168

;YES, CHECK CS2

£.CS2,7.CS2

;CHECK COMMAND STATUS REG. 2 CORRECT

RKCS2(R2).1.CS2 ; STORE COMMAND AND STATUS REG. 2
RKBA(R2),T.BA
:STORE BUS ADDRESS REG.
RKWC (R2) ,T.4WC
:STORE WORD COUNT
E£.CS1,T.CS1
;CHECK COMMAND STATUS REG. 1 CORRECT

17¢

51
E.BA,T.BA
18%

:CS1 INCORRECT

:YES, CHECK BUS ADDRESS
;CS2 INCORRECT
; CHECK BUS ADDRESS CORRECT
;YES, CHECK WORD COUNT

[Tl

MACY11 30A(1052)

000004
000240
000640
000240

NO
oo o

-l

288288222882222283222

oSO
N—‘dOSNNO‘V‘V‘l‘b WD)
=t = O

001370

003502

SR3SSNEREREE

—.—.-.-.—.-4-0-‘-‘-.—.-.—‘-‘-‘—.-.—‘-‘-‘-‘-‘—.-‘—‘-‘-‘—.-._.—._‘-‘J—‘J—._fi—.-‘—.—.—._‘_‘-‘d-‘-‘d_’_‘—‘-‘—._‘
-‘—.—‘dd‘d-‘dd-‘dd‘d-‘-‘d—.—.-‘-‘-‘—.-‘-.—.-‘—.—.—‘d-‘-‘fl-‘-‘—.-‘—‘-‘-‘—.-‘dd-‘-‘—.—.—.—‘_._.—‘_‘
(W IV IV IV IV IV IV IV VIV IV E X ¥ o o f ok 2k 2t t S Iedd
NNNNNNNNNNYO

Py ===l =

—r

il ol

VIV Y 0 o 28 X ok Bl 3L 2~
-t OO O NN -

D el el

il ol

[ ST, ST, N1, ST, N1, ST N7 N NT NP

SOEIFLRUKZE OO NOWVE WA= O O

s P

v P P

v P I

NO NS WO

e le o)

A Lt \ 0 L L A U 8 L A Ll Al L L\l Ll —d
Ll i
g Ll
Li ol
i Ll
L Ll
Ll
A Ll Al Ll Ll L W Ll A LD Ll
A Ll WD UD L
A) L
N N W
o
D e
i
D i D D B el el D D D o
o o e
i
e i D i i

OQOOO

3096
3097
3098
3099

=111 -1-Y-r-t-T-T-T.T.T-1o1ololeloTTololoTolotolo
ot odoloTotelalodadadolaldal ol ol ol ot o= 0 =g

CIR6CDO RK611 DSKLS CIRL PRT3
19-JUN-80 13:49
CIR6CO P

s2
§3
5
S5
§6
§7
S8
§9
60
61
62
63
64
6S
66

Ll Ll L Ll A Ll Al Lt A Ll Lt Ll A L Al Al i A W Lt il Ll Ll A A i A Al L U A Ll L L A A
ol A A A A N WU N A N N NN
D el D D i i il D D el D e i i il D el e D D D D D D D ol D il D D D D D i il i e D i e o e

011752
011754
011762
011764
011766
011772
011776
912002
012010
012014
012022
012024
012026
012034
01204

104052
023737
001401
104053
013701
012703
005037
016237
012337
023737
001401
104054
016237
016237
022701

68
69

012050
012056

L L A

D0
oo

(DO RK611 DSKLS CTRL PRT3
¢D.P1N
19-JUN-80 13:49

012210
012216

70
71

73
7%
75
76
77
78
79
80

81
gg

012046

012064
012066

012070

012076
012100
012102
012106
012110
012112
o1§11c
012120

012122
0121264

003502
001160
064406
003624
000024
003522
003522

MACY1Y 3??§1052)

003442

198:
003462

25%:

003462

000000
000010
000001

003440
003450

012737
023737

000100
003500

003510
003440

27%:

023737

003510

003450

28%:

001003
001401
104055

001401
104056
005237
005301
001334
104415
005237
005304

001402
000137

003624

24$:

001160

52
E.WC,T.WC
198
53
$7MPO, R
_
#NPRBUFF ,R3
WRDCNTY
RKDB(R2),T.0B
(R3)+,€.08
€E.08,7.08
268
54
RKCST1(R2),T.CS1
RKCS2(R2),T.CS2
1 ,R1

:8US ADDRESS INCORRECT
*CHECK WORD COUNT CORRECT
*YES, CONTINUE
*WORD COUNT INCORRECT
:LOAD NUMBER OF WORDS LOADED
:LOAD START ADDRESS
:INITIALIZE WORD COUNT FOR PRINTOUT
:READ DATA BUFFER
;LOAD EXPECTED DATA BUFFER
sCHECK IF DATA CORRECT
SYES, CONTJINUE
‘DATA BUFFER INCORRECT
;STORE COMMAND AND STATUS REG. 1
;STORE COMMAND AND STATUS REG. 2
JCHECK IF LAST WORD IN SILO

MOV
cMp

#IR,E.CS2
E.CSY,T.C

:LOAD EXPECTED €S2
:CHECK COMMAND STATUS REG. 1 CORRECT

{(Mp

€.CS2.,7.CS2

BEQ
ERROR

BEQ
ERROR
INC
DEC
BNE
SCOP1
INC
DEC

BEQ
JMP

011306

SEQ 0060

ERROR
(MP
BEQ
ERROR
MOV
MOV
CLR
MOV
MOV
CMP
BEQ
ERROR
MOV
Mmov
CMP

BNE

29%:

27%

288
59

298
56
WRDCNT
R
25%
$TMPO
R4

TST13
1%

*NO, CONTINUE

YES, CONTINUE
;CS1 INCORRECTY

:CHECK COMMAND STATUS REG. 2 CORRECT
SYES, CONTINUE
1052 INCORRECT
;s INCREMENT WORD COUNT
‘DECREMENT WORDS READ
;CHECK I1F ALL WORDS READ
SCHECK [F LOOP ON ERROR
: INCREMENT WORDS READ FROM MEM
:CHECK IF FINISHED

SIYES, GO ON TO NEXT TEST
:TRY NEXT WORD COUNT

8‘

;;t'ttt't.tt'ttttt"t"tt'"'Qt"t'.'t't.'t'.""'.'t."'t.'.t"Q

;eTEST 13

87
88

i
i

89
90

g§

9‘

NORINIAVNIAINIA)
b b = b —

[]

012130

000004

012144
012152

012737
012762

96
97

012132
012140

00
01
02

012160
012166
012174

98
99

012737
013702

000144
001270

001200

01276;
012737
012762

000040
064410
06440

000026
003504
000004

003500
000000

03 012202 012737 177677

003502

89 012226

012762
012762

SILO FILLING WITH NPR TRANSFERS

CLEAR RK611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
1SSUE A WRITE HEADER TO AN RK06

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

SPECIFY A 66 WORD DATA TRANSFER, CLOCK IN ALL 66 WORDS
INTO THE SI1LO.

CHECK INPUT READY, OUTPUT READY, BUS

ADDRESS, WORD COUNT, AND CONTENTS OF THE SILO.

E:'QQ'Q"tt.Q't"""t"'tt"t't"'t".tl.l."i..'..t"'..!tt't"

000027
100000

04
05

i
;e

18%:

15
19-0 N-80 13:52 PAGE 61
PARTIAL SILO FILLING

177676
000027

012700 000312

000002
(00000

TST13:

SCOPE

MOV
MOV

#100..8TIMES
$BASE ,R2

nov
MOV
MOV

SOMD ,RKMRI(R2)
;PUT RK6TT IN MAINT MODE
UNPRBUF +2,E.BA :LOAD BUS ADDRESS
#NPRBUF ,RKBA(R?2)

MoV
MoV

MOV

MOV
Mov

MOV

;:DO 100. ITERATIONS
:LOAD RK611 BASE

SURHEAD,E.CSY
:LOAD EXPECTED €S9
#CCLR,RKCST(R2) :CLEAR RK611

#-65. ,E.4(C

:LOAD WORD COUNT

#50.44+2 R0

:lS?ggegtgstgfuullL READY FOR

2-66. .RKWC (R2)
SURHEAD ,RKCST(R2)

:ISSUE WRITE HEADER

CIR6CDO RKO6T1 DSKLS CTRL PRTY
CZR6CD.PY
19-JUN-80 13:49

3208

3209

3210
3211
3212
3213
3214

3215

012230

01276%

M2244
u122646
012250
012254
012262

005300
001370
01%700
012762
01276

012236

012270

3216
3217
3218
3219

012276
012300
012302
012310

3221
3222
3223
3224
3225

012322
012330
012336
012340
012342

3227

012356

012762

005300
001370
01276;
01273

000440

000040

000004
000240
000640

000240

012350

3232

3233
3234
gzss
236
3237
3238
32390
32640
3241
3242
3243
3244
32645
3246
3247
3248
3249
3250
g%g}
3253

3254
3255
3256

3261
szog
3268

000026
000026

000026

1%:

MOV

#OMD
' MCLK , RKMRY (R2)

2%:

DEC
BNE
MOV
MOV
MoV

RO
1%
24 ,R0
:SIMULATE INDEX PULSE
#OMD ' MIND, RKMRY (R2)
#OMD'MIND'MCLK ,RKMRT (R2)

000000

003440

MOV
MOV
DEC
BNE
MOV

016237

000002

003442

MOV

016237

000004

S$:

0903444

003504

CMP

000010
003500

003450
003440

7%:

003510

003450

8%:

003504

003444

9%:

003502

003442

108:

000002
003502

003504

11%:

000200

003510

012510

005037

003502

012762

000040 000026

012554
0.0562
012570

001376

162737
012700
01276%
005300
001370
016237

016237
016237
016237

000024

000002
000112
000440

000000
000010
000004
000002

6$:

003504
000026

003440
003450
003444
003442

MOV

016237
023737
001401
104044
023737
001401
104045
023737
0014601
04046
023737
0014601
104047
062737
005237
100710
001004
012737
000703

012542
012544
012546

DEC
BNE
MOV
MOV

000026
000026

012404
0126412
015420
012422
012426
012432
012434
012436
012446
012446
012450
012456
012460
012462
012470
012474
012476
012500
012506

012514
012522
0125%2

MOV

000440
000040

001004
012700
005300

012402

MOV

o1zres
012762
005300
001370
016237

012372
012374
012400

3257 012534

3258
3259
3260

000026

000026
003510

3228 012364 022737 064410
3229
3230
3231

000026

000040
000300

3220 072316 012700 000045

3226

J S
MACYTT 30A(1052)
19-JUN-80 13:52 PAGE 62
LB
SILO FILLING WITH NPR TRANSFERS

12%:

15%:

BNE
L [1)")
DEC
BNE

#0MD ,RKMRT (R2)

#OMD i MIND,RKMR{
(R2)
RO
28
#OMD ,RKMR1 (R2)
#IR'OR,E.CS2

#37..R0

:LOAD EXPECTED CS2

SIMULATE 1 NPR TRANSFER

#DMD i MCLK ,RKMRT
(R2)
#OMD .RKMR{ (R2)
RO
5%
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1

RKBA(R?2) ,T.BA

:STCRE BUS ADDRESS

INPRBUF +8,E.BA

:CHECK IF FIRST WORD

RKWC(R2) .T.WC

78
#20..R0
RO
63

:STORE WORD COUNT

‘NG, STORE CS2
:WAIT FOR OUTPUT READY

®ov
CMP
BEQ
ERROR
CMP
8to
ERROR
CMpP
BEQ
ERROR
(MP
BEQ
ERROR
ADD
INC
BM]
BNE
MOV
BR

RKCS2(RZ),T.CS2
E.CS1,T.CST
8s
4é
€.CS2,71.CS2
'} 3
45
E.BA,T.BA
108
L6
E.WC,T.WC
11%
47
#2.€.8A
E.WC
8
128
#OR,E.CS2
%3

:STORE COMMAND AND STATUS REG. 2
sCHECK COMMAND STATUS REG. 1 CORRECT
SYES. CHECK €S2
:CS1 INCORRECT
:CHECK COMMAND STATUS REG. 2 CORRECT
:YES, CHECK BUS ADDRESS
€S2 INCORRECT
;sCHECK BUS ADDRESS CORRECT
;YES, CHECK WORD COUNT
:B8US ADDRESS INCORRECT
SCHECK WORD COUNT CORRECT
:YES, CHECK IF ALL WORDS TRANSFERRED
;WORD COUNT INCORRECT
:INCREMENT WORD COUNT AND BUS ADDRESS
;
SCHECK IF FINISHED (NO, BRANCH)
SCHECK IF LAST WORD
:LOAD EXPECTED €S2
:PROCESS LAST WORD

CLR

E.ul

sADJUST EXPECTED WORD COUNT

MOV

#0m0
. RKMRT (R2)

SuU8
MOV
mov
DEC
BNE
MoV

mov
MOV
MOV

#2,€E.BA
: AND BUS ADDRESS
#2+37..R0
;ISSUE ENOUGH CLOCKS FOR
#OMD'MCLK RKMRI(R2) : 2 NPR TRANSFERS

RO
158
RKCST(R2),T.CSY1 :STORE COMMAND AND STATUS REG. 1

RKCS2(R2),T1.CS2 ;STORE COMMAND AND STATUS REG. 2
RKBA(R2),T.BA
:STORE BUS ADDRESS REG
RKWC(R2).T.WC
:STORE WORD COUNT

SEQ 0061

CZR6CDO RK611 DSKLS CIRL PRT3

023737
001401
104050
023737
001401
104051
023737
001401
104052
023737
001401
104053
012701
012703
005037
012737
016%37
012337
023737
001401
104054
016237
005737
001015
012700
005300
001376
013237
022701
001003
012737
023737
001401
104055
023737
001401
104056
005237
005301
001325

003500

003440

003510

003450

168:

003504

003444

178:

003502

003442

188:

000102
064406
003624
000300
000024
003522
003522
000000
00362«

19¢:

003510
003462

258:

003462

003440

26%:

27%:

CMP
BEQ
ERROR
(MP
BEQ
ERROR

003450

000100
003500

003510
003440

288:

00351C

003450

298:

;CHECK COMMAND STATUS REG. 1 CORRECT
‘YES, CHECK €S2
1CS1 INCORRECT
*CHECK COMMAND STATUS REG. 2 CORRECT
SYES, CHECK BUS ADDRESS

(MP
BEQ

E.BA,T.BA
18%

:CHECK BUS ADDRESS CORRECT
SYES, CHECK WORD COUNT

(MP

€.wC,T.WC

MOV
MOV
CLR

#66. R
#NPRBUF ,R3
WRDCNT

MOV

RKDB(RS),T.0B

ERROR

BEQ
ERROR

MOV

Mov
CMP

+CS2 INCORRECT

:BUS ADDRESS INCORRECT

:CHECK WORD COUNT CORRECT

198
53

SYES, CHECK DATA
‘WORD COUNT INCORRECT

#IR'OR,E.CS2

;LOAD EXPECTED (S2

:LOAD NUMBER OF WORDS LOADED
SLOAD START ADDRESS
SINITIALIZE WORD COUNT FOR PRINT OUT

:READ DATA BUFFER

(R3)+,E.DB
E.08,7.08

:LOAD EXPECTED DATA BUFFER
;CHECK JF DATA CORRECT

187

WRDCNT

:CHECK IF

MoV

#20.,R0

;sWAIT FOR INPUT READY TO SETY

BEQ
ERROR
MOV

ggg

26%
sYES, CONTINUE
54
;DATA BUFFER INCORRECT
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1

28%

MOV
(WP

#IR,E.CS2
E.CS1,T.CS1

DEC
BNE

BEQ
ERROR
(WP
BEQ
ERROR
INC

FIRST WORD

+NO, GET CS2

RO
278
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG. 2

CMP

BNE

308:

SEQ 0062

E.CST,T.CS1
168
S0
£.C52,7.C52
178

MoV

0¢0010
000001

003624

K $
19-JUN-80 13:52 PAGE 63
SILO FILLING WITH NPR TRANSFERS

BNE

000024

28$

29
55
E.(S2,7.CS2
308
56
WRDCNT
258

1CMECK IF LAST WORD IN SILO

*NO, CONTINUE

:LOAD EXPECTED €S2
SCHECK COMMAND AND STATUS REG.

1 CORRECT
SYES, CHECK €S2
CS1 INCORRECT
SCMECK COMMAND AND STATUS REG. 2 CORRECT
‘YES, GET NEXT WORD
1CS2 INCORRECT
L INCREMENT WORD COUNT
:DECREMENT WORDS READ

SCHECK IF ALL WORDS READ

e teenetcstRRtdReR ettt Rt R CRORERORRRARRRORORRROOROECORROERNECRQRRRGRERAORNTEETS

JeTEST 14
BN BN BN BN BN BN BN BN AN J

012576
012604
01c606
012610
012616
012620
012622
012630
012632
012634
012642
012644
012646
012652
012656
012662
012670
012676
012702
012710
012712
012714
012722
012726
012730
012734
012736
01%760
012746
012752
012754
012762
012770
012772
012774
013002
013004
013006
013012
013014

—O

D wld
)
il
sl
il

NO NS W

D
il
—

Al L Al Lt ol A U A A
Ll Ll Al
A
L
L Al L L Al L
A

3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306

19-JUN-80 13:49

[ 2N BN

CZR6CD.PI1Y

MACY1Y 3??;1052)

SILO CAPICITY WITH NPR TRANSFERS

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

SPECIFY A 68 WORD DATA TRANSFER,
CLOCK IN 66
WORDS INTO THWE SILO. MAKE SURE THAT SILO WILL STOP
FILLING AT 66 WORDS.

TAKE ONE WORD FROM SILO AND

CHMECK JT, CLOCK IN NEXT WORD, MAKE SURE NO MORE
THN 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

L S
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 64
T4
SILO CAPICITY WITH NPR TRANSFERS

3320

MAKE SURE NO WORDS ARE CLOCK INTO SILO.

—

CIR6CDO RK611 DSKLS CTRL PRTY
CIR6CD.PYI
19-JUN-80 13:49

SEQ 0063
UNLOAD THE

%g%;

3323

:;QQ"Q""'QQQ.""Q"'""'"""t'.t"""""t"tQ"Q"""QQ

3324

013016

000004

3325
3326
3327
3328

013020
013026
013032
013040

012737
013702
012737
012762

000144
001270
000027
100000

001200

3330
3331
3332
3333
333,

013054
013062
013070
013076
013104

012737
012762
012737
012762
012762

064410
064406
177675
177674
000027

3329

3335

3336

013046

013112

012762

012700

3337

013116

012762

3339
33,0
331
3342
33,3

013132
013134
013136
013142
013150

005300
001370
012700
012762
012762

33,5
3346

013164
013166

005300
001370

3338

3364

3347

013124

013156 012762
813170

33,8
013176
3349 013204
3350

3351

3352
3353
3354
3355
3356

012762

013210

8157§7

012737
012700
012762

000040

000312

000440

000040

000004
000240
000640

000240

000040

000300
000045

000440

013216 012762 000040

f§T14:

003500
000000

#100.,8TIMES
$BASE . R2
#WRHEAD E.CS1
#CCLR,RKCST(R2)

003504
000004
003502
000002
000000

MOV
MOV
MOV
MoV
MOV

#NPRBUFF
¢2 ,E.BA ;LOAD BUS ADDRESS
#NPRBUF ,RKBA (R2)
#-67..E.4C
:LOAD WORD COUNT
#-68. .RKWC (R2)
#URHEAD ,RKCST(R2)
;ISSUE WRITE HEADER

000026

000026
000026

000026

MOV

000026

28:

DEC
BNE
MOV
MOV
MOV

RO
1%
#4 R0
;SIMULATE INDEX PULSE
#OMD'MIND,RKMR1
(R2)
#OMD
I MIND ' MCLK , RKMRT (R2)

DEC
BNE

RO
28

SS$:

3358
3359
3360

013260
013262
013266

001004
012700
005300

3362
3363
3364
3365
3366
3367
368
369

013272
013%00
013306
013310
013312
013320
013122
013324

016237
023737
001401
104044
023737
001401
104045
023737

000010
003500

003450
003440

7%:

003510

003450

8$:

003504

003444

98:

023737
001401

003502

003442

108:

000002

0035064

118:

370
371

337;
3373
3574
375

813332
013334

013334
013344

013346
013350

001376

001401
104046

104047
062737

MOV

MOV
MOV

MOV
MOV
MOV

68:

#OMD
. RKMRT (R2)

#DMD ! MIND , RKMR1 (R2)

#0MD , RKMR1

#IR'OR,E.CS2
#37. .80

20MD
. RKMRT (R2)

CHP

INPRBUF +2,E.BA

BNE
MOV
DEC
BNE

MOV
CHP
BEQ
' ERROR
cnp
BEQ
ERROR
cmp

BEO
ERROR

(MP
BEQ

ERROR
ADD

:LOAD EXPECTED (S2
SSIMULATE 1 NPR TRANSFER

#DMD
' MCLK , RKMRT (R2)

MOV

DEC
BNE
MOV
MOV
MOV

3357 013252 022737 064410 003504
013270

:ISSUE CLOCKS UNTIL READY FOR

;s
IMDEX PULSE
#DPD
! MCLK , RKMRY (R2)

003440
003444
003442

000024

#50. ¢4+ ,R0

:PUT RK611 IN MAINT MODE

MOV

000026

003510

#0MD ,RKMR1(R2)

;:D0 100. ITERATIONS
:LOAD RK611 BASE
;LOAD EXPECTED CS$1
:CLEAR RK611

1$:

005300
001370
016237
016237
016237

3361

SCOPE

MOV
Y
MoV
MOV

013224
013226
013230
013236
013244

000000
000006
000002

SILO AND MAKE SURE ALL THE WORDS ARE CORRECT.

RO
5$
RKCS1(R2),T.CS1 :STORE COMMAND AND REG. 1
RKBA(R2),T.BA
:STORE BUS ADDRESS
RKWC(R2) ;T.WC
:STORE WORD COUNT

:CHECK IF FIRST WORD

7%
#20. R0
RO

‘NO, STORE €S2
‘WAIT FOR OUTPUT READY

RKCS2(R2),T1.CS2
€.CS1,T.CS1
8s
44
€.CS2,7.CS2
98
45
E.BA,T.BA

:STORE COMMAND AND STATUS REG. 2
sCHECK COMMAND STATUS REG. 1 CORRECY
SYES, CHECK €S2
2CS1 INCORRECT
*CHECK COMMAND STATUS REG. 2 CORRECT
*YES, CHECK BUS ADDRESS
1CS2 INCORRECT
TCHECK BUS ADDRESS CORRECT

E.WC.T.uC
118

*CHECK WORD COUNT CORRECT
SYES, CHECK IF 1ST 65 WORDS TRANSFERRED

108
&6

47
#2,€.8A

TYES, CHECK WORD COUNI
*BUS ADDRESS INCORRECT

‘WORD COUNT INCORRECT
S INCREMENT BUS ADD AND WORD CGUNT

CZR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.PI1
19-JUN=B0 13:49

" s
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 65
114
SILO CAPICITY WITH NPR TRANSFERS

3376
3377
31378

013356
013362
013370

oos;g7
022787
101305

003502
177776

003502

3380
ggg;

013374
013402

012737
000700

000200

003510

TI8T
3384
3385
3386
3387
3388
3389

013404
013410
013416
013422
013426
Q013432
013436

005337
162737
G12701
005037
012703
012700
01276%

003502
000002
000003
003624
064406
000112
000440

3391
3392
3393
3304
3395
3396
3397
3398
3399
300
3,01
3,02
03
04
3405
3606
3,07
3408
3,09

013452
013454
013456
013464
013472
013500
013506
013514
013516
013520
013526
013530
81;538
01354
013542
013546
013552
013554
013556

005300
001370
016237
016237
016237
016237
023737
001401
104050
023737
001401
104051
3737
1401
104052
023737
001401
104083
012737

3411
3012
3413

013572
013576
013604

012337
023737
001401

(03522
063522

3415
3616
317
3018
319
3420
3621
3022

013610
013616
013622
013624
01%26
013634
013642
013644

016237
012700
005300
001379
016237
023737
001409
104055

000000
000024

003440

000010
003500

003450
003440

013654
013656

023737

001409
104056

003510

003450

81 ?

000045

3379

013372

3300 013444

001004

012762

000040

3423
6
25

013606

013646
01

104054

27 013664
012762
34,28 013672 012762
29
30
31

013700
013702
013706

005309
001370
022701

000026

128:

13%:
15%:

003440
003450
003444
003442
003440

003510

003450

16%:

003504

00344k

178:

003502

003442

18%:

000300

003510

19%:

003462

000001

:CHECK IF 65 WORDS IN SILO
:NO, GET NEXT WORD

MOV
BR

#OR,E.CS2
'3 3

:LOAD EXPECTED €S2
:PROCESS 66TH WORD

DEC
SUB
MOV
CLR
MOV
MOV
MOV

E.WC
:ADJUST WORD COUNT AND
#2,E.BA
: BUS ADDRESS
o3,
R1
WRDCNT
#NPRBUF ,R3
;LOAD START ADDRESS
#2+37..R0
sISSUE ENUUGH CLOCKS FOR
#OMD'MCLK ,RKMR1(R2)
:
2 NPR TRANSFERS

DEC
BNE
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
CHpP
BEQ
ERROR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

RO
15%
RKCST1(R2),T.CSY1
RKCS2(R2),T.CS2
RKBA(R2),T.BA
RKWC (R2),T.WC
£.CS1,T.CS1
16$
S0
£.052,1.CS2
17¢
51
£.BA,T.BA
188
52
E.WC,T.W(
198
§3
#IR'OR,E.CS2

MOV

MoV

MoV
CHP
]3]

003462

25%:
268:

0u0440 000026
000040 000026

E.WC
#-2,€.4C
48

BNE

000000
000010
000004
000002
003500

3,10 013564 016237 000026
3614

003504

INC
CMP
BHI

27%:
308 :

318:

ERROR

12%

sCHECK IF ALL 65 WORDS IN SILO

#0MD
. RKART (R2)

RKDB(RS),T.0B
(R3)+,E.Db
E.DB.T.0B
S
4

MOV
MOV
DEC
BNE
MOV
CHp
BEQ
ERROR

RKCS1(R2),T.CS1
#20.,R0
1)
268
RKCS2(R2),71.CS2
€.CS1,T.CS1
78
§§

BEQ
ERROR

0s
g

;STORE COMMAND AND STATUS REG. 1
:STORE COMMAND AND STATUS REG. 2
:STORE BUS ADDRESS REG
;STORE WORD COUNT
SCHECK COMMAND STATUS REG. 1
SYES, CHECK €S2
:CS1 INCORRECT
;CHECK COMMAND STATUS REG. 2 CORRECT
YES,CHECK BUS ADDRESS
€S2 INCORRECT
:CHECK BUS ADD CORRECY
‘YES, CHECK WORD COUNT
:BUS ADDRESS INCORRECTY
:CHECK WORD COUNT CORRECT
:YES, READ 1 WORD FROM SILO
:WORD COUNT INCORRECT

;LOAD EXPECT CS2

:STORE DATA BUFFER

:LOAD EXPECTED DATA BUFFER
SCHECK IF DATA CORRECT
:YES, CONTINUE
JOATA BUFFER INCORRECY

:STORE COMMAND AND STATUS REG. 1
‘WAIT FOR OUTPUT READY

nov

#37. RO

;STORE COMMAND AND STATUS REG. 2
cCHECK IF COMMAND STATUS REG. 1 CORRECT
SYES, CHECK €S2
1CS1 INCORRECT
;CHMECK IF COMMAND STATUS REG. 2 CORRECT
SYES, DO NPR TRANSFER
1€S2 INCORRECT
:CLOCK IN ONE WORD (NPR TRANSFER)

DEC
BNE
d,'4

RO
3%
(AN}

JCHECK 4F 68TH WORD READ

Cnp

MOV
MOV

.(S2,1.CS2

#0M0
' MCLE , RKMRY(R2)
#0MD
. RKMR{ (R2)

SEQ 0064

CIR6CDO RKO11 DSKLS CYRL PRTY
CZR6CD.PIY
19-JUN-80 13:49

N §
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 66
T4
SILO CAPICITY WITH NPR TRANSFERS

3432

013710

001410

3,35
335

0137 0
01379¢

oos; 7
012737

337

013740

016237

000010

3,39
3640
341
3642

013754
013762
013770
013772

012237
023737
001401
104044

000002
003500

3446
34465
3446
%47
3448
3449
3,50
3,51
3452
3453

014002
014006
0164006
014014
014016
014020
014026
014030
014032
014036

001401
104045
023737
001401
104046
023737
001401
104047
005237
005301

g:gg

014042

000137

013432

3,57
3,58
gzso

014046
014054
816060

162737
005037
815737

000002
003502
000300

003504

3461

014072

016%37

000024

003462

333

013712

33 013732

062737

000002

00350
000200

016237 ooooog

3,38 013746 016237 000004

003510

03440

003450

3662
3463
3664
3065
3066
3067

14066

014100
01641064
0164112
014114
0164116
014126

12701

012337
023737
001401
104054
016237
022737

3468 014132 001004

3469
3,70
271

328:

003444

738:

003504

0034644

348

003502

003442

35%:
'

003624

000101

003522
003522

000000
000002

368:

40%:

003462

003440
003624

418:

000024

3472
%78

012700
005300
001376
016237
0c270%

000010
000001

003450

3475

014160

012737

000100

003510
003440

448:

003510

003450

458:

374 omls’s oowo;
76
77

78
79

80
81
ag
8
S?
86

3.87

0164166
016174

014176
014200

014206
01451
01421
014216
016220

023737
001409

104055

023737

001401
10‘053
oosig
005301
001324

003500

003624

428:

43$:

MoV

:LOAD EXPECTED €S2

s INCREMENT BUS ADD AND WORD COUNT

RKCS2(R2) . T.CS2 -STGRE COMMAND AND STATUS REG. 2

axaAcas),i.aA

:STORE BUS ADDRESS

€.(52,7.CS52

TCHECK COMMAND STATUS REG. 2 CORRECT

MoV
cMP
BEQ
ERROR

RKWC(RQ) .T.WC
.€S1,T.Csi
is
&4

REQ
ERROR
CHpP
BEQ
ERROR
CMpP
BEQ
ERROR
INC
DEC

348
45
§.8A.1.8A
13
46
E.WC,T.WC
368
&7
WROCNT
R

YES, CMECK BUS ADD
;€S2 INCORRECT
JCHECK BUS ADD CORRECY
YES, CHECK WORD COUNT
:BUS ADD INCORRECT
sCHECK WORD COUNT CORRECT
SYES, CONTINUE
*WORD COUNT INCORRECT

138

NG, INPUT NEXT WORD

CMP

sus
(LR
MOV

3198

:STORE WORD COUNT
*CHECK COMMAND STATUS REG. 1 CORRECT
TYES, CMECK C$2
1¢S1° INCORRECT

sCHECK IF READ TO UNLOAD SILO

YES, READ DATA; BUFFER

#2,E.8A
E.WC
#IR'OR,E.CS2

:ADJUST WORD COUNT AND BUS ADDRESS

RKDB(RZ2),T1.08

JREAD DATA BUFFER

43f

*NO, DO NOT WAIT FOR INPUT READY

:LOAD EXPECTED CS2

Mov

le..Rf

MoV
cHp
BEQ
ERROR
MOV
e

(R3)+ E.OB
E.08,7.08
(i
54
RKCS1(R2),7.CS1
82 WRDCNT

MOV
DEC
BNE
nov
d. 4

#20..R0
JMAIT FOR INPUT READY
RO
028
RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REG. 2
21 R\
:CHECK IF LAST WORD

Moy

BNE

6s:

E.WC
#OR E.csz

T (R%).!.CSl *STORE COMMAND AND STATUS REG. 1

BNE

014134
0164140
014142
016144
014152

NO NPR WILL TAKE PLACE

MmOV

INC
MOV

JMP

003510

SYES,

#2,E.BA

BEQ

39%:

355

ADD

MOV

003442
003440

3443 013774 023737 003510 003450

3454 014040 001402

BEQ

003504

AoV

(WP
BEO

ERROR
(w

B0
EPROR
IN
DEC
ONE

:LOAD NUMBER OF WORDS LEFT

:LOAD EXPECTED DATA BUFFER
:CHECK IF DATA CORRECT
1YES, CMECK CS9
‘DATA BUFFER INCORRECT
:STORE COMMAND AND STATUS REG. 1
*CHECK IF FIRST WORDS

:NO, CONTINUE

£.CS1,7.CS0
¢S

SCHECK CS1 CORRECT
TYES,CHECK €S2

#IR,E.CS2
55

€.52.7.C52

468
56
WROCNT
nM
408

:LOAD EXPECTED €S2
ST INCORRECT

TCHECK COmMAND AND STATUS REG. 2 CORRECT

SYES, READ NEXT WORD ON SILO
1CS2° INCORRECT
CINCREMENT WORD COUNT
:CHECK IF ALL WORDS READ
N0, READ NEXT WORD

.‘."0.0.0Q.QQ....Q'O"."'."O"t...O.......OO'...O.'..OO.'.O.'...

Se1EST 18

BUS ADORESS INNIBIT

SEQ 0065

SEQ 0066

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

SPECIFY A 66 WORD DATA TRANSFER WITH BUS ADDRESS
INHIBIT INCREMENT.

CMECK WORD COUNT,

BUS ADDRESS,

INPUT READY, OUTPUT READY, AND MAKE SURE ALL THE

o
NN N N
OMNIRIN NN

~NO~
N=~N
O =ty

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#100.,$TIMES
;:00 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#URHEAD ,E.CS1
:LOAD EXPECTED CS1
#CCLR,RKCST(R2) ;CLEAR RK611
#0M0 ,RKMR1(R2)
:PUT RK611 IN MAINT MODE
#NPRBUF ,E.BA
;LOAD BUS ADDRESS
#NPRBUF
, RKBA (R2)
#-65. ,E.WC
;LOAD WORD COUNT
#-66. .RKWC (R2)
#BA1 .RKCS2(R2)
;SET BUS ADDRESS INCREMENT INMIBIT

1%:

MOV

#DMD
! MCLK ,RKMR1 (R2)

2$:

DEC
BNE
Mov
MOV
MOV

RO
1$
2 ,R0
:SIMULATE INDEX PULSE
#OMD 'MIND,
RKMR1 (R2)
i MIND ! MCLK ,RKMR1 (R2)
#DMD

4s:
5$:

DEC
BNE
MOV
MOV
MOV
MOV

RO
28
#OMD
, RKMRY (R2)
#IR'OR'BAI,E.CS2 ;LOAD EXPECTED (S2
#37. RO
;SIMULATE 1 NPR TRANSFER
#DMD {MCLK , RKMRT (R2)

001200

003500

000312

MOV
MOV

000000

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

000040
000320

000026
003510

000026
000026

e LaS LS LN IV TV

WNNNNO SIS POV

OOONIN

N NN NN NN
e NNNUWN

o
D
o
D
b

NT N1 ST NT ST ST N1, N1,¥)
NNNNNNNYN

OO0O0O0O0O0O0O0O0O

O = WAINIPI
NN — NL SLSUST STV L N T VI

—N

2B
O 2 AR
© & NO B NN
O OWWVWO

NSO

So3828328 Seoeggee22e83222283

o (= NO

000144

-l

- Ngo-vvb
WO
ONJ‘&N
5»nNo
~N puiy
» [ 1 =1 NP

:bb&bbbbbbbbbbbbbbb
s
£8
$B8R>oRS o

b
e
ol el
i ol ol
cad
o
)

N N
Y
¥
IV IV T S TN TS LS LS aS a1 S a8

cnld
ol
-

— i oD el D ol D )
Dl
P
W
W
W
W
P
PP
¥
WA VA WVAVARWA VAW

D D il

)

) e

D o i e

l
l
F
Lol
ot ok ok oDl w
~
(Ve W fo8

il el

)

D =

D b

OO0 OO0OO0O0O0OO0O0O0O0O0O0O0O0O0O0O0O0O0O0O

Ll Ll L L L A A i
Lt L Lt LA A LA A L L A AAl Al Ll Ll Lol Ll Al Ll Ll Ll Al Lol Ll A
WAWN
VAR VWVAVAWVAVAWVAIVAWIVAWRIWA
VAW AWV VAR VA VAV WA WA WA WA WVIWVA VWA NN WA
APV
ALAI
AL
AN
PININ)
=b
b
o
b
ol
e b b d S O O O
W ¥ ¥ 3V ]
VI
= O O

P
(VL

[=lelelelelelelelelalaletel

WORDS IN THE SILO ARE THE CORRECT SAME WORD.

003440
003444
003442
003502

MOV

000010
003500

003450
003440

7$:

003510

003450

8s:

#DMD I MIND ,RKMRT
(R2)

#0MD
. RKMRT (R2)

RO
5$
RKCS (R
RKBA(R2)

CMP

265. ,E.

RKWC(R

C S1
A

BNE

[4 ]

MOV
CMP
BEQ
ERROR
CAP

RKCS2(R2),T7.CS2
£.CS1,7.(91
8
57
£.CS2,T.CS2
9%
60

MoV
DEC
BNE

8tQ
ERROR

INDEX PULSE

#DMD
. RKMRT (R2)

DEC
BNE
MOV
MOV

MoV

6$:

#URHEAD RKCST(R2) TM :ISSUE WRITE MEADER
#50.¢4¢5,R0
;ISSUE CLOCKS UNTIL READY FOR

#20.,RO
RO
68

;STORE COMMAND AND STATUS REG. 1
;STORE BUS ADDRESS

:STORE WORD COUNT
sCHECK IF FIRST WORD

;NO, STORE (S2

;WAIT FOR OQUTPUT READY

;STORE COMMAND AND STATUS REG, 2
; CHECK COMMAND STATUS REG. 1 CORRECT
JYES, CHECK (S2
:CS1 INCORRECY
:CHECK COMMAND STATUS REG. 2 CORRECT
;YES, CHECK BUS ADDRESS
;CS2 INCORRECT

19-JUN-80 13:49

B 6
19-JUN-80 13:52 PAGE 67
MACY11 30A(1052)
115
BUS ADDRESS INWIBIT

DSKLS CTRL PRT3

CIR6CDO
CIR6CD.PY

3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
§§§§

014536
014544
014546
014550
014556
014560
014562
014566
014570
014572
014600

023737
001601
104061
023737
001401
104062
005237
100713
001004
012737
000706

003504

003444

9%:

003502

003442

108:

3556
3557

014602
014606

005037
012700

003502
000112

3559 014620

012762

000040

3558

014612

012762

3560
3561
3562
3563
3564
3565
3566
3567
3568

014626
014630
014632
014640
014646
014654
014662
014670
014672

005300
001370
016237
016237
016237
016237
023737
001401
104063

3570
ST
§72

014702
816704
14706

001401
1
ng
023737

3574
3675
3576
3577
3578
3579
3580

014716
014720
014726
014730
014732
014736
014744

104065
023737
001401
10‘06?
01;70
013737
005037

3582
3583
3584
3585
3586
3587
3588
35890
590
591
359
359

014756
0147
014772
014774
014776
015004
015010
015012
015016
8150
150
0150

o1§r 7
023737
001401
104067
016; 7
005737
001015
012700
005300
301379
13;3
022701

595
$96
597
598

015036
015044
015052
015054

3569

014674

023737

3573 014714 001401

3581

gso‘

3599

014750

015034

015056

016237

001003

01;7%7
023737
001401
104070

023737

003502
000220

000440

1M8:
003510
12¢:

000026

158:

000000
000010
0000064
000002
003500

003440
003450
003444
003442
003440

003510

003450

16%:

003504

003444

17%3:

003502

003442

18%:

000102
064406
003624

003522

000320
003522

003510
003462

19%:

000024

003462

25%:

000000
003624

003440

26%:

000024

27%:

000010
000001

003450

000120
003500

003510
003440

28%:

003510

003450

29%:

¢ 6
19-JUN-80 13:52 PAGE 68
BUS ADDRESS INHIBIT

SEQ 0067

CHp
B8EQ
ERROR
CMP
B8EQ
ERROR
INC
BM]
BNE
MoV
BR

€E.BA,T.BA
10%
61
E.WC,T.WC
1%
62
E.WC
8
12%
#OR'BAl ,E.CS2
48

:CHECK BUS ADDRESS
:YES, CHECK WORD COUNT
:BUS ADDRESS INCORRECT
SCHECK WORD COUNT CORRECT
:YES, CHECK IF ALL WORDS TRANSFERRED
;WORD COUNT INCORRECT
*INCREMENT WORD COUNT
SCHECK IF FINISHED (NO, BRANCH)
:CHECK IF LAST WORD
:LOAD EXPECTED COMMAND STATUS REG. 2
*PROCESS THE LAST WORD

CLR
MOV
MOV

£.WC
#2+37. R0

:ADJUST WORD COUNT
*1SSUE ENOUGH CLOCKS FOR

DEC
BNE
MOV
MOV
MOV
MOV
o, [
BEQ
ERROR

RO
158
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKBA(RZ),T.BA
RKWC(R2),T.WC
£.CS1,T.C
168
63

;STORE COMMAND AND STATUS REG. 1
;STORE COMMAND AND STATUS REG. 2
:STORE BUS ADDRESS REG.
:STORE WORD COUNT REG.
:CHECK COMMAND STATUS REG. 1 CORRECT
TYES, CHECK CS2
:CS1 INCORRECT

178
64
E.BA,T.BA

*YES, CHECK BUS ADDRESS
:CS2 INCORRECTY
:CHECK BUS ADDRESS CORRECT

MoV

CHpP

BEQ
ERROR
CMP

BEOQ

#0MD 'MCLK , RKMRT(R2)

#OMD
. RKMRT (R2)

€.CS2,T7.(S2

188

;

2 NPR TRANSFERS

sCHECK COMMAND STATUS REG. 2 CORRECT

YES, CHECK WORD COUNT

ERROR
CMP
BEQ
ERROR
MOV
MOV
CLR

65
E.WC,T.WC
198
66
#66. R\
NPRBUF ,E.DB
WRDCNT

MOV
CApP
BEQ
ERROR
mov
TST
BNE
Y
DEC
BNE
L, [0)")
CAP

#IR'OR'BAI.E.CS2 ;LOAD EXPECTED (S2
€.08,7.08B
sCHECK 1F DATA CORRECTY
268
SYES, CONTINUE
67
:DATA BUFFER INCORRECY
RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG. 1
WRDOCNT
;CHECK IF FIRST WORD
28%
‘NG, GET €S2
#20. R0
‘WAIT FOR INPUT READY TO SET
RO
27
RKCS2(R2),7.CS2 :STORE COMMAND AND STATUS REG. 2
FAN 3
;CHECK IF LAST WORD

Moy

BNE

[ [0)"]
CHP
BEQ
ERROR

Cmp

RKDB(RZ2),T1.D8B

:BUS ADDRESS INCORRECT
sCHECK WORD COUNT CORRECT
SYES, CHECK DATA
:WORD COUNT INCORRECY
:LOAD NUMBERS OF WORDS LOADED
:LOAD EXPECTED DATA BUFFER
:INITIALIZE WORD COUNT FOR PRINT OUT

:READ DATA BUFFER

113

*NO. CONTINUE

€£.0S2,71.CS2

:CHECK COMMAND STATUS REG 2 CORRE(CT

#IR'BAL E.CS2
£.CS1,7T.C1
29%
70

;LOAD EXPECTED (S2
:CHECK COMMAND AND STATUS REG. Y CORRECT
;YES, CHECK €S2
;CS1 INCORRECT

MACYI 39?;1052)

CIROCOO RK611 DSKLS CTRL PRT3
CIR6CD.P11T
19-JUN-B0 13:49

CZR6CDO RK611 DSKLS CTRL PRTY
CZR6CD.P11
19-JUN-80 13:49

3600
3601
3602
3603
gggg

015064
015066
015070
015074
015076

001401
104071
005237
005301
001324

D 6
MACY11 30A(1052)
19-JUN-80 13: 5 % PAGE 69
115
BUS ADDRESS INHIBIT

003624

308:

3606

;*TEST 16
;l

3609
3610

:*
e

3611
3612
3613
gg}lso

e
e
e
v
L

015100
015102
015110
015114
015122

000004
012737
013702
012762
012762

000144
001270
100000
000040

001200

3623
3624
3625
3626

015136
015144
015152
015160

012762
012737
012762
012737

160000
177677
177676
101626

7ST16:

0151?6

015788

001427
000440

3628 0151764 012700

3629
3630

015200

012762

3632
3633
3634

015214
015216
015220

005300
001370
012700

3635
3636

012762
012762

015246
015250
015252
015260

3643

015272 012762

sokg

015264

005300
001370
012762
012700

012765

3644
3645

015300
015302

005300
001379

9
S0
$1
ggsg
53
3654
3655

owssgz
0153
015342

016237
836237
005037

3646
3647
3648

015304
015315
01532
015346
015354
015362
015364

IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, ORIVE 0.
SPECIFY A ONE WORD DATA TO A NON-EXISTENT ADDRESS
(760000) AND MAKE SURE THE NON-EXISTENT MEMORY ERROR

OCCURS IN THE RK611 CONTROLLER.

000000
000026
000004
003502
000002
003500

MOV
MOV
MOV
MOV

#160000,
RKBA (R2)
#-65.,E.WC
;LOAD WORD COUNT
#-66. ,RKWC (R2)
FCERRIRDY 'BAT6!BA17 ! WRHEADG<C<GO>>,E.
(S

000312

000004
000240
000640

000040
000045
000440

000026

000026
000026

MOV

MOV
1$:

28:

000026

000040 000026

016237
0162;7
016% 7

000000
000010
000004

003440
003450
003446

012737
032737
001403
052737

004100
000200

003510
003450

000200

003510

000002
0014
003514

MOV

000000

3637 015240 012762 000240 000026
3638
3639
3640
3641

CLEAR RK611 WITH A CONTROLLER CLEAR, PUT CONTROLLER
IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RK06

#100.,8TINES
$BASE ,R2
#CCLR.RKCS1(R2)
#0MD ,RKMRT(R2)

015206 012762 000040 000026
015224
015232

NON=EXISTENT MEMORY

SCOPE
MOV
MOV
MOV
MOV

3622 015130 012737 160002 003504

3631

:YES, GET NEXT WORD
+(S2 INCORRECT
+ INCREMENT WORD COUNT
:DECREMENT WORDS READ
SCHECK IF ALL WORDS READ

:-;Qttttttt"t""""t"""tt'ttlt't'."t"t'tt"t"tt'tt'tt'tt'

3617
3618
3619
3620
3621

3627

308
71
WRDCNT
R1
258

:;t"t't"QQt'tQt'Q"'Q""""'t""'t"'.t.tt'tt't't't"'.tt"t

;,’28;

3616

BEQ
ERROR
INC
DEC
BNE

SEQ 0068

003442
003454

S$:

#160002,E.BA

;D0 100. ITERATIONS
:LOAD RK611 BASE
:CLEAR RK611
:PUT RK611 IN MAINT MODE

:LOAD BUS ADDRESS

#BA17'BA16
' WRHEAD ,RKCS1(R2)

#50.v4+2,R0

;ISSUE WRITE HEADER

:1SSUE CLOCKS UNTIL READY FOR

MOV

.
INDEX PULSE
#OMD
! MCLK ,RKMR1(R2)

DEC
BNE
MOV

RO
18
24 RO

MOV

Mov
MOV

MOV

#0MD
. RKMRT (R2)

;SIMULATE INDEX PULSE
#OMD 'MIND ,RKMR1T
(R?2)
#OMD {MIND {MCLK ,RKMR1(R2)

#DMD {MIND ,RKMR{
¢ .2)

DEC
BNE
MOV
MoV

RO
28
#OMD, RKMR1 (R2)
#37..R0

MOV

. RKMRT (R2)
#0Mm0

MOV
MoV
MOV

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

MOV
DEC
BNE

MoV
MOV
CLR

MOV
8IT
BEQ
BIS

:STMULATE 1 NPR TRANSFER
#OMD {MCLK , RKMR1(R2)
RO
5$

RKWC(R2).T.WC
RKER(R2),T.ER
E.ER

PIR'NEM,E.CS2
#OR.T.CS2
7%
JOR,E.CS2

:STORE WORD COUNT
;STORE ERROR REG.
*LOAD EXPECTED ERROR REG.

:LOAD EXPECTED (S2

CIR6CDO RK611 DSKLS CTRL PRT3

73:

003510

003450

8s:

003514

003454

98:

003504

003444

108:

003502

003442

118:

100000

000000
003440

128:

003440

003500

003450
003500
003510
003440

003510

003450

cmp

E.CS1,7.CS0

;CHECK COMMAND STATUS REG. 1 CORRECT

BEQ
ERROR
CMP
BEQ
ERROR
(WP
BEQ
ERROR
(WP

9%
73
E.ER,T.ER
10$
74
E.BA,T.BA
11$
75
E,WC,T.WC

:YES, CHECK ERROR REG.
:CS2 INCORRECT
*CHECK ERROR REG CORRECT
:CHECK BUS ADDRESS
*ERROR REG INCORRECT

BEQ
ERROR
cmp

BEQ
ERROR

12%
76

SYES, CHECK €S2
€S INCORRECT
TCHECK COMMAND STATUS REG. 2 CORRECT

*CHECK BUS ADDRESS CORRECT
*YES. CHECK WORD COUNT
:BUS ADDRESS INCORRECT
:CHECK WORD COUNT REG.

“YES, CLEAR RK611
*WORD COUNT INCORRECT

#CCLR,RKCST(R2) :CLEAR RK611
RKCS1(R2),T.CS1 :STORE COMMAND AND STATUS REG. 1
RKCS2(R2) . T.CS2 :STORE COMMAND AND STATUS REG. 2

MOV
CMP
BEQ
ERROR

#1R,E.CS2
E.CS1,T.CS
158
77

MOV

158:

8%
72
E.CS2,7.CS2

MOV
MoV
MOV

(WP

BEQ
ERROR

SeTEST 17
1B ]

#ROY E.CST

:LOAD EXPECTED (S

E.CS2,7.CS2

*CHECK IF NEM CLEARED
;YES, GO ON TO NEXT TEST
€S2 INCORRECT

1ST17
100

1LOAD EXPECTED (S2
*CHECK COMMAND AND STATUS REG. 1
YES, CHECK €S2
1CS1 INCORRECT

BUS ADDRESS BIT 16

P
s
ie

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

READ THE SILO AND MAKE SURE RIGHT CONTENTS ARE READ.

CHECK BUS ADDRESS AND WORD COUNT.

i
&

]

i
s

SPECIFY A ONE WORD DATA TRANSFER FROM 200000.

REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 177776.
NOTE:

. @

THIS TEST IS ONLY EXECUTED IF MORE THAN 32K

OF MEMORY IS ON THE SYSTEM,

SR28
‘U"gg

NI
AN
=t YN

015572
013576
015600
015604
015610
015612

222832
SN
ONN
C)Chh()é;

015564
015564

»O-200

015536
015540
015546
015552
015554
015562

-‘hflSEUflUiSE
~N~
NN

E;"".'..'."""""""'.'"""..Q"."'l""""'..".Q"Q"

3706
3707
3708
3709
3710
3711

003500

;;."..""""'Q".".'"""".'."'."'..Q.Q"'l""t""'."'

704
705

023737

3701
3702
3703

015372
015400
015402
015404
015412
015414
015416
0154264
015426
015430
015436
015440
015442
015450
015452
015454
015482
015470
015476
015504
015512
015520
015522
0155264
015532
015534

- i O
o

3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
36764
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700

19-JUN-80 13:49

CIR6CD.PIY

E
6
19-JUN-80 13:52 PAGE 70
MACY11 30A(1052)
16
NON=EXISTENT MEMORY

000144
043750

001200

002000

044216

000001
177777

001200

052357
001220

052367

T§T17:

SCOPE

MOV
TSt
BPL
CMP
BLO

0100, .8TIMES
$KT11
18
#2000,8LSTBK
28

;;00 100. ITERATIONS
*CHECK FOR MEMORY MANAGEMENT
NO, BYPASS TEST
:CHECK IF ENOUGH MEMORY
:YES, DO TEST

MOV

2 STINES

;FORCE INTERATION COUNT 10 1

648

*NO, GO TO NEXT TEST

nov

$TESTN.-(SP)

=2 :SAVE STESTN FOR TYPEOUT

TYPE

,1STBY2

INC

BNE

TYPE

1YPOC

-1

1STBY1

:ONLY DO ONCE

“TYPE TEST N BYPASSED

1160 TYPE--OCTAL ASCII(ALL DIGITS)

SEQ 0069

CIR6CDO RK6T1 DSKLS CTRL PRTY

CIR6CD.P11

19-JUN-80 13:49

MACY1IN 3??;1052)

19-JUN-80

BUS ADDRESS B

}%:?g

PAGE M

§;}§

015616

000137

016652

6648:

JMP

18120

;G0 TO NEXT TEST

3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725

015622
015626
015634
015640
015646
015652

013702
012737
005237
013737
005037
012737

001270
002000
177572
064406
177572
015660

2%:

001110

MOV
MOV
INC
MOV
CLR
MOV

$BASE ,R2
#2000.KIPAR6
SRO
NPRBUF ,140000
SRO
#3%,SLPERR

;LOAD K611 BASE
:LOAD PAGE ADDRESS 6 FOR DATA
:TURN ON MEMORY MANAGEMENT
;LOAD WORD IN MEMORY
:TURN OFF MEMORY MANAGEMENT
*LOAD LOOP ON ERROR LOCATION FOR
:
SUBTEST LOOP

015660
015660
015666
0156764

012762
012762
012762

100000
000040
177777

000000
000026
000002

MOV
MoV
MOV

#CCLR,RKCS1(R2) ;CLEAR RK611
#OMD ,RKMRI1(R2)
;PUT RK611 [N DIAGNOSTIC MODE
#-1_RKWC (R2)

3727
3728
3729

015710
015716
015722

012762
012700
012762

000427
000312
000440

000000

MOV
MOV
MoV

#BA16 ! WRHEAD .RKCS1
(R2)
#50.+4+2,R0
S ISSUE ENOUGH CLOCKS UNTIL
#OMD'MCLX ,RKMRI(RZ) ;
INDEX PULSE

3731
3732
3733
373,
3735
3736
3737
3738

015736
015740
015742
015746
015754
015762
015770
015772

005300
001370
012700
012762
012762
012762
005300
001370

3741
3742
3743
3744
3745
3746
3747
3748
3749
3750

016006
016014
016022
016024
016026
016034
016042
016050
016054
016056

012762
012762
005300
001370
016237
016237
016237
012700
005300
001376

172354
140000

38:

3726 015702 012737 000427 003500
000026

3730 015730 012762 000040 000026

739
7640

3751
3752
3753
3754
3755
3756

3757
758
759
760

3761
3762
3763
764
765

3766
3767

015774
016002

016060
016066
016074
016102
016106
016114

016116
016120
016126
016130

016132
016140
016142
016144

016152

016154
016156

01%762
012700

016237
012737
012737
005037
023737
001401

104101
023737
001401
10410;

023737
001401
104103

023737
001401

104104
016237

000004
000240
000640
000240
000040
000045

000026
000026
000026

MOV

5%:

6%:

000026

7%:

MOV

DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV

000440
000040

000026
000026

000000
000004
000002
000024

003440
003444
003442

000010
000300
000002
003502
003520

003450
003510
003504

003510

003450

10%8:

003504

003444

118:

003502

003442

12%:

ERROR
(MP

000024

003462

13%:

ERROR
MoV

8s:

MOV
MOV
DEC
BNE
mMov
MoV
MOV
MOV
DEC
BNE

Mov
MOV
MOV
CLR
CMpP
BEQ

003440

ERROR
(MP
BEQ
ERROR

(MP
BEG
BEO

#8AT6
' WRHEAD ,E.CST ;LOAD COMMAND
#DMD .RKMR{ (R2)

RO
5¢
84 RO
;SIMULATE INDEX PULSE
#DMD ' MIND, RKMR1 (R2)
#DMD I MIND {MCLK,RKMRY
(R2)
#OMD ! MIND ,RKMR1
(R2)
RO
63
#OMD ,RKMR
#37..R0

(R2)

:ISSUE 1 NPR TRANSFER

#OMD I MCLK, RKMRT (R2)
#DMD
. RKART (R2)
RO
7%
RKCST(RZ),T.CST ;STORE COMMAND AND STATUS REG. 1
RKBA(RZ) ,T.BA
:STORE BUS ADDRESS
RKWC(R).T.WC
:STORE WOR
#20..R0
:WAIT FOR OQUTPUT READY
RO
8s

RKCS2(R2),7.CS2
#IR'OR.E.CS2
#2,€.8A
£.WC
E.CSY,T. (ST
108

:STORE COMMAND AND STATUS REG. 2
:LOAD EXPECTED €S2
SLOAD EXPECTED BUS ADDRESS
:LOAD EXPECTED WORD COUNT
;CHECK COMMAND STATUS REG. 1 CORRECT
SYES, CHECK €S2

E.BA.T.BA
12%
103

TCHECK IF BUS ADD INCORRECT
TYES, CHMECK WORD COUNT CORRECT
:BUS ADDRESS INCORRECT

101
E.CS2,7.C52
118
102

E.WC,T.uC
138

104
RKDB(R2),1.08

1CS1 INCORRECT
SCHECK IF €S2 CORRECT
SYES, CHECK BUS ADDRESS CORRECT
10S2 INCORRECT

‘CHECK IF WORD COUNT CORRECT
SYES, CHECK DATA BUFFER

;WORD COUNT INCORRE(T
;READ DATA BUFFER

SEQ 0070

19-JUN-80 13:49

3768

016164

013737

3770
3771
3772
3773
3776
3775
3776
3777

016200
016202
016204
016206
016214
016220
016226
016234

001401
104105
104415
012737
005237
013737
013737
005037

064406

3769 016172 023737 003522

3778

016240

012737

001777
177572
064406
064410
177572

016246

MACY11 30A(1052)

003522

003462
172354

001110

016246
016254
016262
016270
016276
016302
016310
016316

012762
012762
012737
012762
005037
012762
012737
012762

100000
000040
177777
177776
003504
177776
000427
000027

000000
000026
003502
000002

3791
3792
3793

016330
016336
016344

012762
012762
005300

000440
000040

000026
000026

016350

0157

000004

016362
016370

012762
012762
005300
001370
012762

000640
000240

000026
000026

000040

000026

016246

3790 016324 012700 000312

3794

016346

796

016356

795

3797
3708
3799
3800
3801

016376
016400
016402

001370
012762

000240

3802 016410 012707 000002
3803 016414 012700 000045
3804
3805
3806
3807
3808

3809
3810

3811
3812
3813
3814
3815

3816

§g17
18

3819
3820

3821

3822
3823

016420
016426
016434
016436
016440

016446
016454

016462
016466
016470
016474
016476

016500

016506
016514

016522
016524

016526

016534
016536

012762
012762
005300
001370
016237

016237
016237

005737
001404
012700
005300
001376

016237

012737
023737

001401
104101

023737
001401
104102

000026

000000
000004

003440
003444

000300
003500

003510

22%:

BEQ
ERROR
SCOP?
MOV
INC
MOV
MOV
CLR

158
105

*YES, CHECK IF LOOP ON ERROR
:DATA INCORRECT
*CHECK IF LOOP ON ERROR
:LOAD PAGE ADDRESS 6 FOR DATA
STURN ON MEMORY MANAGEMENT
:LOAD WORDS IN MEMORY

238 :

248:

003450

003510
003440

003450

268%:

28%:

‘CHECK IF DATA CORRECT

#2000-1,K1PARG
SRO
NPRBUF ,140076
NPRBUF +2,140100
SRO
:TURN OFF MEMORY MANAGEMENT
#208,8LPERR

:LOAD LOOP ON ERROR LOCATION FOR

SUBTEST LOOP

#CCLR,RKCST(R2) ;CLEAR RK611
#OMD ,RKMRY1(RZ2)
;PUT RK611 IN DIAGNOSTIC MODE
#-1,E.4C
:LOAD WORD COUNT REG.
#-2 .RKWC (RQ)
E.BA
:LOAD BUS ADDRESS
#177776 ,RKBA(R2)
#BA16
' WRHEAD ,E.CS1 ;LOAD COMMAND
#URHEAD ,RKCST (R2)

MOV
MOV
DEC

#OMD ' MCLK ,RKMR1(R2) ;
#OMD
. RKMRT (R2)
RO

MOV

#50.¢4+5,R0

;ISSUE ENOUGH CLOCKS UNTIL
INDEX PULSE

21%

MOV

#4 RO

MOV
MOV

#OMD {MIND {MCLK,RKMR1(R2)
#OMD ' MIND,RKMR1
(R2)

MOV
MOV

22 i
237, RO

;ISSUE 2 NPR TRANSFERS

RXBA(R?2),T.BA
RKWC(R2) ,T.8(C

;STORE BUS ADDRESS REG.
JSTORE WORD COUNT

MOV

L [0]")
MOV
DEC
BNE
Mov

MOV
mov

258:

E.0B,71.08

MOV
L [1)"]
MOV
MOV
CLR
MOV
MOV
MOV

DEC
BNE
MOV

003442

000024

000010

21%:

SEQ 0071

:LOAD EXPECTED DATA BUFFER

BNE

000026
000026

003502

208:

PAGE 72

NPRBUF ,E.DB

MOV

000004
003500
000000

000440
000040

000002

15¢:

13:52

MOV

CMP

140076
140100

3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789

19-JUN-80

BUS ADDRESS BIT 16

187
BEQ
MoV
DEC
BNE

mov

MOV
CHpP

BEQ
ERROR

CHp

BEQ
ERROR

:SIMULATE INDEX PULSE
#DMD ' MIND , RKMR1 (R2)

RC
228
#DMD , RKMR1 (R2)

#OMD 'MCLK ,RKMR1(R2)
#OMD ,RKMR1 (R2)
RO
248
RKCST1(R2),T7.CSY ;STORE COMMAND AND STATUS REG. 1

E.WC
26%
#20.,R0
RO
258

:CHECK IF FIRST WORD
:NO, GET (S2
JWAIT FOR QUTPUT READY

RKCS2(R2),T1.CS2 ;STORE COMMAND AND STATUS REG 2
#IR'OR,E.CS2
€.CS1,T.CS1

:LOAD EXPECTED (S2
:CHECK COMMAND STATUS REG 1 CORREC(CT

288
101

TYES, CHECK €S2
1CS1 INCORRECT

298
102

*YES, CHECK BUS ADDRESS
:(S2 INCORRECTY

€.082,71.CS2

;CHECK COMMAND STATUS REG 2 CORRECT

CZR6CDO RK611 DSKLS CTRL PRT3

CIR6CD.P1T

]

6 6

19-JUN-80
°,:52
MACY11 30A(1052)
Tz
BUS ADDRESS BIT 16

3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836

016540
016546
016550
016552
016560
016562
016564
016572
016576
016600
016602
016606
016612

023737
001401
104103
023737
001401
104104
062737
005237
005301
001305
012700
012703
016237

0035064

003444

29%:

003502

003442

308:

000002
003502

003504

31%:

000002
064406
000024

003462

3838

016624

023737

003522

003462

3840
3841
3842
3843
3844

016634
016636
016640
016642
016644

104105
005300
001364
104415
012762

36$:

100000

000000

cMP
BEQ
ERROR
CMP
BEQ
ERROR
ADD

INC
DEC
BNE
MoV
MOV
Mov
MOV
CMP
BEQ
ERROR
DEC
BNE
SCOP1
Mmov

6
PAGE 73

E.BA,T.BA
30%
103
E.WC, T.W(C
318
104
#2,E.BA
E.w(
R1
23%
#2,R0
#NPRBUF ,R3
RKOB(R2),7.08
(R3)+,E.0B
€.08,7.08
36%
105
RO
35%

:CHECK BUS ADDRESS CORRECT
;YES, CHECK WORD COUNT
;BUS ADDRESS INCORRECT
;CHECK WORD COUNT CORRECT
sYES, GET TEXT WORD
;WORD COUNT INCORRECT

: INCREMENT BUS ADDRESS AND

:
WORD COUNT
;CHECK IF FINISHED
:NO, GET SECOND WORD
;LOAD COUNT AND ADDRESS WORD
:
DATA COMPARE
;READ DATA BUFFER
:GET EXPECTED DATA
;CHECK IF CORRECT
sYES, CHECK IF FINISHED
;DATA BUFFER INCORRECT
;CHECK IF FINISHED
sNO READ SECOND WORD
:CHECK IF LOOP ON ERROR
#CCLR,RKCST(R2) ;CLEAR RK611

;‘t"fitt."'...t"""""""""'.'t..Q'."Q."Q.'.""'Q.t"t'

SeTEST 20
M

BUS ADDRESS BIT 17

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

b
M

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.

'
* %
b

NOTE:

'
|§

THIS TEST IS ONLY EXECUTED IF MORE THAN 64K
OF MEMORY IS ON THE SYSTEM.

3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
§3;2

016654
016662
01
016670
016676
016700
016700
016706
016712
016714
016720
016726
016726
016732

012737
005737
100004
022737
103417

000144
043750

001200

004000

044216

012737
005227
001007
104401
013746
104402
104401
000137

000001
177777

001200

3877
3878
3879

016736
016742
016750

013702
012737
005237

001270
004000
177572

XX XX 2222202002222
222002 000022220000 0RRRRRRRRRRRRR))

15120:

18:

SCOPE

MOV
ST
BPL
CMP
BLO

#100.,$TIMES
$KT11
1
#4000,8LSTBK
28

;:DO 100. ITERATIONS
SCHECK FOR MEMORY MANAGEMENT
'NO. BYPASS TEST
:CHECK IF ENOUGH MEMORY
YES, 0O TEST

MOV

" ,8TINES

:FORCE INTERATION COUNT TO |

8NE

648

*NO, GO TO NEXT TEST

MOV

$TESTN, - (SP)

1:SAVE STESTN FOR TYPEOUT

INC

052357
001220

TYPE

052367
017766

64%:
172354

2%:

TYPOC
TYPE
JWP

MOV
MOV

INC

#-1

TSTBY1

,T1STBY2

SONLY DO ONCE

“TYPE TEST N BYPASSED

1160 TYPE--OCTAL ASCII(ALL DIGITS)

fs121

;60 TO NEXT TEST

$BASE ,R2
#4000 KIPAR6

:LOAD K611 BASE
:LOAD PAGE ADDRESS 6 FOR DATA

SRO

“TURN ON MEMORY MANAGEMENT

SEQ 0072

~r~

CIR6CDC RKO611 DSKLS CTIRL PRT3
CZR6CD.PIY
19-JUN-80 13:49

CZR6COO RK6T11 DSKLS CTRL PRT3
CIR6CD.P11
19-JUN-80 13:49
3880
3881
3882
3883
3884
3885
3886
3887

3889

3890
3891
3892

MOV
MOV
MoV

#CCLR,RKCST(R2)
#0MD ,RKMRI1(R2)
#-1,RKWC (R2)

;CLEAR RK611
;PUT RK611 IN DIAGNOSTIC MODE

MOV
MOV
MOV

#BAY7 IWRHEAD .RKCS1(R2)
#50.%h+2 RO
SISSUE ENOUGH CLOCKS UNTIL
#OMD 'MCLK ,RKMR1(RZ) :
INDEX PULSE

012762
012762
012762

100000
000040
177777

000000
000026
000002

017026
017032
017030

012762
012700
012762

001027
000312
000440

000000

3908

017142

3911
3912
3913
3914
3915
3916
3917
3918

017164
017170
017172
017174
017202
017210
017216
017222

3934
3935

;LOAD WORD [N MEMORY
JTURN OFF MEMORY MANAGEMENT
;LOAD LOOP ON ERROR LOCATION FOR
:
SUBTEST LOOP

016774
016776
017002
017010

017052
017054
017056
017062
017070
017076
017104
017106
017110
017116
017122
017130
017136

3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3031
3932
3933

NPRBUF
, 140000
SRO
#3%,8LPERR

001110

3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3906
3905
3906

3909
3910

MOV
CLR
MOV

064406
177572
016774

3893 017044

3007

140000

013737
005037
012737

017140

017150
017156

017230
017232
017234
017242
017244
017246
017254
017256
017260
017266
017270
017272
017300
017306
017314

017316
017320

012737

012762

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

001370
016237
016237
016237
012700
005300
001376
016237
012737
012737
005037
023737
001401
104101
023737
001401
1064102
023737
001401
104103
023737
001401
104104
016237
013737
023737

001401

104105
104415

001027

000040

000C0&
000240
000640
000240

000026

000026
000026
000026
000026

000000

003440

000024

38:

003500

000040
000045
000440
000040

000006
000002

6
PAGE 74

19-JUN-80 13:52
BUS ADDRESS B1T 17

016754
016762
016766

017016

MACY11 3?561052)

000026
000026

MOV

S%:

6S:

7%:

003444
003442

8s:

000010
000300
000002
003502
003500

003450
003510
003504

0C3510

003450

10%:

003504

0034446

118:

003502

003442

12%:

000024
064406
003522

003462
003522
003462

138:

003440

MOV

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

BNE
MOV
MOV
MOV
MOV
DEC
BNE
MoV
MOV
MOV
CLR
CMpP
BEQ
ERROR
CHp
8tQ
ERROR
CHpP
BEQ
ERROR
CMP
8tQ
ERROR
MOV
MoV
CHP

BEO

15¢:

ERROR
SCOP!

sEQ 0073

#8A17 'WRHEAD,E.CST :LOAD COMMAND

#0MD
. RKMRT (R2)

RO
5$
74RO
;SIMULATE INDEX PULSE
#OMD ' MIND, RKMR1 (R2)
#OMD I MIND {MCLK , RKMR1 (R2)
#OMD ' MIND,RKMR1
(R2)
RO
63
#DMD ,RKMR1 (R2)
#37. R0
;ISSUE 1 NPR TRANSFER
#DMD I MCLK ,RKMRY
(R2)
#0MD ,RKMRT (R2)
RO

RKCST1(R2),T.CST

:STORE COMMAND AND STATUS REG.

#20.,R0
RO
8s
RKCS2(R2),T.CS2
#IR'OR,E.CS2
#2,E.BA
E.wC
E.CS1,T.CH1

:WAIT FOR OUTPUT READY

RKBA(R?2),T.BA
RKWC(R2).T.WC

108
101
€.0S2,7.CS2
11¢
102
E.BA,T.BA
128
103
E.wC,T.WC
13¢
104
RKDB(R2),7.0B
NPRBUF ,E.DB
£.08,7.0B
158
105

;STORE BUS ADDRESS
:STORE WOR

:STORE COMMAND AND STATUS REG. 2
:LOAD EXPECTED (€S2
JLOAD EXPECTED BUS ADDRESS
;LOAD EXPECTED WORD COUNT
:CHECK COMMAND STATUS REG. 1 CORRECT
YES, CHECK €S2
+CS1 INCORRECT
:CHECK IF €S2 CORRECT
;YES, CHECK BUS ADDRESS CORRECY
:CS2 INCORRECT
:CHECK IF BUS ADD INCORRECTY
1YES, 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
*CMECK IF DATA CORRECT
YES, CHECK IF LOOP ON ERROR
:DATA INCORRECT
SCHECK [F LOOP ON ERROR

]

CZR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.P11
19-JUN-80 13:49
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
§963
964
3965

3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978

3966

3979
3980
3981
3982
3983
3984
3985

§986
987

3988

3989
990
3991

017322
017330
017334
017342
017350
017354

172354

MoV
INC
MOV
MoV
(LR
Mov

#4000-1,K1PAR6
SRO
NPRBUF ,140076
NPRBUF ¢2,140100
SRO
#208,$LPERR

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

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#-1,E.4C
;LOAD WORD COUNT REG.
#-2 ,RKWC(R2)
E.BA
:LOAD BUS ADDRESS
#177776,RKBA(R2)
#BA17!WRHEAD ,E.CS1 ;LOAD COMMAND
#BA16 ! WRHEAD ,RKCST(R2)
#50.+442 R0
; ISSUE ENOUGH CLOCKS UNTIL
#OMD!MCLK,RKMR1(R2) ; INDEX PULSE
#OMD ,RKMR1(R2)
RO
21$
44 ,RO
; SIMULATE INDEX PULSE
#OMD ! MIND ,RKMR1(R2)
#OMD !MIND!MCLK ,RKMRT(R2)
#OMD 'MIND,RKMR1(R2)
RO
22%
#0MD ,RKMR1(R2)
2 R1
:ISSUE 2 NPR TRANSFERS

MoV
MoV
DEC
BNE
MoV
MoV
MOV
TST
8EQ
MoV
DEC
BNE

#OMD 'MCLK,RKMR1(R2)
#OMD ,RKMR1(R2)
RO
248
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKBA(R2) ,T.BA
;STORE BUS ADDRESS REG.
RKWC(R2),T.WC
;STORE WORD COUNT
E.w(
;CHECK IF FIRST WORD
26%
:NO, GET (S2
#20. ,RO
;WAIT FOR OUTPUT READY
RO
25%

003777
177572
064406
064410
177572
017362

017432
017440
017444
017452
017460
017462
017464
017470
017476
017504
017512
017514
017516
017524

012762
012762
012737
012762
005037
012762
012737
012762
012700
012762
012762
005300
001370
012700
012762
012762
012762
005300
801370
012762
012701

100000
000040
177777
177776
003504
177776
001027
000427
000312
000440
000040

000040
000002

000026

017534
017542
017550
017552
017554
017562
017570
017576
017602
017604
017610
017612

012762
012762
005300
001370
016237
016237
016237
005737
001404
012700
005300
001376

000440
000040

000026
000026

000000
000006
000002
003502

003440
003444
003442

017530

017614
017622
017630
017636
017640
017642
017650
017652
017654

017662

017664
017666
017674

012700

016237
012737
023737
001401
104101
023737
001401
10410
023737

001401

104103
023737
001401

000004
000240
000640
000240

000045

140076
140100
001110

000000
000026
003502
000002

20$:

000004
003500
000000
000026
000026

000026
000026
000026

000024

21%:

22%:

238:

24$%:

258:

000010
000300
003500

003450
003510
003440

268%:

003510

003450

28s%:

003504

003444

298:

003502

6
PAGE 75

19-JUN-80 1%:?2
BUS ADDRESS BIT
17

012737
005237
013737
013737
005037
012737

017362
017362
017370
017376
017404
017412
017416
017426

MACY1Y 3?361052)

003442

308:

MoV

MoV
mov
4.4
BEQ
ERROR
cHpP
8tQ
ERROR
CMHP

BEQ

ERROR
(MP
8tQ

SEQ 0074

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

#37. R0

RKCS2(R2),T1,CS2
#IR!OR,E.CS2
E.CS1,T.CSY
283
101
E.CS2,7.(S2
298

;STORE COMMAND AND STATUS REG 2
;LOAD EXPECTED CS2
;CHECK COMMAND STATUS REG 1 CORRECT
;YES, CHECK CS2
:CS1 INCORRECT
;CHECK COMMAND STATUS REG 2 CORRECY
JYES, CHECK BUS ADDRESS

30%

;YES, CHECK WORD COUNT

102
€.BA,T.BA
103
g.UC.Y.UC
1%

:(S2 INCORRECT
:CHECK BUS ADDRESS CORRECT
:BUS ADDRESS INCORRECTY
;CHECK WORD COUNT CORRECT
JYES, GET TEXT WORD

—

C IR6CDO0 RK611 DSKLS CTRL PRT3
C IR6CD.P1Y
19-JUN-80 13:49

3992
3993
3994
3995
3996
3997
3998
3999

4000
4001
4002
4003
4004
4005
4006
4007

4008
4009
4010
N
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023

40264
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036

4037
28%8

017676
017700
017706
017712
017714
017716
017722
017726

017734
017740
017746
017750
017752
0177564
017756
017760

104104
062737
005%37
005301
001305
01%700
012703
016237

012337
023737
001401
104105
005300
001364
104415
012762

000002
003502
000002
064406
000024
003522
003522

30A(1052) 19-JUN-80
13: 5%
120
BUS ADDRESS 81T 1

003504

318:

003462

35%:

003462

36%:
100000

000000

PAGE 76

SEQ 0075

ERROR
ADD
INC
DEC
BNE
MoV
MoV
MoV

104
#2,E.BA
E.wC
R1
238
#2,R0
#NPRBUF ,R3
RKDB(R2),T.DB

;WORD COUNT INCORRECT
: INCREMENT BUS ADDRESS AND
;
WORD COUNT
;CHECK [F FINISHED
:NO, GET SECOND WORD
:LOAD COUNT AND ADDRESS WORD
:
_DATA COMPARE
;READ DATA BUFFER

BEQ
ERROR

36%
105

;YES, CHECK IF FINISHED
sDATA BUFFER INCORRECT

Mov
CMP

DEC

BNE
SCOP1
mov

(R3)¢,E.DB
€.08,7.08

;GET EXPECTED DATA
;CHECK IF CORRECT

;CHECK IF FINISHED

35%

:NO READ SECOND WORD
sCHECK IF LOOP ON ERROR
#CCLR,RKCST(R2) ;CLEAR RK611

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

CeTEST 21
"'

i
i
‘e

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

SPECIFY A ONE WORD DATA TRANSFER FROM 600000.

NOTE:

020042
020046

000004
012737
005737
100004
022737
103417

000144
043750

001200

006000

044216

012737
005227
001007
104401
013746
104402
104401

000001
177777

001200

000137

052367
021102

1ST21:

IS ONLY EXECUTED IF MORE THAN 96K

OF MEMORY IS ON THE SYSTEM.

001270
006000
177572

4044
4045

020076
020102

005037
012737

177572
020110

064406

SCOPE
MOV
ST
BPL
CMP

#100.,8TIMES
$KT11
1%
#6000,8LSTBK

;:D0 100. ITERATIONS
SCHECK FOR MEMORY MANAGEMENT
*NO, BYPASS TEST
:CHECK IF ENOUGH MEMORY

MOV

2 ,8TINES

;FORCE

BNE

648

*NO, GO TO NEXT TEST

BLO

INC

TYPE

052357
001220

01370;
012737
005237

013737

THIS TEST

E:"."'""'."'""'""'""""..'Qt"""""".""'t'"t"

020032
020056
020064

020070

DRIVE O.

READ TME SILO AND MAKE SURE RIGHT CONTENTS ARE READ.
REPEAT FOR A TWO WORD TRANSFER FROM ADDRESS 577776.
CHECK BUS ADDRESS AND WORD COUNT.

017766
017770
017776
020002
020004
020012
020014
020014
020022
020026
020030
020034
020040

ADDRESSING GREATER THAN 96K

i
i
;e

4040
4041
4042
4043

MACY11

MOV

172354
140000

001110

TYPOC
TYPE

2-{

TSTBYY

$TESTN, = (SP)
TSTBY2

SYES, DO TEST

INTERATION COUNT TO 1

SONLY DO ONCE

STYPE TEST N BYPASSED

::SAVE STESTN FOR TYPEOUT

1360 TYPE==OCTAL ASCII(ALL DIGITS)

648:

JMP

fs122

:60 TO NEXT TEST

28:

MOV

$BASE ,R2

;LOAD K611 BASE

MOV
INC
MOV
CLR
MOV

#6000 KIPAR6
SRO
NPRBUF ,140000
SRO
#38.SLPERR

s o m—

:LOAD
STURN
:LOAD
:TURN
*LOAD

PAGE ADDRESS 6 FOR DATA
ON MEMORY MANAGEMENT
WORD IN MEMORY
OFF MEMORY MANAGEMENT
LOOP ON ERROR LOCATION FOR

SUBTEST LOOP

000004
000240
000640
000240

000000

3s:

000000
000026
000026

000026
000026
000026

000040
000045
000440
000040

000026

000000
000004
000002
000024

003440
003444
003442

000010
000300
000002
003502
003500

003450
003510
003504

000026
000026

5%:

6%:

7%:

8s:

8tQ

108:

003504

003444

118:

003502

003442

128:

000024
064406
003522

003462
003522
003462

138:

140076
140100

DEC
BNE

CLR
CMP

003440

172354

MOov
Mov
MoV
MOV

MOV
MOV
MOV

003450

177572
0644 )6
4610
177572

MOV
MoV
MOV

DEC
BNE

003510

005777

MOV
MoV
MoV
MOV
MOV
MoV
MOV
MoV
DEC
BNE
Mov
MoV
MOV
MOV
OE(C
BNE
MOV

ERROR
CHP

#CCLR,RKCSY

;CLEAR RKé11

#50.¢4+2,R0
; ISSUE ENOUGH CLOCKS UNTIL
#OMD
I MCLK , RKMR1( R2) ;
INDEX PULSE

#0M0 ,RKMR{ (R2)
RO

#,R0
s SIMULATE INDEX PULSE
#OMD ! MIND,RKMR1
(R2)
#OMD
I MIND {#" LK, RKMR1(R2)

#OMD | MIND .RKMR
(R2)

RO
68
#OMD ,RKMR1 (R2)

#37..R0

. ISSUE 1 NPR TRANSFER

#OMD
I MCLK , RKMRY( R2)

#0MD
. RKMRT (R2)

RO
7%
RKCST1(R2),T.CS1
RKBA(R2) ,T.BA
RKWC(R2),T.WC
#20. ,RO
RO

;STORE COMMAND AND STATUS REG. 1
:STORE BUS ADDRESS

s STORE WOR

;WAIT FOR OUTPUT READY

8s
RKCS2(R2),7.CS2 ;STORE COMMAND AND STATUS REG. 2
#IR'OR,E.CS2
:LOAD EXPECTED €S2
#2,E.BA
:LOAD EXPECTED BUS ADDRESS
.C

081, 7.

$2,1.Cs2
.T.BA

c.T.u(C

) (R2),7.0B
BUF ,E.DB

[

15%:

R2)

#OM0 , RKMRY(
;PUT RK611 IN DIAGNOSTIC MODE
#-1, RKMC (R2
#BAT6!BA17 'WRHEAD E.CST ;LOAD COMMAND
#BA161BA17 IWRHEAD ,RKCS1 (RD)

100000
000040
e
0016%7
001427
000312
000440
000040

012762
012762
0127%
01%7
012762
012700
OV 76%
012762
005300
001370
012700
012762
012762
012762
005300
001370
012762
012700
012762
012762
005300
001370
016237
016237
016237
012700
8853?0
1376
015237
012737
012737
005037
023737
0016401
104101
023737
001401
10410;
023737
001401
104103
023737
001401
104104
016237
013737
883737
1401
104103
104413
832737
5;37
013 g?
013737
005037

020110
020110
020116
0201%4
020132
020140
020143
020152
020160
020166
020170
020172
020176
020204
020212
020220
020222
020224
020232
020236
020244
020252
020254
020256
020264
020272
020300
CSO
0 0308
020310
020316
020324
020332
020336
020344
020346
020350
020356
020360
020362
020370
020372
020374
020402
020404
020406
020414
020‘§5
0204
020432
020434
020436
020444
020450
020456
020464

oOwn

4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4018
4089
4090
4091
4092
4093
(0%
4095
&
4097
4098
4099
4100
4101
6102
4103

L 6
19-JUN-80 13:52 PAGE 77
MACY11 30A(1052)
ADDRESSING GREATER THAN 96K
T

SCoxoRw
fl(v‘flgf\)flfi - o

CIR6CDO RK611 DSKLS CIRL PRT3
CIR6CD.P1Y
19-JUN-80 13:49

8.1.08

:LOAD EXPECTED WORD COUNT
TCHECK COMMAND STATUS REG. 1 CORRE(T

1YES, CHECK €S2

1CS1 INCORRECT
SCHECK IF €S2 CORRECT
YES, CHECK BUS ACDRESS CORRECT
1052 INCORRECT
SCHECK IF BUS ADD INCORRECT
SYES, CHECK WORD COUNT CORRECT
:BUS ADDRESS INCORRECT
SCHECK IF WORD COUNT CORRECT
SYES, CHECK DATA BUFFER
‘WORD COUNT INCORRECT
‘READ DATA BUFFER
:LOAD EXPECTED DATA BUFFER
:CHECK IF DATA CORRECT
*YES, CHECK IF LOOP ON ERROR

:DATA INCORRECT

#6000-1,KIPARS

TCHECK IF LOOP ON ERROR
:LOAD PAGE ADDRESS 6 FOR DATA

NPRBUF
, 140076

1. 0AD WORDS IN MEMORY

)

STURN ON MEMORY MANAGEMENT

NPRBUF ¢2,140100
;TURN OFF MEMORY MANAGEMENT
SRO

SEQ 0076

CZROCOO RK611 DSKLS CTRL PRTY
CIR6CD.PIT
19-JUN-80 13:49

19-JUN-80 13:52 PAGE 78
ADDRESSING GREATER THAN 96K
MOV

#2088 ,$LPERR

:LOAD LOOP ON ERROR LOCATION FOR

MOV
MOV

#CCLR,RKCST(R2)
#OMD,RKMRY (R2)

;CLEAR RK611
:PUT RK611 IN DIAGNOSTIC MODE

MOV
CLR
MOV
MOV

#-2.RKWC (R2)
€.BA
;LOAD BUS ADDRESS
#177776,RKBA(R2)
#BA16!BA17 WRHEAD E.CSY ;LOAD COMMAND

6104

020470

012737

020476

001110

4106
4107
4108
4109

020476
020476
020504

012762
012762

100000
000040

000000
000026

4111
4112
«113
G114

020520
020526
020532
022540

O1 76;
005037
01273;
012737

177776
003504
177776
001427

000002

4116

020554

012700

000312

6105

4110

4115

6117
6118

020512

020546

01276%
012762

020604

o1zre;

020574
020576
02

6123

4124

4125
4126
6127

012762

020560
020566

4119
4120
6121

4122

01%737

020612

01274

000640

020626
020630
02063%

005300
001370
012762

020620 012762

020650

01276

M2
6133
134
6135
6136
6137
4138
6139

0
02
020670
020676
020704

020712
020716
020720

3
001370
016237
816237
16%37
005737
001404
012700

41642
6163
Q1646
4145
4146
4147
4148
4149
4150
6151
«15;

020730
(0207%
(020744
020752
020754
020756
020764
0207
0207
020776
021000

016237
812737
23737
001401
10«131
023737
001409
10410;
23737
001401
1041 ;

415

4154
6155
‘153
4157
4158
159

000440
000040
000004

6130

4140
4141

001027

005300
003370
012700

4128 02040 012701
129 106k 012700

IXRL

177777

ogoosc 8337

020724
020726

05100

02101
021012
021014
021022
8 1o§8
0210

005300
801376

23737

1401
1041
88;7 7
fo’
885 1
1308

000000

000026
000026

000240

000026

000440

MOV

000004
003500

000026

000002
000045

20$:

003502

000240

000040

000026

MOV

218:

000026

000000
000004
000002
003502

003440
003444
003442

000024

22%:

238:

24%:

258:

003450
003510
003440

268:

003510

003450

28%:

003504

00344k

298:

003502 003442 308:
003504

318:

#-1,€.uC

SEQ 0077

SUBTEST LOOP

*LOAD WORD COUNT REG.

#BA17 | WRHEAD,RKCST
(R2)
#50.44+2,R0

- 1SSUE ENOUGH CLOCKS UNTIL

RO
218
#4 RO

:SIMULATE

MOV
MOV

#OMD
' MCLK ,RKMRI(R2) ; INDEX PULSE
#0MD ,RKMRT (R2)

MOV

#DMD 'MIND , RKMR1 (R2)

[ [0)")

MOV

DEC
BNE
MOV

000010
000300
003500

MOV

DEC
BNE
MOV

000025

000040

00350

né

MACYNY 3?3%1052)

mov
MoV
MOV

MOV

DEC
BNE
MOV
MoV
MoV
TST
BEQ
MOV
DEC
BNE

MOV
)]
], [
BEO
ERROR
(MmP
BEQ
ERROR
(m
BEQ
ERROR

(mP

BEQ
ERROR
ADD
INC
DEC
BNE

INDEX PULSE

#OMD'MIND'MCLK ,RKMRT (R2)

#DMD | MIND ,RKMR{
(R2)
RO
228
#OMD , RKMR1 (R2)

#2 Ri
3%, .80

;ISSUE 2 NPR TRANSFERS

#OMD 'MCLK ,RKMRT(R2)

#0M0
. RKMR{ (R2)

RO
248
RKCS1(R2),T.CS1
RKBA(RZ),T.BA
RKWC(R2),T.WC

E.wWC
26$
#20.,R0

:STORE COMMAND AND STATUS REG. 1
:STORE BUS ADDRESS REG.
:STORE WORD COUNT
sCHECK IF FIRST WORD
‘N0, GET €S2
*WAIT FOR OUTPUT READY

RKCS2(R2),T.CS2
#IR'OR,E.CS2
E.CSY,T.CSY
288
101
£.CS2,7.(S2
298
102
.BA,T.BA
0s
103

:STORE COMMAND AND STATUS REG 2
:LOAD EXPECTED CS2
sCHECK COMMAND STATUS REG 1 CORRECT
SYES, CHECK €S2
1CS1 INCORRECT
TCHECK COMMAND STATUS REG 2 CORRECT
SYES, CHECK BUS ADDRESS
1052 INCORRECT
:CHECK BUS ADDRESS CORRECT
SYES, CHECK WORD COUNT
:BUS ADDRESS INCORRECT

1
104
#2,E.BA
£.4C
1
238

SYES, GET TEXT WORD
‘WORD COUNT INCORRECT
S INCREMENT BUS ADDRESS AND
¢ WORD COUNT
SCHECK IF FINISHED
*NO, GET SECOND WORD

RO
25

NC,LT.6C

SCHECK WORD COUNT CORRECT

CZR6COO RK611 DSKLS CIRL PRTY
CZR6CD.PAY
19-JUN-80 13:49
4160
6161
6162
4163
4164
4165
166
0167
6168
6169
6170
“n
07
€7
6174
6175
4170
aGre
6178
479
4180
4181
4182
4183
4184

4185
4186
4187
4188
4189
4190
6191
6192
4193
0194

021032

0210
02104
02105
021054
021062
021064
021066
021070
021072
021074

0137

12703
16%
1; 7
023737
001401
104105
005300
001364
104415
012762

000002

064406
oooosa
003522
003522

003462

35¢:

003462

22,00

;LOAD COUNT AND ADDRESS WORD

MOV

RKOB(R2S,7.08

:READ DATA BUFFER

MOV
MOV

INPRBUF ,RS
(R3)+,E.08

cMP

g.oa.f.oa

ERROR

105

DEC
BNE
$COPY
MoV

000000

SEQ@ 0078

MoV

BEQ

368:
100000

N 6§
19-JUN-80 13:52 PAGE 79
ADDRESSING GREATER THAN 96K

RO
358

DATA COMPARE

:GET EXPECTED DATA

SCHECK IF CORRECT
SYES,

CHECK IF FINISHED

:DATA BUFFER INCORRECT

SCHECK IF FINISHED
INO READ SECOND WORD
:CHECK IF LOOP ON ERROR
#CCLR,RKCS1(R2) :CLEAR RK611

crqaNtteRNtRRRttRROCEiICORCCRRRROORRERRRRRRRORORNRRARCRRCOEOERRERGCEQRCCRTRCEOETS

TATEST 22
2]

SILO FILL IN 18 BIT MODE

¥
.®
. *

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

.
.

ALL 66 WORD INTO THE SILO.
CHECK THAT ALL 66
WORDS ARE CORRECT (16 LEAST SIGNIFICANT BITS,.

SPECIFY 66 WORD DATA TRANSFER.

(CLOCK

[]

';Q't"..'.."."Q""""""""'..".'Q'.".Q.Q.'.0'..."'.t"

021102
021104

000004
012737

:}gg

021112
851116
11;4
021132
021140
021146
021154
021162
021170
021176

013702
81;765
12762
01276;
012737
01276;
012737
012737
012762
012700

4197
198
4199
4200
4201
420
203
4204
6205
4206
420
4208
6209
«210

021205
021210
021216
021220
021222
021252
0212
05124
02125
02125
8 1254
1 65
02127
8;1;7‘

4.1;
618
6214
218

02136
021314
0213‘3
021320

012755
012762
005300
001370
o1g7
81 762
12762
8%276
10
137
01 73
127
12701
127000
012762
017750
O ¢

6211

MACY11 3?3{1052)

1370

ooasxg
016237

000144
001270
10000
00004
177676
177677
064406
064410
010027
010027

000000
000026
000002
003502
000004
003504
003500
000000

000440
000040

000026
000026

000312

001200

000240
000640
000240

000026
000026
000026

000040
¢ .0
¢
102
(
05

00002
00351

C b

0u0040
000000

000026
000026
003440

15122:

SCOPE

MOV
MoV
MOV

#100.,8TIMES ; ;00 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#CCLR,RKCSI(R2) :CLEAR RK611

MOV
Y
MOV
MOV
MoV
MoV

#-66.,RKMC(R2)
;LOAD WORD COUNT
#-65. ,E.WC
#NPRBUF ,RKBA(R2) ;LOAD BUS ADDRESS
#NPRBUF +2,€.BA
#WRHEAD 'CFMT,E.CS1 ;LOAD EXPECTED CS1
SWRHEAD
! CFMT RKCS1(R2) -ISSUE COMMAND

MOV

1 ¥

14 ¥
1%

:1SSUE ENOUGH CLOCKS DATA
.
"INDEX PULSE

AoV

#50.%4+2,R0

nov

SOMD
' MCLK , RKMRY (R2)
. RKMRT (R2)
20m0

DEC
BNE
MOV

68:

#0MD ,RKMRT(R2) . :PUT RK611 IN MAINTENANCE MODE

s
2 .00

-SIMULATE

nOV

oonosnluo‘nxna1(i2)

gg:

:gnoenxuo.axuai<a2>

MmOV
ROV

63
JOM0 ,RKARY (R2)
#IR'OR E.CS2

nov

i MIND MCLK , RKMR1 (R2)
#OMD

ROV

266. .0f

ROV

#0m0 .REART (R2)

nov
nov
DEC

BNE

INDEX PULSE

:LOAD EXPECTED (€S2

:ISSUE 66 NPR TRANSFERS

060.‘l0
20%0 fmcLE , REMRY(RD)
"0
1)

RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS REG.

I
4216
6217

oz13§2
021334

016%37
016237

4219
4220
4221
4222
4223

021350
021352
021356
021360
021362

001004
012700
005300
001376
016237

4218

4226

021342

021370

022737

005737

064410

000010
003502

021374
021376
021404
021412

4230
4231
6232
4233
4234
4235
4236

021416
0214264
021426
021430
021436
021440
021442

023737
001401
104122
023737
001401
104123
023737

4238
4239
4240

021452
021456
021462

104124
062737
005237

000002
003502

01%7

000120

012762
005300
001370
162737
00507

000040

4237

4261
4262

4243

6266

4245
4246
4247
4248
4249

4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265

6266

0214614

021450

104121

001401

021466
021470

005301
001301

021476

012762

021472

021504
021512
021514
021516
0215264

021530
021536
021544
021552
021560
021566
021570
021572
021600
021602
021604
021612
021614
021616
021624
0216%8

021646
021652
021660

005037
016237
012337

9%:
108:

003510

003450

128:

003504

003444

13%:

003502

003442

148:

003504

158:

000026

000002
003502

003504

000000
000010
000004
000002
003500

003440
003450
003444
003442
003440

003510

003450

21%:

003504

0034446

22%:

003502

003442

238:

000300

003624
000024
003522

000026

003510

003462

208:

2648

;STORE BUS ADDRESS REG. 2
:STORE WORD COUNT

INPRBUF+&,E.BA

TST

E.WC

SCHECK IF LAST WORD

121

:CS1

118
#OR,E.(S2
E.CS1,T.CS1
128

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP

E.CS2,7.CS2
13s
122
E.BA,T.BA
148
123
E.WC,T.WC

ERROR
ADD
INC

124
#2,E.BA
E.WC

MOV

#2+40. RO

MOV~
DEC
BNE
SuB
CLR

#DMD,RKMRi(R2)
RO
208
#2,E.BA
E.WC

ERROR

BEQ

MOV

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

MOV
MoV

CLR
MOV
MOV

:CHECK IF FIRST WORD

10%
*NO, CONTINUE
#20.,R0
‘WAIT FOR OUTPUT READY
RO
98
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG. 2

BNE
MOV
(MP
8EQ

MOV
25$:

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

158

R
s

‘N0, CONTINUE
:LOAD EXPECTED (€S2
SCHECK €S1 CORRECT
SYES, CONTINUE
INCORRECT

SCHECK €S2 CORRECT
YES, CONTINUE
:CS2 INCORRECT
:CHECK BUS ADORESS CORRECT
:YES, CONTINUE
:BUS ADDRESS INCORRECT
:CHECK WORD COUNT REG CORRECT
SYES, CONTINUE

:WORD COUNT INCORREC?
- INCREMENT BUS ADDRESS AND
;"
WORD COUNT
SCHECK IF SILO FULL
:NO, GET NEXT WORD

+ISSUE CLOCKS FOR TWO NPR'S

#OMD 'MCLK , RKMRY (R2)

:ADJUST BUS ADDRESS AND WORD COUNT

RKCST1(R2),T.CS1
RKCS2(R2),T.CS2
RKBA(R2),T.BA
RKWC(R2),T.WC
E.CS1,T.CS1
218
125
E.(52,7.C52
228
126
E.BA,T.BA
238
127
E.WC,T.WC
243
130

:STORE COMMAND AND STATUS REG. 1
:STORE COMMAND AND STATUS REG. 2
;STORE BUS ADDRESS
;STORE WORD COUNT
:CHECK CS1 CORRECT
YES, CONTINUE
:CS1 INCORRECT
:CHECK €S2 CORRECT
:YES, CONTINUE
:CS2 INCORRECT
;CHECK BUS ADDRESS INCORRECT
SYES. CONTINUE
:BUS ADDRESS INCORRECT
:CHECK WORD COUNT CORRECT
:YES, CONTINUE
‘WORD COUNT INCORRECT

#IR'OR E.CS2

;LOAD EXPECTED CS2

WRDCNT
RKDB(R2),T.0B
(R3)+,E.DB

SINITIALIZE WORD COUNT
:GET DATA BUFFER
:GET EXPECTED DATA

#NPRBUF ,RY

266. R1

:LOAD BUFFER ADDRESS FOR COMPARE

:LOAD COUNT

SEQ 0079

CMP

DEC
BNE

000440

000102

4269
4270
4271

003450

BNE
MOV
DEC
BNE
MOV

003504

118:

4268 021642 012701

012737

MOV
MOV

003510
003440

064406

021634

003444
003442

000200
003500

012703

4267

0216

016237
016237
016237
016237
023737
001401
104125
833737
001401
104126
023737
001401
104127
023737
001401
104130

8 7
19-JUN-80 13:52 PAGE 80
SILO FILL IN 18 Bl T MODE

000024

4225
4226
4227
4228
4229

001003
012737
023737
001401

000004
000002

MACYI 3?551052)

(T el

CIR6CDO RK6T11 DSKLS CTRL PRTY
CIR6CD.PYY
19-JUN=-80 13:49

CIR6CDO RK6H1T1 DSKLS CTRL PRT3

CZR6CD.P1Y

19-JUN-80 13:49

4272
4273
4276
4275
4276
4277

021664
021672
0216764
021676
021702
021704

4281

021726 001003

4278
4279
4280
4282
4283
4284

4285
4286
4287
4288
4c°9
4290
2333

021706
021714
021722

021730
021736
021744

021746
021750
021756
021760
021762
021766
021770

023737
001401
1064131
012700
005300
001376

003522

MACY1 3?351052)
003462

000050

268:
27%:

016237
016237
022701

000000
000010
000001

003440
003450

012737
023737
001401

000100
003500

003510
003440

298:

003510

003450

29%:

104132
023737
001401
104133
005237
005301
001330

003624

13:52

PAGE 81

SILO FILL IN 18 BIT MODE
cMP
BEQ
ERROR
MOV
DEC
BNE

MOV
MOV
CMP

BNE

308:

4293

19-JUN-80

MOV
CMP
BEQ

ERROR
CMP
BEQ
ERROR
INC
DEC
BNE

€.08,7.D8
268
131
#40.,R0
RO
278

sCHECK IF DATA CORRECT
YES, CONTINUE
*DATA READ INCORRECT
*SET STALL
*RUN STALL TO ZERO

*NO, CONTINUE

132
E.782,7.CS2
308
133
WRDCNT
R1
258

ST INCORRECT
:CHECK CS2 CORRECT
YES, CONTINUE
CS2 INCORRECT
*INCREMENT WORD COUNT
:CHECK IF FINISHED
'NO, CONTINUE

RKCS1(R2),T1.CS1 :STORE COMMAND AND STATUS REG 1
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG 2
" R1
SCHECK IF LAST WORD
#IR,E.CS2
E.CS1.T.CS1
298

*LOAD EXPECTED (S2
TCHECK CS1 CORRECT
YES, CONTINUE

2gg§

LSBTTL

4296

IIANARRAR AN R AR RN AR AN RN AN R TR

+««MFM READ LOOPBACK TESTS

:«TEST 23

2%8;

SEQ 0080

ACA AN RRTRRRE O RO RN RN NRANRENS

READ LOOPBACK (PART 1)

4299

CLEAR RK611 WITH A CONTROLLER CLEAR, PUT CONTROLLER

4302
4303
4304

e
i
.t

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

4300
4301

i
i

4305
L£306
4307
4308

M
i
te
i

2ggg

4315

.t
1B

021772

0217764
022002
022006
022014

000004

012737
013702
012762
012762

4326
4327

022050
022052

022054
022062

005300
001370

012762
012762

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

:';"t'ttt't'ttttt'"'t't"'t""'it'tt"t't'ttttttttt"ttt.'ttt!t

000144
001270
100000
000040

001200

000140
000040

1§723:

000000
000026

4320 022022 012762 000025 000000
4321 022030 012700 000312
4322 022034 012762 000440 000026
4323 022042 012762 000040 000026
4324
4325

177777
000000
177777

]

2%}%
4316
4317
4318
4319

FOLLOWING WORDS:

4311

‘31‘

IN DIAGNOSTIC MODE. ISSUE A READ HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE O.

000026
000026

18:

SCOPE

MoV
MOV
MOV
MOV

#100.,8TIMES
$BASE .R2
#CCLR.RKCST(R2)
JOMD ,RKMR1(R2)

DEC
BNE

RO
1%

MOV
MOV
MOV
MOV
MOV
MOV

;:;DO 100. ITERATIONS
1LOAD RK611 BASE
:CLEAR RK611
:PUT RK611 IN DIAGNOSTIC MODE

#ROMEAD ,RKCST(R2) ;ISSUE READ HEADER
:1SSUE ENOUGH CLOCKS UNTIL READY
#50.¢4+3,R0
#OMD'MCLK RKMR1(R2) ; FOR SECTOR PULSE
#0MD
. RKART (R2)
#OMD 'MSP,RKMRT1(R2)
. RKMR1 (R2)
#DMD

;SIMULATE SECTOR PULSE

CZR6CDO RK61Y DSKLS CTRL PRTY
CIR6CD.PIY
19-JUN=-80 13:49
4328
4329
4330

6331

4332
4333
433,
4335

4336
4337
4338

022070
022074
022100

005037
005037
012700

022110
022112
022114
022122

005300
001374
012737
004737

022104

0221%6
022132
022136

4339 022144

004737

012701
012703
012737

012304

003614
003616
000341

043540

000001
043540

000003
064326
000025

4340 022146 012700 000020
6341
4342

022152
022160

013737
006004

003614

6344

022164

005037

003614

4347

022172

012737

000001

4343 022162 103403
2%22
4348
4349
4350
4351

022170
022200
022204
022212
022220

000403
004737
016237
023737
001417

b 7
MACY11 30A(1052)
19=JUN=-80 13:52 PAGE 82
123
READ LOOPBACK (PART 1)

043540
000000
003500

ri ¥
003614

003500

003616

cg:
6$:

003614

003440
003440

4353
4354
4355

022230
022234
ogzgaz

160137
012737
160037

003624
000020
003622

003622

4357
2§gg

022250
022256

012762
000522

100000

000000

4360
4361
4362
4363
4364
4365
4366
4367
4368
4369

022260
022262
0222
022266
022270
022274
022302
022306
022312
022314

005300
001333
005301
001326
012700
013737
005037
004737
005300
001367

4370
4371
4372

022316
022324
022332

104150

78:
8s:

003616

016237
016237
012737

000000
000010
0002264

003440
003450
003500

003500

003440

003510

003450

022346
022354
022356

023737
001401
104151

4378
4379
4380
4381
4382
4383

022366
022370
022372
022376
022402
022406

001401
104152
005037
012703
012337
016237

&377

022360

023737

003624
064326
003522
000024

RO
28
#1,PR.BIT
PC.ROBIT

JSR

15%:

:SIMULATE SYNCH

#3.R1
#HEADT R
#ROMEAD E.CS1

;LOAD NUMBER OF WORDS
:LOAD ADDRESS OF DATA
:LOAD EXPECTED CS1

MOV

#16. RO

:LOAD BIT COUNT

BCS

i{)

MOV
MOV
MOV

MOV

[ 1s]")
ROR

178:
003462

208:

(R3)+,R4

PR.BIT M1.BIT
R4
PR.BIT

MOV

#1,PR.BIT

MOV

#3,WURDCNT

JSR
MoV
CMP
BEQ

:GET DATA

;STORE PREVIOUS BIT
‘GET NEXT BIT

TCHECK IF 1
:NO, ZERO

:SIMULATE READ DATA

; ONE
PC,RDBIT
:SIMULATE READ DATA
RKCST1(R2),T.CS1 :READ COMMAND AND STATUS REG. 1
E.CS1,T.CS1
SCHECK IF CS1 CORRECT
9%
:YES, SIMULATE NEXT BIT

R .WRDCNT
#6. ,BITCNT
RO,BITCNT

:LOAD WORD COUNT
:LOAD BIT COUNT

MOV
BR

#CCLR,RKCST(R2) :CLEAR RK611
TST24
::60 ON TO NEXT TEST

156

:CS1 INCORRECT DURING HEADER

DEC
BNE
DEC
BNE
MoV
MoV
CLR
JSR
DEC
BNE

RO
68
R1
58
#4 R0
PR.BIT M1.BIT
PR.BIT
PC,ROBIT
RO
15¢

:CHECK IF READY FOR NEXT WORD
*NO, GET NEXT BIT
sCHECK IF HEADER FINISHED
*NO, GET NEXT WORD
;LOAD COUNT FOR POSTAMBLE
:STORE LAST BIT
:LOAD NEXT BIT
:SIMULATE 1 BIT READ
:CHECK IF TIME FOR READY
:NO, CONTINUE WITH POSTAMBLE

MOV

#OR'IiR,E.CS2

;LOAD EXPECTED CS2

£.CS2,T1.CS2

sCHECK €S2 CORRECT

MOV
MOV
MOV

16%:

SINITIALIZE PRESENT BIT AND
:
PREVIOUS BIT

PC,RDBIT

ERROR

4373 022340 012737 000300 003510

4374
4375
4376

DEC
BNE
MOV
JSR

suB
MOV
SUB

9¢:

000004
003614
003614
043540

PR.BIT
M1.81T
#225. ,R0

CLR

4352 022222 012737 000003 003624

(356 022246

CLR
CLR
MOV

CMP
BEQ
ERROR

CMP

BEQ
ERROR
CLR
MOV
MOV
poV

RKCS1(R2),7.CS1 :GET CURRENT €SI
RKCS2(R2).T.CS2 :GET CURRENT €S2
#ROY 'RDHEADE<*C<G0>>,E.CS1 ;LOAD EXPECTED (CS1
E.CS1,7.CS1
168
151

178
152
WROCNT
SHEADT,R3
(R3)+,E.DB
RKDB(R2),T.0B

*CHECK CST CORRECT
YES, CHECK €S2
:CS1 INCORRECT

:YES, CHECK DATA
€S2 INCORRECT
SINITIALIZE WORD COUNT
*GET ADDRESS OF DATA
:GET EXPECTED DATA
:GET ACTUAL DATA

SE0 0081

MACY11 30A(1052)
19-JUN-B0 13:52 PAGE 83
123
READ LOOPBACK (PART 1)

SEQ 0082

4384
4385
4386

022414
0224%2
022430

016237
016237
022737

000000
000010
000002

003440
003450
003624

MoV
MOV
cMp

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

(388
(389

022440
022446

012737
023737

000100
003500

003510
003440

MoV
CMP

#IR,E.CS2
E.CS1,T.CSY

TST24

4387

4390
6391

2%3%

022636
0224564
022456

022460

001003
001402
104153

022462
022470
022472

023737
001402
104154

003510

4399
4400
6401
4602
4403
2282

022476
022504
022506
022510
022514
022522

023737
001401
104155
005237
022737
001327

003522

003462

003624
000003

003624

0226474

218:

000421

6396
64395
6396

2%8;

BNE

003450

22%:

000413

BEQ
ERROR

248

:NO, CHECK (S1

228
153

;YES, CHECK (S2
;CS1 INCORRECT

;STORE EXPECTED (S2
;CHECK CS1 CORRECT
;.60 ON TO NEXT TEST

CMP
BEQ
ERROR

£.CS2,7.8S2
238
154

sCHECK (S2 CORRECT
:YES, CHECK DATA
:CS2 INCORRECT

CMP
BEQ
ERROR
INC
CMP
BNE

E.DB,T.0B
248
155
WRDCNT
#3 ,WRDCNT
208

;CHECK IF DATA CORRECT
;YES, GET NEXT HEADER WORD
:DATA INCORRECT
s INCREMENT WORD COUNT
sCHECK IF ALL THREE WORDS CHMECK
sNO, GET NEXT WORD

BR
238:

21§

228;

JeTEST 24

4409
4610
41
6612

.t
N
i
H

CLEAR RX611 WITH A CONTROLLER CLEAR.
PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RKO06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE O.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.

4414

AND A HEADER CONSISTING OF

4613

4615

4416

4618

4617

4619
4420
4621

4627
4428
6429

0225364
022540
022546

630 0225564
€631 022562
4632

022566

4634
4635
4636

022602
022604
022606

4433 022574
4637
4438
439

022614
022622
022626

000004
012737

013702
012762
012762

001200

012762

000440

000026

012762

005300
001370
012762

012762
005037
005037

FOLLOWING WORDS:

000000

THE

THREE

177777

MAKE

SURE THAT READY COMES UP AFTER THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

:"-t'ttttt"ttt"""""'ttQ""'tt't."ttitfi't!t.'ttt'ltt't"tt'

000144
001270
100000
000040

012762
012700

R RN AR EARRN O OO N NOS

SIMULATE SECTOR PULSE, 255 ZEROES, A ONE,

L AR LR R RN R R AR R RN R RN

READ LOOPBACK (PART 2)

000000

022526
022526

RNt

.Y
o

22%%

64625
4626

::60 ON TO NEXT TEST

4406

4424

AN RN

1ST24

000025
000312

000040

000140

000040
003614
003616

TST24:

000000
000026

000000

000026
000026

000026

1%:

SCOPE
MoV
MoV
MOV
MoV

#100.,STINES
$BASE ,R2
#CCLR,RKCST1(R2)
#0MD ,RKMR1(R2)

MoV

#OMD'MCLK ,RKMR1(R2)

;

RO
13
JOMD 'MSP ,RKMRY1(R2)

;SIMULATE SECTOR PULSE

MOV
MOV

MOV
DEC
BNE

MOV

MOV
CLR
CLR

::D0 100, ITERATIONS
;LOAD RK611 BASE
;CLEAR RK611
-PUT RK611 IN DIAGNOSTIC MODE

#ROMEAD ,RKCST(R2) :ISSUE READ HEADER
#50.%4+2,R0
:ISSUE ENOUGH CLOCKS UNTIL READY

#0M0
, RKMRT (R2)
#0MD ,RKMR1 (R2)
PR.BIY
m.BIT

FOR SECTOR PULSE

JINITIALIZE PRESENT BIT AND
.
PREVIOUS BIT

(ata)

CIR6CDO RK6T11 DSKLS CTRL PRTZ
CIR6CD.PI
19-JUN-80 13:49

CIR6CO0 RK6T11 DSKLS CTRL PRTY

CIR6CD.PI1
4640
(661
4642
4463
464h
4645
4466

4447
4448
4449
4450
4451
4452
4453
4654
2222
4457
4458
4459

4460
461
4462
4663
446k
4465

19-JUN-B0 13:49

022632
022636
022642
022646
022646
022654
022660

022664
022670
022676
022700
022704
022712
022714
022716
022722
022724
022732
022736

022744
022752
022754
022762
022766
022774

4466 023000
4467

012700
004737
005300
001374
012737
004737
012701
012703

012737
012304

012700

013737
006004
103403
005037
000403
012737
004737
016237

023737
001417
012737
160137
012737
160037

104150

2223

02300

023010

01276%

4470
471
472
4473
474
475
476

023012
023014
023016
023020
023022
023026
023034

005300
001333
005301
001326
012700
013737
005037

477
478
4479
4480
481
4482
4483
484
485
4486
487
488
4489
4490

491

4492
4693
449%

4695

023040
023044
023046
023050
023056
023064
023072
023100
023106
023110
023112
023120
023122
023124

00052

004737
005300
001367
016237
016237
012737
012737
023737
001401
104151
023737
001401
10415;
005037

MACY1 3?5{!052)

000341
043540
000001
043540
000003
064334

000025

000020

003614

2%:

003614

003500
003616

¢€S:

000001
043540
000000

0036164

78:
8%:

000003
003624
000020
003622

003624

100000

000000

003614

003500

003440
003440

000004
003614
003614

003616

000000
000010
000224
000300
003500

003440
003450
003500
003510
003440

003510

003450

023154

012337
016237
016237

016237

158:

168:

003624

178:

003522
00002¢
000000

208:

000010

003450

#225.,R0
PC,ROBIT
RO
28
#1,PR.BIT
PC.RDBIT
23R
FHEAD2,R3

MOV

#6. RO

MOV
MOV

MOV
ROR
BCS
CLR
BR
MOV
JSR
MOV

7
PAGE 84

#ROHEAD,E.CS1
(R3)+,R4

;LOAD NUMBER OF WORDS
:LOAD ADDRESS OF DAI1A

PR.BiT,M1.BIT
R4
7s
PR.BIT
8s

;LOAD EXPECTED CS1
SGET DATA
:LOAD BIT COUNT
:STORE PREVIOUS BIT
:GET NEXT BIT
SCHECK IF 1
*NO, ZERO
*SIMULATE READ DATA

#1,PR.BIT
PC.RDBIT
RKCS1(R2),T.CS1

; ONE
*SIMULATE READ DATA
:READ COMMAND AND STATUS REG.

€.CS1,T.CS1
98
#3,WRDCNT
R1.WRDCNT
#16. ,BITCNT
RO,BITCNT

SCHECK IF CS1 CORRECT
SYES, SIMULATE NEXT BIT
:LOAD WORD COUNT

150

:CS1 INCORRECT DURING HEADER

15725

1:GO ON TO NEXT TEST

DEC
BNE
DEC
BNE
MOV
MOV
CLR

RO
63
R
5$
74RO
PR.BIT,M1.BIT
PR.BIT

SCHECK IF READY FOR NEXT WORD
NO, GET NEXT BIT
TCHECK IF HEADER FINISHED
*NO, GET NEXT WORD
*LOAD COUNT FOR POSTAMBLE
:STORE LAST BIT
:LOAD NEXT BIT

MOV

FHEAD2 R3S

:GET ADDRESS OF DATA

MOV
MOV
MOV

MOV

:LOAD BIT COUNT

#CCLR,RKCST(R2) :CLEAR RK611

JSR
DEC
BNE
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
(MP
BEQ
ERROR
(LR

SEQ 0083

:SIMULATE SYNCH

MOV

043540

003462
003440

MOV
JSR
DEC
BNE
MOV
JSR
MOV
MOV

ERROR

9s:

13:52

READ LOOPBACK (PART 2)

CMP
BEQ
MOV
SuB
MOV
sUB

003622

023130 012703 064334
023134
023140
023146

19-JUN-80

PC.ROBIT
*SIMULATE 1 BIT READ
RO
‘CHECK IF TIME FOR READY
158
-INO, CONTINUE WITH POSTAMBLE
RKCS1(R2),T7.CS1 :GET CURRENT CS1
RKCS2(R2).T1.CS2 :GET CURRENT (S2
#RDY 'ROMEADE<*C<GO>>,E.CST :LOAD EXPECTED CS1
#OR'[R,E.CS2
;LOAD EXPECTED (S2
E.CST,T.CS1
<CHECK CST CORRECT
168
1YES, CHECK €S2
151
ST INCORRECT
E.CS2,7.C52
SCHECK €S2 CORRECT
178
SYES, CHECK DATA
152
€S2 INCORRECT
WRDCNT
SINITIALIZE WORD COUNT

(R3)+,E.DB
<GET EXPECTED DATA
RKDB(R2),1.DB
-GET ACTUAL DATA
RKCS1(R2),7.CS1 STORE COMMAND AND STATUS REG. 1

RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2

CIR6CDO RK611 DSKLS CTRL PRT3

19-JUN-80 13:49

4513

4514
4515
4516
4517
4518
4519
4520
6521
4522
4523

PIRIROININIAIND

NN
NN NN
NRORINIA)
= —2
b
b
O~N~NO

Nog oo
NN
=

osrnNs

4507
4508
4509
4510
4511
4512

WU
ORI

4506

023737
001402
104154
000413

OO0O0O0O0O0O

4501
4502
4503
6504
4505

022737

CO00

4496
4497
4498
4699
(500

CZR6CD P

002526

0C9100
V03500

003510
003440

218:

003510

003450

228:

023737
001401

003522

003462

238:

005237
022737
001327

003624
000003

003624

4548

4549
4550
6551

MOV

#IR,E.CS2

*STORE EXPECTED €S2

BEQ
ERROR
BR

22%
153
15725

(MP

‘NO, CHECK €S1

E.CS51,T.C50

SCHECK €S1 CORRECT

PYES, CHECK €S2
1CS1 INCORRECT
1260 ON TO NEXT TEST

(MP
BEQ
ERROR
BR

£.(52,7.C52
238
154
18125

;CHECK €S2 CORRECT
SYES, CHECK DATA
:CS2 INCORRECT
1:60 ON TO NEXT TEST

(MP

£.08,T7.0B

;CHECK IF DATA CORRECT

INC

WRDCNT
#3,URDCNT
20%

BEQ
ERROR
(NP
BNE

24$
155

1YES, GET NEXT HEADER WORD
:DATA INCORRECT
“INCREMENT WORD COUNT
TCHECK IF ALL THREE WORDS CHECK
*NO, GET NEXT WORD

READ LOOPBACK (PART 3)

PUT CONTROLLER
CLEAR RK611 WITH A CONTROLLER CLEAR.
ISSUE A READ HEADER TO AN RKO6
IN DIAGNOSTIC MOVE.
IN 26 SECTOR FORMAT, CYLINDER O, HEAD O, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES
SIMULATE SECTOR PULSE, 255 ZEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE

125252

* &

052525
125252

* %

]

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

)

OOO0O0O0O

XTI

82822282
A VWARIN
= AR
N

4546
4547

SCHECK IF LAST WORD IN DATA BUFFER

21$

FOLLOWING WORDS:

STERREFFETS

4545

4536
4537

45464

#2 ,WRDCNT

JvTEST 25

4531
4532
4533
4534
4535

4562
4543

248:

SEQ 0084

;:"'.'..t.".'""'"""'Q"""i""".".'."Qt'."t'tQ.""t

6525
4526
4527
4528
4529
4530

4540
4541

CMP

BNE

000421

4524

4538
4539

19-JUN-80
13:52
PAGE 85
30A(1052)
READ LOOPBACK (PART 2)
T24

000002

104155

023254

MACY11

000144
001270
100000
000040

000025
000312
000440
000040
000140
000040
003614
003616
000341
043540

001200

1§725:

000000
000026
000000

000026
000026

SCOPE

MOV
MOV
MoV
MOV
MOV

MOV
MOV

MOV

DEC
BNE
MOV
MOV

000026
000026

2%:

CLR
CLR
MOV
JSR

R 2222222222220
20 0RR 0000 RRRRRRRRRRRR Rl

#100.,8TIMES
;;D0 100. ITERATIONS
$BASE .R2
‘LOAD RK611 BASE
#CCLR.RKCST(R2) :CLEAR RK611
#DMD, RKMR1(R2)
:PUT RK611 IN DIAGNOSTIC MODE
FROHEAD ,RKCST(R2)
;ISSUE READ WEADER

#50.¢4+2,R0

:1SSUE ENOUGH CLOCKS UNTIL READY

#OMD 'MCLK ,RKMRI(R2)

. RKMR{ (R2)
#0MD

;

FOR SECTOR PULSE

RO
1
FDMD'MSP,RKMRY(R2)
:SIMULATE SECTOR PULSE
#OMD
. RKMRY (R2)
SINITIALIZE PRESENT BIT AND
PR.BIT
PREVIOUS BIT
mi.BIT
#235. R0
;SIMULATE SYNCH
PC,ROBIT

CZR6CDO RX611 DSKLS CTIRL PRT3
19~-JUN=-80 13:49

7
H
30A(1052)
19-JUN-80
13:52
PAGE 86
125
READ LOOPBACK (PART 3)

~N-~

[ ¥

000001
043540
000003
064342
000025
000020
003614

e ooroan
oS ©

003616

88383 B

MOov

JSR

5¢:

6%:

000001
043540
000000
003500

003614

000003
003624
000020
003622

003624

100000

003440
003440

7%:
8s:

003510

000000

003624

000002

15%:

16%:

178

003462
003440
003450
003624

MOV
CMP

DEC
BNE
DEC
BNE

MOV
MOV

CLR
JSR

DEC
BNE

003440
003450
003500
003510
003440
003450

JSR

MOV
SuB
MOV
su8
ERROR
MOov
BR

003622

003616

MoV

8taq

9%:

000004
003614
003614
043540

Mov
MOV
MOV
MOV
MOV
MOV
ROR

BCS
CLR
B8R

003614

000000

O NMNIRININ
NO = & Y =
O MAA N NN O AN N O NN O
W N NN NN
NN =
b e

ON) =t b

O0O0O0O0000O

SSSEERPRE

023642

003500

DEC
BNE

003614

023544

flfluu&u WA Y = w

103403

O sO=O
SO
=2
=

£12O00SO0NONON

023542

~N S~

4565

4564

[elelelolelalolalelalod=l, (=

4562
4563

OOOOOOOOOOS
T NI T NT N1 N
[V IV LV AV
NNNN FRLERREL

4561

[ ST T

4552
4553
4554
4555
6556
4557
4558
4559
4560

PR R e

CIZR6CD PN

MACY11

20%:

SEQ 0085

#1,PR.BIT
PC.RDBIT

o3, R

:LOAD NUMBER OF WuRDS

NRDHEAD E.CS1

:LOAD EXPECTED CS?

#HEADS,R3

(R3) ¢, RE

#6. RO
PR.BIT,M1.BIT
R4

PR.BIT

*LOAD ADDRESS OF DATA

SGET DATA

:LOAD BIT COUNT
:STORE PREVIOUS BIT
:GET NEXT BIT

SCHECK IF
‘N0,

ZERO

:SIMULATE READ DATA

#1,PR.BIT
PC.RDBIT
RKCST1(R2),T.CS1

; ONE
*SIMULATE READ DATA
:READ COMMAND AND STATUS REG.

9%
#3,WROCNT

'YES, SIMULATE NEXT BIT
*LOAD WORD COUNT

E.CS1,T.CS0

R WRDCNT
#16. ,BITCNT
RO,BITCNT

SCHECK IF CS1 CORRECT

:LOAD BIT COUNT

150

;CS1 INCORRECT DURING HEADER

RO
63
R

JCHECK If READY FOR NEXT WORD
'NO, GET NEXT BIT
SCHECK IF HEADER FINISHED

24 ,R0
PR.BIT,M1.BIT
PR.BIT
PC.ROBIT

1LOAD COUNT FOR POSTAMBLE
:STORE LAST BI?
:LOAD NEXT BIT
SSIMULATE 1 BIT READ

#CCLR,RKCS1(R2)
15126

:CLEAR RK611
$:6G0 ON TO NEXT TEST

INO, GET NEXT WORD

RO
TCMECK IF TIME FOR READY
158
*NO, CONTINUE WITH POSTAMBLE
RKCST1(R2),T.CS1 ;GET CURRENT (S
RKCS2(R2),7.(S2 ;GET CURRENT (S2
#ROY ! RDHEADR<*C<G0>>
,E.CS1 ;LOAD EXPECTED (S
#OR!IR,E.CS2
;LOAD EXPECTED (€S2

E.CS1,T.CST
16$

¢CHECK CS1 CORRECT
sYES, CHECK (S2

E.CS2,7.CS2

.CHECK €S2 CORRECT

152

;€S2 INCORRECT

151

17¢

WRDCNT
#HEAD3 ,R3
(R3)¢,E.0B

RKDB(R2),T.08

:CS1

INCORRECT

sYES, CHECK DATA

SINITIALIZE WORD COUNT
:GET ADDRESS OF DATA
:GET EXPECTED DATA

:GET ACTUAL DATA

RKCST(R2),1.CS1 *STORE COMMAND AND STATUS REG. 1

RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REG. 2
#2 WROCNT

1§

TCHECK IF LAST WORD

*NO, CHECK CS1

IN DATA BUFFER

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD. P "

125

218:

MOV
(M

#IR,E.CS2
£.C51.T.€51

:STORE EXPECTED €S2
SCHECK CS1 CORRECT

SEQ 0086

000100
003500

023737
001402

003510

003450

228:

CMP
BEQ
ERROR
BR

E.(52,7.C52
238
154
15126

;CHECK €S2 CORRECT
SYES, CHECK DATA
1¢S2 INCORRECT
1260 ON TO NEXT TEST

903522

003462

238:

003624
000003

003624

(MP
BEQ
ERROR
INC
CMP
BNE

£.0B,7.DB
24$
155
WRDCNT
#3,WROCNT
208

;CHECK IF DATA CORRECT
1YES, GET NEXT HEADER WORD
:DATA INCORRECT
P INCREMENT WORD COUNT
TCHECK IF ALL THREE WORDS CHECK
INO, GET NEXT WORD

106154

000413

024006

023737
001401
104155
005237
022737
001327

248

BEQ
ERROR
BR

228
153
18726

SYES, CHECK €S2
2CS1 INCORRECT
2160 ON TO NEXT TEST

:;"t'.'t.'tt""""'""""""t.".l'.'....".""'t.t"'t"t

SATEST 26

READ LOOPBACK

(PART &)

i
T
i
i
;e
i
i
b

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE.
ISSUE A READ HEADER TO AN RK06
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, ORIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE, 225 ZEROES, A
ONE, AND A HEADER CONSISTING OF THE THREE
FOLLOWING WORDS:

044444
022222

i
i
‘e

111111

i
i

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
IS TRANSFERRED.
CHECK THE SILO FOR CORRECT CONTENTS.

E:Q"tttt'tttttt"""""'t"'."""t!.fittfi""'t'tt't"tttttt'

024010
024012

000144
001270

SWU‘OO Ng
S O NONNVINNOO

~NO W

WM N NO O NN

4647
4648
4649
4650

012737
023737
001402
104153
000421

00O

L64S

4646

19-JUN-80
PAGE 87
13:52
READ LOOPBACK (PART 3)

30A(1052)

37%4
3732
3740
3742
3744

OO0
3882882288
—
=2\ 8 PO AWVRIN)
= AN

4608
4609
4610
4611
6612
4613
4614
4615
6616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644

MACY11

001200

7ST26:

000000
000026
000000

000440
000040

000026
000026

000140
000040
003614
003616
000341
043540

000026
000026

18:

2%:

SCOPE

MOV
MOV
MOV
MOV

#100.,8TIMES
;:0DO 100. ITERATIONS
$BASE . R2
:LOAD RK611 BASE
#CCLR.RKCS1(R2) :CLEAR RK611
#OMD,RKMRI(R2)
:PUT RK611 IN DIAGNOSTIC MODE

MOV

#OMD !MCLK RKMRI(R2)

MOV
MOV

MoV

DEC
BNE
MOV
MOV
CLR
CLR
MOV
JSR
DEC
BNE

#RONEAD ,RKCST(R2) ;ISSUE READ HEADER
#50. 4¢3 ,R0
:ISSUE ENOUGH CLOCKS UNTIL READY
#0mD .RKMRT (R2)

;

FOR SECTOR PULSE

RO
1%
#OMD'MSP,RKMR1(R2)
;SIMULATE SECTOR PULSE
#OMD
. RKMR1 (R2)
PR.BIT
SINITIALIZE PRESENT BIT AND
PREVIOUS BIT
:
mi.BIT
2225. R0
:SIMULATE SYNCH
PC,RDBIT
RO
4)

CIR6CDO RKO61Y DSKLS CTRL PRT3
CIR6CD.PY1
19-JUN-BO 13:49
4664
4665

024132
024140

012737
004737

4669 024162

012304

4666
4667
(668

0264146
026150
024154

4670
4671
4672

024164
026170
024176

4674

4677
4678

012701
012703
(€12737

000003
064356
000025

003614

003500

012700
013737
006004

000020
003614

024202

005037

003614

024210
0264216

012737
004737

000001
043540

003614

000000
003500

003440
003440
003624

012737
160037

000003
003624
000020
003622

100000

000000

4673 024200 103403

22;2 024206 000403
4679
4680
4681
4682
4683

000001
047540

MACYN 3(‘)%1052)

024222
024230
024236
024240
026246

016237
023737
001417
012737
160137

4684
4685

024252
024260

4687
2233

026266
024274

012762
000522

4690
4691

024276
024300

005300
001333

4693
4694
4695
4696
4697
4698
4699

024304
024306
024312
024320
024326
024330
024332

001326
012700
013737
005037
004737
005300
001367

4686 024264

104150

003616

MOV
JSR

5$:
68:

024334
024342
024350
024356
024364
024372
4376
. 376
024404
024406
024410
024414
024420
024424

78:
8%:

003622

:LOAD NUMBER OF WORDS
*LOAD ADDRESS OF DATA
;LOAD EXPECTED (S1

MOV
MOV
ROR

#6.,R0
PR.BIT,M1.BIT
R4

SLOAD BIT COUNT
:STORE PREVIOUS BIT
*GET NEXT BIT

CLR

PR.BIT

MoV
JSR

#1,PR.BIT
PC.ROBIT

;ONE
$SIMULATE READ DATA

MOV
SUB

#é. ,BITCNT
RO,BITCNT

;LOAD BIT COUNT

MOV

MOV
CMP
BEQ
MOV
SUB

ERROR

98 :

003616

000000
000010
000224
000300
003500

003440
003450
003500
003510
003440

003510

003450

003624
064356
003522
000026

003462

158:

16%:
17¢:

208:

4714 0244 s 016537 000000 003440
4715
4716

024440
024446

016237
022737

000010
000002

003450
003624

4718
4719

024456
024464

015737
023737

000100
003500

003510
003440

RKCS1(R2),T.CS1
E.CS1,T.CS1
9%
#3,WRDCNT
R WRDCNT

SGET DATA

TCHECK IF 1
‘NO, 2ERO

*SIMULATE READ DATA
SREAD COMMAND AND STATUS REG. 1
TCHECK IF CS1 CORRECT
1YES, SIMULATE NEXT BIT
*LOAD WORD COUNT

#CCLR,RKCST(R2) :CLEAR RK611
1sT27
1760 ON TO NEXT TEST

150

:CS1 INCORRECT DURING HEADER

DEC
BNE

RO
68

:CHECK IF READY FOR NEXT WORD
'NO, GET NEXT BIT

BNE
MOV
MOV
CLR
JSR
DEC
BNE

5$
#4 RO
PR.BIT,M1.BIT
PR.BIT
PC.RDBIT
RO
158

*NO, GET NEXT WORD
*LOAD COUNT FOR POSTAMBLE
:STORE LAST BIT
SLOAD NEXT BIT
SSIMULATE 1 BIT READ
SCHECK IF TIME FOR READY
*NO, CONTINUE WITH POSTAMBLE

MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CLR
MOV
MOV
MOV

MOV

MOV
CMP

BNE

21$:

(R +,RE

MOV
BR

DEC

000004
003614
003614
043540

#1,PR.BIT
PC.RDBIT

#3.R1
SHEADS ,R3
#ROHEAD E.CS1

B8R

016237
016237
012737
012737
023737
001401
104151
023737
001401
1o«1s;
005037
012703
012337
016237

4717 024454 001003

MOV
MOV
MOV

B8CS

4692 024302 005301

4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
4712
4713

J 7
19-JUN-80 13:52 PAGE 88
READ LOOPBACK (PART &)

MOV
CMP

*CHECK IF HEADER FINISHED

RKCS1(R2),T.CS1 :GET CURRENT CS1
RKCS2(R2).T.CS2 :GET CURRENT (S2
#ROY 'ROHEADE <*C<GO>> ,E.CST ;LOAD EXPECTED CS1
#OR'IR,E.CS2
;LOAD EXPECTED €S2
E.CS1,T.CS1
$CHECK CS1 CORRECT
168
$YES, CHECK €S2
151
+CS1° INCORRECT
E.CS2,7.CS2
{CHECK €S2 CORRECT
178
SYES, CHECK DATA
152
:CS2 INCORRECT
WRDCNT
SINITIALIZE WORD COUNT
SHEADA ,R3
:GET ADDRESS OF DATA
(R3)+,€.08
:GEYT EXPECTED DATA
RKDB(R2) ,T.08
:GET ACTUAL DATA

RKCS1(R25.7.CS1 SSTORE COMMAND AND STATUS REG. 1

RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
#2 WRDCNT
*CMECK IF LAST WORD IN DATA BUFFER

#IR,E.CS2
E.CST,T.CS1

INO, CHECK CS1

*STORE EXPECTED €S2
SCHECK €S1 CORRECT

SEQ 0087

CIR6CDO RKO1Y DSKLS CTRL PRTY
CZR6CD.P1Y
19-JUN-80 13:49
024472
024474
024476

00140%
104615
000421

023737
001402

003510

003450

228:

026512

000413

024514
024522
024524
024526
024532
024540

023737
001401
104155
005237
022737
001327

003522

003462

003624
000003

003624

238:
248:

SEQ 0088

BEQ
ERROR

22%
153

;YES, CHECK CS2

(WP

£.CS2,7.CS2

:CHECK €S2 CORRECT

ERROR
BR

154
1$127

1CS2 INCORRECT
1:60 ON TO NEXT TEST

B8R

104154

BEQ

(WP
BEQ
ERROR
INC
CMP

BNE

1$727

ois

E.0B,7.08B
2
155
WRDCNT
#3,WRDCNT

208

1CS1

INCORRECT

1560 ON TO NEXT TEST
SYES, CHECK DATA

;CHECK IF DATA CORRECT
*YES, GET NEXT HEADER WORD
:DATA INCORRECT
*INCREMENT WORD COUNT
TCHECK IF ALL THREE WORDS CMECK

‘NO, GET NEXT WORD

'Q'Qt'.'t".""QQ""'""""'tt""'.""'t"i"t"'.'Q"t"

CITEST 27

READ LOOPBACK (PART §)

i
;e
i
i
i
i

(R]

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. 1SSUE A READ HEADER TO AN RK06
26 SECTOR FORMAT, CYLINDER 0, 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.

052012
100520

i
i
L

052012

i
;e
b

024542
0245644
024552

000144
001270

382288
2882
fU\RVWUflrfl::N”UflJN)
024672

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
1S TRANSRERRED. CHECK THE SILO FOR CORRECT CONTENTS.

:"t'Qttt'tt'ltt.""tt"'tt"ttttt..tt'.ttt"tt't'tttt'tt't'tQ't

0O
O —

4720
L7
4722
4723
L7264
4725
4726
727

K 7
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 89
126
READ LOOPBACK (PART &)

100000
000040

000040

000140
000040
003614

001200

000026
000026

SCOPE
MOV
MOV

#100.,$TIMES
$BASE. R2

;:DO 100. ITERATIONS
:LOAD RK611 BASE

MOV

#0M0, RKMRT (R2)

:PUT RK611

MOV

000000
000026
000000

1$:

MOV
MOV
MOV
MOV

DEC
BNE
MOV
MOV
CLR

000026
000026

CLR

043540
000001
043540

TST27:

2%:
003614

MOV
JSR
DEC
BNE
MOV
JSR

#CCLR.RKCS1(R2) :CLEAR RK611

IN DIAGNOSTIC MODE

caoueuo RKCST(R2) ;ISSUE READ HEADER
0.+4+3,R0
:ISSUE ENOUGH CLOCKS UNTIL READY
cono'nCL: RKMR1(R2) ; FOR SECTOR PULSE
#0mD| RKART (R2)
RO
1%
JOMD 'MSP ,RKMR1
(R2)
:SIMULATE SECTOR PULSE
#OMD
. RKMR1 (R2)
PR.BIT
SINITIALIZE PRESENT BIT AND
M .BIT

2235. R0
PC,RDBIT
RO
28
#1,PR.BIT
PC,RDBIT

PREVIOUS BIT

:SIMULATE SYNCH

CIR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.PIY
19-JUN-80 13:49
4776
G777

4778
G779

024676
024702

024706
024714

012701
012703
012737
012304

000003
064364

000025

012700
013737

000020
003614

003500
003616

4784
4785

024734
024740

005037
000403

003614

4787
4788

024742
024750

012737
004737

000001
043540

003614

000000
003500

003440
003440

000003
003624
000020
003622

003624

4789
4790
4791
4792
4793
4794
4795
796
4797
4798

024754
024762
024770
024772
025000
025004
025012
025016
025020
025026

016237
023737
001417
012737
160137
012737
160037
104150
012762
000522

4800
4801

025030
025032

005300
001333

4803
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
4829
4830
4831

0250
025040
025044
025052
025056
025062
025064
025066
025074
025102
023110
025116
025124
025126
025130
025136
025140
025142
025146
025152
025156
025164
025172
025200
0252
02521
025216
025224
025226

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
01%737
023737
00160%
10415

100000

5¢$:
6%:

7¢:

8%:

003622
000000

003616

000000
000010
000224
000300
003500

003440
003450
003500
003510
003440

003510

003450

15%:

003462
003440
003450
003624

000100
003500

003510
003440

208:

(R3)+,R4

6. R0
P2.BlT.H1.BlT
R

PR.BIT

:ONE

#6. ,BITCNT
RO,BITCNT

sLOAD BIT COUNT

MOV

#CCLR,RKCS
(R2
T)

;CLEAR RK611

DEC
BNE
DEC
BNE
Mov
MoV

CLR
JSR
DEC
BNE

ERROR
CMP
BEQ
ERROR
CLR
Mov
MoV
MOV
Mov
MOV

CHP

BNE

21%:

#RDHEAD € .S

MOV

CHP

BEQ
ERROR

:SIMULATE READ DATA

RKCS1(R2), 1.CS 1 ;READ COMMAND AND STATUS REG.
E.CS1,T.CS 1
sCHECK IF CS1 CORRECT
9%
:YES, SIMULATE NEXT BIT
#3,URDCNT
:LOAD WORD COUNT
R .WRDCNT

150

:CS1 INCORRECT DURING HEADER

TST30

;:60 ON TO NEXT TEST

PR.BIT M1.BIT
PR.BIT
PC,RDBIT
RO

SFQ 0089

:LOAD NUMBER OF WORDS
:LOAD ADDRESS OF DATA
;LOAD EXPECTED CS1
:GET DATA
sLOAD BIT COUNT
:STORE PREVIOUS BIT
;GET NEXT BIT
;CHECK IF 1
:NO, IERO
;SIMULATE READ DATA

#1,PR.BIT
PC,ROBIT

MoV
MoV
MOV
MoV
CMP
BEQ

16$:

o3, R1

#HEADS ,R3

MoV
JSR
MoV
CMP
BEQ
MOV
suB
MOV
sus

178:

003624
064364
003522
000024
000000
000010
000002

MOV
MoV
MoV
MoV
MOV
MoV
ROR
8CS
CLR
BR

ERROR

9%:

000004
003614
003614
043540

MACY11 30A(1052)
19-JUN-80 13:52 PAGE 90
127
READ LOOPBACK (PART 5)

:CHECK IF READY FOR NEXT WORD
:NO, GET NEXT BIT
:CHECK ]F HEADER FINISHED
:NO, GET NEXT WORD
:LOAD COUNT FOR POSTAMBLE
sSTORE LAST BIT
:LOAD NEXT 817
:SIMULATE 1 BIT READ
:CHECK IF TIME FOR READY
:NO, CONTINUE WITH POSTAMBLE

15%
RKCS1(R2),T.CS 1 ;GET CURRENT (CS1
RKCS2(R2),T7.CS 2 :GET CURRENT (S¢
#RDY!RDHEADR<* (<G0>>,E.CS1 ;LOAD EXPECTED (S
#OR!IR,E.CS2
:LOAD EXPECTED (S?2

E.CS1,1.C51
1 63
151
E.CS2,T.CS2

17%
152
WRDCNT
#HEADS ,R3
(R3)+,E.DB
RKDB(R2),T.DB

RKCST(R2),T.CS 1

:CHECK CS1 CORRECT
:YES, CHECK (S2
:CS1 INCORRECT
sCHECK €S2 CORRECT
:YES, CHECK DATA
:(S2 INCORRECTY
JINITIALIZE WORD COUNT
;GET ADDRESS OF DATA
:GET EXPECTED DATA
:GET ACTUAL DATA

:STORE COMMAND AND STATUS REG. 1
RKCS2(R2).T.CS 2 :STORE COMMAND AND STATUS REG. 2
#2 WRDCNT
sCHECK IF LAST WORD IN DATA BUFFER

214

IR,E.CS2

1.7.Cs1

:NO, CHECK CS1
:STORE EXPECTED (CS2
sCHECK CS1 CORRECT
;YES, CHECK CS?2

:CS1 INCORRECY

000421

£HNON

023737
001402

‘ditO“fi\flf‘
OSSO

023737
001401

000000

OO000

025230
NONONINIMNIN
RN
WVAVAVAVAWVIWVY - AW
NN
NN

CIR6COO K611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.P11

003510

MACY1 3?5;1052)

003450

22%:

104154
000413

104155
005237
022737
001327

n7
19-JUN-80 13:52 PAGE 91
READ LOOPBACK (PART 5)

TS130

::60 ON TO NEXT TEST

CMP
BEQ
ERROR ,

E.CS2,T.CS2
23%
154

;CHECK €S2 CORRECT
;YES, CHECK DATA
:CS2 INCORRECT

CMP
8EQ
ERROR

E.0B,7.08
248
155

;CHECK IF DATA CORRECT
:YES, GET NEXT HEADER WORD
:DATA INCORRECT

#3,WRDCNT
208

;CHECK IF ALL THREE WORDS CHECK
:NO, GET NEXT WORD

BR
003522

003462

003624
000003

003624

238:

24$:

NAAAARA

INC

s*TEST 30
X3

i
e
i
e
e
ie
:'

TST130

WROCNT

CMP
BNE
S

SEQ 0090

::G0 ON TO NEXT TEST

: INCREMENT WORD COUNT

ARRARRRARRRY)

READ HEADER [N 18 BIT MODE

CLEAR RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN 24 SECTOR FORMAT, 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:

177717
000000

;e
ie
e

177777

e
v
1

E:tt.t'tfi'tt".""""t"""'t't.t'..".""t.t't.'t"'t..'t"'

- Qaor- Qo

0000

3332332233
gsfi
hhfl\h.WU\h\figsfiJ—flJ"UNJNJ N

001200

15130:

000000
000026
000000

000026
000026

1$:

28:

003614

010025

003500

SCOPE
MOV
MOV
MOV
MoV

#100..$TIMES
$BASE . R2
#CCLR.RKCST(R2)
#OMD,RKMRY(R2)

MOV
MOV

#50.04+2,R0
s 1SSUE ENOUGH CLOCKS UNTIL READY
#DMD
' MCLK ,RKMRT(R2) ;
FOR SECTOR PULSE

MOV

000026
000026

b
—

200
S

VAN

00O

X X

. 1]

lavdatiayd
MAAVAAA
VAN A VAVAIVAAVAWA VIVAVAWA

=l=l=

000144
001270

wwny

uunungyuunu«u -agfl
[
VAVALA
¥ LS
¥ Y.
::tha-o
4 NF . oro
o FERSXRERSN

025274

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD
1S TRANSFERRED. CHECK THE SILO FOR CORRECT CONTENTS.

MOV

DEC
BNE
MOV
MOV
CLR
CLR
MOV
JSR
0EC
BNE
MoV
JSR
MoV
MoV
MoV

;;D0 100. ITERATIONS
:LOAD RK611
:CLEAR RK611
:PUT RK611 IN DIAGNOSTIC MODE

#CFNT'ROHEAD,RKCST(R2) :ISSUE READ HEADER (24 SECTOR FORMAT)

#OMD ,RKART (R2)

RO
1$
#DMD ! MSP,RKMR1(R2) ; SIMULATE SECTOR PULSE
#OMD .RKMR1 (R2)
PR.BIT
SINITIALIZE PRESENT BIT AND
M1.BIT
:
PREVIOUS BIT
#255. R0
;SIMULATE SYNCH
PC,ROBIT
RO
23
#1,PR.BIT
PC,RDBIT
#3,R1
:LOAD NUMBER OF WORDS
#HEAD1 ,R3
:LOAD ADDRESS OF DATA
#CFMT!ROMEAD ,E.CS1 ;LOAD EXPECTED CS1

CIR6CDO RK6TY1 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.P1Y
025446
025450
025454
025462
0%5464
0 5462
02547

012304

025474
025502
025506
025514
025522
025524
025532
025536
025544
025550
025552
0¢5560

9%:

003616

6%:

000001

003614

003500

003440
003440

8s:

#1,PR.BIT
PC.ROBIT

; ONE
SSIMULATE

Ré4
7%

RKCST(R2),T.CS1
E.CS1,7.CS1
98
#3,WRDCNT

READ DATA
:READ COMMAND AND STATUS REG. 1
SCHECK IF €S1 CORRECT
SYES, SIMULATE NEXT BIT
‘LOAD WORD COUNT

96, ,BITCNT

;LOAD BIT COUNT

156

:CS1 INCORRECT DURING HEADER

003622

MoV
sus

100000

000000

MoV
BR

#CCLR,RKCST(R2) :CLEAR RK611

TST131

;260 ON TO NEXT TEST

DEC
BNE
DEC
BNE

SCHECK IF READY FOR NEXT WORD

PR.BIT,M1.BIT
PR.BIT
PC.ROBIT
RO
15%

:STORE LAST BIT
:LOAD NEXT BIT
‘READ BIT
SCHECK IF TIME FOR READY
INO, CONTINUE WITH POSTAMBLE

000004
003614
003614
043540

suB

ERROR

003616

000000
000010
010224
000300
003500

003440
003450
003500
003510
003440

003510

003450

15%:

16%:

17%:

003462
003440
003450
003624
003510
003440

003510

003450

MoV
MOV

CLR
JSR
DEC
BNE

MoV
Mov
MoV
MOV

023737

PR.BIT
8s

:GET DATA
sLOAD BIT COUNT
;STORE PRESENT BIT
;GET NEXT BIT
;CHECK IF 1
INO, 1ERO
*SIMULATE READ DATA

003624

208:

218:

£
025764

MoV
JSR
MoV
CMP
BEQ
Mov

(R3)+,R4
#16.,R0
PR.BIT,M1.BIT

SEQ 0091

000003
003624
000020
003622

-—td

696§
4963

MoV
MoV
MoV
ROR

BCS
CLR
BR

9%:

Q00O

025562
025564
025566
025570
025572
025576
025604
025610
025614
025616
025620
025626
025634
025642

000020
003614

003614

28222228 38838P P Pur-urd

4BB8
4889
4890
4891
489
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922

N 7
MACY11 30A(1052)
19-JUN=-80 13:52 PAGE 92
130
READ HEADER IN 18 BLT MODE

22%:

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CLR
MoV
MoV
MOV
MOV
MOV
CHP
BNE
MOV
CHP

8tQ
ERROR
BR
4

R WROCNT
RO,BITCNT

6$
R1
5%
#4,R0

‘NO, GET NEXT BIT
*CHECK IF WEADER FINISHED
*NO, GET NEXT WORD
1LOAD COUNT FOR POSTAMBLE

RKCS1(R2),7.CS1 :GET CURRENT CS1
RKCS2(R2) | 1.CS2 :GEY CURRENT (€S2

SCFMTIRDY RONEADE<AC<GO>>,E.CST ;LOAD EXPECTED CS1
#OR'IR,E.CS2
E.cS1,7.cs1
168

;LOAD EXPECTED (S2
TCHECK CST CORRECT
SYES, CMECK €S2

E.CS2,7.CS2

SCHECK €S2 CORRECT

160
WRDCNT

CS2’ INCORRECT
SINITIALIZE WORD COUN'

157

17¢

#HEAD1 R3S
(R3)+,E.08B

RKOB(R2) ,T.0B

ST’

INCORRECT

SYES, CHECK DATA

:GET ADDRESS OF DATA
:GET EXPECTED DATA

;GET ACTUAL DATA

RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REG. 1

RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG. 2
#2 ,WRDCNT

SCHECK IF LAST WORD IN DATA BUFFER

#IR,E.CS2
€.¢S1,7.CS1
228
161

:LOAD EXPECTED (€S2
SCHECK CST CORRECT
TYES, CHECK €S2

214

INO, CHECK €S9

TST31

+CS1 INCORRECT
2560 ON TO NEXT TEST

£.CS2,7.(S2

;CHECK €S2 CORRECT

CIR6CDO RK6T1Y1 DSKLS CTRL PRT%

CIR6CD.P1Y

19-JUN-80 13:4

6944
4945
282?

025772
025774
025776

001402
10416
00041

4948
4949
4950
4951
4952

026000
026006
026010
026012
026016

023737
001401
104163
005237
022737

232‘ 026026 001327

MACY1 3?%61052)

003522

003462

003624
000003

003624

4955

238:
248:

19-JUN-80

8
PAGE 93

READ HEADER IN 18 BIT MODE

SEQ 0092

BEQ
ERROR
BR

238
162
ST

sYES, CHECK DATA BUFFER
:CS2 INCORRECT
2:G0 ON TO NEXT TEST

CMP
BEQ
ERROR
INC
(MP

€.0B8,7.08
248
163
WRDCNT
#3 ,WROCNT

;CHECK DATA BUFFER CORRECT
;YES, GET NEXT WORD
;sDATA BUFFER INCORRECT
;s INCREMENT WORD COUNT
sCHECK IF FINISHED

BNE

J¢TEST N

2829
4958

13:52

RN RN

20§

INO READ NEXT WORD

SYNCH DETECT IN READ HEADER
TR RN

RPN R AR N RN E RN

R RN NR

NN RN ONR RS

4959
4960
4961
4962
4963
2322

o
ot
[
o
]
ot
o

4966

E;nnctttnttnntnntntn'nntantnntnnntnnttnn"n

. %

4967
4968
4969
4970
4971

026026
026030
026036
026042
026050

000004
012737
013702
012762
812765

000144
001270
100000
000040

001200

4974

026070

012762

000440

000026

4976
4977
4978
4979
4980

026104
026106
026110
026116
026124

005300
001370
012762
012762
005037

000000
000026

4972 026056 012762 000025 000000
4973 026064 012700 009312
4975 026076 012762 000040 000026

4981
4982
4983
4984

4985
4986
4987
4988

026130
026134
026142
026150
026154
026160

4989
4990
283}

026166
026174
026202
026204
026206

4993
4994

026210
026216

4995
4996
4997
4998
4999

026220
026222
026224
026230
026236

005037
012737
012737
005037

004737
016237

016237
023737
001402
104164
000447

023737
001402

104165
000441
005237
022737
001346

000140
000040
003614

003616
000025
000100
003622

043540
000000

1$:

003500
003510

000010
003500

003510

003450

003622

SCOPE
MOV
MoV
MOV
MOV

[0}
MOV
mov

2$:

4$:

ORDHéAD RKCS1(R2$ :ISSUE READ HEAD
#50.+4+2 R0
; 1SSUE ENOUGH CLOCKS UNTIL READY
#OMD'MCLK ,RKMR1(R2) ;

FOR SECTOR PULSE

#OMD
, RKMRT (R2)

CLR
MoV
MoV
CLR

Mm1.817
#RDHEAD ,E.CS1
#IR,E.CS2
BITCNT

: PREVIOUS BIT
sLOAD EXPECTED CS1
sLOAD EXPECTED (S2
+SIMULATE 350 ZEROES

RKCS2(R2),7.CS2
E.CSY1,T.CST
38
164
TS132

;STORE (S?2
sCHECK IF CS1 CORRECTY
;YES, CHECK €S2
:CS1 INCORRECT
::G0 ON TO NEXT TEST

€.CS2,7.CS2
43

;CHECK IF €S2 CORRECT
sYES, CHECK [F SILO EMPTY

JSR
MOV
MOV
CMP

BEQ
ERROR
B8R

3$:

#100.,$TIMES
::00 100, ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#CCLR,RXCST1(R2) ;CLEAR RK611
#OMD ,RKMR1(R2)
:PUT RK611 IN MAINT MODE

MOV

DEC
BNE
MOV
MoV
CLR

000026
000026

003440
003450
003440

003622
000536

TST31:

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 0.
CLOCK BOTH SEEX AND DRIVE CLEAR MESSAGES.
SIMULATE SECTOR PULSE AND 350 ZEROES. MAKE
SURE READY REMAINS RESET AND THE SILO REMAINS
EMPTY,

(o, [
8EQ
ERROR
B8R
INC
(mP
BNE

RO
1
#OMD ! MSP ,RKMR1(R2) ;SIMULATE TO SECTOR PULSE
#0MD ,RKMR1(R2)
PR.BIT
JINITIALIZE PRESENT AND

PC,RDBIT
RKCS1(R2),7.CS1 ;STORE CS1

165
TST32
BITCNT
#350.,BITCNT
2%

;€S2 INCORRECT
::GO ON TO NEXT TEST
s INCREMENT BIT COUNT
sCHECK IF FINISHED
JNO, SIMULATE NEXT ZERO

O WL

= NN~

O WO
OO

PO N =

N
b b b
ChflCDChflsgCND<>C>
- QOO

oo~
rv-fldfgiyb‘dgfi>\hlhb
NSO
S~O

RPN NN PO N
N
N AN AN
L

003510
100000

RKDB(R2)

:READ DATA BUFFER

MOV

#OCK'IR,E.CS2

;LOAD EXPECTED €S§2

E.CS2,T7.CS52

SCHECK FOR DATA LATE

MoV
MOV
MOV

003500

000009

€s:

SEQ 0093

CMP
BEQ
ERROR

CMP

BEQ
ERROR
MOV

RRCS1(R2),7.CS1 :STORE CS1 AND €S2
RKCS2(R2) [ T.CS2
#CERR'RDY
| ROHEADECAC<GO>> ,E.CS1 :LOAD EXPECT CS1
E.CS1,T.CS1
5%
166

*CHECK FOR CONTROLLER ERROR
YES, CHECK FOR DATA LATE
$CS1° INCORRECT

6%
‘YES, CHECK RK6%1
CS2 INCORRECT
167
#CCLR,RKCST1(R2) :CLEAR RK611

':ttQt"t".'t""'"""Q"""'Q"ttt"t't".'t'tt""""""'

TeTEST 32
M

N
ot
A
ot
o
13

2ERO SYNCH ON READ

FOLLOWING WORDS:

177777

000000

o
1

1mnn

A
;t
o

MAKE SURE THAT READY COMES AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK THE SILO FOR CORRECT CONTENTS.

X 222222222222
AR
XXXXR222X232X2232322323223233322323223232222223}3]

026326
026330

001200

100000
000040
000025
000312
000440
000040

000000
000026
000000

QO0O0O0O0O

001270

W=t N~

C)CDhflhd‘igs S

NNOONNNN N
WO OO o~
NN NO

b e

N=4\ g LY IV L NT NT NT NPV T ST NT ST ST,
fldfiugs 2883283222283
-

(=1 =]

026502

000144

000026
000026

000140
000040
000440
000040
003614
003616
000341
043540

000026
000026
000026
000026

000001
043540
000003
064326

003614

TS 132:

SCOPE

MOV
MOV
MOV .
MOV

#100.,8TIMES
:;DO 100. ITERATIONS
$BASE . R2
:LOAD RK611 BASE
#CCLR.RKCS1(R2) :CLEAR RK611
#DMD, RKMRY (R2)
:PUT RK611 IN DIAGNOSTIC MODE

MOV

#DMD !MCLK ,RKMR1(R2)

MOV
MOV

MOV
DEC

#0MD
. RKMRT (R2)

;

FOR SECTOR PULSE

MOV
MOV
MOV

RO
1$
#OMD !MSP,RKMR1(R2)
;SIMULATE SECTOR PULSE
. RKMRY (R2)
#DMD
#DMD
i MCLK ,RKMR1(R2)
;SHIFT DATA ONE HALF BIT TIME

CLR
CLR
MOV
JSR
DEC
BNE
MoV
JSR

PR.BIT
n1.817
2225.,R0
PC,RDBIT
RO
28
#1,PR.BIT
PC,ROBIT

sINITIALIZE PRESENT BIT AND
PREVIOUS BIT
:

MoV

#HEADT ,R3

:LOAD ADDRESS OF DATA

BNE

MOV

2s:

#ROHEAD ,RKCST(R2) ; ISSUE READ HEADER
#50.¢4+3,R0
:1SSUE ENOUGH CLOCKS UNTIL READY

MOV

#0mD
. RKMRT (R2)

”73,R1

sSIMULATE SYNCH

:LOAD NUMBER OF WORDS

(alal

c 8
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 94
131
SYNCH DETECT IN READ HEADER

000024

00576

o-ooooorOrOFrOONOFONONON

[elelelelelololelalalel=]

5000

MNINININIAININININININOND

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD.PIY

$056

026506

012737

000025

5058
5059
5060
5061
5062
gggz

026516
ozesgz
026530
026532
026534
026540

012700
013737
006004
103403
005037
000403

000020
003614

5065
5066

026542
026550

012737
004737

5071
5072
5073

026600
026604
026612

160137
012737
160037

5057 026514

5067
5068
5069
5070

026554
026562
026570
026572

012304

016237
023737
001417
012737

S07& 026616 104150
5075
gg;g

026620
026626

012762
000522

5078
$079
S080
5081
5082
s083
5084
5085
5086

026630
026632
026634
026636
026640
0
&
026652
026656
026662

005300
001333
005301
001326
012700
013737
005037
004737
005300

5088
5089
5
S091
5092
5093
5094
5095
096
5097
5098
5099
5100
5101

026666
026676
026702
026710
026716
026724
026726
026730
026736
026740
026742
026746
026752
026756

016237
016237
012737
012737
023737
001401
104151
023737
001401
104152
005037
012703
012337
016237

5087

5102
5103
5104

026664

026764
026772
027000

001367

016237
016237
022737

5105 027006 001003

5106
§107
5108
5109
g}}?

027010
027016
027024
027026
027030

012737
023737
001402
104153
000421

8
PAGE 95

MACY 3?;51052)

19-JUN-80 13:52
ZERO SYNCH ON READ

003500

MOV

#RDHEAD E.CS1

;LOAD EXPECTED CS$1

MOV
MOV
ROR
BCS
CLR
BR

016.,R0
PR.BIT,M1.BIT
R4
7s
PR.BIT
8$

SLOAD BIT COUNT
:STORE PREVIOUS BIT
:GET NEXT BIT
SCHECK IF 1
:NO, ZERO
SSIMULATE READ DATA

MOV
JSR

#1,PR.BIT
PC.RDBIT

; ONE
:SIMULATE READ DATA

SUB
MOV
SUB

R1.WRDCNT
#16. ,BITCNT
RO,BITCNT

:LOAD BIT COUNT

5¢:

003616

68:

000001
043540

003614

000000
003500

003440
003440

7$:
8s:

000003
003624
000020
003622

003624

100000

000000

003614

003622

003616

000000
000010
000224
000300
003500

003440
003450
003500
003510
003440

003510

003450

15%:

163:

003462
003440
003450
003624

000100
003500

003510
003440

208:

RKCST(R2),T.CS1
E.CS1,T.CS1
9%
#3,WRDCNT

:GET DATA

:READ COMMAND AND STATUS REG. 1
SCHECK IF CS1 CORRECT
:YES, SIMULATE NEXT BIT
:LOAD WORD COUNT

#CCLR,RKCS1(R2) :CLEAR RK611
15133
1560 ON TO NEXT TEST

156

:CS1 INCORRECT DURING HEADER

DEC
BNE
DEC
BNE
MOV
MoV
CLR
JSR
DEC

RO
63
R1
5$
#4 RO
PR.BIT M1.BIT
PR.BIT
PC,RDBIT
RO

sCHECK IF READY FOR NEXT WORD
‘NO, GET NEXT BIT
:CHECK IF HEADER FINISHED
‘NO, GET NEXT WORD
:LOAD COUNT FOR POSTAMBLE
:STORE LAST BIT
*LOAD NEXT BIT
:SIMULATE 1 BIT READ
:CHECK IF TIME FOR READY

MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
(MP
8EQ
ERROR
CLR
MOV
MOV
MOV

RKCS1(R2),71.CS1 :GET CURRENT €SI
RKCS2(R2).T.CS2 :GET CURRENT €52
#RDY 'RONEADE<*C<GO>>
,E.CST ;LOAD EXPECTED CS1
#OR'IR,E.CS2
:LOAD EXPECTED (S?
E.CS1,T.CS1
TCHECK CS1 CORRECT
168
SYES, CHECK €S2
151
:CS1 INCORRECT
£.(52,7.CS2
:CHECK €S2 CORRECT
178
sYES, CHECK DATA
152
€S2 INCORRECT
JINITIALIZE WORD COUNT
WRDCNT
#HEAD1,R3
:GET ADDRESS OF DATA
(R3)+,E.DB
:GET EXPECTED DATA
RKOB(R2),T.0B
:GET ACTUAL DATA

BNE

MOV
MOV
CMP

218:

(R +,RE

MOV
BR

BNE

17$:

003624
064326
003522
000024
000000
000010
000002

MOV
CMP
BEQ
MOV

ERROR

9% :

000004
003614
003614
043540

MOV

MOV
(MP
BEQ
ERROR
BR

15¢%

:NO, CONTINUE WITH POSTAMBLE

RKCST(R25,T.CS1 :STORE COMMAND AND STATUS REG. 1
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
#2 WRDCNT
SCHECK IF LAST WORD IN DATA BUFFER
#IR,E.CS2
E.CS1.T.C1
22%
153
15133

SEQ 0094

:NO, CHECK CS1

:STORE EXPECTED €S2
SCHECK €S1 CORRECT
‘YES, CHECK €S2
:CS1 INCORRECT
1:GO ON TO NEXT TEST

CIR6CDO RK6T11 DSKLS CTRL PRTY
CIR6CD.P1T
19-JUN-80 13:49

[VIVAVAVAIVIV
IV IV IVO YV OB
X 2X NO
af 22 NS
ok 2 ad
2 bbuuuuur
20008
W
=2 OO
N WS IVU~
W
—2O0
N

027032
027040
027042
027044

023737
001402
104154
000413

003510

003450

20%:

027046
027054
027056
027060
027064
027072

023737
001401
104155
005237
022737
001327

003522

003462

238:

003624
000003

003624

PAGE 96

SEQ@ 0095

CMP

E.CS2,T7.CS2

;CHECK (S2 CORRECT

CMP

E.0B,T.08B

:CHECK IF DATA CORRECT

204

‘NO, GET NEXT WORD

BEQ
ERROR
BR
BEQ
ERROR
INC
CMP

BNE

238
154
TST33

248
155
WROCNY
#3 WRDCNT

;YES, CHECK DATA
;€S2 INCORRECT
::60 ON TO NEXT TEST
:YES, GET NEXT HEADER WORD
;DATA INCORRECT
: INCREMENT WORD COUNT
¢CHECK IF ALL THREE WORDS CHECK

«*MFM WRITE LOOPBACK TESTS

*TEST 33
[J

.
*

0
L}
L4

.
’

.
.
*
*
*
*
.

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 RKO06
IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTH SEEX AND DRIVE CLEAR MESSAGES. SIMULATE
INDEX PULSE AND 500 DATA BITS. MAKE SURE THAT
ZEROES ARE WRITTEN. SIMULATE SECTOR PULSE AND MAKE SURE

WRITE GATE RESETS.

027074
027076
027104
027110

000004
012737
013702
012762
12762
1 2762
1

;"QQ'"Q""'t"'"""""""'.l"'.'.""".it'"Qt"Q'Q"'Q'

000144
001270
100000

000040

001200
000000

000027
002364

000000

000440
000040

000026
000026

0272
027212
027220
027226
0272
027236
027240
027246

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

000004
000240
000640
000240

000026
000026
000026

027254
027260
027266
027274
027276

012700
012762
012762
005300
001370

~
N

SCOPE
MOV
MOV
MOV
MOV

MOV

000140

12762
12700

027166
027174
027202

TS133:

000040
062040

000026
003524

000002
000440
000040

000026
000026

MOV
MOV
MOV
MOV
MOV

18:

28:

#OMD {MSP,RKMR1(R2) ; INITIALIZE ROM

MOV

#0MD
. RKMR1 (R2)
#URBUFF ,RKBA(R2) ;ISSUE WRITE HEADER
#-1,RRWC (R2)
#YRHEAD
, RKCS1(R2)
#<256.+48.+64.4256.+10.>22,R0 ;ISSUE ENOUGH CLOCKS
.
"UNTIL READY FOR INDEX PULSE
#OMD
! MCLK ,RKMR1 (R2)

DEC
BNE
Mov
MOV

RO
1%
8. RO
: SIMULATE INDEX PULSE
#NIND!OMD,RKMR1(R2)

MOV

MOV
DEC

#DMD
. RKMRT (R2)

(R2)
D
' MIND ! MCLK,RKMRT
#OM

#OMD ! MIND . RKMR (R2)

MOV
MOV

RO
2%
#OMD, RKMR1 (R2)
#DMD {MEWD ' ECCW!'WRTGAT,E.MR1

MOV

#2.R0

MOV

#0M0
. RKMR{ (R2)

BNE

38:

#100.,.$TIMES
:;DO 100. ITERATIONS
$BASE . R2
*LOAD RK611 BASE
#CCLR.RKCS1(R2) CLEAR RK611
#DMD,RKMRY
(R2)
:PUT RK611 IN DIAGNOSTIC MODE

MOV
DEC
BNE

;INITIALIZE EXPECTED

REG

‘WAIT FOR WRITE GATE

' MCLK ,RKMR1 (R2)
#OMD
RO
{3

MAINT.

[

19-JUN-80 13:52
IERO SYNCH ON READ

;".t"."'t""""""""'i""""'.'."'Q'."QQ'Q'Q"Q.""'

D Al i
D

A A

D D D D D Sl A

WA T A

D i
D il

U VAW A A

D i il i
— e o

i e e

D e

D oo

WVAA LA A A A A A A A A

65
66
67

248:

.SBTTL

D el

VAT ABIAA VIA A

A A

A VA WA VA VTRV A N AW VT N

) D D D D il D nd ol D i
ol o i D D S D D i e b NN N AN N AN PRI NI PO PININ) b —d b b b b b —
W
= O VO NP WVE
NN 2O00NN
W~N
W

CZR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.PY
19-JUN-80 13:49

MACY1Y 3?951052)

CIR6CDO RK611 DSKLS CTRL PR
CZR6CD.P11
19-JUN-80 13:

F
8
19-JUN-B0 13:52 PAGE 97
MACY11 30A(1052)
133
WRITE ZEROS UNTIL SECTOR PULSE WITH WRITE HEADER

CLR
CLR

027350

005237

003622

027360
027366

042737
052737

040000
000100
000140
000026
0035264

00352¢
003524
000026
003464
003464

000100
040000
000040
000026
0035264

003524
000026
003464
003464

027422
027430

042737
052737

027444
027452

010237
023737

027462

104172

~n
~

N
N
»

016237
023737

pry

(=]

027402
027410

~nN
~

042570

~N
~
(V]
~
P

004737

VIS
W
-2 0O O
:80l\“?\hffldhd—‘
4)1)i)i)i)(li’i)égg;g:g:g: 0'2!0"’0'0.'4

PR.BIT
M1.BIT7
M2.BI1T
#500.,R0

CLR
JSR

BITCNT
PC,WRTBIT

INC
DEC
BNE
BIC
BIS
MOV
MOV
CMP
BEQ
ERROR
BIC
BIS

BITCNT
*INCREMENT NUMBER OF BITS WRITTEN
RO
SCHECK IF FINISHED
5$
‘N0, CONTINUE
#URTGAT ,E.MR1
:GENERATE EXPECTED MR1
E . MR1
#MSP
#DMD ! MSP,RKMR1(R2) ;RAISE SECTOR PULSE
RKMR1(R2),T.MR1 ;STORE MAINT. REG. 1
:STORE MAINT REG 1
E.MRY, T.MRY
108
SYES, LOWER SECTOR PULSE
:WRITE GATE DID NOT RESET
171
#MSP,E . MRY
:GENERATE EXPECTED MR1
MR1
. ,E
#WURTGAT

MOV

RKMRT (R2),T.MR1 :STORE MAINT REG 1

MOV

003170

5¢:

003524

108:

;CLEAR SECTOR COUNT
sINITIALIZE BIT GENERATION

CLR
(LR
MoV

CLR

SECCNT
P1.817

ERROR

MOV

CMP
BEQ
ERROR

2En230,Emv

170

:LOAD COUNT FOR 500 BITS

‘LOAD ERROR MESSAGE

SCLEAR BIT COUNT
‘WRITE ONE BIT

:ERROR IN WRITE

#DMD ,RKMR1(R2)

;RESET SECTOR PULSE

£.MR1,T.MR1
TS134
172

*CHECK MR1 CORRECT
:sYES, GO ON TO NEXT TEST
;WRITE GATE DID NOT SET

°:'tt""'.'!'t""'"""""""'Q"t"t."""."."'tl"t"tt

TOTEST 34

WRITE LOOPBACK (PART 1)

PUT CONTROLLER

CLEAR THE RX611 WITH A CONTROLLER CLEAR.

)
.
)

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:

.
.

IN DIAGNOSTIC MODE. ISSUE A WRITE HEADER TO AN RKO6
IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 0, DRIVE 0.

177777
000000
177777

.
.
.
|]

i) —

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

»~

ST ST N1 STV Lad

737
702

[ASTN I

N~
~~

027536

D
o
i

]
=4

OOO0O0OOOO0O0O

NS
W) = O OO ~NO

DSLSLSLSTNT
NN LSS L G i

AANVAVAVAWVAVAWAWVI
WA VIVA VA

62
62
62
62
62
00

000144
001270

100000
000040
064326
177775
000027
000312

001200

000000
000026
000004
000002
000000

T$134:

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

#100.,8TIMES
;:00 100. ITERATIONS
$BASE .R2
*LOAD RK611 BASE
#CCLR.RKCST(R2) :CLEAR RK611
JOMD,RKMRI(R2)
PUT RK611 IN DIAGNOSTIC MODE
FHEADY,RKBA(R2) :ISSUE WRITE HEADER
#-3,RKWC (R2)
PURNEAD , RKCS1(R2)

#50.%4¢2,R0

S ISSUE ENOUGH CLOCKS UNTIL
"

"READY FOR

INDEX PULSE

SEQ 0096

CIR6CO0 RK611 DSKLS CTIRL PRT3
CZR6CD.P11
19-JUN-80 13:49
§2264

027542

012762

§226
§227
§228
§229
§230

027556
027560
027562
027566
027574

005300
001370
012700
012762
01276%

§232
5233
5234
§235
5236
5237
5238
5239
§240
5241
5262
5243

027610
027612
027614
027622
027626
027634
027642
027644
027646
027654
027662
027666

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

5246
5247
5248
§249
§250
§251
5252

5225

5231

027550 012762

027602 012762

000440

000040

000004
000240
000640

MACY1Y 3?921052)

6 8
19-JUN-80 13:52 PAGE 98
WRITE LOOPBACK (PART 1)

000026

18:

MOV

#OMD
' MCLK ,RKMR1(R2)

2%:

DEC
BNE
MOV
MOV
MOV

RO
1%
#4 RO
:1SSUE INDEX PULSE
#DMD 'MIND , RKMR1 (R2)
#OMD !MIND {MCLK ,RKMR1(R2)

000026
000026
000026

000240 000026
000040
000010
000440
000040

000026

000026
000026

012737

000140
000040
003626
060411
062040

027702
027706
027712
027716
027722
0277§g
027732

005037
005037
005037
005037
012700
005037
004737

003612
003614
003616
003620
000400
003622
042570

5254
5255
5256
§257
5258

027740
027744
027746
027750
027756

005237
005300
001371
012737
004737

003622

5260
5261
5262
5263

027764
027770
027776
030002

005037
012737
012703
012700

003622
060455
064326
000003

5265
5266
5267
5268
5269
§270
5271
gg;g

030010
030014
030022
030030
030036
030040
030042
030046

012701
013737
013737
013737
006004
103403
005037
000403

000020
003616
003614
003612

5274
5275

030050
030056

012737
004737

000001
042570

5277
5278
5279

030064
030070
030072

005237
005301
001350

003622

g%zg

027674

5253 027736 104170

§259 027762

104170

5264 030006 012304

§276 030062 104170

000001
042570

000026
000026

3$:

003170
003524

MOV

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

MOV

5¢:

003612

108:
003620
003616
0036'4

12%:

003612

148:
158:

003612

#0MD
. RKMR{ (R2)

#DMD I MIND . RKMR{ (R2)

RO
28
#OMD ,RKMR1 (R2)
#8.,R0
:WAIT FOR WRITE GATE
#OMD ' MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2)
RO
3$
#OMD 'MSP ,RKMR1(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
SECCNT
;INITIALIZE SECTOR COUNT
NEM233,EMV
*LOAD ERROR MESSAGE

ODHD!HEUD!ECCU!URTGaIiEiH:;G:%NlTIALlZE EXPECTED
;

CLR
CLR
CLR
CLR
MOV
CLR
JSR

P1.817
PR.BIT
M1.BIT
M2.B17
#256. R0
BITCNT
PC,WRTBIT

INC
DEC
BNE
MOV
JSR

BITCNT
RO
5¢
M ,P1.BIT
PC WRTBIT

SCHECK IF READY FOR DATA
*NO, GENERATE NEXT BIT
SPUT IN SYNCH BIT

CLR
MOV
Mov
MOV

BITCNT
SEM234 ,EMY
#HEAD1,RY
#3 RO

SINITIALIZE BIT COUNT
SLOAD ERROR MESSAGE
:LOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER

MOV
MOV
MOV
MOV
ROR
8CS
CLR
BR

06, .R1
M1.BIT,M2.BIT
PR.BIT,M1.BIT
P1.BIT.PR.BIT
R&
148
P1.B1T
15%

MOV
JSR

7 ,P1.817
PC WRIBIT

INC
DEC
BNE

BITCNT
R
12%

ERROR

003170

SEQ 0097

MOV

ERROR

170

SINITIALIZE BIT GENERATION

;SIMULATE SYNCH
sINITIALIZE BIT COUNT
‘WRITE ONE BIT

:DATA INCORRECT

170

:DATA INCORRECT

(R$)+,Re

SGET NEXT WORD

170

*LOAD BIT COUNT
:SHIFT BITS

SSHIFT IN NEXT BIT
TCHECK IF ONE
< 2ERO
:CLOCK IN BIT
: ONE
‘WRITE BIT

:BIT INCORRECT

*INCREMENT BT COUNT
SCHECK [F WORD FINISHED
*NO, CONTINUE WITH NEXT BIT

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD P

382832332%

000020
003616
003614
003612
003612
0462570

18$:

001401

M1.BIT,M2.BIT

JSR

PC WRTBIT

MOV
MOV
CLR

INC
DEC
BNE
MOV

000240
000004
000640
000240

000026

000040
000026
022040
003524

000026
003464
003524
003464

000026
000026

20$:

-~
[V]

000010
000440
000040

000026
000026

000000
000226
003500

003440
003500
003440

25%:
26%:

MOV

MOV
MoV
DEC
BNE
MoV
MoV
MoV

CMP
BEQ
ERROR
MoV
MoV
MoV
DEC
BNE

MoV
MOV
CMP
BEQ

ERROR

RO
108
6. ,R1

PR.BIT.M1.BIT
P1.BIT,PR.BIT
P1.B1T

SEQ 0098

:CHECK IF HEADER COMPLETE
*NO, GET NEXT WORD
*LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

:WRITE 2ERO

:BIT INCORRECT

170

L INCREMENT BIT COUNT
SCHECK IF FINISHED
*NO, CLOCK NEXT BIT

BITCNT
Al
188

#DMD'MIND ,RKMR1(R2)
;SIMULATE INDEX
¥4 ,R0
#OMD !MIND ! MCLK ,RKMR1 (R2)
#OMD !MIND,RKMR1(R2)
RO
20$
#OMD ,RKMR1 (R2)

. MR1 ;GET MAINT REG 1
RKMR1(R2),T
#MEWD'ECCW!DMD,E.MRT ;LOAD EXPECTED MR1

E.MR1,T.MRY
25%
173

;CHECK MR1 CORRECT (WRITE GATE RESET)
;YES, CHECK IF READY SET
sMAINT REG 1 INCORRECT

;FINISH COMMAND
#8.,R0
#OMD ! MCLK ,RKMR1(R2)
#OMD ,RKMR1 (R2)
RO
268

RKCST(R2),7.CS1 ;GET COMMAND AND STATUS REG 1
,E.CS1 ;LOAD EXPECTED (S1
#RDY 'WRHEADE<*(C<G0>>
;CHECK IF CS1 CORRECT
E.CS1,T.CSY
;;YES, GO ON TO NEXT TEST
18135
:CS1

174

INCORRECT

;:t."."t"'.""""""""i""'.l't"..'.'.""Q'Q.Q""t"'

WRITE LOOPBACK (PART 2)

PUT CONTROLLER

BN BN N

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
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER

BN NN B

CONSISTING OF THE FOLLOWING DATA, AND AN INDEX PULSE:

BN B

000000
17
000000

MAKE SURE THAT READY COMES UP AFTER THE THIRD WORD

IS TRANSFERRED.

CHECK FOR CORRECT WRITE ENCODED DATA

AND PRECOMPENSATION.

YR YR TR TR IR IR TE TR TR TR TN P
Y

CLEAR THE RK611 WITH A CONTROLLER CLEAR.

PN ]

JeTEST 35

coanantttteRERRtRRRORECEOEREEROIRCEREIRORRGARSGSRARORERRORROAGQEOORARORROECEARNRETY

-y

8822228922288

RJO‘—‘\flh)fi)h)f:-‘\flflflcth-‘\h

[P
w
~
(¥ )
~

030276
030304
030306

401

DEC
BNE
MOV
MOV

ERROR

000144

001200

wee

FUK28 OO NO WV

003620
003616
003614

003622

00O

\d\d\fl\d\fl\d\d\d\fl\fl\d\dtfl\d\fl\d\d\fltflUflVflfflfl&flE; ERERRRIY REX28
£328882283
VS NN =2C
O ~NO
W
N =2 OO OB ~NO .J.a.u.n-a—%%()()&i

WA N WA
WIWNWNAWNIWAVIWN
WVIVA VAR
WA WA WA WAV
MNPV
NN
NN NN
D

H 8
19-JUN-80
13:52
PAGE 99
30A(1052)
WRITE LOOPBACK (PART 1)
134

005300

WA WA
A WA VA WA WA WA A WA VWA W VAR VTN AW
WA VA

[V [V IV LV IV [V ]
AINININININIPORININ)
b —b b b
(v}
(¥ IV [V ]

MACYT

135:

SCOPE

MoV

#100.,8TINES

;00 100. ITERATIONS

~N =~

oooooo
[
108
1N |
~NO oo
OOorN

000000
000026
000004
000002
000000

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

1%:

—

$BASE ,R2
;LOAD RK611 BASE
#CCLR.RKCST(R2) :CLEAR RK611

MoV
MoV

#DMD
' MCLK , RKMRY (R2)

DEC
BNE

2s:

MOV
Mov
MOV
MOV

DEC
BNE

000026

000140
000040
003626
060411
062040

000026
000026

MOV
MoV
MOV
MOV
DEC
BNE
MOV
MoV

003170
003524

MOV
MoV

3s:

CLR

CLR
CLR
CLR
CLR

Mov

5%:

003622

000001
042570
003622

060455
064334
000003
000020
003616
003614
003612
003612

CLR
JSR
ERROR
INC

003612

003170
10$:

003620
003616
003614

128%:

SEQ 0099

MOV
MOV
MoV
MOV
MoV
MoV
Mov

000040
000010
000440
000040

000026
000026

30A(1052)
19-JUN-80 13:52 PAGE 100
135
WRITE LOOPBACK (PART 2)

8°

100000

MACY11

003612
003674
003616
003620
000400
003622
042570

NOWNS

s§
O0=0000000000

NSO
NSMOO

333

g2%

AAAVAVAA
WA VAWAWVAIVAWAWA

$3%
283 EEEEEELES

5374
5375
5376

000040
064334
177775
000027
000312

030526

001270

OWWNWMNS
WNNO
YN —

NO VWS W
NI 2O OB NOWVEWNN 2O O

N
N

N M

VAR WA WM VAWV

Ll A\ L A

SRR
~
(¥ N=2O
O

030512
030520

01370

88
22982988229228822228322
22222
WVAMVA
AIRAARIN = VARININIAD = VARIPNIRNIND = VAROAY
NINIAIRIAD

030320

FRLELERE

bbuuwg
~2O 00~

WM NN NN

)
5
5
S
)
)
]
5
5
5
S
5
]
5
5
5
5
5
S
5
S
5
5
5
5
5
5
5
5
]
]
5
5
5
]3
53
53
53

DSKLS CYRL PRT3
19-JUN-80 13:49

o
o
Pl Y e P PrrPuur PurGur P Par-ghurs
N =2\
WAV
[ JV TV IV [ ST ST S 1SS0 ~
N NO =2 N NN

C l R 6CD0 RK61Y
C l R 6C0.P11Y

DEC
BNE
MOV
JSR
ERROR
CLR
MOV
MOV
MoV
MOV
MOV
MOV

MoV
MOV
ROR
BCS

CLR

#OMD, AKMRT(R2)

:PUT RK611 IN DIAGNOSTIC MODE

#50.+4+5,R0

:ISSUE ENOUGH CLOCKS UNTIL

#HEAD2 ,RKBA(R2) :ISSUE WRITE HEADER
#-3,RKWC (R2)
FURNEAD ,RKCS1(R2)
*""READY FOR

INDEX PULSE

#DMD ,RKMRT (R2)

RO
1%
#4 RO
:ISSUE INDEX PULSE
#OMD ' MIND , RKMR1 (R2)
#OMD {MIND {MCLK ,RKMRT (R2)
#OMD ' WIND , RKMR1 (R2)
RO

#OMD ,RKMR1 (R2)
#8.,R0
;WAIT FOR WRITE GATE
#OMD ! MCLK ,RKMR1
(R2)
#OMD ,RKMR1 (R2)
RO

#OMD !MSP ,RKMR1(R2)
#OMD ,RKMR1(R2)

;SIMULATE

SECTOR PULSE

INITIALIZE SECTOR COUNT
SECCNT
#EM233 ,EMM
:LOAD ERROR MESSAGE
#DMD 'MEWD 'ECCW!WRTGAT
,E.MRT ; INITIALIZE EXPECTED
P1.8IT
PR.BIT
M1.BIT

:
MAINT REG
SINITIALIZE BIT GENERATION

M2.BIT
#256. ,R0
gITCNT

;SIMULATE SYNCH
SINITIALIZE BIT COUNI

176

:DATA INCORRECT

PC,WRTBIT

BITCNT
RO
5$

1 ,P1.8IT
PC WRTBIT

176

‘WRITE ONE BIT

:CHECK IF READY FOR DATA
*NO, GENERATE NEXT BIT
:PUT

IN SYNCH BIT

:DATA INCORRECT

BITCNT

JINITIALIZE BIT COUNT

(R%)+,R4

:GET NEXT WORD

FEM234,EMY
FHEAD2 .R3
#3,R0
6. R

M1.BIT,M2.BIT

PR.BIT.M1.BIT
P1.BIT.PR.BIT
R4
14$

P1.8I1T

:LOAD ERROR MESSAGE
*LOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER
*LOAD BIT COUNT

:SHIFT BITS
SSHIFT
*CHECK

. LERO

IN NEXT BIT
1F ONE

5394
5395
5396
5397
5398

030674
030702
030706
030710
030714

012737

000001
042570

003612

003622

000020
003616

003620
003616
003614

18%:

042570

000240
000004
000640
000240

000026

000040
000026
022040
003524

000026

000026
000026

20$:

Mov

MOV

MOV
CLR
JSR
ERROR
INC
DEC
BNE
MoV
MOV

MOV

]3]
ERROR
MOV

MOV

MOV
DEC
BNE
MoV
MOV

CMP
BEQ
ERROR

;CLOCK IN BIT

,P1.817
PC WRTBIT

:ONE
‘WRITE BIT

BITCNY

S INCREMENT BIT COUNT

176

R1
128

RO
108
6. R
M1.BIT,M2.BIT
PR.BIT,M1.BIT
P1.B17,PR.BIT
P1.BIT

:BIT INCORRECT

<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

PC WRTBIT

;WRITE ZERO

BITCNT

s INCREMENT B1T COUNI

176

R1
18%

:BIT INCORRECT

sCHECK 1F FINISHED
:NO, CLOCK NEXT BIT
:2"26HIND.RKHR1(R2)
:SIMULATE INDEX

#OMD !MIND!MCLK
,RKMR1 (R2)
#OMD !MIND,RKMR1(R2)

20$
#DMD ,RKMR1 (R2)

RKMRY (R2),T.MR1 :GET MAINT REG 1

#MEWD 'ECCW ' DMD,E.MR1 :LOAD EXPECTED MR1
{CHECK MR1 CORRECT (WRITE GATE RESET)
E.MRY,T.MR1
SYES, CHECK IF READY SET
5%
:MAINT REG 1 INCORRECT
173
#8.,RO
SFINISH COMMAND
#OMD ' MCLK ,RKMRT
(R2)
#OMD
. RKMR{ (R2)
RO

268
RKCS1(R2),T,.CS1 ;GET COMMAND AND STATUS REG 1
#RDY ! WRHEADR<*(<G0>>,E.CS1 ;LOAD EXPECTED CS1
;CHECK IF CS1 CORRECY
E.CS1,T.(1
15136
;:YES, GO ON TO NEXT TEST
174
:CS1 INCORRECT

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

%8S

SeTEST 36

003440
003500
003440

26$%:

000000
000226
003500

25%:

000026
000026

JSR
ERROR
INC
DEC
BNE
DEC
BNE

MOV
MoV
cMP

003464

000010
000440
000040

MoV

DEC
BNE
MoV

L TETTETXE
FE FE
N FN P
FE
R

-fltdhn>2=—"fihuhnu
'N*d&fldhdarfl'd—fit“fl
o~
~N
~N

Nt
2 O

882288 -.-h-og
-

o
& =2 NI
O = ARONON)

&R]H 333
d b b b b b O
-

AMANN)
=

S 1=1,
VP

U Ll A Al Ul Wl Ll A
A

r
N

Wl Ll W Ll Ll A

[(elelalolelel=loioiololalela
el

-l

003622

401

WRITE LOOPBACK (PART 3)

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
ISSUE A WRITE HEADER TO AN RK06
IN DIAGNOSTIC MODE.

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

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:
25252
52525
25252

Y
o P

000403
>

030672

—

5392

—

19-JUN-80 13:49

CIR6CD.PYY

19-JUN-80 13:52
PAGE 101
MACY11 30A(1052)
135
WRITE LOOPBACK (PART 2)

CIR6CDO RK611 DSKLS CTRL PRT3

SEQ@ 0100

CIR6CDO RK611 DSKLS CTRL PRTY
CIR6CD.P11
19-JUN-80 13:49

MACYN 3?;é1052)

5448

9449

223(1)

S‘OSZ

5453

031134

000004

031136
031144
031150
031156
0311664
031172
031200

012737
013702
012762
012762
012762
012762
012762

000144
001270
100000
0000640
064342
177775
000027

000000
000026
000004
000002
000000

$462
5463

031212

012762

000440

000026

031226
031230
031232
031236
031244
031252
031260
031262
031264
031272
031§7o

005300
001370
012700
012762
012762
012762
005300
001370
012762
012700
81576

031312
031314

005300
001370

5464

5465
5466
56467
5468
5469
5470
5471
5472
5473
S4764
5475

5476

5477
5478

5479
5480
5481
5482
gzgz

031206

012700 000312

031220 012762

031304

031716
031324
031332
031336
031346

012762

000040
000004
000240
000640
000240
000040
000010
000440

000040

012762
012762
005037
012737
012737

000140
000040
003626
060411
062040

5485
5486
5487
5488
5489
5490
5491

031352
031356
031362
031366
031372
031376
031402

005037
005037
005037
005037
012700
005037
004737

003612
003614
003616
003620
000400
003622
042570

5493
5494
5495
5496
5497

031410
031414
031416
031420
031426

005237
005300
001371
012737
004737

003622

5499
§500
5501
5502

031434
031440
031446
031452

005037
012737
012703
012700

003622
060455
064342
000003

5492 031406 104170

5498 031432

104170

5503 031456 012304

MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX PULSE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

:;ttt"t"t't't"""'t't""'t't'lt'tt't"ttt'.'tt"ttttt"t""

5454
5455
5456
5457
5458
5459
5460

5461

K 8
19-JUN-80 13:52 PAGE 102
WRITE LOOPBACK (PART 3)

000001
042570

001200

000026

000026
000026
000026

T§136:

000026

#100.,$TIMES
;:D0 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#CCLR,RKCS1(R2) ;CLEAR RK611
#0MD ,RKMRT1(R2)
;PUT RK6T1 IN DIAGNOSTIC MODE
#HEADS,RKBA(R2) :ISSUE WRITE HEADER
#-3,RKWC (R2)
#URHEAD ,RKCS1(R2)

MOV

#OMD
' MCLK,

DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV

RO
1%
#4 RO
;ISSUE INDEX PULSE
#OMD ! MIND, RKMR1 (R2)
#DMD I MIND ! MCLK , RKMR1 (R2)
#OMD i MIND ,RKMR1
(R2)
RO
28
#DMD
, RKMR1 (R2)
#8..R0
:WAIT FOR WRITE GATE
#OMD
' MCLK , RKMRY (R2)

MOV

1$:

28:

000026
000026

SCOPE

MOV
MOV
MOV
MoV
MOV
MOV
MOV

3$:

MOV

DEC
BNE

000026
000026

MoV
MOV
CLR
MoV
MOV

003170
003524

5¢:

003612

108:

#0MD ,RKMRT (R2)

#OMD ' MSP ,RKMRT1
(R2) ;SIMULATE SECTOR PULSE
£OMD .RKMR1 (R2)
SECCNT
JINITIALIZE SECTOR COUNT
#EN233 . EMY
:LOAD ERROR MESSAGE
'°"°!"E"°!ECC"!"RTGQIiSi":Ec:%"l"ALllE EXPECTED

INC
DEC
BNE
MOV
JSR

BITCNT
RO
5%
M ,P1.BIT
PC WRTBIT

CLR
MOV
MoV
MOV

BITCNT
FEM234,EMY
#HEADI,RY
#3.R0O

MOV

:
READY FOR INDEX PULSE
RKMRT (R2)

. RO
38

P1.BIT
PR.BIT
M1 .BIT
M2.817
#256. ,R0
BITCNT
PC WRTBIT

ERROR

:ISSUE ENOUGH CLOCKS UNTIL

#DMD .RKMRT (R2)

CLR
CLR
CLR
CLR
MOV
CLR
JSR

ERROR

003170

#50.¢4+3,R0

170

SINITIALIZE 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

170

:DATA INCORRECT

(R$)+,Re

:GET NEXT WORD

SINITIALIZE BIT COUNT
*LOAD ERROR MESSAGE
:LOAD ADDRESS OF DATA
;LOAD NUMBER WORDS IN HEADER

SEQ 0101

CIR6CDO RK611 DSKLS CTRL PRT3

19-JUN-80 13:49

R3S cmno&8RF o

003620
003616
003614

il el el o P

v ]

and wd a=b

-l and e

[V IV [VRV IV IV IV IV P

and

OO0

[ =)

012701

12%:

000403

012737
004737

000001
042570

005237
005301
001350
005300
001343
012701
013737
013737

003622

104170

000020
003616
003614
003612
003612
0462570

MoV
MoV
MOV
MOV
ROR
BCS
CLR
B8R

003612

003620
003616
003614

-bflan

l‘-‘&dflflCFQ:-‘\flh)thJfiJ

00000

22258822288 P Qur Pur Pary 9
2 332288
- LN O =2 AR NIND

o
W

[v]

762

PR.BIT.M1.BIT
P1.BIT.PR.BIT

7 ,P1.811
PC WRTBIT

; ONE
‘WRITE BIT

BITCNT
R1
12%
RO
108
6. RI

: INCREMENT BIT COUNT
sCHECK IF WORD FINISHED
sNO, CONTINUE WITH NEXT BIT
;CHECK IF HEADER COMPLETE
sNO, GET NEXT WORD
;LOAD BIT COUNT FOR NEXT WORD

P1.817,PR.BIT
P1.BIT

000026
003464
003524
003464

000026
000026
003440
003500
003440

:BIT INCORRECT

;SHIFT BITS

;WRITE ZERO

:BIT INCORRECT

s INCREMENT BIT COUNT
BITCNT
R1
sCHECK IF FINISHED
:NO, CLOCK NEXT BIT
18%
zzflgéllND.RKHR1(R2)
sSIMULATE INDEX

000026

000040
000026
022040
003524

:SHIFT BITS

SSHIFT IN NEXT BIT
‘CHECK IF ONE
S 1ERO
1CLOCK IN BIT

M1.BIT,M2.BIT
PR.BIT M1.B1T

18$:

;LOAD BIT COUNT

R4
148
P1.81T
15¢

170

000026
000026

000000
000226
003500

#6. R

M1.8{T.m2.BIT

PC WRTBIT

000240
000004
000640
000240

000010
000440
000040

176

003622

NO NS WMN—=2O O
V08 ~NO W BN =2 OO

w AV, WA WA VA A AV AW VWM AA VWA A WA WAV
w WVIVAVVAVVAVVANMES
S S

WA VA WA WTA WA WA VAR VA VA A WTA W AW A AW A WA VAV IV IV TV IV IV IV IV IV IV IV TV IV [V [V IV IV IV IV IV IV VL ]

\I\&V\\fl\fl\fl\.fl\fl\.fl PPV RL NI NI NI NI A PIN) b b i cad e b e b oed = O
3ot Nvd Sveb et OO ~NO NS NN =2 OO ~NO W J~u"v-¢€h00b-dsz

5504
9505

OO0OO0O0O0O0O o
(VW
IV RV [V [V [V VvV w

CIR6CD.P11

19-JUN-80 13:52 PAGE 103
MACY11 30A(1052)
136
WRITE LOOPBACK (PART 3)

#OMD !MIND 'MCLK ,RKMR1T(R2)
:8"0!!1N0.RKHR1(R2)

20$:

20$
#DMD ,RKMR1 (R2)

RKMRT
(R2) , T.MR1 ;GET MAINT REG 1

#MEWD'ECCY!DMD,E.MR1 :LOAD EXPECTED MR1

E.MR1,T.MR1
5%
173

#8. R0

{CHECK MR1 CORRECT (WRITE GATE RESET)
*YES, CHECK IF READY SET
‘MAINT REG 1 INCORRECT

SFINISH COMMAND
#DMD
' MCLK ,RKMR1 (R2)

25$:
26%:

:gno.axnni(RZ)
26%

8EQ
ERROR

RKCST1(R2),7.CS1 ;GET COMMAND AND STATUS REG 1
#ROY ! WRHEADS<*(<GO>>
,E.CS1 ;LOAD EXPECTED (S1
IF CS1 CORRECT
;CHECK
91
E.CS1,T.(
::YES, GO ON TO NEXT TEST
18137
174

:CS1 INCORRECT

:'t'.'."t"t.'."""t"'t""".t"'.l'..'l't't't'!fi""'titt"

SeTEST 37

WRITE LOOPBACK (PART &)

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

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

SEQ 0102

CZR6CDO RK611 DSKLS CTRL PRT3

CZR6CD.P11

19-JUN-80 13:49

MACY11 30A(1052)

5560
§561

gggg

19-JUN-B0

13:52

WRITE LOOPBACK (PART 4)

e
e

CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES. SIMULATE
INDEX PULSE, SECTOR PULSE, ONE THREE WORD HEADER

$564

044444

gggg

111111

5568

SSN"

022222

MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX MODE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

E;nnn"n"tnnnnn"nnnnnt"nnnntnannnnnnn

5572
§573
5574
§575
§576
5577
5578
§579

031760
031762
031770
031774
032002
032010
032016
032024

000004
012737
013702
012762
012762
012762
012762
012762

000144
001270
100000
000040
064356
177775
000027

000000
000026
000004
000002
000000

5581
5582

032036

012762

000440

000026

§504
§¢ ,
5586

032052
032054
032056

005300
001370
012700

5580 032032 012700 000312

001200

5583 032044 012762 000040 000026
5587

835095

81576

000004
000240

T§T37:

032104
032106
032110
032116
032122

005300
001370
012762
012700
012762

5596
5597
5508
5599
5600
5601

032136
032140
032142
032150
032156
032162

005300
001370
012762
012762
005037
012737

000040
000010
000440

1$:

000026

000026
000026

5595 032130 012762 000040 000026

gggg

032170

012737

000140
000040
003626
060411
062040

SCOPE
MOV
#100.,$TIMES
;D0 100. ITERATIONS
MOV
$BASE . R2
:LOAD RK611 BASE
#CCLR,RKCS1(R2) :CLEAR RK611
MOV
MOV
#OMD ,RKMR1(R2) :PUT RK611 IN DIAGNOSTIC MODE
MOV
#HEADL ,RKBA(R2) ;1SSUE WRITE MEADER
MOV
#-3,RKWC (R2)
MOV
#WRHEAD ,RKCS1(R2)

MOV

5588 0320
18762 000640 000026 28:
5589 032076 012762 000240 000026

§590
§591
5592
5593
5594

3$:

003170
003524

. READY FOR INDEX PULSE
#OMD !MCLK ,RKMR1 (R2)

DEC
BNE
MOV

RO
1$
T

MOV
MOV

#OMD {MIND fMCLK ,RKMR1 (R2)
#DMD i MIND , RKMRT (R2)

MOV

#DMD
. RKMRT (R2)

MOV
MOV

DEC
BNE
MOV
MOV
MOV

MOV

#OMD ,RKMRT (R2)

)
;ISSUE INDEX PULSE
#OMD 'MIND ,RKMR1(R2)

RO
2$
#OMD ,RKMR1 (R2)
#8.,R0
:WAIT FOR WRITE GATE
#OMD
' MCLK ,RKMR1 (R2)
RO
113
JOMD !MSP,RKMR1(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)
SECCNT
;INITIALIZE SECTOR COUNT
PEM233 EMY
:LOAD ERROR MESSAGE

conozneuossccuzunrca;isinggc:{nxrlAsze EXPECTED

CLR

P1.8BIT

CLR

n2.BIT

CLR
JSR

BITCNT
PC,WRTBIT

5607

032202
oszzos

005037
005037

003614
003616

032212

005037

003620

032222
oszzgo

005037
004737

003622
042570

CLR
CLR

5608 032213 012700 000400
5609
5610

$611 032232 1o«179

561§
5613
5614
5615

032234
032240
032242
032246

oosis
005300
001371
012737

MOV
5:
.

003622

000001

003612

;ISSUE ENOUGH CLOCKS UNTIL

MOV

DEC
BNE
MOV
MOV
CLR
MOV

000026
000026

#50.+4+5,R0

5604 032176 005037 003612
5605
5606

SEQ 0103

CONSISTING OF THE FOLLOWING DATA, AND AND INDEX PULSE:

gggg

8
PAGE 104

137

5565

ERROR

INC
DEC
BNE
MOV

PR.BIT
ni.8I7

SINITIALIZE BIT GENERATION

#256. ,RO

:SIMULATE SYNCH

170

:DATA INCORRECT

BITCNT
RO
5$
7 ,P1.BIT

SINITIALIZE BIT COUNT
:WRITE ONE BIT

:CHECK IF READY FOR DATA
*NO, GENERATE NEXT BIT
:PUT IN SYNCH BIT

CIROCDO RKO11 DSKLS CTRL PRTY
CIR6CD.P1Y
19-JUN-80 13:49

MACY11 3??;1052)

N 8
19-JUN-80 13:52 PAGE 105
WRITE LOOPBACK (PART &)

561

osggsz

0047;7

042570

JSR

PC WRTBIT

5618
5619
5620
5621

032260
032264
032272
0% ggg

00503
012737
012703
012700

oosezg
060455
064356
000003

CLR
MOV
MOV
MOV

BITCNT
FEMI3L,EMY
#HEADL .R3
#3 R0

5623
ssg«
5625
5626
5627
5628

032304
032310
032316
oszsga
032332
032334

01 7g1
013737
013737
013737
006004
103403

000020
003616
003614
003612

MOV
MOV
MOV
MOV
ROR
BCS

né. R
M1.BIT.M2.B1T
PR.BIT.M1.BIT
P1.81T,PR.BIT
R4
148

gggg

032342

000403

5632
5633

032344
032352

012737
004737

000001
042570

5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645

032360
032364
032366
032370
032372
032374
032400
032406
032414
032422
032426

005237
005301
001350
005300
001343
012701
013737
013737
833737
005037
004737

003622

5647
5648
5649
5650
5651
5652

032434
032440
032442
032446
032452
032456

005237
005301
001356
012762
012700
012762

5654
5655
5656

032472
032474
032476

005300
001370
01276;

5658
5659
5660
5661
5662
5663

032512
032520
032526
032530
032532
032536

012737
023737
001401
104173
012700
01276%

5665
5666
5667
5668

032552
032554
032556
032594

005300
oo1379
816;3
1; 37

$617

562

432256

osg

1041 9

012304

ERROR

003170

108:
003620
003616
003614

128:
)

5629 033336 005037 003612
5634

032356

5646 032432

5653 032464

104170

106170

000020
003616
003614
003612

003612
042570

CLR
003612

003620
003616
003614

5664 03254k 012762

18%:

000026

000040

000026

022040
003524

003524
003464

000010
000440

000026

20$:

000026 003464

000040 000026
000000
000226

003440
003500

§649 032503 023737 003500 003440
5670 032600
001401
5671 032002 104174

(R$)+,Re

:GET NEXT WORD

P1.BIT

SINITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
;LOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER
:LOAD BIT COUNT
:SHIFT BITS
sSHIFT IN NEXT BIT
SCHECK IF ONE

:ZERO

;CLOCK IN BIT

#,P1.81T
PC,WRTBIT

; ONE
:WRITE 817

INC
DEC
BNE
DEC
BNE
MoV
MOV
MOV
MOV
CLR
JSR

BITCNT
R
128
RO
108
#16. .R1
M1.BIT,M2.BIT
PR.BIT,M1.BIT
P1.B1T.PR.BIT
P1.8IT
PC,WRTBITY

S INCREMENT BIT COUNT
SCHECK IF WORD FINISHED
*NO, CONTINUE WITH NEXT BIT
‘CHECK IF HEADER COMPLETE
INO, GET NEXT WORD
:LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

INC
DEC
BNE
MOV
MOV
MOV

BITCNT
S INCREMENT BIT COUNT
R
SCHECK IF FINISHED
188
*NO, CLOCK NEXT BIT
#OMD'MIND,RKMRY(R2)~
;SIMULATE INDEX
#4,R0
#DMD
' MIND ' MCLK , RKMR1 (R2)

DEC
BNE
MOV

RO
208
#DMD ,RKMRT (R2)

ERROR

MOV

258:
26%:

;DATA INCORRECT

MOV
JSR

ERROR

012762 000240 000026

5657 032504 016237

14$:
15¢:

003622
000240
000004
000640

MOV

170

:BIT INCORRECT

:WRITE ZERO

:BIT INCORRECT

#DMD i MIND . RKMR (R2)

RKMRT(R2),T.MR1 ;GET MAINT REG 1

MOV
o[
BEQ
ERROR
MOV
MOV

#MEWD'ECCY!'DMD,E.MR1 :LOAD EXPECTED MR1
E.MRY,T.MRY
sCHECK MR CORRECT (WRITE GATE RESET)
5%
SYES, CHECK IF READY SET
173
JMAINT REG 1 INCORRECT
8. ,R0
SFINISH COMMAND
#OM0
' MCLK , RKMRT (R2)

DEC
BNE
MOV
MOV

RO
268
RKCST(R2),T.CSY :GET COMMAND AND STATUS REG 1
#ROY ' WRHEADE<*C<GO>>,E.CST ;LOAD EXPECTED CS?

MOV

CHP
ERROR

BEQ

#0MD
. RKMR{ (R2)

E.CS1,T1.CS1
15140
174

SCHECK IF €SV CORRECT
GO ON TO NEXT TEST
:¢S1 INCORRECT

1:YES,

SEQ 0104

CIR6CDO RK611 DSKLS CTIRL PRTY
CIR6CD.P1T
19-JUN-80 13:49

MACYN 3?2;1052)

567

8 9
19-JUN-80 13:52 PAGE 106
WRITE LOOPBACK (PART &)
_

SEQ 0105

567

;;Qtt"'QQQtlt"'"'t""""""'tt""t.."'Q'Qttt't.'t".""'

gg;g

SeTEST 40

5676

5678

5680
ggg;

;e
i

5677

5679

WRITE LOOPBACK (PART §)

CLEAR THE RK611 WITH A CONTROLLER CLEAR.

IN DIAGNOSTIC MODE.

PUT CONTROLLER

ISSUE A WRITE HEADER TO AN RK06

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

CLOCX BOTH SEEK AND DRIVE CLEAR MESSAGES.

SIMULATE

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

5683

052012

gggg

052012

5684

5687

gggg

5690

5691
5692
5693
5694
5695

5696
5697
5698

100520

MR4

032604
032606
032614
032620
032626

032634
032642
032650

000004
012737
013702
012762
012762

012762
012762
012762

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

:*."ttttttttttt't'i""""t't"ttt'tt'.fitl"t't't't'tttfitttfit"'t

000144
001270
100000
000040

064364
177775
000027

5699 032656 012700 000312
§700
§701

032662

012762

5703
5704
5705
§706
5707
5708
5709
5710
5711
§712
5713

032676
032700
032702
032706
032714
032722
032730
032732
032734
032742
032746

005300
001370
012700
012762
012762
012762
005300
001370
012762
012700
012762

5715
5716
5717
5718
§719
§720
g;g;

032762
032764
ogzreo
032774
(33002
033006
033014

005300
001370
012762
01276;
005037
012737
012737

000140
000040
003626
060411
062040

§723
§724
§725
5726
5727

033022
cssozg
033032
033036
033042

005037
005037
005037
005037
012700

003612
003614
003616
003620
000400

§702 032670 012762

MAKE SURE THAT READY COMES UP AFTER THE SECOND INDEX PULSE.

000440

000040

000004
000240
000640
000240

000040
000010
000440

001200

7ST40:

000000
000026
000004
000002
000000

000026

000026
000026
000026

000026

000026
000026
003170
003524

#100.,$TIMES
$BASE ,R2
#CCLR,RKCS1(R2)
#0MD, RKMR1(R2)

;;DO 100. ITERATIONS
:LOAD RK611 BASE
:CLEAR RK611
:PUT RK611 IN DIAGNOSTIC MODE

MOV

#50. 4443 ,R0

s ISSUE ENOUGH CLOCKS UNTIL

[ [1)']
MOV
MOV
18:

2%:

000026

§714 032754 012762 000040 000026

SCOPE
MOV
MOV
MOV
MOV

3$:

#HEADS ,RKBA(RZ) ;ISSUE WRITE HEADER
#-3,RKWC (R)
#URHEAD ,RKCS1(R2)

MOV

:
READY FOR INDEX PULSE
#DMD 'MCLK ,RKMRY (R2)

DEC
BNE
MOV
MoV
MOV
MOV
DEC
BNE
MOV
MOV
MOV

RO
1%
#4 RO
;ISSUE INDEX PULSE
#DMD'MIND ,RKMR1(R2)
#OMD ' MIND ! MCLK ,RKMR1(R2)
#OMD ' MIND ,RKMR1
(R2)
RO
28
#OMD
, RKMR1 (R2)
#8.,R0
;WAIT FOR WRITE GATE
#OMD
' MCLK ,RKMRT (R2)

MOV

DEC
BNE
MOV
MOV
CLR
MOV
MOV

CLR
CLR
CLR
CLR
MOV

#DMD .RKMRT (R2)

#0M0 ,RKART (R2)

RO
3s
#OMD ! MSP,RKMR1(R2) ;SIMULATE SECTOR PULSE
#OMD
. RKMR1 (R2)
SECCNT
JINITIALIZE SECTOR COUNT
FEM233 EMV
*LOAD ERROR MESSAGE
ODHD!HEUD!ECCU!HRTG:IisiH:gG:%NITIALIZE EXPECTED

P1.BIT
PR.BIT
Mi.8IT
M2.817
#256. R0

SINITIALIZE BIT GENERATION

:SIMULATE SYNCH

CIR6CD.P11

19-JUN-80 13:49

5728
§729

033046
033052

005037
004737

003622
042570

5731
§732
5733

033060
033064
033066

005237
005300
001371

003622

5735

033076

004737

042570

5737
5738
5739
S740

033104
033110
033116
033122

005037
012737
012703
012700

003622
060455
064364
000003

5742
5743
5744
5745
§746
5747
§748
g;gg

033130
033134
033142
033150
033156
033160
033162
033166

012701
013737
013737
013737
006004
103403
005037
000403

000020
003616
003614
003612

§751
5752

033170
033176

012737
004737

000001
042570

§754
5755
5756
S757
5758

033204
033 1g
033212
033214
033216

005237
005301
001350
005300
001343

003622

5760
5761
5762
5763
5764

033224
033232
033240
033246
033252

013737
013737
013737
005037
004737

003616
003614
003612
003612
042570

§730 033056

104170

573, 033070 012737 000001

5736 033102

5741

033126 012304

5753 033202

§759

104170

033220

104170

012701

5765 033256 104170

000020

033260
033264
033266
033270
033276
033302
033310
033316
033320
033355

005237
005301
001356
012762
012700
012762
012762
005300
001370
01276;

003622

§777
§778
5779
5780
5781
5782

033336
033344
033352
033354
033356
033362

012737
023737
001401
104173
012700
012762

01623

5$:

003612

19-JUN-80

108:
003620
003616
003614

12%:

003612

148:
15¢:

003620
003616
003614

18%:

000026

000040

000026

022040
003524

003524
003464

000010
000440

000026

000026
000026

20%8:

000026 003464

;INITIALIZE BIT COUNT
‘WRITE ONE BIT

INC
DEC
BNE

BITCNT
RO
5¢

;CHECK IF READY FOR DATA
*NO, GENERATE NEXT BIT

JSR

PC WRTB:

ERROR

5783 033370 012762 000040 000026

170

M ,P1.017

:DATA INCORRECT

:PUf IN SYNCH BIT

170

:DATA INCORRECT

(R$)+,Re

:GET NEXT WORD

CLR
MOV
MOV
MOV

BITCNT
FEM234,EMV
FHEADS .R3
#3,R0

MOV
MOV
MOV
MOV
ROR
8¢S
CLR
BR

6. .R1
M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
R4
148
P1.BIT
158

MOV
JSR

#1,P1.B17
PC,WRTBITY

; ONE
:WRITE BIT

INC
DEC
BNE
DEC
BNE

BITCNT
R1
128
RO
108

: INCREMENT BIT COUNT
:CHECK IF WORD FINISHED
*NO, CONTINUE WITH NEXT BIT
;CHECK IF HEADER COMPLETE
*NO, GET NEXT WORD

MOV
MOV
MOV
CLR
JSR

M1.BiT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
P1.8IT
PC,WRTBIT

:SHIFT BITS

MOV

ERROR

MOV

170

ne6. R

170

SINITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
:LOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER
:LOAD BIT COUNT
SHIFT BITS
sSHIFT IN NEXT BIT
SCHECK IF ONE
: 2ERO
SCLOCK IN BIT

:BIT INCORRECT

:LOAD BIT COUNT FOR NEXT WORD

:WRITE ZERO

:BIT INCORRECT

INC
DEC
BNE
MOV
MOV
MOV
MOV
DEC
BNE
MOV

: INCREMENT BIT COUNT
BITCNT
R1
TCHECK IF FINISHED
*NO, CLOCK NEXT BIT
188
#DMD'MIND,RKMRI(R2)~ ;SIMULATE INDEX
24 ,R0
#DMD 'MIND ' MCLK , RKMR1(R2)
#DMD ! MIND , RKMR1 (R2)
RO
208
#OMD ,RKMR1 (R2)

MoV
CMP
BEQ
ERROR
MOV
MOV

#MEVD'ECCYW'DMD,E.MRT ;LOAD EXPECTED MR1
:CHECK MR1 CORRECT (WRITE GATE RESET)
€E.MR1,T MRY
253
1YES, CHECK IF READY SET
*MAINT REG 1 INCORRECT
173
SFINISH COMMAND
8. RO
' MCLK ,RKMRT (R2)
#DMD

MOV

258:
26%:

9
PAGE 107

BITCNT
PC,WRTBIT

ERROR

000240
000004
000640
000240

CLR
JSR

ERROR

003170

13:52

WRITE LOOPBACK (PART 9)

MOV

003612

5766
5767
5768
5769
5770
5771
5772
5773
5774
5775

5776 0333

MACYN 3?261052)

MOV

RKHR{(RZ).T.HR1 :GET MAINT REG 1

. RKMRT (R2)
#0MD

SEQ 0106

(alal
N~

CZR6COO RK61T DSKLS CTIRL PRT3

19-JUN-80 13:49

S784
5785
5786
5787

033376
033400
033402
033410

005300
001370
016237
012737

5789
g;gt\)

033426
033426

001401
104174

5788

033416

023737

000000
000226

003500

003440
003500

003440

5792

19-JUN-80

13:52

9
PAGE 108

WRITE LOOPBACK (PART 5)
DEC
BNE
MOV
MoV

RO
263
RKCST1(R2),7.CS1 ;GET COMMAND AND STATUS REG 1
#RDY 'WRHEADE<*C<GO>>
,E.CST ;LOAD EXPECTED (S1

BEQ
ERROR

T5T41
174

cmpP

E.CS1,T.CS1

sCHECK JF CS1 CORRECT

:;YES, GO ON TO NEXT TEST
:€S1 INCORRECT

R
R
A LA i il

g;gz

;s*TEST 41

WRITE LOOPBACK (PART 6)

. %

5795
5796
5797
5798
5799
ggg?

M
s
ot
.
ot
o

5802
5803
5804
5805
5806

ot
]
i
X
.®

ggg;

S809

5810

. &

033430

000004

033432
033440
033444
033452
033460
033466
033474

012737
013702
012762
012762
012762
012762
012762

000144
001270
100000
000040
064372
177775
000027

000000
000026
000004
000002
000000

5819
5820

033506

012762

000440

000026

5822
5823
5824
5825
5826

033522
033524
033526
033532
033540

005300
001370
012700
012762
012762

5830
5831
5832

033554
033556
033560
033566
033572

005300
001370

5834
5835
5836
5837
5838
5839

033606
033610
033612
033620
033626
033632

005300
001370
012762
012762
005037
012737

5818 033502 012700 000312

0012C0

033514 012762 000040 000026
000004
000240
000640

000026
000026

5827 033546 012762 000240 000026
5828
5829

012762
012700
012762

155555
066666

155555

MAKE SURE READY COMES UP AFTER SECOND INDEX PULSE.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMPENSATION.

E;ttt'tttt'ttt'"'Q"t't"""'ttttttt'ttttttt'i"t""tt"'tt't.

S811
5812
S813
5814
5815
5816
S817

5821

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 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 INDEX PULSE:

000040
000010
000440

000026

000026
000026
003170

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#100. ,$TIMES
::D0 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#CCLR,RKCST(R2) ;CLEAR RK611
#OMD ,RKMR1(R2) ;PUT RK611 IN DIAGNOSTIC MODE
#HEADS ,RKBA(R2) ;ISSUE WRITE HEADER
#-3,RKWC(R2)
#URHEAD ,RKCST(R2)

MOV

: READY FOR INDEX PULSE
#OMD 'MCLK ,RKMR1(R2)

MOV

18:

ISO.'AOé.RO

s ISSUE ENOUGH CLOCKS UNTIL

MOV

#0MD ,RKMRT (R2)

MOV

ODHD!HIND.RKHRi(RZ)

2%:

DEC
BNE
MOV
MOV
MOV

3%:

DEC
BNE
MOV
MOV
MoV

000026

5833 033600 012762 000040 000026
000140
000040
003626
060411

1ST41:

MOV
DEC
BNE

MoV
Mov
(LR
MOV

RO
1%
#4 RO
:1SSUE INDEX PULSE
#OMD 'MIND ,RKMR1
(R2)
#OMD 'MIND'MCLK ,RKMR1 (R2)
RO
2$

#OMD ,RKMR1(R?2)
#8.,R0
:WAIT FOR WRITE GATE
#JOMD
' MCLK ,RKMR1T(R2)

ODHD.RKHR{(RZ)

RO
38
#OMD 'MSP ,RKMR1(R2) ;SIMULATE SECTOR PULSE
#OMD ,RKMR1(R2)
JINITIALIZE SECTOR COUNT
SECCNTY
FEM233 . ENV
sLOAD ERROR MESSAGE

SEQ 0107

I~~~

CZR6CD.P1Y

MACY1Y 3?261052)

CIR6CDO RK61Y DSKLS CTRL PRT3

062040

003524

141

NONONO

CLR

CLR
(LR
CLR

5%:

042570
003622
003612

108:

003612

000001
042570

OO == APIPIRVN)
=4 AN

S82222883
-

mbbb:«aw---ogo
S2OOPMNNIONEINOMIN

)

) ol

)

FRERFRRRRRYRY

[elelelelelela leclelelel]

N N N NN
=
O NN
O WA W N W
N

003622

000020
003616
003614
003612
003612
042570

003620
003616
003614

18%:

000240
000004
000640
000240

000026

000040
000026

000026
003464

000026
000026

MOV

JSR
ERROR
INC
DEC
BNE
DEC
BNE
MOV
MOV
MOV
MOV

CLR
JSR
ERROR

003622

DEC
BNE

20%:

SINITIALIZE BIT COUNT

170

:DATA INCORRECT

PC,WRTBIT

BITCNT

MOV
Mov
MOV

MOV
MOV
MoV
Mov

DEC
BNE
MOV

MoV

SEQ 0108

BITCNT

CLR

ROR
8CS
CLR
BR
w

034014

12%:

003612

003620
003616
003614

—

b ad e

000020
003616
003614
003612

PAGE 109

#OMD 'MEWD !ECCW!WRTGAT
E.MRT ;INITIALIZE EXPECTED
;
MAINT REG 1
P1.BIT
SINITIALIZE BIT GENERATION
PR.BIT
M1.BIT
M2.BIT
#256. RO
:SIMULATE SYNCH

MOV

MOV
MOov
MOV
MOV
MOV

(PART 6)

BITCNT
RO
5%
2 ,P1.811

JSR
ERROR

003170

[elelelelalele]e]

003622
060455
064372
000003

CLR
JSR
ERROR

INC
DEC
BNE

000001
042570

13:52

WRITE LOOPBACK

Mov

0340
03401

064
034072
034076

19-JUN-80

MoV

003612
003614

bbbt

033640

30A(1052)

PC WRTBIT

‘WRITE ONE BIT

:CHECK IF READY FOR DATA

*NO, GENERATE NEXT BIT
:PUT

IN SYNCH BIT

176

:DATA INCORRECT

PEM234,EMW
FHEADG .R3
#3,R0

:LOAD ERROR MESSAGE
:LOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER

(R$)+,R4

6. R\

M1.BIT,M2.BIT

SINITIALIZE BIT COUNT

:GET NEXT WORD

SLOAD BIT COUNT

:SHIFT BITS

PR.BIT,M1.BIT
P1.BIT,PR.BIT
R4
14$
P1.BIT

sSHIFT
SCHECK
:1ERO

#1,P1.BIT
PC WRTBIT

; ONE
‘WRITE BIT

BITCNT

L INCREMENT BIT COUNT

15¢

170

R1
128
RO
108
6. R
M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT,PR.BIT
P1.BIT
PC.WRTBIT

176

BITCNT
R1
188

IN NEXT BIT
IF ONE

SCLOCK IN BIT

:BIT INCORRECT

*CHECK IF WORD FINISHED
*NO, CONTINUE WITH NEXT BIT
:CHECK IF MEADER COMPLETE
*NO, GET NEXT WORD
1LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

:WRITE 2ERO

:BIT INCORRECT

*INCREMENT BIT COUNT
‘CHECK IF FINISMED
*NO, CLOCK NEXT BIT

zzngénlno.axna1(az)

:SIMULATE

INDEX

#OMD 'MIND'MCLK ,RKMR1(R2)

#OM0 i MIND . RKMRT (R2)

208

#OMD ,RXMR1 (R2)

RKMRY (R2),T.MR1 ;GET MAINT REG 1

MACY11

CIR6CDO RK61T DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.PYY

CIR6CDO RK61Y DSKLS CTRL PRT3

CIR6CD.PINY
5896
S897
5898
5899
5900
5901

§902

5903
5904
5905
5906
S907
5908
gg?g

19-JUN-80 13:49

034162
034170

034176
034200
034202
034206

034214

034222
034226
034226
034234
034242
034250
034252

012737
023737

001401
104173
012700
012762

012762

005300
001370
016237
012737
023737
001401
10417¢

MACY11 30A(1052)

141

022040
003524

003524
003464

000010
000440

000026

000040
000000
000226
003500

000026

19-JUN-80

9
PAGE 110

SEQ 0109

L[]
CMP

#MEWD'ECCW'OMD,E.MRY ;LOAD EXPECTED MR1
E.MR1, T MRY
:CHECK MRY CORRECT (WRITE GATE RESET)

MOV

#0MD ,RKMRT (R2)

DEC
BNE
MoV
MOV
CMP
BEQ
ERROR

003440
003500
003440

WRITE LOOPBACK (PART §)

BE2
ERROR
MoV
MOV

25%:
26%:

13:52

AR R

gg}%

S*TEST 42

5914

CLEAR THE RX611 WITH A CONTROLLER CLEAR.

gg;g

CONSISTING OF THE FOLLOWING DATA, AND INDEX PULSE:

5915
5916
5917
5918

]

5921
5922
gggz

ie
o
e

5925

gggg

5928

5929
$930
5931
5932
5933
59%
5935
5936

e
*

000004

012737
013702
012762
012762
012762
012762
012762

000144
001270
100000
000040
064400
177775
000027

001200

5939
5940
5941
5942
5943
5944
5945

034332
034340
034346
034350
034352
034356
034364

012762
012762
005300
001370
012700
012762
012762

000440
000040

000026
000026

000004
000240
000640

000026
000026

947
59048
5949

034400
034402
(034404

005300
001370
012762

000040

000026

5951

034416

012762

000440

000026

5938

012700

000312

034412

012700

000010

TST42:

000000
000026
000004
000002
000000

5946 034372 012762 000240 000026
5950

A A R R R A

R A

WRITE LOOPBACK (PART 7)
PUT CONTROLLER

IN DIAGNOSTIC MODE.
ISSUE A WRITE HEADER TO AN RKO06
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
104210
1046210
104210

MAKE SURE READY COMES UP AFTER SECOND INDEX PULSE.

CHECK FOR CORRECTY WRITE ENCODED DATA AND PRECOMPENSATION.

E.-tt'tttttttttQt"'Q'Q""'QQ""!.""Q'.'ttt'tttttttttQtttt'tt'

034254
034256
034264
034270
034276
034304
034312
034320

S937 034326

R R

v
v
e
;e
[

RO
26%
RKCS1(R2),T.CS1 ;GET COMMAND AND STATUS REG 1
#RDY 'WRHEADR<*(<GO>>,E.CS1 ;LOAD EXPECTED (S1
E.CS1,7.CS1
:CHECK IF CS1 CORRECT
TST42
:;YES, GO ON TO NEXT TEST
174
:CS1 INCORRECT

S911

[

25%
:YES, CHECK IF READY SET
173
MAINT REG 1 INCORRECT
#8.,R0
sFINISH COMMAND
#OMD
' MCLK ,RKMR1(R2)

SCOPE
MOV
MOV
MOV
MoV
MOV
MOV
MOV

#100.,8TIMES
::D0 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RK611
#OMD ,RKMRI(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#HEADT7 ,RKBA(RZ) ;ISSUE WRITE HEADER
#-3,RKWC(R2)
#URHEAD ,RKCST1(R2)

MOV
MOV
DEC
BNE
MOV
MoV
MOV

:
READY FOR INDEX PULSE
#OMD 'MCLK ,RKMR1(R?2)
#OMD ,RKMR1(R2)
RO
1$
#4 R0
:1SSUE INDEX PULSE
#OMD 'MIND ,RKMRY(R?2)
#OMD'MIND 'MCLK ,RKMR1 (R2)

DEC
BNE
MoV

RO
2%
#OMD ,RKMR1(R2)

MOV

1%:

2%:

38%:

MOV
LTolY

MOV

050.'4+é.R0

s ISSUE ENOUGH CLOCKS UNTIL

#OMD | MIND ,RKMRT
(R2)
#8. R0

:WAIT FOR WRITE GATE

#OMD'MCLK,RKMR1(R2)

00O

142

SEQ 0110

MOV

#OMD ,RKMR1 (R2)
RO

000140
000040
003626
060411
062040

000026

MOV
MOV

#OMD !MSP ,RKMR1(R2)
#OMD,RKMR1
(R2)

003170
003524

MoV
MOv

FEM233 EMY

CLR
(LR
CLR
CLR

P1.BIT
PR.BIT
M1.BIT
m2.BIT
#256. R0
BITCNT

:SIMULATE SYNCH
SINITIALIZE BIT COUNT

170

:DATA INCORRECT

DEC
BNE

CLR

MOV

5$:

003622
060455
064400
000003

000020

003616
003614
003612

003612

MOV

JSR
ERROR
CLR

003170
108:

003620
003616
003614

12%:

[ X

003612

003622

000020

003620
003616
003614

042570
003622
000240

MOV
MOV
Mov
Mov

MoV

MOV
MOV
MOV
ROR

8CS
CLR
BR

003612

000001
042570

CLR
JSR
ERROR

INC
DEC
BNE

—

O wo
W ~Nw

8MOWN

000026

NS~

Y Vv IV
NTNT NIVIP 9
IV 1 S eV
[« QI

19-JUN-80
13:52
PAGE 111
WRITE LOOPBACK (PART 7)

000040

000001
042570

285 8 g 7 - e D ) dd i ol
-

838822008882

30A(1052)

003622

20O
o000
-0
OO =2 VAN B BN AN
=8 \A —b NN
NN MR =8 YO N N N NN NN NN - ~N~
wWw
O MO WM NN AN
O
O =2NO ~N~N
NI = YO NN NNN—
W

FRESN >R

NNNNNNNYNY

ISIIIIIIINY

034670

MACY11

003612
003614
003616
003620
000400
003622
042570

[«]

(¥l

FREFXN
e~g

034472
034476
034502
) ocoocoooo o

5954
5955

034424
034432
034634
0344368
034444
034452
034456
034464

OO0OO0O0O0O0O0O0O0O0O0O

5952
5953

28883
28 228888 228 pr Pyoy

CIR6CDO RK61T DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD P

000026

18%:

Mov

JSR
ERROR
INC
DEC
BNE
DEC
BNE
MoV
MOov
MOV
MOV

CLR
JSR
ERROR
INC
DEC
BNE

MOV

SECCNTY

;SIMULATE

SECTOR PULSE

JINITIALIZE SECTOR COUNT
;LOAD ERROR MESSAGE

#OMD 'MEWD'ECCW'WRTGAT
,E.MR1 ; INITIALIZE
;
MAINT REG 1

PC,WRTBIT

BITCNT

SINITIALIZE BIT GENERATION

‘WRITE ONE BIT

RO
5¢

:CHECK IF READY FOR DATA
'NO, GENERATE NEXT BIT

176

:DATA INCORRECT

(R$)+ R4

:GET NEXT WORD

" ,P1.81T
PC WRTBIT

BITCNT
SEM234,EMV
#READ7 .R3
#3,R0
né. R

M1.BIT.M2.81T
PR.BIT.M1.BIT
P1.BIT.PR.BIT
R4
148

‘PUT

IN SYNCH BIT

SINITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
*LOAD ADDRESS OF DATA
:LOAD NUMBER WORDS IN HEADER
:LOAD BIT

COUNT

:SHIFT BITS

15¢

SSHIFT
SCHECK
:1ERO
:CLCCK

#,P1.B17
PC WRTBIT

: ONE
‘WRITE BIT

BITCNT

SINCREMENT BIT COUNT

P1.BIT

176

R
128

RO
108

06, R

M1.BIT.M2.BIT
PR.BIT.M1.BIT

IN NEXT BIT
IF ONE

IN BIT

:BIT INCORRECT

SCHECK IF WORD FINISHED
*NO, CONTINUE WITH NEXT BIT

SCHECK IF HEADER COMPLETE
‘NO, GET NEXT WORD

*LOAD BIT COUNT FOR NEXT WORD

:SHIFT BITS

P1.BIT,PR.BIT
P1.81T
PC WRTBIT

:WRITE

BITCNT

*INCREMENT BIT COUNT

170

EXPECTED

ZERO

:BIT INCORRECT
SCHECK

FINISHED

18%
<NO, CLOCK NEXT BIT
#DMD ! MIND,RKMR1(R2)
;SIMULATE INDEX

CIR6CDO RK61T1 DSKLS CYRL PRT3

CIR6CD.PV

19-JUN=-80 13:49

6008
6009

034746
034752

012700
01276%

6011
6012
6013

034766
034770
034772

005300
001370
012762

6015
6016
6017
6018

035006
035014
035022
035024

035032
035
035046
035050
035052
035060
035066
035074
035076

6010 034760 012762
6014

6019

6020
6021
6022
6023
6024
6025
6026
6027
gg%g

000004
000640

MACYIT 3?2§1052)

000026

000240 000026
000040

000026

012737
023737
001401
104173

022040
003524

003524
003464

012762
012762
005300
001370
016237
012737
023737
001401
104174

000440
000040

000026
000026

000000
000226
003500

003440
003500
003440

20%:

035000 016237 000026 003464

035026

012700

000010

19-JUN-80

24$%:

9
PAGE 112

WRITE LOOPBACK (PART 7)
MOV
MoV

#4,R0
#OMD 'MIND 'MCLK ,RKMR1(R2)

DEC
BNE
MoV

RO
20$
#0MD ,RKMR1(R2)

MOV
MOV

Phl ¥

13:52

#DMD MIND ,RKMR{
(R2)

RKMRT(R2),T.MRY ;GET MAINT REG 1

MOV
CMP
BEQ
ERROR

#MEWD'ECCW'OMD,E.MR1 ;LOAD EXPECTED MR1
€.MR1,T.MRY
:CHECK MR1 CORRECT (WRITE GATE RESET)
25%
:YES, CHECK IF READY SET
173
;MAINT REG 1 INCORRECT

MOV
MOV
DEC
BNE
MoV
MOV
CMP
BEQ
ERROR

#OMD 'MCLK ,RKMR1
(R2)
#OMD ,RKMR1(R2)
RO
26%
RKCST(R2),T.CS1 ;GET COMMAND AND STATUS REG 1
#ROY ' WRHEADE<*C<G0>>
,E.CST1 ;LOAD EXPECTED (S1
E.CS1,T.CST
;CHECK IF CS1 CORRECT
TST43
::YES, GO ON TO NEXT TEST
174
:CS1 INCORRECT

MOV

#8.,R0

;FINISH COMMAND

6030

;:tQQtt"tttt't"t"'t't0"'Q"tttttt'tt't'tt"'t'tttt'tttQ'tt'tt

28%5

;eTEST 43
[

6033
6034

i
X

6935
6036
6037
gggg

e
it
i

6040
6041
6042

it
I
T

6044
6822

ot
it

ot
N

6043
o

6050

6047
6048
6049

.t
T
.

6051

605‘.

6055

6056
6057
6058
6059
6060
6061
6062
6063

(R]

035100

035102
035110
035114
035122
035130
035136
035142
035150

000004

012737
013702
012762
012762
012762
012703
012762
012762

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

IN 26 SECTOR FORMAT, CYLINDER O, HEAD 0, DRIVE 0.
CLOCK BOTH SEEK AND DRIVE CLEAR MESSAGES. SIMULATE
INDEX PULSE, SECTOR PULSE., THREE WORD HEADER
CONSISTING OF THE FOLLOWING DATA:

]

282%

WRITE TWO HEADERS

]

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

SIMULATE AN INDEX PULSE AND MAKE SURE READY COMES UP.

CHECK FOR CORRECT WRITE ENCODED DATA AND PRECOMENSATION.

:':tttt'."t'tt"""'t"""'"'t'tt'i'ttt"'ttt'itt.'fit't"t'ttt
000144
001270
100000
000040
064326
064326
177772
000027

001200

000000
000026
000004
000002
000000

1ST43:

SCOPE

[ [)]'}
MOV
MOV
MoV
MoV
MoV
MoV
L [0]']

#100.,8TIMES
::D00 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#CCLR,RKCST(R2) ;CLEAR RK&1Y
#OMD ,RKMRT(R2) :PUT RK611 TO DIAGNOSTIC MODE
#HEADY ,RKBA(R2) ;ISSUE WRITE HEADER
#HEADT,R}Y
#-6,RKWC (R2)
SURHEAD ,RKCS1(R?2)

SEQ 0111

CIR6CDO RK61Y DSKLS CIRL PRT3
19-JUN-80 13:49
CZR6CD PN

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

003626
000040
000002
000010
000440
000040

~NO
[=1=]

~Sdbb

(=4

P P PurPurpury
1o

- \N

(v [V ]

012762
012762

000140
000040
060411
062040
003612
003614
003616
003620
000400
003622
042570

1%:

2%:

(VI TV NT ST N L S A

wr
oroQ NNN NN

W
ouoguuuo
NOAN
NN
NN
NYNN—-

NN
LS
Y]

[ =]

(=lelelalalela)

-l
asd il i
b wed

8258

737
170

000001
042570

003622
060455
000003

000020
003616
003614
003612

3%:

000026
000026
003170
003524

003622

#OMD 'MCLK ,RKMR1(R2)

Mov
MOV
MOV
MoV
DEC
BNE

MOV
MOV
MOV
MOV

DEC
BNE

MOV
MOV
Mov
MOV

5%:

003612

003629
003616
003614

12%:

14%:
15%:

"READY FOR

INDEX PULSE

#DMD
. RKMR{ (R2)

RO
1%
0 RO
:I1SSUE
#OMD 'MIND ,RKMR1(R2)

INDEX PULSE

#OMD IMIND {MCLK ,RKMR1(R2)

#DMD ! MIND ,RKMRT
(R2)
RO

28
SECCNT
#OMD ,RKMR1 (R2)

02 ,RS

;CLEAR SECTOR COUNT

:LOAD NUMBER OF HEADERS

#8.,R0
“WAIT FOR WRITE GATE
#DMO ' MCLK , RKMRY (R2)
#DMD
. RKMRT (R2)

;
#DMD 'MSP,RKMR1(R2) ;SIMULATE SECTOR PULSE
#DMD ,RKMR1 (R2)

2Em283 . Env

;LOAD ERROR MESSAGE

#OMO ' MEWD 'ECCW ' WRTGAT ,E.MR1 ; INITIALIZE EXPECTED
MAINT REG' 1
.

BITCNT

SINITIALIZE BIT COUNT

176

:DATA INCORRECT

RO
5$
1 ,P1.BIT

:CHECK IF READY FOR DATA
*NO,GENERATE NEXT BIT
:PUT IN SYNCH BIT

170

:DATA INCORRECT

SEM234,EMY
#3,R0

*LOAD ERROR MESSAGE
‘LOAD NUMBER OF WORDS IM HEADER

6. R
M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
R4
148
P1.BIT
158

:LOAD BIT COUNT
:SHIFT BITS

7 ,P1.BIT
PC WRTBIT

; ONE
‘WRITE BIT

BITCNT

“INCREMENT BIT COUNT

MOV
MOV
MOV
MOV
MOV
Mov
MOV
ROR

BCS
CLR
8R

003612

CLR
JSR
ERRUR
INC
DEC
BNE
JSR
ERROR
CLR

10$:

:1SSUE ENOUGH CLOCKS UNTIL

P1.BIT
PR.BIT
M1.BIT

mov

003170

SEQ@ 0112

CLR
CLR
CLR
CLR

MoV

003612
000001
042570

MOov
MOV

MOV

000026
000026

9
PAGE 113

#50.+4+2,R0

CLR

000026

MoV

DEC
BNE

003622

Q —»

OO0 ~NVONE
NN =2O

el
il

-l
D

ol
—

D el

el cald el

035374

-l el

000312

SHAE RS

W Wl L Lt A Wl A A

035304

[« Yo Yo Yo Yo No Fo No Feo o J

012700

OOOC

ONOOSTNNONSON
NS

NN~

LRSI ST ST ST ST NI ST S ST ST ST SN S

Ll L Ul Lol Ul Ll A A U Ll U A A AN

[e]laleleolelelolalalolololel)

6064
6065
6066
6067
6068
6069
6070

19-JUN-80 13:52
MACY11 30A(1052)
T43
WRITE TWO HEADERS

MoV

JSR
ERROR
INC

M2.B1T
#256. ,RO

PC,WRTBIT

BITCNT

PC WRTBIT

BITCNT

(R$)+,R4

170

:SIMULATE SYNCH

‘WRITE ONE BIT

SINITIALIZE BIT COUNT

SGET NEXT WORD

SSHIFT IN NEXT BIT
SCHECK IF ONE
-1ERO
1CLOCK IN BIT

:BIT INCORRECT

18%:

CLR
JSR
ERROR
INC
DE(
BNE
INC
DEC
BNE

003622
003626

25%:

BEQ
ERROR

MoV
MOV
MOV

DEC
BNE

003440
003500
003440

MoV
MOV

CMP

BEQ
ERROR

PAGE 114

SEQ 0113

:CHECK IF WORD FINISHED
‘NO, CONTINUE

PR.BIT.M1.BIT
P1.BIT.PR.BIT
P1.81T
PC.WRTBIT

:WRITE ZERO

RO
108
716. R
M1.BiT,M2.BIT

176

*CHECK IF HEADER COMPLETE
NO, GET NEXT WORD
*LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

‘BIT INCORRECT

: INCREMENT
BITCNT
*CHECK IF READY FOR NEXT HEADER
R
188
NG, CONTINUE
* INCREMENT
SECCNT
*CHECK IF SECOND MEADER WRITTEN
RS
‘NO, DO SECOND HEADER
X3
zgngénxuo.axna1(az> ;SIMULATE INDEX PULSE
(R2)
,RKMR1LK
#DMD ' MIND'MC
:8noen1uo.axna1(az>

208

#0MD , RKMR1 (R2)

RKMRY (R2), T.MR1 ;GET MAINT REG 1

#MEMD'ECCW'DHD,E.MR1

:LOAD EXPECTED MR

E.MR1.T.MRI
25%

ICHECK 'MR1 CORRECT (WRITE GATE RESET
:YES, CHECK IF READY SET

#8.,R0

SFINISH COMMAND

173

‘MAINT REG 1 INCORRECT

#DMD ' MCLK , RKMRT (R2)
ogno,axna1(R2)
R

26%
RKCS1(R2),T.CST1 ;GET COMMAND AND STATUS REG 1
E.CS1 ;LOAD EXPECTED (S1
#ROY ! WRHEADE<*C<GO>>

£.CS1,7.C(S1
{;ZLA

;CHECK IF CS1 CORRECT

:sYES, GO ON TO NEXT TEST

;;.'"'Q.".'."""""""".""'.tt.""'t."tt"ttt'..'t"'t

DATA FIELD FILLING ON WRITE HEADER

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
ISSUE A WRITE HEADER TO AN RKO6
IN DIAGNOST1C MODE.
IN 26 SECTOR FORMAY, CYLINDER O, HEAD O, DRIVE 0, AND
SPECIFY TWO 3 WORD HEADERS CONSISTING OF THE
-

FOLLOWIN 60 ATA:

125
052
125
05¢
125
052

(W T STV [ NIV, [ N

O
N
OO

%
%

P
R
IR

2
5
®

)

JeTEST &4

003500

000026
003464
003524
003464

000026
000026

Mov
MOov
MOV
MOV

DEC
BNE
Mov
MOV
MOV
CMP

TR P

000000
000226

208:

000010
000440
000040

000026
000026

000040
000026
022040
003524

000026

000240
000004
000640
000240

MOV
MOV
MoV
MoV

R
128

WARD
AR WD

003620
003616
003614

» —‘NNNOONNgu—. ~NNNOO 80080u°wm°w~4

NN N NN NN AN NN — ~NO~
-t B NPV
N N N - B NN
[VLV LV )
NO NWNNO
N
NOWRNNNO
OO
NNV ON NVINO
~ NO NN~

OO
2222883888858 P PNNP
332288222 R SR22288
=2 L) O N =2 APO NI NI N =2 AN =8 A A S
-

035720
035726
035734
035736

DEC
BNE
DEC
BNE

o
£ =2 NI
O = NONIN

o AN LS 85 HPVON) =b b b b
oo OSSOSO

WVIAAVWA
AR N AW
[V IV IV IV IV IV IV TV IV, [V V. IV ]

[elelelaleleolololalelols]
Wl Ul Ul Ll U A L A L A L AN

035564

Q0000

19-JUN-80 13:49

19-JUN-80 13:52
30A(1052)
T43
WRITE TWO HEADERS

[pS IV 1 NI, 1,81V, ]

CZR6CDO RX611 DSKLS CTIRL PRTY

CZR6CD. P11

MACY11

CZR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.PY1
19-JUN-80 13:49

K 9
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 115
T44
DATA FIELD FILLING ON WRITE MEADER

6176

g};g

6179

i
. %

035740
035742
035750
035754

000004
012737
013702
012762

000144
001270
100000

001200

6185
6186
6187
6188

035770
035776
036002
036010

012762
012703
012762
012762

064342
064342
177772
000027

000004

6189

6190

6191

035768 012762

036016

012700

036022

012762

036036
036040
036042
036046
036054
036062

005300
001370
012700
012762
012762
012762

6201
6202
6203

036074
036102
0361

012762
012700
01%765

6205
6206
6207
6208

036122
036124
036126
036132

005300
001370
005037
012705

6210

036144

012762

6192

6193
6194
6195
6196
6197
6198

036030 012762

6199 036070 005300
6200 036072 001370
6204

6209

6211

2%}%

036114

036136

036152

036160

012762

000040

000312

000440

000040

000004
000240
000640
000240
000040
000010
000440

000040

003626
000002

012737

0620640

003612
003614
003616
003620
000400
003622
042570

6222
6223
6224
6225
6226

036226
036230
036232
036234
osogaz

005237
005300
0013M
012737
004737

003622

036250
036256
036262

005037
012737
012700

003622
060455
000003

6228
6229
6230

6231

000026

000026
000026
000026

000026

104170

036266 012304

000001
042570

000026

#100.,8TIMES
;:D0 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#CCLR,RKCST1(R2) :CLEAR RK611

MOV
MOV
MOV
MOV

FHEADS,RKBA(R2) :ISSUE READ HEADER
#HEADS,RS
#-2+3,RKWC
(R2)
FURHEAD ,RKCST(R2)

MOV
18:

2%:

3$:

4$:

003612

108:

FOR INDEX PULSE

RO
13
#4 RO
;ISSUE INDEX PULSE
#OMD ' MIND,RKMR1
(R2)
#OMD I MIND ' MCLK , RKMR1 (R2)
#DMD ! MIND ,RKMR1
(R2)

#DMD .RKMRT (R2)

RO
28

MOV
MOV
MOV

#OMD
, RKMRT (R2)
#8..R0
;WAIT FOR WRITE GATE
#DMD
' MCLK ,RKMRT (R2)

DEC
BNE
CLR
MOV

RO
3s
SECCNT
#2,RS

MOV

#0MD
. RKMR{ (R2)

#DMD . RKMR1 (R2)

0EH233.EHU

INC
DEC
BNE
MOV
JSR

BITCNT
RO
5$
$1,P1.817
PC WRTBIT

(LR
MoV
Moy

BITCNT
FEM234 ,EMY
#3.R0

MOV

:LOAD ERROR MESSAGE

ODHD!HEUD!ECCH!URTGQIisiH:gG:{NITIALIZE EXPECTED

P1.81T
PR.BIT
M1.BIT
M2.BIT
#256. R0
BITCNT
PC,WRTBIT

ERROR

:CLEAR SECTOR COUNT
:LOAD NUMBER OF HEADERS

lDHO!HSP.RKHR\(Ré) JSIMULATE SECTOR PULSE

CLR
CLR
CLR
CLR
MOV
CLR
JSR

ERROR

003170

;ISSUE CLOCKS UNTIL READY

;

DEC
BNE
MOV
MOV
MOV
MOV

MOV

#50.¢4+3,R0

:PUT RK611 IN DIAGNOSTIC MODE

#DMD
' MCLK , RKMRT (R2)

[ [1]")

003524

#OMD, RKMRY (R2)

MOV

DEC
BNE

000026

003170

005037
005037
005037
005037
012700
005037
004737

6227 036 48

000026

SCOPE
MOV
MOV
MOV

MOV

000002
000000

012737 060411

036166
036172
036176
036202
036206
036212
036216

036222

000026

000040

1ST44:

000000

0C0140

6214
6215
6216
6217
6218
6219
6220

6221

ECC FIELD ARE WRITTEN CORRECTLY.

E.".""t"'t'tt'Q"t"Q"""C"tQQ'Q'Q""t.'t'.""t't"'tl."

6180
6181
6182
6183

6184

MAKE SURE THE DATA SYNCH ANY OTHER BITS OF DATA AND

170

;SIMULATE SYNCH
SINITIALIZE BIT COUNT
‘WRITE ONE BIT

:DATA INCORRECT

:CHECK 1F READY FOR DATA
'NO, GENERATE NEXT BIT
‘PUT IN SYNCH BIT

170

:DATA INCORRECT

(R$)+,Re

:GET NEXT WORD

SINITIALIZE BIT COUNT
sLOAD ERROR MESSAGE
;LOAD NUMBER OF WORDS [N HEADER

SEQ 0114

CIR6CDO RKO61Y1 DSKLS CYRL PRT3

CIR6CD.P1Y

19-JUN-80 13:49

6233
6234
6235

036274
036302
036310

013737
013737
013737

6237
6238

036320
036322

103403
005037

6236
6239

036316

036326

006004

000403

20
003616
003614
003612

MACY11 30A(1052)

T44

003620
003616
003614

003612 14$:

036336

004737

042570

6264
6245
6246
6247
6248
6249

036344
036350
036352
036354
036356
036360

005237
005301
001350
005300
001343
012737

003622

060707

003170

6251
6252
6253
6254
6255

036372
036400
036406
036414
036420

013737
013737
013737
005037
004737

003616
003614
003612
003612
042570

003620
003616
003614

6257
6258

036426
036430

005301
001360

6261

036444

104170

6250 036366 012701

6256 036424

6259 036432
6260 036440
6262
6263
6264
6265
6266
6267
6268
6269

104170

000477

104170

012737
005037
012701
013737
013737
013737
005037
004737

060755
003622
007777
003616
003614
003612
003612
042570

6271
6272
6273
6274
6275
6276

036520
036524
036526
036530
036534
036542

005237
005301
001356
012701
042737
004737

003622

6278
6279
6280
6281

036550
036554
036556
036560

005237
005301
00137
052737

003622

6270 036516 104170

6277 036546 104170

000040
020000
042570

020000

6282 036566 0127g1 000012
6283 836572 004737 042570
6284 036576 104179
6285
6286
6287

036600
036604
036606

15¢:

18%:

005237
005301
001371

003622

003620
003616
003614

;LOAD BIT COUNT

8CS
CLR

148
P1.817

;CHECK IF ONE
: ZERO

218:

003524
228:

Ré4

;SHIFT IN NEXT BIT

15%

;CLOCK IN BIT

”,P1.81T7

; ONE

ERROR

170

;81T INCORRECT

JSR

PC WRTBIT

INC
DEC
BNE
DEC
BNE
MOV

BITCNT
R
128
RO
108
FEM237 EMV

MOV
MOV
MOV
CLR
JSR

M1.BIT.M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
P1.BIT
PC WRTBIT

DEC
BNE

R
188

MOV

#64.+255.,R1

170

#1,P1.81T7
PC WRIBIT
170

Mov
CLR
MOV
MOV
MOV
MOV
CLR
JSR

#EM238,EMY
BITCNT
#256.¢16.-1,R1
M1.BIT,M2.BIT
PR.BIT.M1.BIT
P1.BIT.PR.BIT
P1.BIT
PC WRTBIT

INC
DEC
BNE
MOV
BIC
JSR

BITCNT
R1
208
#32. .8
#ECCV,E . MR
PC WRTBIT

INC
DEC
BNE
BIS

BITCNT
R1
18
JECCY,E MR

INC
DEC
BNE

BITCNT
R
22%

ERROR

003524

;SHIFT BITS

MOV

ERROR

208:

9
PAGE 116

116, ] ,R1
M1.BIT,M2.BIT
PR.BIT, M1.BIT
P1.BIT,PR.BIT

MOV
JSR

003170

MOV
MoV
MOV

ERROR

012737 000001 003612
004737 042570

036446
036454
036460
036464
036472
036500
036506
036512

MoV

B8R

6262

13:52

DATA FIELD FILLING ON WRITE HEADER

ROR

003612

62641 036330 012737 000001
62643 036342

12%:

19-JUN-B0

ERROR

MOV
JSR
ERROR

170

90, R
PC,URTBIT
170

‘WRITE BIT

S INCREMENT BIT COUNT
SCHECK IF WORD FINISHED
INO, CONTINUE
*CHECK IF HEADER COMPLETE
‘NO, GET NEXT WORD
SLOAD ERROR MESSAGE

:LOAD COUNT

SHIFT BITS

;WRITE ZERO

:BIT INCORRECT

SCHECK IF READY FOR DATA
INO, CONTINUE

*SET SYNCH BIT
‘WRITE SYNCH BIT

*SYNCH BIT INCORRECT
:LOAD ERROR MESSAGE
:CLEAR BIT COUNT
:LOAD COUNT
SHIFT BITS

;WRITE ZEROS

:BIT INCORRECT

S INCREMENT BIT COUNT
*CHECK IF READY FOR ECC
INO, CONTINUE
SLOAD COUNT
sRESET ECCW BIT
:WRITE ECC FIELD

:BIT INCORRECT

: INCREMENT COUNT
SCMECK IF READY FOR POST AMBLE
*NO CONTINUE
SSET ECCW

SCHECK IF READY FOR NEXT HEADER
‘WRITE POSTAMBLE
:BIT INCORRECT

s INCREMENT COUNT
SCHECK IF READY FOR NEXT HEADER
*NO, COMPLETE POSTAMBLE

SEQ 0115

CIR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.PIY
19-JUN-80 13:49

MACYU 30A(1052)
19-JUN-80 13:52 PAGE 117
T4h
DATA FIELD FILLING ON WRITE HEADER

6288
6289
6290
6291
6292
6293
629&
6295
6296
6297
6298
6299
6300
6301
6302

036610
036614
036616
036620

005237
005305
00140
000137

003626

036626
036632
036636
03664k
036652
036654
036656
036664
036672
036700

012762
012700
012762
012760
005300
001370
012762
016237
012737
023737

000240
000004
000640
000240

000026
000026
000026

000040
000026
022040
003524

000026
003464
003524
003464

6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335

036706
036710
036712
036716
036726
©36732
036734
036736
036744
036752
036760
036762

001401
104173
012700
012762
012762
005300
001370
016237
012737
023737
001401
104174

6337
6338
6339
6340
6341
632
6343

INC
DEC
BEQ

SECCNT
S
238

238:

MOV

#DMD !MIND,RKMR1(R2) ;SIMULATE INDEX PULSE

25¢:

MOV

#DMD
! MIND ! MCLK ,RKMR1(R2)

JNP

036136

000010
000440
000040

000026
000026

000000
000226
003500

003440
003500
003440

MOV

DEC
BNE
MOV

MOV

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

288:
29¢:

s INCREMENT COUNT
SCHECK IF ALL HEADERS RECEIVED
TYES, SIMULATE INDEX

4“8

*NO GET NEXT HEADER

#4 RO

#OMD I MIND ,RKMR{
(R2)
RO
25$
#DMD ,RKMR1 (R2)

RKMRY (R2),T.MR1 :GET MAINT REG 1

#MEWD'ECCVU'OMD,E.MRY ;LOAD EXPECTED MR1
:CHECK IF MR1 CORRECT
E.MRY,T.MRI
(WRITE GATE RESET)
i
IYES, CHECK IF READY SET
28$
“MAINTENANCE REG 1 INCORRECT
173
#8.,R0
SFINISH COMMAND
#DMD ' MCLK ,RKMR1
(R2)
#DMD
. RKMRT (R2)
RO

298
RKCS1(R2),T.CS1 ;GET COMMAND AND STATUS REG 1
#ROY ' WRHEADS<*C<G0>>
,E.CS1 ;LOAD EXPECTED CS1
SCHECK IF CST CORRECT
E.CS1,T.CS9
$:YES, GO TO NEXT TEST
TST4S
1CS1 INCORRECT
174

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

WRITE HEADER FOR 26 SECTORS

TRTEST 45
:Q

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 O, SPECIFYING
66 WORDS. MAKE SURE ALL 26 SECTORS ARE WRITTEN CORRECTLY.

pe
pe
pe
v
L

036764
036766
03677
037000
037006
037014
037022
037026
037034
037042

037040
03705«
037062
037064
037064
03707
037100

000004
012737
013702
012762
012762
012760
012703
012762
012762
012700

012762
012762
005300
001370
012700
012762
012762

000010
001270
100000
000040
064406
064406
177676
00002
000312

001200
000000
000026

000002
000000

000026
000026

000004
000240
000640

000026
000026

IR IR

SCOPE

00 RR0R0RRddRRRRRRddRdRdd)

MOV
MOV
MOV
MOV

ONPRBUF ,RKBA (R2)
#NPRBUF ,R3
#-22.¢3.RKWC(R2)
#WRHEAD [ RKCS1(R2)

MoV

#OMD
' MCLK , RKMRY (R2)

#ORD
, RKMR1(R2)

:PUT RK611 IN DIAGNOSTIC MODE

#50.¢4+8,R0

S ISSUE CLOCKS UNTIL READY
:

MOV

#0m0 ,RKART (R2)

MOV

oonoenxuofaxnnl(fiz)

DEC
BNE
MOV

28:

::D0 10 ITERATIONS
#10,$TINES
$BASE ,R2
:LOAD RK611 BASE
#CCLR.RKCST(R2) :CLEAR RK611

nov
18:

222002

MOV
MOV
MOV

MOV

000004

000440
000040

1ST45:

MOV

RO
1%
24 ,R0

:1SSUE READ MEADER

"FOR INDEX PULSE

:1SSUE INDEX PULSE

(R2)
#DMD i MIND {MCLK,RKMRT

SEQ 0116

CIR6CDO RK611 DSKLS CYRL PRT3

NN NNO WA N NN N

WO
OO W QOO0 NO
‘i*d;:z;ul*‘
NNV NOONMNONO O
NN8 NNNN
QUN2RS NNONN=LONO

82822282 283838 222228838222288
RINIRI NI W =VAROIRININD
=8 N

200000000
=
g
g g P Y e 1«
SNV
WM
NI NI PO W 8~ BN =2 VAW
NO
= Y NHHN
=2 YO NOOOO
WL
WM N
N O
i

000026

000040
000010
000440
000040

000026

003626
000026
000140
000040
060411
062040

000026
000026

000026
000026
003170
003524

MOV
DEC
BNE

38:

($:

5%:

042570
003622

003622
060455
000003

000020
003616
003614
003612

000001
042570

MoV
MOV
MoV
MOV
Mov

003612

#OMD !MIND ,RKMR1(R2)

2$
lgHD.RKHR1(R2)

:WAIT FOR WRITE GATE
' .‘ao
#DMO
' MCLK, RKMR1( R2)

:gno,nxnn{<a2)

;CLEAR SECTOR COUNT

‘2200“5
‘LOAD NUMBER OF MEADERS
#OMD
! MSP ,RKMR 1(R2) ;SIMULATE SECTOR PULSE
#0MD RKMR1(R2)
sEm283, Eny
:LOAD ERROR MESSAGE
#OMD!MEWDECCW!W ATGAT,E.MR1

;

PC,WRTBIT

176

BITCNT

MOV

JSR
ERROR
CLR

003170
108:

003620
003616
003614

CLR
CLR
CLR
MoV
CLR
JSR
ERROR
INC
DEC
BNE

12%:

MoV
MoV
MOV
MOV
Mov
MoV
MoV
ROR

BITCNT
OEHgBG,EHH

14$:
15%:

; INITIALIZE EXPECTED

MAINT REG 1

sSIMULATE SYNCH
JINITIALIZE BIT COUNi
;WRITE ONE BIT

;DATA INCORRECT
;CHECK IF READY FOR DATA
:NO, GENERATE NEXT BIT
;PUT IN SYNCH BIT

:DATA INCORRECT
sINITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
sLOAD NUMBER OF WORDS IN HEADER
;GET NEXT WORD
;LOAD BIT COUNT
;SHIFT BITS
sSHIFT IN NEXT BIT
sCHECK IF ONE

BCS
CLR
BR

003612

SEQ 0117

CLR

003612
003614
003616

000001
0462570

Mov
MoV
MoV
MOV

DEC
BNE
CLR

:2ERO
;CLOCK IN BIT

;sONE
:WRITE BIT
;81T INCORRECY

MOV
JSR

: INCREMENT BIT COUNT
;CHECK IF WORD FINISHED
:NO,

-3

§°

WHLMLAIRIN)
=8 N = \A WA
VIV IV Nt
I )
WO
NN
MO
O = ~NO N~
NN NN

23333
b
b
b
b
-t

000240

003612

QOO000O

il el
sl aald
ol
el el

S 55 LINUN)
= =t
o VAR
N~
OO oONOOO

D ok

MM NN
NN N NN v
NSNS NN

[«

[elolelolelolelelalala) o

(=4

19-JUN-80 13:49

CIR6CD.P1Y

N 9
19-JUN-80 13:52 PAGE 118
MACY11 30A(1052)
T45
WRITE HEADER FOR 26 SECTORS

003170

003620
003616
003614

18%:

CONTINUE

‘CHECK IF HEADER COMPLETE
*NO, GET NEXT WORD
*LOAD ERROR MESSAGE
:LOAD COUNT
;SHIFT BITS

037452
037454

005301
001360

037464

004737

6405

6406

6407

6408
6409
6410
6411
6412
6413
6414
6415

037450

037456
037470

104170

012737

104170

000001

042570

003612

060755
003622
007777
003616
003614
003612
003612
042570

037544
037550
037552
037554
037560
037566

005237
005301
001356
012701
042737
004737

003622

6424
6425
6426
6427
6428
6429

037574
037600
037602
037604
037612
037616

005237
005301
001371
052737
012701
004737

003622

6431
6432
6433
6434
6435
6436
g:g;

037624
037630
037632
037634
037640
037642
037644

005237
005301
001371
005237
005305
001402
000137

003622

6439
6440
6441
6442
6443
644
6445

037650
037656
037662
037670
037676
037700
037702

012762
012700
012762
012762
005300
001370
012762

000240
000004
000640
000240

000026

23$:

000026
000026

258:

000040

6447
6448
6449
6450
6451
6452
6453

037716
037724

o1§737
023737

022040
003524

037732
037734
037736
037742

001401
104173
012700
012762

6455

037756

005300

6417
6418
6419
6420
6421
6422

6423

037572

6430 037622

104170

000040
020000
042570

020000
000012
042570

003170

R
188

SCHECK IF READY FOR DATA
:NO, CONTINUE

MOV

#1,P1.8I7

ERROR

170

PC WRTBIT

:BIT INCORRECT

:SET SYNCH BIT

‘WRITE SYNCH BIT

SSYNCH BIT INCORRECT

#EM238,EMY
BITCNT
#256.416.=1,R1
M1.8IT,M2.8IT
PR.BIT.M1.BIT
P1.BIT,PR.BIT
P1.8BIT
PC.WRTBIT

218:

INC
DEC
BNE
MOV
BIC
JSR

BITCNT
R
208
#32..R1
#ECCW,E.MR1
PC,WRTBIT

228:

INC
DEC
BNE
BIS
MOV
JSR

BITCNT
R1
21%
NECCW,E . MR
#0. R
PC,WRTBIT

INC
DEC
BNE
INC
DEC
BEQ
JMP

BITCNT
R1
228
SECCNT
RS
238
48

000026

MOV
MOV
MOV
MOV
DEC
BNE
MOV

#DMD ' MIND, RKMR1(R2) ;SIMULATE INDEX PULSE
24 ,R0
#DMD ' MIND ' MCLK , RKMR1 (R2)
#DMD i MIND ,RKMR1
(R2)
RO
253
#DMD ,RKMR1 (R2)

003524
003464

MOV
CMP
BEQ
ERROR
MOV
MOV

FMEVD'ECCW!OMD,E.MR1 ;LOAD EXPECTED MR
E.MR1, T _MRI
:CHECK IF MR1 CORRECT
:
(WRITE GATE RESET)
28%
YES, CHECK IF READY SET
173
*MAINTENANCE REG 1 INCORRECT
#8. R0
*FINISH COMMAND
#DMD
' MCLK , RKMR1 (R2)

DEC

003620
003616
003614

27%:

ERROR

003524

037162

6446 037710 016237 000026 003464

000026

6454 037750 012762 000040 000026

DEC
BNE

170

MOV
CLR
MOV
MOV
MOV
MOV
CLR
JSR

003626

000010
000440

;WRITE ZERO

JSR

012737
005037
012701
013737
013737
013737
005037
004737

037542

P1.8IT7
PC WRTBIT

ERROR

037472
037500
037504
037510
037516
037524
037532
037536

6416

CLR
JSR

ERROR

MOV

288:
29%:

MOV

170

:LOAD ERROR MESSAGE
:CLEAR BIT COUNT
:LOAD COUNT
:SHIFT BITS

;WRITE 2EROS

:BIT INCORRECT

:INCREMENT BIT COUNT
SCHECK IF READY FOR ECC
INO, CONTINUE
:LOAD COUNT
SRESET 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

RKMR{ (R2),T.MR1 ;GET MAINT REG 1

#0MD
. RKMRT (R2)

p -5 ]

]
6403
6404

6402

003612
042570

e tmtmtmtmtatatalialaicalicaicaiaicaieaicalalaicaialcalaliciatiot
ol
ot
ol et el Tl wud wut ol ol ol mud wud ol =l b el

005037
004737

037440
037446

SEQ 0118

6400
6401

B 10
MACY1Y 30A(1052)
19-JUN-80 13:52 PAGE 119
145
WRITE HEADER FOR 26 SECTORS

[als)

CZR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.PY1
19-JUN-80 13:49

CIR6CDO RK611 DSKLS CIRL PRT3
19-JUN-80 13:49
CIR6CD.P1Y

BNE
MoV
MoV
CMP
BEQ
ERROR

003440
003500
003440

1064174

29%
RKCS1(R2),7.CS1 ;GET COMMAND AND STATUS REG 1
#RDY ! WRHEADE<*C<GO>>,E.CST ;LOAD EXPECTED CS1
E.CS1,T.CS1
;CHECK IF CS1 CORRECT
TST46
::YES, GO TO NEXT TEST
174
+€ST INCORRECT

;;'t"QQ'Q""t"""""'""'t'fi""'Q.it'.fiQ'.'t.ttit'tt"'t't

SATEST 46
9

i
;e

MESSAGES, SIMULATE INDEX PULSE, SECTOR PULSE, 3 HEADER

i
;e
b

000144

Db rd

OO0O0O0O0O0O

001270
100000
000040
064326
064326
177772
010027
000312

001200

000002
000000

000440
000040

000026
000026

000004
000240
000640
000240

000026
000026
000026

003612
003614

003626

TST46:

000000
000026
000004

W
NN

040236
040242

HEAD O,

DRIVE 0.

CLOCK THROUGH THE SEEK AND DRIVE CLEAR

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.

E:t"t.'I'tt.l'l""'"'"'t"'t""'.".'i't't"tttt'ittititttt'

040072
040100
040106
040110
040112
040116
040124
040132
040140
040142
040144
040150
040156
040162
040166
040174
040202
040204
040206
040214
040222
040230

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 O,

040010
040012
040020
040024
040032
040040
040046
005
006
040066

WRITE HEADER IN 24 SECTOR FORMAT

6507
6508
6509
6510
6511

000000
000226
003500

22222888222288
fiflflo\fi-‘\Nhfit:flflflfl-‘\hfiflh}
NNNNWUHINNNNYNOW
o
W OO
NNOONNO SIXSAS

6502
6503
6504
6505
6506

001370
016237
012737
023737
001401

pbbs
RN
=
NN

6464
6465
6466
6467
6468
6469
6470
647
6472
6473
6474
64675
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501

037760
037762
037770
037776
040004
0460006

OO
VWA

6456
6457
6458
6459
6460
6461
6462
6463

c10
MACY11 30A(1052)
19-JUN-80
13:52
PAGE 120
145
WRITE HEADER FOR 26 SECTORS

1%:

2%:

SCOPE

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

#100.,8TIMES
;;DO 100. ITERATIONS
$BASE . R2
:LOAD RK611 BASE
#CCLR.RKCS1(R2) :CLEAR RK611
#DMD,RKMR1(R2)
:PUT RK611 TO DIAGNOSTIC MODE
#HEAD1,RKBA(R2) :ISSUE WRITE MEADER
#HEAD1 .R3
#-6,RKWC (R2)
#CFMT 'WRHEAD,RKCS1(R2)
#50.4+2,R0
S ISSUE ENOUGH CLOCKS UNTIL
: "READY FOR INDEX PULSE
#DMD ! MCLK ,RKMRT
(R2)
#OMD
. RKMRT (R2)
RO
1%
¥4 RO
;ISSUE INDEX PULSE
#DMD ' MIND, RKMR1 (R2)

MOV

#DMD I MIND . RXMR{ (R2)

MOV

DEC
BNE
CLR
MOV

000026

MOV

000040

000026
000026

3s:

000140
000040
061014
062040

000026
000026
003170
003524

4$:

MOV

DEC
BNE
MOV
MoV

MOV

Mov
CLR
CLR

I MIND {MCLK , RKMR1(R2)
#DMD
RO
28
SECCNT
#DMD ,RKMR1 (R2)

;CLEAR SECTOR COUNT

#8. RO

‘WAIT FOR WRITE GATE

#2.RS

:LOAD NUMBER OF HEADERS

' MCLK , RKMR1 (R2)
#OMD

#0M0
. RKMRT (R2)

RO
3
#OMD !MSP ,RKMR1(R2) ;SIMULATE SECTOR PULSE
#OMD RKMR1(R2)

#En2%9, Emy

:LOAD ERROR MESSAGE

#OMD'MEWD'ECCW!WRTGAT
E.MR1 ;INITIALIZE EXPECTED
P1.817
PR.BIT

MAINT REG 1

SEQ 0119

005037

5$:

003622
061106
000003

012737
004737

003170
108:

003620
003616
003614

128%:

N NN
O —

NNNNVO

NI O N =0 VAR RININ) = LA VA =2 VA
N N
NN
N N N NN
LN

BITCNT
RO

MOV
JSR

M ,P1.81T
PC WRTBIT

CLR
MOV
MOV

BITCNT
REM2L0,EMW
#3 RO

MOV
MOV
MOV

né. R
M1.B1T,M2.B17
PR.BIT,M1.BIT

B8CS

148

MOV

003612

003620
003616
003614

18$:

BITCNT
R
12%
RO
108

MOV
MOV
MOV
MOV

BNE
INC

000040
000026
022040
003524

000026
003464
003524
003464

000026
000026

20$:

P1.BIT.PR.BIT
A

INC
DEC
BNE
DEC
BNE

ERROR

INC

000026

(R$)R4
+

#1,P1.BIT
PC WRTBIT

DEC

000240
000004
000640
000240

170

MOV
JSR

ERROR

003626

P1.81T

CLR
JSR

003622

170

CLR

B8R

003622

000020
003616
003614
003612
003612
042570

INC
DEC

ERROR

MOV
ROR

003612
000001
062570

M1.B1T
#2 81T
#356. R0
BITCNT
PC,WRTPLT

ERROR

000403

003612

—

000020
003616
003614
003612

CLR
CLR
MOV
CLR
JSR

BNE

(VLR

v
~

[elelelelela)

000001
042570

0402
0&0%

R222838222288883

6512
6513

15%
170

né. R
M1.B1T,m2.817
PR.BIT,M1.BIT
P1.BIT,PR.BIT

P1.BIT
PC WRTBIT

170

BlTCNT

18$

SECCNT

;SIMULATE SYNCH
;INITIALIZE BIT COUNT

;WRITE ONE BIT

:DATA INCORRECT
;CHECK IF READY FOR DATA
sNO,GENERATE NEXT BIT
;PUT

IN SYNCH BIT

:DATA INCORRECT
¢INITIALIZE BIT COUNT
:LOAD ERROR MESSAGE
;LOAD NUMBER OF WORDS IN HEADER
;GET NEXT WORD
sLOAD BIT COUNT
;SHIFT BITS

;SHIFT IN NEXT BIT
: CHECK IF ONE
. ZERO
+CLOCK IN BIT
;ONE
JWRITE BIT
;BIT INCORRECT
:INCREMENT BIT COUNT
;CHECK IF WORD FINISHED
:NO, CONTINUE
:CHECK I1F HEADER COMPLETE
:NO, GET NEXT WORD
:LOAD BIT COUNT FOR NEXT WORD
:SHIFT BITS

<WRITE

ZERO

:BIT INCORRECT
: INCREMENT
;CHECK IF READY FOR NEXT HEADER
sNO, CONTINUE

+ INCREMENT

DEC
BNE
MOV

RS
;CHECK IF SECOND HEADER WRITTEN
:NO, DO SECOND HEADER
X1
#OMD
' MIND, RKMR1 (R2) sSIMULATE INDEX PULSE

MOV

(R2)
,RKMR1LK
#OMD ' MIND'MC

MOV

MOV
DEC
BNE
MOV

MOV
MOV

CMP

24 RO

#OMD I MIND , RKMR1 (R2)
RO
208
#DMD , RKMR1 (R2 )
RKMRT (R2), T. MR1 sGET MAINT REG 1
:LOAD EXPECTED MR1
#MEWD 'ECCW'D Mo, E.MR1
E.MRY,T.MRI
;CHECK MR1 CORRECT (WRITE GATE RESET

SEQ 0120

P~~~

0 10

MACY11 30A(1052)
19=JUN-80 13:52_
PAGE 121
146
Wk ITE HEADER IN 2¢ SECTOR FORMAT

‘ale

CIR6CDO RKO61Y DSKLS CTRL PRT
19-JUN-80 13:4
CZR6CD.P1

=2 OO0000O0O0O0O—
OON
= —2OO0O
=0
B =2 NI OTM =2 NI
S

040572
040574
0460576
040602
040610
0460616
0460620
040622
040630
040636
040644
060646

= L NN
N N N =
NOWNWNOOOCO
N
&= NNNOONNOW

000010
000440
000040
000000
010226
003500

000026
000026

25%:
268:

BEQ
ERROR
MoV
MOV

25%
;YES, CHECK IF READY SET
173
sMAINT REG 1 INCORRECT
#8.,R0
: FINISH COMMAND
#OMD
' MCLK ,RKMR1 (R2)

DEC

MOV

BNE
Mov

003440
003500
003440

MOV

CMP
BEQ
ERROR
.SBTTL

08no.axnn{(a2)

26%
RKCS1(R2),T.CST

;GET COMMAND AND STATUS REG 1

NROY ! CFMT WRHEADE<AC<60>>,E.CST ;LOAD EXPECTED (S1
E.CS1,T.CS
1S147
174

;CHECK IF CS1 CORRECT
:;YES, GO ON TO NEXT TEST

++«TYPE B INSTRUCTION ERRORS

:"iit't't'Qti"t'""'i"""t'tt.t"'Qtt'iitit'tttttttt'tttit'i

SeTEST 47
M

o
ot
ot
o*
.t
o
M

FORMAT ERROR (PART 1)

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT THE
CONTROLLER IN DIAGNOSTIC MODE. ISSUE A READ HEADER TO AN
RKO6, IN 26 SECTOR FORMAT, CYLINDER 43, HEAD 0, DRIVE 0.
CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6. TURN OFF
MAINTENANCE MODE. MAKE SURE FORMAT ERROR,
DRIVE AVAILABLE AND CONTROLLER ERROR SET.

RN
N
R AR R AR AR AR AR R RN R AR RN RREAANN O

=AN
ONONO =W

882528 OO b ed b d

O0O0O0O0O

PNVOON)
= o b b d b ch =

O =000

S2NONNSOON

D
o
e
e
e
e
—

[=l=lelelelelelw]

REIRRRRRR

W) =2 OO0

POPVNIA)
=2 b b e e e wch =D

W) —

2222222222288

(=d=d=l=l=l=l~1=]=]

040650

000144
001270
000040
000040
000043
000025
000132
000440
000040

000026
003632
000000

000000
000010

001200

1ST47:

000010
000026
000020
000000
000026
000026

1$:

2%:

MOV
MOV
MOV
MOV

;:DO 100. ITERATIONS
$BASE . R2
:LOAD RK&11 BASE
#SCLR.RKCS2(R2) :CLEAR RK611 SUBSYSTEM
#0MD,RKMRT(R2)
:PUT RK611 IN MAINTENANCE MODE
#43,RKDCYL(R2) :LOAD CYLINDER ADDRESS REG

MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BM]
DEC
BNE

#DMD ' MCLK , RKMRT(R2)
#DMD .RKMR1 (R2)
RO
1%
RKMR1(R2)
;FINISH COMMAND IN NORMAL MODE
‘WAIT FOR READY
WAITIM,RO
RKCS1(R2)
3s
RO
28

MOV
MOV

000012
000014
100224
000100
100001
000020
003500
003510

SCOPE

MOV

MOV
MOV
MOV

MOV

CMP

4$:

BEQ
ERROR

CMP

#100.,$TIMES

#ROHEAD ,RKCS1(R2) ;ISSUE READ HEADER
#22.+4+5,R0
:1SSUE CLOCKS UNTIL PHASE ADDRESS 6

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG 2
RKDS(R2),T.0S
RKER(R2) .T.ER

:STORE DRIVE STATUS REG
:STORE ERROR REG

#CERR'RDY
' ROMEADE<AC<GO>>,E.CST ;LOAD EXPECTED €S1
#IR,E.CS2
:LOAD EXPECTED €S2
#SVAL 'DRA,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#EMTE.E.ER

SLOAD EXPECTED ERROR REG

(8
175

YES, CONTINUE

E.CST,T.CS1

£.(52,1.CS2

*CHECK COMMAND AND STATUS REG 1 CORRECT

<CHECK COMMAND AND STATU REG 2 CORRECT

SEQ@ 0121

E 10
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 122
T46
WRITE HEADER IN 24 SECTOR FORMAT

~Ne~

CIR6CDO RK61T DSKLS CTRL PRT3
19-JUN-80 13:49
. P11

Ufldkflvflflhflg;

NN
(V]
~ NNNNNV

o SNNOOOPRONIN

003512

003452

5%:

003514

003454

6$:

003440
003450
003452
003454

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

7%:

[(1))
MoV
MOV

100000

003510
003500
003510

003512
003514

003450
003452
003454

104214

11%:

12%:
13%:
14%:
e

E.DS,T.DS

;YES, CONTINUE

E.ER,T.ER

sCHECK IF ERR REG CORRECT

1.CS1,P.CS1
1.CS2,P.CS2

;STORE PREVIOUS CONTENTS OF
;
COMMAND AND STATUS REG 1

T.ER,P.ER

;30

:YES, CONTINUE

1.05,.P.DS

COMMAND AND STATUS REG 2

MoV
MOV
MOV
MOV
MOV
[0}
MOV

#CCLR,RKCST1/R2)
RKCS1(R2),T.CS1

CLR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

RKER(R2) ,T.ER
#ROY,E.CS1
#IR,E.CS2
E.DS

E.ER
E.CS1,T.CS1

;STORE ERROR REG
:LOAD EXPECTED CS1
:LOAD EXPECTED €S2
:LOAD EXPECTED DRIVE STATUS REG

118

:YES,

CONTINUE

;YES,

CONTINUE

CMP
BEQ

ERROR
CMP
BEQ
ERROR

RKCS2(R2),7.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
:STORE DRIVE STATUS REG

:LOAD EXPECTED ERROR REG
;CHECK C€S1 CORRECT

211
£.CS2,7.CS2

;€S1 INCORRECT
:CHECK €S2 CORRECT

212
E.DS.T.DS

;€S2 INCORRECT
:CHECK DRIVE STATUS CORRECT

12%

138
213
E.ER,T.ER

:YES, CONTINUE
;DRIVE STATUS REG INCORRECT
:CHECK IF ERROR REG CORRECT
:YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

14$

214

it 22 2222222222220 232222202220

020

2220000

R0 0]

FORMAT ERROR (PART 2)

SeTEST 50

2223230222R22R

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT THE
CONTROLLER IN DIAGNOSTIC MODE.
[ISSUE A READ HEADER TO AN
RKO6, IN 24 SECTOR FORMAT, CYLINDER 3, HEAD 0, DRIVE 0.
CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6.
TURN OFF

MAINTENANCE MODE.

B
»
—

001270
000040
000040
000003
010025
000132
000440

001200

(elelelelalalalalo)
—
il wnld b e = O

D
A AN O
M
A

b
b wdd
b
ol
o
el
—

t~bw~ard-aia\rfl
£ 0N
OOSO

223X

000144

150:

000010
000026
000020
000000
000026

MAKE SURE FORMAT ERROR,

ODRIVE AVAILABLE AND CONTROLLER ERROR SET.

1%:

2883822222222 2322020022000200

SCOPE

MOV
MoV
MOV
MoV
MoV
MOV
MoV
MOV

#100.,STINMES
$BASE ,R2

2020222220323 32328822220RRRdY]

+:00 100. ITERATIONS
:LOAD RK&11 BASE

#SCLR,RKCS2(R2) ;CLEAR RK611 SUBSYSTEM
#OMD,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
#3,RKDCYMLR2) ;LOAD CYLINDER ADDRESS REG
#ROHEAD!CFMT ,RKCS1(R2) ;ISSUE READ HEADER
#22.+4+2 R0
:ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#OMD ' MCLK,RKMR1(R2)

:CHECK 'F DRIVE STRATUS REG CORRECT

?;7

:
DRIVE STATUS REG
:
AND ERROR REG
;CLEAR RK611
;STORE COMMAND AND STATUS REG 1

CLR

003440

SEQ 0122

;YES, CONTINUE

?;6

ao ]

F 10
30A(1052)
19-JUN-80
13:52
PAGE 123
147
FORMAT ERROR (PART 1)

001601

= P P Pur- PP Gur-Pur-Snr GurPurgnry
, §
VIRONOCO OO0
Wi

il anld wld wld o pr
)

D el

FRARRRRRR

- ad

[=]

NI ANINININIPIA)
b b ed o ed

d e

S REFORIREBREFER KISk

041062

(=4
O
FRERRRRRR

6624
6625
6626

MACY11

[

CIR6CDO RK611 DSKLS CYRL PRT3
19-JUN-80 13:49
CZR6CD P11

CIR6CDO RK6T11 DSKLS CTRL PRT3
CZR6CD.P11
19-JUN-80 13:49

6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
g;}%

041352
041360
041362
041364
041370
041374
041400
041402
0414064
041406
041414
041422
041430
041436
041444
041452
041460
041466
041474
041476
041500
041506
041510
041512
041520
041522
041524
041532
041534
041536
041544
041552
041560

012762
005300
001370
005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737
012737
012737
012737
023737
0016401
104201
023737
001401
104202
023737
001401
104203
023737
001401
104204
013737
013737
013737
013737

000040

6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726

041566
041574
041602
041610
0461616
041624
041632
041640
041644
041650
041656
041660
0461662

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104211
023737

~
~N

041670
041672
041674
041702
041704
041706
041714
061716
(=4

6727
6728
6729
6730
6731
6732
6733
6736

001401
104212
023737
001401
104213
023737
001401
104214

MACY11

6 10

30A(1052)
19-JUN-80
13:52 _PAGE 124
150
FORMAT ERROR (PART 2)

000026

000026
003632
000000

MOV

2s:

DEC
BNE
CLR
MoV

1ST8

BMI
DEC
BNE

SEQ 0123

#DMD ,RKMR1 (R2)

RO
18
RKMR1(R2)
WALITINM, RO
RKCS1(R2)

;FINISH COMMAND IN NORMAL MODE
;WAIT FOR READY

3%
RO
2$
RKCS1(R2),T.CST1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2

000000
000010
000012
000014
110224
000100
100001
000030
003500

003440
003450
003452
003454
003500
003510
003512
003514
003440

3s:

003510

003450

003512

003452

5¢:

003514

003454

6%:

003440
003450
003452
003454

003540
003550
003552
003554

7%:

100000
000000
000010
000012
000014
000200
000100
003512
003514
003500

000000
003440
003450
003452
003454
003500
003510

MOV
MOV

#CCLR,RKCST(R2)
RKCS1(R2),7.CS1

MoV
MOV

RKDS(R2),7.DS
RKER(R2) ,T.ER

;STORE DRIVE STATUS REG
;STORE ERROR REG

003440

003510

003450

118%:

CMP
BEQ
ERROR

003512

003452

12%:

003514

003454

138:

E.CS1,T.CST
118
211
£.CS2,T.CS2
12¢
212
£.05,7.0$
138
213
E.ER,T.ER
148
214

:CHECK CS1 CORRECT
:YES, CONTINUE
+CS1 INCORRECT
;CHECK €S2 CORRECT
;YES, CONTINUE
;CS2 INCORRECT
;CHECK DRIVE STATUS CORRECT
:YES, CONTINUE
;DRIVE STATUS REG INCORRECT
;CHECK IF ERROR REG CORRECT
;YES, GO ON TO NEXT TEST
:ERROR REG INCORRECT

Mov
MoV
MOV
MOV
MOV
MoV
MoV

MoV
CMP
BEQ
ERROR

CMP

#SVAL'DRA E.DS

E.CS2,T.CS2
5%
202
E.DS,T.DS
63
203
E.ER,T.ER
7%
204

MOV

T.05,P.D$S

MOV
MOV

MOV

MoV
MoV
CLR
CLR

CMP
BEQ
EFROR
CMP
BEQ
ERROR
CHP
BEQ
ERROR

;LOAD EXPECTED DRIVE

STATUS REG

#EMNTE!DRPAR,E.ER
;LOAD EXPECTED ERROR REG
E.CS1,T.CS
;CHECK COMMAND AND STATUS REG 1 CORRECT
‘s
;YES, CONTINUE
201

BEQ
ERROR
cMP
BEQ
ERROR
CMP
BEQ
ERROR

MoV

14%:

RKDS(R2),7.0S
;STORE DRIVE STATUS REG
RKER(R2) ,T.ER_ .STORE ERROR REG
#CERR'RDY'!ROHEAD
! CFMTE<*C<GO>>,E.CST1 ;LOAD EXPECTED (S1
#IR,E.CS2
;LOAD EXPECTED (S2

:CHECK COMMAND AND STATU REG 2 CORRECT
:YES, CONTINUE
;CHECK IF DRIVE STPATUS REG CORRECT
;YES, CONTINUE
;CHECK IF ERR REG CORRECT
;YES, CONTINUE

T.CS1,P.CS1
1.0S2,P.(S2

;STCRE PREVIOUS CONTENTS OF
;
COMMAND AND STATUS REG 1

T.ER,P.ER

COMMAND AND STATUS REG 2

DRIVE STATUS REG

AND ERROR REG

;CLEAR RK611
;STORE COMMAND AND STATUS REG 1

RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
#ROY,E.CSY
#IR,E.CS2
€.DS
E.ER

:LOAD
;LOAD
;LOAD
:LOAD

EXPECTED
EXPECTED
EXPECTED
EXPECTED

CS1
(S2
DRIVE STATUS REG
ERROR REG

H 10

MACYI 3?“1052)
19-JUN-80 13:52 PAGE 125
50
FORMAT ERROR (PART 2)

6736

6737

g;%g

;*TEST 51

e
e

0743

6742

6744

2;22

000144
001270
000040
000040
000003

001200

6755
6756

041764
041772

012762
012762

6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768

042004
042012
042020
042022
042026
oagoso
042034
042040
042042
042044
042046

012762
012762
005300
001370
005062
013700
105762
100402
005300
001373
016237

6770
6771

042062
062070

6754 041756 012762

TURN OFF MAINTENANCE MODE.

062054

#WRBUFF ,RKBA(R2) ;LOAD BUS ADDRESS
#WRHEAD RKCS1(R2) ;ISSUE WRITE HEADER

000440
000040

000026
G00026

000026
003632
000000

1$:

28:

016237
016237

3$:

003510
003512

6776

042126

023737

003500

003440

6779

062140

023737

003510

003450

4$:

003512

003452

S8$:

003514

003454

6$:

013737
013737

003440
003450

003540
003550

7%:

013737

003454

003554

6780
6781
6782
6783
6784
6785
6786
6787

6788
6789

6790
6791

042146
042150
042152
042160
042162
042164
042172
042174

042176
042204

042212

042220

001401
104205

001401
104206
023737
001401
104207
023737
001401
104210

013737

003452

MOV

MOV
MOV

003514

003552

MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BM]
DEC
BNE
MOV

MOV

000100
100001

000000

MoV

MOV
MOV

012737
012737

042134
042136

R R RO

MOV
MOV

MOV

042104
042112

6777
6778

AR AN RN RN R AN NN AN RN RN AR

000004
000000

177775 000002

003440
003450
003452
003454

012737

RN RN R RN

064630
000027

6773
67764

042120

MAKE SURE DRIVE
AVAILABLE AND CONTROLLER ERROR SET.

000010
000026
000020

6772 042076 012737 100226 003500
6775

CLOCK IN MAINTENANCE MODE UNTIL PHASE ADDRESS 6.

#100.,8TIMES
;00 100. ITERATIONS
$BASE ,R2
:LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RK611 SUBSYSTEM
#OMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
#3 RKDCYL(R2) ;LOAD CYLINDER ADDRESS REG

000000
000010
000012
000014

016237

1ST51:

SCOPE
MOV
MOV
MOV
MOV
MOV

6757 042000 012700 000132

6769

ie
1

000004
012737
013702
012762
012762
012762

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT THE
CONTROLLER IN DIAGNOSTIC MODE. ISSUE A_WRITE MEADER TO

AN RKO6, IN 26 SECTOR FORMAT, CYLINDER 3, HEAD O, DRIVE

: IR

041720
041722
041730
041734
041742
041750

NRRR NN AT AN EANCEANCANCRANRARS

6748
6749
6750
6751
6752
6753

RN RN RN

FAULT SETTING CONTROLLER ERROR

6740
6741

6747

N RN A RN R A RN R

SEQ 0124

MOV

CMP

#-§,RKWC (R2)

:LOAD WORD COUNT

#22.44+8 RO

:1SSUE CLOCKS UNTIL PHASE ADDRESS 6

#OMD 'MCLK ,RKMR1(R2)
#OMD ,RKMR1 (R2)
RO
1%
RKMR1(R2)
;FINISH COMMAND [N NORMAL MODE
WALTIM, RO
;WAIT FOR READY
RKCS1(R2)
38
RO
2
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1

RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
RKER(R2) ,T.ER

#CERR'RDY
' WRHEADE<*(<G0>> ,E.CST ;LOAD EXPECTED CS1
#IR,E.CS2
;LOAD EXPECTED (S2
#SVAL'DRA,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#0,E.ER ;LOAD EXPECTED ERROR REG

E.CS1,T.CS1

;CHECK COMMAND AND STATUS REG 1 CORRECT

E.CS2,7.CS2

;CHECK COMMAND AND STATU REG 2 CORRECT

BEQ
ERROR

48
205

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

5%
206
E.DS.T.DS
63
207
E.ER,T.ER
7%
210

CMP

MOV
MOV

;STORE DRIVE STATUS REG
;STORE ERROR REG

:YES, CONTINUE

;CHECK IF DRIVE STRATUS REG CORRECT
;YES, CONTINUE

;CHECK IF ERR REG CORRECT
:YES, CONTINUE

T.CS1,P.(S1
1.(52,P.CS2

; STORE PREVIOUS CONTENTS Of
: COMMAND AND STATUS REG 1

T.ER,P.ER

1.05,P.DS

COMMAND AND STATUS REG 2

DRIVE STATUS REG

[en Fan]

CIR6CDO RK611 DSKLS CIRL PRTY
CZR6CD.PIY
19-JUN-80 13:49

AWNE WIND

3 oo
-~

OS2I NNIANONOOO

RRRRRRRRRRRRRIRRRRRRIRR

6793
6794
6795

LSINT ST NT NT ST NT ST ST ST NT ST ST ST S S S I
I
dand
Wl U Ll W W Al W Ll A A A W A A N NI PN NN N

6792

O [=lolelolelolalalelela]
NO ONOO
=t b ad ed d b b
(VP PTYPI IV IV I ST NTe Yo Yo Jo I 8
~NN £ NO O NNNINININ
N
W - O NN AN NN NN N O
~J = =t
N NNNNN
NN

19-JUN-80 13:49

023737
001401
104213
023737
001401
104214

110

30A(1052)
19-JUN-80 13:52 PAGE 126
FAULT
SETTING CONTROLLER ERROR
51
:

AND ERROR REG

;CLEAR RK611

MOV
MOV
MOV
MOv
MOV
Mov
MOV

#CCLR,RKCST(R2)

RKDS(R2),7.DS
RKER(R2),T.ER
#RDY,E.CS1
#IR,E.CS2

;STORE DRIVE STATUS REG
;STORE ERROR REG
;LOAD EXPECTED CS1
;LOAD EXPECTED (S2

BEQ
ERROR
CMP
BEQ
ERROR
CMpP

118
21
E.CS2,7.CS2
12%
212
E.DS,T.DS

;YES, CONTINUE
;CS1 INCORRECT
s CHECK €S2 CORRECT
;YES, CONTINUE
:CS2 INCORRECT
;CHECK DRIVE STATUS CORRECT

CLR
CLR
CMP

okQ
ERROR
CMP

BEQ
ERROR

RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2

E.DS
E.ER
E.CS1,T.8S1

13$

213
E.ER,T.ER
1498
214

;LOAD EXPECTED DRIVE STATUS REG
:LOAD EXPECTED ERROR REG
;CHECK CS1 CORRECT

:YES, CONTINUE

:DRIVE STATUS REG INCORRE(T
;CHECK IF ERROR REG CORRECT
:YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

SEQ 0125

(Y]

CZR6CDO RK611 DSKLS CIRL PRT3

CZR6CD

MACY11

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD.PIY

6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871

30A(1052)

19-JUN-B0

13:52

END OF PASS ROUTINE
.SBTTL
T

J 10

PAGE 127

SEQ 0126

END OF PASS ROUTINE
T

s *INCREMENT THE PASS NUMBER (SPASS)

;*TYPE ''END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vyvyy'

s *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

¢*1F THERES A MONITOR GO 1O IT

s*1F THERE ISN'T JUMP TO NEWPAS
042360
042360
042362
042366
042372
042376
042404
042406
0426410
042412
042414
042416
042420
042424

000004
005037
005037
005237
062737
005327

BIC

DEC
.WORD
BGT
MoV
$ENDCT: .WORD
$EOPCT
TYPE
BR

SEOPCT:

042426

$TSTNM
$TIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+

::1ERO THE TEST NUMBER
:;1ERO THE NUMBER OF ITERATIONS
:: INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
J:L00P?
o YES

s ;RESTORE COUNTER

MOV

$PASS,=-(SP)

::SAVE SPASS FOR TYPEOUT

104405
106401
000421

042460

TYPDS
TYPE

L67%

;s TYPE ASCIZ STRING

013746

001112

042450
062452
0462456
042522
042522

042570
042576
042604

001222

SCOPE
CLR
(LR
INC

001222

013746

042564

001102
001200
001222
100000

JASCIZ

042444
042444

042526
042530
042534
042540
042544
042546
042550
042552
042554
042556
042560
042560
042562

$EOP:

,65%
::sTYPE ASCIZ STRING
648
:;GET OVER THE ASCI2
<12><15>/END PASS #/

000407

104405
104401

005037
013700

MOV

SERTTL,-(SP)

;s SAVE SERTTL FOR TYPEOUT

TYPDS
TYPE

LSCRLF

::60 TYPE-=DECIMAL ASCII WITH SIGN
;s TYPE CARRIAGE RETURN, LINE FEED

CLR
$GETL2: MOV
BEQ

000137
004636
377
042570

52737

12762
16237

$DO0AGN:

377

002400
000440
000026

000

003524
000026
003464

WITH SIGN

66%

ASCIZ

001211
001112
000042

::TYPE PASS NUMBER
260 TYPE=-=DECIMAL ASCII

B8R

RESET
D:
$ENDA
JSR
NOP
NOP

OO0

6816
6817
6818
6819
6820
6821
6822
6823
6824
6825

MACY11

;:GET OVER THE ASCI2

TOTAL ERRORS SINCE LAST REPORT /

SERTTL
ane2 RO
$DOAGN
PC, (RO)

:: TOTAL NUMBER OF ERRORS
;s CLEAR ERROR TOTAL
::GET MONITOR ADDRESS
:;BRANCH IF NO MONITOR
;s CLEAR THE WORLD

;260 TO MONITOR
: s SAVE ROOM
::FOR

NOP

ScACTN

a(PC)¢
NEWPAS
-1,-1,0

+ :RETURN

$RTNAD:
$ENULL:

JMP
.WORD
.EYEE

.SBTTL

SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE

.EVEN

WRTBIT: BIS

MOV

:sNULL CHARACTER STRING

. ;CREATE EXPECTED MAINT. REG. 1
MR
MCLK!MEWD,E

#OMD'MCLK,RKMR1(R2) ;PROVIED 1ST UPWARD TRANSITION
RKMR1(R2),T.MR1

;STORE MAINT. REG. 1

CZR6CDO RK61Y DSKLS CTRL PRT3

19-JUN-80 13:49

CZR6CD P11

042612

023737

011646
000207

032777

0035264

003464

062642
063747

001202
003172

001000

002000
003612

010000

136270

1$:

003524
003524

003524

003524
5%:

RRR RRRRRRRRR R
- wdd b
-— e
or8& RIF

$Foere oS

0034620

~N
~N

[V IV LV BV
1V]

#5W9,aSuWR
3%
63$

;CHECK IF LOOP ON ERROR
:NO, CONTINUE
:YES, LOOP ON ERROR

BIC
BIS
1ST
BNE
1ST
BNE
BIC
IS8T
BNE
TST
BEQ
8IS
B8R

#MCLK'PCA!PCD,E.MRT ; INITIALIZE MAINTENANCE REG. 1

M2.BIT
108

#PCD,E.MR1
108

;CHECK IF NEXT BIT =1
:YES, CHECK FOR PRECOMP ADVANCE
;CHECK FOR PRECOMP. ADVANCE
:NO, CLOCK IN ZERO
:SET PRECOMP. DELAY
:CLOCK IN ZERO

BNE
8IS

TST

M2.8IT
108
#PCA,E . MRY

;CHECK FOR PRECOMP. ADVANCE
:CLOCK IN ZERO
:SET PRECOMP. ADVANCE

MOV

RKMRT(R2) ,T.MR1 ;STORE MR1

MoV
MoV
MoV

003620

—t

BIT

8EQ

003616

sCHECK IF MAINT REG 1 CORRECT
;YES, PROVIDE DOWNWARD TRANSISTION

RTS

014400
042000
003614

E.MR1,T.MRY
33

CMP

043524

6872
6873
6874
6875
6876
6877

K 10
19- J v N -80
MACY11 30A(1052)
13:52 PAGE 128
SIMULATE ONE 8 1 T OF WRITE DATA IN MAINTANENCE MODE

004000
000040
000026
003464

003524
000026
003464
003524

043020
064036

001202
003172

001000

136112

108:

003524
000026
003464
003464

043106
064127

001202
003172

032777
001402
000137

001000

052737

002000

136024

Mov
MOV
MOV
RTS

118:

12%:

8!T

BEQ
JMP

8IS

MoV
MOV

CMP
BEQ
Mov
MOV

13%:

15%:

:LOAD ESCAPE FOR LOOP ON ERROR
;LOAD ERROR MESSAGE
:SAVE RETURN
:MR1 INCORRECT ON UPWARD TRANSITION

#MEVWD 'WRTGAT ,E . MR
PR.BIT
:CHECK IF ONE

208
M1.817
108
#MEWD E.MRY
P1.8IT

#0%) RKMR1(R2)

;YES, SIMULATE ONE
;CHECK IF PREVIOUS ONE
:YES, NO TRANSISTION
:INDICATE TRANSISTION

:CLOCK IN DATA BIT

T.MR1,E.MR1
12%
#118,8ESCAPE

SCHECK IF MR1 CORRECT
:YES, CONTINUE
;LOAD ESCAPE FOR LOOP ON ERROR

(SP),=(SP)
PC

*SAVE RETURN
*MR1 INCORRECT

#5W9,aSuR
128

:CHECK IF LOOP ON ERROR
NO, CONTINUE

SEMVS EMU+2

618

#NCLK'MEWD
E. MR

*LOAD ERROR MESSAGE

*YES, LOOP ON ERROR

;CREATE EXPECTED MAINT REG 1

#OMD'MCLK,RKMR1(R2) ;PROVIDE OND UPWARD TRANSISITION
RKMR1(R2) ,T.MR1 ;STORE MAINT REG. 1

E.MR1,T.MR1

;CHECK IF MAINT REG. 1 CORRECT

senus EMue2

*LOAD ERROR MESSAGE

15%
#138 SESCAPE

;YES, CONTINUE
;LOAD ESCAPE FOR LOOP ON ERROR

*SAVE RETURN
‘MR1 INCORRECT

BIT
BEQ

JMP

#5W9, aSWR
15%
63

:CHECK IF LOOP ON ERROR
*NO, CONTINUE
*YES, LOOP ON ERROR

8IS

#NEWD E .MRY

;RESET TRANSITION INDICATION

MoV
RTS

043524

003524

MCcv

CMP
BEQ

043524

002400
000440
000026
003524

BEQ
JMP

#1$,3ESCAPE
FEMWT EMW+2
(SP),=(SP)
PC

(SP),=(SP)

SEQ 0127

CIR6CDO0 $K611 DSKLS CYRL PRT3

CIR6CD.P11

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-B0

13:52

L 10
PAGE 129

SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE

6928
6929

043130
043136

042737
01276

000400
000040

003524
000026

BIC
[ [0]")

#MCLK,E.MRY
#OMD ,RKMRI1(R2)

:SUPPLY LAST PART OF DATA

6931
6932
6933

043152
043160
043162

023737
001414
012737

003464

003524

043202

001202

CMP
BEQ
MOV

T.MR1,E.MRY
18%
#178 SESCAPE

SCHECK IF MR1 CORRECT
:YES, RETURN
:LOAD ESCAPE FOR LOOP ON ERROR

6935
ggg?

063176
043200

011646
000207

(SP),=(SP)
PC

:SAVE RETURN
:MR1 INCORRECT

6938
6939

043202
043210

032777
001145

001000

BIT
BNE

#5¥9,asWR
638

;CHECK IF LOOP ON ERROR
‘YES, LOOP ON ERROR

ADD
RTS

#2,(SP)
PC

:ADJUST RETURN
:RETURN

6930 043144 016237

000026 003464

MOV

6934 063170 012737 064216 003172

135730

MOV

MOV
RTS

178:

pEMS EMUe2

6941
gg:%

043216
043222

062716
000207

000002

188:

69644
6945
6946
6947
6948
gggg

043224
043230
043232
043236
043240
043246

005737
001007
005737
001415
052737
000411

003612

208:

004000

003524

TST
BNE
TST
BEQ
BIS
BR

P1.BIT
30%
M1.BIT
40%
#PCA,E.MRY
408

;CHECK IN NEXT BIT A ONE
:YES, CHECK IF PRECOMP DELAY
;CHECK FOR PRECOMP ADVANCE
'NO, CLOCK IN DATA BIT
:SET PRECOMP. ADVANCE
SCHECK MR1

6951

043250

042737

000400

003524

308:

BIC

#MCLK,E.MRY

;RESET MAINT CLOCK IN EXPECTED MR1

010000
000040

003524
000026

«0$:

003464

003524

043336

001202

6952
6953
6954
6955

043256
043262
043264
oagir

005737
001003
052737
01273;

043306
043314
043316

023737
001414
012737

6956 04

6957
6958
6959

016237

003616

000026 003464

6961
ggg%

043332
043334

011646
000207

6964
6965

043336
043344

032777
001067

6970

043376

001414

697
gg;g

6976
6977
6978
6979

001000

135574

41$:

000600
000440
000026
003524

003524
000026
003464
003464

42%:

:CLEAR ESCAPE

ST
BNE
BIS
MOV

mi.BIT
40$
#PCD,E.MR1
#DMD RKMR1(R2)

SCHECK FOR PRECOMP DELAY
INO, CHECK MR1
SSET SET PRECOMP DELAY
:CLOCK IN DATA BIT

CMP
BEQ
MOV

T.MR1,E.MRY
42%
#4618 ,SESCAPE

:CHECK MR1 CORRECT
:YES, CLOCK IN REST OF BIT
:LOAD ESCAPE FOR LOOP ON ERROR

MOV
RTS

(SP),=(SP)
PC

:SAVE RETURN
:MR1 INCORRECT

#5W9,35WR
63s

:CHECK IF LOOP ON ERROR
:YES, LOOP ON ERROR

(5%

YES, CONTINUE

MOV

6960 043324 012737 064036 003172

S$ESCAPE

:LOAD ERROR MESSAGE

6940 043212 005037 001202

003616

CLR

RKMRY (R2), T.MR1 ;STORE MR?

8IT
BNE

RKMRY (R2),T.MR1 :STORE MR1

lEHUé.EHU*Z

:LOAD ERROR MESSAGE

BIS
MOV
MOV
CMP

:CHREATE EXPECTED MAINT. REG. 1
MCLK,E.MRY
#OMD 'MCLK ,RKMR1(R2) ;PROVIDE 2ND UPWARD TRANSITION
RKMR1(R2) ,T.MR1 ;STORE MAINT REG 1
:CHECK IF MAINT REG 1 CORRECT
E.MR1,T.MR1

6971 043400 012737 043420 001202

MOV

#4383 SESCAPE ;LOAD ESCAPE

063414
043416

011646
000207

MoV
RTS

(sp),-(SP)
PC

043420
043426
043430
043436

032777
001036
042737
01276;

001000

135512

438:

002400
000040

003524
000026

458:

043452
043460
063462

023737
001414
012737

003464

003524

043502

001202

6966 043346 052737
6967 043354 01276
6968 043368 016237
023737
6969 04337

6972

MOV

043406 012737 064127 003172

6980 043444 016237
6981
6982
6983

BEO

000026 003464

sEMS EnMue2

:LOAD ERROR MESSAGE
:SAVE RETURN
*MR1 INCORRECT

BIT
BNE
BIC
MoV

;CHECK IF LOOP ON ERROR
2569, aSWR
SYES, LOOP ON ERROR
63%
D ;SET TRANSISTION
' MCLK ,E.MR1
#MEV
#OMD ,RKMRI1(R2) ;CLOCK TRANSISTION

CMP
BEQ
MOV

T.MR1,E.MRY
50
2478 .86SCAPE

MOV

RKMRY (R2), T.MR1 :STORE MR1

sCHECK IF MRY CORRECT
*YES, RETURN

:LOAD ESCAPE FOR LOOP ON ERROR

SEQ 0128

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.P1Y

n10

MACY11 30A(1052) 19-JUN-80 13:52 PAGE 130
SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE

6984
6985
6986

043470
043476
043500

012737
011646
000207

064216

6988

043502

032777

001000

6990
6991
283%

043512
043516
043522

005037
062716
000207

001202
000002

508:

6994
6995
6996

043524
043530
043534

005037
012706
000177

001202
001100
135350

638:

6997
6998
6999
7000
7001
7002
7003
7004
7005

003172

135430

47%:

;CLOCK IN’ZERO

000026
000026
000026
000026

4$:
5%

7013
7014
7015
7016

043616
043626
043632
043640

012762
012762
012762
012762

000440
000040
001440
000040

000026
000026
000026
000026

108:

003616

MOV

043664
003604

37
77

001202
001000

-t

001202

135242

#DMD 'MCLK 'MERD ,RKMR1(R2)
;INSERT TRANSITION
;CLOCK IN ZERO
#DMD .RKMR1(R2)*

RTS

MOV
MOV

MOV

#DMD {MCLK , RKMR1 (R2)
#DMD. RKMRT (R2)

:RETURN

#DMD'MCLK ,RKMR1(R2)

#0MD,RKMR{ (R2)

:CLOCK IN ONE

! MCLK ' MERD , RKMR1 (R2)
#OMD
#DMD RKMR1 (R2)
:RETURN
PC

MEMORY CHECK ENABLE TRAP

MEMERR: MOV
ROV
ERROR
CLR
108:

BIT
BNE
RTI

001100
135176

' MCLK,RKMRI(R2) * ;YES, DO NOT INSERT TRANSITION
#DMD

MOV
MOV

MOV
MOV
RTS
.SBTTL

37
37

:FORCE STACK
:LOOP ON ERROR

5¢

001440
000040
000440
000040

;CLEAR ESCAPE

#STACK,SP
aSLPERR

B8R

012762
012762
012762
012762
000207

b ~N S
o
~
S
~ (=4
<
o~
~

$ESCAPE

;CHECK IF ONE
SYES, SIMULATE ONE
‘CHECK IF PREVIOUS ONE
INO, INSERT TRANSITION

043564
043572
043600
043606
043614

SSEEEES

(LR

MOV
JMP

SADJUST RETURN
*RETURN

PR.BIT
108
M1.81T
4$

7007
7008
7009
7010
(011

;CHECK IF LOOP ON ERROR
1YES, LOOP ON ERROR
SCLEAR ESCAPE

TST
BNE
ST
BEQ

000026

& ~N

#5W9,3SWR
63
$ESCAPE
#2,(5P)
PC

‘MR1 INCORRECT

RDBIT:

000440

L LR

BIT
BNE
CLR
ADD
RTS

SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE

003614

W
~ ~

:LOAD ERROR MESSAGE
*SAVE RETURN

_SBTTL
005737
001024
005737
001404
012762
000403

22 RRRRRRL

SEMWG, EM+2
($P),=(SP)

RTS

043540
043544
043546
043552
043554
043562

MOV
MOV

#108,8ESCAPE
(SP), TRAPPC
147
SESCAPE

#5W9 ,3SWR
15%

#STACK,SP
dSLPERR

15$:

MoV
JNP

.SBTTL

ROUTINE TO SIZE MEMORY

:LOAD ESCAPE
sSTORE PC
sREPORT MEM PARITY ERROR
;CLEAR ESCAPE

:CHECK IF LOOP ON ERROR
sYES, FORCE STACK AND TRY AGAIN
:NO, RETURN

sINITIALIZE STACK
;LOOP ON ERROR

::.'.'.'..'.'.'."""""'"""'.'.."".QI""".".tt'tli'fi't

:'CALL:

JSR

R E TURN

PC,8SILE

'SLSTAD WILL CONTAIN:

WITH KT11 OPTION

== LAST VIRTUAL ADDRESS OF THE LAST BANK

SEQ 0129

CZR6CDO RK6T1 DSKLS CTRL PRT3
CIR6CD.PYY
19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-80

13:52

ROUTINE TO SIZE MEMORY

N 10
PAGE 131

SEQ 0130

o
WITHOUT KT11 OPTION
== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
s*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
;*$KT11

IS THE MEMORY MANAGEMENT KEY

$SIZE:

MOV

RO,-(SP)

MOV
MoV
MOV
MOV
MOV

R2,=(SP)
:sSAVE
R3,-(SP)
::SAVE
S#ERRVEC,=(SP)
;;SAVE
SFERRVEC+2,-(SP)
SP,RO
s s AVE
SAV

;*BITO7 = 0 DON'T USE MEMORY MANAGEMENT
:*
MUST BE SETUP BEFORE THE CALL
;*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION
:e
DETERMINED BY ROUTINE
043712
043714
043716
043720
043722
043726
043732

010046
010146
010246
010346
013746
013746
010600

043734
043736
(43742
043746
043750
043752

104400
012637
012701
105727
000200
100062

043762
043766
043774
043776

005737
052737
005046
012702

043754

4002
4006

012737

012703
012762

044014
044016
044022
044024
044030
044032
044040
044046
044050
044052
044056

011622
062716
077307
012742
005042
012737
012737
000401
022626
005237
012737

044070
044074
044100
044102
044104
044110
Q4112
044120
Qu41ze
044130
044134
044140
044142
044146
044150

062712
023712
101371
011202
005037
000421
04737
012737
003002
062701
062702
005711
022701
001370
162701

40b4

005737

000004
000006

MOV

R1,-(SP)

::SAVE RO ON THE STACK

:sSAVE R1 ON THE STACK

¢:SET THE ERRVEC PS TO THE PRESENT PS
TRAP

000006
003776
$KT11:
044112

177572
100000

000004

043750

172340

000010
077406

177740

1$:

.WORD
BPL
MoV

200
ssSET TO USE MEMORY MANAGEMENT
$C ORE
::BR IF NO
#SKTNEX,Q#ERRVEC ;;SET FOR TIMEOUT
8#5R0
:cKT11 ARE YOU THERE?
#100000,8KT11
;;YES=-SET KT11 KEY

1S78

(PC)+

:sUSE MEMORY MANAGEMENT?

=(SP)
#KIPARQ,R2
#“DB,R3

::INITIALIZE FOR "PAR'' LOADING
: ADDRESS OF FIRST 'PAR"
5
)
::LOAD EIGHT 'PAR.'S"' AND EIGHT ‘‘PDR.'S

(SP),(R2)¢
#200,(SP)
R3,1

::LOAD 'PAR"'
: UPDATE FOR NEXT ‘PAR""
1:LOOP UNTIL ALL EIGHT ARE LOADED

MOV
MOV

-(R2)
#28,9#ERRVEC
#20.3#SR3

1:SETUP KIPARG FOR TESTING
::CATCH TIMEOUT IF NO SR3
:ENABLE 22 BIT MODE

INC

arsSRO

ST
ADD

aL3neé
#40, (R2)
IIKIPART, (R2)
48
(R2) ,R2

8IS
(LR
MOV
MOV

MmOV

177600

MOV

177572
044102

143776

28:
000004

000040
172356

004000
000040
177776
004000

4$:

BR
CMP
MOV

CMP

BHI

$KTOUT: MOV

CLR

177572

100000
044150

043750
000004

¢ sPUSH OLD PSW AND PC ON STACK

(SP)+ ,@#ERRVEC+2
;:SAVE THE PSW IN Q#ERRVE(+2
#3776 ,R1
+ s SETUP ADDRESS

000200

000004
172516

THE STACK POINTER

MOV
MOV

MOV
ADD

044050
000020

R2 ON THE STACK
R3 ON THE STACK
PRESENT ERROR VECTOR PS & PC

SKTNEX: BIC
$CORE:
MOV
CLR
1$:
ADD

ADD
TsT

CMP

BNE

$CROUT: SuB

#77406,-40(R)

#177600,-(R2)
{1
(SP)+,(SP)+

:iPDR = 4K, UP, READ/WRITE

::SETUP KIPAR? FOR 1/0

$:THIS PDP=11 HAS A SR3 REGISTER
*1CLEAN OFF THE STACK--NO SR3

$:TURN ON MEMORY MANAGEMENT

#SKTOUT,3#ERRVEC ; ;SET FOR TIME OUT

arsrd

$S1ZEX

;*TRAP ON NON-EX-MEM
T'MAKE A 1K STEP
::LAST ONE?
LINO-=TRY IT
::GET LAST BANK+1

*STURN OFF MEMORY MANAGEMENT

#100000,$KT11
;:KT11 NON-EXISTENT
#SCROUT ,SFERRVEC ;;SET FOR TIMEOUT
R2
::SET UP BANK
#4000, R1
< INCREMENT B8Y 1K

#40,R%
(R1)

121K STEP
::TRAP ON TIME OUTY

¢ :NO==TRY AGAIN

217777681

#4000,R1

TSLAST ONE

162702

000040

$SIZEX: SUB

7099

044166

012637

000004

MOV

7101
7102
7103

044176
044202
044204

010237
012603
012602

7098 044162 012637
7100
7104

7105
7106
7107
7108
;}?g

044172

044206

044210
044212
044214
044216

010137

MOV

000006

MOV

044214

044216

012600
000207
000000
000000

; ;DROP BACK

RO, $P

‘RESTORE THE STACK

(sfi)o.aceaavecoz ;RESTORE ERROR VECTOR
(SP)+. @#ERRVEC

MOV

R1,SLSTAD

::LAST ADDRESS

MOV

($P)+ R

$RESTORE R1

MOV
MOV
MOV

012601

#40,R2

R2.$LSTBK
(SP)+,R3
(SP)
¢ .R2

S SLAST BANK
:*RESTORE R3
: 'RESTORE R2

MOV
(SP)+.RO
RTS
PC
$ . STAD: .WORD
0
$LSTBK: .WORD
0
LSBTTL
SCOPE HANDLER ROUTINE

7111

IR NN

RN A RO

E N

:*RESTORE RO
:;CONTAINS THE LAST ADDRESS
::CONTAINS THE LAST BANK
LA

N AR

RN RN R RN

7112

'THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

7118
7116
7117
7118
7119
7120
7121
7122
7123

:'YHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
ceswiez)
LOOP ON TEST
teSW11=1
INHIBIT ITERATIONS
;*SW09=1
LOOP ON ERROR
:*SW08=1
LOOP ON TEST IN SWR<7:0>
S «CALL
S
SCOPE
::SCOPE=10T

7113
7114

7124

7125
7126

:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
*«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

044220
064220

104407

$SCOPE:

044222
044230

032777
001131

7128
7129
7130
7131

044232

000416

044234
044240

013746
012737

000004
044260

7133

044252

012637

000004

044260
044262

022626
012637

000004

7127

7132

7134

7135
7136

044246 005737

044256 000500

7137 044266 000440
7138

7139
7140
7141
71642
7143
7144
7145
7146
7147
7148
7149
7150

7151

RAN RN REOOREY

IT WILL INCREMENT

044270

044270
044276
044300
044302
044
044310
044314
044316
044322
044326
044326
044332

032777
001421
005046
117716
001414
022716
00241
011637
005316
006316
062716
013637

044336 000466

040000

134710

1%:

CKSWR

BIT
BNE

#BIT14,35uWR
$OVER

;:TEST

FOR CHANGE IN SOFT-SWR

::LO0P ON PRESENT TEST?
SIYES IF SWi4=1

:MRRRNSTART OF CODE FOR THE XOR TESTERANNAR

$XTSTR: BR

177060

000400

134632

000051
001102

044532
001106

000004

134642

MoV
MOV

SFERRVEC ,=(SP)
#5$ QMERRVEC

MOV

(SP)+,3#ERRVEC

5%:

ar1$7060

$SVLAD

B8R

BIT
BEQ
CLR
Move
BEQ
CMP
BLT
MOV
DEC
ASL
ADD
MOV

#B1T08,3SWR
28
-($P)
aSWR, (SP)
83
#51,(SP)
13
(SP),$TSTNM
(SP)
(SP)
#35WOBTBL,
(SP)
3(SP)+,SLPADR

CMP
MOV

(SP)+,(SP)+
(SP)+,QPERRVEC

::1F RUNNING ON THE ‘''XOR‘' TESTER CHANGE
::THIS INSTRUCTION TO A ''NOP'' (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT

::TIME OUT ON XOR?

::RESTORE THE ERROR VECTOR

1360 TO THE NEXT TEST

JsCLEAR THE STACK AFTER A TIME OUT
;:RESTORE THE ERROR VECTOR

LOOP ON THE PRESENT TEST

6$:: MMRRNEND OF CODE FOR TME XOR' rssreaofictp

B8R

$OVER

::LOOP ON SPEC. TEST?
S:BR IF NO
::CLEAR A TEMP. LOCATION
::PICKUP THE DESIRED TEST NUMBER
:BRANCH IF BAD TEST NUMBER IN SWR
..cuecx THE NUMBER IN THE SWR
:BRANCH IF TEST NUMBER IS OUT OF RANGE
::UPDATE THE TEST NUMBER
::BACKUP BY ONE
S SCALE THE TEST NUMBER AS AN INDEX
::FORM THE ADDRESS OF TEST POINTER
::SET LOOP ADDRESS TO DESIRED TEST

::GO LOOP ON THE TEST

|
01000

N N N N N NN SN NN NN N NNNSNSNNNSNNSNSNSNSNSNNNSNNSNSNSNNNNSNY

064154

044160

SEQ 0131

gt el it

7097

8 11
PAGE 132

7096

MACY11 30A(1052)
19-JUN-80 13:52
ROUTINE TO SIZE MEMORY

CIR6CD0 RK61T1 DSKLS CTRL PRT3
CIR6CD.P1T
19-JUN-80 13:49

001103

001000

134552

001110

001106

001103
001200
004000
001222
001104
001200

000001
044530
001102
001102
001106
001110
001202
000001
001102
001106

001104
001104
001200

001220

001115

134420

BEQ
(MPB
BHI

7%:
4s:

134520

1S18

3s:

8IT
8EQ
MOV
BR

CLRB
CLR

BR
8IT

BNE
187
BEQ
INC
cMP
BGE
1%:
MOV
MoV
$SVLAD: INCB
Move
[[]']
[ [1]"

CLR

$SOVER:

MOVvB

MOV
MoV

RT]

SMXCNT: 2000.
$SWOBTBL:

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

.WORD
.WORD

044606

044610

.WORD
.WORD
.WORD

SERFLG

:sCLEAN THE BAD TEST NUMBER OFF OF THE STACK
..g:SIAN SRROR OCCURRED?

gERHAX.SERFLG

..HAX ERRORS FOR THIS TEST OCCURRED?

#81709,a5wR
48
SLPERR,SLPADR
SOVER
SERFLG
$TIMES
1%
#BIT11,3SWR
1%
$PASS
18
$ICNT
$TlHES SICNT
SOVER
21 ,81CNT
:?XCNYSTIMES

::LOOP ON ERROR?

TST1+2
T18712+¢2
1ST3+2
TST4+2
1ST5+2
TST6+2
1S17¢2
TST1042

: sSTARTING ADDRESS OF
;s STARTING ADODRESS OF
: :STARTING ADDRESS OF
: ;STARTING ADDRESS OF
;s STARTING ADDRESS OF
:sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
:sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
: sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
;s STARTING ADDRESS OF
:sSTARTING ADDRESS OF
:STARTING ADDRESS OF
; ;STARTING ADDRESS OF
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
:sSTARTING ADDRESS OF
¢ ;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
;s STARTING ADDRESS OF
: sSTARTING ADDRESS OF

(SP)+

:BR IF NO

::BR_IF NO

::SET LOOP ADDRESS TO LAST SCOPE
:slERDO THE ERROR FLAG
:3CLEAR THE NUMBER OF ITERATIONS TO MAKE
::ESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?
::BR IF YES
..XF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

..INCRENENT ITERATION COUNT
:sCHECK THE NUMBER OF [TERATIONS MADE
:sBR IF MORE ITERATION REQUIRED
ssREINITIALIZE THE ITERATION COUNTER
:sSET NUMBER OF JTERATIONS T0 DO
:sCOUNT TEST NUMBERS
STSTNM, STESTN
::SET TEST NUMBER [N APT MAILBOX
(SP) ,SLPADR
:sSAVE SCOPE LOOP ADDRESS
(SP) ,SLPERR
:sSAVE ERROR LOOP ADDRESS
SESCAPE
::CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,$ERMAX
2:ONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM, QDISPLAY ::DISPLAY TEST NUMBER
SLPADR, (SP)
;:FUDGE RETURN ADDRESS
;sFIXES PS
:sMAX. NUMBER OF JTERATIONS

TST11+2
TST1242

TST13¢2

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TES?
TEST
TEST

lalal

D D
e talataiaiaiaiaiaiaicaliaiaiaiaialaias
ol ot ol ol ot ol ol ot ot ol aud o ol ol ot ol ol =l wwd =l ol =l

001115

1ST

e tm e tmla

r ¥

NN —

8%:

001103

SEQ 0132

APV
NPV NI NININ) b b b b ced b b wwd G ON N S
O ~NO WV
NN 2O NO NS WIN = O

NNNNNENNO N NVNNO
NS NN = N

19-JUN-80
MACY11 30A(1052)
SCOPE HANDLER ROUTINE

82225228R838888880828%
08(=4 o
gu-avv—-u-avv ~4
o OO
NMNINNO
NO
WM
MR NI NN
NN O AW
=8 NS
) = OO
AN SR O N — WO
o
-

044340
064342
064346

-—h

SEEN - Lo
[« SV P IV

[alal

0 RK611 DSKLS CTRL PRT3
P11
19-JUN-80 13:49

]

cn
13:52 PAGE 133

WY —

VIV [V IV IV 1V IV ]
P

WNIN =2 O NO WS

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

;sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
: : STARTING ADDRESS OF
:sSTARTING ADDRESS OF
;s STARTING ADDRESS OF
:sSTARTING ADDRESS OF
: :STARTING ADDRESS OF
;s STARTING ADDRESS OF
:sSTARTING ADDRESS OF
:;STARTING ADDRESS OF
: sSTARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF

:;STARTING ADDRESS OF TESt

Q'Q't"'t'..""""""'.'""i.tit'fit..Qt""."'."'t."t'.'

SBTTL

044654

;s STARTING ADDRESS OF TEST

O NO VA

VNS

044646
044650
044652

TST31+2
TST32+2
TST33¢2
TST34¢2
TST35+2
TST36+2
TST37+2
TST40+2
TSTA1+2
TST42+2
TSTA3¢2
TST&4e2
TST45+2
TSTL6+2
TST47¢2
TST50¢2
TST51¢2

SEQ 0133

.WORD
MWORD
LWORD
.WORD
.WORD
.WORD
WORD
.WORD
WORD
WORD
.WORD
LWORD
LWORD
WORD
.WORD
LWORD
LWORD

26030
6330

D N
PAGE 134

N (VY

19-JUN-80 13:52
SCOPE HANDLER ROUTINE

044612
044614
0464616

MACY11 30A(1052)

O OD~NO

032777
001405
105737

001402
013716
000002

001000

134256

001103

LOOP ON INTERNAL ERROR

SCOP1$: BIT
8EQ

TSTB

BEQ

001110

58:
_SBTTL

MOV

#5W9,3SuR
58

;CHECK IF LOOP ON ERROR
*NO RE TURN

‘NO, RETURN

SERFLG

$LPERR, (SP)

SCHECK IF

ERROR OCCURED

160 BACK TO BEGINNING OF

RTI
‘RETURN
APT COMMUNICATIONS ROUTINE

LOOP

‘:l.'l"'t"t"t""""""'"t'.t"""'i"""""QQ"'Q"'Q'Q

-—

OO ~NWNVN

E;gésgt:;:g%t:::gsg&“*ic’*il‘
O~ b = il
ONN~

=lelelelalel

WVAVAVAVAIWVAWAVAWV

z:unhanud-a
(= 1o Yo P 1 8 3

045002

[«

-—

gegee SRR
R T

112737

FRERRRRR

N =2 O

POPIN) =

(RS 1, SIS

SNSNSNSNSNSNSNSNN

NI, ST, N1 VT, 8] N7,
b b ccd cd e o o
b

CIR6CDO RK61T1 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD. P11

000001
000001

045144
045142

$ATY1:

MOVB

#1,8FFLG

000001

045144

{:}Yé’

BR
MOVB

SATYC
#1.$FFLG

SATYS:
Y(C:

MOVB

MOV

RO,-(SP)

ISTB

SMFLG

MOV

065142
000001

001234

000100

001235

000004
000002
001214

000004

001230

BEQ
CMPB
BNE
BITB
BEQ
MOV
18:

2%:

001230
001232
000004

001214

000004
000002

045054
000004

ADD
ST

BNE

R1,=(SP)

5¢

::T0 REPORT FATAL ERROR

1370 TYPE A MESSAGE

;:T0 ONLY REPORT FATAL ERROR

: ;PUSH RO ON STACK

Y:PUSH R1 ON STACK

:ISHOULD TYPE A MESSAGE?

:IF NOT:

FAPTENV,SENV

..OPERATING UNDER APT?

#2.,4(SP)
snsctvpe

::SEE

3s
SL1F NOT:
BR
#APTSPOOL ,SENVM ..SHOULD SPOOL MESSAGES?
3s
*1F NOT:
BR
34 (5P) ,RO
1:GET MESSAGE ADDR.

::BUMP RETURN ADDR.
IF DONE W/ LAST XMISSION?

WALT

SUTF NOT:

526)0

S:FIND END OF MESSAGE

MOV

RO, SMSGAD

SUB

$NSGAD, RO

::SUB START OF MESSAGE

ggv

gg.snsctvpe

S'TELL APT TO TAKE MSG.

gzga
ASR
MOV

#1.SMFLG

MOV
ADD

RO
RO, $MSGLGY

L (SP) .48
22.4(SP)

S:PUT ADDR IN MAILBOX

1:GET MESSAGE LNGTH IN WORDS
SIPUT LENGTH IN MAILBOX

;sPUT MSG ADDR IN JSR LINKAGE

::BUMP RETURN ADDRESS

Cl¢

CZR6CDO RK61T1 DSKLS CTRL PRTY

CZR6CD.P1

7266

1265
7266
7267

7268
7269
7270
7271
7272
7273
7276
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
;%g}

19-JUN-80 13:49

045046

045050
045054
045056

045056
045062
045064
045070
045072
045076
045100
045106
045114
045120
045124
045130
045134
045136
045140
045142
045143
045144

013746

MACY11 30A(1052)

045706

105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
045146
000200
000001
000100
000040

045146

MoV
63
5$:

JSR
LWORD

PAGE 135

177776 ,-(SP)

001214

001216
000004

045144
045143
045142

;s CALL TYPE MACRO

1518
$FFLG
BEQ
12%
1ST
SENV
BEQ
12%
118:
1ST
SMSGTYPE
BNE
118
MOV
846 (SP) ,SFATAL
ADD
#2,4(SP)
INC
SMSGTYPE
12%:
CLRB
$FFLG
CLRB
SLFLG
CLRB
$MFLG
MOV
(SP)+,R1
MOV
(SP)+,R0
RTS
PC
SMFLG:
.BYTE
0
$LFLG:
.BYTE
0
$FFLG:
.BYTE
0
.EVEN
APTS12€E=200
APTENV=001
APTSPOOL=100
APT(CSUP=040
.SBTTL ERROR HANDLER ROUTINE
R

7296
7297
7298
7299

:*AND GO TO TYPERR ON ERROR
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s +SW15=1
HALT ON ERROR
s *SW13=1
INHIBIY ERROR TYPEOQUTS

;+SW10=1
s +SW09=1

7302

seCALL

;ggz
7306
7307
7308
7309
7310
7311
7312

045146

$ERROR:

045146
045150
045154
045156
045164
045172
045174

104407
105237
001775
013777
032777
001402
104401

7314
7315
7316

0452064
045210
045216

011637
16;737
117737

001116
000002
133674

7318
7319

045232
045234

001004
004737

045346

001103
001102
002000

7%:
133756
133746

001204

7313 045200 005237 001112
7317

ARl

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

7300
7301

7305

::SHOULD REPORT FATAL ERROR?
::1F NOT:
BR
:sRUNNING UNDER APT?
;;1F NOT:
B
ssFINISHED LAST MESSAGE?
:s1F NOT:
++GET ERROR #
::BUMP RETURN ADDR.
;s TELL APT TO TAKE ERROR
::CLEAR FATAL FLAG
;:CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
;sPOP STACK INTO R1
:sPOP STACK INTO RO
; sRETURN
;+MESSG. FLAG
::L0G FLAG
sFATAL FLAG

7293

7294
7295

SEQ 0134

:;PUSH 177776 ON STACK

PC,8TYPE
O

108:

001234

000004
000002
001214

13:52

APT COMMUNICATIONS ROUTINE

177776

004737
000000

19-JUN-80

045224

032777

020000

18:
001116

001114
133706

BELL ON ERROR
LOOP ON ERROR

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

ERROR

CKSWR
INCB
BEQ
MoV
BIT
BEQ
TYPE

SERFLOG
7%
STSTNM,SDISPLAY
#B1710,35R
1%
$BELL

MOV
SuB
MCv8

(SP) ,SERRP(
#2,3ERRPC
SSERRPC,SITEMB

INC

BIT

BNE
JSR

$ERTTL

#B81T13,3SWR
208
PC,TYPERR

;s TEST FOR CHANGE IN SOFT-SWR
:sSET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;:BELL ON ERROR?
:sNO - SKIP
+sRING BELL

::COUNT THE NUMBER OF ERRORS

:sGET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM (OOt
csSKIP TYPEOUT IF SET
:;SKIP TYPEOUTS
;:60 TO USER ERROR ROUTINE

7320

Ldflohohfl-‘-‘Sg()s;*d“dN“?E;

(=]

RRERRRRRIRRRRRIXRRRRR

»
(¥, WA VAR WA WV WA WA WMWAWNMWAMAAWVMIWAWIWAW
W Ll L Ul ALl L
i W W U AN PO PO PO N O PO N
Ia8 w
O~
NSV
nNO ~N NSO
POONNON

045244

[V]
»
o~

(9,]

(=]

045344

104401

001211

122737

000001

001234

001114
044716

045266

133626

001110
001202

013716

022737
001001
000000

042550

000042

CMPB
BNE

FAPTENV, SENV

JSR

.BYTE
.BYTE

BR
187

3s:

8IT

5%:

6$:

000002

+SCRLF

22%:
2%:

Ls:

001202

TYPE

Move

218:

133642

001000

208:

F 1

8PL
HALT
CKSWR

BEQ

MOV
TST

BEQ

MoV

CMP
BNE

HALT

2%
S$ITEMB,21$
SC.$ATY£
0
22%

#B1709,35WR
3

SLPERR, (SP)
SESCAPE
5$
$SESCAPE, (SP)
#SEND
, 3442
AD

PAGE 136

SEQ 0135

:sRUNNING IN APT MODE
::NO,SKIP APT ERROR REPORT

::SET JTEM NUMBER AS ERROR NUMBER
:sREPORT FATAL ERROR TO APT

::APT ERROR LOOP

;¢HALT
;:SKiP
;sHALT
::TEST

ON ERROR
IF CONTINUE
ON ERROR!
FOR CHANGE IN SOFT=-SWR

::LO0P ON ERROR SWITCH SET?

::BR IF NO

::FUDGE
;s CHECK
;;BR IF
;:FUDGE

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

ssACT=11 AUTO-ACCEPT?
; :BRANCH IF NO
;. YES

;;RETURN

RTI

::"t"."'.."""'"'i"'QQ""'Q"..'.'.""Q""Qt.t.'.'t'."

.SBTTL

TYPE ERROR ROUTINE

;*ENTRY JSR PC,TYPERR

s*RETURN RTS PC
*

;*THIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN USES THE 'ERROR TABLE'' (SERRTB)
;*ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
;*THE ERROR.

TYPERR:

oD ol

001300
045410

1%:

o
¥

045426

TYPE

2%:
3%:

00121
012001
001445

ASL
ASL
ASL
ADD
MoV

8EQ

001211

W
N
R

SAVREG
MOov8

8IC
DEC

ebed

KEXRIZRoEI8RS 3333 S>> OO0

RIS

NN
VAN

::lt."'."""'i"""'"".""'Q'i."'t'.l""""'t""tt'."

5%:

TYPE

.WORD
MoV
BEQ

$1TEMB,RO

21177600,
R0
R

#SERRTB,RO
(RO)+,2%

3%
+SCRLF

(RO)+,48

5%
+SCRLF

TYPE
TYPE
.WORD

8EQ

20%

MOV

(RO)+,R1

;ENTER ERROR NUMBER
:CLEAR UNUSED BITS
;FORM INDEX FOR ERROR TABLE

:FORM ADDRESS OF ERROR ENTRY
¢GET EM POINTER
;BRANCH IF THERE ISN°'T ONE
;TYPE CARRIAGE RETURN LINE FEED
:TYPE ERROR MESSAGE (EM)
:EM POINTER GOES HERE
;GET DH POINTER
:BRANCH IF THERE ISN'T ONE
;TYPE CR-LF
;TYPE DATA HEADER

:DH POINTER GOES HERE
;GET DT POINTER
;BRANCH [F THERE ARE NONE

MACY11 30A(1052)
19-JUN-B0 13:52
ERROR HANDLER ROUTINE

lala

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.P11

7407
7408
7409
76410
7411
76412

7413
7414
7415
7416
7417
76418
76419

76420
76421
74622
76423
7426
7425
7626
76427
7428
7429
7430
7431

30A(1052)

TYPE ERROR ROUTINE

005004

CLR

001211

108:

045452
045454
045456

045460
045462
045464
045466
045470
045472
045476
045500
045504
045506
045510
045512
045514
045516
045522
0455264
045526
045530
0455;2
0455
045540
045544
045546
045550
045554
045562
045564
045572
045574
045600
045604
045606
045614
045620

045660
045664

MOV
MOV
TYPE
MOVEB
TSTB
3

BEQ

118:

052267

12%:

001211

13%:

14%:

045536

15%:

17%:
18%:

AFAR

20%:

003610
010000

133356

000024

003610

104401

052272

005737

000042
000001
001100
042360

001270

100000
001100

052223
000042

001103
001202

000000

SEQ 0136

;RESET INDENT SWITCH

148

:GET & STORE NUMBER OF DATA WORDS
‘BUMP PAST FORMAT WORD
STEST IF ANY DATA FOR THIS HEADER
*NO = SKIP DATA PRINT

12%

:YES, GO INDENT

(RO)+,RO
(RO)+.R2
L$CRLF
(RO)+,R3
(RO)+
R3

MOV
TYPOC
DEC

a(R1)+,=(SP)

TYPE

LSPACE2

BNE

‘GET DF POINTER
:STORE NUMBER OF DH'S

TCHECK

INDENT WORDS

‘PUT FIRST DATA WORD ON STACK
STYPE IT
:MORE DATA WORDS

138

*NO-BRANCH

B8R

i1s

:LOOP

BEQ
COM
DEC
BLE

148
R4

R2
20%

*NO, DO NOT CHANGE
:CHANGE INDENT
*MORE DH'S?
°
:NO-BRANCH

BEQ

108

:1F NO HEADER GET DATA

8EQ

TYPE
ST

MOV

LOCRLF
(RO)

(RO)+,18%

TYPE
TYPE

,SPACE2

:TYPE SEPARATORS
;TYPE <CR><LF>
TCHECK IF NEXT HEADER AVAILIBLE

INDENT

:GET NEXT DH POINTER
: INDENT?

178

*NO-BRANCH

.MORD

‘DH POINTER GOES WERE

B8R

108

:LOOP

INC

ERRCNT

; INCREMENT ERROR COUNT

#20. ,ERRCNT
25%
. ABORT

:NO, RETURN
SCHECK IF EROR THRESHOLD EXCEEDED
*NO, RETURN
:TYPE "PROGRAM HAS BEEN ABORTED BECAUSE
.
ERROR THRESHOLD EXCEEDED'

TYPE

RESREG

CMP
BHIS
TYPE

$CRLF

#5612, a5WR
258

MOV
MOV
JMP

#1,8E0PCT
#STACK,SP
$EOP

BEQ

308:
25%:

6N
PAGE 137

BIT
BEQ

042406

13:52

BEQ

052267

045624
045626

045630
045634
045642
045646
045652
045656

19-JUN-80

HALT
RTS

308

S INDENT
STYPE DH

“CHECK If ABORT AFTER 20 ERRORS

SCHECK IF

INO, HALT

IN CHAIN MODE

‘FORCE END OF PASS COUNT TO ONE FOR ABORT
CINITIALIZE STACK
'BRING IN NEXT PROGRAM [N CHAIN

CONTROLLED PROGRAM HALT
LSBTTL
T:
MOV
$BASE ,R2
SSET '611 BASE
CTRHL
MOV
#CCLR.RKCS1(R2) :CLEAR CONTROLLER
MOV
#STACK,SP
SCLEAR STACK

TYPE

LOPROO?

STYPE HALT MESSAGE

‘N0 - SKIP

TSt

CLRB
CLR

SERFLG
$ESCAPE

BEO

STEST

IF MONITOR PRESENT

SCLEAR ERROR FLAG
“CLEAR ESCAPE

(el

I
76406

045634
045436
045440
045442
045446
045450

2-‘-.-.

1376
1377
7378
1379
7380
7381
7382
1383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
1396
7397
7398
7399
7400
76401
7402
7403
76404
7405

MACY11

CZR6CDO RK6Y1Y DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD.PIY

;2%2

76432

045674

045670

005037

76435

045700

000000

000137

042406

CLR

042360

JMP

H 1

PAGE 138

$EOPCT

$E0P

SEQ 0137

;SET PASS COUNT T0 O

;G0 TO END OF PASS

5%:

HALT

;2%3

LSBTTL

TYPE ROUTINE

74640

JINNERRENNANERNE RO LETLRC LR EES LA

74642

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

;2%9

045702

000137

003666

7641

s *NOTE1:
; *NOTE2:

;222

;*NOTE3:

74647

soCALL:

045706
045712
045714

105737
100002
000000

7459

045720

010046

76466

76467
76468
76469

7670
7671
76472
7473
T476
7475
76476

7477

7478

7479
7480
7481
7482

7483
7484
7485
76486
7487

:HALT PROGRAM

;D0 RESTART IF CONTINUE

AR AR

AN ARG RENRERONNRNOROGORQNTCTE

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

. %

7448
7449
7450
7451
7452
7453
7454
7455
7456
7457

7460
76461
76462
76463
7664
76465

STARTY

s*ROUTINE TO TYPE ASCI2? MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

7443
7444

7458

JMP

045716

045722
045726
045734
045736
045744
0457646

045752

045756
045760
045766

045770
045772
045774
045776
046000

046004
046006

046012

046014

046020
046022
046024
046026

046030
046034
046036
046042
046046

;*1) USING A TRAP INSTRUCTION
s
TYPE
.MESADR
:*0R
;e
TYPE
o
MESADR
.
001157

$STYPE:

000430

017600
122737
001011
132737
001405
010037

004737

000000
132737
00.003

112046
001005
005726
012600
062716

000002
122716

001430
122716

001006
005726
104401
001211

105037
000755
0064737
123726
001350

1%:

000002
000001

001234

000100

001235

045756

044706
000040

001235

61%:
62%:

2%:

000002

60$:
b ¥

000011

4%:

000200

046120
001156

AN ASCIZ STRING

$TPFLG
14

:sLEAVE

MoV
(MPB
BNE
BIT8
BEQ
MOV

82(SP) RO
#APTENV,SENV
62%
#APTSPOOL ,SENVM
62%
RO,61%

;:GET ADDRESS OF ASCIZ STRING
;;RUNNING IN APT MODE
::NO,GO CHECK FOR APT CONSOLE
;. SPOOL MESSAGE TO APT
:NO,GO CHECK FOR CONSOLE
:;SETUP MESSAGE ADDRESS FOR APT

.WORD
8l18
BNE

0
#APTCSUP,SENVM
60%

RTI
(MP8

#HT, (SP)

:;RETURN
;;BRANCH [F

#CRLF, (SP)

;;BRANCH IF NOT <CRLF>

MoV

JSR

Move
BNE
ST
MOV
ADD

8caQ

(MPB

5%:
69%:

IS FIRST ADDRESS OF

T1ST8
BPL
HALT
BR

BNE
ST
TYPE
$CRLF

046164

:;MESADR

CLRB
B8R
JSR
(MPB
BNE

RO,~-(SP)

PC,.SATY3

(RO) ¢+ ,=-(SP)
4&s
(SP)+
(SP)+ RO
#2.,(5P)

5%
(SP)¢

SCHARCNTY
2%
PC,STYPEC
$FILLC,(SP)e
4 )

::1S THERE A TERMINAL?
;:BR JF YES
;;HALT HERE IF NO TERMINAL

::SAVE RO

:;SPOOL MESSAGE TO APT

:sMESSAGE ADDRESS
;:APT CONSOLE SUPPRESSED
JsYES,SKIP TYPE OUT

::PUSH CHARACTER TO BE TYPED ONTO STAC(CK
;:BR IF IT ISN'T THE TERMINATOR
;s
1F TERMINATOR POP IT OFF THE STACK
:;RESTORE RO
::ADJUST RETURN P(C
<HT>

::POP <CR><LF> EQUIV
ssTYPE A CR AND LF

::CLEAR CMARACTER COUNT
;:GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
231S 1T TIME FOR FILLER CHARS.?
o
1F NO GO GET NEXT CHAR.

MACY1Y 30A(1052)
19-JUN-BO 13:52
CONTROLLED PROGRAM HALTY

CIR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.P11
19-JUN-80 13:49

CIR6CDO RK6T11 DSKLS CIRL PRTY

CIR6CD. P11

7488
7489
7490
7691
7692
7493
74696
7495
7696
7697
7498
76499
7500
7501
7502
7503
1504
7505
7506
7507
7508
7509
7510
7511
7512

19-JUN-80 13:49

046050

013746

001154

046054
046060
046062
046066
046072

105366
002770

000001

004737
105337

000770

MACY1Y 30A(1052)

19-JUN-80

TYPE ROUTINE

78:

SEQ 0138

MOV

$NULL,=(SP)

+:GET # OF FILLER CHARS. NEEDED

DeEC8

1(SP)

;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
::60 TYPE A NULL
::D0 NOT COUNT AS A COUNT
..L00P

BLT

046120
046164

I 1
PAGE 139

13:52

JSR
DECB
BR

PC,STYPEC
SCHARCNT
4)

::AND THE NULL CHAR,

;HORIZONTAL TAB PROCESSOR
066074
046100
046104
046112
046114

112716
004737
132737

000040
046120
000007

8s$:

046164

133024

000002
000015

7513
7514
7515
7516
7517

JSR
8118
BNE
1531
BR

$TYPEC:
133016
000002

046164
000012

MOove

cs:

000002

000207

1ST8

BPL
MOVB
cMPB
BNE
CLRB
BR
1$:
CMPB
BEQ
INCB
SCHARCNT
: ,WORD
STYPEX: RTS

::REPLACE TAB WITH SPACE

(SP)

PC.ETYPEC

#7.$CHARCNT
98
(SP)
¢

a31PS
STYPEC

2(SP) ,a81P8B

;:LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
s

::1S CHARACTER A LINE FEED?
; ;BRANCH [F

YES

;sCOUNT THE CHMARACTER

;sCHARACTER COUNT STORAGE

IS READY

::ZE§;-CLEAR CHARACTER COUNT

(PC)+

;sBRANCH [F NOT AT
::TAB STOP
;+POP SPACE OFF STA(CK
::GET NEXT CHARACTER

:;BRANCH IF NO

STYPEX
#LF,2(SP)
STYPEX

;sTYPE A SPACE

::WAIT UNTIL PRINTER

#CR,2(SP)
19
SCHARCNT

BINARY TC OCTAL

.SBTTL

7518
7519
7520
7521
7522
7523
7524
7525
7526

£,

(ASCID) AND TYPE
R

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS=-==ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

JeCALL:

MOV

st
ot

LBYTE
.BYTE

TvYPOS

NUM,
- (SP)

:;NUMBER T0 BE TYPED
JCALL FOR TYPEOUT

;iN=1 TO 6 FOR NUMBER OF DIGITS 10 TYPE
::M=1 OR 0
::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROQS

;*$TYPON=-=-=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR S$TYPOC

JeCALL:
;e
s

MoV

TYPON

- (SP)
NUM,

::NUMBER 10 BE

TYPED

;sCALL FOR TYPEOUT

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
seCALL:
NUM,
- (SP)
;e
mov
;JNUMBER YO BE TYPED
o

046170
046174

017646

116637

000000
000001

046413

;:;CALL FOR TYPEOQUT

TYPOC

$TYPOS: MOV

MOVB

8(SP),=(SP)
X SP),$0F[LL

:.PICKUP THE MODE
.;LOAD 2ERO FILL SWIT(H

-t b OO
OO 00
- e
D e
D
e d
D

066415
000002
000001
000006
000005

ADD

046413
046415
046412

000006
046414
066613
000012

BR
$TYPOC: Move
Move
$TYPON: MOVB
MOV
[101"
MOV
MOV8
NEG
ADD
MOVB
MOVB
MOV

CLR

1%:

177770

403

5%:
7%:

.SBTTL
T

::SAVE Ré
::SAVE RS

::GET THE NUMBER OF DIGITS TO TYPE
:3SUBTRACT IT FOR MAX. ALLOWED
JsSAVE IT FOR USE
:sGET THE ZERO FILL SWITCH
:+PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
;.60 DO MS8

ROL

;:GET LSB OF THWIS DIGIT
;sTYPE

THIS DIGIT?

::BR JF

YES

DE(B
BPL
8IC
BNE
1871

;:BR IF NO
:sGET RID OF JUNK
:sTEST FOR O
;+SUPPRESS THIS 0?

INC

;:DON'T SUPPRESS ANYMORE 0°'S

JsMAKE THIS DIGIT ASCII
:JMAKE ASCI]

(SP)+,RS
(SP)+ R4
(SP)+ ,R?

2(SP),4(SP)
(SP)+,(SP)

.BYTE

SOFJLL:
SOMODE:

::SET THE ZERO FILL SWITCM
ssSET FOR SIX(6) DIGITS
:3SET THE ITERATION COUNT
::SAVE R3

:;FORM THIS DIGIT

MoV
MOV
MOV
mov
RT]

SOCNT:

: sNUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS

ROL

DECB
B8GT
BLT
INC
BR
MoV

000004

SEQ 0139

:sROTATE MSB INTO ''¢''

L [0]']:]
TYPE

8s:

0
000000

SOFILL R4
12(SP)
RS

8IS
8IS

6$:

000002

R&
#6,R4
R4 ,$OMODE

8EQ

4%:

000060
000040
046410
046410
046412

R4 ,=(SP)

RS,=(SP)
$OMODE +1,R4

ROL
ROL
MOV

3s:

046414

(SP)+,$0MODE
«1
#2,(SP)
$TYPON
#1,80FILL
#6,$OMODE
+1
#5,80CNT
R3,=(SP)

ROL
BR

2$:

204

J 1N

19-JUN-80
13:52 PAGE 140
BINARY TO OCTAL (ASCII) AND TYPE

30A(1052)

Move

046415

0437

8888R3sso

066202
0466206
046212
046214
046222
046230
046236
046240

—_- OO
OO =N
SOOIV
N POV

7564
7545
7546
7547

MACYTY

.BYTE
.BYTE
.WORD

[=]=]e]ela]

CZR6CDO RK611 DSKLS CTIRL PRT3
19-JUN-80 13:49
CIR6CD. P

NOT ALREADY

::SAVE FOR TYPING
;.60 TYPE THIS DIGIT
: s COUNT BY 1
;:BR IF MORE 10 DO
;:BR IF DONE
;s INSURE LAST DIGI T ISN'T A BLANK
::60 DO THE LAST D IGIT

:;RESTORE
:;RESTORE
:;RESTORE
:2SET THE

RS
R4
R3
STACK FOR RETURNING

s :RETURN
::STORAGE FOR ASCII DIGIT

¢ TERMINATOR FOR TYPE ROUTINE

:sOCTAL DIGIT COUNTER
..ZERO FILL SWITCH

NUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
T

L LT

Ry Ty

XXX

'YHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER T0 A 5-DIGITY
c«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER [S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WiLL BE TYPED

CIR6CD.P11

19-JUN-80 13:49

MACY11 30A(1052)

19-JUN-80

13:52

K 11

PAGE 141

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

SEQ 0140

7600

;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

7603
;ggg

i
‘e

7601
7602

7606

7607
7608
7609
7610
7611

< «REPLACED WITH SPACES.
:oCALL:

046416

$TYPDS:

046416
046420
046422
046424
046426

010046
010146
010246
010346
010546

7613
7614
7615
7616
7617
7618

046434
046440
046442
04644b
046452
046456

016605
100004
005405
112766
005000
012703

7620
7621
7622
7623
7624

046464
046466
046472
0464764
046476

005002
016001
160105
002402
005202

7626

046502

060105

7630
7631
7632

046512
046514
046516

046520

100407
106316
103003
116663

7635
7636

046532
046536

052702
110223

000040

7638
7639
7640
7641
7642
7643
7644
7645
7646

046542
046546
046550
046552
046554
046556
046560
046562
046570

020027
002746
003002
010502
000764
105726
100003
116663
105013

000010

7652

046604

104401

046632

7612 046430 012746 020200

000001

046632

7619 046460 112723 000040

7633

046504
046506
046510

046622

38:

4$:

005702
001002
105716

58:

000001

7634 066526 052702 000060

7637 046540 005720

7647
7648
7649
7650
7651

046572
046574
046576
04
046602

012605
012603
012602
012601
012600

18:
2%:

7625 046500 000774

7627
7628
7629

177777

6$:

7%:

::PUT THE BINARY NUMBER ON THE STACK
1160 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.=(SP)
R2.~(SP)
R3.-(SP)
RS =(SP)

:;PUSH RO
1:PUSH R1
$:PUSH R2
*:PUSH R3
$:PUSH RS

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) .RS
1%
RS
#'-,1(SP)
RO
#S0BLK ,R3

+:GET THE INPUT NUMBER
1:BR IF INPUT IS POS.
1IMAKE THE BINARY NUMBER POS.
S*MAKE THE ASCII NUMBER NEG.
::2ERO THE CONSTANTS INDEX
SSSETUP THE OUTPUT POINTER

move
CLR
MOV
sUB
BLT
INC

B8R

177776

98 :

BIS
MOVB

" R
R2,(R3)+

BIS

CMP
BLT
BGT
MOV
BR
1STB
BPL
MOVB
(LRB

MOV
MOV
Y
MOV
MOV

TYPE

RTI

046620

7%
(SP)
63
1(SP),-1(R3)

000002

7655

012616

R2
$DTBL(RO),R1
R1,RS
48
R2

BM]
ASLB
BCC
MOVB

ST
BNE
1ST8

MOV

046616

#' ,(RY)

R1.RS

7653 046610 016666 000002 000004
7656

#20200,-(SP)

ADD

8s:
177777

NUM, - (SP)

MOV

000020

000055

MOV
TYPDS

MOV

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

::SET BLANK SWITCH AND SIGN

S'SET THE FIRST CHARACTER TO A BLANK
S*CLEAR THE BCD NUMBER
;;GET THE CONSTANT
S*FORM THIS BCD DIGIT
$:BR IF DONE
:*INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT

R2
5%
(SP)

*1CHECK IF BCD DIGIT=0
*'FALL THROUGH If 0
S3STILL DOING LEADING 0°'S?

#0,R2

SSMAKE THE BCD DIGIT ASCII

(rRO) ¢

RO,#10
28
8%
RS,R2
68
(SP)+
98
-1(SP),=2(R3)
(RY)

(SP)¢,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
$DBLK

2(SP),4(SP)
(SP)+. (SP)

SiBR IF YES
2 iMSD?
S:BR IF NO
::YES==SET THE SIGN

“IMAKE IT A SPACE IF NOT ALREADY A DIGIT
S:PUT THIS CHARACTER IN THE OUTPUT BUFFER

$3JUST INCREMENTING

PSCHECK THE TABLE INDEX
1260 DO THE NEXT DIGIT
1260 TO EXIT
P1GET THE LSD
160 CHANGE TO ASCII
P'WAS THE LSD THE FIRST NON-ZERO?
S:BR IF NO
::YES==SET THE SIGN FOR TYPING
1:SET THE TERMINATOR

1:POP STACK
1:POP STACK
L:POP STACK
1:POP STACK
1:POP STACK

INTO RS
INTO R3
INTO R2
INTO RI
INTO RO

1:NOW TYPE THE NUMBER

1 SADJUST THE STACK

;:RETURN TO USER

(IR6CDO RKO611 DSKLS CYRL PRTY

CIR6CDO RK611 DSKLS CTYRL PRTY

CZR6CD P

7656
1657
7658
7659
7660
1661

1662
7663
7664

7665
7666

1667
7668
7669

19-JUN-80 13:49

046622
066624

MACY11 30A(1052)

7670
(4]
7672

13:52

PAGE 142

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

$O0TBL:

023420
001750
000144
000012
000004

$OBLK:

.SBTTL
S

046642
046644
046646
046650

19-JUN-80

10000.
1000.
100.

10.
&
BLKW
TTY INPUT ROUTINE

AR RANRANNANRRE AR C RO

"ENABL

$TKCNT:

LSB

.WORD
$TKQIN: .WORD
§TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
620000
000001
046651
046652

R A LA AR ARRNNANNANNAORANNORNNARCARNOCRARONCS

O
O
1

:;NUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
::0UTPUT POINTER
:;TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

7673
7674
7675
7676
7677
7678

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

teCALL:
i

7679

005037

066642
046650
046644

046644

046720

RE TURN

$TKINT: CLR

046646
000060

$TKCNT

;sCLEAR COUNT OF ITEMS IN QUEUE

#STKSRV, 3#TKVEC

::INITIALIZE THE KEYBOARD VECTOR
::'BR" LEVEL &
:;CLEAR DONE FLAG
:2ENABLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

MOV
MOV

MOV

#200,3#fKVEC+?2

TST
MOV
RTS

132224

PC,STKINT

#$TKQSRT,$TKQIN :JMOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
:;QUEUE INTO THE INPUT & OUTPUT POINTERS.

MOV

000062
000100

JSR

831kB
#100,387KS
PC

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPTY
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:¢]T IN THE QUEUE.

so1F THE CHARACTER IS A °“‘CONTROL=C'' (*C) STKINT IS CALLED AND

WVINOO
= NN OO

$TKSRV: mOVB

132220
177600

BIC

CMP

000003

~N
)
= 2

OWN

~Oo~

NU‘NU‘OON:

-—

b )~

8982888 2832

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL=C'' RESTART ADDRESS (CTRHLT)

046774
046774
047002

1$:

000176

001140

000001

0466642

(sp),o$

s sPICKUP _THE CHARACTER
::STRIP THE JUNK
::1S IT A CONTROL C?
: ;BRANCH IF NO

BNE

JSR

PC,STKINT

JMP
CHP
BNE
CMP
BEQ

CTRHLY
(SP), 87
23
#SWUREG, SWR
63

;s INIT THE KEYBOARD
¢ sCLEAN UP STACK
: sCONTROL C RESTART
::1S IT A CONTROL G?
: :BRANCH IF NO
ss1S SOFT=-SWR SELECTED?
::60 TO SWR CHANGE

CHP
BNE

#1,$TKONT
3%

::1S THE QUEUE FULL?
: ;BRANCH IF NO

045630
000007

#c17t, (SP)
1%

TYPE

050036
046652

@$TKB,=(SP)
LSCNTLC

(SP)+

:sTYPE A CONTROL-C (*C)

SEQ 0141

7712
7713

047004
047010

104401
005726

001204

7715
7716
7717
7718
7719
7720
7721

047014
047020
047022
047026
047030
047034
047036

0216%7
001021
005077
005726
105777
100375
117746

000023

7714

7722
7723

7726
7725
7726

727
7728
7729

7730
7731
7732
7733
7734
7735
7736
7737

;;gg

047012

047042
047046
047052
047054
047062

7064

000451

042716
022627

001366
012777
000002

177600
000021
000100

047076
047102
047104
047110
047114
047120
047126
047130

021627
003002
042716
112677
005237
023727
001003
012737

000175

000002

318

132104

046642
000140

047136

3$:

132110

005237
021627
002405

TYPE
187

‘

132116

047070
047074

MACY11 30A(1052)
19-JUN-80
TTY INPUT ROUTINE

000040
177530
046644

328%:

046644

0466651

0466650

046644

5$:

SEQ 0142

,.RING THE TTY BELL
:CLEAN CHARACTER OFF OF STACK

CMP
BNE
(LR
TSY
1ST8
BPL
MOVB

(SP),#23
329
a8 TKS
(SP)+
a81ksS
31%
837kB,~(SP)

IS IT A CONTROL=-S?
::BRANCH IF NO
:DISABLE TTY KEYBOARD INTERRUPTS

BNE
MoV
RTI

318
#100,887KS

B8R

"EXIT

..CLEAN CHAR OFF STACK
ssWALIT FOR A CHAR
ssLOOP UNTIL ITS THERE
JsGET THE CHMARACTER

#4178, (5P)
(SP)* 73]

INC

:SMAKE IT 7-BIT ASCII
s:IS 1T A CONTROL=-Q?

: :BRANCH IF NO
:sREENABLE TTY KEYBOARD INTERRUPTS
s ;RETURN

CMP

$TKCNT
(SP),#140

CMP
BGT
8IC
MOVB
INC
CHp
BNE
MoV

(SP),m75
43
#40,(SP)
(SP)+,@8TKQIN
$TKQIN
$TKQIN,#STKQEND
$
#STKQASRT,$TKQIN

BLY

"N
PAGE 143

,$BELL
(SP)+

BIC
(o, [
132062

13:52

RTI

YES

53IS IT A SPECIAL CHAR?
: sBRANCH IF YES
ssMAKE IT UPPER CASE
;;AND PUT IT [N QUEUL
:sUPDATE THE POINTER
;;G0 OFF THE END?
:sBRANCH IF NO
;;RESET THME POINTER

s sRETURN

7743

:oSERVICE THE TEST FOR CHANGE IN SOF TWARE SUITCH REGISTER TRAP

71744

7745

7746
7747
77648
7749

;;gz

047140

047146
047150
047154
047156

022737

001124
105777
100121
117746

000176

001140

7759

R AN N AN

047172

;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

#SUREG, SWR

2s1S THE SOFT-SWR SELECTED

81(C
CMP

0‘(177(sp)
(sP),af

..HAKE 1T 7-BIT7 ASCI!
;1S IT A CONTROL-G?

BNE
1878
BPL
Move

131764

001300

BNE
AR

047174

123727

7760
7761
7762
7763
;;gg

047202
047204
047206
047212
047216

001674
005726
004737
005077
112737

7766
7767

047226
047230

104401
104401

001134

000001

046652
131726
000001

001135

050050
050055

AR ANE O NN RN

‘CKSUR CHp

131770

7755

7756
7757
7758

RN R AR RN NN

s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
:®*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

7750 047162 042716 177600
7751 047166 021627 000007
7752

RPN R R

: sBRANCH IF

1740

77461
77642

AR AR

:sCOUNT THIS CHARACTER
::1S 1T UPPER CASE?

15%
a8 T1ks
15%
a87kB,~-(SP)
2$

ssEXIT IF NOT
3:1S A CHAR WAITING?
..lF NOT, EXIT
YES

ssIF NOT, PUT IT IN THE TTY QUEUE

:sAND EXIT

E R AR Lt e Tt et e ettt R

R R AN O R RN

RANNEARNRENEE

'CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTFRRUPT SERVICE
'ROUT!NE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
'CONTROL-G BEING IVPED AND THE SOFTWARE SWITCH REGISYER BEING SELECTED.

CMP8

BEQ
18T
JSR
CLR
Move

TYPE
$GTSWR: TYPE

$AUTO8 , #1

ssARE WE RUNNING IN AUTO-MODE?

LSCNTLG
LOMSUR

;:ECHO THE CONTROL-G (“G)
s TYPE CURRENT CONTENTS

2%
(SP)+
PC.STKINT
13 &3
#1,8INTAG

s sBRANCH IF YES
::CLEAR CONTROL=G OFF STACK
ssFLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS
:sSET INTERRUPT MODE INDICATOR

~re

CIR6CDO RK611 DSKLS CTRL PRTS
CZR6CD.PIY
19-JUN-80 13:49

CIR6CDO RK61T DSKLS CTRL PRT3

19-JUN-80 13:49

013746

100375

19-JUN-BO

13:52

TTY INPUT ROUTINE

000176
050066

198:

131666

78:

MoV
TYPOC
TYPE
CLR

CLR

1S18
BPL

N 11

SWREG,~(SP)

. SMNEW

=(SP)
=(SP)

PAGE 144

:sSAVE SWREG FOR TYPEOUT
260 TYPE-=0CTAL ASCII(ALL DIGITS)
:sPROMPT FOR NEW SWR

::CLEAR COUNTER
::THE NEW SWR

a8TKS
[4)

::CHAR THERE?

::1F NOT TRY AGAIN

117746
042716

131662
177600

Movs

$TKB, = (SP)

::PICK UP CHAR

021627

000003

CMpP
BNE
TYPE
ADD
CMPB
BNE
Mov

(SP),#3
93

::1S 1T A CONTROL-C?
¢ ;BRANCH IF NOT
;s YES, ECHO CONTROL-C (*C)
:sCLEAN UP STACK
; JREENABLE TTY KEYBOARD INTERRUPTS?
¢ sBRANCH IF NO
ssALLOW TTY KEYBOARD INTERRUPTS
: s CONTROL=C RESTART

8ic

050036

000100
045630

131620

8%:

050043
000006

20$:

ADD

000015

108:

000100

131524

—a

000001

131546

N
=) —8
AN
-

046120
000060

TYPE

o,
[
BNE
1St
BEQ

MOV
ADD
TYPE

15%:

16%:

Mov

RTI

JSR
cMP

BLT

000067

15
#100,387KS$
PC,STYPEC

(S:).lbo

[
o,

86T
8IC

000060
000002

000002
177776

17%:

001210

18‘:

ST
:13°]

)

INC
BIS
gR
1 "PE
8p

2(SP)

ASL
ASL
ASL

.DSABL" 158
)

ssMAKE IT 7-BIT ASCII

s:I1S IT A CONTROL=-U?

;;BRANCH JF NOT
:sYES, ECHO CONTROL=-U (*U)

:: 1GNORE PREVIOUS INPUT
:sLET'S TRY IT AGAIN

B8R

CMPB
BNE

[VLV
(LS LV

(SP),#25
10%

CMP
BNE

000002
000006
001211
001135

26,5P
M
SINTAG,
8s

#100,38$7TKS
CTRHLY

9%:

000004

#-C178. (sP)

JMP

000025

[ X ]

b b SINERRRS
O
S2%a
S - 11 \dé;(’\fl‘ic>“*ihfl'fltfl“-‘

000001

2828389832813

001135

—

ANOO
=2 N = =&

000006

2833 ~N

CZR6CD.P11

MACY11 30A(1052)

=2(SP), (SP)
4
$QUES

218 IT A <CR>?
::BRANCH IF NO
::YES, IS IT THE FIRST CHAR?
::BRANCH IF YES
:sSAVE NEW SWR
2:CLEAR UP STACK
::ECHD <CR> AND <LF>
::RE=ENABLE TTY KBD INTERRUPTS?
:;BRANCH IF NOT
:sRE-ENABLE TTY KBD INTERRUPTS
s sRETURN
:sECHO CHAR
::CHAR < 0?
;;BRANCH IF YES
::CHAR > 7?
:;BRANCH IF YES
csSTRIP=-0OFF ASCII

:s1S THIS THE FIRST CHAR
:;BRANCH IF YES
::NO, SHIFT PRESENT
CHAR OVER TO MAKE
s
ROOM FOR NEW ONE.
;s
P
:.KEE COUNT OF (HAR
::SET IN NEW CHAR
::GET THE NEXT ONE
JTYPE 2<CRYCLF>
:sSIMULATE CONTROL-V

SEQ 0143

e Yo Yo Yo o To Yo Jo To -To Jo BN B
<

SEQ 0144

:'"""."".Q"""'i"""""t'."'."'.\"'Q'.Q"Q""C'.'Q'

:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

: :RETURN

;«THIS ROUTINE WILL INPUT A STRING FROM THE TTY

soCALL:

i
i

v WNENONO
O~ H~
ANOQ =2 OANO =N = =4 =2 \N o
¥ NNON = N NO NN NO O N
NS NNESN
WO
=2 OW
NOOO =~

-ld

067672

—ld

-t

047610
047612

-l
b i D)

047572
047574
047576
047602
047606

=888 N=OON
8
88
-t
O
(5, 1,8 )
N =2 A=LPIND
S =N
N) =N §?-‘°N
-

[

RDLIN
RETURN HERE

:;SAVE R3
;:CLEAR THE RUBOUT KEY
;:GET ADDRESS
::BUFFER FULL?

mMove
CMPB
BNE
TST
BNE
MOVB
TYPE
MoV
DEC
CMP
B8LO
MOovB

(SP)
¢+, (R3)
M77,(RY)

::GET CHARACTER
;1S 1T A RUBOUT
;:BR IF NO
::1S THIS THE FIRST RUBOUT?
::BR IF NO

P13

RDCHR

10%:

000177

000134
050024
17

050024

6%:

050026

050024
050024

TYPE

5¢:
000134

050024

: : TERMINATOR WILL BE A BYTE OF ALL 0'S

RY,-(SP)
=(SP)
#STTIYIN,RY
#STTYIN+B.,R3
43

SRDLIN: MOV
CLR
1$:
Mov
CMP
2%:
BLOS

050026
050036

;s INPUT A STRING FROM THE TTY

; ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

TST
BEQ
MOV8

5¢

(SP)
6%
#'\,9%
,9%
#-1,(SP)

R3
RI,ISTTYIN
43
(RY),9%
9

(SP)
7%
#'\,9%

::BR IF YES

::G0 READ ONE CHARACTER FROM THE TTY

:TYPE A BACK SLASH

::SET THE RUBOUT KEY
:;BACKUP BY ONE
::STACK EMPTY?
::BR IF YES
::SETUP TO TYPEOUT THE DELETED CHAR.
;.60 TYPE
;.60 READ ANOTHER CHAR.
:;RUBOUT KEY SET?
;.BR [F NO

;s TYPE A BACK SLASH

To Yo Yo Yo

Yo Vs Vo X

Ya T2 Ye Y3 Yo X

RTI

':.'"'t"tt".'t't't"'t""t""Qt""l"fitt""t't'.it!'tt"t'

2%:

066646

$TKQOUT

MOV

$TKQOUT,#STKQEND ;;DID IT GO OFF OF THE END?
2%
; sBRANCH If NO
#STKQSRT,$TKQOUT ;;RESET THE POINTER

INC
CMP
BNE

0466651

:sDECREMENT THE COUNTER
::GET ONE CHARACTER
:sUPDATE THE POINTER

000004

787
BEQ
DEC

18:

SP)
=(SP)
#6438 ,-(SP)

:
648

MOV
RT1

SP),2(sP

046650

Movs

(LR

046642
C46642
177102
046646
046646

:sWAIT ON A CHARACTER

CLR

047526

005737
001775
005337
117766
005237
023727
001003
012737
000002

$TKONT
1%
$TKCNT
,4 (SP)
98 TKQOUT

MoV

VP S

000002

P),=(SP)

SN SN

000004
000004

::PUSH DOWN THE PC AND
:sTHE PS
::GET READY FOR A CHARACTER
;:PUT NEW PS ON STACK
::PUT NEW PC ON STACK
::POP NEW PC AND PS

SROCHR: MOV

011646
016666

P Y
~
o~ N

:sGET A CHARACTER FROM THE QUEUE
:sCHARACTER 1S ON THE STACK
;sWITH PARITY BIT STRIPPED OFF

RETURN HERE

JoCALL:
RDCHR
.

CIROCDO RKOTY DSKLS
CYRL PRTY MACY11 30A(1052)
19-JUN-80 13:52 sPAGE 145
TTY INPUT ROUTINE
19-JUN-80 13:49

CIR6CD.P1Y

(alal
~ P~

104401

005016
122713
001003
104401
000726
122713
001011
105013

050024

TYPE

000025

78:

050043
000022

8s:

104401
104401

001211
050026

104401

001210

48:

111337

050024

000717

000712

104401
122723

001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000010

TYPE
TYPE

050024
000015

MOVE

TYPE
CMPB

000012

051412

051127

S$MSWR:

042516
000

020127

000004
050026

000002
000004

000

+sTYPE A CONTROL 'V

+:60 START OVER

::1S CHARACTER A '"“R'"?

:sBRANCH IF NO
:sCLEAR THE CHARACTER

+sTYPE THE INPUT STRING
::60 PICKUP ANOTHER CHACTER
s:TYPE A '
ssCLEAR THE BUFFER AND LOOP
:sECHO THE CHARACTER

$QUES

(R3),9%

9%
#15, (R3)+

;s CHECK FOR RETURN
::LOOP IF NOT RETURN

28
-1(R®)
,SLF
(SP)+
(SP)+,R3
(SP),=(SP)
4(SP),2(SP)
#STTYIN,L(SP)

;sCLEAR RETURN (THE 15)

::TYPE A LINE FEED
;s CLEAN RUBOUT KEY FROM THE STACK
: ;RESTORE R3
;sADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
HH
: :RETURN

::STORAGE FOR ASCII CHAR. TO TYPE
:; TERMINATOR

0
0
8.
/4C/<15><12>
/°U/<15><12>
/%G/<15><12>

:sRESERVE 8 BYTES FOR TTY INPUT
::CONTROL '°C*'

:;CONTROL 'V'’
:;CONTROL ''G'’

SCNTLG:

.ASCIZ

SMNEW:

.ASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

.ASCIZ

<15><12>/SWR = /

NEW =/

::'"t".t.'t"""""""""' (2233822220202

RRARRRRARRRRRRRR 2

:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE IT TO BINARY,
:*THE INPUT CHARACTERS WILL BE C HECKED TO INSURED THEY
i ARE LEGAL

:*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?*' WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
s*THEN BE RETYPED.
seCALL:

(R|

011646
016666
010046
010146

010246

000004

000002

THE

INPUT

RDOCT

RETURN HERE

$SRDOCT: MOV
MoV
MOV
Mov

Mmov

(sp),=-(sP)
4(SP),2(SP)
RO,=(SP)
R1,-(SP)

R2,=-(SP)

IS TERMINATED BY TYPING A CARRIAGE RETURN.

:;READ AN OCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK
;sHIGH ORDER BITS ARE IN SHIOCT

:sPROVIDE SPACE FOR THE
. INPUT NUMBER
:sPUSH RO ON STACK
:sPUSH R1 ON STACK
:;PUSH R2 ON STACK

o>,

SEQ 0145

;. CLEAR THE RUBOUT KEY
;1S CHARACTER A CTRL U?
.
::BR_IF NO

,S$CRLF
STIVIN

006525

177777
001212

és

TYPE

C 12
PAGE 146

(sP)
#25, (R3)
8s
$CNTLU
$
#22,(R})
3¢
(R3)

BNE
CLRB
TYPE
TSt
MOV
MOV
MOV
MOV
RT]
98:
.BYTE
BYTE
$STTYIN: .BLKB
SCNTLC: .ASCIZ
SCNTLU: .ASCIZ

020040
020075
050100

CLR
CMPB
BNE
TYPE
BR
CMPB
BNE
CLRB

13:52

— S S S, B, B, e S, Pt P, Fe, P, S FUB Fun. P FER. AR PR S FEB PIA A M PR OB A M A AIA A A AB AR A6 AR A AA NS A O A MBS A MBS As OB D A OB A0 N 0D 0D D A

047700
047704

MACY11 30A(1052)
19-JUN-B0
TTY INPUT ROUTINE

o
N

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CIR6CD.P 1"

7959
7960
7961
7962
7963
7964
7965
7966

7967
7968
7969
;g;?

050210
050212
050214
050216
050220
050222
0502264
050226

050230
050234
050236

122716

012602
012601
012600
000002
005726
105010
104401
000000

104401
000730
000000

000060

000067

18:

43:

001210

5$:

BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
1ST
MOV
MOV

43
R1
R2
R1
R2
R1
R2
#°C7,(SP)
(SP)+,R1
2$
(SP)+
R1,12(SP)
R2,SHIOCT

#'7,(SP)

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

.WORD

NN R RN

7973
7974
7975

:*SAVE RO-R5
s*CALL:
.
SAVREG

siv2
L

;.8
J:STRIP THE ASCII JUNK

;sADD IN THIS DIGIT
::LOOP
:2CLEAN TERMINATOR FROM STACK
:sSAVE THE RESULT

;:POP STACK INTO R2
::POP STACK INTO R1
:;POP STACK INTO RO
; ;RETURN
:sCLEAN PARTIAL FROM STACK
22SET A TERMINATOR
;:TYPE UP THRU THE BAD (HAR.
.

)

R PR

TN E

R AR R NN RO R RN

ONRNOR O IR

;3;‘7’

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

7978
7979
7980
7981
7982
7983
7984
7985

:¢TOP-==(+16)
st $2--=(+18)
ov +b==-RS5
v +6=-=-=Ré&
st +8--=R}
se410---R2
se412=-==R1
;t¢14--=R0

7987

7988
7989
7990
7991

050240

050240
050242
050244
050246

010046
010146
010246
010346

$SAVREG:

MOV
MoV
MOV
MOV

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

P
P
P

::1F ZERO GET QUT
::MAKE SURE THIS CHARACTER
;IS AN OCTAL DIGIT

TYPE
. SQUES
'R R CLF
BR
1%
:sTRY AGAIN
$SHIOCT: .WORD
O
;sHIGH ORDER BiTS GO HERE
.SBTTL SAVE AND RESTORE RO-RS ROUTINES

7972

7986

:sPICKUP THIS CHARACTER

(RO)+,=-(SP)

3$
#'0,(sP)
43

MOV
MOV
MOV
RT]
TST
CLRB
TYPE

sAND SAVE IT

+sCLEAR DATA WORD

8t0
CMPB
BGT

CmMrPB

177770

000012
050236

MOov8

R1
R2

002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237

050144

r ¥

RO,S5%

050150
050152
050154
050156
050160
050162
050164
050166
050172
(€S0174
050176
050200
0502064

7945

7946
7947
7948
7949
7950
7951
7952
7953
7954
795
7956
7957
7958

112046

CLR
CLR

001420
122716
003026

MOV

050134
050136
050142

050132

050226

7942
7943
7944

7941

010037

005001
005002

050122

ssREAD AN ASCIZ LINE
:sGET ADDRESS OF 1ST CHARACTER

(SP)+,RO

050126
050130

7938

- ROLIN
MoV

7939
7940

1%:

104411
012600

050116
050120

SEQ 0146

7936
7937

MACY11 30A(1052)
19-JUN-80
READ AN OCTAL NUMBER FROM THE TTY

::PUSH RO ON STACK
;;PUSH R1 ON STACK
:;PUSH R2 ON STA(CK
+sPUSH R3 ON STACK

OO RNOONNRSE

CZR6CDO RKO6T1 DSKLS CTRL PRTZ
CZR6CD.PY
19-JUN=-80 13:49

0D 12
13:52 PAGE 147

7992
7993
7994

7995
7996
7997
7998

7999

8000
8001
8002
8003

8004
8005
8006
8007
8008
8009
8010

8014

050250
050252
050254

050260
050264
050270
050274

010446
010546
016646

016646
016646
016646
000002

MACY11 30A(1052)

19-JUN-BO

13:52

PAGE 148

SEQ 0147

SAVE AND RESTORE RO-R5 ROUTINES
MOV
MOV
MoV
MOV
MOV

000022

000022
000022
000022

R4&,-(SP)
RS ,-(SP)
22(SP),=(SP)
22(SP) ,-(SP)
22(SP) ,=-(SP)

:sPUSH
::PUSH
::SAVE
::SAVE
;sSAVE

MoV
MOV

(SP)+,22(SP)
(SP)+,22(SP)

;sRESTORE PC OF CALL
::RESTORE PS OF CALL

MOV
MoV
MoV
MOV
MoV
:?Y

(SP)+,RS
(SP)+,R&
(SP)+,R3
(SP)+,R2
(SP)+ R
(SP)+,R0

:;POP
::POP
:;POP
:;POP
::POP
:;POP

:?Y

22(SP) ,=-(SP)

R4
RS
PS
PC
PS

ON
ON
OF
OF
OF

STACK
STACK
MAIN FLOW
MAIN FLOW
CALL

:sSAVE PC OF CALL

;*RESTORE RO-RS
soCALL:

050276

050276
050302
050306
050312
050316
050320
050322

012666
012666
012666
012666
012605
012604
012603

050332

000002

$RESREG:

000022
000022
000022
000022

RESRES

MOV
MOV

.SBTTL

(SP)+,22(SP)
(SP)+,22(SP)

:sRESTORE PC OF MAIN FLOW
:sRESTORE PS OF MAIN FLOW

STACK
STACK
STACK
STACK
STACK
STACK

INTO RS
INTO R4
INTO R3
INTO R?2
INTO R1
INTO RO

POWER DOWN AND UP ROUTINE

::"""'i...t""‘""'"""Q"i.""'.."Q'Q"..".'Q".'Q"'Q

8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039

050334
050342
050350
050356
050360

005037
012737
005237
001375
005337
001372
012737
012737
012706
104401
013777
013702
000177

050452
000144
050452

2040
8041
gg:g

050362
050366
050374
050400
050402
050406
050410
050416
050424
050430
050434
050442
050446

8044
8045

050452
050456

000000
047520

000000
042527

8046

8047

017737
012737
012737
000000
000776

130600
050362
000340

003634
000024
000026

;POWER DOWN ROUTINE

$PWRDN: MOV
MoV
MOV

HALT

@SWR,SAVSWR

#SPWRUP,PWRVEC
#PR7 ,PURVEC+2

:SAVE SWITCH REGISTER
;SET UP VECTOR

;HANG UP

:;t""t.'"'.Q"""'.t"""'Q""t't""i.."..'t..t"'t'!""

)

:POWER UP ROUTINE

050454

DEC

050454

050334
000340
001100
050456
003634
001270
130434

$PWRUP: CLR
MOV
1$:
INC
BNE

BNE
MoV
MoV
MOV

000024
000026

TYPE

MOV
MoV
JMP

130476

000122

$PWRCT: .WORD
$SPOWER:
.SBTTL

.ASCI2

.EVEN

$PWRCY
#100.,3PWRCT+2
SPURCT
1%

;LOAD WAIT COUNT
;WAIT FOR TELETYPE

SPWRCT+2
1%
#SPURON,PWRVEC
#PR7 ,PURVE(C+2
#STACK,SP

;SET UP FOR POWER DOWN VECTOR

0,0

;TELETYPE TIME OUT

:FORCE STACK

:TYPE POMWER
;RESTORE SWITCH REGISTER
SAVSWR,aSWR
$BASE ,R2
;REINITIALISE R2 FOR ‘611 BASE
@SLPADR ;GO BACK TO LAST TEST
. SPOWER

/POWER/

TRAP DECODER

o e
~ P~

CIR6CDO RK611 DSKLS CTRL PRTY
CIR6CD.PI1
19-JUN-80 13:49

E 12

8048

80‘.9

SEQ 0148

:*GO TO THAT ROUTINE.

80SS
8056

050464
050466

010046
016600

8058
8059

050474
050476

111000
006300

050472

050500
050504

005740

016000
000200

STRAP:

000002

MOV
MOV

RO,=(SP)
2(SP),R0

::SAVE RO
::GET TRAP ADDRESS

MOV8
ASL

(RO) ,RO
RO

;;GET RIGHT BYTE OF TRAP
:;POSITION FOR INDEXING

TST

050520

(o]}
RTS

gggg

8066
8067
gggg

PAGE 149

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
;*AND USE IT .TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:«OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

gggz

8060
8061
8062
8063

"t"tt"tttt"""t"""""ttt""'t't'.t't"""t""""t'

8050
8051
8052

8057

13:52

;sTHIS 1S USE

0250506
050510
050516

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

=(R0O)

; ;BACKUP BY 2

$TRPAD(RO)
,RO
RO
TO HANDLE

;. INDEX TO TABLE
::60 TO ROUTINE

THE ‘'GETPRI'' MACRO

(SP),=(SP)
4(SP),2(SP)

;:MOVE THE PC DOWN
::MOVE THE PSW DOWN
::RESTORE THE PSW

gg;g

.SBTTL

8072
8073
8074
8075
8076
8077
8078
8079

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
:+BY THE "'TRAP'® INSTRUCTION.

8080
8081
gggg

050520
050522
050524
050526
050530
050532

050506
045706
046¢14
046170
046230
046416

gggg

050534

8086
8087
8088
8089
8090
8091
8092

050536
050540
050542
050544
050546
050550
050552

TRAP TABLE

;
ROUT INE
i
===eee$TRPAD: .WORD
$TRAP?
STYPE
;;CALL=TYPE
$TYPOC
::CALL=TYPOC

THE ROUTINES CALLED

$TYPOS
$TYPON
$TYPDS

;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

047230

$GTSWR

;:CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

047140
047502
047572
050100
050240
050276
044654

$CKSWR ;; CALL=CKSWR
SROCHR ;, CALL=RDCHR
$SROLIN ;;CALL=ROLIN
$RDOCT
;;CALL=RDOCT
$SAVREG ::CALL=SAVREG
$SRESREG :;CALL=RESREG
SCOP1$ ;:CALL=SCOPI

TRAP+7(104407)
TRAP+10(104410)
TRAP011(106411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(104415)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE
INTERNAL LOOP ON ERROR

[ea
X
n]

MACY11 30A(1052)
19-JUN-80
TRAP DECODER

~ o~

CIR6CDO RK61Y DSKLS CTRL PRTY
CIR6CD.P
19-JUN-80 13:49

19-JUN-80 13:49

DATA TABLE FOR PRINT QUT

DT000:

.WORD

STESTN,TRAPP(

003500

OT015:

.WORD

STESTN,$ERRPC,E.CS1,T.(S1

001116
003614

003524
003616

ODT017:

.WORD

STESTN,SERRPC,E.MR1,T.MR1,PR.BIT
M1 .BIT ,BITCNT

003500
003444

C'022:

.WORC

STESTN,$ERRPC,E.CS1,T.CS1,E.BA,T.BAE.W(C,T.WC

003524

.WORD

STESTN,$ERRPC,E.MR1,T.MR1,BITCNT

003500

DTO31:

.WwORD

STESTN,SERRPC,E.CS1,T.CS1,E.BA,7.BAE.WC,T.WC,E.MR],T
. MRI

001116
003504
003442
001116
003622
001116
003504
003442

220

001116

003500

DT035:

.WORD

$TESTN,SERRPC,E.CS1,T.CS1,E.CS2,T7.CS2,E.BA,T.BA

003442
001116

003522

OT041:

.WORD
.WORD

E.WC,T.WC
STESIN,SERRPC,E.DB,T.DB

001116

003500

050554

001220

0036064

8098
8099
8100
8101
8102
8103
8104
8105
8106
8107
08

050574
050600
050606
050610
050616
0506264
050626
050634
050642
050646
050654

003530
001220
003440
001220
003464
003622
001220
3440
02
20
64

003470
001116

3
&
5

001220
003440

050712
050720

003440
003504

6
;

050724
050730

9
0
1

050740

3
8124

050766

001220

051006

001220

8126

8127
8128
8129
8130

8131

8132

050746
050754
050762

050774

051012
051020
051024
051032

051034

051042

6 12
PAGE 150

.SBTTL

8095

050560
050566

13:52

DATA TABLE FOR PRINT OUT

gggz

8096
8097

19-JUN-80

003502
001220

001220

001116
003526

003510
003444

003444

DTO0Y1:

.WORD

STESTN,$ERRPC,E.CS1,T.CS1,E.MR2,T.MR2,E.MR3,T.MR3

003524
(003450

003450
003522

DT042:

.WORD

STESTN,$ERRPC,E.CS1,T.CS1,E.CS2,T.(CS2

OT0S54:

.WwORD

STESTN,SERRPC,E.OB,T.DB,WRDCNT

001116

003500

DT0S55:

.WORD

STESTN,$ERRPC,E.CS1,T.CS1,E.CS2,T.CS2,WRDCNT

001116

003500

DTO72:

.WORD

STESTN,SERRPC,E.CS1,T.CS1,E.CS2,T.CS2,E.ER,T.ER

WORD

E.BA,T.BA,E.WC,T.W(C

003440
001220
003462

003510
001116
003624

003440

003510

003440
003514
003504
003442

003500
003466

003510
003454
003444

003450
003450
003502

001220

001116

003500

DTO?7:

.WORD

STESTN,SERRPC,E.CSV,T.CS1,E.CS2,T.(S2

003500
003622
003500

ODT150:

.WORD

STESTN,SERRPC,E.CS1,T.CSY,WRDCNT,BITCNT

DT164:

.WORD

STESTN,SERRPC,E.CSV,T.CS1,E.CS2,T.CS1,BITCNT

003440

003510

003450

8133
8134
8135

051050
051056
051064

001220
003440
001220

001116
0036264
001116

8138

051102

001220

001116

003524

DOT170:

.WORD

STESTN,SERRPC,E.MR1,T.MR1,P1.BIT,PR.BIT
M1.BIT M2.B1T,BITCNT,SECCNT

001116

003524

©OT171:

_.WORD

.MR1
STESTN,SERRPC,E.MR1,T

001220

001116

003500

OT17S:

.WORD

STESTN,SERRPC,E.CS1,7.CS1,E.CS2,7.CS2,E.DS,T.DS,
E.ER, T ER

001220

001116

003500

DT211:

.WORD

STESTN,SERRPC,E.CS1,7.CS1,E.(S2,7.(S2,E.DS,T.DS,E.ER,
V. ER

8136
8137

8139
8140
8141
8142
8143

8144

8145
8146
8147

8148

051072
051100

051110
051116
051124
051126
051134

051136

051144
051152
051160

051162

003440
003622

003464
003616
003626
001220
003464

003440
003512
003454

003510

003612
003620

003510
003452

003440

003614
003622

003450
003514

SEQ 0149

CZR6CD.PN

MACY11 30A(1052)

I~ P~

CIR6CDO RK61T DSKLS CTRL PRT3

C(ZR6CDO RKH611 DSKLS CTRL PRT3

CIR6CD.PY
8149
8150
8151
8152
8153

051170
051176
051204
051206
051214

19-JUN-80 13:49
003440
003512
003454
003540
003554

MACY11 30A(1052)

19-JuN-80

13:52

DATA TABLE FOR PRINT QUT

003510
003452

003450
003514

003550

003552

.WORD

H 12

PAGE 151

P.CS1,P.(CSZ,P.DS,P.ER

SEQ 0150

CZR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.P1Y
19-JUN-80 13:49

MACY11 30A(1052)
19-JUN-80 13:52
DATA FORMAT FOR PRINT OUT

g}gé
8156
8157
8158
8159
8160
8161
8162
8163
8164
8165
8166
8167
8168
8169
8170
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180
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

051216
051220
051222
0512264
051226
051230
051232
051234
051236
051240
051242
051244
051246
051250
051252
051254
051256
051260
051262
051264
051266
051270
051272
051274
051276
051300

051302
051304
051306
0351310
051312
051314
051316
051320
051322
051324
051326
051330
051332
051334
051336
051340
0351342
051344
051346
051350
051352
051354
051356
0351360
051362
051364
051366
051370

000001
002
000005
000
052403
000
052421
002
052465
000
052544
006
000005
000
052403
000
052421
002
052623
000
052642
002
000005
000
052403
000

052421
002
052660
000
052724
005
000005
000
052403
000
052421
002
052772
000
053051
006
000005
000
052403
000
052421
002
053126
000
053152
003
000005
000

000

.SBYTL

DATA FORMAT FOR PRINT OUT

DF000:

.WORD
.BYTE
.WORD
.8YTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.8Y1e
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE

DFO01:

000
000

000
000
000

DFO15:

000
000

000
000
000

OFO17:

000
000
000
000

000

DF022:

000
000

000

- s

000
000

000

DF025:

000

000
000

I 12
PAGE 152

DFO31:

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.8Y1e
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE

1
2,0
5
0,0
DHOOOA
0,0
DHOO008B
2,0
DHOO1A
0,0
DH0018B
6,0
§
0,0
DHOOOA
0,0
DH0008B
2,0
DHO15A
0,0
DHO158
2,0
§
0,0
DHOOOA
0,0

DHO00B
2,0
DHO17A
0,0
DH0178
5,0
§
0,0
DHOOOA
0,0
DH000B
2.0
DHO22A
0,0
DH0228
6,0
S
0,0
DHOOOA
0,0
DHO00B
2,0
DHO25A
0,0
DH0258B
3,0
S
0,0

;ERRORS 1-14

;ERRORS 15-16

;ERROR 17-21

;ERROR 22-24

;ERROR 25

;ERROR 31-34

SEQ 0151

CZR6COO RK611 DSKLS CTRL PRT3

CZR6CD.P11
8210
8211
8212
8213
8214
8215
8216
8217

8218
8219

8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237

8238

8239
8240
8241
8262
8243
8244
8245
8248
8247

8248

8249
8250
8251
8252
8253
8254
8255
8256
8257

8258

8259
8260
8261
8262
8263
8264
8265

19-JUN-80 13:49

051372
051376
051376
051400
051402
051404
051406
051410

051412
051414

051416
051420
051422
051424
051426
051430
051432
051434
051436
051440
051442
051444
051446
051450
051452
051454
051456
031460

051462

052403
000
052421
002
053200
000
053277
010

000005
000

052403
000
052621
002
053375
000
053474
010
000005
000
052403
000
052621
002
0535
000
053606
002

000005

000

000
000

000

000
000

000

000
000
000
000

051510
051512
051514
051516
051520
051522
051524
051526
051530

009
052403
000
052621
002
053720
000
053745
003

000

051532

000005

000
051534
051536° 052403
000
051540
051542 052421
00%
051544
051546 05377
000
051550

DFO41:

000

000
052403
000
052421
002
053623
000
053662
004

000005

DFO35:

000

DFO42:

000

000
000

000

DFO54:

000

000
000
000
000

000

000
000

19-JUN-BO

13:52

DATA FORMAT FOR PRINT OUT

000

051464
051466
051470
051472
051474
051476
051500
051502
051504

051506

MACY11 30A(1052)

DFOSS:

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

.WORD
.BYTE

DHOOOA
0,0
DHOOOB
2,0
DHO31A
0,0
DHO318B
8.,

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

5
0,0
DHOOOA
0,0
DH000B
2,0
DHO35A
0,0
DHO358
8.,0
5
0,0
DHOOOA
0,0
DHOJ0B
2,0
DHO41A
0,0
DHO41B
2.0

.BY7E
.WCRD
.8/7¢
.WORD
EYTE
.HORD
LYTE
.WORD
BYYE

0,0
DHOOOA
0,0
DHOOOB
2,0
DHO42A
0,0
DHO4ZB
4,0

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

0,0
SUNOO0A
0,0
DHOOOB
2,0
DHOS54A
0,0
DHO548
3,0

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

0,0
DHOOOA
0.0
DHOO00B
2,0
DHOS55A
0,0

.WORD

.WORY

.WORD

J 12

PAGE 153

SEQ 0152

;ERRORS 35-40

;ERROR 4

;ERRORS 642-43

;ERROR 56

;ERROR 55

CIR6CDO RK611 DSKLS CTRL PRTY
CZR6CD.P11
19-JUN-80 13:49
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
8277
8278
8279
8280
801
8282
8283
8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
8298
8299
8300
8301
8302
8303
8304
8305
8306
8307
8308

8309
8310
8311
8312
8313
8314
8315
8316
8317
8318
8319
8320
8321

051552
0515564
051556
051560
051562
051564
051566
0351570
051572
051574
051576
051600
051602
051604
051606
051610
051612
051614
051616
051620
051622
051624
051626
051630
051632
051634
051636
051640
051642
051644
051646
051650
051652
051654
051656
051660
051662
051664
051666
051670
051672
051674
051676

051700
051702
051704
051706
051710
051712
051714
051716
051720
051722
051724
051726
051730

054040
005
000007
000
052403
000
052421
002
054106
000
054145
004
054203
000
054262
006
000007
000
052403
000
052421
002
054106
000
054145
004
000005
000
052403
000
052421
002
054337
000
054373
004
000005
000
052403
000
052621
902
054431
090
054475
005
000005
000
052403
000
052421
00§

05454
000
054642
010

000

MACY1Y 30A(1052)
19-JUN=-B0 13:52
DATA FORMAT FOR PRINT OUT

DFO72:

000

000
000

000
000
000
000

DFO77:

000
000
000
000
000

DF150:

000
000
000
000

000

DF164:

000
000

000
000
000
000

000
000

000

DF170:

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

.WORD
.BYTE
.WORD
.BYTE

DHO558
5,0
7
0,0
DHOOOA
0,0
DHOO00B
2,0
DHO72A
0,0
DHO728
4,0
DHO72C
0,0
DHO720
6,0
7
0,0
DHOOOA
0,0
DH0O00B
2,0
DHO72A
0,0
DH0728
4,0
5
0,0
DHOOOA
0,0
DHOOOB
2,0
DH150A
0,0
DH1508
4.0
5
0,0
DHOOOA
0,0
DHOO00B
2,0
DH164A
0,0
DH1648
5,0
$
0,0
DHOOOA
0.0
DHOOOB
2,0

DH170A
0,0
DH1708
8..,0

K 12

PAGE 154

SEQ 0153

;ERROR 150

;ERROR 164

;ERROR 170

000

052403
000
052421
002
054775
000
055074
010
000007
000
052403
000
052421
002
054775
000
055074

8355

DF171:

.WORD

000

.WORD

000
000
000

.BYTE

.WORD

DF175:

000
000

000

000
000
000
000

000
055217
004

000
000

.WORD

.WORD
.BYTE
.WORD
.BYTE
.WORD

000

.WORD

000

019

055171

2
052034

000

DF211:

.WORD
.BYTE
.WORD

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

SO000TMOUOOONIOOODOO
VO OONOOODOWMWNIOOONOOOOW
e
X
Xo
X
s
X
*«
Xes
X
Xe
Xov
X
X~
o
Xe
X
-, O =2 OO0O000
O—-0O0—~0000C0
o
O
~N
~
o
O
O~
=~
o
O
o
O
—
o
@
>
@®
>
@®
>
®
>

000005
000
052403
000
052621
002
054740
000
054757
002
000005

OMNONN
=20 —-200000
—
—O~N
~N
O
O
NN
O
O
L
>
D
>
D
>

051732
WAV
WA WAWAWVWAWVIWWN

832%

MACY1Y 30A(1052)
19-JUN-BO 13:52
DATA FORMAT FOR PRINT QUY

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD.PIY

L 12
PAGE 155

;ERRORS 171-174

;ERRORS 175-210

;ERRORS 211-214

SEQ 0154

CIR6CDO RK611 DSKLS CTRL PRT3

OO0 ~—0O—-NOO
(WL NT<T NIV IV LR VIV

13:52

n12
PAGE 156

SEQ 0155

.SBTTL

ASCI1 MESSAGES

466

OPRO01:

.ASCIZ

<15><12>/RK611 VECTOR ADDRESS ( /

040
061
117
522
040
020061

OPROO2:
OPROO3:

OPROO4:

/RK611 PRIORITY ( /

020104

OPROOG:

<15><12>/2ND PASS RUN TIME IS APPROX 13 MINUTES/<15><12>

025052

OPROO7:

JASCI2

<15>¢12>/eeves

SPACE?:

ABORT:

.ASCI1Z
.ASCIZ

<15><12>/PROGRAM ABORTED BECAUSE ERROR THRESHOLD EXCEEDED/<15><12>

T518Y1:

LASCIZ

<ADHAD/TEST /

TSTBYZ:

.ASCIZ

/ BYPASSED/<15>¢<12>

NSV

VIV [V IRV, P olke
NS

R3S 8RR

NDWVINON
S =

VIO 2NN =

PNNOO =N — &
-

19~JUN-B0

ASCI1 MESSAGES

103
104
040

SVINO

®
N-2OONOWSE
—2\N -

(VLYY

VIS OWM-00
b b b VO N =D NAN
AN ONIN) = NININIRN 8NN
8~ 8N
= O —

QOO

ONOOQ =2
b \ A= NO O OO
b

052266
052267
052272
052300
052306
052314
052322
052330
052336
0352344
052352
052357
052364
052367
052374
052402

OON—-OW

8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8400

037353
8383
8384 05%568

Oeted e

052120
052126
052134
052142
052150
052156
052164
052172
052200
052206
052214
052222
052223
052230
(052236

WO
RRSIARIRRRISR
NOWNEON
O

052036
052044
052052
052060
052066
05%070
052076
052104
052112

N
N
VIO
8~ W

8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381

19-JUN-80 13:49

RIAROSRIRS

CIR6CD.PIN

MACY11 30A(1052)

/RK611 VECTOR ADDRESS ( /

PROGRAM HALTED

eereee/C155<12>

CZR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:
CZR6CD.PYY
3:49

MACY11 30A(1052)

19-JUN-80
DATA HEADERS

13:52

N 12
PAGE 157

SEQ 0156

"
~
4
O(&aoONQL=A3Dlvl]tlOSaa QeF‘2MNTsz0o~OzEg6TNoeNRSaIyRAREYNIoRr -awQ@— [&w~LV
w

-][~—-—ws W[

3 >— v —

-~—

—

8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472
8473
8474
8475
8476
8477
8478
8479
8480
8481
8482
8483
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
506
8507
8508
8509
8510
8511
8512

053056
053064
053072
053100
053106
053114
053122
053126
053134
053142
053150
053152
053160
053166
053174
053200
053206
053214
053222
053230
053236
053244
053252
053260
053266
053274
053277
053304
053312
053320
053326
053334
053342
053350
053356
053364
053372
053375
053402
053410
053416
053424
053432
053440
053442
05345
053460
053466
053474
053502
053510
053516
OSSS%&
053532
053540
053546

0%0060
0 0522
041113
051040
020040
020103
053513
03564105
020040
046101
000124
045522
020040
020061
047125
054105
020040
046101
042520
041501
020040
052103
052524
054105
020040
046101
122
Og
g
030523
041113
051040
020040
020103
053513
051040
020040
030522
105
020124
040525
050130
040440
020114
041505
052103
040
041505
052103
045522
020040
0%0061
051503
045522
020040
020040
040502

13:52

8 13
PAGE 158

SEQ 0157

051040
020040
020101
041113
051040
020040
000103
042520
041501
020040

041513
051040
020040
020101
053513
051040
052103
052524
044502

DHO25A:

.ASCIZ

/EXPECT

ACTUAL

BIT/

051115
045522
020040
000124
042520
041501
020040
052103
052524
054105
020040
046101
042520
041501
000
041513
051040
020040
020101
041113
051040
020040
020103
046513
051040
000
050130
040440
020114
041505
052103
042440
020124
040525
042440
020124

020061
051115
047503

C40258:

.ASCIZ

/RKMR1

RKMR1

COUNT/

052103
052526
054105
020040
046101
042520
041501
020040
052103
052524

OHO31A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL/

030523
041513
051040
020040
020101
053513
051040
020040
030522
046513

DHO31B:

.ASCIZ

/RKCS1

RKCS1

RKBA

RKW(

RKMR1

RKMR1/

041505
052103
042440
020124
040525
050130
040440
114
050130
040440

DHO3SA:

.ASCII

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL/

LASCIZ

RK(S2

RKBA

RKBA/

040525
051503
045522
020040
02006%
051503
045522
020040

000114
020061
051503
045522
020040
020062
040502
045522

DHO35B: .ASCII

EXPECT

/RKCS1

ACTUAL/

RKCS1

RKCS2

(ala)

MACY11 30A(1052)
19-JUN-80
DATA HEADERS

CZR6CDO RK61Y DSKLS CTRL PRT3
CIR6CD.PIY
19-JUN-80 13:49

—=2008rMr
~NWVIOON
O
=0

DHO041B:

PN
OO
VS OWWNM

DHO42A:

OO
NVOO
PN
OMNIIN—

DHO42B:

.ASCIZ

/EXPECT

WORD/

.ASCIZ

/WORD

READ/

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

.ASCIZ

/RKCST

RKCST

RKCS2

RKCS2/

DHOS54A:

.ASCIZ

/EXPECT

WORD

WORD/

020104
040505
061440
000
041505
052103
042440
020124
040525
051117

DHO54B:

.ASCIZ

/WORD

READ

COUNT/

DHO55A:

.ASCIZ

JEXPFLY

ACTUAL

EXPECT

ACTUAL

WORD/

020061
051503
045522
020040
020062
047125

DHOS55B8:

.ASCIZ

/RKCSA

RKCST

RKCS2

COUNT/

052103

DHO72A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

DHO72B8:

.ASCIZ

/RKCST

RKCST

RKCS2

RKCS2/

DHO72C:

.ASCI2

/EXPECT

ACTUAL

EXPECT

ACTUAL

OO
NS

DHOGTA:

O
= OWN

22 2283
OISR S2RRR RIVR

co
v

e {=le
]V IV ]

O
&~

=00~

S3 v

VAVAVAVAWVAVAVAVA
X
I 2Ra8
ak e X
PO
= b b ed =B

- OO

Y
Tt

22288§82888
b—.N'-§°~° OoOnN

045522

EXPECT

ACTUAL/

RKWC/

RKWC

SEQ 0158

.ASCI2

OO0
NSV

FEERY

OO
e

UALA

(VAIV VTV ]

EEESEEE ~NNO NN
oON ] CONNOMN FETURRER [- P Y- X =]
WNN W
NN~
ANIN)
=

(el-lelolololelalelalalalalelalalalalalalal
e R

020040
020040
041527
050130
053440

13
PAGE 159

053734

QOO0O0O0O0O0O

N = OO0
~NO W &S

WAL N
NININ)
=D b b ok b -l

020040
041527
045522
105
020124

13:52

19-JUN-80

DATA HEADERS

OO0
BN

19-JUN-80 13:49

CIR6CD. P

MACY11 30A(1052)

OO0O0OOD
BRSNS

CIR6CDO RK6VY DSKLS CTRL PRT3

8569
8570
8571
8572
8573
8574

054216
054224
054232
054240
054246
054254

040525
050130
040440
020114
041505
052103

8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
85
8597
8598
8599
8600
8601
8602
8603

054270
054276
054304
054312
054320
054326
054334
054337
054344
054352
054360
054366
054373
054400
054406
054414
054422
054430
054431
054436
054444
054452
054460
054466
054474
054475
054502
054510
054516
054524
054532
054540
054543
054550

020040
020040
040502
045522
020040
020040
041527
105
020124
040525
051117
041040
122
020040
030523
052517
041440
000
1
020124
040525
050130
040440
020114
00
122
020040
030523
041513
051040
020040
052116
105
020124

8575

8605
8606
8607
8608
8609

8610
8611
8612
8613
8614
8615
8616
8617
8618
8619
8620
8621
8622
8623
8624

054262

054556
(054564
054572
054600
054606
054614
054622
054630
054636
054642
054650
054656
054664
054672
054700

045522

040525
042522
050040
052116
042523
042522
041040
020040
047524
045522
020040
020061
025524
044502
020040

020114
041505
052103
042440
020124
040525

042440
020124
040525
050130
040440
000114

045522
020040
020040
040502
045522
020040
000
050130
040440
020114
020104
052111
041513
051040
020040
052116
052517

051105
045522
020040
020040
041527
045522

051105

13:52

0 13

PAGE 169

SEQ 0159

020040

DHO720: .ASCIZ

/RKER

RKER

RKBA

041505
052103
053440
020040
000
030523
041513
041440
020040
052116

DH1S0A:

.ASCIZ

/EXPECT

ACTUAL

WORD

BIT/

OH150B:

.ASCIZ

/RKCS1

RKCS1

COUNT

COUNT/

050130
040440
020114
041505
052103
041040

041505
052103
042440
020124
040525
052111

DH164A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

BIT/

041513
051040
020040
031123
041513
041440
000
050130
040440
020114
042523
042522
050040
052116
042523
052111
051440
000122

030523
041513
051040
020040
031123
052517

DH164B:

.ASCIZ

/RKCST

RKCS1

RKCS2

RK(S2

COUNT/

041505
052103
050040
052116
042523
042522
050040
052116
020040
041505

DH170A-

.ASCIZ

/EXPECT

ACTUAL

PRESENT PRESENT PRESENT PRESENT BIT

SECTOR/

045522
020040
020061
020124
044502

020061

051115
044502
020040
020040
026524

DH170B: .ASCIZ

/RKMRY!

RKMR1

BITe1

COUNT/

051115

BIT

RKW(C

BIT-1

RKWC/

BIT=2

COUNT

MACY11 30A(1052)
19-JUN-B0
DATA HEADERS

[T
]

CZR6CDO RKO6YY DSKLS CTRL PRTY
CIR6CD.PIT
19-JUN=-80 13:49

CZR6C00P$§611 DSKLS CTRL PRT3
19-JUN-80 13:4

CIR6CD.,

054706
054714
054722
054730
054736
054740
054746
054754
054757

MACY11

020061
026524
047503
020040
000124
054105
020040
046101
122
020040
030522

crc:aaauuho530nd<>n:awrc:natwrc:

[eYelolelelelelalelelelelelelelelala)

AAAA AR AA A A A A A AR AAA A AN
VAV A A
VA AV VA A
A T VA VA VAN
PORVAININIAIN)
b b b b b oh =B b —0 b b
NNNOVA
S SN = &5 B NN
=b =2

105

020124
040525
050130
040440
020114
041505
052103
042440
020124
040525
045522
020040
020061
051503
045522

045522
020040
000
120

052517
020107
047105
122

020040
031123
042113
051040

30A(1052)
19-JUN-B0
DATA HEADERS

13:52

£ 13

PAGE 161

SEQ 0160

DH171A:

LASCIZ

/EXPECT

ACTUAL/

DH1718:

.ASCIZ

/RKMR1

RKMR1/

CY175A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL/

DH1758:

LASCIZ

/RKCS

RKCS1

RKCS2

RK(S2

RKDS

RKER

RKER/

DH211A:

LASCIZ

/PREVIOUS REG

DH2118B:

LASCI2

/RKCS1

040440
020114
041505
052103

051105
045522

042522
020123
047503
051524
041513
051040
020040
020123
042513

020061
051503
045522
020040
020062
051504
045522
020040
020040
051105

000122

RK(CS2

CONTENTS/

RKDS

RKER/

CIR6CDO RK61T DSKLS CTRL PRT3
CZR6CD.P1Y
19-JUN-80 13:49

MACY1T 30A(1052)
19-JUN-80
ERROR MESSAGES

gggg
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712
8713

8714
8715
8716
8717
8718
8719
8720
8721
8722

055254
055262
055270
055276
055304
055312
055320
055321
055326
055334
055342
055350
055356
055364
055372
055400
055403
055410
055416
055424
055432
055440
055446
055454
0556462
055466
055474
055502
055510
055516
03555264
055532
055540
055546
055554
055557
055564
055572
055600
055606
055614
055622
055630
055636
055644

055651
055656
055664
055672
055700
055706
055714
055722
055730

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
044524
020117
020113
020122
020105
043501
046517
020104
051105
101
052120
047524
045503
051101
042526
040523
047522
052111
042101

101
052120
020101
044040
020122
042510
041505
052520
042504

13:52

.SBTTL

ERROR MESSAGES

F 13
PAGE 162

054105
042105
051117
044522
040516
051124

042520
046440
020131
054524
046102
050101

EMOOO:

.ASCIZ

/UNEXPECTED MEMORY PARITY ENABLE TRAP/

052126
047111
041440
051440
042515
020105
051040
062510
000
052126
047111
0461440
051440
042515
020105
053440
044040
000122
042526
043516
044103
046103
051104
042515
020105
051040
042510

046505
020107
042510
042505
051523
051106
040505
042101

EM200:

.ASCIZ

/ATTEMPTING TO CHECK SEEK MESSAGE FROM READ HEADER/

046505
020107
042510
042505
051523
051106
044522
040505

EM201:

_ASCIZ

/ATTEMPTING TO CHECK SEEK MESSAGE FROM WRITE HEADER/

050115

EM202:

.ASCIZ

/ATTEMPTING TO CHECK CLEAR DRIVE MESSAGE FROM READ HEADER/

052124
047111
041440
041440
042040
046440
042507
020115
020105
051105

046505
020107
042510
042514
044522
051505
043040
051127
042510
000

EM203:

.ASCIZ

/ATTEMPTING TO CHECK CLEAR DRIVE MESSAGE FROM WRITE HEADER/

EM204:

.ASCIZ

/ATTEMPTING A READ HEADER TO CHECK SECTOR PULSF DETECT/

052124
047111
042522
040505
047524
045503
047524
051514
042524

052040
041505
040505
05311
051523
051106
040505
042101

0465
02010/
042101
042504
041440
051440
020122
020105
052103

SEQ 0161

8775
8776
8777
8778

056257

056264
056272
056300
056306
056314
056322
056330
056336
056344
056345
056352
056360
056366

056373
056400
056406
056416

E%206:

.ASCIZ

/ATTEMPTING AN NPR READ OF ONE WORD/

EM207:

.ASCIZ

/ATTEMPTING AN NPR READ/

€EM208:

.ASCIZ

/ATTEMPTING NPR READ CHECKING ZERO DEIFCT/

043516
051040
044527
051525
042522
041516
052116
041111

050115

047040
040505
044126
040440
051523
042522
064440
0521

EM209:

.ASCIZ

/ATTEMPTING NPR RFAD WITH BUS ADDRESS INCREMENT INHIBIT/

EM210:

.ASCII

/ATTEMPTING NPR READ WITH BUS ADDRESS INCREMENT INHIBIT/

LASCIZ

/ CHECKING 2ERO DETECT/

_ASCIZ

/ATTEMPTING TO FORCE NON-EXISTENT MEMORY/

046505
020107
051120
020104
042516
000104
050115
040440
020122
000
046505
020107
042522
042510
020107
042040
000124

052124
047111
047040
040505
047440
051117
042526
063516
050116
042101
052126
047111
020122
041440
047111
047522
041505

2
B
2
2
2
2
2
2
2292
LSS
YA
S
Y
2
YT
YT
ST
S
YT
S
s

042524

/ATTEMPTING A WRITE HEADER TO CHECK TN SX PULSE DETECT/

101

052124

046505

101
052120
047524
042503

044103
043516
020117
052103
052124
047111
043040
047040

041505
055040
042504
000
046505
020107
051117
047117

052120
050116
042101
020110
042101
020123
046505
047111
124
060
044513
051105
042524

(n
Y an]

8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
B774

.ASCIZ

047111
020122
053440
052502
051104
047111
047105
044510

020107
042522
052111
020123
051505
051103
020124
044502

8761

EM205:

044524
051120
020104
041040
042104
044440
042515
044116
000

052101

046505
020107
052111
042101
020117
020113
020130
020105
052103

056176
056204
056212
056220
056226
056234
056242
056250
056256

056170

052124
047111
051127
042510
052040
041505
042504
051514
042526

8752
8753
8754
8755
8756
8757
8758
8759
8760

8751

SEQ 0162

000
101
052120
020101
020105
051105
044103
047111
052520
042504
000
101
052120
047101
051040
043117
053440
052101
0445264
020116
042522
101
052120
050116
042101
045503
042532
05%105

6 13
PAGE 163

055736
055737
055744
055752
055760
055766
055774
056002
056010
056016
0560264
056025
056032
056040
056046
056054
056062
056070
056076
056104
056112
056117
0561264
056132
056140
056146
056154
056162

13:52

EM211:

8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
87464
8745
8746
8747
8748
8749
8750

MACY11 30A(1052)
19-JUN-80
ERROR MESSAGES

CIR6CDO RK611 DSKLS CYRL PRTY
CZR6CD.P1Y
19-JUN-80 13:49

CIR6CDO RK611 DSKLS CTRL PRT3

CIR6CD.PIA
B779
8780
8781

056422
056430
056436

8782
8783
8784
8785
8786
8787
8788
8789
8790

056443
056450
056456
056464
056472
056500
056506
056513
056520

8796

056563

8791
8792
8793
8794
8795

8797

8803

04
8805

8807

19-JUN-80 13:49
042455
047105
047515

056526
056534
056542
056550
056556

101
052120
047524
051101
042455
047105
047515
126
043516
047105
042515
0460440
051523
044502

056570

052120

056633

101

056640
056646
056654

056662

101

052120
050116
042101

047514

044530
020124
054522

MACY11 30A(1052)

047111

052123
042515
000
046505
020107
042514
047117
052123
062515
000
044526
052130
020104
054522
042522
020107
000
046505
020107

052124

046505

040503

044524

052124
047111
041440
047040
044530
020124
054522
051505
042440
042504
047515
042104
047111
0515264

052124

047111
020122
047440

020107
042522
020106

8808
8809
8810
8811

056670
056676
056704
056712

047117
051117
040502
044522

050040
052040
020104
054524

044522
020117
040520
000

8813
8814
8815
8816
8817
8818

056724
056732
056740
056746
056754
056762

052120
0475264
051101
052502
044522
051122

047111
041440
052440
020123
0545264
051117

020107
042514
044516
040520
0642440
000

056774
057002
057010
057016

052120
034061
047040
040505

8812

8819

8820
8821
8822
8823

8824

8825
8826
8827
8828
8829
8830
8831

8832

8833
8834

056717

056767

057022

057030
057036
057044
057052
057060
057066
057074

057102

057110
057116

101

052101

044524
020070
050116
042101
045503
042532
052105

052101

044526
020070

052124

19-JUN-BO

ERROR MESSAGES

046505

13:52

H 13

PAGE 164

EM212:

ASCIZ

/ATTEMPTING TO CLEAR NON-EXISTENT MEMORY/

EM213:

ASCIZ

/TESTING EXTENDED MEMORY ADDRESSING BITS/

EM214:

. ASCIZ

/ATTEMPTING TO FORCE UNIBUS PARITY ERROR/

EM215:

.ASCIZ

/ATTEMPYING NPR READ OF LOCATION PRIOR TO BAD PARITY/

EM216:

.ASCIZ

/ATTEMPTING TO CLEAR UNIBUS PARITY ERROR’

046505

EM217:

_ASCIZ

/ATTEMPTING 18 BIT NPR READ/

042524

050115

EM218:

.ASCIZ

/ATTEMPTING 18 BIT NPR READ CHECKING ZERO DETECT/

042524

050115

EM219:

ASCIZ

/ATTEMPTING 18 BIT NPR READ WITH BIT 16 (PA) SET/

052124

047111
041040
051120
000104

043516
044502
020122
041440
047111
047522
041505

043516
044502

020107
052111
051040

030440
020124
042522
042510
020107
042040
000124

030440
020124

SEQ 0163

222 SSSRSST

[eiolololololalalal=l]
PO E-POANNO
SO
S~

057124
057132
057140
057146
057154

MACY11
QORNININI = PON) 8 = PONIN)
— )
VSO,
OWNSOS—2N

CIR6CDO RK6Y1 DSKLS CIRL PRT
19-JUN-80 13:¢
CIZR6CD P

30A(1052)
19-JUN-BO
ERROR MESSAGES

13:52

113

PAGE 165

SEQ 0164

EM220:

LASCII

/ATTEMPTING 18 BIT NPR READ WITH BIT 16 (PA)

EM221:

LASCIZ

/ATTEMPTING

050115
051040
042510
044440
047111
041516
042504

EM222:

LASCIZ

/ATTEMPTING READ HEADER

046505
020107
041040
020122
060440
051040
042510
000
046505
020107
040514
047440
040524
042522
040505
030450
020124
052101

EM223:

LASCI2

/ATTEMPTING DATA BUFFER READ

EM224:

ASCI2

/ATTEMPTING SIMULATION OF

050115

EM225:

LASCIZ

/ATTEMPTING READ HEADER (18 BIT FORMAT)

SIMULATION OF

DATA

IN READ

SET/

HEADER/

OO
WVMB Ot
AP =t

—- AR
= O W

O WEBNOMN Ng

o
o
RORGRRR v SEKJE

0O0OO0O0O0O000

VAVA WA VAVAVAA
VA

040505

044502
046522
042524
043516
020104
051105
0641040
051117
044440
047111

IN MAINTANENLE MODE/

AFTER READ HEADER/

DATA IN READ HEADER (18 BIT FORMAT)/

[N MAINT MODE/

CZR6CDO RKO611 DSKLS CYRL PRTY
CIR6CD.PYY
19-JUN-80 13:49
8891

057624

047515
1

MACY11 30A(1052)
19-JUN-80
ERROR MESSAGES

04250

EM226:

13:52

J 13
PAGE 166

.ASCII

/ATTEMPTING DATA BUFFER READ AFTER/<12><15>

JASCIZ

/READ HEADER "N 18 BIT FORMAT/

.ASCII

/ATTEMPTING TO CHECK SYNCH DETECT ON READ HEADER/<15><12>

.ASCIZ

/CHECKING ZERO DETECT/

.ASCII

/ATTEMPTING TO CHECK WRITING OF ZEROES BETWEEN INDEX/<15><12>

.ASCIZ

/AND SECTOR PULSE/

_ASCI]

/ATTEMPTING TO RESET WRITE GATE BY SETTING/<15><12>

LASCIZ

/SECTOR PULSE IN A WRITE HEADER COMMAND/

.ASCII

/ATTEMPTING TO SET WRITE GATE BY RESETTING/<15><12>

8898

057674

106

04228%

042101

044040

8903

057731

101

052124

046505

8910

060002

042510

042101

0511

8912
8913
8914
8915

060012
060020
060026
060034

044103
3516
020117
052103

041505
055040
042504
000

044513
051105
0425264

8917
8918
8919
8920
8921
8922
8923
8924
8925
8926
8927

060044
820053

060066
060074
060102
060110
060116
060124
060132
060140

052120
047524
045503
044524
020106
051505
042527
042116
047101
052103
046125

047111
041440
053440
043516
042532
041040
047103
054105
020104
051117
042523

020107
042510
044522
047440
047522
052105
044440
005015
042523
050040
000

8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942

060152
060160
060166
060174
060202
060210
060216
060220
060226
0602
060242
060250
060256
060264

052120
047524
052105
042524
020105
052105
005015
042523
050040
044440
051127
042510
(041440
042116

047111
051040
053440
043440
054502
0445264

020107
051505
044522
052101
051440
043516

052103
046125
020116
052111
042101
046517
000

051117
042523
020101
020105
051105
040515

060274
060302
060310

052120
047524
053440

047111
051440
044522

020107
052105
042524

8916

8928

8943

8944
8945
8946

060037

060145

060267

101

052124

046505

EM227:

EM230:

EM231:

EM232:

SEQ 0165

CIR6CDO RK61Y DSKLS CTRL PRT3

CZR6CD.P1Y

19-JUN-80 13:49

MACY11 30A(1052)

ERROR MESSAGES

8947
8948
8949
8950

060316
060324
060332
060340

043440
054502
052105
005015

052101
051040
0445246

020105
051505

8953
8954
8955
8956
8957

060356
060364
060372
060400
060406

042523
050040

044440
051127
042510
041640
042116

052103
046125

101

020116
052111
042101
046517
000

051117
0642523

052124

046505

101

052124

101

052124

8951
8952

8958

8959
8960
8961
8962
8963
8964

8965

8967
8968
8969
8970

8971

8972
8973
8974
8975
8976
8977
8978
8979
8980
8981
8982
8983

8984

8985
8986
8987
8988
8989
8990
8991
8992

8993

060342
060350

060411

060416
060424
060432
060440
060446
060454

052120
067524
042524
044103
042510
000

060462
060470
060476
060504
060512

052120
047524
042524
042504
040524

060455

060515

046505

EM234:

.ASCIZ

/ATTEMPTING TO WRITE HEADER DATA/

046505

EM235:

.ASCII

/ATTEMPTING TO RESET WRITE GATE WITH SECOND/<15><12>

LASCIZ

/INDEX PULSE OF WRITE HEADER/

020107
044522
040505
040504

047111
053440
043440
020122
051440
000

020107
044522
050101
040504
047131

101

8997
8998
8999

9001
9002

060762
060770

052120
047524

060755

/ATTEMPTING TO WRITE SYNCH OF HEADER/

020107
0646517
020105
020105
051105
040515
047515

(052120
0475264
042526
047440
040526
044103

9000

.ASCI2

020107
044522
047131
020106
051105

047111
041440
052105
052111
042101
020116
020124
000

060714
060722
060730
060736
060744
060752

8994
8995

€E%233:

020101
020105
051105
040515

052120
047524
046120
051127
042510
044440
047111
042504

060632
060640
060646
060654
060662
060670
060676
060704

101

PAGE 167

/SECTOR PULSE IN A WRITE HEADER COMMAND/

042101

111
050040
047440
052111

K 13

JASCIZ

047111
051040
053440
043440
044527
041505
012
042116
046125
020106
020105
051105

052120
047524
052105
042524
020105
051440
006504

060707

047111
053440
044040
020122
000

13:52

043516

020107
051505
044522
052101
044124
047117

060522
060530
060536
060544
060552
060560
060566
060571
060576
060604
060612
060620

060625

047111
053440
051440
047440
042101

19-JUN-B0

054105
042523
051127
042510

000

046505

EM236:

.ASCIZ

/ATTEMPTING TO COMPLETE WRITE HEADER IN MA[NT MODE/

052124

046505

EM237:

.ASCI2Z

/ATTEMPTING TO WRITE GAP OR DATA SYNLHW/

052124

046505

EM238:

.ASCIZ /ATTEMPTING TO WRITE DATA FIELD/

052124

047111
053440

020107
044522

SEQ 0166

s i

s el

S e

D il

De o

D ol

el el i

S e

D e

il e

el and el

el cnld cald ol

042524

ASVASNSUNN o

i = A AN

VAWVINE
OB
b b OO

—

SO
=2 ONN—

-— b O SN =S \N =

PN SPRONO

L iWne a2
-,

OOUIOO0OO0O0O

NWOOOWSSsWM

NIO VO VIO WVN NN VIOWVIVIOWMINSNINW

ONS =00

-—r d P e D e e O b

NO = NNINNINO

VINLWVMISWVMESUVIVIWVI

O0O00O0OOO0O0

EM239:
.ASCIZ

/ATTEMPING TO WRITE SYNCH OF HEADER USING 24 SECTOR FORMAT/

=0
4= 220wV

POVO VNN = S O VNV

NN
=t ad \ ) b b
e e = N O VIOWIO 8 b b e o \NOWNO S =2 b b a2 \N
2 O0O0O0OON VIO =200
RO B =S PTON) =) =2 s O =N S O0OC0CONWVIO=

O ded s d OO

SNBSS VVVINES

OO0CO0O0OOO

030152

043040
043040

& BN NO B BN
VAW SN &
O
NOMNVOONI
VOO =2 —=R)

052124
047111

[elalalelolelelalalelal] OO0

047526
046522

OODOOOOO

260

=
- NN

OOANONNNdeOg
IO BRI S
= R S~ OO

00O

020124

WY
NI IDIIIIS VRO
=

- ORI = 5~ OO N~ O

104

00O

Wn—

— ol

19-JUN-80 13:49
B

01
n

NL2OO—=20O0O
N NNO=OINNAUNNNNO

CZR6CDO RK611 DSKLS CIRL PRT3
OO

0462040
064506

R R R RO RARARRRRIGRAS

042524
020101

i W) b A =2 O N =5 B~ S B b b
VAVAVAAAA
b =5 VO VIVAVIVAWA = - O W AN o o o
= N =2\
oor~2~ SAFR b
OO0O0O0O-ANO
==
NO
&
N = ONNNONO
S BNNO -2NNON) &
NdNOb? S QOMNWVINGD
VIN=2VWVNS SVNSW-2000
~oog
NN
SO
—=2O
SO =N gNdON
= 8& NN
NN
=00

~NOOMH

oD e

o
o

ddddddddacooogoooo
OSSO gU‘N-‘
OMN
S
& Onas~J~u¢u-A-ac>~e~usy>\nc~ FENFECVRE oW

D e

RORRRRR
I IIITIIIHI IR SRRRRRS
NONONINN
NUWOENO
N NN

No“”de“°~§§ £F

D s

CIR6CD.PY

OSSO ONS OO~

s e

AN
NN
N PPNV NI PINI NI RO R ~ = —
N
= = O~
"
=2 SO ONSFOONOWVESOON S
NWVNVON »,00M0S

D wld

il o

R R R R RRRRRRERRIREREREEEEREIEREEIIZELEEE

s 0ss0rrsrw

- o

9003
9004
9005

OO0 ~NYO NN
O

D e

9006

9007
9008

SSES83 88888888888
3

—_——

MACY11 30A(1052)
19-JUN-B0
ERROR MESSAGES
13:52

L 13
PAGE 168
SEQ 0167

EM240:
LASCIZ

/ATTEMPTING TO WRITE HEADER DATA USING 24 SECTOR FORMAT/

EM241:
LASCIZ

/ATTEMPTING TO FORCE FORMAT ERROR (CFMT
26 SECTOR)/

EM242:
LASCIZ

/ATTEMPTING TO FORCE FORMAT ERROR (CFMT
24 SECTOR)/

EM243:
LASCIZ

/ATTEMPING TO FORCE CONTROLLER ERROR WITH FAULT BIT IN DRIVE MESS/

EM244:
LASCI2

/ATTEMPTING TO CLEAR ERROR/

MACY11 30A(1052)

CIR6CDO RK611 DSKLS CTRL PRT3
19-JUN-80 13:49
CZR6CD.PIY

WMEWR

WSS ESWNS

IO =S
NO=
OO =S O00—2000—
ONW=LO OO NWO NO VO NOWWION\A = -2 \N

—2 NI
—» OO
—sbd
O =NI=
NN ~NO
SANVE SO 2O VIO = SN AN
A

044440
042522

n13

PAGE 169

SEQ 0168
INCORRECT/

EM3000:

JASCI2

/COMMAND AND STATUS REG 1

EM3001:

.ASCIZ

/MESSAGE A INCORRECT/

E3002:

LASCIZ

/MESSAGE B INCORRECT/

EM3003:

CASCIZ

/CS1

INCORRECT AFTER SENDING DRIVE CLEAR/

EM3004:

LASCIZ

/CS1

INCORRECT AFTER AFTER DATA SIMULATION/

EM3005:

LASCII

/MAINT REG.

.ASCI2

<15><12>/AFTER SECTOR PULSE/

.ASC!]

/MAINT REG. 1

LASCIZ

<15><12>/AFTER

JASClI

/MAINT REG. 1 INCORRECT DURING DATA SIMULATION/

NV
=200

=O=NOWN—S

2200

SOOO L=d=d=d =
O000

EM3006:

INCORRECT DURING DATA SIMULATION/

888

—=2O0ON

AWV

VNS

00
OO o
LIV RY, &»H
O~NON
ON
OO0OW
WA=\ od—‘ —A A
—SO—-2NOWn=
N ON)

ONNO - OO

Pl NIV R
AV IV (V]
SN
NN
OOW ONON
NN =N Qb
b \N—bd

2=
BNNO
= —20O0NO —

O—G-‘N\h—‘l\)\fl-‘\h-‘gou-‘ N =S RO -

Nt Ot =

-—d b

- AN b =t O NWNAOD N =
- o) =) =t PNIN) &~

13:52

0462522

OO =N
VA b b b e A

NP
NN
NN
N
= AN = b A =2 b VA =S =4 VWA = A

wVIN)

=2 AN
8 5N B VWO RN
N WVHO NN O £nvo
O W
OV NNOWVS WO gN-‘O\ng £ OOOO—‘O—‘N?OO—'OO—‘O—‘O—‘O—'NJ‘

=
=)

O 0O

FRAGaR RRRGSR SRR SRR R &S
& -o

O\flbbgfl)—.
¥Rg b3

RRRIA RRER SRRREIRR
[(NIVRNT
NI NP
it &~
NN B b~
AN b ad ab ) asd AN AN b VIO s AN b d A b \NA\N

[= 2

062146

ERROR MESSAGES

040440

0O
O
XY
~N~N
RN

9114

§°

g
e 82
1
911§
9113
042140

NO
AN
b wd = O VWA
= NON)
N —=O
WA 0O

061734
061735
061742
061750
061756
061764
061772
062000
062
06201
06202
062026
2034
062037
062044
062052
062060
062066
062074
06 108
06211
062114

O0O000

9088
9089
9090
9091
9092
9093
9094
9095
9096
9097
9098
9099
9100
9101
9102
9103
9104
9105
9106
9107
91,8
9109

WD
EISSRRR WV
SRR 29922
NS ONE NN
=[« 21

908 8217%6

061663
061670
061676
061704

00012
04750

9081
9082
9083
9084

061476
061500
061506
061514
061522
061530
061536
061543
061550
061556
061564
061567
061574
061602
061610
061613
061620
061626
061634
061642
061650
061656

133

9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9069
9070
9071
9072
9073
9074
9075
9076
9077
9078
9079
9080

19-JUN-B0

EM3007:

INDEX PULSE/

CZR6CDO RKO61Y DSKLS CTRL PRT3
19-JUN-80 13:
CZR6CD.P11
3:49

MACY11 30A(1052)
19-JUN-80
ERROR MESSAGES

13:52

N 13
PAGE 170

SEQ 0169

84 &6 & 0 A0 LA b

<15><12>/N0 SECTOR OR INDEX PULSE

SUPPLIED/

/BUS ADDRESS

INCORRECT AFTER SENDING DRIVE

CLEAR/

/WORD COUNT

INCORRECT AFTER SENDING DRIVE

CLEAR/

/CS1

CHANGED DURING COMMAND EXECUTION/

/BUS ADDRESS CHANGED BEFORE

INDEX PULSE/

/WORD COUNT CHANGED BEFORE

INDEX PULSE/

/CSY

CHANGE AFTER

INDEX PULSE/

9171

9172
9173
9174
9175
9176
N
9178
G179
9180
9181
9182
9183
9184
9185
9186
9187
9188
9189
9190
9191
9192
9193
9194
9195
9196
9197
9198
9199
9200
9201
9202
9203
9204
9205
9207
9208
9209
9210
9211

9212
9213
9214
9215
9216
9217
9218
9219
9220
9221
9222
9223
9224
9225
9226

19-JUN-80 13:49

062637

062644
06%652
062660
062666
062674
06%708
062710
062716
062724
062732
062740
062746
062754
062756
062764
062772
06
063006
063014
063022
063023
063030
063036
063044
063052
063060
06306?
06306
063074
063102
063110
063115
063122
063130
83;}36
&6
063146
063154
063162
063170

063172
063200
063206
063214
063222
063230
063236
063242
063250
063256
0063264
063272
063300
063306
063312

115

051040
044440
0‘%58;
0431
047111
055520
052502
051104
044103
020104
020122
020130
000105
047527
052517
040510
040440
044440
050040
000
103
042116
051440
020123
031040
051117
000
102
042104
044440
042522
127
047503
042522
047503
000124
040504
040505
047503
000124

051503
047503
020124
020122
047111
040524
0‘250?
0251503
047503
020124
020122
047111
040524
042506
051105

044501

19-JUN-80

ERROR MESSAGES

052116

13:52

B 14

PAGE 171

(

EM3014: .ASCIZ

/MAINT REG 1 INCORRECT BEFORE INDEX PULSE/

EM3015:

.ASCIZ

/BUS ADDRESS CHANGED AFTER INDEX PULSE/

041440
041440
042105
051105
054105
042523

EM3016:

.ASCIZ

/WORD COUNT CHANGED AFTER INDEX PULSE/

046517
040440
040524
042522
044440
042522

040515
042116
052524
027107
041516
052103

EM3018:

.ASCIZ

/COMMAND AND STATUS REG. 2 INCORRECT/

051525
051040
041516
052103
051117
047125
020107
051122

040440
043505
051117
000
020104
020124
047111
061505

EM3019:

.ASCIZ

/BUS ADD REG INCORRECT/

EM3020:

.ASCIZ

/WORD COUNT REG INCORRECT/

040524
020104
051122

051040
047111
041505

EM3021:

.ASCIZ

/DATA READ INCORRECT/

020061
051122
043101
042522
020107
041040
000122
020062
051122
043101
042522
020107
041040
000122
047522

047111
041505
042524
042101
040504
043125

EM3022:

.ASCIZ

/CS1 INCORRECT AFTER READING DATA BUFFER/

047111
041505
042524

EM3023: .ASCIZ

/CS2 INCORRECT AFTER READING DATA BUFFER/

020122

EM3024: .ASCIZ

/ERROR REG INCORRECT/

043505
06151%
052103
051117
042504
051514
0%0123
051505
047101
043101
047111
052520

030440
051117
041040
020105
020130
000105
0642101
020123
042507
042524
042504
051514

042122
052116
043516
052106
042116
046125

0462101
040504
043125

SEa 0170

B ]

CZR6CD.PYY

MACY1Y 30A(1052)

(ojolele)4

CIR6CDO RK611 DSKLS CTRL PRT3

) e

b A =D b

OO0
WS

==
=N
=S AN =B O =B\ =t

OO0
VSN

B \ PN\ AN NN =

b \ ) oD e e

e = VRPN
=D AN —t
NO =R — ~N
P

WSSV

OO0O0O0O0O0O0O0O0O0O0O0DO
SN VNONNMNOESNSES

N=LONOMNY
O adPN)=d
s

O
W

20-"\)—‘—‘-‘200—'O—‘N—'NNOO-‘-‘-‘OO—.O-‘-‘ONNOO—'
AN ONMA 8O =) 5~ i — NW\BWO‘V‘NM—‘NJ‘WU"?J‘V‘—"\)M

044523

EM3025:
.ASCIZ
/MAINT REG 1

NO
=
SN

NNV =2 NO = ONO -0 0O
NSO NNNO NVINIO
NN -

NON=O
— e B e AN

OCOO0O
BPROESNM

ERROR MESSAGES

19-JUN-80
13:52

C 14
PACE 172

EM3026:
ASCIZ
/CS1

044440
042522
052106
046517
041440
052105

EM3027:
.ASCIZ

/CS2 INCORRECT AFTER COMMAND COMPLETION/

047111
041505
EM3028:
LASCIZ

/CS1
INCORRECT AFTER READING EMPTY SILO/

044440
042522
052106
040505
042440
051440

EM3029:
LASCIZ

/CS2
INCORRECT AFTER READING EMPTY SILO/

020124
020061
051122
EM3030:
LASCI2

/MAINT REG 1

020105
051525
044440
042522
EM3031:
ASCIZ
/DRIVE

051117
044440
042522
EM3032:
.ASC1Z

/ERROR REG INCORRECT/

EMV:
LASCIZ

/MR1

INCORRECT AFTER

INCORRECT AFTER COMMAND COMPLETION/

INCORRECT/

STATUS REG INCORRECT/

INCORRECT ON 1ST UPWARD TRANSISTION OF MAINT CLOCK/

VOV VOVOVOIVOVOOVOVO

MACY11 30A(1052)

VOV UVVVOVVVUVOVOUVUIVIVOVOVIVOUOOVOVOOVODODO

O —
\N—

OO
VW)

042522
047503

Q
L=d"d=4
REIR RIARRRRARRRIAGR RIRSSRIAFRIRRRR
SO
RS SREAARRRRR
QOO
=N~
NANNOON—ANOO=AN=
NOVNVOON—=RAIN
-~OO

N
d

NS b \ N end = A
=t = \ N
= . ALY S AN = b \J =D e \J) e \ ) s e e
NOO =2 =O=20028N
AN =B ) N =0\
N =2 N
VWO OO
O

AREESR
=&

IIRTIIIN

SXEIILE
063402

[~l=l=/

23E3E8EsesES SEXXIIIISIIIISIK
S B S AR IARAAG
&&g S
FENEBRNRES USRS
SRS

CIR6CDO RK611 DSKLS CTRL
CZR6CD P11
19-JUN-80

SEQ 0171

INDEX PULSE/

b
-

9310

064%32
064240

051115
047503
020124
042116

020061
051122
047117
062040

047111
041505
031040
053517

047101
047511
046440
061440
000

044523
0201
0445
0475

N
~N
~N

0445264
020106
020124

051511
047440
047111
041517

16
24
23
17
16

13:52

D 14

PAGE 173

051101

020104

SEQ 0172

NN
b bb
—S AN A NLAN—
OO
2
O

[el=l=] [=lolelolielelels]
NN NN
S
= Y=
OO0 WO =N

»
~

[=4

OOt Ot = PIN) =2 NNV O =2 =0 N O
[SIV=T.
JV VT L NIVEP Yo JV-F JV LV, [V P T )

s_lm_.u\_._._o_.m—._om_n_a-a_o

[=d=l=]

VS AWVAWIWAND

SNV

L=d=d~4

ERROR MESSAGES

051516
047117
040515
046103

L=d

N
-

3333333333
»

o
o

-~ o

~N
O0

NanE&SRRFISILNR

[=]

’
o

(=
o

—_

[V,

064110

~N
0

9295

19-JUN-B0

MACY11 30A(1052)

CIR6CDO RK611 DSKLS CTRL PR
CZR6CD.P1Y
19-JUN-80 13:

EMW2:

LASCIZ

/MR1 INCORRECT ON 1ST DOWNWARD TRANSISTION OF MAINT (CLOCK/

EMW3:

LASCIZ

/MR1

EMW4:

,ASCIZ

/MR1 INCORRECT ON 2ND DOWNWARD TRANSISTION OF MAINT CLOCK/

INCORRECT ON 2ND UPWARD TRANSISTION OF MAINT CLOCK/

9327
9328
9329
9330
9331
9332
9333
9334
9335
9336
9337
9338
9339
9340
9341
9342
9343
9346
9345

9346

9347
9348
9349
9350
9351
9352
9353
9354
9355
9356

9357
9358
9359
9360
9361
9362
9363
9364
9365
9366
9367
9368
9369
9370

9371
9372
9373

064326
064326
064330
064332
064334
064336
064340
064342
064344
064346
064350
064352
064354
064356
064360
064362
064364
064366
064370

064372

064374
064376
066400
064402
064404
064406
064410
064412
064414
064416

064420
064422
064424
064426
064430
064432
064434
064436
064440
064442
064kélé
0064446
064450
064452

064454
064456
064460

.EVEN
PATTERN:

130715
177777
000000
177777
000000
177777
000000
125252
052525
125252
052525
125252
052525
044444
022222
111111
052012
100520
052012

HEAD1:
HEADZ2:
HEAD3:

HEAD4:
HEADS:

155555

066666
155555
104210
104210
104210
100
101
102
103
104

105
106
107
110
m
112
113
114
115
116
117
120
121
122

123
124
125

HEAD6:
HEAD7:
100
101
102
103
104
105
106
107
110
1m

112
113
114
115
116
117
120
121
122
123
124
125

NPRBUF:

T
W

064310
000000
177777
125252
052515
101706
060422

SEQ 0173

.WORD
.WORD
.WORD
.WORD
.WORD
MWORD
.WORD
.WORD
.WORD
.MWORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
. WORD
.WORD
LWORD
.WORD
.WORD
.WORD

000000
177777
125252
052515
101706
060422

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

066666
155555
104210
104210
104210
109,100
101,101
102,102
103,103
104,104

BYTE
BYTE
BYTE

123,123
124,126
125,125

.WORD

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE

130715
177777
000000
177777
000000
177777
000000
125252
052525
125252
052525
125252
052525
044444
022222
111111
052012
100520
052012

155555

105,105
106,106
107,107
110,110
111111
112,112
113,113
114,114
115,115
116,116
117,117
120,120
121,121
122,122

064310
064312
064314
064316
064320
064322

DATA PATTERNS

E 14
PAGE 174

.SBTTL

13:52

9318
9319
9320
9321
9322
9323
9324
9325
9326

MACY11 30A(1052)
19-JUN-80
DATA PATTERNS

-e

CIR6CDO RK611 DSKLS CTRL PRT3
CIR6CD.PYY
19-JUN-80 13:49

0646
064630
210
000102
064644
000001
e e

D e

D i

D e

i e

D e

D el e e e

D i

NN =2 O NO WV

WAL= O N

N = O

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE

+1
BADPAR= WRBUFF
WRBUFF:

.END

.BYTE
.BYTE
.BYTE
.BYTE
.BLKW

NOC WS WM

55 55

U
eSS

= O NO VS WIN 2O NO WS WBIN 2O NV

YOS

2O N0

N N NN NN

MACY11 30A(1052)
19-JUN-80
DATA PATTERNS

VAWV
S B 5 5 2 55 55 B WG
AR IR N NTON
[elolelel OONSNNNNNSNNOOOOCOO-OO
N = CNO WV
NN 2O ~NO WV
NN = O NO WV WIN = O NN
W
= O O
(VP
dV ], 8] B ONOVE

ORI NNd_‘—.-‘-J—I—A—.—-.—l-I—D-J—D-J_A-._A-‘-.—D—D—D—l-‘-l—l—.-.—‘—a—l—l—b—l—l-—.—.-—l—.—b—.

ONOWVEBUNN =2ONO NS INN 2O NO NS BN

OO O VAWV WA S 25 55 5 5 5
o = OOOOCOOOONNNNSNSNNNOOOOO

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

D el el

N NANLNNON

D e

i e

D e

D i

) i

.BYTE
.BYTE

e e

i e

D il il o

2 O ~NO-

D e

=2 O NO WV S RN

NN N

d el e

.BYTE

NNNNNNNNOOOOOO-OO
NN AWV
S B 8B 8 B 8 B

e e

064462
064464
064466
064470
064472
064474
064476

e e

—d e

W
~N

(¥,

CIR6CDO RK611 DSKLS CTRL PR
CIR6CD.PYY
19-JUN-80 13:
13:52
F

PAGE 175

SEQ 0174

CZR6CDO RK611 DSKLS CTRL PRTY

CZR6CD.P1

19-JUN-80 13:49

MACY11 30A(1052)

177440
052272
000000
000000
000010
000000
000000
000000
000000
000000
000000
0
000000
000000
000000
000000
000000
000000
000000
000000

10084
7413
1246
1246
1103#
1246
1246
1246
1246
1246
1246
1246
1246
1246
1246
1246
1246
1246
1246
1246

ADEVA =
AENV =
AENVA =
AFATAL=
AMADR1=

000000
000000
000000
000000
000000

1246
1246
1246
1246
1246

1252
1288
1257
1258
1249
1274

1246
1246
1246
1246
1246
1246

1284
1268
1276
1279
1282

AMADR2= 000000
AMADR3= 000000

AMADR4=
AMANS | =
AMANS2=
AMARS3=
AMANSL=

000000

000000
000000
000000

ARSGAD= 000000
AASGLG= 000000
ASGTY= 000000
ANTYP1= 000000
ANTYP2= 000000
ANTYP3= 000000
ARTYP4= 000000
APASS = 000000
APRIOR= 000005
APTCSU= 000040
APTENV= 000001
APTS12= 000200
APTSPO= 000100
ASUREG= 000000
ATESTN= 000000

AUNIT = 000000

AUSWR = 000000
AVECT1= 120210
AVECT2= 000000

BADPAR= 064644

BAl

= 000020

1246
1246
1246

1246

1246
1246
1246
1246
1246
1246
1246
1246
10074
72904
1246
2281
7248
1246
1266

1246

1246
10064
1246

94264

10664

13:52

6 14
PAGE 177

CROSS REFERENCE TABLE =-- USER SYMBOLS

ABASE =
ABORY
ACDW1 =
ACDW2 =
ACLO =
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=
ADOW11=
ADDW12=
ADOW13=
ADOW14=
ADDW15=
ADDW2 =
ADDW3 =
ADDW4 =
ADDWS =
ADDW6 =
ADDW? =

ADDW8 = 000000
ADOW9 = 000000
ADEVCT= 0000

19-JUN-80

1246
8387«
1289
1290

1287

1261

1278
1281

1254
1255
1248
1269
1277
1280
1283
1251
1246
7468
72884
72874
72894
1259
1250

7322

7461

7463

1253

1260
1246
1286

1285

3508

3523

3553

3582

3595

SEQ 0175

CIR6CDO RK61T DSKLS CIRL PRT3
CIR6CD.P11
19-JUN-80 13:49

BA16 = 000400
BA17 = 001000
BITCNT 003622

8110
81100
81701
81702
81703
81704
81705
BIT06
BITQ7
BI1T08
81709
BITY

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

000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001099
0GLO02

81110 = 002000
81711 = 004000
81712 = 010000
81713 = 020000
BIT14 = 040000
81715 = 100000
6172 = 000004
8IT3 = 000010
8174 = 000020
BITS = 000040
BIT6 = 000100
8117 = 000200
8178 = 000400
8119 = 001000

10514
10524
22164
63540
L4997«
$380¢
5728+
5992«
6278«
6540+

9524
942N
9% 14
9404
9394
9384
9374
b1
9354
9344
9334
9514

9324
9314
9304
9294
9284
9274
9504
9494
9484
9474
9464
9454
944k
9434

= 010000

(KSWR ~ 104407
CLEAR = 000005
(Ot

(R
CRLF

= 001000

= 000015
= 000200

(SRPTR 003640
= 004000
(10
CTRHLT 045630

3726
3889
2611«
4465
5073«
5490+
5754s
6097+«
6368+
8107

7159
7157

7333

H 14

PAGE 178

CROSS REFERENCE TABLE -- USER SYMBOLS

1081

1100

3727
3890
2622+
LSTLe
5175«
5493«
5766+
6103+
6374+
8133

3788
3951
2679+
LS5T5+
S178e
5499
5847+
6119+
6390¢
8135

3952
4052
2692+
L6BAr
5251«
5516+
5850+
6131
6409t
8138

SEQ 0176
4052
4053
2704+
4685+
5254+
5528«
5856+
6219+
6417

4053
4114
2753«
4794c
5260«
5609+
5873+
6222+
6424r

4114
4115
2766+
4795+
5277+
5612+
5885+
6228+
6431+

2778¢
4903+
5289¢
5618¢

2845+
4904e
5371¢
5635¢
5969+
6263
6518

2902¢
4984e
5374e
5647«
5975+
6271+
65264+

5966+
6244
6515+«

1124
1109
1126
110
1"
1096

1139
1125

7310
1140

1127
1128
11

7317
7125
1129

1103
1104
1105
1087
1088
1089
1090

1118
119
1106
1107
1108
1123

1133
1134
1120
1121
1122
1138

10604
2620
2964

2385
2630
2993

2406
2654
3083

2430
2669
3199

2651
2689
3328
6187
4970
6183
2445

2473
2701
3502

2494
271
3620

4357
5034
6479
2488

2517
2735
3671
4428
5075
6637
2522

2538
2750
3723

2565
2763
3782

4538
5217
6793

2580
2775
3844
4577
5337
7425

2595
2785
3886
4648
5456

2608
2811
3945
4687
5575

10564

2390

2400

2435

2445

2478

2488

2522

2532

4193

6194

4869

4887

(0T
CERR

CFMT

3627
3627
2598e
4464
5072«
5409+
5737«
6096+
6365+
8101

13:52

10N
1092
1093
1094
1095
1077

4007
4758
5694
10534
10594

= 002000
= 100000

3626
3626
2586+
L3550
4998
5397+
5731«
6004+
6285+
6552+«
1048
952
951
950
949
948
947
%6
945
944
943
1082

19-JUN-B0

1072
1073
1074
1075
1076
1060
1102
1084
1085
1086
1068
1069
1070
1071

9594
10884

= 100000

30A(1052)

1053
1054
1056
1057
1058
1059
1083
1065
1066
1067
1049
1050
1051
1052

BPTVEC= 000014
= 000200
BSE

CCLR

MACY11

4921

7124
10334

10904

8674
8684

22244
10544
74240

4049
4797
5813
2390
3626

4108
4867
5932
2400
5003

6170
4906
6058
2435
6616

6484

6576

7332

80864

7507
2306

7517
7478

7517

7703

7786

7306

6677

6693
6693

4318
5011
6329
2478
6772

7164

1135
1136
1137

4467
5141
6714
2532

CZR6CDO RK611 DSKLS CTRL PRT3

CIR6CD.PI1

19-JUN-80 13:49

MACY'1 30A(1052)

19-JUN-80

13:52

5004
1219

10962
8748
11084
1928

81564

051246
051272
051316
051342
051366

1385
1397
115
1433
1457

1391
1403
1621
81984
1463

2049
1409
1427

81684
81784
1439

1469

1475

82084

1595
1763

1601
1769

1607
1793

1613
1799

1619
1805

DFOIS
DFO17
DFO22
DFO2S
DFO31

DFO3S

051222

051412

1313

1481

13319

1487

DFO41

051436

1877
1505

1884
1721

DFOS4

051506

1571

1637

DFO42

DFOSS
DFO72

DFO77

DF1S0
DF164
DF170
DF171

DF17S
DF211

051462

051532
051556
051612

051636
051662
051706
051732

051756

052002

1511

1577
1655
1685

8162

DHOSAA
DHOS4B
DHOSSA
DHOS58
OMO72A
DHO72B

053720
05374S
053773
054040
054106
054145

OHO72C 054203

829¢

8296
1926
8164
8166
8174
8176
8184
8186
8194
8196
8204
8206
8214
8216
8224
8226
8234
8236
8244
8246
8254
8256
8264
8266
8274
8276

8278

1331

1499

1337

133

1349

1445

1451

81884

1523

1529

1553

1559

1958
1739

1988
1745

199
1775

82584
82684

2091

2097

2103

2109

8220

8230

8240

B222

8232

862

1976

1982

82384

1847
1679

1853
1727

1923

1952
1733

82824

2085

1787

1917

83024

2044

2024
)
B3z24

2133

2139

2145

B342#

8304

8314

B324

8334

8344

8403w

8316

8326

8336

8346

B8406N

2061

8170

8172

8306
84084
8413
84214
B429#
84320
B435K
844in
84480
84564
B44N
B468#
84720
84834
B8494#
85054
B5160
85194
85228
85084

85332
8537
85410
85484
8288
8290

85670

2067
8180

8182

85554
8541a

2073

8190

8192

2079

8200

8202

8210

8212

1573

1709
1835

1946

1781

1367

1703
1829

82184

8248#

1649
1673

1547

1905

2000

1643
1667

1541

1697
1823

1964

1940

1361

1631
1817

1898
82284

1841

1535

1355

1625
1811

1891
1911

2127

DHOOOB 052421
052434
052485
052544
052623
052642
052660
052724
052772
053051
053126
053152
053200
053277
053375
053474
053571
033608
05362
053662

1691

1493

82924
2018

8160

DHOOOC
DHOOIA
DHOO1B
DHOISA
DHO158
DHO17A
DHO178
DHO22A
DH0228
DMO2SA
DHO258
OHO31A
oHO318
DHO3SA
DHO358
DHOAIA
DHO418
DHOA2A
DMO428

1583
1661

1325

1970
2012
8312#
2039

052403

DHOOOA

1517

SEQ 0177

2269

193¢
2006
2029
2034

2055

PAGE 179

CROSS REFERENCE TABLE -- USER SYMBOLS

= 100000
DCK
DDISP = 177570
= 000400
DT
051216
DFO00

DFOO1

1 14

1379

1565

81584

1589

1751
1865

1757
1871

2115

2121

83324

8250

8260

8270

8284

B252

B262

8272

8286

1715
1859

000040

DRA

= 000001
100000

O O AWV AWRIWAWW
- €O 00D O NS
N AN ORI =2\ NOD N =
ONOON
NN
WO W

001142
000174

O OO OO0 O O VV\AVVVAWVMIWVAVAVAVIVAWWA
S
O NS
= OO T O0D ~NO NS B
= O NN

040000

N
= N NN =2 O WO
-t OANNIOMMANNI
O — O NN

=
01
DlSPLA
DISPRE
OLY

054262
054337
054373
054431
054475
054543
054642
054740
054757
054775
055074
055171
055217

NNV
B
O NO VS SN
—=O~N

DHO720
DH150A
DH1508
DH164A
DH1648B
DH170A
DH1708
DH171A
DH1718
DH175A
DH1758
DH211A
DH211B

OO0 -

O =20 O
N
NO =2 NS DO
~NOD NN
N
O OO NO WO

P IV TV
O TV TV TV TV T ST N T, N 1 N 1,8 ]
=2 OO ~NO NN
O OO N

B> =2 NN NS ANNNIN) =

=2 O OO0

OOANNNNE
W=
O N O NNODOPODOMOO

19-JUN-80 13:49

O O O VA WVAVWAVAWVIWAIWAWIWAWD
AN =2 O OO0 NN
NNIN) —
QU
&~
O VWO OO
-t Nt PO NI N O OVBO®BWNO

(=T
R NE IV IV, D

DMD

WVMONOOO

CZR6CD. P11

AN N N NN NN N = = —s — —5 0D 0D OO OO 0D OO 0D O O GO OB O 0D
NN = O O 00 O W =2 O = N O W L L W W U AN N W N NNV N

CZR6CDO RK611 DSKLS CIRL PRTS
J 14
19-JUN-80
13:52
PAGE 180
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0178

-—

NONOO\:
L

O VARIRNINIPNIODN)
— b o b b wd b o b b o il O b b wad b O
B B HNO
WOWVN=OO-LOOVOOWVO VNN BBt
O 0 ONO V-0
OO 00N OMNN = O OO OW =N
=PWVNOO O =2 OOONNOCOWIIOON

1348

1360

1366

1372

1378

80964

2108

2114

2120

81442

5161
5959
6566

5244
6015

5300
6087

5364
6145

5420
6212

5483
6275

5500+
6249+
6972+

5601«
6262+
6984+

5619
357«

5720+
6375+

5738+
6395+

5839+
6408+

1454

1460

1466

1472

87240

puirguarg

2102

=«

—

oo
&~ 00

5482+
6229+
6960+

5381+
6211+
6934+

2951
5896
6508

XY,

2844
5840
6447

—

2096

[«
N1V4

2090

23
264

1993
1774

o 0o

2084

_—

1957
1738

G0~ W
WO W
S 00N

1951
1732
8131#

1588
1756
1870

81194

[- X=F

1981

OO\
—h
N

1540
1696
1822

»
»
-

VIVARY
O=2N

OO
VN ON O NN S
S NBONNO
SN SO0 O

b
b
=
b O
— O

) o
=l

8 Wi

el
il
) e
)
—

O O VAN S

OONVOO SO

— e

ool

[« Y- SO IV IV P ¥ gV IV [V IV
A =2 O NN OO — 0D
VL4

S
OO SO

b
)
el
el
il el
—d

1354

8104#

6525+

OO NS
8 NN
W = QD 85N~
— DO~

063747
064036
064127
064216
055254
035321
055403
055466
053557
055651
055737
036025
056070
056117

6696
-

ol e i e
=200 — —
—>NIOB O ~—O 00 0O
NN
O WS N NN = O NO OO NN =000
— 8~ 8 W~
[+ X 4V 1. JV IV P P X
YaleP Yo N NP Lol 1 8] S5O SN NOMNN
L
E
£
2 X 7 L%
b o
D e
b wd e

= 000100
ECH
EMTVEC= 000030
Em
003170

EM1
EM2
EM3
€M
EMOO0
EM200
EM201
EM202
EM203
EM204
EM205
EM206
EM207
EM208

SEQ 0179

i e

NWNE 8 WNW OO O

d b b o cd i

050730
050740
050754
050766
051004
051034
051050
051064
051102
051126
051136
051162
020000

VNN

DT041
D042
DT054
DT055
071072
01077
DT150
DT164
01170
DT171
DT175
0T211
ECCWw =

177570
010000
000040
050554
050560
050600
050610
050626
050646
050660
050704

N2 =2 OOOCOC OO

DSWR =
DTE
=
DTYE =
DT000
07001
01015
071017
01022
DT025
DT031
DT035

000200
000040
000010
000007
040000

V=2 PO RIPININ) b b b b e

DROY
=
DROT
=
ORPAR =
DRVMSK=
0SC
=

19-JUN-80 13:49

CZR6CDO RKO611 DSKLS CTRL PRT3

CIR6CD.PIY

K 14
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 181
CROSS REFERENCE TABLE =-- USER SYMBOLS

87140
1442
1508
1574

87344
87404

1640

8751#

87754

——y

CIR6CDO RKO6T1 DSKLS CTRL PRT3
CIR6CD.P1Y
19-JUN-80 13:49

L 14
MACY11 30A(1052)
19-JUN-B0 13:52 PAGE 182
CROSS REFERENCE TABLE =-- USER SYMBOLS

EM212
EM213
EM214
EM215
EM216
EM217
EM218
EM219
EM220
EM221
EM22
EM22
EM224
EM225
EM226
EM227
EM230
EM231
EM232
EM233
EM234
EM233
EM236
EM237
EM238
EM239
EM240
EM241
EM242
EM243
EM244

1682
1694
1724
1748
1778
1790
1814
1856
1881
1931
1937
1949
1967
1973
1985
2003
5174
2031
2036
5243
5261
2041
2046
6249
6262
6507
6525
2052
2076
2100
2124

1688
1700
1730
1756
1784
1796
1820
1862
1888
88484
1943
1955
88724
1979
1991
2009
89164
89284
89434
5363
5381
89714
89844
6395
6408
90064
90164
2058
2082
2106
2130

87824
1706
1736
1760
88124
1802
1826
1868
1895

;;32

;gzg'

1317
1323
1383
1389
1395
1401
1407
1419
1425
1437
1443
1449
1455
1431
1461
1467

1335
1341
1413
9081#
90894
91014
91134
91284
91374
91454
91524
91594
91664
9714
91784
91854

1353
1359
90744

1821

1863

1889

2010

2059

2083

2107

2131

91924

1563
1635

1605
1719

1629
1839

1677
1909

1713
1962

1743
1998

EM3000
EM3001
EM3002
EM3003
EM3004
EM3005
EN3006
ER300.
EM3008
EN3009
EM3010
EM3011
EN3012
EM3013
EM3014
EM3015
EM3016

EM3018

056443
056513
056563
056633
056717
056767
057022
057102
057162
057241
057316
05731
057447
057544
057631
057731
060037
060145
060267
060411
060455
060515
060625
060707
060 55
061014
061106
061175
061261
061345
061446

061500

061543
061567
061613
061663
061735
062037
062140
062261
062341
062420
062465
062534
062602
062637
062710
062756

063023

131

1485

EN3019

063067

;?83'

EM3020
EM3021

063115
063146

1497
1503

1329

1712
1742
1766

1718
1772
8803¢#

87894
87964

1808
1832
1874
1902

1838
88244
1908
88404

1844

1850

88194

1914

1920

88324

5839
5857

5958
5976

6086
6104

1521

1545

1587

88564
1961

8864n

8883#
1997
2015

88924
2021

8903#

5482
5500

5601
5619

5720
5738

2064
2088
2112
2136

2070
2094
2118
2142

1791

1815

9026#
9035#
9044
¥
90554
1479
1857

13N
1377

90664
90704

6211
6229

6357
6375

SEa 0180

8958#
89654

89934
90004

1347

1527

1551

1533

1557

1539
1569

1365

1593

1599

1617

1623

1882

1659

1932

1689

1707

1968

1701

1737

1611

1653

1683

1695

1725

2004

2047

2053

2077

2101

1731

1755

1767

1785

1797

1761

1803

1827

1869

1896

1809
92084

1833

1875

1903

92034

4208«
4498
4834

€E.DA
€£.08

003506
003522

E.DCYL
€.DS

003520
003512

E.ECPS
t.ECPT
E.ER

003532
003534
003514

E.MRT

003524

VN
L X
]

e
d

phr gy

OW~NS
oWV

]

98+

ooowwmmwg
O OO WVNO~ 00O 0D

»>

&H\I»"O
OO

»
»

~
|=]
~
&»

NN NN

SN
—=NNWNO
WIHN
OO NS 85 SN
WSS = =
S NO NS OV

VOO
OOO':J

- O ANO
YN
-

AN =

8
%
»>

OO0 =~
» »
»n

NN NN
O
NI
(NW~N=2NdO

WHNNORNOCONLNLAEIND
L ONES
= OV
—_
OO
SN
ON
[ T<1. 1.

NN NPV

—=2NOH220

»
E

QOAJ 0D GO NI NN —2 LN 0D ~ \¥,]
O =2 NO S =2 NN - DO & -

21714
3267
3475+
3679

£ NN
LN OD OO N 8- 8 8- WO
0D 8
NN
NI O NN = =2 YN S OO N OWN = N
2 OO

003510

€.CS2

5090+
5906+
6620
8104

4558+
4814

1986
1992

7062+

21674
2665+
2952
3363
3726+
4227

WO DN &~ —‘U‘O‘\:NNNU‘QOO

4239+

wn
2

3150
3433
3916

NN —

003500

21740

21694

1950
1956

SEG 0181

92 374
4
92444

O ANVAN O N = S~ A O 0P O

003504

1915
1921

WO
O = =8
(NNODOWN

€.CS1

003516

1845
1851

VIO
~ D&

E.ASOF

€E.BA

1938

M NANOD O O W 8~ 8 SRR
S W
IND

1944
2016
2022
2032
2065
2071
22118
7?;30

063406

VIO NWVINO =20 O =WV
NSONSNNONNID

EM3027 063455
EM3028 063524
EN3029 063573
EN3030 063642
EM3031 063670
EN3032 063723
ERRCNT 003610
ERRVEC= 000004

En3026

1641
1647
92 r{Y

85 B

1509
1515
1665
1473

S ONNNO
NG 2O HOW—N
»
»
BN
»n

063172
063242
063312
063336

IR PORININI
O O — =20 —> —>
=PI
O SRINID
ORI
AN

En3022
EN3023
EM3024
EN302S

W)
N

CZR6CDO RKO61T1 DSKLS CYRL PRT3
CZR6CD.P1N
19-JUN=-80 13:49

M4
MACYT11 30A(1052)
19-JUN-80 13:52 PAGE 183
CROSS REFERENCE TABLE ==~ USER SYMBOLS

6617
8119

21704
21764
3768+

4272
5100+

21754
21724

8144
21804
21814
21734
6801¢
21774
2772
5192

6645+

6696+

6706

6722+

6732

6775+

6785

2617
2951
5420+

2680+
5161+
5483+

2686
5181+
5539+

2698
5182+
5540

2709
5185
5602+

2754+
5188¢
5658+

2760
5189+
5659

= 000001

= teeeee |

GTSWR = 104406

HEAD1

HEAD2
HEAD3
HEADL
HEADS
HEADG
HEAD?
HT
=

064326

4812
6458

$003
6616

5090
6693

5310
6772

5549

5099

5219

6060

6061

6481

93284

6186

93344

3219
3817

3279
3915

3348

3409
6143
4828

3459
4208
4922

4267
4937

4282
4983

2819
3106

2847
3136

2849
3208

2879
3214

2958
3253¢

4153

157+«

4190

4224

4236

10854

6619

6839
8091
4372
5906

6846
8092
4482
6025

8078

8079

8080

4592
6155

4702
6312

4886

4930

5055

1147
8089
10480
5668
2300

4337

3436
3784+
6137
2305
8090
3626
5787
8084#

4381

449N
4601
(711
4821

3449
3811

6696

5339
5458
5577
5696

KIPARO= 172340

5004
9934

5091
7038

5106
7066

KIPARS=
KIPARG=
KIPAR7s
K1PORO=
KIPDR1=
KIPDR2=
KIPOR3=s
KIPDR&s
K1PDRS=
KIPORG=
KIPDR7=

9984
9994
10004
9824
9834
9844
9854
9864
9874
9884
9854

10894

9944
9954
9964
9974

8664
11228

2904

4388

3458+
3827

3506
3831

5382
5501
5620
5739

93314
6185
93404
93434

3104
3675

3168
3752

3532
3917«

3547
3927

4483

4498

4593

4608

4703

3715«
7082

3773«

3878¢

3936+

4041

4099+

7511
2393

7517
2438

2481

2925

2660

2906

2936

6617

2943

6643

3004

6694

3010

6720

3016

2929
3247

»>

2897
3243

8088

2872
3203«

4373

= 00001¢
= 000400

8086

2839
3153

2251«
3047
3652

LF
MCLK

8084

2828+
3133

002000
000100
000001
000300
000020
000100

172352
1723564
172356
172300
172302
172304
172306
172310
172312
172314
172316

8082

5959+
6427+
6902
6981
2496
2499

4647
4557
4667
777
5815
5934
B6SH

172342
172344
172346
172350

4090
8116

5897
6421
6899
6978+
2489
2490

2250+
3027
3595

KIPARI1=
KIPAR2=
KIPAR3=
KIPAR4=

3120¢
3383«
3754+

5896+
63580
6894
6969
2453
2456

064334
064342
064356
064364
064372
064400
000011
0

3088+
3376+
3624+
3994
8104

5840+
6302
6889
6966+
2446
2647

10914
10494
1081#
10440
9608
10684
3582

3087«
3372
3575
3990
4263

5778
6301+
6884r
6957
2408
2411

93464
93494
7517

IDAE =
=
{3
=
ILF
INTR =
10TVEC=
IR
=

6212+
6869+
6948¢

5777«
6281+
6883«
6954
2401+
2402+

5858
5977
7476

HVRC

OO ONO
WO
O
SO
—
WO NODO~

= 000020

6145+
6566*
6928+
8138

SN
NOVINO
SNV
O8OOI
N

FMTE

GNS

6087+«
6508
6927+
8109
8096
8096

5721«
6275+
6872
6951«
21784
21794
21824
21684
3130
3406
3764
g};gfi

[ 2%2%4

003526
003530
003536
003502

SEQ 0182
OO
VWL OO
N NO 25—
S N2 N~

E.MR2
E.MR3
E.SPAR
E.wC

N 14

MACY11 30A(1052)
19-JUN-80 13:52 PAGE 184
CROSS REFERENCE TABLE == USER SYMBOLS

SN
NOOVINOOY
B N~NOD
O NOWNOD

CZR6CDO RK61T DSKLS CTRL PRT3
CIR6CD.P1Y
19-JUN-80 13:49

3294
3980

4078

6773

6799

4718

4813

3475

3523

MMVEC = 000250

MSP

M1.BIT

2951

3636
3967
4542
5294
5588
5901
6203
6602
7004

10024
11234
11164

1165
7007

7015

5539
6358
1121
3213
373%
4062
529¢
5533
5772

2585

5602
6447
2672
3214
3736
4122
5294
5534
5825

2601

5658
6508
2674
3215
3796
6123
5295
5587
5826

ST
6566
2675
3342
3797
4124
5349
5588
5827

5177
6869
2934
3343
3798
4202
5350
5589
5888

5840
6884
2936
3344
3897
4203
5351
5650
5890

5896
6289
37
3517
3898
4204
5412
5652
5891

5959
6913
3009
3518
3899
5155
5414
5653
5944

6015
6927
3010
3519
3959
5156
5415
5706
5945

6087
6978
3011
3635
3960
5157
5468
5707
5946

6145

6212

6301

6293
6560

3098
3636
3961
5229
5469
5708
6007
6295
6561

3099
3637
4060
5230
5470
5769
6009
6296

3100
3734
4061
5231
5531
ST
6010
6342

112640

6071
6343

9714

6072
6344

6073
6439

6137
6441

6139
6442

6140
6492

6196
6493

5161

6197
64694

5244

6198
6558

5300

5364

5420

5483

= 000100

11204
4766

2567
4875

2583
4978

2656
5042

2737
5143

2813
5182

2878
5183

2879
5188

2880
5240

4326
5360

4436
5479

4546
5598

4656
517

003616

22140

2588¢

2623+

2682+

2705+

2756t

2779+

4329+

4341v

4305

4439+

4451t

4475

5404c
S74ée
6091+
6379

5487+«
5760
6108
6380

5505
5761«
6109«
6397

5506+
5844+
6125
6398«

5522
5862
6126
6411

5523
5863+«
6216+
6612+«

5606
5879
6233
6512+

56264
5880
6234
6529

5625+
5963+
6251
6530

5641
5981
6252+
6546

5642«
5982«
6265
6547+

5725+
5998
6266
6887

5743
5999+
6362+
6946

54B8e
5981+
6513«

5505+
5998«
6529+

5522+
6092+«
6546+

5607+
6108«
6892

5624+
6125+
6897

3330
39N

3331
3938

3357
3939

3387
3998

3504
4043

4549+
5047¢

6952

4561+
5059+

7002

22158
5641t
g%;;'

5172«
5726%
6233«

= 010000
NED
NEM
= 004000
NEWPAS 004636

10744
10734
23654

3652
6862

4094

NPRBUF

3630
3960
4432
5236
5582
5890
6197
651
6978

70214

003620

M2.BIT

3558
3954
4322
5230
5544
58
6191
6560
6967

064406

NXF
= 000004
OFFSET= 000015
OFST = 000004
= 020007
oPl
OPROOT 052¢.¢6

3085
3505

10834
10374
11024
10044
2312

3086
3579

23584

4SBS*
5083+

8101

5249«
5743«
6251%

4659+
5171«

8138

5266+
5760«
6265«

4671
5248+

5283+
5845¢
6363«

4695+
5266

5369+
5862+
6379+

4769+
5267«

5386+
SB879+
6397+

4781+
5283

5403+
S5964r
6411«

4BOSe
5284

4878+
5368+

4890+
5386

4914+
$387+

4981e
5403

3113
3717
4102

3157
3768

6161

3201
3775
LN

3202
3776

6192

3228
3835

6218

3277
3880

4266

633

6332

93524

ENENEA
A

2844

7015

3525
3904
L244
5224
5533
5826
6150
6501
6966

A _a_A_A—A_dsm

= 000200

2754

7013

3518
3898
421
5164
5475
5820
6139
6433
6951

MIND

2680

7009

3512
3892
4203
5156
5469
5782
6080
6487
6928

= 002000

3427
3804
6197
5150
5463
5771
6072
6453
6914

MEWD

3389
3797
4130
5044
5425
5713
6066
6441
6913

MEMVEC= 000114
MERD = 001000
MESMSK= 000017

22194

3350
3791
4123
5038
5414
5707
6020
6349
6883

003630

334%
b1
411
4974
5356
5701
6009
6343
6870

3337
3735
4067
487
5350
5663
5951
6337
6869

PEMPAR

7007
10714
10034
1166

3256
3729
4061
4762
5344
5652
5945
6307
6758

SEQ 0183

= 001000
moS
MEMBAS= 172100
MEMERR 043650

19-JUN-80

CROSS REFERENCE TABLE =-- USER SYMBOLS

Akl

3221
3642
4055
4652
5305
5594
5939
6295
6679

MACY11 30A(1052)

19-JUN-80 13:49

CIR6CDO RK611 DSKLS CTRL PRT3

CIR6CD.PIY

8 15
13:52 PAGE 185

PS
=
PSW
=
PWRVEC=
P.ASOF
P.BA
P.CS1
P.CS2
P.DA
P.DB
P.OCYL
P.DS
P.ECPS
P.ECPT
P.ER
P.MRT
P.MR2
P.MRY
P.SPAR

000000
000040
000100
000140
000200
000240
000300
000340

177776
177776
000024
003556
003544
003540
003550
003546
003562
003560
003552
003572
003574
003554
003564
003566
003570
003576

8894
8904
8914
8924
8934
8944
8954
8964

8694
8704
9614
2193#
21884
21864
21904
21894
21954
21944
21914
21994
22004
21724
21964
21974
21982
22014

4208

2706+

bhbor
4658+

4806+
5065+
5405¢
5745+

5367+
5642

5267
5524+
5864
6215¢
6413

5982

6253
6547

2205
1167
870

2237

8023

8037

2256+

2257+

8022+

8023+

6632+
6633+

6709+
6710+

6788+
6789+

6634

6711

6790+

8152

6635+

6712+

6791+

8152

[, S ],8]

=
=
=
=
=
=
=
=

2624

4347
4564
4781
5046+

PRO
PR1
PR2
PR3
PR4G
PRS
PR6
PR7

9664

22134
4328+
44760
4695
4896+

—

003614

4483
1032#
1154
22224
1005#
1118#
2984
11254
11264
1072#
11104
8724

3435

3348
3980

(9, IV, ]

PR.BIT

PIRQVE= 000240

83634

[+
-1
-

000003
003642
003636
000001
000020
064310
004000
010000
002000
020000
177772

2343

PACK
=
PARM
PARPRE
PAR.EN=
PAT
=
PATTER
PCA
=
PCO
=
PGE
=
PIP
=
PIRQ
=

2315
2322
2336
2309
7427
10694
3582

SEQ 0184

052070
052076
052126
052150
052223
000200

Pl
IV
o0~

OPRO02
OPROO3
OPROO4
OPROO6
OPROO7
OR
=

c15

MACY11 30A(1052)
19-JUN-80 13:52 PAGE 186
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.PIN
19-JUN=-80 13:49

8036+

8037+

2755+

4451
4664
4877+

5083
54869
5761
6109
6381+
8138

2769+

6454
4671
4883¢
5084
5506
§762¢

6110+
6398

2779

4457
L6740
4890
5170+«

5507+«
5843
6126
6399+

2780+

4475
L4677
4893+

& SN0
O A WNWALY
O NN
NN O NN
- O N O 0BNO D 8~ — 0D

P
a1 S Te Yo Yo AV 1V 1V 1V, ]
GO N NN LN O NN
OO
SO0 <= ~Y&— N
NOWNO
&~
~NWVI~NO L X

£ N0
O N NVWWA

SN0 0N O NVWAV
SO NN~ OO~
N
~OD N~
OO
NI N2 ~NNINNO
0O
&
CO
OD
O

»> 0

Pl el g8 le Yo Yo AV 1V 1V 1V, ]
[« Py ¥e AV TV R Y. . To W
1,8 )
QORI NO — 0D 2~ DWW
~NBNESOO—=
N

®
»
»

oonmo;:vwaaum

2/15

2746

4702

2344
3674
5787

80894
4372
5906

4482

4702

4812

5090
6642

5430
6719

=
WD
—

»
&
»
»

99+

ONO
=2 NNIN
OOWNOOO0m

»
»

»
»
»

WNOPVNONI
O 8~ NN
2O NO S NNOONO

(VT T NN NT,81e W
SV (V"]
N =200 NN
S NOVO
ON =2 OO0
—-=O N
SO
\N— 2O
=

950+
696+

824

6458

6312

6025

6600

5056

6693

000006
000024

4348
4697
5085

4650

WO ON 8~ SO
SN NOO = BN~
=2 NI
BN NN —
OO = NN~
— 5

RKDA
RKDB

4331
4665
5053

4540
4982

4250

RKCS2 = 000010

2634

2576

5391¢
5626
5853«
6089+
6254+
6414

4482
4972

= 000000

2488

5377«
5604+
5763«
6000
6241¢
6405+

4430
4887

»®

RKCS1

2478

000013
104414
003652
000010
000016
000004

SEQ 0185

RECAL =
RESREG=
RESTRY
RESVEC=
RKASOF=
RKBA
=

0D 15
PAGE 187

4372
4869

000200

2400

N =2 L~ NAA SO0 NN WVNO

104411
104412

ROLIN
RDOCY
ROY

13:52

4338
4812

104410
000021
100000
000025

ROCHR =
RDDATA=
ROGATE=
ROHEAD=

£ 2N OO O AW
NSO
2O N
D8 =2 NO =2 NSO

043540

LRIV
PN
NN
W
O ~NO NN
(v
N NN
O
(=¥
. L ole]

ROBIT

003542
003612

19-JUN-80

CROSS REFERENCE TABLE -- USER SYMBOLS

P.W(
P1.BIT

MACY11 30A(1052)

OO
=N WNO O

CIR6CDO RK611 DSKLS CTYRL
(IR6CD.P11
19-JUN-80 1

15+

6641
2394c
2571+
2674+

6692
2431
2572«
2675+

6718
2438t
2583+
2678+

6771
2439+
2584+
2685

2879«
2944
3094«
3214
3347+«
3522«

28B0+r
2947
3098«
3215+«
3350
3525+

2883«
2995+
3099+
3218¢
3351«
3526+

2904t
3004«
3100¢
3221«
3389c
3558¢

2905+
3005+
3103«
3222¢
3390¢
3559+

2906+
3009+
3106+
3256+
3427¢
3621«

r444

3643
3796+

5236r
5345
5619
5480e
5589+
5695+
5772«
5833«
5944t

RLS

= 000010

SAVREG= 104413
SAVSWR 003634

3729+
3798«

2813¢

3730¢
3801«

2814¢

3734e
3804+

2819¢

30+

3735¢
3805+

5237+
5349+
5425«
5531«
5592+
5701«
5775+«
5836+
5945+

5240¢
5350%
5426
5533«
5594+
5702«
577
5837+«
5946

5241+
5351e
5457+
5534
5595+
5706¢
5782+«
5888+
5949+

5292«
5354+
5463+
5537+
5598t
5707+«
5783+
5890+
5951+

5294+
5356e
5464+
5538
5599+
5708+
5814+
5891«
5952+

2358
2816+
3263
3810
5220

2359¢
2825
3333«
3888+
5340¢

2861
3356
3910
5459+

2886
3396
3948+
5578+

2918
3439
3973
5697«

2950
3507+
4051
5816+

80904
8021+

8040

37¢

16+

L1e

Q3+

468+

544
650+
711e

8
894+

955+

10234

XXV 1V ]

S0~
=

[o B

6187+

6136

3089+
3825+

0D — MO &~

2360+
O &~ i
N O~
—
WNOD
S~ —
WO 0N

10244
22054
10274
22044

000036
003602
000022
003600
000002

3724+
3797+«

2812«

RKMR?2 = 000034

RKMR3 =
RKPRI
RKSPAR=
RKVEC
RKWC
=

2782

6615
2393+
2568+
2672+

5000
6676+

3650
2386
2567+
2661r

6599+
6796

4932

2996+
6770

4823

2519+
6717

=
W SN NN

473

2475+
6691

WA
NI NN
W)
O OO0 OV

4603

2432+
6640

1
2
2
2

4493

2387+
6614

= 000026

= 000014

4383

1
1
1
1

O 8NN
O =wNO
o= O
LSRRV, 1,8

RKER

000020
000012
000030
000032

SEQ 0186

RKDCYL=
RKDS
=
RKECPS=
RKECPT=

E 15

MACY11 30A(1052)
19-JUN-80 13:52 PAGE 188
CROSS REFERENCE TABLE -- USER SYMBOLS

CZR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.PY
19-JUN-80 13:49

3204+
3747

4253

6754+

CIR6(CDO RK611 DSKLS CTRL PRT3

CZR6CD.P11

19-JUN-80 13:49

000040
104415
044654
003626

SCLR
SCOP1
SCOP1$
SECCNT

000017
000001
000002
SPACE?2 052267
= 020000
SPAR
SPOLSS= 000020
SRTFLG 003606
SRTSPL= 000011
= 177572
SRO

SEEK
SELDRV
SK1

SR1
SR2
SR3
STACK
STARY
START
STKLMT=

B
B
B
B
B
R
N
BB
TR

LD O

SWREG
Sw0

001100
003662
003666
177774
= 100000
001140

LR )

SVAL
SWR

177574
177576
172516

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

10674

3054

72284
2218#
6353+
10384
10314
1082#
7390
1057#
11044
22074
1035#
9754
7063
9764
9774
9784

F 15
MACY11 30A(1052)
19-JUN-80 13:52
PAGE 189
CROSS REFERENCE TABLE -- USER SYMBOLS
6597
3178
8092
5168+
6434

6674
3772

3935

4006

4098

4169

80924

5242+
6497«

5481t
8138

5600¢

5719«

5838+

5957+

6076+

6134c

6207+

6288+

7402

83864

2227+

2230+

2310

3716+

3718¢

3777«

3879«

3881+

3937«

3940+

4042

4044+

4100+

4103

7029

76418

7426

8038

2283«
7157

2298
7164

6879
7228

6923
7317

6938
7329

6964
7333

6976

8021

2276+
7142
8040+
7745

7768

6923

6938

6964

6976

6988

2489

2533

7078+

8604
1151
2228
8714
11124
12184
6988
7706
11494

9244
9144
9134
9124
9114
9104
9094
908#
9074
9064
9054
9234
9044
9034
9024
9014
9004
8994
9224
9214
9204
9194
9184
9174
92164
9154
11374
11384
11404

SEQ 0187

7085+

2248

6995

22344

74636

6695
2268+
7125

6774
2270

2298

7706

7800+

6879
2489
2601

6909
2533
2446

7139

7025

7228

7409

(DO RK611 DSKLS CTRL PRTY
0.PN

TRAPPC 003604
TRAPVE= 000034

TRTVEC= 000014
TSTBYY
052357
T1STBY2 052367

TST40
TST41
TST42
TST43
1ST44
1ST4S
1ST146
1S147

TSTS
1STSO

T1STS1

7683+

7684+

7022+

8095
2255+

2254+
38N

83964
8398«

004650

2786

007432
010556
011244
012130
013016
014222
015100
015536
005066
016652
017766
021102
02177¢

0461720

K30
006416
1817
007044
TYPDS = 104405
104401
TYPE

NN =N

022524
023256
024010
024542
005304
025274
026026
026326
027074
027464
030310
031134
031760
005520
032604
033430
034254
035100
035740
036764
040010
040650
005734
041274

28084

7191

7185

1ST33
TST34
1S135
1S136
TS137
1ST4

2646

44250
45354
46458
L7554
7186
864n
49674
7209
51384

7203
7204
7205
7206
7207
7208

7210

7187

1S126
1ST27
1813
TST30
1ST31
1S132

2646
2401

SEQ 0188

QOO

18124
TST2S

6 15

30A(1052)
19-JUN-80
13:52
PAGE 190
CROSS REFERENCE TABLE -- USER SYMBOLS

NN N NNNN)
NN N NN
PORIAL NN NI NN NI NOAY =
N—a-a—.—.-o—a-a—n—o-o_a

1638

TST10
TST11
TST12
TSTI3
1ST14
TST1S
1ST16
TST17
1ST2
1S120
1121
TST22
TST23

19-JUN-80 13:49

MACY11

7188

2621
2712

2631
N7

2636
271328

26514
7199

7189

2315

2322

2326

2334

2343

3708

3711

3871

3874

4036

CZIR6CDO RK61Y DSKLS CIRL PRT3

MACY11

4037
7402
7781
7965
7319

6837

L1464

4459
4680
(919

T.(S2

003450

5107
6024+
6638«
8099
21524
3261+
3479
3758

4251«
4597
4934
T.0A
1.08

003446
003462

T.0CYL
1.0$

003460
003452

T.ECPS
T.ECPT
T.ER

003472
003474
003454

T.MR1

003464

T.MR2

003466

6851

8039

8078#

7405
7802

2325

2342

2824+
3127
3530¢
3987

2834
31420
3544

2397+
2666
2916+
3169
3436+
3676

7613
7821

7312

24627
7869

7320
7481
7875

7366
7577

3873

4036

7387

2885+
3240
3648

2892
3262+
3665

7367

7652
7884

7880

7371
7700
7889

7372
7712

7890

7379
7766
7892

7390
7767
7895

7392
7770
7899

3021+
3403
3909«

4072«

4150

6216+

8109

3034
3438+
3924
8113

2403
2714w

24851

249N
2788«
3028

2633+
2862
3140+
3397
3646+

2635
2884+
3144
34150
3656

4081
4384+
4609
4898+

4215+
4460
4700+
4923

5092
5905+
6620
6802
8148
3233«
3443
3679

5309+
6026
6646
8104
3026+
3267
3537«
3816+

4223+
4504
4920+

4257
4605+

6623
6805

6639
8119
2151«
2157«
3767+

3581+

6134
4389
4679+
4899

5102+
5907

663¢

8096

3237
3472+
3751

4230
4591
6926

6633
8113
3583

4272

6164

4932+

4270+
4948

21534
6790
21612
21624
21548
6771
21584
2708¢
2961
5776¢
6567
6980¢
21594

6770+

6782

5101«
21564

6635
8126
2616+
2772
5299+
6016
6915
8138
2486

003440

2314
80814
8080#
21554
21504
3111
3446
3972+
8129
2148#
2664
2887
3164
3420
3672¢

6844

1.CS1

045346
104402
104404
104403
003456
003444

7403
779
1967
13564

SEQ 0189

TYPERR
TYPOC =
TYPON =
TYPOS =
T.ASOF
1.BA

19-JUN-80 13:49

LY. -To Yo SV . T,NT,¥7.
.To
£ =2 O =2 NN
O
O 25000880
O PO
B =2 PO
S —

CZR6CD.PYY

H 15
30A(1052)
19-JUN-BO
13:52
PAGE 191
CROSS REFERENCE TABLE =-- USER SYMBOLS

6692+

6712

6718+

6732

2627
2851t
562
6300+
6931

2686
2908+
5540
6446+
6957

2697+
2909
5657+
6448
6968+

2698

2540

2947+
5659
6565+
6969

WRHEAD= 000027

WRL
= 004000
WRTBIT
042570

FLAR

2444y

2456

2861+
3153
3565+

4090

2487

2499

2886
1243
36491
4153

2897
3263
3668

2531+

2543

8096

2929
3356+
3764

2950+
3372
3810+
4263

2958
3396
3827
8104

4490+
4716
4951

4496

4512+

3022+
3406
3910«
8109

3037
3439
3927
8116

L2217+

4253+

6755

9426

3386+

3467
4462+
4683+
4929+

3482+
4463+
4710+
4935

3001
3788
5221
6025

3078
3789
5310

6063

3090
3889
5341
6155

3198
3890
5430
6188

2205
3951
5460
6312

5752
6129
6406

5407
5848
6226
6422

5491
5854
6242
6429

5497
5871

6255
6516

5514
5883
6260
6522

5967
6269
6538

5364

5602

5721

5840

5959

6087

2564

6427

2734

Ve lV 10 .

000400
000007
040000
020000
v
000100
WAITIN
003632
WCE
040000
WLE
004000
WRBUFF
064630
WRDATA= 000023
WRDCNT
003624
UFE
UNLOAD
UNS
UPE

2399+

SEQ 0190

O~ N
O =N

T.SPAR
T.W(

003470
003476
003442

115

19-JUN-80
13:52
PAGE 192
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- USER SYMBOLS

1.MR3

CIR6CDO RK611 DSKLS CIRL PRT3
19-JUN-80 13:49
CZR6CD.P11

364

954
754

o6#

5684

2986
3175«

43520
4573
4820+
5104

4402+

4053

6196

4623
4901+

8123
2826
3726

24645
3501

5906

5668
6484

5378

5258

6366
WRTCHK= 000031
WRTGAT= 040000

3580+

3587

4732+
4952

3602+

4733
5070+

5526

$COW2

$SCHARC
S$CKSWR
SCMTAG

001122
001126
001204
001274
001276
046164
047140
001100

7345

7909

7500

75148

2244

2258

5812

(=]
el

5574

NN
—

4186

SN
Es —

2260

—_Nno
~

2259

6478

CONE
N
o
OwW

2672
3877
5336
74624

4969

$BDADR
$BDDAT
$BELL
$COV1

[T
W XV ]

7759

2321¢
3326

SATYS
SATYL
$AUTOB
$BASE

0464724
044700
044706
0464716
001134
001270

[» XU TV 1,8

SATY(
SATYY

b = ND

WR.PAR= 000004
001000
SAPTHD
SASTAT= teeeee

2983

4647
6057

12344

12354

12364

7366

73mn

7379

7392

7405

7482

7270

7322
7468

7461

7617

7432¢
7161+
7183

7183

7230

7307«

7345

7430

7316
8126

7345

8096
8133

8099
8135

8104
8142

[0
Yo
-]

6918+

6933+

6940+

6959

6971+

4045

4104+

« 7345

7517

7802

7889

8113

8117

6990+

6994+

7030

7159

76604

&~ NNS

O-—=

7313«

7345

6874+
7336

6904
7338

7277+

7285#

7345

7631+

—

s
&»H=~d

—

—
—

8131

190

2698

OO
WV

d o

\ Y

b ) N

b b asd b b )

) B B b i il O b

b o acd et cd NI

WENNWVWVE =2OW
OCO&LrOWVMOSTO>O

-dcaand\nc>-huu~gn;
&

N b

374

7155
7178

wo
0o —

7340

7087+
7970

7180

3778«

7182

3882+

5996

$HD
SHIBTS
SH10CT
SICNT
SINTAG
SITEMB
SKTNEX
$KTOUT

7320

042406

b= d
=4
RREBIIRB88
8388 SR8
SSRSRRRISJIZS
PET QP P P
Pur SV
PurPurPuripppurpir-Sur SEpar gy Sy

$GET42
SGTSWR

12330

7463

S$ETABL
SETEND
SFATAL
SFFLG
SFILLC
SFILLS
$GOADR
$GDDAY

1232#

12314

79104

68564

SLSTAD

SERRTB
SERTTL
SESCAP

12304
79094

SEQ 019

68604

K111
SLF
SLFLG
SLPADR
SLPERR

SERRPC

700
1766
1442

044150

o
R

SCROUT
$OBLK
$DEVCY
SOEVA
$SOOAGN
$018L
SENDAD
SENDCY
SENULL
SENV
SENVN
$EOP
S$EOPCY
SERFLG
SERMAX
SERROR

2284
2284

$CPUOP
SCRLF

000000
000010
050036
050050
050043
044120
001242
001211

o o b b
Y
Y e)
[ 3
3V IV

$CM3

$CM4
SCNTLC
SCNTLG
SCNTLY
$CORE

J 15
MACY11 30A(1052)
19-JUN-B0 13:52 PAGE 193
CROSS REFERENCE TABLE -- USER SYMBOLS

cooo

CIR6CDO RK611 DSKLS CIRL PRT3
19-JUN-8 0 13:49
CZR6CD.P1Y

o —

e e

(ZR6CDO RK611 DSKLS CTRL PRT3
CZR6CD.P11
19-JUN-80 13:49
SLSTBK
SMADRY
$MADRZ
SMADRS
SMADRG
SMAIL
SMAMST
SMANS?2

044216
001246
001252
001256
001262
001214
001244
001250

3702
12744
12784
12814
12844
1186
12684
12764

SMAMSSL
SMBADR
SAFLG
SMNEW
$MSGAD
SASGLG
SMSGTY
SMSWR
SMTYP1
SATYP2
SATYPS
SATYP4
SMXCNT
SNULL

001260
001002
045142
050066
001230
001232
001214
050055
001245
001251
001255
001261
044530
001154

12824
11864
7238
7770
12540
12554
126484
7767
12694
12774
12804
12834
7172
12244

SMANSS

001254

SNWTST= 000001

SOCNT
SOMODE
SOVER

046412
046414
044514

$PASS
001222
SPASTH 001006
SPOVNER 050456
SPURCT 050452
SPURDN 050334
SPURUP 050362
SQUES
001210
SROCHR 047502
SRODEC= eeenee |
SROLIN 047572
S$ROOCT 050100
$RDSZ = 000010
SRESRE 050276
SRTNAD 042562
SR2A = eeeeee
$SAVRE 050240
$SCOPE 044220

$SETUP= 000137
$SI2E
SSIZEX
$STUP =
$SVLAD

043712
044154
177777
044460

K15
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 194
CROSS REFERENCE TABLE == USER SYMBOLS
3865

4028

7101«

7108¢#

1190

126478

2280

2296

7244
719144
7254+
7259
7252
79124

7279«

72834

SEQ 0192

7174

7322

7461

2503x

2505

6863

7166

7183

12794

23704

2722
36064
4408
91264
5794

66604
7549+
75440
7126
12514
11884
8039
8030«
2256
8022

12394
78344

8090
78574
79314
78504
80034

68624
8092
79874
2250

22278

7124
2361
7086
22274
7134

71824
7488

7257
7260+

7517

7272

7276+

24608

2462

7556+
7170
6830«

7567+
71794
6841

75934

2372

26150

2617

6662
7578«
7548+
715
2280+

67374
7591
7553
7160
6829+

6739

80454
8031«
80214
8030#

B032+
8036

8034+

BO4LLK

7517

7821

7892

7909

7967

7970

2250

2252

2254

2256

2258

2259

27940
3608
L5164
5128
9

7345

8087

2796
36834
4518
519g0
SN

29684
3685
L6264
5198
60304

2970
38464
4528
53154
6032

3059#
3848
L7364
5317
61608

3061
40094
4738
54350
6162

31844
40N
4B46N
5437
63174

25504

2552

26394

3307
42964
4957
56734
6465

2641

34864
4298
50134
5675
65834

27204

2260

2262

2290

2293

6827

3186
L7308
4LB4LS
59544
6319

33054
4175
49554
5556
64638

3488
44064
5015
57924
6585

8088
8089
8091

8090
71234

2249

1306
70484
70964

71734

7332

7340

7704

7709

1710

7740

7916

L 15

$SWREG 001236
= 000000
$SURMK
$SWOBT
044532
STESTN 001220

001200

STIMES

7143

STHP1
$TMP2
$TMP3

001162
001164
001166
001170
001172

$TAPO

$TMPL

$IN

8095

1443
7841

7749
7843«

8099
8135
2652+
4025+
5335+
6828+

813
2515¢
3862+
5139+
6672+

773
7846

7735
7848¢

7719

7725+

7747

7763

7773

7785+

7805+

2328¢
3087

2330
3156

2333
3179«

2345+

2347

2349

2351+

2352+

2353+

8088#

8089+

8090#

24657
2609
2751
3184
38624

N
WO

STMPS
$THP6
STHP?7

b ed od d b B )
NI NI NN
NI NI

001146
046642
046652
046651
046644
046646
046650
001144
046722
001160

1174

8126
2471
3705+
5032«
6595+

4756+
$TkB
STKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$7KS
$TKSRV

SEQ 0193
NNOWNESN
W—=200H 0N
O WVIR)
NN =N
— \NQD
8~ NN S

8
3
6

NNO

’

N = ~yroo 5~
e JUTF B
EVel W1V, |
0O O O N0 0N

VIO NO OO OO0
80O £
»
* &
=

000220
167400

$SVPC
$SWR

O~
— CD N
O~
O OO N —

19~JUN-80 13:49

~N N NN

CZR6CD.P1Y

IR
NN
NINNO
WY
5D
b N S QO N = = NOD — NI QD —»
N =0 OO0 SO~
O V= O00WN0OD
O NNOO WS
V00O WWNWO
» »
»

19-JUN=-80
13:52 PAGE 195
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

CZR6CDO RK611 DSKLS CTYRL PRT3

2639

L4260
4727
4991

83 322338

$TRPAD
$TSTA

\Val

82 g===

$TRAP2
$TRP =

oOwn

$TPB
STPFLG
$TPS
STRAP

22888

5315
S811»
6460

80814

8082¢

8083#

8084

80854

8086

soa7#

CIR6CDO RK611 DSKLS CTRL PRT3
CZR6CD PN
19-JUN-80 13:49
SISTNM
STTYIN
STYPBN=
S$TYPDS
STYPE
STYPEC
STYPEX
S$TYPOC
STYPON
$TYPOS

SUNIT
SUNITM
SUSWR
SVECT1
SVECT2
SXTSTR
$$GET4=
$35w08=

001102
050026
teeves |
Q46416
045706
0646120
046166
046214
046230
046170

001226
001010
001240
001264
001266
044232
000000
000052

SOFILL 046413
S$40CAT= teeeee |

= 065034

JSASTAz teeeee |
.$X
= 001000

12004
7859
8083
76064
7265
7485
7510
15478
1546
75420

12534
11894
12604
12854
12864
7128#
68554
71834
71964
72004
72220
7543«
7125

116438
11974
76604
7238
11740

M 15
MACY11 30A(1052)
19-JUN-80 13:52 PAGE 196
CROSS REFERENCE TABLE == USER SYMBOLS
6827+«
7860
8082

74554
7492
7512
8079
75494
8080

7114
7872

7166
7890

7173«
7904

7174
79084

8070
7499

8078
75044

7505

7807

75154

SEQ 0194

7179

7183

7309

7345

8081

233

2332+

2333«

2336

2356«

2357«

2358

2360

7184
71974
72104
72238
7547«
7319
116470
1262
7664
7241
N179

71854
71984
72114
7224
7557

71864
71994
72128
72254
75924

71874
720Cc
72134

71884
72014
T2V48

71894
72024
72154

71904
72034
72168

71914
72044
72178

71928
72054
T2188

71934
72064
7219&

71944
72074
72204

71954
72084
72214

11534
2247
76688

1159
2262
7669

11604
2263
76704

11628
68408
79084

11644
6863
7909

11654
68644
79164

11684
7182
7970

1174
7183
8025

11754
72864
93204

11778
7345
94254

11798
7517

CZIR6CDO RK611 DSKLS CTRL PRTZ

CIR6CD.P1I1
BYPASS
CLRMSG
CLRPSW
COMMEN
ENCCOM
ERROR

19-JUN-80 13:49

11914

11914
11914
1L
1
8614

2607
2854
3030
3163
3368
3478
3664
3920
4146
4288
4599
4841
5114

9674
9674
2405
2619
2864
3033
nn
33N
3481
3667
3923
6149
4356
46N
4905
5119

5736
6018
6284
6539
6708
"

5753
6028
6305
6551
6725
9674

5423

ESCAPE

FORERR

GETPR]
GETSWR
LOLPER
MSG

MLY

NEWTST

3704

2472

11914

1
11
11914
237048

14
3606
5315

5433

6596

9674
9674
2989
2372

974

N 15
PAGE 198
CROSS REFERENCE TABLE == MACRO NAMES

MACY11 30A(1052)

19-JUN-80

13:52

3867
2516

4030

2610
2629

2613
2637

2450
2668

2455
2688

2458
2700

2493
2718

2498
2749

2501
2762

2537
2774

2542
2792

2545
2831

2579
2836

2594
2841

6152
4376
4616
4925

6155
4379
4621
4928

6166
4391
/86
440

4229
4396
4706
6945

(232
4401
4709
4950

4235
4466
4721
4990

4238
4486
4726
4995

4256
4489
473
5007

4259
4501
4796
5010

4262
4506
4816
5074

4265
451N
4819
5094

4274
4576
4831
5097

4285
4596
4836
5109

5492

5498

5515

5527

§542

2869
3036
3174
3374
3540
3670
3926

5177

2874
3039
3236
3399
3543
3678
3929

5187

5765
6096
6315
6569
6728

5780
6102
6367
6579
6731

6673

6750

7056
22934
3079
26154

3719
2617

2889
3044
3239
3402
3546
3681
3934

5194

2894
3050
3242
3405
3549
3757
3983

5253

2899
3053
3245
3408
3568
3760
3986

5259

5790
6118
6373
6622
6734

5849
6130
6389
6625
6778

5855
6148
6402
6628
6781

3778
26608

3882
2462

3941
25034

29
3123
3266
3614
3571
3763
3989

5276

5552

5872
6158
6407
6631
6784

2370
3846
5554

2615
4009
5673

2460
6173
5792

2503
4296
5911

2550
4406
6030

2639
6516
6160

7933
5033

7988

5899
6227
6423
6651
6804

5313

56364

5373

5646

5379

5661

394
88

2641
36064

27208
3608

2722
36834

27944
3685

54354
6319

5437
64634

164
28
o4

4518

46264

4628

53154
6162

5317
63174

2794
4736
6463

2968
4846
6583

3059
4955
6660

3184
5013
6737

3305
5126

3486
5196

3498
5214

3617
5334

2621
3680

2631
4358

2427
4024

2470
4184

2514
6315

2562
4425

2651
4535

2732
4645

2808
4755

2981
4864

3073
4967

3195
5031

3324
5138

SETTRA

80704

8079

8080

8081

8082

8084

8086

8087

8088

8089

8090

8091

8092

SK1P

12
2636

2407
2690

2412
2702

24652
2712

2457
eny

2495
2751

2500
2764

2539
2776

2544
2786

2581
2N

2596
3057

2609
3181

SETUP

4392
4941

9678

9678
2670
4397
4946

2241

4468
499N

4502
4996

4507
5076

4578
5110

4612
5115

4617
5193

L7364

2720
4626
6317

2382
3861

6055

5730

6003
6277
6523
6705

8628
3698

5929

5408

5991
6270
6517
6702
7023

SCOPE

5810

5671

5974
6261
6461
6699
6813

7604
475’

5691
2429
7837

5396

2963
3155
3365
3465
3661
3840
4097

5968
6256
6451
6657
6810

7264
4647

5572
2384
9678

2960
3152
3300
3451
3658
3829
4092

5909
6243
6430
6654
6807

7243
4537

5453
11914
14

8008

5617

2957
3149
3297
3448
3601
3826
4089

7241
4427

SEXNSG
SETPR]

7959

5884
6221
6416
6648
6787

5303

2954
3146
3284
3445
3598
3823
4086

9678
4317

9674

7647

5611

2931
3132
3275
3442
3585
3820
4083

11
14
11914
14

7281

5288

2926
3129
3272
3425
3577
3N
4003

POP
PUSH
ROLOOP
REPORT

7280

2921
3126
3269
3422
3574
3766
3992

6104

9674
3683
5435

9674

SEQ 0195

4688
5312

4722
5432

‘727
5551

4798
5670

4832
5789

4837
5908

4907
6027

C2R6CD.PYY
SLASH
SPACE
SPREAD

STARS

19-0UN-80 13:4

1L
9574
11914

7919
22644

7972

3700

3863

4026

9674
9678
9674
9674
9674
9674
5216
6182
6057

6841
2286

6848

2313
6837
5336
6328
647

11914
1

1228
9674

3606
5315

3683
5435

- 3846
5554

TYPDEC
TYPNAR
TYPNUM
TYPOCS
TYPOCT
TYPTXT
WRLOOP
WRTRK
WRTRKY1
SSCMRE

1
12
I
L
19
Y 4
11914
11914
11914
11914

SSCHTM
$SESCA

SONEWT

)14

13:52

8 16
PAGE 199

SEQ 019¢

978

7850
9678

TRMTRP
TSTMEM

19-JUN-80

CROSS REFERENCE TABLE -~ MACRO NAMES

2734
1157

7826
1
80704
11914

TYPBIN

MACY11 30A(1052)

2653
9674

12
2503
3194
4296
5030
5911

6747

SWRSU

CIR6COV RKETT DSKLS CIRL PRY

2513
3305
4314
5126
5928
6818

9674

1173
2639
3497
4516
5213
6160
7225

1180
2650
3606
4534
5315
6179
7236

1193
2720
3616
4626
5333
6317
7293

3709
6844
5455

3872

4035

7768

5574

5693

5812

5931

1229

1230

1231

1232

1233

1234

1235

2370

2415

2460

2550

2639

2720

8080

8081

8082

8087

8088

2412
2702
4502
4996

2550
3323
4406
5137
6030
7034

::gg;n

gg;gz

8079

$$SKIP

11
2636
4392
4941

9674
2670
4397
4946

2407
2690
4468
4991

.EQUAT
.HEADE
KT11
.SETUP
- SWRH]
.SWRLO
SACTY
.SAPTB
<SAPTH
SAPTY
+SASTA
-SCATC
-SCATA
.$0820
.$0820
.$01V
.SE0P
.SERRD
SERRT

14
1
1
14
14
8344
14
14
14
1
14
1
11
1
1
14
14
19
14

8344
834n
8344
8340
8344
8574
8348
12430
8344
8344

857
836
967
2227
845

8344
8344

1141
119N

8344
8344
8344

6816
7291

1155
1169
7234

nn
2561
3486
4624
5196
6054

(430

4009
5673

8018

8n27

2503

8049

1242
2731
3683
L644
5435
6325
7346

4173
5792

4296
5911

4406
6030

4516
6160

2452
2712
4507
5076

2457
2717
4578
5110

2495
2751
4612
5115

2500
2764
4617
5193

8084

8086

1245
2794
3697
4736
5452
6463
7355

2370
2807
3846
4754
5554
6475

7440

2794

2381
2968
3860
4846
5571
6583

7519

2968

2615
2980
4009
«863
5673
6593

2426
3059
4023
4955
5690
6660

2460
3072
6173
4966
5792
6670

2469
3184
4143
5013
5809
6737

3059

3184

3305

3486

2621
3680
4837
5908

2631
4358
4907
6027

7596

7663

4626
6317

4736
6463

4846
6583

4955
6660

5013
6737

2539
2776
4,688
5312

2544
2786
4722
5432

2581
2791
4727
5551

2596
3057
4798
5670

2609
3181
4832
5789

8089

8090

8091

7740

5126

7755

5196

8092

)

8344
8344
8344

1917
7661

8344

7970

834#
8344

7109
7032

834n

8047

8344
834a
8344

7594
7438
7517

—

b o

b e

D e

b o

D o

T 3$T3TET 2T
TSRS
R
8 2

LSMULT
. SFOWE
.SRAND
.SRDDE
.SRDOC
.SREAD
.SR2AZ
.$SAVE
.$5820
.$5820
.$SCOP
.$SI12E
.$SUPR
.$TRAP
.$7YPB
.$TYPD
.STYPE
.$TYPO
.$40CA
1170

. ABS.

c 16
MACY11 30A(1052)
19-JUN-80 13:52
PAGE 200
CROSS REFERENCE TABLE -- MACRO NAMES

CIR6CDO RK611 DSKLS CTRL PRT3
CIZR6CD.PYT
19-JUN-80 13:49

065034

ERRORS DETECTED:

000

CZR6CD LST/CRF/SOL/NL:TOC=DSKZ:CZR6CD.SML,CZR6CD.P11T
DSKZ: CZRbCD BIN
’DSKZ
RUN-TIME:

RUN-TIME RATIO 351/190 1 8
41k
(81 PAGES)
CORE USED:

SEQ 0197