Digital PDFs

AH-9114C-MC

March 1982

190 pages

Original

10MB

view download

OCR Version

9.2MB

view download

Document:	CZR6EC0 RK611,RK06,RK07 RK611 DSKLS CTRL5 MAR 1982 bw
Order Number:	AH-9114C-MC
Revision:	000
Pages:	190
Original Filename:	CZR6EC0__RK611,RK06,RK07__RK611_DSKLS_CTRL5__AH-9114C-MC__MAR_1982_bw.pdf

OCR Text

RK611

O7
RK6
RK.O

RK611

DSKLS CTRLS
CZR6ECO

oF 1 s HISHHIEN
PIC1HE

T
TR OPRYS
Ta=nfEaf 387

WAIYYY

3001046)
4

8 1
PAGE 2

15:14

Se3 0001

'DENTIFICATION

PRODUCT (ODE:

A(=9112(-M(

PRODUCT NAME:

CIRGECO RK611 DSKLS PRTS

DATE:

AUGUST 10 1981

¥ INTAINER:

DIAGNOSTIC GROUP

A_THOR:

BRIAN LE

BLANC

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO THANGE WITHOUT
NOTICE AND SHOULD NOT BE (ONSTRUED AS A (OMM]ITMENT BY DIGITAL
FQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERROR THAT MAY APPEAR [N THIS DOCUMENT,

OO0 NP

L Ny
AL
S

Ly L

NNt e

ok|

.REN

14-SEP-B1

THE

SOF TWARE

DESCRIBED

THIS

DOCUMENT

LICENSE AND MAY ONLY BE USED OR COPIED
TERMS OF

SUCH LICENSE.

DIGITAL EQUIPMENT
THE

NOT

USE

(()

FURNISHED

UNDER

1976,1981

ITS

SGFTWARE

BY DIGITAL

IN ACCORDANCE WITH THE

CTCRPORATION ASSUMES NO RESPONSIBILTY FOR

RELIABILITY

SUPPLIED BY DIGITAL.

ON EQUIPMENT

EQUIPMENT

THAT

CORPORATION

[ Yo}

o omwe Tt
R

[
YN

JEee
ceeE

v
—m
oy
o

LI
& ]

laatan]

3:57

MACY11

14-SEP-81

30(1046)

15:14

1
c
PAGE 3

SEQ 0002

2Rl2 aE ok aF ok ol 32, 1Y VAW (VY ¥ v

£y

DD
[« X33

TABLE OF

FV T SRR TRV el EoNTo QW ¥ YW

THE

CONTENTS

1.0 ABSTRA(CT

2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 PRELIMINARY PKROGRAMS
OPE RATING PROGRAMS
3.1 LOADING PROCEDURE
3.¢ STARTING PROCEDURE
3.3 OPTIONAL SWITCH SETTING
3.4 RUN TIME

[s JENTe S W

PERATING PROCEDURES
OPE
4.1 'SOFTWARE' SWITCH REGISTER
4.2 CONTROL ( (*C) OPERATION
6.3
.5
CONTROL S (*S) OPERATION
4 .4 CONTROL Q (*Q) OPERATION

5.0 PROGRAM DESCRIPTION

6.0 ERROR REPORTING

1.0 ABSTRACT
THE

K611
mchmb

L
da]

fTRL PRTS

AND

18 BIT MODE.

DISKLESS CONTROLLER DIAGNOSTIT: PART 3
TESTS MULTI-SECTOR DATA TRANSFERS.
. TESTS MID-TRANSFER SEEKS.
. TESTS CYLINDER OVERFLOW CHECKING.
TESTS NPR TRANSFERS TO MEMORY.
. TESTS ECC ERRGR DETECTION AND CORRECTION, BOTH

TESTS WRITE (HECK BOTH
WRITE CHECK ERRORS.

NO RKk06 DRIVE

16 AND 18 BIT MODES AND FORCES

1S REQUIRED FOR PROGRAM EXECUTION.

2.0 REQUIREMENTS
2.1 EQUIPMENT
PDP-11 SYSTEM (16K CORE MEMORY)
CONSOLE TERMINAL
DECTAPE, PAPER TAPE READER, OR DECDI]SK

RK611

CONTROLLER

2.2 PRELIMINARY PROGRAMS
RK611
RK611
RK611

DISKLESS CONTROLLER DI AGNOS TiC: P ART 1 (C2 R6A)
DISKLESS CONTROLLER DIAGNOSTIC: PART 2 ((CZR6B)
DISKLESS CONTROLLER D] AGNOS TIc: P ART 3 (€2 R60D)

MACY11

30(1046)

14-SEP=-81
RK611

15:14

1
D
PAGE 4

SEQ 0003

DISKLESS CONTROLLER DIAGNOSTIC:

PART 4

((ZR6D)

3.0 OPERATING PROCEDURES
3.1 LOADING PROCEDURE
THE

PROGRAM (AN BE

LOADEL FROM PAPER

OR FROM XXDP MEDIA SUPPORTED BY XXDP.

TAPE

USING ABSOLYTE

LOADER

3.2 STARTING PROCEDURE

LOCATION 200

~ START PROGRAM

LOCATION 204

= RESTART PROGRAM

LOCATION 214

- REQUEST BUS ADDRESS,

PRIORITY MODIFICATION

YEfTOR ADDRESS, AND

S
S
JY Yt S
Py N
e
T

o POPROPNONY
—=

b s n 2 et s a s a
3 WA
2O 00 N
B W
O

3.3 OPTIONAL SWITCH SETTINGS

125

SW15
SWl4
SW13
SW12
SW11
SW10

=
=
=
-

SW9
SW8

=
=~

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

LOOP ON ERROR
LOOP ON TEST IN SWITCHES 0-7

3.5 RUN TIME
FIRST

PASS

1:40 MINUTES

SUBSEQUENT PASSES

4.0

OPERATING PROCEDURES

THE

PROGRAM

4.1

3-40 MINUTES

EXECUTED BY

"SOFTWARE'

STARTING AT

THE

APPROPIATE

SWITCH REGISTER

THE _PROGRAM IS BEING RUN ON A SWITCHLESS FROCESSOR

OR 11/34)

ADDRESS.

(I.E.,

THE PROGRAM WILL DETERMINE THAT THE KARDWARE SWIT(H

AN 11/04

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'.
PROGRAM WILL RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE
PROGRAM [S AT A HIGHER PRIORITY PROCESSING AN RKO6 INTERRUPT.,
“HE

'S0FTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

THE

PROMPT

SWR

NNNNNN

EACH

TIME

FROM

THE

SWITCH

ENTRY ROUTINE:

NEw =

SWITCH SETTINGS ARE

ENTERED,

THE ENTIRE

SWIT(H

THE

[ Xon)

(ZROECO RKO1T DSKLS CTRL PR*S
CIRGEC.P1Y
14-SEP=81 13:5

TIREELD RKOGIT DSKLS CTYRL PRTS
14=SEP-8° 13:.57
TIREEC P

MACY11

30(1046)

14-SEP-81

15:14

PAGE 5

SEQ 0004

165

REGISTER IMAGE MUST BE ENTERED.
LEADING ZEROES ARE NOT REQUIRED.
'RUBOUT' AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPINA

47
148

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE

"4l

166

149

150
151

152

153
154
155
156
157
158

159
160
161
162

163
164

165

166

O‘OO&O\OC

wB —
D o o
B
el

b ) e
D
D
D e
e
i
vl e
b - —
—h —d
ol
e
d

O ~O © 0o O 00 00 Co 0o 0o 0o 0o OO~ NN NN NN ~
NN
— OOV
NN
il [y
Lalls
(R NTe RV P N PY]~ - O 0PN

167
168
169
170

ERRORS DURING SWITCH ENTRY.
REGISTER MAY BE

IN THE

6.2

THE PROGRAM FINDS ALL

'SOFTWARE' SWIT(CH

16 SWITCHES

CONTROL

“C

‘UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE

;SOFéségE'

USED.

€

(*(C)

OPERATION

IS TYPED AT ANY TIME DURING THE PROGRAM EXECUTION THE

PROGRAM

HALTED

4.3

CONTROL

IMMEDIATELY.

A MONJTOR

PRESENT

(XXDP

(HAIN,

ACT, APT) THE PROGRAM RETURNS (ONTROL TO THE MONITOR. IF NO MONITOR
IS PRESENT, THE CPU ]S HALTED. DEPRESSING THE C(ONTINUE KEY WILL DO
A PROGRAM RESTART.

(*S)

OPERATION

IF S IS TYPED AT ANY TIME THE PROGRAM WiLL
UNTI. A CONTROL Q (*Q) IS TYPED.
4.4

CONTROL

(*Q)

IF A *S HAS BEEN TYPED,
INITIATED BY THE “S.
5.0 PROGRAM DESCRIPTION

GO INTO A STALL LOOP

OPERATION

TYPING THE

*Q CAMCELS

**MULTI-SECTOR WRITE

TEST

THE

STALL

OPERATIONS

MULTI-SECTOR WRITE

CLEAR THE RK611

PJT

THE

AND

DRIVE

(PART

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR Q0.
(LOCK THROUGH SEEK
CLEAR MESSAGES.

AND A GOOD HEADER.
TWO ECC

WORDS.

MAKE

(LOCK
SURE

SIMULATE

SECTOR PULSE

THROUGH 400 WORDS AND THE

THE

HEADER RECOGNITION

CYCLE STARTS AND THE PROPER HEADER IS SEARCHED FOR.
S?OzéREEQ SECOND GOOD HEADER AND CHECK RECOGNITION

TEST 2

MULTI-SECTOR WRITE

CLEAR THE RK611

PUT

THE

(PART 2)

CONTROLLER WITH A CONTROLLER CLtAR.

CONTROLLER

IN DIAGNOST;C MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6_IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0O, SECTOR 23.
CLOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

SIMULATE

A SECTOR PULSE

AND A GOOD HEADER, CLOCK THROUCH 400 WORDS AND THE
TWO ECC WORDS.
MAKE SURE THE NEXT HEADER RECOGNITION
CYCLE STARTS AND THE PROPER HEADER S SEARCHED FOR,
S?O&éRSEQ SECOND GOOD HtADER AND CHECK RECOGNITION

TIROECD RKEMT DSKLS CTRL PRTS
14=-SEP-B1 13:57
“IREEC.PYY

VACY11

3001046)

14~SEP-8°

15.14

F
1
PAGE 6

TEST

SEG 0005

MID-TRANSFER SEEK

CLEAR THE RK611

PUT

THE

(PART

CONTROLLER WITH A CONTROLLER (LEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 26 SECTGR FORMAT,
CYLINDER O, HEAD 0, SECTOR 25.
(LOCK THROUGH SEEK
AND DRIVE

CLEAR MESSAGES.

NI AL PO N
[AS LIS 1N 1 CT, V1,V 1,N L N, ¥) V1 81,97 .\ IS 1AV I V] nno MR AIPURL
= b
ek e d 52—
LN AN LN LN AN N N NN WO ronory nno PO
(VLI
3
N —2
OO0 NO VN ISy O 00 O NN - OO0~y

AND A GOOD HEADER.
TWO WORD

ECC.

MAKE

(LOCK
SURE

SIMULATE

A SECTOR PULSE

THROUGH 400 WORDS AND THE

THE

CONTROLLER

ISSUES

AN IMPLIED SEEK TO THE RIGHT HEAD AND CYLINDER.
MAKE SURE THE NEXT HEADER RECOGNITION PROCEEDS PROPERLY.

TEST

MID-TRANSFER SEEK

CLEAR THE RK611

PUT

THE

(PART 2)

CONTROLLER WITH A (ONTRCLLER CLFAR.

CONTRCLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 26 SECTGR FORMAT,
CYLINDER O, HEAD 2, SECTOR 25.
(LOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER, CLOCK THROUGH 400 WORDS AND THE
TWO WORD ECC.
MAKE SURt THE CONTROLLER ISSUES

AN IMPLIED SEEK TO THE RIGHT HEAD AND CYLINDER.
MAKE SURE THE NEXT HEADER RECOGNITION PROCSEDS PROPERLY.

TEST 5

MID-TRANSFER SEEK AND 24 SECTOR FORMAT
CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 23.
(LOCK THROUGH SEEK
AND DRIVE

CLEAR MESSAGES.

SIMULATE

DATA

A SECTOR PULSE

AND A GOOD HEADER.
(LOCK THROUGH 400 18 BIT WORDS
AND THE 32 BIT ECC.
CHECK THAT IMPLIED SEEK IS
ég?USSTO NEXT TRACK.
(HECK FOR PROPER HEADER RECOGNITIO
URS.

TEST

CYLINDER OVERFLOW (PART
CLEAR THE RK611

PUT

THE

CONTROLLER WITH A CONTROLLER CLEAR,

CONTROLLER

IN DIAGNOSTIC MOCE.

ISSUE

A WRITE

DATA OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,
CYLINDER 632, HEAD 2, SECTOR 25.
(LOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER.
ng gg?D ECC.
MAKE
!

TEST 7

SIMULATE

A SECTOR PULSE

(CLOCK THROUGH 400 WORDS AND THE
SURE CYLINDER OVERFLOW ERROR DOES

CYULINDER OVERFLOW (PART 2)

TIRGE(D RKO1T DSKLS CTRL PRTS
IREEC.PMY
14{=SEP=-B81 13:57

MACY1Y 30(1046)

14-SEP-81

15:14

PAGE 7

SEQ 0006

256
257
258

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

260

CYLINDER 632, HEAD 2, SECTOR 25.

259

DATA OF 401

WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

261

AND DRIVE

522

TWG ECC WORDS.

262

265
ggg
Sgg

CLEAR MESSAGES.

AND A GOOD HEADER.

MAKE

(CLOCK THROUGH SEEK

SIMULATE

SECTOR PULSE

(! O0fK THROUGH 400 WORDS AND

SURE CYLINDER OVERFLOW ERROR SETS.

**NPR WRITING OF MEMORY
TEST

10 NPR WRITING OF

27¢C

MEMORY

CLEAR RK611 CONTROLLER WITH A CONTROLLER (LEAR.

271
272
273
274
275
5;9

PUT (ONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,
CYLINDER 0, HEAD 0, SECTOR 0.
(CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 40 DATA WORDS.
VERIFY THAT THE WORDS
ARE WRITTEN PROPERLY IN MEMORY.

278

279
%%?
S%%

««FECC ERROR DETECTION/CORRECTION TESTS
TEST

284
285
286
2R7
288
289
539
92

%32

READ DATA WITH NO ERROR

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CLINDER 0O, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE ClEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND A GOOC 32 BIT FrC.
VERIFY THAT (OMMAND COMPLETES WITHOUT ERROR.

TEST 12 READ DATA WITH ONE BIT BURST ERROR

(PART 1)

295
296

CLEAR Rk611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
1ISSUE A READ DATA

298
299
300
301
202
303
ggg

CYLINDER 0, HEAD 0, SECTOR 0.
C(CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PuLSE,
A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING

297

30¢

%%g

309

310
In

OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,

A ONE BIT BURST ERROR OF A O THAT SHOULD BE A 1.
VERIFY THE COUNTING OF THE PQOSITION
REGISTER AND THE FINAL PATTERN AND POSITION INFORMATION.
MAKE SURE DATA CHECK AND CONTROLLER ERKOR SETS.
TEST

13 READ DATA W!TH ONE BIT BURST ERROR

CLEAR RK611

(PART

?2)

CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DJAGNOSTIC MODE.
ISSUF A READ DATA
OF 400 WORDS TO AN RK0O6 IN 26 SECTOR FORMAT,

il
)
B vl
b
)
il

15:14

PAGE 8

SEQ 0007

CYLINDER O, HEAD O,

AND DRIVE

SELTOR 0.

CLEAR MESSAGES.

(LOCK

THROUGH SEEK

SIMULATE A SE(TOR PULSE,

A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING
A ONE BIT BURST ERROR OF A 1 THAT SHOULD BE A 0.
VERIFY THE COUNTING OF THE POSITION

READ DATA WITH 11

CLEAR RK611

PUT

BIT BURST ERROR

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A READ DATA

400 WORDS TG AN RKOS IN 26 SECTOR FORMAT,

CYLINDER O,

HEAD O,

SECTOR 0.

(CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING
AN 11 BIT BURST ERROR.
VERIFY THE COUNING OF THE POSITI
REGISTER AND THE FINAL PATTERN AND POSITION INFORMATION.
MAKE SURE DATA (HECK AND CONTROLLER ERROR SETS.

TEST

15 READ DATA WITH 12 BIT BURST ERROR

CLEAR RK611

PUI

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A READ DATA

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 0.
C(LOCK THROUGH SEEK
AND DRIVE

CLEAR MESSAGES.

SIMULATE

A SECTOR PJULSE,

GOOD HEADER, 400 DATA WORDS AND AN ECC

INDICATING

A 12 BIT BURST ERROR.
VERIFY THE COUNTING OF THE
POSITION REGISTER.
MAKE SURE DATA (HECK, ECC HARD,
AND CONTROLLER ERROR SETS.

TFST

16 READ DATA WITH 23 BIT BURST ERROR

CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER CLEAK.

CONTROLLER

IN DIAGNOSTIC

MODE.

[ISSUE

A READ

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

SIMULATE

DATA

A SECTOR PULSE,

GOOD HEADER, 400 DATA WORDS AND AN ECC INDICATING
A 23 BIT BURST ERROR.
VERIFY THE COUNTING Of THE
POSITION REGISTER.

AND

CONTROLLER ERROR

MAKE

SURE

SETS.

DATA

(HECK,

ECC

HARD,

TEST 17 READ DATA WITH 1 BIT ECC WORD ERROR
CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK
AND

DRIVE

CLEAR MESSAGES.

SIMULATE

A SECTOR PULSE,

GOOD HEADER, 400 DATA WORDS AND AN ECC

INDICATING

A 1 BIT ERROR IN ECC WORD 2, BIT 6.
VERiFY THE
COUNTING OF THE POSITION REGISTER.
MAKE SURE DATA

14~SEP-81

OO0 NO

NN NN NN

14~SEP-81 13:5

30(1046)

N NN

TIRGEC.PTT

MACY11

i
s

(ZR6ECO RK611 DSKLS CTRL PRTH

368
3¢9
370

%;;

15:14

PAGE 9

SEQ 0008

(HECK AND (ONTROLLER ERROR SETS.

TEST 20 18 BIT NPR WRITING OF MEMORY

373

CLEAR RK611

CONTROLLER WITH A CONTROLLER CLEAR.

374

PUT CONTROLLER IN DJAGNOSTIC MODE.

%;9

CYLINDER 0, HEAD O, SECTOR 0.

375

378
379

ARE WRITTEN PROPERLY

TEST 1

385
386

387
388
%gg
39N

gg%

394
395
396
397
398
399

400
401
02
403
404
405
289

CLOCK THRGUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 40 DATA WORDS.
VERIFY THAT THE WJORD®

%g?

382
383
384

ISSUE A READ DATA

OF 400 WORDS TO AN RK(Q6 IN 24 SECTOR FORMAT,

IN MEMORY.

18 BIT READ DATA WITH NO ERROR
CLcAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER O,

HEAD O,

SECTOR 0.

18 BIT

DATA WITH D(K

C(LOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND A GOOD 32 BIT ECC.
VERIFY THAT COMMAND (OMP_ETES WITHOUT ERROR.
TEST

READ

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RK06 IN 24 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
(CLOCK THRCUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING
A ONE BIT BURST ERROR BEYOND THE 4128TH BIT OF THE SECTO
VERIFY THE COUNTING OF THE POSITION REGISTER AND THE
FINAL PATTERN AND POSITION.
CONTROLLER ERROR SETS.

MAKE

SURE

DATA (HECK AND

TEST 23 18 BIT READ DATA WITH ECH

408
409

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA

412
413

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS AND AND ECC INDICATING

410
411

414
415
2;9

OF 400 WORDS TO AN RKO6 IN 24
CYLINDER O, HEAD O, SECTOR 0.

SECTOR FORMAT,
CLOCK THROUGH SEEK

A 12 BIT BURST ERROR.
VERIFY
POSITION REGISTER.
MAKE SURE
AND CONTROLLER ERROR SETS.

THE COUNTING OF
DATE CHECK, ECC

418

419

2%?

25%

*«SPECIAL READ TESTS
TEST 24 PARTIAL

SECTOR READ

THE
HARD,

14-SEP-81

MACY1T 30(1046)

CIS6ECD RKOE1T DSKLS CTRL PRTS
"IRGEC.PIN
164=-SEP-81 13:57

14-SEP-81

13:57

14-SEP-81

15:14

PAGE

424
425
626
&L27
428

CLEAR RK&11

TEST 25

(LOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

SILO UNLOAD BEFORE HEADER ERROR

CLEAR RK611

PUT

437
438

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A READ DATA

OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
C(LOCK THROUGH SEEK

439
440
441
442
443
444
445

AND DRIVE

CLEAR MESSAGES.

A GOOD HEADER,

SIMULATE A SECTOR PULSE,

400 DATA WORDS,

AND A GOOD 32 BIT ECC.

AFTER ECC SIMULATE A SECTOR PULSE AND A BAD SECTOR ERROR
MAKE SURE THE ENTIRE PREVINUS SECTOR GETS LOADED INTO
MEMORY BEFORE BAD SECTOR ESRROR AND CONTROLLER ERROR SETS

446

**WRITE

447
448
449
450
451
452

CHECK

TESTS

TEST 26 WRITE

CHECK OF

CLEAR RK611

PUT

400 WORDS

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

CHECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

453

CYLINDER O, HEAD 0, SECTOR 0.

(LOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, THE 400 WORDS TO BE WRITE C(HECKED,

AND A GOOD 32 BIT ECC.

TEST 27 WRITE

MAKE SURE NO ERRORS SET.

CHECK WITH DCK

CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

CHECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE

466

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

A GOOD_HEADER, THE 400 WORDS TO BE WRITE CHECKED,
AND A 32 BIT ECC INDICATING A 1 BIT BURST ERROK.
VERIFY THAT THE POSITION REGISTER INCREMENTS PROPERLY

467
468
469
470
471

AND

672

479

CLEAR MESSAGES.

A GOOD HEADER, 400 DATA WORDS, AND A GOOD 32 BIT E=CC.
MAKE SURE ONLY 103 WORDS GOT TRANSFERRED TO MEMORY.

431
632
433
435
435
436

478

CONTROLLER WiTH A CONTROLLER CLEAR.

CYLINDER O, HEAD 0, SECTOR 0.

AND DRIVE

430

473
474
475
476
W77

SEQ 0009

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 103 WORDS TO AN RK06 IN 26 SECTOR FORMAT,

429

454
455
456
457
458
459
460
461
462
463
464
465

THAT

THE

CHECK THAT

TEST

30 WRITE

PATTERN AND POSITION ARE

CORRE(T.

DATA CHECK AND (ONTROLLER EKROR ARE

CHECK OF

CLEAR RK611

PUT

FINAL

18 BIT WORDS

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

SET.

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

30(1046)

CZR6EC.PTT

MACY11

CZRGECO RK611 DSKLS CTRL PRTS

(ZROECO RK6T11 DSKLS CTRL PRIS
CIRGEC.P1T
14-SEP-81 13:57

MACY11 30(1046)

14~SEP-81

15:14

PAGE 1

SEQ 0010

480
481
482

CHECK OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
(LOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,

23?

AND A GOOD 32 BIT ECC.

483

486

2gg
489
490
491
492
493
494
495
496
497
498
%gg

A GOOD HEADER,

THE

400 WORDS

TO BE WRITE

CHECKED,

MAKE SURE NO ERRORS SET.

TEST 31 WRITE CHECK OF A PART.AL SECTOR
CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MuDE.
ISSUE A WRITE
CHECK OF 1 WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINER O, HEAD 0, SECTOR 0.
(CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, TAKE ONE WORD 7O BE WRITE-CHECKED, 377 WO
NOT TO BE WRITE CHECKED, AND A GGOD 32 BIT ECC.
MAKE SURE NO ERRORS SET.
TEST

32 WRITE

CHECK ERROR

(PART

501
502
503
534
505
506
507
508
g?g

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
CHECK OF 1 WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CLINDER 0, HEAD 0O, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, AND ONE WORD OF DATA CONSISTING OF 000000
WRITE CHECKED DATA IS 000001.
MAKE SURE WRITE CHECK ERR
REPEAT USING EACH OF THE FOLLOWING CONFIGURATIONS
AS WRITE CHECKED DATA:

S11
512
513
g}g

000002
000004
000010
000020

516
g%g

TEST

33 WRITE

000040
000100
000200
000400

001000
002000
004000
010000

CHECK ERROR

020000
040000
100000

(PART 2)

519
520
521
522
523
524
525
259

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
CHECK OF 1 WORD TQO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PuLSE
A GOOD HEADER, AND ONE WORD OF DATA CONSISTING OF 177777
WRITE CHECKED DATA IS 177776.
MAKE SURE WRITE
(HECK ERROR SETS.
REPEAT USING EACH OF THE FOLLOWING

528
g%g

CONFIGURATION AS WRITE CHECKED DATA:

531
532
533
2%2

1722775
177773
1772767
177757

1772737
177677
177577
177377

176777
175777
173777
167777

157777
137777
Q77777

Ci
i

CIR6ECO RK611 DSKLS CTRL PRTS
CZREEC.P
14-SEP-81 13:57

MACY11 30(1046)

14-SEP-81

536

2%;

15:14

PAGE 12

SEQ 0011

TEST 34 WRITE

539

CHECK ERROR

CLEAR RK611

{(PART

CONTROLLER WITH A CONTROLLER CLEAR.

540

PUT CONTROLLER IN DIAGNOSTIC MODE.

543
544
545
546
547
548
549
gg?

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, AND ONE WORD OF DATA CONSISTING
OF 200000.
WRITE CHECK DATA IS 000000.
MAKE SURE
WRITE CHECK ERROR SETS.
REPEAT USING 400000 AS
SIMULATED DATA.

(LT, IV T TV IV, TV TV, T TV T TV TV YV YUV IV IV, V. TV, | Vv

VTN
AN AW
NNNNNNNNNNNO
OO O
CONANE W 2OV NOWNEWN=00 o JRNTo JV P oYV 1))

561
54¢

ISSUE A WRITE

CHECK OF 1 WORD TO AN RK06 IN 24 SECTCR FORMAT,
CYLINDER O, HEAD O, SFCTOR 0.
(LOCK THROUGH SEEK

TEST 35 WRITE

CHECK ERROR

CLEAR RK611

PUT

(PART 4)

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

CHECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
(CLOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES

A GOOD HEADER,

SIMULATE A SECTOR PULSE,

125 GOOD WORDS, AND A BAD WORD.

MAKE SURE WRITE CHECK ERROR
AND BUS ADDRESS.

EARAEARAARSS

DIAGNOSTIC MODE

SET.

CHECK WORD

COUNT

RSt RSttt
Rttt RaRasRRld]

SECTOR PULSE

I E 222282222
228220
00002202
2RRRRRRRRRRRRRRRRdR ]

THE
LIRS R20082282RRR

DIAGNOSTIC MODE

SECTOR PULSE

AR08

IS PROVIDED BY

THIS ROUTINE

RRRRRRRRR00RCSRRRRRRRRRRRisRRRRR

IMPLIED SEEK

I 2RSSR ERSRRERRRRRRRRSR022R
R
0000022222 ARRRRRRRRRR 2R

THE

CONTROLLER

THE

ROUTINE

CLOCKED

THROUGH THE

SEEK MESSAGES,

GETTING STATUS, AND CLEARING THE DRIVE. SINCE THIS REQUI
DIFFERENT COUNT FOR WRITE DATA AND READ DATA/WRITE (HECK

STARTED

LOOKS AT

(L.CS1)

THE

COMMAND

THAT

WAS

AND SETS THE CLOCK COUNT ACCORDINGLY.

579
580
gg;

AT THE END OF THE IMPLIED SEEK THE CONTENTS OF (CS1, MR1,
AND MR3 ARE CHECKED TO VERIFY THE OPERATION. ALL DISCREP
ARE REPORTED IN THE ORDER LISTED.

583
584
585
586
587

CALL:
JSR
ERROR
ERROR
ERROR

ggg

cRROR

R4 ,DISEEK
4
;CS1 MISCOMPARE ERROR
5
JMR1 MISCOMPARE ERROR
6
JMR2 MISCOMPARE ERROR

JMR3 MISCOMPARE ERRON

560

3332222222322 23 3223221333322

313 2 R

591

DIAGNOSTIC MODE READ SYNC PATTERN

i I

(PREAMBLE)

I II I I

592
593
594

MACY11

30(1046)

14-SEP-81

15:14

AAREARN

L
PAGE

SEQ 0012

RN R RANANNA AN R R RN

THE
THE

KRR AN

ANRANANARE R AR

CALL:

(S1

R4 ,DRSYNC

;MR1

CONTENTS

IN ERROR

ERROR

;CS1

CONTENTS

IN ERROR

ERROR

IS CHECKED TO INSURE

JSR

THE

255 "'0°" BITS AND 1 ""1°" BIT ARE CLOCKED THROUTH THE R
CONTENTS OF MR! ARE MONITORED TO WATCH FOR AN ERROR.

AT THE END OF THE SYNC READ,
DID NOT GET CHANGED.

L2322

AR A RANRA

AN ERROR

IS DETECTED,

PRESENT

202228R0RRRRRESR

TEST UNLESS

THE

SUBROUTINE WILL

LOOF ON ERROW

SET.

RSS2SR

SET UP TO A

RRRRRRR

DIAGNOSTIC MODE HEADER READ AND COMPARE
Dl
D ed ok
b

ARRARARASRRSSRERRSRRRRRdRdttttRetRRRARRRRRtstRRRRRRRRRRRRR
]

Yo Xo

THIS

ROUTINE

(o Yo X0 o

COMPARE

SIMULATES

THAT

IS PART OF

THE

EXPECTED HEADER

NOT

CHANGE.

THE

ALL

THREE

HEADER WORDS

READ

AND

DATA TRANSFER OPERATIONS.

CALCULATED FROM THE

CYLINDER,

TRA

AND SECTOR SPECIFIED IN THE ‘'L'' REGISTERS. THE READING O
3 WORDS IS DONE AND MR1 IS MONITORED TO INSURE IT DOES
AT

THE

END OF

THE

READ/COMPARE,

THE

CONTENTS

OF RKCS1 IS CHECKED AND THE INCREMENT OF RKDCYL AND RKDA
VERIFIED. IF THE INCREMENT IS GOOD, THE ''L'" REGISTERS AR
UPDATED TO THE NEW PACK ADDRESS IN CASE OF MULTI-SECTOR
OPERATIONS.

THE BAD SECTOR ERROR DESIRED

IS TESTED AND IF

WORDS ARE

CHANGED ACCORDING

CAN BE USED

CALL:

JSR

ERROR
ERROR
ERROR
RAAR

AR AN R AN

IT IS NON-ZERO,

TO BSEDES

TO FORCE HEADER TYPE

(BSEDES)

SWITCH

THE Z2ND AND 3RD HEADER
CONTENTS.

ERROR.

THIS

R4 ,DHDCMP

12
13
14

JERROR IN MR1
JERROR IN (S1
JERROR IN PACK ADDRESS

AR RN AANRNN RN RN

AR ANRAARRARA AR

RANRNR AR

DIAGNQOSTIC MODE GAP READ AND SYNC WRITE
IA

SRSERARRARSRRRERSRRlRR
Rl
RS
RRstRRRRRR RN

THE

READING OF

THE

FIRST

IS HANDLED

THt

GAP AND WRITING OF

IN THIS ROUTINE.

GAP BITS

ROUTINE AND

THE

ARE

PROCESSED

REMAINDER ARE

R4 ,DWGPSN

THE

SYN(

HEADER

PROCESSED HERE.

CHECK IS MADE THAT WRITE GATE CAME
AND A SINGLE ""1"" BIT IS WRITTEN.
CALL:
JSR

THE

(OR

PREAM

COMPARE

THEN A

ON AND 255 ''0'' BITS

¢
C

[ W] W}

CZROECO RK611 DSKLS CTRL PRTS
14=-SEP-81 13:57
CIRGEC.P1

CZROGECO RK611 DSKLS CTRL PRTS

CZROEC.P11T

648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665

14-SEP-81

13:57

MACY11

30(1046)

14-SEP-81

15:14

N
PAGE

SEQ 0013

ERROR

16
17

;CST
;MR1

;MR1

IN ERROR

ERROR

;CS1

IN ERROR AFTER SYNC WRITE

ERROR
ERROR

ROUTINE

CALLED:

RETURN POINT IF ERROR
NO ERROR RETURN

I ASARARRARSS

RaRRlERSs

DIAGNOSTIC WRITE
(2282

I[N READ GAP

IN ERROR AFTER RFAD GAP
IN ERROR IN WRITE SYNC(

PC.WRTRIT

JSR

IN WRTBIT

Rttt

RRRSR]

DATA AND ECC ROUTINE

RS2t RRRRRRRRRERRRRRRRRRRRaRRRRRRRRR
2]

THE

DATA

THE

QUPUT BUFFER

GENERATED AND WRITTEN,

666

667
668
669

CALL:
JSR

ERROR
ERROR
ERROR

670

671
672
673
674
675
676
677
678
679
680

JSR

IS WRITE

SIMULATED,

THE POSTAMBLE

ECC

[S WRITTEN.

R4 ,DWRITE

17
21
2

:MR1 IN ERROR IN WRITING
JECC ERROR IN WRITING
;CST ERROR AFTER WRITE

NO ERROR RETURN
ROUTINE

AND

CALLED:

PC,WRTBIT

RETURN POINT IF ERROR IN WRTBIT
NO ERROR RETURN FROM WRTBIT
L AASRRRARERSR

DIAGNOSTI.

SRSttt

MODE

READ GAP AND DATA

RdRRRRlRRRRtRRRRRsRAR

SYNC

I ASS SRR RARRSRRARRERSRRRRRaRRRRRRRRRRRRSRRRRRRRRRRRRRRRRRRRdRRR
4]

THE

READING OF

IS HANDLED

THt

GAP

AND

IN THIS ROUTINE.

READING OF

THE

SYNC

(OR

PREAM

THE FIRST GAP BITS ARE PROCESSED IN THE HEADER (OMPARE
ROUTINE AND THEt REMAINING GAP BITS ARE PROCESSED HERE.
THEN A CHECK IS MADE THAT READ GATE CAME ON

AT THE
:
CALL
JSR
ERROR
ERROR

129TH BIT OF

ERROR

32
33

ERROR
ROUTINE

JHR

¢4

R4, DRGPSN
15
;MR1
16
(ST

JMR1

2(S1

SYNL.;®
IN ERROR IN READ GAP
IN ERROR AFTER READ GAF

IN ERROR ;N READ SYNC

IN ERROR AFTER SYNC READ

CALLED:

PC,PDBIT

CE NGNS OB CRRGSRERENNRNROREROCVNERADNQAERUNPHOROTORORBOLRDPE
DO S

JAN

WEAD DATA DR DIAGNOSTIC WRITE

(MEIK ROUT IME

30(1046)

14=-SEP-8'

'S:74

(AR AR A

B ¢
PAGE 5
AR R

SEQ 0014

AR AR

THIS

THE
ARE

ROUTINE

DATA.

FIRST
TO BE

USED

2Rl

SIMULATE

THE ROUTINE WILL
WORD AFTER THE
TRANSFERRED.

THE

READ

]

OR WRITE

(HE(CK

TRANSFER A FLLL OR PARTIAL

CALL

SPECIFIES

SEC

HOW MANY WORDS

[F LESS THAN A FULL SECTOR, THE ECC AT THE END
OF THE TRANSFER IS NOT CHECKED. THE ECC IS CHECKED AT
EACH BIT ]S TRANSFERED.

EITHER 16 OR 18 BIT WORLTM (AN BE SIMULATED
DEPENDING ON THE STATE OF .rMT BIT IN L.CS1. IF 18 BITS
ARE REQUIRED, BITS 16 AND '7 ARE ASSUMED TO BE ZERO.
THE

CONTENTS

_OCATION ECPOSX MUST BE

LOADED WITH

THE

COUNT EXPECTED AT THE END OF THE DATA TRANSFER. THIS
LOADING MUST OCCUR BEFORE THE ROUTINE IS CALLED.

ANOTHER LOCATION,
TO BE

CORRECT

AND

ECPATX,
SET

A 3RD LOCATION, ECCSRC,

IS SET
IF

TO O

AN ERROR

SPECIFIES

THE ECC

IS EXPE

IS BEING FORCED.

THE SOURCE OF

THE ECC(

WORDS TQ BE USED IN CHECKING THE OPERATION. [F £CCSRC IS
1, THE ECC WORDS FED INTO THE DECODER ARE TAKEN FROM THE

LAST TWO L OCATIONS OF OBUFF, IF ECCSRC IS O,
Efic WORDS FROM ECCHI AND ECCLO ARE USED.
LL:
JSR
R4 ,DREAD
LENGTH OF TRANSFER

THE COMPUTE

ERROR 34
ERROR 35
ERROR 36

;MR1 IN ERROR READING DATA OR EC(C
;JECC ERROR READING DATA
;CS1 ERROR AFTER READING DATA OR F1(

ERROR 4/
ERROR 43

JERR IN ECC PAT CALCULATION
JERR IN ECC POS COUNTING

ERROR 41

JECC REGISTER

INCORRECT AFTER READ ECC

R4 ,DWRT(CK
JSR
LENGTH OF TRANSFER

ERROR 53
ERROR 54
ERROR 55

;MR1 IN ERROR WRITE CHK OR EC(C READ
JECC ERROR IN WRITE CHECK
;(S1 ERROR AFTER IN WRT (HK OR ECC READ

ERROR 41

JECC REGISTER

ERROR 43

;ERR IN ECC PO5 COUNTING

ERROR 42

ROUTINES CALLED:
RDBIT

ECCGEN

INCORRECT AFTER READ ECC

;ERR IN ECC PAT CALCULATION

[V
Y )

EP-81 13:5°

WMACYYY

S CTRL PRTS

760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776

777

778
779
780

14=-SEP-81

13:57

30(1046)

14-SEP-81

15:14

PAGE

SEQ 0015

(242 RARAAAAAREEEARRRSRERRERRERR
AR ER AR
Rl RRRRRRsRRlEl R d ]

GENERATE

ECC WORD

RN AN

E AR AN RN NARR AR

ANARRANRARRAN AT OEAAOARLTREN

EACH TIME THIS ROUTINE IS CALLED THE ECC IS CALCULATED f
NEXT BIT TO BE READ OR WRITTEN AND THE BITS PREVIOUSLY
READ OR WRITTEN (STORFD IN ECCHI AND ECCLO). THE RESULTS
THE

CALCULATION ARE

BITS OF

TO RKECPT.

CALL:
RETURN:

ECCHI

JSR
RTS

ARE

PLACED

IN ECCHI

AND ECCLO.

IN E.ECPTTM

THE

LOW O

FOR EASY (OMPARISO

PC,ECCGEN
R4

(A2 AR RARRRAAARRRRRSRR0RERRRRiRRttRiRlRRRR
R Rl N

SIMULATE ONE BIT OF
(A S

WRITE DATA

[N MAINTANENCE MODE

ARRAARASRARRSRRARRSRRRRRRRRARRRERRRRRRERRRRttRtRitRsRtRRRRRlR

5855

ONE BIT OF DATA IS WRITE SIMULATED. THE CONTENTS OF
RKMR1 IS COMPUTED (PRECOMP ADVANCE AND DELAY, MAINTENANC
ENCODED WRITE DATA) FOR THE PROPER TRANSITION OF THE
MAINTENANCE CLOCK AND CHECKED AT EACH TRANSITION. IF MR1
IS INCORRECT AT ANY TRANSITION, AN ERROR IS SET UP TO
CONTAIN A MESSAGE THAT IDENTIFIES THE TRANSITION WHEN TH

781
782
783
784
785
786

ERROR OCCURRED.

CALL:
RETURN:

787
788

789

790
791
792
793
794
795

ARG

JSR
RTS
RTS

SRRl

SIMULATE

PC,WRTBIT
PC+2
PC

FOR NO ERROR RETURN
FOR ERROR

sttt

ONE BIT OR READ DATA

[N MR1
RRR

IN MAINTENANCE MODE

LAASERARARSRRERRRSSRRRRRRRRRRRRRARRRRRRRRRRRRSRRRRRRRRRRRRRdAR])

ONE BIT OF DATA IS READ SIMULATED.
DONE BY THIS ROUTINE.

796

797
798
799

CALL:

RETURN:

I ARARAARASARE

MEMORY

JSR

RTS

NO CHECKING

PC,RDBIT
PC

SRS RRRRRRR22220RRRRARRRRARRRRRRRARRRRRRR
DDA

CHECK ENABLE

TRAP

(3202222

R2R22R2RRRRRRRRRRRARRRRRRRRRRRRR

)

IF THE PROCESSOR IN USE HAS MEMORY FARITY OPTION,
IT WILL BE ENABLED. THIS ROUTINE WILL PROCESS TRAPS CAUS
BY MEMORY PARITY ERRORS.
|

AR E

(LEAR

ARt

RRE R

INPUT BUFFER

28822382 RRRRRRRRRRRRRRRRARRRRRRRRRARRRRRRRRRRARRRRRRRRRRRR
R

I A2

A0SR RARRRRARRRSRARRSRESRRRARRdRRARSRRRRRRRRRRRRRRE
S

BUILD DATA BUFFER
| 3232202220022

RRRRSR

RSl

RS2

RRRRR

Yoo

TIRGEC.P1

MACY1T

CIREF(O RKO1Y DSKLS CTRL PRTS

(ZROE(O RKGT1T DSKLS CTRL PRTS
TIRGEC.PN
14=SEP=-81 13:5°

MACY11 30¢1046)

14<~SEP-81

15:14

816

817
818

g;g
821

822

PAGE 17

SEQ 0016

THE PATTERN SPECIFIED IN THE CALL IS 1 QADED INTO THE DAT
BUFFER. THE ENTIRE BUFFER IS ALWAYS LOADED (400(8) WORDS

2222

LOAD "'L'" REGISTERS

[ X

823
824
825

Y 2

AND L.CS1

828
829
830
831
832
833
834

CALL:
JSR
.WORD

837
838

RETURN:
RTS

843

AR RS

THE

X )

2222222222232

GET

I E 22

THE

RK611

22 AR R

RN AN AR A TN RN RE RN

222222

IN A STARAIGHT

2 R R R

R XSRS 22 S R

ALL

02X

REGISTERS

SRR

COMMAND.

22X

22222227

INFOKMATION IN THE "‘L'' REGISTERS ARE LOADED INTO THE

RK611

ggz

X222

THE RK611

AR 22

TRANSFER.

R
Rs R

R R R R S R

X222 22222222228

REGISTERS EXCEPT THE DATA BUFFER ARE

STORED IN THE ''T'" REGISTERS.

855

AR AR R

856

"'FIRST SHALL BE LAST, LAST SHALL BE FIRST'' SUBROUTINE
PR

TR RN AR AN R AR AR AN RN

NN R R R

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

R AR A R RN R RN R R R RN R RN R AR A RN RANRNARA NN

858
859

THE

CONTENTS OF

BECOMES BIT O AND VICE VERSA,BIT

863
864
ggg

CALL:
JSR
R4 ,FSBLVV
WITH R3 LOADED WITH THE WORD TO BE

867
868
869
870

RE TURN:
RTS
R4
WITH R3 SWAPPED.

gg;

SRS

ARS

SRR

AND

VICE

VERSA,

ETC.

ERNRRA N OY

ENRNNENRRES

IS SWAPPED END FOR END,

860

871

R )

; COMMAND ,FORMAT ,DRIVE TYPE ,BUPPER BUS AD

5222822322223 23 32222332

851
852

857

JSECTOR
s TRACK
;BUFFER ADDRESS
;WORD COUNT

THE OPERATION

gzg

850

XSRS SRR

AR R AR R R RN RN R AR R AN I AR RN RN T AR R AR AR A RN AN

START

845

849

IS LOADED WITH THE

.WORD

844

343

R4, LOADRK
CYLINDER

.BYTE
.BYTE
.WORD
.WORD

g%g

842

R R

THE ''L'" REGISTERS ARE LOADED FORM THE PARAMETERS FOLLOWI!
THE SUBROQUTINE CALL. DIAGNOSTIC MODE IS SET [N L.MR®

ggg

80
821

Y Y I

[.E. BIT

14 BECOMES BIT

SWAPPED

RARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRARRRR2RRR

Cq
ri

CJR6ECO RK611 DSKLS FTRL PRTS

CZROEC.PN
872
873
874

14-SEP=-87 13:57

MACY1T

30(1046)

14-SEP-81

15:14

PAGE

C(HECKX FOR MEMORY (HECK ENABLE
I AR R

A0SR 2222220222
R
X22RZER 2R

SEQ 0017

NLIST

167400

000001

REV

004

F
2
PAGE 19

SE. 0018

nex

CND,MD
MC

ME
ABS,AMA
167400
1

TITLE
CZR6ECO RK611 DSALS CTRL PRTS
;*COPYRIGHT (C) 1976,1981
;*DIGITAL EQUIPMENT CCRP.
'MAYNARD MASS. 01754

TEGROTENHUIS

Wawaewe

SBYTL

895
896
897
898
899
960
901
902
903
904

3BTTL

00*10C

000011
000012
000015
000200
177776

177774
177772
177570
177570

000600
000001
000002
000003
000004
000005
000006
000007

OPERATIONAL

.EQUIV
.tQUIV

SYSMA(

SWITCH SETTINGS

SWITCH

USE

5
4

HALT ON ERROR
LOOP ON TEST

ABORT PROGRAM AfTER 20 ERRORS

INHIBIT ERROR TYPEOUTS

INHIBIT JTERATIONS
BEL! ON ERROR
LOOP ON ERRCR

LOOP ON TEST IN SWR<7:0>

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

STACK=

MAINDEC

1100

EMT,ERROR
JOT,SCOPE

THE STACK POINTER *x+ 1700 #we
;:BASIC DEFINITION OF ERROR CALL
:.BASIC DEFINITION OF

SCOPE

CALL

tMISCELLANEOUS DEFINITIONS

HT-

LF=

(R=

CRLF=

12
200

PS=
.EQUIV

177776
PS,PSW

PIRQ=

177772

DDISP=

177570

STKLMT= 177774

DSWR=

177570

*GENERA&OPURPOSE

RO=

;.CODE FOR HORIZONTAL TAB
;.CODE FOR LINE FEED
;. CODE

FOR CARRIAGE

; PROCESSOR STATUS WORD

5 STACK LIMIT REGISTER

. :PROGRAM INTERRUPT REQUEST
; ;HARDWARE SWITCH REGISTER

. HARDWARE

DISPLAY REGISTER

:;GENERAL REGISTER

R1=

;. GENERAL

R&4=

; ;GENERAL REGISTER

R2=
R3=
RS=

R7=

%2
%3
%5

%16

RETURN

;. CODE FOR CARRIAGE RETURN-LINE FEED

; ;GENERAL REGISTER
: :GENERAL REGISTER
;:GENERAL

;;GENERAL REGISTER
; :GENERAL REGISTER

15:14

'THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11
-PACKAGE (MAINDE(C-11-DZQAC-C5), JUAN, 1981.

891
892
893
894

O O OO OO OO OO 000V OVO0
D et ad
ik
no noruNLNUNLRLMNY [AV1,\V) —d
O [0 B NTo RV, PoYW,V -0 N OO NOMN
BN

LLIST
.ENABL
$SWR=
$TN=

14~SEP-81

-PROGRAM BY MARV

889
890

930

=xx

;

ill'l’."l’l

875
876
877
878
879
&80
881
R82
883
884
885
886
887
888

30(1046)

[
YN

CIRSECO RKE11 DSKLS CTRL PRTS
14-SEP-B81 13:5°
TIRGEC.P11

MACY11

931

000006

SP=

15:14

6 2
PAGE 20

SEG 0019

::STACK POINTER

g%%

000007

P(C=

934
935

000000

;*PRIORITY LEVEL
PRO—
0

937

000100

PR2=

947
948
949

100000
040000
020000
010000
004000

:*"'SWITCH REGISTER'' SWITCH DEFINITIONS
Swis=
100000
SWl4é=
40000
Sw13=
20000
Swie=
10000
SWil=
4000

951
952
953
954

001000
000400
000200
000100

SW09=
SW08=
Swi0?=
SW06=

1000
400
200
00

956
957
958
959
960
961
062
963
964
965
966
667
968
969
g;?

000020
00010
000004
000002
000001

SW04Sw03=
SwQ2=
Swo1Sw00=
LEQUIV
LEQUIV
LEGUIV
LEQLIV
LEQUIV
LEQUIV
LEQUIV
LEQUIV
LEQUIV
LEQuUIV

20
10
4
2
1
Sw09,SwW9
SWw08,Sw8
SWO07,SW7
SWO06,SWw6
SW0S5,SwWS
SW04,SWé
SW03,SwW3
SW02,SW?
SWwO1,SW!
Sw00,SwW0

936
938
939
940
941
32%

G464
945
946

950

955§

000040

000140
000200
000249
000300
000340

002000

PR1=

PR3=
PR4=
PRS=
PR6=
FR7=

140
200
240
300
340

SWi10

: :PROGRAM COUNTER
DEFINITIONS
:;PRIORITY LEVEL O

109

Sw05=

972
973
974

100000
046000

;*DATA BIT DEFINITIUNS
BIT15=
100000
BIT14=
40000

976

010000

BIT12=

977

978
979
980
981
982
983
984
G85
98¢

020000

004000
002000
001000
000400
000200
000100
000040
000020
000010
000004

:;PRIORITY
:;PRIORITY
::PRIORITY
::;PRIORITY
:;PRIORITY

3
4
S
6
7

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

8IT13=

20000

B!T11=

4000

BIT10=
BIT09BITO8=
BIT107=
BITO6=
BITOS5=
BITO4=
BIT03=
BITO2=

2000

000040

975§

;:PRIORITY LEVEL

::PRIORITY LEVEL 2

10000

2000
1000
400
200
100
40
20
10
&

(BIT00 TO BIT1S5)

[

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

C2ROGECD RKE61T DSKLS CTIRL PRTS
CIR6EC.P11T
14=SEP=-81 13:5

TIRGEC.PN

14-5EP-81

987

000002
C0000:

988
989
990

LEQUlv

.EQulv
LEQuUIv
.EQUlv
EQUIv
tQulv
EQuUlv

995

NN -2 D
NN
= OV
NN

b
el
D
emd
i
id
el
d ed
d e
—d ad

O OCOOOOOOODOOOO0O
n) PONUND) = D ad ed eed i) ad ecd b

1009

BIT01=
BITO0=
.EQulv
.EQUIV

.EQUlv

991
992
993
994

996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008

13:5°

14-SEP=81
VACY11 3 001046 )
3ASIC DEFINITIONS

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

15:14

H 2
PAGE 21

SEw 0020

2
1
B8IT09,B]19
BIT08,RIT8

BIT07,BIT7
BIT06,BITE
BIT0S5,.BITS
BIT04,BITS
RITO3,BIT3
BIT0Z2.BIT?
BIT01,BIT1
B8IT00,BIT0

;*BASIC ''CPU'* TRAP VECTOR ADDRESSES

ERRVEC= &
RESVEC= 10

::TIME OUT AND OTHER ERRORS
RESERVED AND ILLEGAL INSTRUCTIONS

BFTVEC= 14

,.BREAKPOINT

PWRVE(C= 24

:;POWER FAIL

TBITVEC=14
TRIVEC= 14

10TVEC= 20

EMTVEC= 30
TRAPVE(C=34

TKVEC=
60
TPVEC=
64
PIRQVE(=240

.SBTTL

BI7
YRnCE TRAP

TRAP (BPT)

;o INPUT/0UTPUT TRAP (I0T)
;:EMULATOR TRAP
::"'TRAP'' TRAP

MEMORY MANAGEMENT DEFINITIONS

MMVEC=

250

J*KT11

STATUS REGISTER ADDRESSES

SRO=
SR1=

177572
1727574

SR3=

172516

SR?2=

177576

J*KERNEL ''I'" PAGE DESCRIPTOR REGISTERS

KIPDRU=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
K!PDRS=
KIPDR6=
KIPDR7-

172300
172302
172304
172306
172310
172312
172314
172316

J*KERNEL ''I'" PAGE ADDRESS REGISTERS
KIPARO=
KIPAR1=
KIPARZ2=
KIPAR3=

172340
172342
172344
172346

««fERRQRw»

2.TTY KEYBOARD VLCTOR
::TTY PRINTER VECTOR
;. PROGRAM INTERRUPT REQUEST

;*KT11 VECTOR ADDRESS
000250

(EMT)

=«SCOPEws

VECTOR

(ZROECO RKE1T DSKLS CTRL PRTS

14-SEP-81

MEMVE
(
MEMBAS
WR.PAR

000001
000003
000005
000007
000011
000013
000015
000017
000021

000023
000025
000027
000031
000300

1097

000001
000100
0002€0
G00400
001000

PARITY

VECTOR

;MEM PARITY OPT]ON

120210
b
1774640

;DEFINE RK&11
JDEFINE RK611

;ENABLE PARITY ENABLE

VECTOR ADDRESS
PRIORITY

;DEFINE BASE OF RK611 REGISTERS

.SBTTL

RK611

RK(S1=

0
l

;CONTROL AND STATUS REGISTER
;WORD COUNT REGiSTER

6
10

;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2

RKW(=
RKBA=
RKDA=

RK(S52=

RKDS=
RKER=
=
RKASOF
RKD(YL=
RKDR=

CONTROLLER REGISTER DEFINITICN

;BUS

12
14
16

0
24
RKMR1=
26
RKMR2=
34
RKMR3=
36
RKE(OS= 30

JECC PATTERN [NFORMATION
s SPARE REGISTER

LSBTTL

DRIVI

SELDRvV=

CLEAR=
UNLOAD=
SRTSPL=

RECAL=

OFFSET=
SEEK=
RDDATA=
WRDATA=
RDHEAD=
WRHEAD=
WRT(HK=
INTR=

<
COMMANT

sSELECT DRIVE

sPACK ACKNOWLEDGE

;DRIVE CLEAR
sUNLOAD
sSTART SPINDLE
JRECALIBRATE

;OFFSET
;SEEK

;READ DATA
JWRITE DATA

;READ HEADER

JWRITE
sWRITE

CONTROL AND STATUS REGISTES 1

60~
lE=

BITO
BITé
BIT7

RDY=

BA16=
BA17:=

BIT8
BIT9

HEADER AND DATA
CHECK

sGENERATE INTERRUPT TO (PU

SBITL

sDESIRED CYLINDER REGISTER
;DATA BUFFER
JMAINTENANCE REGISTER 1
JMAINTENANCE REGISTER 2
JMAINTENANCE REGISTER 3
JECC POSITION INFORMATION

RKECPT= 32
Ri SPAR= 22

PACK=

ADDRESS

;DRIVE STATUS REGISTER
;ERROR REGISTER
JATTENTION SUMMARY AND OFFSET

NN —

000026
000034
000036
000030
000032
000022

;MEMORY

;WRITE BAD PARTTY

WA =

000000
000002
000004
000006
000010

000012
000014
000016
000020
000024

1098

SEQ (021

177440

PAR.E N
AVECT 1
APR]O R
ABASE
=

114

172100

Q=2 N\NIN =

olo RNTo JV PYVIT,V}

(VAL
VIV, IV VIV

d
B
d
e
e
e
—

QOOOCOO0OO

1047

1095

= ©72350
KIPAR4
K ]PARS
172352
172354
K IPARG
KPAR?
172356

1043

1044
1045
1046

1094

13:57

164-SEP-B1
30(1046)
15:14
PAGE 272
MEMORY MANAGEMENT DEF INITIONS

WWAWNININVN)
2 2 =2 2 OO C O

TZRG6EC.P1

MACY11

BITS

;GO BIT

JINTERRUPT ENABLE
;CONTROLLER READY
;BUS ADDRESS BI7 16

;BUS ADDRESS BIT 17

[ Y o
~N~a

CZR6ECO RK611 DSKLS CTRL PRTS

1099

004000

(70=

BITi0

1102
1103

012000
020000

(FMT=
SPAR=

BIT1?
BIT13

1105
}]8;

100000
100000

CERR=
CCLR=

BIT1S
BIT15

1100
1101

1104

002000

040000

Dl=

BITY1?

BIT14

)

SEQ 0022

JCONTROLLER DRIVE

TYPE

(0-RK06)

;CONTROLLER TIMED OUT WAITING FOR
;

DRIVE RESPONSE

;JCONTROLLER DRIVE FOPMAT (0=26 SECTOR, 1=24 SECTOR)
sDRIVE BUS PARITY ERROR DETECTED BY (ONTROLLER
sDRIVE

INTERRUPT

s CONTROLLER ERROR
sCONTROLLER CLFAR

1}88

.SBTTL

1110
1N

000007
000010

1113
1114
1115
1116
1117
1118
1119
1120
1121

000040
000100
000200
000400
001000
002000
004000
010000
020000

}}Sz

100000

1112

1122

WwCE=

BIT14

000040
000100

DLT=

BIT15

;BUS ADDRESS

BITO
BIT1

DIYE=
ECH=

BITS
BIT6

000200

BSE=

HVRC=
(OE=
IDAE=
WLE=
DTE=
OPI=
UNS=
DCK=

BI17

BIT8
BIT9
BITIQ
BITN
BIT1?
BIT13
BIT14
BIT15

sNON-EXECUTABLE DRIVE FUNCTION
;DRIVE DETECTED DRIVE BUS PARITY ERRCR
;FORMAT ERROR

:DRIVE TYPE ERROR
sECC HARD
;BAD

SECTOR ERROK

JHEADER VRC ERRROR
;CYLINDER ADDRESS OVERFLOW ERROR
s INVALID DISK ADDRESS ERROR
JWRIiTE LOCK ERROR
;sDRIVE TIMING ERROR
;OPERATION (SEARCAH) INCUMPLETE
;DRIVE UNSAFE
;DATA (HECK

STATUS REGISTER B'T DEFINITION

000001

DRA=

BITO

000004

OFST=

BIT?

ACLO=
SPDLSSDROT=
Vv=
DRDY=
DDT-

BIT3
BIT4
BITS
BITé
BIT?7
BIT8

DRIVES

sILLEGAL FUNCTION CODE
JSEEK INCOMPLETE

.SBTTL

000010
000020
000040
000100
000200
000400

INHIBII

;DATA LATE ERROR

IcFSKI=

BIT2
BIT3
BIT4

INCREMENT

;WRITE CHECK ERROR

ERROR REGISTER BIT DEFINITION

NXF =
DRPAR=
FMTE=

000400
001000
002000
004000
010000
020000
040000
100000

BITS
BITé
BIT7
BIT8
BIT9
BIT10
BIT11
BIT12
BIT13

.SBTTL

000004
000010
000020

}122

1149
1150
1151
1152
1153
1154

;CLEAR CONTROLLER AND ALL
; INPUT READY
;OUTPUT READY
JUNIT FIELD ERROR
JMULTIPLE DRIVE SELECT
;PROGRAMMING ERROR
JNON-EXISTENT MEMORY
NON-EXISTENT DRIVE
JUNIBUS PARITY ERROR

040000

1132
1133

1146
1747
1148

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

BITé

000001
000002

1134

sMASK FOR DRIVE SELECTION CODE
;DESELECT OR RELEASE DRIVE IN BITS 0-2

BAl=

1127
1128

1135
1136
1137
1138
1139
1140
1141
}}2%

DRVMSK= 7
RLS=
BIT3

000020

1}52

1129
1130
11N

CONTROL AND STATUS REGISTER 2 BITS

;DRIVE AVAILABLE (CONTROLLER
s
THIS BIT IS RESET)
;DRIVE OFFSET

JAC LOW
;SPEED LOSS
sDRIVE OFF TRACK
;VOLUME VALID
;DRIVE READY
;DRIVE TYPE (0=Rx06)

!5 SET

Lo
[ V]

J 2
MACY11 30(1046)
14~SEP-81
15:14 PAGE 23
CONTROL AND STATUS REGISTER 1 BITS

e X

CIRGE{D RK6E1T DSKLS CTRL PRIS
TIRGEC.P1
14=SEP-81 13:57

14=-SEP-81 13:5

MACY11

30(1046)

14=SEP=-81

15:14

PAGE 24

STATUS REGISTER BIT DEFINITION

004000

WRL =

BIT11

JWRITE LOCK

100000

SvAL=

BIT1S

;STATUS VALID

020000
040000

PIP=
DSC=

BIT13
BIT14

;POSITIONING IN PRGGRESS
:DRIVE STATUS CHANGE

SEQ 0023

~N~a

0 RK611 DSKLS CTRL PRTS

(@I XVeXVe e RVeRVe X0 IV RV o RVe XVo o Yo + Yo oYo Jo o To Yo Yo Yo oJo Vi N RN I VENENENENENENTo oo XoaYe Yo Yo Yo Yo Yo Yo V. |
SOV
NN
W
2O VBN
WA =2OVONO NS W
—=2OVO N NS W
2O Y

D
D o
b

D e

e o e

) ed e
D
D

e R S

b e

MAINTENANCE REGISTER 1 BIT DEFINITION

000020

PAT=

BIT4

;FORCE

000100
000200
000400
001000
002000
004000
010000
020000
040000

MSP=
MIND=
MCLK=
MERD=
MEWD=
PCA=
P(D=

BITé
BIT?7
BIT8
BIT9
BIT10
BIT11
BIT12

JMAINTENANCE SFCTOR PULSE
JMAINTENANCE INDEX
JMAINTENANCE CLOCK
JMAINTENANCE ENCODED READ DATA
sJMAINTENACNE ENCODED WRITE DATA
;PRECOMPENSATION ADVANCE
sPRECOMPENSATION DELAY

DMD=

ECCW=_

BITS

000000

EVEN PARITY ON DRIVE MESSAGE

sDIAGNOSTIC MODE

BIT13

LINES

JECC WOKRD IS BEING READ OR WRITTEN

WRTGAT= BIT14
RDGATE= BIT15

)
b

e
D

d e

i e e R

D mnd

JWRITE GATE
JREAD GATE

.SBTTL

TRANSMITTED MESSAGE A

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

BIT4
BITS
BIT6
BIT7
BIT8
BIT9
BIT10
BIT11
TRAP CAT(CHER

; SEEK COMMAND
JRECALIBRATE COMMAND
;START SPINDLE COMMAND
;DRIVE RETURN TO CENTERLINE COMMAND
;CLEAR ERROR AND DSC
;FORMAT
;UN_OAD
;SET VOLUME VALID (PACK ACKNOWNLEDGE?

.=0

J*ALL UNUSED LOCATIONS FROM 4 - 776 (ONTAIN A "' 42 HALT"

J*SEQUENCE
000174
000176

000200
000204
00C214

TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION OLCONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

000137
000137
000214
000137

DISPREG: .WORD
002400
002370

002360

SWREG:
.SBTTL

.SBTTL
DE

000046
000052

000114
000116

000220
000046
023276
000052
000000
000220
000114
031726
000340
001000

.WORD
0
STARTING ADDRESS(ES)

JMP
JMS1‘

JMP

ACT11

@#START
RESTRT

PARM

HOOKS

. :SOF TWARE DISPLAY REGISTER
1S0"TWARE SWITCH REGISTER

;;JUMP TO 5TARTING ADDRESS OF PROGRAM
. UMP TO RESTART ROUTINE

<JJUMP TO OPERATOR ASSIGNED PARMLTFRS

SLE 28NS RRRdRRs0ddRRRRRRRRRERERRRRRERRRRRSS

*HOOKS REQUIRED BY ACT11
sszzc=.

:SAVE PC

§E§8AD

;:1)SET LOC.46 TO ADDRESS Or SENDAD IN .$ECP

"WORD

T=$SVP(
T =MEMVE

MEMERR

PR7

.~1900

;:2)SET LOC.52 TO ZERO
**“RESTORE P(

(2 Nan)

SEQ 0024

JMESSAGE MASK

000020
000040
000100
000200
000400
001000
002000
004000

e e

e
b

MESMSK= 17

106000

D
D
d
)
d

15 114
PAGE 25
30(1046)
14-SEP-81
STATUS REGIST ER BI T DEFINITION

000017

000040

R i S g

D
) ad
d

I SR R

ed
)
b

MACY11

.SBTTL

)

TM )

0 0

ECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
EC.P1

(AT, 2 & P

9
(Z

0 RK611 DSKLS CTRL PRTS
L1
14~SEP-81 13:57

MACY11

30(1046)
14-SEP-81
15:14
APT PARAMETER BLOCK
.SBTTL
A

PAGE 26

SEQ 0025

APT PARAMETER BLOCK

32222222022 RRRRRRARiRRRRRstRRRRRRRRRsRRRR
R
RRRR2 4]

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

SR AR RRRRRRRRARRRRRRsRRRRtlttR
it
s
iR

000024
000044

001000
000024
000200
000044
001000
001000

L8X=.
. =24
200
L
$APTHDR
.=.8X

;o SAVE CURRENT LOCATION
;.SET POWER FAIL TO POINT TO START OF PROGRAM
;.FOR APT START UP
;.POINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER

2242882280202

;SETUP APT PARAMETER BLOCK AS DEFINED

JINTERFACE

001000
001000
001002
001004
001006
001010
001012

000000
00C1250
000132
001604
000144
000030

$SAPTHD:
$HIBTS:
$MBADR:
£TSTM:
$PASTM:
$UNITM:

SPEC.

.WORD
.WORD
_WORD
_WORD
_WORD
.WORD

RRRRRRRRRRR])

IN THE APT-PDP11

DIAGNOSTIC

0
;. TWO HIGH BITS OF 18 B:T MAJLBOX ADDR.
$MAIL
. ;ADDRESS OF APT MAILBOX (BITS 0-15)
90.
;;RUN TIM OF LONGEST TEST
900.
;.RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
100.
; cADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND~SMAIL/2 ;;LENGTH MAJLBOX~ETABLF (WORDS)

NN = OV~

PAGE

SEQ 0026

COMMON TAGS
TABLE

CONTAINS

:+USED IN THE PROGRAM.

000000
000000
000000
000000
000000
000000
000000

$REGO:
$REGT:
$REG?Z:

$REG3:
$REGS:

$REGS:

$REGE-

$REG/:
$TMPO:
s$TMPT
$TMP.:
$"MP3:
$TMPG:

$ TMPS:

§$TMPG:

§ T

0C122¢

uCOCdn

$ -

.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
Y]]
.WORD

.WORD
. WwORD
. WORD
. WORD
LW RD
.w R

;. CONTAINS
;. CONTAINS
;. CONTAINS
;s CONTAINS
;s CONTAINS
;s CONTAINS
;s CONTAINS
.. CONTAINS
;s CONTAINS
. CONTAINS
;. CONTAINS
;o CONTAINS
;. CONTAINS

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

ADDRESS OF °'GOOD' DATA
ADDRESS OF ‘'BAD' DATA
'GOOD' DATA
°'BAD' DATA

;;RESERVED=--NOT

TO BE

USED

;oAUTOMATIC MODE INDICATOR
;. INTERRUPT MODE INDICATOR
£
o

o [elelelelelaoleololelel doleololelelelele)

.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOR: .BYTE
$INTAG: .BYTE
.WORD
S4R:
.WORD
DISP_AY: . WORD
177560
$TKS:
177562
$TKB:
177564
$TPS:
177566
$TPR:
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC:
$TPFLG: .BYTE
$REGAD: .WORD

LOCATIONS

;;START OF COMMON TAGS

DDISP

;JADDRESS OF SWITCH REGISTER

;;ADDRESS OF DISPLAY REGISTER
J:TTY KBD STATUS
;:TTY KBD BUFFER
;:TTY PRINTER STATUS REG.
::TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

;;CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED

;2 CONTAINS ((SREGAD)+()
;2CONTAINS ((SREGAD)+?2)
;:CONTAINS ((SREGAD)+4)
+6)
((SRFGAD)
;JCONTAINS
$SREGAD) +10)
::CONTAINS
((SREGAD)+1?2)
;JCONTAINS
((SREGAD)+14)
;JCONTAINS
((SREGAD)+16)
;o CONTAINS

~No

(oSN o NV, IV, TV, 0 TV, TV, I N0 L o
N
ONOWVMENOONSN

0
000000

.WORD
.BYTE

COMMON STORAGE

OO—MNO

001130

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
SERTTL:
$ITEMB:
SERMAX:
$ERRPC(:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

.=1100

VARIOUS

DO00CO0O00O

000000
000
000
000000

$CMTAG:

MIOOLMIOOOO0O

001100

VeYs ‘RVTe NV ¥

NV, V)

-—

NNNNWNNN
N~

roruNLRLRLNDNNOND

15:14

2222222028002
RARRRARRRR
R R 2R
RRRRRRRRRRRAR]

'THIS

POMNINVINY
= — =2 =2 2 OO0 OO0

Y o F o oF o F 2 F 2 F NV TV
S

WV =OO0O NN

.SBTTL

o [e Yo

e SV IV

N=2OV0O NN

LT ST, N1 NT, 81, ST, 8T, S TS T, T

IV IV IV IV IV U

D
A =
D
D
D
D
D
S
b e
) e
d ed
D
D
)
b
D
e
) et d e
e
)
d

264

13:5

14-SEP-81
30(1046)
COMMON TAGS

;JINSERT FILL CHARS. AFTER A "'LINE FEED''
;i 'TERMINAL AVAILABLE'' FLAG

;;CONTAINS THE ADDRESS FROM

JIWHICH

(BIT<07>=0=YES)

(SREGO) WAS OBTAINED

;;USER DEFINED
INED
JJUSER DEF
JJUSER DEFINED

DEF INED
DEF IMED
N
DEFIINED
DEFIN D
.JM)ER DEF IN D

JJUSER
JsUSER
JIUSER
J:USER

[ Nan]

14-SEP-81

MACY11

DSKLS CTRL PRTS

4“

o 4T2

S TS, T,C [T, ST, ST, S 1,61, S 1,0 [, ST, 01,01 U 1,V T S R Yo3

P11

b
b
eod
D o
d e cand el cord

NN
0 0

(0 RK611

1293
1294

001
001

1295
129¢

001
001

1298

001236

1297

1299
1300
1301

1302

1303
1304
130%
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
13°7
1318
1319
1320
1321
1322

1323

001

001240
001244
001245

001246

000000
000000
000000
000000
000000
000000
177607

077

015

000612

001250
001250
001252
0012564
001256
001260
001262
001264
001266
001270
001270
001271
001272
00i27¢4
001276

000377

_WORD

$TIMES: 0
$SESCAPE:
D
$BELL:
.AS(CIZ
$QUES:
LAS(!!]
$CRLF:
$LF:
a2t

(ASCII
LASCIZ

DEFINED
DEFINED
DEFINED
DEFINED

NUMBER OF

[TERATIONS

;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;,CODE FOR BELL
/77
;QUESTION MARK
<15>
;s CARRJAGE RETURN
<12>
JsLINE FEED
2222022l

RRNRRRE

MAILBOX-ETABLE

000000
000000
000000
000000
000000
000000
000000
000000
000
000
000000
000000
00000u

.EVEN
$MA]IL:
EMSGTY:
$FATAL:

$TESTN:
$PASS:

.WwORD
.WORD

.WORD
.WORD

$DEV(T: .WORD
$SUNIT:
_.WORD
$MSGAD: ,WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
$SENVM:
_BRYTE
$SWREG: .WORD
$USWR:
LWORD
$CPUOP: .WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENYV
AENVM
ASWREG
AUSWR
ACPUOP

:;APT MAILBOX

;sMESSAGE TYPE (CODE

;;FATAL ERROR NUMBER
;s TEST NUMBER
;sPASS

COUNT

:;DEVICE COUNT
;:1/0 UNJT NUMBER
;s MESSAGE ADDRESS
;MESSAGE LENGTH
::;APT ENVIRONMENT TARLE
::ENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
;s APT

SWITCH REGISTER

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

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

'-t
o

"t
]

001300

001301

000
000

tMAMS1:
EMTYP1:

.BYTE
_BYTE

AMAMS1
AMTYP1

* &

1345
1346
1347

001316
001320
001322

.-t

001302

000000

$MADR1:

_WORD

AMADR1

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

AMAMS2
AMTYP?2
AMADR?2
AMAMS3
AMTYP3
AMADR
3

- %

001315

001324

000
000
000000
000
000
000000
000
000
000000
120210

000000
1774640

$MAMS?:
tMTYP?2:
$MADRZ:
$MAMS3:
$MTYP3:
$MADRS:
$MAMS4L:
$MTYPS4:
$MADR4:
$VECT1:
$VECT2:
$BASE:

&
AMAMS
AMTYP4
AMADR4
AVE(T]

AVE(T?
ABASE

BIT T 1 10-REAL TIME CLOCK
O9=FLOATING POINT PROCESSOR
BI T
B=MEMORY MANAGEMENT
Bl T
HIGH ADDRESS.,M.S. BYTE

:MEM. TYPE,BLK#1

MEM.TYPE

BYTE

-=-

(HIGH BYTE®

900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0OS=003

;:HIGH ADDRESS.,BLK#1

MEM.LAST ADDR.=3 BYTES, HIS WORD AND LOW OF '‘TYPE'' ABOVE
;sHIGH ADDRESS.,M.S. BYTE

:IMEM.TYPE .BLK#?

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

::MEM.TYPE ,BLKA3

::MEM.LAST ADDRESS,BLK#3

;:HIGH ADDRESS,M.S.BYTE
::MEM,.TYPE ,BLK#4

;:MEM, LAST ADDRESS.BLK#4

2 INTERRUPT VECTOR#1,BUS PRIORITYA]
;:INTERRUPT VECTOR#Z2BUS PRIOR]ITYA4?
;;BASE ADDRESS OF EQUIPMENT UNDER TEST

Xate]

SEQ 0027

;cUSER
JsUSER
;sUSER
;sUSER

i222822322222232220222222

APT

PAGE

JJMAX.

001304
001305
00130¢
001310
001311
001312
001314

1348

$TMP14:

,WORD

_WORD
,WORD

1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343

1344

$TMP12:
$TMP13:

'5:14

::.t'tttttttttttttttt't'tttttfitQttttt'ttt'tttt"t-tat.t.gtnofi..'.

1326
1327

1330
1331

$TMP11:

LSBTTL

1324
1325

1328
1329

1. -SEP-8°
30(1046)
COMMON TAG>

[VY
]

DSKLS CTRL PRTS
14-5EP-81 13:57

OOOO

(ZROE{D RKEM
"IRGEC.PY

1349
3%2?

001326
001330

14-SEP-81 13:57
000000

14-SEP-81

$DEVM:
SETEND:
LMEXIT

_WORD

APT MAILBOX-ETABLE

15:14

ADEWVM

PAGE 29

J.DEVICE MAP

en]

30(1046)

SEQ 0028

[

CIRGEC.P1T

MACY11

CZRGECO RK611 DSKLS CTRL PRTS

30(1046)

14-SEP-31

ERROR POINTER TABLE
.SBTTL

15:14

PAGE

SEQ 0029

ERROR POINTER TABLE

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND [N

;*LOCATION S$ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

EM
DH

IF $ITEMB IS O THE ONLY PERTINENT DATA IS

EATH

TREYRE)

;*NOTE1
;*NOTEZ:

ITEM IN THE

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

(SERRP().

TABLE

CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

TO
TO
TO
TO

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

THE
THE
THE
THE

$ERRTR:

001330

001330
001332
001334
001336

043176
041555
040002
040320

001340
001342
001344
001346

000000
000000
000000
000000

001350
001352
001354
001356

000000
000000
000000
000000

001360
001362
007364
001366

043243
043307
040006
040324

JUNEXPECTED PARITY ERROR

0
0
0
0
ERROR 3
0
0
0
0

sUNUSED

JERROR ATTEMPTING IMPLIED SEEK

;ST

IN ERROR

:MR1

IN ERROR

DT0004
DF0004
ERROR 5

ATTEMPTING

IMPLIED

001370
001372
001374
001376

043243
043326
040024

001400
001402
001404
00140¢

043243
043345
040034
040400

DT0006
DF0006

043243
043364
040044
040424

ERROR 7
EM5004
E5004D
010007
DF0007

JMR3

IN ERROR ATTEMPTING

043455

ERROR 10
EM5010

:MR1

ERRCR READING PREAMBLE

040354

EM5004

SEEK

E5004B
DT0005
DFO005
ERROR 6

EM5004
£5004C

;MRZ2 IN ERROR ATTEMPTING IMPLIED SEEK

IMPLIED SEEK

[ 5] W

VACY11

o o To

[0 RV, WoYV
N] ——

WWWN NWIWN WWINWWNWWWWNKWN
rPONIrONON [0 .Y o XV TV, IV, IV, IV, 1V IV, N B

OO0

2
d
d
D nd e
D
D
—
Y
S
[P

??611 DSKLS CTRL PRTS
.P
14=SEP=-81 13:5°

1408
16409
14}?

001422
001424
001426

043326
040054
040450

1412
1612
16414
1415

007630
001632
001434

043455
Q463307
040072

1419
16420

001440
001442

043535
043326

}4%%

001446

040450

001450
001452

043535
043307

;4;9
4

1418
1421
A

1624
1425
1426
1427

;433
4

1430
1431

1432
1433

}2§g

0014636

00°444

001460

043535

043610
040116

1636
1437
1438
1439

}229

001470
001472

043640
043326

001476

040450

1442
1443
14446
1445

001474

001500

043455

043307
040072

1449
1450

00i510
001512

000000
000000

%22%

001516

040550

1454
1455

001520

043675

1448
1451

001566

001514

043307

;zgg

001526

040474

1460
1461
1462
1463

001524

001530
001532
(0153«

ERROR 12

JMR1

IN ERROR HEADER READ/(OMPARF

ERROR 13
EMS011
£5004A
D70011

;CS1

IN ERROR HFADER READ/(COMPARE

ERROR 14
EMS011

;PACK ADDRESS ERROR HDR READ/(OMPARE

EMS5011
£5004B

ESO11A
DT0014

DFO014

;

ERROR 15
EM5015
£5004B
DT0010

;MR1

ERROR READING GAP

ERROR 16
EM5010

;ST

ERROR AFTER READING GAP

DFO010
;

E5004A
DT0011

DFO0011

;

EMu:

ERROR 17
0
0

DT0017

JERROR IN WRITING

JREGISTER IN ERROR AND (LOCK
JTRANSITION IS IDENTIFIED

DF0017
.

ERROR 20
EMS5020

JERROR

[N (ST

AFTER WRITING SYNC

JERROR

[N ECC WORDS

E5004A

040072

043754
044022
040154

ERROR READING PREAMSLE

DFO011

040132

001522

1457

;CS1

DT0010

040474

1456

ERROR 11
EMS5010
E5004A
DT0011

DFO0010

040054

001502
001504

1449

040524

DT0011

DFO011
;

ERRQR 21
EMS5021
E5021A
D10021

SEQ 0030

DFOO11

040474

001462
001464

001466

;

0460054

040072

3
PAGE 31

£5004B
DT00'0
DFO010

040474

001454

001456

“MACY1T 30(7046)
14-SEP-81
15:14
ERROR POINTER TABLE

[V)

CIROECO RK6T11 DSKLS CTRL PRTS
CIR6EC.P1T
14-SEP-81 13:57

1464
1465

1466
1467

1468
1469
1470
1471
1472

1494
1495
1496
149~

1498
1499
1500

NN WOV~
O

Y
P
S
e Yo
X
S
N
O

)

001540
001542

JERR IN (ST AFTER WRITE DATA

007544
001546

044052
043345
040034
040400

ERROR 23
EMS023

;ERROR IN MR?

E5004(
DT0006
DFO006

044052
043364
040044
040424

ERROR 24
EM5023
E5004D
DT0007
DF0007

;MR3

001560
001562
001564
J01566
001570
001572
001574
001576

044052
043307
040006
040324

ERROR 25
EM5023
ES004A
DT0004
DFO004

2CS1 IN ERROR

001600
001602
001604
001606

044472
000000
040166
040620

00 6 10
0 16 12
0 16 14
0016 16

044632
041524
040166
040620

001620

001624
001626

045004
000000
040166
040620

001630
001632
001634
001636

045077
000000
040166
040620

001640
001642
001644
001646

045164
043326
040054
040450

sDOING MULTI-SECTOR WRITE

JAFTER MULTI-SECTOR WRITE

ERROR 26
EHQCS:

EMS5026
.WORD
DT0026
DF0026

ERROR 27
EM5027
DHO00A
DT0026
DF0026

EH030:

EH031:

ERROR 30
EM5030
.WORD
DT0026
DF0026

;NO COE FRROR

JOTHER ERROR WHILE FORCING COE

ERROR 31
EM5031
.WORD
0
DT002¢
DF0026

ERROR 32
EM5032
E50048
DT0010
DFO010

IN ERROR

JDOINC MULTI-SECTOR WRITE

JUNEXPECTED CYL OVERFLOW

JUNEXPECTED ERROR

;MR1

TESTING COE

ERROR READING DATA SYN(

]

SEQ 0031

ERROR 22
EM5021
ESQ04A
DT00M
DF3011

061622

ANV AWV N NN NG
ek D ad o d eed md D OOO

0643754
043307
040072
040474

QOO

"483

PAGE

DFO0Z?

1477

1484
1485
1486
1487
1488
1489
1490
1491
1492
1493

ERROR POINTER TABLE

15:14

040574

1474
1475
1476

1482

14=SEP-81

001536

1473

1478
1479
1480
1481

DSKLS C(TRL PRTS
14=SEP-81 13:57

30(1046)

[

CIROE(D RK6TT
FIRGEC.PMT

VACY11

RGEC.P1T
1520
1521
1522

001650
001652

1523

14=-SEP=-81

gggg

001656

040072

1526
1527

001660

045242

001662

043326

1330

001666

040450

1532

1533
1534

1535

153
1538

045307
044022

001676

040574

001674

1539
1540

001700
001702

1542

001706

1541

045242
043307

040072

1545
1546
1547

001710
001712
001714

045350
041524
040210

1550
1551
1552

001720
001722

000000
000000

1557

001730

045424

1560

001736

040700

1548

1553
1554

1556

1558
1559

1562
1563
1564
1565

1366

1268
1569
1570
1571

1572

1574

1575

001716

001724
001726

001732
001734

045572
041524
040240

00176

045651

00175

ERROR 34
EM5034

:MR1

IN ERROR READING DATA OR ECC

DF0010
-

;

ERROR 35
EM5035
ES021A

;ECC ERROR READING DATA

pT0021

DF 0021
;

ERROR 3¢
EM5034
£5004A

:CS1

ERROR AFTER READING DATA OR E(C

D001

DF0011
;

ERROR 37
EM5037
DHOO0A
DT0037

;DATA COMPARE ERROR (1ST MESSAGE)

DF0037

;

ERROR 40
0
0

;DATA COMPARE

ERROR

(2ND

THRU 10TH ERR)

DT0040
DF 0040
;

ERROR &1

EMS504 1

DHOO0A
DT0041

;ECC REGISTER INCORRECT AFTER ECC READ

DF 0041
;

041524
040754

001750
001752
001754

;ST ERROR AFTER READING SYNC

DT0010

041524
040222

040720

SEQ (032

£50048

040214
040674

001746

001742
001744

;

040654

045511

G 3
PAGE 33

DFOO11

040474

001740

ERROR 33
EM503°
E5004A

15:14

pDTOOMN

040154

001704

1544

040054

001670
001672

16=SEP=81

ERROR POINTER TABLE

040474

1528

001664

13:5°

045164
043307

001654

1529

MACY11 30(1046)

ERROR 42
EM5042
DHO00A
DT0021

;ERROR

IN ECC PAT CALCULATION AFTER ECC ERROR

:ERKOR

IN ECC POSITION COUNTING AFTER ECC
y

DF 0042

;

040740

ERROR 43
EM5043
DHOO0A
DT0043

DF0043
;

ERROR 44

EM5044

;ERROR AFTER PROCESSING DATA (HECK ERR

ERROR

lalal

0 RKo11 DSKLS CTRL PRTS

[ Y1 W]

g% RGE

1576

OO0 NN

D aed
md
=D

D ed
ek

d
D

b
—

[o ¥ e Yo Xo Yo N0 Yo No N6

1577

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

001762
001764
001766

043307
040006
0460324

E5004A
DT0004
DF 0004

001770
001772
001774
CC1776

045651
043403
040252
040760

ERROR 45
EM5044
E5004E
DTQ045
DFO04S

202000
002002
002004
002006

043243
0641524
040262
041004

ERROR 46
EM50046
DHOO0A
DT0046
DFO046

002010
002012
002014
002016

046013
043610

040116
040524

ERROR 47
EM5047
ES011A
DT0014
DFO014

002020
002022
002024
002026

046106
043307
040006
041024

ERROR 50
EM5050
£5004A
DT0004
DFO050

002030
002032
002034
002036

046161
043403
060252
040760

ERROR 51
EMS051
ESQO04E
DT0045
DF004S

002040
002042
002044
002046

046236
041524
04C262
041004

002050
002052
002054
002056

046356
043326
040054

04045C

002060
002062
002064
002066

046445
04402°2
040154
040574

002079
002072
002074

ERROR 52
EM505¢2
DHOOO0A
DT0046

15:14

PAGE

SEQ.0033

;ERROR AFTER PROCESSING DATA (hECK ERR

s TRANSFER

LENGTH ERROP

PARTIA'

;BSE DID NOT PREVENT DA CR D(

SEC

READ

INCREMENT

;BSE DID NOT CAUSE CERR

;BSE FAILED TO SET WHEN EXPECTED

;DATA XFER ABORT

TO SOON

DF0046

ERROR 53
EM5053
£50048
DT0010
DFO010
ERROR 54

JMR1

ERROR

IN WRT

(HK OR ECC

READ

AFTER WRTM

(HK

2ECC ERROR IN WRITE (HECK QP

;CST1 ERROR AFTER WRT (HK OR ECC READ IN WRT (HK

MACY11

DSKLS CTRL PRTH
14-SEP-81 13:57

CIRGECO RKO61T
"IRGEC.PY

13:5

30(°046)

14-SEP-81

ERROR POINTER TABLE

002076

060474

DFO01?

002100
002102
002104
002106

045242
043307
040006
060324

ERROR 56
EM5034
,
ESO04A
DT0004¥
DF D004

1641

002110
002712
002114
002116

046356
043307
040006
040324

ERROR 57
EM5053
ES5004A
070004
DFO00¢

1647
1648

002120
002122
002124
002126

ERROR 69
EM5060
DHOO00A
DT0037
DF0060

002130
002132
002134
002136

ERROR 61
EM5061
E5004F
DT0046
DF 0061

1679

1680
1681

1682
1683

1684
*685
1686
1¢87

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000600
600000

002210
002212
002214
002216

)
e
e

L}
R
R
R

[

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

.WORD

:
:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

PAGE

SEQ 0034

;CST ERROR AFTER READ DATA OR E((

;CS1

ERROR AFTER WRITE

(HECK OR ECC REAL

JWCE FAILED TO SET IN 16 BIT MODE

;TRANSFER

LENGTH PROBLEM - RKBA

s TRANSFER

LENGTH PROBLEM -

;WCE

TEMPORAR Y

1677
1678

002160
002162
002164
002166
002170
002172
002174
002176
002200
002202
002204
002206

1671
1672
1673
1674
1675
1676

ERROR 63
EM5063
£50046
DTO0€E3
DFO063

1670

046644
043437
040302
0461140

1468
1669

002150
002152
002154
002156

1666
1667

ERROR 62
EM5061
£5004G
DT0062
DF0062

1661
1662
1663
1664
1665

044567
043437
040272
0461114

1660

002140
002142
002144
002146

1659

1656

1657
1658

[]

1655

1649
1650
1651
1652
1653
1654

1642
1643
" 644
1645
‘646

1639

1640

1637

1638

1632

1633
1634
1635
1636

15:14

STORAGE

FOR RK611

FAILED

TO SET

RKW(

18 BIT MODE

CONTROLLER REGISTER

;CONTROL AND STATUS REGISTER 1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DESIRED TRACK SECTOR REG ISTER
;CONTROL AND STATUS REGIS TER 2
;DRIVE STATUS REGISTER

JERROR REGISTER

JATTENTION SUMMARY AND OFFSET

;DESIRED CYLINDER REGISTER
;DATA BUFFER
;MAINTENANCE REGISTER 1
JMAINTENANCE REGISTER ¢
JMAINTENANCE REGISTER 3

JECC POSITION INFORMAT!ON
JECC PATTERN INFORMATION

JSPARE REGISTER

14=SEP-81

MACY1T

TIRGEC.PYY

DSKLS CTRL PRTS

OCOCOOOOOOOOOOOO

TIRGE(D RKE1T

002226

000000

1695
1696
1697
1698

002232
062234
002236
002240

000000
000000
000000
000000

1694

1699

2O V00N
WA

002260
002262
002264
002266
002266
002267
002270
002272
002274
002276
002300
002302

—=O V00 NN

NN =2O0V00 NV

002242

002244
002246
002250
002252
002254
002256

002304
002306
002310
0062312

N—=O0 Co NOWNEB WA

D =D
D e
b
D
D
D e d
D
D
D
)
D —d
ed e
d v
) e
b emd =D md
ed
b md e
d
D
d med
cd red e

SNNNN NN NN NN N NN N NNSNYNNINSN
NN NN N NN NN NN NSNS N
— — b b e el e
0
2 OO
[ 3R oW SN WY N W N INW NN N AN N NN POUROMNORAURNIND

1700
1701
1702
1703
1704
1705

002230

002314
002316
002320
002322
002324
002326
002330
002332
002334
002336
002340

743

002342

000000

000000
000000
000000
000000
000000
000000

000000
000000
000000
000
000
000000
000000
000000
0600000
000000
000000

000210
000240
000000
000000

000000
000000
000000
000000
000000
000000
000000
0092000
000000
000000
000000
000000

LSBTTL

EXPECTED RKETY

.CS1:

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

W(:
BA:
.DA:

.(S2:

DS:
.ER:
.ASOF:
DCYL:
.DB:
.MR1:

.MR2:
.MR3:

.ECPS:
ECPT:
.SPAR:

.SBT7L
.CS1:
WC:
.BA:
.DA:
.DS:

.DT:

.CS2:

:
.ASOF
DCvYL:

MR1.
.MR2:
.MR3:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

.BYTE
.BYTE

.wORD
.WORD
.WORD
.WORD
.WORD
.WORD

JATTENTION SUMMARY AND OFFSET

JDESIRED CYLINDER REGISTER
;DATA BUFFER
JMAINTENANCE

PR.BIT:

M1.BIT:
M2.BIT:
BITCNT:
WRDCNT:
MEMPAR:

BADPAR:
ECCXOR:
ECCHI:
ECCLO:

;ECC POSITION INFORMATION
JECC PATTERN INFORMATION
;SPARE REGISTER
TERS

FOR

.WORD
.WORD
.WORD
.WORD

210

PR5

0
0

JMAINTENANCE REGISTER 2
JMAINTENANCE REGISTER 3

RKVEC:
RKPR]:
TRAPP(:

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

(OMMAND

START

;CONTROL AND STATUS 1
;WORD COUNT
;BUFER ADDRESS
;DESIRED
JSECTOR

; TRACK

;CONTROL AND STATUS

JATTENTION AND OFFSET

JDESIRED CYLINDER
JMAINT. REG 1
sMAINT.

REG 2

JMAINT. REG 3

VARIABLES
:RK611
:RK611

VECTOR
PRIORITY

;START

FLAG

[

214

:PC FOR MEMORY (CHECK ENABLE

TRAP

;0 =200

;=1 = 204
JERROR COUNT FOR SWITCH 12 ABORT
JNEXT BIT IN DATA SIMULATION
:PRESENT BIT IN DATA SIMULATION
JPREVIOUS BIT

IN DATA

SIMULATION

:BIT BEFORE PREVIOUS BI7T
JBIT POSITION
;WORD COUNT FOR NPR TRANSFER
JMEMORY EMABLE ON FIRST 24K
:BAD PARITY FLAG
JECC XOR SWITCH
JECC HIGH STORAGE
JECC LOW STORAGE

NNy

f VY

SEQ 0035

;BUS ADDRESS REGISTER
sDESIRED TRACK SECTOR REG ISTEK
; CONTROL AND STATUS REGIS TER 2
sDRIVE STATUS REGISTEP
JERROR REGISTER

PROGRAM DEFINED

ERRCNT:
P1.BIT:

;CONTROL AND STATUS REGISTER 1
;WORD COUNT REGISTER

.SBTTL

SRTFLG:

PAGE

(ONTPOLLER REGISTERS

OOOOOOOOOCOOOOOOO

1693

000000
000000

CONTROLLER REGISTERS

OOV

000000

002222
002224

EXPECTED RK611

15:1¢

OOOOOOOOO

002220

1691
1692

14-SEP-81

QOO OOODOOOOOO

1690

30(1046)

mmMmmmMmMmMMmMMmMMmmmmrmmrmen

1688
1689

MACY11

———r—rrrreeeree

CZROECD RK611 DSKLS CTRL PRTS
TIRGEC.PN
14-SEP-81 13:57

1744
1745
17646

002344
002346

002350

000000
000000
000000

1748
"7649

002354
002356

000000
000000

1747

002352

000000

30(1046)
14-SEP-81
15:14
PROGRAM DEF INED VARIABLES

3
PAGE 37

ECCSRC:
ECPATX:
ECPOSX:

.WORD
.WORD
.WORD

O
0
O

;ECC SOURCE FLAG
JEXPECTED PATTERN ON ERROR
JEXPECTED POSITION ON ERROR

HIBITS:
SAVSWR:

.WORD
.WORD

0
O

;HI ORDER BITS FOR 18 BIT WORD
;STORAGE FOR SWITCH REGISTER

BSEDES:

.WORD

sBAD SECTOR DESIRED

SEQ 0036

XFER

~N~

MACY11

CZREE(D RKO6IT1 DSKLS CTRL PRTS
TZREEC.PI
14~SEP-81 13:57

MACY11

1;??

30(1046)
14-SEP-81
PROGRAM SETUP
.SBTTL

15:14

L 3
PAGE 38

SEQ 0u37

PROGRAM SETUP

1752

002360

012737

000001

002312

PARM:

1755

002370

012737

177777

002312

1758
1759

002400
002404

005037
000005

002312

};22
;;29

1760
1761
1762
1763

};gg

002366
002376

002406
002412
002416
002422

002426

000406

000402

105037
012706
012746
012746

001103
001100
0003490
002430

000002

1766
1767
1768

002430

004737

036062

1770
1771
1772
1773

002434

002440
002442
002446
002450

012706

001100

1769

1774
1775
1776

1777
1778
1779

1780
1781
1782

1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
18C3
1805

005026
022706
001374
012706

001100

012737
012737
012737
013737
005037
005037
112737
012737
012737

090340
037556
000340

000036
000024
000C25
023134

000403

002642

012737

002634
002640

002650
002656
002662

012716
000002

012737
012637
005037

#-1,SRTFLG

;LOAD START FLAG FOR RESTART

START:
START1:

(LR
RESET
CLRB
MoV
MOV
MOV

SRTFLG

;CLEAR START FLAG
JRESET THE WHOLE SYSTEM
;CLEAR ERROR FLAG
sINITIALIZE STACK POINTER
;LOAD STACK TO LOCK OUT ALL
;LOAD START OF PROGRAM

001140

002512
002520
002526
002534
002542
002546
002552
002560
002566

002632

MOV

034266
000340
037712

023142
001234
001236
000001
002560
00256¢

000004
002634
177570
177570
177777

000030
000032
000034

001115
001106
001110

000004
001140
001142
176310

002642
000176

000174
000004

001256

CLR
CMP
BNE
MOV

000020
000022

013746
012737
012737
012737
022777
001012

RESTRT:

MavV

033366
000340

002574
002600
002606
002614
002622
002630

;LOAD START FLAG FOR PARMETER START

START1
START1

$ERFLG
#STACK,SP
#PR7 ,~(SP)
#18,-(SP)

INTERRUPTS

;LOAD PSW

1%:
JSR
PC,aASTKINT
;INIT KEYBOARD
LSBTTL
INITIJALIZE THE COMMON TAGS
;.CLEAR THE COMMON TAGS ($CMTAG) AREA

012737
012737

012737
012737
012737

#1,SRTFLG

RTI

002454
002462

002470
002476
002504

MOV

001142

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

s,FIRST LOCATION TO BE CLEARED
;. CLEAR MEMORY LOCATION

..LOOP BACK IF NO
;:SETUP THE STACK POINTER

;o INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,a#I0TVEC ;10T VECTOR FOR
MOv
#340,9#10TVEC+2 ;. LEVEL 7

SCOPE

ROUTINE

MOV
MOV
MOV

#SERROR ,@#EMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#3640 ,9#EMTVEC+2 ;;LEVEL 7
#STRAP ,a#TRAPVEC ;.TRAP VECTOR FOR TRAP (ALLS

MOV
RTI

#65%, (SP)

;.SET UP FOR TRAP RETURN

MOV

#SWREG, SWR

;;POINT

(LR

$PASS

;. C.EAR PASS

MOV
MOV
MOV

#340,d#TRAPVEC+2;LEVEL 7
#$PWRDN,d#PWRVEC ;;POWER_FAILURE VECTOR
#340,9#PWRVEC+2 ;,LEVEL 7
,
Moy
$ENDCT,$EOPCT
;.SETUP END-OF -PROGRAM COUNTER
(LR
$TIMES
s INITIALIZE NUMBER OF ITERATIONS
CLR
$ESCAPE
;;CLEAR THE ESCAPE ON ERROR ADDRFSS
MOVB
#1,$ERMAX
;;ALLOW ONE ERROR PER TEST
MOV
#.,8LPADR
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,SLPERR
.. SETUP THE ERROR LOOP ADDRESS
;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR [T IS
;;EQUAL TO A '*=1'', SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
#ERRVEC ,-(SP)
;;SAVE ERROR VECTOR
MOV
#64$ ,Q¥ERRVEC
;;SET UP ERROR VECTOR
Mov
#DSWR,SWR
;.SETUP FOR A HARDWARE SWICH REGISTEPR
MOV
#DDISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
CMP
#-1,aSWR
;:TRY TO REFERENCE HARDWARE SWR
BNE
66%
;:BRANCH IF NO TIMEOUT TRAP OCCURRED
;AND
THE HARDWARE SWR IS NOT = -1
BR
65%
;;BRANCH [. NO TIMEOQUT

64%:

001140

#S$CMTAG,R6

65%:

668%:

MOV
Mov

TO SOFTWARE

SWR

#D]1SPREG,D]ISPLAY
(SP)« @#ERRVEC
;;RESTORE ERROR VECTOR
COUNT

[ XanY

RK611 DSKLS CTRL PRTS
R6EC.P1Y
14-SEP-81 13:57

~NN

ROE( 0

(%, S

=2 OV00 NN

- O

~N) FOPVRDNIND
—b —d b —3 b b ok —d 3 D

d
e
e
d md —d md e
d
d
d
d id
—

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

b —D

TIRGEC.PN

002666
002674
002676
002704
002704

DSKLS CTRL PRTS
14-SEP-81

13:57

132737

000200

001271

001272

001140

001403
012737
005037

002314

002710
002714
002716
002724
002726

005227
001056
022737
001452

177777

104401

002774

002732
002736
002740
002746
002750
002756
002760
002762
002764
002772
002772

005737
001012

000042

003052
003052
003056
003060

003064
003072
003074

003100
003104
003106
003112
003114
003120
003122
003130
003132
003140
003144
003150
003154
003160
003162
003166
003170
003176
003200
003206

003214
003220
003222
003226

MACY11

123727

001406
023727
001005

023276

M 3
14~SEP-81
15:14
PAGE 39
30(1046)
INITIALIZE THE COMMON TAGS

67%:
.SBTTL

;. TYPE

000042
.SBTTL

001270

000001

001140

000176

000403
112737

000001

001134

041276
000001

104401

041164

104402
104401
104412

041216

001121

013746

MOV

67%
#$SWREG,
SWR

;o TEST USER SIZE UNDER AFT
;. YES,USE NON-APT SWITCH
;sNO,USE APT SWITCH REGISTER

CLR

ERRCNT

;CLEAR ERROR COUNT FOR SWITCH 17 ABORT

INC
BNE
CMP
BEQ

#-1
638$
#SENDAD ,a#4?2
68%

::FIRST TIME?
;;BRANCH IF NO

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM [F

TYPE

70%:
71%:

TST

Y14

(MP

SWR,#SWREG

4%:

5%:

001324

160000

001202

013737

001202

001324

708
A1
$ENV,
70%

71$%

71%

; ;GET OVER THE ASCIZ

INC
BNE

#=1
4%

CMP
BNE

#1,SRTFLG
15¢%

MOV

$BASE
, - (SP)

TYPE

,O0PR0OOZ2

TYPE

,OPR0O06

,0PRO01

;TYPE "RK611

160000

012637
001412
022737

001202

MOV

(SP)+,8$TMPO

001000

001202

042737
053737
104401

017777
001202
041254

001320
001320

113716

001321

104401
104412

101760

005046

006216

041216

TYPE

TYPE
RDOCT

10%:

BEQ
CMP
BLOS
BIC
BIS
TYPE

(LR
MOVB
ASR

,0PR0O03

,0PR002

10%
#1000,8TMPO
7%
#17777,8VECTT
$TMPO,SVECT1
,OPR0O04
-(SP)
$VE(T1+1,(SP)
(SP)

CZR6ECO/<CRLF>

;TEST IF PASS 0

;NO - SKIP
;TYPE PASS TIME MESSAGE

$VECT1,~(SP)
#160000, (SP)

7%:

YES

;:SOFTWARE SWITCH REG SFLECTED?
;:BRANCH IF NO
JsGET SOFT=-SWR SETTINGS

<CRLF>/RK611 DISKLESS DIAGNOSTIC: PART §

MOv
BIC

013746
042716

041224
001320

;sBRANCH IF

68%

LASCIZ

(SP)+,$TMPO
7%
#160000,$TMPO
5%
$TMP(Q, $BASE

104401

;sBRANCH IF YES
.sARE WE RUNNING UNDER APT?

MOV
BEQ
CMP
BHI
MOV

101361

;cARE WE RUNNING UNDER XXDP/A(T?

;. SET AUTC-MODE INDICATOR

RDOCT

001202

;:BRANCH IF YES
JsTYPE ASCIZ STRING

#1,8AUTOB

TYPOC

012637
001407
022737

JALT=112

MOVR

TYPE

002312

698

FIRST PASS

GET VALUE FOR SOFTWARE SWITCH REGISTER

BNE

;:69%:
68%:

177777

022737

104401

N#APTSIZE ,$ENVM

GTSWR

000427
005227
001002

BITB
BEQ

BNE
(MPB
BEQ

104406

SEQ 0038

sCHECK IF PARAMETER START
sNO, CONTINUE SETUP
BUS ADDRESS

(

)

(

)

;. SAVE $BASE FOR TYPEQUT
;.60 TYPE--OCTAL ASCII(ALL DIGITS)
;GET VALUE
;CHECK

;CHECK IF

<CR>

IN I/0 PAGE

;LOAD NEW BUS ADDRESS

;TYPE '"RK611
;TYPF

QUT

VECTOR ADDRESS

;GET VALUE

sCHECK IF <CR>
;CHECK IF LEGAL
sLOAD NEW VECTOR ADDRESS
:TYPE "RK611

PRIORITY

JSHIFT 5 BITS RIGHT

)

="'

~NN

CZRGECO RK611

1862

1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892

003230
003232
003234
003236
003240
003242
003246
002250
003254
003256
003264
003266
003274
003276
003302
003306
003312
003316
003322
003330
003336
003344
003352
003360
003364
003370
003374
003400
003404
003410

30(1046)

ASR
ASR
ASR
ASR
TYPOC
TYPE
RDOCT

041216

012637
001430
022737

001202

000007

001202

022737
101347
006337
006337
006337
006337
006337
042737

000004

001232

103753

153737

013737
042737

001202
001202
001202
001202
001292

160000

001202
001320
160000

113737

001321
032652

013702
005037
004737
012746

001324
001236
032516

004737

012746
000002

000000
003412

001320
001321
002304
002304
002306

15:14

PAGE 40

GET VALUE FOR SOFTWARE SWITCH REGISTER

00621¢
00621¢
006216
006216
104402
104401
104412

14=-SEP=-81

MoV
REQ
(MP
BLO
(MP

15%:

NEWPAS:

BH!
ASL
ASL
ASL
ASL
ASL
BIC
B1SB
MoV
BIC
MOVB
JSR
MOV
CLR

JSR

MoV
M?Y
R

(SPJ
(SP)
(SP)
(SP)

.OPR0OO2

(SP)+,$TMPO
15%
#7,8TMPO
108

;GET VALUE
sCHECK FOR DEFAULT
;CHECK IF LEGAL

#4,$TMPO

10
$TMPO
$TMPQ
$TMPO
$TMPO
$TMPO
#160000, $VECT?

;STORE NEW PRIORITY

$VECT1,RKVEC

;STORE RK611 VECTOR

$VECT1+1,RKPR]
PC,$S1ZE

JSTORE PRIORITY
;SIZE MEMORY

$BASE ,R2
$ESCAPE

;SET RK POINTER

#PRQ,=(SP)
RTST1,-(SP)

2LOCK QUT INTERRUPTS

$STMPO,SVECTT+1

#160000,RKVE(

P( ,PARCHK

;SHIFT 5 BITS LEFT

;CLEAR ESCAPE
;CHECK OF MEMORY (HECK ENABLE

SEQ 0039

MACY11

~NN

CIR6ECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZROEC.PI

TIRGEC.PN

14=5EP-81

13:57

MACY11

4
B
PAGE 41
'5:14
16=-SEP-81
«*MULT]-SECTOR WRITE OPERAT ONS

30(1046)

1893
1894

.SBTTL

1896
1897
1898
1899
1900
1901

*TEST 1

1895

B
%
¥

TR TR
N

CYLINDER O, HEAD O, SECTOR 0.

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER.

%
5

T
e

%
2

CONTROLLER WITH A (ONTROLLER CLEAR,.

PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 401 WORDS TO AN RK06 IN 26 SECTOR FORMAT,

TWO ECC WORDS.

MAKE

(CLOCK THROUGH SEEK

SIMULATE

A SECTOR PULSE

(LOCK THROUGH 400 WORDS AND THE
SURE

THE NEXT HEADER RECOGNITION

CYCLE STARTS AND THE PROPER HEADER S SEARCHED FOR.

¢
%

P
T

S?OVégg s SECOND GOOD HEADER AND (HECK RECOGNITION
HEADCR.

AEI222Z2

X222

222202222 RRRRRRRRRRRRRRRRRRRRR
Rl
RS

000012

003422

012762

100000

003430
003434

005037

003440
003444
003446
003447
003450
003452
003454

006437
000000

003456
003462

004437
000001

032014

JSR
1

R4 ,BLDDAT

;650 BUILD DATA
JPATTERN 1

003464

0064437

032274

JSR

R4 ,0PSTRT

sSTART

003470
003474
003476
003500

004437

023334

JSR
ERROR

R4, DISEEK
&

ERROR
ERROR

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

6
7

JMR1

003504

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

003510
003514
003516

004437

023740

JSR
ERROR
ERROR

R& ,DRSYNC
10
11

;SIMULATE HEADER PREAMBLE
sMR1 CONTENTS IN ERROR
2CS1 CONTENTS IN ERROR

003520
003524
003526
003530

004437

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHD(MP
12
13
14

sSIMULATE HEADER SEARCH
JMR1 CONTENTS IN ERROR
;CST IN ERROR AFTER SEARCH
JRKDCYL OR RKDA IN ERROR AFTER SEARCH

w——l

W= O

CLEAR THE RK611

(PART

sl Rl

~NOVN

#10. ,$TIMES

::D0 10.

000000

MoV

#CCLR,RKCST1(R2)

;CLR CONTROLLER

002352
023316

CLR
JSR

BSEDES
R4, DSECTR

;CLEAR BAD SEC DESIRED
:SIMULATL SECTOR PULSE TO SET

032230

JSR
0
BYTE
BYTE
OBUFF

R4, LOADRK

JLOAD *'L'" REGISTERS
JCYLINDER 0
;SECTOR 0
;TRACK 0
;BUFFER ADDRESS OBUFF

001234

SCOPE
MoV

—

MULTI-SECTOR WRITE

000004
012737

%) NIPONONY
= -

F3 W= OV

b e

D
e
D

D e
d

ITERATIONS

e
b

e
d

S o

i
D il
e
nd id
—r
—

O O NO N0 OOV OO OOV OO O00

2222222222

QOPERATIONS

003412
003414

~nonry
~NO

1925

—

ZX22222222

RPR

**MULTI=-SECTOR WRITE

SEQ 0040

1928
1629
1930

1931
1932
1933
1934
1955
1936
1937

1938

1639
1940
1941
1942
1943
1044
1945
1946
1947
1948

003502

004437

=401

177377

000023

104004
104005
104006

104012
104013
104014

;WORD COUNT =401

WRDATA

ERROR

104007

106010
104011

0
0

JECCW IN RKMR1 FROM INIT POWER UP

: COMMAND WRDATA

;MR?
:MR3

THE OPERATION

,
"

~N~

(ZRGECO RKG1T DSKLS CTRL PRTS

13:57

1950
1951
1952
1953
1954
1955
1956
1957

003532
003540
003544
003546
003550

012737
004437

0463675
025204

003554
0€3562
003566
003570
003572

012737
004437

1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980

1981
1982
1983
1984

1685
1986
1687
1088
1989
1990
1991
1992

1993

1994
1995

1996

1997

1998
1999

2000
2001
2002
2003
2004

003552

104015

3?;1046)

001510

JSR
ERROR
ERROR
ERROR
ERROR

104017
104020

104017
104021
104022

043754
025604

000034
000440
000040

437

001510

000026

MOV

<SR
ERROR
ERROR
ERROR

1¢:

002274
032444
002246
002267
177400

000005

5%:

00226€

003662
003670
003672
003676
003676
003702
003706
003714
003722
003730
003736
003744
003746
003750

010000

002260

001000

032444
002250
000034
000036
000000
002260
002160

003752
003760
003762
003764

023737
001402

003766
003774
003776
004000

023737
001402

004002

006437

002206

6%:

3%:

106023

002250

2%:

104024

000413
023316

4%:

SEQ 0041

#EMS020,EMw
R4 ,DWCPSN

JSET MESSAGE FOR WRITE
s SIMULATE GAP AND SYNC

16
17

;CST
;MR1

:MR1
;CST

[N ERROR I*. READ GAP

IN €RROR AFTER READ GAP
IN ERROR IN WRITING SYNC
IN ERROR AFTER WRITING SYNC

;SET MESSAGE FOR WRITEL FAILURE
:SIMULATE WRITE DATA AND ECC

21
22

JECC IN ERROR WHILE WRITING DATA
2CST IN ERROR AFTER WRITING DATA AND ECC

#7+4 R0

JMR1

IN ERROR IN WRITING DATA OR ECC

:ISSUE

#DMD- MCLK ,RKMR1(R2)

#DMD, RKMR1 (R2)

RO
1%

MOV
JSR
MOV
MovB

L.OCYL.R3

FLOCKS

TO NEXT HDR

;CLOCK LOOP

JGET DESIRED CYLINDER

: INVERT WORD

#5,R0
R3
RO

:SET COUNT FOR SHIFTING
;SHIFT TRACK FOR HEADER AL IGNMENT
;DEC COUNT

BIf

BISB

L.DS,R3

;LOOP UNTIL ZERO

BIT
BEQ
BIS

#CFMT,L.CST
6%

;TEST IF 18 BIT MODE
;NO - SKIP

JSR

R4 ,FSBLVV

s INVERT WORD

CMP
BEQ
ERROR
BR

(MP
BEQ
ERROR
BR

JSR

(OMPARE

R4 ,FSBLVV

R3,E.MR?2
L.DT,R3
#1776400,R3

MOV
ASL
DEC
BNE

FAILURE
FOR WRITE

#EMS5021,EMW
R4 ,DWKRITE

DEC
BNE

(MP
BEQ
ERROR
BR

000421

002210

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV

002206
002210
002160
002220
002220

002246

164-SEP-81
15:14
PAGE 42
MULTI=-SECTOR WRITE (PART 1)
MOV

104016

003574
003600
003606
0035614
003616

003620
003624
003630
003634
003640
003644
003650
003652
003654
003656

MACYT

#B]IT9,R3

;STORE EXPECTED MR?
JGET DESIRED TRACK/SECTOR
:CLEAR UNUSED BITS

s INSERT SECTOR

NUMBER

;SET FORMAT BIT FOR WORD TwO

R3,E.MR3
RKMR2 ‘R2),T.MR2
RKMR3(R2",T.MR3
RKCST(R2),T.CST1

:STORE EXPECTED MR3
:GET MR?
:GET MR3
:GET (ST

T.CST1,E.CST

JCHECK IF OK

L.CST1,E.CST
3s
25

TSTZ2
T.MRZ2,E.MR?2

JGET EXPECTED (S1

:YES - SKIP
;CS1 IN ERROR AT MULTI-SECTOR TIME

;G0 TO NEXT TEST
;CHECK [F MR2 0K

2%
23

JYES - SKIP
:MR2 IN ERROR AT MULTI-SECTOR ~IME

T.MR3,E.MR3

:(HECK IF MR3 0K

:MR3 IN ERROR AT MULTI-SECTOR TIME

1ST2

1ST12

R4 ,DSECTR

;;G0 TO NEXT

JYES

TEST

SKIP

;G0 TO NEXT TEST

;SIMULATE 2ND SECTOR PULSE

14-SEP-81

TIR6EC.PIY
1949

DSKLS CTRL PRTS

CZROECH RKETT

14=-SEP-81

13:57

2005
2006
2007

004006
004G12
004014

004437

023740

004016
004022
004024
0C4026

004437

104010

3?%1046)

024c76

PAGE 43
(PART

SEG 0042

JSR

R4 ,DRSVYNC

:SIMULATE PREAMBLE

ERROR

:CS1 ERROR

JSR
ERROR

R4, DHD(MP
12

:SIMULATE HEADER SEARCH
:MR1 ERROR

ERROR

:RKDCYL

ERROR

104014

15:14

MULTI=-SECTOR WRiTE

ERROR

104011

104012
104013

164-SEP-81

4222222230228

«TEST 2

:MR1

ERROR

:CS1_ERROR

22222222203020220

OR RKDA

IN ERROR

8222222222220

(PART

CLEAR THE RK611

PUT

MODE.

ISOUE

%
2
B

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER,

TWO ECC

WORDS.

SIMULATE A SECTOR PULSE

CLOCK THROUGH 400 WORDS AND THE

MAKE

SURE

THE

HEADER RECOGNITION

CYCLE STARTS AND THE PROPER HEADER IS SEARCHED FOR.
8?0:%2553 SECOND GOOD HEADER AND CHECK RECOGNITION

B
%

;.D0 10.

000000

Mov

#CCLR,RKCST1(R2)

;CLEAR CONTROLLER

012352

(LR

BSEDES

sCLEAR BAD SEC DESIRED

032230

JSR
0
.BYTE
BYTE
OBUFF

R4 ,LCADRK

;LOAD ''L'" REGISTERS
sCYLINDER 0
;SECTOR 23
s TRACK 0
;BUFFER ADDRESS OBUFF

JSR

R4 ,BLDDAT

;GO BUILD DATA

032274

JSR

R4 ,0PSTRT

;START

023334

JSR
ERROR

R4 ,DISEEK
4

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

10000C

004046

005037

004052
204056
004060
004061
004062
004064
004066

004437

004070
004074

004437
000002

032014

004076

004437

004102

004437

(2]

#10. ,$TIMES

012762

2842222840220
—t

001234

004040

000012

23
0

=401
WRDATA

000023

104005
104006
104007

A WRITE

—
e o v,

IN DIAGNOSTIC

2222023022R0Rail

000004
012737

104004

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

SCOPE
MOv

004030
004032

00410¢
004110
004112
004114

THE

DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 23.
(LOCK THROUGH SEEK

IR TR

TR IRTR

MULTI-SECTOR WRITE

RRRRRR

ERROR
ERROR
ERROR

ITERATIONS

;WORD COUNT =401
; COMMAND WRDATA

5~
6
7

;PATTERN 2

THE CFERAT.ON

;MR1
JMR?
;MR3

'
'
"

0041106

004437

023316

JSR

R4 ,DSECTR

:SIMULATE

004122
004126
004130

004437

023740

JSR

R4, DRSYNC

;SIMULATE HEADER PREAMB._E

ERROR

:CS1

104010
104011

ERRCR

JMRT

SECTOR PULSE

CONTENTS

IN ERROR

CONTENTS IN ERROR

RRRRR

(g Xon]

TIRGEC.P1Y

VMACYT

CZROECD RK61T DSKLS CTRL PRTS

CZROECD RKO1T DSKLS CTRL PRTS

—t b b O
OO0

004144

004164

NN 2OV~ N

D —d
D
) —d
) =~
D
D
eed

e
e
—

SN~y

—

043675
025204

001510

000026
000026

153703

002266

032737
001402
052703

010000

00435C
004356

000421

13
14

;CST IN ERROR AFTER SEARCH
JRKDCYL OR RKDA [N ERROR AFTER

MOV

#EMS5020,tMwW

:SET MESSAGE FOR WRITE

15
16
17

JMR1
;CS1
:MR1

MOV
M0V
MOV

002260

001000

6%:

032444
002250
000034
000036
000000
002260
002160

002206
002210
002160
002220
002220

00220¢

002246

R4, DHGPSN

:SIMULATE

GAP AND

#7+4 RO

IN ERROR AFTER WRITING SYNC

;ISSUE

;SIMULATE

R4 ,FSBLVV

WRITE

IN ERROR

DATA AND

CLOCKS

TO NEXT HDk

;CLOCK LOOP

:INVERT WORD

:STORE EXPECTED MR?

;GET DESIRED TRACK/SECTOR

#5,R0

JSET

R3
RO
5%

;CLEAR UNUSED BITS
COUNT

FOR SHIFTING

;SHIFT TRACK FOR HEADER AL [GNMENT
;DEC COUNT
;L00P UNTIL ZERO

L.DS.R3

;INSERT SECTOR

NUMBER

MODE

BIT
BEQ
BIS

#CFMT,L.CST

;TEST

#BIT9,R3

JSET FORMAT BIT

JSR

R4 ,FSBLVV

;s INVERT WORD

(MP
BEQ
ERROR
BR

T.CS1,E.CST

JCHECK

R3,E.MR3
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
RKCST1(R2),7.CS1
L.CST,E.CST
3%
25
TST3

T.MRZ2,E.MR?
2%
23
TSTsS

(OMPARE

JGET DESIRED CYLINDER

L.DT,R3

#177600,R3

ECC

IN WRITING DATA OR ECC

:ECC IN ERROR WHILE WRITING DATA
;CST IN ERROR AFTER WRITING DATA AND EC(C

#DMD .MCLK ,RKMR1(R?2)

R3,E.MR?

FOR WRITE

IN ERROR [N READ GAP
IN ERROR AFTER READ GAP
IN ERROR IN WRITING SYNC

;MR1

2!
22

SEAR(H

FAILURE

Mov
MOVB

(MP
BEQ
ERROR

SYNL

JSET MESSAGE FOR WRITE FAILURE

R4 ,DWRITE

L.DCYL,R3

MOV
MOV
MOV
MOV
MOV

IN ERROR

#EMS5021 ,EMW

MOV

DEC
BNE
BISB

HEADER

(ONTENTS

;CS1T

#DMD ,RKMR1(R2)
RO
1%

MOV
ASL

;MR1

DEC
BNF

BIC

004360
004362

004 364
0046372
006374
004376

JSIMULATE

JSR

5¢:

SEQ 0043

(PART 2)

R4 ,DHLCMP

JSR
ERROR
ERROR
ERROR

1¢:

A
E
PAGE 44

JSR
ERROR
ERROR
ERROR

L[0T

42703

002274
032444
002246
002267
1774G0
010005

164-SEP-81
“5:14
MULTI-SECTOR WRITE

JSR
ERROR
ERROR
ERROR
ERROR

000034
000440
000040
N

004206
004212
004220
004226
004230

—_

045754
025604

004274
004302
004304
004310
004310
004314
004320
004326
004334
004342

024276

004166
004174
004200
004202
004204

004232
004236
004242
004246
004252
004256
004262
004264
004266
004270

AV LSS LLS1AN 1,01, W1, S1,¥],$1, V1,811,511,

— =~ NN

004762

ONOWNINN

004160

13:57

30(7046)

004152
004156

006132
004136
004140
004142

2061

14-SEP-81

— b et 2 OO
OO0
=
BB
QOOONH
N

TIR6EC.PN

MACY11

18 BIT

;NO - SKIP

FOR WORD

TwWwO

:STORE EXPECTED MR3
:GET MR?
:GET MR3
;GET (S1
JGET EXPECTED (S1
[F

JYES - SKIP
;CS1 IN ERROR AT MULTI=-SECTOR TiME
;260 TO NEXT TEST

:CHECK IF MP2 0K
:YES - SK]P
:MR2 IN ERROR AT MULTI-SECTOR TIME
.60 TO NEXT TEST

004400

004406

004410
004412

023737

001402

002210

(002250

28%:

(mP

104024
000413

004437
104010
104011

($:

023740

004430 004437 024276
004434
004436
004440

104012
104013
104014

SEQ 0044

T.MR3,E.MR3

sCHECK IF MR3 Ok

24
7573

;MR3 IN ERROR AT MULTI-SECTOR TIME
;.60 TO NEXT TEST

BEQ

)

JSR

‘

R4 ,DSECTR

JSIMULATE 2ND SECTOR PULSE

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

s SIMULATE PREAMBLE
;MR1 ERROR
;CS1 ERROR

‘

JSR

R& ,DHD(MP

;SIMULATE HEADER SEAR(H

ERROR
ERROR
ERROR

12
13
14

sMR1 ERROR
:(S1 ERROR
JRKDCYL OR RKDA IN ERROR

:"tt"'.tfilttt'ti'.'.i"'t'.lRQ!.'Q&"."'.Q'Q."Qtt.'ti'.'i'tt"

MID-TRANSFER SEEK (PART 1)

004452

012762

100000

000000

004460

005037

004664
004470
004472
004473
004474
004476
004500

®
%

IN DIAGNOSTIC

B
32

(LEAR MESSAGES.

AND A GOOD HEADER.

MODE.

ISSUE

A WRITE

WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

CYLINDER O, HEAD 0, SECTOR 25.
TWO WORD ECC.

001234

CONTROLLER WITH A (ONTROLLER CLEAR.

CONTROLLER

AND DRIVE

MAKE

(CLOCK THROUGH SEEK

SIMULATE

A SECTOR PULSE

(LOCK THROUGH 400 WORDS AND THE

SURE

THE

CONTROLLER

ISSUES

AN IMPLJED SEEK TO THE RIGHT HEAD AND CYLINDER.
MAKE SURE THE NEXT HEADER RECOGNITION PROCEEDS PROPERLY.

000012

THE

DATA OF 4)1

000004

012737

(LEAR THE RK611

PJT

N I

0046442

006644

J*TEST 3

AZEE A2 RARRRRRR2RRRRRARRRRRRRRRR
AR RRERR RN

5T3:

94
¥4

JYES = SKIP

ERROR
BR

004414 004437 023316
004420
0C4424
004426

MACY11 30(1046)
14~SEP-81
15:14 PAGE 45
T2
MULTI=SECTOR WRITE (PART 2)

P LT ETE TR T TR FILU

e
e
e
R
P
R
QR
Y IR
T
a i
e
I
e
R
R S

AL NV ANV

MNORLNINLNLNURLNLALALNL NNV ANL NV PVNV NV AUNVAL NI AL AL AL

NNNOOOOOOOOOOWNNVNIVINY NAWNMNWNE SIS0 B
DN NN WIN W WINWWIWNNI NI MO NI PN
PO NONIN ) — =
NSOV
NN
WOV
NN E W
2O OO NN
WA 200NV
WA 2OV
NN W
2OV~

NI NN NNV PV RV NV AL NN NNV NV NN N RL U PPV NNV A

CIRGECD RKEIT DSKLS CTRL PRTS
TIREEC,.PY
14-SEP-81 13:57

SCOPE

MOV

#10.,8TIMES

::D0 10.

MOV

#CCLR,RKCST(R2)

:(LEAR CONTROLLER

002352

(LK

BSEDES

:CLEAR BAD SEC DESIRED

006437
000000
025
000
050130
177377
000023

032230

JSR
0
BYTE
BYTE
OBUF F
-401
WRDATA

R4, LOADRK

:LOAD ‘'L’ REGISTERS
*CYLINDER 0
“SECTOR 25
JTRACK 0
*BUFFER ADDRESS OBUFF
*WORD COUNT =401

004502
004506

004437
000003

032014

JSR
3

R4 ,BLDDAT

;GO BUILD DATA
:PATTERN 3

004510

004437

032274

JSR

R4 ,OPSTRT

:START

004514
004520
004522
006524
004526

004437
104004
104005
104006
104007

023334

JSR
ERROR
ERROR
ERROR
ERROR

Re,DISEEK
4
5
6
7

;SIMULATE IMPLIED SEFK
1(S1 MISCOMPARE
MR
'
‘MR2
:
*MR3
"

25
0

ITERATIONS

*COMMAND WRDATA

THE OPERATION

‘
!

‘

e
d
D
D
D e

PORONLPONIRG
O
AT N1, SN 1,81, N1, V1, V)

—

ced

med

D ed

D oD

AONL AU RNV ND N RN NL AL AL PNV AL NV

LoRVoRVolVelNoRVolie
RV oTo « Yo -Jo e Jo Yo . Jo o Yo -To Jo -To . BT R NI VL V¥]
NOWNH
NN =20V
N NS WA 2O
VO

NN NN N

CIROGECO RK611 DSKLS CTRL PRTS
14=-SEP=-81 13:5 v
"IRGEC.P1T

004530

0046437

02331¢

004534
004540
004542

004437

023740

004544
004550
004552
004554

004437
104012

004556
0046564
004570
004572
0046574
004576

012737
004437

004600
004606
004612
004614
004616

012737
0046437

004620
004624
004632
004640
004642

104010
104011

MACY11

14-SEP-81
15:14
30(1046)
MID-TRANSFER SEEK
13

104015
104016
104017
104020

104017

043675
025204

043754
025604

001579

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMABLE

ERROR

2CST1

JSR
ERROR

R4, DHDCMK
12

;SIMULATE HEADER SEARCH
JMR1 CONTENTS IN ERROP

ERROR

JRKDCYL

000324
000440
000040

004644
004650
004654
004660
004664
004670
004674
004676
00476G0
004702

0N2274

004706
004714
004716
004722
004722
004726
004732
004740
004746
004754
004762
004770
004772
004774

010000

200026
000026

1%:

177400

15
16
17

001000

002206
002210
002160
002220
002220

:CST1

IN ERRCR

CONTENTS IN ERROR

IN ERROR AFTER SEARCH
OR RKDA

IN ERROR AFTER

JSET MESSAGE FOR WRITE

SEAR(H

FAILUR®

;s SIMULATE GAP AND SYNC FOR WRITE

MOV

#EMS5021,EMW

;SET MESSAGE FOR WRITE FAILURE

ERROR
ERROR
ERROR

17
21
22

sMR1 IN ERROR IN WRITING DATA OR ECC
JECC IN ERROR WHILE WRITING DATA
(ST IN ERROR AFTER WRITING DATA AND E((

R4 ,DWRITE

MOV

#53.+4 RO

DEC
BNE

RO
1%

MOV
MOV

[N ERROR [N READ GAP
IN ERROR AFTER READ GAP
IN ERROR IN WRITING SYNC

IN ERROR AFTER WRITING SYNC

;SIMULATE WRITE DATA AND ECC

;ISSUE CLOCKS TO NEXT HDR COMPARE

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

;CLOCK LCOP

L.DCYL,R3

;GET DESIRED CYLINDER

R3,E.MR2
L.DT,R3

;STORE EXPECTED MR2
;CET DESIRED TRACK/SECTOR

#5,R0
R3

;SET COUNT FOR SHIFTING
;SHIFT TRACK FOR HEADER AL JGNMENT

JSR

R4 ,FSBLVV

BIC

#1776400,R3

s INVERT

WORD

sCLEAR UNUSED BITS

RO
9%
L.DS.R3

sDEC COUNT
sLOOP UNTIL ZERO
JINSERT SECTOR
NUMBER

BIS

HCFMT,L.CST
6%

#48179,R3

JTEST IF 18 BIT MODE
JNO - SKIP

JSR
MOv
MOV
MOV
MoV

(MP

R4 ,FSBLVV
R3,E.MR3
RKMR2(R2) ,T.MR2
RKMR3(R2),T.MR3
RKCST(R2),T.(ST1
L.CST,E.CS?
T.0S1,E.CST

s INVERT WORD
:STORE EXPECTED MR3
;GET MR?
;GET MR3
;GET (S
JGET EXPECTED CS?
sCHECK IF OFK

ERROR

;CST

BIT
BEQ

6%:

JMR1 CONTENTS

ERROR

DE(
BNE
BISB
002260

R4 ,DWGFP SN

SECTOR PULSE

JMR1
2CS1
JMRT
2CS1

MOV
ASL

002266

032444
002250
000034
000036
000000
002260
002160

ERROR
ERROR
ERROR

MOV
MOVR

000005

#EM5020,EMW

MOV

032444
002246
002267

MOV

JSR

104021
104022

05300
01370

;SIMULATE

JSR

601510

SEQ 0045

R4 ,DSECTR

ERROR

104013
104014

PAGE 46
(FART 1)

sSR

ERROR

024276

MOV

BEQ
BR

b3 ]

TST4

;SET FORMAT B&!T FOR WORD TWO

JYES - SKIP

IN ERROR AT MULTI=-SECTOR TIME

;.60 TO NEXT

TEST

023737
001402

005026

006437

023316

005032
005036
005040

004437

023749

005042
005046
005050
005052

004437

024276

002250

2§$:

(mMP

104024

000413

104010
104011

104012

T.MR3,E.MR3

JSR

R4,DSECTR

;SIMULATE 2ND SECTOR PULSE

JSR

R4 ,DRSYNC

;SIMULATE PREAMBLE

JSR
ERROR
ERROR

R4 ,DHD(MP
12

;SIMULATE HEADER SEARCH
;MR1 ERROR

JRKDCYL OR RKDA

ERROR

;.60 TO NEXT

10
11

:MR1
;CS1

TEST

ERROR
ERROR

;CS1 ERROR

[N ERROR

:'ttt!t"ttt*fit&lttttii't'ttittttkt'**titttttttttttttt'tt""ttt'

MID-TRANSFER SEEK (PART 2)

»
¥
N

3
©
%
2
¥

PRI

TR T

TRTEST &

CLEAR THE RK611

PUT

THE

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

CLEAR MESSAGES.

AND A GOOD HEADER,

SIMULATE

SECTOR PULSE

CLOCK THROUGH 400 WORDS AND THE

TWO WORD ECC.
MAKE SURE THE CONTROLLER ISSUES
AN IMPLIED SEEK TO THE RIGHT HEAD AND CYLINDER.
MAKE SURE THE NEXT HEADER RECOGNITION PROCEEDS PROPERLY.
ESEA

RS EESARSRRRRRRRRR0SRRRSRRARRRRRRRRlRRRRaRRRRERRS

005054
005056

000004
012737

000012

001234

SCOPE
Mov

#10.,8TIMES

2.D0

005064

012762

100000

000000

MOv

#CCLR,RKCST(R2)

;CLEAR CONTROLLER

005072

005037

002352

CLR

BSEDES

;CLEAR BAD

004437

032230

JSR
0
BYTE
BYTE

R4, LOADRK

:LOAD '"L'' REGISTERS
;CYLINDER O
;SECTOR 25
s TRACK 2
sBUFFER ADDRESS OBUFF
;WORD COUNT -401

OBUFF
=401

25
2

WRDATA

004437
000004

032014

005122

004437

005126

004437

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0O, HEAD 2, SECTOR 25.
(CLOCK THROUGH SEEK

AND DRIVE

10.

ITERATIONS

SEC

DESIRED

; COMMAND WRDATA

JSR

R« ,BLDDAT

032274

JSR

R4 ,0PSTRY

;START

023334

JSR

R4 ,DISEEK

JSIMULATE

;CHECK JF MR3 0K

JYES = SKIP
JMR3 IN ERROR AT MULT.-SE(TOR TIME

TST4

TIME

L%
24

ERROR
ERROR

*04013
104014

JMR2 IN ERROR AT MULTI-SECTOR
;.60 TO NEXT TEST

BES
ERROR
8R

L$:

23
1574

002¢10

005012
005020
005022
0C5024

;CHECK IF MR2 OK
JYES = SKIP

M oam

ERROR
BR

104023

000421

T.MR2,E.MR2
2%

e
tIf

(MP
BEQ

SEG CO4¢

ismia

3$:

(PART

moim

(0224¢

PAG; ?7

002206

MID-TRANSFER SEEK

0c3737
001402

15:14

Mia

13:57

14-SEP-81

;GO BUILD DATA

JPATTERN &

THE OPERATION
IMPLIED SEEK

00477¢
005004
005006
005010

14-SEP-81

3?;1046)

NN —
O NS
OO0
-

[ASIASIASI
ST N1, V1, O 1, ST V1.V, V]

no [HSIAST ST NT VI VIV 1,V], V1,0 ]
P3 £ NN AN NN NN NN

TIR6EC.PUY

MACY11

CZRGECD RKE'T DSKLS CTRL PRTS

CIROE{O RKO1T DSKLS CTRL PRTS
TZREEC.PT
14-SEP-B81 13:5
<285
2286
2287
gsgg

005132
005134
005136
005140

104004
104005
104006
104007

5539

005142

004437

2292
2293
gggg

005146
005152
005154

2296
2297
2298

4
I
MACY11 30(1046)
14-SEP-81
15:14 PAGE 48
Té4
MID-TRANSFER SEEK (FART 2)

SEQ 0047

ERROR
ERROR
ERROR
ERROR

&
5
6
7

;(S1 MISCOMPARE
JMR1
o
:MR?
;MR3
"

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

004437
104010
104011

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE HEADFR PREAMBLE
;MR1 CONTENTS IN ERROR
;CS1 CONTENTS IN ERROR

005156
005162
005164

004437
104012
104013

024276

JSR
ERROR
ERROR

R4 ,DHD(MP
12
13

;SIMULATE HEADER SEARCH
;MR1 CONTENTS IN ERROR
;ST IN ERROR AFTER SEARCH

2301
2302
2303
2304
2305
S%gg

005170
005176
005202
005204
005206
005210

012737
004437
104015
104016
104017
104020

043675
075204

001510

MOV
JSR
ERROR
ERROR
ERROR
ERROR

#EM5020,EMW
R4 ,DWGPSN
15
16
17
20

;SET MESSAGE FOR WRITE FAILURE
;SIMULATE GAP AND SYNC FOR WRITE
JMR1 IN ERROR IN READ GAP
;CST IN ERROR AFTER READ GAP
;MR1 IN ERROR IN WRITING SYNC
2CS1 IN ERROR AFTER WRITING SYNC

2308
2309
2310
23'1
S%}%

005212
005220
005224
005226
005230

012737
004437
104017
104021
104022

043754
025604

001510

MOV
JSR
ERROR
ERROR
ERROR

#EM5021 ,EMW
R4 ,DWRITE
17
.
21
22

JSET MESSAGE FOR WRITE FAILURE
sSIMULATE WRITE DATA AND EC(
sMR1 IN ERROR IN WRITING DATA OR EC(
JECC IN ERROR WHILE WRITING DATA
;CST IN ERROR AFTER WRITING DATA AND ECC

2314
2315
2316
2317
g%}g

005232
005236
005244
005252
005254

012700
012762
012762
005300
001370

000324
000440
000040

MOV
MOv
MOV
DEC
BNE

#53.%4 RO
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R?2)
RO
1%

2320
2321
2322
2323
2326
2325
2326
2327
2328
S%%g

005256
005262
005266
005272
005276
005302
005306
005310
005312
005314

013703
004437
010337
113703
042703
012700
006303
005300
001375
153703

002274
032444
002246
002267
177400
000005

MOV
JSR
MOV
MOVB
BIC
MOV
ASL
DEC
BNE
BISB

L.DCYL,R3
R4 ,FSBLVV
R3,E.MR?
L.DT,R3
#177400,R3
#5,R0
R3
RO
5%
L.DS.R3

JGET DESIRED CYLINDER
s INVERT WORD
;STORE EXPECTED MR?2
;GET DESIRED TRACK/SECTOR
sCLEAR UNUSED BITS
;SET COUNT FOR SHIFTING
sSHIFT TRACK FOR HEADER AL IGNMENT
;DEC COUNT
JLOOP UNTIL _ERO
JINSERT SECTOR NUMBER

2331
2332
S%gz

005320
005326
882%%2

032737
001402
052703

010000
001000

BIT
BEQ
BIS

#CFMT,L.CST
6$
#81T9,R3

;TEST IF 18 BIT MODE
sNO - SKIP
;SET FORMAT BIT FOR WORD TwO

2335
2336
2337
2338
2339
2340

005334
005340
005344
005352
005360
005366

004437
010337
016237
016237
016237
013737

032444
002250
000034
000036
000000
002260

JSR
MOV
MOV
MOV
MOV
MOV

R4 ,FSBLVV
R3,E.MR3
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
RKCST(R2),T.CST
L.CST,E.CST

s INVERT WORD
;STORE EXPECTED MR3
;GET MR?
;GET MR3
;GET (S1
:GET EXPECTED (S1

S%gg

005166

104014

ERROR

000026
000026

002266

002260

002206
002210
002160
002220

;RKDCYL OR RKDA IN ERROR AFTER SEAR(H

s ISSUE CLOCKS TO NEXT HDR COMPARE
;CLOCK LOOP

CIRGECD RKE1T1
“IRECEC.PV]

005374

023737
001402

002160

MACY11

30(1046)
T4

(mp

002220

ERROR

106025

000427

002206

002246

005424

023737
001402

002210

00225¢

(MP

SEQ 0048

(PART 2)

;CHECK IF 0K

JYES = SKIP

iSTS

;.GO TO NEXT TEST

023737
001402

4
J
PAGE 49

T.CST1,E.CST

BEQ

005410
005416
005420
0C5422

005432
005434
005436

16-SEP-81
15:14
MID-TRANSFER SEEK

;CST1

IN ERROR AT MULTI-SECTOR

BEG
ERROR
BR

2%
23
TSTS

T.MR2 ,E.MR2

;CHECK

2%:

CMP
BEQ
ERROR
BR

T.MR3,E.MR3
43
24
TSTS

;JCHECK IF MR3 Ok
JYES - SKIP
JMR3 IN ERROR AT MULTI-SECTOR TIME
;.60 TO NEXT TEST

4%:

JSR

R4 ,DSECTR

s SIMULATE 2ND SECTOR PULSE

104023
000621

106024

0004°3

MR2 0K

;YES - SKIP
sMR2 IN ERROR AT MULT.-SECTOR TIME
;.60 TO NEXT TEST

005440

004437

023316

005444
005450
005452

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE PREAMBLE
sMR1 ERROR
2CS1 ERROR

005454
005460
005462
005464

004437

024276

JSR

R4 ,DHD(CMP

;SIMULATE HEADER SEARC(H

104010
1040M

104012
104013

TIME

ERROR
ERROR
ERROR

104014

12
13
14

AN AR A AN R A RAARAANRRANART AN ANRANARARANNRNRARARRRNNRRAN
RN RS

2N
¥

MID-TRANSFER SEEK AND 24

CLEAR RK611

PUT

SECTOR FORMAT

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 23.
(LOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

DATA

SIMULATE A SECTOR PULSE

AND A GOOD HEADER.
CLOCK THROUGH 400 18 BIT WORDS
AND THE 32 BIT ECC.
CHECK THAT IMPLIED SEEK IS
ég%UESTO NEXT TRACK.
CHECK FOR PROPER HEADER RECOGNITION
U

SATEST S

JMR1 ERROR
2CS1 ERRCR
sRKDCYL OR RKDA IN ERROR

*»

~n = OV

YR N WN—O
O

[ASTANTNT.NT,C
TN U101, ST, VTS 1aV1, N T, V)
N NN N NN N NN LGN UN NN
o [0 No SV
IV IV IV IV IV VD

005402
005404
005406

DSKLS CTRL PRTS
14=-SEP-81 13:57

;;ttttttttt*ttttt*ttttttttt'ttttttttt.ttttttt'!tttttitttttitltt't

003466
005470

000004

012737

000012

001234

Mov

#10. ,$TIMES

;;D0 10.

005476

012762

100000

000000

MOV

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

005504
005510
005514
005516

005037
012700

002352
002000

CLR
MOV
DEC

BSEDES
l%OOO.RO
R

;CLEAR BAD SEC DESIRED
;SET A COUNT TO DELAY FOR CLEAR

20%

;LOOP UNTIL ZERO

005520
005524
005526
005527
005530

004437
000000
023

JSR
0

R4 ,LOADRK

;LOAD ''L'" REGISTERS
sCYLINDER O
JSECTOR 23
:TRACK 0

005300
001376

000
050130

032230

SCOPE

20%:

BNE

BYTE
BYTE

OBUF F

23
0

ITERATIONS

;BUFFER ADDRESS OBUFF

CIRGECO RK611
CZR6EC.PY

2397
2398
2399

2400
2401
2602
2403
2404
2405
2406
2407
2408
2409
24610
¢4
2412
2413
2414
2415
2416
24617
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427

2428
2429
2430
2431
2632
2433
24 34
2435
2436
2437
2438
2439
2440
44l
2442
2443
2444
2645
2446

2647
2448
2449
2450
2451
2452

DSKLS CTRL PRTS
14-SEP-81

13:57

MACY11

14-SEP-81
15:14
PAGE 50
30(1046)
MID-TRANSFER SEEK AND 24 SECTOR FORMAT
T5

SEQ 0049

-401
WRDATA!(FMT

;WORD COUNT =401
; COMMAND WRDATA.CFMT

032014

%SR

R4 ,BLDDAY

;GO BUILD DATA

004437

032274

JSR

R4 ,OPSTRTM

;START

005550
005554
005556
005560
005562

006437

023334

. SR
ERROR
ERROR
ERROR
ERROR

R4 ,DISEEK
&

JSIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

005564

004437

023316

JSR

R4,LSECTR

;SIMULATE SECTOR PULSE

005570
005574
005576

004437

023740

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

005600
005604
005606
005610

004437

005612
005620
005624
005626
005630
005632

012737
004437
104015

005634
005642
005646
005650
005652

212737
004437

005532
005534

010023

005536
005542

004437
000007

005544

177377

104004
104005
104006
104007

104010
1040M

104012
104013
104014

ERROR
ERROR

02427¢

043675
025204

JSR

ERROR
ERROR
ERROR
MoV
JSR

001510

ERROR
ERROR
ERROR
ERROR

104016

104017
104020

104017
104021
104022

043754
025604

005654
005660
005666
005674
005676

000324
000440
000040

005700
005704
005710
005714
005720
005724
005730
005732
005734
005736

002274
032444
002246
002267

005742

010000

MOV
JSR

00112

000026
000026

1%:

177400

5%:

002266
002260

10
11

R4, DHDCMP

12
13
14

#EM5020,
EMW
R4 ,DWGPSN

15
16

JMR1

CONTENTS

IN ERROR

;SIMULATE HEADER SEARCH
2MR1

CONTENTS

IN ERROR

2CS1 IN ERROR AFTER SEARCH
JRKDCYL GR RKDA IN ERROR AFTER SEAR(H
;SET MESSAGE FOR WRITE FAILURE
;SIMULATE GAP AND SYNC FOR WRITE
;MR1

IN ERROR

17
20

JMRT

IN ERROR IN WRITING SYNC

HEMSC21,EMW
R4,DWRITE

;SET MESSAGE FOR WRITE FAILURE
;SIMULATE WRITE DATA AND ECC

;CST

MOV

DEC
BNE

#53.%4
RO
#DMD !MCLK ,RKMR1
(R2)
#DMD
, RKMR1 ( R2)
RO
1%

MoV
JSR
MOV
MOVB

L.DCYL,R3
R4 ,FSBLVV
R3,E.MR2
L.DT,R3

ASL

#177400,R3

IN READ GAP

IN ERROR AFTER READ GAP

;CS1 IN ERROR AFTER WRITING SYNC

Mov
MOV

BIT

OPERATION

;CST CONTENTS IN ERROR

17
21
22

DEC
BNE
BISB

THE

:MR1

ERROR
ERROR
ERROR

BIC

000005

S
6
7

;PATTERN 7

JMR1

IN ERROR

IN WRITING DATA OR ECC

JECC IN ERROR WHILE WRITING DATA
2CS1 IN ERROR AFTER WRITING DATA AND EC
s ISSUE CLOCKS TO NEXT HDR COMPARE
;CLOCK LOOP

;GET DESIRED CYLINDER
s INVERT WORD

;STORE EXPECTED MRZ2
;GET DESIRED TRACK/SECTOR
;CLEAR UNUSED BITS
;SET COUNT FOR SHIFTING
;SHIFT

TRACK FOR HEADER AL IGNMENT

RO
5%
L.DS,R3

;DEC COUNT
sLOOP UNTIL ZERO

H#CFMT,L.CST

;TEST

s INSERT SECTOR
IF

NUMBER

18 BIT MODE

2453
2654
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473

005750
005752
005756
005756
005762
005766
005774
006002
006010
006016
006024
006026
006030

006032
006040
006042
006044

001402
052

O
W

TIRGEC.PY

DSKLS C(TRL PRTS
14~SEP-81 13:57
001090

[elolelelelelols]
ON) =t e b2 0 DD
= WWOOCONO
&
S NNNONONOWES
O WWINININWLWNNG
PONNNNNNN

CIRGECO RK611

032444
002250
000634
000036
000000
002260
002160

002206

30(1046)

BEQ
BIS

6%
#BIT9.R3

:NO - SKIP
"SET FORMAT BIT FOR WORD TWO

JSR

R4 ,FSBLVV

- INVERT WORD

MOV

L.CS1,E.CS1

CMP

006062

004437

023316

006066

004437

023740

006076
006102
006104
006106

004437

024276

002210

002250

2%:

104024

000413

104010
104011
104012
104013
104074

MOV
MOV
MOV
MOV

"STORE EXPECTED MR3
:GET MRQ
:GET MR3
:GET €S1

T.CST1.E.CS1

‘CHECK IF OK

3$
25

CMP
BEQ

T.MR2,E .MR2
2%

TST6

CMP

SEQ 0050

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

BEQ
ERROR
BR

ERROR

023737
001402

002246

14=SEP-81

15:14
PAGE 51
MID-TRANSFER SEEK AND 24 SECTOR FORMAT

000421

006046
006054
006056
006060

006072
006074

MACYT

“GET EXPECTED CS1

‘YES - SKIP
*CST IN ERROR AT MULTI-SECTOR TIME
1:60 TO NEXT TEST

TST6

<CHECK IF MR2 OK
‘YES - SKIP
'MR2 IN ERROR A~ MULTI-SECTOR TIME
1.G0 TO NEXT TEST

T.MR3,E .MR3

:CHECK IF MR3 0K

BFQ
ERROR
BR

4$
24
TST6

*YES - SKIP
*MR3 IN ERROR AT MULTI-SECTOR TIME
1.60 TO NEXT TEST

JSR

RG,DSECTR

:SIMULATE

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

:SIMULATE PREAMBLE
‘MR1 ERROR
*CS1 ERROR

JSR

R4, DHDCMP

ERROR

ERROR
ERROR

2ND

SECTOR PULSE

:SIMULATE HEACER SEARCH

12
13

‘MR1 ERROR
*CS1 ERROR

'RKDCYL OR RKDA IN ERROR

";tttttttttk**ttt*t**lii't 1222282323822 332222222223222222320222%

CYLINDER OVERFLOW (PART 1)

TRTEST 6
> %

P
T

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

P
P

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER.
CLOCK THROUGH 400 WORDS AND THE

NOT SET.

‘e

CYLINDER 632, HEAD 2, SECTOR 25.
TWO WORD ECC.

MAKE

SURE

CLOCK THROUGH SEEK

CYLINDER OVERFLOW ERROR DOES

. %

:':ttti*ttfiit*tttt X33 23 2232222222322 242232222322232222222 X322 PR X1

006110
006112

000004
012737

006120
006124

005037
012762

002352

006132
006136

004437

032230

000632

000012
100000

001234
000000

SCOPE

MOV

#10.,$TIMES

::D0 10.

ITERATIONS

CLR
MOV

BSEDES
#CCLR,RKCST1(R2)

MY LEAR BAD SEC DESIRED

JSR
632

R4, LOADRK

;L OAD '‘L'' REGISTERS
. C Y. INDER 632

;CLEAR CONTROLLER

cZf
CeF

CZRGECO RK611 DSKLS CTRL PRTS
CZR6EC.P11
14-SEP=-81 13:57
2509
2510
2511
2512
3212

006140
006141
006142
006144
006146

025
002
050130
177400
000023

2515

006150

004437

5213

006156

2520
2521
2522
2523
5252

MACY11 30(1046)
14=SEP-81
15:14 PAGE 52
6
CYLINDER OVERFLOW (PART 1)

SEQ 0051

CIR
cIR

.BYTE
BYIE
OBUFF
-400
WRDATA

25
2

:SECTOR 25
STRACK 2
*BUFFER ADDRESS OBUFF
SWORD COUNT =400
. COMMAND WRDATA

1
i
1
i
;

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

004437

032274

JSR

R4,OPSTRT

:START THE OPERATION

006162
006166
006170
006172
006174

004437
104004
104005
104006
104007

023234

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DISEEK
4
S
6
7

;SIMULATE IMPLIED SEEK
; (ST MISCOMPARE
‘MR
v
*MR?
S
TMR3
&

3
1
i
3
3

%ggg

006176

004437

023316

JSR

R4,DSECTR

;SIMULATE SECTOR PULSE

2528

006202

004437

023740

JSR

R4 ,DRSYN(

:SIMULATE HEADER PREAMBLE

2532

006272

004437

024276

JSR

R4 ,DHDCMP

;SIMULATL HEADER SEARCH

2534
Sg%g

006220
006222

104013
104014

ERROR
ERROR

13
14

:CS1 IN ERROR AFTER SEARCH
;RKDCYL OR RKDA IN ERROR AFTER SEAR(CH

1
;

:SET MESSAGE FOR WRITE FAILURE

5219

2529
Sg%?
2533

006154

006206
006210
006216

00000!

104010
104011
104012

ERROR
ERROR
ERROR

10
1
12

"PATTERN 1

*MR1
;CS1
*MR1

CONTENTS IN ERROR
CONTENTS IN ERROR
CONTENTS IN ERROR

i
;
3

2537

000224

012737

043675

001510

MOV

#EMS5020,EMW
R4, DWGPSN
15
16
17
20

*SIMULATE GAP
;MR1 IN ERROR
:CS1 IN ERROR
:MR1 IN ERROR
:CS1 IN ERROR

2544

006246

012737

043754

001510

MOV

HEM5021, EMW

;SET MESSAGE FOR WRITE FAILURE

2551
2552
2553
25564

006266
006272
006300
006306

012700
012762
012762
005300

000016
000440
000040

000026
000026

MOV
MOV
MOV
DEC

#3%4+2 RO
;SET COUNT TO END OPERATION
#DMD 'MCLK ,RKMR1(R2) ;SET CLOCK
#DMD .RKMRT (RZ)
;CLEAR CLOCK
RO
SDEC COUNT
1%

:LOOP UNTIL 0

:
i
3
:

2557

006312

004437

032356

002160

BIT
BEQ

JSR

R4 ,GETREG

:GET RK611 REGISTERS

2561

006326 032737 001000 002174

BIT

#(OE,T.ER

STEST IF IT IS COE

2538
2539
2540
2541
ggz%
2545
2546
2547
ngg

2550

gggg

2558
ngg
2562
2563
2564

006232
006236
006240
006242
006244
006254
006260
006262
006264

00631¢

006316
006324
006334
006336
006344

004437
104015
104016
104017
104020
004437
104017
104021
104022

025204

(25604

001370

032737
001415
001405
012737
104030

JSR
ERROR
ERROR
ERROR
ERROR

JSR
ERROR
ERROR
ERROR

1%:

BNE

100000

]
044545

001622

BEQ
MOV
ERROR

R4 ,DWRITE
17
21
22

#CERR,T.CS1
3$
2
#ES026A,EH030
30

AND SYNC FOR WRITE
IN READ GAP
AFTER READ GAP
IN WRITING SYNC
AFTER WRITING SYNC

;SIMULATE WRITE DATA AND ECC
;MR1 IN ERROR IN WRITING DATA OR ECC
:ECC IN ERROR WHILE WRITING DATA
:CS1 IN ERROR AFTER WRITING DATA AND ECC

STEST IF ANY ERROR SET
*NO - SKIP TO EXIT
‘NO - SKIP
:SET MESSAGE HEADER
S"UNEXPECTED COE ERROR''

i
1
1
i
;

b
1
1
;

i
:

i
;
:

006350

012737

044545

001632

28$:

B8R

JEXIT

MoV

#ES026A,EHO3T

;SET HEADER

StEQ 0052
NN G Cad

2567

CYLINDER OVERFLOW (PART 1)

A CAIWN

0004604

PAGE 53

il Al mud adt alt att sl alt altAll allall all altaAlt attAlt alt alt ali At altadt alt Attt a bt alt A CAlLAIL AlUNE ATt altalt it alt altalt altalUAN

006346

Té

mit

g?gg

13:57

15:14

14-SEP-81

TIRGEC.P1

MACY11 30(1046)

CZROECD RK611 DSKLS CTRL PRTIS

TIRGEC.PT

2568
2569
2570
2571
2572
2 573
25 74
2575
2576
2577
25 78

006356

14-SEP-81

13:57

MACYT

14-SEP=-81

15:14

PAGE

SEQ 0053

CYLINDER OVERFLOW (PART 1)

ERROR

104037

;"UNEXPECTED ERROR TESTING COE'’

3s:

006360

SEXZEZXEXIZE2ZEZZ2AEAARRAZAREZZE2222RRRA2
222222 R
R RR R

'TEST 7

CYLINDER OVERFLOW (PART 2)

. %

"
o

2 579

2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
259N
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618

3?é1046)

(LEAR THE RKA611 CONTROLLER WITH A CONTROLLER (LEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 401 WORDS TO AN RK(06 IN 26 SECTOR FORMAT,
AND DRIVE

TWO ECC

CLOCK THROUGH SEEK

CYLINDER 632, HEAD 2, SECTOR 25.

CLEAR MESSAGES.

AND A GOOD HEADER.
WORDS.

MAKE

SIMULATE

A SECTOR PULSE

C(CLOCK THROUGH 400 WORDS AND

SURE

CYLINDER OVERFLOW ERROR

SETS.

E'"'.."'.'....Qfi'."""t...Q'.".."‘Q'..'Q..'..""'Q"'i.Q'.
SCOPE

T1ST?7

006360
006362

000004
012737

000012

006370
006374

005037

002352

006402
006406
006410
006411
006412
006414
000416

004437
000632

032230

006420
006424

004437

032014

JSR
2

R4 ,BLDDAT

;GO BUILD DATA
JPATTERN 2

006426

004437

032274

JSR

R4 ,OPSTRT

;START

006432
006436
006440
006442
006444

004437

023334

JSR
ERROR

R4 ,DISEEF
&

ERROR
ERRCR

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

6
7

IMR1

000446

004437

023316

JSR

R4,DSECTR

s SIMULATE

006452
006456
006460

004437

023740

JSR
ERROR

R4 ,DRSYNC
10

sSIMULATE HEADER PREAMBLE
JMRT CONTENTS IN ERROR

006462
006466

004437

JSR
ERROR

R4 ,DHD(CMP
12

sSIMULATE HEADER SEARCH
JMR1 CONTENTS IN ERROR

ERROR

JRKDCYL OR RKDA IN ERROR AFTER SEARCH

006470
006472

006474
006502
006506
006570

012762

100000

001234
000000

MOV

#10.,8TIMES

;.00 10.

(LR
MmNy

BSEDES
#CCLR,RKCST1(R2)

;CLEAR BAD SEC DESIRED
;CLEAR (ONTRGLLER

JSR

R& ,LOADRK

:LOAD ''LU°" REGISTERS

.BYTE

25
2

:TRACK 2

427
BYTE
OBUFF

=401
WRDATA

000023
000002

104004
104005
104006
104007

104010
104011

1064012
104013
104014

012737
004437
104015
104016

ERROR

ERROR
024276

ERROR

043675
025204

001510

ITERATIONS

:CYLINDER 632
:SECTOR 25

JBUFFER ADDRESS OBUFF

JWORD COUNT =401
; COMMAND WRDATA

THE

:MR2
MR3

;CS1

2CS1

OPERATION

'
"
SECTOR PULSE

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH

MOV
JSR

#EM5020,EMW
R4 ,DWGPSN

sSET MESSAGE FOR WRITE FAILURE
s SIMULATE GAP AND SYNC FOR WRITE

ERROR

;CS1

ERROR

JMR1

[N ERROR

[N READ GAP

IN ERROR AFTER READ GAP

N~y

(ZROECO RKETT DSKLS CTRL PRTS

3?;1046)

ERROR

104017
104020

012737

5
(
14-SEP=81
15:14
PAGE 3?
CYLINDER OVERFLOW (FPART

043754
025604

00150

ERROR

;MR1

MOV

NEMS021 ., EMW

;SET MESSAGE FOR WRITE FAILURE

ERROR

:MR1

JSR

00€534

SEQ 0054

R4 ,DWRITE

;CS1

IN ERROR

JSIMULATE WRITE DATA AND ECC
IN ERROR

21
22

JECC IN ERROR WHILE WRITING DATA
;CS1 IN ERROR AFTER WPITING DATA AND ECC

MOV
MOV
MOV
DEC

#3%4+2 RO
JSET
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
JDEC

COUNT
JLOOP UNTIL O

JSR

R4 ,GETREG

:GET RK611 REGS

BNE

JYES = EXIT TEST

JTEST

COE

ANY OTHER ERROR SET

COUNT TO COMPLETE OPERATION
;RUN THE CLOCK

000016
nN00440
000049

006562
006566
006574

032356

001000

002174

BIT

006576
006604
006606
006610

100000

002160

BIT

#CERR,T.CS1

JTEST

044545

001602

MOV

#ESO26A,.EHO26

;SET HEADER

006612
006620

1%:

BNE

BEQ
ERROR
BR

000404
012737
104026

2%:

IN WRITING DATA CR ECC(

ERROR
ERROR

006536
006542
006550
006556
006560

0000c6
000026

IN WRITING SYNC

IN ERROR AFTER WRITING SYNC

ERROR

#COE,T.ER

2%
27
3%

SET

JNO - SKIP
;"NO COE WHEN EXPECTED''
;G0 TO EAIT

J"UNEXPECTED ERROR WHEN FORCING COE'

3%:

000622

SBTTL

*«NPR WRITING OF MEMORY

:;Q..'*"Q"fi'.fifi"Q"t"'*""'tfi'.fi..fi"tfitfi'ti't*tfi'fi".‘fit‘.'

TRTEST

NPR WRITING OF

MEMORY

- %

.
M

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.
|ISSUE A READ DATA
OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,

ot
.Y
.

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 40 DATA WORDS.
VERIFY THAT THE WORDS
ARE WRITTEN PROPERLY [N MEMORY.

| 3

CYLINDER 0O, HEAD 0, SECTOR 0.

CLOCK THROUGH SEEK

:'.‘""Q"."tt'fi."."fi.t"."..'Q"'Qt."".'l'..’Q.Q.'"""l‘.."
006622
006624

000012

006632
006636

002352

006644
006650
006654
006660
006662

002344
002354
032230

006663

100000

001234
000000

1ST10:

SCOPE

MOV

#10.,8TIMFS

::D0 10,

CLR
MOV

BSEDES
#CCLR,RKCS1(R2)

JCLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

(LR
(LR

ECCSRC
HIBITS

;CLEAR ECC SOURC(E
JCLEAR H] OPDER BITS

JSR
0
BYTE
.BYTE

R4 ,LOADRK
0
0

ITERATIONS

;LOAD "L°" REGISTERS
JCYLINDER O
;SECTOR O
JTRACK O

VACY11

~N~N

CZROECD x611 DSKLS CTRL PRTS
14-SEP-81 13:57
CIRGEC.PN

13:57

30(1046)
110

14-SEP-81
15:14
PAGE
NPR WRITING OF MEMORY

047124

SEQ 0055

000021

2684

006672

004437

03770

JSR

R4, CLRIBF

2686
2687

006676
(0€702

004437
000003

032014

%SR

R4 ,BLDDA

269G
2691
2692
2693
2694
2695

906704
006710
006714
006716
006720
006722

004437

JSR
<SR
ERROR

R4 ,0PSTRT
R4 ,DISEEK
&

ERROR
ERROR

6
7

2697

006724

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

2699
2700
2701

006730
006734
006736

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYN(
10
"

sSIMULATE HEADER PREAMBL£

2703
2704
2705
2706

006740
006744
006746
006750

004437

JSR

R4 ,DHD{MP

;SIMULATL HEADER SEAR(CH

2708
2709
2710
2711
2712

006752
006756
006760
006762
006764

004437

2714
2715
2716
2717
2718

006766
006774
007002
007006
007010

012737
012737
004437
000060

20
21
22
SS

067014
007016
007020
007022

104034
104035
104036
104041
104042
104043

2726
2727

007024
007030

12 70
1 270

—0O

[BUFF

006664
006666
006670

2729
2730
2731
2732
2733

007034
007040
007044
007050
007054

1 270

JBUFFER ADDRESS

2680
2681
2€82

2735

007056

021011

007012

004437

104004
1040065
104006
104007

104010
104011

104012
104013
104014
104015
104016
104032
104053

719

177400

0 503
0 503
012703
005005

;WORD COUNT =400
; COMMAND RDDATA

RDDATA

ERROR

024276

ERROR
ERROR

ERROR

02650C

000000
004066
027176

JSR

ERROR
ERROR
ERROR
ERROR
002346
002350

12
13
14

R& ,DRGPSN

15
16
32
33

;GO CLEAR [NPUT BUFFER
'

;60 BUILD DATA

JPATTERN 3
;START

THE

OPERATION

;SIMULATE [MPLIED SEEK
; (ST MISCOMPARE
;MR

)

;MR3

JMR?2

JMR1

(ONTENTS

IN ERROR

(ST CONTENTS IN ERROR
sMR1

(ST

CONTENTS

IN ERROR

IN ERROR AFTER SEAR(H

JRKDCYL

OR RKDA

[N ERROR AFTER

;GO READ GAP AND SYN(
:MR1 IN ERROR READING GAP

;CS1

IN ERROR AFTER READING GAP

;CS1T

IN ERROR AFTER RLADING SYN.

JMR1

IN ERROR

READING

SYNC

JLOAD EXPECTED PATTERN
JLOAD EXPECTED POSITION
260 SIMULATE DATA READ
;NUMBER OF WORDS TO SIMULATE

MOV
MOV
JSR

#0 ,ECPATX
#4066 ,ECPOSX
R4 ,DREAD

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

34
35
36
41
&2
43

050130

MOV
MOV

#0BUFF ,RO
#]BUFF
R1

JSET POINTER 10 GOOD DATA
JSET POINTER TO INPUT DATA

000017

MOV
(LR

#10. R4
$ESCAPE

MOV

#40,R3

JSET ERROR LIMIT COUNT
;CLEAR ESCAPE
sCLEAR ERROP REPORT SWIT(H

;SET

(MP

(RO), (RD)

. COMPARE

047124

001236
001220
000040

(LR

1%:

$TMP7

SEAR(H

JMR1

ECC
2CS1
JECC
JERR
JERR

IN ERROR READING DATA OR E((

ERROR READING DATA
ERROR AFTER READING DATA OR EC(
REG INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC POS COUNT

COMPARE LIMIT

sCLEAR WORD COUNTER
DATA

16-SEP-81

MACY11

~~y

DSKLS CTRL PRTS

OO0

(ZRGECD RK61T
CIR6EC.PIY

2740
2741

007060
007062
007064
007066
007070
007072

2744

0079074
0C7076

SEQ 005¢

JSKIP IF NOT EGQUAL
JELSE DEC WORD COUNT LIM]T

5¢
RS

JIF 0 - SKIP TO EXIT
;BUMP WORD COUNT

B8R

.LOOP

DEC
REQ

R4
5%

;DEC ERROR LIMIT
JIF 0 - SKIP

8tQ
INC

s ¥

(RO)+,(R1>

;BUMP DATA POINTERS

007700

001162
001164
001166

MOV
MOV
MOV

(RO) ,$REGO
(R1) ,$REGT
RS .SREG?

;GET GOOD WORD FOR REPORT
;GET BAD WORD
;GET WORD NUMBER

07114
007120
007122
007126
007130

001220

TST
BNE

S$TMP?7
3

JDECIDE WHICH ERROR REPORT T0 USE
JSKIP IF NOT O

ERROR

007104
007110

007132
007134

INC

001220

BR
104040

3%:

000752

ERROR 40

LSBTTL
A

AARAAAS

;REPORT

JSK]P

FIRST

ERROR LINE

JREPORT ALL OTHER LINES

;SK1P

007136
0067140

000004
012737

007146

005037
012762
005057
005037
005037
004437
000000
000
000
047124

000001

002352

100000

002344
002344
002354
032230

000000

000021

CLEAR Rk611

CONTROLLER WITH A (ONTROLLER CLEAR.

CONTROLLER

IN DJAGNOSTIC

MODE.

ISSUE

A READ

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CLINDER O, HEAD O, SECTOR 0.
(LOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

SIMULATE

DATA

A SECTOR PULSE,

A GOOD HEADER, 400 DATA WORDS, AND A GOOD 32 BIT
VERIFY THAT COMMAND (OMPLETES WITHOUT ERROR.

EC(C.

M AAAEAAEARASAERRARRAARARRARRRRRRSSRARRRRRRRRRRRRRRRRARERRRRR
RN ]

T11:

SCOPE

Mov

#1,8TIMES

;.D0

CLR
Mov
(LR
CLR
CLR

BSEDES
#CCLR,RKCST1(R2)
ECCSRC
ECCSRC
HIBITS

;CLEAR
;CLEAR
sCLEAR
;CLEAR
;CLEAR

JSR
0
BYTE
BYTE

R4, LOADRK
0
0

RDDATA

£31770

RS RRRRRRRRRRRRRRRSRAR
NN A

READ DATA WITH NO ERROR

IBUFF
=400

177400

004437

001234

RSS2SR

PUT

Y
R T TR
ARTR TP YR
YR SR
Y

2770

007212

JELSE BUMP $TMP?

««E{( ERROR DETECTION/CORRECTION TESTS

TVTEST 11

007152
007160
0C 7164
07170
007174
007200
007202
007203
007204
007206
007210

$TMP?7

007136

2764

2791

2%
RY

(mpP

2765
2766
2767
2768
2769
2771
2772
2773
2774
27758
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789

BNE
DEC

2745
2746
2747
2748
2746
2750
2751
2752
2753
27564
2755
2756
2757
2758
2759
2760
2761
2762
2763

5
E
16=SEP=81
15:14
PAGE 57
NPR WRITING OF MEMGCRY

27462
2743

00100¢
005303
001424
005205
022021
000771

5?%8066)

273%6
2737
2738
2739

VMACY11

JSR

ITERATION

BAD SEC DESIRED
CONTROLIER
ECC SOURCE FLAG
ECC SOURCE
HI ORDER BITS

JLOAD "'L'" REGISTERS
sCYLINDER O
;SECTOR 0
:TRACK 0

JBUFFER ADDRESS IBuFf
JWORD COUNT =400
s COMMAND RDDATA

R4, CLRIBF

;G0 CLEAR

INPUT BUFFER

“IR6E(O RO DSKLS C(TRL PRTS
14=SEP=-81 13:¢ N
TIRG6E( P

)

2792

2793

00 00 00 0o 00 0D 0o

roNLNDPONINONY

2794
2795
27596
2797

MACY11

30(1046)
TMm

032014

007216
007222

004437
00000«

007224
007230
007234
007236
007240
007242

004437
004437

007244

004437

023316

007250
007254
007256

004637
104010
104011

023740

007260
007264
007266
007270

004437

024276

007272
007276
007300
007302
007304

004437

007306
007314
007322
007326
007330
007332
007334
007336
007340
007342

012737
012737
004437

007344

012700

002710

007350
007356
007364
007366

012762
012762
005300
001370

000440
000040

000026
000026

007370
007376
007402
007410
007416
007424
007426
007430

016237
004637
042737
052737
023737
00140

000000
032356
000001
000200
002160

002160

104015
104016
104032
104033

000400

ERROR

JSR

R4,DSECTR

;SIMULATE

SECTOR PULSE

JSR

R& ,DRSYNC

;SIMULATE

HEADER

ERROR

2CS1

ERROR

027176

002346
002350

1%:

2%:

;START THE OPERATION
;SIMULATE [MPLIED SEEK
:(S1 MISCOMPARF

IMR1

MR3

IMRZ

JMR1

CONTENTS

PREAMBLE

IN ERROR

CONTENTS IN ERROR

R4 ,DHD(MP
12

;SIMULATE HEADER SEAR(H
sMR1 CONTENTS IN ERROR

ERROR

JRKDCYL

JSR

R4 ,DRGPEN

;G0 READ GAP AND SYNC

FRROR

(ST

IN ERROR AFTER SEARCH
OR RKDA

[N ERROR

AFTER

;MR1

IN ERROR READING GAP

:MR1
2CS1

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

IN ERROR AFTER READING GAP

ERROR
ERROR

32
33

MOV
MOV
JSR
400
ERROR

#J,ECPATX
#4G46,ECPOSX
R4 ,DREAD
34

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
.60 SIMULATE DATA READ
JNUMBER OF WORDS TO SIMULATE
JMR1 IN ERROR READING DATA OR E(C(

ERROR

JERR

ERROR
ERROR
ERROR
ERROR

35
36
41
&2

MOV

#40,+37.,R0

MOV

#DMD !MCLK ,RKMR1(R2)

DEC
BNE

RO
1%

;veC COUNT
;LOOP UNTIL O

RKCST1(R2),T.CST
R4 ,GETREG
#G0,E. (ST
#RDY,E.CST
T.CS1,E.CST

;GET (S1
GEY 611

MOV

MOV
JSR
BIC
BIS
(MP

002220
002220
002220

;GO BUILD DATA

JPATTERN 4

JSR
ERROR

ERROR

104034
104035
104036
104041
106042
106043

104056

R4 ,0PSTRT
R4,DISEER
&

ERROR

0000C0
0146066

SEQ 0057

JSR
JSK
ERROR

ERROR

0265C0

R4 ,BLCDAT

ERROR

104013
104014

104004
104005
104006
104007

104012

164-SEP-81
15:14
PAGE
READ DATA WITH NO ERRQR

BEQ
ERROR

#DMD ,RKMR1(R2)

2%
56

JECC
;CS1
;ECC
JERR

ERROR READING DATA
ERROR AFTER READING DATA OR E((
REG INCORRECT AFTER ECC READ
IN ECC PAT CALC.

JSET

COUNT

IN ECC ©DS COUNT

TO EMPTY SILV

;CLOCK CGNTROLLER

REGS

CHECK IF (1 (ORQECT
SYES - SKP
;"'(SY IN ERROR AFTER READ DATA'

P~y

(IRGE(CO RKOIT DSKLS TTRL PRTS
13:57
14=SEF
TIRGEC.PTT

30(1046)
112

"4-SEP-81
15:14
READ DATA WITH ONE

PAGE 59
BIT BLRST

ERRQOR

(PART

'TEST

SEQ (058

°)

READ DATA W]TH ONE BIT BURST ERROR

(PART

TM)

.
M

CLEAR RK611 (ONTROLLER WITH A CONTROLLER (LEAR.
ISSUE A READ DATA
PUT CONTROLLER IN DIAGNOSTIC MODE.
OfF 400 WORDS TO AN RKQO6 IN 26 SECTOR FORMAT,

AND DRIVE

CYLINDER 0, HEAD 0, SECTOR 0.

M
HA

CLEAR MESSAGES.

C(CLOCK THROUGH SEEK

SIMULATE

A SECTOR PULSE,

A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING
A ONE BIT BURST ERROR OF A (0 THAT SHOULD BE A 1

VERIFY

s
o

THE

COUNTING OF

THE POSIT.ON

:-.Qtttt!ttt'ttttttttttt't"t'tt.tttttttttttttltQtttQttttt.ttttt"

2897
2898

2903

007430
007432

000004
012737

007440
007444

005037
012762

002352

007452
007456
007462
007464
007465
007466
007470
007472

005037
004437

002354
032230

007474

004437

031770

JSR

R4 ,CLRIBF

;G0 CLEAR

007500
007504

004437
000007

032014

JSR
7

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 7

007506

012700

000530

MOV

#530,R0

JSET

007512
007520
007526
007534
007542
007544
007552
007554
007562

012737
012737
012737
032760
001004
052760
000403
042760

MOV
MOV
MOV

#177446,0BUFF+1000
;STORE ECC WORDS
#15457 ,0BUFF+1002
#1,ECCSRC
JSET SOURCE TO INDICATE ECL

BIC

#BIT6,0BUFF(RO)

;CLEAR BIT

007562
007566
007572
007574
007576
007600

004437
004437

JSR
JSR

R4 ,0PSTRY
R4, DISEEK

;START THE OPERATION
JSIMULATE IMPLIED SEEK

ERROR
ERROR

6
7

MR
:MR3

007602

004437

000000
000
000
047124

000001
100000

001234

TSTi2:

000000

S{OPE
MOV

#1,8TIMES

;:D0

CLR
MOV

BSEDES
#CCLR,RKUST(R2)

;CLEAR BAD SEC DESIRED
;CLEAR (ONTROLLER

(LR

HIBITS

;CLEAR H]

JSR
0
.BYTE
BYIE
IBUFF
=400

177400

000021

R4, LOADRK

0
0

- (N =

000001

000100

A &S NN
OoOHrNO

177446

015457

OOOO
NO WD
QNY
— —

RDDATA

0001G0

050130

000100

050130

}2?%:
V

104004
104005
104006
104007

BIT
BNE
BIS
BR

ITERATION

ORDER BITS

JLOAD “'L"' REGISTERS
JCYLINDER 0
JSECTOR O
;TRACK 0

JBUFFER ADDRESS IBUFF
JWORD COUNT =400
; COMMAND RDDATA

INPUT BUFFER

INDEX

INTO BUFFER

#BIT6,0BUFF(RO) ;TEST IF BIT SET
100%
JYES - SK]P
#BIT6,0BUFF
(RQO) ;ELSE SET BIT
101%

ERROR
ERROR

023316

JSR

&
S

R4,DSECTR

:CS1 MISCOMPARE
*MR1

;SIMULATE

'
*

SECTOR PULSE

I[N BUFFER

[ X2¥

MACY11

~rgy

CIRGE(D RK61T DSKLS CTRL PRTS
14-SEP-81 13:5°
TIRGEC.PI?

2941

2942
2943

2944

2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959

007616
007622
007624
007626

004437

007630
007634
007636
007640
007642

004437

007644
007652
007660
007664
007666
007670
007672
007674
007676
007700

012737
012737
004437
000400

104010

VACY11

3 (1046)

104012
1064013
104014
104015
104016
1064032
104033

024276

026500

000001
004066
027176

007724
007730
007734
007742
007750
007754
007762
007770
007772
007774
010002

031616
030462
000032
000030
002350
002350
002254

023737
001401

002252

005237
005301
001343
005300
001406
012737
012701
000733

002326

005737
001012
012701

001214

104043

R4 ,DRSYNC

177777

020000

005276

00225
00221

002212

1%:

2%:

002350

R4, DHDCMP

;SIMULATE HEADER SEARCH

12
13
14

R4 ,DRGPSN

CONTENTS

IN EKROR

;CST CONTENTS IN ERROR
;MR1

;CS1

CONTENTS

IN ERROR

IN ERROR AFTER SEAR(CH

JRKDCYL

RKDA

[N ERPOR

AFTER

JMR1

IN ERROR READING GAP

;MR1

IN ERROR READING SYNC

MOV
MOV

#1,ECPATX
#4066 ,ECPOSX

ERROR
ERRGR
ERROR
ERROR
ERROR
ERROR

34
35
36
&1
42
43

;LOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION
;GO SIMULATE DATA READ
;NUMBER OF WORDS TO SIMULATE

MOV
MOV

#20,BITCNT
#5 R

CLR

$TMPS

JSR
JSR
MOV
MOV
INC
MOV
CMP

R4 ,DREAD

#1%672
R

B8R

BITCNT

ERROR READING DATA
ERROR AFTER READING DATA OR ECC
REG INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC POS COUNT

JSET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS PASS THRU 0

;SET COUNT FOR ECCPOS TO O FIRST PASS
;CLEAR SWITCH
:GENERATE ECC
;JGET PATTERN

;GET POSITION

;BUMP POSITION EXPECTED

:SET FOR COMPARE AND REPORT
sCHECK [F PATTERN CORRECT
JYES - SKIP
JYES -

SKIP

;JBUMP BIT COUNT

R1
3
RO
L$
#-1,ECPOSX

;DEC COUNT

;GO DO LOOP AGAIN

#20000,R1

TST

$TMPS

MOV

25276 ,R1

BNE

;ECC
;CS1
;ECC
;ERR
JERR

IN ERROR READING DATA OR ECC

sCHECK JF POSITION CORRE(CT

INC

sMR1

IN ERROR AFTER READING SYNC

E.ECPS,T.ECPS
28

ERROR

DEC
BNE
DEC
BEQ
MOV

;CS1

IN ERROR AFTER READING CAP

;GO RFAD BIT

1$
42

(MP
BEQ

;CST

PC.RCBIT
PC.ECCGEN
RKECPT(R2),T.E
RKECPS(R2) _T.E
ECPOSX
ECPOSX,E.ECPS
E.ECPT.T.ELPT

BEO
ERROR

5¢

;GO READ GAP AND SYN(

15
16
32
33

MOV
4%:

;SIMULATE HEADER PREAMBLE

JSR

MOV

00221
00¢21

SES 0059

JSR
400

3s:

(PART

ERROR

ERROR
ERROR
ERROR
ERROR

002326

PAGE 60
BIT BURST ERROR
JMRT

JSR

002346
002350

ERROR

000020
000005
013672
001214

104042

JSR

ERROR
ERROR

104034
104035
104036
104041
104042
104043

023737
001401

15:14
READ DATA WITH ONE
14-SEP-81

ERROR

104011

007702
007710
007714
007720

~N
~n

2934
2935
2936
2937
2938
2939
2940

02374(

—

2933

004437

—

2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2627
2928
2929
2930
2931
2932

007606
0076°2
007614

o
o

2912
2913

13:57

291

14-SEP=-81

—

2904
2905
2906
2907
2908
2909
2910

DSKLS CTRL PR7S

RN AV IR AU
R

TIREECD Rk611
“IRGEC.P1Y

TO ZERO IN ECCPOS

;NOT YET ZERQ - LOOP
:DEC PASS THRU 0 COUNT

JIF 0 - SKIP
JPRESET

EXPECTED POS

JSET COUNT

7O GO

1O ZFRO

TO NEXT O IN ECC POS

JTEST SWITCH
JALREADY SET - SKIP

;SET COUNT TO FINAL POSITION

CZROECD RK611

16=-SEP-81

010050
010054
010062
010066

012700
012737
005237
000716

0
1
0

01
01
01
01
01
N
01
0
01
0

004737
004437

031616
032356

2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990

b
ek
d
b
ad
b
b

S NWNWNANND
= Oo
[0 W o N0 W aNo W NNl I VW Yo o

D
nd
d
—

NN SN

0N
01
)
01

OQOOOOOOOOOONDO

CZR6EC.PIY

2960
2961
o962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978

DSKLS (TRL

013737
052737
042737
023737
001402

VMACY1Y

30(1046)
112

104045

READ

002350

002260
100200
000001
002160

PAGE 61

BIT BURST

#1,R0
#-1,ECPOSX

$ TMPS
3%

INC
BR

5%:

15:14

DATA WITH ONE

MOV
MOV

000100

0021764

100000

002234

6%:

;SET RO TO RETURN AFTER ONE PASS

;SET EXP POS TO GO TO O ON NEXT BIT
;BUMP SWITCH
;60 DO LOOP AGAIN

RIS
BIC
CMP
BEQ
ERROR
BR
BIT
BEQ

;SET READY AND ERROR
;CLEAR GO

RSN

LATEST 13

JCHECK JF CS1 CORRECT
JYES - SKIP
#ECH,T.ER
’$

#DCK E.ER

ARSRRRS

CLFAR RK611

JTEST IF ECC HARD ERROR SET
JNO - SKIP
;SET EXPECTED ERROR REG

READ DATA WITH

PUT

iRt

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

AND DRIVE

IN DIAGNOSTIC MODE.

CLEAR MESSAGES.

ISSUE

A READ

SIMULATE

001234

SCOPE
CLR

MOV

#1,8TIMES
BSEDES
#CCLR,RKCST(R2)

CLR
JSR

HIBITS
R4, LOADRK

.BYTE
BYTE
IBUFF
=400

0
0

MOV

RRRRRRRRRRRRRRR

;.D0 1 ITERATION
;CLEAR BAD SEC DESIRED

;CLEAR CONTROLLER

010222

004437

031770

JSR

R4,CLRIBF

;GO CLEAR [NPUT BUFFER

3010
3011

010226
010232

004437
000007

032014

;SR

R« ,BLDDAT

:GO BUILD DATA

010234

012700

000530

MOV

#530,R0

JSET INDEX INTO BUFFER

010240

012737

177446

MoV

#177446,0BUFF +1000

- —

o OOOCMOO
no ~ororororPLPOND
n —d
ed —d 2 OO
o OB NWNNVO SO

000000

15713

SRRARRRRlR ARt

(=] OOOOOOOO

000001
002352
100000

SRR

OOOO

000004
012737
005037
012762

AEEEAS

3008

o
o
o

DATA

A SECTOR PULSE,

005037
004437
000000

]

A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING
AN 11 BIT BURST ERROR. VERIFY THE COUNTING OF THE POSITION

o
|
[«

RRE

BIT BURST ERROR

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0. CLOCK THROUGH SEEK

SEQ 0060

JGET '611 REGISTERS
;GET EXPECTED rS1

ERROR

(PART

;ONE MORE BIT TO SET READY

MOV

7%:

ERROR

JSR
JSR

MOV

104044

000410
032737
001404
012737

14-SEP-§"

002354
032230

000021

JSECTOR 0

;TRACK 0
;BUFFER ADDRESS

;WORD COUNT =400

IBUFF

; COMMAND RDDATA

RDDATA

051130

;CLEAR H] ORDER BITS
;LOAD "'L'" REGISTERS
;CYLINDER O

- ————

;PATTERN 7

;STORE ECC WORDS

w4
4

CIR6ECD RKO61T DSKLS CTRL PRTS
TIROEC.PY
14-SEP-81 13:57
3016

010246

012737
012737
032760
001004
052760
000403
042760

J
5
30(1046)
14-SEP-81
15:14 PAGE 62
713
READ DATA WITH 11 BIT BURST ERROR

MOV
MOV
BIT
BNE
BIS
BR
BIC

#15457,0BUFF+1002
#1,ECCSRC
sSET SCURCE TC INDICATE ECC IN BUFFER
#81T6,0BUFF(RO) TEST [F BIT SET
100%
JYES - SKIP
#BIT6,0BUFF
(ROY ;ELSE SET BIT
101%
#B1T6,0BUFF
(RO) ;CLEAR BIT

032274
023334

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,OPSTRT
R4,DISEEK
4
5
6
7

;START THE OPERATION
sSIMULATE IMPLIED SEEK
sCS1 MISCOMPARE
JMR1
"
JMR?
'
:MR3
"

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

010334
010340
010342

004437
104010
104011

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE HEADER PREAMBLE
;MR1 CONTENTS IN ERROR
;CS1 CONTENTS IN ERROR

3038
3039
3040
%82;

010344
(70350
010352
010354

004437
104012
104013
104014

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP
12
13
14

;SIMULATE HEADER SEARCH
sMR1 CONTENTS IN ERROR
;CS1 IN ERROR AFTER SEARCH
JRKDCYL OR RKDA IN ERROR AFTER SEARCH

30643
3044
3045
3046
ggzg

010356
010362
010364
010366
010370

004437
104015
104016
104032
104033

026500

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPSN
15
16
32
33

;GO READ GAP AND SYNC
:MR1 IN ERROR READING GAP
;CS1 IN ERROR AFTER READING GAP
ZMR1 IN ERROR READING SYNC
;CS1 IN ERROR AFTER READING SYNC

3049
3050
3051
3052
3053
3054
3055
3056
3057
3058

010372
010400
010406
010412
010414
010416
010420
010422
010424
010426

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

0000017
004066
027176

Mov
MoV
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#1,ECPATX
#6066 ,ECPOSX
R4 ,DREAD
34
35
36
41
42
43

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
sMR1 IN ERROR READING DATA OR ECC
;ECC ERROR READING DATA
;CS1 ERROR AFTER READING DATA COR ECC
SJECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

3061
3062

010430
010436

012737
012700

000020
000005

MOv
MoV

#20,BITCNT
#5,R0

JSET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS PASS THRU O

gggg

010446

005037

001214

CLR

$TMPS

sCLEAR SWITCH

3017
3018
3019
3020
3021
3022
%852

010254
010262
010270
010272
010300
010302
010310

3025
3026
3027
3028
3029
%8;9

010310
010314
010320
010322
010324
010326

004437
004437
104004
104005
104006
104007

%8%%

010330

3034
3035
%8%9

3060
3063

3066
3067
3068
3069
3070
3071

010442

010452
010456
010462
010470
010476
010502

012701

004737
004737
016237
016237
005237
013737

015457

MALY11
05132

000001
000100

002344
050130

000100

050130

000100

050130

100%:
1018:

002346
002350

002326

013672
031616
030462
000032
000030
002350
002350

MOV
3$:
002214
002212

002252

JSR
JSR
MOV
MOV
INC
MOV

#13672,R1

JSET COUNT FOR ECCPOS TO O FIR3T PASS

PC,RDBIT
;GO READ BIT
rC,ECCGEN
:GENERATE [CC
RKECPT(R2),T.ECPT
;GET PATTERN
RKECPS(R2) ,T.ECPS
;GET POSITION
ECPOSX
;BUMP POSITION EXPECTED
ECPOSX,E.ECPS
;SET FOR COMPARE AND REPORT

SEQ 0067

(ZR6ECO RK611 DSKLS CTRL PRTS
CIRGEC.P1T
14=SEP-81 13:57
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081

010510
010516
010520
010522
010530
010532
010534
010540
010542
010544

023737
001401
104042
023737
001401
104043
005237
005301
001343
005300

3083
3084
gggg

010550
010556
010562

012737
012701
000733

177777
020000
001214

010546

001406

3087
3088
3089

010564
010570
010572

005737
001012
012701

3091
3092
%832

010602
010610
010614

012737
005237
000716

010576

012700

002214

002252

002212

002326

005276
000001
177777
001214

2%:

4$:

002350

004737
004437
013737
052737
042737
023737
001402
104044

031616
032356
002260
100200
000001
002160

010664
010672
010674
010702

032737
001404
012737
104045

000100

002°74

100000

002234

010704

MOV
MOV
BR

#-1,ECPOSX
#20000,R1
38

SEQ 0062

;CHECK IF PATTERN CORRECT
:YES = SKIP
;CHECK IF POSITION CORRECT
JYES - SKIP
;BUMP BIT COUNT
:DEC COUNT TO ZERO IN ECCPOS
:NOT YET ZERQ - LOOP
:DEC PASS THRU 0 COUNT
:IF 0 = SKIP
*PRESET EXPECTED POS TO GO TC ZERO
*SET COUNT TO NEXT 0 IN ECC POS
160 DO LOOP AGAIN

TST
BNE
MOV
MOV
MOV
INC
BR

$ TMPS
5%
#5276 ,R1

;TEST SWITCH
ALREADY SET =~ SKIP
:SET COUNT TO FINAL POSITION
*SET RO TO RETURN AFTER ONE PASS
:SET EXP POS TO GO TO O ON NEXT BIT
:BUMP SWITCH
;GO DO LOOP AGAIN

JSR
JSR
MOV
BIS
BIC
CMP
BEQ
ERROR

PC,RDBIT
R4, GETREG
L.CST,E.CS]
#RDY
! CERR,E.CST
¢GO,E. (S
1.CS1,E.CS?
63
44

;ONE MORL BIT TO SET READY
ZGET '611 REGISTERS
$GET EXPECTED CST
:SET READY AND ERROR
:CLEAR GO
:CHECK IF CS1 CORRECT
JYES - SKIP

BIT
SEQ
MOV
ERROR

HECH,T.ER
7$
#DCK,E.ER
45

;TEST IF ECC HARD ERROR SET
IND SKIP
*SET EXPECTED ERROR REG

#1,R0

#-1,ECPOSX
$TMPS
3%

78:
;;tltfitttt*ttttttttttt*ttttt*tittt**'fit*'tttitl’tt*ttttt*tittttttt

W
TP

NP
SR

N
N

READ DATA WITH ONE BIT BURST ERROR

CLEAR RK611

(PART

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A READ

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE

WY NP
PO
W
T

14
PUT

CLEAR MESSAGES.

2)
DATA

SIMULATE A SECTOR PULSE,

A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING
A ONE BIT BURST ERROR OF A 1 THAT SHOULD BE A 0.
VERIFY THE COUNTING OF THE POSITION

b
i —d
b md
d ek o

SRTEST

b
b

d md

AN g AN U

E.ECPT,T.ECPT
1$
&2
E.ECPS,T.ECPS
2%
(3
BITCNT
R1
3$
RO

6$:

b ok —h —b

000410

002220
002220
002220
002220

b oD —d —d —b

D =D

PNOROMNONIPNVMNUNIN)
= et B e 2 =S 2 i = =
OO0
NON N
WLV =2O0O 0NN
WA —=O 000 YO N

010662

YIRS

N U AN AN A U AN W AN AN G AN AN AN AN NN AN AN AN AN

010616
010622
010626
010634
010642
010650
910656
010660

CMP
BEQ
ERROR
CMP
BEQ
ERROR
INC
DEC
BNE
DEC
BEQ

002350

3095
3096
3097
3098
3099
3100
3101
310z
103

1$:

3090

002254

K
5
30(1046)
14-SEP-81
15:14 PAGE 63
113
READ DATA WITH 11 BIT BURST ERROR

3082

MACY11

01 0704
01 0706

000004
012737

000001

001234

AR R

TST14:

RN R

SCOPE
MOV

AR R RN R

#7,8TIMES

RN AR R AN R RN N AR AR R AN N R RN R AR RO R R RERAREY

;.00 1

ITERATION

CZROECO RK611 DSKLS CTRL PRTS
CZR6EC.PVT
14-SEP-81 13:57

3128
3129
%}%9

010714
010720

005037
012762

002352
100000

3132
3133
3134
3135
3136
3137
3138
%}28

010726
010732
010736
010740
010741
010742
010744
010746

005037
004437
000000
000
000
047124
177400
000021

002354
032230

%}2}

010750

004437

3143
%}22

010754
010760

%129

MACY!

3?{1046)

5
L
14-SEP-81
15:14
PAGE 64
READ DATA WITH ONE BIT BURST ERROR (PART 2)

SEQ 0063

CLR
MOV

BSEDES
#CCLR,RKCS1(R2)

;CLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

CLR
JSR
0
BYTE
BYTE
IBUFF
=400
RDDATA

HIBITS
R4, LOADRK
0
0

;CLEAR HI ORDER BITS
;LOAD "'L'" REGISTERS
;CYLINDER 0
;SECTOR O
s TRACK O
;BUFFER ADDRESS IBUFF
;WORD COUNT =400
. COMMAND RDDATA

031770

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

004437
000005

032014

JSR
5

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 5

010762

012700

000530

MoV

#530,R0

;SET INDEX INTO BUFFER

3148
3149
3150
3151
3152
3153
31564
3155
%}g?

010766
010774
011002
011010
011016
011020
011026
011030
011036

012737
012737
012737
032760
001004
052760
000403
042760

126073
151052
000001
000100

051130
051132
002344
050130

000100

9050130

000100

050130

MOV
MOV
MOV
BIT
BNE
BIS
BR
BIC

#126073,08UFF +1000
sSTORE ECC WORDS
#151052,0BUFF+1002
#1,ECCSRC
;SET SOURCE TO INDICATE ECC
#B1T76,0BUFF(RO) ;TEST IF BIT SET
100%
JYES -~ SKIP
#B1T6,0BUFF
(RO) ELSE SET BIT
101%
#BI1T6,0BUFF
(RO) ;CLEAR BIT

3158
3159
3160
3161
3162
%122

011036
011042
011046
011050
011052
011054

004437
004437
104004
104005
104006
104007

032274
023334

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,0PSTRT
R4 ,DISEEK
4
5
6
7

sSTART THE OPERATION
;SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
;MR
'
JMR2
'
;MR3
'

%}22

011056

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

3167
3168
%}98

011062
011066
011070

004437
104010
104011

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE HEADER PREAMBLE
sMR1 CONTENTS IN ERROR
2CST CONTENTS IN ERROR

3171

011072

004437

024276

JSR

R4 ,DHDCMP

;SIMULATE HEADER SEARCH

3173
%};g

011100
011102

104013
104014

ERROR
ERROR

13
14

2CS1 IN ERROR AFTER SEARCH
;RKDCYL OR RKDA IN ERROR AFTER SEARCH

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPSN
15
16
32
33

;GO READ GAP AND SYNC
;MR1 IN ERROR READING GAP
;CS1 IN ERROR AFTER READING GAP
JMR1 IN ERROR READING SYNC
2CS1 IN ERROR AFTER READING SYNC

Mov

#1,ECPATX

;LOAD EXPECTED PATTERN

3172

011076

104012

3176
3177
3178
3179
%}g?

011104
011110
011112
011114
011116

004437
104015
104016
104032
104033

026500

3182

011120

012737

000001

3183

011126

012737

004066

000000

190%:
101%-

ERROR

002346

002350

MOV

#6066 ,ECPOSX

;MR1

CONTENTS

IN BUFFER

IN ERROR

;LOAD EXPECTED POSITION

0 0

OO\OOOOOEOW@@@@Q
f
~no
OV
~NONWN

13:57

004437
000400

027176

SN
STNVO

14-SEP-81

DSKLS CTRL PRTS

VACY11

104034
104035
104036
104041
104042
104043

~y~NIoNWD
oo
SONNNJVOOOVNNE
S WWN= =200
OO NOONNIOONOON
SO CRO SO

00232¢

000020
000005
013672
001214
031616
030462
000032
000030
002350
002350
002254

3%:

002252

1$:

002326

2%:

177777

005737
001012
012701
012700
012737
005237
000716
004737
004437
013737
052737
042737
023737
001402
104044
000410
032737
001404
012737

PO
= OO NS
OO
OO
RO

WNWWNNIWNNIANE

000733

BN BN BN BB WNWNNNINN

BNWWNN
— —
NOOSHOONNY

WNWWRO NP

PO NN

NN PO

ORI NN

—

NN
SO

e
b
b

D —d

—b

[

OOOOOOOO

pur

d ——b
b
—)

d —D
D

D o
b
D

o
b

D
D

D
b
d

nd
b

d
b

b e
D

b ek

b md
gurgiurginrd

b ——d —h
e
b
—

GGG
ghur G

B
e
e
e

Ghur Ghur G
G

e b
e

s G
Qv Gun

e
Y
PR

olalelelololeleldilelele B elelololeloloBolalololalelalelololelolelolololololole B ololele]

e
G
r G

c.P1

pur Qg

[2aYe)
—

bbb

N N NN AN N NN AN N N NN NN

[N an)

CO RK611

020000

177777

001214

(PART 2)

JSR
400

WORDS

;GO SIMULATE DATA READ

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

34
35
36
41
42
43

:MR1

IN ERROR READING DATA OR ECC

;ERR
RR

IN ECC

MOV
MOV

#20,BITCNT
#5
RO

CLR

$TMPS

PC,RDBIT
PC.ECCGEN
RKECPT(R2),T.
RKECPS(R2).T.
ECPOSX

CMP
BEQ

E.ECPT.T.ECPT
1%

BEO
ERROR

2%
43

100000

002234

(CALC.

;SET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS PASS THRU 0
JSET COUNT FOR ECCPOS TO 0 FIRST PASS
;CLEAR SWIT(CH

;GO READ BIT
s GENERATE ECC
;GET PATTERN
.GET POSITION
;BUMP POSITION EXPECTED
;SET FOR COMPARE AND REPORT
"CHECK IF PATTERN CORRECT

:YES - SKIP

;BUMP BIT COUNT
;DEC COUNT TO ZERO IN ECCPOS
JNOT YET ZERO - LOOP

MOV

#20000,R1

ST
BNE
MOV
INC
BR

6%:

PAT

IN ECC POS COUNT

BITCNT
R1

JSR
JSR
MOV

ERROR

002174

;ECC ERROR READING DATA
S1 ERROR AFTER READING DATA OR ECC
cC REG INCORRECT AFTER ECC READ

INC
DEC
BNE
EC
BEQ

BIS
BIC
CMP
BEQ
000100

TO SIMULATE

JCHECK IF POSITION CORRECT
JYES - SK]P

MOV
MOV

5¢%:

INUMBER OF

E.ECPS.,T.ECPS

CMP

002350

ECPOSX,E.ECPS

ERROR

MOV

4%:

713672 ,R1

JSR
JSR
MOV
MOV
INC
MOV

002259

SEQ 0064

R4 ,DREAD

MOV

001214

00527¢
000001

14=SEP=81
15:14
PAGE 65
READ DATA WITH ONE BIT BURST ERROR

BIT
BEQ
MOV

3$
RO
4$

#-1,ECPOSX

;DEC PASS THRU 0 COUNT
;IF 0 = SKIP
;PRESET

EXPECTED POS

TO GO

TO ZtRO

;SET COUNT TO NEXT O IN ECC POS

2GO DO LOOP AGAIN

$TMPS
5¢

;TEST SWITCH
JALREADY SET = SKIP
sSET COUNT TO FINAL POSITION
JSET RO TO RETURN AFTER ONE PASS
;SET EXP POS TO GO TO O ON NEXT BIT
;BUMP SWiTCH

#5276 ,R1
#1.R0
#-1,ECPOSX

$TMPS
3$

PC,RDBIT
R4 .GETREG
L.CS1,E.CS1

. CERR,E.CS1
#RDY
#GO.E.CS
T.CST,E.CS1
6$
44
7%
#ECH,T.ER
7%
#DCK,E.ER

;GO DO LOOP AGAIN

;ONE MORE BIT TO SET READY

JGET '611 REGISTERS
JGET EXPECTED CS1

JSET READY AND ERROR
:CLEAR GO
;CHECK IF CST1 CORRECT
JYES - SKIP
JTEST

ECC

HARD ERROR

;NO SKIP
;SET EXPECTED ERROR REG

SET

C(ZRGECO RK611 DSKLS CTRL PRTS
CIRG6EC.PIN
14=-SEP~81 13:57
3240
3241
3242
2343

0116430

N 5
MACY11 20(1046)
14~SEP-81
15:14 PAGE 66
T14
READ DATA WITH ONE BIT BURST ERROR (PART 2)

10404°

ERROR

011432

%gzg

J*TEST

3247

%Sgg

3248
3249
3250
3251
3252
3253
3254

R R

v
;.
.
. *
M
M
.

2257

012762

100000

3265

011454

005037

002354

3269
3270
3271

011467
011470
011472

000
047124
17700

%S;g

011476

004437

031770

JSR

3276
gg;g

011502
011506

004437
000005

032014

gggg

011510

012700

000530

3281
3282
3283

01i514
011522
011530

(012737
012737
012737

126073
151052
000001

3285

011544

052760

050100

3286

062700

000002

3289
3290

011564
011570

0044637
(04e37

(032274
023334

3292
3293
9

011576
011630
('¢uc

104005
104006
06007

3291

0115764

104004

SCOPE
MoV

#1,8TIMES

;.00 1

ITERATION

(LR

BSEDES

sCLEAR BAD SEC DESIRED

MOV

#CCLR,RKCST1(R2) ;CLEAR CONTROLLER

(LR

HIBITS

R4 ,LOADRK

000001

;CLEAR HI ORDER EITS

;LOAD ''L'* REGISTERS
JCYLINDER 0
JSECTOR 0

:
:
.

; COMMAND RDDATA

R4,CLRIBF

;GO (LEAR INPUT BUFFER

JSR
5

R4 ,BLDDAT

;GO BUILD DATA
JPATTERN 5

{
:

MOV

#530,R0

JSET INDEX INTO BUFFER

051130
051132
002344

MOV
MOV
MOV

#126073,08UFF+1000
;STORE ECC WORDS
#151052,0BUFF +1002
#1 ECCSRC
;SET SOURCE TO INDICATE ECC

050130

8IS

#BITS!BIT12!'BIT14,0BUFF (RO)

(0S0D130

8IS

#8]170,08UFF (RO)

0
0

RDDATA

052760

011552

SURE DATA (HECK AND CONTROLLER ERROR SETS.

JSR
0
.BYTE

000021

011556

3%3;

TST15:

BYTE
IBUFF
=400

005000

:
b
:
i
i
h
:
q

011446

042760

gsgz

011536

BIT BURST ERROR

:'.'tttttlttttttttttt*tttttttttttttttttittttttt*tttt*ttttttttttttti

002352

3286

005037

011474

READ DATA WITH 11

AR AR RS

MAKE

011442

032230

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

%%g}

004437
000000
000

0000017

000000

P R

CLEAR RK617 CONTROLLER WITH A CONTROLLFR CLEAP.

000004
012737

001234

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
(CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDiCATING
AN 11 BIT BURST ERROR.
VERIFY THE COUNING OF THE POSITION
REGISTER AND THE FINAL PATTERN AND POSITION INFORMATION.

011432
011434

%S;g

R AR R R RN R R AR R T

3258
gsgg

011460
011464
011466

CZF

7%:

3244

3266
3267
3268

CZF

SEQ 0065

050130

BI(C

ADD

:TRACK 0
;BUFFER ADDRESS IBUFF
;WORD COUNT =400

lBIT9!BIT11.08UFfi(R0)

JBUMP TO NEXT WORD

JSR
JSR

R4 ,0PSTRTY
Re DISEEX

JSTART THE OPERATION
JSIMULATE [MPLIED SEEX

ERROR
ERROR
ERROR

S
6
7

MR
JMR2

IN BUFFER

;CREATE 11 BIT BURST ERROR

#2 R0

ERROR

)
)

{
{
{

{
{

{
.

;(S1 M]ISCOMPARE

;qas

'
.

i
.

30(1046)
14~SEP-81
15:14 PAGE 67
715
READ DATA WITr 11 BIT BURST ERROR

%ggg

011604

0044637

022 6

2SR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

3298
3299
%%8?

011610
017614
011616

004437
104010
104011

023740

JSR
ERROR
ERROR

R+ ,DRSYNC
10
11

;SIMULATE HEADER PREAMELE
JMR1 (CONTENTS [N ERROR
cCS1 CONTENTS IN ERROR

3302
3303
3304
%%82

011620
011624
011626
011630

004437
104012
104013
104014

026276

JSR
ERROR
ERROR
ERROR

R4, DHDCMF
12
13
14

s SIMULATE HEADER SEARCH
;MR1 CONTENTS TN ERROP
;CS1 IN ERROR AFTER SEARCH
;RKDCYL OR RKDA IN ERROR AFTER SEARCH

3307
3308
3309
3310
%%}}

011632
011636
011640
011642
011644

004437
104015
104016
104032
104033

026500

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPSN
15
16
32
33

;GO READ GAP AND SYNC
sMR1 IN ERROR READING GAP
;CS1 IN ERROR AFTER READING GAP
sMR1 IN ERROR READING SYNC
;CST IN ERROR AFTER READING SYNC

3313
3314
3315
3316
3317
3318
3319
3320
3321
3322

011646
0116564
011662
011666
011670
011672
011674
011676
011700
011702

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

000001
004066
027176

MOV
MOV
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#1,ECPATX
#6066 ,ECPOSX
R4 ,DREAD
34
35
36
41
42
43

;LOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION
;GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
sMR1 IN ERROR READING DATA OR ECC
JECC ERROR READING DATA
;CST ERRUR AFTER READING DATA OR ECC
;ECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.
JERR IN ECC POS COUNT

3325

011706

012737

000020

MOV

#20,BITCNT

JSET BIT COUNT FOR CORRECTION COUNT

3327

011716

012701

013672

Mov

#13672,R1

;SET COUNT FOR ECCPOS TO O FIRST PASS

335
3326

%%Sg

3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344

3345
3346
3347
3348
%%gg
3351

011712
011722

011726
011732
011736
011744
011752
011756
011764
011772
011774
011776
012004
012006
012010
012014
012016

012020
012022
012024
012032
012036
012040

012700
005037

004737
004737
016237
016237
005237
013737
023737
001401
104042
023737
001401
104043
005237
005301
001343

005300
001406
012737
012701
000733
005737

090005

002346
002350

002326

MOV

001214

031616
030462
000032
000030
002350
002350
002254

002252

CLR

3%:
002214
002212

002252
002214
002212

002326

177777
020000
001214

1%:
2s:

002350

4s:

#5,R0
$TMPS

;SET COUNT FOR ECCPJS PASS THRU 0
;CLEAR SWIT(CH

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

DEC
BEQ
mMov
MOV
BR

PC,RDBIT
;6O READ BIT
PC,ECCGEN
. GENERATE ECC
RKECPT(R2) ,T.ECPT
:GET PATTERN
RKECPS(R2),T.ECPS
;GET POSITION
ECPOSX
JBUMP POSITION EXPECTED
ECPOSX,E.ECPS
,SET FOR COMPARE ANC REPORT
E.ECPT,T.ECPT
;CHECK IF PATTERN CORRECT
1%
;YES - SKIP
42
E.ECPS,T.ECPS
;(HECK IF PCSITION CORRECT
2%
JYES = SKIP
43
BITCNT
sBUMP BIT COUNT
R1
sDEC COUNT TO ZERO IN ECCPOS
3
;NOT YET ZERO - LOOP
RO
;DEC PASS THRU O COUNT
31
;IF 0 - SKIP
#=1,ECPOSX
JPRESET EXPECTED POS TO GO TO ZERO
#20000,R1
sSET COUNT TO NEXT O IN ECC POS
33
:GO DO LOOP AGAIN

TST

$TMPS

STEST SWITCH

SEG 00€6

(% Yan)

TMMACY11

CZROECD RK6TT DSKLS CTRL PRTS
TIR6EC.PY
14-SEP-81 13:57

£H
NSNS
(o]

104045

002174

100000

002234

6%:

JALREADY SET - SKIP

$TMPS
3s

;BUMP SWITCH
;GO DO LOOP AGAIN

#5310,R1
#1,R0
#-1,ECFOSX

JSR
JSR
MOV
BIS
BIC

PC,RI 1T
R4 ,GETREG
L.CS1,E.CST
#RDY!CERR,E.CST1
#G0,E.CS1

;ONE MORE BIT 70 SET PEADY
JGET '611 REGISTERS
sGET EXPECTED CS1
;SET READY AND ERROR
;CLEAR GO

BEQ
ERROR
BR

6%
44
7$

JYES - SKIP

MoV

#DCK,E.ER

CMP

000100

SEQ 0067

MOV
MoV
MOV

INC
BR
5%:

b b D = OO
—_—td d b e D e

——a

002350

BIT
BEQ

ERROR

T.C(S1,€.CS1

HECH,T.ER
7$

JSET COUNT TO FINAL POSITION
JSET RO TO RETURN AFTER ONE PASS
JSET EXP POS TO GO TO O ON NEXT BIT

JCHECK JF CS1 CORRECT

sTEST IF ECC HARC ERROR SET
JNO SKIP
JSET

EXPECTED

ERROR REG

7%:

—

b
d
d
D
D
b
o
e
D
ad
e

c
6
14-SEP-81
30(1046)
15:14
PAGE 68
115
READ DATA WITH 11 BIT BURST ERROR

BNE

»
&~
OOV

NN
S WWWNWN
= O ~NN
OO
OO
(=]

COCOOOOOO

—

NORNOPORNINLNLNLNVRALNVNINUNAY

part

PIPNUPNVUNONUND

OO0 OOOOOOOOOOO
o

OOOOOO

P11

MACY11

:;tiltltttttttltttittllt't"'ifittttttttt~ttttfitt'tt't'tiittt't'tt

RN
B
8
2
%
B
¥
¥

READ DATA WITH 12 BIT BURST ERRCR

CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A READ DATA

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINCER O, HEAD O, SECTOR 0.
C(LOCK THROUGH SEEK
AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

GOOD HEADER, 400 DATA WORDS AND AN ECC INDICATING
A 12 BIT BURST ERROR.
VERIFY THE COUNTING OF THE
POSITION REGISTER.
MAKE SURE
AND CONTROLLER ERROR SETS.

DATA

CHECK,

ECC

HARD,

R
IE IR
TETE N

J*TEST 16

OO
NN

005037
012762

002352

==
= OO

:;ttt'lt'tittt'tt‘tttttttt'tit.tlt"tttitttt*t.ttti!ttttttt't.'tt

000004
012737

005037
004437

002354
032230

000001
100000

00123

SCOPE
Mov

#1,8TIMES

;.D0

000000

CLR
MOv

BSEDES
#CCLR,RKCS1(R2)

;CLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

CLR

HIBITS

;CLEAR HI GRDER BITS

JSR
0
.BYE
BYTE
1BUFF
=400

000021

R4, L OADRK
0
0

RDDATA

ITERATION

JLOAD ''L'* REGISTERS
;CYLINDER O
;SECTOR O
:TRACK 0

;BUFFER ADDRESS IBUFF
JWORD COUNT =400
; COMMAND RDDATA

012224

004437

031770

JSR

R4,CLRIBF

;60 CLEAR

012230
012234

004437
000005

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

:PATTERN §

[NPUT BUFFER

DSKLS CTRL PRTS
14-SEP-81 13:57

[ Xan]

(0 RK611

PaALAlY,
IV, IV, [V, TV, B g alael
CONONNES
NN
M

(2
rl

3408

CTRL

PRTS

14-SEP-B1

13:57

%2?8

012236

012700

000530

3611
3612
3,13
3,14
3,15

012242
012250
012256
012264
012272

012737
012737
012737
042760
052760

126073
15'052
000001
005000
050100

3,17

012306

052760

000001

3416

012300

062700

gclg

012312

3,20
3,21
3,02
3,03
3004

012320
012326
012330
012332
012336

004437
004437
104004
104005
104006

032274
023334

gasg

012340

006437

023316

3409

012344

004437

023740

gaz;

012352

104011

gcgs

426
&

3,30
&

3433
3,34
3,35

01233

012350

042760

000002

104010

024276

3,38

012366

004437

(16500

341
§42§

012376
012400

104032
104033

2,39
3,40
4

012364

012372
012374

012402
012410
012416
012622
012424
012426
012430
012432
012434
012436

012737
012737
004437
000400
104034
104035
104036
104041
106042
106063

000001
006066
027°7¢

3455
3656
3,57

012440
012446

012737
012700

000020
(00005

gzgg

012456

005037

001214

3458

3461
3,62
363

012452

012462
012666
012472

012701

004737
004737
016237

PAGE

SEQ 0068

#530,R0

051130
051132
002344
050130
050130

MOV
MOV
MOV
BIf
81S

#126073,0BUFF+1000
;JSTORE ECC WORDS
#151052,0BUFF+1002
#1,ECCSRC
;SET SOURCE TO INDICATE ECC IN BUFFER
#BIT9'B1711,08UFF
(RO)
;CREATE 11 BIT BURST ERROR
#BiT6IBITI2iBIT14,0BUFF
(RO)

050130

BIS

#B1T0,0BUFF
(RO)

ADD

05013¢C

;BUMP TO NEXT WORD

#BIT1,0BUFF(RO)

;MAKE

JSR
JSR
ERROR
ERROR
ERROR

R4,0PSTRT
R4.DISEEK
&
S
6

;START THE OPERATION
*SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
*MR1
k
‘MR
'

JSR

R4,DSECTR

;SIMULATE

JSR

R4 ,DRSYNC

ERROR

002326

002214

*MR3

SECTOR PULSE

:SIMULATE HEADER PREAMBLE

*MR1

JSR
ERROR
ERROR

R4, DHDCMP
12
13

:SIMULATE HEADER SEARCH
:MR1 CONTENTS IN ERROR
1CS1 IN ERROR AFTER SEARCH

JSR

R4 ,DRGPSN

;G0 READ GAP AND SYNC

:CS1

CONTENTS IN ERROR
CONTENTS

IN ERROR

:RKDCYL OR RKDA IN ERROR AFTER SEARCH

ERROR
ERROR

75
16

32
33

:MR1
1CS1

MOV
MOV
JSR
400
ERROR
ERRCR
ERROR
ERROR
ERROR
ERROR

#1 ,ECPATX
#4066 ,ECPOSX
R4 ,DREAD
34
3§
36
41
4/
43

;LOAD EXPECTED PATTERN
:LOAD EXPECTED POSITION
:GO SIMULATE DATA READ
*NUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING DATA OR ECC
YECC ERROR READING DATA
:(S1 ERROR AFTER READING DATA OR ECC
ZECC REG INCORRECT AFTER ECC READ
SERR IN ECC PAT CALC.
SERR IN ECC POS COUNT

MOV
MOV

#20,BI TCNT
#5 RO

;SET BIT COUNT FOR CORRECTION CJUNT
:SET COUNT FOR ECCPOS PASS THRU 0

(LR

$TMPS

:CLEAR SWITCH

MOV
3s:

IT A 12 BIT BURST ERROR

ERROR
ERROR

GO %t
00235C

;SET INDEX INTO BUFFER

#2 R0

BIC

013672

031616
030462
000032

READ DATA WITH 12 BIT BURST ERROR

ERPOR

344
3,45
3446
3447
3,48
3449
3,50
351
3,52
gzgz

15:14

MOV

104014

104015
104016

14-SEP=-81

ERROR

004437
104012
104013

3(‘?52046)

104007

012354
012360
012362

%Lég

MACYT

JSR
JSR
MOV

#1%672.R1

:MR1
:CST

[N ERROR READING GAP
IN ERROR AFTER READING GAP

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

:SET COUNT FOR ECCPOS TO O FIRST PASS

PC,ROBIT
;GO READ BIT
PC.ECCGEN
*GENERATE ECC
RKECPT(R2),T.ECPT
:GET PATTERN

rIR6EC P11

DSKLS

CIRGE(D RK611

rIR6EC.P
3664
3665
3666
3667
3468
3669
3670
3471
3672
3673
3476
3475
3476

3477
34,78

012500
012506
012512
012520
012526
(012530
012532
012540
012542
012544
012550
012552
012554

13:57

016237
005237
013737
023737
001601
104042
023737
001401
1064043
005237
005301
001343
005300

000030
002350
002350
002254

002252
002214

002252

002212

3482
3483

012574
012600

G05737
001012

001214

3485
34,86
3687
gzgg

012606
012612
012620
012624

012700
012737
005237
000716

000001
177777
001214

3690
3491

012626
012632

004737
0044637

031616
032356

3493
3694
3695
34696
3497
3498
3499
3500
3501
3502
3503
3506
3505

012644
012652
012660
012666
012670
012672
012674
012702
012704
012712

052737
042737
023737
001402
1046044
000410
032737
001004
012737
104045

100200
070001
002160

2492

012602

012636

012714

012701

(013737

177777

020000

3001 046)

116

002212

002326

012566
012572

3684

MACY1T1

14-SEP-81

001406
012737
012701
000733

3479
;23?

012556
012560

DSKLS CTRL PRTS

1%:

2%:

5%:

002220

000100

00¢1764

100100

002234

4%
#-1,ECPOSX
#20000,R1
3%

J1F 0 - SKIP
JPRESET EXPECTED POS TO GO Y0 ZEROD
JSET COUNT TO NEXT O N ECC POS
;GO DO LOOP AGAIN

TST
BNE

$TMPS
5%

JTEST SWIT(CH
;ALREADY SET - SK]IP

6%:

MOV

#100461 ,R1

#1,R0
#-1,ECPOSX
$TMPS
3

JSET RO TO RETURN AFTER ONE PASS
JSET EXP POS TO GO TO O ON NEXT BIT
JBUMP SW.T(H
;GO DO LOOP AGAIN

JSR
JSR

PC,RDBIT
R4 ,GETREG

;ONE MORE BIT TO SET READY
:GET '611 REGISTERS

BIS
BI(
CMP
BEQ
ERROR
BR
B8IT
BNE
MOV
ERROR

#RDY ! CERR,E.CS1
#GO,E.CST
1.CS1,€.CST
6%
44
7%
#ECH,T.ER
7%
#DCK.ECH,E.ER
45

;SET READY AND ERROR
;CLEAR GO

MOV

002220
002220
002220

SEQ 0069

RKECPS(R2),T.ECPS
sGET POSITION
ECPOSX
;BUMP POSITION EXPECTED
ECPOSX,E.ECPS
JSET FOR (OMPARE AND REPQRT
E.ECPT,T_ECPT
JCHECK [F PATTERN CORRECT
1%
JYES - SKIP
42
E.ECPS,T.ECPS
JCHECK IF POSITION CORRECT
2%
JYES -~ SK]P
43
BITCNT
;BUMP BIT COUNT
R1
JDEC COUNT TO ZERO IN ECCPOS
33
JNOT YET ZERO - LOOP
RO
;DEC PASS THRU 0 COUNT

MOV
MOV
INC
BR

(002350

MOV
INC
MOV
(MP
BEQ
ERROR
(MP
8EQ
FRROR
INC
DEC
BNE
DEC(
BEQ
MOV
MOV
BR

00235C

010041

(002260

14-SEP-81
15:14
PAGE 70
READ DATA WITH 12 BIT RBURST ERROR

L.CST1,E.CST

JSET COUNT TO FINAL POSITION

JGET EXPECTED (S
JCHECK JF CS1
JYES - SKI]P

JTEST

CORRECT

IF ECC HARD ERROR SET

JYES SKIP
JSET EXPECTED ERROR REG

7%:

3506

NN AN R A

;ggg

J*TEST

3509
3510
3511
3512

i
.t
o
o

(LEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0, HEAD 0O, SECTOR 0.
CLOCK THROUGH SEEK

3514
3515
3516

D’
M
A

GOOD HEADER, 400 CATA WORDS AND AN ECC INDICATING
A 23 BIT BURST ERROR.
VFRIFY THE COUNTING OF THE
POSITION REGISTER.
MAKE SURE DATA THE(CK, ECC HARD,

3513

AR R AR R R PR E R AN R ARA R R AR AN R R RN KRR

AR AN

RN RNRRR IR AR

READ DATA WITH 23 BIT BURST ERROR

AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

gg}g

AND CONTROLLER ERROR SETS.

3519

:-'-'nttnt!'ttfit'ttttttttttttttttttQtt'ttttt!t'tttt.'.".!tlt.t!'t'

~~a

FIRGE(D RKE1T

DSKLS CTRL PRTS
14-SEP-81

—

005037
012762

002352

005037
004437
000000

0 02354
032230

N \N AN

o ~ N - OO0V

Nl
O

oD
NN

OO
NN

000001

oo
~ NNNNNNN

—_—

OOOOOOO0OO

AN AN NN NN NN NN AN N AN U (NN N
VIV
Y N AN Lo NN N
WWHIN WN W W WO NN N RO NN NN nJ
N
NN = O OO0 O N B i) — O

012737

001234
000000

0000¢1

TST17:

SCOPE

#1,8TIMES

::D0

CLR

BSEDES

sCLEAR BAD SEC DESIRED

CLR
JSR
0
.BYTE

HIBITS
R4, LCADRK

sCLEAR HI ORDER BITS
JLOAD ''L'* REGISTERS

0
0

;SECTOR 0
sTRACK 0
;BUFFER ADDRESS IBUFF
JWORD COUNT =400
; COMMAND RDDATA
;60 CLEAR

INPUT BUFFER

;GO BUILD

DATA

MOV

#CCLR,RKCS1(R2)

RDDATA

;CYLINDER O

JSR

R4, CLRIBF

012764
012770

004437
000005

032014

gSR

R4 ,BLDDAT

012772

012700

00053¢C

MmNy

#530,R0

012776
073004
013012
013020
013026
013034
013040

012737
012737
12737
042760
052760
062700
052760
052760

126073

051130
051132
002344
950130
050130

MOV
MOV
MOV

#126073,0BUFF+1000
#151052,0BUFF +1002

050130
050130

BIS
BIS

013054
013060
013064
013066
013C70
013072

004437
004437

013074

004437

OO0
OB O

004437

V=2
ORNESO

004437

WWWNINY
HEPOO0N

004437

N
o

—h
—d -

WNLIN

)l
——
—

WNWNNWNE

—

O WNIWWWWIAAL
W

et —d
—

OO0

—h
—

—

OOOCO

—

) sk

OOOO0

104004
104005
104006
104007

012737

104010
104011

104012
104013

000001
005000
050100
000002
000001
010000
032274

ApPD

;PATTERN 5
;SET

INDEX

INTO BUFFER

:STORE ECC WORDS

#1,ECCSRC
:SET SOURCE TO INDICATE ECC IN BUFFER
#B179!81T11,0BUFF (RO)
:CREATE 11 BIT BURST ERROR

#B1T6!BIT12!BIT14,0BUFF
(RO)
#2,R0
;BUMP TO NEXT WORD
#8]10,0BUFF
(RQ)
#BIT12,0BUFF(RO)

;MAKE

IT A 23 BIT BURST ERROR

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,OPSTRT
R4 ,DISEEK
4

;START THE OPERATION
JSIMULATE IMPLIED SEEK
2€S1 MISCOMPARE
:MR1

:MR3

02331¢

JSR

R4 ,DSECTR

JSIMULATE

SECTOR PULSE

023740

JSR
ERROR
ERRCR

R& ,DRSYNC

;SIMULATE

HEADER PREAMBLE

024276

JSR
ERROR
ERROR
ERROR

R&4 ,DHD(MP

;SIMULATE HEADER SEARCH

JSR
ERROR
ERRCR
ERROR
ERROR

R4 ,DRGPSN

;GO READ

32
33

!MR1
;CST

MOV

41, ECPATX

023334

104014

104015
104016
104032
104033

BIf
BIS

ITERATION

;CLEAR CONTROLLER

031770

151052

SEQ3 0070

MOv

004437

(V] N

= OO0

O N NN

o [o Yo Yo XV YV, IVINV, IV, IV IV, 1V, |

LN N AN AN
AU

VAV IV TV AV AV

U WAL U

N NIV L

100000

MACY11

012760

013046

3564

000004

13:57

02650(

000001

002346

10
"
12
13
14

15
16

;MR1
;CS1

CONTENTS
CONTENTS

IN ERROR
IN ERROR

;MR1 CONTENTS IN ERROR
;ST IN ERROR AFTER SEAR(H
JRKDCYL OR RKDA IN ERROR AFTER
GAP AND

SYNC

;MR1
;CS1T

IN ERROR READING GAP
IN ERROR AFTER READING GAP

;LOAD

EXPECTED

[N ERROR READING SYNC
IN ERROR AFTER READING SYN(
PATTERN

TIROECD RK611

TZRGEC.PN

F
6
16-SEP-81
15:14
PAGE 71
30(1046)
READ DATA WITH 23 BIT BURST ERROR
17

3576
3577
3578
3579

013144
013152
013156
013160

012737
Q04437
000400
104034

013766
012170

104041
104042

3580
3581

013162
013164

gggg

013172

3582
3583

004066
(0¢7176

104043
000020
000005
013672
001214

3592
3593
3594
3595
3596
3597
3598
3599
3600
3601

013216
013222
013226
013234
013242
013246
013254
013262
013264
013266

004737
004737
016237
016237
005237
013737
023737
001401
104042
023737

031616
030462
000032
000030
002350
002350
002256

3603
3604
3605
3606
3607
3608
3609
3610
%g};

013276
013300
0133064
013
013
013
013
013
013

106043
005237
005301
001343
005300
001406
012737
012701
000733

3613
3614

013
013

005737
001012

001214

3616
3617
3618
%2;8

013
012
013
013

012700
012737
005237
000716

000001
177777
001214

013

001401

012701

002252

0023co

3%:
002214
002212

002252
002214
902212

00232¢

177777
020000

002350

6$:

010041

004737
004437
013737
052737
042737

031616
032356
002260
106200
000001

002160

002220
002220
002220
(002220

3¢30
3¢31

013430
013

032737
001004

000100

002174

013414
013422
013424
013426

023737
001402
104044
000410

5%:

6$:

ERROR
ERROR

41
&2

MOV
MOv
MOV
CLR

120 BITCNT
#5,R0
#13672.R1
$TMPS

JSR
JSR
MOV
MOV
INC
MOV
(MP
BEQ
ERROR
(MP

PC,RDBIT
;GO READ BIT
PC,ECCGEN
: GENERATE ECC
RKECPT(R2),T.ECPT
;GET PATTERN
RKECPS(R2) ,T.ECPS
;GET POSITION
ECPOSX
JBUMP POSITION EXPECTED
ECPOSX,E.ECPS
;SET FOR COMPARE AND REPORT
E.ECPT,T.ECPT
;CHECK ]F PATTERN CORRECT
1%
JYES - SKIP
42
E.ECPS,T.ECPS
;CHECK ]F POSITICN CORRE(T

ERROR
INC
DEC
BNE
DEC
BEQ
MOV
MOV
BR

43
BITCNT
R1
3%
RO
31
#-1,ECPOSX
#20000,R1
3%

TST
BNE

$TMPS
5%

;TEST SWITCH
JALREADY SET - SKIP

#1,R0
#-1,ECPOSX
$TMPS
3%

;SET RO TO RETURN AFTER ONE PASS
JSET EXP POS TO GO TO O ON NEXT BIT
;BUMP SWIT(CH
;GO DO LOOP AGAIN

BEQ

4
35
36

;ECC ERROR READING DATA
2CST ERROR AFTER READING DATA CR ECC

;ERR IN ECC POS COUNT

MOV

#100461,R1

JSR
JSR
MOV
BIS
BI(

PC,RDBIT
R4, GETREG
L.CS1,E.CS]
#RDY!CERR,E.CST
#G0,E.CS1

(MP
BEQ
ERROR
BR
BIT
BNE

;LOAD EXPECTED POSITION
;60 SIMULATE DATA READ
:NUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING DATA OR EC(

T.CS1,€.C81
o$
44
7%
#ECH,T.ER
7%

JECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT (ALC.

;SFT BIT COUNT FOR CORRECTION COUNT
JSET COUNT FOR ECCPOS PASS THRU 0
JSET COUNT FOR ECCPOS TO O FIRST PASS
JCLEAR SWIT(H

JYES - SKIP

;BUMP BIT COUNT
;DEC COUNT TO ZERO IN ECCPOS
;NOT YET ZERO - LOOP
;DEC PASS THRU O COUNT
;1F 0 - SKIP
JPRESET EXPECTED POS TO GO TO ZERO
;SET COUNT TO NEXT O IN ECC POS
;GO DO LOOP AGAIN

JSET COUNT TO FINAL POSITION

;ONE MORE BIT TO SET READY
;GET '611 REGISTERS
JGET EXPECTED CS1
;SET READY AND ERROR
;CLEAR GO

sCHECK IF CS?
JYES - SKIP

CORRECT

JTEST IF ECC HARD ERROR SET
JYES - SKIP

~N~

SEQ 0071

#6066 ,ECPOSX
R4 ,DREAD

MOV
MOV
INC
BR

002350

013
013
013
013400
013406

3626
3627
3628
3629

1%:
2%:

3621
3622
3623
36264
3625

MOV
JSR
400
ERFOR

ERROR

012737
012700
012701
005037

3615

002350

ERROR
ERROR

013174
013202
013206
013212

013274

30(1066)
16-SEP-81
15:14 PAGE 72
117
READ DATA WITH 23 BIT BURST ERROR

104035
104036

3586
3587
3588
3589
égg?

3602

MACY11

TIRGECD RKETT DSKLS CTRL PRTS
TIRGEC.PYY
14-SEP-81 13:57

013440
013446

012737
10404°

100100

002234

013450

H
6
16-SEP-81
15:14
PAGE 73
READ DATA WITH 23 BIT BURST
MOv

ERROR

#DCK!ECH,E.ER

;SET

SEQ 0072

ERROR
EXPECTED ERROR REG

7%:
':Q't't"t!*ttfi't.tfitt't'i'Qtittfi'tt'.'i'tttt'.'.t'lt.ttt.'tt.t"

LRTEST 20

READ DATa WITH

(LEAR RK611

BIT

ECC

WORD ERROR

CONTROLLER WITH A CONTROLLER CLEAR.

3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
%22%

013450
013452

000004
012737

00000

001234

3654
gggg

013460
073464

005037
012762

002352
100000

000000

3657
3658
3659
3660
3661
3662
3663
3664
3665
%229

013472
013476
013502
013504
013505
013506
013510
013512

005037
004437
000000
000
000
047124
177400
000021

002354
032230

013514

004437

031770

JSR

R4, CLRIBF

;GO CLEAR

3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3677
3680
3681
3682
3683
3684
3685
3686
3687

013520
013524

004437
000005

032014

JSR
5

R4 ,BLDDAT

;GO BUILD DATA
JPATTERN 5

013526
013532
013540
01354v

012700
012737
012737
012737

001002
126073
151052
000001

MOV

#1002 ,R0

sSET

MOV

#151052,0BUFF +1002

PUT

B
2
B

AND DRIVE

004437
004437
104004
104005
104006

CLEAR MESSAGES.

2448008082222

15720:

ARl

CLR
MOV

BSEDES
#CCLR,RKCST(R2)

;CLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

(LR

HIBITS

;CLEAR HI

0
BYTE
BYTE

0
0

JsCYLINDER O
JSECTOR O
;TRACK O

RDDATA

MOV
MOV

(32274
023334

00010C

AR RN
R ARER R

;:D0 1

R&4 ,LOADRK

BIT
BNE
BIS
BR
BIC
JSR
JSR

ERROR
ERROR
ERROR

VERIFY THE
MAKE SURE DATA

#1,8TIMES

JSR

000100

INDICATING

SCOPE
Moy

IBUFF
=400

00C100

A READ DATA

SIMULATE A SECTOR PULSE,

A 1 BIT ERROR IN ECC WORD 2, BIT 6.
COUNTING OF THE POSITION REGISTER.
CHECK AND CONTROLLER ERROR SETS.

BN B

013602
013606
013612
013614
013616

032760
001004
052760
000403
042760

ISSUE

GOOD HEADER, 400 DATA WORDS AND AN ECC

O
—Q
L
X

013554
013562
013564
013572
013574
013602

IN DJAGNOSTIC MODE.

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
C(LOCK THROUGH SEEK

N
.

LATEE 2

’

CONTROLLER

ITERATION

ORDER BITS

;LOAD ‘L'’ REGISTERS

JBUFFER ADDRESS IBUFF
;WORD COUNT =400
: COMMAND RDDATA

#126073,0BUFF+1000
#1,ECCSRC

#81T6.0BUFF
(RO)
100%
#B1T6,0BUFF
(RO)
101%
#BIT6,0BUFF
(RO)
R4 ,OPSTRT
R4 ,DISEEK

&
5
6

INDEX

INPUT BUFFER

INTO BUFFER

;STORE ECC WORDS

sSET SOURCE TO INDICATE ECC IN BUFFER
TEST IF BIT SET
SYES - SKIP
;ELSE SET BIT
;CLEAR BIT

s START THE CPERATION
;SIMULATE IMPLIED SEEK

2CS1 M]SCOMPARE
;MR1
"
JMR?
"

117

3632
3633
3634
3635
3636
3637
3638
3639

14=SEP-81 13:57

30(1046)

TIRGEC.PN

YACY11

[

CZROECD RK61T DSKLS CTRL PRTS

3743

104007

013622

004437

013626
013632
013634

004437

013636
(013642
013644
(013646

004437

013650
013554
013656
013660
013662

0046437

013664
013672
013700
013704
013706
013710
013712
013714
013716
013720

012737

013722
013730
013734
013740

013744
013750
013754
013762
013770
013774
014002
014010
014012
014074
0140c2
014024
014026
014032
014034
014036
01404V
014042
(014050

014054

104010
104011

104012
104013
104014

104015
104016
104032
104033

012737
004437
000400

13:57

VACY11

30(1046)
120

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

023740

JSR
ERROR

R4 ,DRSYNC
10

;SIMULATE HEADER PREAMBLE
;MR1 CONTENTS [N ERROR

;CS1

JSR
ERROR
ERROR

R4 ,DHDCMP
12
13

s SIMULATE HEADER SEARCH
JMR1 CONTENTS IN ERROR
;CS1 IN ERROR AFTER SEAR(H

JSR
ERROR

R4 ,DRGPSN
15

;GO READ GAP AND SYN(
;MR1 IN ERROR READING GAP

ERROR

;CS1

ERROR

024276

ERROR

026500

ERROR
ERROR

000001
004065
027176

0023
0023

N=—2ON

031616
030462
000032
000030
002350
002350
002254

3%:

002252

1%:

002326

2%:

020000

IN ERRCR AFTER

IN ERROR AFTER READING SYNC

;G0 SIMULATE DATA READ

#4066 ,ECPOSX

SEAR(H

IN ERROR AFTER READING GAP
[N ERROR READING SYNC

R4 ,DREAD

sLOAD EXPECTED POSITION
sNUMBER OF WORDS TO SIMULATE
JMR1 IN LRROR READING DATA OR ECC

ERROR
ERROR
ERROR

34
35
36
41
&2
43

MOV
MOV
MOV

#20,BITCNT
#5,RC
#13672.R1

;SET BIT COUNT FOR CORRECTION COUNT
JSET COUNT FOR ECCPOS PASS THRU 0
JSET COUNT FOR ECCPOS TO O FIRST PASS

JSR
JSR

PC,RDBIT
PC,ECCGEN

;GO READ BIT
: GENERATE ECC

ECPOSX,E.ECPS

;SET

1%
42

JYES - SKIP

(LR

$TMPS

sECC ERROR READING DATA
2CS1 ERROR AFTER READING DATA OR ECC
sECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.
JERR IN ECC POS COUNT

;CLEAR SWITCH

MOV
Mov
INC

RKECPT(R2) ,T.ECPT
;GET PATTERN
RKECPS(R2)
,T.ECPS
;GET POSITION
ECPOSX
;BUMP POSITION EXPECTED

CMP

E.ECPT,T.ECPT

MoV

002350

2CS1
;MR1

OR RKDA

JSR

FOR

COMPARE

AND REPORT

;CHECK

E.ECPS,T.ECPS

;CHECK

INC
DEC

BITCNT
R1

;BUMP RIT COUNT
;DEC COUNT TO ZERO IN ECCPOS

BEQ
MOV

#-1,ECPOSX

BEQ
ERROR
CMP

BEQ
ERROR

BNE
DEC

177777

JRKDCYL

sLOAD EXPECTED PATTERN

ERROR
ERROR

013672
001214

16
32

CONTENTS IN ERROR

#1,ECPATX

400
ERROR

002326

MOV

MmNV

NNNNNN

WO
O W

SEQ 0073

:MR3

000020
000005

WNUHWWWWN

104034
104035
104036
104041
104042
104043

000733

15:14
PAGE 74
READ DATA WITH 1 BIT ECC WORD ERROR
14-SEP-81

ERROR

013620

lolelelo]
O
oo
ONNYNY

3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
37i2
3713
3714
3715
3716
3717
2718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
37640
3741
3742

14~-SEP-81

o0
(]
VNONONES
S
NN

CZREEC.PI

DSKLS CTRL PRTS

(O
o

CZROECD RK61T

MoV
B8R

2%
43

PATTERN CORRECT

POSITION CORRECT

;YES = SKIP

3%
RO
3)

sNOT YET ZERQ - LOOP
;DEC PASS THRU O COUNT
J1F 0 - SKIP

4#20000,R1
3%

JSET COUNT TO NEXT O IN ECC POS
:GC DO LOOP AGAIN

JPRESET EXPECTED POS

TO GO TO ZERO

120

48:

002350

104045

000100

002174

100000

002234

074176

6% :

164=SEP=-81

15:14
PAGE 75
READ DATA WITH 1 BIT ECC WORD ERROR

sTEST SwIT(H

TST

¢ TMDS

MOV
MOV
MOV

#10016.R"
#1.R0
#-1_ ECPOSX

B8R

BNE

INT

5¢

;ALREADY

$ TMPS

:SET RO TO RETURN AFTER ONE PASS
JSET EXP POS TO GO TO O ON NEXT BIT
;BUMP SWITCH

SET -

SK]P

:SET COUNT TO FINAL POSITION

;G0 DO LUOP AGAIN

JSR
JSR
MOV
BIS
BIC
CMP
BEQ
ERROR
BR
BI1
BEQ

PC,RDBIT
RG . GETREG
L.CST,E.CS
#RDY ! CERR.E.CS1
#GO.E. (S
T.CS1.€.CS1
6$
44
78
#ECH,T.ER
7$

ERROR

MOV

SEQ 0074

#DCK,E.ER

;ONE MORE BIT TO SET READY
JGET '611 REGISTERS
JGET EXPECTED (S1
;SET READY AND ERROR
;CLEAR GO
;CHECK IF CS1 CORRECT
JYES - SKIP

JTEST IF ECC HARD ERROR SET
;YES - SKIP
JSET EXPECTED ERROR REG

7%:
';tttttt'tittttfitttttt"'tt*tt'tttfitt*tt*tttttttitt.tfit'tfi'fiititt

SATEST 21

3770

18 BIT NPR WRITING OF

MEMORY

CLEAR RK611

PUT

T
P
X

CONTROLLER WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODE.
ISSUE A READ DATA
400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CONTROLLER

CYLINDER 0, HEAD 0, SECTOR 0.

CLOCK THROUGH SEEK
SIMULATE A SECTOR PULSE,
VERIFY THAT THE WORDS
40 DATA WORDS.

AND DRIVE CLEAR MESSAGES.

A GOOD HEADER,
ARE WRITTEN PROPERLY IN MEMORY.

AR RSS2SR0
222t
RRR2R 2R RRRA S

CON
OO
2O
NN

005037
005037
004437
000000

014246

004437

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

014252

004437

032014

JSR

R4 ,RLDDAT

:C0 BUILD DATA

OO
—

2IE
LR S o
PN
PV —

OO
— —d

005037
012762

S BNWNWWNLND
£2NVONONBROSHO

SCOPE

Al 2N A o L
Y SR 2
ONLNLNUNLNLAUNOND

T$T21:

000004
012737

OOQOOO0OOOOO
— b wmd e el —ad el —d —

3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799

30(1046)

000012

002352

002344
002354
032230

100000

010021

001234

000000

MOV

#10.,$TIMES

;:D0O 10. ITERATIONS

CLR
MOV

BSEDES
#CCLR,RKCS1(R2)

;CLEAR BAD SEC DESIRED

CLR
CLR

ECCSRC
HIBITS

;CLEAR ECC SOURCE
;CLEAR H] ORDER BITS

BYTE
'BYTE
IBUFF
-400

0
0

3SR

R&4,LOADRK

RDDATA! CFMT

;CLEAR CONTROLLER

;LOAD ''L'" REGISTERS
;CYLINDER O
;SECTOR O

sTRACK 0

;BUFFER ADDRESS IBUFF
JWORD COUNT =400
; COMMAND RDDATA!(CFMT

010016
000001
177777
001214

~
o
o
O
NOO\WN
I WNESSWNNIN) — =
S5, OO NOONSOCOSNO

3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769

[l
ol o o

3747
3748

VACY]N

001214

PP ol S AP X F 2E 2 AW o L o o}

3746

vy
S
G GhrGunr S Guur s Sy GGG
Gnr Gusr s

3744
3745

[slelolelolelololeololololeoleoleleleolelol
o]

CZRGECO RKE11 DSKLS CTRL PRTS
14-SEP~-81 13:57
CZR6EC.PIT

3838
3839
3840
3841
3842
3843
3844
3845
3846
3847

K
6
PAGE 76

;PATTERN 3

014314
014320
014322
014324

004437

014326
014332
014334
014336
014340

004437

014342
014350
016356
014362
014364
014366
014370
014372
014374
014376

012737
012737
006437
000060

104010
104011

104012
104013
104014

104015
104016
104032
104033

JSR

"R&,DSECTR

;SIMULATE SECTOR PULSE

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
n

;SIMULATE HEADER PREAMBLE

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP

sSIMULATE HEADER SEARCH

JSR
ERROR
ERROR
ERROR
ERROR

.DRGPSN

MOV
Mov

024276

026500

000000
005066

027176

002346
002350

JSR

104034
104035
104036
104041
104942
104043

004437

023316

:START

OPERATION

: (ST MISCOMPARE
:MR3

THE

:SIMULATE IMPLIED SEEK

‘MR2

’

016304
014310
014312

\]0\’1*‘\

004437

104004
104005
104006
104007

4 ,0PSTRY
R4, DISEEK

JMRT

.
'

CONTENTS

IN ERROR

;CS1 CONTENTS IN ERROR
sMR1

CONTENTS

IN ERROR

;(S1 IN ERROR AFTER SEARCH
;RKDCYL OR RKDA IN ERROR AFTER SEARCH

014300

JSR
JSR
ERROR
ERROR
ERROR
ERROR

-—

004437
004437

WWwWw—-—=D
WO

014260
014264
01427°
014272
014274
014276

;GO READ GAP AND SYNC
;MR1

[N ERROR READING GAP

sMR1

IN ERROR READING SYNC

;CST

2CST
PATX

LECPOSX

EAD

IN ERROR AFTER READING SYNC

JLOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION

;GO SIMULATE DATA READ
JNUMBER OF WORDS TO SIMULATE
sJMR1

ERROR
ERROR
ERROR
ERROR
ERNOR
ERROR

IN [RROR AFTER READING GAP

JECC
;(ST
;ECC
;ERR
JERR

IN ETROR READING DATA OR EC(C

ERROR READING DATA
ERROR AFTER READING DATA OR ECC
REG INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC POS COUNT

014400
014404

050130
047124

MOV
Mov

#0BUFF ,RO
#IBUFF ,R1

;SET POINTER TO GOOD DATA
;SET POINTER TO INPUT DATA

014410
014414
014420
014424
014430

000012
001236
001220
000040

MOV

#10.,R4
$ESCAPE

MOV
CLR

#40,R3
RS

;SET ERROR LIMIT COUNT
;CLEAR ESCAPE
;CLEAR ERROR REPORT SWITCH

(MP
BNE
DEC

(RO), (R1)

014432
014434
014436
014440

3853
3854

014444
014446

014442

CLR
CLR

1%:
4%:

022021
000771

2
oa

000002

SEQ 0075

18 BIT NPR WRITING GF MEMORY

3848
3849
3850
3851
3852

75:14

14-SEP-81

$TMP?7

; COMPARE DATA
;SKIP IF NOT EQUAL

;ELSE DEC WORD COUNT LIMIT

;IF O = SKIP TO EXIT

BEQ

INC
(MP
B8R

;SET COMPARE LIMIT
;CLEAR WORD COUNTER

(RO)+,(R1)+

;BUMP WORD COUNT
;BUMP DATA POINTERS
;LOOP

014256

30(1046)
r21

Dl
SO
s
O
ooom
DOND

3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
2320
3821
3822
3823
3824
3825
38256
3827
3828
3829
3830
3831
3832
3833
3834
3835
383¢
3837

14-SEP-81 13:57

VACY11

TIRGEC.PN

DSKLS CTRL PRTS

CZRGECD RK611

CZROECD RK611
CIRGEC.PN
3856
3857
3858
3859
3860
3861
3862
3863
3864
386
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3830
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911

014450
014452

DSKLS CTRL PRTS
14-SEP-81 13:57

MACY1]

005304
001417

3?;}046)
2%:

14-SEP-81

15:14

L
6
PAGE 77

SEQ 0076

18 BIT NPR WRITING OF MEMORY

DEC
BEQ

R4
5%

;DEC ERROR LIMIT
JIF 0 - SKIP

MOV
MOV

(RO) ,$REGO
(R1) ,$REG]

;GET GOOD WORD FOR REPORT
JGET BAD WORD

014454
014460
0146464

001162
001164

001166

MoV

RS5,$REG?2

014470
014474
014476
014502
014504

001220

TST
BNE
INC
ERROR
BR

$TMP7
3%
$TMP7

;DECIDE WHICH ERROR REPORT
:SKIP IF NOT O
JELSE BUMP $TMP?

A 3

JSKIP

014506
014510

001220

104040

000752

014512

ERROR 40
BR
4%

;GET WORD NUMBER

TO USE

JREPORT FIRST ERROR LINE
JREPORT ALL OTHER LINES
;JSKIP

5%:
""l‘fi*'"t*fi*‘**Q*.*fifi‘**fi**'**?fi*.i."t*"****fi*"*fi**.fi**"“’*fi‘*"*

J*TEST 22
.

M
M
M
o
S

18 BIT READ DATA WITH NO ERROR

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A READ DATA
OF 400 WORDS TO AN RK06 IN 24 SECTOR FORMAT,
CYLINDER 0O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK
PUT CONTROLLER IN DIAGNOSTIC MODE.
AND DRIVE CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

A GOOD HEADER, 400 DATA WORDS, AND A GOOD 32 BIT ECC.
VERIFY

THAT

COMMAND COMPLETES WITHOUT ERROR.

:'"***t’**t**t*t*t****fi*it*tt**tt*'**fit***'**fi'fi.*fitififi*"tfi'*il'fi*
014512
014514

000004
012737

014522
014526
014534
014540
014544
014550
014554
014556
014557
014560
014562
014564

005037
012762
005037
005037

014566

004437

031770

014572
014576

004437
000004

032014

014600
014604
014610
014672

0044637
0064437

032274
023334

005037
004437
000000

000001

001234

002352
100000

000000

002344
002344
002354
032230

177400

104004

SCOPE

MOV

#1,8TIMES

;D0 1

ITERATION

CLR
MOV
CLR
CLR
CLR

BSEDES
#CCLR,RKCS1(R2)
ECCSRC
ECCSRC
HIBITS

;CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR

BAD SEC DESIRED
CONTROLLER
ECC SOURCE FLAG
ECC SOURCE
HI ORDER BITS

.BYTE
IBUFF

JSR
0
.BYTE

R4, LOADRK
0

-400

010021

104005

75122:

RDDATA!CFMT

:LOAD "'L'' REGISTERS
JCYLINDER O
JSECTOR O

;TRACK 0
;BUFFER ADDRESS

JWORD COUNT =400

IBUFF

; COMMAND RDDATA!(CFMT

JSR

R&4,CLRIBF

;G0 CLEAR INPUT BUFFER

JSR

R4 ,BLDDAT

;GO BUILD DATA

JSR
JSR
ERROR

R4 ,0PSTRT
R4 ,DISEEK
4

JSTART THE OPERATION
JSIMULATE IMPLIED SEEK
;€S MISCQNPARE

ERROR

JPATTERN 4

;MR1

—~.

CZROECO RK61T1 DSKLS CTRL PRTS

CZR6EC.PI
3912

14~-SEP-81 13:57

;312

014616

014614

104006
104007

gg}g

0164620

004637

3917
3918

01462«
014630

0064437
104010

%g;g

3921
3922
3923
%g%g

014632

014634
014640
014642
014644

MACY11

12?2

15:14

PAGE 78

BIT READ DATA WITH NO ERROR

JSR

R4 ,DSECTR

;SIMUERiE.SECTOR PULSE

023740

JSR
ERROR

R4 ,DRSYNC
10

;SIMULATE HEADER
;MR1 CONTENTS IN

¢
i

024276

JSR
ERROR
ERROR
ERROR

014646
014652
014654
014656
014660

004437
104015
104016
104032
104033

026500

3932
3933
3934
3935
3936
3937
3938
3939
3940
3941

014662
014670
014676
014702
014704
014706
014710
014712
014714
014716

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

000000
005066
027176

%32%

014720

012700

003100

3946
3947
3948
gggg

014724
014732
014740
014742

012762
012762
005300
001370

000440
000040

000026
000026

3951
3952
3953
3954
3955
3956
3957
3958

0147446
014750
014756
014764
014772
015000
015002
015004

(004437
013737
042737
052737
023737
001407
104056

032356
002260
000001
000200
002160

002220
002220
002220
002220

002346
002350

1%:

2%:

;MR2

CZ¢

023316

ERROR

CZi

SEQ 0077

6
7

104011

0046437
104012
104013
104014

J4-SEP-81

ERROR
ERROR

3926
3927
3928
3929
%g%?

3959

30(1048>

»
"

:MR3

{

PREAMBLE
£RROR

;CS1 CONTENTS IN ERRDPs

R4 ,DHDCMP
12
13
14

;SIMULATE HEADER SEARCH
.,
JMR1 CONTENTS IN ERROR
“\\; .
;CS1 IN ERROR AFTER SEARCH
w
JRKDCYL OR RKDA IN ERROR AFTER SEARCH

::u
e

i
4
{
:

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPSN
15
16
32
33

;G0 READ GAP AND SYNC
:MR1 IN ERROR READING GAP
;CS1 IN ERROR AFTER READING GAF
JMR1 IN ERROR READING SYNC
;CST IN ERROR AFTER READING SYNC

Moy
MOV
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#0,ECPATX
#5066 ,FCPOSX
R4 ,DREAD

{
{
¢

34
35
36
41
42
43

;LOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION
GO SIMULATE DATA READ
JNUMBER CF WORDS TO SIMULATE
JMR1 IN ERROR READING DATA OR ECC
JECC ERROR READING DATA
;CS1 ERROR AFTER READING DATA OR ECC
JECC REG INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
JERR IN ECC POS COUNT

MOV

#40.+40. R0

JSET COUNT TO EMPTY SILO

MOV
MOV
DEC
BNE

#DMD !MCLK ,RKMR1T(R2) ;CLOCK CONTROLLER
#DMD ,RKMR1(R2)
RO
;DEC COUNT
1%
sLOOP UNTIL O

!
‘
‘
‘

JSR
MOV
BIC
BIS
(MP
BEQ
ERROR

R4 .GETREG
L.CS1,E.CST
#G0,E.CST
#RDY E.CS1
T.CS1,E.CST
2%
56

‘

R R

ggg?

J*TEST 23

3962
3963
3964
2965
3966
3967

Hid
.
o *
.t
ot
ot

R RN

AR AR AR AR AR

JGET 611 REGS
JGET EXPECTED (S1
;JCLEAR GO BIT
;SET READY BIT
JCHECK IF (S7 CORREC(CT
;YES - SKIP
:"'CS1 IN ERROR AFI1ER READ DATA"
AR R AR AN AN

AN R AR AN

A RRR IR

AR K

4
d
¢
d
f

{
.
)
i
{
{

{
{

18 BIT READ DATA WITH D(CK

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RK06 IN 24 SECTOR FORMAT,
CYLINDER 0, HEAD 0, SECTOR 0.
(LOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND AN ECC INDICATING

‘

15:14

N ¢
PAGE 79

18 BIT READ DATA WITH DCK

SEQ 0078

3968

A ONE BIT BURST ERROR BEYOND THE &4128TH BIT OF

3970
%g;g

B
;*

FINAL PATTERN AND POSITION.
CONTROLLER ERROR SETS.

3973

E.'ntttttnttttttttttttttttttttttttttttttttttttttttttttttttttttttti

{

TST23:

3969

[

015004
015006

000004
012737

0000017

001224

3977
;g;g

015014
015020

005037
012762

002352
100000

00000C

3980
3981
3982
3983
3984
3985
3986
%ggg

015026
(15032
015036
015040
015041
015042
015044
015046

005037
004437
000000
000
000
047124
177400
010021

002354
032230

%ggg

015050

004437

3991
3992
3993
3994
3995
2996

015054
015060

3998
3999

4000
4001
4002
4003

288?

COUNTING OF

THE POSITION REGISTER AND THE

MAKE SURE DATA (HECK AND

¢
j

3974
%g;g

3997

VERIFY THE

THE SECTOR.

= hal

14-SEP-81

[gn]

MACY11 30 (1046)
T 23

~g ~

CZROGECO RK611 DSKLS CTRL PRTS
CZR6EC.P1T
14-SEP-81 13:57

SCOPE
MOV

#1,8TIMES

;:D0 1

ITERATION

(
:

CLR
MoV

BSEDES
#CCLR,RKCST.R2)

;CLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

¢
:

CLR
HIBITS
JSR
R4 ,LOADRK
0
.BYTE
0
BYTE
0
IBUFF
=400
RDDATA!CFMT

;CLEAR H] ORDER BITS
;LOAD ‘‘L'" REGISTERS
JCYLINDER 0
JSECTOR O
;TRACK O
;BUFFER ADDRESS IBUFF
JWORD COUNT =400
; COMMAND RDDATA.CFMT

¢
¢
{
¢
¢
¢
¢
:

031770

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

004437
0C0007

032014

JSR
7

R4 ,BLDDAT

.60 BUILD DATA
:PATTERN 7

015062
015066

012700
012737

000734
006030

051130

MOV
MOV

#734 RO
cSET INDEX INTO BUFFER
#6030 ,0BUFF+1000
JSTORE ECC WORDS

L
{
{
!
4
¢

015102
015110

012737
032760

000001
000100

002344
050130

MOV
BIT

#1, ECCSRC
;SET SOURCE TO INDICATE ECC
#8]T6,0BUFF
(RO) ;TEST IF BIT SET

015074

015116
015120
015126
015130

015136

012737

001004
052760
000403
042760

045070

051132

000100

050130

000100

050130

100s$:

101%:

#450706, 0BUFF +1002

IN BUFFER

{
¢

BNE
BIS
BR
BI(

1008
#8]T6,0BUFF(RO)
1018
#B]T6,0BUFF(R0O)

JYES - SKIP
;ELSE SET BIT

JSR
JSR
ERROR
ERROR

R4 ,OPSTRY
R4, DISEER
&
S

;START THE OPERATION
;SIMULATE IMPLIED SEEK
:CS1 M]SCOMPARE
:MR1
'

¢
¢
{
[

ERROR

:MR3

;CLEAR BIT

‘

¢
[
d
i

4006
4007
4008
4009

015136
015142
015146
015150

004437
004437
104004
104005

28}5

015154

104007

zg}z

015156

004437

023316

JSR

®e ,DSECTR

JSIMULATE SECTOR PULSE

4015
4016

015162
015166

004437
104010

023740

JSR
ERROR

R4 ,DRSYNC
10

;SIMULATE MEADER PREAMBLE
MR CONTENTS IN ERROR

{
d

4019

015172

004437

(024276

JSR

R&L,DHD WP

JSIMULATE HEADER SEARIM

4010

98};
4020
4021
6022

4023

015152

015170

015176
015200
015202

032274
023334

MOV

104006

ERROR

10«01

10601
10400
104074

ERROR
ERROR
ERROR
FRROR

12
'3
&

MR?2

(ST CONTENTS [N ERROR

MRT (ONTENTS IN ERROR
:CST IN ERROR AFTER SEARCH
JRDLYL OR RKDA [N ERROR AFTE~

‘

{

-fAN

¢
‘
[

PUNUNINOND
— ek b 2 O
oSO
S

RV, IV, IV, [V, ]V, ]

104042
104043

MOV
MOV
MOV

(LR

00221
00221

MOV

002350

00225

MOV

002252

0021,

002254

00221

002350

177777

001214

(MpP
BEQ
ERROR
(Mp
BEQ
ERROR
INC
DEC
BNE
DEC
BEQ

4%:

IN ERROR READING DATA OR ECC(

;CST1
;ECC
JERR
JERR

REG INCORRECT AFTER ECC READ
IN ECC PAT C(CALC.
IN ECC POS COUNT

l%Z.BXTCNT

ERROR AFTER READING DATA OR ECC

JSET BIT COUNT FOR CORRECTION COUNT
.SET COUNT FOR ECCPOS PASS THRU 0
;JSET COUNT FOR ECCPOS TO Q FIRST PASS
;CLEAR SWITCH

#5,R

812672 ,R1

$TMPS

;GO READ BIT
:GENERATE ECC
;JGET PATTERN
.GET POSITION
;BUMP POSITION EXPECTED
JSET FOR COMPARE AND REPQRT
sCHECK IF PATTERN CORRECT
JYES - SKIP

ECPOSX

JCHECK IF POSITION CORRECT
JYES - SK]IP

;BUMP BIT COUNT

;DEC COUNT TO ZERO IN ECCPOS
JNOT

YET ZERO - LOOP

:DEC PASS THRU 0 COUNT
JIF 0 - SKIP

;GO DO LOOP AGAIN

TST
BNE

$TMPS
5$

JTEST SWITCH
. ALREADY SET =~ SKIP
JSET COUNT TO FINAL POSITION
JSET RO TO RETURN AFTER ONE PA3S
;SET EXP POS TO GO TO O ON NEXT BI7
;BUMP SWITCH
;GO DO LOOP AGAIN

MOV
MOV

INC
BR

JMR1

#-1,ECPOSX

MOV

002350

IN ERROR AFTER READING GAP

MOV
MoV

001214

010272
000001

1¢:

002326

177777
020000

MOv
INC

IN ERROR READING SYN(

;ECC ERROR READING DATA

JSR
JSR

Hro

3%:

;MR1

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE

ERROR

002326

IN ERPOR READING GAP

;CS1 IN ERROR AFTER READING SYNC

JSR

104035
104036
104041

;MR1

;CS1

400
ERROR
ERROR
ERROR
ERROR
ERROR

104034

SEQ 0079

;GO READ GAP AND SYN(

?4.DQGPSN

MOV
MOV

000400

JSR
JSR

MOV

BIS

JPRESET

#20000,R1

EXPECTED POS

TO GO

7O ZERO

JSET COUNT TO NEXT O IN ECC POS

#10272.R1
#1,R0

#-1,ECPOSX

$TMPS
3s

;ONE MORE BIT TO SET READY
1

;GET

'611

REGISTERS

sGET EXPECTED CS1

LE.CST ;SET READY AND ERROR

f ey
LT

15:14
14-SEP-81
PAGE 80
18 BIT READ DATA WITH D(K
+SR
ERROR
ERROR
ERROR
ERROR

106032
104033

sSo0o800

BB
H e SN

123

104016

BB NN N NN N NN NN N N NN NN NN
S ONNNNOOO
NN DWW -2 =200
OO OO0
OO OO0
— —
W NN
O o~ DO

(LY,

Juur Qv

Guur G

Gur Qe

—

cod

L
rorONOND
NNV

LV TV, LU LV, (W, LV LV, LV,

[ololeoleloleleololole BNolelelole

(LA

OOO0O0

[
=D
——d o

T AT NI

) —d —d —
b —d
D

AT AT

b
D
)

)
)
) wd
ek
—

VAT

OOOOOOCOOOOOOOOOOOOOO

MACYT1 30(1046)

026500

031616
030462
000032
000030
002350

ATV

4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
+078
4079

104015

000022
000005
012672
001214

P
iy

4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066

OOOOOO0

4053

012737
012737
006437

—h —d amd wmd

4046
4047
4048
4045
4050
4051
4052

004437

VALY
Fa¥

4041

4042
4043
4044
4045

OOOO

4024
4025
4026
6027
4028
4029
4C30
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040

PNONMNNOMNONONURNONOND
VNN
B 8 B
oy
SO
O0O

CIR6ECO RK61T1 DSKLS CTRL PRTS
CZROEC.PYT
14=-SEP-81 13:57

4080

015470

042737

4081
4082

015476
915504

023737
001402

4084
4085
4086
4087
4088

015510
015512
015520
015522
015530

000410
032737
001404
012737
104045

4090

015532

4083

4089

4091

015506

000001

002160

MACY1 3?5;046)

164=-SEP-81
15:14 PAGE 81
18 BIT READ DATA WITH D(K

002220

8IC

#G0,E.(CS1

ERROR

002220

CMP
BEQ

104044

000100

002174

100000

002234

6$:

BR
BIT
BEG
MOV
ERROR

T.CS1,E.CS1
63
7$
NECH,T.ER
7%
#O(K E.ER
45

SEQ 0080

;CLeAR GO

;CHECK [F CS1
JYES - SKIP

CORRE(CT

JTEST IF ECC HARD ERROR SET
sNO SKIP
JSET EXPECTED FRROR RLG

7%:

4092

:.'Qtttt.'tit'fifltflfittt"t"tt't*'.t'tt'fil’t.'ttt‘t"ttt'ttt.t't'.'t

2832

JvTEST 24

4095
4096
4097
4098
4099
4100
4101
6102
2}82

i
i
o x
o
i
ot
;v
o
i

4105

:’:i'tl’tttt'tttttfittfl'ttittittifiitttttt*fitttttttt..titttt'tfitittt"

4106

18 BIT READ DATA WITH EfH

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RK06 IN 24 SECTOR FORMAT,
CYLINDER 0, HEAD 0O, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS AND AND ECC INDICATING

A 12 BIT BURST ERROR.
VERIFY THE COUNTING OF THE
POSITION REGISTER.
MAKE SURE DATE CHECK, ECC HARD,
AND CONTROLLER ERROR SETS.

. %

015532

000004

SCOPE

015534

012737

000001

4109

015542

005037

002352

64112
4113
4114
4115
4116
4117
4118

015554
015560
0155564
015506
015567
015570
015572

005037
004437
000000
000
000
047124
177400

002354
032230

2}5}

015576

004437

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

4123

015602

004437

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

4126
4127

C€15610

012700

000734

MOV

#734 RO

JSET

4130
64131
6132
4133
4134

015630
015636
015644
015652
015656

012737
042760
052760
062700
052760

000001
005000
050100
000002
000001

MOV
BI(
BIS
ADD
BIS

#1,ECCSRC
;SET SOURCE TO INDICATE ECC IN BUFFER
#BIT9!BIT11,0BUFF(RO)
;CREATE 11 BIT BURST ERROR
#BIT6'BIT12!BIT14,0BUFF
(RO)
#2,R)
;BUMP TO NEXT WORD
#8110,0BUFF
(RO)

2}}?

2};8

4124
4125

428
4129

4135

015546

015574

015606

015614
015622

015664

012762

150000

001234

TST24:

2}8;

000000

012737
012737

042760

#1,8TIMES

;:D0O 1

CLR

BSEDES

;CLEAR BAD SEC DESIRED

CLR
JSR

HIBITS
R4 ,LOADRK

;CLEAR HI ORDER BITS
sLOAD "'L'" REGISTERS
sCYLINDER 0
JSECTOR 0
;TRACK 0
;BUFFER ADDRESS IBUFF
;WORD COUNT =400

MOv

0
BYTE
BYTE
IBUFF
-400

010021

000005

Mov

#CCLR,RKCS1(R2)

0
0

RDDATA!CFMT

004020
071720

000002

051130
051132
002344
050130
050130
050130

050130

mMov
MOV

BIC

ITERATION

;CLEAR CONTROLLER

; COMMAND RDDATA!(FMT

;PATTERN 5

#4020, 0BUF
F +1000
#71720,0BUFF +1002

#B1T1,0BUFF
(RO) ;MAKE

INDEX

INTO BUFFER

sSTORE ECC WORDS

12 BIT BURST

ERROR

CZIRGECO RK611 DSKLS CTRL PRTS
CZR6EC.P11Y
14-SEP-81 13:57

CZREECD RKE1T DSKLS CTRL PRTS
CZROEC.PI
14-SEP-81 13:57
L136
4137
6138
4136
6140
4141

015672
015676
015702
015704
015706

004437
004437
104004
104005
104006

032274
(023334

2122

015712

004437

4146
4147

015716
015722

6150

2}22

212%

ngg

MACY11 3?51046)
4

0D 7
14-SEP-81
15:14 PAGE 82
18 BIT READ DATA WITH ECH

SEQ 0081

JSR
JSR
ERROR
ERROR
ERROR

R4 ,OPSTRY
R4, DISEEK
&
S
6

;START THE OPERATINN
;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE
JMR1
"
;MR2
"

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

004437
104010

023740

JSR
ERROR

R4 ,DRSYNC
19

sSIMULATE HEADER PREAMBLE
;MRT CONTENTS IN ERROR

015726

004437

024276

JSR

R4 ,DHDCMP

;SIMULATE

015736

104014

ERROR

;RKDCYL OR RKDA IN ERROR AFTER SEAR(H

JSR
ERROR

R4 ,DRGPSN
15

;GO READ GAP AND SYN(
JMR1 IN ERROR READING GAP

ERROR

;CS1

MOV
MOv
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#1,ECPATX
#5066,ECPOSX
R4 ,DREAD
34
35
36
41
42
43

sLOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE DATA READ
;NUMBER OF WORDS TO SIMULATE
;MR1 IN ERROR READING DATA OR ECC
JECC ERROR READING DATA
;CS1 ERROR AFTER READING DATA OR ECC
;ECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.
JERR IN ECC POS COUNT

MOV
MOV
MOV

#22,BITCNT
#5,R0
#12672,R1

;SET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPQS PASS THRU 0
;SET COUNT FOR ECCPOS TO O FIRST PASS

JSR
JSR
MOV
MOV
INC
MOV
(Mp

PC,RDBIT
;GO READ BIT
PC,ECCGEN
; GENERATE ECC
RKECPT(R2) ,T.ECPT
;GET PATTERN
RKECPS(R2),T.ECPS
;GET POSITION
ECPOSX
;BUMP POSITION EXPECTED
ECPOSX,E.ECPS
;SET FOR COMPARE AND REPORT

015710

015724

104007

ERROR

10401

ERROR

JMR3

2CST1

CONTENTS

IN ERROR

4151
6152

015732
015734

104012
104013

4155
4156

015740
015744

004437
104015

2}23

015752

104033

4157
4158

015746
015750

026500

104016
104032

ERROR
ERROR

4161
6162
4163
4164
4165
4166
4167
4168
4169
4170

015754
015762
015770
0157764
015776
016000
016002
016004
016006
016010

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

000001
005066
027176

4173
4176
4175

016012
016020
016024

012737
012700
012701

000022
000005
012672

4178
4179
4180
4181
4182
4183
484

016034
016040
016044
016052
0716060
016064
016072

004737
004737
016237
016237
005237
013737
023737

031616
030462
000032
000030
002350
002350
002256

2};9

4185
4186
4187
4188

4189
4190
4191

016030

016100
016102
016104
016112

016114
016116
016122

ERROR
ERROR

005037

001401
104042
023737
001401

104043
005237
005301

002346
002350

002326

001214

002252

002326

(LR

3%:
002214
002212
002252

002214

002212

1%:

2$:

BEQ
ERROR
(MP
BEQ

ERROR
INC
DEC

12
13

16
32

$TMPS

E.ECPT,T.ECPT

1%
42
E.ECPS,T.ECPS
2%

43
BIT(NT
R1

JMR1
;CS1

.CS1
JMR1

HEADER

SEAR(H

CONTENTS IN ERROR
IN ERROR AFTER SEARCH

IN ERROR AFTER READING GAP
IN ERROR READING SYNC

IN [RROR AFTER READING SYNC

;CLEAR SWIT(CH

;CHECK ]F PATTERN CORREC(T

JYES =

SKIP

;CHECK IF POSITION CORRECT
;YES = SKIP

;BUMP BIT COUNT
;DEC COUNT TO ZERO

IN ECCPOS

TZROELO RK61T

Db Db

£ NN
HSONOONS
N NN S
AN
OSHSVON
o0
SO

rONY

b
D
b
h
b

OOOOOCO
oooOrOrOAOOTM

OOOVOOO

ooooorO6

210
216

e d

QOO OOOOOOOO

14-SEP-81

001343
005300
001406
012737
012701

. 000733
005737
001012

13:57

177777
020000

011041
000001
177777
001214

004737
004437
013737
052737
042737
023737
001402

03161¢
032356
002260
100200
000001
002160

005237
000716

VMACYT

3951046)

4%:

002359

ad md
—

100100

002234

016266

6%:

3%
RO
43

JNOT YET ZERQO - LOOP
;DEC PASS THRU O COUNT
JIF 0 - SKIP

;GO0 DO LOOP AGAIN

1ST
BNE

$TMPS
5%

JTEST SWITCH
JALREADY SET - SKIP

JPRESET EXPECTED POS
JSET COUNT TO NEXT O

$TMPS
3%

JBUMP SWITCH
;G0 DO LOOP AGAIN

MOV
MOV
MoV

#11041,R1
#1,R0
#-1,ELPOSX

JSR
JSR

PC,RDBIT
R4 ,GETREG

BIS

#RDY .CERR,E.CST1 ;SET READY AND ERROR

CMP
BEQ
ERROR
BR
BIT
BNE

T.CST,E.CST
6%
44
7%
#ECH,T.ER
7%

BIC

002174

SEQ 0082

#-1_ECFOSX
#20000,R1

MOV

000100

7
E
PAGE 83

MOV
MOV

INC
BR
5¢:

15:14

18 BIT READ DATA WITH ECH

104044

000410
032737
001004
012737

16-SEP-81

BNE
DEC
BEQ

002350

001214

012701
012700
012737

104045

MOv

ERROR

L.C(S1,E.CST

#G0,E.(CST

#DCK.ECH,E.ER

TO GO TO ZERO
IN ECC POS

JSET COUNT TO FINAL POSITION
;SET RO TO RETURN AFTER ONE PASS
JSET EXP ©0S TO GO TO O ON NEXT BIT

JONE MORE BIT TO SET READY
JGET '"611 REGISTERS

JGET EXPECTED (31

;CLEAR GO

JCHECK IF CS1
JYES - SKIP

CORRECT

JTEST IF ECC HARD ERROR SET
JYES SKIP
JSET

EXPECTED

ERROR REG

’/$:

.SBTTL

«+SPEC]JAL

READ

TESTS

""fi'.*'t*.'*...’*"Q'i"tt'i"ti't‘lfi'l’t.t"'it'ififi."'.fiit"t't'it

J*TEST

PARTIAL

SECTOR READ

.
M
o
.
M

OF 103 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0, HEAD 0, SECTOR 0.
C(CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,

MAKE SURE ONLY 103 WORDS GOT TRANSFERRED TO MEMORY.

OO~
PNy
~NO
OO
00O
Wy
ON
NON

d
ed

005037
012762

002352

005037
005037
004437
000000

002344
002354
032230

000

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER M DIAGNOSTIC MODE.
[ISSUE A READ DATA

A GOOD HEADER,

400 DATA WORDS,

AND A GOOD

32 BIT

ECC.

:""l"'Q*fifi""*"t!iti""""t..t.tlfi'ktit“t'fi"!’l""'i.t""'

000004
012737

ooooooOr
WWNWNWNWLE
NNV
=2 =
OO0

cd md

. %

4201

4202
4203
4204

4195
4196
L197
4198
4199
4200

OO0

4192

4193
4194

OCOOOOO

TIR6EC.P1

DSKLS CTRL PRTS

000001
100000

001234

SCOPE
MOv

41,8TIMES

;:D0

000000

(LR
MOV

BSEDES
#CCLR,RKCST(R2)

;CLEAR BAD SEC DESIRED
;(LEAR (ONTROLLER

(LR
(IR

ECCSRC
HIBITS

JCLEAR ECC SOURCE
;CLEAR H] ORDER B]ITS

JSR
0
BYTE

R4,
0

DADRK

ITERATI]ON

JLOAD *L°"* REGISTERS
;CYLINDER O
JSECTOR 0

2
7l

L2648

016327

MACY11

30(1046)
14~SEP-81
15:14
PAGE 84
125
PARTIAL SECTOR READ

000

BYTE

;TRACK 0

42649

016330

047126

2522

016336

006437

031770

JSR

R4, CLRIBF

:G0 CLEAR INPUT BUFFER

4255
4256
4257
4258

016342
016346

004437
000006

032014

JSR
6

R4,BLDDAT

;GO BUILD DATA
:PATTERN 6

4259

016350

004437

032274

JSR

R4 ,OPSTRT

;START

4261

016360

ERROR

4250
232;

4260

4262

016332
01633¢

016354

IBUFF

SEQ 0083

177675
000021

004437

104004

4263
iggg

016362

016364
016366

104005

2%@9

016370

004437

4268
4269

016374
016400

4272
4273
4274
4552

-103
RDDATA

023334

JSR

:WORD COUNT =103
:COMMAND RDDATA

R4 .DISEEK

THE

*SIMULATE

IBUFF

OPERATION

IMPLIED SEEK

:CS1 MISCOMPARE

ERROR
ERROR

6
7

*MR1

023316

JSR

R4,DSECTR

;SIMULATE SECTOR PULSE

004437
104010

023740

JSR
ERROR

R4, DRSYNC
10

;SIMULATE HEADER PREAMBLE
‘MR1 CONTENTS IN ERROR

016404
016410
016412
016416

004437
104012
104013
104014

024276

JSR
ERROR
ERROR
ERROR

R4, DHDCMP
12
13
14

:SIMULATE HEADER SEARCH
:MR1 CONTENTS IN ERROR
:CS1 IN ERKOR AFTER SEARCH
:RKDCYL OR RKDA IN ERROR AFTER

4277
4278
4279
4280

016416
016422
016426
(016426

004437
104015
104016
104032

026500

JSR
ERROR
ERROR
ERROR

R4, DRGPSN
15
16
32

;GO READ GAP AND SYNC
:MR1 IN [RROR READING GAP
:CS1 IN ERROR AFTER READING GAP
*MR1 IN ERROR READING SYNC

*cs1

4283

016632

012737

000000

MOV

#0,ECPATX

;LOAD EXPECTED PATTERN

4285

015446

004437

027176

JSR

R4 .DREAD

160 SIMULATE DATA READ

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

34
35
36
&1
42
43

:MR1 IN ERRUR READING DATA OR ECC
ZECC ERROR READING DATA
:CST ERROR AFTER READING DATA OR ECC
*ECC REG INCORRECT AFTER ECC READ
‘ERR IN ECC PAT CALC.
*ERR IN ECC POS COUNT

MOV
SUB

7.BA,RO
#1BUFF ,RO

:GET ACTUAL BA
1SUB START VALUE OF

55;?

zgg}
4284

4286

4287
4288
4289
4290
4291
zggg
4294
4295
4296

4297
4298

4299
4%8?

016402

016430
016440
016452

016454
216456
016460
016462
016464
016466

ERROR

‘BUFFER ADDRESS

104006
104007

104011

ERROR

104033

012737
000600

ERROR
004066

013700
162700

016506

001404

012737
104046

047332

016516

012701

000014

016506
016514

002350

MOV

400

104034
104035
104036
104041
104042
104043

016470
016474

016500

00,346

322700

002164
047124

000206
)

CMP

BEQ

002224

#(086 ECPOSX

#206 RO

‘MR
*MR3

:CS1

,
"

CONTENTS IN ERROR

IN ERROR AFTER READING SYNC

:LOAD EXPECTED POSITION
INUMBER OF

WORDS

TG SIMULATE

:TEST IF CORRECT NUM OF WORDS XFfER

PYES

- SKIP

MOV
ERROR

wJeurrozoé E.BA -SET EXPECTED BA
46
IREPORT XFER LENGTH ERROR

MOV

#3. %4, R

4302

4303

016522

012762

000440

000026

MOV

;SET

#DMD 'MCLK ,RKMR1(R2)

COUNT

TO END OF

:RUN THE CLOCK

OPERATION

~N~y

CIRGECD RKETT DSKLS CTRL PRTS
FIRGEC.P11
14=SEP=81 13:57

CZRSECO RK61T DSKLS CTRL PRTS
14=SEP=81 13:5°
TIRGEC.P1T
4305
&306
6307
4308
4309
4210
4311
4312

4304

016530

012762
00530°
001370

016542
016546

4314
4315

016600
016602

004437
073737
042737
052737
023737
001401

¢313

6316

4317
4318
4319
6320
4321
4322
4323
4324
4325
4326
4327
432
4329
4330
4331
4332
4333

4334
4335
4336
4337
4338
4339
43640
4347
4362
4363
L344

4345
4346
4347
4348
4349

4350
4351
4352
4353
4354
4355
4356
4357
4358

4359

016536
016540

016554

016562
016570

016576

000040

MACY11

3?5;046)

L0002¢

164=-SEP-81

SECTOR READ

MOV

#DMD,RKMR1(R2)

R
38

:DEC_THE COUNT
:LOOP UNTIL ZERO

JSR
MOV
BI”

R&,GETREG
L.{STLE.CST

:GET 611 REGS
:GET EXPECTED

#RDY,E.TS’

T.csiLELCS

:SET READY BIT

8IS
2

104056

7
G
PAGE 85

PARTIAL

DE
BNE
13

15:14

BEQ

ERRUR

#GO,E.(S!

SEQ 0084

:CLEAR GO BIT
:CHECK

(ST

:YES = SKIP
:CS1

(S1

CORRECT

IN ERROR AFTER READ DATATM

".'".Qt'.t"'...'.t.'."'t't.""fit.".ii.'fi..fi't'i'tt..'ti"".Q

SRTEST 26

SILO UNLOAD BEFORE HEADER ERROR

. %

e
;e

;e
;e
;v
e
e

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 401 WORDS TO AN RK06 IN 26 SECTOR FORMAT,

CYLINDER 0, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK
SIMULATE A SECTOR PULSE,
A GOOD HEADER, 400 DATA WORDS, AND A GOOD 32 BIT ECC.

AND DRIVE (LEAR MESSAGES.
AFTER ECC
MAKE SURE

SIMULATE A SECTOR PULSL AND A BAD SECTOR ERROR.
THE ENTIRE PREVIOUS SECTOR GETS LOADED INTO

MEMORY BEFORE BAD SECTOR ERROR AND CONTRCLLER ERROR SE'S.

:-."ittfifit.l’tltti'fifiti."fi't"ttflttt*l'ttt*ttttQt'tt!tttttittt'Qtt
016604

(010602

000004
012737

000001

001234

016612

012762

100000

000000

016620
016624
016630
016634
016640
016642
016643

005037
005037
005037
004437
000000

002352
002344
002354
032230

016644

A1,STIMES

::DO

MOV

#CCLR.RKCST(R2)

;CLEAR CONTROLLER

CtR
(LR
(Lk
JSR

BSEDES
ECCSRC
HIBITS
R&,LOADRK

:CLEAR BSE DESIRED
:CLEAR ECC SOURCE
:CLEAR HI ORDER BITS
:LOAD ‘L'* REGISTERS

0
BYTE
BYTE
1BUFF

000021

016652

004437

031770

076656
016662

004437
000002

032014

016664

004437
004437

016702

SCOPE
MOV

104004
104005
104006
104007

0
0

=401
RDDATA

016646
(016650

016670
016674
016676
016700

T3125:

ITERATION

:CYLINDER 0
:SECTOR 0
:TRACK 0

:BUFFER ADDRESS

ZWORD COUNT =401
: COMMAND RDDATA

IBUFF

JSR

R4, CLRIBF

JSR

R4,BLDDAT

JSR
JSR

Re,OPSTRT
R4.DISEEK

:START THE OPERATION
:SIMULATE IMPLIED SEEK

ERROR
ERROR
ERROR

5
6
7

:MR1
"
MR
MR

ERROR

;GO CLEAR INPUT BUFFER
;G0 _BUILD DATA

:PATTERN 2

:CS1 MISCOMPARE

7
9

CIRGE(D RK6'1 DSKLS CTRL PRTS

TIRGEC PN
4360

6361

4362
4363
4364
4365
4366
4367

4368

004437

C23316

JSR

R4 ,DSECTR

s SIMULATE

016710
016714
016716

006437

023740

JSR
ERROR
ERROR

R4 ,DRSYNA
10
1

;SIMULATE HEADER PREAMBLE
JMR1 CONTENTS IN ERROR
2CS1 CONTENTS [N ERROR

016720

004437

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHD(MP

12
13

JMR1T
2CS1

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPON

;GO READ

32
33

JMR1
2CS1

MOV
MOV
JSR

#0,ECPATX
#4066,ECPOSX
R& ,DREAD

016724

104010
104011

104012
104012

016732
016736
016740
016742

004437

016744

104033

016746
016754
016762
(016766
016770
(016772
016774
016776
017000
017002

012737
012737
006437
000400

4399
4400
4401

4402

4403
4404
4405
4406
4407
4408
4409
4610
AN
6612

4413
4614
4615

104014

104015
104016

026500

104032

00C000
004066
02717¢

400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

104034
104035

104036

10401

*Ne0L?

104063

017004
017010

070040
000440
000040

017016
017024
017026

100000

017030

000026
000Cz6

002352

6%:

;SIMULATE

JMR1
;CS1

HEADER

SEARLH

CONTENTS IN ERROR
IN ERROR AFTER SEAR(H

JRKDCYL

15
16

SECTOR PULSE

OR RKDA

GAP AND

[N ERROR AFTER
SYNC

IN ERROR READING SYNC(
IN ERROR AFTER READING SYNC

;LOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION
;GO SIMULATE DATA READ

34
35
36

;NUMBER OF WORDS TO SIMULATE
JMR1 IN ERROR READING DATA OR EC((
JECC ERRGR READING DATA
2CS1 ERROR AFTER READING DATA OR ECC

42
43

JERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

JECC

REG

INCORRECT AFTER ECC

#8.%4. R1
;SET COUNT TO END OF
#DMD 'MCLK ,RKMR1T(R?2) ;RUN THE (LOCK
#DMD ,RKMR1(R2)
R1
;DEC THE COUNT

MOV
MOV
MOV

DEC
BNE

;LOOP UNTIL

BIS

#BIT15,BSEDES

;SET

ZERO

FOR BAD

SECTOR ERROR

02331¢

JSR

R4 ,DSECTR

s ISSUE

017042
017046
017050

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
n

JREAD SYNC
sMR1 CONTENTS
;CS1 CONTENTS

017052
017056
017060
017062

004437

024276

JSR
ERROR
ERROR
BR

R4 ,DHDCMP
12

;DO HEADER (OMPAPE WITH BSE
JMR1 CONTENTS IN ERROR

104012
104013

000411

THE

017064

017070
017076
017104

002352
002274
002266

THIS CODE
ADDRESS

CLR

MOV
MoV

13
1%

ERROR

SECTOR PULSE

IN ERROR
IN ERROR
ERROR

(ST IN ERROR AFTER SEAR(H
SEXPECTED RETURN (NO DA INCREMENT)

IS EXECUTED,

THE

INCREMENT BECAUSE

BSEDES
L.DCYL,E.DCYL
L.CAE.DA
47

READ

SECTOR

004437
104010
104011

SEARC(H

IN ERROR READING GAP
IN ERROR AFTER READING GAP

017036

NNNN

4357
4398

016730

OO0
OQO—=—
O
NN
W
ONNO
SN ANNN

4396

SEQ (085

016706

6373
L3746
4375

4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
387
4388
4389
4390
4391
4392
4393
4394
4395

7
H
14-SEP-81
15:14
PAGE 86
SILO UNLOAD BEFORE HEADER ERROR

13:5°

016726

6376

30(1046)
726

14=-SEP=-81

(369

6370
437
6372

MA(Y11

CONTROLLER DID NOT

THE

BSE

ERROR.

INHIBI-

sCLEAR BSE DESIRED SWITCH
;SET EXPECTED CYL
;SET EXPECTED SEC/TRACK
JUNEXPECTED ADDRESS INCREMENT

CZROECD RK6E11 DSKLS CTRL PRTS

TIRGEC.P1Y
L4616

14-SEP-81

13:57

000014

617

017106

016217

4419
4420
4421
425%

017122
017126
017132
017134

001005
012737
104051
000453

426
25

017136
017142

004437
013737

9258

017162

000440

4618

46426
4427
64628

017114

017150
017156
017160

032737

023737
001402
104056

000200

032356
002260

002220

MACY11

002176

002174

30(1046)

15:14

7
I
PAGE 87

126

SILO UNLOAD BEFORE HEADER ERROR

18:

MOV

002234

002220
0021¢C

14-SEP-81

2%:

SEQ (08¢

RKER(R2),T.ER

;GET ERROR REG

BNE
MOV
ERROR
BR

2$
#BSE ,E.ER
51
TST27

;YES = SK]IP
JSET EXPECTED ERROR REG
;"BSE DID NGT SET"
;.60 TO NEXT TEST

JSR
MOV
(MP
BEQ
ERROR

R4 ,GETREG
L.CST,E.CST

E.CS1,T.CST
3s
56

;GET 611 REGS
JSET EXPECTED (S
;CHECK IF CS1 OK
JYES - SKIP
;"'CS1 ERROR AFTER WRITE

MOV

#278.+16. ,R1

sSET COUNT

BIT

#BSE,T.ER

B8R

15127

JTEST

BSE

SET

CHECK''

;GO TO NEXT TEST

4431

4432
4633
4436
4635

017164

012701

3%:

002320
002322
031616

TO NEXT ECC

PR.BIT
M1.BIT
PC.RDBIT
R1

JSR
8iC
BIS
(mMP
BEQ
ERROR
BR

R4 ,GETREG
#GO,E.CS1
#RDY
! CERR,E.CS1
E.CST,T.CST
7%
56
TST27

MOV
CMP
BEQ

#1BUFF+1000,E.BA ;SET EXPECTED BA
E.BA,T.BA
;TEST IF BA CORRECT
5%
JYES = SKIP

.SBTTL

**WRITE

CHECK

4455

R R AN

2229

;*TEST 27

6458
4459
4460
4461

M
i
"
it

2222

017206

005037
005037
004737
005301

010540

CLR
CLR
JSR
DEC

22%9

017170
017174
017200
077204

6%:

001374

BNE

4438
4639
4440
4441
4442
4443
4222

017210
017214
017222
017230
017236
017240
017242

004437
042737
052737
023737
01402
104056
000410

032356
000001
100200
002220

002220
002220
902160

4446
4447
4448

017244
017252
017260

012737
023737
001401

050124
102224

002224
002164

4451
4452
ey

017264

zzgg

017262

7%:

104052

sSIMULATE READ BIT
.DEC COUNT

ERROR

FIELD

;CLEAR PRESENT AND PREVIOUS BITS

;LOOP UNTIL ZERO

;GET 611 REGS
JSET UP [XPECTED (S1

;CHECK IF CS1 OK
JYES - SKIP
;''CS1 ERROR AFTER READ DATA'
;:G0 TO NEXT TEST

;RUS ADDRESS

INCORRECT

5%:
TESTS

]

4462
4463

it
i

L4666
4467
4468
4469

4470
W7

R AR

R R

R AR R AR R R R AR AR AN R R R AR A AN R RSN TR RO AN R

WRITE CHECK OF 40C WORDS

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
CHECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, THE 400 WORDS TO BE WRITE CHECKED,

AND A GOOD 32 BIT ECC.

MAKE SURE NO ERRORS SET.

:','ttttttittttttttttttttittt'tktttttttttttttttttttttttttttttflt'tt'
017264
017266
017274

017300

000004
012737
005037

005037

000012
002354

002352

001234

1S127:

SCOPE
MOV
CLR

(LR

#10. ,$TIMES
HIBITS

BSEDES

;:D0 10. ITERATIONS
;CLEAR H] ORDER BITS

;CLEAR BSE DESIRED

(ZREECO RKO11
(ZR6EC.PT
4472
4473
6476
4475
4476
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4457
4498
4499
64500
4501
4502

DSKLS CTRL PRTS
14-SEP-81 13:57

005037
005037
004437
000000

017304
017310
017314
017320
017322
017323
017324
017326
017330

000031__

017332

004437

017336
017342

MACY11

14-SEP-81
30(1046)
15:14
PAGE 88
WRITE CHECK OF 400 WORDS
127

(J2344
002344
032230

CLR
CLR

ECCRC
ECCSR(

SEQ 0087

sCLEAR ECC SOURCE FLAG
;CLEAR ECC SOURCE

JSR
0
BYTE
BYTE
IBJFF

R4 ,LOADRK
0
0

;LOAD ''L'' REGISTERS
;CYLINDER 0
JSECTOR 0
JTRACK 0

031770

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

004437
000004

032014

JSR

R4 ,BLDDAT

017344
017350
017354
017360
017362
017364

012700
012701
012703
012321
005300
001375

000400
047124
050130

MOV
MOV
MOV

#400,RO
#1BUFF ,R1
#OBUFF ,R3

;SE1

017366
017374
017400
0174604
017406
017410
017412

012762
004437
004437

100000
032274
023334

MOV
JSR
JSR
ERROR

#CCLR,RKCS1(R2)
R4 ,0PSTRT
R4 ,DISEEK
4

;CLEAR CONTROLLER
;START THE OPERATION
sSIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

017614

004437

4504
4505
4506

017420
017424
017426

4508

017430

4510
4511
4512
4513
4514
4515
6516
4517
4518
4519

017436
017440

4503

4509

64520
4521
4522
4523
4526
4525
4526
4527

017434

104004
104005
104006
104007

75%:

000000

110$:

MOV
DEC
BNE

;GO BUILD DATA

JPATTERN 4

;SFT A COUNT FOR BUFFER SIZE
;$E" ADDRESS OF

IBUFF

ADDRESS OF OBUFF

;MOV PATTERN TO IBUFF
sDEC COUNT
;LOOP UNTIL PATTERN IS MOVED

ERROR

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

004437

023740

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAM3LE

004437
104012

024276

JSR

R4 ,DHDCMP

sSIMULATE HEADER SEARCH

ERROR

sRKDCYL OR RKDA

104010
104011

ERROR
ERROR

(R3)+,(R1)+
RO
75%

;BUFFER ADDRESS IBUFF
sWORD COUNT =400
s COMMAND WRT(CHK

5
6
7

FRROR
ERROR
ERROR
ERROR

104013
104014

017442
017446
017450
017452
017454

004437

017456
017464
C17472
017476

012737
012737
004437
000400

017500
01755¢
017504
017506
017570

-400
WRTCHK

104015
104016
104032
104033

104053
104054
104055
104041
106042

026500

000000
004066
027176

12
13

;MR1
;CS1
;MR1
2CS1

"
"
"

CONTENTS IN ERROR
CONTENTS IN ERROR

CONTENTS IN ERROR
IN ERROR AFTER SEARCH

IN ERROR AFTER

JSR

R4 ,DRGPSN

;GO READ GAP AND SYN(

ERROR
ERROR
ERROR

16
32
33

;CS1
JMR1
:CS1

MOV
MOV
JSR
400

#0,ECPATX
#4066 ,ECPOSX
R4 ,DWRTCK

ERROR

002346
002350

10
1

sMR1
JMR?
:MR3

ERROR
ERROR
ERROR
ERROR
ERROR

53
54
55
41
42

sMR1

IN ERROR READING GAP

IN ERROR AFTER READING GAP
IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK
sNUMBER 0OF WORDS TO SIMULATE

JMR1 IN ERROR ON WRT (K OR ECC READ
JECC ERROR IN WRITE CHECK OP
:CST ERROR AFTER WRT (CHK OR ECC READ
SECC REG INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.

CZROECO RK61T DSKLS CTRL PRTS
(ZR6EC.PTT
14-SEP-81 13:57
(528
4529
4530
4531
4532
4533

017512

104043

017514

012700

002710

017520

012762

000440

MACYTT

000026

7
K
14-SEP-81
15:14
PAGE 89
3? ( 1046)
WRITE CHECK OF 400 WORDS
27

1%:

SEQ 0088

ERROR

JERR IN ECC POS COUNT

MOv

#40.+3/7.,R0

sSET COUNT TO EMPTY SILO

MOV

#DMD .MCLK,RKMR1(RZ2)

;CLOCK

CONTROLLER

CZRGECO RK61T1

14-SEP-81

13:57

017526
017534
017536

012762
005309
001370

000040

017540
017544
017552
017560
017566
017574
017576
017600

004437
013737
042737
052737
023737
001401

CZREC.P11

MOV
DEC
BNE

#DMD ,RKMR1 (R2)
RO
1$

:DEC COUNT
SLOCP UNTIL 0

JSR
MOV
BIC

R4, GETREG
L.CST,E.CST
#GO.E.CSH
#RDY ,E.CS?
T.cS1,E.CST

:GET 611 REGS
SGET EXPECTED (S1
*CLEAR GO BIT
*SET READY BIT
“CHECK IF CS1 CORRECT

BIS
CMP
BEQ
ERROR

28
57

SYES = SKIP
2"'CST IN ERROR AFTER WRITE CHECK'

WRITE

CHECK WITH DCK

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
CHECK OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,

i
o
w
v

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE.
A GOOD HEADER, THE 400 WORDS TO BE WRITE CHECKED,

AND THAT THE FINAL PATTERN AND POSITION ARE CORRECT.

CYLINDER O, HEAD O, SECTOR 0.

CLOCK THROUGH SEEK

AND A 32 BIT ECC INDICATING A 1 BIT BURST ERROR.
VERIFY THAT
CHECK

THE

POSITION REGISTER

THAT DATA CHECK AND

INCREMENTS PROPERLY

CONTROLLER ERROR ARE

SET.

:°.'tttttttttti*t**tttl‘tt*t*ttttttttttt*tttt*tttttttttt'ttttttt*t*t

017600

000004
012737

017610
017614
017620
017624
017626
017627
017630
017632
017634

005037
005037
004437
000000
000
000
047124

002352
002354
032230

017636

004437

031770

017642
017646

004437
000005

017602

000001

001234

T357T20:

SCOPE
MOV

#1,$TIMES

;:D0 1

CLR
CLR

BSEDES
HIBITS

:CLEAR BAD SECTOR DESIRED
*CLEAR HI ORDER BITS

JSR
0
BYTE
BYTE

0
0

JSR

R4, CLRIBF

:GO CLEAR INPUT BUFFER

032014

JSR
5

R4 ,BLDDAT

;GO BUILD DATA
SPATTERN §

017650
017654
017660
017664
017666
017670

000400
047124
05C130

MOV
MOV
MOV

#400,R0
#1BUFF ,R1
#OBUFF .R3

:SET A COUNT FOR BUFFER SIZE
*SET ADDRESS OF IBUFF
*SET ADDRESS OF OBUFF

DEC

:DEC COUNT

017072
017676
017704

IBUFF
=400
WRTCHK

177400
000031

75%

MOV

BNE

MOV

MOV
MOV

R4, L OADRK

ITERATION

SLOAD ''L‘* REGISTERS
*CYLINDER 0
*SECTOR 0
*TRACK 0

—

4588
4589

i*
o

—

4583

4584
4585
4586
4587

SEQ 0089

- %

—

4578
4579
4580
4581
4582

S*TEST

—

4575
4576
4577

":tttttt*ttttttttttttttt'tttttttttttttttttttttttttttttittfitttt'tt

4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574

4563

000026

104057

LASIV 1,8

4542
4543
4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562

14-SEP-81
15:14
30(1046)
PAGE 90
WRITE CHECK OF 400 WORDS
127

—_——-a
O
WO
—t
O\ —
QOO

4534
4535
4536
4537
4538
4539
4540
4541

MACY11

DSKLS CTRL PRTS

(R3)+,(R1)+

75%

#1002, R0

*BUFFER ADDRESS IBUFF
SWORD COUNT =400
; COMMAND WRTCHK

*MOV PATTERN TO IBUFF

SLOOP UNTIL PATTERN IS MOVED
:SET

#126073,0BUFF+10D0
#151052.,0BUFF +1002

INDEX

INTO BUFFER

;STORE ECC WORDS

004437

020010
020014
020016
02000

JSR

R4 ,DSECTR

:SIMULATE

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

:SIMULATE HEADER PREAMBLE
*MR1 CONTENTS IN ERROR
*CS1 CONTENTS IN ERROR

004437

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP

:SIMULATE HEADER SEARCH

020022
020026
020030
020032
020034

004437

026500

JSR
ERROR

R4 ,DRGPSN

;GO READ GAP AND SYNC

32
33

*MR1
*C51

020036
020044
020052
020056
020060
020062
020064
020066
020070
020072

012737
012737
004437
000400

020074
020702
020106
020112

012737
012700
012701
005037

000020
000005
013672
001214

020116
020122
020126
020134
020142
020146

004737
004737
016237

031616
030462
000032

104010
104011

104012
104013
104014

104015
104016
104032
104033

ERROR
ERROR
ERROR

000001
004066
027176

002346
002350

MoV
MoV

JSR

400
ERROR

104053
104054

ERROR
ERROR
ERROR
ERROR
ERROR

104055

104041
104042
104043

016237
005237
013737

000030
002350
002350

002326

15
16

#1,ECPATX
#4066 ,ECPOSX
R4 ,DWRTCK

54,
55

42
43

SECTOR PULSE

*MR1 CONIENTS IN ERROR
1cS1 IN ERROR AFTER SEARCH
ZRKDCYL OR RKDA IN ERROR AFTER SEARCH
*MR1
*CS1

IN ERROR READING GAP
IN ERROR AFTER READING GAP

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

:LOAD EXPECTED PATTERN
:LOAD EXPECTED POSJTION
:GO SIMULATE WRITE (HECK

*NUMBER OF WORDS TO SIMULATE
*MR1

IN ERROR ON WRT CK OR ECC READ

:CST

ERROR AFTER WRT CHK OR ECC READ

*ECC ERROR IN WRITE CHECK OP
ZECC REG

INCORRECT AFTER ECC READ

:ERR IN ECC PAT CALC.
*ERR IN ECC POS COUNT

MOV
MOV
MOV

xzo BITCNT

;SET BIT COUNT FOR CORRECTION COUNT

#13%672.R1

*SET COUNT FOR ECCPOS TO O FIR3T PASS

JSR
JSR

PC,RDBIT
PC.ECCGEN

CLR

3%:

12
13
14

'
"

002214
002212

MOV
MOV

002252

MOV

INC

#5 RO

$TMPS

:SET

COUNT

b
oY

lalim)

~NEe

mism

‘MR?
*MR3

020000
020004
020006

‘MR1

6
7

FOR ECCPOS FASS

*CLEAR SWITCH
;GO READ BIT
GENERATE ECC

RKECPT (R2) r
ECP
:GET PATTERN
RKECPS(R2)
.T.ECP s
SGET POSITION
ECPOSX
SBUMP POSITION EXPECTED
:SET FOR COMPARE AND REPORT
ECPOSX,E.ECPS

PRI
ML
ML RLRL R

023316

:START THE OPERATION
*SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE

omiA

004437

;CLEAR CONTROLLER

4613
4614

017774

R4 ,OPSTRT
RG.DISEEK
4

4604
4605
4606
4607
4608
4609
4610
4611
4612

#CCLR,RKCS1(R2)

4603

104004
104005
104006
104007

JSR
JSR
ERROR
ERROR
ERROR
ERROR

#B1T6,0BUFF
(RO) :CLEAR BIT

MOV

012762
004437
004437

SYES - SKIP
“ELSE SET BIT

000000

017746
017754
017760
017764
017766
017770
017772

IN BUFFER

100000
032274
023334

4599
4600
4601
4602

ECC

050130

4596
4597
4598

1008
:g{;b.oeurr<no>

;SET SOURCE TO INDICATE
TEST IF BIT SET

000100

4595

#1,ECCSRC
#81T6,0BUFF(ROY

THRU 0

050130

4592
4593
4594

MOV

000100

BIT
BNE
BIS
BR
BIC

012737
032760
001004
052760
000403
042760

002344
050130

017712
017720
017726
017730
017736
017740
017746

000001
000100

4590
459

SEQ 0090

MACY11

R ALRLALR.
AL AL R
s R
L AL R

m
7
15:14
PAGE 9
14~SEP-81
30(1046)
T30
WRITE CHECK WITH DCK

CZRGECO RK61T DSKLS CTRL PRTS
14-SEP-81 13:57
CZROEC.PN

100200
000001
002160

002220
002220
002220
002220

104045

100000

002234

020350

4698
4699
L7250
[_701

JSR

:ONE MORL BIT TO SET READY

ERROR

#DCK,E.ER

WRITE

“GET '611 REGISTERS
*GET EXPECTED CS1
:SET READY AND ERROR
:CLEAR GO
SCHECK IF CS1 CORRECT
SYES - SKIP

;TEST IF ECC HARD ERROR SET
SVES ~ SKIP
*SET

EXPECTED

ERROR

REG

CHECK OF

18 BIT WORDS

- N

o
e

;e
I
;e
I

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

CHECK OF 400 WORDS TO AN RK06& IN 24 SECTOR FORMAT,

CYLINDER O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK
SIMULATE A SECTOR PULSE.
A GOOD HEADER, THE 400 WORDS TO BE WRITE CHECKED,
AND A GOOD 32 BIT ECC.
MAKE SURE NO ERRORS SET.

AND DRIVE CLEAR MESSAGES.

."..t..'......'...‘......!'!..!.....t.l.'t'.l....Q'QQ'..'....Q.O.

020350
020352

000001

020360
0203846

002352
002354

001234

SCOPE

~N~y

=
A
A
RLA.
AL
.
AIALALAL LA
AL

<SET COUNT TO FINAL POSITION
SSET RO TO RETURN AFTER ONE PASS
*SET EXP POS TO GO TO O ON NEXT BIT

,'.'t".Qtt.tt!ttt.tQttttt'iitt.titttt'ti'ttttt'tttl't.t'tt'ttttt.t

SeTEST

PC.,RDBIT

R4 .GETREG
L.CS1,E.CST
#RDY
! CERR,E.CS1
#GO,E.CS?
T.CS1,E.CS1
6$
44
7%
WECH,T.ER
7$

LR,

*BUMP SWITCH
:GO DO LOCTM AGAIN

JSR
MOV
BIS
BIC
CMP
BEQ
ERROR
BR
BIT
BEQ
MOV

$ TMPS
3¢

;TEST SWITCH
*ALREADY SET = SKIP

7%:

4687
4688
4689
4690
4691
4692

4693
L4694
4695
4696
4697

6$:

$TMPS
5¢
#10016,R1
#1,R0

#-1,ECPOSX

INC
BR

5%:

002774

ST
BNE

AIALALAL

002350

000100

:GO DO LOOP AGAIN

MOV
MOV
MOV

104044

000410
032737
001404
012737

“PRESET EXPECTED POS TO GG TC ZERO
“SET COUNT TO NEXT O IN ECC POS

031616
032356
002260

#=1,ECPOSX
#20000,R1

004737
004437
013737
052737
042737
023737
001402

177777

;BUMP BIT COUNT
:DEC COUNT TO ZERO IN ECCPOS
:NOT YET ZERO - LOOP
:DEC PASS THRU 0 COUNT
SIF 0 - SKIP

020262
020266
020272
020300
020306
020314
020322
020324
020326
020330
020336
020340
020346

010016
000001

BITCNT
R
3$
RO
4$

AlALAL

001214

012700
012737

INC
DEC
BNE
DEC
BEQ

MOV
MOV

48:

001214

POSITION CORRECT

sk
Em

005237
000716

001012
012701

005737

SYES - SKIP

;CHECK

ALRIA

020230
020234
020236
020242
020246
020254
020260

002359

ERROR

177777
020000

2$:

E.ECPS,T.ECPS

EmlRLA

002326

cMP

BEQ

104043
005237
005301
001343
005300
001406
012737
012701
000733

1$:

IYES - SKIP

4681
4582
4683
4684
4685
4686

002212

;CHECK IF PATTERN CORRECT

1$
42

L677
4678
4679
4680

002252

104042

E.ECPT,T.ECPT

MOV

81, 8TIMES

::DO 1

ITERATION

LR
(R

85kt
S
HIBITS

s(.EAR BAD SE(TOR DES]RED
JCLEAR w] DRDER B!'S

4667
4668
4669
4670
4671
4672
4673
4674
4675
4676

023737
001401

CMP

BEQ
ERROR

4665

4666

002214

4657
4658
4659
4660
4661
4662
4663
4664

V02254

SEQ 0091

CHECK WITH DCK

4653
4654
4655
4656

023737
0014017

PAGE 92

4649
4650
4651
4652

020154
020162
020164
020166
020174
020176
020200
020204
020206
020210
020212
020214
020222
020226

WRITE

4647
(648

13:57

15:14

4646

130

14-SEP-81

CZR6EC.PIT

vYACYTT 30(1046)

[ Yan]

CZRGECO RK611 DSKLS CTRL PRTS

4702

4703
L7704

4705

4706
4707
4708

4709

4710
«71
£712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723%
4724
4725
(726
4727

4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
47461
4742
4743
4744
4745
4746

L7747

4748
4749
4750
4751
4752
4753
4754
4755
(756
4757

020370
020374
020400
020402
020403
020404
020406
020410

005037
004437

000000
000
000

MACY11

PAGE 93
15:14
30(1046)
164-SEP-81
181
WRITE (HECK OF 18 BiT WORDS

002344
032230

CLR

ECCSRC

BYTE
BYTE
IBUFF

0
0

3SR

047124

R4 ,LCADRK

-470
WRTCHK!CFM~

177400

010031

SEQ 0092

sCLEAR ECC SOURCE

JLOAD ''L'" REGISTERS
JCYLINDER O
;SECTOR 0

;TRACK 0

;BUFFER ADDRESS IBUFF
JWORD COUNT =400

; COMMAND WRT(CHMK CFMT

;GO CLEAR INPUT BUFFER

020412

004437

031770

JSR

R4 ,CLRIBF

020416
020422

004437
000004

032014

zSR

R4 ,BLDDAT

020424

012700
012701
012703
012321
005300
001375

000400
067124
050130

L [0)"

#400,R0

sSET A COUNT

MOV
MOV
DEC

#OBUFF ,R3
(R3)+,(R1)+
RO

sSET ADDRESS OF

MOV
JSR
JSR
ERROR

#CCLR,RKCSTn2)
R4 ,OPSTRT
R4 ,DISEEK
&

JCLEAR (ONTROLLER

ERROR
ERROR

6
7

:MR?2

020430
020434

020440
020442
020444

MOV

75%:

BNE
00 0000

#]BUFF ,R1

75%

;GO BUILD DATA

JPATTERN 4

FOR BUFFER SIZE

;SET ADDRESS OF
;MOV PATTERN

[BUFF

OBUFF
IBUFF

;DEC COUNT
JLOOP UNTIL PATTERN IS MGVED

020446
020454
020460
020464
020466
020470
020472

012762
004437
004437

020474

004437

023316

JSR

R4 ,DSECTR

:SIMULATE SECTOR PULSE

020500
020504
020506

004437

023740

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

020510
020514
020516
020520

004437

020522
020526
020530
020532
020534

004437

02053¢
020544
020552
020556
020560
020562
0205€4
020566
020570
020572

012737
012737
004437
000400

104004
104005
104006
104007

104010
104011

104012
1064013
104014

104015
104016
104032
104033

104053
104054
104055
104041
104042
104043

110$:

ERROR

024276

026500

000000
005066

027176

ERROR
ERROR
JSR

ERROR
ERROR
ERROR
JSR

ERROR
ERROR
ERROR
ERROR

10
11

R4 ,DHDCMP

12
13
14

R& ,DRGPSN

1§
16
32
33

L [0]%

40 ECPATX

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

53
5¢&
55
41
42
43

MOV
JSR
400

#5046 ,ECPOSX
R4 ,DWRTCK

;START

THE

OPERATION

JSIMULATE IMPLIED SEES
;CS1 MISCOMPARE
;MR

JMR1

;(S1

‘

CONTENTS

IN ERROR

s SIMULATE HEADER SEARCH
;MR1

;CS1

CONTENTS

IN ERROR

IN ERROR AFTER SEAR(CH

sRKDCYL

RKDA

[N ERROR

AFTER

SEAR(H

;GO READ GAP AND SYNC
JMR1 IN ERROR READING GAP
;CS1 IN ERROR AFTER READING GAP
;MR1

(ST

IN ERRCR READING SYNC

IN ERROR AFTER READING SYNC

sLOAD EXPECTED PATTERN
JLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK
sNUMBER OF WORDS TO SIMULATE
JMR1

IN ERROR ON WRT

(k OR ECC

JECC ERROR IN WRITE CHECK OP

READ

:CS1 ERROR AFTER WRT (HK OR ECC READ
;ECC REG_INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.
;ERR IN ECC 20S COUNT

TIR6EC.PIT

DSKLS C(TRL PRTS
14-5gP-81 13:57

TIRGE(D RKE'T

CZRGECO RK61T DSKLS CTRL PRTS

13:57

020574

012700

003100

020600
020¢06

012762
012762
005300
001370

000440
000040

020620

004437
013737
042737
052737
023737

020614
020616
020624

020632
020640
020646
020654
020656
020660

001401

000026
000026

18:

14-SEP=-81

18 BIT WORDS

#40.+40.,R0

MOV
MOV

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

RO
1%

JDEC COUNT
;LOOP UNTIL O

JSR

R&4&,GETREG

;GET 611 REGS

8IC

#G0,E.CST

:CLEAR GO BIT

CMP

7.CS1,€.CS1

BIS
"

PAGE

[0}

DEC
BNE

000200
002160

15:14

WRITE C(HECK OF

MOV

104057

BEQ
ERROR

:SET COUNT

L.CST,E.CST

TO EMPTY SILO

:CLOCK CONTROLLER

:GET EXPECTED (S1

#RDY,E.C(S1

:SET READY BIT

JCHECK

2%
§7

CS1

CORRECT

IYES = SKIP
:"'CS1 IN ERROR AFTER WRITE CHECK''

;;tttttlttttttttttttttttttttttttttt'ttt'tttttttttt't.tlt.tti'tt't

J*TEST

WRITE

CHECK OF

A PARTIAL

SECTOR

* %

I*
o
o

o
o
o*
o

Cl EAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
CHECK OF 1 WORD TO AN RK06 IN 26 SECTOR FORMAT,

CYLINER O, HEAD 0, SECTOR 0.
CLGCK THROUGH SEEK
SIMULATE A SECTOR PULSE,
A GOOD HEADER, TAKE ONE WORD TO BE WRITE-CHECKED, 377 WORDS
NOT TO BE WRITE CHECKED, AND A GOOD 32 BIT ECC.
AND DRIVE CLEAR MESSAGES.

MAKE SURE NO ERRORS SET.

:'"ttfitttttttttttttttttittttttttttttttttttQttt'ttttttttt.tfltt't't'
020660
020662

000004
012737

020670
020674
020700
020704
029710
020712
020713
020714
020716
020720

005037
005037
005037
004437
000000

020722

004437

031770

JSR

R4,CLRIBF

;G0 CLEAR

020726
020732

004437
000006

032014

JSR
6

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 6

020734
020740
020744
020750
020752
020754

012700
1 270
1 270
1 232
0 530
0 137

00040C
047124
050130

MOV
MOV
MOV
MOV

#400,R0
#[BUFF R
#0BUFF ,R3
(R3)+,(R1)+

:SET
;SET
;SET
MOV

000001

001234

002352
002354
002344
032230

WO
— N —

WNINAN
N N

SCOPE
MOV

#1,8TIMES

::D0 1

CLR
CLR
CLR

BSEDES
HIBITS
ECCSRC

;CLEAR BAD SECTOR DESIRED
;CLEAR HI ORDER BITS
:CLEAR ECC SOURCE

JSR
0
BYTE
BYTE

IBUFF
-1
WRTCHK

000031

OQOOOO

4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
6774
4775
6776
6777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4,788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813

14~SEP=-81

[elele]
QOW
ornoro
DNIN
OO\
—O0

CZR6EC.PIY

MACY11 30(1046)

75¢:

DEC
BNE

R4, LOADRK
0
0

ITERATION

:LOAD "'L'* REGISTERS
:CYLINDER 0
:SECTOR 0
:TRACK 0
;BUFFER ADDRESS
:WORD COUNT =1
:COMMAND WRTCHK

RO
75%

IBUFF

INPUT BUFFER

A COUNT
ADDRESS
ADDRESS
PATTERN

FOR BUFFER
OF [BUFF
OF OBUFF
TO IBUFF

SIZE

:DEC COUNT
;LOOP UNTIL PATTERN IS MOVED

4863

4864
4865
4866
4867
4868
LB69

164-SEP-81
15:14
PAGE 95
30(1046)
132
WRITE CHECK OF A PARTIAL SECTOR

SES (094

:MR3

023316

JSR

R4 ,DSECTR

JSIMULATE

SECTOR PULSE

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC

;SIMULATE

HEADER PREAMBLE

021020
021024
021026
021030

004437

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHD(MP

12
13

;MR1
;CST

;SIMULATE

HEADER

021032
021036
021040
021042
021044

004437

JSR
ERROR

R4 ,DRGPSN
15

;60 READ GAP AND SYN(
;MR1 IN ERROR READING GAP

:CS1

021046
021054
021062
021066
021070
021072
021074
021076

012737
012737
004437
000400

#0 ,ECPATX
#4066 ,ECPOSX
R4 ,DWRTCK

JLOAD EXPECTED PATTERN
JLOAD EXPECTED POSITION
;G0 SIMULATE WRITE CHECK

021102

104043

021004

004437

021010
021014
021016

1064004
104005
104006
104007

104010
104011
164012
104013
104014

104015

OO
—
WO

;CLEAR CONTROLLER
JSTART THE OPERATION
;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

WO
= — O

4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862

:57

MACY11

#CCLR,RKCST(R2)
R4 ,0PSTRT
R4, DISEEK
4

WNWW

4B47
(848
4849

RTS

JSR
JSR
ERROR
ERROR
ERROR
ERROR

012762
004437
0046437

VWV

4845
4846

14-SEP-81

020756
020764
020770
020774
020776
021000
021002

0000
2276
3334

000000

110%:

026500

104016
104032
104033

2023
0023

000000
004066
027176

MOV
MOv
JSR

<00
ERROR
ERROR
ERROR

104053
104054
104055
104041

ERROR
ERROR
ERROR

104042

013700

MOV

ERROR
ERROR
ERROR
oo

4814
4815
816
(817
4818
4819
4820
4821
4822
(823
4824
4825
4,826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
(844

DSKLS CTRL

CZROE(D RKE1T
TIREEC.PIY

002164

MOV

047724
000002
047126

002224

000040
000440
000040

000026
000026

032356
002260
000001
000200
002160

SuB
CMP
BEQ

MOV

ERROR

MOV

MOV
MOV

10
11

32
33

MR1
:MR2

;MRT
;CS1

°
'

CONTENTS
CONTENTS

SEAR(CH

CONTENTS IN ERROR
IN ERROR AFTER SEARCH

JRKDCYL

:MR1
;0ST

IN ERROR
IN ERROR

OR RKDA

IN ERROR AFTER

IN ERROR READING SYN(
IN LRROR AFTER READING SYN(

53
54

;NUMBER OF WORDS TO SIMULATE
;MR1 IN ERROR ON WRT (K OR ECC READ
JECC ERROR IN WRITE CHECK OP

JECC

42
43

T.BA, RO

#IBLFF RO
#2,R0
3
#IBUFF+2 E.BA
46

;CS1

JERR
JERR

ERROR AFTER WRT (HK OR ECC READ

REG

INCORRECT AFTER ECC

IN ECC PAT CALC.
IN ECC POS COUNT

;SUB START VALUE OF BA
JTEST IF CORRECT NUM OF WORDS
JYES - SKIP
;SET EXPECTED BA
JREPORT XFER LENGTH ERROR

#8.+4, R1
;SET COUNT TO END OF
#DMD .MCLK ,RKMR1(R2) ;RUN CLOCK

;?MD,RKMRl(RZ)

JSR

R4 ,GETREG

;GET 611

BI(
8IS
(MP
BEQ

#GO,E.CST
#RDY,E.CS1
T.C51,E.CST

;CLEAR GO BIT
sSET READY BIT
sCHECK JF CS1 CORRECT

L.CST1,E.CST

READ

;GET ACTUAL BA

;DEC COUNT
;LOOP UNTIL ZERO

MOV

SEAR(CH

IN ERROR AFTER READING GAP

DEC
BNE

1$:

5
6

REGS

JGET EXPECTED (S1

JYES = SKIP

OPERATION

XFER

“870
(87

4872
4873
(874
4LB875

14=-SEP=-81

021214
021216

13:57

104057

4908
4909

4910
4911
4912
4913
4914
4915
4916

4917

4918
L919

4920

4921
4922
4923
4924
4925

;''CS1T IN ERROR AFTER WRITE (HE(CKTM'

:"'ttQ'.t't.'ttfi'."""""tQttt'..i"l.'.i"..tti.'.'QQ'Q'Q.Q"

J*TEST 33

4,876
4877

4878
(879
4880
4881
4LB82
4883
4884
4885
4886
4,887
4888
4889
4890
4891
4,892
4893
489¢
4895
4896
4897
4898
4899
4900
4901
4902
4903
4504
{905
4906
4997

ERROR

SEQ 0095

WRITE CHECK ERROR (PART 1)

(LEAR RK617 CONTROLLER WITH A CONTROLLFR CLEAP,

PUT CONTROLLER

AND DRIVE CLEAR MESSAGES.

i
i

WRITE CHECKED DATA IS 000001.
MAKE SURE WRITE (HECK ERRCR SETS.
REPEAT USING EACH OF THE FOLLOWING CCNFIGURAT]ONS

i
:*

it
e

* %

A
it
it
.
x

IN DIAGNOSTIC MODE.

ISSUE A WRITE

(HECK OF 1 WORD TO AN RK06 IN 26 SECTOR FORMAT,
CLINDER 0, HEAD O, SECTOR 0. CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

A GOOD HEADER, AND ONE WORD OF DATA (ONSISTING OF 000000.

AS WRITE CHECKED DATA:

000002
000004
000010
010020

000040
000100
000200
000400

001000
002000
004000
010000

020000
040000
100000

:"'ttQIQ'*fitfifififitttttttQfifitifitttttt.t.fiitt'.‘tttttittttttttt'tttt'
000004

012737

000001

005037
005037
005037
004437
000000

002352
002354
002344

001234

TST33:

SCOPE

MOV

#1,8$TIMES

;:;D0 1

CLR

BSEDES

;CLEAR BAD SECTOR DESIRED

CLR

ECCSRC

;CLEAR ECC SOURCE

CLR

032230

HIBITS

JSR
0
BYTE
BYTE
IBUFF

R4, LOADRK

MOV

#16. ,R5

MoV

#1,IBUFF

O
O

-1
WRT(HK

021256

021260
021264
021270
021276
02°304
021306
021314

000020
050130
00C00
000001

021322

177777

050130
001110

1128:

021322
021330
021334
021340
021342
021344
021346

100000

000000

110%:

032274
023334
104006

104007

CLR

047124
047124

ITERATION

;CLEAR HI ORDER BITS

JLOAD "'L'" REGISTERS
;CYLINDER O
;SECTOR 0
;TRACK 0
;RUFFER ADDRESS IBUFF
;WORD COUNT -1
; COMMAND WRT(HK

OBUFF

sSET PATTERN COUNT

;CLEAR F]RST WORD OF OBUFF
;SET

IN FIRST PATTERN

BIT
BNE

#B1T0, IBUFF
112%

;IS BIT O SET
JYES - PATTERN SHOULD Bt 0

MOV

#1108,$LPERR

;SET LOCAL

MOV

#-1,0BUFF

MOV
JSR

#CCLR,RKCS1(R2)
R4 ,0PSTRT

JELSE PATTERN SHOULD BE ALL ONES
LOOP ON ERROR

;CLEAR CONTROLLER
;START THE OPERATION

ERROR
ERROR
ERROR

R4 ,DISEEK
&

5
€
7

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

JSR
ERROR

;MR
JMR?
;MR3

'
"
"

021350

004437

023316

JSR

R4 ,DSECTR

s SIMULATE SECTOR PULSE

021354

004437

023740

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

[
"

CIRGEC.PT

E
8
164-SEP-81
15:14
PAGE 96
VMACY11 3?( 1046)
WRITE CHECK OF A PARTIAL SECTOR
32

CIRG6ECO RK611 DSKLS CTRL PRTS

TIRGEC.PI

DSKLS CTRL PRTS
14-SEP-81

4926

021360
021362

104010

4929

021364
021370
021372
021374

004437

002346

002350

;CST

JSR
ERROR

R4 ,DHD(MP
12

s SIMULATE HEADER SEAR(CH
sMR1 CONTENTS IN ERROR

JSR
ERROR

R4 ,DRGPSN
15

;GO READ GAP AND SYN(
sMR1 IN ERROR READING GAP

ERROR

JMR1

MOV
MOV
JSR

#0,ECPATX
#4066,ECPOSX
R4 ,DWRTCK

;sLOAD EXPECTED PATTERN
¢LOAD EXPECTED POSITION
26O SIMULATE WRITE CHECK

ERROR
ERROR
ERROR

53
54
55

JMR1 IN ERROR ON WRT (K OR ECC READ
;ECC ERROR IN WRITE CHECX OF
;CS1 ERROR AFTER WRT (HK OR ECC READ

000040
000440
000040

000026
000026

032356
040000

002°7)

047124

002170

047124

;CS1

IN ERROR AFTER READING GAP

2CS1

IN ERROR AFTER READING SYN(

IN ERROR READING SYNC

sNUMBER OF

WORDS

TO SIMULATE

;ERR IN ECC POS COUNT

;ERR

IN ECC PAT

MOov
MOv
MOV
DEC
BNE

48.+4. R1
s SET COUNT
#DMD 'MCLK ,RKMR1(R2) ;RUN (LOCK
#DMD ,RKMR1 (R2)
R1
sDEC COUNT
1%
;LOOP UNTIL ZERO

'SR

R4, GETREG

MOV
MOV

T.0S2,$REGO
IBUFF ,$REG]

AWCE,T.(S2
2$

OBUFF , $REGZ

SCoP1
ASL

DEC
BNE

;GET REGS

JTEST IF WCE
JYES - SKIP

CALC.

SET

;SET (€S2 FOR REPORT
;SET WORD READ

JSET WORD FROM BUFFER

;"WCE FAILED TO SET"
;LOCAL LOOP ON ERROR

IRUFF

RS
110%

JSHIFT

FOR NEXT

TEST

PAITERN

sDEC PATTERN COUNT
JLOOP UNTIL ALI PATTERNS

TESTED

.'"..t't'ttiQfitttt'fiit't""tttttttt't't'itfit".ttitttttt"'tt'ttt

WRITE

CHECK ERROR

(PART

B
N
%
»

S
S
S

IIR

JYTEST

006337
005305
001266

027536
021542
021544

;CST IN ERROR AFTER SEARCH
;RKDCYL OR RKDA [N ERROR AFTER SEAR(H

ERROR

2%:

CONTENTS IN ERROR

;ECC REG INCORRECT AFTER ECC READ

MOV

104415

001162
001°¢€4
601166

13
14

CONTENTS [N ERROR

BIT
BNE

021534

050130

1%:

;MR1

ERROR

4987

021474
021500
021506
021510
021516
021524
021532

000000
064066
027176

L3P

4964
4965
4966
4967
4968
(969
4970
4971
4972
4973
4974
4975
4976
4977
L978
4979
4980

021612
021420
021626
021432
021434
021436
021440
021442
021444
021445
021450
021454
021462
021470
021472

ERROR

021410

SEQ 0096

ERROR

021406

o
e
o

4959
4960
4961
4962
4963

026500

F
8
PAGE 97
(PART 1)

ERROR

ERROR
ERROR

OQOOO

4953
4954
4955
4956
(957
4958

024276

OOO

4952

021376
021402
021404

15:14
14=SEP-81
WRITE CHECK ERROR

ERROR

4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951

104012
104013
104014

——

4930
L9
4932
4933
4934
4935
4936
4937
4938

30(1046)
133

10401°

4927
4928

13:57

MACY1T

CLEAR RK611

PUTM

(ONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

CHECK OF 1 WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE

A GOOD HEADER, AND ONE WORD OF DATA ({UNSISTING OF 177777,
WRITE CHECKED DATA [S 177776,
MAKE SURE WRITE
REPEAT USING EACH OF THE FOLLOWING
(HECK ERROR SETS.

Yry

TIRGE(G RK611

(ZR6ECO RK611 DSKLS CTRL PRTS
14=SEP=-81 13:57
CIRGEC.P1T
4982
4583
4984
4985
4986
4687
4988
4989
4990
4991
4992
4993

5003

5004
5005
5006
5007
5008
5009
5010
501
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022

5023

5024

5025
5026
5027
5028
5029
5030
5031

14-SEP=-81
15:14
PAGE 58
30(1046)
T34
WRITE CHECK ERROR (PART 2)
X

SEs 0097

OCNF IGURATION AS WRITE CHECKED DATA:
1722775

177773
177767
177757

177737
177677
1727577
177377

176777

175777
173777
167777

157777
137777
077777

BEEZEE232Z22222232220220A2ARARRlR
iRl Rl Rl
Rl RN

000001

00123%¢

15734

002352
002354
002344
032230

4994
4995
4996
4997
4998
4999

5000
5001
5002

VACY11

#1,$TIMES

;.D0 1

(LR
CLR
CLR
JSR
0
BYTE
BYTE
IBUFF

BSEDES
HIBITS
ECCSRC
R4, LOADRK

;CLEAR BAD SECTOR DESIRED
JCLEAR H] ORDER BITS
;CLEAR FCC SOURCE
sLOAD "'L'" REGISTERS
;CYLINDER 0O
JSECTOR O
sTRACK 0
JBUFFER ADDRESS I[BUFF

MOV
CLR
MOV

#16.,R5
OBUF f
#177776, IBUFF

;SET PATTERN COUNT
;CLEAR FIRST WORD OF OBUFF
JSET IN FIRST PATTERN

MOV

#1108,$LPERR

;SET LOCAL LOOP ON ERROR

0
0

-1
WRT(HK

021606
000020
050130
177776
000001

021610
021614
021620
021626
021634
021636
027644
021652
021660
021664
021670

021672

SCOPE
MOV

047124
047124

021652

177777

050130
001110

1'2¢-

110000

000000

1°CS$:

032274
023334

BIT
BNE
MOV

ITERATION

;WORD COUNT -1
s COMMAND WRT(HK

#BIT0,IBUFF
112%
#-1,0BUFfF

;1S BIT O SET
JYES - PATTERN SHOULD BE C
JELSE PATTERN SHOULD BE ALL ONES

MOV
JSR

#CCLR,RKCST1(R2)
R4 ,OPSTRT

;CLEAR CONTROLLER
JSTART THE OPERATION

ERROR
ERROR
ERROR

5
6
7

sMR1
JMR2
:MR3

JSR
ERROR

R4 ,DISEEK
&

sSIMULATE IMPLIED SEEK
:(S1 MISCOMPARE
"
"
"

021674
021676

104006
104007

021700

004437

02331¢

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

021704
02i710
021712

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
1

;SIMULATE HEADER PREAMBLE
JMR1 CONTENTS IN ERROR
2(S1 CONTENTS IN ERROR

021714
021720
021722
021724

024276

JSR
ERROR
ERROR
ERROR

4 ,DHD{MP
2
'3
1%

:SIMULATE HEADER SEARCH
;MR1 CONTENTS IN ERROR
;(S1 IN ERROR AFTER SEAR(CH
JRKDCYL OR RKDA [N ERROR AFTER SEAR(H

021726
021732
021734
021736
021740

02650C

JSR

R4 ,DRGPSN

;60 READ GAP AND SYN(

ERROR
ERROR
ERROR

16
32
33

(ST
JMR1
JCST

MOV

#0,ECPATX

;LCAD EXPECTED PATTERN

021742

104010
104011

012737

000000

ERROR

002346

;MR1

[N ERROR READING GAP

IN ERROR AFTER READING GAP
IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

5038
5¢39

13:57

30(1046)
134

002350

012737
004437
000C01

JSR
]

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

104054
104055

022000
022004
022012
022020
022022

000040
000440
000049

022024
022030
022036
022040
022046
022054
022062

032356

106415

022066

006337
005537
005305
001264

022072

022076
022100

0000c06
000026

040000

00217¢

002170
047124
050130

001162
001°64
001166

1 $:

MOV

MCV

MOV

JSR

BIT
BNE

sLOAD EXPECTED POSITION
;GO0 SIMULATE WRITE CHECK

sNUMBER OF WORDS TO SIMULATE
JMRT IN ERROR ON WRT (K OR ECC READ

JECC ERROR IN WRITE CHECK OP
2CS1 ERROR AFTER WRT (HK OR EC( READ

41
&2

JECC REG INCORRECT AFTEP ECC
JERR IN ECC PAT CALC.

JERR

READ

N ECC POS COUNT

#8.+4, R

. SET COUNT

R4 ,GETREG
#WCE,T.CS2

;GET REGS
JTEST IF WCE

T.CS2,$REGO

:SET

MOV
MnyV
MoV

IBUFF ,$REG®

ERROR

047124
047124

53
54
55

SE3 0098

#DMD .MCLK ,RKMR1{R2) ;RUN (LOCK
#DMD ,RKMR? (R2)
R1
;DEC COUNT
1%
;LOOP UNTIL ZERO

DE"
8N*-

2%:

H
8
PAGE 99
(PART 2)

#4065 ,ECPOSX
R4, DWRT (K

MOV

104053

022064

14-SEP=-81
15:14
WRITE (HECK ERROR

OBUFF ,$REGZ2
60

SCOP1
AS.
AD(

SET

(S2 FOR REPORT

;SET WORD READ

;SET WORD FROM BUFFER
;"WCE FAILED TO SET"
;LOCAL LOOP ON ERROR

IBUFF
IBUFF
RS
110%

DEC
BNE

JYES - SKIP

JSHIFT FOR NIXT TEST PATTERN
;PUT CARRY BA(CK [N
;DEC PATTERN COUNT
JLOOP UNTIL ALL PATTERNS TESTED

:;Q*t‘Qttitt'tfittttt'i""itiQtQ'tfitiit'..tt.'l""t'Qlt'.t'."tl

JeTEST

%
%

022130
022131
022132
022134

177777

002352
00234¢
03223C

001234

(PART

CONTROLLER WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODE.
[SSUE A WRITE
CHECK OF 1 WORD TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR O.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,

%
%

005037
005037
004437
000000
000
000
0647124

000001

CHECK ERRUR

CLEAR RK611

PUT

CONTROLLER

A GOOD HEADER,

022112
022116
022122
022126

AND ONE

WORD OF

DATA CONSISTING

OF 200000.

WRITE

AR A0 R

ARRRRRRRRARl
RRRRRRRRRRERRRN]

(HECK DATA IS 000000.
MAKE SURE
WRITE CHECK ERROR SETS.
REPEAT USING 400000 AS
SIMULATED DATA.

~—d% e e,
0, N,

000004
012737

A4S

wHe

022102
022104

WRITE

135:

SCOPE

MOV

#1,8TIMES

;.00

(LR
CLR
JSR

BSEDES
ECCSRC
R« ,LOADRK

;CLEAR BAD SECTOR DESIRED
;CLEAR ECC SOURCE
;LOAD "'L'" REGISTERS

0
0

JSECTOR O
;TRACK 0

0
.BYTE

BYTE
I?er

[TERATION

;CYLINDER O

;BUFFER ADDRESS [BUFF
;WORD (OUNT -1

¥y

14~SEP-B81

MACY11

DSKLS (TRL PRTS

JZREETQ RKE1Y
TIRGE(.PY

022136

010031

022140
022146
022152
022156
022164

PAGE
(PMRT

SES 0099

JCOMMAND WRTCHK (FMT

040000

002354

MOV

100000

001110
000000

MOV
MOV

#1108,$LPERR
#CCLR,RKLST(R2)

MOV
DEC
BNE

#4000,R0

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,0PSTRT
R4 ,DISEEK

JSTART

5
6
7

;MR3

CLR
(LR

004000

#40000,+1BITS
[BUFF
OBUFF

RO
A3

JSET HIBITS FOR PATTERN OF

JSET LOw BITS FOR READ
JSET O IN BUFFER
sSET LOCAL LOOP ON ERROR

;CLEAR CONTROLLER

JSET STALL COUNT
JDEC COUNT

JLOOP UNT]L ZERQ

022202
022206
022212
022214
022216
022220

104006
104007

022222

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

022226
022232
022234

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYN{
10

E
sSIMULATE HEADER PREAMBL

022236
022242
022244
022246

004437

JSR
ERROR
ERROR
ERROR

?4.DHD(MP

s SIMULATE HEADER SEARCH

1
1

;CS1

104014

—_roH

000026
000026

002170

1%:

WNW— 2D

WOV
e

.DRGPSN

IN ERROR

JMR1

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH
OR RKDA

IN ERROR OFTER

SEAR(R

;60 READ GAP AND SYN(C
:MR1

IN ERROR READING GAP

:MR1

[N ERROR READING

;CS1 IN ERROR AFTER READING GAP

;CS1T

«
O
ooem

022346
022352
022360

CONTENTS

JCST CONTENTS IN ERROR

sLOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION
;G0 SIMULATE WRITE CHECK
;NUMBER OF WORDS TO SIMULATE

MoV
MOV
%SR

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
MOV
MOV
MoV

. R
#8.+4

:SET COUNT

JSR

R&,GETREG
#WCE,T.CS2

JGET REGS

DEC
BNE

BIT

BNE

(PATX
6,ECPOSX
WRTCK

;MRT

IN ERROR ON WRT

(K OR ECC

;ECC ERROR IN WRITE CHECK OP

READ

;CS1 ERROR AFTER WRT (HK OR ECC READ

JECC REG INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

#DMD !MCLK ,RKMR1
(R2) ;RUN (LOCK
#DMD ,RKMR1 (R?2)
R1
sDEC COUNT
1$
;LOOP UNTIL ZERO

SYNC(

IN ERROR AFTER READING SYNC

DR\

000040
000440
000040

:MR1

JRKDCYL

[AS TRV, I o R VY]

022322
022326
022334
022342
022344

022320

JSR
ERRCR
ERROR
ERROR
ERROR

OO (]
WINW —
Wo

000000
005066
027°7¢

ONE
PNOWIN
VAN

022264
022272
022300
022304
022306
022310
022312
022314
022316

OPERAT]ION

’

€26500

—_ e,
L OO0
olelelelolelele
P
SO
OO0
OOCONM YN
&£~ WVNMWNWVNIOWWW
NN
WV
NN

— —_

104015

THE

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

&~ H&Hovon

004437

£ w0

024276

104012
104013

OO0OOCO
OO
=N
WWIWNNN
NOORONO
©O=PON
=

022254
022256
022260
022262

104011

[ o0

022250

104010

200000

JTEST IF WCE
JYES - SKIP

SET

15:14
ERROR

14-SEP-81
WRITE C(HECK

. (FMT
WRTCHK

067124
050130
022164

022172
022176
022200

046 /

~ O

13:57

OO0
OWO

s
s
e

NN N VTN

NN
NN

K
e e

SIS

T AN N N NN

SN (NS YT YT S
YIS W

NN NN

YR YR
W

W
SIS WP

TA LT

YRS YNSEF W

NN A

e WS S
s

TA NN

N
e 2 2 2 B 2 0 OO
OOO
B BB BB
UNINN
N NN N NN O RO oD oo oo Ry
0O NV
NN 2OV
NS WSOV
N NE W —=ON ONOCWVNESWWN
20000 NN NS W

5094
5095

14-SEP-81

TIRGEC.P1T

vACY1!

—~ O

CZROECD RK61T DSKLS C(TRL PRTS

14-SEP-81

022362
022370
022376
0226404
022610
022616
022422
022426
022430
022432

13:57

002170
047126
050130
001176
002354
000016
001172

022434

104415

022436
022444
022446
022454
022456

023727
001404
012737
000643

MACY11

30(046)
135

14-SEP-81

15:14
CHECK ERROR

WRITE

T.CS2,$REGO

MOV
MOV
MOV

001172

MOV
MOV

HIBITS,$REG4
#14. RO

DEC
BNE
ERRQOR

ROR

3%:

100000

002354

:}8g000,HIBITS

MOV

B8R

JSET UP FOR REPORT

FAILED TO SET"

;TEST

JYES

SECOND PATTERN DONE

EXIT

sSET FOR PATTERN 400000
LOOP UNTIL ALL PATTERNS TESTED

AR RS2 RRRRRRRRRRRRRRERRRRRRRRRRRRRRRRA/

CHECK ERROR

(PART

WRITE

CONTROLLER WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODL.
ISSUE A WRITE
(HECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD O, SECTOR 0.
CLOCK THRCUGH SEEK

PUT

CONTROLLER

AND DRIVE

CLEAR MESSAGES SIMULATE A SECTOR PULSE,

A GOOD HEADER,

125 GOOD WORDS,

MAKE SURE WRITE CHECK ERROR
AND BUS ADDRESS.

e N, W, B, N,

JSET WORD READ
JSET WORD FROM BUFFER

AND A BAD WORD.
CHECK WORD COUNT

SET.

*® We B,

(€S2 FOR REPORT

CLEAR RK611

TRTEST 36

;SET

:"'WCE

giBITS,#1000OO

REAARASR RS

SEQ 0100

;LOCAL LOOP ON ERROR

CMP
BEQ

5%:

101
3)

$REG4

SCOPI

2$:

002354

IBUFF ,$REG]
OBUFF ,SREGZ
$REG3

(LR

PAGE
(PART

001162
001164
001166

000004
012737

022466
022472
022476

005037
005037
004437
000000
000
000
047124

022502
022504

022505
022506
022510
022512

000001

ASAS SRR
—

022456
022460

001234

002354
002352
032230

SCOPE

000031

RERRR

R S22
XRR

MOV

#1,8TIMES

;.00

(Lk
CLR
JSR

BSEDES
R4, LOADRK

HIBITS

;CLEAR HI

177400

.BYTE
.BYTE
IBUFF
-400

0
0

ITERATION
BITS

;CLEAR BAD SECTOR DESIRED
;LOAD ''L'" REGISTERS

;CYLINDER 0
JSECTOR 0
s TRACK 0
JRUFFER

ADDRESS

sWORD COUNT =400
; COMMAND WRT(HK

WRTCHK

IBUFF

031770

JSR

R4,(LRIBF

;GO CLEAR

022520
022524

004437
000005

032014

JSR
5

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 5

022526
022532

012700

000400
047124
050130

MOV
MOV
MOV
MoV
DE(

#400,R0
#]BUFF ,R1
#0BUFF ,R3
(R3)+,(R1)+
RO
75%

;SET A COUNT FOR BUFFER SIZE
;SET ADDRESS OF IBUFF
<SET ADDRESS OF OBUFF
;MOV PATTERN TO [BUFF
;DEC COUNT
;LOOP UNTIL PATTERN IS MOVED

022546

0
0

WIWNWN NN

022536
022542
022544

1
1
1

0
0
2
0

U'!O—‘\N—'

004437

Y2
laN a1, 8}

022514

[olelelele)

) e

D ed e

IV LV, RV TV, RV, TV, LV, TV, IV, |

D
e ek

D md

D cad

)

D ed

D ed ed

d amd

)

D e

VL IV AV, IV LV TV LU LV, LV, TV TV, LV RV TN, L, WL LV, RV KV RV [V, RV [V LV SV AV RV, [V, AV AV RV TV, SV, TV, AV SV, RV, RV, RV

—— —d

O OO OO0V OVOV000L00000E00000
YN NNNUNNNNYO OO
OOV O NN NN NN ANV
O CONOWNEWN=OVONOWVNDIWN
O VO NV
WNV=OV0 O WS WNN = OV
NN
I — O

TIROEC.PT

DSKLS CTRL PRTS

75%:

BNE

INPUT BUFFER

~NN

CZR6ECO RK611

000530

022554
022562
022570
022576
022604
022606
022614
022616
022624

#530,R0

MOV
MOV
MOV

#126073,0BUFF+1000
#151052,0BUFF+1002

000100

050130

000100

050130

BIT
BNE
BIS
BR
BIC

000000

MoV

000100

JSET INDEX INTO BUFFER

MOV

126073
151052
000001

SEQ 0101

;STORE ECC

WORDS

sSET SOURCE TO INDICATE ECC IN BUFFER
sTEST IF BIT SET
100%
JYES - SKIP
#BiT6,0BUFF
(RO) JELSE SET BIT

#1,ECCSRC
#B1T6,0BUFF
(RO)

101%
#BIT6,0BUFF
(RO)

;CLEAR BIT

#CCLR,RKCS1(R2)
R4 ,0PSTRT
R4 ,DISEEK

;CLEAR CONTROLLER
:START THE OPERATION
:SIMULATE IMPLIED SEEK

5
6
4

MR1
MR2
MR3

022624
022632
022636
022642
022644
022646
022650

012762
0064437
0046437

022652

004437

0233i¢

JSR

R4,DSECTR

;SIMULATE SECTOR PULSE

022656
022662
022664

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

022666
022672
022674
022676

004437

022700
022704
022706
022710
022712

004437

022714
022722
022730
022734
022736
022740
022742
022744
022746

012737
012737
004437
000310

104004
104005
104006
104007

sMR1

2CS1

ERROR

026500

000000
00406¢
027176

MOV
MOv

JSR
310
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

104053
104054
104055
104041
104042
104043

022752
022756
022764
022772
022774

000020
000440
000040

022776

032356

000026
000026

1%:

CONIENTS

IN ERROR

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH

JRKDCYL OR RKDA

JSR
ERROR
ERROR
ERROR
ERROR

0023
0023

sMR1

;SIMULATE HEADER SEARCH

JSR
ERROR
ERROR

SEAR(H

JMR1
2CS1
#0,ECPATY
#4066 ,ECPOSX
R4 ,DWRTCK

IN ERROR READING GAP
IN ERROR AFTER READING GAP

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK
sNUMBER OF WORDS TO SIMULATE

MR1 IN ERROR ON WRT CK OR ECC READ
ECC ERROR IN WRITE CHECK OP
H) ERROR AFTER WRT (HK OR ECC READ
JECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT
.

’

MOV
MOV
MOV

#4. %4, R
SET
#DMD _MCLK ,RKMR1 (R 2)
#DMD ,RKMR1 (R2)

R1
18

sDEC COUNT
sLOOP UNTIL ZERO

JSR

R4,GETREG

JGET '611 REGS

DEC
BNE

IN ERROR AFTER

;G0 READ GAP AND SYNC

sMR1
2CS1

8 Donon

104015
104016
104032
104033

024276

:CS1 MISCOMPARE

2CS1 CONTENTS IN ERROR

104012
104013
104014

104010
104011

NN
=
e

022750

JSR
JSR
ERROR
ERROR
ERROR
ERROR

COUNT TO END OF

JRUN CLOCK

OPERATION

~N~

012700

K
8
PAGE 102
(PART &)

13:57

VALV LV TV TV, LW, VU LW A IV, LA VL [V LV, TV, [V, )
INSIANIASIANT ST ST S 1,0 1oV a O] N1 OToN ] 1,01, G 1,V

NIRNJPOVNONONUNAD)
— —
D
D
2

NS WNLOVO
NN
NN
O

022550

14~SEP-81

14~-SEP-81
15:14
30(1046)
T36
WRITE CHECK ERROR

[olslele
WO

C(ZROEC.PIY

VMACY11

ON)
—» —
— (N D —D
W8N INN
QMNO

CIR6ECO RK61T DSKLS CTRL PRTS

CZROEC.PI

14-SEP-81 “3:57

MACYMN 3?§g046)

5262
5263
5264
5265
5266
5267
gggg

023002
023010
023012
023020
023026
023034
023036

032737
001013
013737
016037
016037
104040
000423

040000

002170

002170
047124
050130

001162
001164
001166

5270
5271
5272
5273
5274
gg;g

023040
023046
023052
023060
023062
023064

012737
060037
023737
001402
104061
000410

047126
002224
002224

002224

5277
5278
5279
gsg?

023066
023074
023102
023104

012737
023737
001401
104062

177655

002222
002222

5282
5283

023106

002162

14~SEP-81

WRITE

15:14

CHECK ERROR

PAGE 103

(PART 4)

BIT
BNE
MOV
MOV
MOV
ERROR
BR

AWCE,T.(S2
2%
T.CS2,$REGO
IBUFF
(RQ) ,$REG]
OBUFF
(RO) ,$REG2
60
48

JTEST IF WRITE CHECK SET
JYES - SKIP
;SET UP FOR REPORT
;BUFFER WORD
;SIMULATED WORD
JWCE NOT SET ERROR
JEXIT

2%:

MoV
ADD
CMP
BEQ
ERROR
BR

#IBUFF+2,E.BA
RO,E.BA
E.BA,T.BA
3%
61
4%

;SET UP EXPECTED BA
JADD IN THE NUMBER OF WORDS TO THE ERROR
;CHECK IF CORRECT
JYES = SKIP
;BUS ADDRESS ERROR
JEXIT

3%:

MOV
CMP
BEQ
ERROR

#-123,E.W(
T.WC,E.WC
‘s
62

;SET EXPECTED WCRD COUNT
;CHECK IF CORRECT
JYES - SKIP
;WORD COUNT t£RROR

0021€¢

SEQ 0102

~NN

CZRGECO RK611 DSKLS CTRL PRTS

5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
5306

—=O
OO NN

14-SEP-81
30(1046)
END OF PASS ROUTINE
.SBTTL
R

AAEER

15:14

PAGE

104

SEQ 0103

END OF PASS ROUTINE
2282800800000

RdRiittRt

'YNCREMENT THE PASS NUMBER ($PASS)
;*TYPE ''END PASS #XXXXX TOTAL NUMBER OF
S *WHERE

XXXXX AND

YYYYY ARE

RRRRRRRAR22R

ERRORS SINCE LAST REPORT vvyyyy'

DECIMAL NUMBERS

;*]F THERES A MONITOR GO TO IT

;*]F

0 3106
0 3106
0 3110
0 3114
023120

023124
023132
023134
023136
023140
023142
023144
023146
023152
023172
023172

013746

001256

023176
023200

104405
104401

023206

023204

000421

023250
023250

013746

023254
023256
023262
023266
023272
023274
023276
023300
023302
023304
023306
023306
023310
023312

023316
823324
023332

104405
104401
005037
013700
001405
000005
004710
000240
000240
000240

000137
003364
377
023316

012762
012762
000204

THERE ISN'T JUMP TO NEWPAS

$EOP:

000004
005037
005037
005237
042737
005327
000001
003063
012737
000001
023134
104401
000407

= OV

WVNSWNN

2OV

NN N NN NN N N NN RO PO PO NONORSNONUND)
= b

=2 0

NS W

D 2 e

(I TS VIV [V, IV T 1V, LV IV, [V, 1V, V. TNV TV 1V, IV, TV 1V 1V, TV 1V, [V. [V, IV 1V, TV.1V ]
A UA N N U AN N NN N NN
UNON o NN N N N A O N N N NN AN N

5308
5309

MACY11

00
00
00
10

SCOPE
CLR

CLR

001256
$EOP(CT:

$ENDCT:

023154

;:65%:
648

$FOPCT

000026
000026

S YES

%PC)*,&(PC)*

,,RESTORE

COUNTER

L6058

;. TYPE ASCIZ STRING

;:SAVE
.1 TYPE

,67%

;s TYPE ASCIZ STRING

<12><15>/END

663

MoV

$ERTTL ,~-(SP)

TOTAL

;;GET OVER THE ASCI2

PASS

$PASS FOR TYPEQUT
PASS NUMBER

;.60 TYPE=-=-DECIMAL ASCIIl WITH SIGN

BR
.ASCIZ

ERRORS

:;GET OVER THE ASCIZ

SINCE

LAST

REPORT

;:SAVE SERTTL FOR TYPEOQUT

;. TOTAL

NUMBER OF

ERRORS

.SCRLF

.60 TYPE=--DECIMAL ASCII WITH SIGN
;s TYPE CARRIAGE RETURN, LINE FEED

a~é2,R0

;sGET MONITOR ADDRESS

CLR

$ERTTL

BEQ
RESET
JSR
NOP
NOP
NOP

$DOAGN

$GET42: MOV

000

$DOAGN

$PASS,-(SP)

TYPE

$DOAGN:

..LO0P?

MOV

TYPDS

$ENDAD:

%PC)+

64%

TYPE

1:67%:
66%:

;. ZERO THE TEST NUMBER
;. ZERQO THE NUMBER OFf ITERATIONS
;s INCREMENT THE PA5S NUMBER
;.;DON'T ALLOW A NEG. NUMBER

8R
.ASCIZ

TYPDS

001245
001112
000042

000140
000040

MOV
. WORD
TYPE

001112

377

INC
BIC
DEC
.WORD
BGT

$TSTNM
$TIMES
$PASS
#100000,8PASS

PC, (RO)

;;CLEAR ERROR TOTAL

;:BRANCH IF NO MONITOR

::CLEAR THE WORLD
;:G0 TO MONITOR

2 :SAVE ROOM

;:F0R

JIACTI

$RTNAD:
$ENULL:

JMP
.WORD
.BYTE
.EVEN

JBTTL

DIAGNOSTIC MODE

a(PC)+

2 :RETURN

-1,-1.0

:JNULL CHARACTER STRING

NEWPAS

SECTOR PULSE

THE SECTOR PULSE [S PROVIDED BY THIS ROUTINE
DSECTR: MOV
#DMD !MSP ,RKMR1(R?2)
;SET SECTOR PULE
MOV
zEMD,RKMR1(R2)
JRESET SECTOR PULSE
RTS

CIRGECO RK611 DSKLS CTRL PRTS
CZRGEC.PI
14-SEP-81 13:57

5340
5341

012700
062700

005222
010016

023402
023410
023416
023420

012762
012762
005300
001370

000440
000040

023422
023426
023432
023436
023442
023446
023452
023454
023456
023460
023464
023472
023474

013702
004437
010337

002274
032444
002246
002267

023500
023504

023510
023516
073524

153703

013737
0127%7

006437

NN
B
R

10%:

11¢:

MOV
M0V

RO,=-(SP)
R3,~(SP)

1%:

MOV

BIT
BEQ
MOV
ADD

Mov
MOV

DEC
BNE
x
SN

own
< 0

Mov

MOVB

15%:

002260

00100C
032444

16%:

002250
002260
022040
032356

R4 ,DISEEK
4
;CS1

MOV
BR

177400
000005

002266
010000

CALL:

BIT
BNE

000516

000C26
000026

002220
00c2¢44

THE

COMMAND

THAT WAS

N
B
N
N

¥
B
%

I
e
R

002260

5
6
4

MISCOMPARE ERROR

sMR1 MISCOMPARE ERROR
:MR2 MISCOMPARE ERRCR
:MR3 MISCOMPARE ERRON

#BITY,L.CST

108
#51.+4+2
RO
1%
#66.%37.
RO
HCFMT,L.CST
118
#66.%41.
RO
#4x3+2
RO

::PUSH RO ON STA(K
;.PUSH R3 ON STA(K
JCHECK IF WRITE DATA
JYES - SKIP
;SET COUNT FOR READ OR WRITE CHECK
sCOUNT FOR (LOCK THROUGH SILO LOAD

JTEST IF 22 SECTOR MODE
:NO - SKIP
;ELSE CHANGE FOR 18 BIT WORDS
JAND SHIFT REGISTER LOAD

#DMD 'MCLK ,RKMR1
(R2) ,SET (LOCK
#DMD ,RKMR1 (R2)
;CLEAR CLOCK
RO
sLOOP UNTIL RO
1%

L.DCYL,R3

IS ZERO

R4 ,FSBLVV

JGET DESIRED CYLINDER
;REVERSE ORDER OQOF BITS

#1776400,R3
#5,R0

:GET DESIRED TRACK/SECTOR
sCLEAR UNUSED BITS
;SET SHIFT COUNT

L.DS,R3

JDEC COUNT
LO0OP UNTIL ZERO
JINSERT SECTOR NUMBER

R3,E.MR?

R3
RO
15%

SCFMT,L.CST
163

#R]1T9 RY

Re ,FSBLVYV

R3,E.MR3

JSTORE AS EXPECTED MR?

JSHIFT FOR TRACK AL IGNMENT

;TEST IF 18 81T MODE

:NO - SK]P
JELSE SEYT FORMAT BIT [N MDR RO
JREVERSE BlT ORDER

JSTORE AS EXPECTED MR3

L.LST,E.(ST
SGET EXPECTED (S!
#Dp% E "w MEWD
. E.WRT CSET UP EXPETTED WR°
R, GETREC

:5FT RK RESGS

P~~~

SEQ 0104

(L.CS1) AND SETS THE CLOCK COUNT ACCORDINGLY.

JSR
ERROR
ERROR
ERROR
ERROR

z:mo-«:.,?"m ~r—

004612
010000

105

AT THE END OF THE IMPLIED SEEK THE CONTENTS OF (S1, MR1, MR?
AND MR3 ARE CHECKED TO VERIFY THE OPERATION. ALL DISCREPENCIES
ARt REPORTED IN THE ORDEw LISTED.

012700
032737
001402

THE ROUTINE LOOKS AT

STARTED

023356
023362
023370
023372
023376

032737
001402
052703
004437
010337

I
I

000002

042703
012700
006303
005300
001375

®*

DISEEK:

032737
001003
012700
000412

113703

010046
010346

DIAGNOSTIC MODE IMPLIED SEEK
THE CONTROLLER IS CLOCKED THROUGH THE SEEK MESSAGES,
GETTING STATUS, AND CLEARING THE DRIVE. SINCE THIS REQUIRES A
DIFFERENT COUNT FOR WRITE DATA AND READ DATA/WRITE CHECK,

CODMDODT
> 20

(WL LW LU TV LW TV
AN LN AN AN N G

W (U LV LV T [V, TV AU LV [V, LV LW T RO AV JU SV LU LU, T, R RV L LW, LV, W W LW AV RO RV,
AN NN AN N NN AN NN N
N N N WA LA N AN NN NN NN N N NN AN
OO
NN NN NNNNNYNNO
O OO0 o OO VYWY NNV NN
N
WA = OV
NN
WN 2OV
OV S W ~no ~OVONONEINN=O

.SBTTL

023334
023334
02333¢
023340
023346
023350
023354

14-SEP-81
15:14
PAGE
DIAGNOSTIC MODE IMPLIED SEEK

30(1046)

(3 Fan

VACY11

NeaMeere.
g2 T [as X
A3
B
D«
o«

CZROECO RK6TT DSKLS CTRL PRTS
14-SEP-81 13:5°
CZROEC.PIT

0021¢0

002220

023562

001236

0013500

155364

002244

002204

001000

155336

023614

001236

023614
023616
023624
023626
023634
023636
023644

005724
023737
001410
032777
00102%
012737
000744

002246

002206

001000

155304

023646

001236

023645
023650
023656
023660
023666
023670
023676

005724
023737
001414

002250

002210

001011
012737
000727

011000

155252

023700

00136

023700
023706
023710
023712
023716
023720
023722

032777
001001
005724
005037
012603
012600
000204

601000

155232

023724
023730
023734

005037
012706
000177

00123¢

T.CS1,F.CS?
2%
2% ,SESCAPE

sCHECK (ST
. 0K - SKIP
sSET ESCAPE TO RETURN FOR

BIT
BNE

#BIT9,35WR
9%

;CHECK [F LOOP ON ERROR
JYES = SKIP

4%:

MOV
RTS

R4,=(5P)
R4

sSET

2%:

TST
CMP
BEQ

(R4) +
E.MR1,T.MR1
38

JBUMP TO NEXT ERROR (ALL
; CHECK MR1
;0K - SK]IP
;CHECK IF LOOP ON ERROR
JYES - SKIP
;SET ESCAPE FOR RETURN TO SUB=-ROUTINE

8¢%:

9%:

:SAME OPERATION AS ABOVE
;CHECK MR?

(R4) +

;SAME

(MP

E.MR3,T.MR3

BEQ
BIT
BNE

8%
#BIT9,aSWR
9%

OPERATION AS

;(HECK MR3

ABOVE

#6$,$ESCAPE

BIT
BNE
TST
CLR
MoV
MOV

#BIT9,aSwR
9s
(R4) +
$ESCAPE
(SP)+ ,R3
(SP)+,RO

;CHECK IF LOOP ON ERROR
JYES - SKIP
;BUMP TO NO ERROR RETURN
;CLEAR ESCAPE
;;POP STACK INTO R3
;.POP STACK INTO RO

CLR

SESCAPE

;CLEAR ESCAPE

JMP

d$LPERR

.GO TO LOOP START

Ré

MOV

#STACK,SP

sCLEAN OFF

STACK

DIAGNOSTIC MODE READ SYNC PATTERN (PREAMBLE)
THE 255 *'0°" BITS AND 1 ‘1" BIT ARE CLOCKED THROUTH THE READ.
THE CONTENTS OF MR1 ARE MONITORED TO WATCH FOR AN ERROR.
AT

THE

END OF

THE

SYNC

DID NOT GET CHANGED.

READ,

(S1

CHECKED

®»

.SBTTL

— PN
VIO W
OO

7%:

10 SUB=ROUTINE

(R4) +
E.MR2,T.MR?
5%
#BI1T9,aSWR
9%
#5% ,SESCAPE

MOV

6%:

FOR RETURN

TST
(MP
BEQ
BIT
BNF
MOV

9%
ziS,SESCAPE

S%:

STACK

#8179, aSWR

BNE
ggv
3%:

JREMAINING TESTS

BIT

RTS

)
b b

032777

SEQ 0105

(MP
BEQ
MOV

023602

005724
023737
001410
032777
001043
012737
000761

R 9
164~-SEP-81
15:14
FPAGE 106
30(1046)
DIAGNOSTIC MODE [MPLIED SEEK

13:57

MACY11

-0
Voo

5406
5407
5408
5409
5610
5611
5412
5413
5414
5615
5616
56417
5618
5619
5620
5421
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5632
5433
534
,435
5636
5637
5438
5439
5440
5441
5642
5643
5644
5645
54646
5647
5448
5449
5650
5451

rPOMNRORORNS

5396
5397
5398
5399
5400
5601
9402
5403
5404
5605

14{-SEP=-81

"IRGEC.P1?

DSKLS CTRL PRTS

S.%.w,

CIREECD RKE1T

CALL:
JSR
ERROR

R4 ,DRSYNC
10
:MR1

CONTENTS

IN ERROR

INSURE

5476

5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497
5498

VACY11

164-SEP-81
15:14
PAGE 107
30(1046)
DIAGNOSTIC MODE READ SYNC PATTERN (PREAMBLE)
ERROR

;CST

CONTENTS

SEQ 0106

IN ERROR

*
»
>

ROV
WO
NOONOOO
WWNWWNOWIWN
S
NNNO NN

OOOOOOO
=200-"00-

023740
023740
023742
023746
023752
023756
023762
023766

DRSYNC:

002326
001236
000200
002320
0023¢2
022040

002244

031616
000026
002204

002204
002244

012737

026066

001236

024024
024030
024036
024040
026044
024046
024054
024062
024062
024064

005037
032777
001011
013700
006300
016037

001236
001000

155102

024066
024072
024074

005237
005300
001337

002326

024076

012700
012737

000177
122040

002244

004737

031616
000026
002204

002204
002244

024142

001236

024102

O
NN
WIN

024016

162737

000002

001236
001236

012600

4%:

1%:

000204

2%:

002320
000001
031616
000026
002204

5%:

PRESENT

THE SUBROUTINE WILL SET UP TO ABORT

TEST UNLESS LOOP ON ERROR

IS SET.

RO,=-(SP)

;:PUSH RO ON STA(K

$SESCAFE

;CLEAR ESCAPE

(LR

BITCNT

Mov

(LR
MOV

#128. RO
JSET COUNT TO CLOCK TO READ GATE
PR.BIT
;CLEAR PRESENT BIT
M1.BIT
;CLEAR PREVIOUS BIT
#DMD 'MEWD'ECCW,E.MRT :SET UP EXPECTED MR1

JSR

PC,RDBIT

;GO0 READ A BIT

(P
BEQ

T.MR1,E.MR

JCHECK

MOV

#2% ,8ESCAPE

;SET

CLR
BIT
8BNF

$ESCAPE
#BIT9,aSWR
18

;CLEAR ESCAPE
JCHECK IF LOOP ON ERROR
JYES SKIF
JELSE SET UP TO SKIP TO NEXT

MOV

RKMR1(R2),T.MR1

:BESTN.RO

sCLEAR BIT COUNT

;GET MR1

JYES - SKIP
ESCAPE

CORRECT

FOR

CONTINUE

TEST

MOV
ASL
MOv
SuB

#2 ,3ESCAPE

MOV
RTS

(SP)+,RO
R4

:sPOP STACK

INC
DEC
BNE

B8ITCNT
gg

:INCREMENT THE BIT COUNT
;LOOP UNTIL READY FOR READ GATE

MOV
Mov

#127..,R0

;SET COUNT FOR REST OF SYNC

JSR

PC,RDBIT

.60 READ BIT

CMP
BEQ

T.MR1,E.MR1

JCHECK

MOV

6%:

002326

024206

3%:

001254

033700

MOV

CLR

023774
024000
024006
024014

023737
001424

IF AN ERROR IS DETECTED,

THE

(LR

QO
=20Q

5452
5453
56454
5455
5456
5457
5458
56459
5460
5461
5462
5463
5464
5465
5466
8467
5468
5469
5470
5471
5472
5473
5474
5475

DSKLS CTRL PRTS
14=-SEP-31 13:57

CZROECO RK61T
"IR6EC.P1

BR
INC
DEC
BNE

002322
002320

MOV
MOV

002204
002244

Mov

JSR

(MP
BEQ

$SWOBTB(RO) ,$8ESCAPE
INTO RO

#DMD 'MEWD 'ECCW!'RDGATE
,E.MR1 ;SET NEW EXPECTED MR1

RKMRT1(R2),T.MRT1

#6% ,8ESCAPE

50%

BITCNT

:GET MR1

CORREC(CT

JYES - SKIP

;SET

FOR CONTINUE

:GO TO ERROR EXIT

TESTING

;BUMP BIT COUNTER

JLOOP UNTIL READY FOR SYNC 1

PR.BIT M1.BIT
#1,PR.BIT
PC,RDBIT

;MOV PRESENT TO PREVIOQUS
;SET SYNC 1 BT
;GO READ BIT

T.MR" E.MR1

JCHECK IF CORRECT

RKMRT(R2),T.MR1
7$

:GET MR1

JYES - SKIP

5508
22?8

024210
0264216

012737
000416

024220

5511
5512
5513
5514
5515
gg}?

024220
024224
024230
024232
024240
024246

004437
005237
005724
013737
023737
001266

032356
002326

5518

024250

005724

5521

024254

032777

001000

5523
5524
5525

(024264
024270
024272

(005037
000674
010446

001236

gg;g
5522

ggg?

0¢4252
024262

024274

002260
002160

D 9
30(1046)
14-SEP-81
15:14 PAGE 108
DIAGNOST!( MODE READ SYNC PATTERN (PREAMBLE)

00123¢
78:
002220
002220

000204

ggg?

154656

BIT

#BIT9,aSWR

JTEST

SESCAPE
1%
Ré ,-(SP)

JCLEAR FOR SKIP TO NEXT

51%:

(LR
BR
MoV

.SBTTL
o

DIAGNOSTIC MODE HEADER READ AND COMPARE
THIS ROUTINE SIMULATES THE THREE HEADER WORDS READ AND

5537

5538
5539
5540
5541

ggz%

006301
005300
001375

IF LOOP ON ERROR

;NO - SK]P

TEST

JSET UP STACK FOR RETURN

Ré4

COMPARE THAT IS PART OF ALL DATA TRANSFER OPERATIONS.
THE EXPECTED HEADER IS CALCULATED FROM THE

CYLINDER,

TRACK,

.t
.*
M
M

UPDATED TO THE NEW PACK ADDRESS IN CASE OF MULTI-SECTOR
OPERATIONS. THE BAD SECTOR ERROR DESIRED (BSEDES) SWIT(Ch
IS TESTED AND IF IT IS NON-ZERO, THE 2ND AND 3RD HEADER
WORDS ARE CHANGED ACCORDING TO BSEDES CONTENTS. THIS

VERIFIED.

THE

INCREMENT

IS GOOD,

THE ‘L'' REGISTERS ARE

CAN BE USED TO FORCE HEADER TYPE ERROR.

M
A
o
.
i

DHD(MP:

010046

RTS

51%

AND SECTOR SPECIFIED IN THE ''L'" REGISTERS. THE READING OF THE
3 WORDS IS DONE AND MR1 S MONITORED TO INSURE IT DOES
NOT CHANGE. AT THE END OF THE READ/COMPARE, THE (ONTENTS
OF RKCS1 IS CHECKED AND THE INCREMENT OF RKDCYL AND RKDA IS

)

BEQ

;SKIP TO RETURN

o
M
o
M

024326
024330
024332

;60 GET RK611 REGISTERS
;BUMP BIT COUNTER
sBUMP TO NEXT ERROR C(ALL
;GET EXPECTED (S1
JCHECK IF CORRF(T
:NO - SKIP

50%:

5533
5534
5535
5536

5560
5561
ggg%

R4 ,GETREG
BITCNT
(R4 +
L.CS1,E.CST
1.CS1,E.C31
48

;JBUMP TO NO ERROR RETURN

5532

010146
010346
010546
005037
012700
113701
042701

JSR
INC
TST
MOV
(MP
BNE

(R4) +

. %

024276
024276
024300
024302
024304
024306
024312
024316
024322

JSET RETURN FOR CONTINUE TEST
;G0 TO ERROR EXIT

5550
5551
5552
5553
5554
5555
5556
5557
gggg

#7%,$ESCAPE
508

TST

5528
5529

5544
5545
5546
5547
ggzg

MOV
BR

B8R

000703

001403

SEa €107

002326
00C005
002267
17740C
'$:

CALL:
JSR
ERROR
ERROR
ERROR

R4 ,DHD(MP
12
;ERROR IN MR1
13
;ERROR IN (S
14
JERROR [N PACK ADDRESS

MOV

MOV
MOV
MOV
CLR
MOV
MOovB
BIC

RO,=(SP)

R1,-(SP)
R3,-(SP)
RS,-(SP)
BIT(NT
#5,R0
L.DT R1
#177400,R"

;;PUSH RO ON STA(K

ASL
DEC
BNE

R1
RO
1%

JSHIFT TRACK TO ALIGN 'O
JHEADER WCRD FORMAT

;;PUSH R1 ON STA(K
;;PUSH R3 ON STA(K
;.PUSH R5 ON STA(K
sCLEAR BIT COUNTER
JSET A SHIFT COUNT
sGET DESIRED TRA(K
;CLEAR UNUSED BITS

WACY11

[
Y

CIR6ECO RKE1T DSKLS CTRL PRTS
TIRGEC.PI
14-SEP-81 13:57

024334
024340
026344
024350
026356
024360
024364
024366
026370
024372
024374
024376
024402
0244064
024410

13:57

L.DS,.R1

BISB
BIS

140000

002274
010000

#8]T15.81714,RT

002260

001600

2%:

002352
002352

23%:

024426
0246432
024440
024444
024446
024450
024456
024462
024470
024476
024500
024506

024512
024516
024524
024526
026532
0246534
024542

024550
024550
024552
024554
024556
024560
024562
024566
024570
024572

024574

NN
NO
O
= NS NNUONNSNO
NN
WWO
O = NW WWWIWWWIWO OWWO
NN
= NIN
NN SNNSNNWO
NNV

024414
024420

OO
2SS
oW
NO
W
NN

R1,

001204

122040

002244

000001
002320
002320

002327

000001
03161¢€
000026

002320

024562
025160

00135

002204

001236
001000

002204
002244

154474

000002

11¢%:

7%:

006305
000716

JNO - SKIP
:CLEAR BIT IN WORD 2
;CORRECT HVR(

AND R3 HAVE

JTEST

IF BSE DESIRED

THE EXPECTED HEADERS

$TMP1

;CLEAR A PASS COUNTER

#B1T0O,RS

JESTABLISH BEGINNING OF DATA WORD

R5,RO
33
#B1T0,PR.BIT

STEST IF BIT
;NO - SKIP
sELSE CHANGE

RKMR1(R2),T.MR1
T.MR1,E.MR1
6%

gg:.SFSCAPE
4%:

001236
001236

000204

100402

238
BSEDES.R1
BSEDES,R3

PC,RDBIT

$ESCAPE

#BIT9,aSWR

EXPECTED MR1

;STORE PREVIOUS BIT
JPRESET FOR PRESENT BIT

TO BE A ONE
TO ONE

;GET MR1 FOR TESTING
JCHECK [F CORRECT
JYES - SKIP

JSET RETURN TO CONTINUE TEST
JCLEAR TO JUMP TO NEXT
;CHECK

LOOP ON ERROR

(SP)+ RS
(SP)+ RZ
{SP)+ R

:;POP STACK INTO RS
;:POP STACK INTO R3
;sPOP STACK INTO R1

BITCNT
RS

;BUMP BIT COUNT
JCHECK JF LAST BIT OF

TST
BM]
ASL

TEST

5%
JYES - SKIP
$TESTN,RS
JGET CURRENT TEST NUMBER
RS
JAND SET UP TO ESCAPE TO NEXT TEST
$5WO8TB
(RS ,$ESCAPE

MoV

INC

;GO READ A BIT

#7,3ESCAPE

RTS

6%:

;SET

SUB

MOV
MOV
MOV

002326

JGET DESIRED CYLINDER
JTEST IF 22 SECTOR FORMAT
JNO - SKIP
:ELSE SET FORMAT BIT
. COMPUTE VRC(C

PR.BIT
,M" .BIT
PR.BIT

3%:

5¢:

005237
005705

JINSERT DESIRED SECTOR

;SET BS BITS

#DMD !MEWD !ECCW!RDGATE
,E.MR1

001254

033700

SEQ 0108

L.DCYL,RO
#CFMT L. (ST
2%
#BITY,R1T
RO,R3
R1,RS

RO,RS
R1,R3
RS,R3
BSEDES

002352

024414

ézP)*,RO

RS
7%

JsPOP STACK

INTO RO

JHAS BEEN SIMULATED =~

JSHIFT TO NEXT BIT
;G0 DO THIS BIT

THIS WORD
VES -

SK]IP

14-SEP-81
15:14
PAGE 109
30(1046)
DiAGNOSTIC MODE HEADER READ AND COMPARE

002266

OO0 OOOOOOO0OO
—OMN) PO
OWNO = —
N - WO BN = OV

5564
5565
5566
5567
5568

14-SEP-81

MACY11

[ Yot)

TIRGEC.P1

DSKLS CTRL PRTS

[ VY

“IRGECO RKE1T

5620
5621
5622
5603
5604
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644

005737
001004

001206

005237
000705

001204

024614
024622
024624
024626
024632

023727
002004
010300

001204

005237
000675

001204

024634
024642
024644

023727
002006
005000
012705
005237
000665

001204

023727

001204

024576
024602
024604
024606
024612

024646
024652
024656

024660
024666

010100

001436

MACYY

30(1046)

14-SEP=-81

TSY
BNE

$TMP1
9

MOV

R1,R0

9% :

(MP

$TMP1
., 82

MOV
INC

R3,R0
$TMP1

(MP

$TMP1 43

BGE

108:

001204

16%:

s JUST DONE WITH WORD 2?
:NO SKIP
;PUT 3RD WORD IN RO
;BUMP PASS COUNT

;JUST DONE WiTH WORD 3?
;NO - SKk]P

BGE
(LR

16%
RO

INC
B8R

$TMP1
7%

:BUMP PASS (OUN"

STMP1
, 44

JTEST

MOV

100000

JBUMP PASS COUNT

108

000004

SEQ €109

;TEST ]F PASS FOR 1ST WORD JUST DONE
;N0 - SKIP
JPUT wORD 2 IN RO FOR SIMULAT]ION

$TMMP1
11%

INC
BR

000003

110

DiAGNOSTIC MODE HEADER READ AND COMPARE
8%:

000002

F
9
PAGE

15:14

;PUT

#BIT1S,RS

CMP

12%

BFQ

IN WORD 0 OF

GAP

JSET TO GIVE IT 1ST GAP BIT

READY

JYES - SKIP

FOR GAP

THE FOLLOWING BLOCK OF CODE COMPUTES THE NUMBER OF (LOCK
PUI SES (WHICH ARE ACTUALLY CALLS TO RDBIT) THE OPERATION

024670
024674
024702
024704
024710
024714
024720
024722
024726
024730
024734
024736
024742
0247464
024750
024754
024762
024764
024770

024772

025000
025006

025010
025012
025020

000025
010000

2's:

000100

002266

17%:

000400

010000
001204
100000

002244

18%:
16%:

;
032356
002260
002160

002274
002266

(ReDC

129%:

AND

THESE

MOV
BIT

002260

060023
001000
002266

BEING PERFORMED REQU.IRES TO UPDATE
RKDA).

#25,R1
#CFMT,L.CST

21%
#23 ,R1
#BIT9,R1
L.DS.R1
17%

(MPR

L.DS.R1

BNE
MOV
BR

MOV
INC

CALCULATION

THE ADDRESS COUNTERS

IS BASED ON

COUNTERS WHEN THE OPERATION STARTED

BEQ
MOV
BIS
(MP
BNE
MOV
BR

THIS

#BIT6,RS
19%

18%
#B]T8,RS
19%

#RITI2.RS
$TMP1

;PRESET R1

FOR 24

THE

SECTOR MODE

;1S IT 24 SECTOR MODE OQPERATION?
JYES - SKIP
;FLSE CHANGE FOR 22 SECTOR MODE
:SET FOR MAX HEAD OF ¢

JTEST

TRACK/SECTOR ADDRESS WAS MAX

JNO - SKIP

JSET FOR 8 BITS OF GAP TO UPDATE

JTEST IF SECTOR WAS MAX
sNO - SKIP
sSET FOR 6 BITS OF GAP TO UPDATE

;SET TO GIVE 1ST 4 BITS OF GAP

;BUMP PASS COUNT

.MR1
,E TE
#RDGA
7%

JSR

R4 ,GETREG

sGET RK611 REGISTERS

MOV
(MP

L.CS1,E.CS?
T.CS1,F.CS

4«9

JSET EXPECTED (CS)
sCHECK IF CORRECT
:NO SKIP

TST

(R4)
~

MOV
MOV

L.CCYL,E.DCYL
L.DA,E.DA

¢BUMP TO NEXT ERROR RETURN

;CLEAR READ GATE

END OF BLOCK

BNE

(R4)+

WAS

(L.DC AND L.DA).

BIC
BR

IST

WHAT

JBUMP TO NEXT ERROR RETURN

;GET STARTING CYLINDER
TRACK/SECTOR
;

[V
]

DSKLS CTRL PRTS
14-5EP-81 13:5°

JIRGECO RKETT
TIR6EC.PIT

INCB
MOV

002260

000024
002¢2¢

13%:

E.DA
#26 R0

BIT
BEQ
MOV
(MPB

#CFMT,L.CST
138
#24 RO
RO,f.DA

(LRB
INCB
MOV
(MPB

E.DA
E.DA+)
#3,R0
E.DA+1,R0

“SET SECTOR T0 0
‘BUMP TRACK
SPRESET FOR 3 TRACKS (RK06)
SCHECK IF TRACK INC TO LARGE

BNE

15§

BNE

002200

00222¢

002166

002240
002226

005724
€00137

024550

158

50¢%:

0n1236
024550

E.DCYL

E.DA+1

:CLEAR TRACK

cMP

E.DCYL,T.DCY.

;CHECK

CYL OM

CMP

E.DA,T.DA

SCHECK

DA OK

BNE

51¢:
*

»¥
%

%
%

»
B
B
4
X

TR SRR SR

I
YOO
DR

LSRTTL

INO = SKIP

26$

BEQ

TO 0

*BUMP CYLINDER

258

JMP

MOV
MOV

E.DCYL.L.DCYL
£.DA,L.DA

;STORE COMPUTED NEXT
“AND NEX: DA

5§

(RG) +

;:BUMP

BIT
BEQ
(LR

#BIT9,aSWR
518
$ESCAPE

;TEST IF LOOP ON ERROR
INO - SKIP
:CLEAR TO LOOP ON ERROR

MOV
RTS

R4, -(SP)
R&

SSET

:GO TO GOOD EXIT

5§

DIAGNOSTIC MODE
YHE

READING OF

THE

FIRST

IS HANDLED

ROUTINE

GAP AND WRITING OF

THE

ARE

PROCESSED

REMAINDER ARE

RETURN

CONTINUE

GAP READ AND SYNT WRITE

THE

GAP BITS

AND

CHECK IS MADE

JSR
ERROR

STACK

IN TH!S ROUTINE.

AND A SINGLE
CALL:

TO NO ERROF

CYL

IMF

JMP

01044¢
000204

153752

‘NO - SKI®

INC

15T

PRI

025200
025202

nn0137

001000

26%:

032777
001404
005037

002274
002260

*NO - SKIP

THE

SYNC

HEADER

PROCESSED HERE.

THAT WRITE GATE CAME ON AND 255

‘"1'* BIT

IS WRITTEN.

ERROR

R4 ,DWGPSN
15
:MRT
16
;CST

IN ERROR

IN READ GAP

ERROR

IN ERROR

IN ERROR AFTER S5YNC WRITE

[N WRITE

ERROR

JMR1

:(S1

IN ERROR AFTER READ GAP

025160
025166
025170

25%:

024572

013737
13737

15¢:

001402
000137

002240

SEQ C110

;BUMP SECTOR
SPRESET FOR 2¢ SEC TRACK
STEST IF IN 26 SECTOR MODE
SYES - SKIP
SELSE CHANGE FOR 24 SECTGR MODE
*CHECK IF SECTOR TO LARGE

CLRB

0 €17/

LA
M ANAN
VT LUA TNV T VTN
NONSN NN~ SNONSNNNNNNN NNNNNNN
(Y IV. 14 SN 1N MNOPNOMNONOND
= 2
b s el =3
+sOO 0O ~NON
WY SNV 2OO0 NNV
NN —=O

002226
000026
010000

5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5653
5694
5695
5696
5697
5698
5699
5700

237
00

5678
5679
5680
5681

025026
025032
025036
025064
025046
025052
025056
025060
025064
025070
025074
025100

13:5°

G 9
164-SEP-8"
15:14
PAGE 111
30(1046)
DIAGNOSTIC MODE HEADER READ AND COMPARE

5676

5677

14-SEP-81

va(v1!

ROUTINE

JSR

C(ALLED:

PC,WRTBIT

RETURN POINT [F ERROR
NO ERROR RETURN

[N WRTIBIT

SYNC(

TEST

(OR PREAMBLE)

(OMPARE

THEN A

0'° BITS

"IR6EC.PIY

CSKLS (TRL PRTS

[
T

TIREE(D RK61T

5732
5733
5734
5735
5736
5737
5738
5739
5740

5741
57642
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755

5756
5757
5758
5759
5760
5761
5762
57¢3
5764

5765
5766
5767
5768

5769

025206
025204

(C1004¢

025206
(025212
025214
025220
025226
025230
025234
025236
(025042
025050

005737
(001006
012700
012737
000416
105737
001006
(12700
012737
000405

025252
025260

025264
025272
025276
025302

025306

025314
025322
025324
025332
025334
025340
025342
025344
025346
025352
025360
025362

025366
025370
025376
025404
025404
025406

000066
000011

000070
000007

022040
002320
002322
031616

002244

023737
001404
012737
000513
005237
005300
001357
000421
005037
022777
001011
013700

006300
016037

162737

002244

00220«
002204

025346

001236

000026

00232¢

001236
001000

;NO - SKiP

;gv

1&1.BITCNT

JPRESET BIT COUNT FOR REST OF

TSTB
SNE

MOV

L.DS
9%
#56. R0

;TEST IF NtW SECTOR IS O
;NO - SKIP
JELSE ADJUST COUNT FOR TRA(CK (HANGE

9%:

MOV

#5,BITCNT

JPRESET BIT COUNTER FOR REST OF GAP

END OF BLOCK

153560

ggv

1001236
)01236

MOV

#54. RO

:ggBIT(NT
#60. R0

JELSE

JSET

MOV

#DMD 'ECCW.MEWD ,E.MR1

1%:

JSR

(LR

M1.BIT

MOV
(MP

RKMR1(R2) ,T.MR1
E.MR1,T.MR1

(IR

BEQ

ADJUST COUNT FOP CYL

COUNT

SET EXPECTED MR1

;CLEAR PRESENT BIT

PC,RDBIT

;GO READ BIT

;CLEAR PREVIOUS BIT
;GET MR1
JCHECK IF

CORRECT

JYES -~ SKIP

ggv

ggg.SESCAPE

1°¢:

INC
DEC
BNE
BR

BITCNT
RO
1%
3

sBUMP BIT COUNT
;DEC LOOF COUNT
;LOOP IF NOT ZERO
JELSE SKIP

2%:

CLR
(MP
BNE

$ESCAPE
#B1T9,aSwk
3%

sCLEAR TO EXIT OR LOOP
JERROR RETURN: CHECK IF LOOP ON ERROR
JYES - SKIP

MOV
ASL

012600
000204

MOV

SuB

MOV

$TESTN,RO
RO

;SET RETURN TO CONT TEST

;GET NUMBER OF NEXT
;SHIFT FOR INDEXING

TEST

#2,$ESCAPE

JSET TG FIRST INST

(SCOPE?

$SWOBTB(RQ) ,$ESCAPE

;SET ESCAPE FOR GOT TO NEXT TEST

RTS

(SP)+ RO

:;POP STACK

INTO RO

JSR

R4 ,GETREG

sGET

MOv
(MP
BNE

L.C:1,€.CS1
T.CS1,E.CST
2%

JSET EXPECTED (S1
JCHECK [F CST1 Ok
;NO - SKIP

025410
025414
025416

025424
025432

004437
005724
013737
023737
001345

025434

005724

TSt

(R4) +

;JBUMP RETURN POINTER

025436
025442
025446
0254¢2

005037
005037
005037
005037

CLR
CLR
(LR
(LR

BIT(NT
M1.811
M2.BIT
P1.BIT

;CLEAR BIT COUNTER
;CLEAR ALL WRITE BIT

032356
002260
002160

6%:

002220
002220

GAP

FOR 6C BITS

PR.BIT

11%

CHANGE

JPRESET B8IT COUNT FOR REST OF GAP

10%:

001254

033700
000002

THE FOLLOWING (CDE ADJUST THE COUNT FOR THE REMAINDER OF
THE GAP, THE ADJJUSTMENT DEPENDS ON HOW MANY GAP BITS WERE
READ IN THE HEADER C(OMPARE ROUTINE FOR ADDRESS REGISTER UPDATE.
TST
L.DA
JTEST IF DESIRED TRACK/SECTOR NOW O

MOV

002326

)
012737
005237
005037
004737

SEQ C111

BNE

8%:

002326

112

::PUSH RO ON STA(K

002326

000005
000074

H
9
PAGE

RO,=(SP)

002266

15:14

MOv

:
;
;

)
002266

14=SEF=81

DIAGNOSTIC MODE GAP READ AND SYN( WRITE
DWGPSN:

012737
012700

016237

30(1046)

TST

(R&) +

RK611

REGS

JBUMP TO NEXT ERROR RETURN

INDICATORS

[ Y]

MACY1!

[VY
Y

{IR6ECD RKE1T DSKLS CTRL PRTS
TIRGEC.PIT
14-5EP=81 13:57

5788
5789
2790

025456
025462
025470

005037
012737
012700

002320
062040
000400

§762
5793
5794
5795
5796
5797
5798
5799
ggg?

025474
025500
005502
025506
025510
025512

004737
000405
005237
005300
001371
000402

030652

025514
025516

010446
000204

5802
5803
5804
2382

025520
025526
025532
025534

012737
004737
000770
005237

000001
030652

5807
5808
5809
gg}?

025540
025544
025546
025554

004437
005724
023737
001274

5872
gglz

025556
025560

005724
000711

5815
5816
5817

025562
025570
025572

032777
001403
005037

000702
010446
000204

(LR

002244

MOV
MOV

BNE
8R

;BUMP BIT COUNT
;LOOP UNTIL ALL 256
;BITS ARE WRITTEN

6$:

MOV

R4 ,=-(SP)
R&

sSTACK

7%:

MOV

#,P1.BIT

;SET

;ERROR RETURN

BITCNT

032356

JSR

R4 ,GETREG

ST
(MP

002220

BNE

IST
BR

153350

590%:

001236
51%:
.SBTTL
I

®
N
B
N

SO
SR
SO
YA

0
0
0
0
O
0

8EQ
(LR
B8R

MOV
RTS

JERROR RETURN = SKIP TO HANDLER

PC,WRTBIT

FOR REPORTING

SYNC BIT OF

;GO WRITE

SUBSEQUENT ERRORS

AS NEXT BIT

;BUMP BIT COUNT
;GET RK611

REGS

(R4) +
T.CST,E.CST
2%

JBUMP TO NEXT ERROR RETURN
JCHECK IF CORRECT

(R4)+

;sBUMP PAST ERROR RETURNS

4#B]1T9,aSWR
51%

JTEST IF LOOP ON ERROR
;YES - SKIP
JELSE SET TO LOOP

sNO - SKIP

;GO TO EXIT

$ESCAPE

sPRESET STACK FOR RETURN

R4 ,-(SP)
Ré

DIAGNOSTIC WRITE

DATA AND ECC ROUTINE

THE DATA [N THE QUPUT BUFFER IS WRITE SIMULATED, ECC
GENERATED AND WRITTEN, AND THE POSTAMBLE IS WRITTEN.

CALL:
JSR

ERROR
ERROR
ERROR

R4&,DWRITE

17
21
27

NO ERROR RETURN

:MR1 IN ERROR IN WRITING
JECC ERROR IN WRITING
:CS1 ERROR AFTER WRITE

%
B

N
A

DWRITE:

MR!

TO WRITE 256 "0

JWRITE ERROR HANDLER-SET

002326

025604
025004
025606
025610
025612
025614
025620

RTS

JSR
BR
INC

001000

EXPECTED

BITCAT
RO
5%
7%

JSR
BR
INC
DEC(

COUNT

;SET

;CALL WRITE BIT

5837
5838
5839
5840
5841
5842
5843

PR.BIT
#OMD 'ECCW!MEWD
. WRTGATE ,E.MRY

PC,WRTBIT

002326

002160

SEQ C112

JSET

5¢:

002316

#256. .RC

025576
025600
025607

15:14
14-SEP-81
PAGE 113
30(1046)
DIAGNOSTI( MODE GAP READ AND SYNC wRITE

5818
5819
5820

VACY11

ROUTINE

CALLED:

JSR

PC,WRTBIT

MOV

RO,~(SP)
R1,-(SP)
R3,-(SP)

RETURN POINT [F ERROR [N WRTB]T
NC ERROR RETURN FROM WRTBIT

MOV

MOV
MOV

(LR
(LR

RS,=¢P)
BIT(NT
ECCLo

;:PUSH RO ON STA(K
;;PUSH R1 OMN STA(CK
:;PUSH R3 ON STA(K
:.PUSH R5 ON STA(K
;CLEAR BIT COUNTER
;CLEAR ECC LOW

DSKLS CTRL PRTS
14-SEP-81 13:57

TJROE(D RKETY
"IRGE(.P1T

5844
5845
5846
5847
5848
5849
5850
5851
5852
5853

5854
5855
5856
5857
5858
5859
5860
5861
5862

5863
5864
5865

5866
5867
5868
5869
5870
5871
5872
5873

14-SEP=-81

025624
025630
025634
025640
025644
025646

13:5°

002340
000400
050130
001216

CLR
MOV
MOV
MOv

ECCH]
#400,R0
#OBUFF ,R3
R4 ,$TMF6

00120

MOv

R4 ,$TMP7

TST

J
;

025652
025656
025662

002324
002322
002322

025664
025672
025700
025706
025712
025714
025716
025724
025730
025732
025736
025744
025752
025754

000137

026352

025760
025764

005237
005701

0N2326

025766
025770
025772
025776
026000
0256006
026010
026014
026016
026020
026022
026024
026032
026034

026040
026046
026050
026054
026056
026062
026064
026070

100320

TO SHIFT A Bl

010000

001214
040000

001214

CURRENT WORD

TO LEFT

TO POINT

INTO RS AND
TO

THE

M1.BIT M2.B!T

JSHIFT CURRENT=1

(LR

P1.BIT

60%:

MOV
MOV

R1,RS

MOV

#1,P1.BIT

JSR
BR

JSR
MOV
CMP
BEQ

33%:
7%:

PC,WRIBIT
33%
PC,ECCGEN
RKECPT(RZ),T.

E.ECPT,T.ECPT

Jmr

L0
13%

INC
TST

BITCNT
R1

ASL
(MP

R1
RO,
41

BEO

32%

TST

002244

PR.BIT ,M1.BIT
P1.BIT,PR.BIT

BlY

8NE
BIT

002260

FROM RIGHT

MOV

32%:

032737
001413
005737
001006
012701
005005
005137
000675

IS TO LOAD THE

A ¥

43%:

026374

ERROR RETURN

;CLEAR SWITCH
sLOAD BIT POINTER
JGET A WORD FOR WRITING

001214

020000

ECC

$TMPS
#BITO,R1
(R3)+,RS

000001

042737
000714
000137

sSTORE

THE FNLLOWING COPE SIMULATES THE WRITING OF 400 WORDS.

BM]

010000

JCLEAR ECC HI
;SET WORD COUNT FOR ONE SECTOR
;GET POINTER TO OUTPLT DATA
;STORE MR1 ERROR RETURN
JBUMP TO NEXT ERROR RETURN

LR
MOV
MOV

100424

006301
020027
001332
032737
001404
005737
001001
000722
005701

SEQ 0113

3s:

5¢:

030462
000032
002254

(R4)+

THE PROCEDURTM

BFQ

000001
030652

14=-SEP-81
PAGE 114
30(1046)
15:14
DIAGNOSTIC WwRITE DATA AND EC{ ROUTINE

BNE
BR
ST
BPL

4%
#CFMT,L.CST
$TMPS

32%
4%
R1
4%

BIC
BR

HECCW,E. MR
4%

BIT

H#CFMT,L.CST

TST

$TMPS

MOV

#BIT14
R

JMP

BEQ
BNE

(LR
COM
BR

JPRESENT

CURRENT BIT,

TO (URRENT-?2

10 CURRENT=1

JNEXT TO PRESENT
;CLEAR NEXT BIT
JTEST IF NEXT BIT IS ONE
:NO - SKIP
sELSE SET NEXT BIT
;GO0 WRITE BIT
JERROR RLTURN - SKIP

;GO GenERATE ECC FOR THIS BIY
;GET PAJTERN
s CHECK i# £"C CORRE(T
JYES = SKIP
;JUMP TO ERROR EXIT
;BUMP BIT COUNT
sTEST BIT POINTER
;IF NEGATIVE - SKIP
JELSE SHIFT LEFT AND LOOP
;TEST

WRITING LAST

;NO - GO TO LOOP

WORD

;TEST IF 22 SECTOR MODE

;N0 - SKIP

JTEST IF 18 BIT SWITCH SET
JYES - SKIP
;ELSE LOOP
JELSE TEST IF LAST BIT OF LAST WORD
sNO - GO TO LOOP
JELSE SET MR® FOR ECC WRITE

209
31

LEST §F122 SECTOR MODE
JTEST

18 BIT

208

SYES - SKIP

RS
$ TMPS
A 3

;MAKE

SWITCH SET

;SET TO SUPPLY 2 MORE BITS (16 § *7
SURE

THEY ARE 0°'S

;SET THE 18 BIT SWITCH
GO WRITE THE BITS

[ Van]

(ZROEC.PYY

MACY1T

CZREELD RKO1T1 DSKLS CTRL PRTS

5900
5901
5902
5903
5904
5905

026072
026076
026100
026102
026106
026112

001266

001274

OO0
OO0

002316

026164
026170
026172
026174
026176
026204
026206
026210
026212
026220

000736

026222
026226
026230
026234
026240
026244

005737
001007
005237
012701
013705
000724

001214

026246

012701

000017

026252
026260
026266
026274
02¢300
026304
026306
026312
026314

013737
013737
013737
005037
004737
000436
005237
005307
001356

002322
002320
002316
002316
030652

026316
026322
026326
026330

004437
013704
005724
013737

032356
001220

002260

026336
026344
026346
026350

023737
001031
005724
000446

002160

002326

8%:

9% :
41%:

CLR
DEC
BNE
CLR
MOV
MOV

#BITO,R1

MOV

M1.BIT M2.BIT

JSHIFT BIT INDTCATORS AGAIN

MOV
CLR

P1.BIT,PR.BIT
P1.BIT

sCLEAR NEXT BIT

#1,P1.8BI7
PC ,WRTBIT

JYES - SKIP
JELSE CHANGE TO ONE
;60 WRITE BIT

MOV

R1.R5
9%

14%

MOV
JSR

8IT

ZERO

;WRTBIT ERROR -~

SKIP

BITCNT
R1

ASL

;BUMP BIT COUNT
STEST BIT POINTER
;IF NEGATIVE - SKIP
JELSE SHIFT AND LOOP

108

41
STMPS,
8%

;JTEST

WRITING LAST

ECC

WORD

BPL
BIS
BR

8$
HECCW,E.MR?
L}

TST

$TMPS

JTEST PASS

MoV
MoV
BR

#BI1TO,R1
ECCLO,RS
8%

;LO0OP

11%:

MCV

#15. ,R1

JSET A BIT COUNT

12%:

MoV
MOV
MOV

M1.BIT,M2.BIT
PR.BIT M1.BIT
P1.BIT,PR.BIT

JSHIFT BIT INDICATORS

10%:

071214
000001
002342

002326

;NO - SKIP TO LOOP
JELSE TEST IF WRITING LAST BIT OF

002244

002324
002322
002320

JTEST

INC
TST

TST

020000

PR.BIT M1.BIT

BIT
BEQ

CMP
BNE

000001

;CLEAR THE SWITCH

;DEC WORD COUNT
;IF NOT ZERO - GO GET NEXT WORD
;sCLEAR FOR PASS (ONTROL
;GET FIRST ECC WORD
JSET BIT POINTER

BMI
001214

$TMPS
RO
3s
$TMP5
ECCHI RS

BNE
INC

CLR
JSR

42%:

INC

DEC
BNE

11$%
$TMPS

P1.BIT
PC,WRTBIT

15%

BITCNT

R1
12%

JSR
MOV

R4 ,GETREG
$TMP7 R4

002220

MOV

L.CST,E.CS?

002220

cMp
BNE

T.CST,E.CST
18$

19%

TST

(R4)
+

(RG)
¢

;sNO - SKIP TO LOOP
JELSE SET ECCW IN MRI

0O JUST DONE

;NO - SKI]P
;BUMP PASS COUNT
JPRESET BiT POINTER
JGET SECOND ECC WORD

sSET ZERC FPR WRITE POSTAMBLE
;60 WRITE BIT
;WRITE BIT ERROR - SK]P
;BUMP BIT CCUNT
;DEC BIT COUNT

;LOOP UNTTIL BIT COUNT O

;GET RK611 REGS

sSET R4 FOR ECC ERROR RETURN

JBUMP TO (S1 ERRQR RETURN
SGET EXPECTED (S?
JCHECK IF CORRECT
sNO - SK]IP
;BUMP TO GOOD RETURN
;G0 TO RETURN

LAST ECC

20 Yan

SEQ 0114

~NN

K
9
15:14
PAGE 115
14-SEP-81
30(1046)
DIAGNOSTIC WRITE DATA AND ECC ROUTINE

30%:
31%:

001214

026116
026124
026132
026140
026144
026146
026150
026156
026162

5955

VMACY11

Oro &~

TIRGEC.P1

DSKLS CTRL PRTS
14-SEP-81 13:57

[V 1,V 1,V ]
NN
noOPLNY

(ZROECO RK6I1

5956
5957

5958
5959
5960

026352
026356
026364

013704
012737
000410

001220
025760

001236

15:14
14~SEP-81
30(1046)
PAGE 116
DIAGNOSTIC WRITE DATA AND ECC ROUTINE

13%:

MOV
MOV

$TMP7 R4
X408 ,$ESCAPE

16%

;SET FOR ECC ERROR RETURN
;STORE RETURN POINT FOR NO LOOP ON ERROR

SEQ 0115

[4nYan)

VACY11

~NN

CZROECO RKE11 DSKLS CTRL PRTS
CIRGEC.P1T
14-SEP-81 13:5°

MACY11

30(1046)
14-SEP-81
15:14
PAGE 117
DIAGNOSTIC WRITE DATA AND ECC ROUTINE

SEQ 0116

5961
282%

026366
026372

013704
000405

001216

148 :

MOV
BR

$TMPG R4
16%

;SET FOR *R1

ERROR RETURN

5964
gggg

026374
026400

013704
000402

001216

20%:

MOV
BR

$TMPG K4
16%

:SET FOR MR1

ERROR RETURN

gggg

026402

013704

001216

15%:

MOV

$TMPG R4

;SET FOR MR1 ERROR RETUPN

5969

026406

032777

001000

16%:

RIT

#B]T9,3SWR

JCHECK IF

5972
23;2

026416
026422

005037
000421

001236

CLR
BR

$ESCAPE
19%

:CLEAR ESCAPE
JSKIP TO EXIT

5975
gg;g

026424
026426

010446
000204

17%:

MOV
RTS

R4,=(SP)
R4

;CONDITION STACK
:GO REPORT ERROR

5978
5979
5980
5981
5982
5983
5984
5985
5986
5087
5988
5989
2389

026430
026434
026442
026444
026450
026452
(026460
026466
026466
026470
026472
020474
026476

005037
02°777
001011
013700
006300
016037
162737

18%:

CLR
BIT
BNE
MOV
ASL
MOV
SUR

$ESCAPE
;CLEAR FOR LOOP OR EXIT
#B1T9,aSWR
:CHECK IF LOOP ON ERROR
19¢
;YES - SKIP
$TESTN,RO
:SET UP TO SKIP TO NEXT TEST
RO
$SWOSTB(R0O) ,$ESCAPE
#2,$ESCAPE

MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+,R3
(SP)+,R1
(SP)+,R0

gg;?

026414

001403

001236
001000

152524

152476

001254

033700
000002

012605
012603
012601
012600

001236
001230

19%:

000204

BEQ

RTS

5992
5993

.SBTTL
I

gggé

17%

:NO - SKIP

::POP
::POP
:;POP
:;POP

LOOP ON ERROR

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

DIAGNOSTIC MODE READ GAP AND DATA SYNC
THE READING OF THE GAP AND READING OF THE

IS HANDLED IN THIS ROUTINE.

RS
R3
R1
RO

SYNC

(OR PREAMBLE)

5996
5697
5998
5999
6000

ix
Ix
i
o
i

THE FIRST GAP BITS ARE PROCESSED IN THE HEADER COMPARE
ROUTINE AND THE REMAINING GAP BITS ARF PROCESSED HERE.
THEN A CHECK IS MADE THAT READ GATE CAME ON
AT THE 129TH BIT OF SYNC.;«
CALL:

6002
6003
6004

o
o
i*

ERROR
ERROR
ERROR

6001

2882

6007

6008
6009
6010

6011
6012
6013
6014
6015
6016

026500
026500

)
010046

026502
026506

005737
001006

DRGPSN:

002266

:
:
;

JSR

R4 ,DRGPSN

ERROR

1§
16
3¢

:MR1
;CS1
:MR1

;CS1

IN ERROR IN READ GAP
IN ERROR AFTER READ GAP
IN ERROR IN READ SYNC

IN ERRCR AFTER SYNC READ

ROUTINE CALLED:
JSR

PC,RDBIT

MOV
RO,-(SP)
::PUSH RO ON STACK
THE FOLLOWING CODE ADJUST THE COUNT FOR THE REMAINDER Of
THE GAP. THE ADJUSTMENT DEPENDS ON HOW MANY GAP BITS WERE
READ IN THE HEADER COMPARE ROUTINE FOR ADDRESS REGISTER UPDATE.
TST
L.DA
;TEST IF DESIRED TRACK/SECTOR NCW O
BNE
8%
:NO - SK]P

~N~

(ZR6ECC RK611 DSKLS CTRL PRTS
CIR6EC.P1T
14-SEP-81 13:57

6017

6018
6019

026510

026514
026522

012700

012737
000416

6020
6021
6022

026524
025530
026532

6024
6025
6026

026544
026546
026554

105737
001006
012700
012737
000405
012737
012700

6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
5040
282;

026560
026566
026572
026576
026602
026610
026616
026620
026626
026630
026634
026636
026640

6043
6044
6045
6046
6047
6048
6049
6050
6051
ggg%

6023

026536

000066

000011

002326

002266

000070
000007

8%:

002326

000005
000074

002326

012737
005037
005037
004737
016237
023737
001404
012737
000552
005237
005300
001357
000421

022040
002320
002322
031616
000026
002244

002244

026642

001236

026642
026646
020654
026656
026662
026664
026672
026700
026700
026702

005037
022777
001011
013700
006300
C16037
162737

001236
001000

6054

026704

004437

6056

026712

013737

2855

6055

6057
2823

026710
026720
026725

023737
001345

033700
000002

002260

002160

6062

026732

005037

002326

6882

026746

012700

000200

6066

026750

1%:

11%:

152264

00236
001236

032356

005724
012737

10%:

2%:

0C1254

026730
0.6736¢

002204
002204

002326

282?
6063

9%:

012600
000204

005724

N 9
30(1046)
14-SEP-81
15:14
PAGE 118
DIAGNOSTIC MODE READ GAP AND DATA SYNC

022040

4$:

002220

6067
6068
gggg

026754
026762
026770

004737

(016237
023737
001604

031616

000026
002266

002064
00204

607
6.7

026772
UlTU

01,737
00«65

(02?022

OL°C%

MOV

#54., ,R0O

JELSE ADJUST COUNT FOR (YL CHANGE

TSTB
BNE
MOV
MOV
8R
MOV
MOV

L.DS
9
#56. R0

;TEST IF NEW SECTOR IS 0
JNO - SKIP
JELSE ADJUST COUNT FOR TRACK CHANGE

108
#5 BITCNT
#60. RO

JPRESET BIT COUNTER FOR REST OF GAP
:SET COUNT FOR 60 BITS

MOV
(LR
CLR
JSR
MOV
CMP
BEQ
MOV
BR
INC
DEC
BNF
BR

#DMD 'ECCW.MEWD,E.MR1 ;SET EXPECTED MR1
PR.BIT
:CLEAR PRESENT BIT
M1.BIT
;CLEAR PREVICUS BIT
oC,RDBIT
;GO READ BIT
RKMR1(R2),T.MR1 :GET MR1
E.MR1,T.MR1
:CHECK [F CORRECT
118
IYES - SKIP
#28 ,8ESCAPE
:SET RETURN TO CONT TEST
508
BITCNT
;BUMP BIT COUNT
RO
:DEC LOOP COUNT
1%
:LOOP IF NOT ZERO
43
JELSE SKIP

CLR
CMP
BNE
MOV
ASL
MOV
SUB

$ESCAPE
#B1T9,aSWR
3s

:CLEAR TO EXIT OR LOOP
;ERROR RETURN: CHECK IF LOOP ON ERROR
;YES - SKIP
$TESTN.RO
;GET NUMBER OF NEXT TEST
RO
:SHIFT FOR INDEXING
$SWOBTB(RO) ,$ESCAPE
;SET ESCAPE FOR GOT TO NEXT TEST
#2,$ESCAPE
:SET TO FIRST INST (SCOPE)

MO,
RTS

(SP)+ R0
R4

JSR

R4, GETREG

MOy

L.CST1,E.CST

163

(R4)+

:BUMP RETURN POINTER

(LR

BIT(NT

JCLEAR BIT COUNTER

MOV

#128..R0

JSET COUNT TO READ 128 'C"

JSR

PC.RDB]?Y

;CALL READ BIT

“Cy
B

8..%,%% T APE
e )

SSET RETUAN FOR (DN"INLE
JG0 O ERRCH fuT

MOV
BR

TST

5¢:

#11,B.7(NT
108

#7 ,BITCN®

END OF BLOCK

CMP
BNE

002244

SEQ 0117

MQy
(P
8tQ

JPRESET BIT COUNT FOR REST OF GAP

;PRESET BIT COUNT FOR REST OF GAP

;:POF STACK

INTO RO

;GET RK611 REGS

(RG) +

:BUMP TO NEXT ERROR RETURN

T.CS1,E.CST
2

JCHECK IF CS1
:NO - SK]P

;SET EXPECTED (S1
Ok

#DMD 'FCCw!'MEWD ,E.MRT :SET EXPECTED MR

RKMR1(R2),".MR1 :GFT MR! FOR TESTING
tE.MR1,T MR
JTESTY IF CCPRECT
228
JYES - SKIP
< &

"F°°

MACY11

(IROECD RK6TY DSKLS CTRL PRTS
CIRGEC.PUT
14-SEP-81 13:5”

005237
005300
001357

002326

027066
027074
027100
027106
027114
027116
027124

012737
004737
016237
023737

000001
(31616
000026
002244

002320

012737
000413

027126

001236

027126

005237

002326

027132
027136
027140

032356

027146

004437
005724
023737
001235

027150
027152

005724
000652

027154
027162
027164
027170
027172
027174

032777
001403
005037
000643
010446

002204
002204

:
63

INC
DEC
BNE

BIT(NT
RO

;BUMP BIT COUNT
;LO0® UNTIL ALL 125
;BITS ARE READ

BIS
JSR

#RDGATE ,E .MR1
PC,RDBIT

JSET EXPECTED MR1
;GO CALL READ BIT

E.MR1,T.MR1
23%
#238 ,SESCAPE
508

;TEST IF CORRE(T
JYES - SKIP
LELSE SET ESCAPE

INC
DEC

BITCNT
RO

;JBUMP BIT COUNTER
sDEC BIT COUNT

MOV
JSR
MOV

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

;SETTM SYNC BIT OF 1 AS NEXT BIT
;GO READ [T
;GET MR1 FOR TESTING

MOV

827, k0

MOV

RKMR1(R2,,T.MR1

(MP
BREQ
MOV

001236
23%:

BNE

002176C

002244
002204

248

BFQ
MOv
BR

#24$,SESCAPE
508

INC

BITCNT

JSR

R4 ,GETREG

(MP
BNE

T.CS1,E.CST
2%

TST

002220

001000

151756

50%:

51%:
»

PRI

R
&
N
¥

;GO TO ERRJR REPORT EXIT

;CHECK [F CORRECT

JYES - SKIP
JELSE SET RETURN FOR CONTINUE TEST

(R4)+

;GET RK611 REGS

JBUMP TO NEXT ERROR RETURN

sCHECK IF CORRECT
;NO - SKIP

;BUMP PAST ERROR RETURNS

;GO TO EXIT

BIT
BEQ

#BIT9,3SWk
51%

;TEST [F LOOP ON ERROR
JYES - SKIP

MOv
RTS

R&,-(SP)
Ré

;PRESET STACK FOR RETURN

ggSCAPE

;ELSE

SET

TO LOOP

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE
THIS ROUTINE

OF DATA.
THE
ARE

IS USED TO SIMULATE

THE READ OR WRITE

(HECK

THE ROUTINE WILL TRANSFER A FULL OR PARTIAL SECTOR.

FIRST WORD AFTER THE
TO BE TRANSFERRED.

CALL

SPECIFIES HOW MANY WORDS

IF LESS THAN A FULL SECTOR, THE ECC AT THE END
OF THE TRANSFER IS NOT CHECKED. THE ECC IS CHECKED AT “HE TIME
EACH BIT

TRANSFERED.

%
¢
B

8,0,

TR
T

.SBTT,

FOR TESTING

ébR

001236

;GET MR1

SYNC

;BUMP BIT CCUNT

(R4) +

TST

sSET COUNT FOR REST OF

;LOOP UNTIL ALL 127 READ

E.MR1,T.MR1
248

(mMP

000204

027056

002246

SE3 (118

EITHER 16 OR 18 BIT WORDS CAN BE SIMULATED

DEPENDING ON THE STATE OF CFMT BIT IN L.CS1.

IF 18 BITS

ARE REQUIRED, BITS 16 AND 17 ARE ASSUMED TO BE ZERO.

001404

000177
100000
031616
000026
002244

0,0,

(o)

—

d e

med e

d T

d e

SOOOOOOOOO‘O«OOOO&O‘O

N PONURONINOPONYN
= =2 e w2 b ed b b —d
WA 2OV
OV
W= O
oo NN

€103

027056
027062
027064

027010

22%:

6080
6081
6082
6083
6084
6085
£086
6087
6088
6089
6090
6091
6092
6093
6094
6095
5096
¢097
6098
6099
6100
6101
6102

002326

027012
027016
027024
027030
027036
027044
027046
027054

005237
005300
001357
012700
052737
004737
016237
023737
001404
012737
000437

027002
027006

6077
6078
6079

13:57

6073
6074
65075
607¢

14-SEP=-81

8 10

15:14 PAGE 119
164=-SEP-B1
30(10646)
DIAGNOSTIC MODE READ GAP AND DATA SYN(

TIRGEC.PT

MACY1]

THE

CONTENTS OF

LOCATION ECPOSX MUST BE

COUNT EXPECTED AT THE END OF

LOADED W.TH

THE DATA TRANSFER.

THIS

THE

ECC

CIRGE(C RKE1T DSKLS CTRL PRTS

c10
WACY11 30(1046)
14~SEP=-81
15:14 PAGE 120
DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE (HECK ROUTINE

g}ig

LOADING MUST OCCUR BEFORE THE ROUTINE IS CALLED.

613
g};%

;*
.*

ANOTHER LOCATION, ECPATX, IS SET TO O IF THE ECC IS EXPECTED
TO BE CORRECT AND SET TO 1 IF AN ERROR ]S BEING FORCED.

6134
6135
6136
6137
6138

;
:
;
.
;

A 3RD LOCATION, ECCSRC, SPECIFIES THE SOURCE OF THE ECC
WORDS TO BE USED IN CHECKING THE OPERATION. [F ECCSRC IS A
1, THE ECC WORDS FED INTO THE DECODER ARE TAKEN FROM TME
LAST TWQ LOCATIONS OF OBUFF, IF ECCSRC IS O, THE COMPUTED
ECC WORDS FROM ECCHI AND ECCLO ARE USED.

;
;

—

6139
6140

o
o
X

ERROR 43

6145
6146

o
;e

6147

6148

6149

6150
6151
6152
6153
6156
6155
615¢

;.
o
ot
o
o *
o
o

6157

2}28

6160

6161

6162
6163
6164

B
i

6165
6106

027176
027176

6168
6169
6170
6171
6172
6173
6174
6175
6176
6177

027200
027202
027204
027206
027210
027214
027216
027222
027224
027230

6167

6178
6179
6180
6181
6182
6'83
6184

027176

027232
027236
027240
027244
027246
027252
(027256

DWRT(K:
DREAD:

010046

010146
010346
010546
012400
010437
005724
010437
005724
010437
005724

010437
005724
010437
005724
010437
012703
(005037

001216
001220
001210
i
001212

001222

001224
(050130
002326

R4 ,DREAD

LENGTH OF
ERROR 34
ERROR 35
ERROR 36

6142

6143
6144

CALL:
JSR

ERROR 41
ERROR 42

TRANSFE
:MR1 IN ERROR RFADING DATA OR ECC
:ECC ERROR READING DATA
:CS1 ERROR AFTER READING DATA OR ECC

:ECC REGISTER INCORRECT AFTER READ ECC
:ERR IN ECC PAT CALCULATION
:ERR

IN ECC

POS COUNTING

JSR
R4 ,DWRT(CK
LENGTH OF TRANSFER
ERROR 53
:MR1 IN ERROR WRITE CHK OR E(: READ
ERROR 54
:ECC ERROR IN WRITE CHECK
ERROR S5
:CS1 ERROR AFTER IN WRT (HK (R ECC READ
ERROR 41
:ECC REGISTER INCORRECT AFTEF READ ECC
ERROR 42

;ERR

ERROR 43

IN ECC PAT

CALCULATION

;ERR IN ECC POS COUNTING

ROUTINES CALLED:

RDBRIT

ECCGEN

MOV

RO,=-(SP)

:;PUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV
TST
MOV
TST
MOV
TST

R1,-(SP)
R3,=(SP)
RS,=(SP)
(RG)+ RC
R4 ,$TMP6
(R4)+
R4 ,$TMP7
(R4)+
R4, $TMP3
(R4) +

:;PUSH R1 ON STACK
:;PUSH R3 ON STACK
:;PUSH RS ON STACK
:STORE WORD COUNT
:STORE MR1 ERROR RETURN
;BUMP TO NEXT RETURN
:STORE ECC FRROR RETURN
:BUMP TO NEXT ERROR RETURN
:STORE CS1 ERROR RETURN
;BUMP TO NEXT ERROR RETURN

(LR

BITCNT

JCLEAR BIT

MOV
TST
MOV
TST
MOV
MOV

R&,$TMPG
(R4)+
R4 ,$TMP1Q
(R4)+
R4,$TMP11
#0BUFF ,R3

;STORE ECC REG ERROR RETURN
;BUMP TO NEXT ERROR RETURN
:STORE ECC PAT ERR RETURN
:BUMP TO NEXT ERROR RETURN
:SOTER ECC POS ERROR RETURN
;GET ADDRESS OF BUFFER
(OUNTER

SEQ 0119

CIRGE(LD RK61T DSKLS CTRL PRTS
TIRGEC.PN
14=SEP-B81 13:57

027434
027440
027442
027446
027454
027462
027464

027470
027474

027476
027500
027502

PPN ONINON)
NN N
NNNS NN NOO o
WWWNWN 2NN = NN (V)
NNN=NNNANINNN ~

— ek ek (O D ..n—aowoog

031616
000026
00204

002322

000001

002320
00220«
002244

030462
000032

001402
00137

005237
005701

002214

027544
027546

05300
001302

027550

0237%7

JCLEAR ECC COMPUTED LOCATIONS

BI7
BEQ

#CFMT,L..ST
328

JTEST

MOV
MOV

#R]TO,R1
(R3)
¢+ RS

JPRESET BIT POINTER
;GET DATA WORD

«4%:

MOV

PR.BIT M1.BIT

JSHIFT PRESENT

8I7
BEQ

R1,RS
1%

1%:

MOV
MOV
8R

(LR

001214

JSR

PC,RDBIT
RKMR1(R2),T.MR1

MOV
(MP

31%:
001226

INTO PREVIOU>

sCLEAR PRESENT
;TEST IF PRESENT BIT IS C
;YES - SKIP
JELSE INSERT A 1
;GO READ BIT
;GET MR1

JCHECK IF CORRECT
JYES = SKIP

43%
9%

TST

BITCNT

JSR
MOV
CMP

PC,ECCGEN
;GO GENERATE ECC
RKECPT(R2),T. ECPT
TEST IF ECC CORREC/
T.ECPT,E.ECPT
449

BEQ

449

;TEST

FIRST BIT

JYES = SKIP ECC GEN

DaTA

108

INC

BITCNT

BMI

TST

JBUMP BIT COUNTER

JTEST IF THIS WORD
JYES - SKIP

I35

BIT
BEQ

#CFMT,L.CST
30%

MOV

#RIT14,R1

(OM
BR
(LR

$TMPS
4%
$ TMPS

JCLEAR 18 BIT SWUITCH

DEC
BNE

RC
38

;DECREMENT WORD COUNT
;IF NOT ZERO - LOOP

(MP

BITCNT,$TMP1?2

JELSE TEST

$TMPS
308

HIBITS,RS

DONE

:ELSE SHIFT BIT POINTER

MOV

30¢:

T.MR1,E.MR1

JELSE SET UP BIT COUNTS FOR 18 BIT MODE

BEQ
JMP

TST
BNE

0<0000
002254
001214

PR.BIT

#1,PR.BIT

BEQ
JMP

2%:

#11001,8:MP13
#17041,8TMP14
3s

MmNV

ASL

002326

18 BIT MODE

(4%

001214

:NO - SKIP

JSET BIT COUNTS FOR 16 BIT MODE

002ci4
002074

002260

;CLEAR FOR 18 BIT MODF SWITCH

#10000,8TMP1?2
#10001,8TMP13
#10041,8TMP14

030276

010000

$ TMPS

MOV
MOV
MOV

006301
0007¢7

032737

ECCH]
ECCLC

32%:

100407

027504
027512
027514
027520
027522
027526
027532
027536
027540

;TEST

18 BIT MODE

JNO - SKIP

JTEST IF PROCESSIMG BIT 16 OR 17 DONE
JYES - SKIP

;SET POINTER FOR 2 MORE BITS
JINSERT H] ORDER BITS
;SET 18 BIT SWITCH

IF FULL SECTOR WAS READ

[T
]

SEQ 0120

#11000,8TMP12

(%%

002326

D 10
PA GE 127

MOV

020262
00232¢

15:14

(LR
(LR

OQC
-

OOO0OO0OOOOOOO

26
2

14=-SEP-81

DIAGNOSTIC READ DATA OR DIAGNOSTIC wWwRITE (HECK RCUTINE

-V

027420
027426
027430

30(1046)

WO OWW
NWWVINN

027412

MACY1T

002260

WNW
NNN

027406

13:5°

002320
002320

027362
027370
027374
027376
027400

——h

027354
027360

—

6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
€215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6734
6235
6236
6237
6238
6239
6240

6187

027262
027266
027272
027276
027304
027306
027314
027322
027330
027332
027340
027346

S OWO
=0V

6185
6186

14-SEP-81

OO0

TIRGEC P

DSKLS CTRL PRTS

TIREECT ReeTM

14~5EP-81 13:57

6253
gggg

027624
02762¢

012305
012767

6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
€271
gs;g

027632
027640
027644
027646
027650
027656
027662
027670
027676
027700
027704
027712
027714
027720
027726
027734
027736

013737
005037
030105
001403
012737
004737
016237
023737
007402
000137
023737
0C1402
004737
016237
023737
001402
(00137

6274
6275
6276
6277
6278
279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
2532

027742
027746
0277564
027756
027764
027772
027774
030002

005237
923737
001003
042737
023737
001027
052737
042737

030010
030016
030024
030032
030040
030042
030050

6295
6296

(002320
030462
001214
002344

002322

002340
002342
000001
00230
002320

002322

(00001
03167
¢
000026
002204

002320
002204
002244

030312
002326

001226

030462
000032
002214

33%:

002214
002254

15:14

E 10
PAGE

122

SEQ 0121

BEQ
JMP

33%
8%

JYES - Sk P
ELSE JUM3 TO EXIT - DO NOT (HECK

MOV

PR.BIT,M1.BIT

;MOVE

TST

ECCSRC

JTEST WHIRE ECT WORDS ARE

JSR
(LR

BNE

MOV
MOV

013737
004737
005037
005737
001006
013737
013737

(03023«

——

027564
027572
027576
027602
027606
027610
027616

14-SEP-81

DIAGNOSTIC REAC DATA CR DIAGNOSTIC WRITE CHECK ROUTINE

001402
0C0C137

——l

027556
027560

nun

62641
6262
6243
6244
6245
62646
6247
62648
6249
6250
2521

(@) e)

CIZROEC.P1

30(1046)

PC,ECCGEN
$TMPS

36%

ECCH],0BUFF+1000
ECCLO,OBUFF+1002

ECC JORDS

LAST DATA BIT

sTHEY ARE IN BUFFER - SKIP
JELSE MOVE

36%:

MOV
MoV

#B1T0,R1

(R3)+,RS

sGET EC(

5%:

MOV

PR.BIT M1.BIT

,SHIFT PRESENT

BIT
BEQ

R1,RS
348

JSR
MOV

PC,RDBIT
RKMRY(R2),T.MR1

;GO REA) BIT
;GET MR}

38%

JYES = SKNIP

34%.

(LR

MOV
(MP

BEQ
38%:
L%

#1,PR.BIT

T.MR1,E.MR?

JSET BI'

THEM INTO BUFFER

FROM BUFFER

POINTER

TO PREVIOUS

JAND SET UP PRESENT

sCHECK

(ORRECT

JMP
(MP

118
BITCNT,$TMP12

JSR
MOV
(MP

PC,ECCGEN
:GENERATE ECC FOR BIT
RKECPT(R2) ,T.ECPT
JGET PATTERN
T.ECPT,E.ECPT
;TEST [° ECC PAT CORRELT

BEQ

030276

PR.BIT

FOR ECC GEN

;GENERATE ECC
;CLEAR FR PASS COUNTING

JMP

49%

SELSE JJUMP TO REPORT EXIT
TEST IF FIRST ECC BIT

JYES = SKIP ECC GEN (ALREADY DONE)

45$

JYES SKIP

BITCN
BITCNT $TMP13
468
WHECCW,E . MR
BITCNT,$TMP14
47%
#ECCW,E.MR1
#RDGATE ,E .MR1

JRUMP EJT COUNT
TEST IfF 1ST BIT OF ECC
;NO - SkIP
JELSE CLR ECCW FOR ECC READ
:TEST [F 1ST BIT OF POSTAMBLE
sNO - SKIP
JELSE SET ECCW FOR ECC DONE
;CLEAR READ GATE

108

;ELSE CO REPORT ERROR

002326
002326

001230

020000
002326

002244
00123¢

020000
100000

002244
002244

INC
(MP
BNE
BIC
(MP
SNE
BIS
BIC

016237
016237
013737
023737
001163
023737
001157

000032
000030
002350
002214

002214
002212
002252
002254

MOV
MOV
MOV
(MP

RKECPT(R2) ,T.ECPT ;STORE ACTUAL PATTERN
RKECPS(R2) ,T.ECPS ;STORE ACTUAL POSITION
ECPOSX,E.ECPS
;GET EXPECTED POSITION FOR REPORT
T.ECPT,E.FCPT
;(HECK :F CORRECT

002212

202252

030052
030060
030062

023737
002436
005737

002326

001232

(MP

BITCNT, $TMP 4

TST

ECPATX

030066
030070

001433
023737

002346
001232

002326

45%.

“%:

8SNE
(mMpP
BNE
'

BLT

BEQ
(MP

208
T.ECPS,E.ECPS
20%

:NO SKIP
;CHECK IF POSITION CORRECT
;NO - SK]IP
TEST

IF ECC DONE

«8%

IND - SKIP

(8%
$TMP14 BITCNT

JYES - SKIP
;TEST IF FIRST POSTAMBLE BIT

JTEST IF EXPECTED ECC
: (NO ERROR)

IS O

(2R6ECD Rk611 DSKLS CTRL PRTS

VACY11

6297
6298
6299
6300

6301
6302
6303

6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
634
6315
6316
6317
6318
6319
6320
6321
63c2
6323
6326
6325
6326

030076
030100
030104
030112

030120
030126
030134

031
030142
030150
030152

MACY?T

mMov
L[]
MOV
CMF

51¢%:

030170

005737

001214

030174

001004

030176
030202

005237
000137

001214
027624

030206
030214
030216
030220
030224
030230

023727
001007
005005
012701
005237
000137

001214

6328
6329
6330
6331
6332
€333

030234
030240
030246
030254
030256
030260

004437
013737
023737
001060
005724
000446

032356
002260
002220

6335
633¢
6337

030267
030266
030274

013704
012737
006427

00121¢
027434

001236

013704
012737
000421

001220
027470

001236

48%:

6%:

7%:

—af )

o n
QO

QO
OO0

non

000001
001214
027632

8%:

WINWNW

013704
012737
000413

01236

013704
012737
000405

001236

WWN

013704

001236

:GET PATTERN

RrECPS(R2),T.ECPS
:GET POSITION
ECPOSX,E.ECPS
;GET EXPECTED POSITION
T.ECPT,E.ECPT

:TEST

T.ECPS,E.ECPS

;(CHECK

PATTERN CORRECT

23$

:ELSE GO REPORT
:TEST

JELSE

SHIFT BIT POINTER

TST

BM]

JMP

;YES = SKIP
JELSE GO REPORT
IF

POSITION CORRECT

JYES = SK]P

JYES Skl1P

WORD

DONE

;AND LOOP

$ TMPS

BNE

INC
JMP

$TMPS
368

:BUMP PASS COUNT

{MP
BNE
CLR
MOV
INC
JMP

$TMPS 21
8%
RS
#R1T0,R1

;TEST PASS COUNT. IF NOT 1 (NOT THE
;2ND ECC WORD JUST READ) = SKIP
;CLEAR WORD (POSTAMBLE)
:SET BIT POINTER

JSR

R4, GETREG

:GET RK611

(MP
BNE

E.CS1,T.CS?
218

;CHECK IF CORRECT
.NO - SKIP

$TMP6 R4
#438,8ESCAPE

;SET RETURN TOR MR1 ERR.
JSET RETURN TO CONTINUE TEST

$TMP7 R4

:SET RETURN FOR ECC ERROR

MOV

MOV
MOV

MOV

$TMPS
5%

L.CS1,E.CST

(R4)+
13$

12%

JTEST PASS COUNT.

IF NOT O

;(NOT THE FIRST ECC WORD JUST WJRITTE)
; = SKIP

:BUMP PASS COUNT

;SET

REGS

EXPECTED

(S!

:ELSE BUMP RETURN POINTER TO NO FRR

MOV

#4648, $ESCAPE

MOV
MOV

$TMP6, R4
#65%, $ESCAPE

:SET
JSET

MOV
MOV

$TMP10,R4
#51%, $ESCAPE

:GET RETURN FOR PATTERN ERROR
;SET RETURN TO CONTINUE TEST

$TMP11,RG

:RET RETURN FOR POSITION ERROR

BR
1'¢:

;ELSE BUMP POS COUNT EXPECTED

RKECPT(R2),T.ECPT

4«8%

(MP

B8R
10%:

JYES = SK]P

BEQ

TST
BR
:
9%

52%

ECPOSX

SEa 0122

(HE(X ROUTINE

51$
22%

ASL

000001

F 10
PAGE 123

BE:
JMP

JMP

027632

15:14

DIAGNOSTIC READ DATA DR DIAGNOSTIC WRITE
INC

005701
100403
006301
000137

14-SEP=-81

BEQ

030156
030160
030162
032164

01273%7

30(1046)

MOV
MOV

12%

#58%, 8L SCAPE

JSET RETURN TO CONTINUE TEST
RETURN FOR
MR1 ERROR
RETURN TO CONTINUE TEST

;SET RETURN TO CONTINUE

TEST

YTM

"IRGEL.PY

DSKLS CTRL PRTS
14-SEP~81 13:57
OOQOOOOO0O |=]
ONOON
= 22O o
—UNO = NN
OB
e A R L RNV S1,N1,V] &~
WO WNIN O N NN NN o
NN N NN NN
NN N [a¥]

"IROECD RKETT

001224
001000

MoV
8I7

BEQ

030416
030622
030426
030434

124

$TMP11,=-(SP)
#8179, aS4R
148

JPREP STACK FOR RETURN

;TEST IF LOOP ON ERROR
:NO SKIP

REMOVE LAST ENTRY FROM STACK
sNO LOOP - SLEAR ESCAPE

MoV
mMov
MOv
MOV
RTS

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

;;POP
;;POP
;sPOP
;;POP

001212

MoV

$TMPL R4

;JGET RETURN FOR ETC ERROR

001210
001236
001000

MOV
CLR
BIT
BNE

$TMP3 R4
$ESCAPE
#BIT9,aSWR
138

JGET (S1 ERROR RETURN
sTEST IF LOOP ON ERROR
sTEST IF LOOP ON ERROR
JYES - SKIP

MOV
ASL
MoV

$TESTN,RO
JSET REGiSTERS TO LOOP ON ERROR OR
RO
JESCAPE TO NEXT TEST.
$SWOBTB(ROY ,SESCAPE
JSET UP TO ESCAPE TO NEXT TEST

SUB

#2 ,SESCAPE

150504

001254

033700

201236

030452
030460

000746

162737

000002

001236

[anBF SN JNE NN BN I

BTTL

030530
030536

PAGE

(SP)+

013700
006300
016037

030504
030506
030510
030516
030520
030524
030526

6 10

$ESCAPE

TST

030436
0320442
030444

030462
030464
030470
030476
030500

15:14

(LR

V01230
13%:

030410
030414

164=-SEP-B1

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE (HECK ROUTINE

150552

030376
030376
030400
030402
030406
030406

6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407
6408

005726
005037

6379
6380
6381
6382
6383
6384
6385
63806
6387
6388
£389
6350
6391
6392
6393
6394

030370
030372

C32777
001407

OO0O0OOOD
B ON =~
N—=NNO
NONNNO
QOWO
ONNOO

6371
6372
6373
6376
6375
6376
6377
€378

013746

OO0V OOO
OOOQOOWOO
OOWN=2fu—wvn
SANVOESENE
N
Y SNV
Y TR N
O=NONOO

6368
€369
6370

030354
030360
030366

OO
OW
=N
NN

6353
6354
6355
€356
6357
6358
6359
6360
6361
€362
€363
6364
£365
6366
6367

30(1046)

002316

000002

002260

00€001

BNE

002340
1$:

002336

000001

002340

CALL:
RETURN:

BIT

1°%:

3s:

13%

INTO
INTO
INTO
INTO

RS
R3
R1
RO

JADJUST RETURN
;GO TO EXIT

GENERATE ECC WORD
EACH TIME THIS ROUTINE IS CALLED THE ECC 1S CALCULATED FOR THWE
NEXT BIT TO BE READ OR WRITTEN AND THE BI TS PREVIOUSLY
READ OR WRITTEN (STORED IN ECCHI AND ECCL 0). THE RESUL'> OF
"HE CALCULATION ARE PLACED IN ECCHI AND E CCL 0. THE LOW ORDER
11 BITS OF ECCHI ARE PLACED IN E.ECPT FOR EA Sy COMPAR] SON
O RKECPT.

(GEN: MOV
MOV

002322

15%

STA(K
STACK
STACK
STACK

JSR
RTS

PC,ECCGEN
R4
RO,-(SP)
;STORE RO
#P7.8B1T,RO
;GET ADDRESS OF

ABITY1,L.CST
12$

NEXT BIT
;CHECK IF WRITING
;YES - SKIP

MOV

#M1.B1T,RO

JELSE

CHANGE

TO PRESENT BIT

TST
BEQ

{RO)
3%

;CHECK [F NEXT BIT O
JYES - SKIP

817
BEQ

#1,ECCHI
5%

JNO, CHECK IF BIT 31 =1
JNO, SET ECC XORED BIT

JSHIFT IN ECC BIT

BIT

#1,80CH]

CLR
(LC

BEQ

ECCXOR

‘s

;CLEAR ECC XORED BIT
;CLEAR CARRY FLOP

;CHECK IF BIT 31 =1

JNC,

CLEAR ECC XORED BIT

SEQ 0123

[ Xan)

TIRGELD RK6TT DSKLS CTRL PRTS
14-SEP=81 13:57
TIRGEC.PTY

MACYTT

6409
6410

6611

5412

6413
664

6415
6416

AL17

618

6419
6420

64621
6422
6423
6624
64625
64626
6427
6428
6429
6430

€30540
030566
030550
030554
030560
030564
030566
030572
230576
030606
030¢10
030614
030620
030626

030632

030640
030646
030650

0127%7
000261
006037
006037
005737
001422
012746
043716
042737
052637

012746
043716
042737
052637
013737
042737
012600
000207

000001

WACY1Y

30(1046)
14-SEP=-B1
GENERATE ECC wORD

00233¢

5¢:
4 ¥

002342
002340
002336

002409
002340
002340
174000

002254
002254

i
.
.
.

6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463
€464

i
M
it

030652
030660
030666
030674
030702
030704
030712
030729
030722
030724
030732
030734

030740

002400
000440
000026
002244

002244
000C2%
002204
002204

030724
044136

001236
001512

N
it
¢

wRTBIT:

001000
000137

031606

042737
052737
005737
001152
005737
001023
042737
005737
001007
005737

014400
042000
002320

001412

002324

eI
8IS
MOV
8]C

#BIT12'BIT4,ECCLO
(SP)+ ECCLO
#81T10'BIT8,~(SP)
ECCH], (SP)

8IS
MOV

(SP)+ ,ECCHI
ECCHI,E.ECPT

;STORE ECC PATTERN

(SP)+ RO

sRESTORE RO

;CHECK

XOR NEEDED

108

*NO, RETURN

ECCLO, (SP

;

:DO XOR OF

ECC BITS

0,2, 11,21, 23

#81710.8178,ECCH]

BIC

#1764000,E.ECPT

RTS

:MASK UNSEEN BITS
JRETURN

SIMULATE ONE BIT OF

WRITE DATA

IN MAINTANENCE MODE

THE CONTENTS OF

ONE BIT OF DATA IS WRITE SIMULATED.

RKMR1 IS COMPUTED (PRECOMP ADVANCE AND DELAY, MAINTENANCE
ENCODED WRITE DATA) FOR THE PROPER TRANSITION OF THE
MAINTENANCE CLOCK AND CHECKED AT EACH TRANSITION,

IS INCORRECT AT ANY TRANSITION, AN ERROR IS SET UP TO
(ONTAIN A MESSAGE THAT IDENTIFIES THE TRANSITION WHEN THt
ERROR OCCURRED.

JSR
CALL:
RETURN: RTS
BIS
MOV
MOV
(MP
MOV

MOV

RTS

PC,WRTRIT
PC+2
PC

FOR NO ERROR RETURN
FOR ERROR IN MR1

#MCLK!MEWD ,E.MR1 - CREATE EXPECTED MAINT. REG. °
#DMD !MCLK,RKMRY
(R2) ;PROVIED 1ST UPWARD TRANSITION
RKMR1(R2),T.MR1 ;STORE MAINT. REG. 1
E.MR1,T.%R1
sCHECK IF MAINT REG 1 CORRECY

JYES, PROVIDE DOWNWARD TRANSISTION

#EMWT EMW+?

;LOAD ERROR MESSAGE

#1% ,SESCAPE

sLOAD ESCAPE

RTS

(SP) ,-(SP)

sSAVE

;CHECK IF LOOP ON ERROR
sNO, CONTINUE
;YES, LOOP CN FRROR

sMR1

RETURN

FOR LOOP ON ERROR

INCORRECT

ON UPWARD

150206

1$:

8lT7
BEQ
JMP

#SW9,aSwWR
3s
63$

002244
002244

3s:

BIC
BIS

#MCLK!PCA PCD,E.MR1
,E . MR
WD
! WRTGAT
#ME

BNE

20%

;YES,

108
#MEWD ,E . MR

JYES, NO TRANSISTION
;INDICATE TRANSISTION

00232¢

002000
002316

SSET CARRY FLCP

ECCLO

#RIT13:BiT4,-(SP)

BEQ

000207

:SET ECC XOR

MOV

.SBYTL

NN
NN NN

[YAXA
£445
64646
6447
6448
6449

108

#1 ECCXCR

SEQ 0124

ECCHI
ECCXOR

BIC

002340

H 10
PAGE 125

ROR
ST

8I¢

002342

643"

5632
64633
6434
6435
6436
6437
6438
€439
6440
6441
64642
6443

SEC
ROR

BEQ

020020

002342
020020
002342
002400
002340

MOV

15:14

002244

TST

PR.BIT

TS”

M1.BIT

TST

P1.BIT

BNE
BI(

BNE

TST
BEQ

M2.KIT
0%

TRANSITION

;INITIALIZE MAINTENANCE REG.

sCHECK

ONE

PREVIOUS ONE

NEXT BIT

C(LOCK

[N ZERO

sCHECK
JCHECK

SIMULATE ONE

JYES, CHECK FOR PRECOMP ADVAN(E
;CHECK FOR PRECOMP. ADVANCE
¢NC,

aa.

DSKLS CTRL PRTH
14=-SEP=-81 13:5°

TIRAECD RO
TIRGEC P

2737
2737

- ad
— e

002244
000026
002204
002244

031102
06442246

00122¢
001572

*LOAD ERROR MESSAGE

(SP),=(5P)

#MCLK!MFWD ,E.MR1

031170
044314

001236
001512

OO NWNE
B LAN)—

BIS

CMP
BEQ

MOV

MOv
RTS

147762

3%:

002000
000400
000040
000026
002204

002244
002244
000026

15%:

031264
044402

001236
001512

001060

001236
000002

18%:

005737

002316

20%:

005737

002322

052737

004000

167646

002244

17¢%:

*SAVE

‘MR1

FOR LOOP ON ERROR

RETURN

INCORRECT

;CHECK

LOOP ON ERROR

sNO, CONTINUE
;YES, LOOP ON ERROR
- CREATE

EXPECTED MAINT REG

RKMR1(R2),T.MR1
E.MR1,T.MR1

;STORE MAINT REG. 1
sCHECK ]F MAINT REG.

#EMWE EMe+2

*LOAD ERROR MESSAGE

*MR1

158
#1383 ,SESCAPE
(SP),=(SP)

*SAVE

RETURN

:CHECK

BIS
BIC

#MEWD E .MR1

JRESET

TRANSITION

BIT

RKMR1(R2),T.MR1
T.MR1,E.MR1
18%
#17% ,$ESCAPE

KEMWSG EMW+?
(SP),-(SP)

(ORRECT

INCORRECT

*NO. CONTINUE
“YES, LOOP ON ERROR

#MCLK,E."R1
#DMD ,RKMR1(R2)

JYES, CONTINUE
;sLOAD ESCAPE FOR LOOP ON ERROR

15¢
63$

;SUPPLY

LOCP ON ERROR

LAST

PART

INDICATION

DATA

;STORE MR1
sCHECK IF MR1 CORREC(T
JYES, RETURN
;LOAD ESCAPE FOR LOOP ON ERROR

;LOAD ERROR MESSAGE
;SAVE

;MR1

RETULRN

INCORRECT

#SW9,aSWR

sCHECK

$ESCAPE
#2,(SP)

;CLEAR ESCAPE
;JADJUST RETURN

TST

P1.BIT

TST

M1.BIT

JCHECK IN NEXT BT A ONE
JYES, CHECK IF PRECOMP DELAY

sCHECK FOR PRECOMP ADVANCE

BIS
BR

#P(A,E.MR1

JSET PRECOMP. ADVINC(E

BNE
CLR
ADD
RTS

BNE

BEQ

#DMD 'MCLK ,RKMRT(R2) ;PROVIDE 2ND UPWARD TRANSISITION

#SW9,aSWR

Mov
MOV
MOV
RTS

001000

-LCAD ESCAPE

BIT

(MP
BEQ

032777
001145
005037
062716
000207

128
638

“SET PRECOMP. ADVANCE
-CLOCK IN DATA BIT

BEQ
JMP

MOV
MOV

002204
002244

sCHECK FOR PRECOMP, ADVAN(CE

REMWO EM+2

#1718 SESCAPE

MOy
MOV

IN ZERO

STORE MR1
‘CHECK IF MR1 CORRECT
SYES, CONTINUE

MOV
MoV
MOV
RTS

BEQ
JMP

;CLOCK

RKMRT (R2),T.MR1
T.MR1,E.MR1
128

#PCA,E MR
#DMD 'RKMR1(R2)

12%:

OO0

— e b

8EQ

JSET PRECOMP, DELATY

$CLOCK IN ZERO

002244
000026
002204
002204

012737
012737

MOV
MOV
(MP

63%
PC

30%

408

40%

1 00P ON ERROR

;YES, LOOP ON ERROR

JRETURN

;NO,

CHECK FO MRI

s CHECK MRY

e vy

SEa 0125

108

002400
000442
000026
002244

052737
042737
012762
016237
0 23737

611

mM2.8IT

#5W9,aSwR

031606

BNE
BIS

108

BIT

032777
001402
000137

011646
000207

108:

#P(D,E.MR1

052737
072762
016237
23737

5%:

BIS
BR

150037

N~
—
ONN

—d d D D ed o ed d b
- od D o d e h —d —b

004000
000040
000026
002204

0527

AONLPLNLNUMNONVNLAOND
[s e JV R o S W=D
O
S rR&EOCONES

— b
d
e
md
el
e
e

O NN NN
S5 NN 2 NNON
N
O NNO NN

Y
- ]

031606

PCN

000137

OO OCONNSD

—

OO
N ON

= OO0O0O0OO0OO0OOD
QONNOO
N WWUINON
OOONNONESOOONN

)

—b

NN NN NN NN

el
el
—

OO0O0OVOOOOO0OOT

001000

OO0

032777

N NN
NN NN

OOODOOOOO

WNWWWWN

OO0

INWWWNN WNINWWNWANINWN

—

6499

OOOO0OCOOCOOND

6496
649 7
649 8

003264

;

OO0

047 9
6480
648 1
648 2
648 3
6484
648 5
648 ¢
648 7
648 8
648 9
645 0
649
649 2
649 3
6494
L6495

005737

0022644

010000

647 5
6476
647 7
¢4a? R

647 4

647¢
647 1
647 2
647 3

646 9

052737
000406

WWNANIWWNWNING

€468

OQOOQOOO

6465

645 6
646 ?

CZROELD RKO1T DSk,S CTRL PRTS
14=SEP=-81 13:57
CIRGEC.PY"

110
14=SEP-81
15:14
PAGE 126
MACY1T 30('046)
SIMULATE ONE BIT OF WRITE DATA [N MAINTANENCE MODE

TIRSLLD R
"IR6EC.PTY
6521
6522
6523
65¢4
6525
6526
6527
6528
6529

6530
531

031332
031340
037344
031346
031354
031362
031370
031376

031400
031406

VMACY11

J 10
30(1046)
14-SEP-81
15:14
PAGE 127
SIMULATE ONE BIT OF WRITE DATA [N MAINTANENCE MODE

000400
002322

0C2264

308%:

010000
000040
000026
002206

002244
000026
002204
002244

012737
012737

031420
064224

0015°:

001000

147512

41%:

000400
000440
000026
002244

002244
000026
002204
002204

42%:

QSKLS TYRL PRTS
4~
SEP=-81 13:57
042737
005737
001003
052737
012762
016237
023737
001474

6532
22%2

031414
031416

011646
000207

6535
6536
6537
6538

031420
031426
031430
031436

032777
001067
052737
012762

6539
6560
6541
6542

6543

6544
2222

031444
031452
031460
031462

031470

031476
031500

016237
023737
001414
012737

012737

011646
000207

6547
6548
6549
6550
€551
€552
6553
6556
6555

031502
031510
037512
031520
031526
031534
031542
037544
031552

032777
001036
042737
012762
016237
023737
001414
012737
012737

2255

031562

000207

6556
pJ

031560

011646

031502

«C$:

001236

MOV
mMov
MOV
RTS

001512

001000

147430

002400
000040
000026
002204

002244
000026
002204
002244

031564
044402

001236
001512

(SP) ,-(SP)
PC

SRESET MANT CLOCK [N EXPECTED MR
sCHECK FOR PRECOMP DELAY
sNO, CHECK MR1
sSET SET PRECOMP DELAY
;CLOCK IN DATA BIT
;STORE MR1
;CHECK MR1 CORRECT
sYES, CLOCK IN REST OF 8I7

sLOAD ESCAPE FOR LOOP ON ERROR
;LOAD ERROR MESSAGE

s SAVE RETURN
sMRT INCORRECT

#5W9,aSWR
;CHECK [F LOOP ON ERROR
63%
;YES, LOOP ON ERROR
#MCLK,E. MR
;CHREATE EXPECTED MAINT. REG. 1
#DMD !MCLK ,RKMR1(R2) ;PROVIDE Z2ND UPWARD TRANSIT]ON

RKMR1(R2),T.MR1
E.MR1,T .MR1
45%

;STORE MAINT REG 1
sCHECK IF MAINT REG 1
JYES, CONTINUE

NEMWS, EMW+2

;LOAD ERROR MESSAGE

#43% SESCAPE

MOV
RTS

(SP) ,=(SP}
PC

CORRECT

;LOAD ESCAPE

;SAVE RETURN
JMR1 INCORRECT

BIT
BNE
BIC
MOV
MOV
(MP
BEQ
MOV
MOV

#SW9,aSWR
;CHECK IF LOOP ON ERROR
63%
JYES, LOOP ON ERROR
#MEWD 'MCLK E.MR1 ;SET TRANSISTION
#DMD ,RKMR1(R2)
;CLOCK TRANSISTION
RKMR1T(R2),T.MR1 ;STORE MR1
T.MR1,E.MR1
;CHECK IF MR1 CORRECT
50%
;YES, RETURN
#47% ,SESCAPE
;LOAD ESCAPE FOR LOOP ON ERROR
HEMWS EMW+2
;LOAD ERROR MESSAGE

RTS

(SP) ,=-(SP)

;SAVE RETURN

#SW9,aSWR
63%
$ESCAPE
#2,(SP)
PC

;CHECK IF LOOP ON ERROR
;YES, LOOP ON ERROR
;CLEAR ESCAPE
sADJUST RETURN
JRETURN

#STACK,SP

;FORCE STACK

MOV

;MR1

INCORRECT

031564
031572
031574
03°600
031604

032777
001005
005037
062716
000207

001000

001236
000002

508:

BIT
BNE
CLR
ADD
RTS

6565

031606

012706

001100

63%:

MOv

6568
6569

.SBTTL
i

SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE
ONE BIT OF DATA |S READ SIMULATED. NO CHECKING IS

6572
6573
6574
6575
6576

it
it
RDBIT:

CALL:
JSR
RETURN: RTS
TST
PR.BIT
BNE
108
TST
M1.BIT

031612

000177

147272

47%:

#4618 SESCAPE

REMWZ EMW+2

MOV

43$:
)
43%:

AMCLKE MR
M1.BIT
408
#P(D,E.MR1
#DMD ,RKMR1(R2)
RKMR1(R2,,T.MR1
T.MR1,E.MR1
423

6559
6560
6561
6562
2222
2229

147346

BIT
BNE
BIS
MOV

MOV
(MP
BFQ

001236

044314

8I(
TST
BNE
BIS
MOV
MOV
LMP
REQ

SEQ 0126

22??
031616
(031622
031624

005737
001024
005737

002320

002322

JMP

d$LPERR

;LOOP ON ERROR

DONE BY THIS ROUTINE.

PC,RDBIT
PC

;CHECK JF ONE
JYES, SIMULATE ONE
JCHECK JF PREVIOUS ONE

6577
6578
6579
6580
6581
6582
6583
6584
€585
6586
6587

6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
5600
6601
6602
6603
6604
6605
6606
€607
6608
6609
6610
6611
6612
6513
6614
6615
661€¢
6617
6618
6619
6620
6621
6622

6623
6624
6625
6626
6627
6628
6629
6630
6631
6632

DSKLS CTRL PRTS

MACY1T

K 10
14=-SEP-81
15:14
PAGE 128
3001046
SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE

14-SEP=-81

13:57

031630
031632
031640

001404
012762
000403

000440

000026

031642
031650
031656
031664
031672

012762
012762
012762
012762
000207

007440
000040
000440
000040

000026
000026
000026
000026

0%:

031674
031702
031710
031716
031724

012762
012762
012762
012762
000207

000440
000040
001449
000040

000024
0000¢c6
000026
000026

10%:

012737
011637

031742
002310

005037
032777
001001
000002

001236
001000

104001

001236

147164

5%:

[0}

MOV
MOV
RTS

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

MOV
MOV
MOV
MOV
RTS

#DMD ,RKMR1 (R2)
PC

BY MEMORY PARITY ERRORS.
#10%,SESCAPE
MnvV
;LOAD ESCAPE

MEMERR:

108:

IN ONE

TRAP

IF THE PROCESSOR IN USE HAS MEMORY PAR]I'Y OPTION,
IT WILL BE ENABLED. THIS ROUTINL WILL PROCESS TRAPS CAUSED

MOV

ERROR
CLR

BIT
BNE

(SP) , TRAPPC

;STORE

#SW9,aSWR

JCHECK IF LOOP ON ERROR

1
$ESCAPE

031770
03774
031776
032002
032004
032006
032010
032012

047124

.SBITL
CLEAR INPUT BUFFER
CLRIBF: MOV
#1BUFF R0

Mov

;YES,
;NO,

#STACK,SP

JMP

R1,-(&P)
#400,R7 ;SET
(RO)+
R1

BNE

FORCE STACKk AND TRY AGAIN

RETURN

JINITIALIZE

Q$LPERR

MOV
MOV
CLR
DEC

JREPORT MEM PARITY ERROR
sCLEAR ESCAPE

158

13%:

1%:

STA(CK

;LOOP ON ERRCR

;GET BUFFER POINTER

s STORE R1
COUNT FOR CLEAR
s CLEAR BUFFER WORD

sDEC COUNT
;LOOP UNTIL
JRESTORE R1
JRETURN

COUNT

.SBTTL

MOv
(SP)+ ,R1
RTS
R4
BUILD DATA BUFFER

éEDDAT

BUFFER.

THE

PATTERN SPECIFIED

THE ENTIRE BUFFER IS ALWAYS LOADED

MoV

RO,=-(SP)

;;PUSH RO ON STACK

(LR

(RO) ¢

JELSE

05G130
00040(
00000°
1$:

TRANSITION

JRETURN

MEMORY C(HECK ENABLE

001100

032014
032014
032016
032020
032022
032024
032030
032034
032040
032042
032044
032046
032050

;(LOCK

TRANSITION

#DMD !MCLK !MERD ,RKMR1(R2)

031760
031764

000400

sCLOCK IN ZERO

#DMD !MCLK !MERD ,RKMR1(R2)
;INSERT
#DMD ,RKMR1(R2)
;(LOCK IN ZERO
#DMD !MCLA ,RKMR1(R2)
#OMD ,RKMR? (R2)
PC
JRETURN

MOV

RTI

147120

INSERT TRANSITION
;YES, DO NOT INSERT

.SBTTL

.t
o
031726
031734
031740
031742
0331746
031754
031756

43
:NO,
#DMD !MCLK ,RKMR1(R2)

BEQ

MOV

SEQ 0127

MOV
MOV
MoV
MOV
MOV
(MP
BNE

DEC
BNE
BR

R1,-(SP)
R3,-(SP)
R5,=(SP)
#0BUFF ,RO
#400,R1
(R4) , 41
2%

R1
1%

13%

THE

CALL

IS ZERO

LOADED

INTUO

THE

(400(8)

;;PUSH R1 ON STA(K
;;PUSH R3 ON STACK
:;PUSH R5 ON STACK
;LOAD RO TO POINT TO BUFFER
;SET DATA LENGTH
STEST IF PATTERN 1(ALL ZERQ)
;NO - SKIP
CLEAR OBUFF

DATA

WORDS’.

- aa
.

CZR6ECD RK61T
CIRGFC.P

177777

00000¢

2%:
3%

047064
0000G5
125252

000004

5¢:

6%:

7%:

050130

(R&, 47
(3
8177777
,R3
R3,(RO)+
R1

MOV
MOv

DEC
BNE
BR
(MP
BNE

8%:

2%:
17%:
17¢:

12%:

13%:

BR
(MP
BNE

sTEST

»
%

PAT

(ALL

ONES)

MOV
MOV

DEC
BNE
BR
cmp
BNE

(R4) 44

JTEST

PATTERN &

(HI-LO FREQ MIX)

;TEST IF PAT 3 (MAX PRECOMP PHASE MIx)
;NO - SKiP
;LOAD POINTER WITH ADD OF PAT 3
26O LOAD BUFFER
;GET ADDRESS OF PAT 2

;SET PATTERN LENGTH COUNT
JMOV PATTERN

sDEC COUNTERS

INTO OBUFF

;LOOP UNTIL PATTERN IS MOVED
JSET RS TO START OF BUFFFR
;REPEAT PATTERN THROUGH BUFFER

K1
12%
(R4)+
(SPJ+,R5
(SP)+ ,R3
(SP)+ _R1
(SP)+ RO
R4

DEC
BNE
TST

8 O

(R4)
, 43
9%

#OBUFF ,RS
(RS)+,(RO)+

MOV
MoV

;LOAD POINTER WITH ADD OF PAT 4

(R5)+,(RO)
+
R1
R3

DEC
DEC
BNE

(ALT

:NO - SKIP

#PAT3 RS
108
#PATZ2 ,RS
#16. ,R3

MOV
MOV

PATTERN 5

#PAT4 RS
108

MOV
BR
MOV

;NO SK]IP
JELSE LOAD OBUFF WITH PAT 5

6%
138

BR
cMP
BNE

JTEST

:BUMP PAST PARAMETER

;;POP
;:;POP
;.POP
;:POP

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

RS
R3
R
RO

LOAD '‘L'* REGISTERS
THE

THE

"'L'' REGISTERS ARE LOADED FORM THE PARAMETERS FOLLOWING
SUBROUTINE

AND L.(CST

CALL.

DIAGNOSTIC

IS LOADED WITH THE

MODE

COMMAND,

SET

IN L.MRI

&
¥
¥

CALL:
JSR
.WORD
.BYTE

%
2

SN,
8,

.SBTTL

SEQ 0128

;NO SKIP
JELSE SET BUFFER TO ALL ONES

7$
#125252,R3
g?,(RO)+

MOV
MOV
MOV
MOV
RTS

000204

129

JTEST IF PAT 6 (COMPOLIT ROTATING)
:NO - SKIP
;ELSE GET ADDRESS OF PATTERN %
;GO LOAD BUFFER

MoV

046764
046724
000020

PAGE

Mov

047024

000003

(MP
BNE

L 10

.WORD
.WORD
.WORD

R4 ,L OADRK

CYLINDER

;SECTOR
: TRACK

;BUFFER ADDRESS

;WORD CCUNT
; COMMAND .FORMAT ,DRIVE

TYPE ,QUPPER BUS ADDRESS BITS

000007

15:14

[ Y]

021427

14=~SEP-81

BUILD DATA BUFFER

032052
032056
032060
032064
032066
032070
032072
032074
032100
032102
032106
032110
032114
032116
032122
032124
032126
032130
032132
032136
032140
032144
032146
032152
032154
032160
032162
032166
032172
032174
032176
032200
032202
032206
032210
032212
032214
032216
032220
032222
032224
032226

13:57

30(1046)

6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6569
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688

14=-SEP-81

MACY1T

TIRGEC.P1T

DSKLS CTRL PRTS

elololalelolols]
ONNOOO
=2 -O
N)— =S O=2\NON)
-2
£ NO
SWNWNGO
NOONHININONOO
NNWVIWNO
WM = OWo

JIROECD RK6TT

6689
6690

R
.

ggg;

6693
6694
6695

6696
6697
6698
6699
6700
2;8;

3001046)
14-SEP-81
LOAD "'L"* REGISTERS

(032230
032234
032240

032244
032250
032256
032262
032266
032272

012437
012437
012437

012437
012737
005037
005037
012437
000204

002g74
002266
002264

002262
000040
002272
002270
002260

RETURN:
RTS

LOADRK: MQV
MOV
MOV

6703
6704

SBTTL
o

2582

I x

013762
013762

002262
002264

000002
000004

OPSTRT: MOV
MOV

6710
6711
6712
6713
6714
2;}2

032316
032324
032332
032340
032346
032354

013762
013762
013762
013762
013762
(000204

002266
002270
002276
002272
002260

000006
000010
000026
000016
9200000

MOV
MOV
MOV
MOV
MOV
RTS

013762

002274

6717

2;;8

6727
6722
6723
6724
6725
6726
6727
6728
6729
2;%9

032356
032356
032360
032362
032364
032366
032372
032376
032400
032402

6732
6733
6734
6735

032404
032410
032412
032414

062700
005021
012021
012037

6737
6738
6739
6740
6741
6742

032424
032430
032434
032436
032440
032442

012037
012037
012603
012601
012600
000204

6744

032420

GETREG:

010046

010146
010346
010200
012701
012703
012021
005303
001375

012037

002160
000011

GET

000004

002212

002214

.SBTTL

;LOAD _YLINDER
:
TRACK AND SECTOR
:
BUS ADDRESS
:
WORD COUNT
JSET DIAGNOSTIC MODE
;CLEAR OFFSET
:CLEAR (S2
JLOAD (S1
JRETURN

IN A STARAIGHT

L.DCYL,RKDCYL(R2)
L.DA,RKDA(R2)
L.CS2.RKCS2(R2)
L.MR1,RKMR1
(R2)
L.ASOF ,RKASOF (R2)
L.CST,RKCST1(R2)
R4
THE RK611

REGISTERS

REGISTERS EXCEPT THE DATA BUFFER ARE

IN THE '‘T'* REGISTERS.

MOV

RO,-(SP)

MoV
MoV
DEC
BNE

TRANSFER.

JMOVE THE '""L"'REGISTERS INTO
;CORRESPONDING RK611 REGISTERS.

STORED

R1,=-(SP)
R3,-(SP)
R2.RO
#T.CST1,R

#11,R3
(RO)+,(R1)+
R3
1%

;;PUSH RO ON STACK

;;PUSH R1 ON STACK
::PUSH R3 ON STACK
:GET RK BASE
;GET START OF REGS
:SET COUNT
;GET CS1 THRU DCYL

;LOOP UNTIL DONE

ADD
(LR
MOV
MOV

#4 RO
(R1)+
(RO)+,(R1)+
(RO)+,T.ECPS

;SKIP OVER DB AND SPARE
;CLEAR T.DR
;STORE MR1
:
ECC POSITION

MOV
MOV
MOV
MOV
MOV
RTS

(RO)+,T.MR?
(RO)+,T.MR3
(SP)+,R3
(SP)+ R
(SP)+ RO
R4

;
MR?2
;
MR3
;;POP STACK INTO R3
;sPOP STACK INTO R1
:sPOP STACK INTO RO

mMov

002206
002¢1C

REGISTERS

ALL THE RK611

MOV
MOV
MoV
MOV
1%:

SEQ 0129

L.WC,RKWC(R2)
L.BA,RKBA(RZ)

MmNV

LSBTTL

6718

6736

000020

PAGE 130

(RG)+, L. WC
#DMD , L . MR1
L.ASOF
L.CS2
(R4)+,L.CST
R4

RK611

032274
032302

032310

Mm10

START THE OPERATION
THE INFORMATION IN THE “"L'* REGISTERS ARE LOADED INTO THE

6707
6708

6709

(R4)+,L.DCYL
(R4)+,L.DA
(R4)+,L.BA

MOV
MOV
CLR
CLR
MOV
RTS

002276

WACY?IY1

(RO)+,T.ECPT

ECC PATTERN

"FIRST SHALL BE LAST, LAST SHALL BE FIRST'* SUBROUTINE

[ VY

(IR6E
O RK611 DSKLS CTRL PRTS
CZR6EC.P
14-SEP-81 13:57

6767
5768
6769
6770
6771
6772
6773
6774

6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788

6789

6790
6791

6792
6793
€794
6795
67%
6797
6798

€759
6800

13:57

30(1046)
"FIRST

THE

CONTENTS OF

R3 IS SWAPPED END FOR END,

BECOMES B8IT O AND VICE VERSA,BIT
1

AND

VICE

VERSA,

SEQ 0130

FIRST'® SUBROUTINE

I1.E.

14 BECOMES BIT

ETC.

BIT

CALL:
JSR
R4 ,FSBLVV
WITH R3 LOADED WiTH THE WORD

TO BE SWAPPED

N 10
14-SEF-81
15:14
PAGE 131
SHALL BE LAST, LAST SHALL BE

032444
032444
032446
032450
(32452
032454
032460
(032464
032466
032470

FSB_VV:

MOV
MOV

RO,=(SP)
R1,-(SP)

::PUSH RO ON STA(K
;.PUSH R1 ON STA(K

CLR
MOV
MOV

Ré
#B1T0,RO
#BIT15,R1

;CLEAR R4 FOR SWAPPED WORD
JSET FOR BIT TEST
JSET FOR BIT SET

BIS
ASL
BEQ

R1,Ré
RO
3s

WITH R3 SWAPPED.

MOV
000001

100000

1%:

2%:

032472
032474
032476
032500
032502
032504
032506

BIT
BFQ

(LC
ROR

3%:

032510

032512
032514

032516
032524
032532
032340
032544

032602
000340
000000
002332

032550
032554
032560
(32562
032566
032572

000001
000001

000004
000006
0023%4

;CLEAR CARRY
JSHIFT FOR NEXT BIT

MOV

R4 ,R3

;STORED SWAPPED WORD

g?g

ézP)*.RO

:.POP STACK

MOV
MOV

.LOOP

(SP)+ R4
(SP) +,R1

#208 ,ERRVEC
#PR7 ,ERRVE(+?2
#0,BADPAR
MEMPAR
#MEMBAS ,R3

MOV

#1 R4

20%:

JTEST IF BIT SET
;NO - SKIP

MOV
MOV
MOV
CLR
MOV

16%:

;.PUSH R4 ON STA(CK

;SET CORRESPONDING BIT
JSHIFT FOR NEXT BIT TEST
JLAST BIl7 TESTED - YES - EXIT

PAR(CHK
:

002332
000002

CCOOu2

RO,R3
2%

CHECK

172100

022626
062703
00C2e?
0661 54

R&4,~(SP)

LSBTTL

032574
032576
032600
032602
032604
032616
(32612

RETURN:
RTS

MOV

:.POP STACK
;+POP STACK

INTO R4
INTO R1

INTO RO

FOR MEMORY (HECK ENABLE
sSET

VECTOR FOR MEMORY PARITY

;LOAD REGISTER TO DETERMINE IF
MEMORY (HECK ENABLE AVAILIBLE
JINITIALIZE MASK

JENABLE MEMCRY (HECK

BIS
ADD
(LC

R4, MEMPAR
22 ,R3

:SET FLAG

SNE

ROL

Ré

JCHECK

B8R

16%

22%

JRESTORE TRAP f. 'CFk

q, 4

ADD

(R3)

INO,

ADJUST

STmETH

,5;

FINISHED

SET UP NEXT MEm(Qy PARI'vY MODuLE

(SP)s (SP,o

2/ ,R3

(HE(CK

;LOAD GOOD PAR]ITY
JCLEAR FLAG

#PAR.EN, (R3)

TST

SET

STA(K

B INITNED

[]
Y

14-SEP-81

MACY11

6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766

DSKLS CTRL PRTS

CZROECO RK61T
CIRGEC.P1T

CZREECD RK61T
"IRGEC.P1Y

6801
6802
6803
6804
6805
5806

VACY11

14-SEP-81
15:14
30(1046)
PAGE
CHECK FOR MEMORY (HECK ENABLE

000006

22%:

000002

6856

TST

MEMPAR

ERRVE(C+?

#MEMVEC+2 ,MEMVEC

(LR

MEMVEC+?2

RTS

ROUTINE TO SIZE MEMORY

it 22320

.'t

JSR

RETURN

Je8KTH

JNO, GET NEXT LOCATION
JRESTORE
IF

TRAP (AT(HER

MEMORY (HECK ENABLE

;YES, RETURN
;RESTORE

AVAILIABLE

TRAP (CAT(HER

JRETURN

lRRRRlllRRANEREEEE
RS

PC,$S1Z¢

WITH KT11 OPTION
WITHOULT KT11 OPTION

c %

SEQ 0131

ARl

;*SLSTAD WILL CONTAIN:
.

132

JCHECK

258

MOV

SeCALL:

6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823

#ERRVEC+2,ERRVT

BNE

LSBTTL

6811
6812

163

MoV

CLR

25%:

6808
6809
6810

6855

BNE

000114

4807

== LAST VIRTUAL ADDRESS OF THE LAST BANK
~= LAST ABSOLUTF ADDRESS OF AVAILABLE MEMORY

;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
THE MEMORY MANAGEMENT KEY

;*BIT07 = 0 DON'T USE MEMORY MANAGEMENT
L]

MST BE

SETUP BEFORE

THE

CALL

;*BIT1S = 0 DON'T HAVE MEMORY MANAGEMENT OPT]ON
*

DETERMINED BY ROUTINE

$SIZE:

MOV

RO,=(SP)

;;SAVE RO ON THE

STA(CK

MOV

R2,=(SP)

;ISAVE R2 ON THE

STACK

246
346

446
746
746
737
737
7646
746

701

MOV

000114
010116
000116
000002
000004
000006

MOV
MOV
MOV

000114
000715

00000¢
003776
$KT11:

000004
032736
000004
000200

033032
033030

006200

033032

033030
SMAP :

R3,-(SP)

R4 ,~(SP)
a#114,-(SP)
a#116,-(SP)

::SAVE R1 ON THE STACK
;:SAVE R3 ON THE STACK

:2SAVE R4 ON THE STACK
::SAVE MEMORY ERROR VECTOR PS & PC

#116,a4#114

::]1GNORE PARITY ERRORS WHILE SIZING

MOV

@#ERRVEC,=-(SP)

;.SAVE

MOV
MOV

#RT],a#116

ANERRVEC+2,-(SP)
SP,R0
::SAVE

PRESENT

THE

ERROR

Bk 001

VECTOR PS & PC

STACK POINTER

THE ERRVEC PS TO THE PRESENT PS
TRAP
::PUSH OLD PSW AND PC ON STA(CK
MOV
MOV

(SP)+,3#ERRVE(+2
:2SAVE THE PSW IN Q#ERRVE(+?2
#3776,R1
::SETUP ADDRESS

_WORD
BPL
MOV
TST

200
22SET TO USE MEMORY MANAGEMENT
$CORE
;:BR IF NO
#SKTNEX ,Q#ERRVEC ;,SET FOR TIMEOUT
a4SRO
;:KT11 ARE YOU THERE?

MOV

#1008 ,9#ERRVEC

TSTR

BIS

1008:

R1,=-(SP)

MOV

;sSET

UN AN AN N N NN 8 QMo
NTN N NN NNV o~

032722
032724
032730
032734
032736
032740
032742

146

NANNNNNNN=NON

032652
032654
032656
032660
032662
032664
032670
032674
032702
032710
032714
032720

N~
N

6824
6825
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

DSKLS CTRL PRTS
164-SEP-81 13:57

TST
(0]
MOV
BR
MoV
(MP
(LR
BR
.WORD

(PC)+

::USE MEMORY MANAGEMENT?

#100000,8kT1

;;YES-=-SET KT11 KEY

a#170200
#176200,a¥#85TOP
#200,34$MAP
$MAPRG
#6200,3#8STOP
(SP)+,(SP)+
AN SMAP
$NOMAP
0

:;UNIBUS MAP ARE YOU THERE?
;;YES=-SET COMPARISON VALUE FOR 11/70
::TURN ON MAP INDICATOR
::G0 SET UP MAP REGISTERS
;. COMPARISOM VALUE FOR 18 BIT MAPPING
::CLEAN OFF STACK
.
:IMAKE SURE MAP INDICATOR TURNED OFF
s
8k00O1
;22200 IF MAP PRESENT

;.SET

FOR

TIMEOUT

8k 001

Bk001
Bk001
B8x001
B8k001
Bk001
8x001
BK(091

B8x001

6857
6858

6859
686C
6861
6862
6863

(33032
033034

000000
012703

033044
033046
033052
033054

005022
012722
077304

033056

012702

033040

072702

6864

032054

005046

6866
6867
6868
6869
6870

033062
033066
033074
033076
033102

012703
012762
011622
062716
0773G7

6872

033110

6865

6871

6873
4874
6875
6876
6877
6878
6879

5880

68381
oB82
6883
6884
6885
6886

6887

6888

6889

6890

033104

000037

170200

000074

000010
077406

177600

012737
012737
000401
022626
005237
012737
105

033130
000060

000004
172516

177572
033204
033030

000004

(C33152
033160
033166
033172
033176
033202

012737
013737
005737
062712
023712
1013721

033226
000006
143776
000040
033032

(33206

005037

177572

033112
033120
033126
03313C
(033132
033136
033144

033150

033204

033212

033216

100006

011202

105737

033030
172516

100034

005037
000431
013704

6895
6896
6897

033236
033242
033244

032704
001360
000002

000001

012737
005002

033304

6899
6900
6901
6902
6903
6904
6905
690€¢

6907

6908
6909
6910
6911
692

033232
033246

033254
033262
033264
033270
033274
033276
033302
033304

033310

033314
033316
033322
033326
03333¢

010437
042737

062701
062702
005711

022701
001370
162701
162702
010006
012637
012637
012637
012637

000114
9000116

JJFILLED WITH APPROPRIATE
:2SET UP COUNTER

(OMPARISON VALUE
Bk 001

100$:

(R2)+
#74,(R2)+
R3,100%

::LOAD ALL MAP REGISTERS
;:WITH THE VALUE 17000000
;:D0O ALL 31 REGISTERS

8x001
Bk 001
B8k001

1%:

004000
000040

177776
00400C
000040
000006
000004
000116
000114

(LR
MOV
SOB

CLR

-(R2)

J2SETUP KIPARG FOR TESTING

;2SETUP KIPAR7 FOR 1/0

828 ,3#ERRVEC
;:CATCH TIMEOUT [F NO SR3
#60,3#SR3
;oENABLE 22 BIT MODE AND UNIBUS MAP
3s
;:;THIS PDP=11 HAS A SR3 REGISTER
(SP)+,(SP)+
;:CLEAN OFF THE STACK==NG SR3
a#SRO
;;TURN ON MEMORY MANAGEMENT
#SKTOUT ,Q#ERRVEC ;;SET FOR TIME oOuT
a4 SMAP
;1 1S MAP THERE?

MOV
MoV
TST
ADD
(MP
BH]

#EMMOUT ,a# 11
J;SET UP MEMORY ERROR VECTOR
A¥ERRVEC+2,a#116 ;:LOCK OUT INTEFRUPTS
aN143776
;;TRAP ON NON-EX-MEM
#40,(R2)
;sMAKE A 1K STEP
a#8STOP, (R2)
::LAST ONE?
43
;:NO--TRY |IT

(LR

a#SR0O

BPL

$51Z2EX

MOV

000004

;;LOAD EIGHT "'PAR.'S'" AND EIGHT 'PDR.'S"
;:PDR = 4K, UP, READ/WRITE
::LOAD '"PAR'’
:;UPDATE FOR NEXT 'PAR"
;.LO0P UNTIL ALL EIGHT ARE LOADED

; :ADDRESS OF FIRST '‘PAR"

MOV
MOV
B8R
(MP
INC
MOV
TSTR

(LR
BR
$MMOUT: MOV

032736

#“D8,R3
#776406,~40(R2)
(SP),(R2)+
#200, (SP)
R3,1%

l1?7600.‘(R2)

BPI

8x001

:oINITIALIZE FOR "'PAR'' LOADING

MOV

MOV
MOV
MOV
ADD
SOR

;ISTART WITH MAPLO

~-{SP)

#KIPAKRQ,R2

(LR

)
%
3%:

#170200,R?2

MoV

TSTR

177744

100000

MOV

£ TOUT: MOV

177744

SE3 0132

0
#37 R3

000200

033220
033224
033226

6898

177740

(N
PAGE 133

$STOP:
.WORD
$SMAPRG: MOV

172340

012742

005042

30(1046)
14-SEP-81
15:14
ROUTINE TO SIZE MEMORY

SNOMAP:

6891
6892
6893

6894

MA(YTT

BIT
BNE
RTI

(R2),R2

;IGET LAST BANK+1

AN SMLP

::1S MAP THERE?

d4SR3
$SIZEX
Q#177744 RS

;:TURN OFF MAP

R4,a#177544

#1,R4
$KTOUT

SKINEX: BIC

#100000,8KT17

$SI1ZEX: SUB

#40,R?2

$CORE:

MOV
CLR
1%:
ADD
ADD
TST
(MP
BNE
$CROUT: SUB
MOV
MoV
MOV
MOV
MOv

; sNO=-SKIF

BK001

;:TURN OFF MEMORY MANAGEMENT

B8k001

6x001

Bk 001

8k001

8k 001

2 :NO=SKIP

8k001

;s SAVE MEMORY ERROR REGISTER

B8k001

::MEMORY TIMEOUT?
JIYES-EXIT
;:MUST BE PARITY ERROR-IGNORE

Bx001
B8k001
&k 001

8x001

;:CLEAR BITS IN REGISTER

::KT11 NON-EXISTENT

#$CROUT ,a#ERRVEC ;.SET FOR TIMEGUT
R2
;. SET UP BANK
#4000,R1
;o INCREMENT BY 1K
#40 ,R2
;.
1K STEP
(R1)
;. TRAP ON TIME OUT
177776 ,R1
;. LAST ONE
18
:.NO=-=TRY AGAIN
#4000,R1

. :DROP BA(K

RO, SP
s RESTORE THE STA(CK
(SP)+ @#ERRVEC+2 ;RESTORE ERROR VECTOR
(SP)+ ,@#ERRVEC
(SP)+,a#116
;cRESTORE MEMORY ERROR vE(TOR
(SP)+,a#'14

B8x001

8x 001

“IRAE(D RKOHIT DSKLS CTRL PRTS
“IR6EC P
14-SEP=-81 13:57

14-SEP=-81 13:57

6913
6914

033336
033342

010137
010237

6918
6919

033354
033356

012601
012600

6921
6922
6852

033362
033364

000000
000000

6915
69'6
6917
6920

033346
033350
033352
032360

0126064
012603
012602

'4-SEP-81

15:14

ROUTINE TC SIZE MEMORY

033362
033364

MOV
MOV

R1,$LSTAD
R2,$LSTBK

MOV
MOV

(SP)+ R
(SP)+.RQ

MOV
MOV
MOV

000207

RTS

D 11

PAGE 134

(SP)+ R4
(5P) + K3
(SP)+.R2

S:RESTORE R&
S *RESTORE R3
S *RESTORE R2

;:CONTAINS THE LAST ADDRESS
SSCONTAINS THE LAST BANK

2222222222222 22Z223X222322 3222322 RR2 2R 22 2R R g XX X222l R

6926
6927
6928

S#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTMS. IT WILL INCREMENT
S~AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(D!SPLAY<7:0>"
<«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:(8>

6930

LeSWi6=]

LOOP ON TEST

6932

s *SWw09=1

LOOP ON ERROR

6929

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

€931

;-sw11-1

6933

;'Su08:1

6935

€934

5936
6937

6938
6939

6940
6941

6942
6943
6944
6945
6946

6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964

6965

6966
€967
£968

8K001

S *RESTORE R1
S *RESTORE RO

$LSTAD: .WORD
0
$LSTBK: .WORD
0
.SBTTL
SCOPE HANDLER ROUTINE

2925

::LAST ADDRESS
S LAST BANK

SEQ 0133

;*CALL

033366

(033366
033370

033376

104407
032777

001131

$SCOPE:

040000

000416

033402
033406
033414
033420
033426
033426
033430
033434

013746
012737
005737
012637
000500
022626
012637
000440

000004
033426
177060
000004

033436
033444
032446
033450
033454
033456
033462
033464
033470
033472
033474
033500

032777
001421
005046
117716
001414
022716
002411
011637
005316
006316
062716
013637

000400

033506
033510
033514

005726
105737
001421

033504

000466

'%:

LOOP ON TEST IN SWR<7:0>
;:SCIPE=]OT

SCOPE
CKSWR
BIT

BNE

#BIT14,aSWR

$SOVER

s:TEST
FOR CHANCE IN SOFT=-SWR
::LOOP ON PRESENT TEST?

SYES IF SWl4=1

;aane8START OF CODE FOR THE XOR TESTERMAMAA

033400

033436

145542

INHIBIT ITERATIONS

$XTSTR: BR
000CH4

000004

145464

000036

145474

;:1F RUNNING ON THE ‘'XOR'' TESTER (HANGE
SSTHIS INSTRUCTION TO A "'NOP'' (NOP-240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
SSSET FOR TIMEOUT
P:TIME OUT ON XOR?

MOV
MOV
TST
MOV
8R
CMP
MOV
BR

QMERRVEC,-(SP)
#5%, a#ERRVEC
a#177060
(SP)+,a#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+.3#ERRVEC
7$

CMP
BLT
MOV
DEC
ASL
ADD
MOV

236, (SP)
8%
(SP),$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP)+,SLPADR

::CHECK THE NUMBER IN THE SWR
:*BRANCH IF TEST NUMBER IS OUT OF RANGE
S 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

ST
TSTR
BEQ

(SP)+
$ERFLG
3$

*:CLEAN THE BAD TEST NUMBER OfF OF THE STACY
**HAS AN ERROR OCCURRED?
::BR IF NO

::RESTORE THE ERROR VECTOR
©:GO TO THE NEXT TEST
¥
SSCLEAR THE STACK AFTER A TIME OUT
::RESTORE THE ERROR VECTOR
::LOOP ON THE PRESENT TEST
6% : :#44RREND OF CODE FOR THE XOR TESTERA###A
BIT
#B1T08,aSwR
::LOOP ON SPEC. TEST?
BEQ
2$
$:BR IF NO
CLR
<(SP)
S CLEAR A TEMP. LOCATION
MOVB
3SWR, (SP)
S:PICKUP THE DESIRED TEST NUMBER
BEQ
8$
::BRANCH IF BAD TEST NUMBER IN SWR

001102
033700
001106
001103

8%:
2%:

B8R

$OVER

::GO LOOP ON THE TEST

YTM

“IREEC.PT

MACY11 30(1046)

CIRGECD RKETT DSKLS CTRL PRTS

6969
6570
6971
6972
6973

6974
6975
6576
€977
6978
63979
6980
€981
6982
6983
6984
5985
5986
6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
€999
7000
7001
7002
7003
7004
7605
7006
7007

7008
7009
7010
7011
7012

7013
7014

7015
7016
7017
7018
7019
702C
7021

7022
7023
7024

033516
0335246
033526
033534
033536

033544
033546
033552
033556
033560
033566
033570
033574
033576
033602
033610
033612
033620
033626
033632
033640
033644
033650
033654
033662
033670
033674
033676
033700
033700
033702
033704
033706
033710

033712
033714

033716
033720
033722

033724
033726
033730
033732
033734

033736

033740

033742
033744
033746
033750
(033752
033754
33756

033760
033762
033764

14-SEP-81

13:57

123737
101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024

001115

(01103

001000

145404

00110

001106

30(1046)

14~SEP-81

SCOPE HANDLER ROUTINE

78:

(MPB
BHI
BIT
BEC
MOV

TEST 1
TEST 2

TST6+2
TST7+2

;o STARTING ADDRESS OF
;o STARTING ADDRESS OF

TEST 6
TEST 7

.WORD
LWORD
LWORD
WORD

TST13+2
TST14+42
TST1542
TST16+2

;. STARTING
;s STARTING
;. STARTING
;:STARTING

.WORD

TST20+2

s STARTING ADDRESS OF

TEST 13
TEST 14
TEST 15
TEST 16
TEST 17
TEST 20

TST22+2
TST23+2
TST24*2
TST25+42
TST26+
TST27+2
TST30+2

;s STARTING
;;STARTING
;. STARTING
.« STARTING
. :STARTING
;:STARTING
;. STARTING

TEST
TEST
TEST
TEST
TEST
TEST
TEST

TST33+2

. ;STARTING ADDRESS OF

.WORD
-WORD

001104
001234
000001
033676
001102
001102
001106
001110
001236
000001
001102
001106

001104
001104
001234

001254

001115
145252

LWORD
.WORD
.WORD

006624
007140
007432

.WORD
LWORD
.WORD

(12716

.WORD

010160
01C706
011434
0121462
013452

014200

.WORD

014514
015026
015534
91€270
016604
017266
017602

WORD
.WORD
.WORD
LWORD
.WORD
.WORD
LWORD

221220

.WORD

020352
920662

SEQ (134

;s STARTING ADDRESS OF
. STARTING ADDRESS OF

006112
006362

004444
005056
005470

001256

135

TST1+2
TST2+2

48
145352

PAGE

;;MAX. ERRORS FOR THIS TEST OCCURRED?
;:BR If NO
;;LOOP ON ERROR?
;:BR IF NO
;;SET LOOP ADDRESS TO LAST SCOPE

003414
004032

012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

004000

$ERMAX SERFLG
33
#B1709,aSwR
4%
$LPERR,SLPADR
$OVER
$ERFLG
$TIMES
1$
#8IT11,aSwR
1%
$PASS
1%
$ICNT
$TIMES,$I1CNT
$OVER

BR
(LRB
CLR
BR
3%:
BIT
BNE
18T
BEQ
INC
(MP
BGE
1%:
MOV
MoV
$SVLAD: IN(B
MOvB
MoV
MOV
CLR
MOVB
S$OVER:
MOV
MGV
RTI
SMX(NT: 2000.
$:WCSTBL:
WORD
LWORD

001103
001234

15:'4

.WORD
LWORD

#1,81CNT
SMXCNT,$TIMES
$TSTNM
$TSTNM, STESTN
(SP) ,$LPADR
(SP) ,$LPERR
$ESCAPE
#1,$ERMAX
$TSTNM,aDISPLAY
$LPADR, (SP)

TST3+2
TST4+2
TST5+2

TST10+2
TST11+2
TST12+2

TST17+42
TST21+¢2

TST3142
TST32+2

;:JFRO THE ERROR FLAG
;. CLEAR THE NUMBER OF [TERATIONS TO MAKE
;.ESCAPE TO THE NEXT TEST
::XNHIBIT ITERATIONS?
JBR IF YES
,,IF FIRST PASS OF PROGRAM
;
INHIBIT ITERATIONS
: INCREMENT ITERATION COUNT
;s CHECK THE NUMBER OF ITERATIONS MADE
;;BR IF MORE ITERATION REQUIRED
;oREINITIALIZE “HE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX
:;SAVE SCOPE LOOP ADDRESS
;s SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
. .FUDGE RETURN ACDRESS
;.FIXES PS
s ;MAX. NUMBER OF ITERATIONS

;;STARTING ADDRESS OF
;:STARTING ADDRESS OF
;. STARTING ADDRESS OF

;. STARTING ADDRESS OF
;s STARTING ADDRESS OF
;- STARTING ADDRESS OF

ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF

. STARTING ADDRESS OF
;. STARTING ADDRESS

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF
OF

;o STARTING ADDRESS OF
;. STARTING ADDRESS OF

TEST 3
TEST 4
TEST S

TEST
TEST
TEST

10
TM1
i2

TEST

22
23
24
25
26
27
30

TEST 3
TEST 32
TEST

MACY11

TZR6EC. PV

DSKLS ¢ TRL PRTS

ZROE(CD RkO1T

033766
033770
033772

021550
022104
022460

15:14
30(1046)
14=SEP=81
SCOPE HAND_ER ROUTINE

Ai2

222222

LSBTTL
233774
(34002
034004
034010
034012
034016

032777
001405
105737

001402
013716
000002

001000

165136

.WORD
.WORD
.WORD

B8EQ

5%:
LSBTTL

SEa 0135

;:STARTING ADDRESS OF TESTM 34
;o STARTING ADDRESS OF TEST 3%
AR

#5W9,3Swh

TSTR

$ERFLG

Mov

$LPERR, (SP)

BEQ

001110

136

;s STARTING ADDRESS OF
ARl

TEST

3¢

RRRXRR

LOOP ON INTERNAL ERROR

SCOP1%8: BT

001103

TST34+2
TST35+2
TST36+2

F1
PAGE

JCHECK [F LOOP ON ERROR
JNO RETURN
:(HECK 1F ERROR OCCURED
:NO, RETURN
;G0 BACK TQ BEGINNING OF LOOP

:RETURN
RT]
APT COMMUNICATIONS ROUTINE

7054
7055

034110
024114
034116

7060
7061
7064
7065
7066
7067
7068
7069

NDOMNIN
NS NN
NOWW
NwINN

—L OO =00
WONOCO
— —

N=
=2 NOC
NONSHEN=2O
WNWWWNIWES
&
N=NONOON

034264
034262

$ATY1:

000001

034264

$ATY4L:
$ATY(:

$ATY3:

034262

000001

001270

000100

001271

000004
000002
01250

000004

001264

7070

001250

006004
000002

034174
000004

1%:

3%:

108

001250

034240

000004
000002
001250
034264

1'¢:

001252
000004
12%:

;.TO

SATY(
#1,8FFLG

;:TO ONLY REPORT FATAL ERRCR

REPORT

FATAL

ERROR

2:TO TYPE A MESSAGE

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

;;PUSH RO ON STACK
2:;PUSH R1 ON STA(K

BEQ

BR
;;IF NOT.
;s OPERATING UNDER APT?

$MFLG

:2SHOJLD TYPE A MESSAGE?

(MPB

#APTENV, SENV

B]TR

#APTSPOOL ,$ENVM ;. SHOULD SPOOL MESSAGES?
BR
3%
J;IF NOT:

ADD
TST
BNE
MOV
TSTR
BNE
SuB
ASR
MOV

@4 (SP)
RO

#2,4(SP)
$MSGTYPE
1
RO, $MSGAD
(RO)
+
2%
$MSGAD ,R)
RO
RO, $MSGLGT

;:JF NOT:

;:GET MESSAGE ADDR.

;:BUMP RETURN ADDR.

;:5EE IF DONE W/ LAST XMISSION?
WALT
J0]F NOT:
;sPUT

ADDR

IN MAILBOX

;;FIND END OF MESSAGE

MOV

#6 ,SMSGTYPE

2:SUB START OF MESSAGE
2.GE7 MESSAGE LNGTH IN WORDS
;;PUT LENGTH IN MAILBOX
;;TELL APT TO TAKE MSG.

MOv

84 (SP) ,4%

;:PUT MSG ADDR

B8R

ADD

#2,4(SP)

IN JSR L INKAGE

; ;BUMP RETURN ADDRESS

JSR
.WORD

PC.$TYPE
0

177776, -(5P)

::PUSH 17776 ON STACK

TSTB

$FFLG

::SHOULD REPORT

TST

$ENV

$MSGTYPE

. cRUNNING UNDER APT?
BR
J:1F NOT:

MOV
5¢:

#1,8FFLG

#,IMFLG

MOy
MOV

BEQ

001270

7076

BR
MOVB

MOV

A ¥

034264

7072
7073
7074
7075

MOVB

BNE

2%:

001266
000004

177776

MOVR

TSTB

035044

7071

7080

001425

0090001
0000C1

001264

7063

7077
7078
7079

—_,O - —d

CIARNANNNRANANNNARNAANRANRANRARAR
PN RANRNNANRNAARNRANRNTAAARRC AR ARSCOR NS

034020
034026
034034
034036
034044
034044
034046
034050
034054
034056
034064
034066
034074
034076
034102

BEQ
8EQ

BNE
MOV
ADD
INC
CLRB

12%

11%
a4 (SP) ,SFATAL
82,4 3P)
$MSGTYPE
$FFLG

S:CALL TYPE MACRO

;01F NOT:

FATAL

ERROR?

JsFINISHED LAST MESSAGE?

WAIT
JolF NOT:
J:GET ERROR #
;:BUMP RETURN ADDR.
;;TELL

APT

TAKE

;.0 EAR FATAL FLAG

ERROR

VALY

2
X Y

CIRGE(O RKOYT DSKLS CTRL PRTS
14-SEP=-81 13:5°
TIRGEC.P1Y

7081

7082

7083

7084

7085
7086

7087

7088

7089

DSK
‘4

CTRL PRTS
-81 13:5°

034244
034250
034256
034256
034260
034262
034263
034264

MACY1T

16-SEP-B1

30(7046)

APT

15:14

COMMUNICATIONS ROUTINE

034263

CLRR
CLRB

034262

MOV
MOV
RTS

$MFLG:
SLFLG:
$SFFLG:

6 1

PAGE

SEQ C136

$LFLG
$MFLG
(SP)+ k1

J:CLEAR LOG FLAG
;2CLEAR MESSAGE FLAG
::POP STACK INTO R1

;JRETURN

JIFATAL

(3P)+ k0

;J;POP STACK

0
0

L.BYTE
.BYTE
BYTE

137

INTO RO

JcMESSG. FLAG
;:L0G FLAG
FLAG

APTSI2E=200

7090

APTENV=001
APTSPOOL=100
APTZSUP=040
.SBTTL
ERROR HANCLER ROUT "Nt

7091

7092

7093

000040

7094
7095
7096

2232228220222l
RRRRRRRRR
RS2
R R 2

'THIS

;*SAVE

ROUTINE

THE

WILL

ERROR

INCREMENT

THE

ITEM NUMBER AND

ERROR

FLAG AND

THE ADDRESS OF

THE

:*AND GO TO TYPERR ON ERROR
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
;*SW15=1
;*SW13=1
INHIBIT ERROR TYPEOUTS
:+SW10=1
BELL ON ERROR
;+Sw09=1
;«CALL
%

034266
034266
034270
034274
034276
034304
034312
034314
034320
034324
034330
034336
034344
034352
034354
034360
034364
034364
034372
034374
034402
034406
034407
034410
034412
034416
034420
034422
034424

104407

105237

001775
013777

032777
001402
104401

005237
011637

162737
117737

032777
001004
004737

$ERROR:

001103

/$:

001102
002000

001112
001116
000002

144554
020000

034466

000001

001270

001114
03403¢

034406

100002

000000
104407

032777

IN(
MOV
SUR
MOVB

JSR

122737

113737

TYPE

BIT
BNE

001245

004737
000
000
000777
005777

(KSWR
INCB
BEG

BIT

106401

001007

ERROR

BEQ
1%:

TYPE

14452¢

; . ERROR=EMT

AND N=ERROR

2 TEST

FOR

#BIT10,3SWR
1%

CHANGE

IN SOFT-3WR

;;BELL ON ERROR?
;.NO - SKIP

LSBELL

:JRING BELL

(SP) ,$ERRP(
#2,SERRPC
@$ERRP(C,$ITEMB
#RIT13,35WR

;sGET ADDRESS OF

PC,1YPERR

::G0

$ERTTL

20%

LS$CRLF

;s COUNT

THE NUMBER OF

;:SKIP TYPEQUTS
TO USER

ERROR

JSR
BYTE

SC,SATVL

: :REPORT FATAL

MOvVB

BYTE

TST

oSWR

ERROR

INSTRUCTION

[TEM (ODE

ROUTINE

IN APT MODE

SiNO,SKIP APT ERROR REPORT
$:SET ITEM NUMBER AS ERROR NUMBER
ERROR TQ APT

22%

::APT ERROR LOOP

3¢

S:SKIP IF CONTINUE
::HALT ON ERROR.

#B]70G,aSwR

ERRORS

;. STRIP AND SAVE THE ERROR
::SKIF TYPEOUT IF SET

; ;RUNNING

2%
$ITEMB,21%

(KSWR
BIT

[TEM NUMBER

$ERFLG
2 SET THE ERROR FLAG
7$
;;DON'T LET THE FLAG GO TO ZERO
STSTNM, aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

#APTENV, SENV

HALT

001000

(MPR
BNE

8PL
144506

(OUNT,

LOOP ON ERROR

MOV

001240

ERROR

ERRCR CALL

: JHALT ON EPROR
::TEST

FOR

CHANGE

IN SOFT=SwR

::LOOP ON ERROR SWITCH SET?

CYeE
i~

CIRGECD RK61
TIR6EC.PIT

7137
7138
7139
7140
7141
7142

7143
7144

7°45

7146
7147

7148
7143
7150
7151
7152
7153
7154

036432
034434
034440
034444
034446
034452
034452
0346460
034462
034464
034464

14=-SEP-B81

001402
01371¢
005737
001402
013716

C227%7
001001
000000

13:57

001110

001236

023276

000002

7159

7160
7161
7162

7163

7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174

7175

7176

7177

7178
7179
7180
7181
7182
7183
7184
7785
7186

7187

7188
7189
7190
7161
7192

;:BR IF NO

TST
BEQ

$ESCAPE
5%

;s CHECK FOR AN ESCAPE ADDRESS
::BR ]F NONE

(MP
BNE

HALT

$LPERR, (SP)

$SESCAPE, (SP)
#SENDAD , w#s?
6%

RT]

2:FUDGE RETURN FQR LOOPING

;:FUDGE RETURN ADDRESS FUR ESCAPE
JcACT=11 AUTO=-ACCEPT?
:iBRANCH IF NO
2 YES

:;RETURN

)

LSBTTL
TYPE ERROR ROUTINE
s*ENTRY JSR P(,TYPERR
J*RETURN RTS PC
*

*«THIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE wHI(H

:«ERROR IS TO BE REPORTED. [T THEN USES THE "ERROR TABLE'' ($ERRTR)

7155

7156
7157
7158

SEQ C137

MOV

6%:

PAGE 138

BEQ
MOV

000042

H 11

:«ENTRY TO DEFINE WHAT INFORMATION [S TO BE REPORTED CONCERNING

:*THE

ERRNR,

.'"'t'.Q'Qfit""ttfit't't'i't"tttt."t'ltt.t!tttittt'it.tttttt'.tt

034466
034470
034476
034504
034510
034514
034516
034520
034522
034524
034530
034534
034536
034542
034544

034546
034552
034554
034560
034562
034564
034566
034570
034572
03457¢
034576
034607
034604
034606
034610
034612
034614
034616
034620

104413
113737

TYPERR:

042737

SAVREG

MOVB

001330
034544

1%:

034562

2%:
3%:

001245
L%

5%:

001245

ASL
ASL
ASL
ADD
MOV

RO
RO
RO
#$ERRTE RO
(RO)+,2%

"YPE
TYPE

.SCRLF

.WORD
MOV
BEQ
TYPE
TYPE
.WORD

MOV
BEQ

TYPE

MOVB
1ST8

TST
BEQ
TST

1¢:

JENTER ERROR NUMEER

#177400,R0
RO

(LR
MOV
MOV

'08:

$ITEMB,RO

BI(
DEC

BEQ

001245

;SAVE

#177400,$TESTM

MOvs

113700

042700
005300
006309

STSINM,STESTN

8IC

BNE
Mov

TYPOC

0
(RO)+,48
5%
.SCRLF

{(RO)+ R
20%

R&
(RO) +,RO
{RO)+,R2
.SCRLF

TEST NUMBER FOR REPORT

;CLEAR UNUSED BiTS

;CLEAR UNUSED BITS
;FORM INDEX FOR ERROR TABLE

;FORM ADDRESS OF
JGET EM POINTER

JRRANCH IF

ERROR ENTRY

THERE ISN'T ONE

;TYPE CARRJAGE RETURN LINE
;TYPE ERROR MESSAGE (EM)

FEED

JEM POINTER GOES HERE
JGET DH POINTER
JBRANCH IF THERE ISN'T ONE
;TYPE CR-LF
;TYPE DATA HEADER
;DH POINTER GOES HERE

;GET DT POINTER
JBRANCH IF THETE ARE NONE
JRESET INDENT SWITCH
;GET DF POINTER
;STORE NUMBER OF DH'S

(RQ)+,R3

JGET € STORE NUMBER OF DATA WORSS

R3
14%

;TEST IF ANY DATA FOR THIS HEADER
:NO - SKIP CATA PRINT

(RO) +

Ré

129
@a(RTM)+,=-1SP)

;BUMP PAST FORMAT WORD

sCHECK

INDENT WORDS

JYES, GO INDENT
sPUT FIRST DATA WORD ON STA(K
JTYPE

"IR6EC.P11

30(1046)
14~SEP=-B1
15:14
ROUTINE
HANDLER
ERROR

t vy

TIRGE(D RK611 DSK.S CTRL PRTS

MACY11

7193

005302
001403
104401
000771

7195

716¢

7167

7198
7199

7200
29

034622
03«5624
034626
034632
034634
034640
034642
034644

7218

034646
034650
034¢52
034656
034669
0346662
034664
034670
034672
034K74
034700
034702
034704
C34710
034716
034720
034726
034730

7222

034734
034740
034742

7202

7203
7204
7205
7206

7207
7208

7209
7210

7211

7212
7213
7214
7215

7216
72°7
7219
7220
7221

7223
7224

7225
7226

7227

034750

034754
034760
0347¢2

104401

005710
001401
055104
005302
003414
012037
001751
005704

0014G2
1064401
104401

000000
104401

000740
104414

061419

12%:

007245

13%:

034672

041410

000024

00231«

104401

061413

005737
001407
012737
012706

000042

OOOOCOOOOOO0O
OO

002404

000019

JMORE DH'S?
;NO=BRANCH

JGET NEXT DH POINTER
;IF NO HEADER GET DATA
JINDENT?
;NO=-BRANCH
J INDENT

. WORD

10¢

;LOOP

ERRCNT

s INCREMENT ERROR (OUNT

25$%

;NO,

RETURN

;NO,

RETURN

LSPACE¢

;TYPE

SCRLF

INC

#SW12,aSWR

;CHECK IF ABORT AFTER 20 ERRORS

(MP
BH]S

#20. ERRCNT

TST
BEQ

JMP

$EOP

sCHECK IF EROR THRESHOLD EXCEEDED

25%
LABORT

;TYPE 'PROGRAM HAS BEEN ABORTED BECAUSE

ERROR THRESHOLD EXCEEDED'
;CHECK IF IN CHAIN MODE
JNO, HALT
<FORCE END OF PASS COUNT TO ONE FOR ABORT

308

MOV
MOV

#1,8EOPCT
#STACK,SP

HALT
RTS

JINITIALIZE STACK
JBRING

CTRHI T:

MOV
MOV

$BASE
,R2

#CLR,RKCS2(R2)

$ESCAPE
SERFLG

CLR
CLRB

MOV

#1,8ECPCT

LOPROO?

5¢:

HAL
T

OBITL

TYPE

JMP

:*ROUTINE

ROUTINE

[N (HAIN

JSET '611 BASE
sCLEAR SUBSYSTEM
;CLEAR ESCAPE
;CLEAR ERROR FLAG

;TYPE

HALT MESS*GE

$E0P

JTEST IF MONITOR PRESENT
;NO SK]P
;FORCE END Of PROGRAM
;JUMP TO END OF PASS

START1

JHALT PROGRAM
JRESTART IF (ONTINUE

JMP

IN NEXT PROGRAM

:CLEAR STACK

#STACK,SP

Mov
TYPE
TST

BEQ

;DH POINTER GOES HERE

CONTROLLED PROGRAM HALT

c*THE

SEPARATOQRS

:CHECK ]F NEXT HEADER AVAILIARLL
sNO, DO NOT (CHANGE [NDENT
;CHANGE INDENT

LOBTTL

:TYPE

R4
17%

BIT
BEQ

02373«

DATA WORDS

JTYPE <CR><LF>

(RO2+,18%
10%

TYPE

7228

;MORE

BEQ
TST
BEQ

RESREG

023134

SEL (138

;LOOP

20%

TYPE
TYPE

c0%:

139

;NO=-BRANCH

148
R4
R?

TYPE

144222

000001
023106

LSCRLF
(RO)

MOV

i7%:

0023+
010000

001324
00500C
001236
001103
001100
041345
000042

TST

PAGF

118

BES
(oM
DEC
BLE

001245

000001
011100
023106

TYPE

B8R
TYPE

1>%:

[

15:°4

R3
13%
SPACEZ2

DEC
8EQ

14%:

005237
032777
001421
022737
103015

TYPE

7194

13:5

164=SEP-81
ERROR ROUTINE

30(1046)

]

14-SEP-81

MACY1T

L X

“I6E( P11

TIRGELD RKEYT DSKLS CTRL PRY 5

ROUTINE
R

TYPE
wi.

AR RN

ARl

RZRAR

XRER

2N ]

ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A [ BYTE.
INSERT A NUMBER OF NuULL CHARA(CTERS AFTER A LINE FEED.

7249

7251
7252

;")
cw

Te0R

7257

7262
7263
7264

7265

7266
7267
7268
7269
7270
7271
7272
7273
7274
7275
7276
7277

7278
7279
7¢80

035044

035050
035052
035054

035056

035060
035064
035072
035074
035102
035104
035110
035114
035116
035124
035126
035130

035132
035134
035136

035142
035144
035150
035152

7287

035162

7288
7289
7290

7291
7292
7293
7294
7295

7296
7297
7298
7299
7300

7301
7302
7303
7304

J 1

PAGE

140

SEQ C139

SNULL COMTAINS THE CHARACTER TO BE USED AS THE FILLER CMARA(TER.
S$FILLS CONTAINS THE NUMBER OF FILLER (HARACTERS REQUIRED.
$FILLC CONTAINS THE CHARA(CTER TO FILL AFTER,

USING A
TYRE

TRAP

INSTRUCTION

.MESADR

JsMESADR

$TPFLG

;:1S THERE A TERMINAL?
;:;BR IF YES

FIRST

ADLCRESS OF

AN AS(CIZ

STRING

TYPE

ME SADR

7281
7282
7283
7284

7285
7286

15:14

ROUTINE

DeCALL:

7253

7254
7255
7256

7261

TYPE

164-SEP-81

JeNOTET:
J*NOTE?2:
J*NOTE3:

7250

7258
7259
7260

30(1Ca6)

105737
100002

000000
000430
010046
017600

001270

132737

000100

001271

001011

001405
010037
004737
000000
132737
001003

035114
034026
000040

MOV
MOV

CMPB
BNE
BITR
BEQ

MoV

001271

61%:
62%:

2%:

112046

001005
005726
012600
062716
000002

000002

60%:
:
3%

122716

000011

122716

000200

001430

035164
035166
035172

001245
105037
000755
004737
123726
001350
013746

035212
035216
035220
035224
035230

BPL
HALT
BR

122737

001096
005726

035206

TSTB

000002
000001

035156
035160

035174
035200
035204

001157

035374

001154

105366

000001

105337

035256
035374

002770
004737
000770

5%:
6%:

RO,=-(SP)

@2(SP) R0

lggTENV.SENV

#APTSPOOL
, $SENVM

62%

RO,61%

PC,$ATY3
0

#APTCSUP,$ENVM

;s LEAVE

HERE

TERMINAL

::SAVE RO

;:GET ADDRESS OF ASCIZ STRING
;;RUNNING

IN APT MODE

;:NO,GO CHECK FOUR APT (ONSOLE
;.SPOOL MESSAGE TO APT
;sNO,GO CHECK FOR CONSOLE
;:SETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APTY
;sMESSAGE ADDRESS

MOVB
BNE
TST
MOV
ADD

(RO)+,=(SP)
48
(SP)+
(SP)+,R0
#2,(SF)

;.APT CONSOLE SUPPRESSED
J:YES,SKIP TYPE OUuT

CMPR
BEQ
(MPB

#HT,(SP)

:;ADJUST RETURN P(
;;RETURN
;BRANCH IF <HT>

#CRLF
, (SP)

:;BRANCH IF NOT <CRLF>

TST
TYPE

(SP)+

;:POP

$CHARCNT

SFILLC,(SP)+

;sCLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER
;1S 1T TIME FOR FILLER CHARS.?

SNULL ,=(SP)

J.GET # OF

RT]

$CRLF
CLRB
BR
JSR
(MPB
BNt

MOV

JoHALT

60%

BNE

104401

035256
001156

JSR
.WORD
BIT3
BNE

DECB
BLT
JSR
DECB
BR

8%
5%

PC,$TYPEC

1(SP)

PC,S$TYPEC

$CHARCNT

;sPUSH CHARACTER TO BE TYPED ONTQ STACK
;;BR IF IT ISN'T THE TERMINATOR
;o
IF TERMINATOR POP IT OFF THE STA(CK

;cRESTORE RO

;. TYPE

JoIF

;oAND

<CR><LF> EQUIV

CR AND

NO GO GET NEXT (HAR,

FILLER CHARS. NEEDED

THE NULL

CHAR.

;;DOES A NULL NEED TO BE TYPED?
;:BR IF NO-~GO POP THE NULL OFF QF
;.60 TYPE A NULL
;200 NOT COUNT AS A COUNT
J:LO00P

JHORIZONTAL TAB PROCESSOR
035232

112710

000040

8%:

MOvVB

,(SP)

;;REPLACE TAB WITH SPACE

STA(K

CIRGECO RKSTT1 DSKLS CTRL PRTS
CIRGEC.PY
14-SEP=-81 13:57

VACY'Y

N NTe V76 5
ST Yo W
P

LS, SLV IN1,S1,V]1,V1,81,§}
(o o XV, IV, IV, IV IV ¥ NPV

N AN UNAN AN NN AN NN
N

7308
7309
7310
7311
7312
7313
7314
7315

[olololeleleololololeoleols)

7305

7306
7307

03534

035320
035324
035326
035326
035330

035330
035334
035336
035344
035352
035354
035360
035362
035370
035372
035374
035376

13:5

004737
132737
001372
005726
000724

035256
000007

105777
100022

143667

017746
042716

105777

143636

042716

143632
177600

001366

100375
116677
122766

001003

105037
000406
122766
001402
105227

000000
000207

9%:

JSR
BiTB
BNE

$TYPEC:

101¢:

000C21

102%:

005726
105777

ROUTINE

143656
177600

000022

122716

TYPE

:
108

143614

000002
000015

035374
000012

000002

PC,STYPEC

;2 TAB STOP

NOT AT

;.POP SPA(CE OFF STACK
J;GET NEXT CHARACTER

;MJDCO1

;sCHAR IN KYBD BUFFER?

TSTR
BPL
MOVB
BIC
(MPB
BNE

#177600, (SP)
H#SXON, (SP)
101$

::STRIP IT

TST

(SP)+

JsFIX STACK

TST8B

as$TPS
10%

;;WAIT UNTIL PRINTER IS READY

:MJDCO1T

JMIDOOT

::GET CHAR

102%

;:sBR IF NOT

a$7kKS

;;WAIT FOR (HAR

;MJDOO
;MJD001

#SXOFF
, (SP)

s sWAS

101%

JswAS

;MJD001

;MID001
:MJDOO
;MJD001?
:MJDO01

XON?

:MJD0O1

JEX

;:1S CHARACTER A LINE FEED?

s :BRANCH IF YES
;s COUNT THE CHARACTER

(PC)+

;. CHARACTER COUNT
(ASCID)

AND

STORAGE

TYPE

2R R0
RR R}

TO CHANGE

MOV

NUM,
- (SP)

. X

.BYTE

N
M

TYPOS

.BYTE

16-BIT

BINARY

NUMBER

;:N=1

$+$TYPOS OR $TYPOC
;*CALL:

7360

DIGITS

TO TYPE

TO 6 FOR NUMBER OF DIGITS TO TVPE

0RO

1=TYPE

LEADING ZEROQS

:0=SUPPRESS LEADING ZEROS

.
:'

A 6-DIGIT

;sNUMBER TO BE TYPED
;.CALL FOR TYPEOUTM
JiM=T

J*$TYPON--==ENTER HERE

MOV
TYPON

:MJDOOT

:;EE?;-CLEAR CHARACTER COUNT

$TYPEX
#LF,2(SP)
$TYPFX

;*OCTAL (ASCII) NUMBER AND TYPE IT.
:*$TYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
J«CALL:

:MJDOOT

;:LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
s ;BRANCH IF NO

#CR,2(SP)
1%
$CHARCNT

USED

;MJDO01
:MJD00T

s.BR IF NOT

2(SP) ,a%7PB

;MJD001T

CHAR XOFF

::GET (HAR

a$TKB, (SP)

SRR

ROUTINE

NOT

:MJD001

TO OCTAL

BINARY

;:BR JF

::STRIP EXTRANEOQUS BITS

.SBTTL
S

A SPACE

;;BRANCH [F

SEQ (0140

;2TYPE

#7 SCHARCNT
93
(5P)+

BNE
CLRB
BR
1%:
(MPB
BEQ
INCR
: .WORD
$CHARCNT
$TYPEX: RTS

141

PAGE

d$TKS
10$
a$TkB,~(SP)
#177600, (SP)

MOVB
(MP8

S*THIS

K 1

TSTR
8PL
MOV
BIC
(MPB
BNE

BPI

143606

200002

15:14

14-SEP-81

TST

122716
001012
100375
117716

035374

30(1046)

TO TYPE

,
- (SP)
NUM

OUT WITH THE

SAME PARAMETERS AS

¢ sNJMBER TO BE TYPED
;. CALL FOR TYPEOUT

'STVPOC--°ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER

"HE

LA)T

14~SEP-81

VACY1T

~Neg

DSKLS C(TRL PRIS

TIRGE(O RK611
TIRGEC.P

13:57

7361
7362

7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387

W
ne

NN
N

oo
noOrOMND

000001
000006
000005

035623

[lele

000000
000001
035625
000002

(W TV

L"\U\l\l\lb ~oonOr

—OO 20000
=
=00
—=0O
A OO =2 B 2w
OO o NONWNOOOMNINNOMNINON
N
H
P AL
[V
QO
WWININO — (NN
S
s &80000 A NNNOON NN
~

7372
7373

H
ny
&H

7369

7370
7371

JeCALL:

WWWW&WWWWW

7363
7364
7365
7366
7367
7368

035625

7416

$TYPOS:

MOV
MOvB

a(SP),=-(SP)
1(SP) ,$0FILL

;:PICKUP

ADD
8R
$TYPOC: MOVB
Movs
$TYPON: MOVB
MoV
MOV
MOV

#2,(SP)
$TYPON
#1,80FILL
#6,$0MODE
+1
#5,80(NT
R3,-(SP)
R&4,~(SP)
RS,-(SP)

MOvVB

3%:

177770

MOVB
MV
(LR
ROL
BR
ROL
ROL
ROL

MOV
ROL
DECB
BPL
BIC
BNE
TST

4%:

000060
200040
035620
035620
035622

\VARVARVA
RV LV LW RV RV
(¥,]

7401
7402
7403
7404
7405
7406
7407
7408
7409
7410
746411
7612
7413
7614
7415

;:NUMBER TO BE TYPED
;sCALL FOR TYPEQUT

000006
035624
035623
000012

035624

NN WWNIN N NN NN LN

7358
7399
7400

,
- (SP)
NUM

2%:

QOOOOOOODOO

7396
7397

MOV
TYPOC

MOvB
NEG
ADD
MOVB

7388

5%:
7%:

6%:

INC

000004

0
000000

+1
(SP)+,$0MODE

$CMODE +1,R4
Ré
#6,R4
R4, $OMODE

$OFILL,R4
12(SP) ,RS
R3
RS
3%
RS

RS
RS

RS,R3
R3
$OMODE
7%
#177770,R3
43
R4

BIS
81S
MOVR

#'0,R3
#' ,R3
R3,8%

8GT
BLT

2%
6$

TYPE
DE(8

BR
MOV
MOV

MOV
MOV

8%:

035623
035624

BEQ

INC

00C002

SEQ 0141

s
oW

1%:

7389
7390
7391

7392
7393
7394
7395

L N

14-SEP-81
30(1046)
15:14
PAGE 142
BINARY TO OCTAL (ASCII) AND TYPE

MOV
RT]

BYTE

BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

.8%
$OCNT

2%
(SP)+,RS
{(SP)+,R4

(SP)+ R3
2{(SP) ,4(SP)
(SP)+,(SP)

THE MODE

::LOAD ZERO FILL SWITCH
. sNUMBER OF DIGITS TO TYPE
;cADJUST RETURN ADDRESS

;sSET THE ZERO FILL SWITCH
;oSET FOR SIX(6) DIGITS
;.SET THE ITERATION COUNT
:;SAVE R3
;:SAVE RS
;:SAVE RS

;+GET THE NUMBER OF DIGITS TO TYPE

;sSUBTRACT IT FOR MAX. ALLOWED
;sSAVE IT FOR USE
;2GET THE 2ERO FiLL SWITCH
;:PICKUP THE INPUT NUMBER
;s CLEAR THE QUTPUT WORD
;;ROTATE MSB INTO ''C*'

;:G0 DO MSB

;:FORM

THIS

;:GET LSB OF
;3TYPE

THIS

DIGIT

THIS DIGIT

DIGIT?

;sBR IF NO
;:GET RID OF JUNK

;:TEST FOR 0
2 ;SUPPRESS THIS 0?
::BR IF YES
;;DON'T SUPPRESS ANYMORE 0°'S
JsMAKE THIS DIGIT ASCII
JsMAKE ASCII IF NOT ALREADY
;sSAVE

FOR TYPING

;:G0 TYPE THIS DIGIT
;:COUNT BY 1
::BR IF MORE T0O DO
::BR IF DONE
;3 INSURE LAST DIGIT | ?N'T A BLANK
;:G0 DO THE LAST DIGI
:;RESTORE RS

:;RESTORE R4

;;RESTORE R3
::SET

THE

STACK FOR RETURNING

;;RETURN
;:STORAGE FOR ASCII DIGIT
;2 TERMINATOR OR TYPE ROUTINE
;;CCTAL DIGIT COUNTER
;:IERO FILL SWITCH
JJNUMBER OF DIGITS TO TYPE

€M

14-SEP-81

MACY11

[T
]

DSKLS CTRL PRTS

OOOOO

CZRGELO RKk611
TZROGEC.PTT

14-SEP-81

13:57

2222232222222

;«CALL:

7425

* W

$TYPDS:

7434

7435

605

020200
000020

000055

000001

036042
000040

1%:

2%:

036032

3%:

NN NN DN AN N AN N

4%:

2022220222222

22222082 RRRRRRtRRRRRRRdRRRlld!

35756

MOV
TYPDS

,
- (SP)
NUM

;;PUT THE BINARY NUMBER ON THE STA(K
;:G0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
OovB

RO,=(SP)
R1,-(SP)
RZ,=(SP)

;;PUSH RO ON STACK
:.PUSH R1 ON STA(K
;;PUSH R2 ON STA(K

CLR

MOV
MOvE

CLR

MoV

SUB

BLT

5%:

000001
000060
000040

177777

6$:
7%:

#'-,1(SP)
RO
#$DBLK ,R3
#' L(R3)+
R2

$DTBL (RO) ,R1
R1.R5

TST
BNE

BMI
ASLB
BCC
MOvB
BIS

177777

177776

THROUGH IF

;:STILL DOING LEADING 0°'S?

6%
1(SP) ,=1(R3)

*0.RZ

J:BR IF YES
;:MSD?

J:BR IF NO
2:YES=--SET THE SIGN
;:;MAKE THE BCD DIGIT ASCI!

J2MAKE IT A SPACE IF NOT ALREADY A DI Gi T
::PUT

MOVB
TST

8PL
MOVB
CLRB

9%
=1(SP),~2(R3)
(R3)
(SP)+,RS
(SP)+ ,R3
(SP)+ R2

Mov
Mov
MOV

;.PUSH R5 ON STACK

;sSET BLANK SWITCH AND SIGN
;.GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;oMAKE THE BINARY NUMBER POS.
;MAKE THE ASCII NUMBER NEG.
:.ZERO THE CONSTANTS INDEX
;. SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
;. CLEAR THE BCD NUMBER
;.GET THE CONSTANT
;;FORM THIS B8CD DIGIT
:.BR IF DONE
;o INCREASE THE BCD DIGIT BY 1

;:FALL

BIS

1STB

::PUSH R3 ON STACK

::;ADD BACK THE CONSTANT
;CHECK [F BCD DIGIT=0

ADD

(MP
BLT
BGT

000010

8%:

026006

INC
BR

MOV

7465
7466
7467
7468
7669
7470

R3,-(SP)
R5,~(SP)
#20200,-(SP)
?g(SP),RS

TSTB

7464

7472

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE ]T. DEPENDING ON WHETHER THE
;*NUMBER ]S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

7426
74627
7428
7429
7430
7431
7432
7433

7471

SEQ 0142

;*THIS ROUTINE IS USED TO CHANGE A 16-BiT BINARY NUMBER TO A 5-DIGIT

7422
7423
7624

7463

143

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
.SBTTL

7417
7418
7419
74620
74621

7436
7437
7438
7439
7440
74641
7442
7443
7464
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462

30(1046)

(SP)+

THIS CHARACTER

IN THE

2:JUST INCREMENTING
:;CHECK THE TABLE INDEX
;G0 DO THE NEXT DIGIT
;G0 TO EXIT
::GEY THE LSD
;.60 CHANGE TO ASCII

OUTPUT BU FFER

;:WAS THE LSD THE FIRST NON-ZERO? :2BR IF NO

JoYES==SET THE SIGN FOR TYPING
;:SET THE TERM]INATOR
:;POP STACK INTO RS

::POP STACK
::POP STACK

INTO R3
INTO RZ2

CZR6EC P11

VACY11

m 1
PAGE

ale

CZROECO RK61T DSKLS CTRL PRT)

15:14

14~SEP-81

CTRL PRTS

14-SEP-81

76473
76474

036010
036012

012607
012600

76476

036020

016666

76475

76477
76478
76479
7480
7481
7482
76483

;zgg

036014

036026
036030
036032
036034
036036
03600
0360642

1064401

012616
000002
023420
00175C
000144
000012
000004

13:5°

036042

000002

WMACY11

7487

$ODTBL:

$UBLK:

LSBTTL
.ENABL

000000
000000
000000
000001
036061
036062

s*CALL:
ie
o

034062

005037

036052

7509
;g;g

036122
034130

012777
000207

000100

036066
0360764
036102
036110
036116

012737
013737
012737
012737
005777

036060
036054
036132
000200
143024

7512
7513
7514
7515
7516

036132

7522

036146

7’526
7%
A28

::POP STACK
;;POP STACK

[0}

é’SP),l.(SP)

:2ADLUST THE STACK

$DBLK

MOV
RT]
10000,
1000.
100.
10.
.BLKW

TTY

(SP)~, (SP)

:NOW TYPE

INTO R1
INTO RG

THE

NUMBER

::RETURN TO USER

INPUT ROUTINE

AN AT AN AR AN AN

LSR

R TN RN

O
O
0
1

A NN NN NN AR AR

R A RANNN RN

ANk

;:NUMBER OF ITEMS IN QUEUE
;:INPUT POINTER
::0UTPUT POINTER
:;TTY KEYBOARD QUEUE

036054
036C5%
000060
000062

JSR
RE TURN

$"KINY: CLR

MOV
MOV
MOV
MOV
1ST

143014

MOV
RTS

PC,S$TKINT

S$TKCNT

:;CLEAR COUNT OF ITEMS IN QUEUE

#100,3%7TKS
PC

::ENABLE TTY KEYBOARD
:;RETURN TO CALLER

#$TKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV,a#TKVEC
#200,3#TKVEC+2
FIAE)

;:MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;:INITIALIZE THE KEYBOARD VECTOR
;;'BR'' LEVEL 4
:;CLEAR DONE FLAG

INTERRUPT

;*UPON RETURN EXJT IS MADE TO THE '‘CONTROL=(C'® RESTART ADDRESS (CTRMLT)

7519

7525

SEQ (143

;*TK SERVICE ROUTINE
;%THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
1T IN THE QUEUE.
soIF THE (HARACTER IS A "“CONTROL=C'® (*C) STKINT [S< CALLED AND

;g;g

7526

144

;

7503

7523

PAGE

:*TK INITIALIZE ROUTINE
:*THIS ROUTINE WILL INITIALIZE THE TTY KLYROARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYROARD INTERRUPT

7520
7521

N 11

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

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=,
.EVEN

7499
7500
;ggl
7506
7505
7506
7507
7508

15:1e

MOV
MOV

TYPE

036052
036054
036056
036060

14-SEP-81

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004

7486

7488
7489
7490
7491
7692
7493
7494
7495
7496
;ng

30(1046)

117746

036136
036142

042716
021627

036150

005726

036'52

036154

036154
0% 160
036162

001002

1430'0

177400
00C021

000002

021627
(2°007
10640

0000C3
[372¢0

$'KSRY: MOVB

J:PICKUP THE (HARACTER

308

;;BRANCH IF NO

8 0172, (SP)
(sp) , #$xON

TSt

(5P e

ant

8$1kB, - (SP)

BIC
c(wp
RT]

{mp
Nt
Tvbf

(SP), 83
's
R
LN

TISTRIP THE JUNK
1S 1T A RANDOM XON®

J;CLEAN RANDOM XON OFF

; ;RETURN

solS 1T A (ONTROL .7
JIBRANCH 1F NG
JoTYoE A TONTRO,
- °

;RANDQ1
STA(x

:RANOQ!

SRANODY

s RANGO!

S RANGO?

[le]

CIR6EC.PIT

DSKLS

~NN

(IR6E(O RKE11

RK611
IRGEC.PY

036166
036172
036174
036200
036204
036206
036214

7553
7554
7555
7556

7557

7558

7559

7560

7561
7562
7563
7564

7565
7566
7567
7568
7569
7570
7571
7572
7573
7574
7575
7576

036216
036216
036224
036226
036232
036234
036236
036242
036244
036¢50
036252
036256
036260
036264
036270
036274
036276
036304
036306
036312
036316
036320

036324

036326
036332
036336
036342

036350
036352
035360

583

7584

MACY1T

14-SEP-81

13:57

004737
00572¢
000137
021627
001004
022737
001500

036062

000176

001140

022737
001004

000001

036052

1046401

005726
000451
021627

001021
005077
05726
105777
100375
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677

005237
023727
001003
012737
000002

TTY

INPUT ROUTINE
TST

2%:

000023

31¢%:

142666

142640

036052
000140

BPL
MNVB
BIC
(MP
BNF

£5C177.(SP)

INC

B8GT

036061

036060

€36054

BIC

MOVB

INC

CMP

BNE

MOV

5%:
A

RT]

AAAAS

036414

777

142546

746

142542

716

627

17760(C

000007

001140

(SP)+

asTKS
31$
asTkB,-(SP)
(SP)+, 421

31$

#100,38TK>
$TKCNT
(SP) ,#140
4%
(SP) #4175
3
#60,(SP)
(SP)+ ,3$TKQIN
$TKQIN

145

SEG Cleé

JINIT THE KEYBOARD
sCLEAN UP STA(K
CONTROL C RESTART
;IS IT
A CONTROL G?
BRANCH IF NO
;1S SOFT-SWR SELECTED?
:G0 TO SWR CHANGE

;.18 THE QUEUE FULL?
;sBRANCH IF NO
;sRING THE TTY BELL
::EL??N CHARACTER OFF OF STA(K
S

;:1S 1T A CONTROL=-S?

;;BRANCH IF NO

J:DISABLE TTY KEYBOARD INTERRUPTS
;;CLEAN CHAR OFF STACK
;:WAIT FOR A CHAR
;:LOOP UNTIL ITS THERE
;;GET THE (HARACTER
::MAKE IT 7-BIT ASCII
;:1S IT A CONTROL=-Q?
::BRANCH IF NO
;;REENABLE

TTY

KEYBOARD

;JRETURN
;:COUNT THIS CHARACTER
;1S IT UPPER CASE?
;;BRANCH [F YES
;IS IT A SPECIAL CHAR?
;:BRANCH IF YES
. JMAKE

INTERRUPTS

IT UPPER CASE

;:;AND PUT IT IN QUEUE
;;UPDATE THE POINTER
$TKQIN,#$TKQEND ;:G0 OFF THME END?
5%
;sBRANCH IF NO
#$TKQSRT,$TKQIN JRESET THE POINTER
; ;RETURN

AR RS

J*ROUTINE

000176

(SP)+

5%
(SP) ,#2%3

32%

(MP

4%:

LSBELL

asTKS

BLT
(MP

000040
177516
036054
036054

BNE
(LR
TST

MOV
RTI

000175

737

#1,8TKCNT

1STR

142662
177600
000021

PAGE

(MP

1642674

TYPE
TST
BR

: 14

#SWREG, SWR

(MP
BNE

00140

)

CTRHLT
(iP),l/

JMP
(MP
BNE
CMP
BES

1%:

PC,STKINT
(SP)+

JSR

034764
000007

000100

14-SEP-81

30(1046)

:¥SOFTWARE

7577

7578
7579
7580
7581
7582

DSKLS CTRL PRTS

SRR

RRRRdR2RRR2R2RRRRRRRARARRRR

SWITCH REGISTER CHANGE RO!i INE.

ENTERED

FROM THE

TRAP AANDLER,

]

AND WILL

:«SERVICE THE TEST FOR CHANGE IN SO/ TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
#SWREG, SWR
$CKSWR: (MP
2:1S THE SOFT=-SWR SELECTED
15¢
BNE
JsEXIT IF NOT
TSTB
asTKS
1S A CHAR WAITING?
;:
8PL

MOvB

8I(
cMP
BNE

15$
a$TKB,~(SP)

#°C177. (SP)
(SP) a7
2%

1F NOT, EXIT
;o

;s YES

J:MAKE

7-BIT ASCII

;:1S 1T A CONTROL=-G?
;o1F NOT, PUT IT IN THE T7Y QUEUE
;;AND EX]IT

;:ttQ."t't!t'tttttt'ttt".t't"t'tt'fi.'l"i"t."t"."......"'

s*CONTROL

IS PASSED TO THIS POINT FROM EITHER THE

TTY [NTERRUPT SERV](F

[T]

IR 6EC0

g ey

OOO
-+ =200

(

"IRGEC.PTT

DSKLS CTRL PRTS
14=-SEP-81 13:57

MACY11

7585

7586
7587
7588
7589
7590

123727
001674
005726
004737

001134

112737

000001

1046401
104401

037272
037277
000176

7601
7002

036446
036452
036456
036462
036464
036470
036477
036474
036500

7604
7605

036502
036506

7593

7594
7595
7596

7597
7598
7599
7600

TTY

14~SEP-81
INPUT ROUTINE

15:74

'ROUTINE OR FROM THE

036416
036424
036426
036430
036434
03¢€440

7591
7592

30(1046)

005077

013746
104402
104401
005046

005046

000001

SOFTWARE

TYPE
TYPE
MoV
TYPO(
TYPE

$GTSWR:

LSCNTLG
. SMSWR

s TYPE

19%:

JSMNEW

;:PROMPT

(LR
CLR

SS'Ka

SWREG, ~(SP)
-(>5P)

-(SP)

177600

BT(

MOvB

a$TKB,~(SP)
¥2C177,(SP)

036512
036516
036520
036524
036530
036536
036540
036546

021627
001015

000003

(Mp
BNF

(SP) ,#3
9%

7617
7618
7619
7620
7521

036552
036556
036560
036564
036570

021627
001005

7624

036572
036576

7639
7640

036634
036642
036644
036650
036654
036656
036662
036664

:
9%

cMP

037265
000006

20%:

021627

000015

10%:

005766
001403
016677
062706

000004

104401
123727

001003
012777
000002
004737
021627
002420
021627
003015
042726

000002
000006
001245
001135

000001

00G100

142302

035256
000060
000067
000060

142324

LJOCNTLC

#6,SP

$INTAG,#1

#100,2%7KS

CTRHLT

(SP) ,#25

108

LSCNTLU

;;ECHQ THE CONTROL-G (*G)
CURRENT

CONTENTS

;:SAVE SWREG FOR TYPEQUT
::G0 TYPE=-=OCTAL ASCIT(ALL DIGITS)
FOR NEW SWR

;s CLEAR COUNTER
;s THE

NEW

SWR

::CHAR THERE?

;o
IF NOT

TRY AGAIN

;:PICK UP (HAR

JIMAKE

7-BIT ASCII

;oIS IT A CONTROL=C?

;;BRANCH IF NOT
;.YES, ECHO CONTROL=-C (*(O)
;:CLEAN UP STACK
:;REENABLE TTY KEYBOARD INTERRUPTS?
;;BRANCH IF NO
J;ALLOW TTY KEYBOARD INTERRUPTS
.
;s CONTROL~-C RESTART

;1S IT A CONTROL-U?
;;BRANCH IF NOT
;. YES, ECHO CONTROL=-U (*U)
;: IGNORE PREVIOUS INPUT

J;LET'S TRY [T AGAIN
CMP

BNE
TST
BEQ

MOV

ADD

TYPE

(MPB
BNE

MOV
RT]

JSR
(MP

BLT

(MP
BGT
BI(C

.SCRLF

$I§TAGXA
(¥,]

001022

104401

062706
000737

a$TKS
7%

—

7631
7632
7633
7634
7635
7636
7637
7638

036600
036604
036606
036614
036620
036624
036632

000025

142376

7625
7626
7627
7628
7629
7630

000100
034764

7622
7623

000001

—_——

7616

BPL

(MPB
BNE
MOv
JMP

001003
012777
000137

P
p—

7614

7615

123727

TSTB

TYPE
ADD

—

7612
7613

037260
000006
001135

7%:

7611

1046401

062706

AS A RESULT OF

#1,3INTAG

162440

7610

TRAP CALL,

mMOovB

117746

7606
7607
7608
7609

SWITCH REGISTER

;. CLEAR CONTROL=-G OFF STA(K
;;FLUSH THE TTY [NPUT QUEUE
;.DISABLE TTY KEYBOARD INTERRUPTS
2sSET INTERRUPT MODE .NDICATOR

14624644

042716

SEQ 0145

(SP)+
PC,STKINT

105777
100375

7603

146

TST

JSR
(LR

001135

037310

PAGE

*«{ONTROL=G BEING TYPED, AND THE SOFTWARE SwiTCH REGISTER BEING SELECTED.
;;ARF wt RUNNING IN AUTO-MODE?
(MPB
SAUTOB, 3
68
BEQ
s
s .BRANCH IF YES

036062
142504

€ 12

#100,a8TKS
PC,STYPEC

(SP) #60
18%
(SP) ,#67
18¢

260, (SP)+

;IS 1T A <CR>?
J:BRANCH IF NO
J:YES, IS IT THE FIRST (HAR?
;;BRANCH IF YES
;s SAVE NEW SWR
;. CLEAR UP STA(CK
:;ECHO <CR> AND <LF>
:RE-ENABLE TTY KBD INTERRUPTS?
;JBRANCH [F NOT
:;RE-ENABLE TTY KBD INTERRUPTS
;:RETURN

;cECHO CHAR
;:CHAR < 0?
;sBRANCH |F YES

::CHAR > 7?

::BRANCH IF

VYES

;;STRIP=0OFF ASCII

TZROECD RK6YT

7641
7642

7643

7644
7645

7646

7647
7648

7649

7650
7651

036670
036674
036676
036700
036702
036704
036710
034714
036716
036722

00576¢
C0'407
006316
006316
006316
005266
056616
000667
10601

000720

30(1046)
TTY

14-SEP-81

INPUT ROUTINE

000002

00° 244

18%:

177776

.USABL

7652
7653

7654

SEQ (146

2(SP)

:31S THIS

ASL

(SP)

“INO,

ASL
17§

D 12
PAGE 147

BEQ

0004602

15:14

VMACYTT

ASL

INC
BIS

B8R

TYPE

B8R

LS8

17%

(3P)

(SP)

2(SP)
<2(SP), (5P)

$QUES

208

THE FIRST CHAR

L BRANCH IF YES
1

SHIFT PRESENT

"CHAR OVER TO MAKE

ROOM FOR NEW ONE.

S KEEP COUNT OF (HAR
SISET IN NEW CHAR

LiGET THE NEXT ONE

2:TYPE

?2<CR><LF>

::SIMULATE CONTROL=U

-:.ttt""Q.Q'Q.."QQ"tQ.".tt""."".t't"t."'t""""t"..

S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

7655

7656

036724
036726
036734
036740
036742
036746
036750
036750
036754
036756
036762
036770
036774
027002
037004
037012

011646
016666

005066
005046
012746
00002

000004
0000C4

036750

005737
001775
005337

036052

005237
023727
001003
012737
000002

036056
036056

117766

000002

036052

177070

036060

;«CALL:
o
i
o

RDCHR
RETURN HERE

:;GET A CHARACTFR FROM THE QUEUE
;s (HARACTER ]S ON THE STA(K
J:W]lTH PARITY BIT STRIPPED OFF

$RDCHR:

MOV

;;PUSH DOWN

cos

RT!

1%:

000004
036061
036056

2%:

(SP),=(SP)

MOV
(LR
(LR
MOV

4(SP) ,2(SP)
4 (SP)
-(SP)
#648,-(SP)

TST
BEQ
DEC
MOVB
INC
(MP
BNE
MOV

$TKONT
1%

RT]

AND

;;POP NEW PC AND PS

;:WAIT ON A CHARA(CTER

#$TKQSRT,$TKQOUT

;.RESET

;RETURN

THE POINTER

:;t't'tttttt'tt.tttt'tt"t"'t'ttttttt"ti'.t".""'t!"t't"tt'

c*(ALL:

NONONO
M SN
\NC)—‘N)—‘—‘—NA(D o
NNONIOIWWNO
O NW

—=OOO—=—=— 40000

1w
o

037036
037042
037044
037046
037050

THE

PS
READY FOR A (HARA(CTER
NEW PS ON STACK
NEW PC ON
STA(K

$TKCNT
;;DECREMENT THE COUNTER
d$TKQOUT,4(SP)
;.GET ONE CHARACTER
$TKQOUT
::UPDATE THE POINTER
$TKQOUT ,#$TKQEND ;,;DID IT GO OFF OF THE END?
2%
;:BRANCH IF NO

:'T:ZS ROUTINE wlILL

037014
€37016
037020
037024
037030
037032
037034

::THE
;:GET
:;PUT
J:PUT

RDLIN

RETURN HERE

;;ADDRESS OF F]RST CHARACTER WILL BE ON THE
;:TERMINATOR WILL BE A BYTE OF ALL 0°S

R3,-(5P)

::SAVE R3

18:
2%:

#STTYIN,R3Z
#STTYIN+8, RS
4

;:GET ADDRESS
::BUFFER FULL?
;:BR IF YES

MOy
CMP
8L0S

RDCHR
MOVB
(MPB

-(SP)

;s CLEAR THE RUBOUT KEY

(SP)+,(R3
8177 ,(R%)

::G0 READ ONE CHARACTER FROM TRF
::GFT CHARACTER
;218 1T A RUBOUT

(SP)

;1S

BNE

BNE
MOVB

6%
#'\,9%

TST

037246

;2 INPUT A STRING FROM THE TTy

$RDL IN: MOV

10%:

000134

INPUT A STRING FROM THE TTY

::BR IF NO
THIS

THE

FIRST RUBQUT?

;:BR IF NO
;. TYPE A BACK SLASH

TTy

STA(K

TIRAE(D RKETT DSKLS CTRL PRTS
“4-SEP-81 13:¢7
TIRGEC.PIN

037062

7699
7700
77201

037066
037070
037074

7703

037102

7702

7704

7705
7706
7707
7708

037076

037106

037110
037112
037114
037122

7709

037126

7711
7712
7713
7714

037134
037136
037142
037144

7710

7715
7716

7717

037130

7729

037224

037226
037230
037236
037244
037246

7736
7737
7738
7739
7740
77641

037250
(037260
037265
037272
037277
037304

7735

7742
7743

7744
7745
7746

7767

7748
7749

7750
7751

775¢

TYPE

1727777

£$:

037250

000134
037246

000025

;sRUBQUT KEY SET?
;:;BR IF NO

f'\,2%

8%:

(SP)

037246
037246
000015

THE RUBOUT KEY

LSTTYIN

;2 TYPE

THE

:2TYPE

,9%

;:TYPE

A CONTROL

;1S CHARACTER A '"TMR'"TM?
:BRANCH IF NO
;;CLEAR THE (HARACTER
J2TYPE A CR R TLFT
INPUT

STRING

;:G0 PICKUP ANOTHER (CHACTER
2

;;CLEAR THE BUFFER AND LOOP
;;ECHO THE (HARACTER

(R3),9%

CMPR
BNE
(LRB

015 (R3)+
2%

=1(R3)

J3CHECK FOR RETURN
2;L00P [F NOT RETURN
;;CLEAR RETURN (THE 15

MOV

(SP)+,R3

:;RESTGRE R3

TYPE
IST

LSLF
(SP)+

MOV

;;TYPE A LINE FEED
;2CLEAN RURQUT KEY FROM THE

(SP) ,~(SP)

MOV
MOV

RT]
.BYTE

(HAR.

;1S CHARACTER A (TRL u?
:;BR IF NO

#22.(R3)
$
(R3)
L SCRLF

TYPE

DELETEL

SLASH

;G0 START OVER

B8R
MOV

9% :

A BACK

;sCLEAR

JSCNTLU

.SQUES

THE

2:GO READ ANOTHER (HAP,

AR ]

TYPE

KkEY

2:SETUP TO TYPEQUT
;.60 TYPE

B8R

000002
000004

::BACKUP BY ONE

#25,(R3)
8

CMPR
BNE
CLRB
TYPE

177777

RUBQUT

(MPB
BNE

TYPE

«%:

THE

;:TYPE

,9%

(LR

011246

020075
037322

(S52)
7%

TYPE

037247

037310
037316

TST
BEQ

TYPE

001244

000004
037250

MOVB
TYPE

J3STACK EMPTY?
;:BR IF YES

MOVR

L(SP) ,2(SP)
#STTYIN,L(SP)
0

..ADJUST

:JRETURN
;:STORAGE

000
000012
000
051127

$TTYIN:
SCNTLC:
$CNTLU:
$CNTLG:
$MSWR:

BYTE
.BLKB
LASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

020127

$MNEW:

LASCIZ

LEVEN
.SBTTL

READ AN O(CTAL NUMBER FROM THE

THE

STACK AND PUT

FIRST ASCI]
FOR ASCII

STA.K
ADDRESS

CHARACTER ON T
CHAR.

0
;3 TERMINATOR
8.
;sRESERVE 8 BYTES FCR TTv
/*C/7<A15><12>
::CONTROL “°C''
/7*u/<15><12>
;:CONTROL 'V
/4G/<15<¢id>
;s CONTROL ''GTM
<15><12>/SWR -~ /
/

TVYPE

|[NPUT

NEW = /

TTy

:;t."t.t'..ii"‘t"t"""t'.lt"t.'tt!l.'!'t.tt'QQ.".Q""'Q"

J*THIS

ROUTINE

c*(HANGE

WILL

READ

TO BINARY.

AN OCTAL

(ASCII)

NUMBER

FROM

THE

TTY

AND

;*THE INPUT CHARA(TERS WIiLL BE CHECKED TO INSURED THEY ARE LEGAL
J*OCTAL DJGITS. IF AN ILLEGAL C(HARACTER IS READ A 2'" WILL BE T+PED
;*FOLLOWED BY A (CARRIAGE RETURN=LINE FEED. THE COMPLETE NUMBER MUST

TwWE

SEI C147

R3,#8T1YIN
49
(R3),9%
9%

B8R

037244

148

;2SET

(MP
8L0

5¢:

PAGE

R=1,(5P)

DEC

037c4¢
037246

E 12

15: 4

.93

MOV

001245
037250

037222

7730
7731
7732
7733
7734

164=-SEP=-81
3C(1046)
TTY INPUT RCUTINE

037246

000022

037154

037160
037164
037166
037172
037174
037200
037204
037210
037212
037216

MACY1Y

037265

037150
037152

7718
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728

7698

037056

O —
WO

7697

DSKLS CTRL PRTS
14=-SEP~81 13:57
—=O =2 OOO00=—2=2000
NOO
OO0
OO —a
PONESND
NO I =2NOWN no

TIROECD RKEMT
"IR6EC P11

TIRGELD RKEIT DSKLS CTRL PRYS

TIRGE PV

775%
77546
7755
7756
7757
7758
7759

14-SEP=-81

13:5

MACY1T

J*THEN BE RETYPED., THE
JwCALL:
RDOCT
i
i
RETURN HERE
=2 O 2O = COOO0 200000
PROIONIO =002
O —d = =2

7761

7762
7763

000004

mw-\)—nmgmomb

7764

7768
7769
7770
7771
7772

7773
7774
7775
7776

600
037

000002

$RDOCT: MOy

MOV

MOV
MOV

1%:

RDLIN

MOv

037450

2$:

046

BGT
(MPB
BLT

0000¢?

7779
7780

7781
7782
7783
7784
7785
7786
7787

7777¢

000012
037460

7789
7790
7791
7792

7793

7794
7795

037460

000730
000000

001244

AL EA

(HARA(CTER

;.8

MOV
MOV
MOV
MOV

R2.$8H1OCT
(SP)+ R?
R
(SP)+

;. L0GP
JiCLEAN TERMINATOR FROM STALK
;2SAVE THE RESULT

(SP)+
R1,12(¢P)

;:POP STACK
: ;RETURN

;3SET A TERMINATOR

;s TYPE
.

,SQUES

.WwORD

RSS2

RARR

INTO RO

J;CLEAN PARTIAL FROM STACK

(SP)
+

B8R

;:POP STACK INTO R?
J:POP STACK INTO R1

(SP)+ RO

LWORD

JUNK

J;ADD IN THIS DIGIT

(SP)+
k1

(RO)

0.‘,..

l.ch.

THRU
z

THE BAD

(MHAR.

lCLFll

,,TRV AGAIN
sHIGH ORDER BITS GO HERE

SAVE AND RESTORE RO-RS ROUTINES

“*SAVE RO-RS

taCALL:
T

SAVREG
'UPON RETURN FROM $SAVREG THE
'TOP--*(’Ib)

‘e

THIS

¢.1F ZERO GET OuT
J;MAKE SURE THIS (HARA(TER
;. 1S AN OCTAL DIGIT

43
8'7,(5P)
43

(LRB

RETURN.

THE

TYPE

.SBTTL

FOR

:sSTRIP THE ASCII

TYPE

$HIOCT:

SPACE

RAC7,(SP)

TST

5¢:

(ARRJAGE

BIC

RT]

ssPICKUP

#'0,(SP)

R2
R1
R?

TST
MOV

7788

(RO)+,=(SP)

ROL
ASL
ROL

ADD

R1
R2

ASL

7778

(SP)+ RO

ASL
ROI

TYPING A

2 INPUT NUMBER
::PUSH RO ON STAa(K
;2PULSH R1 ON STACK
;cPUSH R2 ON STA(K
;sREAD AN ASCIZ LINE
;;GET ADDRESS OF 1ST (CHARA(CTER
;JAND SAVE |IT
;3CLEAR CATA WORD

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

TERMINATED 8Y

::PROVIDE

RO,=(SP)

MOvVB
BEQ

SEG (148

;:READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;:HIGH ORDER BITS ARE IN $H]OCT

(SP) ,=(SF)

RO.,5$

CMPB

000060

7777

7803
7804
7805
7806
7807
7808

4{SP) 2(SP)

MOV

(LR
(LR

o
~N

7/65
7766
7767

7800
7801
7892

[NPUT

. %

7760

7796
7797
7798
7799

30(1046)
14=SEP=-B81
15:14
PAGE 149
READ AN O(CTAL NUMBER FROM THE TTY

voomoRS

STACK WILL LOOK LIKE:

RRXRRRR

NE N

G 12
MACY:1 30(1046)
14-SEP-81
15:14 PAGE 150
SAVE AND RESTORE RO=RS ROUTINES

7809

;v +6===R4

7810

7811

7872

;e 12==<R1

;*+14-==R0

7815

037462

7818

037466

7816
7817

7819

Q37462
037464

010046
010146

037470

010346

7820
7821

037472
037474

7823

037502

7822

037476

7824

037506

7826

037516

7825

7827

+8-==R3

;v+10=-=-=R?

781%

784

037512

$SAVREG:

010246

010446
010546

016646

000022

016646

(00022

076646
016646

000002

MOV
MOV

RJ,=(SP)
R1,-(SP)

;sPUSH RO ON STA(K
;sPUSH RY DN STACK

MUY

R3,=-(SP)

;sPUSH R3 ON STA(K

MOV

RZ,=(SP)

R4 ,~-(SP)
RS,=(SP)

MOV

22(SP) ,-(SP)

22(SP) ,=(SP)

MOv

000022

22(SP) ,~(SP)

MOV

22(SP) ,=(SP)

RT]

;*RESTORE

(037520
037520
(037524
(037530

012666
012666
012666

7837

037542

012604

MOV

(SP)+ R4

012602
012601
012600

MOV
MOV
MOV

(SP)+ R2
(SP)+ ,R1
(SP)+,R0

7838

7839
78460
7841

;g:%

(37534
037540
037544

037546
037550
037552

03755¢

(012666
012605

s*CALL:
M
RESREG
$RECREG:
MOV
MOV
MOV

000022

MOV
MOV

012603

MOV

000002

;sPUSH R4 ON STACK
;;PUSH RS ON STA(CK

;2SAVE PS OF MAIN FLOW
;:SAVE

MAIN FLOW

J.SAVE

(AL

. SAVE PS OF

RT]

(SP)+,22(5P)
(SP)+,22(SP)
(SP)+,22(SP)

;sRESTORL PC OF CALL
;.RESTORE PS OF CALL
;;RESTORE P(C OF FAIN FLOW

(SP)+,22(5P)
(SP)+ RS

JcRESTORE PS OF MAJN fLOw
;;POP STACK INTO RS

(SP)+,R3

2 ;POP STACK

;:POP STACK

INTO R4

:;POP STACK
;.POP STACK
;;POP STACK

INTO R?
INTO R!
INTO RO

;g:é

.SBTTL

POWER DOWN AND UP ROUTINE

7846

7847

7848
7849
7850
7851
785¢

;ggz

037556
037564
Q037572
037600

037602

017737
012737
012737
000900

141356
037604
000340

002356
000024
000026

000776

7856
7857
7858
7859
7860
7861
7862
7863

7864

;POWER DOWN ROUTINE
$PWRDN: MOV
oSWR, SAVSWR
MOV
#SPWRUP ,PWRVEC
MOV
#PR7 ,PWRVE(+2
HALT

B8R

7855

(037604
037610
037616
037622

005037
012737
005237
001375

03770C
000144
037700

(037632

012737

037556

037624
037630

005337
001372

037702

200024

C(ALL

RO=-RS

7829
7820
7831
7832
7833
7834

000022
000022
000022

;:PUSH R2 ON STA(K

MOV
MOV

MOV

000022

7828

7835
7836

SEq (149

;POWER UP ROUTINE
$PWRUP: (LR
$PWR(T
MOV
#100. ,8PWR{7+?2
1%:
INC
$PWR(T
BNE
1%

MOV

$SPWR.T+2
1%

;SAVE SWITCH REGISTER
;SET UP VECTOR

JHANG UP

DE(
BNE

INTO R3

#$PWRDN ,PWRVEC

JLOAD WAJT COUNT
JWAIT FOR TELETYPE

;SET UP FOR POWER DOWN VECTOR

Lo 1]

(ZROGECO RKETT DSKLS CTRL PRTS
TIRGEC.PN
14=SEP=-81 13:5°

L RKO1)
TIREE
TIRCEC.PIN
7865
7866

037640
037646

7868
7869
7870

037656
037662
037670

7872
7873

037700

7867

7871

7874
7875
7876

SKLS LIRL PRTS

14=SEP-81

13:57

MACY1T

MOV

#PR7 ,PWRVE(+?

161250

MOV

SAVSWR ,aSwR

000122

JFORCE STA(K
;TYPE POWER
JREINITIALIZE MEMORY CHECK

$BASE ,R2

:REINITIALISE K2 FOR

JRESTORE

SWIT(CH REGISTER

JMP

@SLPADR ;GO BACK TO LAST TEST

.WORD
.?sgéz

0,0
/POWER/

;TELETYPE

'611

ENABLE
BASE

TIME OQuT

TRAP DECODER

THE ''TRAP'' [NSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS DOBTAINED [T wiLL

7881

;*GO TO THAT ROUTINE.

7883
7884

037712

7886
7887
7888

037720
Q37722
(037724

(03774

037726
037732

037734
037736
037744

010046
016600

005740

$TRAP:

0000¢?2

111000

006300
016000
000200

011646
016666
000002

037746

000004

MOV
L 193Y)

RO,=(SP)
2(SP) RO

ST
MOVB
AS!

RTS

000002

;sTHIS

IS USE

$TRAP2:

MOV
MOV

;:SAVE RO
:;GET TRAP ADDRESS

-(R0)
(RO) RO

MOV

;:BACKUP BY 2
;:GET RIGHT BYTE

$TRPAD(RO)
,RO

TO HANDLE

THE

.. INDEX TO TABLE

::G0

TO ROUTINE

::MOVE
;;MOVE

THE
THE

J;RESTORE

PC DOWN
PSW DOWN

THE

PSW

TRAP TABLE

s*THIS

TABLE

CONTAINS

;

ROUT INE

THE

STARTING

;*BY THE '‘TRAP'’ INSTRU(T!ION.

037740
037750
037752
037754
037756
037760

OF TRAP
INDEXING

J:POSITION FOR

''GETPRI'' MACRO

(SP) ,=(SP)
&(SP),2(SP)

RTI

.SBTTL

7902

7920

#STACK ,SP
. SPOWER
P, PAR(HK

;*THIS ROUTINE wilLL PICKUP THE LOWER BYTE OF

7882

7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
796
7917
7918
7919

$PWR(CT:
$POWER:

SES C150

':"'tQ'."'.'Q't.'tt""'..'*..fiQ..Q...tttttttt"tt"tfit""'.t.

7880

7893
7894
7895
7896
7897
7898
7899
7900
7901

MOV

.SBTTL

7879

7891
7892

MoV
TYPE
JSR

Q37674

7877

7889
7830

H 12
PAGE 15°

15:14

POWER DOWN AND UP ROUTINE

037652

037704

Te=SEP=-81

¢0002¢

7878

7885

3001046)

$TRPAU: .WORD

STYPE
$TYPOC

$TYPCS

$TYPON

$TYPDS

$TRAP2

ADDRESSES

THE

ROUTINES

CALLED

:;CALL=TYPE
;. CALL=TYPOC

TRAP+1(104401)
TRAP+2(10644CC)

TTY TYPEOUT ROUTINE
TYPE O(TAL NUMBER (W[Th LEADING ZEROS)

;. CALL=TVPON

TRAP+4(104404)

TYPE OCTAL NUMBER

;;CALL=TYPQS

TRAP+3(104403)

;. CALL=TYPDS

TRAP+5(104405)

TYPE OCTAL NUMBER (NO LEADING ZEROS)
(A5 PER LAST

TYPE DECIMAL NUMBER (WITH SIGN)

037762

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET

037764
037766

$CKSWR
$RDCHR
SRDLIN
$RDOCT
$SAVREG
SRESREG

;;CALL=CKSWR
; ;CALL=RDCHR
;;CALL=RDLIN
;;CALL=RDOCT
,,;CALL=SAVREG
,;;CALL=RESREG

1
TRAP+7(1064407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

TEST "OR (HANGE [N SOf T-SwR
TTY TYPEIN (HARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN O(CTAL NUMBER FROM TTv
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

037770
037772
037774

037776

SOFT-SWR SETTING

(ALL)

4 ROE(D RK611 DSKLS CTRL PRTS
14=SEP-81 13:57
Z REEC.PY
7921

040000

(033774

MACY1Y

30(1046)
14=SEP-8°
TRAP TARLE

S(OP1$

"5:14

I 12

PAGE

;o CA_L=5(0P!

152

TRAP+15(104415)

Sea 0151
INTERNAL LOOP ON ERROR

72
2

7922
7923
7924
7925
7926
7927

7928
7929

7930
793
7932
7933

7934

7935

7936
7937
7938
7939
7940
7941
7942
7943

7944

7945
7946

7947

7948

7949
7950
7951
7952
7953
7954
7955
7956
7957
7958
7959
7960
7961
7962
7963
7964
7965
7966

040002
040006
040014

040022
040024
040032
04034
040042
040044
040052
040054
040062
040070
040072
040100
040106

040114
040116
040124
040132
040140
040746
040154
040162
040166
040174
040202
040210
040214
040222
040230
040236
040240
040246
040252
040260
04026¢
040270
040272
04C300
040302
040310
040316

001254
001254
002160
002172
001254
002204
001254
002206
001254
002210
001254
002204
002326
001254

002160
002326
002172
001254
002200
001254
002204
002322
001254
002214
001254
002170
002162
001254
001162
001254
002214
002326
001254
0022
i¢
001254
002174
001254
002164
001254
002162
001254
001170
001166

MACY11

30(1046)
14=-SEP-81
15:14
DATA TABLE FOR PRINT QuT

J 12
GF 153
PAG

.SBTTL

DATA TABLE FOR PRINT 0QJT

DT000:
DT0004:

.WORD
.WORD

$TESTN, TRAPP(
$TESTN,SERRPC,E.CS1,T.CST,T.CS2,T.ER,T.DS

002310
001116
002170

002220
002174

001116

302244

DT000S:

.WORD

MR1
$TESTN,SERRP(,E.MR1,T

001116

002246

DT0006:

.WORD

$TESTN,SERRP(,E.MR2,T.MR?

001116

00225¢

Dr0007:

.WORD

$TESTN,$ERRPC,E.MR3,T.MR3

001116

002320

002244
002322

DT09210:

.WORD

$TESTN,$ERRPC,E.MR1,T.MR1,PR.B]"
M1 .BIT BITCNT

001116
002320
002170

002220
002322
002174

DT0011:

. WORC

$TESTN,$ERRP(,E.CS1,T.CST,PR.BIT
M1.BIT BITCNT,T.(CS2,T.ER,T.DS

001116
002226
001116
002316
002324
001116
002326
001116
002174
002200
001116
091164
001116
002252

002240
002166
002244
002320
002320
002254

DT0C4:

.WORD

$STESTN,$ERRPC,E.DCYL,T.DCYL,E.DA,T.DA

DT0017:

.WORD

$TESTN,SERRPC ,E.MR1,T.MR1,P1.BIT
PR.BIT M1.BIT ,M2.BIT BITCNT

DT0021:

.WORD

$TESTN,$ERRPC,E.ECPT,T.ECPT,BITCNT

002160
002172
002166

DT0026:

.WORD

$TESTN,SERRFC,T.CS1,7.CS2,7.ER,T.DS,T.WC,T.DCYL,T.DA

001166
002254
002c12

DT0037:

>10041

.WORD
.WORD
.WORD

STESTN, SERRP(

002252

DT0043:

.WORD

$TESTN,SERRPC,Z.ECPS, T.ECPS,BITCNT

002234

DT004S5:

.WORD

$TESTN,$ERRPC,E.ER,T.tR

002224

DT0046:

.WORD

$TESTN, BERRPC,E.BA,T.BA

002222

DT0062:

.WORD

$IESTN, SERRPC,E.WC, T.W(

001162

DT0063:

.WGRD

$TESTN,SERRPC,
SREGO, $REG3, SREGT, SRE G4 , SREG2

001116
001164

001172

i?gg?fifzgg;figTE?grpr,T.E(P!,E.ECPS,T.ECPS.BITCNT

SEQ (152

ala

(ZR6ECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
TIRGEC.PN

DFO004:

BYTE
.WORD
BYTE

.WORD
BYTE
.WORD

2.0
6
0,0

DHO00A
0,0
DHO000B

{

{
{
{

{

000

.WORD

o o

¢00

DFOCO:

——

041524
000
041542

000

DATA FORMAT FOR PRINT QuT

—

040330
040332
040334

002
000006
000

.SBTTL

SEG (153

e o

7973
7974
7975

040202
040324
040326

00000?

PAGE 154

—

7970
7971
7972

040320

K 12

——— e . e - — —

7969

30(1046)
16=-SEP=-81
15:14
DATA FORMAT FOR PRINT QuT

m—— e — — ——

;ggg

MACY11

-_——

CIR6E(CO RK611 DSKLS C(TRL PRTS
TZRGEC.PN
14-SEP-B81 13:5 =

000

000
000

000

DFO011:

SN
SRRy
S
T
VY
S
S
U
Sy
VP
U
U
W
P

— e eS S S S P o

—~———— —

. e - ——

O
O

o
O
oSO

-—

000

_—— e - — ——

000

DF0010:

o
o

000

C00

000

O
p-3

000

DFO007:

000

@®

000

OOOOOOOO0
OOOOOSOOO OCOOQOOOO0O OO
O
O
O

000

O
(s ¢)

000

DF0006:

000

.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

000

040440
040442
040444
040446
040450
040452
040454
040456
040460
040462
040464
040466
040470
040472
040474
040476
040500
040502
040504
040506
040510
040512
040514

.WORD

000

SEQ C15¢4

040430
040432
040434
040436

DFO005:

155

b of Y

8006
8007
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031

000

PAGE

—

8005

000

L 12

8004

000

8003

00C

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

XI»

3000
8001
8002

040366
040370
040372
040374
040376
040400
040402
040404
040406
040410
040412
040414
040416
040420
040422
040424
040426

7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999

002
041606
000
0641625
002
0641715
003
000005
000
0641524
000
041542
002
041606
000
041643
002
000005
000
041524
000
041542
002
041606
000
041661
002
000005
000
041524
000
041542
002
041606
000
041677
002
00C005
000
041524
000
041542
002
042011
000
042055
005
000006
000
041524
200
041542
002
042011
000
042123

13:57

30(1046)
14-SEP- 1
1 5:14
RINT
DATA FORMAT FCR

7978
7979

040336
040340
040342
040344
040346
040350
040352
040354
040356
040360
040362
040364

14-SEP-81

MACY11

7976
7977

DSKLS CTRL PRTS

—

CIRGELD RKE1T1
TIRGEC P11

CZROECO RK611 DSKLS CTRL PRTS
CZR6EC.PUT
14=SEP-81 13:57
8032

8033

8034

8035
8036

8037
8038
8039
8040
8041
8042
8043
8044
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
80¢0
8061
8062
8063
8064
8005
8066
8067
8068
8069
8070
8071
8072
8073
8074
8075
8076
8077

8078
8079
8080

8081
8082
8083
8084
8085
8086
8087

040516
040520
040522
040524
040526
040530
040532
040534
040536

040540
040542
040544
04056
040550
040552
040554
040556
040560
040562
040564
040566
040570
040572
040574
040576
040600
040602
040604
040606
040610
040612
040614
040616
040620
040622
040624
040626
042630
040632

040634

040636
040640

040642
040644
040646
040650
040652
040654
040656
040660
040662
040664
040666
040670
040672
040674

005
0641715
003
000005
000
041524
000
041542
002
062171
000
042230
004
000005
000
041524
000

041542
002
042265

000

042351
007
000005

000
041524
000
041542
002
042437
000
042463
003
000004
000
041524
000
041542
002
042537
007
000003
oc
041542
002
042537
007
000004
000
041542
002
042624
000
062651
003
000000

VACY11 30(1046)

000
000

000
000
000
000

000
000

000

0,0
DHOCOA
0,0
DHOO0B
2.0
DHO14
0.0
DHOT4A

{
{
{
{
{
{
{
{
{

DFC017: .WORD
.BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
DFO021: .WORD

§
0,0
DHO00A
0.0
DH000B
2.0
DH0017
0.0
DHO17A
7.0
S

{
{
{
{
i
{
{
{
i
{
i

DF0026:

DF002/7:

000

DF0037:

000
000
000

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

000

¥4

DF0014: .WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
BYTE
.WORD

000

SEQ 0155

{
{

000

PAGE 156

5.0
DHOO4E

000

C00

.BYTE
.WORD

000

15:14

DATA FORMAT FOR PRINT OuT

000
000

14-SEP-81

DF0040:

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

0,0
DHOO0A
0.0
DH000B
2.0
DH0021
0.0
DHOZ21A
3,0
&
0,0
DHO00A
0.0
DHQOO0B

2.0
DH0026
7,
3
0,0
DH000B
2.0
DHO026
7,0
4
0,0
DH000B
2.0
DH037A
0,0
DHO378B
3,C
O

ooc

000
DFO050:

DHO00A

DF(GE0:

SEQ 0156

-t we

157

[alal

PAGE

L L

N 12

PSP
PR Pt PP (AP
0 Pai

O
@
O
O

s
-

(S
PP
s P
e

O
>

@®

N
-

N
—

Fum P30

-~
»
-

YR S

OQOOOOO

OOOOOO0

OOOOOOU

[=]
@

DFO046:

000

(2]

€00

L ol

000

DFO0045:

000

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
. «ORD
BYTE
.WORD
.BYTE
.WORD
.BYTE

000

.WORD
.BYTE
.WORD

000

DF0043:

&»

000

r
»

000

OOOOQOOOO0O

000

OOOOQOOO0

DFO042:

041046
0410590
061052
061084

000

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

Ce 1044

000

041034
041036
041040
0461042

.WORD
.BYTE
.WORD

000

.BYTE
.WORD

©O

047000
041002
041004
041006
047010
041012
041014
041016
041020
041022
041024
041026
041030
061032

002
042700
900
042744
005
000004
000
041542
002
042437
000
042463
003
000004
000
041542
002
042437
000
042511
003
000005
000
041524

000

DFO04T:

040770
040772
040774
040776

041542

000

OOOOOOO0
(=]
jo]
(=]

040740
040742
040744
040746
040750
0460752
0460754
040756
040760
040762
040764
040766

007
000004
000

14-SE p- 1
15:14
30(1046)
QUT
R
RINT
DATA FORMAT fO

040676
040700
040702
040704
040706
040710
040712
040714
040716
040720
040722
040724
040726
040730
040732
040734
040736

MACY1T

X~
D OOPNNTDOONOO
O\I’ONOOONUOJ\'\JOOUNOO%OU’I\NOOOMOOJ\WUOUNOOJ‘
L
of Y
X~
s
X
TIe X
s Xs
e
I
s e Ies X~
«WO
IsOOMNOOSH
X~ X
W Voo
b )
X

~".Jdcog‘do&fl‘\wr\.’—‘oom\loml\wf\)—'oom\lo\fll\WN—‘OOm\I

d —2
b —d ad

2 = O OO (o]
o)

b =D —d
D
D acd
b
ad
d
b
oD
b
b —d
b
b med o
b oD
b
b md
b oh
B
od

NN AWWNAWWN NN W NN PNONUNONLUNDNONOPTON)
= =2t 3 2 Bt 2
V)

h el el

AR
2

B
@

[

a0 W UL Go G (o GB U 0o O Co G G0 0o XX 0o 0o 0o G0 0o 0o 0o Co 0o 0o 0o 0o 0O Uo 0o 00 UL GO Co 0o 00 OO 0o 0o 0o

8088
8089
8090

DSKLS CTRL PRTS
14-SEP-81 13:57

g88888¢8

CZROECO RK61T
(ZRSEC.PIT

—»
el el
D md cad e D ed ond D b B ed ad aed i D
o o (0,6 Yo Neo SUIV NV IV IV IV TV U IV IV, ¥V L3 o
(9, &~ WN)
OO0 NAWNE NN - OO00

€0 0o 0o 0o o 0o OO 0o 0o Co o 0o (10 Jo 0o 0B OC 0O OO

TIRGE(D RK611
"IRGEC.PIN
041056
041060
041062
0461064
041066
0641070

DSKLS MIRL PRTS
14-SEP-81

002
043012
000
043037
003
000005
000
041524
000
041542
002
041606
000

041757
002
000005
000
041524
009
041542
002
041606
000
041774
002
000005
000
041524
000
041542
002
043064
0C0

043131
005

13:57

MACY11

16=-SEP=-81
30(1046)
15:74
DATA FORMAT FGR PRINT Qu?

000
000
000

000

DFO061:

000
000

€00

DF0062:

000

000
0ed

000
000
c00

.WORD
.BYTE
.WORD

.WOKD
.RYTE
.WORD
.BYTE
.WORD

000

.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
-WORD
.BYTE
. WORD
.BYTE
.WORD
BY'E

DFOO0CL3:

.WORD

.BYTE
.WORD
.BVTE
.WORD
.BYTE

.WORD
.BYTE
.WORD
.BYTE

2.0

DHOSCA

0.0

DHO608

o'o
DHOOCA

0.9
DHO00B
2.0
DHO04
0.0
DHO04
G

5
0.0
DHO00A
0.0
DH0008B
2.0
DHO04
0.0
DHOO4H
0.0
DHOQ0A

0.0

DHO00B

2.0
DHO63A
0,0
DHO63B
4

B 13
PAGE

158

SEQ 0157

OV NOWVNIEW

ronurOrOND VNN
M)~ ed D s 2 2

00 00 0o 00 0o 0o 00 00

8212

LSBTTL

ASCII

MESSAGES

0PROO1:

LASCIZ

<15><

2>/Rk611

O0PROQ?:

/RK611

VECTOR ADDRESS

(

OPRO03: .

SEa 0158

MESSAGES

[
Y

ASCII

159

o44

PAGE

15:14

DPOODDODODODDDO®DEODD

OPRO04:

/RK611

OPRO06:

<15><12>/2ND PASS RUN

025052
050040
046501
0642524
025052
000012

OPR0OO7:

LASCIZ

<15><12>/veees

047522
0404

ABORT:

SPA(E?:

LASCIZ
LASCIZ

TSTRv1:

LASCIZ

<155<12>/TEST

LASCIZ

/ BYPASSED/<15><12>

(

PRIORITY

APPRCX & MINUTES/<15><12>

TIME

0471
0
0

051505

006504
042524

0461040

042523

S
0
0405
0471
OZO}

050131
006504

041164
061172
061200
041206
041214
041216
041224
061232
041240
0461246
041254
041262
041270
041276
041304
041312
041320
061326
061334
0461342
041345
061352
041360
041366
041374
041402
047410
041413
0461420
0461426
041434
047442
041450
041456
041464
041472
041500
041506
041510
0«i516

13:57

16=-SEP=-81

30/1046)

PROGRAM HALTED

<15><12>/PROGRAM ABORTED BEIAUSE

renee/C15><12>

ERROR

THRESHOLD EX{EEDED/<15><12>

DWW

ad
D e
D
ed o
e
D o
nd
e

D O O O O O 0o 0o 00 00 Co 0o 0o On o
N
WA = O 000 NN ES NN —

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

8179
8'80

14~SEP~81

MACY1T

OO®

TIRGEC.PI

DSKLS 7TRL PRTS

OO
OOOOO0OO o
[«IV, BV . T ¥ W NV IV 1V,E
Q—
NOONINI
= ANy ~n
OV
—OWN
=\
—
—=LO
N2 O——aNOO
N
A —
WO
ON =2 NO

CZROELD RKOTY

TSTBY?:

Bf
B:

!
(t
q
()

(IREECD RK61T DSK.S C(TRL PRTS

CIRGE( P11

14-SEP-81

13:57

MA(Y11

SSS;
8223
8224
8225
8226
8227
8228

041524
041532
041540
041542
041550
041555

042524
020040
000122
052516
020040
1264

8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
8242
8243
8cb4b
8245
8246
8247
8248
8249
8250

041562
061570
041573
041600
041606
041614
041€22
041625
041632
041640
041643
041650
041656
041661
041666
041674
041677
041704
041712
0641715
0471722
041730

020040
006520
116
020040
054105
020040
046101
122
020040
030523
122
020040
030522
122
020040
031122
122
020040
031522
122
020040
020122

8252
8253
8254
8255
8256
8257
82>8
8259
8260
8261
8262
82¢3
B264
8265
8266
8267
8268
8269
8270

041742
041750
047756
041757
041764
041772
041774
042002
042010
042011
042016
042024
042032
042040
042046
042054
042055
042062
042070

045522
020040
000
122
020040
000101
045522
020040
000
105
020124
040525
042522
050040
051525
000
122
020040
030522

8274

042120

8251

8271
8272
8273

8275
Rz7¢

041736

0642076
042104
042°12

042123
042130

042113

052111
041040
020040
052116
122
020040

30(1046)

14-SEP=-81

.SBTTL

DATA HEADERS

15:14

D 13
PAGE 160

SEQ (159

052123
051105

020040
047522

OHOOOA:

.ASCIZ

/TEST

ERROR/

020115
041520
051505
052040
012
046525
050040
042520
041501
000
041513
051040
000
046513
051040
000
046513
051040
000
046513
051040
000
041513
(51040
020040
000123
051105
045522

020040
000
020124
040522

DHO00R:

.ASCIZ

/NuM

PC/

DHOCGOC:

.ASCII

/TEST

TRAP/<15><12>

LASCIZ

/NUM

PC/

DHOZ%4:

.ASCIZ

/EXPECT

ACTUAL/

(30523
041513

DHOO4A:

.ASCIZ

/RKk(S]
.

RKCS1/

030522
046513

DHOO04B:

.ASCIZ

/RKMR'

RKMR'/

031122
046513

DHOQ4C:

.ASCIZ

/RKMR?

RKMR?2/

031522
946513

DHO04D:

.ASCIZ

/RKMRI

RKMR3/

031123
042513
051049

DHOQ4E:

.ASCIZ

/Rk(S?2

RKER

020040
051755

DHOQ4F:

.ASCIZ

/RKER

RKER/

041113
051040

020°01
041113

DHOO4G:

.ASCIZ

/RKBA

RKBA/

041527
045522

020040
041527

DHOQ4H:

.ASCIZ

/RKWC

RKWC/

050130
040440
020114
042523
042522
041040

041505
052103
050040
052116
047526
(S21M1

DKRO1G:

.ASCIZ

/EXPECT

ACTUAL

PRESENT PREVOUS BT/

046513
051040
02004C

030522
046513
041040

DHO10A:

.ASCIZ

/RKMRI

RKMR1

BIT

BITY

COUNT/

DHO10B:

.ASCIZ

/RK(531

Rk(S1

BIT

817

(OUNT/

020040
052111
041440
000

0641513
(51040

02005(
000103
052103
052524

RKDS/

020040
O?OOigr
052%
-

(30523
041513

046

167

lalel

PAGE

SEQ 0160

E13

R=A422242~
4 2 "4~ 4

15:14

DHO4:

LASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

DHOT4A:

CASCIZ

/RKD(ve

RKDCYI

RKDA

QKDA/

DHOO 7:

LASCIZ

/EXPECT

ACTUAL

PRESENT

PRESENTM

PRESENT

PRESENT BIT/

DHO17A:

LASCIZ

/RKMR1

RKMR1

BIT+1

BIT

BIT-1

BIT=2

ISR A=A

14=SEP-8"
DATA MHEADERS

COUNT/
Df
Df
Df

DHO02:

LASLIZ

/EXPECT

ACTUAL

BiT/

DHO21A:

LASCIZ

/RKECPT

RKECPT

COUNT/

DI
OF
DF

DI
D!

——

OMO

[ RV LLNIV P N S VNIV P R LNV F SV [ SV ¥

30(7046)

DHGZ1R:

LASCIZ

/RKECPS

RKECPS

COUNT/

D=0026:

LASCIZ

/RK(S1

RK(S?2

RKER

RKDS

RKw(

RKDCYL

RKDA/

jvlelviviviolvivibie
el

NWVOO
= IWOOW—=2WO-OMN

WA
o~ NN

NN o0

046131
041504
045522

nO S WU

OOODO OO0

020

042444

042452
042460
062463
042470
04c476
042504
042511
042516
042524
042532
042537
042544
042552
042560
042566
042574
042602
0462610
042616

041504
045522
020040
020040

NHO—=NVOOQO
= —=NO=TVNO =N
DODOO
=IO = = OOV — 2 OWN—==20ON0O
— £ B TaY oW WY GP S S
YAS Y SRR
Y oY o TR o NN
WWOOWNIOODIWOWOWOR
SN OWOHNOO

AN AN U LA AN N U AT L NN U N AR AN AN AN N WA N N N NN NN
WWWIUNOMNONONROTLUNNLNDTND
2 P
B
= =
a2 OO
N =OOVONAE NS NN 200V
YA
NNV =20V

00 (3o 0o 0o 0o Ko 0o Oo Oo Oo Go Co G0 Ko G Oo OO 0o 0o o 00 0o 0o 0o Co

8307

105

020124
040525
050130
040440
000114
045522
020040
0465131

OOOOVOOOOOOOOOOOOO00

3301
8302
8303
8304

020040
020040
052111
061440
000
050130
040440
020114
041505
052103

S PON

8294
8295
8296
8297
8298
8299
8300

062236
0422446
042252
042260
0462265
042272
042300
042306
042314
042322
042330
042336
042344
042351
042356
042364
042372
0462400
042406
042414
042422
042430
0462436
042437

030523
052111
041040¢
020040
052116

S PONY —

2293

042230

13:57

8291
8292

062136
062144
042152
042160
042166
042171
042176
042204
042212
042220
042226

'4-SEP~81

OOOOOOO0OO
OO0
O
WNENONOWNEBNINND
i
W
—=PNUOIO
=N
O
O=-1 =OOWNM O3\ = ed =2\
ok b —2
S 2 QB E
2NN
OMPON) S ONONY) —
QO WWOOWWON, NWWNI
NIW N —

8277
8278
B279
8280
8281
8¢82
828%
8284
8285
8286
8287
8288
8289
8290

VMACYTT

[SKLS CTRL PRTS

CIRGE(D RKETT
CIRGEC.PY?

053440
042101

000" 24

O
NSO

051117

BAD

WwORD/

DHO37R:

.ASCIZ

/wORD

wORD

NUMBER/

DHO0&T:

ASCIZ

/EXPECT

ACTUAL

EXPECT

AL LAL

BIT/

DHO«YA:

_ASCIZ

/RKELPT

RKFCPT

RKE(PS

RKECPS

(OUNT/

DHO60A:

_ASCIZ

/RK(S2

BUFFER

WORD/

920040
051117
051040

DHOECR:

.ASCIZ

WORD

READ/

040502
020066
051105
033461
047527

DHOC3A:

.ASCIZ

/RKCS2

BA17-16 BUFFER

BA17-16 WORD/

DHD6B:

ASCIZ

PUuF

WD READ READ/

VI
— QO

b~k

SES (167

b =d O

~ =SOWN=MNOROHMNNIO
N

N
N

05
05
020040
000
020040
053440
020040
000104
051503

= ANO NN

020040
041040
02004
020104
020104
051040

000

/GOOD

LS TLONINVO
S ONVOMNIE O
NOOPROANODS
N WO
NS

040
020040
053440

47130

.ASC1Z

OSSO0
NOVION)
—

043131
042136
043144
043352
043160
043166
023174

DHO37A:

ANANO
TM 2O
OO PO
WIINOOWNMO

042117
040502
020040
€00
051117
053440
020040
042502
042520
041501
020040
052163
052524
044502
041505
045522
020
051
041
047

OO
PNy
NOO

047507
020040
020C40
042122
127
020040
020104
046525
054105
020040
046101
0425¢U0
061501
020040
045522
020040
052120
041505
045522
020040
000124
045522
020040
051105
042122
040
020040
020104
040505
045522
020040
030455
043106
040502
020066

o OOOOOOO0OOTOOOOOOOD
& NN SO
S NONWNNO S NN

062624
042632
042640
040646
042651
042656
042664
042672
042700
042706
062714
042722
042730
042736
042744
042752
042760
042766
042774
043002
043010
043012
043020
04302€
043034
643037
043044
043052
043060
043064
043072
043100
043706
043174
043122

14-SEP-B1

DATA HEADERS

15:14

F 13
PAGE 162

2V(1046)

OOOOOO

13:57

COMnS
WWNDODO

14=SEP-81

MA(Y11

OO
W

DSKLS TTRL PRYS

QOQOOOO0OO0D

[

MmTM

WWWWINN

O~NOWNE
N

047527

WCRD

.ASCIZ

/UNEXPECTED MEMORY PARITY ENABLE

EMS0C4:

.ASCIZ

/ERRCR AFTER ATTEMPTING IMPLIED SEEK/

F50064A:

.ASCIZ

/RK(CS'

IN ERKROR/

ESO0GB:

.ASCIZ

/RKMR1

IN ERROR/

O
D

SEL (162

EMOO0:

E5004C:

.ASCIZ

/RKMR2 IN ERROR/

E5004D:

.ASCIZ

/RKMR3 IN ERROR/

.ASTIZ

/RKER IN ERRUR/

_ASCIZ

/RKBA IN ERROR/

_ASCIZ

/RKW(C

.ASCIZ

/ERROR ATTEMPTING TO READ HEADER SYNC

_ASCIZ

&RERROR ATTEMPTING TO DO HEADER READ/(OMPAREE

oo
ROV

NoW

E5011A:

IN ERRQR/
(PREAMBLE/

ASCIZ

/RKDIYL OR RKDA IN ERROR/

[aala2laal

TMm
mmm

—

OOO—

— ALY = —d

b
AT

OO0

f ¥ ol

O
NS

OOOO0OOOC

S} e

N —a

QO
OO
IRV,
| ,C IRV, ],

OO OO OOOO
~nO [ 2 o3 P E DAV
SO NNVOOON—

WINLWANUND &S

nNO
nNO

ONVWO
OO D —
R~
OO0 =200
—
=S
VININWN

EM5071:

mmmMmmmMmm

Y
JEE

U} —D

FM5010:

—
22—
-l mand

E5004G:

M
M

—A A\

VA= N

O OO

ATINTY =B\ S) ad —d

OO0
iGN
OO
iy

b
—

E5004F:

]

E50CAE:

OO
VIO

OO
WD

OO
WDl

TRAP/

-—

OOO0OOO0OO0
&H &0
NNOON—
=

0642520

—O

e
b =k

G 13
PAGE 163

ERROR MESSAGES

N =P
OO
O
NN

-t ASVNSY

15:14

.SBTTL

NN
POON)
WO =800

A ek b ok b =D
22\
2 \NOQO
Obs =2

QOMNNINND—=
A
O b —d
—=OOH—=NIN)
NN
O =N
O —a

105
040440
052120
047524
042510
051040
047503
000105
045522
047440

OOOOOOO
eSS
OO =M=
O HNO —
OV
=N
OO OO —

040
052120
047524
020104
051105
020103
046501
000

N ES S BN unn

047
051

OO0O0OO0OOO0O

047
051

L OS2 N
= O
=N =
WOOWNNIO
WO ODOWVMMNIONN

(=] QOO0
£ N (a1,
N P S
N—=OO—=

=
LN
NP
=3

047
051

no &

043535
043542
043550
043556
043564
043572
043600
043606
043610
043616

040440
052120
046511
020104
000
122
044440
047522
045522
0471
0511
1
0444
0475
045
047
051

8422
8423
8624
8425
8426
8427
8428
8429
8430
8431

043256
043264
043272
043300
043306
043307
063314
043322
043326
043334
043342
043345
043352
043360
043364
043372
043400
043403
043410
043416
043421
043426
043434
043437
043444
043452
043455
063462
043470
043476
043504
043512
043520
043526
043534

0471
0521
0465
0405
042440
020105
000
105
040440

8387
8388
8389
8390
8391
8392
8393
839,
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8412
8414
845
8416
8417
2,18
8419
8420
8421

043176
043204
043212
043220
043226
043234
(43242
043243
043250

QOO
AN
N =

8378
379
8380
8381
8382
8383
8384
8385
8386

OOOOC
»
lelelele
Lol ]
S VIV
IV
RV P LY AV F V.
NONNNVNY—
E e ¥
Y NY

8376

30(1046)
“4=SEP-B1
ERROR MESSAGES

—_0
-0
D
ho—

MACY1Y

—_-O
—C
NN
NOWwW

CIRGED RKETMT DSKLS CTRL PRTS
TIRGEC.PYT
14-SEP=BY 13:5°

04
2 \ )

\ ) =2 =2 \ )

b =

2 LAVALVAUY
— —_—

b —

SNV, LU, o) Hebun [AS PLRV,
LV, ]
=O
—MN
=N~ NN

=3 =3\ ) ==

QONN=NO

Pl 2R SRV IV, LU

elolelolelelalelelo) OOOO OO0

0434
PENNEEEE S N

NN S

OO0 [eole]
SN0 Y1)V
N—=O~N OO
S Y AT

(9,1 —\NES
N
~n) NNV
O~
&» H OO

=
NO =N

Ll ValValV R SR o
Y ed \ ) —D =\

)

NODNINVOOONI—=OON)
NN
S WPV

—

AN S NONNOO
=
O

NE S wnunesNuO
NS

OOOOQOOOOVOCO
—_—

EMS5015:
LASCIZ
/ERROR ATTEMPTING
TO READ GAP/

EM5C20:
LASCIZ
/ERRCR
ATTEMPTING
TO WRITE
DATA

EM5021:
LASCIZ
/ERROR ATTEMPTING
TO WRITE
DATA OR ECC/

ES021A:
LASCIZ
/ERROR

EM5023:
LASCIZ
/ERROR BETWEEN
SECTORS ATTEMPTING MULTI-SECTOR WRITE/

EMW?:
LASCIZ
/MR1
INCORRECT
ON

EMW?:
LASCIZ
/MRY
INCORRECT ON 1ST

EMy3:
LASCIZ
/MR
INCORRE(T ON 2ND UPWARD

N ¥4]

ERROR MESSACES

14=-SEP=81
15:14

H 13
PAGE

IN ECC

1ST UPWARD

DOWNWARD

SYN(
.PREAMBLE)/

TRANSITION OF

MAINT

TRANSITION OF

MAINT

BMiAaALALALN
A A

3G(1046)

164

SEQ (163

GENERATION/

(LOCK/

MAINT
(LOCK/

(LO(x/

Rubos

(2] RalnalaalaslaslaslasiaslyTN o Yo
[

OOOOOOOOOOOOOO0O
OOOODO
£H o OSSOSO
LAV,
IV, [ N e1,V]
= ONNNOOOO—=NSHO0N—
nNNOOOO
VIN =2 QO wd = O
N2 Nl OOt = ma 3
OB —=MNOWVNIO SOIMVOO
OO
NN —
VS 2O WIND 20N — NI NWNINO = OWNrONO O

13:57

COOODO

o OCOOOOQOOOOOCOCOOOO 20
&~ (¥,] F R NN R
AV LV P AV P WIVL IV Y
[l
o
O = NP NN ~2 SO
NN = O MW ~no

O—=—=NONN=2NINO
O —=—-OO0ONNLO= =NV
=N
= OO0
H OO0 O —=2MNVOO
WWVIWES OSSO WS WNUWWNNI =
NS NN
BSOSO
2 O =2 NWWO NI NS =

b —d ek

N=OOO

leole]
N

=81
MACYTY

b
b
e
—

WL, 5]
Nole. INTo NV, I

VARV RV ARV R, N RV LW ]

00 00 0o 00 00 Do 00 O,

8511

8520
8521
8522
8523
8524
8525
8526
8527
8528
8529
853C
8531
8532
8533
8534
8535
8536
8537
8538

8539
8540
8541
8542
8543

044454
044462
044470
044472
044500
044506
044514
044522
044530

044536
044544
044545
044552
044560
0446566
0445764
044602
044610
044616
047624
Q44632

044640
044646
044654

044662
044670
044676
044704
044712
044716
044724
044732
064740
044746
044754
044762
044770
044776
045006
045012
065020
045026

0201
0201
0001
0541
0427
0471
0531
0535
0420

052117
000
127
052040
020114
052040
031040
052103
026065
020104
020124
Q47

052
051
044

054
0475
042503
047440
047514
051127
047524
030440
052040
031040
052103
026065
020104
020124
047125
052103
046131
020122

051440
044522
02011/
031466
0460522
020054
05117
053440
047503
030064
054105

041440
042526
000127
052111
041440
032464
040522
020054
051117
053440
047503

030064
054105
042105
047111
053117

95
04
0000
042520

LASCIZ

/MR1

EM5026:

.ASCiZ

/EXPECTED CYLINDER OVERFLOW ERR DID NOT SET/

ESO2CA:

,ASCIZ

/WRITE

EMS5027:

.ASCIZ

/UNEXPECTED ERROR WHILE

E5026B:

.ASCIZ

/WRITE

EM5030:

.ASCIZ

/UNEXPECTED CYLINDER OVERFLOW WRITING {AST PHYSI(AL ADDRESS/

a
&
&
-

[ON OF MAINT (LOCK/

INCOPRECT ON 2ND DOWNwARD TRANS!

TO (YL 632,

TRACK 2,

SECTCR 25, WORD COUNT &C1/

TRYING TO FORCE (YL OVERFLOW/

046137
043122

020105
046137
026066
045503
042523
031040
051117
047125
000061
042520
061440
042504
051105

Yoy

EMwé:

SES (164

LYY

PAGE 165

S Al of ol aal o

14=-SEP=-8T

ERROR MESSAGES

15:14

113

30(1046)

k Ton ol

&~
~n

()

&H
~N

£, OO
OWNMP OO

8502
8503
8504
8505
8506
8507
8508
8509
8510

OSNM

= NN
OW— =2 NOOO IS =N N =2 SN NO N
b
N =2 N
=SSN SO
=SNONIMNN
N RPOWS YO WO~
oo

047
040

044440

8501

047

OO0
O0OOOOOOOOOOO
B MNOWVIWESSONN
SN

0445

8500

8497
8498
8499

NON—=ONOONNY
- ) it md ek e ek
OSHMNONIWO
VORI
=N

044446

044330
0446336
044344
044352
044360
044366
0464374
044402
044410

OQOOOODOO
NS NSNS

047117
052440

Q44416
0444624
044432

020126
(042116
0S1M
047
0471
0405
0467
0511
0475
0201
04621
0535

8488
8489
B49C
8491
B4G2
8493
8494
8495
8496

WACY1Y

8?0000

13:57

A\
b ed 2 (D) = a2 O N
O==0OOH
NN — WWNN 2 =0 NN~
—

'4-SEP-81

5=
D OO RMNVVONIN
= =NV
—=LO -2 =200
ONN=VNWNWEOS OO S WWNNWWN
N — =

IRGEC.PIY

DSKLS CTRL PRTS

SOV
N=2 =NV
SN
= O N NO NN
NN
BNO0NON)
—SWVINOWWRNRWES

IRGELC RKE1T

TO (YL

1456,

TRACK 2,

SFCTOR 25, WORD COUNT 401/

J 13
PAGE

166

SEQ (165

/UNEXPECIED ERROR WHILE WRITING LAST PHYSICAL ADDRESS/

EMS5032:

.ASCIZ

/ERROR ATTEMPTING TO READ DATA SYNC

020122
050115
952040
042101
020101
041503

EMS034:

_ASCIZ

/ERROR ATTEMPTING TO REAL DATA OR ECC/

042440

EMS035:

_ASCIZ

/ECC ERROR IN READ DATA OPERATION/

(PREAMBLE)/

2\ N

LASCI2

/DATA

(OMPARE

ERROR AFTER

INPUT NPR

TRANSFER/

= =

EMS5037:

NO 2 OQO—=HO0OSHLON)
S NNO S~ =2 NWO NN

wr s

OO 2NN
ONOWVMWNBINNO

NOTVND
— =) —

N —2
)N =b ad [\ b =2 )
—t A b D) =D et O b b PN\

POP L RV, LV, LV,. P RV P )

£ unuvirnaun
g

OCOOOOO
OOOOOOOO

QOO

OCQOOOOC (=]

—=N=ONINVNV—2OO0ON
O OO
SO
=L
N=2NINVOOCOON=NC
QOB
NS WOV
NN

——2ON—-=O0COC—N)

D ed
Y o A\ Y
b
mad \SYASY
ATV =

8599

045356
045364
045372
045400
045406
045414
045422
045424
045432
045440
045446
045454
045462
045470
045476
045504
045511
045516
045524

15:14

_ASCIZ

041503

(VO LV TV LV, P o o o

745350

105

051 122
020 116
042 040

164-SEP~81
30(1046)
ERROR MESSAGES

EM5031:

020104
020122
020105
047111
05213
044523
042101
000123
020122
050115
040
2101
020101
024040
041115

nSs o

045307
045314
045322
045330
045336
045344

053440
043516
020124
041510
042104
000
050130

042524
047522
046111
052111
040516
054510
020114
051505
047522
042524
0463516
042522
052101
041516
040505
000051
047522
042526
0463516
042522
052101
062440

045306

041505
051105
044127
051127
020107
050040
040503
051104
051105
052101
044524
020117
042040
054523
051120
042514
051105
052101
044524
020117
042040
051117
000

053517
0464524
051501
051531
040440
051523
042516

8573

8574
8575
8576
8577
8578

045104
045112
045120
045126
045134
045142
045150
045156
045164
045172
045200
045206
045214
045222
045230
045236
0465242
045250
045256
045264
045272
045300

046106
044522
046040
044120
046101
042522
125

OO—=OOO-+MNINLNINVNO

8551
8552
8553
8554
8555
855€¢
8557
8558
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571
8572

045034
045042
045050
045056
045064
045072
045077

OOOOOQOOCOOOOO

8544
8545
8546
8547
8548
8549
8550

MACYTT

DSKLS (TRL PR 7
14-SEP-B81 13:5

—_ =N
O

CIRGECO RK611
TZRGEC.PT

EM5041:

LASCIZ

/ECC

(ORRELT

AFTER ECC

READ

IN READ DATA/

RD
kD
RD
RD

RE
RE
RE
RE
RK
RK
RK

RK
RK
RK

EMS5042:

LASCIZ

/ERRJR

IN ECC

PATTERN CALCULATION AFTER ECC

ERROR/

=W
O

/ERROR IN ECC POSITION COUNTING AFTER ETC ERROR/

EMSO44:

_ASCIZ

/ERKOR AFTER PROCESSING DATA (HF(CK ERROR/

EM5046:

.ASCIZ

/TRANSFER LENGTH ERROR ATTEMPTING PARTIAL

EM5047:

.ASCIZ

/BAD SECTOR FRROR DID NOT PREVENT DESIRED ADDRESS INCREMENT/

EM5050:

.ASCIZ

/BAD SECTOR ERROR DID NOT CAUSE

EM5051:

,ASCIZ

/BAD SECTOR ERROR FAILED TO SET WHEN EXPECTED/

NOODOO
RN oG
VINDIWNN
O O WS WIS S YOO
DN N &~

OONIOMNINES
VIVHANWVNINON
O

O SN
NN
N RO
——
S SNINODOOMD2MNMNSON)
= 2

SECTOR OPERATION/

CERR TO SET/

[ FabY

.ASCIZ

~N~

EM5043:

SEQ 0166

N
—= =

SOOO

= OHLO0OCO=OHLrOH2O-SON)
O OCOONWDN NOOUVIRWN
WA

S
S bsonesng
nN) — ON ==
NVBNNN
= O
OHf =N
NN un—

[ololelelelele BNelololo]
e
Sy

14-SEP-81

ERROR MESSAGES

15:14

K13
PAGE 167

30(71046)

N
ORI

md S
=
) =

052
042
0471
042101
047524
047522
020104
0511 0
020124
042522

AN =2

H
OO ONO
O =2 NIHANNININ—

050040

051523
040504
042510
051122
124
042
043
051
052
047
0521
042523
(047440
044524
102
041505
051105
044504
020124
047105
044523
0421
020
046
040
052
051
042
0414
041440
047524
000
102
041505
051105
040506
052040
020124
(462440

045664

045672
045700
045706
045714
045721
045726
045734
045742
045750
045756
045764
045772
046000
046006
046013
046020
046026
046034
046042
046050
048056
046064
046072
046100
046106
046114
046122
(046130
046136
046144
046152
046160
046161
046166
046174
046202
046210
046216
046224

OO
S \¥,]
O

8617
8618
8619
8620
8621
8622
8623
8624
8625
8626
8627
86¢8
8629
8630
8631
8632
8633
8634
8635
8536
8637
8638
8639
8640
8641
8642
8643
8644
8645
8646
8647
8648
8649
8650
8651
8652
8653
8654
8655

8616

o COCOOOOOOODOOOOD
OO0
~no VY
9
O
SvAavivy SV
S NIV
O
SR v T
o O = VNONNN
S
REO =P~
L OO0

051
041
047
042
020
00?
05
064 7
050
047
0471
0404
0424
0511
1
040440

OOOQOOOO0
OOCOOOOOOOO
NN EaE
2 SF SRV, I LW PNV W [P L
RV, |
OH OO0
=2 NI
= O NN
b d ek e ASY S b
SN =N
b
b b d 2
W=
= PONO
OO
=200 =O
O NN
—
OWN—=O NS

045532
045540
045546
045554
045562
045570
045572
045600
045606
045614
045622
045630
045636
045644
045651
045656

OMNIB

R600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613
8614
8615

OOO0OOOOOONOOOOOOOOO
NSNS
SOV
S NESONOWVY
NNONNNLNVNVO
= =2ONVIWNOO—=

14~SEP-81 13:57
NS 20N0ON)
= 2O

CZRO6EC.PN

MACY11

OOOOOOO0OO0
H &PV
= NNONOO =

(ZROECO RKO611 DSKLS CTRL PRTS

168

=2 O =N ONNOOO
N

SEQ 0167

LASCIZ

<15><12>/WHEN BAD

E 2k abdaY]

OO0O0OO0OCOO

PAGE

/DATA

EMS053:

LASCIZ

/ERROR ATTEMPTING WRITE

EMS50%4:

LASCIZ

/ECC

EM5060:

LASCIZ

/WRITE

EMS5061:

LASCIZ

/TRANSFER

EM5063:

LASCIZ

/WRITE

NESES
OSSN
— kb
P
— NN N OO
A\ = S RN
NO

OO0V
wvwviuvnirno
S

TRANSFER

DID NOT

CONTINUE

TO END OF

SECTOR/

SECTOR ERROR OCCURRED/

CHECK

OR ECC

READ

AFTER WRT

WO O

800
wing

L 13

LASCI]

042440

=== NN
OONNVOOO Q—
— et e AN NNO = NN
b e
OONSS
DN SRNVON) OO
VW NOO SO O S OWWNMNIWWION
N

&S a2\

15:14

EM5052:

OOOOOOO
VSN ESSDn
PRDWS
OOOOOOS
S NuN
ovn

NS
—
NN o VSN

HPOOOON-MNINOONIOO
=N — =l
OWN =2 NN ES O SN S ANDWWNRNIN)
8 N~ =

OOOOOO?

—_

NO M=

14-SEP-81
30(1046)
ERROR MESSAGES

045510

OOOOOOD

046702
046710
046716

047

046

MACY11

o
no WSSO
(=] OMNNOOQO
S
Y
oO— P O R R
ony SBNVONI =IO
o QOQOWWNNUWWVY

046562

046567
046574
046602
046610
046616
046624
046632
046640
046644
046652
046660
046666
046674

— md md AYNS) = A\ ) b bk ek \SY

046546
046554

oo co OO0 (@]
o
&N = & [@ P RV IV, F AV, PN
[aN]
ANy — wiro WO~ O =2 = NIO NN o

o
OO0

£H B »

051105

OO=—=2
= NO—=—==0ON—=0O
SN2 NN
= NOWNO NS NN SN = N
TON = = NWSNINW

046532
046540

o
£H

046460
046466
046474
046502
046510
046516
046524

N NI ~no
(9,1
(O P o o WVN=20 N0 2 N—
ONO—LO=NOOCNONIN=NINVOONIH
BN =2 =2OO L ==
WWN= NN POWVIONIONNNOMN
B =2 NINVO OWON VTN
OONONY

046445
046452

)

046364
046372
046400
046406
0646414
046422
046430
046436
046444

13:57

000104

(o]
&

8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
5669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688

046232
046236
046244
046252
046260
046266
046274
046302
046310
046315
046322
046330
046336
046344
046352
046356

14~SEP-81

lelelelelelalolelelelelele]
PSSV
P SV, F AV, PN AV, V1V,

8656
8657

DSKLS CTRL PRTS

SN
WY

CZROECO RK61T
TIRGEC.PT

ERROR

IN WRITE

CHECK

ERROR FAILED

OPERATION/

'O SET

LENGTH ERROR WITH WRITE

CHECK

ERROR

FAILED

TO SET

IN 16 BIT MODE/

(HECK ERROR/

18 BIT MODE/

(HK/

CZROEC.PIT

14-SEP-81

046724

13:57

MACY11

14-SEP-81
30(1046)
ERROR MESSAGES

.SBTTL
M
;'

046724
046724
046726
046730
046732
046734
046736
046740
046742
046744
046746
046750
046752
046754
046756
046760
046762

PATZ:

042213

15:14

Mm13
PAGE

169

.EVEN
DATA PATTERNS AND BUFFERS

PATTERN 1 - ALL ZEROS
PATTERN 2 - ROTATING CELL PULSE PRECOMP

046764
046764
046766
046770

046772

0646774
046776
047000
047002
047004
047006
047010
047012
047014
047016
047020
047022

PAT3:

[
I L
S Y o, Y o T QU G
Y, P
WWN N NN WA NN ON NN
ON N
(NN NN NN NN N0 O NN NON N
N WINNWNWWW
N NONON WO
WWWW WAL NN
N
NN ON N
NN NN NN N NN ON OV W NN O N

PATTERN 3 - MAX PRECOMP PHASE MIA
— e
d e ek
d =B DD D = D)
=
WWIWWIWNWIWN
N N
ON NN A O
WWWWINWWWNNO
N NN
N
WWNWWWWWWN
NN
ON NN NN N
WWWWWWWWNWNO
ON WA ONN
AN N NN N W NN NN ON NN
ONN

8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767

DSKLS CTRL PRTS

O—=OO0OO—-0O00O0
=000 —D——
SO =N
DO =POMAONWNN
MNIES 2PV
O=-2PNONMHNON
VNSO —
O =LNOWNWNOWNTOES
O RN S —
=NV
NN S O =N
= NSO
WOV
O =N
2 NSO -2V,

CZROECO RK611

PATTERN &

047024
047024
047026
047030
047032
047034
047036
047040
047042
047044
047046

PAT4:

177777
177777
177777

052525
052525
052525

177777
177777

052525
052525

= HI-LO FREQ.

MIX

SEQ (0168

CZRO6ECO RK6TT DSKLS CTRL PRTS

CZR6EC.PTM1

14-SEP-81

8768
B769
8770
8771
8772
g;;z

177777
05252°%
177252
177252
172765
172765

047050
047052
047054
047056
047060
047062

13:57

MACY11 30(1046)

14-SEP~81

15:14

DATA PATTERNS AND BUFFERS

N 13
PAGE 170

177777
052525
177252
177252
172765
172765

g;;g

PATTERN

g;;g

PATTERN 6 - COMPOSIT ROTATING

8779
8780
8781
8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796

047064
047064
047066
047070
047072
047074
047076
047100
047102
047104
047106
047110
047112
047114
047116
047120
047122

8799
8800
8801

047124
050130

8797
8798

072307
135143
156461
167230
073514
035646
016722
107351
143564
061672
030735
114356
046167
123073
151453
164616

000402
000402
000001

PAT6:

= ALTERNATING

072307
135143
156461
167230
073514
035646
016723
107351
143564
061672
030735
114356
046167
123073
151453
164616

PATTERN 7 = ALL

IBJFF:
OBUFF:
.END

_.BLKW
.BLKW

402
402

ONES

1'S AND 0°'S

SEQ 0169

1307

8208~

B 14
30(1046)
14-SEP-81
15:14 PAGE 172
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0170

1348

1322

408
124

UANNID S

200D OO VWG N0 WNIN O WNO 0000 W

2 B
=
B NWNNO

~N Q=B
&~ NAUES

—h
—
—
—
—d
e
el
D

NN NN N N NN N

b
—d ——d
e}

N AN AN AN

)
ekl

N WA AN

el ced el
b
—d

NN LA U AN

~ el el

1347

6783«

7125

7267

7269

1346

70914
70904
70924
1320
13N
1314
1321
1307

06
51
07
07
07
07
52

~no L2

b o

i —rd e

b ek

st ad e

oD d

b D

d D

b —

MACY11

BADPAR 002334
BAI
= 000020

(21000
000000
000000
000000
000000
000009
000005
000040
000001
000200
000100
000000
000000
000000
000000
120210
000000

AMSGTY=
AMTYP1AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSu=
APTENVAPTSI1Z=
APTSPO=
ASWREG=
ATESTN=
AUNIT =
AUSWR =
AVECT1=
AVECT2=

AMAMSS4= (00000
AMSGAD= ( D0000
AMSSLG= )00000

000000
000000
000000
000000
000000

AMADR3=
AMADR4=
AMAMS 1=
AMAMS2=
AMAMS 3=

AN N

AMADR?2= 000000

A N

T T

¥ O

T O

T T

T DO T S

—

(¥,

€

Po
o
L4

T I

¥ O

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
00C900
000000
000000
AMADR1= 000000

000000

ADDW!1

000000
000000
000010
000000
000000

d e

T I

[

ACDW1
ADWZ2 =
ACLO
ACPUOP=
ADDWO =

177440

061613

—t

ABASE

ABORT

AN O N NN AN O 00 O O O W NN AN N NN N AN AN U N AN NN AN N NN NN N N N NN NN AN O
NN
NN
2N N O
£H0 icleleleloleololelelolololelelaleoleolololeolololeleleololelelolaldiolelelelololal oYoldEiV)
O W AN SNSNTNNNNTSNS N NN NN NN NN NN NN NN NN N NN N TN NN YN N NN N SN0 N N0
& xr
3
L]

CZREE(D RKO1T D3IKLS CTRL PRTS
TIRGEC.P1T
1. ~SEP=-81 13:57

BIT10
BIT11
BIT12
BIT13

=
=
=
-

002000
004000
010000
020000

100000
000004

998
997
996
995
994
993
992
991
990
989

6953
6971

BIfl4 = 040000

9784
Q77#
9764
9754

63;3#

1099
1100
1102
1103

1118
1119
1120
1121

8IT15
BIT2
BIT3
BIT4
BITS
BIT6

=
=
=
=
=
=

9734
9964
9954
994 a
9934
9924
3151

1105
1129
1M
1112
113
1095
31°3

BIT?
BIT8
BITS

= 000200
= 000400
= 001000

BLDDAT

032014

BIT1T

= 000002

000010

000020
000040
000100
-

BPTVEC- 000014
BSE
= 000200
BSEDES
002352
(LR

100000

(DT
CERR

- 002000
= 100000

(FMT
(KSWR

9884
9874
9864
9854
984#
98
9824
9814
980~
9794

9974

4591

1128

1104

4593

7136

4135

5361

6395

3456+
54840

3473
5497«

3587«
5612+

3504
5555

S5B80S5*
6184+
7946
4134

5842+«
6213
7953
4910

5874
6221«
7956
5007

5917«
6240

5943«
6266

6(18¢
6274

5586

5591

5856

6421
3284
3546
6417

7113
3414
3549
7120

3545
4132

4131
5661

6978

3546

4132

5555

5895

6237

1142

158

1175

4396

5565

5635

6763

1164
1165
1152
341¢
5213
1153
1154
1169
5410
5979
2400
3904

1179
1180
1166
3546
5215
1167
1168
1184
5418
6044
2515
3991

6415

6417

1181
3676

2888
3678

2890
3680

2892
3999

3018
4001

3020
4003

3022
6132

1115
1116
1117
5389
5815
2162
3668

1150
1151
1133
3285
5211
1134
1135
1136
5401
5969
2279
3799

1182
1183
1981
5426
6107
2598
4123

5659
2099
5431
6356
2686
4255

6419
2216
5474
6373
2793
4350

6421
2333
5521

2454
5569

3284
5600

34,14
5652

2880
4484

3010
4577

3143
471%

3276
4804

1106
1148
1139
1131
1132
1114
3155

4595

1123

1149

1157

117¢,

3285

5655

3415

4418
1915+«
3392«

4420
2035«
3523x

2152«
34654

2269+«
3784+

2387+
3889+

2504x
3977«

25B7+
4109

2671+
4240+

2778+
4337+

2866+
43G6%

2996*
4412+

3129«
447Q¢

11064
363

1913
3393

2033
2524

2150
3655

2267
3785

2385
3890

2505
3978

2588
4110

2672
4241

2779
4335

2867
4494

2997
4598

3130
4723

3493

3624

3756

4079

6210

4440

3900

31687

4119

4719

5094

4814

4700
4915

4791+
501¢

4896+
5100

4993+
5218

5086

5186+

10994
1;93&

2558

2644

2968

3098

3231

3362

- 010000

1102#

1979

2097

2214

233

2398

2452

6938

7109

7135

’015»

104407

TILQe
5459

6419
1186
3415
6415

1141

1170
1155
1172
1156

5794+
6097+
7943
3548

3325e
4652+

1185
1171
3285
1172

1122

1137
1138
1139
1140

S784r
6085t
7937
3417
6702

32771e
4635+

9914
990
9894
3545
5704
1927
3406
5197
10054
11340
176478
3261+

0565

1096
1097
1098
4131
5766
2045
3537
66204

34138

5760«
6073+
7934
3287
6324

F194e
4190

‘ARRPRRN

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

§5747«
6062«
6294
1146
6254

3078«
4173

=
=
=
=
=
=
=
=
=
=

3061+
4059

53¢7

5387

5567

5649

5¢7

5880

891

5575

3795

6188

5577

6227

5578

VAN

81100
BIT01
81102
81703
BIT04
BITOS
81706
81707
81708
BIT09

2948«
L0462
S745+
6038+
6291
1127
6198

AANARARN

= 000001

2931«
3736+
5740«
6025«
6278
1094
5931

L 3 Ak

BITO

1097«
10984
17378
3719
5614
60c3
6275
9984
5905

SEQ Q171

L ]

BA16 = 000400
BA17 = 001000
BITCNT
002326

MACYIY

PAPBAVRARN

CIRGELD RKGIT D3IKLS CTRL PRTS
TIRGEC.PI
14=SEP=-81 13:57

C 14
30(1046)
14=-SEP-81
15:14
PAGE 173
CROSS REFERENCE TARLE == USER SYMBOLS

DFOO1T

040320
040324
040354
0404C0
060424
040450

040474

DF0014
DF0017
DFO021
DF0026
DFO0027
DF0037
DFU0«0
DFO041
DFO0&2
DFO043
DF004S
DFO046
DFJ0S0
DFO060
DFO06T
DFO062
DFO063
DHDCMP

040524
040550
040574
040620
040640
040654
040674
040700
040720
040740
040760
041004
041024
041050
041070
047114
041140
024276

DHOO0A

041524

DHOO0OB

041542

DHO00C
DHOO17
DHO021
DH0026
DHO04
DHOO4LA
DHO04B
DHOO4LC
DHO04D
DHOO4E
DHOQ4F
DHO04G
DHOO4H
DHO041T

041555
042265
042437
(/2537
041606
041625
041643
041661
041677
041715
041742
0641757
041774
06270C

1416

1634
1452
1464
1494
80734
1548
1554
1560
1566
1572
1584
1590
1602
1650
1656
1662
1668
1944
2810
4367
1498
8025
7975
8099
1369
8051

8061
807
7977
7979
7691
8001
8011
7981
8121
8129
8167
8093

4711

4802

5195

34064

3535
66094

3666

3797

3902

3239

3370

3501

3632

3764

4087

4218

4680

1578

1638

1644

797
#

79934
8003«
1640

1518

1530

1620

8013

1632

8023#

BOSS#
1512

8065#

2062
3038
4508
1558
8047
7997
8117

2128
3171
4612
1564
8057
8007
8125

2179
3302
4737
1570
8067
8017
8135

2245
3433
4828
1588
8115
8027
8143

2296
3564
4929
1612
8133
8039
2153

8109
83244
~999
823t#

83124
8119

8127

8137

2878

6348
2561
7330
183

4482
2661
7340
7284

7%
2976
1265

7614
3106
1794

79654
1488
79834
1476
1482
1422

1428

1596
80454
1536
1500
8079«
8087#
80894
80974
81054
1608
1614
81214
81414
B149%
81594
B1654
2010
2908
4404
1546
8037
7987
8107
8228#
82934

8101
8077
7989
8139
82394
82424
82454
8033
82524
8157
B258#
B341#

14646

803<#
1626
1506

3008

4575

3141

3274

3989

4121

7340

1458

1470

1524

1542

Q1134
81234

8248%4

82554

8009

2483
3621
5232
7985

8171
8069
82264

8155

8165

[ Y

2791

AAARARAARANR

DFOO0
DFCN04
DFO00S
DFO006
DFO007
DF0010

001000
000015
000200
004000
034764
100000
177570
000400

4253
11364
9138
9144
1100#
72304
11428
9204
1154#
1371
1386
1392
1398
1406
1410

SEQ 0172

A AN

(OE
=
q ]
=
CR.F
=
=
(10
CTRHLT
DCx
=
DDISP =
0T
=

10794
2684

D 14
30(7046)
14=SEP=-81
15:14 PAGE 174
(ROSS REFERENCE TABLE == USER SYMBOLS

8233#

2615

CLEAR = 000005
(LRIBF
031770

MACY11

(2ROGECO RKE1T DSKLS TTRL PRTS
CIRGEC.P1
14=5EP-81 13:57

27C3

4150

4272

8005

8015

8081

8091

CIRGECD RKGTT DSKLS CTRL PRTS
ZIRGEC.P1Y
14=S¢EP=-81 13:5°

MACYTT

K010
DHO10A
Dx0108
DHO16
DHO14A
DHO17A
DHO2TA
DH0218
DHO37A
DHC378
DHOGLTA
DHO60A
DHO60B
DHO63A
DHO63B

8029
8268#
8275#
8282#
8288¢
8302#
8103
8320~
8333s
83374
83474
8354w
83584
83624
83694

042011
042055
(042123
062171
042230
042351
042463
042511
042624
042651
042744
0463012
043037
043064
(43131

Dl
= 040000
DISEEK
023334

DISPLA
DISFRE

DLTY

DMD

8019
8021
8031
8041
8043
8053
8063
8111
8083
8085
8095
8145
8147
8175
8177

001142
000174

11044
1932
3421
4917
12654
11942

= 000040

11654

= 100000

11234

2635

DRGPSN

026500

DROT
= 000040
DRPAR = (090010

DRSYNC

023740

DRVMSK= 000007
= 049000
DSC
DSECTR 023316

DSWR
=
=
DTE
DTYE
=
DT000
D10004&
DT0005
DT0006
DT0007
DT0010
DTO0'1
DT0014
DT0017

177570
010000
000040
040002
040006
040024
040034
040044
040054
040072
040116
040132

83144

2050
3552
5014
1794+
1802

2167
684
5107
1802+

2284
3804
5220
6993«

2405
3909
5358«
7112«

2520
4007

2603
138

2691
4260

2798
4355

2896
4496

3026
4600

3159
(725

3290
4316

1963

1964

2081

2082

2198

2199

2315

2316

2436

2437

2552

2553

5049

5050

5142

2636

2835

2836

3946

2947

4859

4860

4952

4953

5489
6578

5584
6581

114664
11534
716

2823

2921

3051

3184

2315

2708

28°5S

2913

4285

4277

11514
11304

SEQ 0173

82614

4763

5372
gggg
DRA
- 000001
DRDY
- 000200
DREAD
027176

E 14
30(1046)
14=SEP=B1
15:14 PAGE 175
(ROSS REFERENCE TABLE == USER SYMBOLS

5373
6526

4380
4372

5394
5538

61664

5464
6550

3043

317¢

3307

4303

4304

43691

4392

4533

4534

4742

5751
6582

5789
6583

6029
6584

6063
6587

6441
6588

6471
6589

6485
6550

3446

3577

3709

3829

3634

4032

4163

3926

6024

4155

5143

5256

4513

4617

4742

4833

«934

3438

3569
5031

5124

3701

3821

5237

1340

2006

2058

2124

2175

2241

2292

2358

2613

2479

4363

4400

4504

4608

4733

4824

4925

5022

1938
2804

2004
2902

2056
3032

2122
3165

2173
3296

2239
3427

1264

1793

1601

1637

1643

7925#

1517
1457

1529
1469

1619
1523

7934w
1541

2806

11104
1157#
1916
2697

4266

9194
11394
11324
1370
1385
1391
1397
1403
1409
1415
1433
1451

2904

4361

79244
1487
7928#
1475
1481
1421
1427
1595
7943

3034

4368

1577

79304
79324

1439
1445
76414

3167

4502

3298

4606

3429

4731

3560

6822

3692

60104

2528

5336

2611

5337

2699

511§

39°7

5228

4015

4146

4268

2290
3558

2356
2690

2411
3810

2477
3915

2526
4013

2609
ATAA

631

79378

4927

3812

5257

5020

5113

5457#

5226

533¢#

TIRGE(T RKETT DSKLS CTRL PRTS
“IR6EC.PMY
14=SEP-81 13:57

MA(YIY 30(7046)
164~SEP-B1
15:14 PAGE 176
CROSS REFERENCE TABLE == USER SYMBOLS

DT002?
010026
510037
510040
DT0041
010043
DT0045
010046
DT0062
DTC063
DWGPSN

040154
04166
040210
040214
060222
040240
040252
040262
040272
040302
025204

1463
1493
1567
1553
1559
1571
1583
1589
1661
1667
1950

1535
1499
1649
79524
7953s
79564
1607
1612
79628
79648
2068

7958#
1655

79604

2185

2302

2423

2538

2621

57324

DWRT{K
ECCGEN

027176
030462

4521
ggzg

4625
228;,

4750
3200

4BL1
3331

4942
3462

S039
3593

5132
3725

5245
4048

61654
4179

002340
002342
002344

17428
17434
17460

SB4ée
5843«
2674+

5904
5932
2780+

6185+
6186+
2781+

6250
6251
2887«

6401
641°=
3017+

6407
6416
3150e

6412+
6417+
3283«

11730
17414
ll%%’

5394
6403%
2974

5464
6409+
3104

5489
6413
3237

5584

S7S1

5789

3368

3499

3501

17454

2714+

2821«

17464
3183«
3478+
3933«

2715«
3203~
3486+
4031+

2822+
3204
1574«
4051.

OWRITE

ECCH]
ECCLO
ECCSRC

025604

1957

2075

gg?gn

ggzg*

1565
1505
7951a

2192

41300

1625
1517

2309

4243+

SEQ 174

79444
7948

2430

4338

2545

4472+

2628

4473+

58374

464l

5868

6215

6420
6418+
3413«

6421

6422¢

6423

4702+«

4793«

4898+

4995+

5087+

5887

5925

6029

6063

6277

6280

3630

3632

376z

4085

4216

4218

3932«

4030«

4590+

3544+

3675+

3787«

€246

3891+

£CCw
= 020000
ECCNOR
002336
ECH
= 000160

ECPATK

002346

ECPOSX

002350

4161+

£4520%

EH026
EHC30
EHO31
EMTVEC=
E My

EMy1

EMu?Z
EMw3

001602
007622
001632
000030
00°510

044136

0644224
0646314

EMWé
EMO00
EMS5004
EMS010

044402
043176
043243
063455

EMS01S

(043640

EMS5011

EMS020
EMS021
EMS023
EMS026
EMS027
EMS030
EMS031
EM5032
FMS503,

043535

043675
043755
044052
044472
044632
045004
045077
045164
045247

4283+

3049+

3182«

4748+

4839+

4940«

L665

2920+
3216+
3596+
4052

2940+«
3224+
3597
4064

2941
3314w
3609«
4072+

LE44r

4645

L6571

1778«
1956+
446

20467+«
6476

2076+
€490

2784+
6505+

6476
6490

6531
6543

84764
84864
8385«

164721

1401
8413

1587

1425

1395
1443

1949
1467
1479
8505#
8522#
85404
850«
1521

2067
1956
1485

2184
2074
54584

2301
2191

2422
2308

6505
1368
1363
1407

1419

1437

1455
1461
1473
1491
1497
1503
1509
1515
1527

6555
8378«
1389
1413
8434n

1539

3444+

4623+

€301
2649«
2563
2567+
1777+
1949«
2627+

84674

3313«

459«

6298+«
14924
15048
15104
10084
164984
2620%

64466

L624v

2019+

4378«

2953«
3334+
3617«
4162+

3575+

5037+

3707+«

5130«

1635

4749+

4BLCr

3050«
3347«
3728+
4183

3070+
3355«
3729
6195«

3071
3445
3741«
4203«

3083+
3465+
3749«
L2R4e

3091
3466
3878+
4379

2191«
653

2301~
6543+

2308+
6555«

2422+

2429+

2537+

2537
24629

2620
2544

8439«
2627

4941+

5038

B4224

85¢7#

4293

2961+«
3335
3708«
41B2+x

8495

8559«

3827+

5243+

B44T7n

5131«

5244+

6285

CIRGELD RKe1Y

JIR6e .P11

DSk
S (TRL PRY g

14=SEP=-81

13:5

EmS035
EMS037
EMSO4LT
EMS042
EMS043
EMS044L
tMS060
EMS047
EMSOS0

065307
045350
045424
045511
045572
045651
045721
046013
065106

1533
1545
1557
1563
1569
1575
86214
1593
1599

EMS5052
EMSOS3
EMS0S4L
EMS060
EMS061
EMS063
ERPCNT

046236
046356
046445
046510
(046567
(040644
002314

1611
1617
1623
1647
1653
1665
17324

EMSOS51

046161

ERRVEC= 000004

£.ASOf
E.BA

£E.CSY

002236
002224

002220

1605

10014

6873~

002230
002226
002242
002240
002232
002252

E.ECPT

002254

E.ER
FLMRT

00223
062244

86142

15:14

PAGE

177

SE3 (178

8631
8¢i 1

86494

B6S7#
1626
8681#
8687#
1659
87034
1810«
179

1641

86714

86954
7213«
1792+

7216
1803

6781+«

16974
16928

4299

4446y

4447

4855+«

2844
3361«
3756«

2967+
3362+
3757«

2968+
3363+
3758

2969+
3364
3952«

29790
3492v
3953+

16904

G 14

CROSS REFERENCE TABLE == USER SYMBOLS

689G

1988+

1989

6782+

6910+
5270+

6802+

6944

5271«

6803«

4835

6839

(844r

6847

2341

2661+

2842+

2843+

64397
4770+

4440+
4771

2467
3231«
3625+
4081

4441
L4865

4539«
4B66r

4540+
4B67v

5686

5689«

5694

5699

794

6945
5272

2107

2223~

2224

2340+

4370«
4672+

4311+
4E73+

4372
4676

6425+
4768+

4426
4769+

7925

7937

3097«
3493x
3954«

3098«
3494+
3955

6834

6947«
7960

3099+
3495
4078+

3100
3623+
4079+

5778+

5779

6950«

3230«
3624+
L0800+

3232+
3626
4209+

3233
3755«
4210~

4212
4542

6057
16944
16930
16994
16984
16954
17034
3790+

6101

€329+

6330

4414%

5676+

S681

5683«

5684t

4473«

5675+
i
5674

5690+

5692

5698

7941

2941+
3733

2945
4052+

3071+
4056

3075
L183«

3204»
1187

3208
dedSe

3335«
46kd

3339
6285+

3466
6288

2470
€301+

3597+
6305

3401
7953

170644
6270
16964
17004
5789+

2962
6286
2976+
539+
5887+«

3072
6302
3106+
5408
5925«

3205
6423+
2239«
5464
6029+

3336
k24
3370«
5468
€034

3467
7546
3501+
5489
6063«

3598
7953
3632«
5493
6068

3730

4053

4184

4646

SB70

62'7

3764
5505
6077«

4087+
5584s
6080

4218+
5594
6091+

4620+
5663+
6092

4630+
S751s
6209

7958
5756
€263

6498

6499+

6502

6519+

4522+«

6525+

6528

6537+

6540

6549+

6552

7928

7934

E.MR2

002246

E.MR3

002250

;g%gd

E.SPAR
E.wC

(02256
002222

17054
16914

£50048
£5004C
£5004D

043326
Q43345
043364

5393«

6280+

4309+
4671+

2106«

6909+«

6211«
L4561

7943
;;géd

043307

85748
8580#
8588»
8597#
86064
1581

14=SEP=81

6882

6277+

£5004A

30(1046)

6878«

48658
£.CS2
E.DA
£.0B
E.DCYL
E.DS
E.ECPS

MACY1T

5397

K281+

5514+

6440+

5515

6443

5669+

6454

5670

6655+

6460+

6465+

5809

6470v

5950«

6473

5952

6484

6056+

6487

1970«

1994

2088+

2112

2205+

22.9

2322+

2346

26443y

2467

5379«

5416

1984+

1999

2102«

2117

2219«

2734

2336«

2351

2457+

2472

5391«

5424

;223

5277«
;g;g‘

278

7962
1444

1456

1448

1486

1522

1540

1576

1600

1630

1636

1390
1396
140¢

1408
1474
1480

1420
8398«
84014

1438

1516

1528

1618

82654

16426

K [PAR7=
KIPDRO=
KIPDR1=
K IPDR2=
K IPDR3=
K [PDR4=
KIPDRS=
KIPDR6=
KIPDR7=
LF
=
L OADRK

L.ASOF
. .BA
L.CS?

O
=t md —h e b b oed —d o
b o d —h =D
WO NN NN NN SNINNN NN
PNOONINLRUNUMNLNLAL
AN NP
N O WNWNINIWNN N AN N AN AN
[P
QRSNN o O OOV
OUON N0 o HNOOO0NSN

K ]PARS=
K IPARG6=

2969
4673

2782+

4339+

7282

7340

2727

2787
249
8 32
0 Q2

[ Y]

[ Y S

0
8
o
8

7921

3099

4769

2869+

L4569+

7907

6099
7908

3232

3363

4866

2999+

4566+

3132«

4701«

6328

7909

5724
7910

3494

3625

4864

3265+

6792+

4357

3395«

4897+

5390

6757#

2642
3622
5054

2456
3754

5147

5378
3951
5261

4077

4208

7911

7913

7915

7916

7917

3757

3953

4080

4211

4310

3657

3788+
5154

$163

3526+

4996w

5096+

5395

3893+«

5511

3980+

5165

6054

3491

6855

7334

5191

3270

4446

4910

5201

3400

4478
4961
5265

3531

4488
4967+

5270

3662

6571

5000
6609

3793

4581

5006+
87954

3840

4707

5007

3898

L7217

5058

6875

5151

3137

4344
4900+

776

S5Cy7x

3004

4299
4903

1775

2874

4296
4855

6117
4808
5065+

5377

7620

4670

2335

4438
5807

w2h4

8
«

09C#

0954

0424
043#

028~.

2037
3527

4996

002260

A Ak A A A ol 4l 4l Al ol Al At 4l ot Al Al bk 4t At 4D 4D Al A A 2l 0l 0l 4l 2D 2l o

182C
7919

6232

122340

172342
172344
K IPAR3=
2346
=
350
K [PAR4

5776

2321
33¢0

—

000300

000020
000100

4424

2204
3096

K IPARO=
K]PAR1=
K [PAR2=

002000
000100
000001

2087
¢841

1624

—

T
O
LI T
T
LU

1DAE

{3
ILF
INTR
IOTVEC
IR

1983

2640

2675+

000011
000400
047124

1BUFF

2649

2842

104406

HYR(C

2567

4540
7913

002354

84104
84304

6698+
5695+
1979

3361

(VL [VF
N
—_ g
Q0 00~
NO
-

GTSwR
HIBITS

1666
1594

1534

SE3 0176

8404#

NOCOOONCD
OO & O

0000C1

1606
84074

(L
o

L24222

13:5~

N 14
30(1046)
14=~SEP=81
15:14
PAGE 178
CROSS REFERENCE TABLE == USER SYMBOLS

N2 OO VAN
N

(]

063403
046342
063437
043610
04646022
044545
0464716
000920
032444
032356

14=SEP=-81

NN
D) S 200N D wd b b —
O 2 PMNND
2
A SO0 N
—
NN O NN ANNO O WO oo
ODN ~NOD NO = = N UNO & ~n
LR

TIRGEC.P1Y

MACYTT

LgV
1 ]
NV
OO
—
“~NNO Co

"IRGECD RKE1Y DSKLS CTRL PRTS

2997
3623

2507
3681

3000

4567

2461

6539

3133

4703

2947

4671

3266

4794

3097

768

5567

5649

6714

6015
2641
2450
2644

6694+

6710
5377

2635
6440
6587

5751

5789

6029

441

538
538

6700+

[o 2V, AV}
NN
00 ~\
wnoro

6537

5564

5557

5678

5778

5880

5891

5674
5657

5698+
5742

6633+
6020

6709

394¢
64654

4303

6484

4391
6485

4533
€499

6449

6455

6460

6484

5637

5938+

6785

65974
€784
1211

6581
5584

5336

4433

6201+«
5786+

6063

5663
5245+
5869+

5753«
6458
6463

6523

6576

2511
3148+
3415«
3680+

2726
3151
3618+
3996«

4588
5098+
6625

O N SN
NN
O = WNOWN—
0
[0 RV 1. RV ¥ YV T, )
INLAND
NND NN

5394
€549

2690

2797

5859

7945

5860+

5907

7934

7947

4489
5009+
6250«

2888
3281«
3545

4001«

4593
5208+

2041
3016+
3287+
3673~

5330

R %

2890+
3282+
3546+

4003+
@595+

5200+

7868

81864

AN
[a¥ 10
150
— OO0
NOWWND

-2
ON —a

[@Te To !
ON NN

1867

N =

NN
0000 G0 Qo — 00
QOWVNON)
— —2
00—
— NSO
0O
WVICo
WW~200
=8 =
O ~—
Rk
NN

PARM

SEQ C177

[0, 3V,
1, V]
wInL
&S
Q0 VWA
— OO~

1963
4859

669¢

f\)f\)m—-mwwwg—-oow()o&\w-

6697+

— O~

PAR( WK

000209
000003
032516
002360

5514
€395

1971

(¥ale)
N —

PACK

D d PN N

OPSTRT

OPROO3
OPR00O&
2PRO06
0PR0OO7

179

—

0OPRO01
0PRO0OZ2

1 14

PAGE

TABLE =-- USER SYMBOLS

L4614
1966
1977

5215+

OO
= O H 0N
OO0 — —
Q00 N — 2NN
NN ES SNy
S
OVONOEAOOWNS
WO YO NO
LR

OP!

000015
C0u004
020000
0461164
041216
041224
041254
041276
041345
032274

5:14

5361
6056
6699+

4131+
4908+

OFFSET
OF ST

14=SEP=81

CROSS REFERENCE

N IS BN

b
D D
D

D d D

b e et O P

= =2

30(1046)

O =N
O —
O 2NN
= =N
ONNIRD
& — 00 00

b D b —d DN Y

=2 = LDONMNVO 2NN NN NN
NNNOD
F N NEYe Yo X o P
g
4o
O
— &S OW
»

(N
B

—

002324
010000
004000
003364
000004
050130

h
7

(¥,

2.BIT

=
NED
NEM
=
NEWPAS
=
NXF
DBUFF

(N L =D

000200
000250
¢00100
002322

YON=O

MIND
MMVE
(
MSP
M1.817

13:57

000114
001000
000017
002000

MEMVEC=
MERD
ME SMSK
MEWD

MACY11

MDS
= 001000
MEMBAS= 172100
MEMERR
031725
MEMPAR
002332

14-SEP-81

000400

DSKLS CTRL PRTS

W=t

~no

002270
002266
002274
002266
002267
002276
002300
002302
002262

(V) o

@
o
«

el
KM
1— v
o

—L T X TROODTN
x ~ 0 DD 9N
PN

alaiale

TIRGELD RKO1T
"IR6E(.PM?

2601

6137

4259

435¢4

2895

6495

3025

4599

3158

6724

(IR6ECD RKO1T DSKLS CTRL PRTS

047064

6642

17340

L4632+

5442«

6574

7934

7937

1184

= 020000

11564

PIRQVE= 000240

101c#

PR.B!T

PRO

PR1

PRZ
PR3
PR4
PRS
PR6
FR?

177772

002320

= 000000

= 000040

=
=
=
=
=
=

000100
000140
000200
000240
0003C0
000340

PS
= 177776
PSw
= 177776
PWRVEC= 000024

9184

59C9+
9354

G364

9374
9384
9394
904
9414
9424

9154
9164
1307#

5938

1890

1213
1787«

RDBIT

031616

2936

2965

5032

6066

100000
090025
104411
104412
000200

RECAL = 000013
RESREG= 104414

RESTRT
002370
RESVEC= 000010

RKASOF= 000016
RKBA
= 000004
RKCST - 000000

RKCS2 =
RKDA
=
RKDB
=
RKDCYL=
RKDS
=
RKECPSRKECPT=

000010
000006
000024
000020
000012
000030
000032

11754
10874
7764
1841
10964
4440
10824
7212
1198
10024
1065#
10604
“058#

2672+

6110
10624
10614
10674
10664
10634
10714
10724

6201

1762

6782

7851

7865

7850+«

7851+

7943

5588+

6202

6205«

6245

€256

6257

5860

5861
6260+

5908
6456

5910«

5913«

5939

5940+

6394

6461

5591«

5752+

5788+

1782+«

5802«

4207

4434

4640

4669

3359

3461

5466

3490
569

3592
5503

3621
5592

3724
5754

79164
26£2
4251

2789
4346

287¢

300¢

3139

3272

3402

3533

3664

3795

3900

3987

5584

5663

6077

6281

79174
1851
284%
4541

1868
2968
4672

79184
3098
4770

3231
4867

3342

3493

3624

3756

3954

4079

4210

631

1987

2033«

2105

2150~

2222

2267+

2339

4335«
723"«

4494

4598+

4723r

4B814v

4915«

5012«

2505
3890
€714

2583+
3978+

2069
3068

3202
3201

3233
3332

3464
3463

3595
3594

3727
3726

6207

3228

7865+

5909

4178
6090

3199

7864*

5865+

4076

6078

3065

5862+«

4047

5489

2065

5861

VAN

;;g;-

RDGATE=
RDHEAD=
RDLIN =
RDOCT =
RDY
-

558~

6089+

;g?gc

7690
10854
4119

5502«

6030«

916

002316

3753

5501

5G39«

1726

F1.BIT

RDCHR = 104410
RDDATA= 000021

6519
6525

6261

3330

6574m

79204

17554

6713«
6708+
1913«

2779«

4261+
6711
6710«

2840

2867«

6709+
2939
2938

2997«

3130+«

3263«

3393x

3524«

4050
4049

4643
6642

628
586

6470
6465

roN

PIRQ

87794

6454
6454

Loy

= 002000

1171#
11728

87174

= 004000
= 010000

PGE

PIP

87374
8757«

6659

066764
047024

PCA
PCD

6657
6653

046724

SEQ C178

TABLE == USER SYMBROLS

— 00O~
aNO

PATE

6788

J 14
PAGE 180

PATY
PATL

10514
11644

CROSS REFERENCE

15:14

PAT?

13:57

14-SEP-81

PAR_EN= 000001
PAT
= 000020

164=SEP-81

30(1046)

(@ AV [V,

"IR6EC.P11

WA(Y1T

CZROECO RK61T DSKLS CTRL PRTS

CIRGEC.P11
RKER

= 000074

RKMR1 = 000026

RKMR2 = 000034
RKMKS = 000036
RKPRI
002306

RKSPAR= 000022

RKVEC
002304
RKWC
= 000002
RLS

= 000010

14=SEP=-B81

13:57

MACY11 30(1046)
6299

1963%
2636+
4B59+
5373«
6442
6578+

1964+
2835+
4BBD*
5457
6471+
6581+

17254
10594

1882+
6707+

1883+

10668

10684

2635+
4763x
5372«
Goblv
6551

10694
10704
17264

10734
11114

4417

1985
1985
1884»

SAVREG=
SAVSWR
=
SCLR
SCOP1 =
SCOP1S
=
SEEK
SELDRV=
=
SkI
SPACE2
SPAR =
SPDLSS=
SRTFLG

104413
002356
000040
104415
033774
000017
000001
000002
041410
020000
000020
002312

7159
17494
11134
4965
70314
10544
10774
11284
7195
11034
11504
1728#

79194
7849+

SRO.
SR1
SR2
SR3

177572
177574
177576
172516

10214
10224
10234
10244

SRTSPL= 000011

=
=
=
=

STACK =
START
START1
STKLMT=
=
SVA'
SWR

001100
002400
0024C4
177774
100000
007140

SWREG
000176
Sw0
= 000001

SW00

= 000001

Sw02

= 000004

Sw01

Sw03

SW04
SW0S
Sw06
Sw07
SW08
Sw09
Swl
SW10
swil

10814

906#
1197
1753
9174
11584
12644
5521
6494
7120

11954
9704

=
=
=
=
=
=
=

000020
000040
000100
000200
000400
001000
000002
002000
= 004000

9564
5554
954k
9534
9520
9514
9694
9504
9494

2220
2221

2082+«

SEQ 0179

3947+
5049+«
5593
6486
6584+

2199+
4303w
5050+
5755
6500+
6587+

6565

6605

7223

7234

1823
5979
6939

5601
6044
6953

39ube
4953«
5504
6485t
6583+
2337
2338

2198+

2458
2459

1752«

1755+

1758+

6845

6877+

6888+

6B74*
17¢1
17584
1756

6891+
1773

5440

17594

7242

1771
5600
6509

1793+
5704
6535

1795
5766
6547

1801+
5815
6559

1808+
9969
6601

1801

1823

7534

7573

759

7132

969
967

966
965
964
963
962
961

2316

2436+

6067
6526
6589~

6079
6527
6590+

6391%
5143+

4392+
5256+

2437+

4533«
5257«
6091
6538+«
6712+

2552+

2553«

4534+
5336+
6208
6539

L4762+

56431

5474
6480

5337+
6262
6550+

7869

82079

968

9574

2836+
4952+
5492
6472
6582%

7207

95R%

- 000010

2103
2104

2081+

5161

979

959%

PAGE 181

5062
7921

9608

= 000002

15:14

CROSS REFERENCE TABLE =-- USER SYMBOLS

6283

6269

14-SEP-81

K 14

7136

79214

7214

1835

7534

7573

7628+

7849

7866

5426

6373
6578

6450
7031

7113

CZR6ECO RK6TT DSKLS CTRL PRTS
CZRGEC.P11
14-SEP-81 13:57
Swi2
SW13
SWi4
SW1S
SW2
Sw3
Swé
SWS
swé
SW7
Sw8

=
=
=
=
=
=
=
=
=
=
=

010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

948%
9474
9464
9454
968#
9674
9664
9654
9644
9634
9624

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

000400
001000
¢04000
000040
000200
000020
000100
002000

11834
11844
11864
11804
11824
11794
11814
1185#

SW9

= 001000

9614

VACY11

L 14
30(1046)
14~SEP-81
15:14
PAGE 182
CROSS REFERENCE TABLE =- USER SYMBOLS

7214

6450

6480

7506«

7507+

6598«
1779+

7924
1780«

6998

64694

€509

T8ITVE=
TKVEC =
TPVEC =
TRAPPC
TRAPVE=
TRTVEC=
TSTBYT

000014
000060
000064
002310
000034
000014
041500

10034
10104
10114
172748
10094
10044
82174

1STI0
1ST11
1ST12
1ST13
1ST14
1ST1S
1ST16
1ST17
[ST2
15720
1ST21
157192
15123
1ST24
15125
1126
1ST27
1ST3

006622
007136
007430
010156
010704
011432
012160
012714
004030
013450
014176
014512
015004
015532
016266
016602
017264
004442

26684
57754
28634
29944
31264
3258¢
33894
35200
1992
36514
37814
38864
39744
L1064
42374
43326
4422
2110

1910#
7005
7006
7007
7008
7009
7010
7011
7012
1997
7013
7014
7015
7016
7017
7018
7019
4429
2115

2002

20304

6999

444k
2120

44678
21474

7020
7000

005466

2344

2349

2237

2264k

7001

2354

23824

7002

TSTBY2
1ST1

1ST30
1STZ1
1ST32
1ST33
1ST34
1ST35
1ST36
1ST4
TSTS

041510
003412

017600
020350
020660
021216
021546
022102
022456
005054

82194
1891

45624
46974
4788%
(893%
49904
5083¢
5182¢
2227

SEQ (0180

7021
7022
7023
7024
7025
7026
7027
2232

6535

6547

4559

6601

7031

CIRGECO RK6I1 DSKLS CTRL PRTS
CZR6EC.P1T
14-SEP-81 13:57
TST6

006110

T1SY?

TYPE

M 14

30(1046)
14-SEP-81
15:14
PAGE 183
CROSS REFERENCE TABLE == USER SYMBOLS

2665

2470

2475

5311

5318

79114

7172
7475
7712

7176
7528
7717

7177
7540
7718

7184
7594
7720

7192

7597

79084

006360

25844

1044601

1817

TYPDS = 104405

VACY11

7171
7400
7708

7004

1834

1837

25014
1840

7003
1847

1850

1858

7195
7595
7723

7197
7598
7727

TYPERR
034466
TYPOC = 104402

7122
1839

7159%
1866

TYPOS =
T.ASOF
T.BA
T.CS1

002164
002160

79094
16784
1673#
16714

4295
1987+

4447
1689

4851
2105«

5272
2107

7960
2222«

2224

4426

4441

4542

4674

4771

4868

002170

6101
16754

7641

7948

TYPON =

T.CS2

104404

104403
002176

T.DA
T.DB
T.DCYL
7.DS
T.ECPS

002166
002202
002200
002172
002212

T.ECPT

002214

T.ER

002174

T.MR1

002204

79104

2840«

16748
16804
16794
16764
16844

3727+«

2844

6330
4958

6726
4960

5692
7925
2939«

7941
7937
2945

5694

7925
5055

7948
7948
3069+

7937
5057

3075

7948
5148

3202+

5397

2339+
3626
5515

2460
3955

5150

5262

3208

3601
6735«

3332+«

3336

5869+

3463
5870

3467
6216

3594+
6217

3598
6269+

3499

3630

3762

4085

4216

46170

6208+
6528

€505
6209
6539+

5593+
6262+
6540

5594
6263
6551+

5755+
6442+
6552

5756
6443

6033+
6472+

6068
6487

6079«
6501«

6080
6502

6092
6527+

5504«

3104
7948
5492+

3237
7958
5493

7948

3595«
6305

6067«
6486

2974
7937
5468

7937

3470
6300+

4646
7953

2641
7925
5467«

7925

6057

3464+
6288

4642
7946

2561
4678
5408

5779

2644

4312

3339
6284+

4184
6736+

16778
4418
16814

2558

6212
5952

3333«

4180
630¢

3201«

2462

4081
5809

7123
7287
7703

4649

4053
6299«

3072

4187

7115
7235
7697

5305

7208
7619
7795

3495

4049«
6286

3068«

4181

3364

3730
6283+

2942

4056

3233

4050«

7956
2938+

6034
932;

3100

1867
7207
7609
7793

3733

7953
16854

3726«
6270

2970

SEQ 0181

4643
3205

3368

7928

7934

T.MR2

002206

}3%5#

1985+

1994

2103«

2112

2220«

2229

2337+

2346

2458+

2467

5616

6737+

T.MR3

(002210

;ggg#

1986+

1999

2104x

2117

2221+

2234

2338+

2351

2459+

2472

5424

6738+

T.SFAR

002216

16864

UFE
=
UNLCAD=
UNS
=
UPE
=
vV
=

000400
000007
040000
020000
000100

16724

11164
10804
11414
11214
1152#4

5278

7948

7962

11224
11384
1086#
1738#4
1088#
11554
5792
10894
1174n
10504
1224

4958

5055

5148

5262

1625

2043

2160

2277

2398

2513

5803
4480
5789

5866
4573
6455

5914
4709

5941
4800

64404
4905

5002

5094

5193

T.W(

WCE
=
WLE
WRDATA=
WRDCNT
WRHEAD=
WRL
=
WRTBIT
WRTCHK=
WRTGAT=
WR.PAR=
S$APTHD

002162

040000
004000
000023
002330
000027
004000
030652
000031
040000
000004
001000

12304

$CML

001126
001240
035374
036362
001100
0092010
000020
000010
2000175

SCNTLC
$CNTLG
SONTLY
$CORE
$CPUOP
$CRLF

037260
037272
037265
033254
001276
001245

$CROUT
$DBLK
SDEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
SENV
$ENVM
$£0P
SEOPLT
$SERFLG
$ERMAX
$ERROR
$ERRP(

033304
036042
001260
001326
023306
036032
023276
023142
023312
001270
001271
023106
023134
001103
001115
034266
00i116

SERRTB
SERTTL
$ESCAP

001330
001112
001236

$CM3

70434
12614

13484
12564
12584
12994
7289+

75734

12444
12764
12764
12744
12844
12974
7528
7594
7619

6843

7587
1846+

7744
1887

7230

7148
7306

7540
7332+

7737
73374

1769
12784
12784

1777
12794
12754

1783
1280#
12804

12864

12874

7148

7441

74834

5301

53284

7444

664

53244

7143

7049
7051

7073
7269

SFATAL

$FFELG
}LIRS

001270
001330
001252
C3e204
VAR

12844
12844

12884

1289

12914

12924

12934

12944

12954

12964

7171

7176

7184

7197

7210

7288

7340

7630

7”7z

7125

7267

6975

6997

7033

711(Ce

7148

7233

7925

7928
7960

7930
7962

7932

7934

7937

7941

7943

5399+

5412+
5596+
5983«

$620¢
5599
5984

5428
5604+

54340
5605
60630
6372¢
6600

5439e
5706
6048+
6378
696"
e

5460+
§758e
60490
€380

S471e

7274

7239
5304
6928
6969

6967
6992+

6969
6997

7118
7951

7119
7953

7148
7956

7116+

7148

5320+

1888+

5479
5817«

€109
€504
S$E TARL
$ETEND

12834
12834

77384
7123

13134
13494

814
281

77374

13224
13014
7737

6899

7870

SATYS
$AUTOB
$BASE
$8DADR
$BDDAT
$BELL
$CHARC
$CKSWR
$CMTAG
$(M1
$(M2

SEQ 0182

7086
70444

$ATY3

7071
7042
70404
70414

N =N

034044
034020
034026
034036
001134
001324
001122

N 14
15:14
PAGE 184
14~SEP-81
30(1046)
CROSS REFERENCE TABLE == USER SYMBOLS

—

SATY(
SATY1

13:57

vevene

14-SEP-B81

PASTAT=

MACY11

DSKLS CTRL PRTS

-a-‘-aw—.—-a—a—lm_.—
POWANO
NI NN NINVWWWN
SNNN
S OO —

CZROECO RK6IT
CZR6EC.P1T

-~y

L& P

7222+

2730+
5495«

7238+

6511

3843
5508+
5972+
6340
6530+

>. 888

5958«
6336

7958

5523
5678+
63440
6542+

6348¢
6594

6352+
6561

7964

6036+
6360e
€597«

7133

5765

6071

6445
714!

TIRGE(D RKE1T DSK S CTRL PRTS
TIRGEC.P1Y
14=-5EP-81 13:57
$FILLS

001155

12718

$GDADR
$GDDAT
$GET62
$GTSWR
$HD
=
$HIBTS

001120
(001124
023266
036452
000000
001000

12554
12574
532°#
75958
8%1
1231#

$INTAG
sITEMB
SKINEX
$KTCUT

001135
(01114
033246
033204

12628
12528
“844
Lo78

SLFLG
SLPADR
SLPERR
SLSTAv
SLST3h
$MADR1
$MADRZ2
$MADR3
$MADR4
SMAIL
$MAMS1
$MAMS?

034263
001106
001110
033362
033364
001302
001306
001312
001316
001250
001300
001304

7081«
126494
12504
€913«
6916
13354
13394
3428
454
32
294
374

IMAMSS

001314

001315
033676
033054
001154
000001

SOCNT

035622

$PASTM

001006

$OMODE
SOVER
$PASS

035624
033662
001256

6585+

6996

6898
7340

7727

7737

7798

6964
4913«

6973«
5070«

€989+
5099+

6994
5441

6996
6566

7871
6606

1236

1308

1805

1821

6988

7125

72¢,

6854+

6BS64

6879

6889

7047

7082«

70864

77424
7057«
7062+

7060

22504
2850
37694

2252
29804
3771

6980

6997

7592+«
7119
68984
68874

7611
712°

7631
7148

7764
7162

6896

6973

£990+

6996

7035

7138

23684
2982
38744

2370
31118
3876

24884
3113
39594

2490
32440
3961

25724
3246
40924

1 @ 2

B0 W 6 R

e e

)

7087#
1787«
1788«
69214
69224

6983

“On

L3N
50«

5
3

98
154
168

09%

68584

6893

)

7055

7063«

7075

7079+

86
55
708
954
574
33754

69964
68634
7294
1897
26564
3377

7340
20154
2658
35064

2135
28484
3639

7401+

7414n

43184
4973

21334
2765
36374

7372«

4227
49714

2017
27634
3508

7376
6974
5297+«

7379«
6984
5298+«

7390«
69934
5309

74164

]

95
N

SMNEW
$MSGAD
SMSSGLG
sMSGTY
tMSWR
tMTYP1
$MTYPZ2
$MTYP3
sMTYP4
SMXCNT
SNOMAP
SNULL
$NWTST-

001002
034262
033226
037310
001264
001266
001250
037277
(001301
001305
00i3117

e B N e

$MBADR
SMFLG
SMMOUT

033034

(BLGr
7148

$MAPRG

033030

68428
15024

77404

384

L8
Lon

Y o o

CMAP

001310

7913

77974
6982«

IMAMS3

032736
001246

SEQ 0183

7340

7786
126480

00 NI OO O N AN N NN AN A

tKT11
SLF

037460
001104

$HIOCT
$ICNT

8 15
WACYTT 30(1066)
14=SEP-81
15:14 PAGE 185
CROSS REFERENCE TABLE == USER SYMBOLS

4094
LB74H

7367«
6940
13124
12344

62254
4B76

7371«
6965
1805«

4320
50694

L455K
5071

5331

4457
51694

L5478
5171

4549

L6854

4687

L7754

4777

CIRGECO RKG11 DSKLS CTRL PRYS
TIRGEC.P1
14-SEP-81 13:57
$POWER
$PWRCT
$PWRDN
$PWRUP
$QUES
$RDCHR

037704
037700
037556
037604
001244
036724

7867
7858+
1781
7850
13004
76624

78744
7859«
78454
7858«
7148
7916

$ROLIN
$RDOCT

037014
037322

76854
7756#

7917
7918

12764
12778

2746+
2747«

$RDDEC=

$RNSZ =
$REGAD
$REGO
$REG]
$REGZ
$REG3
$REGS
$REGS

$PEGO
$k"
/7
“"+SRE

$PINAD
TRCA

seesne y

000010
001160
001162
001164
001166
001170
001172
001174

023310
tweenn

$SI1ZE
$SIZEX
.- $STOP
$STUP =
SSVLAD
$SVPC
$SWR

032652
033310
0335032
177777
033626

= 000220
= 167400

7919

7678#
12744

12784
12794
12804
12814
12824
12834

001176
001200
037520

»SAVRE
037462
$SCOPE
033366
$St TUP= 000137

MACYT]

78314
|

53304

2748+
5153«
5154

15
30(10646)
14-SEP-81
15:14 PAGE 186
CROSS REFERENCE TABLE == USER SYMBOLS
7860«
7864

7862+

7873

7340

7649

7720

7737

7795

7798

3859+
3840+

4960«
4961

5057«
5058+

5150+
5157
5152+

5264+
5265
5266

7952
7952
7952

7964
7964
7964

1779
7532

178*
7537

1783
7538

1784
7568

1785
7744

897
1911

898
2031

899
2148

4854

4991

5084

3861«
7964
5156+

4962+

7964

7920

78154
1775
17524
6938
1885
5890
6849+
17524
~948
12054
8794
1784

7919
69374
1774
7109

68254
6892
6852+

1277
7143

6907#
¢8574

6885

895
1787

896
1788

1210
851
1785

2995

6929
6977

6930
6978

6563

7148
1808
903
5604
5476
7932
7964

3127

4698

6931
6990

3259

4789

6932
6993

6378
6046

6963
6376

2031«
3521«

2148
3652+

2265+«
3782«

2383«
3887+

7555«

7669

7671

$TIMES

00123

£7KB

001146

4698t
12674

4789+
7313

4894x
7320

4991«
7340

036062

1766

75034

7529

7590

74894
74904
74914

7504+
7505+
7504

$TKCNT

036052

7488%4

$TKQEN= 036061

764924

£TKS

12664

$TKQIN
$TKQOU
$TKQSR

036054
036056
036060
001144

7503«

7563

7311

6933

6934

6957

7934

7937

7941

5770
5602

1911«
3390«

7538

7674

7505
7672
7565
7318

5983
5768

7561+
7673«
7676
7340

5084
7487

7943

5183«
7508

902

3652

6048
5981

033700
001254

6933
6996

3521

6951
7101

$SWO8T
$TESTN

1784+
3259«

3390

6939
7100

001272

12974
3127«

1767

1815

1818

5295

69874

2864

7136
13204
902
5478
1311»
7930
7962

1775
713¢

$SWREG

$TKINT

5059«

7921

4468

$SWRMK-~ 000000

SEQ 0184

7563
7676+

7565+«

7487

7509+

7545

7106

7113

7161+
7953

2669

5296+
7519

756¢*
7674

4107

5296
6967

7946

7547

7553

1297

2502
3975

2585

1298

2669

4238

5323
6968

5329
6969

7924
7956

7925
7958

2776+

7120

2864+

4238+
€986+
7604

4333

4468

7575

7591«

7601

7613

$7PB

$TPS
$TRAP
$ TRAP?
=
$TRP

037746
001004
001102
037250
( ZX2
8 X ]

$TYPDS

1857

1869+

1871

1873

5623

5626

$629

5632

5636+

5639

5662+

6355
6240

6266

2092+
3722+
5882
6314

A275
6278

1875«

187¢e

1477«

6291

3351

79104

7911

79124

7913

79144

7915

79164

79374

6960+

6987

6988
77364

6993

6997

7112

7148

7160

7907
73104

7635

1857+«

1860

1880+

1881«

1882

1884

70004
70134

7C0n
7014

7002#
7015#

70034
70164

70044
7017#»

7005#
70184

70064

7007#

4661

6233+
5964
2752+

6335

1911#

3865+
2002

4092
4685

42384
L7854

2237
2572
32594

2344
26654
3506

6998

3220
3750+
5897«
6321

2962+
3590

7718

STYPE
$TYPEC
$STYPEY

$TYPOC

$TYPON
$TYPOS
SUNIT
SUNITM

$USWR
SVECTT

SVECT?

$XOFF =
=
$XON
$XTSTR

1854

6176+

6339
2120
2465
2980
3782#

2470
29954
3874

5069

50844

5921

5948

2031»
2354
27764
3637

4333
4L894n

3356+

4073

6444

5928

2133

4455

7340
7349

SIPFLG

$TRPAD
$TSTM
$TSTNM
$STTYIN
$TYPBN=

Q00

~NON
WNO

Hun

45634

1852+

»
»

12904
12914

§TMPG

1846

»
»
.

3
R
R
R

5930«

SEQ C185

WM [AS T 1oV 1V, Te W
S W T STo Yo SN 36 Yo Yo Yo QW PV EE
Nol,ULV,] NUOD ~NONION 3 OWN
= = 2 NWO CO0D
N WWDOWVIONN
OO0 OV
&
NSO VIOV
(V. F X, V) NINO =V
NO—
OV
O

b ek =
b —b

$TMPS

$ TMPS

—a

£ N =D =D =

S$TMP3

$IN

—d

$TMP?

2854

SSPONUMNVNLN NOPNORNLNDT
00 20
0 100
O OO0~

s$TMPY
$TMP10
$TMP11
$TMP1?
$TMP13
STMP14

036132
001202

$TKSRV
$TMPO

D 15

30(1046)
14-SEP=-81
15:14
PAGE 187
CROSS REFERENCE TABLE == USER SYMBOLS

£
NN
WNONON NN
QO NV
WO QO NWNOD ~ —
NN
=
OO
£ 00 = AN O WO WD NV~

MACY1T

CIRGECO RK61T DSKLS CTRL PRTS
14-SEP-81 13:57
TIRGEC.PT

$$GET4=
$$SwW08= 000037

7732

7918«#

79194

73724
7909

1848

185€+

7340
7340

7521

6998

699G

70114

70124

70194

70204

7003#

70214

7C09

70228

(IRGE(D RKk61T

'ZR6€( P

DSKLS (TRL PRTS

14=-SEP=-81

S$OFILL
035623
$4L0CAT=z eevene y
.

= 05113

13:5

70234

L8x

esenver

= 0C'0C0

70244

70254

7380

74154

70264

70274

7028#

11934

11994

1205

12064

12084

74834

7487

74918

749¢

74938

7370«
7122

12434

1303

1189#

ggag.
JBASTA:

30(1066)

7366
6939

7041

7044

12208

1225

14=SEP-81

15:14

E 15

VMACY11

PAGE

188

CROSS REFERENCE TABLE == USER SYMBOLS

1772

1787

1788

8314

12104

53084
7734

SEQ (186

12118

5331

7737

12164

53328

774484

1220

6996

7798

12214

12238

7853

87128

69%7

70898

12258

7148

8799#

CIRGECD RKG1T DSKLS CTRL PRTS
TIRGE( P
14=SEP=81 17%:5°

BYPASS
COMMEN

ENDCOM

ERROK

12154
1#
1

1013
103

1933

1934

935§

2060
2126

2063
2129

2064
2130

2065
2131

2353

2293
2359

2521
2548
2625
2709
2802
2830
2923
3036
3077

252¢
2564
2629
2710
2807
2846
2924
3039
3102

2523
2568
2630
2711
2808
2867
2925
2040
3107

2524
2694
2631
2712
2811
2898
2926
3047
3160

3338

3341

2366

3371

3556
3584
3703

3561
3600
3704

3562
3603
3705

3565
3628
711

7835

7836

4017
4058
4159
4269
4300
4382
4497
4525
4619
4728

4020
4083
4145
4270
4314
4383
4498
4526
4620
4729

4021
4088
4166
4273
4356
4384
4499
45¢7
4621
4734

4237
4930

4843
4931

5128

1960

2188

2189
2288

2620

2424

3179
3294

3180
3299

2486
2547
2624
2706
2801
2829
2917
3035
3274

3322

3440

3555
3583
3702

3806

21834

3628

4756

5016
5044

5127

3441

3807

3929

4757

5017
5045

5233
5280

5234
6599

FSECWT

17204

1919

MSG

18954

GETPR]
GE 1SWR
LDLPER

F 15
30(*046)
14-SEP=B1
5:14 PAGE 190
(ROSS REFEREN(CE TABLE =~ MA(CR(O NAMES

9C7e

1959

287
2348

ESCAPE

MA(YY®

1Y 4

14
1#
12154
2658
26374

1013#

1991

2193

2425

1996

2194
2294

2360

262¢€

1636

2001

2069
2168

2195
2297
2363

2627

1941

2007

2070
2169

2226
2298
2364

2631

2231
2269

2236
2303

2632

2433

2071
2170
2365

2072
217
2406

1646

1947

1951

1952

2012

2013

2051

2052

2242
2304

2263
230¢

22646
2306

2247
2310

2464

2469

2076
2176
26C7

2608

2078
2180
<409

2474

2415

2541
2618
<701
2756
2826
2914
3028
3056
3174

2542
2622
2704
2799
2827
2915
3029
3057
3177

3435

3436

7439

3580
3697
3760

3581
3698
3765

3582
3699
3805

3923

3924

2481

2484

2619

2485

3570
3686
3714

28¢9

3910

3911

3912

3913

4022
4139
41¢7
4274
4357
{385
4500
4528
4627
4735

4025
4149
4168
4275
4358
4386
4505
4544
4628
4738

4026
6141
4169
4278
4359
4387
4506
4601
4629
4739

4027
4142
417¢
4279
4364
4601
4509
4602
4630
4740

4028
6147
4186
4280
4365
4402
4510
4603
4631
4743

4034
6148
4189
4281
4368
4405
4511
4604
4632
4744

4035
4151
4214
4287
4369
4406
4514
4609
4648
4745

4036
4152
4219
4288
4370
4415
4515
4610
4451
4746

4037
4153
4261
4289
4373
6621
4516
463
4676
4752

4038
4156
4262
4290
4374
4428
4517
4614
4681
4753

4039
4157
4263
4291
4375
4443
4523
4615
4726
4754

4055
4158
4264
L2792
4376
4449
4524
4618
4727
4755

4844
4932

4845
4935

4846
4936

4847
4937

4848
4938

4856
4944

4870
6945

4918
4946

4919
4947

4920
4948

4921
4949

4926
4963

4927
5015

5134

5135

5221

5222

5229

52320

2808

2930

4773

5018
5046
5235

3813

3866
3936

4817

5023
5060
5238

2814

3937

4818

5024
5108

5136

5239

3817

3938

4819

5027
5109

5137
5240

6838
18'8#

2037

2154

227

2392

1897

20154

2017

21332

2135

2765
37694

28488
3771

2850
318744

29804
3876

3818

3939

4820

5028
5110

51328
5241

22504

2982
39594

3452

3819

3940

4825

5029
5111

5139

5247

2252

31114
3561

3207
3310

3425

3453

3571
3687
3715
3822

3941

4826

5032
5116

5159
5248

6848

3113
40928

343

2286
2343

2312
2418

3567
3685
3713

3451

3191
3309

3210
3311

3469

3572
3688
3716
3823

3518

2657

4829

5023
5117
5249

237G

32448
4094

3235
3317
3472

3573
3693
3732
3824

3919

4008

4830

5034
5120
5250

24884

3246
«2254

2540
2617
2700
2753
28¢5
2911
3027
3055
3173

2285

2125
2187

3566
3633
371¢

3450

3190
2308

3430

2480

2248
2311

2119
2186

3424

3449

7189
3305

2539
2616
2695
2723
2819
290
2977
3054
3172

2614

2114
2182

1658

2059

3423

3448

2188
2204

2535
2613
2694
2722
2818
2909
2972
3053
3169

2109
2181

1954

2054

34272

3442

3187
3303

2534
2612
2693
2721
2817
2906
2947
3047
3168

2077
2177

1953

2053

2533
2607
2692
2720
2816
2605
2944
3046
2163

1013«
10134
27634
3639

1945

2011

<530
2606
2650
2719
2813
2900
2928
3045
3162

318¢
3300

2529
2605
2646
2718
281¢
2899
2927
3044
3161

1947

2008

SEQ C187

3240
3318

3434

3497

3579
3694
3735
3825

3922

4009

4831

5035
5121

5223
5251

2490

33754
4227

3291
3319
3502

3831

4010

4834

5061
5122

5224
5252

25724

3377
43184

3292
3320
3553

3832

40N

4835

5042
5125

5267

2574

55064
432C

2546
2623
2705
2800
2828
2916
3030
3058
3178

3293
3321

3554

3833

3927

4016

4836

5043
5126
5274

2656#

3508
L4558

TIRCECD RKOTT DSKLS CTRL PRTE

SK[P

SLASH
SPACE
SSECWT
STARS

1613

1895

3637

2015
3769

2133
3874

2250
3959

2368
4092

6225

4318

4455

6547

4874

4971

2674

2781

2869

2999

3132

3265

3395

3526

3657

3787

4112

6243

17224

6473

4567

4702

5480

6793
5607

4898

4995

5985

5187
6050

6362

6670

6739

7084

7470

5457

5550

5732

5837

6010

6" 66

€620

6721

7046

7067

3258

3389

3506
5169

7787

7429
1Y;

5635

2382

908#
3520
5182

4697

7913

7915

7916

7917

7918

7919

2110

2115

2120

2227

2232

2237

2354

2465

1#
10134
17214
1%
2250
2963

2500
33/5

1895

1909

2133
2862
3874

2146
2980
3885

1»

7899¢
1%

2470

1226

4236

$$SET
$$SETM
$$5K!P
.EQUAT

.HEADE
KT
LSETUP
.SWRH!
.SWRLO
JBACTI

3375
5069
7899#
*'80S#
1
2470
14

1
14
K4
14
879«
i J

1295

1296

~N 0

$SESCA
SENEWT

»
1%

7747

4696
7039

1280

2250
3959

7908

7911

7913

7915

7918

7919

7920

7921

1013

200¢

2110

2115

2232

2237

2344

2349

2475
8794
8794
B79#
8794
8794
903

8794

— —

NOMN
Qo ~

$$MRE
SECMTM

12374
12374

6811

4685
7028
7846

AW
&N

ir 4

5082
7568

4547

W16 )

b —

b e

oo
0o

4318

2763
3650

7855

5083

4775

7056

7878

5069
7486

1239

2572
3388

4990

{787
7149
1
78904

TYPOLT

TYPTXT

2863

4562

TYPIACS

2775

3244

6467

NOONNOOOOOOOD

TYPNUM

2668

3111

2763

5171

6332

—_

TYPNAM

2584

2656

5169#

4973

6237

[V,] W

SWRSU

2501

2572

49714

4106

3959

TRMTRP
TYPBIN
TYPDECL

5772

2488

4876

AV
TVeTe
Yol

SETPR]

SETTRA
SETUP

(874

S{OPE

4777

NS
LN
—
(o LT YAV To YW
WNQD
N - NO

REPORT

L7758

WO
-2 ON NN

Pt{iSH

4687

—

POP

L6854

SEQ (188

CROSS REFERENCE TABLE == MACRO NAMES

NN SN

OSECwW(

3375

5069
17214
338

191

4549

L5478
1013#

N = NN

CSECRD

PAGE

O
NO OO

muLY

NEWTST

4457

G 15

165:14

30(1046)

14=SEP=81

TIRGEC.PN

14=5EP-81

MACY1Y

64644

1288

1281

1289

1292

2368
4092

2656
4455

4547

4685

4775

1293

2763

1294

2848

2980

Inn

3244

4874

2356

2465

CIRGE(O RKG1T DSKLS CTRL PRTS

1.
18
i J
kXJ
.
1%
13

LSCATC
LBCMTA
.$DB2D
.$0820
L8D1V
.SEOP
.$ERRO
.SERRT
JSMULT
.SPOWE

IX ]
Y
i

.$SRAND

.SRDDE

.$RDOCL

.SR2AZ

L8S17¢E

.SREAD

14
1%
1%
Y

.$SAVE
.$S82D
.$SB20
.$SCOP

LESUPR
.S TRAP
.$TYPB
.$TYPD
.$TYPE
.$TYPO
L940CA
L1170

W
14
1K
14
X J
N ;
1X
14

. ABS.

(51134

ERRURS DETECTED:

879«

B79#
875«

870«

R7G#

8754

~ —

14
‘s

.SAPTY
LSASTA

13044
875«

onrno
N
NwW

—a

.$AP'B

SAPTH

13:57

—

14-SEP=-81

H 15
30(7046)
14-SEP=-81
15:14
PAGE 192
CROSS REFERENCF TABLE == MACRQ NAMES

~ny
2
WWNaD
NN

TIRGEC.P1Y

MACY11

5284
7094

87Gx
8794
8794

7745
76484

875#

7798

8704
B7G#

6923
6809

8794

7876

R79#4
8794
879#

7417

7244
7340

200
0

CZROEC,CZROEC.LST/SOL/CRF/NL:TOC=SYSMA(.SML,CIR6EC.P11
RUN-TIME: 28 33 2 SECONDS

RUN-TIME

RAT]O:

(ORE USED:

40k

124/64=1,9
(80 PAGES)

SEQ (189