Digital PDFs

AH-9114C-MC

March 1982

190 pages

Original

128MB

view download

OCR Version

204MB

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

OCR Text

RK611

O7
RK6
RK.O

RK611

DSKLS CTRLS
CZR6ECO

oF 1 s HISHHIEN
PIC1HE

DSHLS

le=SfPeB’

PRYS

WMACYYY

30(1046)

14-SEP-B1

15:14

PAGE

13:57

SEQ

REN

TDENTIFICATION

AC=9112C=M(

PRODUCT NAME:

CZRGECD RK611

-4

DATE:

AUGUST 10 1981

»* INTAINER:

DIAGNOSTIC GROUP

AUTHOR :

BRIAN LE BLANC

17
8
5

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

NN PR

OO0 NP LR AT

FERIMIIN
I

PRODUCT CODE:

THE

SOF TWARE

DESCRIBED

DSKLS PRTS

THIS DOCUMENT

LICENSE AND MAY ONLY BE USED OR COPIED
TERMS OF

SUCH LICENSE.

FURNISHED UNDER A

In ACCORDANCE WITH THE

DIGITAL EQUIPMENT [CRPORATION ASSUMES NO RESPONSIBILTY FOR
THE

USE

NOT

SUPPLIED BY DIGITAL.

RELIABILITY

((C)

ITS

SOFTWARE

ON EQUIPMENT

THAT

1976,1981 BY DIGITAL EQUIPMENT CORPORATION

0001

L
|

2RekEl

Bwett

s
.

JRERLT

]
o
e
*J
- X

fl'ufl

13:57

NN
NINCNION w
2O OO0 NN N

14<5EP=81

MACY11 30(1046)

15:14

PAGE 3

SEQ 0002

CONTENTS

1.0 ABSTRACT

"
e &

2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 PRELIMINARY PROGRAMS

S RW V1 W

3.0 OPERATING PROGRAMS
3.1 LOADING PROCEDURE
- 3 Py STARTING PROCEDURE
3 OPTIONAL SWITCH SETTING
3. 4 RUN TIME

D AR

5.0 PROGRAM DESCR IPTION

6.0 ERROR REPORTI NG

(o JENTE

VISRV

D0, I

ST B

4.0 0 PERATING PROCEDURES
b, 1
"SOFTWARE' SWITCH REGISTER
4. 2 CONTROL ( (*C) OPERATION
4. 3 CONTROL S (*S) OPERATION
4. 4 CONTROL Q (*Q) OPERATION

TSRS

ol ol ol ol

IENTaSR

o &

14-SEP-81

TABLE OF

THE

(R R

1.0 ABSTRACT
RK611

mcfim)»

THE

AND

18 BIT MODE.

LTM

Tty
£ 0

611 DSKLS CTRL PRTS

«
»
v
«

DISKLES S CONTROLLER DIAGNOSTIC: PART
TESTS MULTI-SECTOR DATA TRANSFERS.
TESTS MID-TRANSFER SEEKS.

JESTS CYLINDER OVERFLOW CHECKING.
TESTS NPR TRANSFERS TO MEMORY.
TESTS ECC ERRCR DETECTION AND CORRECTION, BOTH

TESTIS WRITE CHECK BOTH 16 AND 18 BIT MODES AND FORCES
WRITE CHECK ERRORS.

NO RKO6 DRIVE

IS REQUIRED FOR PROGRAM EXECUTION.

2.0 REQUIREMENTS

2.1 EQUIPMENT
PDP-11 SY STEM (16K CORE MEMORY)
CONSOLE T ERMINAL
DECTAPE, PAPER TAPE READER, OR DECDISK

RK611

CONTROLLER

2.2 PRELIMINARY PROGRAMS
RK611
RK611
Rk611

DIS KLESS CONTROLL ER DI AGNOSTIC:
DISKLESS CONTROLLER DIAGNOSTIC:
DISKLESS CONTROLLER DI AGNOSTIC:

PART 1 (C2Z R6A)
PART 2 (CZRéB)
PART 3 (CZR6

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

MACY11

30(1046)

14=SEP=-B1
RK6T1

15:14

1
D
PAGE 4

SEQ 0003

DISKLESS CONTROLLER DIAGNOSTIC:

PART &

({ZR6D)

3.0 OPERATING PROCEDURES
3.1 LOADING PROCEDURE

3.2 STARTING PROCEDURE

LOCATION 200

= START PROGRAM

LOCATION 204

= RESTART PROGRAM

LOCATION 214

= REQUEST BUS ADDRESS, VECTOR ADDRESS, AND
PRIORITY MODIFICATION

3.3 OPTIONAL SWITCH SETTINGS

SW13 SW12 SW11 =

N
—
NN
BNy —

e JE YU
I
B
I
B

LA T L0
e I
W) = O 00

SW15 =
SW14 -

SW10 =
SW9
=
SW8
-

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

3.5 RUN TIME
FIRST PASS

1:40 MINUTES

SUBSEQUENT PASSES

4.0
THE

4.1

3:40 MINUTES

OPERATING PROCEDURES
PROGRAM

EXECUTED BY

'SOFTWARE'

STARTING AT

THE

APPROPIATE

ADDRESS.

SWITCH REGISTER

IF THE _PROGRAM IS BEING RUN ON A SWITCHLESS FROCESSOR (I.E., AN 11/04
OR 11/34) THE PROGRAM WILL DETERMINE THAT THE KARDWARE SWIT(H

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

'SOFTWARE®

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

THE PROMPT

SWR = NNNNNN

FROM THE

SWITCH ENTRY ROUTINE:

NEW ="'

EACH TIME SWITCH SETTINGS ARE ENTERED,

THE ENTIRE

SWIT(H

THE

TMTM

(ZR6ECD RK611
“IRGEC.P11

CTRL PR 15

-3 P-8i

13:5

MACY11

30(1046)

14=SEP-81

E-

15:14

PAGE 5

SEQ 0004

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

ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE
REGISTER MAY BE USED.

IN THE

4.2

CONTROL

(*C)

OPERATION

IS TYPED AT ANY TIME DURING THE PROGRAM EXECUTION THE

PROGRAM

ACT,

IS HALTED

APT)

IMMEDIATELY.

A MONITOR

THE PROGRAM RETURNS CONTROL

IS PRESENT,

THE

CPU IS HALTED.

A PROGRAM RESTART.

4.3

'SOFTWARE' SWITCH

16 SWITCHES

‘

THE PROGRAM FINDS ALL

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

;SOFsgégE'

CONTROL

(*S)

IS PRESENT

TO THE MONITOR.

(XXDP CHAIN,

NO MONITOR

DEPRESSING THE CONTINUE KEY WILL DO

OPERATION

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

CONTROL
A

(*Q)

*S HAS BEEN TYPED,

INITIATED BY THE *S.
5.0 PROGRAM DESCRIPTION

OPERATION
TYPING

THE

“Q

**MULTI-SECTOR WRITE

TEST

CAMCELS

THE

OPERATIONS

MULTI-SECTOR WRITE

CLEAR THE RK611

PUT

STALL

THE

(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 0.
C(LOCK THROUGH SEEK
AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER.
TWO ECC WORDS.

MAKE

SIMULATE

A SECTOR PULSE

CLOCK THROUGH 400 WORDS AND THE
SURE

THE

NEXT HEADER RECOGNITION

CYCLE STARTS AND THE PROPER HEADER 1S SEARCHED FOR.
S?OZéESEa SECOND GOOD HEADER AND CHECK RECOGNITION

TEST 2

MULTI-SECTOR WRITE

CLEAR THE RK611

PUT

THE

(PART 2)

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 23.
C(LOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER,
TWO ECC WORDS.

SIMULATE

A SECTOR PULSE

CLOCK THROUGH 400 WORDS AND THE

MAKE

SURE

THE NEXT HEADER RECOGNITION

CYCLE STARTS AND THE PROPER HEADER IS SEARCHED FOR.
S?O&gRSES SECOND GOOD HtADER AND CHECK RECOGNITION

CZRGECO RK611 DSKLS CTRL PRTS

“IRGEC.PN

14=SEP=-81

13:57

MACY11

30(1046)

14=SEP=81

15:.14

3
PAGE 6

TEST 3

SEG 0005

MID=TRANSFER SEEK

CLEAR THE RK611

PUT

THE

(PART

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOGR FORMAT,

CYLINDER 0, HEAD 0, SECTOR 25.

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER.

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE

C(LOCK THROUGH 400 WORDS AND THE

TWO WORD ECC.
MAKE SURE THE
AN IMPLIED SEEK TO THE RIGHT

MAKE
TEST

SURE

CONTROLLER ISSUES
YEAD AND CYLINDER.
THE NEXT HEADER RECOGNITION PROCEEDS PROPERLY.

MID-TRANSFER SEEK

CLEAR THE RK611

PUT

THE

(PART 2)

CONTROLLER WITH A CONTRCLLER CLEAR.

CONTRCLLER

DATA OF 401

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

CYLINDER O, HEAD 2, SECTOR 25.

CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER, 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.
TEST

MID-TRANSFER SEEK AND 24 SECTOR FORMAT

CLEAR RK611

oD
INWNWN
N NN

ole JNTe
RV P WY

PUT

(ONTROLLER 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.
(CLOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER.
AND THE 32 BIT ECC.
égESSSTO NEXT

TEST

TRACK.

CLEAR THE RK611
THE

A SECTOR PULSE

CLOCK THROUGH 400 18 BIT WORDS
CHECK THAT IMPLIED SEEK IS
CHECK

CYLINDER OVERFLOW (PART
PUT

SIMULATE

DATA

FOR PROPER HEADER RECOGNITIO

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MOCE.

ISSUE

A WRITE

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

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER.
C(CLOCK THROUGH 400 WORDS AND THE
ng gg?D ECC.
MAKE SURE CYLINDER OVERFLOW ERROR DOES
'

TEST

CYLINDER OVERFLOW (PART 2)

30(1046)

14-SEP=-81

15:14

PAGE 7

SEQ 0006

CLEAR THE RK611

PUT

THE

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

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

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER.
TWO ECC WORDS.

MAKE

SIMULATE A SECTOR PULSE

C(I.OCK THROUGH 400 WORDS AND
SURE

CYLINDER OVERFLOW ERROR SETS.

**NPR WRITING OF MEMORY
TEST

10 NPR WRITING OF MEMORY

CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER (LEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A READ DATA

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, 40 DATA WORDS.
VERIFY THAT THE WORDS

ARE WRITTEN PROPERLY

IN MEMORY.

««ECC ERROR DETECTION/CORRECTION TESTS
TEST

READ DATA WITH NO ERROR

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,
CLINDER 0, HEAD 0O, 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

CLEAR RK611

PUT

(PART

IN DIAGNOSTIC MODE.

ISSUE

A READ DATA

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

SIMULATE

A SECTOR PULSE,

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

TEST

13 READ DATA WITH ONE BIT BURST ERROR

CLEAR RK611

PUT

‘

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

AND DRIVE

;

(PART

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A READ DATA

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

~SEP-B81 13:57

MACY11

KLS CTRL PRTS

15:57

14=SEP=-81

15:14

B
PAGE 8

CYLINDER O, HEAD 0,

OO0 NO N NV

321

SEQ 0007
SECTOR 0.

C(LOCK

THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
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
REGISTER AND THE FINAL PATTERN AND POSITION INFORMATION.
MAKE SURE DATA CHECK AND CONTROLLER ERROR SETS.
TEST

14 READ DATA WITH 11

CLEAR RK611

PUT

BIT BURST ERROR

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A READ DATA

OF 400 WORDS TG AN RKOS IN 26 SECTOR FORMAT,
CYLINDER 0, 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 POSIT!
REGISTER AND THE FINAL PATTERN AND POSITION INFORMATION.
MAKE SURE DATA CHECK AND CONTROLLER ERROR SETS.
TEST

15 READ DATA WITH 12 BIT BURST 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,
CYLINDER O, HEAD O, SECTOR 0.
C(CLOCK 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

POSITION REGISTER.
MAKE SURE
AND CONTROLLER ERROR SETS.

COUNTING OF

DATA (HECK,

THE

ECC HARD,

TEST 16 READ DATA WITH 23 BIT BURST ERROR

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,
CYLINDER O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

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

POSITION REGISTER.
MAKE SURE
AND CONTROLLER ERROR SETS.

TEST

17 READ DATA WITH 1

DATA (HECK,

ECC

HARD,

BIT ECC WORD ERROR

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
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,

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

30(1046)

NN AN NN N NWNWN
TN b il cia il i i il il

TIRGEC.P1T

MACY11

CZRGECO RK611 DSKLS CTRL PRTS

15:14

2
PAGE 9

ggg

370

%;5

SEG 0008

CHECK AND CONTROLLER ERROR SETS.

TEST 20 18 BIT NPR WRITING OF MEMORY

373

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

374,

PUT CONTROLLER IN DIAGNOSTIC MODE.

378

AND DRIVE CLEAR MESSAGES.

375
ggg

379
ggg

382
383
384
385
386
387
388
391

TEST 21

THE WORDS

18 BIT 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 24 SECTOR FORMAT,
CYLINDER 0, HEAD 0, SECTOR 0.
CLOCK 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 COMPLETES WITHOUT ERROR.

TEST 22 18 BIT READ DATA WITH DCK

394
395
396
397
398
399

400
401
402
403
404
LS
289

SIMULATE A SECTOR PULSE,

A GOOD HEADER, 40 DATA WORDS.
VERIFY THAT
ARE WRITTEN PROPERLY IN MEMORY.

ggg

gg%

ISSUE A READ DATA

OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER 0, HEAD 0, SECTOR 0.
CLOCK THRGUGH SEEK

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
[SSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 24 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

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.
MAKE SURE DATA CHECK AND
CONTROLLER ERROR SETS.
.

TEST 23 18 BIT READ DATA WITH ECH

408
409
410

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

412
413
414
415
416

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.

411

418
419
420
421
422

CYLINDER O,

HEAD O,

»«SPECIAL READ TESTS
TEST

PARTIAL

SECTOR READ

SECTOR 0.

CLOCK THROUGH SEEK

14-SEP-81

MACY11 30(1046)

[ SN

CIS6ECD RK611 DSKLS CTRL PRTS
“IRGEC.P11
14=SEP-81 13:57

CZRGECO RK611 DSKLS CTRL PRTS

CZRGEC.PTT

14-SEP-81

13:57

MACY11

30(1046)

14-SEP-81

15:14

PAGE

424
425

AND DRIVE

472

473
474
475
476
477
478
479

SIMULATE A SECTOR PULSE,

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

AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

A GOOD HEADER, 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 ERROR AND CONTROLLER ERROR SETS

444
445

467
468
469
470
471

CLEAR MESSAGES.

CLEAR RK611

PUT

443

466

ISSUE A READ DATA

TEST 25 SILO UNLOAD BEFORE HEADER ERROR

440
441
442

87
458
459
460
461
462
463
464
465

IN DIAGNOSTIC MODE.

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

431
432
423
634
435
436
437
438
439

453
454
455
456

CONTROLLER WiTH A CONTROLLER CLEAR.

CONTROLLER

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

427
428
429
430

447
448
449
450
451
452

SEQ 0009

CLEAR RK611

PUT

426

44b

**WRITE

CHECK

TESTS

TEST 26 WRITE

CHECK OF 400 WORDS

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

TEST 27 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 RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE

CLEAR MESSAGES.

A GOOD _HEADER,

SIMULATE A SECTOR PULSE,

THE 400 WORDS TO BE WRITE CHECKED,

AND A 32 BIT ECC INDICATING A 1 BIT BURST ERROR.

VERIFY THAT THE POSITION REGISTER INCREMENTS PROPERLY
AND THAT THE FINAL PATTERN AND POSITION ARE CORRECT.
CHECK THAT DATA CHECK AND CONTROLLER ERROR ARE

TEST 30 WRITE

CHECK OF

CLEAR RK611

PUT

18 BIT WORDS

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

SET.

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

30(1046)

14-SEP-81

15:14

E
PAGE 1

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

480

481
482

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.

«83

L84
L85
486
L87
4,88
489
490
491
492
493
494
495

SEQ 0010

TEST 31

WRITE

CHECK OF

CLEAR RK611

A PARTIAL

SECTOR

CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

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 TO BE WRITE-CHECKED,
NOT TO BE WRITE CHECKED, AND A GOOD 32 BIT ECC.

MAKE

SURE NO ERRORS SET.

TEST 32 WRITE

CHECK ERROR

CLEAR RK611

PUT

377 WO

(PART

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A WRITE

CHECK OF 1 WORD 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, 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:

000002
000004
000010
000020

000040
000100
000200
000400

001000
002000
004000
010000

020000
040000
100000

TEST 33 WRITE CHECK ERROR (PART 2)

CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

CHECK OF 1 WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0, HEAD 0, 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.
(HECK ERROR SETS.

MAKE SURE WRITE

REPEAT USING EACH OF

CONF IGURATION AS WRITE CHECKED DATA:

177775
177773
A

177737
177677

176777
175777
173777

167777

157777
137777
077777

THE FOLLOWING

lalal

MACY11

CZRGECO RK611 DSKLS CTRL PRI
14-SEP-81 13:5 3
(ZR6EC.P1T

30(1046)

14-SEP-81

15:14

k-4

PAGE 12

SEQ 0011

TEST 34 WRITE

CHECK ERROR

CLEAR RK611

(PART 3)

CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A WRITE

CHECK OF 1 WORD TO AN RKO6 IN 24 SECTCR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,
A GOOD HEADER, AND ONE WORD OF DATA CONSISTING

OF 200000.

WRITE CHECK DATA IS 000000.

WRITE CHECK ERROR SETS.
SIMULATED DATA.

MAKE SURE

REPEAT USING 400000 AS

TEST 35 WRITE CHECK ERROR (PART 4)

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

CLEAR MESSAGES SIMULATE A SECTOR PULSE,

A GOOD HEADER,

125 GOOD WORDS, AND A BAD WORD.

MAKE SURE WRITE CHECK ERROR SET.
AND BUS ADDRESS.

CHECK WORD COUNT

L2222t RSttt
RR 2]

DIAGNOSTIC MODE SECTOR PULSE
I E 222222t
2R
2222200222222 2R 2]

THE
2T

DIAGNOSTIC MODE

SECTOR PULSE
I I

IS PROVIDED BY

THIS ROUTINE

2222322222232 323223323232232323222222223233

IMPLIED SEEK

L22222200ttt
20222
220222220220 RR 2]

THE

CONTROLLER

IS CLOCKED THROUGH THE

SEEK MESSAGES,

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

STARTED
AT

LOOKS AT

THE

COMMAND

THAT WAS

(L.CS1) AND SETS THE CLOCK COUNT ACCORDINGLY.

THE END OF

THE

IMPLIED SEEK THE

CONTENTS OF

CS1, MR1,

AND MR3 ARE CHECKED TO VERIFY THE OPERATION. ALL DISCREP
ARE REPORTED

CALL:
JSR
ERROR

ERROR
ERROR
tRROR
AP AR

IN THE ORDER LISTED.

R4 ,DISEEK
4
:CS1 MISCOMPARE ERROR

5
6
7

R A RN AR AR R AR AR

;MR1 MISCOMPARE ERROR
:MR2 M]SCOMPARE ERROR
:MR3 MISCOMPARE ERRON

AR A AR

AR R AR

AR AR AR AR

DIAGNOSTIC MODE READ SYNC PATTERN (PREAMBLE)

AR A

AR R

MACY11

lalal

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P1T

MACY11

30(1046)

14-SEP-81

15:14

PAGE 13

C
C

SEQ 0012

LAARttt
RRRRRRRRRRRdR ]

THE 255 ''0'" BITS AND 1 ""1"' BIT ARE CLOCKED THROUTH THE R
THE CONTENTS OF MR1 ARE MONITORED TO WATCH FOR AN ERROR.
AT THE END OF THE SYNC READ, CS1 IS CHECKED TO INSURE IT
DID NOT GET CHANGED.
CALL:

JSR
ERROR

R4 ,DRSYNC
10
;MR1

CONTENTS IN ERROR

ERROR

CONTENTS IN ERROR

;CS1

IF AN ERROR IS DETECTED,

THE PRESENT

L2222

THE SUBROUTINE WILL SET UP TO A

TEST UNLESS LOOF ON ERROk

IS SET.

22022222222

22222

DIAGNOSTIC MODE HEADER READ AND COMPARE
AR AR RRSSRRRR

THIS ROUTINE

COMPARE

THAT

SIMULATES

THE

THREE

HEADER WORDS READ AND

IS PART OF ALL DATA TRANSFER OPERATIONS.

THE EXPECTED HEADER

IS 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
NOT CHANGE. 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

(BSEDES)

CHANGED ACCORDING

TO BSEDES

CONTENTS.

CAN BE USED TO FORCE HEADER TYPE ERROR.

CALL:

JSR
ERROR
ERROR
ERROR

SWITCH

IT IS NON-ZERO, THE 2ND AND 3RD HEADER
THIS

R4 ,DHDCMP
12
;ERROR IN MR1
13
;ERROR IN (S1
14
sERROR IN PACK ADDRESS

L322SS ARttt
Rt
R R

DIAGNOSTIC MODE GAP READ AND SYNC WRITE
AA A A AR AR

R R R AR AR AR A AR AR AR AR AR A AN R A AR

THE READING OF

THE

R A AR A AR AR AR

AR AR AR AR R AR AR

GAP AND WRITING OF

IS HANDLED IN THIS ROUTINE.

THE

SYNC

(OR PREAM

THE FIRST GAP BITS ARE PROCESSED IN THE HEADER COMPARE
ROUTINE AND THE REMAINDER ARE PROCESSED HERE. THEN A

CHECK IS MADE THAT WRITE GATE CAME ON AND 255 ‘0" BITS
AND A SINGLE '"1"" BIT IS WRITTEN.
CALL:
JSR

R4 ,DWGPSN

;
%

~ans

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P1

CZRGEC.P1T

14=SEP=81

13:57

MACY11

30(1046)

14=SEP-81

N 1
PAGE 14

15:14

SEQ 0013

ERROR
ERROR

15
16

:MR1
;CST
;MR1T

IN ERROR IN READ GAP
IN ERROR AFTER READ GAP

ERROR

;CST

IN ERROR AFTER SYNC WRITE

ERROR

ROUTINE

CALLED:

PC,WRTBIT

JSR

RETURN POINT

ERROR

NO ERROR RETURN
LA

IN ERROR IN WRITE SYNC

IN WRTBIT

AR ARttt
Rttt
Rl RS

DIAGNOSTIC WRITE DATA AND ECC ROUTINE
LA

SRR

as ittt
RRRRtRRRRRRRld)

THE

DATA

THE

OQUPUT BUFFER

IS WRITE

SIMULATED,

GENERATED AND WRITTEN, AND THE POSTAMBLE
CALL:
JSR

ECC

IS WRITTEN.

R4 ,DWRITE

ERROR
ERROR
ERROR

17
21
<2

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

NO ERROR RETURN

CALLED:

ROUTINE

PC,WRTBIT

JSR

RETURN POINT IF ERROR IN WRTBIT
NO ERROR RETURN FROM WRTBIT
LA A AR ARARl
R RRRRRRR 2R d

DIAGNOSTIC MODE READ GAP AND DATA SYNC(
(AR RSS20
02202 R R0ttt 2]

THE

READING OF

IS HANDLED

THt

GAP AND READING OF

THE

IN THIS ROUTINE.

SYNC

(OR PREAM

THE FIRST GAP BITS ARE PROCESSED IN THE HEADER COMPARE
ROUTINE AND THE REMAINING GAP BITS ARE PROCESSED HERE.
THEN A

CHECK

AT THE
CALL:
JSR
ERROR

IS MADE

THAT

129TH BIT OF

ERROR

32
33

ERROR

CAME

SYNC.;*

R4 ,DRGPSN
15
;MR1
16
:CS1

ERROR

READ GATE

IN ERROR IN READ GAP

IN ERROR AFTER READ GAP

JMR1

IN ERROR ;N READ SYNC

;ST

IN ERROR AFTER SYNC READ

ROUTINE CALLED:
JSR
PC,PDRIT

LR R

TAGNOSTIC

READ

DATA

DIACGNOSTIC

WRITE

(MECxk

ROUTINE

CZRGECO RK611 DSKLS CTRL PRTS

704
705

14-SEP-B1

B 2
PAGE 15

15:14

(AR AR A

SEQG 0014
A

THIS ROUTINE

707

710

THE
ARE

708
709
n

DATA.

AR A

IS USED

AR R

TO SIMULATE

THE ROUTINE WILL

FIRST WORD AFTER THE
TO BE TRANSFERRED.

THE

lldl

]

READ OR WRITE

(HECK

TRANSFER A FULL OR PARTIAL

CALL

SEC

SPECIFIES HOW MANY WORDS

71
714

IF LESS THAN A FULL SECTOR, THE ECC AT THE END
OF THE TRANSFER IS NOT CHECKED. THE ECC IS CHECKED AT
EACH BIT IS TRANSFERED.

717
4]

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 17 ARE ASSUMED TO BE ZERO.

720
721

THE CONTENTS OF LOCATION ECPOSX MUST BE LOADED WITH THE
COUNT EXPECTED AT THE END OF THE DATA TRANSFER. THIS

reg

LOADING MUST OCCUR BEFORE THE ROUTINE IS CALLED.

724
728

ANOTHER LOCATION, ECPATX, IS SET TO 0 IF THE ECC IS EXPE
TO BE CORRECT AND SET TO 1 IF AN ERROR IS BEING FORCED.

727
728
729
730
731
732
733
734
735
736
737
738
739

A 3RD LOCATION, ECCSRC, SPECIFIES THE SOURCE OF THE ECC
WORDS TO BE USED IN CHECKING THE OPERATION. IF ECCSRC IS
1, THE ECC WORDS FED INTO THE DECODER ARE TAKEN FROM THE
LAST TWO LOCATIONS OF OBUFF, IF ECCSRC IS 0, THE COMPUTE
ECC WORDS FROM ECCHI AND ECCLO ARE USED.

762

743

744
743

746
747
748
749
750
41}

753
754
755
756
757
758

CALL:
JSR
R4, DREAD
LENGTH_OF TRANSFER
ERROR 34
:MR1
ERROR 35
:ECC
ERROR 36
:CST
ERROR 41
:ECC
ERROR 42
:ERR

ERROR 43

‘

IN ERROR READING DATA OR ECC
ERROR READING DATA
ERROR AFTER READING DATA OR ECC
REGISTER INCORRECT AFTER READ ECC
IN ECC PAT CALCULATION

:ERR IN ECC POS COUNTING

|
|

R4 ,DWRTCK
JSR
LENGTH OF TRANSFER
ERROR
ERROR
ERROR
ERROR
ERROR

53
54
55
41
42

ERROR 43

ROUTINES CALLED:
RDBIT
ECCGEN

:MR1 IN ERROR WRITE CHK OR ECC READ
:ECC ERROR IN WRITE CHECK
:CST ERROR AFTER IN WRT CHK OR ECC READ
:ECC REGISTER INCORRECT AFTER READ ECC
:ERR IN ECC PAT CALCULATION
:ERR

IN ECC

PO5 COUNTING

|
|

MACY1Y 30(1046)

YTM

RKE11 DSKLS CTRL PRTS
¥4 ROE
C
L1
14=SEP=-81 13:57
4 RGEC

760

761

762

14-SEP-81

15:14

PAGE 16

2232222222202

SEQ 0015

2222222222202

222232222 2

222

GENERATE ECC WORD
AR

R R

R AR AR R AR R R AR AN R A NAR R AR AR R AR R RAA AR AR AR AR R

ITRZRZZRR 24

AR AR RRRN

763
764
765
766
767
768

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 PLACED IN ECCHI AND ECCLO. THE LOW O
11 BITS OF ECCHI ARE PLACED IN E.ECPT FOR EASY (COMPARISO

771
;;g

CALL:
RETURN:

;gg

TO RKECPT.

774

22222

775

SIMULATE ONE BIT OF WRITE DATA

776

777
778
779
780
781
782
783

RS R

JSR
RTS

PC,ECCGEN
R4

22222222232 22222323223223232223223223222
2222222

IN MAINTANENCE MODE

222 22222222222233223233323233223233223223322322323223333223
222222222323

5835

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

;gg

ERROR OCCURRED.

786

CALL:

787

RETURN:

;gg

JSR

PC,WRTBIT

RTS

PC+2

FOR NO ERROR RETURN

FOR ERROR

IN MR1

790

2232222222223 2322222322223 223322323222 2223223222322 32322223223

791

SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE

793
794
;gg

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

797
;38

CALL:
RETURN:

792

800

801

802

803

222

e R

2322222222222

TRAP

2322 R 2222222222222

2223223232222 2323 2223232222222 2222222222

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

810

(LEAR INPUT BUFFER
AR AA A AR R R R

I I A

I IIIIOIIITIIITITTITY

A A AR A AN R A AR AAAR P RARRRAARAAA AR AR AR AT RR R AR E AR R

813

AR TP E R R AR R R R R AR R R AR R R AR R R R R AR R R AR R

814

BUILD DATA BUFFER

815

NO CHECKING

PC,RDBIT
PC

809

811
812

223223222222

2222222223323 3222222232233 2322232222222

MEMORY CHECK ENABLE

804
805
806
ggg

JSR
RTS

2222333 3232332222233 22

R R PR R R R AR

P R R R AR R R

AR R TR

R E R R RN

2 2222202222322
s
R
I
T
sz

MACY11 30(1046)

~ia

CIREFCO RKE1T DSKLS CTRL PRTS
CIRGEC.PI
14=-SEP=-81 13:57

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

MACY11 30(1046)

14=SEP=-81

15:14

816

SEQ 0016

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

gzo

2222222222 2 R R R 2222222222222 2222222222222 23 2222222222 2

821

LOAD "'L'" REGISTERS

822

(222

823
824
825

2222222

THE SUBROUTINE CALL. DIAGNOSTIC MODE IS SET
AND L.CST1 IS LOADED WITH THE COMMAND.

828
829
830
831
832
833
834
ggg

CALL:
JSR

CYLINDER
sSECTOR
s TRACK
;BUFFER ADDRESS
sWORD COUNT
; COMMAND ,FORMAT ,DRIVE

RETURN:
RTS

840

841

2 2222222002222

8472

START

843

2233222222232 2282

22222222

THE

g:g
222 R

849

GET

850

THE

RK611

R R

2223232

s I
s

I IR

INFORMATION IN THE "°L'' REGISTERS ARE LOADED INTO THE

RK611

848

TYPE ,BUPPER BUS AD

222223223

THE OPERATION

844
845

IN L.MR1

R4 ,LOADRK

.WORD
BYTE
.BYTE
.WORD
.WORD
.WORD

837
838
839

REGISTERS

IN A STARAIGHT

TRANSFER.

2222222222822 2322222222222 232 2232222222222 222

REGISTERS

222222222222
222222222223 22233 3322232332223 222 2223232233222

ALL

THE RK611

REGISTERS EXCEPT THE DATA BUFFER ARE

STORED IN THE "'T'" REGISTERS.

855

856

"'FIRST SHALL BE LAST,

857

2222222222220

THE '‘L'" REGISTERS ARE LOADED FORM THE PARAMETERS FOLLOW!

ggg

ggz

2222222232222

2222222 2R R R

222322 22322222322 32223 2223223322222 2222222222

LAST SHALL BE FIRST'" SUBROUTINE

s 2222222223223
3332232223223 2322222222202

858
859
860
861
862

THE CONTENTS OF R3 IS SWAPPED END FOR END, I.E. BIT
BECOMES BIT O AND VICE VERSA,BIT 14 BECOMES BIT
1 AND VICE VERSA, ETC.

864

JSR

863

CALL:

R4 ,FSBLVV

ggg

WITH R3 LOADED WITH THE WORD TO BE SWAPPED

867
868
869
870

RETURN:
RTS
R&
WITH R3 SWAPPED.

871

Ci
Ci

817
8}3

851
852

PAGE 17

R R

R R R RN R R AR A AR AR

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

R R AR AR RN AR R TR RN AR RN EREY

CZR6ECO RK611 DSKLS CTRL PRTS

CIRG6EC.P1
872
873
874

14=SEP=81 13:57

MACY11

30(1046)

14-SEP-81

15:14

PAGE

(HECX FOR MEMORY
ARRRRA L AR

SEG 0017

(HE(CK ENABLE

R AP A ARARAARRARRNRA AR

SRR R AR AR

AR R AR

ARt

875
876
877
878
879
&80
881
RB82
883
884
885

13:57

*xx

;

NLIST

167400

000003

LLIST
.ENABL
$SWR=
$TN=

REV

004

A
PAGE 19

15:14

SEC 0018

%=«

CND,MD
MC

ME
ABS,AMA
167400
1

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

-PROGRAM BY MARV

TEGROTENHUIS

'THIS PROGRAM WAS ASSEMBLED USING THE PDP=11
'PACKAGE (MAINDEC=-11-DZQAC-C5), JAN, 1981.

l
®»

T
R

%
%

HALT ON ERROR

3
2

INHIBIT ERROR TYPEOUTS
ABORT PROGRAM AFiER 20 ERRORS

0
9

TEST

INHIBIT

ITERATIONS

;*INITIAL ADDRESS OF THE STACK POINTER *x* 17100 #w=

STACK=
.EQUIV
.EQUIV

000011
000012
000015
000200

HT=

177774
177772
177570
177570

STKLMT= 177774

000003
000004
000005
000006
000007

LOOP ON

BELL ON ERROR
LOOP ON ERRCR
LOOP ON TEST IN SWR<7:0>
BASIC DEFINITIONS

001100

000000
000001
000002

USE

%
e

%
%

»
D

V00000

—

CoONONWN
W

.3BTTL

177776

SYSMA(

SWITCH SETTINGS

SWITCH

OPERATIONAL

SBTTL

MAINDEC

1100
EMT,ERROR
10T,SCOPE

;;BASIC DEFINITION OF
:.BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

'MISCELLANEOUS DEFINITIONS

LF=

CR=
CRLF=
PS=

15
200
177776

;. CODE FOR HORIZONTAL TAB

::CODE FOR LINE FEED

S CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN=-LINE FEED
::PROCESSOR STATUS WORD

.EQUIV

PS,PSW

PIRQ=

177772

::PROGRAM INTERRUPT REQUEST REGISTER

DDISP=

177570

: *HARDWARE DISPLAY REGISTER

DSWR=

177570

::STACK LIMIT REGISTER

: HARDWARE SWITCH REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

RO=

R2=
R3=

%2
%3

R1=

R& =

RS=
Ré=

R7=

:GENERAL REGISTER

: *GENERAL

::GENERAL REGISTER

%5
16

i :GENERAL REGISTER
: :GENERAL REGISTER

i :GENERAL REGISTER
::GENERAL REGISTER

: :GENERAL REGISTER

14=SEP-81

[ X]

14-SEP-81

30(1046)

CZRSECO RkE11 DSKLS CTRL PRTS

CZRGEC.P11

MACY11

931

g%%

000006

SP=

000007

PC=

935

000000

PRO=

937

000100

PR2=

934

936
938
939

000040

15:14

G 2
PAGE 20

::STACK POINTER

; ;PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

;;PRIORITY LEVEL O

100

;sPRIORITY LEVEL 2

PR1=

PR3=
PRé=

140
200
240
300

;;PRIORITY LEVEL

940
941

000140
000200
000249
000300

PRS=
PR6=

944
945
946
947
948
949
950
951
952
953

100000
040000
020000
010000
004000
002000
001000
000400
000200

;*' 'SWITCH REGISTER'' SWITCH DEFINITIONS
Swi5=
100000
Swl4=
40000
Swi13=
20000
swiZz=
10000
Swil=
4000
Sw10=
2000
Sw09=
1000
Sw08=
400
Sw0?=
200

gz%

954
955
956
957
958
959

960
961
962
963

000340

000100
000040
000020
000010
000004
000002

000001

964

Swoé=
SW05=
Sw04=
swo3=
Sw02=
Swo1=

Swoo=
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
LEQUIV
LEQUIV

g;?

972
973
974
975
976
977
978
979
980
981
982
983
984
985
986

FR7=

EQUIV

965
966
967
968
969

.EQUIV

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

SEG 0019

340

;.PRIORITY LEVEL 3
;;PRIORITY LEVEL 4
;:PRIORITY LEVEL 5
;;PRIORITY LEVEL 6€

;;PRIORITY LEVEL 7

100
1 40
20
10
4
2

1
SW09,Sw9

SW08,Sw8

SWO7,Sw7
SW06,SWé

SWO5,Sw5
SW04,SwWé4

SWO3,Sw3

SW02,Sw2
SWO1,Sw1

SwW00,SwO

:*DATA BIT DEFINITIONS
BIT15=
100000
BIT14=
40000
BIT13=
20000
BIT12=
10000
BIT11=
4000
BIT10=
2000
BIT09=
1000
BIT08=
400
BiT07=
200
BIT06=
100
BIT05=
40
BIT04=
20
B81703=
10
BIT02=
4

(BITOO TO BIT15)

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

alal

CZRGECO RK611 DSKLS CTRL PRTS
CZROEC.P11
14=SEP=-81 13:57

987

988
989

BIT01=
BITO0=

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

ERRVEC= 4
RESVEC= 10

991
992
993
994
995

996

-2 O
O ONO NS

=O VNN

WA —=O VO NV

W WWWIWWWWWWWRINNONRNNNNNIN)
— = =
e
e S

il
s
il il sl
il
il il il
il
il
il il
il il
i
ol caclh il
il
i
) wd
il sl
il
e
i
ol

o slelelelelelelelaleolelelolelolblelofeleololelslslelsalele]

1003
1004

14=-SEP=-81
3 0(1046)
3ASIC DEFINITIONS

00000¢
000001

999

997
998
999
1000
1001
1002

MACY11

.EQulv
.EQUIV
.EQulv
.EQUIV
.EQUIV
.EQUIV
.EQuUIv
EQUIv
.EQUlv
.EQuIv

15:14

PAGE

SEG 0020

2
1

BIT09.,BIT9
BITO8.BIT8
B8IT07,BIT7
BIT06.BITE
BITO05,BITS
BITO04,BIT4
RITO03,BIT3
BIT02,BITZ
BITO1,BITI
8IT00,BITO

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
TBITVEC=14
TRIiVEC= 14

BFTVEC= 14

..TIME OUT AND OTHER ERRORS
RESERVED AND ILLEGAL INSTRUCTIONS
" BIT
TRnCE TRAP

,.BREAKPOINT

TRAP

;2 INPUT/QUTPUT TRAP (IQT)

EMTVEC= 30

; ;EMULATOR TRAP (EMT)

PWRVE(C= 24

TRAPVE (=34
TKVEC=
60
TPVEC=

: ;POWER FAIL

;. "'TRAP'' TRAP
;. TTY KEYBOARD VLCTOR
;. TTY PRINTER VECTOR

177572
177574
177576
172516

#«SCOPE*+

*+ERROR**

PIRQVE(=240
. ;PROGRAM INTERRUPT REQUEST VECTOR
.SBTTL
MEMORY MANAGEMENT DEF INITIONS

;*KT?'1 VECTOR ADDRESS
000250

(BPT)

I0TVEC= 20

MMVEC=

250

;*KT11

STATUS REGISTER ADDRESSES

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;*KERNEL "'I"" PAGE DESCRIPTOR REGISTERS

KIPDRU=
KIPDR1=
KIPDRZ2=
KIPDR3=
KIPDR4=
KIPDR5=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

J*KERNEL ''1'' PAGE ADDRESS REGISTERS

KIPARQ=
KIPAR1=
KIPARZ2=
KIPAR3=

172340
172342
172344
172346

CZROECO RKk611 DSKLS CTRL PRTS
14=5EP=-81 13:57
CZRGEC.P1

KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=

1043
1044
1045

:MEMORY PARITY VECTOR
:MEM PARITY OPTION
JWRITE BAD PARITY
:ENABLE PARITY ENABLE
;DEFINE RK&11 VECTOR ADDRESS

APRIOR= 5
ABASE=
177440
SBTTL

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

1075

1076

1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095

1096
1097

1098

RK(CS1=
RKWC=

000023

000025
000027
000031

000300

000001
000100
0002C0
000400
001000

RK611

:DEFINE RK611 PRIORITY
:DEFINE BASE OF RK611 REGISTERS
CONTROLLER REGISTER DEFINITICN

10
1?2
RKER=
14
RKASOF= 16
RKDCYL=20

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

O
¢

RKMR1=
RKMR2=
RKMR3=

JMAINTENANCE REGISTER 1
JMAINTENANCE REGISTER 2
JMAINTENANCE REGISTER 3

RKBA=
RKDA=

&
6

RKDB=

RKCS2=
RKDS=

26
34
36

RKEC®S= 30
RKECPT= 32
RISPAR= 22

.SBTTL

000001
000003
000005
000007
000011
000013
000015
000017
000021

SEq

172350
172352
172354
172356

MEMVEC= 114
MEMBAS= 172100
WR.PAR= 4
PAR.EN= 1
AVECT1= 120210

;DATA BUFFER

JECC POSITION INFORMATION
;ECC PATTERN [NFORMAT]ON
:SPARE REGISTER

DRIVE COMMANLS

SELDRV= 01

:SELECT DRIVE

CLEAR=
05
UNLOAD= 07
SRTSPL= 11

;DRIVE CLEAR
;UNLOAD
:START SPINDLE

PACK=

RECAL=

:PACK ACKNOWLEDGE

JRECALIBRATE

OFFSET= 15
SEEK=
17

;OFFSET
JSEEK

WRDATA=
RDHEAD=
WRHEAD=
WRTCHK=
INTR=

23
25
27
31
300

JWRITE DATA
:READ HEADER
JWRITE HEADER AND DATA
:WRITE CHECK
:GENERATE INTERRUPT T0Q CPU

.SBTTL

CONTROL AND STATUS REGISTES 1 BITS

G0=
1E=

BITO
BITé

;GO BIT
:INTERRUPT ENABLE

BA16=

BIT8

;BUS ADDRESS BIT 16

RDDATA= 21

RDY=

BA17=

BIT7
BIT9

;READ DATA

JCONTROLLER READY
;BUS ADDRESS BIT

14-SEP-81
30(1046)
15:14
PAGE 22
MEMORY MANAGEMENT DEF INITIONS

~Nay

CZR6EC.P11

MACY11

O
~o

CZR6ECC RK611

1099
1100
1101

002000
004000

(DT=
(T0=

BITiO
BIT1?

1102
1103

019000
020000

CFMT=
SPAR=

BIT1?
BIT13

}]89

100000

CCLR=

BIT15

1104
1105

040000
100000

Dl=
CERR=

BIT14
BIT15

SEQ 0022

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

;CONTROLLER DRIVE FORMAT (0=26 SECTOR, 1=24 SECTOR)
sDRIVE BUS PARITY ERROR DETECTED BY CONTROLLER
;DRIVE INTERRUPT
s CONTROLLER ERROR

sCONTROLLER CLEAR

}188

.SBTTL

1110
1M

000007
000010

1115
1116
1117
1118

000200
000400
001000
002000
004000
010000
020000

1112
1113
1114

1119
1120
1121

1122
}}52

000020
000040
000100

040000
100000

}}Sg

CONTROL AND STATUS REGISTER 2 BITS

DRVMSK= 7
RLS=
BIT3

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

OR=
UFE=
MDS=
PGE=

;OUTPUT READY
;UNIT FIELD ERROR
JMULTIPLE DRIVE SELECT
;PROGRAMMING ERROR

BAl=
SCLR=
IR=

BIT4
BITS
BITé

NEM=
NED=
UPE=

BIT11
BIT12
BIT13

WwCE=
DLT=

BIT7
BIT8
BIT9
BIT10

BIT14
BIT15

;BUS ADDRESS INCREMENT INHIBIT
;CLEAR CONTROLLER AND ALL DRIVES
s INPUT READY

sNON=EXISTENT MEMORY
sNON-EXISTENT DRIVE
sUNIBUS PARITY ERROR

sWRITE CHECK ERROR
;DATA LATE ERROR

.SBTTL

ERROR REGISTER BIT DEFINITION
BITO
BIT1
BIT?
BIT3
BIT4

sILLEGAL FUNCTION CODE
;SEEK INCOMPLETE
sNON-EXECUTABLE DRIVE FUNCTION
;DRIVE DETECTED DRIVE BUS PARITY ERRCR
;FORMAT ERROR

BIT7
BIT8
BITY

;BAD SECTOR ERROR
sHEADER VRC ERRROR
sCYLINDER ADDRESS OVERFLOW ERROR

1127
1128
1129
1130
1131

000001
000002
000004
000010
000020

1134
1135
1136

000200
000400
001000

I F=
SKI=
NXF =
DRPAR=
FMTE=
DIYE=
ECH=
BSE=
HVRC=
COE=

020000
040000
100000

OP]=
UNS=
DCK=

BIT12
BIT13
BIT14
BIT15

.SBTTL

STATUS REGISTER B!T DEFINITION

000001

DRA=

BITO

000004

OFST=

BIT?

VV=

BITé

DDT=

BIT8

1132
1133

1137
1138

1139
1140
1141
}}2%

000040
000100

002000
004000
010000

%%2%
1146
1147
1148
1149
1150
1151
1152
1153
1154

000010
000020
000040

000100

000200

000400

IDAE=
WLE=
DTE=

BITS
BITé

BIT10
BIT11

ACLO=
BIT3
SPDLSS= BIT4
DROT=
BITS
DRDY=

BIT?7

;DRIVE TYPE ERROR
sECC HARD

s INVALID DISK ADDRESS ERROR
sWRITE LOCK ERROR

;DRIVE TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
;DRIVE UNSAFE
;DATA (CHECK

;DRIVE AVAILABLE (CONTROLLER
;
THIS BIT IS RESET)
;DRIVE OFFSET
;AC LOW
; SPEED LOSS
;DRIVE OFF TRACK
;VOLUME VALID
;DRIVE READY
;DRIVE TYPE (0=Rk06)

!5 SET

~N~a

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

CZR6ECO RK6E11 DSKLS CTRL PRTS
CZRGEC.P11
14-SEP-81 13:57

1155
1156
1157
1158

004000
020000
040000
100000

30(1046)
STATUS RE

15:14

PAGE 24

DEFINITION

JWRITE LOCK
;POSITIONING IN PROGRESS
;DRIVE STATUS (HANGE
sSTATUS VALID

SEG 0023

CZR6E (0 RK611 DSKLS CTRL PRTS
CZRGEC.P
14-SEP-81 13:5

MACY11

1159

}}g?

E 2
MACY11 30(1046)
14=SEP-81
15:14 PAGE 25
STATUS REGISTER BIT DEFINITION
.SBTTL

SEQ 0024

MAINTENANCE REGISTER 1 BIT DEFINITION

}12%

000017

MESMSK= 17

;MESSAGE MASK

1164

000020

PAT=

BIT4

;FORCE EVEN PARITY ON DRIVE MESSAGE LINES

117

004000

PCA=

BIT11

1165
1166
1167
1168
1169
1170
1172
1173

1174
}};2

000040
000100
000200
000400
001000
002000

DMD=
MSP=
MIND=
MCLK=
MERD=
MEWD=

010000
020000

PCD=
ECCw=_

040000
106000

000020
000040
000100
000200
000400
001000
002000
004000

1189

000000

};gg

1190
119N
1192
1193
1194
1195
1196
1197

1198
1199

1200

}ggg

000174
000176

000200
000204
00C214

1203

1207

000046

1209
1210
1211
i212
1213
124

000052

1208

;PRECOMPENSATION DELAY
sECC WORD IS BEING READ OR WRITTEN

sPRECOMPENSATION ADVANCE
;WRITE GATE
;READ GATE

TRANSMITTED MESSAGE A

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

BIT4
BITS
BITé
BIT?7
BIT8
BITY
BIT10
BIT11

TRAP CATCHER

; SEEK COMMAND
JRECALIBRATE COMMAND
sSTART SPINDLE COMMAND
sDRIVE RETURN TO CENTERLINE COMMAND
sCLEAR ERROR AND DSC
; FORMAT
s UNLOAD
sSET VOLUME VALID (PACK ACKNOWNLEDGE)

.=0

002400
002370
002360

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘.42 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174
DISPREG: .WORD
0
. s SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
;:SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JMP
@#START ;;JUMP TO STARTING ADDRESS OF PROGRAM

JMP
.=214

.SBTTL

JMP

RESTRT

;JUMP TO RESTART ROUTINE

PARM

;JUMP TO OPERATOR ASSIGNED PARMETERS

ACT11 HOOKS

.'.'".tttt'.ttfitttttt""t'"tttt't'tttttfittttttttt'tttt'tttit't.'

1204
1205

1206

BIT12
BIT13

.SBTTL

000174
000000
000000

000137
000137
000214
000137

;DIAGNOSTIC MODE
sMAINTENANCE SECTOR PULSE
sMAINTENANCE INDEX
sMAINTENANCE CLOCK
sMAINTENANCE ENCODED READ DATA
sMAINTENACNE ENCODED WRITE DATA

WRTGAT= BIT14
RDGATE= BIT15

}};g
1179
1180
1181
1182
1183
1184
1185
1186

BITS
BITé
BIT7
BIT8
BITY
BIT10

000114
(000116

000220

;HOOKS REQUIRED BY ACT11
$SVP(=.

023276

$ENDAD

::1)SET LOC.46 TO ADDRESS OF

000000
000220
000114
031726
000340
001000

WORD
O
.=$SVP(
. =MEMVE(
MEMERR
PR7
.=1000

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

000046

000052

.=46

.=52

s SAVE PC
S$ENDAD

IN .$EQP

oTM

CZREEC.P1

DSKLS CTRL PRTS
14-SEP-81 13:57

(ZR6 ECO RK611

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

2
PAGE 26

APT PARAMETER BLOCK

SRR AR AR AR

A A AR AR AR

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

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
R

000024
000044

A AR

ii 222t
2R
2 22222t R

001000
000024
000200
000044
001000

001000

SEQ 0025

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

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

;:ttt'fiit'*t*tttfitttfitifi'i"tltttttitfitt*Qllttitttttt'ttt"'titt.

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

000000
001250
000132
001604
000144
000030

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

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD

O
;.TWO HIGH BITS OF 18 BIT MAILBOX 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.
;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

~N~a

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

14-SEP=-81 13:57

qggg

.SBTTL

1239

1240

:*THIS TABLE

}52;

1243
1244
1245
1246
1247

1248
1249

1250
1251

1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274

1275
1276

1277
1278
1279
1280
1281
1282

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
007154
001155

002

001162
001164
00i166

000000
000000
000000

PAGE 27

SEQ 0026

COMMON TAGS
AR AR AR

$CMTAG:

A AR

R R AN R R

AR AR AR AR R AR AR AR

AR RN

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

.=1100

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$ERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$8DADR: .WORD
$GDDAT: .WORD
$RDDAT: .WORD
LWORD
LWORD
$AUTOR: .BYTE
$INTAG: .BYTE
LWORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPR:
177566
$NULL:
.BYTE
$FILLC:
$TPFLG:
$REGAD:

.BYTE
.BYTE
.WORD

$REGO:
$REG1:
$REG2:

.WORD
.WORD
.WORD

O
0
O

.WORD
,WORD

0
O

.BYTE

000000
000000
000000
000000

$REG3:
$REG4:
$REGS:
$REGE:

.WORD
.WORD
.WORD
.WORD

0012064

000000

$TMP1:

001210

000000

$'MP3:

_WORD

000000

$TMMP10:

.WGRD

001212
001214
001216
001220
001222

000000
000000

000000

000000
000000
000000
000000

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

0
2
12
0
0

$FILLS:

001170
001172
001174
001176

001206

1292

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

1286

1288
1289
1290
1291

001100

001156
001157
001160

001200
001202

1287

:*USED IN THE PROGRAM,

1283
1284

1285

15:14

$REG7:
$TMPO:

$TMP2:

$TMPL:
$TMPS:
STMPG:
$TMP7:

::START OF

COMMON TAGS

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

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

;:WHICH
(SREGO) WAS OBTAINED
::CONTAINS ((SREGAD)+0)

O
O
O
7

::CONTAINS
::CONTAINS
:;CONTAINS
::CONTAINS
::CONTAINS
::CONTAINS

:USER DEF INED

((SREGAD)+2)
((SREGAD)+4)
((SREGAD)
+6)
((SREGAD)+10)
((SREGAD)+12)
((SREGAD)+14)

::CONTAINS ((SREGAD)+16)
:2USER DEF INED

.WORD

::USER DEF INED

.WORD
_WORD
.WwORD
_WORD

O
O
O
(0

::USER
:2USER
::USER
::USER

INDICATOR
INDICATOR

;JUSER DEF INED

DEFIMFD
DEF INED
DEF INED
DEFINED

CIUSER DEFINED

CIRGEC.PM

MACY11 30(1046)
14=SEP-81
COMMON TAGS

CIR6 ECO RK611 DSKLS CTRL PRTS

CIRGEC.P1Y
1293

14-5EP=-81 13:57

SEQ 0027

WORD

;USER DEFINED

001230
001232
001234
001236

000000
000000
000000
000000

$TMP13: .WORD
$TMP14: _WORD
$TIMES: 0
SESCAPE: 0

O
O

;3USER DEFINED
2 JUSER DEF INED
;sMAX. NUMBER OF ITERATIONS
;;ESCAPE ON ERROR ADDRESS

001244

077

001240

1303

3
PAGE 28

$TMP11:

1299
1301
1302

COMMON TAGS

15:14

000000

001226

1300

14-SEP-81

1224

1296

1295
1296
1297
1298

MACY11 30(1046)

001245
001246

000000

177607

01§
000012

000377

$TMP12:

.WORD

$BELL:

.ASCIZ

¥
<207><377><377> ;:CODE FOR BELL

$CRLF:
$LF:

L.ASCII
ASCIZ

<15>
<12>

$QUES:
PR

.ASCII
R

;3USER DEFINED

72/

AR AR AR R RN AR R

;:QUESTION MARK

; sCARRIAGE RETURN
:sLINE FEED

AR A AR AR

AN AR AR

RRARA

;ggg

LSBTTL

1306

:;'t'tttt'ttfi't'.tttt'Qt"'t'ttlQfittttttttttttttt'ttttt't'ttt"t!

1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1377
1318
1319
1320
1321
1322

1323

001250
001250
001252
001254
001256
00126C
001262
001264
001266
001270
001270
001271
001272
001274
001276

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

1324
1325

1326

1327
1328
1329
1330
1331
1332

001300
001301

000
000

001302

000000

1333

1334
1335
1336
1337
1338
1339
1340
1341
1342

1343
1344

1345
1346
1347
1348

001304

001305
001306
001310
001311
001312
001314
001315
001316
001320
001322
001324

000

000
000000
000
000
000000
000
000
000000
120210
000000

177440

APT MAILBOX-ETABLE

.EVEN
$MAIL:
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
SENV:
BYTE
$ENVM:
_BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD
i
o*
i*
o®
v
*9
$MAMS1: .BYTE
$MTYP1: .BYTE
o
o %
o
i*
$MADR1: .WORD
i*
$MAMS?:

$MTYP2:
$MADRZ2:
$MAMS3:
$MTYP3:
$MADR3:
$MAMS4:
$MTYP4:
$MADRS4:
$VECT1:
$VECT2:
$BASE:

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

AMAMS1
AMTYP1

AMADR1

.BYTE

AMAMS?

.WORD

ABASE

.BYTE
.WORD
.BYTE
.BYTE
.WORD
_BYTE
.BYTE
.WORD
.WORD
.WORD

;sAPT MAILBOX
;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT
;3170 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH
:;APT ENVIRONMENT TABLE
s ;ENVIRONMENT BYTE
;;ENVIRONMENT MODE BITS
;;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
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
;:HIGH ADDRESS.M.S. BYTE
;:MEM. TYPE,BLK#1
MEM.TYPE BYTE
-=(HIGH BYTE®
900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003
;:;HIGH ADDRESS.,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF "‘TYPE'' ABOVE
;:HIGH ADDRESS,M.S.

BYTE

AMTYP2
::MEM.TYPE ,BLK#2
AMADR?
; ;MEM.LAST ADDRESS.,BLK#?
AMAMS3
;;HIGH ADDRESS ,M.S.BYTE
AMTYP3
;:MEM.TYPE ,BLK#3
AMADR3
::MEM.LAST ADDRESS.BLK#3
AMAMSS
::HMIGH ADDRESS,M.S.BYTE
AMTYP4 ; ;MEM.TYPE ,BLK#4
AMADRS4 ; ;MEM.LAST ADDRESS,BLK#4
AVECT1
;:INTERRUPT VECTOR#1,BUS PRIORITY#1
AVE(T2
;;INTERRUPT VECTOR#2BUS PRIORITY#?
: sBASE

ADDRESS OF

EQUIPMENT UNDER

TEST

CIRGECD Rk611 DSKLS CTRL PRTS

CZR6ECO RKE11 DSKLS CTRL PRTS
14=-SEP=-81 13:57
CZR6EC.PT
1349

1350

1351

00132 ¢
00133 0

000000

MACY11

30(1046)

14=SEP=-81

$DEVM:
$ETEND:
JMEXTT

.WORD

APT MAILBOX<-ETABLE

15:14

ADEVM

PAGE 29

;;DEVICE MAP

SEQ 0028

13:57

14=SEP=-31

30(1046)

ERROR POINTER TABLE
.SBTTL
s*THIS
;*THE

15:14

PAGE 30

SEQ 0029

ERROR POINTER TABLE
TABLE

CONTAINS

INFORMATION

THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

IS OBTAINED BY USING

THE

INDEX NUMBER FOUND

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF $ITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

s*NOTE1
;*NOTEZ2:

001330

L4
Senan,

Wi S WN=OVONOWN
Yoo ~NON VN~ W nN—=OYo~NOTVNHWN
S WN—=O

WWWWWWWWWWW\G
COCO00000000
NN NN

14=SEP-81

MACY11

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

;;POINTS
;;POINTS
;;POINTS
;sPOINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTRB:

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
00" 364
001366

043243
043307

040006

JUNEXPECTED PARITY ERROR

0
0
0
0
ERROR 3
0
0
0
0

s UNUSED

sUNUSED

JERROR ATTEMPTING

IMPLIED SEEK

;CS1

IN ERROR

IN ERROR ATTEMPTING

040324

DF0004

001370
001372
001374
001376

043243
043326
040024
040354

ERROR 5
EM5004
E5004B
DT0005
DF0005

JMR1T

001400

043243
043345
040034

ERROR 6

sMR2 IN ERROR ATTEMPTING IMPLIED SEEK

040400

EM5004
E5004C
DT0006
DF0006

043243
043364
040044
040424

ERROR 7
EM5004
E5004D
DT0007
DF0007

JMR3

IN ERROR ATTEMPTING IMPLIED SEEK

043455

ERROR 10
EM5010

;MR1

ERROR READING PREAMBLE

IMPLIED

SEEK

P11

oo
MM

il
sl il il

il casl) il

il il il

sl i

il sl

il il

WWWWWWWWNWKWNW WWWWWWWWWNNW
NNNVNNOAOOOO
D o oo vy

il il
s
il
il
il il i
) el Sl
i wall i
il il
i

(0 Rk611 DSKLS CTRL PRTS

il il sl il

il il

il il i)

S il

il il il il S

sl il il

il huld il

PaP S SR 2R P S F o o o o o 0l ol ol o o SR 2k 2 0 o o o O ol o
WWWNWWIWWARLNOMNOMNRDNOMNMNOMNIN
= D e a9
e a
VNS WN OV
NO NS WN 2O YNNI W= O

CZRGEC.PTT

14-SEP-81

13:57

MACY11

30(1046)

14=SEP-81

ERROR POINTER

15:14

PAGE

SEQ 0030

TABLE

001422
001424
001426

043326
040054
040450

£50048
DT00'0
DFO010

001430
001432
001434
001436

043455
043307
040072

;CS1

ERROR READING PREAMSLE

040474

ERROR 11
EM5010
E5S004A
DT0011
DFOO11

001440
001442
001444
001446

043535
043326
040054
040450

ERROR 12
EM5011
E50048
DT0010
DFO010

;MR1

IN ERROR HEADER READ/COMPARE

001450
001452
001454
001456

043535
043307

ERROR 13
EM5011
£5004A
DT0011
DFOO11

;CS1

IN ERROR HEADER READ/(COMPARE

001460
001462
001464
001466

043535
043610
040116

ERROR 14
EMS011
E5011A
DT0014
DFO014

sPACK ADDRESS ERROR HDR READ/(OMPARE

ERROR 15

:MR1

ERROR READING GAP

ERROR AFTER READING GAP

040072
040474

040524

001470
001472
001474
001476

043640
043326

001500
001502
001504
001506

043455
043307
040072
040474

ERROR 16

EM5010
E5004A
DT0011
DFOO11

;CST1

000000
000000
040132
040550

ERROR 17
0
0
DT0017
DF0017

;ERROR

001526

043675
043307
040072
040474

ERROR 20
EMS020
ESO04A
DT0011
DFOO011

001530
001532
001534

043754
044022
040154

040054
040450

EM5015
E50048
DT0010
DF0010

IN WRITING

JREGISTER IN ERROR AND (LOCK
sTRANSITION IS IDENTIFIED

JERROR IN (S1 AFTER WRITING SYNC

JERROR

[N ECC WORDS

[ Yo]

CZRO6ECO RK611 DSKLS CTRL PRTS

1464

1465

1466

1467
1468
1469
1470
1471
1472
1473
1474

NS WN—=O0OVo
N
OO N

B B P OOO

—

VN AWV

D
B et p
e

QP S
S

PAGE

SEQ 0031

001540

043754
043307
040072
040474

ERROR 22
EM5021
ES5004A
DT0011
DFOOM

JERR IN (ST AFTER WRITE DATA

044052
043345
040034
040400

ERROR 23
EMS5023

;ERROR [N MR?

E5004C
DT0006
DFO006

ERROR 24
EM5023
E5004D
DT0007
DF0007

;MR3

IN ERROR

001566

044052
043364
040044
040424

001570
001572
001574
001576

044052
043307
040006
040324

ERROR 25
EM5023
E5S004A
DT0004
DF0004

;CS1

IN ERROR

001600
001602
001604
001606

044472
000000
040166
040620

ERROR 26
EM5026
.WORD
0
DT0026
DF0026

Er025:

040620

ERROR 27
EM5027
DHO00A
DT0026
DF0026

EH030:

001626

045004
000000
040166
040620

ERROR 30
EM5030
.WORD
0
DT0026
DF0026

001630
001632
001634
001636

045077
000000
040166
040620

EHO031:

ERROR 31
EM5031
.WORD
0
DT0026
DF0026

001640
001642
001644
001646

045164
043326
040054
040450

044632
041524

040166

ERROR 32
EM5032
E5004B
DT0010
DFO010

;DOING MULTI-SECTOR WRITE

JAFTER MULTI-SECTOR WRITE

;NO COE ERROR

;OTHER ERROR WHILE FORCING COE

JUNEXPECTED CYL OVERFLOW

JUNEXPECTED ERROR TESTING COE

:MR1

ERROR READING DATA SYN(

15:14

DFO02?

1496
149~
1498
1499
1500

ERROR POINTER TABLE

-3

040574

1476
1477

1495

13:57

14=SEP-81

001536

1475

1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494

14=SEP=-81

30(1046)

[y
Y

(ZR6ECO Rk611 DSKLS CTRL PRTS

CIRGEC.PN

MACY11

0
1

2
3
g
6

001670

045307

001676

040574

4
S

g
0
1

2
3
é

001710
001712

045350
041524

001716

040654

001706

001714

001720

001734

001740
001742
001744
001746

045511
041524
040754
040720

001750

045572

001754

040240

001760

045651

562

NNNNNYOO

“

001752

001756

;CST ERRQOR AFTER READING SYNC

EM5032

ERROR 34

;MR1T

EMS5034

IN ERROR READING DATA OR ECC

ERROR 35
EM5035

;ECC ERROR READING DATA

ESO21A
DT0021

DF0021
3

ERROR 36
EMS034
ESQ04A

;CST1 ERROR AFTER READING DATA QOR ECC

DT0011

DFO011
3

ERROR 37
EMS037

;DATA COMPARE

ERROR

(1ST MESSAGE)

DHOO0A

DT0037

DF0037
ERROR 40

:DATA COMPARE ERROR

(2ND THRU 10TH ERR)

0
DT0040
DF0040
:

ERROR 41
EM5041

DHOO0A

040222

040700

1563
1564
1565
1566

041524

001736

JECC REGISTER

INCORRECT AFTER ECC

JERROR

PAT

READ

DT0041

DF0041
:

ERROR 42

ERROR 43

041524

EM5042
DHOQ0A
pT0021
DF0042

EMS5043

CALCULATION AFTER ECC

DT0043

DF0043
:

ERROR 44
EMS044

ERROR

JERROR IN ECC POSITION COUNTING AFTER ECC ERROR

DHOO0A

040740

[N ECC

;ERROR AFTER PROCESSING DATA (HECK ERR

(alal

SEQ Q032

ESO04B
DT0010
DF0010

000000

001732

040210

045424

ERROR 33

G 3
PAGE 33

ES004A
DT001
DFO011

040474

001730

045242
043307
040072

001700
001702
001704

000000
040214
040674

il e

0644022
040154

001722
007724
001726

045242

2
3

001660

043326
040054
040450

8
9
0

043307
040072
040474

001662
001664
001666

001652
001654
001656

001672
001674

045164

8
9
?

&
S

NN LA LA

001650

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

~Na~

(0 Rk611 DSKLS CTRL PRTS
C.PM
14=SEP=-81 13:5~7

14-SEP-81

1576
577

001762
001764
001766

043307
04000¢
040324

E5004A
DT0004
DF0004

001770
001772
001774
CC1776

045651
043403
040252
040760

ERROR 45
EM5044
ES5004E
DT0045
DFO045

002000
002002
002004
002006

043243
041524
040262
041004

il o

il s

oy oo
[0 +]00 000000000000~~~

~ VNS
W
—=O Voo

TIRGEC.P1T

[

—

OMOMOMONONOM

no POND =2 e
e b s
no = OV NN
—

1610

13:57

ERROR 46

EM50046
DHOO0A
DT0046
DF0046

002010
002012
002014
002016

046013
043610
040116
040524

ERROR 47
EM5047
ESO11A
DT0014
DFO014

002020
002022
002024
002026

046106
043307
040006
041024

ERROR 50
EMS050
ES004A
DT0004
DF0050

002030
002032
002034
002036

046161
043403
0640252
040760

ERROR 51
EM5051
E5004E
DT0045
DFO04S

002040
002042
002044
002046

046236
041524
040262
041004

ERROR 52
EM5052
DHOO00A
DT0046
DF0046

002050
002052
002054
002056

046356
043326
040054
040450

ERROR 53
EM5053
E50048B
DT0010
DFO010

002060
002062
002064
002066

046445
044022
040154

040574

ERROR 54
EM5054
ESO21A
DT0021
DFO021

002070
002072
002074

046356
043307
040072

ERROR 55
EM5053
E5004A
DTO011

PAGE

SEQ.0033

;ERROR AFTER PROCESSING DATA (HECK ERR

; TRANSFER

LENGTH

ERROR

PARTIA'

;BSE DID NOT PREVENT DA OR D(C

SEC

READ

INCREMENT

;BSE DID NOT CAUSE CERR

;BSE FAILED TO SET WHEN EXPECTED

;DATA XFER ABORT

;MRT

ERROR

IN WRT

TO SOON

(HK

OR ECC

READ AFTER WRT

(HK

JECC ERROR IN WRITE (HECK OP

;CST

ERROR AFTER WRT (MK OR ECC READ IN WRT (HK

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

MACY11

[

CZRO6ECO Rk611 DSKLS CTRL PRTS

14=-SEP-81

1632

002076

060474

002100
002102
002104

045242
043307
040006
040324

1633

1634
1635
1636
1637
1638
1639
1640
1641
1642
1643

002106

13:5

30(1046)

14-SEP-81

ERROR POINTER TABLE

ERROR 56

EM5034

ERROR 57
EM5053
ES004A
DT0Q04
DFO004

046356
043307

002120
002122
002124
002126

ERROR 60
EM5060
DHOO0A
DT0037
DFO0060

002130
002132
002134
002136

040262
041070

ERROR 61
EM5061
E5004F
DT0046
DFO061

002140
002142
002144
002146

046567
043437
040272
041114

ERROR 62
EM5061
E50046
DT0062
DF0062

1568

002150
002152
002154
002156

046644
043437
040302
041140

ERROR 63
EM5063
E5004G
DT0063
DF0063

1685

002160
002162
002164
002166
002170
002172
002174
002176é
002200
002202
002204
002206
002210
002212
002214

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

1686

1687

002216

.SBTTL

SEQ 0034

.
.

e e B

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

.WORD

:
:

.WORD
JWORD

e e

WC:

e e

;CS1 ERROR AFTER WRITE CHECK OR ECC REAL

;WCE

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

FAILED

TO SET

IN 16 BIT MODE

;TRANSFER

LENGTH PROBLEM - RKBA

;TRANSFER

LENGTH PROBLEM - RKW(

;WCE

TEMPORARY

1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684

1666
1667

1665

1664

1663

1660
1661
1662

1659

e b

165

1649
1650
1651
1652
1653
1654
1655
1656
1657

1648

;CST ERROR AFTER READ DATA OR E(C

,
E5004A
DT0004
DF 5004

1644

1647

PAGE

DFO01?

1645

1646

15:14

STORAGE FOR RK611

FAILED

TO SET

IN 18 BIT MODE

CONTROLLER REGISTER

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

;DESIRED CYLINDER REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER 1
;MAINTENANCE REGISTER 2
sMAINTENANCE REGISTER 3

JECC POSITION INFORMAT!ON
;ECC PATTERN INFORMATION
;SPARE REGISTER

TIRGEC.P1T

MACY11

ODCOTCOOOOOOCOOOOOO

(ZRGECO RKk611 DSKLS CTRL PRTS

DCYLz
.MR1:
.MR2:
.MR3:

.WORD
.WORD

sMAINTENANCE REGISTER

sMAINTENANCE REGISTER 3

sECC POSITION INFORMATION
;ECC PATTERN INFORMATION
;SPARE REGISTER
FOR

.SBTTL

PROGRAM DEFINED

.WORD
.WORD
.WORD
.WORD

002304
002306
002310
002312

000210
000240
000000
000000

RKVEC:
RKPR]:
TRAPP(:

002314
002316
002320
002322
002324
002326
002330
002332
002334
002336
002340
002342

000000
000000
000000
000000
000000
000000
000000
009000
000000
000000
000000
000000

ERRCNT:
P1.BIT:

SRTFLG:

.WORD
.WORD
PR.BIT: .WORD
M1.BIT: .WORD
M2.BIT: .WORD
BITCNT: .WORD
: .WORD
WRDCNT
: .WORD
MEMPAR
BADPAR: .WORD
ECCXOR: .WORD
ECCHI:
.WORD
ECCLO:
.WORD

210

PRS
0
0

sMAINTENANCE REGISTER 2

COMMAND START

;CONTROL AND STATUS 1
;WORD COUNT
;BUFER ADDRESS
;DESIRED
;SECTOR
s TRACK

;CONTROL AND STATUS

JATTENTION AND OFFSET

;DESIRED CYLINDER
JMAINT. REG 1

sMAINT.

REG 2

JMAINT. REG 3

VARIABLES

sRK611
;RK611
:PC

VECTOR
PRIORITY

FOR MEMORY

:START FLAG

3
:

CHECK ENABLE

TRAP

0=200
1 =214

-1

= 204

sERROR COUNT FOR SWITCH 12 ABORT
sNEXT BIT IN DATA SIMULATION

;PRESENT BIT IN DATA SIMULATION
;PREVIOUS BIT IN DATA SIMULATION

;BIT BEFORE PREVIOUS BIT
;BIT POSITION

;WORD COUNT FOR NPR TRANSFER

;MEMORY EMABLE ON FIRST 24K

;BAD PARITY FLAG
XOR SWITCH
JECC
:ECC HIGH STORAGE

:ECC

lan]

:
.ASOF

;DESIRED CYLINDER REGISTER
;DATA BUFFER

L3583

.BYTE
.BYTE
.wORD
.WORD
.WORD
.WORD

TERS

JATTENTION SUMMARY AND OFFSET REGISTER

.WORD
.WORD
.WORD

LOW STORAGE

YTM

SEQ 0035

;CONTROL AND STATUS REGISTER 1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
IS ER
;DESIRED TRACK SECTOR REGIS
s CONTROL AND STATUS REGIS TER 2
;DRIVE STATUS REGISTEPR
;ERROR REGISTER

OO0COOOOOOOOCOCOOOODOO

.ECPS:
ECPT:
.SPAR:

OOV

.MR2:
.MR3:

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

PAGE 36

(ONTROLLER REGISTERS

OCOOOCOOOO

mmMmmMmmMmmmmmmmmmmmmm

L5343

w99
+ERE
.ASOF:
+DHLYL:2
.DB:
.MR1:

olelelelolelelslolelele)]

000
000
000000
000000
000000
000000
000000
000000

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

000000
000000
000000

L3V
W(:
.BA:
.DA:

CONTROLLER REGISTERS

EXPECTED RKE11

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

15:11:

LSBTTL

s g

002256

000000
000000
000000
000000
000000
000000
005000
000000
000000
000000
000000
000000
000000
000000
000000
000000

14-SEP-81

EXPECTED RK611

s o g

—

il asld el il
il i
i wad il il
i
il
)
il
D il
il
o
D i cld sl cnld vl
il il
il clh
i
) el et
il cwilh el i

NN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNAN NN
= 3 e b b e B b el 2 OO oo
B BSSUWWWWWWWWWWNDI
NN PURNOMNORNOPIRD
W20V NO
W= OOV NON VNS W
=000 ~NONW S AWNNV=OVO NN

1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705

002220

1 3:57

1688
1689
1690
1691

14=SEP=81

30(1046)

CIRGEC.PN

MACY11

CZR6ECD RK611 DSKLS CTRL PRTS

1744

1745
1746
1747
1748
1749

002344

002356

000000
000000

000000
000000
000000
000000

MACY11

15:14
14=SEP-81
PROGRAM DEF INED VARIABLES

30(1046)

ECCSRC:
ECPATX:
ECPOSX:
BSEDES:
HIBITS:
SAVSWR:

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

PAGE

sECC _SOURCE FLAG
JEXPECTED PATTERN ON ERROR
JEXPECTED POSITION ON ERROR
;BAD SECTOR DESIRED
;HI ORDER BITS FOR 18 BIT WORD XFER
;STORAGE FOR SWITCH REGISTER

SEQ 0036

CZRGECO RK611 DSKLS CTRL1§R§S
14=SEP-81
CZREEC. P11

OOO0OCO

PROGRAM SETUP

15:14

.SBTTL

PROGRAM SETUP

PAGE 38

SEQ 0U37

000001

002312

PARM:

MOV

#1,SRTFLG

;LOAD START FLAG FOR PARMETER START

002370
002376

012737
000402

177777

002312

RESTRT:

MOV
BR

#=1,SRTFLG

;LOAD START FLAG FOR RESTART

002400
002404
002406
002412
002416
002422
002426

000005
105037
012706
012746
012746
000002

005037

002312

START:

(LR

SRTFLG

;CLEAR START FLAG

CLRB

$ERFLG

;CLEAR ERROR FLAG

002430

004737

001103
001100
000340
002430

MOV
MoV
MOV
RTI

036062

1%:

.SBTTL

177570
177570
177777

000176
000174
000004

002662

001256

sINITIALIZE STACK POINTER
;LOAD STACK TO LOCK OUT ALL
sLOAD START OF PROGRAM

0
1

;sFIRST LOCATION

;:LO0P BACK IF NO

TO BE

(R6) +
;3CLEAR MEMORY LOCATION
#SWR,R6 ;;DONE?

#STACK,SP

;sSETUP THE

CLEARED

STACK POINTER

MOV
MOV
MoV
MOV

#$SCOPE ,a#IOTVEC

;;I0T VECTOR FOR SCOPE

#SERROR ,a#EMTVEC

;;EMT VECTOR FOR ERROR ROUTINE

MOV
MOV
MOV

#$TRAP ,@#TRAPVEC

#340,9#TRAPVEC+2;LEVEL 7
#$PWRDN ,a#PWRVEC ;;POWER_FAILURE VECTOR
#340,9#PWRVEC+2 ;;LEVEL 7
SENDCT,$EOPCT
;;SETUP END-OF-PROGRAM COUNTER
$TIMES
;o INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS

;;TRAP_VECTOR FOR TRAP CALLS

MOV

)

INTERRUPTS

;LOAD PSW

#$CMTAG,R6

;o INITIALIZE A FEW VECTORS

)
-

d
—

—

[elele]

0
0
0

000020
000022
000030
000032
000034
000036
000024
000026
023134

MOV
CLR
CLR

MOVB
MOV
MOV

#340,9#I0TVEC+2 ;;LEVEL 7

ROUTINE

#340 ,Q#EMTVEC+2 ;;LEVEL 7

#1,$ERMAX
#.,SLPADR
#.,SLPERR

;;ALLOW ONE ERROR PER TEST
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
::SETUP THE ERROR LOOP ADDRESS

@#ERRVEC ,-(SP)

;;SAVE ERROR VECTOR

#DSWR, SWR
#DDISP,DISPLAY

::SETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER

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

000004
001140
001142
176310

002642

BNE

b
-

64%:
—

rororowvivilwrorororororororNy

e o]

002632
002634
002640
002642
002650
002656

#STACK,SP
#PR7 ,=(SP)
#18,-(SP)

JRESET THE WHOLE SYSTEM

PC,a#STKINT
s INIT KEYBOARD
INITIALIZE THE COMMON TAGS

CLR
CMP
BNE
MOV

001100

000004
002634

START1

JSR

MOV

001140

033366
000340
034266
000340
037712
010340
037556
000340
023142
001234
001236
000001
002560
002566

START1

;;CLEAR THE COMMON TAGS ($CMTAG) AREA

o0
OO

002574
002600
002606
002614
002622
002630

002462
002470
002476
002504
002512
002520
002526
002534
002542
002546
002552
002560
002566

START1: RESET

001100

Bl TM L L

002454

65%:
66%:

MOV

RTI

MOV

#648 ,QNERRVEC
#-1,3SWR

66%

65%
#65%, (SP)

;;SET UP ERROR VECTOR

;2TRY TO REFERENCE HARDWARE

SWR

;sBRANCH IF NO TIMEOUT TRAP OCCURRED
THE HARDWARE SWR IS NOT = =1
;2AND
::BRANCH 1, NO TIMEOUT
;2SET UP FOR TRAP RETURN

MOV

#SWREG, SWR
;sPOINT TO SOFTWARE SWR
#D]SPREG,DISPLAY
(SP)+,Q#ERRVEC
;;RESTORE ERROR VECTOR

CLR

$PASS

;sCLEAR PASS COUNT

14-SEP-81

~NN

30(1046)

012737
000406

002434
002440
002442
002446
002450

1805

MACY11

002360
002366

elellelelelelelelelelslele

B NN =O VO NNONN IS

N —o

NNNNNNNNNYNNNYNN ~
oo
NN
T AN w

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P1

- CIRGEC.P11

14-SEP=81 13:57

MACY11 30(1046)

002666
002674

132737
001403

000200

001271

012737

001272

001140

1810
1811
1812
1813
1814
1815
1816

002704

005037

002314

002710
002714
002716
002724
002726

005227
001056
022737
001452
104401

177777

002732
002736
002740
002746
002750
002756
002760
002762
002764
002772
002772

005737
0010712
123727
001406
023727
001005
104406
000403
112737

1817
1818
1819

1820
1821
1822

1823

1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834,
1835
1836
1837
1838
1839
1840
1847
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852

1853

1854
1855
1856
1857

1858

1859

1860
1861

885952

003052
003052
003056

003162

003170
003176
003200
003206

022737
101760
042737
053737

003074
003100
003104
003106
003112
003114
003120
003122
003130
003132
003140
003144
003150
003154
003160

003166

003214

003220

003222
003226

001412

104401

005046

113716
006216

S
.SBTTL
::TYPE

000042

002774

.SBTTL

000042

BITBR
BEQ

MOV

BNE
CMPB

001140

000176

CMP

000001

001134

177777

041276
000001

BEQ

;:69%:
688
:

002312

041164
001324

4%:
5%

041216

001202
160000

001202

001202
041224
001320
160000
041216

001324

7%:

001202
001000

001202

017777
001202

001320
001320

041254
001321

WAPTSIZE,$ENVM
67%

#$SWREG, SWR

70$
SENV,
41
70$
SWR, #SWREG
71%

BNE
GTSWR
BR
MOVB

71%
#1,$AUTOB

BR
_ASCIZ

68$
<CRLF>/RK611

INC
BNE
TYPE
CMP
BNE
TYPE
MOV
TYPOC
TYPE
RDOCT
MOV
BEQ
CMP
BHI
MOV
TYPE
MOV
BIC
TYPE
RDOCT
MOV

#-1
43
,OPR006
#1,SRTFLG
15§
,0PR0O1
$BASE , = (SP)

CMP
BLOS
BIC
BIS

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

CLR

Z(SP)

BEQ

108:

3
PAGE 39

SEQ 0038

::TEST USER SIZE UNDER APT
*:YES,USE NON=-APT SWITCH

*iNO,USE APT SWITCH REGISTER

TYPE
,698
S:TYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
Y- I
;:ARE WE RUNNING UNDER XXDP/ACT?

000001

70$:
718%:

CLR
ERRCNT
:CLEAR ERROR COUNT FOR SWITCH 12 ABORT
TYPE PROGRAM NAME
THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
::FIRST TIME?
BNE
68%
*:BRANCH IF NO
CMP
#SENDAD,a#42
::ACT=11?
BEQ
68%
*:BRANCH IF YES

001270

000427

005227
001002
104401
022737
001121
104401
013746
104402
104401
104412
012637
001407
022737
101361
013737
104401
013746
042716
104401
104472
012637

003060
003064
003072

023276

15:14

INITIALIZE THE COMMON TAGS

1806
1807

}ggg

14-SEP-81

TYPE

MOVB
ASR

,0PR002

(SP)+,$TMPO
7%
#160000,8TMPO
5%
$TMPO, $BASE
LOPR003
$VECT1,-(SP)
#160000, (SP)
,OPR002

(SP)+,$TMPO

108%

*:BRANCH IF YES
*:ARE WE RUNNING UNDER APT?
*:BRANCH IF

YES

:*SOFTWARE SWITCH REG SELECTED?

*:BRANCH IF NO
2:GET SOFT=SWR SETTINGS

;:SET AUTO-MODE

INDJCATOR

::GET OVER THE ASCIZ
DISKLESS DIAGNOSTIC: PART S

C(CZR6O6ECO/<CRLF>

:TEST IF PASS 0
‘N0 - SKIP
*TYPE PASS TIME MESSAGE
;CHECK IF PARAMETER START
*NO, CONTINUE SETUP
:TYPE "RK611 BUS ADDRESS (
) ="'
:SAVE $BASE FOR TYPEOUT
|
1160 TYPE--OCTAL ASCIICALL DIGITS)
:GET VALUE

:CHECK IF <CR>
:CHECK IF IN 1/0 PAGE
:LOAD NEW BUS ADDRESS
“TYPE "'RK611 VECTOR ADDRESS
*TYPE QUT VECTOR ADDRESS

(

:GET VALUE

:CHECK IF <CR>

*CHECK IF LEGAL
;LOAD NEW VECTOR ADDRESS

,OPR004

:TYPE 'RK611 PRIORITY ¢

SVE(T1+1,(SP)
(SP)

;SHIFT § BITS RIGHT

) ="

)

CZR6ECO RK611 DSKLS CTRL PRTS

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
003250
003254
003256
003264
003266
003274
003276

14-SEP-81

13:57

006216
006216
006216
006216
104402
104401
104412

012637
001430

ASR
ASR
ASR
ASR
TYPOC
TYPE
RDOCT
MOV
BEQ
(MP
BLO
CMP
BHI

041216
001202
000007

001202

000004

001202

001202
001202
001202
001202

001202
160000

001202
001320
160000

003360

004737

003364
003370
003374
003400
003404
003410

013702
005037
004737
012746
012746
000002

001321
032652

001324
001236
032516

000000
003412

001320
001321
002304
002304
002306

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

ASL
ASL
ASL
ASL
ASL
BIC

15%:

BISB
MOV

BIC
MOVB
JSR

NEWPAS: MOV
CLR
JSR
MOV
MOV
RTI

(SP)
(SP)

L3P

(SP)

.OPR002
(SP)+,$TMPO

;GET VALUE

sCHECK FOR DEFAULT
sCHECK IF 'LEGAL

$TMPO
$TMPO
$TMPO
$TMPQ
$TMPO

;SHIFT 5 BITS LEFT

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

#160000,$VECT?

$TMPO,SVECT1+1
$VECTT,RKVEC

#160000,RKVEC
$VECT1+1,RKPRI
PC,$SI1ZE

$BASE ,R2
$ESCAPE

PC ,PARCHK
#PRO,=(SP)
#TST1,-(SP)

;STORE NEW PRIORITY

;STORE RK611 VECTOR
;STORE PRIORITY
:SIZE MEMORY

sSET RK POINTER
;CLEAR ESCAPE

sCHECK OF MEMORY CHECK ENABLE
sLOCK QUT INTERRUPTS

SEQ 0039

alal

(ZROEC.P11

MACY11

CZRGECO RK611 DSKLS CTRL PRTS

(ZRO6ECD RKk611 DSKLS CTRL PRTS
14=SEP=81 13:57
CZRGEC.PN

MACYTT

1893
1894

1895

15:14

B 4
PAGE 41

30(1046)

14=-SEP-81

LSBTTL

**MULTI-SECTOR WRITE OPERATIONS

SEQ 0040

«*MULT]=SECTOR WRITE OPERATIONS

".'tttt'QQ.'Q.'t."..t.'.'Q"t'QQ.Qt't'QQQ.Q.'QQ'Q'Q'Q'Q'.Q"Q.t"

s*TEST 1

1896
1897
1898
1899

MULTI=SECTOR WRITE

(PART 1)

. %

e
i
A

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A WRITE
DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

PUT THE CONTROLLER IN DIAGNOSTIC MODE.

s
:®
+ TM

CYLINDER 0O, HEAD 0O, SECTOR 0. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER. C(CLOCK THROUGH 400 WORDS AND THE

CYCLE STARTS AND THE PROPER HEADER IS SEARCHED FOR.

TWO ECC WORDS.

MAKE SURE THE NEXT HEADER RECOGNITION

PROVIDE A SECOND GOOD HEADER AND CHECK RECOGNITION

OF HEADER.

1948

—

003412
003414

000004
012737

000012

003422

012762

100000

003430
003434

005037

003440
003444
003446
003447
003450
003452
003454

004437
000000

003456
003462

004437
000001

003464

wne

R R AR AR R AR AR TR TR AR

R AR

R RARR AR

R TR AR

R R

001234

SCOPE
MOV

#10.,$TIMES

;:D0 10. ITERATIONS

000000

MoV

#CCLR,RKCST(R2)

sCLR CONTROLLER

002352
023316

CLR
JSR

BSEDES
R4 ,DSECTR

;CLEAR BAD SEC DESIRED

032230

JSR
0
BYTE
BYTE
OBUFF

R4, LOADRK

;LOAD ''L'" REGISTERS
;CYLINDER 0
;SECTOR 0
;TRACK 0
;BUFFER ADDRESS OBUFF

032014

JSR

R4 ,BLDDAT

004437

032274

JSR

R4 ,OPSTRY

;START THE OPERATION

003470
003474
003476
003500

004437

023334

JSR
ERROR

R4 ,DISEEK
&

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

003502

104007

ERROR

003504

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

003510
003514
003516

004437

023740

JSR

R4 ,DRSYNC
10

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

003520
003524
003526
003530

004437

R4 ,DHDCMP
12
13

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

004437

104010
104011

104012
104013
104014

0
0

=401
WRDATA

000023

104004
104005
104006

—

e
e )o
W =OOVONONEWN
=00V NN WN—=OO
~NO W P

NN =O VDR N

S &H S &S
B WNANWWWWWWWWNOI
N
RN RO n B
~N

—

— e

D e

i e

D e

)

it i

D il e el

OOV OO0V O0 VOV OVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOOOVOOVOOVOY

s —h

. %

ERROR

024276

ERROR
ERROR
JSR
ERROR
ERROR

ERROR

sSIMULATL

SECTOR PULSE

TO SET

JECCW IN RKMR1 FROM INIT POWER UP

;WORD COUNT =401
; COMMAND WRDATA

;60 BUILD DATA

JPATTERN 1

sMR1

:MR3

;MR2

sRKDCYL OR RKDA IN ERROR AFTER SEARCH

043675
025204

001510

003532
003540
003544
003546
003550
003552

012737
004437

003554
003562
003566
003570
003572

012737
004437

003574
003600
003606
003614
003616

012700
012762

003620
003624
003630
003634
003640
003644
003650
003652
003654
003656

1994
1995
1997
1998
1999

2000
2001
2002
2003
2004

104015
104016
104017
104020

104017
104021
104022

043754
025604

000034
000440
000040

002266

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

032737
001402
052703

010000

004437

032444
002250
000034
000036
000000
002260
002160

003752
003760
003762
003764

023737
001402

003766
003774
003776
004000

023737
001402

004002

004437

MOV

JSR

001510

000026

MOV

JSR
ERROR
ERROR
ERROR

1%:

5%:

002260
6%:

002246

104023

000421

002210

002250

2%:

104024

000413
023316

4%:

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

‘MR1

;CST

16
17

#EM5021 ,EMW
R4 ,DWRITE
17

21
22

:CS1
;MR1

IN ERROR M READ GAP

IN ERROR AFTER READ GAP
IN ERROR IN WRITING SYNC

IN ERROR AFTER WRITING SYNC

;SET MESSAGE FOR WRITE FAILURE
;SIMULATE WRITE DATA AND ECC
sMR1 IN ERROR IN WRITING DATA OR ECC

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

DEC
BNE

MOV

L.DCYL,R3

MOV

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

MOovB
BIC
MOV
ASL

DEC
BNE
BISB

;GET DESIRED CYLINDER

R4 ,FSBLVV

:INVERT WORD

#177400,R3

;CLEAR UNUSED BITS

#5.R0
R3

RO
5%
L.DS,R3

:STORE EXPECTED MR2
;GET DESIRED TRACK/SECTOR
:SET COUNT FOR SHIFTING
;SHIFT TRACK FOR HEADER AL IGNMENT
sDEC COUNT

;LOOP UNTIL ZERO
s INSERT SECTOR
NUMBER

BIT
BEQ
BIS

#CFMT,L.CST

;TEST

#BIT9,R3

;SET

JSR

R4 ,FSBLVV

CMP
BEQ
ERROR
BR

3%:

#EM5020,EMw
R4 ,DWGPSN

SEQ 0041

#7+4 RO
; ISSUE CLOCKS TO NEXT HDR COMPARE
#DMD !MCLK ,RKMR1(R2)
;CLOCK LOOP
#DMD ,RKMR1(R2)
RO
1%

MOV
MOV
MOV
MOV
MOV

002206
002210
002160
002220
002220

MOV
MOV
MOV

JSR

001000

002206

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

ERROR
ERROR
ERROR
ERROR

002274
032444
002246
002267
177400
000005

153703

3?{1046)

CMP
BEQ
ERROR
BR
(MP
BEQ
ERROR
BR

JSR

18 BIT MODE

JNO - SKIP

FORMAT BIT FOR WORD

;s INVERT WORD

RS.E.MRS
RKMR2 ‘R2),T.MR2
RKMR3(R2‘.T MR3
RKCS1(R2),T.CS1
L.CS1.E ST

:STORE EXPECTED MR3
:GET MR?2
;GET MR3
;GET CS1
JGET EXPECTED CS1

TST2

22G0 TO NEXT

T.L31
.E . E81
3S
25

T.MR2,E.MR?

JCHECK IF Ok
JYES - SKIP
:CS1 IN ERROR AT MULTI-SECTOR TIME
TEST

;CHECK IF MR2 0K

JYES = SKIP

TST?2

;:G0 TO NEXT TEST

TwO

:MR2 IN ERROR AT MULTI-SECTOR TIME

T.MR3,E.MR3

:CHECK

2%
1ST2

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

R4 ,DSECTR

IF MR3 0K

JYES = SKIP

:SIMULATE 2ND SECTOR PULSE

MACY11

[ Yo|

CZRGECO RKETT DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.PN

14-SEP-81
15:14 PAGE 43
MULTI=SECTOR WRIiTE (PART 1)

SEQ 0042

2005
2006
2007
%888

004006
004012
004014

004437
104010
104011

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE PREAMBLE
JMR1 ERROR
:CS1 ERROR

2010
2011
2012
5812

004016
004022
004024
004026

004437
104C12
104013
104014

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP
12
13
14

sSIMULATE HEADER SEAR(CH
;MR1 ERROR
2CS1 ERROR
JRKDCYL OR RKDA IN ERROR

2015

58}9

J*TEST 2

2018

. %

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028

;TM
I
:®
e
e
o>
e
o
"
;e

2029

2030
58%}

004030
004032

000004
012737

000012

001234

%8%2

004040

012762

10000C

000000

%8%2

004046

005037

2037
2038
2039

004052
004056
004060

2045
5829

AR R AR RN R R R AR

R AR AR

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

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.

AR AR AR KRR AR AR

AR AR

AR R AR R AR

AR AR RN R R

;D0 10.

MOV

#CCLR,RKCST1(R2)

;CLEAR CONTROLLER

0n2352

(LR

BSEDES

;CLEAR BAD SEC DESIRED

004437
000000
023

032230

JSR
0
.BYTE

R4 ,LCADRK

sLOAD "'L'" REGISTERS
sCYLINDER O
JSECTOR 23

004070
004074

004437
000002

032014

JSR
2

R4 ,BLDDAT

;GO BUILD DATA
JPATTERN 2

5823

004076

004437

032274

JSR

R4 ,0PSTRT

;START THE CPERATION

2050
2051

004102
004106

004437
104004

023334

JSR
ERROR

R4 ,DISEEK
&

;SIMULATE IMPLIED SEEK
;(S1 MISCOMPARE

gggg

004114

104007

ERROR

;MR3

2052
2053

004110
004112

000
050130
177377
000023

Vi
OBUFF
=401
WRDATA

104005
104006

R A

PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 23.
C(LOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER, CLOCK THROUGH 400 WORDS AND THE
TWO ECC WORDS.
MAKE SURE THE NEXT HEADER RECOGNITION
CYCLE STARTS AND THE PROPER HEADER IS SEARCHED FOR.
PROVIDE A SECOND GOOD HEADER AND CHECK RECOGNITION
OF HEADER.

#10.,8TIMES

004061
004062
004064
004066

AR R

MULTI=-SECTOR WRITE (PART 2)

SCOPE
MOV

2040
2041
2042
5822

TST2:

ERROR
ERROR

23
-8

5
6

ITERATIONS

;TRACK 0
sBUFFER ADDRESS OBUFF
sWORD COUNT =401
; COMMAND WRDATA

:MR1
JMR2

=
I

%829

004116

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

2058
2059
2060

004122
004126
004130

004437
104010
104011

023740

JSR
ERRCR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE HEADER PREAMBLE
JMR1 CONTENTS IN ERROR
sCST1 CONTENTS IN ERROR

AR RN

MACY1] 3?%1046)

(ZRGECO RK611 DSKLS CTRL PRTS
CIRGEC.PN
14=SEP=-81 13:57

(ZRGECO RKE11 DSKLS CTRL PRTS

CZRGEC.P1

2061

14-SEP-81

13:57

004132
004136
004140
004142

004437

024276

004144

012737
004437

043675
025204

001510

012737

043754
025604

001510

004152
004156
004160
004162
004164
004166
004174
004200
004202
004204

104012

104014

104015
104016
104017
104020

004206
004212
004220
004226
004230

000034
000440
000040

004232
004236
004242

002274
032444
002246
002267
177400
010005

W =000
NN NS

—

)
D
D
e

OO0 OO0
L

D e
el
el
—l

PP @A LR

004364
004372
004374
004376

000026
000026

12
13

sMR1
;CS1

MOV

#EM5020,EMW

sSET MESSAGE FOR WRITE FAILURE

ERROR
ERROR
ERROR
ERROR

15
16
17
20

;MR1
;CST
sMR1
2CST

#EM5021 ,EMW
R4 ,DWRITE

sSET MESSAGE FOR WRITE FAILURE
;SIMULATE WRITE DATA AND ECC

JECC IN ERROR WHILE WRITING DATA

MOV

JSR
ERROR
ERROR
ERROR

1%:

MOV
MOV
MOV
DEC

MOV

JSR

MOV
MOVB

BIC

56:

010000

002260

001000

032444
002250
000034
000036
000000
002260
002160

00220¢

000421

MOV
ASL

DEC
BNE
BISB

BIT

69%:

R4 ,DWGPSN

22
#7%4 RO

;SIMULATE

HEADER

CONTENTS IN ERROR
IN ERROR AFTER SEARCH

JRKDCYL

OR RKDA IN ERROR AFTER SEAR(H

;SIMULATE

IN
IN
IN
IN

GAP AND SYNC

ERROR
ERROR
ERROR
ERROR

FOR WRITE

IN READ GAP
AFTER READ GAP
IN WRITING SYNC
AFTER WRITING SYNC

sMR1

IN ERROR IN WRITING DATA OR ECC

2CST
S

IN ERROR AFTER WRITING DATA AND ECC

: ISSUE

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

CLOCKS TO NEXT HDR COMPARE
;CLOCK LOOP

RO
1%

L.DCYL,R3

JGET DESIRED CYLINDER

R3,E.MR?

;STORE EXPECTED MR?

R4 ,FSBLVV

L.DT,R3

#177400,R3
#5.R0
R3
RO
5%

;INVERT WORD

JGET DESIRED TRACK/SECTOR

;CLEAR UNUSED BITS
JSET COUNT FOR SHIFTING
JSHIFT TRACK FOR HEADER AL IGNMENT
;DEC COUNT
;LOOP UNTIL ZERO

L.DS.R3

;INSERT SECTOR

#CFMT,L.CST

;TEST

#BIT9,R3

;SET FORMAT BIT FOR WORD

JSR

R4 ,FSBLVV

CMP
BEQ
ERROR
BR
CMP
BEQ
ERROR
BR

NUMBER

BEQ
BIS
MOV
MOV
MOV
MOV
MOV

002246

SEQ 0043

R4 ,DHDCMP

JSR

002266

032737
001402
052703

JSR
ERROR
ERROR
ERROR

BNE

004270

004274
004302
004304
004310
004310
004314
004320
004326
004334
004342
00435C
004356
004360
004362

14=SEP=-81
15:1 4L
PAGE &4
30(1046)
RITE (PART 2)
T2
MULTI=SECTOR WRI

104013

004246
004252
004256
004262
004264
004266

ASLSLNLSLS
LN N1 SN 1NN 1, N1,

MACY11

18 BIT MODE

;NO - SKIP

s INVERT WORD

R3,E.MR3
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
RKCST1(R2),T.CS1
L.CST,E.CST

:STORE EXPECTED MR3
:GET MR?2
;GET MR3
;GET (S1
JGET EXPECTED (S1

IYES = SKIP

1.C81. k.51

TST3

T.MR2 ,E.MR2

2%
£

TSTS

TwO

;CHECK IF OK
:CST

IN ERROR AT MULTI=SECTOR TIME

;:G0 TO NEXT

TEST

:CHECK IF MP2 0K

JYES = SKIP
:MR2 IN ERROR AT MULTI=SECTOR TIME
;260

TO NEXT

TEST

002250

104024
000413

4$:

104010
104011

(MP

T.MR3,E.MR3

104012
104013
104014

24
1513

;CHECK IF MR3 OK
IYES = SKIP
*MR3 IN ERROR AT MULTI=SECTOR TIME
;60 TO NEXT TEST

JSR
JSR

R&,DSECTR
R&,DRSYNC

;SIMULATE 2ND SECTOR PULSE
;SIMULATE PREAMBLE

JSR

R&,DHDCMP

:SIMULATE HEADER SEARCH

ERROR
ERROR
ERROR

10
11

TeTEST 3

CLEAR THE RK611

ARARARARARAAARR AR AR

PUT

THE

nsan,

}

(
|
,
R AR

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

DATA OF 4)1 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

C(CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER.
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.

;:ttt0tttttt*.fi.'.i'fit""tt!tttt.Q‘t'itttti'tt'.tt'tt.fitt"'."Q

004442
004444

000004
012737

000012

001234

004452

012762

100000

000000

004460

005037

004464

004470
004472
004473
004474
004476
004500

SCOPE
MOV

#10.,8TIMES

::D0 10.

MOV

#CCLR,RKCST(R2)

;CLEAR CONTROLLER

002352

(LR

BSEDES

;CLEAR BAD SEC DESIRED

004437 032230

JSR

R4, LOADRY,

:LOAD "'L'* REGISTERS

000000
025
000
050130
177377
000023

T513:

0
BYTE
BYTE
OBUF F
=401
WRDATA

'
|

25
0

]

ITERATIONS

*CYLINDER 0
*SECTOR 25
*TRACK 0
*BUFFER ADDRESS OBUFF
*WORD COUNT =401
*COMMAND WRDATA

004502
004506

004437
000003

032014

JSR
3

R4 ,BLDDAT

;GO BUILD DATA
*PATTERN 3

004510

004437

032274

JSR

R4,OPSTRT

;START THE OPERATION

004514
004520
004522
004524
004526

004437
104004
104005
104006
104007

023334

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DISEEK
4
5
6
7

:SIMULATE IMPLIED SEEK
CS1 MISCOMPARE
‘MR
“
*MR2
‘MR3
"

:
;

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

CYLINDER O, HEAD 0O, SECTOR 25.

|
;

JMR1 ERROR
;(S1 ERROR
:RKDCYL OR RKDA IN ERROR

MID-TRANSFER SEEK (PART 1)

ezl
c2!

:
3

*MR1 ERROR
*CS1 ERROR

12
13
14

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

SEG 0044

ERROR
ERROR

004430 004437 024276
004434
004436
004440

BEQ

ERROR
BR

004414 004437 023316
004420 004437 023740
004426
004426

28:

~Ny

002210

2OV

NO VWSO 00 NO VNS W20V

004410
004412

023737

001402

W
2O 0NN
W
NO N
OV
NOVNEWN
= OV

ey
T
b
e
e
R
g
R
R
R
S
P

D WWWWWWWWWWA NN NN NI RONONIN) — -3

e p—p—" p——
iy
T
i
e
e
o

O NVNWNWVNINVUVINIVWNWVME S SNBSS NN

e
e

NNNOOO O OO

004400

004406

WMACY11 30(1046)
14=SEP=81
15:14 PAGE 45
12
MULTI=SECTOR WRITE (PART 2)

0 RK611 DSKLS CTRL PRTS
P11
14=SEP=81 13:57

PR
|

CZRGECO RK611 DSKLS CTRL PRTS

e
—

O O O O 0 O O 0o 0o 0o Co 0o 00 00000000
CONOWVEBWN=O V0NN
WN—=O0
0 NO

T N1,V W)

—

- —
PR

———

— Y — Y ——

LS LAV NTSTNLNLS NSNS NSNS LS

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

PAGE 46

(PART 1)

SEQ 0045

14-SEP-81

13:57

004530

004437

023316

JSR

R4 ,DSECTR

;SIMULATE

004534
004540
004542

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
1"

;SIMULATE HEADER PREAMBLE
sMR1 CONTENTS IN ERRCR

004544
004550
004552
004554

004437

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMF

s SIMULATE HEADER SEARCH

JRKDCYL

004556
004564
004570
004572
004574
004576

012737
004437

MOV

#EM5020,EMW

004600
004606
004612
004614
004616

012737
004437

043754
025604

004620
004624
004632
004640
004642

012700
012762
012762
005300
001370

000324
000440
000040

004644
004650

013703
004437

002274
032444
002246
002267
177400
000005

CZRGEC.P1T

2199

MACY11

004654
004660
004664
004670
004674
004676
004700
004702

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

104010
104011

104012
104013
104014

024276

001510

JSR
ERROR
ERROR
ERROR
ERROR

104015
104016
104017
104020

104017
104021
104022

001510

200026
000026

MOV

JSR
ERROR
ERROR
ERROR

1%:

002266

010000
001000

032444
002250
000034
000036
000000
002260
002160

002260

6%:

sMR1
;CST

CONTENTS

CONTENTS IN ERROP
IN ERROR AFTER SEARCH
OR RKDA

;SIMULATE

;CST

17
20

IN ERROR AFTER

sSET MESSAGE FOR WRITE

R4 ,DWGPSN

IN ERROR

GAP AND

IN ERROR IN READ GAP

;MR1
2CST

IN ERROR IN WRITING SYNC
IN ERROR AFTER WRITING SYNC

IN ERROR AFTER READ GAP

sSET MESSAGE FOR WRITE FAILURE

17
21
22

sMR1
JECC
2CST

sSIMULATE

WRITE DATA AND ECC

IN ERROR IN WRITING DATA OR ECC
IN ERROR WHILE WRITING DATA
IN ERROR AFTER WRITING DATA AND ECC

BNE

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

MOV

L.DCYL,R3

;GET DESIRED CYLINDER

MOV
MOVR
BIC
MOV
ASL

R3,E.MR2

;STORE EXPECTED MR?

DEC
BNE
BISB

FOR WRITE

sMR1

#EMS5021 ,EMW
R4 ,DWRITE

R4 ,FSBLVV

SEAR(H

FAILURE

SYNC

MOV
MOV
MOv
DEC

JSR

5%:

12
13

;CST

SECTOR PULSE

;ISSUE CLOCKS
;CLOCK LCOP

TO NEXT HDR COMPARE

s INVERT WORD

L.DT,R3

;GET DESIRED TRACK/SECTOR

R3
RO
5%

sSHIFT TRACK FOR HEADER AL IGNMENT
sDEC COUNT
sLOOP UNTIL ZERO

#177400,R3
#5,R0

L.DS.R3

;CLEAR UNUSED BITS
;SET COUNT FOR SHIFTING

s INSERT SECTOR

NUMBER

BIT
BEQ
BIS

#CFMT,L.CST

JTEST

JSR

R4 ,FSBLVV

s INVERT WORD

L.CS1.E.C51
T.CS1,E.(CST
3
25

JGET EXPECTED (S1
sCHECK IF OK
JYES - SKIP
;CST IN ERROR AT MULTI=-SECTOR TIME

6%
#BIT9,R3

MOV

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

(MP
BEQ
ERROR
BR

TST4

MOV

MOV
MOV
MOV

18 BIT MODE

:NO - SKIP
;SET FORMAT BIT FOR WORD TWwO
sSTORE EXPECTED MR3
;GET MR?
;GET MR3
;GET (CS1

;.60 TO NEXT

TEST

005032
005036

004437

023740

005042
005046
005050
005052

004437

024276

000413
4%:

sMR3 IN ERROR AT MULT.-SECTOR TIME

TST4

;YES = SKIP
;:G0

TO NEXT

TEST

JSR

R4 ,DSECTR

;SIMULATE 2ND SECTOR PULSE

JSR

R4 ,DRSYNC

;SIMULATE PREAMBLE

JSR
ERROR

R4 ,DHDCMP
12

;SIMULATE HEADER SEARCH
:MR1 ERROR

ERROR

JRKDCYL

10
11

;MR1 ERROR
;CS1 ERROR

OR RKDA

IN ERROR

A
LA
cm

;CS1 ERROR

:.'ttttt't.tfititt.ttliltt"'ttttittttitfi.filtittt'tt'ttt.tttl't.t't

(PART 2)

...

ISSUE

A WRITE

AND DRIVE

CLEAR MESSAGES.

AND A GOOD HEADER,

SIMULATE A 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.

AR LSSttt
RRRRRRRRR
2

005054
005056

000004
012737

000012

001234

005064

012762

100000

000000

005072

005037
004437

15714:

SCOPE
MoV

#10.,8TIMES

;:D0 10.

MOv

#CCLR,RKCST(R2)

;CLEAR CONTROLLER

002352

CLR

BSEDES

;CLEAR BAD SEC DESIRED

032230

JSR
0
BSYTE
HOVYIE =

R4 ,LOADRK
25
¢

;LOAD "‘L'' REGISTERS
sCYLINDER O
;SECTOR 25
;TRACK 2

JSR

R« ,BLDDAT

;GO BUILD DATA

OBUFF
=401
WRDATA

000023

;BUFFER ADDRESS OBUFF
;WORD COUNT =401
; COMMAND WRDATA

004437
000004

032014

005122

004437

032274

JSR

R4 ,0PSTRT

;START

005126

004437

023334

JSR

R4 ,DISEEK

sSIMULATE

ITERATIONS

JPATTERN 4

THE OPERATION
IMPLIED SEEK

iam

IN DIAGNOSTIC MODE.

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

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

THE

(LEAR THE RK611

PUT

MID-TRANSFER SEEK

J*TEST &

ERROR

104014

104012
104013

ERROR
ERROR

sCHECK IF MR3 0Ok

ERROR

104024

T.MR3,E.MR3

023316

(MP

BEG

JMR2 IN ERROR AT MULTI-SECTOR TIME
;:G0 TO NEXT TEST

004437

2%:

23
TST4

005026

002250

;CHECK JF MRZ2 OK
;YES = SKIP

002¢10

023737
001402

T.MR2 E .MR?
2%

ERROR
BR

000421

104010
104011

(MP
BEQ

38:

104023

005012
005020
005022
005024

005040

002246

002206

SEG 004¢€

tem

023737
001402

H
&4
PAGE 47
(PART 1)

13:57

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

—=OY
OV
NO NS W

00477¢
005004
005006
005010

14=SEP-81

MACY11

£ WWNWWN
W N N INN NN

rororororororNorROrRNONY

« YTM

(0 RK611 DSKLS CTRL PRTS

CZR6ELO Rk611 DSKLS CTRL PRTS
CZREEC.P1
14-SEP-81 13:57
2285
2286
2287

005132
005134
005136

104004
104005
104006

%sg?

005142

004437

2292
2293
Sggg

005146
005152
005154

2296
2297
2298
s%gg

MACYN 3921046)

&
I
14-SEP-81
15:14 PAGE 48
MID=TRANSFER SEEK (PART 2)

SEQ 0047

ERROR
ERROR
ERROR

4
5
6

;MR3

023316

JSR

R4 ,DSECTR

sSIMULATE SECTOR PULSE

004437
104010
104011

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

;SIMULATE HEADER PREAMBLE
;MRT CONTENTS IN ERROR
;CS1T CONTENTS IN ERROR

005156
005162
005164
005166

004437
104012
104013
104014

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP
12
13
14

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

2301
2302
2303
2304
2305
5%89

005170
005176
005202
005204
005206
005210

012737
004437
104015
104016
104017
104020

043675
025204

001510

MOV
JSR
ERROR
ERROR
ERROR
ERROR

#EM5020,EMW
R4 ,DWGPSN
15
16
17
20

sSET MESSAGE FOR WRITE FAILURE
sSIMULATE GAP AND SYNC FOR WRITE
;MR1 IN ERROR IN READ GAP
;CST IN ERROR AFTER READ GAP
;MR1 IN ERROR IN WRITING SYNC
;CS1 IN ERROR AFTER WRITING SYNC

2308
2309
2310
2311
gg}%

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

;SET MESSAGE FOR WRITE FAILURE
sSIMULATE WRITE DATA AND ECC
;MR1 IN ERROR IN WRITING DATA OR ECC
;ECC IN ERROR WHILE WRITING DATA
;CST IN ERROR AFTER WRITING DATA AND ECC

2314
2315
2316
2317
Sg}g

005232
005236
005244
005252
005254

012700
012762
012762
005300
001370

000324
000440
000040

MOV
MOV
MOV
DEC
BNE

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

2320
2321
2322

005256
005262
005266

013703
004437
010337

002274
032444
002246

MOV
JSR
MOV

MOVB
BIC
MOV
ASL
DEC
BNE
BISB

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

;GET DESIRED CYLINDER
s INVERT WORD
;STORE EXPECTED MR2

BIT
BEQ
BIS

#CFMT,L.CST
6%
#BIT9,R3

;TEST IF 18 BIT MODE
:NO - SK]P
;SET FORMAT BIT FOR WORD TWwO

JSR
MOV
MOV
MOV
MOV
MOV

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

s INVERT WORD
sSTORE EXPECTED MR3
;GET MR?
;GET MR3
;GET (ST
;GET EXPECTED CS1

Sggg

2323
2324
2325
2326
2327
2328
Sggg

2331
2332
2333
2334
2335
2336
2337
2338
2339
2340

005140

005272
005276
005302
005306
005310
005312
005314

005320
005326
005330
005334
005334
005340
005344
005352
005360
005366

104007

113703
042703
012700
006303
005300
001375
153703

ERROR

000026
000026

002267
177400
000005

1%:

5%:

002266

032737
001402
052703

010000

004437
010337
016237
016237
016237
013737

032444
002250
000034
000036
000000
002260

002260

001000

6%:

002206
002210
002160
002220

;CS1 MISCOMPARE
;MR1
i
:MR2

s ISSUE CLOCKS TO NEXT HDR COMPARE
;CLOCK LOOP

;GET DESIRED TRACK/SECTOR
;CLEAR UNUSED BITS
;SET COUNT FOR SHIFTING
sSHIFT TRACK FOR HEADER AL IGNMENT
;DEC COUNT
;LOOP UNTIL _ERO
s INSERT SECTOR NUMBER

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81

13:57

005374
005402
005404
005406

023737
001402

002160

002220

005410
005416
005420
005422

023737
001402

002206

002246

005424
005432
005434
005436

023737
001402

005440

004437

023316

005444
005450
005452

004437

005454
005460
005462

004437

LSLSTSTSTNT
ST ST NI NN
TN
NN NN N WIN N LW N
NN
OVW
A NN UW

CZREGEC.PN

OV NO NS WN—=O

MACY1T

005464

3?21046)

CMP

104025

000427

38:

104023

000421

sCHECK IF OK

3
25
iSTS

;YES = SKIP
;CST IN ERROR AT MULTI=-SECTOR TIME
::G0 TO NEXT TEST

CMP
BEG
ERROR

T.MR2 ,E.MR2
2%
23

sCHECK IF MRZ2 OK
;YES - SKIP
JMR2 IN ERROR AT MULT.=-SECTOR TIME
;:G0 TO NEXT TEST

T.MR3,E.MR3

;CHECK IF MR3 0K

JSR

R4 ,DSECTR

; SIMULATE 2ND SECTOR PULSE

023740

JSR

R4 ,DRSYNC

10
11

;MRT ERROR
;CS1 ERROR

024276

JSR

R4 ,DHDCMP

;SIMULATE HEADER SEARCH

ERROR

sRKDCYL OR RKDA

48:

CMP

TSTS

48
24
TSTS

00225¢

0004173

104012
104013
104014

T.CS1,E.CST

SEQ 0048

BEQ
ERROR
BR

002210

2%:

&
J
PAGE 49
(PART 2)

BEQ
ERROR
BR

104024

104010
104011

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

ERROR
ERROR
ERROR
ERROR

12
13

;YES = SKIP
;MR3 IN ERROR AT MULTI-SECTOR TIME
;:G0 TO NEXT TEST

;SIMULATE PREAMBLE

;MR1 ERROR
:CS1 ERRCR

IN ERROR

":ttttttfi'i'tti'tttttt't"t'tt'lttttt'tlfitttt‘tt.tttt'fitt'ttt!ttt

;*TEST S

MID-TRANSFER SEEK AND 24 SECTOR FORMAT

2
:®
;e
:®
e
s
s
o
e
.

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE DATA
DATA OF 401 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,

CYLINDER O, HEAD 0, SECTOR 23.
CLOCK THROUGH SEEK
SIMULATE A SECTOR PULSE
AND A GOOD HEADER.
CLOCK THROUGH 400 18 BIT WORDS
AND THE 32 BIT ECC.
CHECK THAT IMPLIED SEEK IS
ISSUE TO NEXT TRACK.
CHECK FOR PROPER HEADER RECOGNITION
OCCURS.
AND DRIVE CLEAR MESSAGES.

E;tttttttttttttttttttt'ttttttntttttttttttttttttttttttttlt'tttttt'

005466
005470

000004
012737

000012

001234

005476

012762

100000

000000

005504
005510
005514
005516

005037
012700
005300
001376

002352
002000

005520
005524
005526
005527
005530

004437
000000
023
000
050130

032230

TSTS

20%:

SCOPE
MOV

#10. ,$TIMES

;.D0 10.

MOV

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

CLR
MOV

BSEDES
#2000,R0

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

DEC
BNE

JSR
0
.BYTE
BYIE
OBUF F

RO
208

R4 ,LOADRK
23
O

ITERATIONS

;LOOP UNTIL ZERO

;LOAD "'L'" REGISTERS
sCYLINDER_ O
JSECTOR 23
sTRACK 0

;BUFFER ADDRESS OBUFF

CZREECO RK611 DSKLS CTRL PRTS

CZROEC.PN

14-SEP-81

13:57

MACY11

PAG E 50
14-SEP-81
15:14
30(1046)
MID-TRANSFER SEEK A ND 24 SECTOR FORMAT
T5

SEQ 0049

WRDATA!CFMT

;WORD COUNT =401
s COMMAND WRDATA!CFMT

032014

JSR
7

R4 ,BLDDAT

JPATTERN 7

004437

032274

JSR

R4 ,0OPSTR7T

;START THE OPERATION

005550
005554
005556
005560
005562

004437

023334

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DISEEK

sSIMULATE IMPLIED SEEK
CS1 MISCOMPARE
-

005564

004437

023316

005570
005574
005576

004437

023740

005600
005604
005606
005610

004437

005612
005620
005624
005626
005630
005632

012737
004437

005634
005642
005646
005650
005652

012737
004437

005654
005660
005666
005674
005676

012700

177377

005532
005534

010023

005536
005542

004437
000007

005544

104004
104005
104006
104007

104010
104011
104012
104013
104014

104015
104016
104017
104020

104017
104021
104022

=401

024276

043675
025204

043754
025604

000324
000440
000040

005700
005704
005710
005714
005720
005724
005730
005732
005734
005736

002274
032444
002246
002267

005742

010000

001510

000026
000026

;MR3

JSR

R4 ,LSECTR

s SIMULATE SECTOR PULSE

JSR
ERROR
ERROR

R4 ,DRSYNC
10
1

;SIMULATE HEADER PREAMBLE

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP
12

sSIMULATE HEADER SEARCH

MoV
JSR

#EM5020,EMW
R4 ,DWGPSN

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

MOV

JSR
ERROR
ERROR
ERROR

1%:

5%:

002266

002260

MOV
MOV
MOV

DEC
BNE

177400

000005

5
)

;MR1

ERROR
ERROR
ERROR
ERROR

001219

GO BUILD DATA

13
14

CONTENTS IN ERROR

;CST CONTENTS IN ERROR
sMRT

CONTENTS

IN ERROR

;CST IN ERROR AFTER SEARCH
sRKDCYL GR RKDA IN ERROR AFTER SEARCH

;MR1

IN ERROR IN READ GAP

sMRT

IN ERROR

#EM5021 ,EMW
R4 ,DWRITE

17
21
22

;CS1 IN ERROR AFTER READ GAP

IN WRITING SYNC

;CS1T IN ERROR AFTER WRITING SYNC
sSET MESSAGE FOR WRITE FAILURE
;SIMULATE WRITE DATA AND ECC
sMR1 IN ERROR IN WRITING DATA OR ECC
sECC IN ERROR WHILE WRITING DATA

;CS1 IN ERROR AFTER WRITING DATA AND ECC

#53.%4
RO

;ISSUE CLOCKS TO NEXT HDR COMPARE
;CLOCK LOOP

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

sGET DESIRED CYLINDER

MOV
JSR
MOV
MOVB
BIC
MOV
ASL

s INVERT WORD

;STORE EXPECTED MRZ2
;GET DESIRED TRACK/SECTOR
sCLEAR UNUSED BITS
sSET COUNT FOR SHIFTING
sSHIFT TRACK FOR HEADER AL IGNMENT
sDEC_COUNT

DEC
BNE
BISB

BIT

sMR1

sLOOP UNTIL ZERO

s INSERT SECTOR

#CFMT,L.CST

;TEST

NUMBER

18 BIT MODE

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZROEC.P1
005750

001402
052703

MACY11

001000

L &
14 -SEP-81
15:14
PAGE 51
30(1046)
5
MID=TRANSFER SEEK AND 24 SECTOR FORMAT

032444
002250
000034
000036
000000
002260
002160

023737
001402
104023
000421

002206

006046
006054
006056
006060

023737
001402

002210

006062

004437

023316

006066

004437

006076
006102
006104
006106

004437

006072
006074

002246

3%:

;NO - SKIP

MOV
MOV

R4 ,FSBLVV
s
2),T.MR2
RKMR3(R2,,T.MR3
RKCS1(R2),T.CST

;STORE EXPECTED MR3
;GET MR2
;GET MR3
;GET CS1

TST6

;:G0 TO NEXT TEST

;SET FORMAT BIT FOR WORD TWO

L.CST1,E.CST
T.CS1,E.CST
3%
25

CMP
BEQ

T.MR2,E.MR2
2%

TST6

s INVERT WORD

;GET EXPECTED CS1
sCHECK IF OK
:YES = KIP
;CST IN ERROR AT MULTI-SECTOR TIME

;CHECK IF MRZ2 OK
;YES = SKIP
sMR2 IN ERROR AT MULTI-SECTOR TIME
;.60 TO NEXT TEST

2%:

CMP
BEQ
ERROR
BR

T.MR3,E.MR3
3]
24
TSTé

;CHECK IF MR3 0K
;YES = SKIP
;MR3 IN ERROR AT MULTI-SECTOR TIME
;:G0 TO NEXT TEST

(%:

JSR

R4 ,DSECTR

;SIMULATE 2ND SECTOR PULSE

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
11

s SIMULATE PREAMBLE

024276

JSR

R4 ,DHDCMP

;SIMULATE HEADER SEARCH

ERROR

sRKDCYL OR RKDA IN ERROR

002250

104024

104012
104013
104074

JSR

ERROR

000413

104010
104011

6%
#B1TS,R3

MOV
CMP
BEQ
ERROR

006026
006030
006032
006040
006042
006044

BEQ

BIS

6%:

SEQ 0050

ERROR
ERROR

;MR1 ERROR
;CS1 ERROR

12
13

;MR1 ERROR
;CS1 ERROR

';ttttttttt'ttttttfitttt"lt'ttfitttt*tttt'ttt'ttitttttttttt"tttt.

TRTEST 6
»

CYLINDER OVERFLOW (PART 1)

CLEAR THE RK611

PUT

%
%

CYLINDER 632, HEAD 2, SECTOR 25.

%
%

006132
006136

004437
000632

032230

100000

A WRITE

CLOCK THROUGH SEEK

002352

ISSUE

005037
012762

IN DIAGNOSTIC MODE.

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
AND A GOOD HEADER.
CLOCK THROUGH 400 WORDS AND THE
Lg? gg?b ECC.
MAKE SURE CYLINDER OVERFLOW ERROR DOES

—

R
- LR

006120
006124

000012

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

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

TRE R A AR AR A AR AR

006110
006112

000004
012737

THE

SCOPE

AR AR

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

001234

MOV

#10. ,$TIMES

;:D0 10.

000000

(LR
MOV

BSEDES
#CCLR,RKCST1(R2)

sCLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

JSR
632

R4 ,LOADRK

;LOAD ''L'" REGISTERS
s CYLINDER 632

ITERATIONS

94
CZF

CZRGECO Rk611 DSKLS CTRL PRTS
CZRGEC.P11
14-SEP-81 13:57
2509
2510
2511
2512
gg}z

006140
006141
006142
006144
006146

025
002
050130
177400
000023

2515

006150

004437

%g}g

006156

2520
2521
2522
2523
535?

MACY11 3$é1046)

14-SEP-81
15:14 PAGE ?;
CYLINDER OVERFLOW (PART

SEQ 0051

BYTE
BYTE
OBUF F
=400
WRDATA

25
2

:SECTOR 25
*TRACK 2
*BUFFER ADDRESS OBUFF
;WORD COUNT =400
*COMMAND WRDATA

1
i
i
1
:

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

004437

032274

JSR

R4 ,0PSTRT

;START THE OPERATION

006162
006166
006170
006172
006174

004437
104004
104005
104006
104007

023334

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DISEEK
4
5
6
7

;SIMULATE IMPLIED SEEK
:CS1T MISCOMPARE
*MR1
o
:MR2
o
*MR3
-

3
1
i
1
3

%gsg

006176

004437

023316

JSR

RL.DSECTR

;SIMULATE SECTOR PULSE

2528

006202

004437

023740

JSR

R4 ,DRSYNC
10
1

;MR1 CONTENTS IN ERROR
;CS1T CONTENTS IN ERROR

:SIMULATE HEADER PREAMBLE

JSR

R4, DHDCMP
12
13
14

:SIMULATE HEADER SEARCH

:MR1 CONTENTS IN ERROR
:CS1 IN ERROR AFTER SEARCH
;RKDCYL OR RKDA IN ERROR AFTER SEARCH

MOV

#EMS5020,EMW

;SET MESSAGE FOR WRITE FAILURE

ERROR
ERROR
ERROR
ERROR

15
16
17
20

*MR1
:CS1
:MR1
;CS1

MOV

#EMS021,EMW
R4 ,DWRITE
17
21
22

:SET MESSAGE FOR WRITE FAILURE

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

b
3
i
;

MOV

#3%4+42 R0

;SET COUNT TO END OPERATION

#DMD 'MCLK ,RKMR1(R2) :SET CLOCK
#DMD .RKMRT (R2)
;CLEAR CLOCK
RO
*DEC COUNT
1%
*LOOP UNTIL 0

i
i
i
b

sg}g

2529
S§§?

006154

006206
006210

000001

104010
104011

ERROR
ERROR

2532 006212 004437 024276
2533
2534
gggg

006216
006220
006222

104012
104013
104014

2537

006224

012737

2539
2540
2541
%gz%

006236
006240
006242
006244

104015
104016
104017
104020

2544

006246

012737

2551

006266

012700 000016
012762
012762
005300
001370

000440
000040

2557

006312

004437

032356

2538

2545
2546
2547
ngg

2550
2552
2553
2554
gggg

006232

006254
006260
006262
006264

006272
006300
006306
006310

004437

004437
104017
104021
104022

043675

025204

043754

(25604

ERROR
ERROR
ERROR

001510

JSR

001510

000026
000026

JSR
ERROR
ERROR
ERROR

1$:

MOV
MOV
DEC
BNE

R4 ,DWGPSN

*PATTERN 1

;SIMULATE GAP AND SYNC FOR WRITE

IN
IN
IN
IN

ERROR
ERROR
ERROR
ERROR

IN READ GAP
AFTER READ GAP
IN WRITING SYNC
AFTER WRITING SYNC

{
;

;
|
{

k|
;

3
1
;

3
i
1
3
;

002160

BIT
BEQ

JSR

R4 ,GETREG

#CERR,T.CS1
3%

:GET RK611 REGISTERS

“TEST IF ANY ERROR SET
JNO = SKIP TO EXIT

2561 006326 032737 001000 002174

BIT

#COE,T.ER

;TEST IF IT IS COE

2558
5222
2562
2563
2564

006316
006324
006334
006336
006344

032737
001415
001405
012737
104030

100000

044545

001622

BEQ
MOV
ERROR

28
#ESO26A,EH030
30

‘NO - SKIP
:SET MESSAGE HEADER
*"UNEXPECTED COE ERROR''

K
|
;
i
1
:

006350

012737

044545

001632

2%:

JEXIT

MoV

#ES026A ,EHO3T

;SET HEADER

CZR

TN TN TON OV TN TON TON OV TN LW S TN TN (W [N TN TN TN

2567

SEQ 0052

N TN W N TN [N PN LW

000404

BN
TN TTRTN N TN T
TN T TN
TN TN TN TN DN TN TN TP TP

006346

14-SEP-81
15:14 PAGE 53
CYLINDER OVERFLOW (PART 1)

R R

gggg

MACYN 3?é1046)

CZRGECO RK611 DSKLS CTRL PRTS
(ZRGEC.P11
14-SEP-81 13:57

CZRGEC.PT
O

oo
N~

2568

006356

14-SEP-81

13:57

MACYTT

3?é1046)

B 5
14=-SEP-81
15:14
PAGE 54
CYLINDER OVERFLOW (PART 1)

ERROR

104031

SEQ 0053

:"UNEXPECTED ERROR TESTING COE""

3%:

006360

' S

2223222232323 223232223232332232323232232323223232232323232223222232222222222222R0R22}

RTEST 7

CYLINDER OVERFLOW (PART 2)

R
o
A
2®
;e
e
i

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER C(LEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,

CYLINDER 632, HEAD 2, SECTOR 25.

CLOCK THROUGH SEEK

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

MAKE

SURE

CYLINDER OVERFLOW ERROR SETS.

. %

000004

:."......'..'.."'..’"""'..'.......'...'......'.'..'."'.'.Q"
SCOPE

1ST17:

006360
006362

012737

000012

006370
006374

005037
012762

002352

006402
006406
006410
006411
006412
006414
006416

004437
000632
025
002
050130

032230

006420
006424

004437
000002

032014

JSR
2

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 2

006426

004437

032274

JSR

R4 ,0PSTRT

sSTART THE OPERATION

006432
006436
006440
006442
006444

004437

023334

JSR
ERROR

R4 ,DISEEK
&

ERROR
ERRCR

6
7

006446

004437

023316

JSR

R4 ,DSECTR

;SIMULATE

006452
006456
006460

004437

023740

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

006462
006466
006470
006472

024276

JSR

R4 ,DHDCMP

:SIMULATE HEADER SEARCH

ERROR

;CS1

006474
006502
006506
006510

043675
025

100000

001234
000000

::D0 10.

CLR
MoV

BSEDES
#CCLR,RKCST(R2)

;CLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

JSR
532
BYTE
SYIE

R4, LOADRK

;LOAD "L’ REGISTERS
sCYLINDER 632
;SECTOR 25
s TRACK 2

25
&

ERROR

ERROR
ERROR
ERROR
ERROR

001510

ITERATIONS

;BUFFER ADDRESS OBUFF

=401
WRDATA

000023

104010
104011

#10.,8TIMES

OBUFF

177377

104004
104005
104006
104007

MOV

;WORD COUNT =401
: COMMAND WRDATA

10
11
12
14

;SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE

MR1

:MR2
MR3

e
i
SECTOR PULSE

sMR1 CONTENTS IN ERROR
;CST CONTENTS IN ERROR
sMR1

CONTENTS IN ERROR

IN ERROR AFTER SEARCH

sRKDCYL OR RKDA IN ERROR AFTER SEARCH

MOV
JSR

#EM5020,EMW
R4 ,DWGPSN

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

ERROR

;CST

ERROR

:MR1

IN ERROR

IN READ GAP

IN ERROR AFTER READ GAP

~NN

(ZRGECO Rk611 DSKLS CTRL PRTS

006512
006514
006516
006524

14-SEP-81

13:57

30(1046)
17

104017

104020

012737

043754
025604

001570

000016

0000490

000026
000026

006562
006566
006574

032356
001000

002174

006576
006604
006606
006610

100000

002160

044545

001602

006612
006620

000440

1%:

012737
104026

SEQ 0054

17
20

JMR1T
CS]

MOV

#EMS5021 ,EMW

JSET MESSAGE FOR WRITE FAILURE

ERROR
ERROR

21
22

:ECC IN ERROR WHILE WRITING DATA
;CST IN ERROR AFTER WPITING DATA AND ECC

MOV

#3%4+2 R0

;SET COUNT TO COMPLETE OPERATION

MOV
DEC
BNE

#DMD, RKMR1(R2)
RO
1%

;DEC COUNT
;LOOP UNTIL O

R4 ,GETREG

:GET RK611 REGS

JYES = EXIT TEST

R4 ,DWRITE
17

IN ERROR IN WRITING SYNC
IN ERROR AFTER WRITING SYNC

;SIMULATE WRITE DATA AND ECC
;MR1T IN ERROR IN WRITING DATA CR ECC

IDMD'MCLK RKMR1(R2)

JSR

JRUN THE CLOCK

BIT

#COE,T.ER

BIT
BEQ
ERROR
BR

#CERR,T.CST
2%
27
3%

JTEST IF ANY OTHER ERROR SET
;NO - SKIP
;"NO COE WHEN EXPECTED'".
;GO TO EAIT

MOV
ERROR

#ESO26A,EH026
26

;SET HEADER
;"'UNEXPECTED ERROR WHEN FORCING COE'’

BNE

2%:

£
3
PAGE 55

ERROR
ERROR

MOV

000404

15:14

CYLINDER OVERFLOW (PART 2)

JSR
ERROR

006534

006536
006542
006550
006556
006560

14=SEP=-81

JTEST

COE

SET

3%:

006622

.SBTTL
et

2222222222222 RS

005037
012762

002352

006644
006650
006654
006660
006662
006663

005037
005037
004437

002344
002354
032230

000000
000
000

106000

2222322233323

NPR WRITING OF

CLEAR RK611

22322222223222222222232233
2]

MEMORY

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

AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

A GOOD HEADER, 40 DATA WORDS.
VERIFY
ARE WRITTEN PROPERLY IN MEMORY.
—

—4%e SN,

006632
006636

000012

10
PUT

000004
012737

ll't.'ll'

S*TEST

006622
006624

=«NPR WRITING OF MEMORY

THAT

THE WORDS

ES SRRt
R)

001234

SCOPE
MOV

#10. ,$TIMES

;:D0 10.

000000

CLR
MOV

BSEDES
#CCLR,RKCST1(R2)

sCLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

CLR
CLR

ECCSRC
HIBITS

;CLEAR ECC SOURCE
;CLEAR HI OPDER BITS

JSR
0
BYTE
BYTE

R4 ,LOADRK
0
0

ITERATIONS

;LOAD ''L'" REGISTERS
;CYLINDER O
;SECTOR O
s TRACK 0

CZRGEC.P1T

MACY11

~NN

CZR6ECD “xk611 DSKLS CTRL PRTS

CZRGEC.PI

14-SEP-81

13:57

MACY11

30(1046)
710

047124

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

IBUFF
=400
RDDATA

;BUFFER ADDRESS IBUFF
;WORD COUNT =400
; COMMAND RDDATA

SEQ 0055

006664
006666
006670

000021

2684

006672

004437

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

2686
2687

006676
(06702

004437
000003

032014

JSR

R4 ,BLDDA

;G0 BUILD DATA

2690
2691
2692
2693
269
2695

006704
006710
006714
006716
006720
006722

004437
004437

JSR
JSR
ERROR

R4 ,0PSTRT
R4 ,DISEEK
&

;START THE OPERATION
;SIMULATE IMPLIED SEEK
;ST MISCOMPARE

ERROR

JMR2

2697

006724

004437

023316

2699
2700
2701

006730
006734
006736

004437

023740

2703
2704
2705
2706

006740
006744
006746
006750

004437

2708
2709
2710
2711

006752
006756
006760
006762
006764

004437

006766
006774
007002
007006
007010
007012
0067014
007016
007020
007022

012737
012737
004437

AORNLNL AU NL AL NNV NN AU N

~ NN NNNNNNNNN
no NN = b =
W no —= OV N
WV W

2680
2681
2€82

177400

104004
104005
104006
104007

104010

ERROR

104011

104012
104013
104014

104015
104016
104032
104053

000060

sMR1

;MR3

JSR

R4 ,DSECTR

;SIMULATE

JSR
ERROR
ERROR

R& ,DRSYNC
10
1

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

JSR

R4 ,DHDCMP

s SIMULATL

ERROR

;CST

ERROR

024276

ERROR
ERROR

026500

027176

002346
002350

104036

104041
104042
104043

JMR1

SECTOR PULSE

HEADER SEARCH

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH

JRKDCYL OR RKDA IN ERROR AFTER SEAR(H

R4 ,DRGPSN
15
16
32

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

MOV
MOV
JSR

#0,ECPATX
#4066 ,ECPOSX
R4 ,DREAD

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

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

34
35
36
41
&2
43

;MR1
sECC
;CS1
JECC
;ERR
JERR

104034
104035

JSR
ERROR
ERROR
ERROR

ERROR
000000
004066

JPATTERN 3

;CST

IN ERROR AFTER READING SYN.

sNUMBER OF WORDS TO SIMULATE

IN ERROR 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

2726
2727

007024
007030

050130
047124

MOV
MOV

#0BUFF ,RO
#]BUFF ,R1

JSET POINTER
JSET POINTER

2729
2730
2731
2732
2733

007034
007040
007044
007050
007054

000012
001236
001220
000040

MOV
(LR

#10. R4
$ESCAPE

sSET ERROR LIMIT
;C(LEAR ESCAPE

MOV

#40,R3

JSET

2735

007056

(MP

(RO), (RD)

(LR

1%:

$TMP7
RS

TO GOOD DATA
TO INPUT DATA

COUNT

;CLEAR ERROR REPORT SWIT(H
COMPARE

LIMIT

sCLEAR WORD COUNTER
s COMPARE

DATA

~NN

(ZRGECO RKE11 DSKLS CTRL PRTS

CZROGECO RKk611

CZRGEC.P1

2744

2745
2746
2747
2748
2745
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760

005303
001424
005205
022021
000771

4%:

’%:

007074
007076

15:14

3
PAGE

NPR WRITING OF MEMCRY

SEQ 0056

B8NE
DEC
BEQ
INC

2%
R3
5%
RS

:SKIP
JELSE
JIF 0
;BUMP

;LOOP

DEC

;DEC ERROR LIMIT

(RO)+,(R1)+

REQ

IF NOT EGUAL
DEC WORD COUNT LIM]T
= SKIP T0 EXIT
WORD COUNT

;BUMP DATA POINTERS

JIF 0 = SKIP

007700
007104

011037
011137
010537

001162
001164
001166

MOV
MOV
MOV

(RO) ,$REGO
(R1) ,$REG1
RS,$REG?

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

07114
007120
007122
007126
007130

005737

001220

TST

$TMP7

:DECIDE

WHICH ERROR REPORT

005237

001220

;REPORT

FIRST

007110

007132
007134

BNE
INC

ERROR

3%:

104040

000752

007136

33
$TMP7

;SKIP IF NOT O
JELSE BUMP $TMP?

JSKIP

ERROR 40
BR
4%

TO USE

ERROR LINE

JREPORT ALL OTHER LINES
;SKIP

5%:

2761

SBTTL

2762
2763

*+«E(( ERROR DETECTION/CORRECTION TESTS

iSRS EREaRRRERRRRRRRRRRRRRRRRRRRRE

SATEST N

2764

S8,
8,

2765
2766
2767
2768
2769
2770

READ

CLEAR RK611

PUT

DATA WITH NO ERROR

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A READ DATA

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CLINDER O, HEAD O, SECTOR 0.
CLOCK 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 COMPLETES WITHOUT ERROR.

2771
2772
2773

2774
2775
g776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791

14=SEP=-81

(MP

2741
2742
2743

00100¢

110

2740

13:5 4

30(1046)

2738
2739

007060
007062
007064
007066
007070
007072

14=SEP=-B81

MACY11

2736

2737

DSKLS CTRL PRTS

et AiiSRS
R
R
RRRRRRRRRRRRR )

007136
007140

000004
012737

007146
007152
007160
007164
007170
007174
007200
007202
007203
007204
007206
007210

005037
012762
005037
005037
005037
004437
000000
000
000
047124

007212

004437

000001

002352
100000
002344
002344
002354
032230

001234
000000

TS5111:

SCOPE
MOV

#1,8TIMES

;:D0

CLR
MOV
(LR
CLR
CLR

BSEDES
#CCLR,RKCST(R2)
ECCSRC
ECCSRC
HIBITS

;CLEAR
;CLEAR
sCLEAR
;CLEAR
;CLEAR

JSR
0
.BYTE
.BYTE
IBUFF
=400

177400

000021

R4 ,LOADRK
0
0

RDDATA

031770

JSR

ITERATION

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

:LOAD "'L"" REGISTERS
sCYLINDER 0
:SECTOR 0
:TRACK 0

;BUFFER ADDRESS IBUFF
JWORD COUNT =400
; COMMAND RDDATA

R4,CLRIBF

;G0 CLEAR

INPUT BUFFER

(ZROECO RK61T DSKLS CTRL PRTS

CIRGEC.PN

14=SEF

13:57

2792
2793
2794

007216
007222

004437
000004

032014

2797
2798
2799
2800
2801

0072264
007230
007234
007236
007240

004437
004437

007242

104004
104005
104006
104007

2276
3334

2804

007244

004437

2806
2807

007250
007254

004437

007256

104011

2810
2811
2812
2813

007260
007264
007266
007270

004437

2815
2816
2817
2818
2819

007272
007276
007300
007302
007304

004437

026500

2821
2822
2823
2824
2825
2826
2827
2828
2829
2830

007306
007314
007322
007326
007330
007332
007334
007336
007340
007342

012737
012737
004437
000400

000000
014066
027176

2833

007344

012700

002710

2835
2836
2837
2838

007350
007356
007364
007366

012762
012762
005300
001370

000440
000040

2840
2841
2842
2843
2844
2845
2846
2847

007370
007376
007402
007410
007416
007424
007426
007430

016237
004437
042737
052737
023737
001401

2802

2808

104010

104012

MACY11

30(1046)
TMm

‘SR

PAGE

R4 ,BLDDAT

JSR
JSR

R4 ,0PSTRT
R4, DISEER

ERROR

SEQ 0057

;GO BUILD DATA

JPATTERN

sSTART THE OPERATION
sSIMULATE IMPLIED SEEK

;CS1

MISCOMPARE

ERROR

;MR2

;MR3

023316

JSR

R4,DSECTR

;SIMULATE

023740

JSR
ERROR

R& ,DRSYNC
10

;SIMULATE HEADER PREAMBLE
sMR1 CONTENTS IN ERROR

JSR
ERROR

R4 ,DHD(MP
12

s SIMULATE HEADER SEARCH
sMRT CONTENTS IN ERROR

ERROR

sRKDCYL

ERROR

024276

ERROR

002220
002220
002220

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH
OR RKDA

IN ERROR AFTER

MOV

%), ECPATX

JSR
400
ERROR
ERROR

R4 ,DREAD

:LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION

#4066, ECPOSX

;GO READ GAP AND SYNC

IN
IN
IN
IN

ERROR
ERROR
ERROR
ERROR

READING GAP
AFTER READING GAP
READING SYNC
AFTER READING SYNC

;G0 SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
sMR1 IN ERROR READING DATA OR ECC

ERROR

;ERR

MOV

#40,.+37. ,R0

MOV
MOV
DEC

#DMD 'MCLK ,RKMR1(R2) ;CLOCK CONTROLLER
#DMD ,RKMR1(R2)
RO
;DEC COUNT

;LOOP UNTIL O

MOov
JSR
BIC
BIS

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

;GET (S1
;GET 611 REGS
;CLEAR GO BIT
:SET READY BIT

BEQ

JYES = SKIP

(MP

2%:

SECTOR PULSE

;MR1
;CST
:MR1
2CS1

BNE

002160

2CST

15
16
32
33

ERROR
ERROR
ERROR

1$:

;CS1

R4 ,DRGPSN

MOV

000026
000026

:MR1

JSR

ERROR
ERROR
ERROR
ERROR

104034
104035
104036
104041
104042
104043

104056

15:14

READ DATA WITH NO ERROR

104013
104014

104015
104016
104032
104033

14-SEP-81

ERROR

35
36
41
42

T.CST1,E.CST

sECC
;CS1
JECC
;ERR

ERROR READING DATA
ERROR AFTER READING DATA OR ECC
REG_INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC PNS COUNT

sSET COUNT TO EMPTY SILO

;CHECK IF CS1 CORREC(T
:"'(ST

IN ERROR AFTER READ DATA'

(ZRGECD RKk6E11 DSKLS CTRL PRTS
14=SEP-81 13:% 7
CZRGEC.PT

MACY11

30(1046)
112

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

(PART

SEG (058

CERRARARARARRN AR RARARAAANRCERRNRRNRARN
AR RRARRRIRANRRIR NIRRT

READ DATA WITH ONE BIT BURST ERROR (PART 1)

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,
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
A ONE BIT BURST ERROR OF A O THAT SHOULD BE A 1.

VERIFY THE COUNTING OF

THE POSIT.ON

SeTEST 12

;;t.nttnttt'ttt.tttttt"ttttttttttttttt!ttttttttttttttttttttittt'
1STi2:

007430
007432

000004

012737

000001

007440
007444

005037
012762

002352

007452
007456
007462
007464
007465
007466
007470
007472

005037
004437

002354
032230

000021

007474

004437

031770

JSR

R4,CLRIBF

;GO CLEAR

007500
007504

004437
000007

032014

JSR
4

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

007562
007566
007572
007574
007576
007600

004437
004437

007602

004437

000000
000
000
047124

100000

001234

000000

SCOPE
MOV

#1,8TIMES

::D0 1

CLR
MOV

BSEDES
#CCLR,RKCST(R2)

sCLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

CLR

HIBITS

;CLEAR H]

0
BYTE
.BYTE

0
0

JCYLINDER O
:SECTOR 0
:TRACK 0

JSR

IBUFF

177400

R4 ,LOADRK

=400

MOV

177446

000001
000100

000160
000100

104004
104005
104006
104007

100%:
101%:

;BUFFER ADDRESS

#1774646,0BUFF+1000

INPUT BUFFER

INDEX

BIC

#B1T6,0BUFF
(RO) ;CLEAR BIT

TO INDICATE ECC

JSR
JSR
ERROR

R4 ,0PSTRT
R4 ,DISEEK
4

;START THE OPERATION
;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

ERROR

:MR?

JSR

R4 ,DSECTR

ERROR

:MR1

:MR3

;SIMULATE

SECTOR PULSE

'
j

;STORE ECC WORDS

#BIT6,0BUFF
(RO) ;TEST IF BIT SET
100%
JYES = SKIP
#BIT6,0BUFF
(RO) :ELSE SET BIT
101%

INTO BUFFER

#15457 ,0BUFF+1002
#1,ECCSRC
;SET SOURCE

BIT
BNE
BIS
BR

IBUFF

; COMMAND RDDATA

MOV
MOV

ERROR

023316

ORDER BITS

;LOAD “‘L'* REGISTERS

;WORD COUNT =400

RDDATA

015457

ITERATION

IN BUFFER

(ZREECO RK6E1T
TIRGEC.PN

2904
2905

2906

2907
2908
2909
2910
2911
2912
2913
2914
2915
2916

2917

2918
2919
2920
2921
2922
2923
2924
2925
2926

2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947

DSKLS CTRL PRTS
14-SEP-81 13:57

007606
007612
007614

004437

007616
007622
007624
007626

004437

007630
007634
007636

004437

007640
007642

007644
007652
007660
007664
007666
007670
007672
007674
007676
007700

104010
104011

104012
104013
104014

104015
104016

VMACY11 3(1046)
T2

023740

024276

026500

000001
004066
027176

002346
002350

R4, DHDCMP

007724
007730
007734
007742
007750
007754
007762
007770
007772

031616
030462
000032
000030
002350
002350
002254

3%:

002252

1%:

2%:

177777

020000
001214

005276

;CST CONTENTS IN ERROR

;SIMULATE HEADER SEARCH

;GO READ GAP AND SYNC

ERROR
ERROR

16
32

;CST IN ERROR AFTER READING CA&P

ERROR

MOV

#1,ECPATX

#4066 ,ECPOSX
R4 ,DREAD

35
36

ERROR
ERROR
ERROR

41
42
43

MOV
MOV

#20,BITCNT
#5 R0

CLR

$TMPS

JSR
JSR
MOV
MOV
INC
MOV
CMP

BEQ
ERROR
CMP
BEQ

ERROR

#1%672.R1

;MRT

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH

JRKDCYL

OR RKDA

IN ERPOR AFTER

;MR1

IN ERROR READING GAP

sMR1

IN ERROR READING SYNC

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

sNUMBER OF WORDS TO SIMULATE
;MRT IN ERROR READING DATA OR ECC

JECC
;CS1
sECC
;ERR
;ERR

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

sSET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS PASS THRU 0
sSET COUNT FOR ECCPOS TO O FIRST PASS
;CLEAR SWITCH

PC,RDBIT
;GO READ BIT
PC,ECCGEN
: GENERATE ECC
;GET PATTERN
RKECPT(R2),T.EC T
RKECPS(R2) .T.EC S
:GET POSITION
ECPOSX
;BUMP POSITION EXPECTED
ECPOSX ,E. ECPS
sSET FOR COMPARE AND REPORT
E.ECPT.T.ECP
sCHECK IF PATTERN CORRECT
;YES = SKIP
1%

E.ECPS,T.ECPS
2%

s CHECK IF POSITION CORRECT

IYES =

SKIP

;BUMP BIT COUNT

BITCNT
R1
3%
RO

MOV
MOV

#-1,ECPOSX
#20000,R1

;GO DO LOOP AGAIN

$TMPS

MOV

#5276 ,R1

sTEST SWITCH
JALREADY SET = SKIP

BNE

2CST IN ERROR AFTER READING SYNC

INC
DEC
BNE
DEC

BR
4%:

;SIMULATE HEADER PREAMBLE
sMRT CONTENTS IN ERROR

R4 ,DRGPSN

BEOQ

002350

JSR

MOV

002326

10
11

(PART

:CS1T

ERROR
ERROR

002326

12
13

MOV
JSR
400
ERROR

000020
000005
013672
001214

005737
001012
012701

JSR

ERROR

007702
007710
007714
007720

000733

R& ,DRSYNC

ERROR

104034
104035
104036
104041
104042
104043

2948

JSR
ERROR
ERROR

ERROR
ERROR

104032
104033

012737
012737
004437
000400

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

;DEC COUNT TO ZERO IN ECCPOS
sNOT YET ZERQC - LOOP

:DEC PASS THRU 0 COUNT
J1F 0 - SKIP
;PRESET EXPECTED POS TO GO TO ZERO
JSET COUNT TO NEXT O IN ECC POS

JSET COUNT TO FINAL POSITION

CZRGEC.PN

14-SEP-81

13:

— )
—
R

Y J——p—y—)

VNS SWWWWRN
= O O
ONNRO OO
SOO

R
JU

YUY
L

e
I
S
R
Y

074

(elolelelelelelololelelelels]

—

elelel=lelol=l=l=l=l=1e
1=,

012700
012737
005237
000716

MACY1T

002350

004737
004437
013737
052737
042737
023737
001402
104044
000410

032737
001404
012737
104045

3?( 1 046)
12

002174

100000

002234

6%:

$TMPS
3$

;BUMP SWITCH
;GO DO LOOP AGAIN

JSR
JSR

PC,RDBIT
R4 ,GETREG

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

BIS
BIC
CMP
BEQ
ERROR
BR
BIT
BEQ

#RDY'!CERR,E.CST
#G0,E.CST
T.CS1,E.CST
6%
44
7%
#ECH,T.ER
7%

ERROR

MOV

7%:

#1,R0
#-1,ECPOSX

MOV

000100

(PART

MOV
MoV

INC
BR
5%:

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

L.CST1,E.CST

#DCK E.ER

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

JGET EXPECTED S1

;SET READY AND ERROR
;CLEAR GO
JCHECK IF CS1 CORRECT
JYES - SKIP
;TEST

IF ECC HARD ERROR SET

JNO = SKIP
sSET

EXPECTED ERROR REG

.','tt'.‘.'t.t'RQl"fi.'Q'"“Q.'i...'.’"'.'.'.'Q."Q"Q.'t..QQ'.Q!'.'

;*TEST

BIT BURST 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,

o %

AND DRIVE

;"
s

st
o
- %

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

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

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

3008

010222

004437

031770

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

3010
3011

010226
010232

004437
000007

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

010234

012700

000530

MOV

#530,R0

JSET

010240

012737

177446

MOV

#177446,0BUFF+1000

ol
it » il

[on
o

005037
004437
000000

no
n

o
e
- P

e I

o
o
o

o
p=]
o

o OOOCOHLOO

wdd <ol

000021

OOO0O

o olelelelelelelelelels)]

:'"t'fitfi'tt.tfitt""Qk'*.""t‘*fi‘.'.'fi.'..fi'fi't't"..'t'fi'."".'

READ DATA WITH 11

o
o*

000004
012737
005037
012762

000001
002352
100000

001234

000000

002354
032230

SCOPE
MOV
CLR

MOV

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

;:D0 1 ITERATION
;CLEAR BAD SEC DESIRED

(LR

HIBITS

sCLEAR H] ORDER BITS

JSR
0
BYTE
.BYTE
IBUFF
=400

R4 ,LOADRK
O
0

RDDATA

051130

;CLEAR CONTROLLER

JLOAD "°L'" REGISTERS
;CYLINDER 0
sSECTOR 0
:TRACK 0

JBUFFER ADDRESS IBUFF
sWORD COUNT =400
:COMMAND RDDATA

:PATTERN 7

INDEX

INTO BUFFER

sSTORE

ECC WORDS

SEQ 0060

CZRGECO Rk611 DSKLS CTRL PR

CZROECO RK611 DSKLS CTRL PRTS
14-SEP-81 1 3:57
CZROEC.PN

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

3016
3017
3018
3019
3020
3021
3022
%852

010246
010254
010262
010270
010272
010300
010302
010310

012737
012737
032760
001004
052760
000403
042760

015457
000001
000100

051132
002344
050130

000100

050130

000100

050130

3025

010310

004437

%8%%

010330

3034
3035
%8%9

MOV
MOV
BIT
BNE
BIS
BR
BIC

#15457 ,0BUFF+1002
#1,ECCSRC
sSET SCURCE TC INDICATE ECC IN BUFFER
#BI1T6,0BUFF
(RO) ;TEST IF BIT SET
1008
YES = SKIP
#B1T6,0BUFF
(RO) ;ELSE SET BIT
101%
#B1T6,0BUFF
(RO) ;CLEAR BIT

032274

JSR

R4 ,0OPSTRT

;START THE OPERATION

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
sMR1 CONTENTS IN ERROR
2CST1 CONTENTS IN ERROR

3038
3039

010344
010350

004437
104012

024276

JSR
ERROR

R4 ,DHDCMP
12

s SIMULATE HEADER SEARCH
sMRT CONIENTS IN ERROR

3043
3044
3045
3046
%82;

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
:MRT IN ERROR READING SYNC
;CS1 IN ERROR AFTER READING SYNC

3049
3050
3051
3052
3053
3054
3055
3056
3057
%8?3

010372
010400
010406
010412
010414
010416
010420
010422
010424
010426

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
#4066 ,ECPOSX
R4 ,DREAD
34
35
36
41
42
43

sLOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING DATA OR ECC
sECC ERROR READING DATA
;CS1 ERROR AFTER READING DATA OR ECC
;ECC REG_INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

3060
3061
3062

010430
010436

012737
012700

000020
000005

MOV
MoV

020 BITCNT
RO

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

gggg

010446

005037

001214

CLR

$TMP5

:CLEAR SWITCH

3066
3067
3068
3069
3070
3071

010452
010456
010462
010470
010476
010502

004737
004737
016237
016237
005237
013737

031616
030462
000032
000030
002350
002350

3026
3027
3028
3029
%8%?

3040
%82;

010314
010320
010322
010324
010326

010352
010354

004437
104004
104005
104006
104007

100%:
101%:

023334

JSR
ERROR
ERROR
ERROR
ERROR

104013
104014

ERROR
ERROR

3063 010442 012701 013672

002346
002350

002326

MOV
3%:

002214
002212

002252

JSR
JSR
MOV
MoV
INC
MOV

R4 ,DISEEK
4
5
6
7

13
14

l13672 R1

sSIMULATE IMPLIED SEEK
;CS1 MISCOMPARE
;MR1
=
:MR2
2
:MR3
.

:CS1 IN ERROR AFTER SEARCH
sRKDCYL OR RKDA IN ERROR AFTER SEARCH

;SET COUNT FOR ECCPOS TO O FIRST PASS

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

SEQ 0061

CZRGEC.P11

14-SEP-81

13:57

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

3072
3073
3074
3075
3076
3077
3078
3079

010510
010516
010520
010522
010530
010532
010534
010540

023737
001401

002254

002214

023737
001401

002252

002212

3081

010544

CZRGECO RK611 DSKLS CTRL PRTS

3080

3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100

3101
3102
3103

3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116

3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127

104042

010546
010550
010556
010562

104043
005237
005301
001343
005300
001406
012737
012701
000733

010564
010570
010572
010576
010602
010610
010614

005737
001012
012701
012700
012737
005237
000716

001214

010616
010622
010626
010634
010642
010650
010656
010660
010662
010664
010672
010674
010702

004737
004437
013737
052737
042737
023737
001402

031616
032356
002260
100200
000001
002160

002220
002220
002220
002220

032737
001404
012737

000100

002774

100000

002234

010542

104044
000410

104045

002326

177777
020000

1%:

002350

4%:

BEQ

E.ECPS,T.ECPS

;CHECK

POSITION CORRECT

JYES - SKIP

sBUMP BIT COUNT
sDEC COUNT TO ZERO IN ECCPOS
sNOT YET ZERO = LOOP
:DEC PASS THRU 0 COUNT
JIF 0 - SKIP
;PRESET EXPECTED POS TO GO TC ZERO
JSET COUNT TO NEXT O IN ECC POS
;GO DO LOOP AGAIN

TST

$TMPS

JTEST SWITCH

[0}
MOV
MOV

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

$TMPS
3%

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

sBUMP SWITCH
;GO DO LOOP AGAIN

JSR
JSR
MOV
BIS
BIC
CMP

PC,RDBIT
R4 ,GETREG
L.CS1,E.CST
#RDY!CERR,E.CS1
¥GO,E.CST
1.CS1,E.CST

;ONE MORL BIT TO SET READY
JGET '611 REGISTERS
sGET EXPECTED (S1
;SET READY AND ERROR
;CLEAR GO
;CHECK IF CS1 CORRECT

BIT
8EQ

#ECH,T.ER
7%

JTEST IF ECC HARD ERROR SET
sNO SKIP

BEQ
ERROR
BR

6%:

CHECK IF PATTERN CORRECT
sYES = SKIP

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

INC
BR
5%:

E.ECPT,T.ECPT
1%

INC
DEC
BNE
DEC
BEQ
MOV
MOV
BR

BNE

002350

010704

CMP

ERROR

2%:

005276

001214

CMP
BEQ
ERROR

SEQ 0062

MOV

ERROR

6%
44
7%

#DCK ,E.ER

;ALREADY SET = SKIP

JYES - SKIP

sSET EXPECTED ERROR REG

7%:
. gS

2323232332323 2332332323332333233223233333232322332332333333323233333323332333323320%

J*TEST

READ DATA WITH ONE BIT BURST ERROR

(PART 2)

o¥
L
o®
o
:®
%
e
e

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0, 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
A ONE BIT BURST ERROR OF A 1 THAT SHOULD BE A 0.
VERIFY THE COUNTING OF THE POSITION

MAKE SURE DATA CHECK AND CONTROLLER ERROR SETS.

2%
- %

010704
010706

000004
012737

PUT CONTROLLER IN DIAGNOSTIC MODE.

THE

FINAL PATTERN AND POSITION

INFORMATION.

:. L2822 22 3232223232323 2333323223233232323233323232323233232323233232323322332332323323232323333}
000001

001234

TST14:

SCOPE
MOV

#1,8TIMES

::DO 1

ITERATION

CZRGECO RK611 DSKLS CTRL PRT;
CZR6EC.P1
14-SEP-81 13:5
3128
3129
g}%?

010714
010720

005037
012762

002352
100000

3132
3133
3134
3135
3136
3137
3138
g}zg

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

%}29

MACY11 3?{2046)

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

BSEDES
;CLEAR BAD SEC DESIRED
#CCLR,RKCST1(R2) ;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 0
;TRACK 0
;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
JPATTERN 5

010762

012700

000530

Mov

#530,R0

sSET INDEX INTO BUFFER

3148
3149
3150
3151
3152
3153
3156
3155

010766
010774
011002
011010
011016
011020
011026
011030

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,0BUFF+1000
:STORE ECC WORDS
#151052,0BUFF+1002
#1,ECCSRC
sSET SOURCE TO INDICATE ECC IN BUFFER
#B1T6,0BUFF
(RO) ;TEST IF BIT SET
100%
;YES - SKIP
#B1T6,0BUFF
(RO) ;ELSE SET BIT
101%
#B1T6,0BUFF
(RO) ;CLEAR BIT

3158
3159
3160
3161
3162
g}gz

011036
011042
011046
017050
011052
011054

004437
004437
104004
104005
104006
104007

032274
023334

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,OPSTRT
R4 ,DISEEK
4
5
6
7

;START THE OPERATION
sSIMULATE IMPLIED SEEK
;CS1 MISCOMPARE
;MR1
v
:MR2
=
:MR3
e

g}gg

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
;MR1 CONTENTS IN ERROR
;CS1 CONTENTS IN ERROR

3171
3172
3173
%};g

011072
011076
011100
011102

004437
104012
104073
104014

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP
12
13
14

:SIMULATE HEADER SEARCH
:MR1 CONTENTS IN ERROR
;CS1 IN ERROR AFTER SEARCH
sRKDCYL OR RKDA IN ERROR AFTER SEARCH

3176

011104

004437

026500

JSR

R4 ,DRGPSN

:GO READ GAP AND SYNC

3179
%}g?

011114
011116

104032
104033

ERROR
ERROR

32
33

;MR1
2CS1

MOV

#1,ECPATX

%}gg

3177
3178

3182

3183

011036

011110
011112

011120

011126

104015
104016

012737

000001

004066

000000

100%:

101¢%:

ERROR
ERROR

002350

MOV

15
16

#4066 ,ECPOSX

:MR1
2CS1

IN ERROR READING GAP
IN ERROR AFTER READING GAP

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

;LOAD EXPECTED PATTERN

sLOAD EXPECTED POSITION

SEQ 0063

CZR6ECO RK611 DSKLS CTRL PRTS

CZRGEC.P1T

14-SEP-81 13:57

31846
3185
3186
3187
3188
3189
3190
%}g;

011134
011140
011142
011144
011146
011150
011152
011154

004437
000400
104034
104035
104036
104041
104042
104043

027176

3193
3194
3195

011156
011164

012737
012700

000020
000005

%}gg

011174

005037

001214

011200
011204
011210
011216
011224
011230
011236

004737
004737
016237
016237
005237
013737
023737

3196

3199
3200
3201
3202
3203
3204
3205

3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
%g}g

011170

011244
011246
011250
011256
011260
011262
011266

011270
011272
011274
011276
017304
011310

012701

001401
104042
023737
001401
104043
005237
005301

001343
005300
001406
012737
012701
000733

3220
3221
3222
3223
3224

011312
011316
011320
011324
011330

005737
001012
012701
012700
012737

ggg?

011342

000716

3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238

011344
011350
011354
011362
011370
011376
011404
011406
011410
011412
011420

3225

3239

011336

011422

005237

004737
004437
013737
052737
042737
023737
001402
104044
000410
032737
001404

012737

MACY11 30(1046)
114

00232%

013672

031616
030462
000032
000030
002350
002350
002254
002252

3%:
002214
002212
002252
002214
002212

2%:

002259

001214
00527¢
000001
177777

001214

1%:

4%:

002350

031616
032356
002260
100200
000001
002160

002220
002220
002220
002220

000100

002174

100000

002234

6%:

PAGE 65

34
35
36
41
42
43

;GO SIMULATE DATA READ
NUMBER OF WORDS TO SIMULATE
sMR1 IN ERROR READING DATA OR ECC
;ECC ERROR READING DATA
;CS1 ERROR AFTER READING DATA OR ECC
:ECC REG_INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

MOV
MOV

#20,BITCNT
#5,R0

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

CLR

$TMP5

;CLEAR SWITCH

JSR
JSR
MOV
MOV
INC
MOV
CMP

R4&,DREAD

JSR °
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#13672,R1

sSET COUNT FOR ECCPOS TO O FIRST PASS

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

BEQ
ERROR
CMP
BEQ
ERROR
INC
DEC

BNE
JEC
BEQ
MoV
MoV
BR

1%
42
E.ECPS,T.ECPS
2%
43
BITCNT
R1
3%
RO
4%
#-1,ECPOSX
#20000,R1
3%

;BUMP BIT COUNT
;DEC COUNT TO ZERO IN ECCPOS
;NOT YET ZERO - LOOP
;DEC _PASS THRU 0 COUNT
:IF 0 = SKIP
;PRESET EXPECTED POS TO GO TO ZERO
;SET COUNT TO NEXT O IN ECC POS
;GO DO LOOP AGAIN

TST
BNE
MOV
MoV
MOV

$TMP5
5%
#5276 ,R1
#1,R0
#-1,ECPOSX

sTEST SWITCH
;ALREADY SET - SKIP
sSET COUNT TO FINAL POSITION
sSET RO TO RETURN AFTER ONE PASS
;SET EXP POS TO GO TO O ON NEXT BIT

;GO DO LOOP AGAIN

INC

5%:

15:14

READ DATA WITH ONE BIT BURST ERROR (PART 2)

MOV

002326

177777
020000

14-SEP-81

JSR
JSR
MoV
BIS
BI(
CMP
BEQ
ERROR
BR
BIT
BEQ

MOV

$TMPS

PC,RDBIT
R4 ,GETREG
L.CST,E.CS
#RDY ! CERR,E.CS1
lGO.E (S1
CS1,E.CST
6S
44
7$
#ECH,T.ER
7$

#DCK ,E.ER

sYES = SKIP

g
;CHECK IF POSITION CORRECT
;YES = SKIP

;BUMP SWiTCH

;ONE MORE BIT TO SET READY
sGET '611 REGISTERS
;GET EXPECTED CS1
:SET READY AND ERROR
;CLEAR GO
:CHECK IF CS1 CORRECT
;YES = SKIP

;TEST IF ECC HARD ERROR SET
:NO SKIP
;SET EXPECTED ERROR REG

SEQ 0064

CZRGECO RK611 DSKLS CTRL PRTS
(ZRGEC.P11
14=-SEP-81 13:57
3260

011430

3242

011432

3243

MACY1! 3?%2046)

10404

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

ERROR

;

78:

3244

%52(5,

;*TEST 15
-

3247

3248
3249
3250
3251
3252
3253
3254

AR AR R AR R R

AR R RN

R R AR

CLEAR RK617 CONTROLLER WITH A CONTROLLER CLEAR.

MAKE SURE DATA CHECK AND CONTROLLER ERROR SETS.

:-;ttttt-wttttttttttttttttttttttttntttttqtttttttttttttttn.t-tttt-t

011432

000004

011434

012737

000001

ggg}

011442

005037

002352

gggz

011446

012762

100000

3265

011454

005037

002354

3266
3267
3268
3269
3270
3271
gg;g

011460
011464
011466
011467
011470
011472
011474

004437
000000
000
000
047124
177400
000021

001234

000000

032230

TST15:

)

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0O, 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.

3257

gggg

i
*

R R A AR

READ DATA WITH 11 BIT BURST ERROR

"
v
i
;"
:®
g»

R R R AR R AR

3522
3258

CZF
(ZF

SEQ 0065

SCOPE

MoV

#1,8$TIMES

::D0 1 ITERATION

(LR

BSEDES

;CLEAR BAD SEC DESIRED

MOV

#CCLR,RKCST1(R2) ;CLEAR CONTROLLER

(LR

HIBITS

JSR
0
BYIE
BYTE
IBUFF
=400
RDDATA

R4 ,LOADRK
¥
0

:CLEAR HI ORDER EITS

;LOAD 'L'* REGISTERS
*CYLINDER 0
;SECTOR 0
:TRACK 0
;BUFFER ADDRESS IBUFF
;WORD COUNT =400
; COMMAND RDDATA

H
.
}
:
.
)
)

‘

{

g2
i
'
;
|
:
:

%%;g

011476

004437

031770

JSR

R4, CLRIBF

;G0 CLEAR INPUT BUFFER

3276
g%;g

011502
011506

004437
000005

032014

JSR
5

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 5

d
:

§Sgg

011510

012700

000530

MoV

#530,R0

;SET INDEX INTO BUFFER

3281
3282
3283

01i514
011522
011530

012737
012737
012737

126073
151052
000001

051130
051132
002344

MoV
MOV
MOV

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

f
A
F
o

3285

011544

052760

050100

050130

BIS

#BITS!BITI2IBIT14,0BUFF (RO)

3286

011536

042760

005000

3286
gggg

011552
011556

062700
052760

000002
000001

3289
3290
3291
3292
3293
5296

011564
011570
0115764
011576
011600
011602

004437
(W04e37
104004
104005
104006
104007

032274
(23334

050130

059130

BIC

#B1T9BIT11,0BUFF
(R0)

;CREATE 11 BIT BURST ERROR

ADD
8IS

#2,R0
;BUMP TO NEXT WORD
#81T0,0BUFF (RO)

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,OPSTRT
Re ,DISEEK
&
§
6
7

;START THE OPERATION
;SIMULATE IMPLIED SEEK
;(S1 MISCOMPARE
;MR1
o
:MR2
"
;MRS
5

;

d
{
[

d
{
d
{
A
{

ggg?

011604

004437

022716

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

3298
3299
%%8?

011610
011614
011616

004437
104010
104011

023740

JSR
ERROR
ERROR

R< ,DRSYNC
10
11

;SIMULATE HEADER PREAMELE
sMR1 CONTENTS IN ERROR
;CST CONTENTS IN ERROR

3302

011620

004437

024276

JSR

R4 ,DHDCMF

s SIMULATE HEADER SEARCH

3307
3308
3309
3310

011632
011636
011640
011642

004437
104015
104016
104032

026500

JSR
ERROR
ERROR
ERROR

R4 ,DRGPSN
15
16
32

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

3313

011646

012737

000001

MoV

#1,ECPATX

;LOAD EXPECTED PATTERN

3315
3316
3317
3318
3319
3320
3321
%%S%

011662
011666
011670
011672
011674
011676
011700
011702

004437
000400
104034
104035
104036
104041
104042
104043

027176

JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

R4 ,DREAD
34
35
36
41
42
43

;GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
;MR1 IN ERROR READING DATA OR ECC
;ECC ERROR READING DATA
;CST ERRGR AFTER READING DATA OR ECC
sECC REG_INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

3324
3325

011704

012737

000020

MOV

#20,BITCNT

;SET BIT COUNT FOR CORRECTION COUNT

3327

011716

012701

013672

MoV

#13672,R1

;SET COUNT FOR ECCPOS TO O FIRST PASS

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

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

004737
004737
016237
016237
005237
013737
023737
001401
104042
023737
001401
104043
005237
005301
001343
005300
001406
012737

%%gg

012036

000733

3303
3304
%ggg

gg};

3314

3326

gggg

3348

3351

011624
011626
011630

011644

011654

011712
011722

012032

012040

104012
104013
104014

ERROR
ERROR
ERROR

104033

012737

012700
005037

ERROR

004066

010005

002346

002350

MoV

002326

MOV

001214

031616
030462
000032
000030
002350
002350
002254

002252

CLR

3%:
002214
002212

002252
002214
002212

002326

177777

012701

020000

005737

001214

1%:
2%:

002350

#4066 ,ECPOSX

#5,R0
$TMPS

sMR1 CONTENTS N _ERROP
;CS1 IN ERROR AFTER SEARCH
sRKDCYL OR RKDA IN ERROR AFTER SEAR(CH

;CS1

IN ERROR AFTER READING SYNC

sLOAD EXPECTED POSITION

;SET COUNT FOR ECCPJS PASS THRU 0
;CLEAR SWITCH

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

PC,RDBIT
;GO READ BIT
PC,ECCGEN
: GENERATE ECC
RKECPT(R2) ,T.ECPT
;GET PATTERN
RKECPS(R2) ,T.ECPS
;GET POSITION
ECPOSX
sBUMP POSITION EXPECTED
ECPOSX,E.ECPS
;SET FOR COMPARE AND REPORT
E.ECPT,T.ECPT
;CHECK IF PATTERN CORRECT
1%
:YES = K}IP
42
E.ECPS,T.ECPS
;CHECK IF PCSITION CORRECT
2%
sYES = SK}p
43
BITCNT
;BUMP BIT COUNT
R1
;DEC COUNT TO ZERO IN ECCPOS
3%
:NOT YET ZERO - LOOP
RO
;DEC PASS THRU 0 COUNT
4%
;1F 0 = SKIP
#=1,ECPOSX
sPRESET EXPECTED POS TO GO TO ZERO

MOV

4%:

12
13
14

TST

#20000,R1

sSET COUNT TO NEXT O IN ECC POS

$TMPS

sTEST SWITCH

;GO DO LOOP AGAIN

SEG 00€6

lalal

MACY11 30(1 046)
15:14 PAGE 67
14-SEP-81
715
READ DATA WITH 11 BIT BURST ERROR

~N~a

CZRGECO Rk611 DSKLS CTRL PRTS
CZRGEC.P
14-SEP-81 13:57

3?{;0‘6)

14=-SEP-81

READ DATA WITH 11

oleleolelelolelololslsleleNelelele el

BNE

)

cad

and

cidd

VIS S WWWN
= =2 O NN
oo~
ONONNY

002350

5%:

000001
002160

104045

000100

002174

100000

002234

6%:

15:14

C
6
PAGE 68

SEQ 0067

BIT BURST ERROR

MOV
MOV
MOV
INC
BR

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

;ALREADY SET - SKIP

JSR
JSR
MOV
BIS
BIC
CMP
BEQ
ERROR
BR
BIT
BEQ

PCROZIT
R4 ,GETREG
L.CHV E.LS)
#RDY'!CFRR,E.CS1
#G0,E.CST
T.CS1,E.CST
6%
44
7%
#ECH,T.ER
7%

;ONE MORE BIT T0O SET PEADY
;GET "611 REGISTERS
JGET EXPECTED CS1
;SET READY AND ERROR
sCLEAR GO
;JCHECK IF CS1 CORRECT
JYES = SK]P

ERROR

MOV

#DCK,E.ER

;SET COUNT TO FINAL POSITION
;SET RO TO RETURN AFTER ONE PASS
JSET EXP POS TO GO TO O ON NEXT BIT
JBUMP SWITCH
;GO DO LOOP AGAIN

;TEST IF ECC HARD ERROR SET
;NO SKIP
;SET

EXPECTED ERROR REG

7%:
;;Q.Q".Q..".'.'.Q".‘.I""'.."Q'.’i"thQ".".Q'..".'..'.'."'

J*TEST

READ DATA WITH 12 BIT BURST ERRCR

- %

- b

002352

005037
004437

002354
032230

000001
100000

—

—-——O0
oown OO

NN
NO

oo
roo

-— =2

005037
012762

rororROrRONON

—

roro

ISSUE

3
o

POSITION REGISTER.
MAKE SURE DATA CHECK, ECC HARD,
AND CONTROLLER ERROR SETS.

A 12 BIT BURST ERROR.

VERIFY THE COUNTING OF

001234
000000

TST1

SCOPE

MOV

#1,8TIMES

;:D0 1

CLR
MOV

BSEDES
#CCLR,RKCS1(R2)

;CLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

CLR

HIBITS

;CLEAR HI GRDER BITS

JSR
0
.BYTE
OYE
IBUFF
=400

R4 ,LOADRK
0
¢

ITERATION

sLOAD ''L'" REGISTERS
;CYLINDER 0
sSECTOR 0
sTRACK 0

;BUFFER ADDRESS IBUFF
;WORD COUNT =400

220
012222

000021

012224

004437

031770

JSR

R4 ,CLRIBF

;GO CLEAR

012230
012234

004437
000005

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

—_—

A READ DATA

THE

:'"Q.Q't"fi*'t......"""".‘..'...'Q""....'.'.."‘....'.".."
000004
012737

—_—
e —
-2
-

IN DIAGNOSTIC MODE.

OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINCER 0, HEAD 0O, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE, A
GOOD HEADER, 400 DATA WORDS AND AN ECC INDICATING

rorororororRON

CONTROLLER

s
i
:
on
I*

OOO0O0OOO0O

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT

RDDATA

; COMMAND RDDATA

;PATTERN 5

INPUT BUFFER

MACYTT

TMTM

ECO RK611 DSKLS CTRL PRTS
n
14-SEP=-81 13:57

3408
§2?8

012236

012700

000530

36411
3412
3413
3414

012242
012250
012256
012264

012737
012737
012737
042760

126073
151052
000001
005000

3416
3417
gz}g

012300
012304
012312

062700
052760
042760

000002
000001
000002

3420
3421
3422
3423

012320
012326
012330
012332

004437
004437
104004
104005

032274
023334

gzgg

012336

104007

3415

3424

012272

012334

052760

050100

004437

023316

3429

012344

004437

023740

3433

012354

004437

024276

3435

012362

104013

3434

%2%9

012360
012364

104010
104011
104012

012366
012372
012374

004437
104015
104016

g:z%

012400

104033

3441

3444
3445
3646
3447
3448
3449
3450
3451
3452
;zgz

012376

012440

012737

000020

3458

012452

012701

013672

;228
3461
3462
3463

012456
012462
0126466
012472

#126073,0BUFF+1000
sSTORE ECC WORDS
#151052,0BUFF+1002
#1,ECCSRC
;SET SOURCE TO INDICATE ECC IN BUFFER
#BIT9!BI711,0BUFF
(RO)
;CREATE 11 BIT BURST ERROR

050130
05013C

ADD
BIS
BIC

#2,R0
;BUMP TO NEXT WORD
#81T70,0BUFF
(RO)
#BIT1,0BUFF
(RO) ;MAKE IT A 12 BIT BURST ERROR

JSR
JSR
ERROR
ERROR

R4 ,0PSTRT
R4 ,DISEEK
&
5

;START THE OPERATION
sSIMULATE IMPLIED SEEK
;CS1 MISCOMPARE
;MR1
=2

ERROR

:MR3

050130

BIS

012700
005037

004737
004737
016237

(€0000%5

031616
030462
000032

002214

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

JSR

R4 ,DHD(MP

;SIMULATE HEADER SEARCH

ERROR

2CST

10
11
12
14

JSR
ERROR
ERROR

R4 ,DRGPSN
15
16

ERROR

;MRT
2CS1
;MR1T

CONTENTS IN ERROR
CONTENTS IN ERROR
CONTENTS IN ERROR

IN ERROR AFTER SEARCH

JRKDCYL OR RKDA IN ERROR AFTER SEARCH
;GO READ GAP AND SYNC
;MR1 IN ERROR READING GAP
;CS1 IN ERROR AFTER READING GAP

sMR1

MOV
MOV
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#1,ECPATX
#6066 ,ECPOSX
R4 ,DREAD
34
3§
36
41
4¢
43

sLOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
:GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING DATA OR ECC
sECC ERROR READING DATA
:CS1 ERROR AFTER READING DATA OR ECC
JECC REG_INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

MOV

#20,BITCNT

;SET BIT COUNT FOR CORRECTION COUNT

MOV

#13672 ,R1

;SET COUNT FOR ECCPOS TO O FIRST PASS

(LR

3s:

;MR?2

JSR

MOV

001214

sSIMULATE SECTOR PULSE

ERROR

002326

#BIT6!BIT12!BIT14,0BUFF
(RO)

R4 ,DSECTR

ERROR
ERROR

0023«6
002350

;SET INDEX INTO BUFFER

JSR

ERROR

3456

012446

MOV
MOV
MOV
BIC

104032

000001
004066
02777€¢

3457

051130
051132
002344
050130

026500

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

3455

#530,R0

ERROR

012402
012410
012416
012422
012424
012426
012430
012432
012434
012436

JSR
JSR
MOV

#5,.R0
$TMPS

;CST

IN ERROR READING SYNC

IN ERROR AFTER READING SYNC

;SET COUNT FOR ECCPOS PASS THRU 0
;CLEAR SWITCH

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

SEQ 0068

MOov

104014

3438
3439
3440

D 6
14=-SEP-81
15:14 PAGE 69
READ DATA WITH 12 BIT BURST ERROR

ERROR

01234C
012350
012352

3?5;046)

104006

gz%g
3430
g:g}

MACY1]

CZRGECO RK611 DSKLS CTRL PRTS
CZRGEC.PN
14-SEP-81 13:57

023737
001401
104043

005237
005301
001343

005300
001406
012737
012701
000733

012574
012600
012602
012606
012612
012620

005737
001012
012701
012700
012737
005237
000716

012626

004737
004437
013737
052737
042737
023737
001402

ECPOSX,E.ECPS
E.ECPT,T.ECPT

002212

2%:

002326

177777

020000

002350

001214

01004
000001

177777

001214

1%:

4%:

002350

002160

002220
002220
002220
002220

000100

002174

100100

002234

6%:

1%
42

;YES = SKIP

BEQ
ERROR
INC
DEC
BNE
DEC
BEQ

2%
43
BITCNT
R1
3%
RO
3]

;BUMP BIT COUNT
;DEC COUNT TO ZERO IN ECCPOS
;NOT YET ZERQ = LOOP
;DEC PASS THRU 0 COUNT
;1F 0 = SKIP

;GO DO LOOP AGAIN

(MP

E.ECPS,T.ECPS

#-1,ECPOSX
#20000,R1

;SET FOR COMPARE AND REPORT
;CHECK IF PATTERN CORRECT
;CHECK

POSITION CORRECT

;YES = SKIP

sPRESET EXPECTED POS TO GO TO ZERO
sSET COUNT TO NEXT O IN ECC POS

TST

$TMP5

;TEST SWITCH

M0V
MOV
MOV

#10041,R1
#1,R0
#-1,ECPOSX

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

JSR
JSR
MOV
BIS
BIC

PC.RDBIT
R4 ,GETREG
L.CST.E.CS)

sONE MORE BIT TO SET READY
JGET '"611 REGISTERS
;GET EXPECTED CS1

BEQ
ERROR
BR
BIT
BNE
MOV
ERROR

6%
44
4]
#ECn,T.ER
7$
#DCK'!ECH,E.ER
45

1.051.8.081%

;CHECK IF CS1 CORRECT

BNE

;ALREADY SET = SKIP

$TMPS
3%

;BUMP SWiT(CH
;GO DO LOOP AGAIN

#RDY!CERR,E.CST
#G0,E.CST

;SET READY AND ERROR
;CLEAR GO
iVES = SKIP

;TEST IF ECC HARD ERROR SET
sYES -~
SKIP
;SET EXPECTED ERROR REG

7%:
AR

AR AR AR AR AR R AR AR AR AR AR

104045

BEQ
ERROR

(MP

000410
032737
001004
012737

;GET POSITION

;BUMP POSITION EXPECTED

INC
BR

104044

TEST

CLEAR RK611

PUT

R RN ARAARAAARAARARRAR
A AR AR TR AR AR AR

READ DATA WITH 23 BIT BURST ERROR

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 0, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

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

POSITION REGISTER.
MAKE SURE
AND CONTROLLER ERROR SETS.

DATA CHECK,

ECC HARD,

::'.t..t'lttt.'t'tl..'""'t.t'..tt't.".t.tt!.i.i"""t"'!""

SEQ 0069

ECPOSX

MOV
MOV

012714

MOV
(MP

012712

002252
002214

¢+

012632
012636
012644
012652
012660
012666
012670
012672
012674
012702
012704

RKECPS(R2) ,T.ECPS

INC

012624

MOV

3515

3516
3517
3518
2519

104042

E
6
14-SEP-81
15:14
PAGE 70
READ DATA WITH 12 BIT BURST ERROR

002212

3513
3514

012572

016237
005237
013737
023737
001401

116

2480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512

012500
012506
012512
012520
012526
012530
012532
012540
012542
012544
012550
012552
012554
012556
012560
012566

30(1046)

3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479

MACY11

(ZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZR6EC.PN

002354
032230

000000

SCOPE
MOV

#1,8TIMES

::D0 1

CLR
MOV

BSEDES
#CCLR,RKCST1(R2)

:CLEAR BAD SEC DESIRED
:CLEAR CONTROLLER

CLR

HIBITS

JSR
0
BYTE
BYTE
IBUFF
-400

177400

000021

R4, L OADRK

ITERATION

:CLEAR H] ORDER BITS

0
0

*LOAD 'L'* REGISTERS
*CYLINDER 0
*SECTOR 0
*TRACK 0

012770

004437
000005

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

012772

012700

000530

MOV

#530,R0

:SET

012737
012737
012737
042760
052760
062700
052760
052760

126073

WWSHS W
oosfno

MOV
MOV

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

BIC
BIS

#BIT9'BIT11,0BUFF
(RO) TM
;CREATE 11 BIT BURST ERROR
#BI1T6'BIT121BIT14,0BUFF
(RO)

BIS

Ve awaae
WWWNOUNY

HKroo0NMN

004437

W
o

OSSO

OO o

004437
104012
104013
104014

012737

104015
104016
104032
104033

— N
- =

OOVOCO
o wnun
OOoONN—=—=

—

ADD

#1,ECCSRC

:SET

#2 R0

:BUMP TO NEXT WORD

#B1T0,0BUFF (RO)

SOURCE

INDICATE

_
ECC

IN BUFFE

:START

ERROR
ERROR
ERROR

4
5
6

1CS1 MISCOMPARE
‘MR1
L
‘MR?
o

JSR

R4 ,DSECTR

:SIMULATE

JSR

R4 ,DRSYNC

:SIMULATE HEADER PREAMBLE

ERROR

*CS1

JSR

R4, DHDCMP

;SIMULATE HEADER SEARCH

ERROR

‘CS1

R&4.DISEEK
7

12
14

THE OPERATION

*SIMULATE IMPLIED SEEK
*MR3

*MR1

SECTOR PULSE

CONTENTS IN ERROR
CONTENTS IN ERROR

CONTENTS IN ERROR

IN ERROR AFTER SEARCH

*RKDCYL OR RKDA IN ERROR AFTER SEARCH

JSR
ERROR

R4 ,DRGPSN
15

:GO READ GAP AND SYNC
‘MR1 IN ERROR READING GAP

ERROR

‘MR1

MOV

#1,ECPATX

ERROR

002346

:STORE ECC WORDS

R4 ,OPSTRT

ERROR

000001

INTO BUFFER

JSR

ERROR

026500

INDEX

#BIT12,0BUFF(RO) ;MAKE IT A 23 BIT BURST ERROR

ERROR

024276

"PATTERN §

BIS

ERROR

023740

104010
104011

MOV

JSR

023334

004437

W
—
—
vl —
—

032274

02331¢

WNWWWW
il

104004
104005
104006
104007

000001
005000
050100
000002
000001
010000

004437

—

004437
004437

151052

OO
wvivy
OO

012764

;GO CLEAR INPUT BUFFER

WW
OO

RDDATA

*BUFFER ADDRESS IBUFF
*WORD COUNT =400
COMMAND RDDATA

o
o

oSN

OoO0MNVOE

roro

Oo
— el
OO
—_—
—

ed -

OOO0O0O0O0O0O0

005037
004437
000000
000
000
047124

100000

1¢S1

IN ERROR AFTER READING GAP

(ST

IN ERROR AFTER READING SYNC

IN ERROR READING SYNC

:LOAD EXPECTED PATTERN

~N~a

SEQ 0070

R4, CLRIBF

002352

001234

TST17:

)
14=SEP=-81
15:14
PAGE 71
READ DATA WITH 23 BIT BURST ERROR

JSR

WWWW

N NN N NN NN N NN

v,
o

[o N XV RN VAV IV IV IV IV 1V |
—= OO0 YOV SN =

VT AT AN A VA NN

3540

005037
012762

000001

30(1046)
117

031770

o
Py

3538

000004
012737

MACY11

004437

oleleloleBloleleleBNelele]
— ) — — —
—_— D — —D
—d s —d

W NN NN NN N NN N W N NN NN W

Vi
vvoioo v oun wn
W WWWWWWWwNRorRorRornornonornIrono no
~ AWV B WA = O 000NN
S Wn) — o

CZROECO RK611 DSKLS CTRL PRTS
14-SEP=-81 13:57
CZRGEC.PNM

3576
3577
3578
3579
3580
3581
3582
3583
gggg

013144
013152
013156
013160
013162
013164
013166
01%170
013172

012737
004437
000400
104034
104035
104036
104041
104042
104043

004066
027176

3586
3587
3588

013174
013202

012737
012700

000020
000005

%gg?

013212

005037

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
002254

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

013276
013300
013304
013306
013
013
013
013
013

104043
005237
005301
001343
005300
001406
012737
012701
000733

3613
3614
3615
3616
3617
3618
gg;g

013
013
013
013
013
013
013

005737
001012
012701
012700
012737
005237
000716

001214

3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631

013
013
013
013
013
013
013422
013424
013426
013430
013

004737
004437
013737
052737
042737
023737
001402
104044
000410
032737
001004

031616
032356
002260
100200
000001
002160

002220
002220
002220
002220

000100

002174

3589 013206 012701 013672

3602

013274

001401

002252

002350

0023ceo

010041
000001
177777
001214

MOV
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#4066 ,ECPOSX
R4 ,DREAD

34
35
36
41
42
43

;LOAD EXPECTED POSITION
;GO SIMULATE DATA READ
:NUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING DATA OR ECC(
:ECC ERROR READING DATA
:CST ERROR AFTER READING DATA OR ECC
:ECC REG INCORRECT AFTER ECC READ
sERR IN ECC PAT CALC.
JERR IN ECC POS COUNT

MOV
MOV

#20,8BITCNT
#5,R0

;SET BIT (OUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS PASS THRU 0

$TMPS

;CLEAR SWITCH

MOV

013672.R1

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
:BUMP POSITION EXPECTED
ECPOSX,E.ECPS
;SET FOR COMPARE AND REPORT
E.ECPT,T.ECPT
;CHECK IF PATTERN CORRECT
1%
sVES = SAIP
42
E.ECPS,T.ECPS
;CHECK IF POSITICN CORRECT

ERROR
INC
DEC
BNE
DEC
BEQ
MOV
MOV
BR

43
BITCNT
R1
3%
RO
4%
#=1,ECPOSX
#20000,R1
3%

;BUMP BIT COUNT
;DEC COUNT TO ZERO IN ECCPOS
sNOT YET ZERO - LOOP
;DEC PASS THRU 0 COUNT
;IF 0 = SKIP
;PRESET EXPECTED POS TO GO TO ZERO
;SET COUNT TO NEXT O IN ECC POS
:GO DO LOOP AGAIN

4%:

TST
BNE
MOV
MOV
MOV
INC
BR

$TMPS
5%
#10041,R1
#1,R0
#=1,ECPOSX
$TMPS
3%

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

5%:

JSR
JSR
MOV
BIS
BIC
(MP
BEQ
ERROR
BR
BIT
BNE

PC,RDBIT
R4 ,GETREG
L.CS1,E.CS]
#RDY!CERR,E.CST1
#G0,E.CS1T
T.CS1,E.CS1
[}
44
7%
#E(H,T.ER
7%

;ONE MORE BIT TO SET READY
;GET '611 REGISTERS
;GET EXPECTED CS1
;SET READY AND ERROR
:CLEAR GO
;CHECK IF CS? CORRECT
;YES - SKIP

CLR

3%:
002214
002212

002252
002214
9002212

00232¢

177777
020000

G 6
14-SEP-81
15:14 PAGE 72
READ DATA WITH 23 BIT BURST ERROR

1%:
2%:

002350

¢$:

BEQ

:SET COUNT FOR ECCPOS TO O FIRST PASS

;YES = SKIP

JTEST IF ECC HARD ERROR SET
;YES = SK]P

SEQ 0071

YTMy

MA(CY1 3?{;046)

~NN

(ZREECD RKk6T1 DSKLS CTRL PRTS
CIRGEC.PN
14-SEP-81 13:57

3632
3633
3634
3635
3636

013440
013446

012737
104045

100100

14=-SEP-81
15:14 PAGE 73
READ DATA WITH 23 BIT BURST ERROR

002234

MOV
ERROR

013450

#DCK'!ECH,E.ER
&5

SEQ 0072

JSET EXPECTED ERROR REG

78:

3637

;*TEST 20

gggg

READ DATA WITH 1 BIT ECC WORD ERROR

AR A AR AR RN R RN P AR AR AR AR R AR R RN R AR

3640

3642
3643
3644
3645
3646
3647

e
:
s
:®
o>
5»

3641

ggzg
3650
3651
%gg%

013450
013452

000004
012737

000001

001234

3654
gggg

013460
013464

005037
012762

002352
100000

000000

3657
3658
3659
3660
3661
3662
3663
gggg

013472
013476
013502
013504
013505
013506
013510
013512

005037
004437
000000
000
000
047124
177400
000021

002354
032230

%ggg

013514

004437

3568
3669

013520
013524

3672

(LEAR RK611

AR R AR R RN R AR RN

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

CHECK AND CONTROLLER ERROR SETS.

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
A 1 BIT ERROR IN ECC WORD 2, BIT 6.
VERIFY THE
COUNTING OF THE POSITION REGISTER.
MAKE SURE DATA

:-;-nw:tqttatttn.tttntttttt'tflntttn-ttntttttttt--tt-tn't-nnnt-nt15720:
SCOPE
mMnv
#1,8TIMES
;:D0 1 ITERATION
BSEDES
#CCLR,RKCST(R2)

;CLEAR BAD SEC DESIRED
;CLEAR COUNTROLLER

(LR
JSR
0
BYTE
BYTE
IBUFF
=400
RDDATA

HIBITS
R4 ,LOADRK
0
0

;CLEAR H] ORDER BITS
JLOAD "'L'" REGISTERS
sCYLINDER 0O
sSECTOR 0
;TRACK 0
sBUFFER 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
JPATTERN §

013526

012700

001002

MOV

#1002,R0

;SET INDEX INTO BUFFER

3674 013540
3675 013540
3676 013554
3677 013562
3678 013564
3679 013572
3680 013574
ggg;
013602

012737
012737
032760
001004
052760
000403
042760

151052
000001
000100

004437
004437
104004
104005
104006

032274
023334

3673

3683
3684
3685
3686
3687

013532

013602
013606
013612
013614
013616

012737

126073

051130

MOV

051132
002344
050130

000100

050130

00C100

050130

CONTROLLER WITH A CONTROLLER CLEAR.

(LR
MoV

RN RO

100%:
101%:

MOV
MOV
BIT
BNE
BIS
BR
BIC
JSR
JSR
ERROR
ERROR
ERROR

#126073,0BUFF +1000

;STORE ECC WORDS

. #151052,0BUFF+1002
#1,ECCSRC
sSET SOURCE TC INDICATE ECC
#BI1T6,0BUFF
(RO) ;TEST IF BIT SET
1008
;YES = SKIP
#B1T6,0BUFF(RO) ;ELSE SET BIT
101%
#B1T6,0BUFF
(RO) ;CLEAR BIT
R4 ,0PSTRT
R4 ,DISEEK
4
5
6

;START THE CPERATION
;SIMULATE IMPLIED SEEK
2CS1 MISCOMPARE
:MR1
JMR2
s

IN BUFFER

~NN

MA(CY1 3?;;046)

CZRGECD RK611 DSKLS CTRL PRTS
TIRGEC.P1
14=-SEP-81 13:57

CZROECD RK611 DSKLS CTRL PRTS
14=-SEP=-81 13:57
rZRbE( P11
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3772
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722

3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743

MACY11

013620

104007

013622

004437

023316

013626
013632
013634

004437

023740

013636
013642
013644
013646

004437

013650
013654
013656
013660
013662

004437

013664
013672
013700
013704
013706
013710
013712
013714
013716
013720

012737
012737
004437

013722
013730
013734
013740

012737
012700
012701
005037

000020
000005

013744
013750
013754
013762
013770
013774
014002
014010
014012
014014

004737
004737
016237
016237
005237
013737
023737
001401

031616
030462
000032
000030
002350

002350
002254

002252
002214

023737
001401

002252

002212

005237
005301
001343
005300
001406
012727
012701
000733

002326

0140¢2
014024
014026
014032
014034
014036
014040
014042
014050
014054

104010

30(1046)
120

104015
104016
104032
104033

000400

024276

000001
0040€6
027176

104043

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

JSR

R4 ,DRSYNC(

;SIMULATE HEADER PREAMBLE

JSR

ERROR
ERROR
ERROR
ERROR

002326

177777

020000

002214
002212

2%:

002350

R4 ,DRGPSN

15
16
32
33

IN ERROR

;SIMULATE HEADER SEARCH
sMR1T CONTENTS IN ERROR
;CST1 IN ERROR AFTER SEARCH
sRKDCYL OR RKDA

IN ERROR AFTER SEAR(H

;GO READ GAP AND SYNC
;MR1

IN ERROR READING GAP

;CST1 IN ERROR AFTER READING GAP
;MR1 IN ERROR READING SYNC
;CST IN ERROR AFTER READING SYNC

ERROR
ERROR

34
35
36

ERROR

41
42
43

sMR1
sECC
;CS1
;ECC
;ERR
SERR

MOV

czo axrcnv

(LR

sNUMBER OF

WORDS TO SIMULATE

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

#13672 R1
$TMPS

;SET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS PASS THRU 0
sSET COUNT FOR ECCPOS TO O FIRST PASS
sCLEAR SWITCH

JSR
JSR

PC,RDBIT
PC.ECCGEN

;GO READ BIT
.
: GENERATE ECC

MOV
INC
MOV
CMP

RKECPS(R2) .T.E CPS
;GET POSITION
ECPOSX
;BUMP POSITION EXPECTED
ECPOSX,E.ECPS
:SET FOR COMPARE AND REPORT
E.ECPT.T.ECPT
sCHECK IF PATTERN CORRECT

CMP

E.ECPS,T.ECPS

sCHECK IF POSITION CORRECT

INC

BITCNT

;BUMP RIT COUNT
;DEC COUNT TO ZERO IN ECCPOS
JNOT YET ZERO - LOOP
:DEC PASS THRU O COUNT

MOV
MOV

#=1,ECPOSX
#20000,R1

MOV

1%:

12
13
14

CONTENTS

;CS1 CONTENTS IN ERROR

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

MOV

3%:

R4 ,DHDCMP

:MR1

#1,ECPATX
#6066 ,ECPOSX
R4 ,DREAD

MOV

013672
001214

10
11

MOV
Moy
JSR
400

ERROR
ERROR
ERROR

104034
104035
104036
104041
104042
104043

104042

:MR3

ERROR
ERROR
ERROR

002346
002350

SEQ 0073

JSR

026500

ERROR

ERROR
ERROR

104011

104012
104013
104014

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

BEQ
ERROR
BEQ
ERROR

DEC
BNE
DEC
BEQ

RKECPT(R2).T.EEcPT

1%
42
2%
43

R1
33
RO
43

sGET PATTERN

sYES = SKIP

;YES = SKIP

J1F 0 - SKIP
JPRESET

EXPECTED POS

TO GO TO ZERO

JSET COUNT TO NEXT O IN ECC POS

;G0 DO LOOP AGAIN

CZRGECO RK611 DSKLS CTRL PRIS

14-SEP-81 13:57

SEQ 0074

104045

002174

100000

002234

014176

6%:

Moy

ERROR

#G0,E.CST
T.CS1,E.CST

;TEST IF ECC HARD ERROR SET
;YES = SKIP
;SET EXPECTED ERROR REG

#ECH,T.ER

7$
#DCK,E.ER
45

AR RSt
R
RRRRRR2RRRRR RN 2]

LRTEST 21

CONTROLLER WITH A CONTROLLER CLEAR.
IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER 0, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK

CLEAR RK611

PUT

Sen.

18 BIT NPR WRITING OF MEMORY
CONTROLLER

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

AND DRIVE

IN MEMORY.

ARE WRITTEN PROPERLY

—

000012

005037
012762

002352

005037

002344
002354
032230

100000

000000

T21:

AR AR R R

AR AR AR AR

AR AR A AR AR AR AR AR AR AR A

SCOPE
MOV

#10.,8TIMES

;:D0 10. ITERATIONS

CLR

BSEDES

sCLEAR BAD SEC DESIRED
;CLEAR CONTROLLER

ECCSRC

sCLEAR ECC SOURCE
sCLEAR H] ORDER BITS

MOV

CLR

#CCLR,RKCST(R2)

CLR
JSR

HIBITS
R4 ,LOADRK

.BYTE

0
0

;LOAD ''L'* REGISTERS
sCYLINDER 0
sSECTOR 0

;TRACK 0

RDDATA!(FMT

JBUFFER ADDRESS IBUFF
JWORD COUNT =400
;COMMAND RDDATA!CFMT

IBUFF
=400

010021

014252

0012324

SRR AR AR A AR AR A AR AR

000004
012737

ar
a
ae
i
A
i
T

7%:
A

s
e
)
e

G
7$

000100

L.CST1,E.CST

#RDY!CERR,E.CST

MOV

TO SET READY

;GET *611 REGISTERS
;GET EXPECTED (S1
;SET READY AND ERROR
;CLEAR GO
sCHECK IF CST1 CORRECT
;YES - SKIP

)

BIS
BIC
CMP
BEQ
ERROR
BR
BIT
BEQ

;ONE MORE BIT

PC.RDBIT
R4 ,GETREG

5%:

JSR
JSR

$TMPS
3%

INC
B8R

#1,R0
#-1,ECPOSX

OO0
OO

002350

MOV
MOV
MOV

010016

.
;TEST SWITCH
SKIP
SET
JALREADY
sSET 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 LUOP AGAIN

$TMPS
5%
#10016,R1

TST

BNE

004437

031770

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

004437

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

001214

NOOWVMVIWUVTNS
W) = =
S0 SNONSNONOSNO

[elelelelelelolelololololeBelelolelelele

3744
3745
3746
3747

14-SEP-81
15:14
PAGE 75
30 (1046)
T 20
READ DATA WITH 1 BIT ECC WORD ERROR

CZROEC.P1T

MACYTT

CZRGECO RKk611 DSKLS CTRL PRTS

CZRGEC.P11

14-SEP-81

3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815

000003

3832
3833
383%
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854

K
6
15:14
14-SEP-81
PAGE 76
18 BIT NPR WRITING OF MEMORY

SEQ 0075

;PATTERN 3
-

014260
014264
014270
014272
014274
014276

004437
004437

014300

004437

014304
014310
014312

JSR
JSR
ERROR
ERROR
ERROR
ERROR

% ,0PSTRY
R4 .DISEEK

023316

JSR

R4,DSECTR

;SIMULATE SECTOR PULSE

004437

023740

JSR
ERROR
ERROR

" R4 ,DRSYNC
10
n

:MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

014314
014320
014322
014324

004437

024276

JSR
ERROR
ERROR
ERROR

014326
014332
014334
014336
014340

004437

014342
014350
014356
014362
014364
014366
014370
014372
014374
014376

012737
012737
004437
000060

026500

000000
005066
027176

002346
002350

JSR
ERROR
ERROR
ERROR
ERROR
MOV
MOV

JSR

104034
104035

050130
047124

MOV

014410
014414
014420
014424
014430

000012
001236
001220
000040

MOv

014432
014434
014436
014440
014442
014444
014446

MOV

CLR
CLR

MOV

CLR

1%:

4%:

000771

CMP
BNE
DEC
BEQ
INC
(MP
BR

:SIMULATE HEADER PREAMBLE
;SIMULATE HEADER SEARCH

.DRGPSN

sMR1

IN ERROR READING GAP

;CS1 IN CRROR AFTER READING GAP
sMR1 IN ERROR READING SYNC
;CST IN ERROR AFTER READING SYNC
CPATX

6,ECPOSX

READ

#O0BUFF ,RO
#1BUFF ,R1

$ESCAPE

$TMP7

#40,R3
RS
(RO, (R1)

RS
(RO)+,(R1)+
1%

CONTENTS IN ERROR

;GO READ GAP AND SYNC

;LOAD EXPECTED PATTERN

sLOAD EXPECTED POSITION
;GO SIMULATE DATA READ

:NUMBER OF WORDS TO SIMULATE
:MR1 TN ERROR READING DATA OR ECC

:ECC
;CS1
sECC
;ERR
;ERR

2%
R3
5%

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

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

014400
014404

:SIMULATE IMPLIED SEEK
: (ST MISCOMPARE

sMR1

104015
104016
104032
104033

ooem

104012
104013
104014

104010
104011

:START THE OPERATION

:MR3

—_ —_ 0
S&

104004
104005
104006
104007

W
— — D
whooNnmes

3823
3824
3825
3826
3827
3828
3829
3830
3831

30(1046)
1

Dun
SO

3816
3817
3818
3819
7320
3821
3822

014256

13:57

MACY11

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

sSET POINTER TO GOOD DATA
;SET POINTER TO INPUT DATA
;SET ERROR LIMIT COUNT
;CLEAR ESCAPE
;CLEAR ERROR REPORT SWITCH
sSET COMPARE LIMIT
;CLEAR WORD COUNTER

;COMPARE DATA
;SKIP IF NOT EQUAL
JELSE DEC WORD COUNT LIMIT

JIF 0 - SKIP TO EXIT

;BUMP WORD COUNT
;BUMP DATA POINTERS
;LOOP

14-SEP-81

014450
014452

13:57

MACY11

005304
001417

3?5}046)
2%:

14-SEP-81

DEC
BEQ

001220

;DEC ERROR LIMIT
JIF 0 = SKIP

(RO) ,$REGO

;GET GOOD WORD FOR REPORT

MOV

RS5,$REG?2

;GET WORD NUMBER

TST
BNE
INC

$TMP7
3%
$TMP7

;DECIDE WHICH ERROR REPORT TO USE
:SKIP IF NOT O
;ELSE BUMP $TMP7

ERROR
BR

104040

3%:

000752

SEQ 0076

R4
5%

MOV

001220

L 6
PAGE 77

18 BIT NPR WRITING OF MEMORY

MOV

001162
001164
001166

15:14

(R1) ,$REG1

37
L%

ERROR 40
BR
4%

sGET BAD WORD

JREPORT FIRST ERROR LINE
JSKIP

JREPORT ALL OTHER LINES
;SKIP

5%:
""Q't""l’..*"..*'.*"."*t".**t'fifififi."fit'.i*i"'tfi't*""fl‘"'.

J*TEST 22
. %

;TM
i
o®
i*

AND DRIVE CLEAR MESSAGES.

VERIFY THAT

=
B

S W
o oS
&»H nNONONSOSsO
SN

_
e
e
e
T
T
S

&»H BB DD
wv wviviuuiununuviianug

(eleleleleleloleleloleleipele)

005037
012762
005037
005037
005037
004437
000000
000
000
047124

SIMULATE A SECTOR PULSE,

A GOOD HEADER, 400 DATA WORDS, AND A GOOD 32 BIT ECC.
COMMAND COMPLETES WITHOUT ERROR.

”

:',"t*l’.*.'.'*t‘fi‘fi.‘*..'t't".fi*t.i'fi.fifl.fi*.‘"t'.*'.‘Q*Q'i'.*"'tfi
000001

002352

100000

002344
002344
002354
032230

001234
000000

TST

SCOPE

MOV

#1,8TIMES

;:D0 1

ITERATION

CLR
MOV
CLR
CLR
CLR

BSEDES
#CCLR,RKCS1(R2)
ECCSRC
ECCSRC
HIBITS

;CLEAR
;CLEAR
;CLEAR
sCLEAR
sCLEAR

BAD SEC DESIRED
CONTROLLER
ECC SOURCE FLAG
ECC SOURCE
H] ORDER BITS

JSR
0
BYTE
BYTE
IBUFF
=400

177400
010021

R4 ,LOADRK
0
0

RDDATA!CFMT

004437

031770

004437
000004

032014

004437
004437

032274
023334

104004
104005

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

000004
012737

18 BIT READ DATA WITH NO ERROR

:LOAD '‘L'' REGISTERS
;CYLINDER 0
;SECTOR 0
;TRACK 0
s

;BUFFER ADDRESS IBUF
JWORD COUNT =400

; COMMAND RDDATA!CFMT

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

JSR

R4 ,BLDDAT

;GO BUILD DATA

JSR
JSR
ERROR

R4 ,OPSTRT
R4 ,DISEEK
4

;START THE OPERATION
sSIMULATE IMPLIED SEEK
:CS1 MISCOMPARE

ERROR

;PATTERN 4

sMR1

104056

000026
000026

1%:

25:

MOV

#40.%40.
RO

MOV

#DMD !MCLK ,RKMR1(R2) ;CLOCK CONTROLLER
#DMD ,RKMR1(R2)
RO
sDEC_COUNT

MOV
DEC
BNE

CMP
BEQ
ERROR

TEST 23

S
S
S

IN ERROR READING DATA OR ECC

;CS1
;ECC
;ERR
;ERR

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

;SET COUNT TO EMPTY SILO

;LOOP UNTIL O

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

;GET 611 REGS
;GET EXPECTED (S1
;CLEAR GO BIT
;SET READY BIT
sCHECK IF CST CORRECT
;YES = SKIP
;"'CS1 IN ERROR AFTER READ DATA"

t.ltittttttttttl'ttttttttt'tttfittttt!tt'tlfifit't.tt'tt'ttt't'tltt

;MR1

;ECC ERROR READING DATA

([alal

34
35
36
41
42
43

S
e
A
e
e
A
e
e

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

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

JSR
MOV
BIC
BIS

002220
002220
002220
002220

#0,ECPATX
#5066 ,FCPOSX
R4 ,DREAD

032356
002260
000001
000200
002160

104034
104035
104036
104041
104042
104043

IN ERROR READING SYNC

;CS1 IN ERROR AFTER READING SYNC

004437
013737

MOV
MOV
JSR
400

:MR1

014744
014750
014756
014764
014772
015000
015002
015004

002346
002350

IN ERROR READING GAP

;CS1 IN ERROR AFTER READING GAF

000440
000040

000000
005066
027176

3?2
33

;MR1

012762
012762
005300
001370

ERROR
ERROR

104033

;GO READ GAP AND SYNC

014724
014732
014740
014742

R4 ,DRGPSN
15
16

IN ERROR AFTER SEARCH

003100

JSR
ERROR
ERROR

CS1

CONTENTS IN ERROR

012700

026500

*RKDCYL OR RKDA IN ERROR AFTER sem':“
MR1

014720

012737
012737
004437
000400

ERROR

12
13

;SIMULATE HEADER SEARCH

014662
014670
014676
014702
014704
014706
014710
014712
014714
014716

014660

104015
104016
104032

R4 ,DHDCMP

004437

PREAMBLE

ERROR

;CS1 CONTENTS IN ERRDR~_ -

JSR

ERROR
ERROR

CONTENTS IN

014646
014652
014654
014656

104012
104013
104014

024276

‘MR1

004437

10
1"

014634
014640
014642
014644

ERROR
ERROR

..
;SIMULATE HEADER

R4 ,DRSYNC

;SIMULATE SECTOR PULSE

18 BIT READ DATA WITH DCK

CLEAR RK611

CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967

JSR

004437

ISSUE A READ DATA

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

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

3938
3939
3940
3941
3942
3943
3944
3945
3946
3947

023740

014624
014630
014632

3937

R4 ,DSECTR

8,8,

3934
3935
3936

JSR

004437

8,8,

3930
3931
3932
3933

023316

014620

ERROR

.l'll’t'

3926
3927
3928
3929

104006
104007

SEQ 0077

ERROR

014614
014616

104010
104011

M6
15:14
PAGE 78
BIT READ DATA WITH NO ERROR

-SEP-81

Sa8.

3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925

MACYH}(WC&# 24

AND DRIVE

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:5
CZREEC.P11

SEQ 0078

3968
3969
3970

i
e
i*

3973

:'!ttttttttttttttttttt'tt't'ttttttttttQttttt.ttttttt't'tt..ttt.t'

gg;;

A ONE BIT BURST ERROR BEYOND THE 4128TH BIT OF THE SECTOR.
VERIFY THE COUNTING OF THE POSITION REGISTER AND THE
FINAL PATTERN AND POSITION.
MAKE SURE DATA CHECK AND

[
[

{

CONTROLLER ERROR SETS.

:
[

3974
%g;z

015004
015006

000004
012737

000001

001224

3977
gg;g

015014
015020

005037
012762

002352
100000

00000C

3980
3981
3982
3983
3984
3985

015026
015032
015036
015040
015041
015042

005037
004437
000000
000
000
047124

002354
032230

%333

015050

004437

031770

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

3991
3992
3993
3994
3995

015054
015060

004437
0C0007

032014

JSR
7

R4 ,BLDDAT

:GD BUILD DATA
:PATTERN 7

015062

012700

000734

MOV

#734 R0

:SET INDEX INTO BUFFER

{
[
[
[
[

3998
3999

015102
015110

012737
032760

000001
000100

MOV
BIT

#1,ECCSRC
#BI1T6,0BUFF (RO)

:SET SOURCE TO INDICATE ECC IN BUFFER
:TEST IF BIT SET

[
{

3086
gggg

3996
3997

4000
4001
4002
4003

2882

015044
015046

015066
015074

015116
015120
015126
015130

015136

1S123:

€

MACY11 30(1046)
14=-SEP=-81
15:14 PAGE 79
123
18 BIT READ DATA WITH DCK

lalal

CZRGECO RK611 DSKLS CTRL PRTS
CZRGEC.P11
14-SEP-81 13:5

177400
010021

012737
012737

001004
052760
000403
042760

SCOPE
MOV

#1,8TIMES

CLR
MOV

BSEDES
;CLEAR BAD SEC DESIRED
#CCLR,RKCS1.R2) :CLEAR CONTROLLER

e
|

CLR
JSR
0
BYTE
.BYTE
IBUFF

HIBITS
R4, LOADRK

Eio
1
R
{
{
¢

0
0

=400
RDDATA! CFMT

006030
045070

051130
051132

000100

050130

000100

050130

MOV
MOV

002344
050130

100%8:

101$:

BNE
BIS
BR
BIC

{
:

::D0 1 ITERATION

;CLEAR H] ORDER BITS
:LOAD "'L'* REGISTERS
sCYLINDER 0
;SECTOR 0
:TRACK 0
:BUFFER ADDRESS IBUFF

sWORD COUNT =400
:COMMAND RDDATA!CFMT

#6030, 0BUFF+1000°
#45070,0BUFF +1002

4
:

[
:

:STORE ECC WORDS

[
{

1008
lBITb OBUFF (RO)
101$
#BIT6.0BUFF (RO)

:YES = SKIP
:ELSE SET BIT

¢
{
[
l

JSR
JSR
ERROR
ERROR
ERROR

R4 ,0PSTRT
R4, DISEEK
&
S
6

:START THE OPERATION
;SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
:MR1
:MR?
a

{
b
4
Ecd
b1
g

‘

:CLEAR BIT

4006
4007
4008
4009
4010

015136
015142
015146
015150
015152

004437
004437
104004
104005
104006

032274
023334

28}2

015156

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

4015
4016

015162
015166

004437
104010

023740

JSR
ERROR

R4, DRSYNC
10

:SIMULATE HEADER PREAMBLE
:MR1 CONTENTS IN ERROR

{
‘

4019
4020
021
6022

015172
015176
015200
015202

004437
10401
10401
104074

024276

JSR
ERROR
ERROR

R4, DHDCMP
1§
]
¢

;SIMULATE HEADER SEARCH
SMR1 CONTENTS IN ERROR
(ST IN ERROR AFTER SEARCH
JREDCYL OR RKDA [N ERROR AFTER

‘
[
{
{

28}5

98};

015154

015170

104007

ERROR

104011

ERROR

FRROR

‘MR3

:CS1 CONTENTS IN ERROR

SFAR(M

4024
4025
64026
4027

015204
015210
015212
015214

004437
104015
104016
104032

026500

4030

015220

012737

000001

4032
4033

015234
015240

004437
000400

027176

28%8

4031

4034
4035
4036
4037
4038

2828

015216

015226

015242
015244
015246
015250
015252

015254

012737

ERROR

005066

2822

015274

005037

001214

4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065

015300
0153C4
015310
015316
015324
015330
015336
015344
015346
015350
015356
015360
015362
015366
015370
015372
015374
015376
015404

004737
004737
016237
016237
005237
013737
023737
001401
104042
023737
001401
104043
005237
005301
001343
005300
001406
012737
012701

031616
030462
000032
000030
002350
002350
002254

4068
4069
4070
4071
4072
4073
28;§

015412
015416
015420
015424
015430
015436
015442

005737
001012
012701
012700
012737
005237
000716

001214

4076
4077
4078
4079

015444
015450
015454
015462

004737
004437
013737
052737

031616
032356
002260
100200

012701

000733

012672

002252

002214
002212
002252
002214
00221.

002326

177777
020000

010272
000001
177777
001214

1%:
2%:

002350

5%:

002220
002220

#1,ECPATA

;LOAD EXPECTED PATTERN

R4 ,DREAD

;G0 SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE

;CS1 IN ERROR AFTER READING SYNC

34
35
36
41
42

;MR1
;ECC
;CS1
;ECC
;ERR

MOV
MOV

#22 ,BITCNT
#5,R0

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

(LR

$TMP5

;CLEAR SWITCH

#12672,R1

sLOAD EXPECTED POSITION

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

;ERR IN ECC POS COUNT

;SET COUNT FOR ECCPOS TO O FIRST PASS

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

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
E.ECPT,T.ECPT
;CHECK IF PATTERN CORRECT
1%
;YES = SKIP
&2
E.ECPS,T.ECPS
;CHECK IF POSITION CORRECT
2%
;YES = SKIP
43
BITCNT
;BUMP BIT COUNT
R1
;DEC COUNT TO ZERO IN ECCPOS
3
;NOT YET ZERO - LOOP
RO
;DEC PASS THRU 0 COUNT
3
:1F 0 - SKIP
#-1,ECPOSX
sPRESET EXPECTED POS TO GO TO ZERO
#20000,R1
;SET COUNT TO NEXT 0 IN ECC POS

;GO DO LOOP AGAIN

TST
BNE
MoV
MOV
MOV
INC

$TMPS
5%
#10272.R1
#1,R0
#-1,ECPOSX
$TMPS
3%

;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

PC.RDBIT
R4 ,GETREG
L.CST1,E.CS1
#RDY!CERR,E.CST

;ONE MORE BIT TO SET READY
;GET '611 REGISTERS
;GET EXPECTED (S1
;SET READY AND ERROR

BR
4%:

;GO READ GAP AND SYNC
sMR1 IN ERPOR READING GAP
;CST1 IN ERROR AFTER READING GAP
;MR1 IN ERROR READING SYNC

ERROR
ERROR
ERROR
ERROR
ERROR

MOV
38:

R4 ,DRGPSN
15
16
32

#5066 ,ECPOSX

JSR
400

002326

SEQ 0079

MOV

ERROR
000022
000005

015410

MOV

002350

104043
012737
012700

2829

002346

104034
104035
104036
104041
104042

015256
015264

015270

B 7
14-SEP-81
15:14 PAGE 80
18 BIT READ DATA WITH DCK
JSR
ERROR
ERROR
ERROR

104033

4041
4042
4043

4044

MACYN 3?5}046)

~N~

(ZRGECO RK611 DSKLS CTRL PRTS
CZRGEC.P11
14=SEP-81 13:57

4080
4081
4082
4083
4086
4085
4086
4087
4088

015470
015476
015504
015506
015510
015512
015520
015522
015530

283?

015532

4089

042737
023737
001402
104044
000410
032737
001404
012737
104045

000001
002160

002220
002220

000100

002174

100000

002234

6%:

BIC
(MP
BEQ
ERROR
BR
BIT
BEG
MOV
ERROR

#G0,E.CS1
1.C51,E.CS1
6$
44
7$
#ECH,T.ER
7$
#D(K,E.ER
45

SEQ 0080

;CLEAR GO
sCHECK IF CS1
;YES = SKIP

CORRECT

;TEST IF ECC HARD ERROR SET
:NO _SKIP
;SET EXPECTED FRROR REG

7$:

4092

2882

;*TEST 264

R AR R AR A AR R AR

R R AR AR RN AR

AR AR AR AR RN RN R AR RO

18 BIT READ DATA WITH ECH

4095
4096
4097
4098
4099
4100
4101
4102
2}82

4105

4106

;*
;e
:*
g
ot

"
i
:®

CLEAR 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 0, HEAD O, 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

:'.'ttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttt'tttt

2}8;

015534

012737

000001

6109

015542

005037

002352

6112
4113
4114
4115
4116
6117
6118

015554
015560
015544
015566
015567
015570
015572

005037
004437
000000
000
000
047124
177400

002354
032230

2}%}

015576

004437

4123

015602

6127

TST24:

SCOPE

MOV

#1,8TIMES

;:DO 1

CLR

BSEDES

:CLEAR BAD SEC DESIRED

CLR
JSR
0
BYTE
BYTE
IBUFF
=400

HIBITS
R4, LOADRK

;CLEAR HI ORDER BITS
;LOAD "'L'* REGISTERS
;CYLINDER 0
;SECTOR 0
:TRACK 0
;BUFFER ADDRESS IBUFF
:WORD COUNT =400

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

004437

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

C€15610

012700

000734

MOV

#734 RO

;SET

4130
4131
4132

015630
015636
015644

012737
042760
052760

000001
005000
050100

MOV
BIC
BIS

#1,ECCSRC
:SET SOURCE TO INDICATE ECC IN BUFFER
#BIT9!BIT11,0BUFF(RO)
;CREATE 11 BIT BURST ERROR
#BIT6!BIT12!BIT14,0BUFF
(RO)

4134
4135

015656
015664

052760
042760

000001
000002

BIS
BIC

#B1T0,0BUFF
(RO)
#BIT1,0BUFF(RO)

2}}?

2}}3

41264

4128
4129
4135

015546

015574

015606

015614
015622
015652

012762

100000

001234
000000

010021

000005

012737
012737
062700

MOV

#CCLR,RKCS1(R2)

0
0

RDDATA!CFMT

004020
071720

000002

051130
051132

002344
050130
050130
050130
050130

MOV
MOV
ADD

;CLEAR CONTROLLER

; COMMAND RDDATA!CFMT

;PATTERN 5

#4020, 0BUFF +1000
#71720,0BUFF +1002
#2,R0O

ITERATION

INDEX

INTO BUFFER

:STORE ECC WORDS

:BUMP TO NEXT WORD
;MAKE

IT A 12 BIT BURST ERROR

CZRGECO RK611 DSKLS CTRL PRTS
CZRGEC.P1T
14-SEP-81 13:57

c 7
MACY11 3?5;046)
14-SEP-81
15:14 PAGE 81
18 BIT READ DATA WITH DCK

4136
4137
4138
4139

01 672
01
O

30(1046)
124

004437
004437

14-SEP-81
15:14
PAGE 82
18 BIT READ DATA WITH ECH
JSR

R4 ,OPSTRT

SEQ 0081

;START

THE OPERATION

JSR
ERROR

R4 ,DISEEK
&

sSIMULATE IMPLIED SEEK
:CS1 MISCOMPARE

ERROR
ERROR

6
7

sMR2
:MR3

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

023740

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

024276

JSR

R4 ,DHDCMP

ERROR
ERROR

13
14

-1

012737
012737
004437
000400

—

104015
104016
104032

leleleleleleleleleleleleleleN

ERROR

774

10
11

;MR1

o
o

sMRT1 CONTENTS IN ERROR
;CST CONTENTS IN ERROR

;SIMULATE HEADER SEARCH

sMR1 CONTENTS IN ERROR

;CS1 IN ERROR AFTER SEARCH
JRKDCYL OR RKDA IN ERROR AFTER SEARCH

JSR

R4 ,DRGPSN

;GO READ GAP AND SYNC

000001
005066
027176

MoV
MOv
JSR
400
ERROR

#1,ECPATX
#5066 ,ECPOSX
R4 ,DREAD

ERROR
ERROR
ERROR
ERROR
ERROR

35
36
41
42
43

sLOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE DATA READ
sNUMBER OF WORDS TO SIMULATE
sMR1 IN ERROR READING DATA OR ECC

MOV
MOV
MOV

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

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

JSR
JSR
MOV

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

INC
MOV
CMP
BEQ

ECPOSX
ECPOSX,E.ECPS
E.ECPT,T.ECPT
1%

;BUMP POSITION EXPECTED
;SET FOR COMPARE AND REPORT
;CHECK IF PATTERN CORRE(CT
sVES = KJP

E.ECPS,T.ECPS

;CHECK IF POSITION CORRECT

BIT(NT
R1

;BUMP BIT COUNT
;DEC COUNT TO ZERO IN ECCPOS

ERROR
ERROR
ERROR
ERROR

104034
104035
104036
104041
104042

104043

072

026500

104033

e oo le]

4167
4168
4169
4170
4171

004437

104012
104013
104014

000022
000005
012672
001214

031616
030462
000032
000030
002350
002350
002254

3%:

002252

1%:

002326

2%:

WO
S NO
&S~
OWSHROWHROWWWW
= NW= NN = NYNNN

4166

004437

ERROR
ERROR

OOOCO

4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163
4164
4165

104010
104011

ERROR

OO0 —=00—=0000O0O0OVO

4150

004437

4146
4147
4148
4149

OOoOo

4144
4145

4142
4143

OO0

104004
104005
104006
104007

OOO0O0O0

01
0

OCOO0O0OOOOO0O

4140
4141

002326

(LR

MOV

ERROR
CMP

BEQ
ERROR
INC
DEC

15
16
32
33

$TMP5

:MR1
;CST
sMR1
2CS1

;ECC
;CS1
sECC
JERR
;ERR

2%
43

ERROR
ERROR
ERROR
CRROR

READING GAP
AFTER READING GAP
READING SYNC
AFTER READING SYNC

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

;CLEAR SWITCH

RKECPS(R2),T.ECPS

IN
IN
IN
IN

;GET POSITION

;YES = SKIP

MACY11

CZREECO RKE11 DSKLS CTRL PRTS
14-SEP-81 13:57
CZREEC.P11

CZRGECO RK61T1 DSKLS CTRL PRTS

S EWwNWwWNON
FONOONS

177777

020000

NNOONWVYWNIE
oSOV

, 000733

001214

004737
004437
013737
052737
042737
023737

031616
032356
002260

e
S

001402

30(1046)
124

011041
000001

177777

001214

002350

100200
000001
002160

002220
002220
002220
002220

J
T
D

032737

000100

002174

001004
012737
104045

100100

002234

016266

6%:

“PRESET EXPECTED POS

#20000,R1

1ST
BNE

*DEC PASS THRU O COUNT
SIF 0 - SKIP

TO GO TO ZERO

*SET COUNT TO NEXT 0 IN ECC POS
:GO DO LOOP AGAIN

$TMPS
5%

:TEST SWITCH
*ALREADY SET = SKIP

$TMPS
3$

*BUMP SWITCH
*GO DO LOOP AGAIN

MOV
MOV
MOV

#11041,R1
#1,R0
#-1,ECPOSX

JSR
JSR
MOV
BIS
BIC
CMP
BEQ
ERROR

PC,RDBIT
R4 . GETREG
L.CST,E.CS1
#RDY
! CERR,E.CS1
#G0,E.CS1
T.CS1.E.CS1
6$
44

:ONE MORE BIT TO SET READY
“GET '611 REGISTERS
*GET EXPECTED CS1
-SET READY AND ERROR
:CLEAR GO
*CHECK IF CS1 CORRECT
*YES = SKIP

BIT
BNE

#ECH,T.ER
7%

:TEST IF ECC HARD ERROR SET
‘YES SKIP

ERROR

INC
BR
5%:

#=1,ECPOSX

MOV

BR
48:

;NOT YET ZERO = LOOP

RO
4$

MOV

#DCK'ECH,E.ER

2
cZ

SEQ 0082

DEC
BEQ

MOV

104044

000410

14-SEP-81
15:14
PAGE 83
18 BIT READ DATA WITH ECH

BNE

OO
£$K0O

_—

001343
005300
001406
012737
012701

13:57

005737
001012
012701
012700
012737
005237
000716

cald

14-SEP-81

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

+SET EXPECTED ERROR REG

’%:

.SBTTL

**SPECIAL READ TESTS

.'"ttQttttttt.ttti'.'t'i"""titfltttt.itittt'.t'.'.tt't'ttt.tttt.

L*TEST 25

e
i

CYLINDER 0, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE,

i
OO0
nono

ISSUE A READ DATA
OF 103 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
A GOOD HEADER,

400 DATA WORDS,

AND A GOOD 32 BIT ECC.

MAKE SURE ONLY 103 WORDS GOT TRANSFERRED TO MEMORY.

:';tttttfitfitt't'fi'l’*tit'tt"'t't"t.tt'ttt.'tttt't'tl"ttt"t"".

012737

000001

OO
—_—
0O
Wi
ON
NOON

- -

NO
OO

. %

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.

000004

PARTIAL SECTOR READ

005037
012762

002352

OCOO0O0O0
—_—
-2 ooooooO60
WWWWW
NNV ===
OO0

4192
4193
4194
4195
4196
L4197
4198
4199
4200

elolelololeloleloleeolelolelaleleelelelelele]

CZROEC.PN

MACY11

005037
005037
004437
000000
000

002344
002354
032230

100000

001234

000000

7§725:

SCOPE

MOV

#1,$TIMES

::D0O 1

CLR
MOV

BSEDES
#CCLR,RKCS1(R2)

:CLEAR BAD SEC DESIRED
:CLEAR CONTROLLER

CLR
CLR

ECCSRC
HIBITS

:CLEAR ECC SOURCE
*CLEAR W] ORDER BITS

JSR
0
BYTE

R4,
0

DADRK

ITERATION

*LOAD “L'* REGISTERS
*CYLINDER 0
JSECTOR 0

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

4248
4249
4250
6251

000
047124

.BYTE

000021

RDDATA

13:57

177675

4252
4253

4254
4255
4256
4257
4258

4260

;TRACK 0

;GO CLEAR INPUT BUFFER

;BUFFER ADDRESS IBUFF
;WORD COUNT =103
s COMMAND RDDATA

004437

031770

JSR

R4, CLRIBF

004437
000006

032014

JSR
6

R4 ,BLDDAT

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,0PSTRT
zé.DISEEK

;START THE OPERATION

5
6
7

:MR1

;SIMULATE SECTOR PULSE

004437
004437

4259

104004

004437

023316

JSR

R4 ,DSECTR

016374
016400
016402

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC

016404
016410
016412
016414

004437

JSR
ERROR
ERROR
ERROR

— b -2 )
S

104005
104006
104007

016416

004437

104034
104035
104036
104041
104042
104043

002164
047124
000206
~N

MOV
MOV

DO
R
>m
>

SUB
CMP

047332

002224

000014
000440

000026

BEQ

*MR3

;SIMULATE HEADER PREAMBLE

sMR1

CONTENTS

IN ERROR

CONTENTS

IN ERROR

sMR1

IN ERROR READING GAP

;MR1

IN ERROR READING SYNC

j—y

;CST

IN ERROR AFTER

;GO READ GAP AND SYNC

;CST

CPOSX

OR RKDA

IN ERROR AFTER READING GAP

IN ERROR AFTER READING SYNC

sLOAD EXPECTED PATTERN
;LOAD EXPECTED POSITION
;GO SIMULATE DATA READ
;NUMBER OF WORDS TO SIMULATE
:??2 IN ERRUR READING DATA OR ECC
ERROR READING DATA

;CS1 ERROR AFTER READING DATA OR ECC
JECC REG INCORRECT AFTER ECC READ

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

T.BA,RO

#1BUFF ,RO
#206,R0

JGET ACTUAL BA
2SUB START VALUE OF BA

sTEST IF CORRECT NUM OF WORDS XFER
;YES - SKIP

ERROR

#1BUFF
+206 ,E.BA :SET EXPECTED BA
;REPORT XFER LENGTH ERROR
46

MOV
MOV

#3.+4, ,R1
;SET COUNT TO END OF
#DMD !MCLK ,RKMR1(R2) JRUN THE CLOCK

MOV

4%:
3$%:

sRKDCYL

.DRGPSN

MOV

MRZ

SEEK

;CST IN ERKOR AFTER SEARCH

JSR
ERROR
ERROR
ERROR
ERROR

JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

IMPLIED

:CS1 MISCOMPARE

;SIMULATE HEADER SEARCH

(aaly

00¢346
002350

;SIMULATE

sMR1

.
O~
oom

000000
004066
027176

;GO BUILD DATA

JPATTERN 6

2CST CONTENTS IN ERROR

WW—=—=D
wWwhooNnness

012737
012737
004437
000400

026500

10
1

VY
HSH8O0

104015
104016
104032
104033

016432

024276

104014

016430

104012
104013

=O0CL—O
O=0OMNON
—
Sho—=rofoWw

016426

104010
104011

OO0
— —
o

016422
016424

SEQ 0083

OPERATION

MACY11

14-SEP-81

CZREECO RKETT DSKLS CTRL PRTS

CZRGEC.PN

CZRSECO Rk611 DSKLS CTRL PRTS
14-SEP=-81 13:57
CIRGEC.PN

4359

016570

016576

016600
016602

18:

104056

14-SEP-81

15:14

PAGE 85

PARTIAL

SECTOR READ

MOV

#DMD
, RKMR1 (R2)

R
38

:DEC THE COUNT
*LOOP UNTIL ZERO

JSR
MOV

R4, GE TREG
L.CST,E.CST

;GET 611 REGS
:GET EXPECTED (S1

IYES = SKIP
*''CS1 IN ERROR AFTER READ DATA''

DEC
BNE

BIC
BIS
(MP
BEQ

ERRUR

#GO,E.C5:
#RDY E.CS!
1.cs1,E.C80
2%
:

SEQ 0084

*CLEAR GO BIT
*SET READY BIT
:CHECK IF CS1 CORRECT

""'...Q..'.'.Q..t."""""fi."'""..ti."'.""Q"Q'Q.'Q".'Qt

SILO UNLOAD BEFORE HEADER ERROR

SRTEST 26

R
I

%
%
2

. w

64316

4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
43350
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358

004437
073737
042737
052737
023737
001401

000026

4314
4315

016542
016546
016554
016562

000040

t313

012762
005301
001370

PRI

4309
4210
4311
4312

016530

016536
016540

3?5;0‘6)

CLEAR RK611

PUT

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

4071

WORDS

IN DIAGNOSTIC

TO AN RKO6

MODE.

ISSUE

A READ DATA

IN 26 SECTOR FORMAT,

CYLINDER 0, HEAD 0, SECTOR 0.

CLOCK THROUGH SEEK

A GOOD HEADER, 400 DATA WORDS,

AND A GOOD 32 BIT ECC.

AND DRIVE

CLEAR MESSAGES.

SIMULATE A SECTOR PULSE,

AFTER ECC SIMULATE A SECTOR PULSE AND A BAD SECTOR ERROR.
MAKE SURE THE ENTIRE PREVIOUS SECTOR GETS LOADED INTO
MEMORY BEFORE BAD SECTOR ERROR AND CONTRCLLER ERROR SETS.

4304

4305
4306
4307
4308

MACYT

:"tt.QtQ'tttt'tttttt."""'tttit.fi.tt'itttfit.t'ttt.ttttttt"tttt

010602
016604

000004
012737

000001

001234

016612

012762

100000

000000

016620
016624
016630
016634
016640
016642
016643
016644

005037
005037
005037
004437
000000

002352
002344
002354
032230

T3725:

SCOPE
MOV

#1,8TIMES

;:D0O 1

MOV

#CCLR,RKCST1(R2)

;CLEAR CONTROLLER

CLR

BSEDES

;CLEAR BSE DESIRED

JSR
0
.BYTE

R4 ,LOADRK

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

CLR
(LR

BYTE

IBUFF

177377

ECCSRC
HIBITS

=401
RDDATA

ITERATION

sCLEAR ECC SOURCE
;CLEAR HI ORDER BITS

s TRACK 0

;BUFFER ADDRESS

;WORD COUNT =401
; COMMAND RDDATA

IBUFF

016646
010650

000021

016652

004437

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

076656
016662

004437
000002

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

016664
016670
016674
016676
016700

004437
004437

JSR
JSR

R4 ,OPSTRT
R4 ,DISEEK

;START THE OPERATION
sSIMULATE IMPLIED SEEK

ERROR

:MR?2

016702

104004
104005
104006
104007

ERROR
ERROR

ERROR

4
5

JPATTERN 2

;(S1 MISCOMPARE
JMR1
e

:MR3

o
o

CZRGECD Rk611 DSKLS CTRL PRTS

004437

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

016710
016714
016716

006437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10
1

;SIMULATE HEADER PREAMBLE

016720
016724

004437

016730

104014

4396

4337
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
4611
412
4413
4414
415

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

012737
012737
004437
000400

#4066, ECPOSX

000000
004066
027176

104041

06042
104043

017004
017010

0170040
000440
000040

017016
017024
017026

100000

017030

000026
000C26

002352

6%:

s 4

:ECC ERRGR READING DATA

2CS1
sECC
;ERR
JERR

MOV
MOV
MOV

#8.%4. R1

BNE

sDEC THE COUNT
sLOOP UNTIL ZERO

BIS

#BIT15,BSEDES

;SET FOR BAD SECTOR ERROR
;ISSUE SECTOR PULSE

023740

JSR
ERROR
ERROR

R4 ,DRSYNC

017052
017056
017060
017062

004437

sREAD

sMR1

THIS

CLR

SYNC

CONTENTS

IN ERROR

2CS1 CONTENTS IN ERROR
;DO HEADER COMPARE WITH BSE ERROR

JSR
ERROR
ERROR
BR
THE ADDR

017104

SECTOR

#DMD ,RKMR
1 (R2)
R1

004437

002352
002274
002266

SET COUNT TO END OF

DEC

017042
017046
017050

017070
017076

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

#DMD ' MC LK, RKMR1(R2) JRUN THE CLOCK

R4 ,DSECTR

017064

IN ERROR READING SYNC

:NUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING DATA OR ECC

JSR

000411

sMR1

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

Ra DREAD

02331¢

024276

IN ERROR READING GAP

;CS1 IN ERROR AFTER READING SYNC

004437

104012
104013

sMR1

;CS1T IN ERROR AFTER READING GAP

017036

104010
104011

;GO READ GAP AND SYNC

.DRGPSN

#0,ECPATX

400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

104034
104035
104036

MOV
MOV
JSR

104033

JSR
ERROR
ERROR
ERROR
ERROR

(=)

026500

JSR
ERROR
ERROR
ERROR

—d
il
P
S~ ~no &~

016740
016742
016744

104015
104016
104032

IN ERROR

sSIMULATE HEADER SEARCH
sMRT CONTENTS IN ERROR
;CST IN ERROR AFTER SEARCH
JRKDCYL OR RKDA [N ERROR AFTER SEARCH

024276

NW
— — D
wrhooNnmesSs

004437

016736

CONTENTS

2CS1 CONTENTS IN ERROR

;MR1

CONTENTS

IN ERROR

2CS1 IN ERROR AFTER SEARCH

JEXPECTED RETURN (NO DA INCREMENT)
THE
T BECAUSE

UTED,

4392
4393
4394
4395

016732

sMRT

4389
4390
4391

016726

104012
104013

mao

4385
4386
4387
4388

104010
104011

oS-

4378
4379
4380
4381
4382
4383
4384

SEQ 0085

016704

NNNN

4374
4375
4376
4377

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

13:57

—000
O—=—=O
HwWwWwwn
ONNO
S WNWW

4373

30(1046)
726

14-SEP-81

TIRG6EC.P1
4360
431
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371
4372

MACY11

.DCYL

CONTROLLER DID NOT
OF THE BSE ERROR.

INKIBIT

sCLEAR BSE DESIRED SWIT(H
sSET EXPECTED CYL

;SET EXPECTED SEC/TRACK
JUNEXPECTED ADDRESS INCREMENT

CZRGECO RKET1 DSKLS CTRL PRTS

CZRGEC.P11
4416

%417
4418

4419
4420
4421
4422

4423
4424
4625
4426
4427

4428

4429
4430
4631
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443

4elh
4445
4446
4447
4448
4449

4450
4451
4452
4453
4454
4455
4456

14-SEP-81

017106
017114

017122
017124
017132
017134

017136
017142
017150
017156
017160
017162

017164

017170
017174
017200
017204
017206

017210

017214
017222
017230
017236
017240
017242

017244
017252
017260
017262

002174

000200

002234

032356
002260
002220

1%:

14-SEP-81
15:14
PAGE 87
SILO UNLOAD BEFORE HEADER ERROR
MOV

2%:

012701
005037
005037
004737
005301
001374
004437
042737
052737
023737
001402

100200

002220

;TEST IF BSE SET
;YES = SKIP

ERROR

;"BSE DID NCT SET''

012737
023737
001401

050124
v02224

002224
002164

017264

;G0 TO NEXT TEST

BEQ
ERROR
BR

3%
56
1Ster

JYES = SKIP
;"'CS1 ERROR AFTER WRITE CHECK''
;260 TO NEXT TEST

L.£37.E.C5)
E.CS1,T.CS1

sSET EXPECTED (CS1
;CHECK IF CS1 Ok

#278.+16. ,R1

JSET COUNT TO NEXT ECC FIELD

PC,RDBIT

;SIMULATE

JSR
|i(~
BIS

R4 ,GETREG
#GO,E.CST
#RDY!CERR,E.CS1

JGET 611 REGS
JSET UP LXPECTED (S1

ERROR
BR

TST27

22G0 TO NEXT

CLR
CLR

PR.BIT
M1.BIT

DEC
BNE

R1
4%

CMP
BEQ

104052

TST127

;GET 611 REGS

JSR

7%:

sSET EXPECTED ERROR REG

R4 ,GETREG

4%:

104056

#BSE ,E.ER

JSR

MOV
CMP

MOV

000410

;GET ERROR REG

#BSE,T.ER
2%

3%:

002220
002220
002160

RKER(R2),T.ER

SEQ 0086

BIT
BNE

MOV

000440

;CLEAR PRESENT AND PREVIOUS BITS

.DEC COUNT
;LOOP UNTIL ZERO

E.L8$1,.7.050
I4 3
56

;CHECK IF CS1 Ok
JYES = SKIP
:"'CS1 ERROR AFTER READ DATA"'

MOV

#I1BUFF+1000,E.BA

BEQ
ERROR

5%
52

CMP

E.BA,T.BA

READ BIT

TEST

;SET EXPECTED BA

;TEST

IF BA CORRECT

:YES = SKIP
;RUS ADDRESS INCORRECT

5%:
.SBTTL

*+«WRITE

CHECK TESTS

".'*.*.Q'.‘Q.'.t**Q...Q""'.Q..*.'.*""'fi'.l’"fi".'.fi.'t"."""

;*TEST 27

WRITE

CHECK OF

400 WORDS

- %

i
e
L
o
;"
)
o

4464

4465

4469
4470
4671

002174

000014
000200

30(1046)
126

4457
4458
4459
4460
4461
4462
4463
4466
4467
4468

13:57

MACY11

017264
017266
017274
017300

000004
012737
005037
005037

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A WRITE
CHECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0, HEAD 0, 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.
PUT CONTROLLER IN DIAGNOSTIC MODE.

:‘,'""..fi.fi.t'fi'tfifi.."'.'Q".'..'."'fi"...‘It"".'.fi."""t'tt
T§7127:

SCOPE

MOV
CLR
CLR

#10.,8$TIMES

HIBITS
BSEDES

;:D0 10.

ITERATIONS

sCLEAR HI ORDER BITS
:CLEAR BSE DESIRED

13:57

005037
005037
004437
000000
000
000
047124

002344
002344
032230

S WO SO

.BYTE
IBUFF
=400

177400

R4 ,LOADRK

0
0

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

JSR

R4 ,BLDDAT

;GO BUILD DATA

MOV
MOV
MoV
MOV

#400,R0

004437

032014

017344
017350
017354
017360
017362
017364

012700
012701
012703
012321
005300
001375

000400
047124
050130

017366
017374
017400
017404
017406
017410
017412

012762
004437
004437

100000
032274
023334

017414

004437

023316

JSR

R4 ,DSECTR

017420
017424
017426

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC

b oo

104053
104054
104055
104041
104042

ERROR

;SIMULATE IMPLIED SEEK
CS1 MISCOMPARE
:MR1
iy

s SIMULATE SECTOR PULSE
;SIMULATE HEADER PREAM3LE

;MR1

CONTENTS

IN ERROR

;SIMULATE HEADER SEARCH
sMRT

CONTENTS

IN ERROR

2CS1 IN ERROR AFTER SEARCH

sRKDCYL OR RKDA IN ERROR AFTER

.DRGPSN

MOV
MOV

ERROR
ERROR
ERROR
ERROR
ERROR

;CLEAR CONTROLLER
;START THE OPERATION

;CS1 CONTENTS IN ERROR

JSR
ERROR
ERROR
ERROR
ERROR

JSR

IBUFF

:SE1 ADDRESS OF OBUFF
sMOV PATTERN TO IBUFF
sDEC COUNT
;LOOP UNTIL PATTERN IS MOVED

;GO READ GAP AND SYNC
:MR1

IN ERROR READING GAP

p—

;CST1 IN ERROR AFTER READING GAP
:MR1 IN ERROR READING SYNC
;CST IN ERROR AFTER READING SYNC
CPOSX
»x

000000
004066
027176

;SFT A COUNT FOR BUFFER SIZE

sSE” ADDRESS OF

:MR3

026500

5
6
7

sPATTERN 4

b
p o]
&~ o ~

JSR
ERROR
ERROR

oom
oD
O~
0
>

012737
012737
004437
000400

#CCLR,RKCS1(R2)
R4,OPSTRT
R4 .DISEEK

JSR
JSR
ERROR
ERROR
ERROR
ERROR

.
&~
~
~n

104015
104016
104032
104033

MoV

75%

WW—=—=D
wWwhoonmes

004437

024276

(83)*,(R1)¢

DEC
BNE

DR
]
&S8O

104010
104011

110%:

#1BUFF ,R1
#0BUFF ,R3

HSH
o
=N

104004
104005
104006
104007

000000

sCLEAR ECC SOURCE FLAG
;CLEAR ECC SOURCE
sLOAD ''L'' REGISTERS
sCYLINDER 0
;SECTOR 0

;WORD COUNT =400
s COMMAND WRTCHK

017336
017342

75%:

SEQ 0087

;TRACK 0
;BUFFER ADDRESS IBUFF

031770

eleleloleleleleleelelelele]

oF O S
Fol 2k 0l o F oI o o o
Vi (WL LV W LV LV LV LV, ]
SLISLST.NT,
8PNOND S =3 b
kb =
(o NV F PN N —= OV NN
W

ECCSRC
ECCSRC

004437
000004

WRTCHK

104013
104014

CLR
CLR
JSR
0

000031 -—

004437
104012

4527

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

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK

sNUMBER OF WORDS TO SIMULATE
sMR1 IN ERROR ON WRT (K OR ECC READ
CC
ERROR IN WRITE CHECK OP
2

DYy =2

14-SEP-81

NNNNNNN
NWWNWWWNW
NN
= = O

4478
4479
4480
4481
4482
4483
4484
4485

loleolelelelele]

4472
4473
4474
4475
4476
4477

S
g G
Yy

CZRGEC.P1

MACY11

mmaom

(ZRGECO RK611 DSKLS CTRL PRTS

ERROR AFTER WRT CHK OR ECC READ

REG

INCORRECT AFTER ECC READ

IN ECC PAT CALC.

4528
4529
4530

017512

104043

22%}

017514

012700

002710

4533

017520

012762

000440

000026

18%:

SEQ 0088

ERROR

;ERR IN ECC POS COUNT

MOV

#40.+37. R0

sSET COUNT

MOV

#DMD !MCLK ,RKMR1(R2)

TO EMPTY SILO

;CLOCK CONTROLLER

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

(alal

CZR6ECO RK611 DSKLS CTRL PRTS
(ZR6EC.P1
14-SEP-81 13:5

CZRGECO RK611 DSKLS CTRL PRTS
CZRGEC.P11

017540
017544
017552
017560
017566
017574
017576
017600

004437
013737
042737
052737
023737
001401

000040

000026

104057

#DMD
, RKMR1 (R2)

RO
1%

:DEC COUNT
*LOCP UNTIL 0

JSR

R4 ,GETREG

:GET 611 REGS

BIC
BIS
CMP
BEQ

#GO,E.CS1
#RDY ,E.CS?
T.CS1,E.CS1
2%

*CLEAR GO BIT
*SET READY BIT
*CHECK IF CS1 CORRECT
SYES = SKIP

DEC
BNE

SEQ 0089

MOV

ERROR

L.CST1,E.CS1

*GET EXPECTED CS1

2"'CS1

IN ERROR AFTER WRITE CHECK''

;;ttttttttttttttttttt'tttitttttitt'tt.ttttttttttttttttttt.'t.t'tt

S*TEST 30

WRITE CHECK WITH DCK

- %

%
i
i*
*
i
i
i

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A WRITE
CHECK 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, THE 400 WORDS TO BE WRITE CHECKED,
AND A 32 BIT ECC INDICATING A 1 BIT BURST ERROR.

i
i*

AND THAT THE FINAL PATTERN AND POSITION ARE CORRECT.
CHECK THAT DATA CHECK AND CONTROLLER ERROR ARE SET.

- %

017600
017602

000004
012737

000001

017610
017614
017620
017624
017626
017627
017630
017632
017634

005037
005037
004437

002352
002354
032230

017636

004437

000000
000
000
047124
177400
000031

PUT CONTROLLER IN DIAGNOSTIC MODE.

VERIFY THAT THE POSITION REGISTER INCREMENTS PROPERLY

;:tfittttttttfitfitttttttti'titttti'tttttttttlttttfittttt'ttttttt"tl

001234

T5729:

SCOPE
MOV

#1,8TIMES

CLR
CLR

BSEDES
HIBITS

JSR
0
BYTE
BYTE
IBUFF
=400

R4, LOADRK

::D0 1
.

ITERATION

;CLEAR BAD SECTOR DESIRED
:CLEAR HI ORDER BITS

0
0

*LOAD "'L'* REGISTERS
*CYLINDER 0
*SECTOR 0
*TRACK 0

WRTCHK

*BUFFER ADDRESS IBUFF
*WORD COUNT =400
*COMMAND WRTCHK

031770

JSR

R4, CLRIBF

;G0 CLEAR INPUT BUFFER

017642
017646

032014

JSR

R4 ,BLDDAT

;GO BUILD DATA

017650
017654
017660
017664
017666
017670

000400
047124

MOV

#400,R0

:SET A COUNT FOR BUFFER SIZE

MOV
MOV
DEC
BNE

#OBUFF -R3
(R3)+, (R1)+
RO
75$

*SET ADDRESS OF OBUFF
*MOV PATTERN TO IBUFF
*DEC COUNT
*LOOP UNTIL PATTERN IS MOVED

MOV

05C130

W
O

75¢:

—

017072
017676
017704

4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589

012762
005300
001370

4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569

017526
017534
017536

4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547

14-SEP=81 13:57

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

#1BUFF ,R1

*PATTERN §

*SET ADDRESS OF

MOV

#1002,R0

MOV

#151052.0BUFF+1002

MOV

IBUFF

-SET INDEX INTO BUFFER

#126073,0BUFF +1000

;STORE ECC WORDS

JSR
ERROR

104004
104005
104006
104007

ERROR

R4.DISEEK
4

:CLEAR CONTROLLER

:START THE OPERATION

:SIMULATE IMPLIED SEEK
;€51 MISCOMPARE

ERROR

‘MR2

023316

JSR

R4 ,DSECTR

sSIMULATE SECTOR PULSE

004437

023740

JSR

R4 ,DRSYNC

10
11

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

020010
020014
020016
0200<0

004437

024276

JSR

R4 ,DHDCMP

sSIMULATE HEADER SEARCH

020022
020026
020030
020032
020034

004437
104015

026500

020036
020044
020052
020056
020060

012737
012737
004437
000400

000001
004066
027176

020062

104010
104011

104012
104013
104014

ERROR

ERROR
ERROR
ERROR
ERROR
ERROR

002346
002350

020064
020066
020070
020072

020074
020102
020106
020112

000020
000005
013672
001214

020116
020122
020126
020134
020142
020146

031616
030462
000032
000030
002350
002350

002326

002214
002212

002252

CONTENTS IN ERROR

;CS1 IN ERROR AFTER SEARCH

sRKDCYL OR RKDA IN ERROR AFTER SEARCH

;GO READ GAP AND SYNC

ERROR
ERROR
ERROR

16
32
33

;CS1 IN ERROR AFTER READING GAP
:MR1 IN ERROR READING SYNC
;CST IN ERROR AFTER READING SYNC

MOV
MOV

#1 ECPATX
#4066 ,ECPOSX

R4 ,DWRTCK

;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

53
54
55
41
42
43

:MR1
sECC
;CS1
;ECC
;ERR
;ERR

MOV
MOV

#20 BITCNT
RO

CLR

$TMPS

MOV

3%:

R4 ,DRGPSN

JSR
400

104053

sMR1

JSR

ERROR

104016
104032
104033

12
13
14

:MR3

JSR
JSR

MOV
MOV
INC

MOV

013672 R1

sMR1

IN ERROR READING GAP

sNUMBER OF WORDS TO SIMULATE

IN ERROR ON WRT CK OR ECC READ

ERROR IN WRITE CHECK OP

ERROR AFTER WRT CHK OR ECC READ
REG_INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC POS COUNT

sSET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPOS FASS THRU 0
;SET COUNT FOR ECCPOS TC O FIRST PASS
;CLEAR SWITCH

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

OTM
NN

AL R R s AL R L -

020000
020004
020006

#CCLR,RKCS1(R2)
R4 ,0PSTRT

004437

MOV
JSR

sl Sl PRl Sl sl Sl S Ml ML ML

017774

000000

ams Sm Sl PR Sl Sme Sed ML Sl

012762
004437
004437

amd ML e M S

017746
017754
017760
017764
017766
017770
017772

sSET SOURCE TO INDICATE ECC IN BUFFER
#B1T6,0BUFF
(RO) sTEST IF BIT SET
1008
:YES = SKIP
(RO) :ELSE SET BIT
#B1T6,0BUFF
1018
(RO) ;CLEAR BIT
#B1T6,0BUFF

mms mms

050130

#1,ECCSRC

000100

BIT
BNE
BIS
BR
BIC

050130

MOV

s s

000100

SEQ 0090

CHECK WITH DCK

002344
050130

PAGE 91

WRITE

m s G s

000001
000100

et s oml el mme s L

017730
017736
017740
017746

012737
032760
001004
052760
000403
042760

017712
017720
017726

13:57

15:14

4590
45N
4592
4593
4594
4595
4596
4597
4598
4599
4600

130

1 4 -SE P-81

14=SEP=81

CZROEC.P11

MACY11 30(1046)

fome

CZRGECO RK611 D S KLS CTRL PRTS

002220

000100

002774

100000

002234

020350

;TEST SWITCH
;ALREADY SET = SKIP

STMPS
3%

;BUMP SWITCH
;GO DO LOCP AGAIN

#10016 ,R1
#1,R0
#-1 LECPOSX

JSR
JSR
MOV
BIS
BIC
CMP
BEQ
ERROR
BR
BIT

PC,RDBIT
R4 ,GETREG
L.051.8.65)
#RDY'!CERR,E.CS1
#GO,E.CST
1.C51.E.CSY
6%
44
7%
#ECH,T.ER

MOV

#DCK ,E.ER

BEQ

ERROR

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

JONE MOREL BIT TO SET READY
;GET '611 REGISTERS
JGET EXPECTED CS1
;SET READY AND ERROR
;CLEAR GO
;CHECK IF CS1 CORRECT
JYES - SKIP

JTEST IF ECC HARD ERROR SET
;YES - SKIP
;SET

EXPECTED

ERROR REG

7%:
tttttttttt.tttttttt't'i'tttt.t.'.tt't"Q'tti't'.ti."t."'ti'tt

SATEST

WRITE

CHECK OF

18 BIT WORDS

- "

i
o
o
o
:®
.
.

4691

4692
4693
4694
4695
4696
4697
4698

020350
020352

000007

4700
L7270

020360
0203¢4

002352
002354

4699

6%:

;GO DO LOOP AGAIN

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A WRITE
CHECK OF 400 WORDS TO AN RKO& IN 24 SECTOR FORMAT,

CYLINDER 0, HEAD 0, SECTOR 0.
(LOCK THROUGH SEEK
SIMULATE
A SECTOR PULSE,
A GOOD HEADER, THE 400 WORDS TO BE WRITE CHECKED,
AND A GOOP 32 BIT ECC. MAKE SURE NO ERRORS SET.

AND DRIVE CLEAR HESSAGES.

:. Rttt

001234

$Sr31:

scoee

(el

=
aL R R, el AL AL R R LRI RLIRALAL R AL AL RLRLALAL R . Rl R AL R R Rl -

002220
002220
002220

;PRESET EXPECTED POS TO GG TC ZERO
;SET COUNT TO NEXT O IN ECC POS

100200
000001
002160

;BUMP BIT COUNT
JDEC COUNT TO ZERO IN ECCPOS
sNOT YET ZERO - LOOP
;DEC PASS THRU 0 COUNT
JIF 0 = SKIP

$TMPS
5%

MOV
MOV
MOV

INC
BR
5%:

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

JYES = SKIP

mL R AL AL

031616
032356
002260

002350

TST
BNE

43
BITCNT
R1
3%
RO

LALLM

4%:

;CHECK IF POSITION CORRECT

Rt Rttt RRRRRARRERARARRRRRRRARRRRERRRRERRRRRTRRRS

MOV

$TIMES

(LR
(LR

BSEDES
HIBITS

;D0 1

ITERATION

;CLEAR BAD SECTOR DESIRED
sCLEAR %] ORDER BITS

020262
020266
020272
020300
020306
020314
020322
020324
020326
020330
020336
020340
020346

010016
000001
177777
001214

BEQ
MOV
MOV
BR

002350

001214

ERROR
INC
DEC
BNE
DEC

E.ECPS,T.ECPS

s Sl

020260

005737
001012
012701
012700
012737
005237
000716

BEQ

020230
020234
020236

177777
020000

2%:

CMP

020226

002326

1%:

;CHECK IF PATTERN CORRECT
JYES = SKIP

002212

E.ECPT,T.ECPT
13

002252

CMP
BEQ
ERROR

023737
001401
104043
005237
005301
001343
005300
001406
012737
012701
000733

SEQ 0091

WRITE CHECK WITH DCK

002214

N 7
PAGE 92

4667
4L668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4582
4633
4684
4685
4686
4687
4688
4689
4690

V02254

104042

4665

L666

023737
001401

15:14

s S

4659
4660
4661
4662
4663
4664

020154

14-SEP-81

4646

4647
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658

MACY1 3?;8046)

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZR6EC.P11T

CZRGECO Rk611 DSKLS CTRL PRTS
14-SEP-81 13:57
(ZR6EC.P1T
470
470
4704
4705
4706

020370
020374

4707

4708
4709
4710
711
4712
4713
(714
4715
4716
4717
4718
4719
4720
4721
4722
472%
4724
4725
4726
4727

4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744

4745
4746

4747

4748
4749
4750
4751
4752
4753
4754
4755
4756
4757

005037
004437
000000
000
000
047124

MACY11

002344
032230

CLR

010031

020412

004437

ECCSRC

5sn

R4, LOADRK

BYTE
BYTE

0
0

IBUFF
=400

177400

020410

CFMT
! HK
WRTC

031770

JSR

R4, CLRIBF

020416
020422

032014

iSR

R4 ,BLDDAT

020424
020430
020434
020440
020442
020444

000400
047124
050130

MOV
MOV
MOV
MOV

#400,R0
#1BUFF ,R1
#OBUFF _R3
(R3)+, (R1)+

BNE

75%

020446
020454
020460
020464
020466
020470
020472

100000

104006
104007

020474

004437

020500
020504
020506

004437

020510
020514
020516
020520

004437
104012
104013
104014

:LOAD 'L"* REGISTERS
:CYLINDER 0
:SECTOR 0

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

: CFMT
; COMMAND WRTCHK

;GO CLEAR INPUT BUFFER
;GO BUILD DATA

;PATTERN 4

;SET A COUNT FOR BUFFER SIZE
;SET ADDRESS OF IBUFF

;SET ADDRESS OF OBUFF

sMOV PATTERN TO IBUFF

MOV
JSR

#CCLR,RKCST(n2)
R4 ,OPSTRT

sCLEAR CONTROLLER

ERROR

ERROR
ERROR

6
7

023316

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

023740

JSR

R4, DRSYNC

;SIMULATE HEADER PREAMBLE

000000

110%:

DEC

R4 ,DISFEK

JSR

ERROR

024276

026500

020536
020544
020552

000000

005066
027176

104042
104043

;CLEAR ECC SOURCE

;DEC _COUNT
;LOOP UNTIL PATTERN IS MOVED

020522
020526
020530
020532
020534

020572

75%:

SEQ 0092

032274
023334

104010
104011

30(1046)
14=SEP-81
15:14
PAGE 93
3
WRITE CHECK OF 18 BIT WORDS

ERROR
ERROR

10
11

R4 ,DHDCMP

JSR

ERROR
ERROR
ERROR

;START THE OPERATION

sSIMULATL IMPLIED SEEX
;CS1 MISCOMPARE
iy
-

:MR1
IMR2
:"Rs

sMR1

CONTENTS

IN ERROR

;CS1 CONTENTS IN ERROR
s SIMULATE HEADER SEARCH

12
13
14

sMR1

JSR

R4 ,DRGPSN

ERROR
ERROR

ERROR

16
32
33

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

MOV

#0,ECPATX

ERROR

MOV

JSR
400

ERROR
ERROR
ERROR
ERROR"
ERROR
ERROR

#5046, ECPOSX
-

R4, DWRTCK

53
54
55
41
42
43

CONTENTS

IN ERROR

;CS1 IN ERROR AFTER SEARCH
sRKDCYL

sMR1

OR RKDA

IN ERROR AFTER

IN ERRCR READING SYNC

2CS1 IN ERROR AFTER READING SYNC
;LOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK
sNUMBER OF WORDS TO SIMULATE
:MR1

sECC
;CS1
;ECC
;ERR
;ERR

IN ERROR ON WRT (K OR ECC READ

ERROR IN WRITE CHECK OP
ERROR AFTER WRT CHK OR ECC READ
REG_INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC 20S COUNT

4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
477%
4775
4776
4777
4778
4779
4780

020574

012700

003100

020600

012762
012762
005300
001370

000440

020616

020620
020624
020632
020640
020646
020654
020656
020660

000040

000026
000026

004437
013737
042737
052737
023737
001401

4812
4813

#DMD !MCLK ,RKMR1(R2) ;CLOCK CONTROLLER
#DMD ,RKMR1 (R2)
RO
sDEC _COUNT

;LOOP UNTIL O

JSR

R4 ,GETREG

;GET 611 REGS

BI(
BIS
CMP
BEQ

#G0,E.CST
#RDY,E.(ST
T.CST,E.CST
2%

sCLEAR GO BIT
;SET READY BIT
CHECK IF CS1 CORRECT
;YES = SKIP

L.CS1,E.CST

ERROR

;SET COUNT TO EMPTY SILO

;GET EXPECTED (CS1

"CS1 IN ERROR AFTER WRITE CHECK''

'Qfi".t'.'R.tQiQ'Q"t"""..tttt""t..ttt"....'...t""t.'.'

WRITE

CHECK OF A PARTIAL SECTOR

. %

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT

MAKE SURE NO ERRORS SET.

i
i
i
3"

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A WRITE

CHECK OF 1 WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINER 0O, HEAD O, SECTOR 0.
CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES.
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.

:" AR AR A AR AR A AR AR A AR AR AR AR AR A AR A AR AR RA R AR AR AR AR AR
020660
020662

000004
012737

020670
020674
020700
020704
020710
020712
020713
020714
020716
020720

005037
005037
005037
004437
000000

020722

004437

031770

020726
020732

004437
000006

020734
020740
020744
020750
020752
020754

012700
012701
1 270
1 232
0 530
0 137

000001

001234

T573

002352
002354
002344
032230

#1,8TIMES

;;D0 1

CLR
(LR
CLR

BSEDES
HIBITS
ECCSRC

;CLEAR BAD SECTOR DESIRED
;CLEAR HI ORDER BITS
sCLEAR ECC SOURCE

0
0

JSR

R4,CLRIBF

;GO CLEAR INPUT BUFFER

032014

JSR
6

R4 ,BLDDAT

;GO BUILD DATA
;PATTERN 6

000400
047124
050130

MOV
MOV
MOV
MOv

#400,R0
# IBUFF ,R1
#0BUFF ,R3
(R3)+,(R1)+

;SET
:SET
sSET
sMOV

IBUFF
-]
WRTCHK

DEC
BNE

R4 ,LOADRK

ITERATION

sLOAD ''L'" REGISTERS
;CYLINDER 0
;SECTOR 0
s TRACK 0

75%:

SCOPE
MoV

JSR
0
BYTE
.BYTE

000031

WO
—= N

4809

4810
4811

MOV
MOV
DEC

SRTEST 32

4786

4792
4793
479
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808

1$:

#40.+40. ,R0

MOV

104057

MOV

BNE

4781
4782
4783
4784
4785

4787
4788
4789
4790
4791

14-SEP-81
15:14
PAGE 94
30(1046)
15
WRITE CHECK OF 18 BIT WORDS

MACY11

RO
75%

;BUFFER ADDRESS
;WORD COUNT =1
; COMMAND WRTCHK

A COUNT
ADDRESS
ADDRESS
PATTERN

IBUFF

FOR BUFFER SIZE
OF IBUFF
OF OBUFF
TO IBUFF

sDEC COUNT
;LOOP UNTIL PATTERN IS MOVED

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZROEC.P1

4864
4865
4866

4867
4868
4869

;SIMULATE

SECTOR PULSE

023740

JSR
ERROR
ERROR

R4 ,DRSYNC

;SIMULATE

HEADER PREAMBLE

024276

JSR
ERROR
ERROR
ERROR

== L o
S~ &H

JSR
ERROR
ERROR
ERROR
ERROR

OWW—=—=DD
wWhoohnses

MOV
MOV
JSR

012737
012737
004437
000400

013700

104016
104032
104033

000000
004066
027176

<00
ERROR
ERROR
ERROR
ERROR
ERROR

104053
104054
104055
104041

104042

104043

D ) —d -

VWS WW
SRRV

—,—
) - —)

026500

ERROR

002164
047124
000002

MOV

SUB
CMP
BEQ

sSTART THE OPERATION

:MR1

:MR1
;CST

CONTENTS IN ERROR
CONTENTS IN ERROR

;SIMULATE HEADER SEARCH
sMR1

CONTENTS IN ERROR

;CST IN ERROR AFTER SEARCH
sRKDCYL OR RKDA

.DRGPSN

LECPATX
066 ,ECPOSX
DWRTCK

IN ERROR AFTER SEARCH

;GO READ GAP AND SYNC

sMR1

IN ERROR READING GAP

:MR1

IN ERROR READING SYNC

;CST IN ERROR AFTER READING GAP

;CST IN CRROR AFTER READING SYNC
sLOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK
sNUMBER OF WORDS TO SIMULATE
sMR1

sECC
;CS1
;ECC
JERR
;ERR

IN ERROR ON WRT CK OR ECC READ

ERROR IN WRITE CHECK OP
ERROR AFTER WRT CHK OR ECC READ
REG INCORRECT AFTER ECC READ
IN ECC PAT CALC.
IN ECC POS COUNT

T.BA,RO

;GET ACTUAL BA

#2,R0O

sTEST IF CORRECT NUM OF WORDS XFER

#1BUFF RO

;SUB START

VALUE

047126

002224

MOV

ERROR

4%
#IBUFF+2 ,E.BA
46

000040
000440
000040

000026
000026

MOV
MOV
MOV
DEC

#8.%4. R1
;SET COUNT TO END OF
#DMD !MCLK ,RKMR1(R2) ;RUN CLOCK
#DMD ,RKMR1(R2)
R1
;DEC COUNT

;LOOP UNTIL ZERO

JSR

R4 ,GETREG

;GET 611

BIC
BIS

#G0,E.CS1
#RDY ,E.CS1T

:CLEAR GO BIT
;SET READY BIT

—_—

BNE

001401

021046
021054
021062
021066
021070
021072
021074
021076
021100
021102

104015

10
11

004437

021032
021036
021040
021042
021044

R4 ,0OPSTRT

004437

JSR
JSR
ERROR
ERROR
ERROR
ERROR

021020
021024
021026
021030

MOV

004437

1108:

HHESSVNINY
W=l
W

021010
021014
021016

W)
= O
OO
O S

R4 ,DSECTR

023316

LS ONNOWVT
ro&saOONON

4863

JSR

004437

POND
b =
s =

4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862

;SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE

021004

104012
104013
104014

032356
002260
000001
000200
002160

1%:

MOV

(MP
BEQ

L.CS1,E.CST

t.c81
6. .03t

;YES = SKIP
;SET EXPECTED BA
sREPORT XFER LENGTH ERROR

REGS

;GET EXPECTED (S1

;CHECK IF CS1 CORRECT

:YES = SKIP

OPERATION

~Naaa

SEQ 0094

R4 ,DISEEK
4

000000

104004
104005
104006
104007

104010
104011

;CLEAR CONTROLLER

012762
004437
004437

oleleloleleBleleloleoleBloeleloleloe
o)
rORORONOMNONYD
PRoROrONONY
OO
——d D
—D
— b
— —

L84S
4846

14-SEP-81
15:14
PAGE 95
30(1046)
132
WRITE CHECK OF A PARTIAL SECTOR
#CCLR,RKCST(R2)

020756
020764
020770
020774
020776
021000
021002

—_— -

4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4,828
4,829
4830
4831
4832
4833
4834
4835
4836
4837
4,838
4839
4840
4841
4842
4843
4844

MACY11

D3R
&S8O0

(ZRG6ECO RKE1T DSKLS CTRL
14-SEP-81 1
CZRGEC.P1

CZRGECO RK611 DSKLS CTRL PRTS

CZROEC.P1T

«<870
4«87

4872

14-SEP=-81

021214
021216

13:57

MACY11

104057

4LB73
4874
4LB75
4876
4LB77

. %

SEQ 0095

:"'CST IN ERROR AFTER WRITE CHECK''

WRITE CHECK ERROR (PART 1)

CLEAR RK617 CONTROLLER WITH A CONTROLLER CLEAP.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A WRITE
CHECK OF 1 WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CLINDER O, 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.

;"
.

REPEAT USING EACH OF THE FOLLOWING CCNFIGURATIONS
AS WRITE CHECKED DATA:

o
M
.
;.
ot
2

4885

4902
4903
4504
4905
4906
49907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925

ERROR

;*TEST 33

4886
4887
4888

4900
4901

.'.'"Q"t.""t'...'.t"'.'"..QQ..Q..Q'Q'.'."Q"'t"'t..'.".t"

4LB878
LB79
4880
4881
4LB88?2
4883
4,884

4889
4890
4891
4892
4893
4894
4855
4,896
4897
4898
4899

14-SEP-81
15:14
PAGE 96
30(1046)
132
WRITE CHECK OF A PARTIAL SECTOR

. %

)
>
.
o
. %

WRITE CHECKED DATA IS 000007.

000002
000004
000010
000020

000040
000100
000200
000400

001000
002000
004000
010000

MAKE SURE WRITE CHECK ERRGR SETS.

020000
040000
100000

:'"ti.'l.tt't...ttttt"""Q'tlttfit...fiittttfi.t'.tttt'tt'ttttttttt
TST33:

021216
021220

000004
012737

021226
021232
021236
021242
021246
021250
021251
021252
021254
021256

005037
005037
005037
004437
000000

021260
021264
021270
021276
021304
021306
021314

012705
005037
012737
032737
001003
012737
012737

000020
050130
000001
000001

021322

177777

050130
001110

112%:

021322
021330
021334
021340
021342
021344
021346

012762
004437
004437

100000

000000

110%:

021350

004437

023316

021354

004437

023740

000001

001234

002352
002354
002344
032230

#1,8TIMES

::DO 1

CLR
CLR
CLR

BSEDES
HIBITS
ECCSRC

;CLEAR BAD SECTOR DESIRED
;CLEAR HI ORDER BITS
;CLEAR ECC SOURCE

JSR
0
.BYTE
.BYTE
IBUFF

R4 ,LOADRK
0
0

-1

032274
023334

MOV

047124
047124

ITERATION

;LOAD "'L'" REGISTERS
JCYLINDER 0O
;SECTOR O
:TRACK 0
;RUFFER ADDRESS IBUFF
;WORD COUNT -1

WRT(CHK

000031

104004
104005
104006
104007

SCOPE

MOV

; COMMAND WRTCHK
#16. RS

;SET PATTERN COUNT

CLR

OBUFF

:CLEAR FIRST WORD OF OBUFF

BIT
BNE

#BITO, IBUFF
112%

=18 BIT O SEY
:YES = PATTERN SHOULD BE 0

MOV

#110%,$LPERR

;SET LOCAL LOOP ON ERROR

MOV

#1,1BUFF

#-1,0BUFF

MOV
JSR
JSR

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

ERROR

:SET

IN FIRST PATTERN

:ELSE PATTERN SHOULD BE ALL ONES

;CLEAR CONTROLLER
;START THE OPERATION

4
5
€

sSIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
s
:MR1
;MR2
o
;MR3
25

JSR

R4 ,DSECTR

;SIMULATE SECTOR PULSE

JSR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

ERROR
ERROR
ERROR

4926

021360
021362

4929

021364
021370
021372
021374

004437

021376

004437

4930

021402
021404
021406
021410

021412
021420
021426
021432
021434
021436
021440
021442
021444
021445

4965
4966
4967
4968
4969
4970
4971
4972

4973

6974

4975
4976
4977
4978
4979
4980
4981

104010

104011

104012
104013
104014

104015
104016
104032
104033

012737
012737
004437
000001
104053

024276

026500

000000
004066
027176

002346
002350

021450
021454
021462
021470
021472

000040
000440
000040

000026
000026

021474
021500
027506
021510
021516
021524
021532

032356
040000

002779

002170
047124
050130

021534
021536
021542
021544

F
8
14=-SEP-81
30(1046)
15:14
PAGE 97
133
WRITE (HECK ERROR (PART 1 )

1%:

JSR
ERROR
ERROR
ERROR

R4 ,DHD(MP

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPSN

:GO READ GAP AND SYNC

32
33

:MR1
:CS1

MoV
MOV
{SR

#0 ,ECPATX
#4066 ,ECPOSX
R4 ,DWRTCK

;LOAD EXPECTED PATTERN
:LOAD EXPECTED POSITION
:GO SIMULATE WRITE CHECK

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

53
54
55

:MR1 IN ERROR ON WRT CK OR ECC READ
:ECC ERROR IN WRITE CHECK OP
:CS1 ERROR AFTER WRT CHK OR ECC READ

MOV

ERROR

047124

:SIMULATE HEADER SEARCH

JRKDCYL OR RKDA IN ERROR AFTER

:CS1

15
16

:MR1
:CS1

CONTENTS

IN ERROR

IN ERROR AFTER SEARCH

IN ERROR READING GAP
IN ERROR AFTER READING GAP

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

:NUMBER OF WORDS TO SIMULATE

;ECC REG INCORRECT AFTER ECC READ

42
43

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

R4,GETREG
#WCE,T.CS2

:GET REGS
:TEST IF WCE

T.(S2,$REGO
IBUFF ,$REG]

sSET (S2 FOR REPORT

ggUFF.SREG2

:YES - SKIP

SET

;SET WORD READ
;sSET WORD FROM BUFFER
:"WCE FAILED TO SET"

;LOCAL LOOP ON ERROR
JSHIFT FOR NEXT

AR AR AR

WRITE

TEST PAITERN

sDEC PATTERN COUNT
;LOOP UNTIL ALL PATTERNS TESTED

1108

CLEAR RK611

PUT

IN ERROR

IBUFF

AR AR AR AR

CONTENTS

:MR1

BNE
'TEST

CONTENTS IN ERROR

SCoP1
ASL
DEC

CrRA

:CS1

MOV
MOV
MOV

001166

:MR1

#8.%4. R1
:SET COUNT
#DMD 'MCLK ,RKMR1(R2) :RUN CLOCK
#DMD ,RKMR1(R2)
R1
;DEC COUNT
1%
:LOOP UNTIL ZERO

MOV

2%:
006337
005305
001266

BIT
BNE

001162
001164

SEQ 0096

ERROR
ERROR

DEC
BNE

"Ollol..

4927
4928

MACY11

RARA AR

CHECK ERROR

RAC AR

R AR AR R

(PART 2)

CONTROLLER WITH A CONTROLLER CLEAR.

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A WRITE

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

AND DRIVE CLEAR MESSAGES.
SIMULATE A SECTOR PULSE
A GOOD HEADER, AND ONE WORD OF DATA CUNSISTING OF 177777,
WRITE CHECKED DATA IS 177776.
MAKE SURE WRITE
(HECK ERROR SETS.
REPEAT USING EACH OF THE FOLLOWING

Ve
~Ge

CZROGECO RK611 DSKLS CTRL PRTS
14=SEP=81 13:5
CZRGEC.P1T

4996

4997
4998
4999

OCNF IGURATION AS WRITE CHECKED DATA:

021546
021550

021556
021562
021566
021572
021576
021600
021601
021602
021604
021606
021610
021614
021620
021626
021634

021636
021644

000001

001234

%
%

TR TR

177775
177773
177767
177757

$134:

002352
002354
002344
032230

SCOPE

012762
004437
004437

021700

004437

104004
104005
104006
104007

000020
050130

177776

000001

047124

177777

050130

001110

112%:

170000

000000

1'0%:

021652
032274
023334

#1,8TIMES

;.D0 1 ITERATION

(LR
CLR
CLR
3sn

BSEDES

;CLEAR BAD SECTOR DESIRED
;CLEAR HI ORDER BITS
;CLEAR ECC SOURCE
sLOAD "'L'" REGISTERS

HIBITS

ECCSRC

R4, LOADRK

0
0

#16. ,RS

BNE

BIT

#BITO, IBUFF
112%

MOV

JSR
JSR
ERROR

OBUFF
#177776, IBUFF

023740

JSR

R4 ,DRSYNC

021714
021720
021722
021724

024276

021726
021732
021734
021736
021740

026500

012737

000000

002346

;YES = PATTERN SHOULD BE O

;CLEAR CONTROLLER

R4 ,OPSTRT
24.DISEEK

021704
02i710

021742

;1S BIT 0 SET

#CCLR,RKCST(R2)

R4 ,DSECTR

JSR

sCLEAR FIRST WORD OF OBUFF

sSET IN FIRST PATTERN

#1108, SLPERR

JSR

ERROR
ERROR
ERROR

;SET PATTERN COUNT

JELSE PATTERN SHOULD BE ALL ONES
;SET LOCAL LOOP ON ERROR

02331¢

JSR

IBUFF

#-1,0BUFF

6
7

ERROR
ERROR

;TRACK 0
;BUFFER ADDRESS

; COMMAND WRT(CHK

MOV
CLR

MOV

;CYLINDER 0
;SECTOR 0

sWORD COUNT -1

ERROR
ERROR
ERROR

021712

137777
077777

MOV

047124

157777

2222222222222 22222l

WRT CHK

000031

021652
021660
021664
02670
021672
021674
021676

176777
175777
173777
167777

2222222222 2222

.BYTE
l?urr

012705
005037
012737
032737
001003
012737
012737

177737
127677
177577
177377

R4 ,DHDCMP

:START

THE

OPERATION

:SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE
:MR1

:MR3

;SIMULATE SECTOR PULSE

;SIMULATE HEADER PREAMBLE

sJMR1

CONTENTS IN ERROR

;CS1 CONTENTS IN ERROR

;SIMULATE HEADER SEARCH
JMR1 CONTENTS IN ERROR
;CS1 IN ERROR AFTER SEARCH

sRKDCYL OR RKDA IN ERROR AFTER SEAR(H

;GO READ GAP AND SYNC(

ERROR
ERROR
ERROR
ERROR

;MR1

IN ERROR READING GAP

;MR1

IN ERROR READING SYNC

MOV

;LCAD EXPECTED PATTERN

2CS1 IN ERROR AFTER READING GAP
2CST

IN ERROR AFTER READING SYNC

SEQ 0097

~au

G 8
15:14
14-SEP-81
PAGE 98
WRITE CHECK ERROR (PART 2)

T34

4982
4583
4984
4985
4986
4587
4988
4989
4990
4991
4992
4993
4994
4995

MACY11 30(1046)
8

(ZR6ECO RKk611 DSKLS CTRL PRTS
14=SEP=81 13:57
CZROEC.P1T

021762
021764
021766
021770
021772
021774.

002350

MOV
JSR
1

#4066, ,ECPOSX
R4 ,DWRT (K

ERROR

ERROR
ERROR
ERROR
ERROR
ERROR

O0O0O0D

000040
000440
000040

022024
022030
022036
022040
022046
022054
022062

032356
040000

022064

104415

022066
022072
022076
022100

006337
005537
005305
001264

002170

047124
050130

0000¢o6
000026

18:

MOV

53
54
55

)

H
8
PAGF 99
(PART 2)

SEQ 0098

;LOAD EXPECTED POSITION
;GO SIMULATE WRITE CHECK
:NUMBER OF WORDS TO SIMULATE

:MR1 IN ERROR ON WRT CK OR ECC READ
:ECC ERROR IN WRITE CHECK OP
:(S1 ERROR AFTER WRT (HK OR ECC READ
:ECC REG INCORRECT AFTER ECC READ

42
43

:ERR IN ECC PAT CALC.
:ERR IN ECC POS COUNT

#8. %4, R1

;SET COUNT

R
18

;DEC COUNT
:LOOP UNTIL ZERO

JSR
BIT

R4 ,GETREG
#WCE,T.CS2

;GET REGS
STEST IF WCE

MOV
MOV

IBUFF ,$REG1
OBUFF , $RE G2

*SET WORD READ
*SET WORD FROM BUFFER

MOV
MOV

#DMD 'MCLK ,RKMRT
(R2)
#DMD
. RKMR T (R2)

00217¢
001162
001164
001166

DEC
BNE

BNE
MOV

ERROR

2%:
047124

SCOP1
ASL
AD(

047124

2%
T.CS2,$REGO

DEC
BNE

;RUN CLOCK

SET

:YES = SKIP
:SET €S2 FOR REPORT

:TMWCE FAILED TO SET"
;LOCAL LOOP ON ERROR

IBUFF
1BUFF

;SHIFT FOR NEXT
:PUT CARRY BACK

RS
1108

TEST
IN

PATTERN

:DEC PATTERN COUNT
:LOOP UNTIL ALL PATTERNS TESTED

.'."I‘tl.IQ.".Q..Q'.Q.'Q'Q."i'Qfit.'.i.'...tfi.'."fi"'...'."t."!

SRTEST

WRITE

CHECK ERROR

(PART

i
i
i
i
i
i
i
i
i
. %

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A WRITE
CHECK OF 1 WORD TO AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER O, HEAD 0, SECTOR 0.
CLOCK THROUGH SEEK
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.
PUT CONTROLLER IN DIAGNOSTIC MODE.

:'"'tttttttttttttt*tt!t.""".ttfi'i.tt"."l'.'t'lt.'t"...'."..
022102
022104

000004

012737

000001

022112
022116
022122
022126
022130
022131
022132
022134

005037
005037
004437
000000
000
000
047124

002352
002344
03223C

177777

001234

SCOPE

MOV

#1,8TIMES

::DO

CLR
CLR
JSR

BSEDES
ECCSRC
R« ,LOADRK

BYTE

;CLEAR BAD SECTOR DESIRED
;CLEAR ECC SCURCE
;LOAD ''L'" REGISTERS
sCYLINDER 0
sSECTOR O

0
BYTE
IBUFF

-1

ITERATION

;TRACK 0

;BUFFER ADDRESS
;WORD

COUNT

‘

[BUFF

14-SEP-81
15:14
WRITE (HECK ERROR

104053
104054

p—

022000
022004
022012
022020
022022

004066
027176

OO0OO0O0O0OO

021776

012737
004437
000001

3%1046)

—

021750

021756

o
&~
o
o
o

5038
5039
5040
5041
5042
5043

VALY

CIRGECD RKE11 DSKLS CTRL PRTS
14-SEP=-81 13:5”
CZRGEC.P1Y

022172
022176
022200

004000

100000

002354

001110
000000

040000
047124
050130
022164

4%:

#40000,+1IBITS

MOV
MOV

#1108, SLPERR
#CCLR,RKCST(R2)

MOV

#4000,R0
RO
(s

CLR
CLR

DEC
BNE

IBUFF
OBUFF

JSR
JSR
ERROR
ERROR
ERROR
ERROR

R4 ,0PSTRT
R4, DISEEK
4

;SET 0 IN BUFFER

;SET LOCAL LOOP ON ERROR
sCLEAR CONTROLLER
sSET STALL COUNT

sDEC _COUNT

;LOOP UNTIL ZERO
;START

THE

OPERATION

;SIMULATE IMPLIED SEEK

CS1
:MR1

MISCOMPARE
e

:MR3

022220

104007

022222

004437

023316

JSR

R4 ,DSECTR

:SIMULATE SECTOR PULSE

022226
022232
022234

004437

023740

JSR
ERROR
ERROR

R4 ,DRSYNC
10

;SIMULATE HEADER PREAMBLE
:MR1 CONTENTS IN ERROR
;CST CONTENTS IN ERROR

022236
022242
022244
022246

004437

JSR
ERROR
ERROR
ERROR

R4 ,DHD(MP

s SIMULATE HEADER SEARCH
sMRT CONTENTS IN ERROR

JSR
ERRCR
ERROR
ERROR
ERROR

WW——D
wWwhooNwnmess

5
6
7

;SET HIBITS FOR PATTERN OF 200000

sSET LOW BITS FOR READ

MOV
MOV

DRl
SO

022202

MOv

024276

104014

022250
022254
022256
022260
022262

026500

022264
022272
022300
022304
022306
022310
022312

000000
005066
02717¢

022322
022326
022334
022342
022344

000040
000440
000040

022346
022352
022360

032356

#SR

022314
022316
022320

000026
000026

1%:

002170

;CS1 IN ERROR AFTER SEARCH

sRKDCYL OR RKDA IN ERROR OFTER SEAR(H
B

.DRGPSN

;GO READ GAP AND SYNC
;MR1

IN ERROR READING GAP

JMR1

IN ERROR READING SYNC

;CS1 IN ERROR AFTER READING GAP

2CST

CPATX
6,ECPOSX
WRTCK

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
MOV
MOV
MOV
DEC

R
#8.+*4,

JSR
BIT
BNE

R4 ,GETREG

BNE

040000

104012
104013

s
O
ooem

104011

oy HEHENONY

104010

IN ERROR AFTER READING SYNC

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

IN ERROR ON WRT (K OR ECC READ

sECC ERROR IN WRITE CHECK OP

;CS1 ERROR AFTER WRT CHK OR ECC READ
sECC REG_INCORRECT AFTER ECC READ
;ERR IN ECC PAT CALC.
SERR IN ECC POS COUNT

;SET COUNT

#DMD !MCLK ,RKMR1
(R2) ;RUN CLOCK
#DMD ,RKMR1 (R2)
R1
:DEC_COUNT
$
.LOOP UNTIL ZERO

#WCE,T.CS2

JGET REGS

JTEST

WCE

:YES = SKIP

SET

(e
X |

SEG 0099

~NN

(P'R

~ 0O
C

PAG

s COMMAND WRTCHK!(FMT

W =W

4
g
- R

R
g

VLN
N

VLN

—— Y
N

LU
Y

S G———

U
Y

W
W
J

T UL

W
Y

U U UYL U

W
(R
T YR

LA LA

A VT

(e g

AU
U
T

A
R

15:14
14-SEP-81
WRITE CHECK ERROR

CFMT
! HK
WRTC

022140
022146
022152
022156
022164

13S

onrn
Lol

010031

022136

13:57

30(1046)

—_—

5094
5095
5096
5097
5098
5099
BNWNWWWUBWWIWWWRNINNNDNDNMNDMNINN)
- =1t 0 D a0 = 3w 00000000
VO NN W =O VNN W 2OV
NOWVNS W =SO VO NOWVMEWN 2OV
NN WKWN

14=SEP-81

CZROEC.PN

MACY11

N -

CZREGECD RK611 DSKLS CTRL PRTS

002170
047124
050130
001170
002354
000C16
001172

022410
022416
020422
022426
022430
022432
022434

104415

022436
022444
022446
022454
022456

023727
001404
012737
000643

001162

MOV
MOV
MOV

001172

MOV
MOV

001164
001166

100000

002354

N2
N

ETETETETR)

%
X*
B

R
T

022514

004437

022520
022524

022526
022532
022536
022542
022544
022546

;LOCAL LOOP ON ERROR

WRITE

CHECK ERROR

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
CONTROLLER

AND DRIVE

CLEAR MESSAGES SIMULATE A SECTOR PULSE,

A GOOD HEADER,

125 GOOD WORDS, AND A BAD WORD.
CHECK WORD COUNT

MAKE SURE WRITE CHECK ERROR SET.
AND BUS ADDRESS.

"ttt"tttttttttt'.tttt'i"'t‘tt'tit't.tlt'tt'itttttfiii'ttfit't'tQ

001234

002354
002352
032230

SCOPE
MOV

(LR
- CLR
JSR

#1,8TIMES
HIBITS

BSEDES
R4 ,LOADRK

0
0

031770

JSR

R4,CLRIBF

004437
000005

032014

JSR

R4 ,BLDDAT

012700

000400
047124
050130

MOV
MOV
MOV
MOV

#400,R0
#IBUFF ,R1
#0BUFF ,R3
(R3)+,(R1)+

VIO

=N —

000031

0 30
0 37

(PART 4)

CLEAR RK611

PUT

.BYTE
.BYTE
IBUFF
=400
WRTCHK

1 70
1 70
1 32

;TEST IF SECOND PATTERN DONE
;YES = EX]T
,SET FOR PATTERN 400000
;LOOP UNTIL ALL PATTERNS TESTED

AR ALRSS2
RRRRRR
R
Rt
D

IR IR

005037

000001

;"WCE FAILED TO SET"

022466
022472
022476
022502
022504
022505
022506
022510
022512

- unrororo

5201
5202
5203
5204
5205

MOV

000004
012737

HIBITS ,#100000
$
#100000,HIBITS
1108

LRTEST 36

022456
022460

(S2 FOR REPORT
WORD READ
WORD FROM BUFFER
UP FOR REPORT

$REGS
RO

SCOP1
CMP
BEQ

(=l=lelele)

5194

5195
5196
5197
5198
5199
5200

DEC
BNE
ERROR

5%:

;SET
;SET
sSET
sSET

#14. RO

ROR

2%:

5174

5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193

CLR

3%:

002354

T.(S2,$REGO
IBUFF ,$REG!
OBUFF ,$REG2
$REG3
HIBITS,$REG&

SEQ 0100

5165
5166
5167
5168
5169
5170
5171
5172
5173

022362
022370
022376
022404

J
8
14=SEP-81
15:14
PAGE 101
30(1046)
T35
WRITE CHECK ERROR (PART 3)

5150
§151
5152
5153
5154
5155
5156
5157
5158
§159
5160
5161
5162
5163
5164

MACY11

75%:

DEC
BNE

;:D0O

ITERATION

;CLEAR HI

BITS

;CLEAR BAD SECTOR DESIRED
:LOAD "'L'" REGISTERS

;CYLINDER O
:SECTOR 0
;TRACK 0

;BUFFER ADDRESS IBUFF

sWORD COUNT =400

; COMMAND WRTCHK

75%

;GO CLEAR

INPUT BUFFER

;GO BUILD DATA

:PATTERN §
JSET
JSET
sSET
;MOV

A COUNT
ADDRESS
ADDRESS
PATTERN

FOR BUFFER SIZE
OF IBUFF
OF QBUFF

TO [BUFF
;DEC COUNT
sLOOP UNTIL PATTERN IS MOVED

~NN

CZR6ECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P11

Mov

#530,R0

MOV
MOV
MOV

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

012700

000530

022554
022562
022570
022576
022604
022606
022614

012737
012737
012737
032760
001004
052760
000403

126073
151052
000001
000100

000100

050130

042760

000100

050130

BR
BIC

022624
022632
022636
022642
022644
022646
022650

012762
004437
004437

032274
023334

100000

000000

MOV

022652

004437

023316

022656
022662
022664

004437

023740

022666
022672
022674

004437

022700
022704
022706
022710
022712

004437

022714
022722
022730
022734
022736
022740
022742
022744
022746
022750

012737
012737
004437
000310

022616

022624

022676

104004
104005
104006
104007

104010
104011

104012
104013
104014

104015
104016

51
51
02
50

PRV
e —
W SN
oMo

022550

BIT
BNE
BIS

JSET

SEQ 0101
INDEX INTO BUFFER
;STORE ECC WORDS

#1,ECCSRC
sSET SOURCE TO INDICATE
#BIT6,0BUFF
(RO) ;TEST IF BIT SET

ECC

100$
YES - SKIP
:g%;é.OBUFF(RO):ELSE SET BIT
#B1T6,0BUFF
(RO) ;CLEAR BIT
#CCLR,RKCS1(R2)
R4 ,0PSTRT
R4 ,DISEEK
4

;CLEAR CONTROLLER
sSTART THE OPERATION
sSIMULATE IMPLIED SEEK
.CS1 MISCOMPARE

:MR3

JSR

R4 ,DSECTR

;sSIMULATE

JSR
ERROR
ERROR

R4 ,DRSYNC

;SIMULATE HEADER PREAMBLE

2CS1

024276

JSR
ERROR
ERROR
ERROR

R4 ,DHDCMP

026500

JSR
ERROR
ERROR
ERROR
ERROR

R4 ,DRGPSN

MOV
MOV

JSR
JSR
ERROR
ERROR
ERROR
ERROR

104032
104033
000000
004066
027176

002346
002350

JSR
310
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

104053
104054
104055

022752
022756
022764
022772
022774

000020
000440
000040

022776

032356

000026
000026

1%:

IN BUFFER

12
13
14

MR1

JMR1

g
SECTOR PULSE

CONTENTS IN ERROR
CONTENTS

IN ERROR

sSIMULATE HEADER SEARCH

sMR1
;CS1

CONTENTS IN ERROR
IN ERROR AFTER SEARCH
JRKDCYL OR RKDA IN ERROR AFTER SEARCH
;G0 READ GAP AND SYNC

sMR1

32
33

;MR1
2sCS1

#0,ECPATX
#4066 ,ECPOSX
R4 ,DWRTCK

sLOAD EXPECTED PATTERN
sLOAD EXPECTED POSITION
;G0 SIMULATE WRITE CHECK
NUHBER OF WORDS TO SIMULATE

53
54
55

41
42

;CS1

IN ERROR READING GAP

IN ERROR AFTER READING GAP

IN ERROR READING SYNC
IN ERROR AFTER READING SYNC

,M
R1 IN ERROR ON WRT CK OR ECC READ
JECC ERROR IN WRITE CHECK OP
;CS1 ERROR AFTER WRT CHK OR ECC READ
JECC REG INCORRECT AFTER ECC READ
JERR IN ECC PAT CALC.

JERR IN ECC POS COUNT

MOV
MOV
MOV

#6.x4, R

;SET

DEC
BNE

IDHD‘HCLK RKMR1(R2)
JRUN CLOCK
#DMD, RKHR1(R2)
R1
;DEC COUNT
13
;LOOP UNTIL ZERO

COUNT

TO END OF

JSR

R4 ,GETREG

;GET '611 REGS

OPERATION

K
8
14-SEP-81
15:14
30(1046)
PAGE 102
136
WRITE CHECK ERROR (PART &)

YTM

MACY11

[=lele
-]

[

I Yy

OCOVONOVESWN—=O

SLSLSIS
TSI S TN TS TN
T ,8]

vV
A
N

CZR6ECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P1T

14-SEP-81

13:57

5262
5263

023002

032737
001013
013737
016037
016037

040000

002170

001162
001164
001166

023036
023040

104060
000423

AWCE,T.CS2
2%

sTEST IF WRITE CHECK SET
;YES - SKIP

2%:

MOV

#IBUFF+2,E.BA

;SET UP EXPECTED BA

3%:

MOV
CMP
BEQ
ERROR

#-123,E.WC
T.WC,E.WC
4%
62

sSET EXPECTED WCORD COUNT
sCHECK IF CORRECT
3YES = 3KIP
;WORD COUNT £RROR

MOV
MOV
MOV
ERROR
BR

0021¢€¢

104061

023064

000410

023066
023074
023102
023104

012737
023737
001401

023106

002224

012737
060037
023737
001402

BIT
BNE

177655

002162

0022
0022

104062

4%:

ADD
CMP
BEQ
ERROR
BR

T.CS2,$REGO
IBUFF
(RQ) ,$REG]1
OBUFF
(RO) ,$REG2
60
48

RO,E.BA
E.BA,T.BA
38
61
4%

sSET UP FOR REPORT
;BUFFER WORD
;SIMULATED WORD
;WCE NOT SET ERROR
JEXIT

;ADD IN THE NUMBER OF WORDS TO THE ERROR
sCHECK IF CORRECT
;YES = SKIP
;BUS ADDRESS ERROR
JEXIT

SEQ 0102

CZRGEC.PN

noro
rnorno

L 8
14-SEP-81
15:14
PAGE 103
MACY11 30(1046)
WRITE CHECK ERROR (PART &)
136

CZRGECO RK611 DSKLS CTRL PRTS

MACY11 30(1046)
14-SEP-81
15:14
END OF PASS ROUTINE

gggg

.SBTTL

5286

5287
5288
5289
5290

5306

5307
5308
5309
5310
5311
5312
5313
5314
5315
5316
5317
5318
5319
5320
5321
5322
5323
5324
5325
5326
5327
5328
5329
5330
5331
gg;g

5334
5335
5336
5337
g;gg

PAGE 104

SEQ 0103

END OF PASS ROUTINE
222222ttt

22222222

tINCREMENT THE PASS NUMBER ($PASS)
tTYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yyyyy'
'UHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:«IF THERES A MONITOR GO TO IT

g%g%

5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305

s*]F

023106
023106
023110
023114
023120
023124
023132
023134
023136
023140
023142
023144
023146

023152

000004
005037
005037
005237
042737
005327
000001
003063
012737
000001
023134
104401

000407

001102
001234
001256
100000

001256

023176
023200
023204

104405
104401
000421

023206

023250
023250

013746

001112

023316
©23324
023332

001256

023154

013746

104405
104401
005037
013700
001405
000005
004710
000240
000240
000240

023316

;.67%:
66%:

001245
001112
000042

012762
012762
000204

377

000140
000040

SCOPE
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MoV
$ENDCT: ,WORD
$EOPCT
TYPE
;:65%:
64%:

000137

003364
377

ISN'T JUMP

TO NEWPAS

$EOP:

023172
023172

023254
023256
023262
023266
023272
023274
023276
023300
023302
023304
023306
023306
023310
023312

THERE

000

000026
000026

$TSTNM
STIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

;;ZERO THE TEST NUMBER
;s ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;:LOOP?

653

;s TYPE ASCIZ STRING

64%

MOV

$PASS,~(SP)

_ASCIZ

2:VES
s ;RESTORE COUNTER
:

;;GET OVER THE ASCIZ

<12><15>/END PASS #/

TYPDS
TYPE
BR
_ASCIZ

;s SAVE $PASS FOR TYPEOUT
;s TYPE PASS NUMBER
::G0 TYPE=-=DECIMAL ASCII WITH SIGN
,67%
;sTYPE ASCIZ STRING
66%
:.GET OVER THE ASCIZ
/
TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL,=(SP)

TYPDS
TYPE
CLR
$GET42: MOV
BEQ
RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
S$ENULL: .BYTE
.EVEN

. SCRLF
$ERTTL
awé2 RO
$DOAGN
PC, (RO)

a(PC)+

NEWPAS
=1,-1,0

;;SAVE SERTTL FOR TYPEOUT
;. TOTAL NUMBER OF ERRORS
;.60 TYPE--DECIMAL ASCII WITH SIGN
;s TYPE CARRIAGE RETURN, LINE FEED
;sCLEAR ERROR TOTAL
;;GET MONITOR ADDRESS
s BRANCH IF NO MONITOR
;;CLEAR THE WORLD
::G0 TO MONITOR
::SAVE ROOM
::FOR
J:ACT1

; sRETURN
;sNULL CHARACTER STRING

.SBTTL
DIAGNOSTIC MODE SECTOR PULSE
i
THE SECTOR PULSE IS PROVIDED BY THIS ROUTINE
DSECTR: MOV
#DMD !MSP ,RKMR1(R2)
;SET SECTOR PULE
MOY
#DMD ,RKMR1(R2)
;RESET SECTOR PULSE
RTS
R4

CZRGECO Rk611 DSKLS CTRL PRTS
CZRGEC.P11
14=-SEP-81 13:57

CZRGECO Rk611 DSKLS CTRL PRTS
CZR6EC.P1T
14-SEP-81 13:57

N 8
MACY11 30(1046)
14=-SEP-81
15:14 PAGE 105
DIAGNOSTIC MODE IMPLIED SEEK

5340
5341
5342
5343
5344

SBTTL
2
:'
.
I*

ggzg

s
.

5347
5348
gggg

e
e
oTM

5351

g%g?

5352
5352
5354
5355

o
¥
o
I

5358

023334

5360
5361
5362
5363
g;gg

02333¢
023340
023346
023350
023354

5359

023334

010346
032737
001003
012700
000412

5366

023356

012700

gg;g

023376

062700

5367
5368
5369

023362
023370
023372

DISEEK:

010046

032737
001402
012700

000002
000316

004612

010000

005222

000016

5372
5373
5374
g%;g

023402
023410
023416
023420

012762
012762
005300
001370

000440
000040

5377

023422

013702

5381

023442

5378
5379
5380
5382

5383

5384
5385
5386

5387

5388
5389
5390
2;8;

023426
023432
023436

004437
010337
113703

042703

023446

012700

023454
023456
023460

005300
001375
153703

023452

023464

006303

032737

1%:

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

o
'
fi
|

CALL:

JSR
ERROR
ERROR
ERROR

ERROR

MOV

R4 ,DISEEK
&
;CS1 MISCOMPARE ERROR
5
sMR1 MISCOMPARE ERROR
6
sMR2 MISCOMPARE ERRCR

RO,=-(SP)

R3,=(SP)
#BIT1,L.CST
108
#51.%4+2 R0
1%

MOV

#66.+37. R0

ADD

#4+3+42 RO

BIT
BEQ
MOV

#CFMT,L.CST
11%
#66.+41. RO

sCOUNT FOR CLOCK THROUGH SILO LOAD

JTEST IF 22 SECTOR MODE
sNO - SKIP
JELSE CHANGE FOR 18 BIT WORDS

‘

!
B

L.DCYL,R3

JGET DESIRED CYLINDER

177400

BIC

#177400,R3

sCLEAR UNUSED BITS

000005

002266

010000

023510

013737

002260

5395

023526

004437

032356

15%:

002260

001000
032444
002250
022040

002244

MOV

#5,R0

DEC
BNF
BiSB

BIT
168 :

002220

R4 ,FSBLVV
RS.E.HR?
L.DT,R3

BEQ
BIS
JSR
MOV
MOV
MOV

JSR

R3’

RO
15%
L.DS,R3

lCFHf L.CS?
16%
#3119 ,R3
RG.FSBLVV
R3,E.MR3

(ST, E.(ST

sREVERSE ORDER OF BITS
sSTORE AS EXPECTED MR?2
sGET DESIRED TRACK/SECTOR
JSET SHIFT COUNT

JSHIFT FOR TRACK ALIGNMENT
sDEC COUNT
JLOOP UNTIL ZERO
s INSERT SECTOR NUMBER

JTEST IF 18 BIT MODE

INO = SKIP
SJELSE SET FORMAT BIT [N WDR WRD
:REV(RSE Bi7 ORDER
sSTORE AS EXPECTED MR3
;GET EXPECTED (S?

D!D FCTw MEWD,E.MRT

RS, GETREG

‘

sAND SHIFT REGISTER LOAD

MOV

JSR
MOV
MOVB

|
=il
|

002274

032444
002246
002267

;sPUSH RO ON STACK

2 :PUSH R3 ON STACK
sCHECK IF WRITE DATA
;YES = SKIP
sSET COUNT FOR READ OR WRITE CHECK

A
'
'
|

;MR3 MISCOMPARE ERRON

E
f
;
i

5393

012737

11%:
000C26
000026

STARTED (L.CS1) AND SETS THE CLOCK COUNT ACCORDINGLY.

#DMD 'MCLK ,RKMR1(R2) ;SET CLOCK
#DMD ,RKMR1(R2)
;(CLEAR CLOCK
RO
sLOOP UNTIL RO IS ZERO
1%

00140
052705
004437
010337

023516

108:

'
|
l
'

MOV
MOV
DEC
BNE

023472
023474
023500
023504

€396

002260

DIAGNOSTIC MODE IMPLIED SEEK
THE CONTROLLER IS CLOCKED THROUGH THE SEEK MESSAGES,
GETTING STATUS, AND CLEARING THE DRIVE. SINCE THIS REOUIRES &
DIFFERENT COUNT FOR WRITE DATA AND READ DATA/WRITE CHECK,
THE ROUTINE LOOKS AT THE COMMAND THAT WAS

MOV
BIT
BNE
MOV
BR

002260

94
cZl

SEQ 0104

;SET UP EXPE(TED &)

;GET Rx REGS

CZREECD RK611 DSKLS CTRL PRTS

002160

002220

023562

001236

001000

155364

155336

023614

001236

023614
023616
023624
023626
023634
023636
023644

005724
023737
001410
032777

002246

002206

001000

155304

012737

023646

001236

023646
023650
023656
023660
023666
023670
023676

005724
023737
001414
032777
001011
012737
000727

002250

002210

011000

155252

023700

001236

023700
023706
023710
023712
023716
023720
023722

032777
001001
005724
005037
012603
012600
000204

001000

155232

023724
0<3730
023734

005037
012706
000177

— N
VO W
OO

00123¢

BIT

#BIT9,aSWR

48:

MOV
RTS

R&4 ,=(SP)
R4

;SET STACK FOR RETURN TO SUB=ROUTINE

2%:

TST
CMP
BEQ
BIT
BNE

(R4)+
E.MR1,T.MR1
3%
#BIT9,aSWR
9%

;BUMP TO NEXT ERROR CALL
;CHECK MR1
;0K - SK]IP
sCHECK IF LOOP ON ERROR
JYES = SKIP
;SET ESCAPE FOR RETURN TO SUB=ROUTINE

BNE

MOV

#3%,$ESCAPE

TST
CMP
BEQ
BIT
BNE

+
(R4)
E.MR2,T.MR2
5%
#BIT9,aSWR
9%

38:

MOV
BR

5%:

6%:

8%:

9%:

TST

E.MR3,T.MR3
8%
#BIT9,aSWR
9%

BIT
BNE
TST
CLR
MOV
MOv

#BIT9,aSwWR
9%
+
(R4)

CLR
MOV

$ESCAPE
#STACK,SP

TR
T

¢
»

;CHECK IF LOOP ON ERROR
;YES = SKIP
;BUMP TO NO ERROR RETURN
;CLEAR ESCAPE

$ESCAPE
(SP)+,R3
(SP)+,R0

::POP STACK INTO R3
;:POP STACK INTO RO

;CLEAR ESCAPE
sCLEAN OFF STACK
.GO TO LOOP START

@$LPERR

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,

(ST

IS CHECKED

TR TR

;(HECK MR3

#6% ,$ESCAPE

JMP

.SBTTL

;SAME OPERATION AS ABOVE TO

(R4)
+

CMP
BEQ
BIT
BNE

RTS

7%:

:SAME OPERATION AS ABOVE

;CHECK MR?

#5% ,$ESCAPE
3

MOV

000744

-0
oo

001026

#28,SESCAPE

5442
5443
5644
5445
5446
5447
5448
5449
5450
5451

001000

[V, T
—y

5433

002204

MOv

nN
W

000761

002244

SEQ 0105

;CHECK (S1
; OK = SKIP
sSET ESCAPE TO RETURN FOR
;REMAINING TESTS
;CHECK IF LOOP ON ERROR
;YES = SKIP

I.CS1,E.CS1
2%

CMP
BEQ

OO0O

OO0

13:57

5396
5397
5398
5399
5400

14-SEP=-B81

PR TR

TIRGEC.PN

R
9
15:14
14=-SEP-81
PAGE 106
DIAGNOSTIC MODE IMPLIED SEEK

MACYT1 30(1046)

CALL:
JSR

ERROR

R4 ,DRSYNC
sMR1
10

CONTENTS

IN ERROR

INSURE

9
30(1046)
14-SEP-81
15:14 PAGE 107
DIAGNOSTIC MODE READ SYNC PATTERN (PREAMBLE)

gzg%

:®

54654

2:22

5457
56458
5459
5460
5661
5462
5463
gzgg

023740
023740
022742
023746
023752

5466
5467
5468
2298

023774
024000
024006
024014

gz;}

010046
005037
005037
012700

DRSYNC:
002326
001236
000200
002320
002322
022040

002244

004737
016237
023737
001424

031616
000026
002204

002204
002244

024016

012737

024066

001236

5473
5474

024024
024030

005037
032777

001236
001000

155102

5476
5477
5478
5479
5480

013700
006300
016037
162737

001254

5481
gzg%

024040
024044
024046
024054
024062

024062
024064

012600
000204

5484
5485
gzgg

024066
024072
024074

005237
005300
001337

002326

5488
gzgg

024076
024102

012700
012737

000177
122040

002244

5491
5492
5493
5494
5495
5496
5497
5498
gégg

024110
024114
024122
024130
024132
024140
024142
024146
024150

004737
016237
023737
001404
012737
000445
005237
005300
001357

031616
000026
002204

002204
002244

024142

001236

5501
5502
5503
5504

024152
024160
024166
024172

013737
(12737
004737
016237

002320
000001
031616
000026

5475

5505
2289

023756
023762
023766

024036

024200
024206

005037
005037
012737

001011

023737
001404

033700
000002

001236
001236

002204

3%:

4%:

5%:

6%:

002322
002320
002204

002244

;CST CONTENTS IN ERROR

IF AN ERROR IS DETECTED, THE SUBROUTINE WILL SET UP TO ABORT
TEST UNLESS LOOP ON ERROR IS SET.

MOV
(LR
(LR
Mov

RO,=(SP)
BITCNT
SESCAPE
#128. ,R0

.
;:PUSH RO ON STA(CK
;CLEAR BIT COUNT
;CLEAR ESCAPE
sSET COUNT TO CLOCK TO READ GATE

JSR
MOV
(MP
BEQ

PC,RDBIT
RKMR1(R2),T.MR1
T.MR1,E.MR1
2%

;GO READ A BIT
;GET MRI1
JCHECK IF IT IS CORRECT
sYES = SKIP

Mov

#2% ,$ESCAPE

;SET ESCAPE FOR CONTINUE TEST

(LR
BIT

$ESCAPE
#BIT9,aSWR

;CLEAR ESCAPE
;CHECK IF LOOP ON ERROR

MOV
ASL
MOV
SuB

$TESTN,RO
JELSE SET UP TO SKIP TO NEXT TEST
RO
$SWOBTB(RO) ,$ESCAPE
#2 ,$ESCAPE

MOV
RTS

(SP)+,R0O
R4

;;POP STACK INTO RO

INC
DEC
BNE

BITCNT
RO
3%

s INCREMENT THE BIT COUNT
;LOOP UNTIL READY FOR READ GATE

MoV
Mov

#127. ,R0
;SET COUNT FOR REST OF SYNC
#DMD !MEWD !ECCW!RDGATE
,E.MR1 ;SET NEW EXPECTED MR1

JSR
MOV
CMP
BEQ
MOV
BR
INC
DEC
BNE

PC,RDBIT
RKMR1(R2),T.MR1
T.MR1,E.MR1
6$
#6$ ,$ESCAPE
508
BITCNT
RO
5%

;GO READ BIT
;GET MR
sCHECK IF CORRECT
sYES = SKIp
sSET FOR CONTINUE TESTING
;GO TO ERROR EXIT
;BUMP BIT COUNTER
;LOOP UNTIL READY FOR SYNC

MOV
MOV
JSR
MOV

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

;MOV PRESENT TO PREVIOUS
sSET SYNC 1 BIT
;GO READ BIT
;GET MR1

BNE

1%:

THE PRESENT

CLR
CLR
MOV

2%:

002326

ERROR

SEQ 0106

(MP
BEQ

PR.BIT
sCLEAR PRESENT BIT
M1.BIT
;CLEAR PREVIOUS BIT
#DMD !MEWD 'ECCW,E.MRT ;SET UP EXPECTED MR1

T.MR7 ,E.MR1
7%

JYES SKIF

;CHECK IF CORRECT
3YES = SKIP

ale

MACY11

(ZRGECO Rk611 DSKLS CTRL PRTS
CIRGEC.P1
164=SEP=31 13:57

024210
024216

012737
000416

024220

024220
024224
024230
024232
024240

032356
002326

024246

004437
005237
005724
013737
023737
001266

024250
0¢4252

005724
000703

024254
024262
024264
024270
024272
024274

032777
001403
005037
000674
010446
000204

002260
002160

001236

508

;GO TO ERROR EXIT

JSR
INC
TST

R4 ,GETREG
BITCNT
(R&4) +

;GO GET RK611 REGISTERS
;BUMP BIT COUNTER
sBUMP TO NEXT ERROR CALL

(MP
BNE

T.CS1,E.C
4%

sCHECK IF CORRECT
:NO = SKIP

MOV

002220
002220

L.CST1,E.C

154656

sGET EXPECTED (S1

(R4) +

;BUMP TO NJ ERROR RETURN

BIT
BEQ

#BIT9,aSWR
51%

;TEST IF LOOP ON ERROR
;NO = SKIP

51%:

MOV
RTS

R4 ,=(SP)
R&

;SET UP STACK FOR RETURN

.SBTTL

DIAGNOSTIC MODE HEADER READ AND COMPARE

50%:

001236

gkR

;SKIP TO RETURN

?ESCAPE

THIS ROUTINE

THAT

SIMULATES

R
R

IR
Y

= =l=lel=le]=)
el=l=lR

024326
024330
024332

HEADER WORDS READ AND

CHANGE.

IS MONITORED TO INSURE

THE END OF

THE READ/COMPARE,

TRACK,

THE READING OF
THE

IT DOES

CONTENTS

THE

OF RKCS1 IS CHECKED AND THE INCREMENT OF RKDCYL AND RKDA IS
VERIFIED, IF THE INCREMENT IS GOOD, THE '‘L'' REGISTERS ARE
UPDATED TO THE NEW PACK ADDRESS IN CASE OF MULTI-SECTOR
OPERATIONS. THE BAD SECTOR ERROR DESIRED (BSEDES) SWITCH

WORDS ARE

IT IS NON-ZERO,

CHANGED ACCORDING

THE 2ND AND 3RD HEADER

TO BSEDES

CONTENTS.

CAN BE USED TO FORCE HEADER TYPE ERROR.

CALL:
JSR

R4 ,DHDCMP

MOV
MOV
MOV
MOV
CLR
MOV

RO,=(SP)
R1,=(SP)
R3,-(SP)
R5,=(SP)
BITCNT
#5,R0

;:PUSH
;:PUSH
;;PUSH
:;PUSH
;CLEAR
sSET A

BIC

#177400,R?

;CLEAR UNUSED BITS

ASL
gfig

R1
?g

ERROR
ERROR
ERROR

MOVB

1%:

THREE

TEST

THE EXPECTED HEADER IS CALCULATED FROM THE CYLINDER,

IS TESTED AND IF

TR TR PR TR TE TR

i
i

024302
024304
024306
024312
024316
024322

THE

AND SECTOR SPECIFIED IN THE ''L'' REGISTERS.
NOT

DHD(MP:

;CLEAR FOR SKIP TO NEXT

IS PART OF ALL DATA TRANSFER OPERATIONS.

3 WORDS IS DONE AND MR1

024276
024276
024300

;SET RETURN FOR CONTINUE TEST

COMPARE

i iy
i
P o o S S A

= OVONO VNS WN—=O VNS W
W

#7% ,$ESCAPE

BR
7%:

SEQ 0107

MOV

TST

001000

12
13
14

L.DT,R1

;ERROR IN MR1
;ERROR IN (S1
;ERROR IN PACK ADDRESS

;GET

RO ON STACK
R1 ON STACK
R3 ON STACK
R5 ON STACK
BIT COUNTER
SHIFT COUNT

DESIRED

TRACK

JSHIFT TRACK TO ALIGN TO
JHEADER WORD FORMAT

THIS

15:14
14=SEP-81
PAGE 108
30(1046)
DIAGNOSTIC MODE READ SYNC PATTERN (PREAMBLE)

MACY11

o v

o oo

WYWWWWWWWWWRLNTRONNNNNNIN)
D= Db a D g s a e a0
2OV NO NS W <OV
NONS W
—=O 00N\ NS WN—-=0OVe

ooy

ONON

(0 RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
P11

VI
T
v i
i
i i
(o No Yo e SV TV IV IV IV IV IV TV IV IV Do W o S

C4
eZ

5564

§565

024334

004340

153701

002266
002274
010000

052707

5566
§567
5568
§569
5570
§571

024344
024350
024356
024360
024364
024366

013700
032737
001402
052701
010003
010105

§573

024372

040103

§572

§574
§575
5576
5577
5578
gggg

024370

024374
024376
024402
024404
024410
024414

E 9
PAGE 109
DIAGNOSTIC MODE HEADER READ AND COMPARE

MACY11 30(1046)

BISB

140000

BIS

001000

RIC

BIC

002352

002352
002352

23%:

gg%}

5583
gggé

024414
024420

005037
012737

001204
122040

5586
5587
5588
5589
5590
§591
5592
5593
5594
5595
5596
gggg

024426
024432
024440
024444
024446
024450
024456
024462
024470
024476
024500
024506

012705
013737
005037
030500
0071403
012737
004737
016237
023737
001431
012737
000137

000007
002320
002320

§599
5600
5601
5602
5603
5604
gggg

024512
024516
024524
024526
0g4532
024534
024542

005037
032777
001011
013705
006305
016537
162737

001236
001000

5607
5608

024550
024550

012605

5614
56 15
5616
5617
gg;g

024§62
024566
024570
024572
024574

005237
005705
100402
006305
000716

5609
5610
5611
gg}g

024552
024554
024556
024560

002244
002322

000001
031616

002320

000026
002204

002204
002244

024562
025160

001235

154414

118
7%:

3%:

4$:

001254

033700
000002

001236
001236
5%:

012603
012601
012600
000204
002326

6%:

;

BIS
ST
BEQ
BIC
BIC
RO,

15:14

L.DS,R1

;INSERT DESIRED SECTOR

L.DCYL.RO
#CFMT,(.CS1
28
#BIT9,R1
RO,R3
R1.RS
RO,R5
R1.R3
RS.R3
BSEDES
23$
BSEDES,R1
BSEDES,R3

*GET DESIRED CYLINDER
STEST IF 22 SECTOR FORMAT
‘NO - SKIP
“ELSE SET FORMAT BIT
*COMPUTE VRC

R1,

AND R3 HAVE

:TEST IF 8SE DESIRED
‘NO - SKIP
;CLEAR BIT IN WORD 2
;CORRECT HVRC
THE EXPECTED HEADERS

CLR
MDY

$TMP1
;CLEAR A PASS COUNTER
lDMD'MEUD'ECCU'RDGATE E.MR1
;SET EXPECTED MR1

MOV
MOV
(LR
BIT
BEQ
MOV
JSR
MOV
CMP
BEQ
MOV
JMP

#BITO,RS
PR.BIT M1 .BIT
PR.BIT
RS.RO
3%
#BITO,PR.BIT
PC,RDBIT
RKMR1(R2),T.MR1
T.MR1,E.MR1
6%
#6%,8FSCAPE
50$

(LR
BIT
BNE
MOV
ASL
MOV
SUB

$ESCAPE
;CLEAR TO JUMP TO NEXT TEST
#BIT9,aSWR
;CHECK IF LOOP ON ERROR
5%
SYES = SKIP
$TESTN,RS
JGET CURRENT TEST NUMBER
RS
;AND SET UP TO ESCAPE TO NEXT
$5WO08TB(RS
, $ESCAPE
#2,$ESCAPE

MOV

SEQ 0108

#31715'BIT14,R1 :SET BS BITS

MOV
BIT
BEQ
BIS
MOV
MOV

002260

040005

050503
005737
001404
043701
043703

14=~SEP-81

;ESTABLISH BEGINNING OF DATA WORD
;STORE PREVIOUS BIT
*PRESET FOR PRESENT BIT 0
STEST IF BIT TO BE A ONE
;NO - SKIP
:-ELSE CHANGE TO ONE
;GO READ A BIT
;GET MR1 FOR TESTING
“CHECK IF CORRECT
*YES - SKIP
;SET RETURN TO CONTINUE TEST

TEST

MOV
MOV
MOV
RTS

(SP)+ ,RZ?
{SP)+,R1
(SP)+,R0O
R4

(SP)+ RS

;:POP STACK INTO RS

INC
TST
BMI
ASL
BR

BITCNT
RS
8%
RS
7%

;BUMP BIT COUNT
;CHECK IF LAST BIT OF THIS WORD
;HAS BEEN SIMULATED - YES = SK]P
JSHIFT TO NEXT BIT
;GO DO THIS BIT

::;POP STACK INTO R3
;:POP STACK INTO R1
:;POP STACK INTO RO

(e X)

CIRO6ECO RKE11 DSKLS CTRL PRTS
CIRGEC.P11
14=SEP=81 13:5

005737

001204

024576
024602
024604
024606
024612

001004
010100
005237

024614
024622
024624
024626
024632

023727
002004
010300
005237
000675

001204

024634
024642

023727
002006
005000
012705
005237
000665

001204

023727

001204

024644

024646
024652

024656
024660
024666

000705°

001436

F
9
PAGE 110
DIAGNOSTIC MODE HEADER READ AND COMPARE

30(1046)
8%:

001204

14=SEP=81

TST
BNE

9% :

001204

R1,RO

(MP

$TMPT 42

MOV
INC

R3,R0
$TMP1

(MP

$TMP1,43

MOV
INC

#BIT15,RS
$TMP1

CMP

$TMP1
, #4

BGE

000003

108 :

100000

001204

BGE
(LR

000004

16%:

$TMP1
9%

MOV

INC
BR

000002

15:14

BFQ

SEQ €109

;TEST IF PASS FOR 1ST WORD JUST DONE
JNO = SKIP
sPUT WORD 2 IN RO FOR SIMULATION

$TMP1
11%

;BUMP PASS COUNT

;JUST DONE WITH WORD 2?

10%

:NO SKIP
;PUT

3RD WORD

IN RO

:BUMP PASS COUNT

;JUST DONE WiTH WORD 3?
;NO = SKIP
;PUT IN WORD O OF GAP
;SET TO GIVE IT 1ST GAP BIT

16%
RO

;BUMP PASS (OUNT

;TEST IF READY
;YES = SKIP

12%

FOR GAP

THE FOLLOWING BLOCK OF CODE COMPUTES THE NUMBER OF (LOCK
PULSES (WHICH ARE ACTUALLY CALLS TO RDBIT) THE OPERATION

024670
024674
024702
024704
024710
024714
024720
024722
024726
024730
024734
024736
024742
024744
024750
024754
024762
024764
024770
024772
025000
025006

025010
025012
025020

000025
010000

21%:

100000

032356
002260
002160

002274
002266

CALCULATION

THE ADDRESS COUNTERS

IS BASED

IN THESE COUNTERS WHEN THE OPERATION STARTED
#25 ,R1

;PRESET R1

THE

WHAT

WAS

(L.DC AND L.DA).

FOR 24 SECTOR MODE

BIT
BEQ
MOV
BIS

#CFMT,L.CST
21$
#23 ,R1

;IS IT 24 SECTOR MODE OPERATION?
JYES = SKIP
;ELSE CHANGE FOR 22 SECTOR MODE
sSET FOR MAX HEAD OF ¢

BNE

17%

#BITO R

JTEST

TRACK/SECTOR ADDRESS WAS MAX

#BIT6,RS

(MPB

L.DS,R1

LSST gFISECTOR WAS MAX

MOV

#BIT8,RS

;SET FOR 6 BITS OF

18%:
16%:

MOV
INC

#RIT12,RS
$TMP1

sSET TO GIVE 1ST 4 BITS OF GAP

END OF BLOCK

17%:

002244

THIS

MOV

000400

010000
001204

AND RKDA).

:NO - SKIP
;SET FOR 8 BITS OF GAP TC UPDATE

000100

002266

(RKDC

MOV

002260

060023
001000
002266

BEING PERFORMED REQUIRES TO UPDATE

12%:

BNE
BR

BIC
5R

JSR
TST
MOV

(MP
BNE
TST

MOV
MOV

19%
18%
19%

GAP TO UPDATE

;BUMP PASS COUNT

.MR1
,E TE
#RDGA
7%

sCLEAR READ GATE

R4 ,GETREG
(R4)+
L.£5) .K.LS)

JGET RK611 REGISTERS

T.CS1,E.CST
4%

JSET EXPECTED CS1
sCHECK IF CORRECT
:NO SKIP

(R4)+

sBUMP TO NEXT ERROR RETURN

L.DCYL . E.DCYL
L. DA.E DA

sBUMP TO NEXT ERROR RETURN

GEY STARTING CYLINDER

TRACK/SECTOR

MACYN

YTM

CIREECD RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.PTT

O—-=0O—=2—=0O-20000ON—=OOON —=OW-—
=S AN = ON) =M
ONYNVOOONMN
OOOWW—=WOO
FOoOoONNNwVMINON

INCB
MOv

002260
13%:

002240

002200

002226

002166

002240
002226

F ol T

024512
002274
002260

26%:

001000

0N1236
024550
01044c
000204

BNE

156

‘NO = SKIP

MOV
(MPB

324 RO

“ELSE CHANGE FOR 24 SECTOR MODE
SCHECK IF SECTOR TO LARGE

CLRB
INCB
MOV
(MPB

E.DA
E.DA+1
#3,R0
E.DA+1 RO

“SET SECTOR TO 0
“BUMP TRACK
:PRESET FOR 3 TRACKS (RK06)
sCHECK IF TRACK INC TO LARGE

CLRB
INC

E.DA+1
E.DCYL

sCLEAR TRACK TO O
;BUMP CYLINDER

(MP

E.DCYL,T.DCYL

sCHECK

CYL OK

E.DA,T.DA

sCHECK

DA Ok

15%

BNE

:NO = SKIP

25%

BEQ

:NO = SKIP

JMP

MOV
MOV

E.DCYL,L.DCYL
E.DA,L.DA

sSTORE COMPUTED NEXT
sAND NEX: DA

JMP

(R4)+

;BUMP

BIT
BEQ
(LR
JMP

#BIT9,aSwR
51%
$ESCAPE
5%

sTEST IF LOOP ON ERROR
;NO - SKIP
;CLEAR TO LOOP ON ERROR

MOV
RTS

R4 ,=(SP)
Ré

;SET

THE

READING OF

IS HANDLED

TO NO ERROF

CYL

;GO TO GOOD EXIT

STACK

TO CONTINUE

GAP READ AND SYNT WRITE

THE

GAP AND WRITING OF

IN THIS ROUTINE.

RETURN

THE

SYNC

TEST

(OR PREAMBLE)

THE FIRST GAP BITS ARE PROCESSED IN THE HEADER (OMPARE
ROUTINE AND THE REMAINDER ARE PROCESSED HERE. THEN A

CHECK IS MADE THAT WRITE GATE CAME ON AND 255 "'0'* BITS
AND A SINGLE '"1"' BIT IS WRITTEN.
CALL:
JSR
ERROR

ERROR

ERROR
ROUTINE

JSR

R4 ,DWGPSN
15
:MRT
16
:CS1
7
JMRT

:CS1

IN ERROR IN READ GAP
IN ERROR AFTER READ GAP
IN ERROR IN WRITE SYNC

IN ERROR AFTER SYNC WRITE

CALLED:

PC,WRIBIT

RETURN POINT [F ERROR
NO ERROR RETURN

IN WRTB]IT

STEST IF IN 26 SECTOR MODE
SYES = SKIP

DIAGNOSTIC MODE

;BUMP SE(CTOR
:PRESET FOR 26 SEC 'TRACK

#CFMT,L.CST
13%

1ST

153752

SEG C110

BIT
BEQ

(MP

024550

025160
025166
025170
025174

025200
025202

15¢%:

N
N
&

025152
025154

E.DA
#26,RC

BNE

O~
OO
v
VO
WW
NN

5696
5697
5698
5699

AN
AT
YN N Y VWU
o T oo N
NONSNNNNSNSNNNNNNNNNNNNNNNY
CANNNUPNO PO NOPONORNUNONUND
w2 e = b s
3 -o
AV
NN WN 2OV
NNV
NN —=O O

002226
000026
010000

O0000C
QOONON
O==
= EANON
WOWOW
NN
N

5693
5694
5695

5708

700

OO
—_—
WWW
NN
WW
NN

5650
5691
5692

5700
5701
5702
5703

05237

G 9
14-SEP=81
15:14
PAGE 111
30(1046)
DIAGNOSTIC MODE MEADER READ AND (OMPARE

(=]
Vi

5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689

025026
025032
025036
025044

5676

5677

MACY1T

Ll S

TIRGECD RK61T DSKLS CTRL PRTS
14-SEP-81 13:57
CIRGEC.PN

5732
5733
5734

5735
5736
5737
5738
5739
5740
5741
5742
5743
5744

025204
(025204

025206
025212
025214

005737
001006
012700

012737
000416
105737
001006
(012700

5746
5747
5748

025250
025252
025260

5751
5752
5753
5754

:
:

.
002z66
000066
000011

h
002326

002266

000070

8%:

000405
012737
012700

002326

000005
000074

002326

025264
025272
025276
025302

012737
005037
005037
004737

022040
002320
002322
031616

002244

5756

025314

023737

002244

5758

025324

5761
5762

025340
025342

5755

5757

5759
5760
g;gz

025306

025322

025332
025334
025344

012737

000007

2;28

025242

016237

001404

012737

000513
005237

005300
001357

025346
025352
025360
025362
025366
025370
025376
025404
025404

005037
022777
001011
013700
006300
016037
162737

025406

012600
000204

5776
5777
5778

025410
025414
025416

004437
005724
013737

g;g?

025432

001345

g;g%

025434

005724

5784
5785
5786
5787

025436
025442
025446
(025452

005037
005037
005037
005037

5779

025424

000026

025346

9%:
2

00220«

10%:
1%:

002204

023737

001236
001000

2%:

001254
033700
000002

001236
201236

032356
002260
002160

002326
002322
002324
002316

3%:

L%:
002220

002220

RO,=(SP)

FOLLOWING CCDE

SEG C1N

::PUSH RO ON STACK

ADJUST

THE

COUNT FOR

THE REMAINDER OF

3R
MOV
MOV

#7 BITCNT

108
#5,BITCNT
#60. RO

END OF BLOCK

;PRESET 81T

COUNT

FOR REST OF

;PRESET BIT COUNTER FOR REST OF GAP
:SET COUNT FOR 60 BITS

MOV
(LR
CLR
JSR

#DMD 'ECCW!MEWD ,E.MR1 ;SET EXPECTED MR1
PR.BIT
:CLEAR PRESENT BIT
M1.BIT
:CLEAR PREVIOUS BIT
PC,RDBIT
:GO READ BIT

(MP

E.MR1,T.MR1

MOV

RKMR1(R2),T.MR1

;GET MR1

11$%

:YES - SKIP

#2%,$ESCAPE

GAP

:CHECK IF CORRECT
:SET RETURN TO CONT TEST

B8R
INC

50%
BITCNT

CLR
(MP
BNE
MOV
ASL
MOV
SUB

$ESCAPE
;CLEAR TO EXIT OR LOOP
;
#BIT9,aSWk
ERROR RETURN: CHECK IF LOOP ON ERROR
3%
;YES = SKIP
$TESTN,RO
:GET NUMBER OF NEXT TEST
RO
:SHIFT FOR INDEXING
$SWOBTB(RQO) ,$ESCAPE
;SET ESCAPE FOR GOT TO NEXT TEST
#2,8ESCAPE
;SET TO FIRST INST (SCOPE)

MOV
RTS

(SP)+,R0
Ré

::POP STACK INTO RO

JSR
TST
MOV

R4 ,GETREG
(R4) +
LESY RO

:GET RK611 REGS
:BUMP TO NEXT ERROR RETURN
:SET EXPECTED (S1

BNE

:NO - SKIP

(R4) +

:BUMP RETURN POINTER

CLR
(LR
(LR

BITCNT
M1.BIT
M2.KIT
P1.BIT

:CLEAR BIT COUNTER
JCLEAR ALL WRITE BIT

DEC
BNE

CMP

CLR

RO
1%

1.L51. 8.0

:BUMP BIT COUNT

:DEC LOOF COUNT
:LOOP IF NOT ZERO

JELSE SKIP

;CHECK

CS1

INDICATORS

3¢

THE GAP, THE ADJUSTMENT DEPENDS ON HOW MANY GAP BITS WERE
READ IN THE HEADER COMPARE ROUTINE FOR ADDRESS REGISTER UPDATE.
TST
L.DA
sTEST IF DESIRED TRACK/SECTOR NOW 0
BNE
8%
iNO = SKIP
MOV
#54. R0
;ELSE ADJUST COUNT FOP CYL CHANGE
MOV
#11,BITCNT
:PRESET BIT COUNT FOR REST OF GAP
K
108
TSTB
L.DS
;TEST IF NEW SECTOR IS 0
BNE
9%
JNO = SKIP
MOV
#56. ,R0
:ELSE ADJUST COUNT FOR TRACK CHANGE

MOV

11%:

153560

THE

BEQ

001236

00232¢

MOV

0006421

5765
5766
5767
5768
5769
5770
5771
5772
5773

g;;g

30(1046)
14=SEF=-81
15:14 PAGE 112
DIAGNOSTIC MODE GAP READ AND SYNC WRITE
DWGPSN:

(01004¢

025220
025226
025230
025234
025236

5745

MACY1Y

~ar
g

CIRGECD RKETT DSKLS CTRL PRTS
CIRGEC.PUT
14=SEP=-81 13:5~

CIRGEC,P11

025456

025462
025470

005037
012737
012700

002320
062040
000400

004737
000405
005237
005300
001371

030652

CLR

002244
5%:

002326

000402
010446
000204

012737
004737

000770
005237

004437

025556
025560

005724
000711

025562
025570
025572
025576
025600
025602

032777
001403
005037
000702
010446
000204

002316

SEQ Q112

PR.BIT

MOV
MOV

#DMD 'ECCW MEWD ! WRTGATE ,E.MR1

#256. ,RC

;SET COUNT

JSR
BR
INC
DEC
BNE
BR

PC,WRTBIT

;CALL

BITCNT
RO
5%
7%

;BUMP BIT COUNT
sLOOP UNTIL ALL 256
;BITS ARE WRITTEN
JWRITE

6%:

MOV
RTS

R4 ,=(SP)

:
7%

MOV

#1,P1.BIT

k&4

;SET

WRITE BIT

sERROR RETURN = SKIP TO HANDLER

ERROR HANDLER-SET

;STACK FOR REPORTING SUBSEQUENT ERRORS
;SET

SYNC BIT OF

PC,WRTBIT

;GO WRITE

002326

BITCNT

;BUMP BIT COUNT

032356

JSR

R4 ,GETREG

002160

TST
(MP
BNE

002220

001000

153350

50%:

001236
51%:
LSBTTL

2
BN
¥
%
2
%

;GET RK611

REGS

JBUMP TO NEXT ERROR RETURN

:NO - SKIP

sCHECK

;BUMP PAST

BIT
BEQ
(LR
8R

#BIT9,aSWR

;TEST

R4 ,=(SP)

sPRESET

CORRECT

;GO TO EXIT

51%
gESCAPE

ERROR RETURNS

LOOP ON ERROR

;YES - SKIP
;ELSE SET TO LOOP
STACK

FOR RETURN

IS WRITE

SIMULATED,

R4
DIAGNOSTIC WRITE DATA AND ECC ROUTINE
THE

%
%
2

025604
025604
025606
025610
025612
025614
025620

DWRITE:

DATA

THE

OQUPUT BUFFER

GENERATED AND WRITTEN,

AND THE POSTAMBLE

002326
002342

ROUTINE

CALLED:
PC,WRTBIT
JSR
RETURN POINT IF ERROR IN WRTBIT
NO ERROR RETURN FROM WRTBIT

CLR
(LR

RO,=(SP)
R!,=(SP)

R3,-(SP)
R5,=(SP)
BITCNT
ECCLO

;:PUSH RO ON STA(K
;;PUSH R1 OMN STACK

;;PUSH
:;PUSH
sCLEAR
;CLEAR

ECC

IS WRITTEN.

CALL:
R 4 ,DWRITE
JSR
7
:MR1 IN ERROR IN WRITING
ERROR
ERROR
;
;ECC ERROR IN WRITING
ERROR
2
;CST ERROR AFTER WRITE
NO ERROR RETURN

MOV
MOV
MOv
MoV

AS NEXT BIT

sERROR RETURN

(R4)+

MOV
RTS

(R4) +

T.CS1,E.CST

CIST

EXPECTED MR!

TO WRITE 256 "0

JSR
BR
INC

025554

005724
023737
001274

000001
030652

14-SEP=-81
15:14
PAGE 113
30(1046)
DIAGNOSTIC MODE GAP READ AND SYNC WRITE

MACY11

5788
5789
5790
5761

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

R3 ON STACK
R5 ON STA(K
BIT COUNTER
ECC LOW

~N
g

CZR6ECD RKE11

025664

025672
025700
025706
025712
025714
025716
025724

025736
025744
025752
025754

025760
025764
025766
025770
025772
025776
026000
026006
026010
026014
026016
026020
026022
026024
026032
026034
026040
026046
026050
026054
026056
026062
026064
026070

PAGE

114

SEQ 0113

DIAGNOSTIC WRITE DATA AND ECC ROUTINE

001220

MOV

R4 ,$TMP7

:STORE ECC ERROR RETURN

TST

002324
002322
002322

026352

005237
005701

0N2326

THE FOLLOWING CODPE SIMULATES THE WRITING OF 400 WORDS.
THE PROCEDUR”
1S TO LOAD THE CURRENT WORD INTO RS AND
TO SHIFT A BIi FROM RIGHT TO LEFT TO POINT TO THE CURRENT BIT.

3%:

CLR
MOV
MOV

$TMPS
#B1T0,R1
(R3)+,RS

;CLEAR SWITCH
:LOAD BIT POINTER
:GET A WORD FOR WRITING

MOV

M1.BIT ,M2.BIT

:SHIFT CURRENT=1

CLR
BIT

P1.BIT
R1,RS

:CLEAR NEXT BIT
TEST IF NEXT BIT IS ONE
:NO - SKIP

PC,WRTBIT

:GO WRITE BIT

MOV
MOV

BFQ
5%:
43%:

MOV

JSR

000001

002260

001214

020000

032737
001413
005737
001006
012701
005005
005137
000675

010000

002244

026374

001214
040000
001214

002260

33%

:ELSE

SET NEXT BIT

;ERROR RETURN - SKIP

L0%
13%

:YES = SKIP
:JUMP TO ERROR EXIT

INC
TST

BITCNT
R1

;BUMP BIT COUNT
:TEST BIT POINTER

ASL
CMP
BNE

R1
RO, 41
48

;ELSE SHIFT LEFT AND LOOP
:TEST IF WRITING LAST WORD
:NO - GO TO LOOP

$TMPS

TEST

BIT
BEO

#CFMT,L.CST
32%

BNE

32%

TST

32%:

#1,P1.BIT

TO CURRENT=?

:PRESENT 1O CURRENT=1
;NEXT TO PRESENT

PC,ECCGEN
;GO GENERATE ECC FOR THIS BIT
RKECPT(R2) ,T.ECPT ;GET PATTERN
E.ECPT,T.ECPT
;CHECK IF ETC CORRECT

BEQ
mp
40%:

PR.BIT,M1.BIT
P1.BIT,PR.BIT

JSR
MOV
CMP

BM]

042737
000714
000137

:STORE MR1 ERROR RETURN
:BUMP TO NEXT ERROR RETURN

:
:
:

100424

010000

(RG)+

BPL
géc

43
zgccu.e.nn1

TST

:IF NEGATIVE - SKIP

sTEST IF 22 SECTOR MODE
:NO - SKIP
IF

18 BIT SWITCH SET

:YES - SKIP
;ELSE LOOP

;ELSE TEST IF LAST BIT OF LAST WORD
:NO - GO TO LOOP
ELSE SET MRT FOR ECC WRITE

33%:

JMP

20%

7%:

BIT

#CFMT,L.CST

;TEST

22 SECTOR MODE

TST

$TMPS

JTEST

18 BIT SWITCH SET

MOV

#BIT14,R1

BEQ
BNE

CLR
COM
BR

208

RS
$TMPS
48

:NO - SKIP

:YES - SKIP
:SET

TO SUPPLY 2 MORE BITS

:MAKE SURE THEY ARE 0°'S
:SET THE 18 BIT SWITCH
;GO WRITE THE BITS

(16 & 17

T
]

:CLEAR ECC HI
:SET WORD COUNT FOR ONE SECTOR
:GET POINTER TO OUTPUT DATA

000137

100320

15:14

ECCHI
#400,R0
#OBUFF ,R3
R4, $TMF6

030462
000032
002254

006301
020027
001332
032737
001404
005737
001001
000722
005701

14=SEP=-81

(LR
MOV
MOV
MOV

000001
030652

025730
025732

30(1046)

002340
000400
050130
001216

NNNN

025652
025656
025662

WNO

025624
025630
025634
025640
025644
025646

ONNN

5844
5845
5846
5847

MACY11

CIR6ECD RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZROEC.PN

5955

001214
002340
000001
8%:

026116
026124
026132
026140
026144
026146
026150
026156
026162

002322
002320
002316
002316
000001
030652

9%:

026164
026170
026172
026174
026176
026204
026206
026210
026212
026220

002326

41%:

052737
000736

020000

026222
026226
026230
026234
026240
026244

005737
001007
005237
012701
013705
000724

001214

026246

012701

000017

026252
026260
026266
026274
026300
026304
026306
026312
026314

013737
013737
013737
005037
004737
000436
005237
005301
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

001214

#B1T0,R1

;CLEAR THE SWITCH
sDEC WORD COUNT
;1F NOT ZERO = GO GET NEXT WORD
sCLEAR FOR PASS CONTROL
;GET FIRST ECC WORD
;SET BIT POINTER

MOV

M1.BIT M2.BIT

sSHIFT BIT INDTCATORS AGAIN

(LR

P1.BIT

MOV
MOV

071214
000001
002342

R1,RS
9%

;CLEAR NEXT BIT

;TEST

IF BIT

INC

BITCNT

BMI

105

CMP
BNE

STMPS,#1
8%

BPL
BIS
BR

8$
#ECCW,E.MR?
8%

TST
BNE
INC
MOV
MOV
BR

$TMPS
11%

;TEST PASS

#BI1T0,R1
ECCLO,RS

;PRESET BiT

TST

148

$TMPS

IS ZERO

;YES = SKIP
;ELSE CHANGE TO ONE
;GO WRITE BIT

#1,P1.BIT
PC,WRTBIT

TST

002244

PR.BIT M1.BIT
P1.BIT,PR.BIT

MOV
JSR

ASL

005701

100342

MOV

RO
3%
$TMP5
ECCHI RS

(LR

DEC
BNE
(LR
MOV

BIT
BEQ

000001

$TMPS

SEQ 0114

;WRTBIT ERROR = SKIP

;BUMP BIT COUNT

sTEST BIT POINTER

;IF NEGATIVE - SKIP
:ELSE SHIFT AND LOOP

:TEST
;NO =
JELSE
;NO =
SELSE

IF WRITING LAST ECC WORD
SKIP TO LOOP
TEST IF WRITING LAST BIT OF LAST ECC
SKIP TO LOOP
SET ECCW IN MR1

;NO - SKIP

0 JUST DONE

;BUMP PASS COUNT

POINTER

;GET SECOND ECC WORD

:LOOP

11%:

MOV

#15..R1

;SET A BIT COUNT

12%:

MOV

M1.BIT M2.BIT

;SHIFT BIT INDICATORS

CLR
JSR
BR
INC
DEC
BNE

P1.BIT
PC,WRTBIT
15%
BITCNT
R1
12%

;SET ZERC FOR WRITE POSTAMBLE
;GO WRITE BIT
WRITE BIT ERROR = SKIP
;BUMP BIT CCUNT
;DEC BIT COUNT
;LOOP UNTTIL BIT COUNT O

JSR
MOV

R4 ,GETREG
$TMP7 R4

;GET RK611 REGS

002220

MOV

L.LS1.E.CS?

002220

CMP
BNE

7,051
. 5.8
18%

002324
002322
002320

002326

42%:

MOV
MOV

TST

TST
BR

PR.BIT M1.BIT
P1.BIT,PR.BIT

(R4)+

+
(R4)
19%

;SET R4 FOR ECC ERROR RETURN

;BUMP TO CS1 ERROR RETURN
;GET EXPECTED (S1
sCHECK IF CORRECT
:NO - SKIP
sBUMP TO GOOD RETURN
;G0 TO RETURN

~NN

K
9
30(1046)
14-SEP-81
15:14
PAGE 115
DIAGNOSTIC WRITE DATA AND ECC ROUTINE

30%:
31%:

001214
—l-—lo

026072
026076
026100
026102
026106
026112

MACY11

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

5956
5957
5958
5959
5960

026352
026356
026364

013704
018{?8
00

001220
025760

MACY11

001236

k9
30(1046)
14-SEP-81
15:14 PAGE 116
DIAGNOSTIC WRITE DATA AND ECC ROUTINE
138:

MOV
ggv

$TMP7 R4
:ggS.SESCAPE

;SET FOR ECC ERROR RETURN
;STORE RETURN POINT FOR NO LOOP ON ERROR

SEQ 0115

~NN

CZRGECO Rk611 DSKLS CTRL PRTS
CZRGEC.P1T
14-SEP-81 13:57

MACY11

m 9
30(1046)
14-SEP-81
15:14
PAGE 117
DIAGNOSTIC WRITE DATA AND ECC ROUTINE
MOV

$TMP6 R4

;SET FOR "R1 ERROR RETURN

20%:

MOV

$TMP6 k&

;SET FOR MR1

15%:

MOV

$TMP6 R4

;SET FOR MR1 ERROR RETURN

16%:

BIT
BEQ

#BIT9,aSWR
17%

;CHECK IF LOOP ON ERROR
:NO - SKIP

(LR
BR

$ESCAPE
19%

;CLEAR ESCAPE
JSKIP TO EXIT

MOV
RTS

R4,=(SP)
R4

;CONDITION STACK
;GO REPORT ERROR

#BIT9,aSWR
19%

$ESCAPE

;CLEAR FOR LOOP OR EXIT
sCHECK IF LOOP ON ERROR
;YES - SKIP

MoV
SUB

$TESTN,RO
;SET UP TO SKIP TO NEXT TEST
RO
$SWOBTB(R0O) ,$ESCAPE
#2,8ESCAPE

MOV
MOV

(SP) +,R5
(SP)+,R3

;:POP STACK INTO R5
;:POP STACK INTO R3

5961
ggg%

026366
026372

013704
000405

001216

14%:

5964
gggg

026374
026400

013704
000402

001216

gggg

026402

013704

001216

5969
gg;?

026406
026414

032777
001403

001000

5972
5973
5974
5975
gg;g

026416
026422

005037
000421

001236

026424
026426

010446
000204

5978
5979

026430
026434

005037
032777

5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990

026442
026444
026450
026452
026460
0264606
026466
026470
026472
026474
026476

001011
013700
006300
016037
162737

152524

17%:

001236
001000

152476

18%:

001254

033700
000002

012605
012603
012601
012600
000204

SEQ 0116

BR
BR

CLR

BIT
BNE

22{

19%:

MOV
:?g

16%

(SP)+,R1
ézP)*.RO

:;POP STACK
::POP STACK

ERROR RETURN

INTO R1
INTO RO

DIAGNOSTIC MODE READ GAP AND DATA SYNC
THE READING OF THE GAP AND READING OF THE

IS HANDLED IN THIS ROUTINE.

SYNC

(OR PREAMBLE)

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

AT THE 129TH BIT OF SYNC.;*
CALL:
JSR
R4 ,DRGPSN

ERROR
ERROR
ERROR
ERROR

15
16
3¢
33

:MR1
:CS1
sMR1

;CS1

IN
IN
IN
IN

ERROR
ERROR
ERROR
ERRCR

IN READ GAP
AFTER READ GAP
IN READ SYNC

AFTER SYNC READ

.SBTTL

16%

6010
6011

026500
026500

010046

6015
6016

026502
026506

005737
001006

DRGPSN:

002266

ROUTINE

CALLED:

JSR

PC,RDBIT

MOV

RO,=(SP)

:PUSH RO ON STACK

TST

L.DA

sTEST

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.

BNE

IF DESIRED TRACK/SECTOR NOW 0

;NO - SKIP

CZRGECC RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P11

6017
6018
6019
6020
6021
6022
6023
6026
6025

6026

285;

0265i0
026514
026522
026524
024530
026532
026536
026544
026546

026554

012700
012737
000416
105737
001006
012700
012737
000405
012737

012700

000066
000011

002326

000005

002326

026560

012737

022040

6031
6032
6033

6034
6035
6036
6037
6038
6039
6040
2825

026572
026576
026602
026610
026616
026620
026626
026630
026634
026636
026640

005037
004737
016237

023737
001404
012737
000552
005237
005300
001357
000421

002322
031616
000026

6043

026642

005037

6045
6046
6047
6048
6049
6050

026656
026656
026662
026664
026672
026700

001011
013700
006300
016037
162737

gggg

026702

000204

6054
6055
6056
6057
gggg

026704
026710
026712
026720
026726

004437
005724
013737
023737
001345

282?

026730

005724

6062
6063
gggg

026732
026736
026744

005037
012737
012700

002326
022040
000200

6066

026750

004737

031616

6068

026762

023737

002246

6044

6051

6067

286’

026566

02@646

005037

022777

002320

002244

002204
002204

026642

001236

002326

001236
001000

770

016237
001404

152264

027000

000465

END OF BLOCK

10%:
1$:

2%:

001254
033700
000002

001236
001236

032356
002260
002160

000026

4%:
002220
002220

002244

00;20‘

002204

60;9 026772 012737 027002 00123
6072

11$:

026700 012600

026754

9%:

8$:

0000670
000007

000074

MOV
MOV
BR
TSTB
BNE
MOV
MOV
BR
MOV

002326

002266

6029

6030

N 9
MACY11 30(1046)
14-SEP-81
15:14 PAGE 118
DIAGNOSTIC MODE READ GAP AND DATA SYNC

MOV

#54. RO
#11,BITCNT
108
L.DS
9%
#56.,R0
#7 BITCN
10§
#5,BITCNT

#60. R0

SEQ 0117

:ELSE ADJUST COUNT FOR CYL CHANGE
JPRESET BIT COUNT FOR REST OF GAP
;TEST IF NEW SECTOR IS 0
‘N0 = SKIP
“ELSE ADJUST COUNT FOR TRACK CHANGE
JPRESET BIT COUNT FOR REST OF GAP
:PRESET BIT COUNTER FOR REST OF GAP

“SET COUNT FOR 60 BITS

MOV

#DMD 'ECCW!MEWD,E.MRT

CLR
JSR
MOV
CMP
BEQ
MOV
BR
INC
DEC
BNF
BR

M1.BIT
*CLEAR PREVIOUS BIT
PC.RDBIT
*GO READ BIT
RKMR1(R2),T.MR1 :GET MR1

CLR

CMP

BNE
MOV
ASL
MOV
SUB

MO",

;SET EXPECTED MR1

PR.BIT

:CLEAR PRESENT BIT

E.MR1,T.MR1
118
#2$,$ESCAPE
50$
BITCNT
RO
1%
4$

:CHECK IF CORRECT
‘YES = SKIP
:SET RETURN TO CONT TEST

$ESCAPE

:BUMP BIT COUNT
*DEC LOOP COUNT
SLOOP IF NOT ZERO
“ELSE SKIP

;CLEAR TO EXIT OR LOOP

#BIT9,aSWR

;ERROR RETURN:

CHECK

LOOP ON ERROR

38
*YES = SKIP
$TESTN.RO
*GET NUMBER OF NEXT TEST
RO
JSHIFT FOR INDEXING
$SWOBTB(RO) ,$ESCAPE
:SET ESCAPE FOR GOT TO NEXT TEST
#2,$ESCAPE
;SET TO FIRST INST (SCOPE)

RTS

(SP)+,R0O

::POP STACK INTO RO

JSR
TST
MOV
CMP
BNE

R4 ,GETREG
(R4)+
L.CS1,E.CS1
T.CS1.E.CS1
2

:GET RK611 REGS
;BUMP TO NEXT ERROR RETURN
SSET EXPECTED CS1
SCHECK IF CS1 OK
‘N0 = SKIP

IST

(R4)+

;BUMP RETURN POINTER

CLR
MOV
MOV

BITCNT
;CLEAR BIT COUNTER
#DMD 'ECCW!MEWD
E.MRT :SET EXPECTED MR!
#128..R0
:SET COUNT TO READ 128 'O

JSR

PC.RDBIT

(mp

E.MR1,T.MR)

MOV

BEQ

w0,

~—

:CALL READ BI7

RKMRT(R2),T
. MR ;GFT MR! FOR TESTING

TEST IF COPRECT

208

SVES - SK]P

£0%

G0 TOD ERROR Ex]7

8008, $ESCAPE

~5€° RETURN FOR CONTINUE TFST

~NN

CIRGECOD RKk611 DSKLS CTRL PRTS
CZRGEC.P11
14=SEP-81 13:57

MACY1T

CIRGEC.P1T

14-SEP=-81

13:57

6073
6074
5075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
£086
6087
6088
6089
6090
6091
6092
6093
6094

027002
027006
027010
027012
027016
027024
027030

002326

027054

005237
005300
001357
012700
052737
004737
016237
023737
001404
012737
000437

027056
027062
027064

005237
005300
001357

002326

027066
027074
027100
027106
027114
027116
027124

012737
004737
016237
023737

000001
(31616
000026
002244

002320

012737
000413

027126

001236

6097
6098
6099
6100

027126

005237

002326

027132
027136
027140
027146

004437
005724
023737
001235

032356

027150
027152

005724
000652

027154
027162
027164
027170
027172
027174

032777
001403
005037
000643
010446
000204

6%:

23%:

002244
002204

MOV

(MP
BEQ

RKMR1(R2,,T.MR1 ;GET MR1 FOR TESTING
;TEST IF CORRECT
E.MR1,T.MR1
;YES = SKIP
23%

BIS
JSR

50%:

001236

RO
5%

;BITS ARE READ

#RDGATE ,E.MR1
PC,RDBIT

sSET COUNT FOR REST OF SYNC
;SET EXPECTED MR1
;GO CALL READ BIT

#23%,$ESCAPE

508

JELSE SET ESCAPE
;GO TO ERROR REPORT EXIT

INC
DEC

BITCNT
RO

;BUMP BIT COUNTER
;DEC BIT COUNT

mMov
JSR
MOV
(MP
BEQ

#1,PR.BIT
;SET SYNC BIT OF 1 AS NEXT BIT
;GO READ IT
PC,RDBIT
RKMR1(R2) ,E.MR1 ;GET MR1 FOR TESTING
;CHECK IF CORRECT
E.MR1,T.MR1
:YES = SKIP
248

gg:s.$ESCAPE

JELSE SET RETURN FOR CONTINUE TEST

INC

BITCNT

;BUMP BIT CCUNT

JSR

R4 ,GETREG

CMP
BNE

1.051,k.C5)
2%

;GET RK611 REGS
;JBUMP TO NEXT ERROR RETURN
sCHECK IF CORRECT

TST

002220

;BUMP BIT COUNT
;LO0P UNTIL ALL 125

#127. ,R0O

ggv

24%:

151756

SEQ O118

MOv

TST

001000

PAGE 119

BITONT

BNE

002160

8 10

INC

DEC
BNE

MOV

001236

;LOOP UNTIL ALL 127 READ

(R4)
+

(R4)+

:NO - SKIP

;BUMP PAST ERROR RETURNS

;GO TO EXIT

BIT
BEQ

#BITY,aSWk
51%

sTEST [F LOOP ON ERROR
1YES = SKIP

R4 ,=(SP)

;PRESET STACK FOR RETURN

gkR

gESCAPE

JELSE

SET

TO LOOP

MOV

LSBTTL

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

I
T
TR

THIS ROUTINE

IS USED TO SIMULATE

THE READ OR WRITE CHECK

OF DATA. THE ROUTINE WILL TRANSFER A FULL OR PARTIAL SECTOR.
THE
ARE

FIRST WORD AFTER THE CALL
TO BE TRANSFERRED.

SPECIFIES HOW MANY WORDS

R
4
B
X

RTS

IF LESS THAN A FULL SECTOR, THE ECC AT THE END
OF THE TRANSFER IS NOT CHECKED. THE ECC IS CHECKED AT THE TIME
EACH BIT IS TRANSFERED.

%
+
%

SLs.Nen,

22N

)

51%:

NOWNS

b
b e

D e

oco-ooorororrOONONMOAOMONMOMONONONOM

PNOMNLMNLMNVNLUNUND
= = i b BB
B =D O
W
20000 NN S WN=O

6103
6104
6105
6106
6107
6108

002204
002204

15:14

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.

6101
6102

027056

22%:

002244

14=SEP-81

DIAGNOSTIC MODE READ GAP AND DATA SYNC

6095
5096

000177
100000
031616
000026
002244

30(1046)

THE CONTENTS OF

LOCATION ECPOSX MUST BE LOADED WiTH THE ECC

COUNT EXPECTED AT THE END OF

THE DATA TRANSFER. THIS

CZROECD RK6E11 DSKLS CTRL PRTS

10
MACY1T1 30(1046)
14=-SEP=81
15:14 PAGE 120
DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE (HECK ROUTINE

CIRGECD RK61T DSKLS CTRL PRTS
CZRGEC.PT
14=SEP=-81 13:57

SEQ 0119

g}%g

LOADING MUST OCCUR BEFORE THE ROUTINE IS CALLED.

6131

ANOTHER LOCATION, ECPATX,

6134

A 3RD LOCATION, ECCSRC,

6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146

i
i
i
M
it
i*
i
i*
i
3
it

1, THE ECC WORDS FED INTO THE DECODER ARE TAKEN FROM THE
LAST TWO LOCATIONS OF OBUFF, IF ECCSRC IS 0O, THE COMPUTED
ECC WORDS FROM ECCHI AND ECCLO ARE USED.
CALL:
JSR
R4 ,DREAD
LENGTH OF TRANSFER
ERROR 34
:MR1 IN ERROR RFADING DATA OR ECC
ERROR 35
:ECC ERROR READING DATA
ERROR 36
:CS1 ERROR AFTER READING DATA OR ECC
ERROR 41
;ECC REGISTER INCORRECT AFTER READ ECC
ERROR 42
:ERR IN ECC PAT CALCULATION

6149

6151
6152
6153
6154
6155
6156
6157

o
i
i
i
e
i
3

JSR
R4 ,DWRTCK
LENGTH OF TRANSFER
ERROR 53
:MR1
ERROR 54
;ECC
ERROR 55
:CS1
ERROR 41
:ECC
ERROR 42
:ERR

g}gg

6135

212;

6150

i *

2}23

6160

6161

6162
6163
6164

2
i

6165
6166

027176
027176

6168
6169

027200
027202

6167

6170

6171
6172
6173
6174

6175

6176

6177
6178

6179

6180
6181
6182
6183
6184

027176

010046

027204

010546

010146
010346

027206
027210
027214
027216

012400
010437
005724
010437

027224

027222
027230
027232

027236

027240
027244
027246
027252
027256

DWRTCK:
DREAD:

ERROR 43

MOV

RO,=-(SP)

MOV

RS,=-(SP)

R1,=(SP)
R3,=(SP)

R4 ,$TMP3

010437

001212

MOV

R4, $TMP4

010437
005724
010437
012703

001222

MOV
TST
MOV
MOV

R4 ,$TMP10
(R4)+
R4,$TMP1
#0RUFF ,R3

005037

002326

IN ERROR WRITE CHK OR E(CC READ
ERROR IN WRITE CHECK
ERROR AFTER IN WRT CHK CR ECC READ
REGISTER INCORRECT AFTEF READ ECC
IN ECC PAT CALCULATION

ECCGEN

MOV

001224
050130

THE ECC

IF ECCSRC IS A

ROUTINES CALLED:

001210

005724

SPECIFIES THE SOURCE OF

RDBIT

010437

IS EXPECTED

:ERR IN ECC POS COUNTING

001220

005724

THE ECC

;ERR IN ECC POS COUNTING

MOV
MOV
TST
MOV

005724

TO O IF

WORDS TO BE USED IN CHECKING THE OPERATION.

MOV
MOV

001216

IS SET

TO BE CORRECT AND SET TO 1 IF AN ERROR IS BEING FORCED.

TST

CLR

:;PUSH RO ON STACK

:;PUSH R1 ON STACK
::;PUSH R3 ON STACK

::PUSH RS ON STACK

(R4)+ ,RC
R4 ,$TMP6
(R4)+
R4 ,$TMP7

:STORE WORD COUNT
:STORE MR1 ERROR RETURN
:BUMP TO NEXT RETURN
:STORE ECC ERROR RETURN
:STORE CS1 ERROR RETURN

(R4) +

:BUMP TO NEXT ERROR RETURN
:BUMP TO NEXT ERROR RETURN

;STORE ECC REG ERROR RETURN

(R4)+

:BUMP TO NEXT ERROR RETURN

BITCNT

:CLEAR BIT COUNTER

:STORE ECC PAT ERR RETURN
:BUMP TO NEXT ERROR RETURN
:SOTER ECC POS ERROR RETURN
;GET ADDRESS OF BUFFER

027434
027440
027442
027446
027454
027462
027464

_a_a_ao.—a_n—aowoog

PN
WN
OO
n-

OCOO0OO0O0OOOO0OO0O

—a

=0Vl
NS =2ON
WOOWW
NWwWwwniNN

027420
027426
027430

031416
000026
00204

000137

020262

027412

~ NN
OWWW
NONNN

027406

002322

000001

002320
002204
002244

00232¢

004737
016237
023737

030462
000032
002214

000137

030276

001402

(LR
BIT

027470
027474
027476
027500
027502

002326

027504
027512
027514
027520
027522
027526
027532
027536
027540

010000

#11000,8TMP1?2

;ELSE SET UP BIT COUNTS FOR 1§ BIT MODE

32%:

MOV
MOV
MOv

#10000,8TMP12
#10001,8TMP13
#10041,8TMP14

;SET BIT COUNTS FOR 16 BIT MODE

38:

MOV
Mov

#B1T0,R1

sPRESET 8IT

(%:

MOV

PR.BIT M1.BIT

JSHIFT PRESENT

BIT
BEQ

mMnv

R1,R5
]

#1,PR.BIT

sCLEAR PRESENT
;TEST IF PRESENT BIT IS ©
;YES = SKIP
JELSE INSERT A 1

JSR

PC,RDBIT

;GO READ BIT

1%:

027550

023737

44%:

2%:

30%:

001226

32%

#11001,87mMP13

(R3)+,RS

PR.BIT

BITCNT

JSR
MOV

RKECPT(R2),T. ECPT

23]
PC,ECCGEN

CMP
BEQ
JMP

T.ECPT,E.ECPT
44%

INC

BITCNT
R1
2%

POINTER

;GET DATA WORD

TST

TST
BMI
ASL

18 BIT MODE

#11041,8TMP14

JMP

BEQ

;N0 = SKIP

RKMR1(R2) ,T.MR1
T.MR1,E.MR1
(3%
9%

MOV

INTO PREVIOUS

;GET MR1

JCHECK IF CORRECT

:YES = SKIP
sTEST

FIRST BIT OF

;YES = SKIP ECC GEN
: GO GENERATE ECC
;TEST

DATA

ECC CORRECT

108

BIT
BEQ
TST
BNE

#CFMT,L.CST

MOV
MOV
COM

31$:

002326

CLR

BEQ

040000
002254
001214

005300
001302

(MP

001214

027544
027546

;CLEAR FOR 18 BIT MODE SWIT(H

MOV
MOV
MOV

BEQ

002214
002 54

001214

sCLEAR ECC COMPUTED LOCATIONS
;TEST

$%%:

002260

ECCHI
ECCLO
$TMPS

308
$TMP5
30%

#B1T14 ,R1

HIBITS,RS

$TMPS

;BUMP BIT COUNTER
;TEST

THIS WORD

JYES - SKIP

I35

DONE

JELSE SHIFT BIT POINTER

;TEST IF 18 BIT MO"E

:NO - SKIP
JTEST

PROCESSING BIT

;YES = SKIP

16 OR 17 DONE

sSET POINTER FOR 2 MORE BITS
; INSERT HI ORDER BITS
;SET 18 BIT SWITIH

B8R
CLR

$TMPS

;CLEAR 18 BIT SWITCH

DEC
BNE

;DECREMENT WORD COUNT
:IF NOT ZERO - LOOP

(MP

BITCNT,$TMP12

JELSE

TEST IF FULL SECTOR WAS READ

SEQ 0120

(HECK ROUTINE

#CFMT,L.LST

002260

002320
002320

~2OWO -

027362
027370
027374
027376
027400

D10

14=SEP-81
15:14
PA GE 121
30(1046)
DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE

CLR

OO0O0O0O0

027354
027360

Y )

027276
027304
027306
027314
027322
027330
027332
027340
027346

MACY11

CLR

OO0

027272

—a

027262
027266

o
o

6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197

NN OMNINN =RV wn
NNNS NSO O O
WWW
A WWW-—= NWNWw
NNN=NNNNONNN ~

CZRGECD RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.PN

6274
6275
6276
6277
6278
6279
6280
6281

Q27742
027746
027754
027756
027764
027772
027774
030002

005237
023737
001003

6283
6284
6285
6286
6287
6288
6289

030010
030016
030024
030032
030040
030042
030050

6291
6292
6293

030052
030060
030062

6295
6296

030066
030070

~PN NNS —=ON
W WWWOC
WW
~N NNNWWV
NN

VYW
OO
=WV

NYNONO NN
WWOWWWW
NNOCNNNTN

o [=leleleleleleBNeleliNelelelelolels]
N —=O—=0OWO—
Bt
A OOOO
N AN —=OWVWN
NN
WWN—=UVUN
W

001402
004737
016237

023737

N —

NS
WW
NW

001402
000137

33%:

002320
002320

002322

000001
0316i¢
000026
002204

002320
002204
002244

MOV

PR.BIT M1.BIT
PC,ECCGEN

;MOVE LAST DATA BIT FOR ECC GEN
sGENERATE ECC
;CLEAR FDR PASS COUNTING

JSR
(LR

MOV
MoV

(R3)+ RS
#81T0,R1

;GET ECC FROM BUFFER
;SET BIY POINTER

5%:

MOV

PR.BIT M1.BIT
PR.BIT

JSHIFT PRESENT

348

(3%

030276

020000
100000

002244
002244

000032
000030
002350
002214

002214
002212
002252
002254

002212

002252

002326

001232

002346

45%:

L6%:

(LR
BIT
BEQ

MOV

JSR

MOV

CMP
BEQ
JMP
CMP
BEQ
JSR
MOV

;GO READ BIT

T.MR1,E.MR?

sCHECK IF

RKMR1(R2) ,T.MR1

TO PREVIOUS

sGET MR

(ORRECT

38%

;YES = SKIP

BITCNT,$TMP12
49%

sTEST IF FIRST ECC BIT
:YES - SKIP ECC GEN (ALREADY DONE)

11%

PC,ECCGEN

:ELSE JUMP TO REPORT EXIT

:GENERATE ECC FOR BIT

RKECPT(R2) ,T.ECPT
;sGET PATTERN
T.ECPT,E.ECPT
sTEST If ECC PAT CORRECT

INC

BITCNT

(MP
BNE
BIC
CMP
BNE

ECC WORDS ARE

sAND SET UP PRESENT

#1,PR.BIT
PC,RDBIT

45%
108

BIS
BIC

47%:

R1,R5
348

CMP
BEQ
JMP

;YES SKIP
;ELSE GO REPORT ERROR

JBUMP EIT COUNT

BITCNT,$TMP13

sTEST

1ST BIT OF

ECC

BITCNT,$TMP14

;TEST

1ST BIT OF

POSTAMBLE

46%
#ECCW,E.MR1

47%
#ECCW,E.MR1

#RDGATE ,E.MR1

;NO = Sk]IP
JELSE CLR ECCW FOR ECC READ
:NO - SKIP
JELSE SET ECCW FOR ECC DONE
:CLEAR READ GATE

MOV
MOv
MOV
CMP
8NE
(MP

RKECPT(R2),
;STORE ACTUAL PATTERN
RKECPS(R2), T ECPS ;STORE ACTUAL POSITION
ECPOSX,E.ECPS
;GET EXPECTED POSITION FOR REPORT

BNE

20%

:NO = SKIP

(MP
BLT

BITCNT,$TMP14
4«8%
ECPATX

;TEST IF ECC DONE
IND = SKIP
JTEST IF EXPECTED ECC

488

sYES = SKIP

TST

002326

ECC JORDS

36%:

002214
002254

001232

:YES = K.P
;ELSE JUM> TO EXIT = DO NOT CHECK

MOV
Mov

030462
000032
002214

002244
001232

SEQ 0127

sTEST WHIRE

38%:

020000
002326

122

;THEY ARE IN BUFFER - SKIP
36%
ECCHI,O0BUFF+1000
;ELSE MOVE THEM INTO BUFFER
ECCLO,0BUFF+1002

001226

001230

PAGE

33%
8%

BNE

030312
002326

002326
002326

E 10

$TMPS
ECCSRC

027632
027640
027644
027646
027650
027656
027662
027670
027676
027700
027704
027712
027714
027720
027726
027734
027736

000001

15:14

BEQ
JMP

TST

6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272

002340
002342

14-SEP-81

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

027624
02762¢

002322

—

6253
6254

002320
030462
001214
002344

027564
027572
027576
027602
027606
027610
027616

6243

6244
6265
6246
6247
6248
6249
6250
6251

OO0O0O0O0OO0O
ONON
= ——
= WN=WWO o
NN ~
VWO WWW W
NNWNININ ~

030234

027556
027560

OO0
OO
WVNOWN
NN
WWW
NO'N

02
37

6261
6262

OO
O

13:5°

30(1046)

BEQ
CMP

T.ECPT,E.ECPT

20%

1,ECPS E.ECPS

$TMP14 ,BITONT

sCHECK :F CORRECT
;NO SKIP
;CHECK IF POSITION CORRECT

: (NO ERROR)
sTEST

FIRST

IS O

POSTAMBLE

BIT

CTRL PRYS

P=-81

MACY11

[T B |
o0
wr
O=s
mn

(ZR6ECO Rk611 DSK
14
CZROEC.P1T

002252

51%:

BES
JMP

006301
000137

027632

030170

005737

001214

030174

001004

030176
030202

005237
000137

001214
027624

030206
030214
030216
030220
030224
030230

023727
001007
005005
012701
005237
000137

001214

030234
030240
030246
030254
030256
030260

004437
013737
023737
001060
005724
000446

032356
002260
002220

013704
012737
000427

00121¢
027434

001236

013704
012737
000421

001220
027470

001236

48%:

100403

(MP

6%:

7%:

000001
001214
027632

8%:

WWWW

013704
012737
000405

001236

013704
012737

001236

9%:

51%
22%

;YES = SKIP
;ELSE GO REPORT
;CHECK IF POSITION CORRECT
;YES = SKIP
JELSE GO REPORT

;ELSE BUMP POS COUNT EXPECTED

;GET PATTERN
RKECPT(R2),T.E PT
RKECPS(R2),T.E PS
;GET POSITION
ECPOSX E.ECP
;GET EXPECTED POSITION
sTEST IF PATTERN CORRECT
T.ECPT,E.ECP

T.ECPS,E.ECPS

$ TMPS

BNE

INC
JMP

$TMPS
36%

;BUMP PASS COUNT

CMP
BNE
CLR

S
$TMP21
8%
RS

;TEST PASS COUNT. IF NOT 1 (NOT THE
;2ND ECC WORD JUST READ) = SKIP
;CLEAR WORD (POSTAMBLE)
;SET BIT POINTER
;BUMP PASS COUNT

23%

6%
5%

MOV

#R1T0,R1

JSR
MOV

CMP
BNE

R4 ,GETREG
L.CS1,E.CST
E.CS1,T.CS1
218

$ TMP5S
5%

;TEST IF WORD DONE

Y¢S

SKIP

JELSE SHIFT BIT POINTER
AND LOOP
:TEST PASS COUNT. IF NOT 0
: (NOT THEFIRST ECC WORD JUST WRITTE)
;=
SK

;GET RK611 REGS
JSET EXPECTED CS1
;CHECK IF CORRECT
;NO - SKIP

SRl

(R4)
+

13%

:ELSE BUMP RETURN POINTER TO NO ERR

MOV
MOV

$TMP6 R4
#4638 ,SESCAPE

;SET RETURN TOR MR1 ERR.
sSET RETURN TO CONTINUE TEST

$TMP7 R4

sSET RETURN FOR ECC ERROR
;SET RETURN TO CONTINUE TEST

MOV

1'$:

sYE3 & SKIP

ASL

10%:

52%
ECPOSX

MOV

12%

#4648, 8ESCAPE

12%

$TMP6
, R4

;SET RETURN FOR MR1 ERROR
sSET RETURN TO CONTINUE TEST

MOV

#45%, $ESCAPE

MOV
MOV

$TMP10,R4
#51% ,3ESCAPE

;GET RETURN FOR PATTERN ERROR

$TMP11,R4

JRET RETURN FOR POSITION ERROR

=13

MOV

12%

#48%,8E SCAPE

;SET RETURN TO CONTINUE TEST

;SET RETURN TO (ONTINUE

TEST

YTM

SEQ 0122

TST

001236

123

TST

BM]

INC
JMP

013704
012737
000413

PAGE

48%

JMP

000001

F 10

BEQ

JMP

030342

005701

15:14

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE (HECK ROUTINE

OO00O0O
OO0O0O0O
oo
NIWOOW
—2 VNN
W
FOONNO
OO
OW
O
NOW
PN
oY

NNNNN
-

W
~ NI NN

14=SEP=81

MOV
MOV
MOV
(MF

030156
030160
030162
030164

30(1046)

BEQ
INC

WWW

6328
6329
6330
6331
6332
6333

030104
0301
0301
0301
0301
0301
030142
0301
0301

MACY1T

6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
632¢
6323
6324
6325
6326

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

o
o
o

CIRGECO RK611
CIRGEC.P1T

6353
£35¢
6355
€356
6357
6358
6359
6360
6361

013746

032777
001407

005726
005037

030426
030434

030436
020442
030444
030452
030460

PAGE

124

SEQ 0123

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

MOV

150552

BIT
BEQ
TST

001236
13%:

OO0O0CO

G 10

15:14

14%:

$TMP11,=(SP)
#BIT9,aSWR
14%

;PREP STACK FOR RETURN

JTEST IF LOOP ON ERROR
JNO SKIP

(LR

$ESCAPE

(SP)+

;REMOVE

MOV
MOV
MOV
MOV
RTS

(SP)+ RS
(SP)+,R3
(SP)+ R
(SP)+ RO

::POP
:;POP
;;POFP
:;POP

LAST

ENTRY

FROM

STACK

sNO LOOP - SLEAR ESCAPE
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

RS
R3
R1
RO

OO0 OO0O0

030410
030414
030416
030422

14=-SEP=-B1

001212

208 :

ggv

?;QP4,R4

:GET RETURN FOR ECC ERROR

001210
001236
001000

21%:

MOV

$TMP3,R4

:GET CS1

BIT

#B]1T79,aSWR
13%

JTEST IF LOOP ON ERROR

JYES = SKIP

030406

001224
001000

30(1046)

001254

MOV

$TESTN,RO

JSET REGiSTERS TO LOOP ON ERROR OR

006300
016037
162737

000746

150504

033700

001236

000002

001236

15%:

CLR

$ESCAPE

BNE

ASL
MOV

o*
o *

it
o

#2 ,8ESCAPE
13%

ERROR RETURN

RO
JESCAPE
$SWOBTB(RO) ,$ESCAPE

SUB
BR
.SBTTL
o

;TEST

LOOP ON ERROR

TO NEXT TEST.
;SET UP TO ESCAPE

TO NEXT TEST

;ADJUST RETURN
;GO TO EXIT

GENERATE ECC WORD
EACH TIME THIS ROUTINE IS CALLED THE ECC IS CALCULATED FOR THE
NEXT BIT TO BE READ OR WRITTEN AND THE BITS PREVIOUSLY
READ OR WRITTEN

(STORED

ARE

IN ECCHI

AND ECCLO).

THE RESULTS OF

THE CALCULATION ARE PLACED IN ECCHI AND ECCLO.
BITS OF

TO RKECPT.

ECCHI

PLACED

THE LOW ORDER

IN E.ECPT FOR EASY COMPARISON

- %

oTM
>

002316
000002

002260

002340

002336

000001

1%:

002340

3s:

PC,ECCGEN

MOV
BIT

#P1.BI1T,RO
#BIT1,L.CST

BNE
MOV

128:

JSR

RTS

ECCGEN: MOV

002322

00C001

CALL:

RETURN:

TST

RO,=(SP)

12%
#M1.BIT RO

;STORE RO

;GET ADDRESS OF NEXT BIT
;CHECK IF WRITING

JYES = SKIP
JELSE CHANGE TO PRESENT BIT

{(RO)

:CHECK IF NEXT BIT 0

8IT
8EQ

#1,ECCHI
5%

JNO, CHECK IF BIT 31 =1
JNO, SET ECC XORED BIT

JSHIFT IN ECC BIT

BIT
BEQ

#1,8(CH]
3

BEQ

CLR
t1L

ECCXOR

JYES = SKIP

sCLEAR ECC XORED BIT
;CLEAR CARRY FLOP

;CHECK IF BIT 31 =1
JNC, CLEAR ECC XORED BIT

€Y

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

CIRGEC P

MACY1T

CIRGECD RRETY

TIRGEC.P1T
6409
6410
6611
66412
6413
6414
6415
6616
6617
66418
6419
6420

6421
6422
6423
6624

6425
64626
6427
6428
6429
6430

030540
030546
030550
030554
030560
030564
030566
030572
030576
030606
030610
030614

030620
030626
030632
030640
030646
030650

DSKLS CTRL PRTS

14=SEP=81

13:57

012737
000261
006037
006037
005737
001422
012746
043716

000001

042737
052637
012746
043716

042737
052637
013737
042737
012600
000207

MACY11

30(1046)

00233

5%:

020020
002342
020020
002342
002400
002340
002400
002340
002340
174000

002342

002254
002254

6632

6433

000207

6450
6451
6452

030724
030732
030734

032777
001402
000137

001000

6454
6455

030740
030746

042737
052737

014400
042000

6456
6457
6458
6459
6460
6461
6462
6463
6464

10%:

030754
030760
030762
030766
030770
030776
031002
031004
031010

b
RO
= NO PN
(o] NN NN
&S WWN—=WNWO
W
o NNO~NNNON

jelelelelelele
e
—t ol
ONY — 2N

005737
001152
005737
001023

042737
005737
001007
005737
001412

002244
000C2%
002204
002204

030724
044136

001236
001512

002000
002316

002324

JSET ECC XOR

SSET CARRY FLOP

ECCLO

MOV

#RIT13!BiT4,=(SP)

;CHECK

108

ECCLOQ(SP)
#BIT12/BIT4,ECCLO

XOR NEEDED

MOV

#BI1T10/BIT8,=(5P)

BIC

#81T10:BI1T8,ECCHI

MOV
BIC

ECCHI ,E.ECPT
#174000,E.ECPT

:DO XOR OF

ECC BITS

&7y £3

(SP)+ . ECCLO

ECCHI,

(SP)

(SP)+,ECCHI

(sP)+ R0
PC

;STORE ECC PATTERN
;MASK UNSEEN BITS
*RESTORE RO
*RETURN

SIMULATE ONE BIT OF WRITE DATA IN MAINTANENCE MODE

ONE BIT OF DATA IS WRITE SIMULATED.

e
e
o
o
;"

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 THE
ERROR OCCURRED.

o
3

RKMR1

CALL:

IS COMPUTED

JSR

RETURN: RTS
RTS

WRTRIT: BIS
MOV
MOV
CMP
BEQ
MOV
MOV
MOV

(PRECOMP ADVANCE

PC,WRTBIT

PC+2
PC

THE CONTENTS OF

AND DELAY,

MAINTENANCE

FOR NO ERROR RETURN
FOR ERROR IN MR1

#MCLK 'MEWD,E.MR1 :CREATE EXPECTED MAINT. REG. °
#DMD 'MCLK ,RKMR1(R2) :PROVIED 1ST UPWARD TRANSITION
RKMR1(R2) .T.MR1 ;STORE MAINT. REG. 1
.
E.MR1,T.MR1
*CHECK IF MAINT REG 1 CORRECT
3$
:YES, PROVIDE DOWNWARD TRANSISTION
#1%,SESCAPE
*LOAD ESCAPE FOR LOOP ON ERROR
HEMWT ,EM+2
:LOAD ERROR MESSAGE

RTS

(SP),=(SP)

:SAVE

;CHECK IF LOOP ON ERROR
:NO, CONTINUE
SYES, LOOP CN FRROR

:MR1

150206

1%:

BIT
BEQ
JMP

#SW9,aSWR
3
638

002244
002244

3$:

BIC
BIS

#MCLK'PCA'PCD,E.MR1
SMEWD 'WRTGATE.MR1

BNE

208

4
002244

:NO, RETURN

BIC
RIC

BIS

SEG 0124

031606

002320
¢
002322

#1 ,ECCXOR
ECCHI
ECCXOR

MOV
RTS

002400
000440
000026
002244

10
PA GE 125

15:14

ROR
ST

8IC

002340

030652
030660
030666
030674
030702
030704
030712
030720
030722

SEC
ROR

8IS

LSBTTL

6434
6435
6436
6437
6438
€439
6440
6441
6442
6443
6444
6445
6446
6447
6448

MOV

BEQ

643"

6449

GENERATE ECC wORD

7%:

002342
002340
002336

14=-SEP=-BT1

RETURN

INCORRECT ON UPWARD

:INITIALIZE MAINTENANCE REG.

PR.BIT

;CHECK

ONE

TST

M1.BIT

SCHECK

PREVIOUS ONE

P1.B]T

:CHECK

NEXT BIT

BNE
BIC

BNE
ST
BEQ

108
#MEWD ,E .MR1

5%
M2.RIT
108

TRANSITION

SYES, SIMULATE ONE

*YES, NO TRANSISTION
*INDICATE TRANSISTION
=

*YES, CHECK FOR PRECOMP ADVANCE
SCHECK FOR PRECOMP. ADVANCE
*NO, CLOCK IN 2ERO

CZRGECD RRETT

CIRGEC.PTY

DSKLS CTRL PRTS

14=SEP=-81 13:57

MACYYT

6665
g:g?

031012
031020

052737
00040¢

010000

66468
6669
6470
6471
6472
6473

031022
031026
031030
031036
031044
031052

005737
001003
052737
012762
016237
023737

002326
004000
000040
000026
002204

002244
000026
002204
002244

6475

031062

012737

031102

001224

64764

6476

6477
62;3
©

0371060

031070

031076
031100

001416

012737
011646
000207

0442c6

6480
6481
gzg%

031102
031110
031112

032777
001402
000137

001000

6484

031116

052737

6486
6487
5488
6489

031152
031140
031146
031150

016237
023737
001416
012737

6491

031164

6485

6450

031126

031156

gzg%

031166

6496

031170

16495
gzg?

031176
031200

072762

012737

011646

30(1046)

001402
000137

002244

5%:
108:

001572

sCHECK FOR PRECOMP. ADVANCE
sCLOCK IN ZERO
;SET PRECOMP. ADVANCE
;CLOCK IN DATA BIT
;STORE MR1
JCHECK IF MR1 CORRECT

MOV

#1188 ,SESCAPE

sLCAD ESCAPE FOR LOOP ON ERROR

MOV
RTS

(SP) ,=(5P)
PC

;SAVE RETURN
:MR1 INCORRECT

;CHECK IF LOOP CN ERROR
sNO, CONTINUE
;YES, LOOP ON ERROR

12%

REMWO , EMW+2

sYES,

CONTINUE

;LOAD ERROR MESSAGE

#5W9 ,aSWR
128
63%

002400

002244

128%:

BIS

#MCLK !MFWD ,E.MR1

;CREATE EXPECTED MAINT REG 1

000026
002244

002204
002204

031170

001236

MOV
(MP
BEQ
MOV

RKMR1(R2),T.MR1
E.MR1,T.MR1
15%
#13%,$ESCAPE

;STORE MAINT REG. 1
sCHECK IF MAINT REG. 1 CORRECT
sYES, CONTINUE
sLOAD ESCAPE FOR LOOP ON ERROR

031606

000440

044314

000026

001512

001000

MOV

147742

13%:

15%:

031606

001236
001512

6509
6510
6511
6512

031264
031272
031274
031300

032777
001145
005037
062716

001000

147646

001236
000002

18%:

€515
6516
6517
6518
6519

031306
031312
031314
031320
031322

005737
001007
005737
001415
052737

002316

20%:

17%:

002244

#DMD 'MCLK ,RKMR1(R2) ;PROVIDE IND UPWARD TRANSISITION

REMWS, EMW+2
(SP) ,=(SP)

;LOAD ERROR MESSAGE
s SAVE RETURN

RTS

BIT

#5W9,aSWR

15%
63%

sNO, CONTINUE
;YES, LOOP ON ERROR

BIS
BIC
MOV
MOV
(MP
BEQ
MOV
MOV
MOV
RTS

#MEWD E .MR1
#MCLK
,E .MR1
#DMD ,RKMR1(R2)
RKMR1(R2),T.MR1
T.MR1,E.MR1
18%
#17% ,$ESCAPE
#EMWS EMW+2
(SP) ,=(SP)
PC

JRESET TRANSITION INDICATION
;SUPPLY LAST PART OF DATA
;STORE MR1
sCHECK IF MR1 CORRECT
;YES, RETURN
;LOAD ESCAPE FOR LOOP ON ERROR
;LOAD ERROR MESSAGE
:SAVE RETURN
:MR1 INCORRECT

BIT
BNE
CLR
ADD

#SW9,aSWR
63%
$ESCAPE
#2,(SP)

sCHECK IF LLOOP ON ERROR
;YES, LOOP ON ERROR
;CLEAR ESCAPE
;ADJUST RETURN

TST
BNE
TST
BEQ
BIS

P1.BIT
30%
M1.BIT
40%
#P(A E.MR1

sCHECK IN NEXT BIT A ONE
JYES, CHECK IF PRECOMP DELAY
sCHECK FOR PRECOMP ADVANCE
:NO, CHECK FO MRI1
sSET PRECOMP. ADVINCE

BEQ
JMP

RTS

002322
004000

MOV

MoV

031264
044402

000411

(MP

M2.BIT
108
#PCA E.MR1
#DMD ,RKMR1(R2)
RKMR1(R2) ,T.MR1
T.MR1,E.MR1

BIT
BEQ
JMP

002244
002244
000026
002204
002244

03133C

TST
BNE
BIS
MOV
MOV

118:

002000
000400
000040
000026
002204

6520

;SET PRECOMP,. DELATY
;CLOCK IN ZERO

15003"

052737
042737
012762
016237
023737
001414
012737
012737
011646
000207

000207

126

#P(D,E.MRT
108

MOV

037204
031212
031220
031226
031234
031242
031244
031252
031260
031262

031304

110

PAGE

BIS
BR

BEQ

6498
6499
6500
6501
6502
6503
650«
6505
6506
2285

gg}z

15:14

SIMULATE ONE BIT OF WRITE DATA [N MAINTANENCE MODE

000207
032777

14~SEP-B81

40%

sMR1

INCORRECT

;CHECK

LOCP ON ERROR

sRETURN

s CHECK MR1Y

SEQ 0125

MACY1Y

J 10
30(1046)
14=-SEP-81
15:14 PAGE 127
SIMULATE ONE BIT OF WRITE DATA [N MAINTANENCE MODE

000400
002322

002244

30%:

010000
000040

002244
000026

40C%:

CIRGECO RKE11 DSKLS CTRL PRTS
CZRGEC.P1
14=SEP=-81 13:57
6521
6522
6523
6524

6525
6526

6527
6528
6529
6530

6531

031332
031340
031344

042737
005737
001003

031346
031354

052737
012762

031406

012737

031362
031370
031376
031400

016237
023737
001414
012737

6532
gggz

031414
031416

6535
6536
6537
6538
6539
6540
6541
6542

031420
031426
031430
031436
031444
031452
031460
031462

032777
001067
052737
012762
016237
023737
001414
012737

6544
2222

031476
031500

011646
000207

6543

031470

011646
000207

012737

000026
002204

031420

002204
002244

001236

0446224

00157

001000

147512

418%:

000400
000440
000026
002244

002244
000026
002204
002204

42%:

031502

001236

044314

BIC
TST
BNE

#MCLK,E.MR1
M1.BIT
40%

SRESET MANT CLOCK IN EXPECTED MR1
;CHECK FOR PRECOMP DELAY
sNO, CHECK MR1

MOV
(MP
BEQ
MOov

RKMR1(R2,,T.MR1
T.MR1,E.MR1
(2%
#4618 ,SESCAPE

;STORE MR1
;CHECK MR1 CORRECT
sYES, CLOCK IN REST OF BIT
sLOAD ESCAPE FOR LOOP ON ERROR

BIS
MOV

MOV

MOV
RTS

001512

031502
031510
031512
031520
031526
031534
031542
037544
031552
031560
031562

032777
001036
042737
012762
016237
023737
001414
012737
012737
011646
000207

001000

147430

002400

002244

002204

002244

031564
044402

001236
001512

6559
6560
6561
6562
gggz

031564
031572
031574
031600
031604

032777
001005
005037
062716
000207

001000

147346

001236
000002

50%:

6565
gggg

031606
031612

012706
000177

001100
147272

REMWS , EMW+2
(SP) ,=(SP)
PC

sSET SET PRECOMP DELAY
;CLOCK IN DATA BIT

;LOAD ERROR MESSAGE
; SAVE RETURN
sMR1 INCORRECT

BIT
BNE
BIS
MOV
MOV
CMP
BEQ
MOV

#5W9,aSWR
;CHECK IF LOOP ON ERROR
63%
;YES, LOOP ON ERROR
#MCLK E .MR1
;CHREATE EXPECTED MAINT. REG. 1
#DMD !MCLK ,RKMR1(R2) ;PROVIDE 2ND UPWARD TRANSITION
RKMR1(R2),T.MR1 ;STORE MAINT REG 1
E.MR1,T.MR1
;CHECK IF MAINT REG 1 CORRECT
45%
sYES, CONTINUE
#43% ,SESCAPE
:LOAD ESCAPE

MOV
RTS

(SP) ,=(SP)
PC

MOV

6547
6548
6549
6550
€551
6552
6553
6556
6555
6556
gggg

#P(CD ,E.MR1
#DMD ,RKMR1(R2)

HEMWS , EMW+2

;LOAD ERROR MESSAGE
;SAVE REURN
;MR1 INCORRECT

438:
L
45%:

BIT
BNE
BIC
MOV
MOV
CMP
BEQ
MOV
MOV
MOV
RTS

#SW9,aSWR
;CHECK IF LOOP ON ERROR
63%
;YES, LOOP ON ERROR
#MEWD !MCLK ,E.MRT ;SET TRANSISTION
#DMD ,RKMR1(R2)
;CLOCK TRANSISTION
RKMR1(R2) ,T.MR1 ;STORE MR1
T.MR1,E.MR1
sCHECK IF MR1 CORRECT
508
sYES, RETURN
#47% ,SESCAPE
;LOAD ESCAPE FOR LOOP ON ERROR
HEMWé L EMW+2
;LOAD ERROR MESSAGE
(SP) ,=(SP)
: SAVE RETURN
PC
sMRT INCORRECT

47%:

BIT
BNE
CLR
ADD
RTS

#5W9,aSWR
63%
$ESCAPE
#2,(SP)
PC

sCHECK IF LOOP ON ERROR
;YES, LOOP ON ERROR
;CLEAR ESCAPE
sADJUST RETURN
sRETURN

63%:

MOV
JMP

#STACK,SP
a$LPERR

;FORCE STACK
;LOOP ON ERROR

6568
6569
22;?

.SBTTL
;e
.

SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE
ONE BIT OF DATA IS READ SIMULATED. NO CHECKING IS
DONE BY THIS ROUTINE.

6572
6573
6574
6575
6576

it
:®
RDBIT:

CALL:
RETURN:
TST
BNE
TST

031616
031622
031624

005737
001024
005737

000040
000026

002320
002322

000026
002204

JSR
RTS
PR.BIT
108
M1.BIT

PC,RDBIT
PC

;CHECK IF ONE
sYES, SIMULATE ONE
sCHECK IF PREVIOUS ONE

SEQ 0126

MACY11

K 10
30(1046)
14=-SEP-81
15:14
PAGE 128
SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE

CZROEC.P1

14-SEP-81

13:57

6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601
6602
6603

031630
031632
031640

001404
012762
000403

000440

000026

031642
031650
031656
031664
031672

012762
012762
012762
012762
000207

001440
0000640
000440
000040

000026
000026
000026
000026

4$:

031674
031702
031710

012762
012762
012762
012762
000207

000440
000040
001449

00002%
0000¢6
000026
000026

108:

6604

031716
031724

031726
031734
031740
031742
031746
031754
031756
031760

6609
6610
6611
6612
6513
6614
6615
6616
6617

031770
037774
031776
032002
032004
032006
032010
032012

6618
6619

6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
6631
6632

5%:

031742
002310
001236
001000

001236

147164

047124
000400

INSERT TRANSITION

;CLOCK IN ZERO

MOV

#DMD !MCLK !MERD ,RKMR1(R2)

MOV

#DMD ,RKMR? (R2)

MOV

#DMD !MCLK ,RKMR1(R2)

MOV

#DMD ,RKMR1(R2)

MOV
MOV

;YES, DO NOT INSERT TRANSITION
;INSERT

#DMD ,RKMR1(R2)
;CLOCK IN ZERO
#DMD !MCLA ,RKMR1(R2)

RTS

MOV
MOV

TRANSITION

sRETURN

;CLOCK

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

RTS

IN ONE

sRETURN

.SBTTL
e

MEMORY CHECK ENABLE TRAP
IF THE PROCESSOR IN USE HAS MEMORY PARITY OPTION,

BY MEMORY PARITY ERRORS.

MEMERR:

108:

IT WILL BE ENABLED.

MOV
MOV

#108,SESCAPE
(SP) ,TRAPPC

CLR

$ESCAPE

ERROR

BIT
BNE

MoV

.SBTTL

CLEAR

1%:

sREPORT MEM PARITY ERROR

#SW9,aSWR

sCHECK IF LOOP ON ERROR

a$LPERR

INPUT BUFFER

MOV
MOV
CLR
DEC

;LOAD ESCAPE
:STORE PC

#STACK,SP

JMP

CLRIBF: MOV

THIS ROUTINE WILL PROCESS TRAPS CAUSED

15%

158:

#1BUFF RO

s CLEAR ESCAPE

;YES,
;NO,

FORCE STACK AND TRY AGAIN

RETURN

sINITIALIZE

STACK

;LOOP ON ERRCR

;GET BUFFER POINTER

R1,=(SP)
:STORE R1
#400,R7 ;SET COUNT FOR CLEAR
(RO) +
;CLEAR BUFFER WORD
R1
sDEC COUNT

BNE

;LOOP UNTIL COUNT

.SBTTL

éEDDAT

BUFFER.

THE

PATTERN SPECIFIED

THE ENTIRE BUFFER IS ALWAYS LOADED (400(8) WORDS).

MOV
MOV

BNE

RO,=(SP)
R1,-(SP)
R3,-(SP)
R5,=(SP)
#0BUFF ,RO
#400,R1
(R4) A1
2%

DEC
BNE
BR

R1
1$
13%

MOV
MOV

05C130
000400
000001

MoV
MOV
(MP
%:

(LR

(RO)+

sRESTORE R1
sRETURN

IS ZERO

MOV
(SP)+,R1
RTS
R4
BUILD DATA BUFFER

032014
032014
032016
032020
032022
032024
032030
032034
032040
032042
032044
032046
032050

:NO,

#DMD !MCLK ,RKMR1(R2)

RTI

031764

MOV

6605

6606
€607
6608

000040

BEQ

SEQ 0127

IN THE

CALL

IS LOADED

INTO THE

:;PUSH RO ON STACK
:;PUSH R1 ON STACK

:;PUSH R3 ON STACK
;;PUSH R5 ON STACK

;LOAD RO TO POINT TO BUFFER
sSET DATA LENGTH
sTEST IF PATTERN 1(ALL ZEROQ)

:NO = SKIP
JELSE

CLEAR OBUFF

DATA

[
P,

CZRGECO RKk611 DSKLS CTRL PRTS

001006
012703
010320

005301
001375
000431
021427
001003
012705
000410

032212
032214
032216
032220
032222
032224
032226

021427
001003
012705
000402
012705
012703
012520
005301
005303
001374
012705
012520
005301
001375
005724
012605
012603
012601
012600
000204

00000¢

4%:

000005
125252

000004

5%:

6%:

7%:

047024

000003

046764
046724
000020

050130

12%:

13%:

SBTTL

CMP
BNE

(R4) 44

PAT 6

sTEST

(COMPOSIT ROTATING)

IF PATTERN S5

(ALT

8 O

PATTERN &

(HI-LO FREQ MIX)

:NO - SKIP
;LOAD POINTER WITH ADD OF PAT 4

#PAT4 RS

BR
CMP
BNE
MOV
BR
MOV
MOV

108
(R4) ,#3
9%
#PAT3,RS
108
#PATZ2 RS
#16.,R3

DEC
DEC
BNE
MOV
MOV
DEC
BNE

R1
R3
11%
#0BUFF ,RS
(RS)+,(R0O)+
k1
12%

MOV
MOV
MOV
MOV
RTS

(SPJ)+,RS5
(SP)+,R3
(SP)+,R1
(SP)+,R0
R4

;TEST IF PAT 3 (MAX PRECOMP PHASE MIX)
:NO = SKiP
;LOAD POINTER WITH ADD OF PAT 3
;GO LOAD BUFFER

:GET ADDRESS OF PAT 2

sSET PATTERN LENGTH COUNT

RS)+ (RO)
+

TST

7 (ALL ONES)

JELSE LOAD OBUFF WITH PAT §

MOV

JTEST

13%

BNE

PAT

;NO SKIP

#125252,R3
R3,(RO)+
R1
6%

CMP

JELSE GET ADDRESS OF PATTERN %
;GO LOAD BUFFER

108
(R4) 45
7%

;TEST

sNO = SKIP

#PAT6 RS

MOV
MOV
DEC
BNE

SEQ 0128

;NO SKIP
JELSE SET BUFFER TO ALL ONES

(R4) ,#6

BR
CMP
BNE

129

MOV PATTERN INTO OBUFF

sDEC COUNTERS

;LOOP UNTIL PATTERN IS MOVED

sSET RS TO START OF BUFFFR
sREPEAT PATTERN

THROUGH BUFFER

;BUMP PAST PARAMETER

(R&)+

;;POP STACK INTO RS
:;POP STACK INTO R3

;;POP STACK INTO R1

;:POP STACK

INTO RO

LOAD ''L"* REGISTERS
THE
THE

"'L"

REGISTERS ARE LOADED FORM THE PARAMETERS FOLLOWING

SUBROUTINE

AND L.CS1

CALL:
JSR
.WORD
.BYTE
.WORD
.WORD

CALL.

DIAGNOSTIC MODE

IS LOADED WITH THE

COMMAND.

SET

IN L.MRI

R4 ,LOADRK
CYLINDER

;SECTOR

; TRACK

;BUFFER ADDRESS
;WORD COUNT

; COMMAND ,FORMAT ,DRIVE

TYPE ,RBUPPER BUS ADDRESS BITS

San
.

PAGE

43
#177777
,R3
R3,(RO)+
R1
3%
13%

Moy

8%:

L 10

(R&) 47

CMP

BNE
MOV
MOV
DEC
BNE
BR
MOV

047064

6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658

- a0

6640

3$:

vaN.
N, N,

005301
001375
000450
021427
001003
012705
000427
021427

177777

2%:

000007

15:14

14-SEP-81
30(1046)
BUILD DATA BUFFER

.l.l'*lll‘l.

021427
001006

6633
6634
6635
6636
6637
6638
6639

MACY11

YTM

CZRGECO RK611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.PN

1¢:14

M 10
PAGE 130

SEQ 0129

. %

]

lelolelelelelele
-]

6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705

14-SEP-81
MACY11 20! 1046)
LOAD “'L"* REGISTERS

002274
002266
002264
002262
000040
002272
002270
002260

002276

: MOV
LOADRK
MOV
MOV
MOV
MOV
CLR

CLR

MOV
RTS

.SBTTL
'-t

032274
032302
032310
032316

032354

002262
002264
002274
002266
002270
002276
002272
002260

000002
000004
000020
000006
000010
000026
000016
000000

MOV
MOV
MOV
MOV
RTS

.3BTTL
*

032404
032410
032412
032414
032420
032424
032430
032434
032436
032440
032442

GETREG:

000004
002212
002214
002206
002210

sCLEAR OFFSET
:CLEAR (S2

L.CS2

(R4)+,L.CST
R&

;LOAD (S1
sRETURN

L.WC,RKWC(R2)
:MOVE THE “'L'REGISTERS INTO
L.BA.RKBA(R2)
:CORRESPONDING RK&11 REGISTERS.
L.DCYL,RKDCYL (R2)
L.DA,RKDA(R2)

L.CS2,RKCS2(R2)

L .MR1.RKMR1(R2)
L .ASOF ,RKASOF (R2)
L.CS1,RKCST(R2)
R
THE RK611

REGISTERS EXCEPT

THE DATA BUFFER ARE

MOV

RO,=-(SP)

::PUSH RO ON STACK

MOV
MOV

R3.=(SP)
R2.RO

1:PUSH R3 ON STACK
*GET RK BASE

MOV

R1.=(SP)

*:PUSH R1

#T.CS1.R?

#11,R3

(ROJ+, (R1)+

ON STACK

*GET START OF

*SET COUNT

REGS

*GET CS1 THRU DCYL

DEC
BNE

R3
1%

:LOOP UNTIL DONE

ADD
CLR
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#4 RO
(R1)+
(RO)+,(R1)+
(RO)+.T.ECPS
(RO)+.T.ECPT
(RO)+,T.MR2
(RO) +.T.MR3
(SP)+.R3
(SP)+.R1

:SKIP OVER DB AND SPARE
*CLEAR T.D3
*STORE MR1
ECC POSITION
:
ECC PATTERN
:
MR2
MR3
*:POP STACK INTO R3
*:POP STACK INTO R1

2?!

.SBTTL

;LOAD _YLINDER
:
TRACK AND SECTOR
;
BUS ADDRESS
WORD COUNT
:SET DIAGNOSTIC MODE

STORED IN THE '‘T** REGISTERS.

MOV

1%:

(RG)+,L.DCYL
(R4)+,L.DA
(R4)+,L.BA
(R4)+,L.WC
#DMD,
L .MR1
L.ASOF

GET THE RK611 REGISTERS

ALL

MOV

002160
000011

START THE OPERATION
THE INFORMATION IN THE ‘L'’ REGISTERS ARE LOADED INTO THE
RK611 REGISTERS IN A STARAIGHT TRANSFER.

OPSTRT: MOV
MOV
MOV
MOV

032356
032356
032360
032362
032364
032366
032372
032376
032400
032402

RETURN:
RTS

ézp)¢,no

“FIRST SHALL BE

2:POP STACK

INTO RO

LAST, LAST SHALL BE FIRST'* SUBROUTINE

[
VY

(ZR6E.O RK611 DSKLS CTRL PRTS
CZREEC.P1
14-SEP=81 13:57

14-SEP-81

13:57

6786
6787

R
T

B
I
TN

6788
6789
6790
6791
6792
6793
6796
6795

032574
032576
032600

6797
6798
6799
6800

(32602
(032604
032610
032612

6796

032550
032554
032560
(032562
032566
032572

FSBLVV:

000001

2%:

032602
000340
000000
002332

000004
000006
0023324

AND VICE

CALL:
JSR

VERSA,

I.E. BIT 15

ETC.

R4 ,FSBLVV

WITH R3 LOADED WiTH THE WORD TO BE SWAPPED
RETURN:

RTS

MOV
MOV

RO, =(SP)
R1.=(SP)

::PUSH RO ON STACK
“:PUSH R1 ON STACK

MOV

#BIT0,RO

*SET FOR BIT TEST

WITH R3 SWAPPED.

MOV
BIT

BFQ
BIS
ASL

BEQ

R4, =(SP)
R4

#B1T15,R1
gg.R3

*:PUSH R4 ON STACK
*CLEAR R4 FOR SWAPPED WORD

“SET FOR BIT SET

s TEST IF BIT SET

:NO = SKIP
sSET CORRESPONDING BIT
;SHIFT FOR NEXT BIT TEST

R1.Ré
RO

sLAST BI7

TESTED = YES = EXIT

3%:

.SBTTL

CHECK FOR MEMORY (HECK ENABLE

PAR(CHK
:

MOV
MOV
MOv
CLR

#208 ,ERRVEC
#PR7 ,ERRVEC(+2
#0 ,BADPAR
MEMPAR

MOV
MOV

#1,R4
#PAR.EN, (R3)

BIS
ADD
CLC
ROL

R4 ,MEMPAR
#2 ,R3

:SET FLAG

JCHECK

(SP)+, (SP)+

;ADJUST

STA(K

;OMETK

IF FINISHED

MOV

16$%:

002332
000002

TST

SNE
8R

000002

FIRST'' SUBROUTINE

(LC
ROR
BR
MOV
MOV
MOV
g?g

172100

000001
000001

MOV
CLR

100000

PAGE 131

LAST SHALL BE

THE CONTENTS OF R3 IS SWAPPED END FOR END,

032516
032524
032532
032540
032544

ieleleleleleelolelele]

6783
6784
6785

032472
032474
032476
032500
032502
032504
032506
032510
032512
032514

010046
010146
010446
005004
012700
012701
030003
001401
050104
006300
001403
000241
006001
000770
010403
012604

6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782

032444
032444
032446
032450
032452
032454
032460
032464
032466
032470

oo
N
LT
OO
Py IO
O
ON
& e

6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766

N 10

15:14

BECOMES BIT O AND VICE VERSA,BIT 14 BECOMES BIT
R

6749

14-SEF=-81

"FIRST SHALL BE LAST,
Sesan,

6745
6746
6747
6748

30(1046)

208:

cmp

ADD
a8

1%
R4 ,R3

(SP)+ R4
(SP)+,R1
ézP)*.RO

#MEMBAS ,R3

(R3)

16%
22%

:CLEAR CARRY
sSHIFT FOR NEXT BIT SET
.LOOP
;STORED SWAPPED WORD
:;POP STACK INTO R4
::POP STACK INTO R1
::POP STACK INTO RO

sSET

VECTOR FOR MEMORY PARITY (HECK

;LOAD GOOD PARITY
sCLEAR FLAG

sLOAD REGISTER TO DETERMINE IF

;
MEMORY (HECK ENABLE AVAILIBLE
JINITIALIZE MASK
JENABLE MEMCRY (HECK

FINISHED

JNO, SET UP NEXT MEMORY PARITY MODuLF
JRESTORE TRAP (E(TOR

a; R3

SEQ 0130

~Na~a

CZROEC.P1T

MACY11

(ZRGECO RKE1T DSKLS CTRL PRTS

j=lelelelelelele]

(ZRGECO RK6T1T DSKLS CTRL PRTS
14=SEP=-81
CIRGEC.PN
37

B 11

MACY11

30(1046)
14=SEP=-81
15:14
PAGE 132
CHECK FOR MEMORY (HECK ENABLE

000004

22%:

BNE
Mov
CLR
TST

BNE

MOV

000114

(LR
RTS

25%:
.SBTTL

SEQ 0131

16%
sNO, GET NEXT LOCATION
#ERRVEC+2,ERRVF" ;RESTORE TRAP CAT(CHER
ERRVE(+2

MEMPAR

25%

sCHECK

IF MEMORY (HECK ENABLE

#MEMVE C+2 MEMVEC” ;RESTORE

MEMVEC+2
P{

ROUTINE TO SIZE MEMORY

AVAILIABLE

:YES, RETURN

TRAP CATCHER

JRETURN

::'Q.'."'..QQ.'.'Q.".t'."'.'...i....'Q'Q."..'.'...lttQ-t""'

s*CALL:

o
o

JSR

RETURN

PC,$SIZE

;*SLSTAD WILL CONTAIN:
.'
WITH KT11 OPTION

o®

WITHOUT KT11 OPTION

== LAST VIRTUAL ADDRESS OF

THE LAST BANK

== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

;*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF
;'SKTul 1S THE HEHORY MANAGEMENT KEY

;*BIT07 = 0 DON'T USE MEMORY MANAGEMENT
i
MJST BE SETUP BEFORE THE CALL

;*BIT15
= 0 DON'T HAVE MEMORY MANAGEMENT OPTION
e
DETERMINED BY ROUTINE

032652

046

$SIZE:

MOV

RO,=(SP)

:;SAVE RO ON THE STA(CK

MOv

R2,=(SP)

;:SAVE R2 ON THE STACK

MOV

000114

020116
000116
000002
000004
000006

000114
0007156

QNERRVEC+2,-(SP)

MOV

@#ERRVEC ,=(SP)

ON THE

STACK

;;SAVE R3 ON THE STACK
;sSAVE

R4 ON THE

STACK

;s SAVE MEMORY ERROR VECTOR PS & PC
;;IGNORE PARITY ERRORS WHILE
::SAVE

SP,RO

PRESENT ERROR VECTOR PS & PC

:SAVE THE STACK POINTER

THE ERRVEC PS TO THE PRESENT PS

(SP)+,a#ERRVEC+2’

;PUSH OLD PSW AND PC

ON STA(CK

;:SAVE THE PSW IN @#ERRVE(C+2

.WORD
BPL
MOV

200
::SET TO USE MEMORY MANAGEMENT
$CORE
*BR IF NO
#SKTNEX, a#ERRVEC ..ser FOR TIMEOUT

032736
000004

BIS

#100000,8KT11

033032
033030

MOV
MOV
BR

a#170200

#176200,3#$STOP - -YES-SET COMPARISON VALUE FOR 11/70
#200, a#$MAP
*:TURN ON MAP INDICATOR
$MAPRG
2160 SET UP MAP REGISTERS

CLR

ANSMAP

033032

ISTB

TST

MOV

1008:

033030
$MAP :

MOV
CMP

BR
.WORD

(PC)+

4SRO

#100$,a#ERRVEC

#6200,3#$STOP
(SP)+. (SP)+

$NOMAP
0

Bk0O1

SIZING

#3776
R1

000004

033030

MOV

;:SAVE

MOV
$KT11:

006200

R4 ,=(SP)

a#114,-(SP)
a#116,-(SP)
#116,a#114
#RT1,a#116

nov

00000¢
003776

R3,-(SP)

MOV
MOV
MOV
MOV
MOV

sSET

R1,=(SP)

::SETUP ADDRESS

*:USE MEMORY MANAGEMENT?

*KT11

ARE

YOU THERE?

--YES=-=SET KT11 KEY

+:SET FOR

TIMEOUT

1 UNIBUS MAP ARE YOU THERE?

- -COMPARISOM VALUE
““CLEAN OFF STACK

FOR 18 BIT MAPPING
.

Bk001

Bk00Q1
BKOO1
Bk001
8k001
BK0O1
8k 00?

i {MAKE SURE MAP INDICATOR TURNED OFF ~

Bk0D1

01'200 IF MAP PRESENT

BK001

6857
6858

(033032
033034

000000
012703

6860
6861
6862
6863
6864

033044
033046
033052
033054
033054

005022
012722
077304

6859

6865
6866

6867

033040

033056
033062

033066

012702

005046

012702
012703

012762

6868
6869
6870

033074
033076
033102

6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893

033110
033112
033120
033126
03313C
033132
033136
033144
033150
(33152
033160
033166
033172
033176
033202
033204
033206
033212
033216
033220
033224
033226

005042
012737
012737
000401
022626
005237
012737
105737
100006
012737
013737
005737
062712
023712
101371
011202
005037
105737
100034
005037
000431
013704

6895
6896
6897
6898
6899
6500
6901
6902
6903
6904
6905
690¢

033236
033242
033244
033246
033254
033262
033264
033270
033274
033276
033302
033304

032704
001360
000002
042737
012737
005002
062701
062702
005711
022701
001370
162701

6908
6909
6910
6911
6912

033314
033316
033322
033326
033332

6871

6894

6907

033104

033232

033310

011622
062716
077307

012742

010437

162702

010006
012637
012637
012637
012637

MACY11 30(1046)
14-SEP-81
15:14
ROUTINE TO SIZE MEMORY

000037

170200

000074

$STOP:
.WORD
$MAPRG: MOV

0
#37 ,R3

1008:

(R2) +
#74,(R2)+
R3,100%

SNOMAP:

172340
000010

0776406

17774C

000200

177600

13%:

MOV

(LR
MOV
SOB
CLR

;:START WITH MAPLO

=(SP)

;o INITIALIZE FOR "'PAR'" LOADING

#KI1PARQO,R2
#*D8,R3

MOV
ADD
SOB

(SP),(R2)+
#200, (SP)
R3,1%

Mov

#77406,-40(R2)
#177600,-(R2)

SEQ 0132

;;FILLED WITH APPROPRIATE COMPARISON VALUE
;+SET UP COUNTER
Bk001

#170200,R2

MOv
MOV

MoV

¢ 11
PAGE 133

8k 001

;sLOAD ALL MAP REGISTERS
;;WITH THE VALUE 17000000
;;D0 ALL 31 REGISTERS

8k001
Bk001
B8k001

;;ADDRESS OF FIRST 'PAR"

;;LOAD EIGHT 'PAR.'S'" AND EIGHT "PDR.'S"

::PDR = 4K, UP, READ/WRITE

;:LOAD 'PAR"
;;UPDATE FOR NEXT "PAR"’
;:LOOP UNTIL ALL EIGHT ARE LOADED

::SETUP KIPAR7 FOR 1/0

CLR
MOV
MOV
BR
¢%:
CMP
3%:
INC
MOV
TSTB
BPL
MOV
MOV
($:
TST
ADD
CMP
BHI
$rTOUT: MOV
CLR
TSTB
BPL
CLR
BR
$MMOUT: MOV

-(R2)
;:SETUP KIPAR6 FOR TESTING
#2% ,a#ERRVEC
;;CATCH TIMEOUT IF NO SR3
#60,9#SR3
; ;ENABLE 22 BIT MODE AND UNIBUS MAP
3s
;;THIS PDP=11 HAS A SR3 REGISTER
(SP)+,(SP)+
;;CLEAN OFF THE STACK=-=NG SR3
a4 SRO
;:TURN ON MEMORY MANAGEMENT
#SKTOUT ,@#ERRVEC ;;SET FOR TIME OUT
Ak SMAP
;. 1S MAP THERE?
3
s ;NO=SKIF
#SMMOUT ,a#114
;:SET UP MEMORY ERROR VECTOR
QNERRVE(C+2,a#116 ;;LOCK OUT INTERRUPTS
Bk001
a#143776
;:TRAP ON NON-EX-MEM
#40, (R2)
;:MAKE A 1K STEP
a#$STOP, (R2)
;sLAST ONE?
4%
s eNO==TRY IT
(R2) ,R2
;:GET LAST BANK+1
d#SRO
::TURN OFF MEMORY MANAGEMENT
ANSMAP
;:1S MAP THERE?
$SIZEX
; :NO=SKIP
d#SR3
;. TURN OFF MAP
$SIZEX
ak177744 R4
;s SAVE MEMORY ERROR REGISTER
#1,R4
$KTOUT

004000

BIT
BNE
RTI
$KTNEX: BIC
$CORE:
MOV
CLR
1$:
ADD
ADD
TST
CMP
BNE
$CROUT: SUB

000006
000004
000116
000114

MOV
MOV
MOV
MOV
MOV

033130
000060

000004
172516

177572
033204
033030

000004

033226
000006
143776
000040
033032

000114
9000116

177572
033030
172516

177744

MOV

000001

100000

033304

004000
000040

177776

000040

032736

000004

$512EX: SUB

RG, k177744

;:CLEAR BITS IN REGISTER

: sMEMORY TIMEOUT?
s YES=EXIT
;;MUST BE PARITY ERROR-IGNORE
#100000,8KT11
;:KT11 NON-EXISTENT
#$CROUT ,@#ERRVEC ;;SET FOR TIMEGUT
R2
;:SET UP BANK
#4000,R1
: *INCREMENT BY 1K
#40,R2
131K STEP
(R1}
*:TRAP ON TIME OUT
8177776 .R1
S:LAST ONE
1$
*INO--TRY AGAIN
#4000,R1

#40,R2

: :DROP BACK

RO, SP
S RESTORE THE STACK
(SP)+,@#ERRVEC+2" *:RESTORE ERROR VECTOR
(SP)
. Q#ERRVE(
(SP)+.a#116
: :RESTORE MEMORY ERROR vECTOR
(SP)+.a#114

8k001

8k001
Bk0OQ1
Bk001

8k001
Bk001
Bk001
Bk0O01

Bk 001

Bk001
Bk001
Bk001

8x 001

YTM

CZRGECO RK611 DSKLS CTRL PRTS
CZRGEC.PN
14-SEP-81 13:57

CIRGECO RKE11 DSKLS CTRL PRTS

TIRGEC.P1Y

6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923

14-SEP-81

13:57

MACY11 30(1046)

SEQ 0133

R1,$LSTAD
R2,$LSTBK

;sLAST ADDRESS
: sLAST BANK

MOV
:?g

(SP)+,R1
£§P)0,R0

;RESTORE R1
; sRESTORE RO

(SP)+,R4
(SP)+,Kk3
(SP)+,R2

s ;RESTORE R4
;;RESTORE R3
;sRESTORE R2

$LSTAD: .WORD
0
$LSTBK: .WORD
0
.SBTTL
SCOPE HANDLER ROUTINE
2222222232333 3233 2323332322222

Bk001

;;CONTAINS THE LAST ADDRESS
;;CONTAINS THE LAST BANK

222222222222 22

:*THIS ROUTINE CONTROLS THE LOOPING OF

SUBTESTS.

IT WILL

]

INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>}
*+AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

P*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
*SU14 [

LOOP ON TEST

:*SW09=1

LOOP ON ERROR

INHIBIT ITERATIONS

:'SH11=1

LOOP ON TEST IN SWR<7:0>

;*SW08=1

6934

6961
6962
6963
6964
6965
6966
6967
6968

D 1
PAGE 134

MOV
MOv

MOV
MOV
MOV

6924
6925
6926
6927
6928
6929
6930
6931
6932
6933

6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960

15:14

ROUTINE TC SIZE MEMORY

033362
033364

033336
033342
033346
033350
033352
033354
033356
032360
033362
033364

14=-SEP-BT

;*CALL

.¥
033366
033366
033370
033376

032777
201131

033400

000416

033402
033406
033414
033420
033424
033426
033430
033434
033436
033436
033444
033446
033450
033454
033456
033462
033464

013746
012737
005737
012637
000500
022626
012637
000440

033470
033472
033474
033500
033504
033506
033510
033514

104407

$SCOPE:

040000

145542

1%:

;:SCOPE=]0T

SCOPE
(KSWR
BIT

BNE

$OVER

;;TEST
FOR CHANCE IN SOFT=-SWR
::LOOP ON PRESENT TEST?
;:YES IF SW14=1

::1F RUNNING ON THE XOR” TESTER CHANGE

#BIT14,3SWR

;Au88START OF CODE FOR THE XOR TESTERAAARA

$XTSTR: BR
000004
033426
177060

000C04

000400

5%:

145474

BR
CMP

$SVLAD
(SP)+,(SP)+

MOV

#5% ,a#ERRVEC
a#177060
(SP)+,a#ERRVEC
(SP)+,a#ERRVEC

,,THIS INSTRUCTION TO A "NOP'' (NOP=240)
:SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
;:TIME OUT ON XOR?
;:RESTORE THE ERROR VECTOR

:2G0 TO THE NEXT TEST
:;CLEAR THE STACK AFTER A TIME OuT
;:;RESTORE THE ERROR VECTOR

;:LOOP ON THE PRESENT TEST
7%
BR
6%::#4R4REND OF CODE FOR THE XOR TESTERA#AAH

BIT
BEQ

#BI1T08,aSWR
P2

;;LO0OP ON SPEC. TEST?
;:BR IF NO

;;BRANCH IF BAD TEST NUMBER IN SWR
;sCHECK THE NUMBER IN THE SWR
:;BRANCH IF TEST NUMBER IS OUT OF RANGE

DEC
ASL
ADD
MOV
BR
TST

(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP)+,S$LPADR
$OVER
(SP) +

: :BACKUP BY ONE
;:;SCALE THE TEST NUMBER AS AN INDEX
;:FORM THE ADDRESS OF TEST POINTER
;2SET LOOP ADDRESS TO DESIRED TEST
;:GO LOOP ON THE TEST
:;CLEAN THE BAD TEST NUMBER OFF QF THE STACr

BEQ

::BR IF NO

(LR
MOVB

145464

BEQ
CMP
BLT

000036

MOV

001102

03 3700
1
001106
001103

a#ERRVEC,~-(SP)

MOV
TST
MOV

000004

MOV

8%:

2%:

TSTB

-(SP)
aSWR, (SP)
8%
#36,(SP)

(SP) ,$TSTNM

$ERFLG

::CLEAR A TEMP. LOCATION
;;PICKUP THE DESIRED TEST NUMBER

;;UPDATE THE

TEST NUMBER

: :HAS AN ERROR OCCURRED?

7014
7015

7016
7017
7018
7019
702C
7021
7022

7023
7024

737

37
37
37

W
~
— W

033744
033746
033750
(033752
033754
(33756
033760

033762
033764

001110

001106

(MPB

7%:
4%:

145352

3%:

000001

033676

001102
001102
001106
001110
001236
000001
001102
001106

001104
001234
001254

1%:

604
266

$ERMAX,SERFLG

(LRB
CLR
ER
BIT
BNE

SERFLG
$TIMES
18
#31T11,3SWR
1%

BEQ
INC
CMP
BGE

18
$1CNT
$TIMES,$ICNT
SOVER

MOV
BR

MOV
MOV
$SVLAD: INCB
MOVB
MOV
MoV

CLR

$OVER:

PAGE

38
#1709, aSwR
4$

1St

001104

E 1N

BH]
BIT
BEC

MOVB
MOV
MGV
RTI

SMXCNT: 2000.
$SWCSTBL:
WORD
.WORD

033730

033740
033742

145404

001104
001234

033704
033706
033710
033712
033714
033716
033720
033722
033724
033726

033732
033734
033736

001000

15:14
14=SEP=81
30(1046)
SCOPE HANDLER ROUTINE

001256

7010

7011
7012
7013

001103

004000

ASIV L
AV 1N D i
WO =Ow
SO0

7000
7001
7002
7003
7004
7005
7006
7007
7008
7009

001115

001103
001234

NNNOONONNN

033626
033632
033640
033644
033650
033654
033662
033670
033674
033676
033700
033700
033702

033620

NN~

6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
€999

6986

3 737

WWNO
W — = (NN

033516
033524
033526
033534
033536
033544
033546
032552
033556
033560
033566
033570
033574
033576
033602
033610
033612

OCO—=0O000O0—=—0O
— et e O
—d 2 O -

6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
€981
6982
6983
6984
6985

MACY11

.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD

SLPERR, $LPADR
$OVER

$PASS

#1,81CNT
SMXCNT, $TIMES
STSTAM
STSTNM,STESTN
(SP), $LPADR
(SP)
, SLPERR

$ESCAPE

135

SEG (134

;;HAXiFE:RORS FOR

THIS

TEST OCCURRED?

..LOOP ON ERROR?
;BR IF NO

::SET LOOP ADDRESS TO LAST SCOPE
;+IERO THE ERROR FLAG
;;CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
soINHIBIT ITERATIONS?
..BR IF

YES

;IF FIRST PASS OF PROGRAM
;
INHIBIT ITERATIONS

..INCREHENT ITERATION COUNT
;sCHECK THE NUMBER OF ITERATIONS MADE
;2BR IF MORE ITERATION REQUIRED
s;REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO

;sCOUNT TEST NUMBERS

;ssSET TEST NUMBER IN APT MAILBOX
;.SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS

;:CLEAR THE ESCAPE FROM ERROR ADDRESS
TEST

#1,SERMAX
:;ONLY ALLOW ONE(1) ERROR ON NEXT
$TSTNM,aDISPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)
;:FUDGE RETURN ALDRESS
;+FIXES PS

;sMAX. NUMBER OF ITERATIONS

TST1+2
TST2+2
TST3+2
TST4+2
TSTS5+2
TST+2
TST7+2
TST10+2
TST11+2
TST12+2
TST13+2
TST14+2
TST15+2
TST16+2
TST17+2
TST20+2
TST21+2
TST22+2
TST23+2

TST24+2
TST25+2
TST26+2
TST27+2
TST30+2
TST31+2
TST32+2
TST3349

;:STARTING ADDRESS OF

TEST

;:STARTING
;sSTARTING
;;STARTING
;sSTARTING
;;STARTING
;2STARTING

TEST
TEST
TEST
TEST
TEST
TEST

;:STARTING ADDRESS OF TEST

;:STARTING
;sSTARTING
;;STARTING
;sSTARTING
;:STARTING
;STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

NF
OF
OF
OF
OF
OF

;sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

;;STARTING ADDRESS OF TEST

;;STARTING ADDRESS OF

TEST

OF
OF
OF
OF

TEST
TEST
TEST
TEST

;;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
;STARTING ADDRESS OF

TEST
TEST
TEST

;;STARTING
;;STARTING
;3STARTING
;sSTARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS

;STARTING ADDRESS OF

::STARTING ADDRESS OF

TEST

INWNIWNWWNNONOINDPNOPONONOND)
=2 = = b e =2 2 NON N DS NN —
WRN = ONO NS WA —=ONO VNS WA —=O

S CTRL PRTS
CZRGECD Rk611 D
CZRGEC.P1
~SEP-81 13:57

7025
7026
7027

7028

033766
033770
033772

021550
022104
022460

;8%8

LSBTTL

7031
7032

033774
(34002

(032777
001405

7034

034010

001402

034016

000002

7033
7035

7036

;8%;

034004

034012

001000

105737

001103

013716

001110

145136

034020

7042

034034

034026

112737

000403

7043
7044
7045

034036
034044
034044

010046

7048

034054

001450

7046
7047

034046
034050

7049
7050

034056
034064

7053

034076

7051
7052
7054

034066
034074
034102

7055
7056
7057
7058
7059
7060

034110
0324114
034116
034122
034124
034126

7063

034140

7061
7062

TSTB

.SBTTL

034132
034134

112737

010146
105737
122737
001031

000001
0000C1
000001

MOV
RT]

000100

001271

062766

000002

017600
005737
001375
010037
105720
001376
163700
006200
010037

012737

000004

001250

$ATY3:

$ATY4L:
$ATY(:

001266

000004

001250

000004
000002

034174
000004

035044
034264

7080

034240

105737
001416
005737
001413
005737
001375
017637
062766
005237

177776

001250
000004
000002
001250
034264

11%:
001252
000004
12%:

AR AR R AR

;GO BACK TO BEGINNING OF LOOP
;RETURN

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

#1,8MFLG
#1,8FFLG

MOV

RO,=(SP)

R AR R R AR

;2TO TYPE A MESSAGE

22TO ONLY REPORT FATAL

ERRCR

;sPUSH RO ON STACK

R1,=(SP)
$MFLG

;2PUSH R1 ON STACK
2 2SHOULD TYPE A MESSAGE?

#APTENV, $ENV
3%

s sOPERATING UNDER APT?
;:1F NOT:
BR

#APTSPOOL ,$ENVM
3%

@4 (SP) RO

R RO R S

;2TO REPORT FATAL ERROR

;:IF

NOT.

; ;SHOULD SPOOL MESSAGES?
;.IF NOT:
BR

;.GET MESSAGE ADDR.

ADD

#2,4(SP)

ASR
MOV

RO
RO, $MSGLGT

;:SUB START OF MESSAGE
2sGET MESSAGE LNGTH IN WORDS
2 :PUT LENGTH IN MAILBOX

BR
MOV
ADD

5%
@4 (SP) ,4%
#2,4(SP)

;sPUT MSG ADDR IN JSR LINKAGE
:¢BUMP RETURN ADDRESS

JSR
LWORD

PC,$TYPE
0

;;CALL

TSTR
BEQ
TST
BEQ
TST
BNE
MOV
ADD
INC

$FFLG
12%
$ENV
12%
$MSGTYPE
11%
a4 (SP) ,$FATAL
#2,4(5P)

;:SHOULD REPORT FATAL ERROR?
;:1F NOT:
BR
2 RUNNING UNDER APT?
;.IF NOT:
BR
;:FINISHED LAST MESSAGE?
;o1F NOT:
WAIT
;:GET ERROR #
::BUMP RETURN ADDR.

$FFLG

;iCLEAR FATAL

TST
BNE
MOV
TSTR
BNE
SUB

MOV

001270

sNO, RETURN

sCHECK 1F ERROR OCCURED

$LPERR, (SP)

MOVB

MOV

4%:
5%:
10%:

SATY(C

MOVB

MOV

3%:

$ERFLG

B8R

BITB
BEQ

2%:

TEST 34
TEST 35
TEST 36

sCHECK IF LOOP ON ERROR
sNO RETURN

#1,8FFLG

(MPB
BNE

1%:

;sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF

#5W9,aSwh
5%

MOVB

BEQ

001264

004737
000000

105037

000004

001264

034170
034174
034176
034176
034202
034204
034210
034212
034216
034220
034226

013746

$ATY1:

TST34+2
TST35+2
TST36+2

SEG 0135

APT COMMUNICATIONS ROUTINE

MOV
T1STB

132737
001425

7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078

034234

034264

001270

000413
0174537
062766

7079

034262

000001

034146
036150
034156

034164

034264

034262

7064
7065
7066

7067

SCOP1$: BIT
BEQ

5%:

CLRB

;:BUMP RETURN ADDR.

$MSGTYPE
1%
RO, $MSGAD
(RO) +
2%
$MSGAD RO

;:SEE IF DONE W/ LAST XMISSION?
;:1F NOT:
WAIT
;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

#4 ,SMSGTYPE

;oTELL APT TO TAKE MSG.

177776 ,=(5P)

$MSGTYPE

;:PUSH 157776 ON STACK
TYPE MACRO

;:TELL APT

TO TAKE ERROR
FLAG

PAGE 136

LOOP ON INTERNAL ERROR

7040

7041

.WORD
.WORD
.WORD

BEQ

7039

F11

30(1046)
14=-SEP=-B1
15:14
SCOPE HANDLER ROUTINE

EYeN

MACYYT

CIRGECO RK61T DSKLS CTRL PRTS
CIRGEC.PN
14-SEP=-81 13:57

7081

7082

7083

7084
7085

7086

7087

7088

7089

034244
034250
034254
034256
034260
034262
034263
034264

14=SEP=-81

13:57

105037
105037

034263
034262

CLRB
CLRB

7092

.BYTE
LBYTE
BYTE
.EVEN

G 11

PAGE

$LFLG
$MFLG

TR AR RAARA AR

-THIS ROUTINE

;*SAVE

THE

(SP)+ ,R1
(SP)+ k0
PC

:;POP STACK
;:POP STACK
: sRETURN

0
0
0

AR ARARAARRRANAARRARNRRAAAAARAANAARANRRRRRR
AR RN

WILL

INCREMENT

THE

SWITCH OPTIONS PROVIDED BY

162737
117737

032777
001004
004737
104401

034466
001245

122737

000001

001270

113737

001114
034036

034406

001007
004737
000
000
000777
005777
100002

$FRROR:
:
’%:

(KSWR

cVd:

228%:

144522

2%:

000000

104407

032777

001000

144506

MOV

$TSTNM,aDISPLAY

BEG

3%:

ROUTINE

THE

ERROR

(OUNT,

ERRCR CALL

ARE:

ITEM NUMRER

;2TEST FOR CHANGE
;:SET

THE

IN SOFT=SWR

ERROR FLAG

;;DON'T LET THE FLAG GO TO ZERO
;:DISPLAY

TEST NUMBER AND ERROR fLAG

BIT

#BIT10,aSWR

TYPE

LIBELL

;:RING BELL

(SP) ,$ERRPC(

;2GET ADDRESS OF ERROR INSTRUCTION

INC

$ERTTL

SUB
MOVB

#2,8ERRPC
9$ERRPC,$ITEMB

BNE

20%

MOV

JSR
TYPE

#BIT13,aSWR

PC,TYPERR
.SCRLF

;:BELL ON ERROR?

;iNO - SKIP
;. COUNT

THE NUMBER OF

;:STRIP AND SAVE
;:SKIP

TYPEOUT

;:SKIP TYPEOUTS

#APTENV,SENV

;;RUNNING

MOVB

$ITEMB,21%

,SET

JSR

.BYTE

PC,3ATYSL
0

BYTE

aSWR

BPL

HALT
(KSWR

BIT

22%
3%

#8]170G,aSwR

ERRORS

THE ERROR
SET

ITEM CODE

::G0 TO USER ERROR ROUTINE

(MPB

BNE
21s:

THIS

; ;ERROR=EMT AND N=ERROR

$ERFLG

BIT

308

INCB

BEQ
1%:

&S
b

005237
011637

001240
001112
001116
000002
144554
020000

ERROR

164636
144€25%

)
—

104401

001102
002000

FLAG AND

LOOP ON ERROR

S®

O
= (6 0 2o)

001775
013777
032777
001402

001103

—OO
HOO

il —h

b —d

s*(ALL

ERROR

THE ADDRESS OF

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

:'%:O9=1

105237

INTO R1
INTO RO

s sMESSG. FLAG
;.L0G FLAG
;sFATAL FLAG

ERROR ITEM NUMBER AND

;*SW15=1
;=Sw13=1
;*SW10=1

104407

SEQ 0136

;sCLEAR LOG FLAG
;sCLEAR MESSAGE FLAG

:*AND GO TO TYPERR ON ERROR

;*THE

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
0344272
034424

137

APTSIZE=200
APTENV=001
APTSPOOL=100
APTZSUP=040
.SBTTL
ERROR HANDLER ROUT NE

000100
000040

7093

MOV
MOV
RTS

$MFLG:
$LFLG:
$FFLG:

7090

7091

30(1046)
14=SEP-81
15:14
APT COMMUNICATIONS ROUTINE

IN APT MODE

;iNO,SKIP APT ERROR REPORT

ITEM NUMBER AS ERROR NUMBER

;;REPORT FATAL ERROR TQ APT

;:APT ERROR LOOP
,,HALT ON EPROR

JSKIP IF CONTINUE

::HALT ON ERROR!
;oTEST FOR CHANGE

IN SOFT=SWR

;2L00P ON ERROR SWITCH SET?

CIRGEC.P1T

MACY11

(ZRGECO Rk611 DSKLS CTRL PRTS

7137
7138
7139
7140
;}2;
.

14=SEP=-81 13:57

034432
034434
034440
034444

8%2423
“

001402
01371¢
005737
001402

4%:

013716

001236

023276

034452

(022737

71645

034462

000000

7146

;147

7123

Q034460
034464

034464

001001

14-SEP-81

15:14

PAGE 138

ERROR HANDLER ROUTINE

001110
001236

7143
7144

MACY11 30(1046)

000042

L%
$LPERR, (SP)
$ESCAPE
5%

(MP

#SENDAD , a#4?2

MOV

$ESCAPE, (SP)

BNE
68:

000002

BEQ
MOV
TST
BEG

HALT

;:BR [F
;FUDGE
s CHECK
;:BR_IF

NO
RETURN FCR LOOPING
FOR AN ESCAPE ADDRESS
NONE

;:FUDGE RETURN ADDRESS FUR ESCAPE

;sACT=11 AUTO=ACCEPT?

;:BRANCH IF NO
$JVES

RTI

;s RETURN

7150
7151
;12%

SEG 0137

.SBTTL
TYPE ERROR ROUTINE
;*ENTRY JSR PC,TYPERR
;*RETURN RTS PC

R R R

. %

7154

;*THIS ROUTINE USES THE

'‘ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE WHI(H

7156
7157

;*ENTRY TO DEFINE
:*THE ERROR.

INFORMATION

CONCERNING

7155

;*ERROR IS TO BE REPORTED.

7158

7159
7160

034466
034470

7162
7163
7164
7165

034504
034510
034514
034516

7161

034476

7166

034520

7168
7169
7170

034524
034530
034534

7167

7171
7172
7173

7174
7175
7176
7177
7178
7179

7180

7181
7182
7183
7184
7185

7186
7187
7188
7189
7190
7191
7192

104413
113737

042737

113700
042700
005300
006300

006300

034536
034542
034544

104401
104401
000000

034564

034566

034570
034572
034574
034576
034602

034604
034606
034610
034612

034614
034616

034620

177400

001114
177400

00125«

TYPERR:

SAVREG
MOvVB

001254

MOvA
BIC
DEC
ASL

ASL

062700
012037
001404

001330
034544

012037
001404
104401
104401
000000

034562

1%:

001245

2%:
3%:

001245
(%:
5%:

012001

001445

005004
012000
012002
104401
112003

001245

108:

105720
005703
001416
005704
001004
013146
106402

BIC

006300

034522

034546
034552
034554
034560
034562

001102

118:

ASL

ADD
MOV
BEQ

"YPE
TYPE
.WORD

MOV
BEQ
TYPE
TYPE
.WORD

WHAT

AR R AN A AR AR

TO BE

REPORTED

AR R

$TSTINM, STESTN

;SAVE

$1TEMB,RO
#177400,R0
RO
RO

JENTER ERROR NUMEER
;CLEAR UNUSED BITS
;FORM INDEX FOR ERROR

R AR RN

TEST NUMBER FOR REPORT

;CLEAR UNUSED BiTS

TABLE

RO
RO

#$ERRTE,RO
(RO)+,2%
3%
.$CRLF

0
(RO)+,4%
5%
.SCRLF
0
(RO)+,R1

(LR
MOV
MOV
TYPE
MOVB

R4
(RO)+,RO
(RO)+,R2
.$CRLF
(RQ)+,R3

BEQ
TST
BNE
MOV
TYPOC

14%
R4

TSTB
ST

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

#1776400,8TESTN

MOV

BEQ

IT THEN USES THE ''ERROR TABLE'' ($ERRTB)

208

(RO) +
R3

12%
@(R1)+,=(SP)

;FORM ADDRESS OF ERROR ENTRY
;GET EM POINTER
;BRANCH IF THERE ISN'T ONE

;TYPE CARRIAGE RETURN LINE FEED
sTYPE ERROR MESSAGE (EM)
sEM POINTER GOES HERE
;GET DH POINTER
;BRANCH IF THERE ISN'T ONE
sTYPE CR-LF
;TYPE DATA HEADER
:DH POINTER GOES HERE
;GET DT POINTER

;BRANCH IF

THEMNE ARE NONE

;RESET INDENT SWITCH
;GET DF POINTER
:STORE NUMBER OF DH'S

;GET & STORE NUMBER OF

DATA WOR3S

;BUMP PAST FORMAT WORD
;TEST IF ANY DATA FOR THIS HEADER
;NO = SKIP PCATA PRINT
;CHECK IF INDENT WORDS
sYES, GO INDENT
sPUT FIRST DATA WORD ON STA(K
:TVME |1

[]

CIRGECD RKE11 DSKLS CTRL PRTS

CIRGEC.PUT

H 11

CIRGECD RK61Y
CIRGEC.P11

7198

7199

7200
7201

034734
034740
034742
034750
034754
034760
034.7¢2

OO0OO0CO0OOOOO0O

715¢
7197

034622
034624
034626
034632
034634
034640
034642
034644
034646
034650
034652
034656
034660
034662
034664
034670
034672
034K74
034700
034702
034704
034710
034716
034720
034726
034730

7193
7194
7195

DSK

14=

QL PRTS
13:§57

MACYTT

30(1046)

TYPE

061410

12%:

001245

13%:

005704
001402
106401

i
15%:

104401

000000
104401

000740
104414

179:
18%:

e
c0%:

005237
032777
001421
022737

00231
010000

144222

000024

00237«

104401

041413

005737
001407
012737

000042

103015

000001
0171100

001324
005000
001236
001103
001100
041345
000042

023134

000001
023106

002404

000010

:LOOP

TST

(RO)

TYPE

SPACE?2

TYPE

;TYPE SEPARATORS

LSCRLF

BES
(OM

DEC

:TYPE <CR><LF>
:CHECK

20%
(RO)+,18%
103

;NO=-BRANCH
JGET NEXT DH POINTER
;IF NO HEADER GET DATA

s INDENT?

]

;NO=BRANCH
;s INDENT

:TYPE DH
;DH POINTER GOES HERE

0
LSCRLF

TYPE

=R
RESREG
INC

10¢

;LOOP

ERRCNT

;s INCREMENT ERROR COUNT

,ABORT

TYPE

BIT
BEQ
cMP
BHIS

#SW12,aSWR
25%
#20. ,ERRCNT
25%

;CHECK IF ABORT AFTER 20 ERRORS
;NO, RETURN
:CHECK If EROR THRESHOLD EXCEEDED
;NO, RETURN

TST
BEQ

42
308

:
ERROR THRESHOLD EXCEEDED''
JCHECK IF IN CHAIN MODE
*NO, HALT

MOV

#STACK,SP

JINITIALIZE

#1,8E0PCT

FORCE

30%:
25%.

JMP
HALT
RTS

.SBTTL

(ONTROLLED PROGRAM HALT

$EOP

CLR

MOV

s«THE

FOR ABOQORT

*CLEAR ESCAPE

STYPE HALT MESS”GE
STEST IF MONITOR PRESENT
*NO SKIP
*FORCE

END OF

PROGRAM

*JUMP TO END OF

PASS

:HALT PROGRAM

START1

*RESTART

CONTINUE

ROUTINE
AR RN

TO ONE

SCLEAR STACK

$EOP

JMP

S*ROUTINE

:CLEAR ERROR FLAG

#1,$ECPCT

JMP

S$ERFLG

MOV

TYPE

sSET '611 BASE
:CLEAR SUBSYSTEM

LOPROO7
{2

BEQ

.SBITL

PASS COUNT

STACK

$BASE ,R2
#CLR,RKCS2(R2)
#STACK,SP

TYPE
ST

HALT

END OF

:BRING IN NEXT PROGRAM IN (CHAIN

$ESCAPE

CLRB

5¢:

"'PROGRAM HAS BEEN ABORTED BE CAUSE

CTRHLT: MOV
MOV

023134

INDENT

;JMORE DH'S?

LSPACEZ

TYPE
. WORD

NEXT HEADER AVAILIBLE

;NO, DO NOT CHANGE
; CHANGE INDENT

17$

TYPE

148
R4

BLE
MOV
BEQ

MOV

SEC (138

:MORE DATA WORDS
;NO=-BRANCH

TYPE

023106

139

53
13%

TST

001245

PAGE

DEC
BEQ

BEQ

0641410

15:14

ERROR ROUTINE

148%:
034672

14=SEP=-81

ROUTINE

TYPE

A A NP R TR R RN

WwiLL

AR AR ARAARRARAARRAN

ASCIZ MESSAGE.
INSERT

MESSAGE MUST

A NUMBER

NULL

AN RRR SRR

RNRR

TERMINATE WITH A O BYTE.

CHARACTERS

AFTER

LINE

FEED.

7249

:*NOTES:

7251
7252
7253
7254
7255
7256

:+1)
- *

Le0R

7261

035044

7263
7264

035052
035054

7265
7266
7267
7268
7269
7270
7271

035050

035056
035060

7275
7276
7277

035064
035072
035074
035102
035104
035110
035114
035116
03512
035126
035130

7279
7¢80
7281
7282
7283
728,
7285
7286
7287
7288
7289
7290

035134
035136
035142
035144
035150
035152
035156
035160
035162
035164
035166
035172

7292

035200

7272
7273
7274

7278

7291

7293

729
7295
729
7297
7298
7299

7300

7301
7302
7303
7304

140

SEQ 0139

USI NG A
TYPE

TRAP INSTRUCTION

.MESADR

s sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

ME SADR

7259
7262

PAGE

. %

SeCALL:

7257
7258

7260

d 1

SNULL COMTAINS THE CHARACTER TO BE USED AS THE FILLER (HARA(TER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE:
;*NOTE2:

7250

15:14

035132

035174
035204

035206

035212
035216
035220
035224
035230

105737
100002

001157

TSTB
BPL
HALT
BR

000000

000430
010046
017600

122737

000002
000001

001270

132737

000100

001271

001011

001405
010037
004737
000000
132737
001003

035114
034026

000040

MOV
MOV

(MPB
BNE
BITB
BEQ

MOV

001271

61%:
62%:

JSR
.WORD
BITA
BNE

2%:

MOVB

000002

60%:
3%:

122716

000011

4%:

TST
MOV
ADD
RTI

122716

000200

112046

001005
005726
012600
062716
000002

001430
001006
005726
105037

000755
004737
123726
001350
013746
105366
002770
004737
105337

000770

CMPB
BEQ
(MPB

BNE

TST

104401

001245

BNE

TYPE

035374
035256
001156

5%:
6%:

001154

000001

$CRLF
CLRB
BR
JSR
CMPB
BNt

MOV

7%:

035256
035374

DECB

BLT

JSR
DECB
BR

$TPFLG

;:1S THERE A TERMINAL?

;:BR IF YES

. sLEAVE

a82(SP) ,RO

;sGET ADDRESS OF ASCIZ STRING

;sHALT HERE

RO,=(SP)

#APTENV,SENV

62%

TERMINAL

;:SAVE RO
;sRUNNING

IN APT MODE

;sNO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ;.SPOOL MESSAGE TO APT
62%
::NO,GO CHECK FOR CONSOLE
RO,61%
;sSETUP MESSAGE ADDRESS FOR APT
SC.SATVB
;;SPCOL MESSAGE TO APT
s sMESSAGE ADDRESS
#APT(CSUP,$SENVM
s ;APT CONSOLE SUPPRESSED
60%
;:YES,SKIP TYPE OUT
(RO)+,=(SP)
;sPUSH CHARACTER TO BE TYPED ONTO STACK
4%
:;2BR IF IT ISN'T THE TERMINATOR
+
(SP)
;oIF TERMINATOR POP IT OFF THE STACK
(SP)+,R0
;;RESTORE RO
#2,(SF)
;:ADJUST RETURN PC
: ;RETURN
#HT, (SP)
;:BRANCH IF <HT>
8%

#CRLF, (SP)

; sBRANCH IF NOT <CRLF>

(SP)+

;:POP_

$CHARCNT

;:CLEAR CHARACTER COUNT
:2GET NEXT CHARACTER
;:G0 TYPE THIS CHARACTER
;IS IT TIME FOR FILLER CHARS.?
s.IF NO GO GET NEXT CHAR.
;.GET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
2sDOES A NULL NEED TO BE TYPED?
;:BR IF NO=-=-GO POP THE NULL OFF QOF STA(K
;260 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;.L00P

PC,$TYPEC

$FILLC,(SP)+

$NULL,=(SP)
1(SP)

PC,STYPEC

$CHARCNT
7%

<CR><LF> EQUIV

;:TYPE A CR AND LF

JHORIZONTAL TAB PROCESSOR
035232

112710

000040

8%:

MOvVA

,(SP)

;sREPLACE TAB WITH SPACE

~N~

30(1046)
14-SEP=-81
TYPE ROUTINE

(alel

CIRG6ECD RKkH11 DSKLS CTRL PRTS
14-S5EP=81 13:57
CZREEC.P1

MACY11

7305

035236

7306
7307
7308

035242
035250
035252

7310

035256

7309

035254

004737

132737
001372
005726

035256

000007

035374

000724

30(1046)
14=SEP=81
TYPE ROUTINE
9%:

JSR

$TYPE(C:

s sWAS CHAR XOFF

sMJD001

7315

035274

122716

000022

CMPB

03530C

001012

7318
7319
7320
7321
7322

035302
035306
035310
0353'¢
035320

105777
100375
117716
042716
122716

7323

7324
7325
7326
7527
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337

;g;g

035302

035324

035326
035326
035330
035330
035334
035336
035344
035352
035354
035360
035362
035370
035372
035374

035376

001366

BIC

143636
143632
177600
000021

000207

10%:

143614
000002
000015

143606
9200002

000012

000002

#177600, (SP)
102%

;:STRIP EXTRANEOUS BITS

:MJD001

;:BR IF NOT

;MJDO001
sMJD001

;:WAIT FOR CHAR

TST

(SP) +

JiFIX STACK

TSTB
BPL

a$TPS
108
2(SP) ,a%TPB
#CR,2(SP)
1%
$CHARCNT
$TYPEX
#LF,2(SP)
$TYPEX
(PC)+
0

;iWAIT UNTIL PRINTER IS READY

1%:

a$TKS
101%
a$TkB, (SP)
#177600, (SP)
#SXON, (SP)

MOVB
(MPB
BNE
CLRB

035374

;JBRANCH IF NOT AT
;:TAB STOP
;;POP SPACE OFF STACK

TSTB
BPL
MOVB
BIC
(MPB

BNE

102%:

005726
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000

8NE

101%:

;2GET NEXT CHARACTER

#SXOFF, (SP)

143656

7317

;MJDCO1
:MJDO01T
:MJDOOT

TSTB
8PL
MOV

7316

::TYPE A SPACE

;;CHAR IN KYBD BUFFER?
;:BR IF NOT
::GET CHAR

143662

177600

PC,$TYPEC

a$TKS
108
a$TkB,-(SP)

1Q5777
100022
017746

042716

SEQ 0140

#7 ,$CHARCNT
9%
(SP)+

035256
035262
035264

035270

K 11
PAGE 141

BITB
BNE
TST

7311
7312
7313

7314

15:14

(MPB

BEQ
INCB
$CHARCNT: .WORD

$TYPEX: RTS

101%

::GET CHAR
::STRIP IT
JsWAS IT XON?

JiBR IF NOT

;MJDO01

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
;;BRANCH IF NO
;YES==CLEAR CHARACTER COUNT

JIEXIT

;:1S CHARACTER A LINE

.SBTTL

7342

"..""'.."'........".""..""...'.Q‘...""'."".'...""..

7343

**THIS ROUTINE

;gzg

'%;ZPOS°--ENTER HERE

;*0CTAL
;%

7347

7349
7350

o*
i

7348

(ASCII)

(ASCII) AND TYPE

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
NUMBER AND

TYPE

TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

MOV

NUM,-(SP)

;sNUMBER TO BE TYPED

.BYTE
BYTE

N
M

2iN=1
;:M=1

TYPOS

;;CALL

FOR

TYPEOUT

T0O 6 FOR NUMBER OF DIGITS TO TYPE
0R 0

7351

;gg%

§e

7354
7355
7356
7357

;*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
*+$TYPOS OR $TYPOC
s*CALL:
I
MOV
NUM, = (SP)
;sNJMBER TO BE TYPED

7360

S«$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;ggg

:®

:,1=TYPE

LEADING

ZEROS

2 :0=SUPPRESS LEADING ZEROS

TYPON

:MJDO01T

FEED?

;gzg

7344

:MJDOO1
:MJD00?
:MJDO01

;:BRANCH IF YES
;sCOUNT THE CHARACTER
;sCHARACTER COUNT STORAGE

BINARY TO OCTAL

sMJDO01T
sMJD001T
;MJDO001
:MJD001
:MJDOO1

;:CALL FOR TYPEOQUT

~NN

MACYTT

CIRG6ECD RK6E11 DSKLS CTRL PRT 2
(ZR6EC.P1T
14-SEP-81 13:5

7361
7362

7363
7364
7365

7391
7392
7393
7394
7395
7396
7397

; sNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

$TYPOS: MOV
MOvVB
MOVB
ADD
BR
$TYPOC: MOVB

a(SP) ,=(SP)
1(SP) ,$0FILL
(SP)+,$0MODE
+1
#2,(SP)
$TYPON
#1,80FILL

;;PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
: :NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

$TYPON: MOVB
MOV

#5,80CNT
R3,=(SP)

035625

000006
035624
035623
000012
1%:

2%:

3%:

177770

4%:

000060
200040
035620
035620
035622

7399
7400
7401
7402
7403
7404
7405
7406
7407
7408
7409
7410
7411
7412
7413
7414

5%:
7%:

00C002

ROL

CLR

BR
ROL

ROL
ROL

MOV
ROL
DECB
BPL
BIC
BNE

8%:

035624

0
000000

R3
3%
RS

RS
RS

;SET

THE ZERO FILL

SWITCH

ssSET FOR SIX(6) DIGITS
;sSET THE ITERATION COUNT
;:SAVE R3

;:SAVE R4

;sSAVE RS

;:GET THE NUMBER OF DIGITS TO TYPE

;sSUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
;.GET THE ZERO FilLL SWITCH
;sPICKUP THE

INPUT NUMBER

;:CLEAR THE OUTPUT WORD
;sROTATE MSB INTO *‘C*'

;:G0 DO MSB

;2FORM THIS DIGIT

RS5.R3
R3
$OMODE
7%
#177770,R3
4%

::TEST FOR O

;:BR IF YES

BIS
BIS
MOVB

#'0,R3
#' R3
R3,8%

s sMAKE THIS DIGIT ASCII

BGT
BLT

2%
6%

BR
MOV

2%
(SP) +,RS

BEQ
INC

TYPE
DECB

MOV

MOV
MOV

000004

R4 ,=(SP)

R5,=(SP)
$COMODE +1,R4
R4
#6 R4
R4 ,$OMODE
$OFILL
R4
12(SP) ,RS

INC

6%:

#6,$0MODE
+1

MOV
MOVB
NEG
ADD
MOVB
MOVB
MoV

TST

7398

7415
7416

NUM,=(SP)

MOVB

035624

SEG 0141

;*CALL:
I
MOV
o*
TYPOC

MOV

=
s a O
o NOONSNOON

7390

000001
000006
000065

n NN

7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389

000000
000001
035625
000002

14-SEP-81
15:14
PAGE 142
BINARY TO OCTAL (ASCII) AND TYPE

30(1046)

MOV
RTI

BYTE
BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

,8%
$OCNT

{SP)+ R4

(SP) +,R3
2{(SP) ,4(SP)
(SP)+, (SP)

0
0
O
O
0 .

;2GET LSB OF THIS DIGIT

;sTYPE

THIS DIGIT?

;:BR IF NO
;:GET RID OF JUNK

s :SUPPRESS THIS 0?

;sDON'T SUPPRESS ANYMORE 0°'S

;sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING

;:G0 TYPE THIS DIGIT
;sCOUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;sRESTORE RS

:sRESTORE R4

;;RESTORE R3

::SET THE STACK FOR RETURNING

2 sRETURN

;:STORAGE FOR ASCII DIGIT

;sTERMINATOR rOR TYPE

ROUTINE

;sCCTAL DIGIT COUNTER
JsZERO FILL SWITCH
2 JNUMBER OF DIGITS TO TYPE

MACY11

(ZRGECO Rk611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.P1T

14=SEP<81 13:57

15:14

14=SEP-81

MmN

PAGE 143

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;215

LSBTTL

7‘19

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

X 2222222222222222323222%32233233332333232323323223332332323333232333333222322323]

7420
7421
7422

-rnxs ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 5-DIGIT
“«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
*«NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

7425

;*CALL:

7423
7424

“+BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
*«REPLACED WITH SPACES.

7426
;255
7429

7430
7431
7432

T
e
035626

035626
035630
0356832

010046
010746
010246

76434
7435
7436
7437
7438
7439
7440
7441

035936
035640
035644
035650
035652
035654
035662
035664

010546
012746
016605
100004
005405
112766
005000
012703

7443
7444

035674
035676

005002
016001

$TYPDS:

7433 035634 010346

76442

035670

112723

7445
76446
7447
7448
7449

035702
035704
035706
035710
035712

7453
7454
7455
7456

035722
035724
035726
035730

005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

035742
035746
035750

052702
110223
005720

7450
7451
7452

7457

7458
7459
7460

7461

7462
7463
7464
7465
7466
7467
7468
7469

7470
7471
7472

035714
035716
035720

035736

160105

020200
000020
000055

000001

036042

000040

1%:
28:

036032

33:

036002
036004
026006

002746
003002
010502
000764
105726
100003
116663
105013

012605
012603
012602

::PUT THE BINARY NUMBER ON THE STACK
*%G0 TO THE ROUTINE

MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)

:;PUSH RO ON STACK
::;PUSH R1 ON STACK
::PUSH R2 ON STACK

MOV
MOV
MOV
BPL
NEG
MOVB
CLR
MOV

RS,=(SP)
#20200,-(SP)
20(SP) .RS
1%
RS
#'-,1(SP)
RO
#$DBLK ,R3

::PUSH R5 ON STACK
*:SET BLANK SWITCH AND SIGN
2:GET THE INPUT NUMBER
“:BR IF INPUT IS POS.
*:MAKE THE BINARY NUMBER POS.
S:MAKE THE ASCII NUMBER NEG.
::7ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

MOVB
CLR
MOV

SUB

BLT

INC

4%:

000001

000060

177777

000040

6$:
7% :

035752 020027 000010
035756
035760
035762
035764
035766
035770
035772
036000

NUM, = (SP)

MOV

002402

052702

MOV
TYPDS

ADD
ST
BNE
ISTB
BM]
ASLB
BCC
MOVB

177776

9% :

#' ,L(R3)+

R2
$DTBL (RO) ,R1

R1.RS
43
R2
38
R1.RS

*:PUSH R3 ON STACK

*:SET THE FIRST CHARACTER TO A BLANK
*:CLEAR THE BCD NUMBER
*:GET THE CONSTANT

S:FORM THIS BCD DIGIT
*:BR IF DONE
*:INCREASE THE BCD DIGIT BY 1

7%
(SP)
6$
1<sp> -1(R3)

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0
*:FALL THROUGH IF 0
2:STILL DOING LEADING 0'S?
Z:BR IF YES
iMSD?
S:BR IF NO
LI YES==SET THE SIGN

BIS
MOVB
ST

c'
RZ.(RS)*
(RO) +

“IMAKE IT A SPACE IF NOI ALREADY A DIGIT
“ PUT THIS CHARACTER IN THE OUTPUT BUFFER
1:JUST INCREMENTING

BLT
BGT
MOV
BR
TSTB
8PL
MOVB
CLRB

28
13
RS,R2
6%
(SP)+
9%
=1(SP),=2(R3)
(R3)

BIS

CMP

8%:
177777

R3.=-(SP)

MOV
MOV
MOV

R2
5%
(SP)

Ré

RO,4#10

(SP)+.RS
(SP)+.R3
(SP)+.R2

*:MAKE THE BCD DIGIT ASCI!

“:CHECK THE TABLE INDEX

1360 DO THE NEXT DIGIT
1160 TO EXIT
“ GET THE LSD
1360 CHANGE TO ASCII
*:WAS THE LSD THE FIRST NON=ZERO? :iBR_IF NO
*YES==SET THE SIGN FOR TYPING
*:SET THE TERMINATOR

*:POP STACK INTO RS
*:POP STACK INTO R3
LiPOP STACK INTO R2

SEQ 0142

(ala]

CIRGEC.P11

MACY11 30(1046)

CZRGECO RK611 DSKLS CTRL PRTS

CZROEC.P1

14-SEP-81

7473
7474
7475
76476
7677
7478
7479
7480

012601
012600
104401

016666
012616
000002
023420
001750
000144
000012
000004

036042
000002

N1
14=SEP=81
30(1046)
15:1«
PAGE 144
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004
$DTBL:

(SP)+ ,R1
(SP)+,R0
$DBLK

MOV
MOV
TYPE
MOV
MOV
RTI

27SP) ,4(SP)
(SP)+. (SP)

10000.

SEQ 0143

;;POP STACK INTO R1

::POP STACK

INTO RO

:sNOW TYPE THE NUMBER
s sADJUST THE STACK
;:RETURN TO USER

1000.

100.

$OBLK:
.SBTTL

10.
.BLKW

TTY INPUT ROUTINE

":ifi.Q'ttt"'t".Qtti""'.'Qtt..Q'tt'tt..t.tt.'fifi'tittttttt't'.'

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000
000001
036061
036062

s sNUMBER OF ITEMS IN QUEUE

—O0OO0O

036052
036054
036056
036060

;s INPUT POINTER
:;OUTPUT POINTER

;. TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE

WILL

INITIALIZE

THE

TTY KLYBOARD

INPUT QUEUE

s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

S«CALL:
.
I

005037
012737
013737
012737
012737
005777
012777
000207

036052
036060
036054
036132
000200
143024
000100

036054
036056
000060
000062

JSR

RE TURN

$TKINT: CLR

MOV
MOV
MOV
MOV

143014

MOV
RTS
;*TK

SERVICE

PC,STKINT

$TKCNT

;sCLEAR COUNT OF ITEMS IN QUEUE
THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV ,a#TKVEC :sINITIALIZE THE KEYBOARD VECTOR
#200,9#TKVEC+2
::"BR"" LEVEL 4
a$TkB
::CLEAR DONE FLAG
#100,387KS
s sENABLE TTY KEYBOARD INTERRUPT
#STKQSRT,$TKQIN ::MOVE

;sRETURN TO CALLER

ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE C(HARACTER FROM THE INPUT BUFFER AND PUTTING
;1T

IN THE QUEUE.

LERELSEER

;*IF THE CHARACTER IS A ""CONTROL=C'" (“C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE "'CONTROL=C'* RESTART ADDRESS (CTRMLT)

SRR REEE

7482
7483
7484
7485
7486
7487
7488
7489
7490
7649
7492
7493
7494
7495

Sllelelelelelelele]

. 7481

036010
036012
036014
036020
036026
036030
036032
036034
036036
036040
036042

13:57

MACY11

117746

042716
021627
001002
005726
000002

021627
001007
1064607

143010

177600

$'KSRV: MOVB

c‘t??? (SP)

;:PICKUP THE (HARACTER
;:STRIP THE JUNK

308

: JBRANCH IF NO

(SP) .83
i
.‘\~-'gk

s:1S IT A CONTROL

a$1KB,

~(SP)

(SP) ,#$X0N

00C021

(SP)+

000003

037260

108:
Tvb§

2215 1T A RANDOM XON?

;sCLEAN RANDOM XON OFF
:
: sRETURN
;sBRANCH 1F

s RANOOY

STA(CK

s RANGOY

:RANOOY
s RANCO!

s RANOOY

CZRGECO RKE11 DSKLS CTRL PRTS

004737
005726

000137
021627
001004
022737
001500

022737
001004
104401
005726
000451
021627
001021

005077
005726
105777
100375
117746

042716
022627
001366
012777

30(1046)
14-SEP-81
TTY INPUT ROUTINE

034764
000007

1%:

000176

001140

000001

036052

001240
000023

3%:

142674
142666

31%:

142662
177600
000021
000100

142640

036360

036061

036060

036054

::IS IT CONTROL G?

#1,8TKCNT

;1S THE QUEUE FULL?

JSBELL

;sRING THE

BNE
(LR
TST

32%

(SP)+

5%
(SP) ,#23

CMP

asTKS

TSTB

BPL
MNVB
BIC
CMP

asTKB,=(SP)

#4C177.(5P)
(SP)+,#21

$TKCNT
(SP) ,#140
48

(SP) ,#175

BIC
MOVB

INC

3
#40, (SP)
(SP)+,a$TKQIN

;GO TO SWR CHANGE

; :BRANCH IF NO

TTY BELL

;:gL§¢N CHARACTER OFF OF STACK
¥4 3

;1S IT A CONTROL=-S?
; ;BRANCH IF NO
:;DISABLE TTY KEYBOARD INTERRUPTS
;;CLEAN CHAR OFF STACK
J;WAIT FOR A CHAR
;sLO0P UNTIL ITS THERE
;:GET THE CHARACTER
::MAKE IT 7-BIT ASCII
;1S IT A CONTROL=-Q?
;;BRANCH IF NO
;REENABLE

TTY KEYBOARD

; sRETURN
;sCOUNT THIS CHARACTER
:;1S IT UPPER CASE?
;;BRANCH IF YES
;1S IT A SPECIAL CHAR?
;;BRANCH IF YES
;:MAKE IT UPPER CASE

;;AND PUT

INTERRUPTS

IN QUEUE

$TKQIN
;;UPDATE THE POINTER
gIKOIN.#$TKOEND ::G0 OFF THE END?

;;BRANCH IF NO

#$TKQSRT LSTKQIN ;;RESET THE POINTER
2 :RETURN

MOV

RTI

MAAALALAS

(SP)+

asTKS
318

#100,38TKS

(MP
BNE

5%:

;INIT THE KEYBOARD

:CLEAN UP STACK
CONTROL C RESTART

(MP
BNE
TYPE
TST
=R

BLT
CMP
BGT

A H

SEG 0144

#SWREG, SWR

CMP

000040
177516
036054
036054

145

BRANCH IF N
;1S SOFT- SUR SELECTED?

MOV
RTI
INC

000175

PAGE

CTRHLT
(SP) 47
2%

BNE

036052
000140

012737
000002

TST
JMP
CMP
BNE
CMP

BEG

2%:

B 12

PC,STKINT
(SP)
+

JSR

036062

1° :14

SRS

ARttt

ittt

iRttt

ittt

dll)

ONOON=N~ N

036362
036370
036372
036376
036400
036404
036410
036414

OCOO—===00
O =OOoOOoN
-—ed N YO W - N
WONIN=
N =N
ON—=
S NNV

'SOFTUARE SWITCH REGISTER CHANGE RO!TINE.
;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL

000176
142546

001140

:*SERVICE THE TEST FOR CHANGE IN SO7 TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
#SWREG, SWR
$CKSWR: (MP
;;1S THE SOFT-SWR SELECTED
15%
BNE
JoEXIT IF NOT
TSTB
asTKS
::IS A CHAR WAITING?
BPL

142542
177600

MOVB

8IC
CMP
BNE

000007

AAE

'CONTROL

LSS

15%
a$TKB,=(SP)

#5C177,(SP)
(SP) .47
2%

SRR

:21F NOT, EXIT

=-¥ES

J:MAKE

7-BIT ASCII

;:1S IT A CONTROL=G?

;21F NOT, PUT
;;AND EXIT

IN THE

TTY QUEUE

AR SRRl
RE ]

IS PASSED TO THIS POINT FROM EITHER

THE

TTY

INTERRUPT

SERVICE

~NON

MACY11

CZRGECO RKk611 DSKLS CTRL PRTS
14-SEP-81 13:57
CZRGEC.PN

MACY11

30(1046)
TTY

14-SEP-81

INPUT ROUTINE

15:14

s*ROUTINE OR FROM THE

037272
037277
000176
037310

105777
100375

142444

117746

142440

036512
036516
036520
036524
036530
036536
036540
036546

021627
001015

000003

036552
036556
036560
036564
036570

021627
001005

036572
036576
036600
036604
036606
036614
036620
036624
036632
036634
036642
036644
036650
036654
036656
036662
036664

021627
001022
005766
001403
016677
062706

036502
036506

042716

104401

062706

123727

001003
012777
000137

104401

062706
000737

104401
123727

001003
012777
000002

004737
021627
002420
021627
003015
042726

$GTSWR:

19%:
7%:

037260
000006
001135
000100
034764

$SAUTOB,#1
2%

JSR
CLR

PC,STKINT
asTks

#1,$INTAG

TYPE
TYPE
MOV
TYPOC
TYPE

LSCNTLG
. SMSWR
= (SP)
SWREG,

(LR
(LR

TSTR

BPL

BIC

CMP

142376

8%:

LSMNE
W
=(5P)
-(SP)

asTKS

SEQ 0145

SWITCH REGISTER TRAP CALL,

;;ARE WE RUNNING IN AUTO=-MODE?

s ;BRANCH IF YES
;;CLEAR CONTROL=G OFF STACK
ssFLUSH THE TTY INPUT QUEUE
;;DISABLE TTY KEYBOARD INTERRUPTS
;:SET INTERRUPT MODE .NDICATOR
;;ECHO THE CONTROL=G (*G)

;s TYPE

CURRENT

CONTENTS

;:SAVE SWREG FOR TYPEQUT
;G0 TYPE--OCTAL ASCIIC(ALL DIGITS)
;;PROMPT

FOR NEW SWR

;sCLEAR COUNTER

;sTHE

NEW SWR

:;CHAR THERE?
;:1F NOT TRY AGAIN
;:PICK UP (HAR
;:MAKE IT 7-BIT ASCII

(SP) ,#3

;:I1S IT A CONTROL=C?
; ;BRANCH IF NOT
;:YES, ECHO CONTROL=C (*O)
:;CLEAN UP STACK
;;REENABLE TTY KEYBOARD INTERRUPTS?
; ;BRANCH IF NO

CMPB
BNE
MOV
JMP

$INTAG,#1
8%
#100,387TKS
CTRHLT

LSCNTLC
#6,SP

;;ALLOW TTY KEYBOARD

;s CONTROL=C RESTART

INTERRUPTS

000025

9%:

037265
000006

CMP
BNE

(SP) ,#25
10%

20%:

ADD

#6,SP

;IS IT A CONTROL=-U?
; ;BRANCH IF NOT
;2YES, ECHO CONTROL=U (*u)
;s IGNORE PREVIOUS INPUT

000015

108:

CMP
BNE

(SP) 415
16%

;218 IT A <CR>?
;:BRANCH IF NO

000004
000002
000006

142324

001245
001135

000001

00G100

142302

035256
000060
000067
000060

AS A RESULT OF

A$TKB,=(SP)

#AC177,(5P)

BNEF

TYPE
ADD

000001

+
(SP)

MOVB

177600

Lol

005046

001135

104402
104401
005046

000001

—

013746

036062
142504

(MPB
BEQ
ST

LS -

104401
104401

000001

005077
112737

001134

036446
036452
036456
036462
036464
036470
036472
036474
036500

123727

001674
005726
004737

SOF TWARE

146

6;L0~TR0L'G BEING TYPED, AND THE SOFTWARE SwiTCH REGISTER BEING SELECTED.

o\
L
L

036416
036424
036426
036430
036434
036440

€12

PAGE

TYPE

LSCNTLU

19%

4(SP)

ADD

#5,SP

(MPB
BNE
MOV

$INTAG, #1
158
#100,8TKS

JSR
(MP

PC,STYPEC
(SP) ,#60

BEQ
MOV
TYPE

RT]

BLT
(MP
BGT
BIC

11$
2(SP) ,aSWR
LSCRLF

18%
(SP) ,#67
18%
#60, (SP)+

J;LET'S TRY IT AGAIN

::YES, IS IT THE FIRST (HAR?
::BRANCH IF YES
;:SAVE NEW SWR
;sCLEAR UP STACK
;;ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH [F NOT
;JRE-ENABLE TTY KBD INTERRUPTS

; sRETURN

:;ECHO CHAR

.,CHAR < 0?
;BRANCH IF YES

..CHAR > 7?

BRAN(H }F YES
;STRIP=0OFF ASCII

CZRGECO Rk61T DSKLS CTRL PRTS
14-SEP=-81 13:57
CZRGEC.P11T

7641
7642
7643
7644
7645
7646
7647
7648

7649

7650
7651
7652
7653

036670
036674
036676
036700
036702
036704
036710
036714
036716
036722

00576¢
001403
006316
006316
006316
005266
056616
000667
104401

000720

MACY11

000002

17%:

001244

18%:

177776

.USABL

7673

7674
7675
7676
7677
7678
7679
7680
7681
7682
7683

7684

7685
7686

7687

7688
7689
7690
7691
7692

7693

769

7695

7696

(SP)
(3P)
2(5P)
=2(SP), (SP)

TYPE

LSB

011646
016666

005066
005046
012746
000002

000004
000004

036750

005737
001775
005337

036052

005237
023727
001003
012737
000002

036056
036056

117766

000002

036052

177070

036060

RDCHR

$RDCHR:

MOV

643

$QUES

MOV
RTI

S:GET THE NEXT ONE
?2<CR><LF>

*:SIMULATE CONTROL=U
AR AAAANRRAA AR TR

INPUT A SINGLE

RETURN HERE

MOV
CLR
(LR

ROOM FOR NEW ONE.

:2TYPE

208

WILL

*:KEEP COUNT OF CHAR
S:SET IN NEW CHAR

ARAAATRAARRARRTR R RN

CHARACTER FROM THE

;:GET A CHARACTER FROM THE QUEUE
;s CHARACTER IS ON THE STA(K
;:WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)

;;PUSH DOWN

THE

P{ AND

#6468 ,~(SP)

;;PUT NEW PC ON

STACK

4(SP) ,2(SP)
4(SP)
=(SP)

TTY

ssTHE PS
;;GET READY FOR A (HARACTER
;;PUT NEW PS ON STACK
;;POP NEW PC AND PS

1%:

gég

?;KCNT

2%:

DEC
MOVB
INC
CMP
BNE
MOV
RTI

$TKCNT
s ;DECREMENT THE COUNTER
9$TKQOUT ,4(SP)
;:GET ONE CHARACTER
$TKQCUT
;JUPDATE THE POINTER
$TKQOUT ,#$TKQEND ;.;DID IT GO OFF OF THE END?
2%
..BRANCH IF NO
#$TKQSRT, STKOOUT ;;RESET THE POINTER
: ;RETURN

000004

036061
036056

AR RAAAARARNR AR

i
s

036724
036726
036734
036740
036742
036746
036750
036750
036754
036756
036762
036770
036774
037002
037004
037012

*INO, SHIFT PRESENT
::
CHA OVER TO MAKE

(SP)

INC
8IS

SEQ (146

::1S THIS THE FIRST CHAR
S:BRANCH IF YES

17%

ASL

CrR R AR AR A

D 12
PAGE 147

15:14

2(SP)

$*THIS ROUTINE
s«CALL:

;;WAIT ON A CHARACTER

'.Q'tttttt.ttt'.ttl'"t"t'i"fifitttt't'i't'..""""l.t""'.'t'

:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

;=CALL:

o ¥
2%
£

037014

—_OOO
== — 40000
S OOON—=OON)—=O
N = N=PONL
S 2NN
O
NONONO
NN YNNOW
INO =N = w2 = NO O
&
NNONVWWO
R WWOON

7671
7672

INPUT ROUTINE

ASL
ASL

7656
7657
7658
7659
7660

7670

14-SEP=81

ST
BEQ

7655

7663
7664
7665
7666
7667
7668
7669

TTy

000002

7654

7661
662

30(1046)

RDLIN
RETURN HERE

$RDL IN: MOV
18:

2%:

000177

10%:

(LR
Moy
CMP
SL0S
RDCHR
MOVB
(MPB

BNE

TST

000134

037246

BNE
MOVB

R3,-(5P)

-(SP)
#$TTYIN,R3
#STTYIN+8. ,R3
3

;s INPUT A STRING FROM THE TTY
;;ADDRESS OF FIRST CHARACTER WILL BE ON THE
;;TERMINATOR WILL BE A BYTE OF ALL 0°'S

::SAVE R3

(SP)+,(R3)
#177,(R3)

;:CLEAR THE RUBOQUT KEY
::GET ADDRESS
;sBUFFER FULL?
s:BR IF YES
::G0 READ ONE CHARACTER FROM THE
;:GFT CHARACTER
;218 IT A RUBOUT

(SP)

;:1S

(3
#'\,9%

::BR IF NO
THIS

THE

FIRST

;:BR IF NO
::TYPE A BACK SLASH

RUBQUT?

TTy

STACK

i Vs)
NN

(ZRSECO Rk611 DSKLS CTRL PRTS
14=SEP-81 13:57
CZRGEC.PN

CIRGECD Rk611 DSKLS CTRL PRTS
CIRGEC.P11
14-SEP=-B1 13:57
7697

1064407

7658
7699

7700
7701

7702

7703

01271¢
005303

037076

037102

111337

037¢46

104401

037106

000746

7707

037114

112737

7705
7706

7708

037110
037112

037122

005716
001406

104401

7709

037126

005016

7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721

037134
037136
037142
037144
037150
037152
037154
037160
037164
037166
037172

001003
104401
000726
122713
001011
105013
104401
104401
000717
104401
000712

7723
7724
7725
7726
7727

037200
037204
037210
037212
037216

104401
122723
001305
105063
104401

7729
7730
7731
7732
7733
7734
7735

037224
037226
037230
037236
037244
037246
037247

012603
011646
016666
012766
000002
00
C00

(037260
037265
037272
037277
037304
037310
037316

041536
136
043536
015
036440
020040
020075
037322

7710

7722

7728

7736

7737
7738
7739
7740
7741
7742
77643
7744

;;22

037130

0371764

037222

037250

122713

111337

005726

000010

TTY INPUT ROUTINE

6%:

037246
000025

000022

001245

001244

6%:

(37246

38:

037246
000015

9%:
000
000012
000
051127
020127

$TTYIN:

SCNTLC:
SCNTLU:
SCNTLG:
$MSWR:
SMNEW:
.EVEN

.SBTTL

YES

;sSETUP TO TYPEQUT THE DELETEC CHAR.

;.60 TYPE

#'\,%%

;. TYPE

(sP)

;:CLEAR THE RUBOUT KEY

8%
LSONTLU
1%
#22,(R3)
3%
(R3)
,SCRLF
LSTTYIN
2%
. SQUES
1%

;:BR IF NO
;:TYPE A CONTROL V'’
;:G0 START OVER
;. 1S CHARACTER A "TMR'7
; ;BRANCH IF NO
;;CLEAR THE CHARACTER
:3TYPE A "CR'' & "'LF"’
;:TYPE THE INPUT STRING
;.60 PICKUP ANOTHER CHACTER
;:TYPE A *2°
;;CLEAR THE BUFFER AND LOOP

::GO READ ANOTHER (HAP,

(S2)
7%

;sRUBOUT KEY
;:BR IF NO

#25,(R3)

2:1S

(R3),9%

.9%
#15,(R3)+
2%
=1(R3)
LSLF

MOV
MOV
MOV
MOV
RTI
.BYTE
BYTE

(SP)+ ,R3
(SP) ,=(SP)
4(SP) ,2(SP)
#STTYIN,4L(SP)

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

/*C/<15><12>
/*U/<15><12>
/*G/<15><i2>
<15><12>/SWR = /

.BLKB

.ASCIZ

SLASH

CHARACTER A CTRL U?

;sCLEAN RUBRQUT KEY FROM THE STA(K

..RESTGRE R3
JADJUST THE STACK AND PUT ADDRESS OF
23
FIRST ASCII CHARACTER ON IT

0
0

A BACK

;sCHECK FOR RETURN
;:LO0P IF NOT RETURN
;sCLEAR RETURN (THE 15)
;:TYPE A LINE FEED

(SP) +

SET?

;;ECHO THE CHARACTER

TYPE
CMPB
BNE
CLRB
TYPE

TST

000002
000004

(R3),9%

MOVB

mMova

177777
011246

;sSTACK EMPTY?

BNE
TYPE
BR
(MPB
BNE
(LRB
TYPE
TYPE
BR
TYPE
BR

8%:

R3,4#8TTYIN

“

(MPB

037250

005015
006525
005015
051412
000040
042516
000

;:BR IF

(LR

037265

000004
037250

TYPE

7%:

.98

SEQ 0147

BLO

TST
BEQ

037244

148

;:SET THE RUBQUT KEY
s sBACKUP BY ONE

TYPE

5%:

PAGE

#=1,(5P)
R3

MovB

037246

MOV
DEC

(MP

000134

15:14

14=-SEP-81

TYPE

177777

037250

7704

30(1046)

037246

020327
103434

MACY11

; ;RETURN
;STORAGE FOR ASCII CHAR.
;s TERMINATOR
;;RESERVE 8 BYTES FGR TTY
;sCONTROL *°C"*
;sCONTROL ‘U
;.CONTRCOL '%G""

TO TYPE
[NPUT

NEW = /

READ AN OCTAL NUMBER FROM THE TTY

7747

R
e Y

7748
7749

:*THIS ROUTINE WILL READ AN OCTAL
. *(HANGE IT TO BINARY.

7751

7750

775¢

s*THE

INPUT (HARA(CTERS WILL BE

(ASCII)

NUMBER FROM THE

TTY AND

CHECKED TO INSURED THEY ARE LEGAL

;*FOLLOWED BY A CARRIAGE RETURN=LINE FEED.

THE

"' WILL BE TYPED

(OMPLETE NUMBER MUST

THE

CIRGECD RKETT DSKLS CTRL PRTS
CZRGEC P
14=SEP=81 13:5”
775%
7754
7755
7756
7757
7758
7759

7760
7761
7762

c®

037322

037324
037332
037334

037350

037404

7782

037414

7783
7784
7785
7786
7787

7788
7789
7790

7791
7792
7793
7794
7795
7796
7797
7798
7799
7800
7801
782
7803
7804
7805
7806
7807
7808

$RDOCT: MOV

MOV

MOV
MOV
RDLIN

MOV

037450

CLR
CLR
MOVB
BEQ

2%:
000060

(MPR
BGT
(MPB

0000¢?

037366
037372
037374
037376

7779

000002

1%:

037352
037354
037356
037360
037364

037400

7760
7781

000004

037344

7777

7778

SEQ (0148

;sREAD AN OCTAL NUMBER

RDOCT

RETURN HERE

;:LOW ORDER BITS ARE ON TOP OF

;sHIGH ORDER BITS ARE IN SHIOCT

- %"

7767

7773
7774
7775
7776

;*THEN BE RETYPED. THE INPUT IS TERMINATED 8Y TYPING A (ARRIAGE RETURN.

037336
037340
037342

7768
7769
7770
7771
7772

30(1046)
14=SEP-81
15:14 PAGE 149
READ AN OCTAL NUMBER FROM THE TTY
sJeCALL:

7763
7764
7765

7766

wmaA(YN

BLT
ASL
ROL
ASL
ROL
ASL
ROL

037402
037406
037410

000012
037460

037434
037436
037440

037442
037444
037446
037450
037452
037456
037460

001244
000000

;;PROVIDE

RO,=(SP)

;;PUSH RO ON STA(K
;sPUSH R1 ON STACK
;sPUSH R2 ON STACK
;;READ AN ASCIZ LINE
;:GET ADDRESS OF 1ST CHARA(CTER
;.AND SAVE |IT
;.CLEAR CATA WORD

R1,=(SP)
R2,=(SP)

(SP)+ R0

RO,5%

R1
R2
(RO)+,=(SP)
3%

#'0,(SP)
4%
#'7,(SP)
43
R1
R2

R1
R2
R1
R2

SPACE

2 INPUT NUMBER

FOR

THE

;sPICKUP THIS CHARACTER
1F ZERO GET OuTt
;.
:MAKE SURE THIS CHARACTER
;.1S AN OCTAL DIGIT

BIC

RAC7,(SP)

BR
TST

2%
+
(SP)

;;ADD IN THIS DIGIT
;.L0CP
;;CLEAN TERMINATOR FROM STACK
2 sSAVE THE RESULT

(SP)+ ,R2
(SP)+ ,R1
(SP)+ R0

;.POP STACK INTO R2
;;POP STACK INTO R1
;:POP STACK INTO RO

MOV
MOV
MOV
RT]
TST

17777C

037416
037420
037422
037426
037432

(SP) ,=(SF)

4{SP) ,2(SP)

ADD

MOV
MOV

(SP)
+

(RO)

.WORD

TYPE

$HIOCT:
.SBTTL

R1,12(SP)
R2,$H]IOCT

CLRB
TYPE

5%:

{SP)+ ,R1

. SQUES

**SAVE RO-RS
,

;:STRIP

THE

ASCII

JUNK

; :RETURN

;.CLEAN PARTIAL FROM STACK
;2SET A TERMINATOR

;:TYPE

::CD?IO

IOCROI

THRU
z

THE BAD

..LF..

SAVREG

AR RN

AARNAARARARANEARR AR PRI RRERTRATREERTR

*+UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
*

PeTOP===(+16)

(%
‘e

(HAR.

1%
BR
::TRY AGAIN
,WwORD
0
;sHIGH ORDER BITS GO HERE
SAVE AND RESTORE RO-R5 ROUTINES

AR ARRRA RN I AR AN AR

;~CALL:

THE

+20===(+18)
+4===RS

STA(K

(ZROECO RkE11

CZRGEC.PN

DSKLS CTRL PRTS
14=SEP=-81

13:57

MACYT1

7809
7810

7817

7818

7819

7820
7821
7822
7823

7824

7825
7826

7827
7828

7833
7834

7835
7836

7837

7838

7839
7840
7841
7842
7843
7844
7845

037462
037462
037464
037466
037470
037472
037474
037476
037502037506
037512
037516

000022
000022
000022
000022

MOV
MOV
MoV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

150

SEQ (149

;:PUSH
;:PUSH
::PUSH
::PUSH

RO,=(SP)
R1,=(SP)
RZ,=(SP)
R3,-(SP)
R& ,=(SP)

RS,=(SP)

22(SP) ,=(SP)

RO
R?
R2
R3

ON
ON
ON
ON

STACK
STACK
STACK
STACK
;:PUSH R4 ON STA(K
::PUSH RS ON STACK

;:SAVE PS OF MAIN FLOW

22(SP) ,=(SP)

;:SAVE PC OF MAIN FLOW
;:SAVE PS OF CALL
;SAVE PC OF CA!L

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS

:;RESTORL PC OF CALL

22(SP) ,=(SP)
22(SP) ,=(SP)

;*RESTORE RO-R5
s*CALL:
bl

037520
037520
037524
037530
037534
037540
037542
037544
037546
037550
037552
037554

$RECREG:

000022
000022
000022
000022

012601
012500
000002
.SBTTL

RESREG

MOV
MOV
MOV
MOv
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)*.R&

:RESTORE PS OF
:RESTORE P( OF

CALL
MAIN FLOW

:;RESTORE PS OF MAIN fLOw
..POP STACK INTO RS
;POP STACK
;;POP STACK

INTO R4

;:POP STACK

INTO RG

INTO R3
;:POP STACK INTO R?
;:POP STACK INTO R1

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

POWER DOWN AND UP ROUTINE

::'.tQtt.ttt.Qt.Qttt""0"‘..""'.'!'..'.tt"..‘.tt".VQ"Q""

7847

7848

141356

7849
7850
7851
785¢
785%

037604
000340

002356
000024
00002¢

;POWER DOWN ROUTINE

$PWRDN: MOV

MOV
MOV
HALT

7854
7855
7856

aSWR, SAVSWR
#$PWRUP ,PWRVE (
#PR7 ,PWRVE(C+2

JSAVE

SWITCH REGISTER

;SET UP VECTOR

;HANG UP

NNONWVININN

= —unfhowv
N

W NN NN
N

NWWWN
O

:;'t‘t"ttt'tit'.t.Qti'."""'t..‘.t.'t.'.".'i".""'tt.."'tt

OOOOCOOO
—_OOO0OO—=0O

7864

PAGE

+6===R4

$SAVREG:

7846

7857
7858
7859
7860
7861
7862
7863

G 12

;x+]2=-==R1
;*+14=--=R0

7829

78%)
7831
7832

15:14

SAVE AND RESTORE RO=RS ROUTINES
;v

7811

7814

14=SEP-81

;* +8-==R3
;*+10===R2

7812
7813

7815
7816

30(1046)

037700
000144
037700

;POWER UP ROUTINE

037702

037556

000024

$PWRUP:
1%:

CLR

$PWRCT

;LOAD WAIT COUNT

$PWR(T

JWAIT FOR TELETYPE

MOV
INC
BNE

#100. ,8PWR(T +2

MOV

#$PWR
, PWRVE
DN
(

DEC
BNE

1%
?PURCI*?

sSET UP FOR POWER DOWN VECTOR

7865
7866
7867
7868

7869

7870
7871

7872
7873
7874

7875
7876

037640
037646
037652
037656
037662
037670

MACYTT

000026

12737
012
1
012706

037674

037700
037704

000000
047520

000122

7881

7889
7850
7891
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901

037712
037714
037720
037722
037724
037726
037732

037734
037736
037744

$PWR(T:
$POWER:

.WORD
.ASCIZ

0,0
/POWER/

.SBTTL

TRAP DECODER

JRESTORE SWITCH REGISTER
JREINITIALISE R2 FOR "611

JREINITIALIZE MEMORY CHECK ENABLE
BASE

;TELETYPE TIME OUT

010046
016600
005740

0000C2

006300
016000
000200

037746

$TRAP:

011646

0166066
000002

000004

MOV
MOV

RO,=(SP)
2(SP) RO

MOVB
AS!
MOV
RTS

(RO) ,RO
RO
$TRPAD (RO) ,RO
RO

TST

111000

000002

THEN USING

;oTH!IS

1S USE

$TRAP2:

MOV

::SAVE RO
:sGET TRAP ADDRESS

=-(RO)

TO HANDLE

MOV

RTI

THE '‘TRAP'* INSTRUCTION
FOR THE STARTING ADDRESS
THE ADDRESS OBTAINED [T wiLL

THE

s ;BACKUP BY 2

;:GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;:INDEX TO TABLE
::G0 TO ROUTINE

"'GETPRI'" MACRO

(SP) ,=(SP)

4(SP) ,2(SP)

;:MOVE THE PC DOWN
;;MOVE THE PSW DOWN
;sRESTORE THE PSw

TRAP TABLE

THE ROUTINES CALLED

ROUT INE

7905
7906

$TRPAV: .

7907

7914
7915
7916
7917
7918
7919
7920

@$LPADR ;GO BACK TO LAST TEST

SAVSWR,aSWR
$BASE ,R2

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE "'TRAP''" INSTRU(CT!ON.

7903
7904

7913

JMP

.SBTTL

7902

7908
7909
7910
7911
7912

P(,PAR(HK

:*OF THE DESIRED ROUTINE.
;*GO TO THAT ROUTINE.

7882

7888

STACK

;TYPE POWER

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE

7880

7887

JSR

MOV
MOV

sFORCE

,$SPOWER

CFRARRARAARNAAAARARARAARAAARIRARA
AR RA AR
AR
AR PR AR AR AR AN AR AR
N

7879

7886

#STACK,SP

141250

7878

7885

#PR7 ,PWRVE(+?

SEG 015C

MOV

TYPE

7877

7883
7884

MOV

104401
J

004737
1 777
013
013702
000177

H 12
PAGE 151

14=SEP=81
15:14
POWER DOWN AND UP ROUTINE

30(7046)

$TRAP?
;. CALL=TYPE

;. CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(1(4405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZERQS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (A5 PER LAST C(ALL)
TYPE DECIMAL NUMBER (WITH SIGN)

2 CALL=TYPOC

$TYPON
$TYPDS

J:CALL=TYPOS
;s CALL=TYPON

037762

$GTSWR

;: CALL=GTSWR

TRAP+6(104406)

GET

037764
037766
037770
037772
037774

$CKSWR
$RD(HR
$RDLIN
$RDOCT
$SAVREG
$RESREG

ssCALL=CKSWR
2 2CALL=RDCHR

TRAP+7(104407)
TRAP+10(10441
TRAP+11(10441
TRAP+12(10441
TRAP+13(10441
TRAP+14 (10441

TEST FOR CHANGE [N SOF T-SwR
TTY TYPEIN CHARACTER ROUTINE

037776

;sCALL=RDLIN
ssCALL=RDOCT
.+ CALL=SAVREG
;;CALL=RESREG

TTY

SOFT-SWR SETTING

TYPEIN STRING ROUT INE

READ AN OCTAL NUMBER FROM TTy

SAVE RO-R5 ROUTINE

RESTORE RO-R5 ROUTINE

CZREEC.PI

S L S LIRL PRTS
14= S E P-81 13:57

CIRGECD RK611

TIRGECD RREYT DSKLS CTRL PRTS

TIREEC P
7921

040000

14=SEP=81 13:57
03377¢

WMACY11 30(1046)

14=-SEP-BT

TRAP TABLE

SCOP1S

15:14

I 12

PAGE 152

;. CALL=SCOPT

TRAP+15(104415) INTERNAL LOOP ON ERROR

SEG 0151

CIRGECD RK611 DSKLS CTRL PRTS
14-SEP=-B81 13:57
CZREGEC.PN
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
049054
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
040262
040270
040272
04C300
040302
040310
040316

00125¢
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
¢
001254
002174
001254
002164
001254
002162
001254
001170
001166

MACY11

14=SEP-81
15:14
30(1046)
DATA TABLE FOR PRINT OuT

J 12

PAGF

153

LSBTTL

DATA TABLE FOR PRINT QuUT

DT000:
DT0004:

.WORD
-WORD

$TESTN, TRAPP(
$TESTN,SERRPC,E.CST,T.CST1,T.CS2,T.ER,T.DS

002310
001116
002170

002220
002174

001116

302244

DT000S:

.WORD

MR1
$TESTN,SERRPC,E.MR1,T

001116

002246

DT0006:

.WORD

$TESTN,SERRPC,E.MR2,T.MR2

001116

00225C

D70007:

.WORD

$TESTN,SERRPC,E.MR3,T.MR3

001116
002320

002244
002322

DT0010:

.WORD

$TESTN,SERRPC,E.MR1,T.MR1,PR.BIT
M1 .BIT BITCNT

001116
002320
002170

002220
002322
002174

DT0011:

. WORD

$TESTN,$ERRPC ,E.CS1,T.CST1,PR.BIT M1.BIT,BITCNT,T.CS2,T.ER,T.DS

001116
002226
001116
002316
002324
001116
002326
001116
002174
002200
001116
001164
001116
002252

002240
002166
002244
002320
002326
002254

DT0074:

.WORD

$TESTN,SERRPC,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,SERRPC,E.ECPT,T.ECPT,BITCNT

002160
002172
002166

DT0026:

.WORD

$TESTN,SERRFC,T.CS1,7.CS2,T.ER,T.DS,T.WC,T.DCYL,T.DA

001166
002254

DT0037:
DT0040:
DT0041:

STESTN, SERRP(

.WORD

g?gg?fifggg;figfig?ngt,T.ECPI,E.ECPS,T.ECPS.BITCNT

nNn1116

002252

DT0043:

.WORD

$TESTN,SERRPC,E.ECPS,T.ECPS,BITCNT

001116

002234

DT0045:

.WORD

$TESTN,SERRPC,E.ER,T.ER

00111¢

002224

DT0046:

.WORD

$TESTN,
SERRPC ,E.BA, T.BA

001116

002222

DT0062:

.WORD

$IESTN,SERRPC E.WC,T.WC

001116
001164

001162
001172

DT0063:

.WORD

$TESTN,SERRPC,
$REGO, SREG3,SREGT, SREG4 , SREG2

002212

SEQ 0152

.
S,
.
M. S
M
.
S
S
.
S

.WORD

041542

.WORD

BYTE

040334

000

6
O

7975

¢00

DF0004:

—

000

041524

.WwORD
. BYTE
.WORD
BYTE

040332

040330

DFOCO:

7974

7973

000

DATA FORMAT FOR PRINT OQuT

00000
002
000006
009

.SBTTL

SEG 0753

040320
040302
040324
040326

PAGE 154

e
e
.

7969
7970
7971
7972

K 12

;ggg

MACY11 30(1046)
14-SEP-81
15:14
DATA FORMAT FOR PRINT QU7

—

CZR6ECO RK6E11 DSKLS CYRL PRTS
CZRGEC.P1T
14-SEP-81 13:57

(ZREECO RK611 DSKLS CTRL PRT;
CIRGEC.P1T
14-SEP=-81 13:5
7976

040336

002

7977
7978
7979
7980
7981
7982
7983
7984
7985

040340
040342
040344
040346
040350
040352
040354
040356
040360

041606
000
041625
002
041715
003
000005
000
041524

7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999

040364
040366
040370
040372
040374
040376
040400
040402
040404
040406
040410
040412
040414

041542
002
041606
000
041643
002
000005
000
041524
000
041542
002
041606

8003

040424

000005

7986

8000
8001
8002

8004
8005
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

040362

040416
040420
040422

000

000
000

000

000
000

000
000
000

000
041524
000
041542
002
041606

000

040444
040446
040450
040452
040454
040456
040460
040462
040464
040466
040470
040472
040474
040476
040500
040502
040504

041677
002
00C005
000
041524
000
041542
002
042011
000
042055
005
000006
000
041524
000
041542

002
042011
000
042123

DFO006:

000

DFO007:

000
000

000
000
000

000
000
000
000
000
000

000
000

DFO011:

SEQ 0154

2,0

C2
c2i
4

DH004
0,0
DHO04A
2,0
DHOO4E
3,0
S
0,0
DHOO0A

{
:
{
{
{
{
{
{
{

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

DH000B
2.0
DH004
0,0
DHO04B
2,0
S
0,0
DHO00A
0,0
DHO00B
2.0
DH004

{
{
{
{
{
|
{
{
v
=
Fd
{
4

.BYTE
.WORD
.BYTE

.WORD

0,0

0,0
DHO004C
2.0

.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD

0,0
DHO0O0A
0,0
DH000B
2,0
DHO004

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

DH004D
2.0
5
0,0
DHO00A
0,0
DH000B
2,0
DHO10
0,0
DHO10A
5,0
6
0,0
DHOO00A
0,0
DH000B

.BYTE

DF0010:

L 12
PAGE 155

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

000

040426
040430
040432
040434
040436
040440

040506
040510
040512
040514

DFO005:

000

BYTE

000

000
041661
002

040442

MACY11 30(1046)
14=SEP-81
15:14
DATA FORMAT FOR PRINT JJT

.BYTE
.WORD
.BYTE
.WORD

0,0

2.0
DH019
0,0
DHO108B

{

i
g
=%
E—

ks
Y
Eo
|
b
|
i
|
SR
Rl

{
{
{
{
{
{

{
4
{
{
P
b
|
|
ko
e
A
|
4
4

.WORD

000
000

000

.WORD

DFO037:

000

000
000

.BYTE
.WORD
.BYTE

DF0040:

.WORD

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

lole]

&S
~

O
o
-3

I~
s

v o]

o
o

]

o
~
o
o
>

000

DF0027:

000

ped

000

DF0026:

o
o
>

o
o

000

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

o
~no
o

000

o
o

.WORD

000

.WORD

DF0021:

000

elelelelelelelole

.WORD
.BYTE
.WORD
.BYTE
.WORD

000

DF0017:

000

erd

000

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

Bleleleleolololels
e

000

Bllelelelolelolelole

000

N
~J

040620
040622
040624
040626
040630
040632
040634
040636
040640
040642
040644
040646
040650
040652
040654
040656
040660
040662
040664
040666
040670
040672
040674

DFO014:

040616

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
00
041542
002
042537
007
000004
000
041542
002
042624
000
042651
003
000000

000

HOO4E

041524
000

000

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

000

005
041715
003
000005
000
041524
000
041542
002
042171
000
042230
004
000005
000

13:57

14-SEP-81

14-SEP-81
15:14
30(1046)
DATA FORMAT FOR PRINT OUuT

sleleloleleleBlelolelsleBlelelelelelole

CZRGEC.P11

MACY11

W
OWDOUDNIDON NVNONNDOWNDNNODODOMNWDODNDODOWNNDODNNDODOWm S OO0OTNVNDOTOWVIWKWND

CZRGECO RK611 DSKLS CTRL PRTS

Mm12
PAGE 156

SEQ 0155

DF0045:

e
-1

lalal

.
Y
0
W
W
30
Y
Y0
(0 P
P
W0 O
£
P
P
9, W
P

000

&»
o

&
>

F¥

DOUONDO

DF0050:

3o%
Seoge o0 O ogooooo
&

DF0046: .

000

RERR

DF 0060:

-t St o
-l —d ld -l
)

lwleleleleleleleolelele]
AN
WIWNNORONON)
~8 — nNOONSNOONSTM
SO0 MNO

il —ld -l
bl -l
ol

s P9

.WORD
.BYTE
.WORD
.BYTE

000

041010

OO0

.WORD

000

s (s P

000

.WORD
.BYTE
.WORD
.BYTE
.WORD

000

(90

DF0043:

.WORD
.BYTE
.WORD

30, P

.WORD

000

-WORD
.BYTE
.WORD

OWVMNDOoODNNDONN
B
b
Is
I~
=

041742
2
000004

DF0042:

000

.BYTE

.WORD
.BYTE
.WORD

000

3,0

.WORD

000

.WORD

042437
000
042511
003
000005
000
041524
000
041542
002
041606

FPRRRARRRRRRRRRPRRR

SEEIFRR

D el wad
i
i
e
i
i
D
b
D o
D
i
b
i
sl
i
i
wid
e
o
b
b wud
wd culd wd
e
i and
et el

WWWWNONNONONRLNINNNIN)
= b b Db b D D D w2 O
W
=O VNV WN=OVONO
VNS WN—=0O0

o 0o o 0o G0 0o O 0o 0o 0o 0o 0O Co Ut 0o 0o Co 0o G GO 0o 0o Co 0o 0o Co 0o o Co 0o O Co 0o Co

—d

LS8
S o8
i
.

000
042463
003
000004
000
041542
002

000

DFO041:

000

SEQ 0156

003
000004
000
041542
002
042700
000
042744
005
000004
000
041542
002
042437

040676
040700
040702
040704
040706

N 12
PAGE 157

13:57

30(1046)
14=-SEP-81
15:14
OuUT
PRINT
DATA FORMAT FOR

orWw

14-SEP-81

MACYT1

CZREEC.P1

CZRGECO RK611 DSKLS CTRL PRTS

8144
8145
8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8160
8161
8162
8163
8164
8165
8166
8167
3168
8169
8170
8171

041056
041060
041062
041064
041066
041070
041072
061076
041076
041100
041102
041104
041106
041110
041112
041114
041116
041120
041122
041126
041126
041130
041132
041134
041136
041140
041142
041144

002
043010
000
043037
003
000005
000
041524
000
041542
002
041606
000
041757
002
000005
000
041524
000
041542
002
041606
000
041774
002
000005
000
041524

€73
8174
8175
8176
8177
8178

0641150
041152
041154
041156
047160
041162

041542
002
043064
000
043131
005

8172

047146

000

MACY11 30(1046)
14=SEP=-81
15:14
DATA FORMAT FOR PRINT OUT

000

000
000
000

DFO06T:

000
000
000
000
000

DFO062:

000
000
000

000

000
000

DFOOC3:

BYTE
WORD
BYTE
.WORD
BYTE
.WORD
BYTE
WORD
BYTE
.WORD
BYTE
WORD
BYTE
WORD
BYTE
.WORD
BYTE
"WORD
BYTE
WOKD
BYTE
"WORD
BYTE
"WORD
BYTE
.WORD
BYTE
"WORD

2,0
DHO&0A
0,0
DHO60B8
3,0
5
0,0
DHOOOA
0,9
DH000B
2.0
D004
0,0
DH004G
2,0
5
0,0
DHOOOA
0,0
DHO00B
2,0
D004
0,0
DHOO4H
2,0
5
0,0
DHOOOA

"WORD
BYTE
WORD
‘BYTE
WORD
BYTE

DHOOOB
2,0
DHO63A
0,0
DH063B
5,0

BYTE

0,0

B 13
PAGE 158

SEQ 0157

PEZZ2222TTTTTITTTITTTT
TR

CIRGECO RK6T1 DSKLS CTRL PRTS
CIRGEC.P11
14=SEP=81 13:57

8211
8212

OPRD04:

.ASCIZ

/Rk611 PRIORITY ( /

047062

020104

OPROO6:

.ASCIZ

<15><12>/2ND PASS RUN TIME APPRCX 4 MINUTES/<15><12>

OPRO0O7:

.ASCIZ

<15><12>/%xxxx

SPACE2:
ABORT:

|
<15><12>/PROGRAM ABORTED BECAUSE

TSTBRY1:

LASCIZ

<15><12>/TEST /

LASCIZ

/ BYPASSED/<15><12>

042524

050131
006504

TSTBY?:

—

> >

e L

047522
040440
042

-—

———

wewee/<15><12>

ERROR

THRESHOLD EX(EEDED/<15><12>

PROGRAM HALTED

046501
052122

046501
042524
025052
000012

&H»

041505
042440

VECTOR ADDRESS ( /

—

/ ) =/
/Rk611 VECTOR ADDRESS ( /

.ASCIZ
.ASCIZ

—

OPROQ2:
OPRO03:

000
020
051
0425
000040
020061

041040
042523

041506
041510
047516

036440
030466
052103
042104
024040
030466

041434
047442
041450
041456
041464
041472
0415060

051107
047502

<15><.2>/Rk611

051107
046101
020040
006452
000
050012

041420
041426

.ASCIZ

047 1
005 0
0
025052
047522
044040
020104
025052
020040
015

0405
0471
020}
054

OPROOT:

0545
0050

0511

030
052
042
024

OO0OO0OO0O o
o s Snun v
MNOMNIN =N
—=OWM—s—a\n—a
N—=O—=—=NOO
WOV
OMND—W

8209
8210

041270
041276
041304
041312
041320
041326
041334
041342
041345
041352
041360
041366
041374
041402
047410
041413

041262

ASCII MESSAGES

SEQ 0158

045522
042526
040440
051523

OO0
oWV
O=—=
OV
—_O
D=

8199
8200
8201
8202
8203
8204
8205
8206
8207
8208

005015
020061
051117
042522
000040
024440
045522
042526
040440
051523
0455

8195
8196
8197
8198

041164
041172
041200
041206
041214
041216
0612246
0641232
041240
041246
041254

L O
= NN
VI = Nwnaoaownesaorn

d
D e
D
d ed e
e
e
—
-—

O O O O O 00 Co 0o 0o 0o 0o 0o O
b WA= O V00NV
WY

00 0o 0o 0o Co 0o Co 0o 0o Go 0o 0o 0o

8181

.SBTTL

13
PAGE 159

g]gg

15:14

mmg

MACY11 30(1046)
14=SEP=-81
ASCII MESSAGES

CZRGECO RKETT DSKLS CTRL PRTS
CZRGEC.PN
14-SEP=-81 13:57

Ci
Cl
Ct

cl
()

CIRGECO Rk&61T DSKLS CTRL PRTS
CIRGEC.P1
14=SEP=-81 13:57

MA(CY11

ggg;
8223
B224
8225
8226
8227
8228
8229

041524
041532
041540
041542
041550
041555
041562

042524
020040
000122
052516
020040
126
020040

8231
8232
8233

041573
041600
041606

116
020040
054105
020040
046101
122
020040
030523
122
020040
030522
122
020040
031122
122
020040
031522
122
020040
020122
042113
045522
020040
000
122
020040
000101
045522
020040
000
105
020124
040525
042522
050040
0515
0

8230

8234
8235
8236
8237
8238
8239
8240
8241
8242
8243
8c44
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272

8273
8274

8275

8276

041570

041614
041622
041625
041632
041640
041643
041650
041656
041661
041666
041674
041677
041704
041712
041715
041722
041730
041736
041742
041750
047756
041757
041764
041772
041774
042002
042010
042011
042016
042024
042032
042040
042046
942054
042055
042062
042070
042076
042104

042712

042120

042123

042130

006520

020
0305
0521
0410
0200
0521
6
020

30(1046)
14=SEP-B1
DATA HEADERS
.SBTTL

DATA HEADERS

15:14

D 13
PAGE 160

SEQ (159

052123
051105

020040
047522

DHOOOA:

.ASCIZ

/TEST

ERROR/

020115
041520
051505
052040
012
046525
050040
042520
041501
000
041513
051040
000
046513
051040
000
046513
051040
000
046513
057040
000
041513
051040
020040
000123
051105
045522

020040
000
020124
040522

DHOOOB:

.ASCIZ

/NUM

PC/

DHOOOC:

.ASCII

/TEST

TRAP/<15><12>

LASCIZ

/NUM

PC/

DHOO4:

_ASCIZ

/EXPECT

ACTUAL/

(030523
041513

DHOO4A:

.ASCIZ

/RKCS1
.

RK(S1/

030522
046513

DHO04B:

.ASCIZ

/RKMR1

RKMR'/

031122
046513

DHO04C:

.ASCIZ

/RKMR?

RKMR2/

031522
9046513

DHO04D:

.ASCIZ

/RKMR3

RKMR3/

031123
042513
051040

DHOO4E:

.ASCIZ

/RK(S2

RKER

020040
051705

DHOO4F:

.ASCIZ

/RKER

RKER/

041113
051040

020701
041113

DHO04G:

.ASCIZ

/RKBA

RKBA/

041527
045522

020040
041527

DHOO4H:

.ASCIZ

/RKWC

RKWC/

050130
040440
020114
042523
042522
041040

041505
0521032
050040
052116
047526
(052111

DKO1G:

.ASCIZ

/EXPECT

ACTUAL

PRESENT PREVOUS BIT/

046513
051040

030522
046513

DHO10A:

.ASCIZ

/RKMR1

RKMR1

BIT

COUNT/

DHO108: ,ASCIZ

/Rk(51

RKCS1

BIT

8IT

(OUNT/

02004C
000103
052103
052524

RKDS/

052

030523

041513

0
1

2
3
&

£
9

8
9
0
1

5
6
7
g8
9

0
1

042400
042406
042414
042422
042430
042436
042437
042444
042452

062460
042463
042470

042476
042504
042511
042516
042524
042532
042537

041040
020040
030455
052111
0417440
000
105
020124
040525

052111

02
0
0
0

0
0

042544
042552
042560
042566
042574

020

042610

042

042602
042616

0
03

042

051

020

0510

DHO14:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

DHOT4A:

_ASCIZ

/RKDCYL

RKDCYL

RkDA

RKDA/

DHOO17:

.ASCIZ

/EXPECT

ACTUAL

PRESENT PRESENTM PRESENT PRESENT BIT/

DHO17A:

.AS(IZ

/RKMR1

RKMR1

BIT+1

,ASCIZ

/EXPECT

ACTUAL

BIT/

_ASCIZ

/RKECPT

RKECPT

COUNT/

DHOZ21B:

.ASCIZ

/RKECPS

RKECPS

COUNT/

DH0026:

.ASCIZ

/RK(S?

RK(CS2

RKER

052103

042 0
0201 4
0405 b)

041504
045522
020040
020040
040504
050130

0461
0415
045522
020040
000
041505

020114
042523
042522
050040
052116
042523
052111
046513
051040
020040
030453

850040
052116
042523
042522
050040
052116
000
030522
046513
041040
020040

050730
(040440

DHOO021:

020114

DHO21A:

052111
041040
020040
031055
052517

000

SEG 0160

BIT

BIT=-1

BIT=2

(COUNT/

RKDS

RKW(

RKDCYL

RKDA/

020040
052111
041040
020040
0

EE R

8306
8307
8308

161

040525
042522
050040
052116
042523
042522
041040
122
020040
030522
052111

PAGE

=
O

042300
042306
042314
042322
042330
042336
042344
042351
042356
042364
042372

—_—

8295
8296
8297
8298
8299
8300
8301
8302
8303
8304
8305

E 13

042220
042226
042230
042236
042244
042252
042260
042265

15:14

0
0
0

oo
S aniss
==
O—wWn
SO0
Owwm

8286
8287
8288
8289
8290
8291
8292
8293

0405
050130
040440
000114
045522
020040
045131
040504
045522
105

020040
020040
052111
041440
000
050130
040440
020114
041505

OQOOOOO0OOOOND
OO0
OO0
ONOWVNVNNOWNMESIN
&8
&S0
—-NNO
=NO
OO = WOO ——D
-, A O
= OO WNNO SN WN=O0OHWnN—=
O=a
s MDD aNNOH OO
H
O
S B OWWOOWWOOWWOOWW

042136
042144
042152
042160
042166
042171
042176
0422064
042212

14=SEP-81
30(1046)
DATA HEADERS

(alelelelelelelelelelelelele]
SuorownassrnorownesSsvironeSswn
NSO —=NNOO—=—=NO
=M

8277
8278
8279
8280
8281
8282
8283
8284
8285

MACY11

CIRGECD RkE1T DSKLS CTRL PRTS
4-SEP-81 13:57
CIRGEC.PN

CIR6E(D RKE11 DSKLS CTRL PRTS
(IRGEC.PM
14=SEP=-81 13:57
B333
8334
8335
8336
8337
8338
8339
B340
8341
8342
8343
8344
8345

8346
B347
B348
8349
8350
8351
8352
8353
8354

ggss
56
33 57
83 58
o} 359
8360

8361
8362
8363
8364

042624
042632
042640
042646
042651
042656
042664
042672
042700
042706
042714
042722
0427350

062736
042744
042752
042760
042766
042774
043002
043010
043012

043020
04302¢
043034
(043037

043044
043052
043060
043064
043072
043100
043706
043114
043122
042130

043131
04%i136
0643144

043152

043160
043166
043174

047507
020040
020040
042122
127
020040
020104
046525
054105
020040
046101
042520
041501
020040
045522
020040
052120
041505
045522
020040
000124
045522

042117
040502
020040
C00
051117
053440
020040
042502
042520
041501
020040
052103
052524

020040
020104
040505
045522
020040
030455

053440
020040
000104
051503
040502
020066
051105
033461
047527

020040
(051105
042122
040

15:14

MACY1Y

20(7046)
14=SEP=-B81
DATA HEADERS

PAGE 162

¢
0
O

DHO37A:

_AS(C1Z

/GOOD

BAD

wORD/

0
O
O
0
0
0
O

DHO37R:

_ASCIZ

/wORD

WORD

NUMBER/

DMO04T:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

AC UAL

BIT/

DHO4TA:

_ASCIZ

/RKECPT

RKFCPT

RKE(PS

RKECPS

COUNT/

044502
041505
045522
020040
051520
041505
047503

O
O
0
0
0O
02
051
0471

051503

020062

DHO60A:

.ASCIZ

/RK(S2

BUFFER

WORD/

020040
051117
051040

DHOECB:

.ASCIZ

WCRD

READ/

02 062
03
83

DHOE3A:

.ASCIZ

/RK(SZ

BA17-16 BUFFER

052502
020040
000
020040

020040
041040
020104
020104
020104
051040

043106
047527

SEG Q167

BA17-16 WORD/
Et

03
04

E+

DHO63R:

LASCIZ

PUF

WORD

1,
EP

wD READ READ/

£l

gf
En

B!
Er
Er

Er
E!

El
Er
1

gg;g

8426
8427
8428
8429
8430
8431

043564
043572
043600
043606
043610
043616

040440
040440
052120
046511
020104
000
122
044440
047522
045522
047111
051117
122
044440
047522
045522
047111
051117
122
047111
051117
122
047111
051117
122
047111
051117
105
040440
052120
047524
020104
051105
020103
046501
000
105
040440
052120
047524

042510
051040
047503
000105
045522
047440

ERROR MESSAGES

PAGE

163

SEQ C16¢

054105
042105
051117
0644522
040516
051126

042520
046440
020131
054524
046102
050101

EMO00:

.ASCIZ

/UNEXPECTED MEMORY PARITY ENABLE

051122

051117

EMS5004:

.ASCIZ

/ERRCR AFTER ATTEMPTING IMPLIED SEEK/

041513
0207116
000122
051115
0462440
000
046513
020116
000122
051115
0462440
000
042513
042440
000
041113
042440
000
053513
0462440
000
051122
052124
047111
051040
042510
051440
050050
046102

030523
051105

€5004A:

.ASCIZ

/RK(S1

IN ERROR/

020061
051122

E5004B:

.ASCIZ

/RKMR1

[N ERROR/

031122
051105

ES004C:

.ASCIZ

/RKMR2 IN ERROR/

020063
051122

ES5004D:

.ASCIZ

/RKMR3 [N ERROR/

g
E50C4E:

.ASCIZ

/RKER IN ERROR/

020101
051722

ESO04F:

.ASCIZ

/RKBA IN ERROR/

020103
051122

ES5004G:

.ASCIZ

/RKWC

051117
046505
020107
040505
042101
047131
042522
024505

EMS010:

.ASCIZ

/ERROR ATTEMPTING TO READ HEADER SYNC

051122
052124
047111
042040
042101
040505
050115

051117
045505
020107
020117
051105
027504
051101

EMS011:

_ASCIZ

RERROR ATTEMPTING TO DC HEADER READ/COMPAREE

041504
020122

046131
045522

ES017A:

_ASCIZ

.
/RKDCYL OR RKDA [N ERROR/

0527106
052124
047111
046120
042523

05110¢
046505
020107
042511
045505

020122
051122

TRAP/

mmmmmm

043250
043256
043264
043272
0433CO0
043306
043307
043314
043322
043326
043334
043342
043345
(043352
043360
043364
043372
043400
043403
043410
043416
043421
043426
043434
043437
043444
043452
043455
043462
043470
043476
043504
043512
043520
043526
043534
043535
043542
043550
043556

047125
052103
046505
040520
042440
020105
000
105

.SBTTL

G 13

IN ERROR/
(PREAMBLE)/

mTMm

B386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8413
8414
8415
8416
8417
3418
8419
8420
8421
8422
8423
8424
8425

043176
043204
043212
043220
043226
043234
043242
043243

ERROR MESSAGES

15:14

TMm

8378
8379
8380
8381
8382
8383
8384
8385

T14=SEP-81

13:57

30(1046)

lag]

14=SEP=-81

WACY11

mmm

CIRGEC.PYY

DSKLS CTRL PRTS

[aalaalaal

(IRGECD RKE'T

8480
8481

8482
8483
8484
8485
8486

8487

0441752
044160

044166

0464174
044202
044210
044216
044224
044232
044240
044246
044254
044262
044270
044276
044304
044312
044314
044322

RBiAainALRLALRLA. S

SEQ 0163

EM5015:

LASCIZ

/ERROR

ATTEMPTING

TO READ

EM5C20:

LASCIZ

/ERRCR

ATTEMPTING

TO WRITE

DATA

EM5021:

LASCIZ

/ERROR ATTEMPTING

TO WRITE

DATA OR

ESQ021A:

LASCIZ

/ERROR

EM5023:

LASCIZ

/ERROR BETWEEN SECTORS ATTEMPTING MULTI=SECTOR WRITE/

EMWT:

LASCIZ

/MR1

INCORRECT

EMW?:

LASCIZ

/MRT

INCORRECT ON 1ST DOWNWARD

EMW3:

LASCIZ

/MRT

INCORRECT ON ZND UPWARD

GAP/

PREAMBLE)/

Mmin

SYNC

alel
[T

164

(] Ralnalaslaslaslaslaslasls

O?OOOOOO OOOODO

()
Sosrnosn
Sruniuinoonro
—SONNOOCOO—=NSIOON—=
NNOOCOCO
VN
O
OV
N
N
O
O = b —a
O —=NUVNO—-=ONOO—=OO
N =NUN) =
NS 2O WM -2 N0N — N) NIWITNO = OO
O

PAGE

IN ECC

GENERATION/

—

) e

)

D e

) e

)

=L SANNNNOO——O

ECC/

0200

1ST UPWARD

TRANSITION OF

MAINT

TRANSITION OF

(CLOCK/

MAINT

(LOCK/

TRANSITION OF

MAINT

CLOCK/

aadl gl oo

8478
8479

044144

H13

NDONNVOOON—=OON)
NV
2 WOV NN

8477

044132
044136

15:14

NN
O—=
HOO0OWN
=

8475
8476

044116
044124

=HINO=N

8464
8465
8456
8467
8468
8409
8470
8471
8472
8473
8474

044074
044102
044110

051

= 2O NN —

8463

044044
044052
044060
044066

14=SEP=-B1
30(1046)
ERROR MESSAGES

8461
8462

024040

8451
8452
8453
8454
8455
8456
8457
8458
8459
8460

040504
05110%
051105
052101
044524
020117
043440

13:57

o elelelolalelalalolalolelsle)
&» S eSnnesnesonununge
S
W N NN = S NOWNN
= ONWN

8444
8445
8446
B447
8448
8449
8450

043624
043632
043640
043646
043654
043662
043670
043675
043702
043710
043716
043724
043732
043740
043746
043754
043762
043770
043776
044004
044012
044020
044022
044030
044036

14=SEP-81

[wlelelelelelelelelelele]
SO oML S
i
v

B432
8433
8434
8435
8436
8437
8438
8439
R440
8441
8442
8443

MACY11

DSKLS CTRL PRTS

O==NVONNL=NUNVO—=LO—=—=00NNNO—=—=TVMN—=NV=
=000 H =200 Hhro—=NNOO
=
WWVWS OSSO WS WNWWNINI = QU S W= 800Ny
= O =2 NTWO NN S =i

CZR6ECD RKE1T
CZRGEC.PN

—

D
b cald wild cal wd oo

00 00 0o 0o 0o Do 00 O oo

SN -

8533
8534
8535

8537
8538
8539
8540
8541
8542
8543

0O
00
05

04
04
05
05
042

044732
044740
044746

0521
000
127
052040
020114
052040
031040
052103
026065
020104
020124
047125
052103
051122
0&42;8
054
0475 s
042503
047440
047514
051127
047524
030440
052040
031040

044762
044770
044776
045006
045012
045020
045026

026065
020104
020124
047125
052103
046131
020122

052103

020061
051122

0
0
0
0
0
0
9

051440

052105

044522
020117
031466
040522
020054
0511'7
053440
047503
030064
054105
042105
051117
042514
047111
043040
041440
042526
000127
052111
041440

042524
054503
026062
045503
042
031
951
047
000
042520
042440
053440
052040
020107
051117
046131
043122

051117

031040

032464
040522
020054

053440
047503
030064
054105
042105
047111
053117

020105
046131

EMW4:

LASCIZ

/MR1T

INCORRECT ON 2ND DOWNWARD TRANS!

ION OF MAINT (LOCK/

EM5026:

.ASCiZ

/EXPECTED CYLINDER OVERFLOW ERR DID NOT SET/

ES02€A:

.ASCIZ

/WRITE

EM5027:

.ASCIZ

/UNEXPECTED ERROR WHILE

ES026B:

.ASCIZ

/WRITE

EM5030:

.ASCIZ

;
/UNEXPECTED CYLINDER QVERFLOW WRITING LAST PHYSI(AL ADDRESS/

TO (YL 632,

TO CYL

1456,

TRACK 2,

SECTCR 25, WORD COUNT &4C1/

'
TRYING TO FORCE CYL OVERFLOW/

TRACK 2,

SECTOR 25, WORD COUNT 401/

026066
045503
042523
051117
047125
000061
042520
041440
042504
051105

YTM

L
&

SEC C164

165

0
0
0
0
0
0

113

PAGE

051
047
02
O
0
O
8

047117

052440
020104
044523
047440
047111
041517

15:14

020124

042116
05N
047
047
040
046

30(1046)
14-SEP-8T
ERROR MESSAGES

Jrrerrsoreree

044754

D00 NN

8536

oo v

8520
8521
8522
8523
8524
8525
8526
8527
8528
8525
8530
8531
8532

044402
044410
044416
044424
044432
044440
044446
044454
044462
044470
044472
044500
044506
044514
044522
044530
044536
044544
044545
044552
044560
044566
044574
044602
044610
044616
044624
044632
044640
044646
044654
044662
044670
044676
044704
044712
044716
044724

8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510

044330

044336
044344
044352
044360
044366
044374

VACY11
S ENOVIWESS
SO
SN

8488

84B9
8490
8491
8492
8493
B494

DSKLS CTRL PRTS
14=SEP-81 13:57

AR OGN OO=NONN
== N0 =0 ——=O0

“IR6ECD Rk611
(ZROEC.PN

_ASCIZ

/UNEXPECTED ERROR WHILE WRITING LAST PHYSICAL ADDRESS/

EM5032:

.ASCIZ

/ERROR ATTEMPTING TO READ DATA SYNC

OOHN =N
=L OVIV

EM5034:

.ASCIZ

/ERROR ATTEMPTING TO REAL DATA OR ECC/

042440

EMS5035:

_ASCIZ

/ECC ERROR IN READ DATA OPERATION/

OO =N
OOV
NINNG

EM5037:

_ASCIZ

/DATA (OMPARE ERROR AFTER INPUT NPR TRANSFER/

NO—=OO—=HfROOHhOoON)
S NNO S~ =CTCWUVWOWMND

EM5041:

_ASCIZ

/ECC REGISTER NOT CORRELT AFTER ECC READ IN READ DATA/

EM5042:

,ASCIZ

/ERROR IN ECC PATTERN CALCULATION AFTER ECC ERROR/

ERROR MESSAGES

15:14

PAGE

166

SEQ 0165

(PREAMBLE)/

— O

-2

- Ot R O b D e A ) D D e e e B O AN = \N IS

OOO0O0O0
Srororowvn
o

= OOH—=NNNONN)LONIOWOO
=N — I~
IO = OVINNW—=WW
2NN
OO N =800

EM5031:

OO0O0O0O
SerosD

14<SEP-81

OCOOOOCO
HNuonuranaun
e
NIV
=
) —

= NN
VIO WV
N

=N=0ONINN—=O0OON)—=
oo
O SOV =N

041503
051
04
05
05

MACY11

J 13

30(1046)

OO0OO0O0OOOO
oSS
nes
ON= ==

Nwn

N—
oo
AW = N

oo S

NN = NS WON) —

SN
NN O
=N
ONWO
BN

NNVVNO = ON=NINO = =

04
000
047
0425
043516
042522
052101
042440

0201
041503

N
N
St \ Nt O =t et O b

OO0
wvisHSson
N

— "D
NOOOON =T
o ~no S nBWONNONIWW

040520

VIO
=2 b\ n &

par G
Ny

\ N =2\
= et
3 \N O =
e =

042040

054523
051120
042514
051105
052101
044524
020117
042040
051117
000
105
051122
020116
042040
050117
047511
040504
046517
042440
040440
044440
047040
040522
000122
041505
044507
047040
051117
040440
042440
040505
051040
040504
105
044440
020103

045222
045230
045236
045242
045250
045256
045064
045272
045300
045306
045307
045314
045322
045330
045336
045344
745350
045356
045364
045372
045400
045406
045414
045422
045424
045432
045440
045446
045454
045462
045470
045476
045504
045511
045516
045524

045214

- \UN e
T L
G

8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599

—

041
051
044
051
028
05
04 0
05 1
05 1
052
044
0201

8563

046106
044522
046040
044120
0461
042

o j=lele] o COO0OO0O0O
OCCOOOO oo
A I LS IRV I
LV VIV P
o NS N Y
SO
o -0 O-—=2NNLNLNVO
=2 ON=O0OO0CC =N

045034
065042
045050
045056
045064
045072
045077
045104
045112
045120
045126
045134
045142
045150
045156
045164
045172
045200
045206

=SNVOOOOHONNOONINO
N
NS WO NN NVAVIND
—

8544
8545
8546
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
8559
8560
8561
8562

(=lelelelelelelelolelolelelelelelelelelele]
D
o o e
Y N Y
P o
o
W
v
IV I S
O=TVNVWNIN=O
N ONONNIN = O =
NN

CIREECO RK611 DSKLS CTRL PR
14-SEP-81 1
CZREEC.PN

CZRGECO RK611 DSKLS CTRL PRTS
CZROEC.P1
14-SEP=-81 13:57

020116
046125
020116
020122
051105

040503
052107
043101
041505
047522

047522
042440
051517
020116
044526
052106

020122
041503
052111
047503
043516
051105

) =\ ) =D d et SN

OONNOMNNLES
VIVVAWNONDO

OB
NINODOOMD =N
INDWN
OO WS WS & o0

— e \ N =2 O NNt e \ N b\ = \ ) b = d

042440
000
051117
051105
042503
020107
041440
042440
00
051516
042514
042440
040440
052120
040520
020114
051117
040522
000
051440
020722

eleleleleoleleBelolelelelelelelelelolsle)
o
H S-S0
oSV
S S OIS
no
= NNLONOO =
NVONNNDNLINNO
= —=OMNWN o

0
0
0
0
0
0
0

OWN=ONNSVI—=

0
0
0
0
0
0
0
0

OO
=
OO —

041503
051117
051122
052106
047522
047111
040524
045503
051117
040522
020122
044124
051117
046505
020107
040511
052103
042520
047117
042101
047524
047522
020104
0511.0
020124
042522
051104

PONNO

051105
041514
047511
042524
020103
000122
051105
047111
050040
047511
047125
040440
042440
051122
105
040440
050040
051523
040504
042510
051122
124
042506
043516
051122
052124
047111
052122
042523
(047440
044524
102
041505
051105
044504
020124
047105
044523
042101
020123
0465
040
052
051
042
041
041440
047524
000
102
041505
051105
040506
052040
020124
(42440

045532
045540
045546
045554
045562
045570
045572
045600
045606
045614
045622
045630
045636
045644
045651
045656
045664
045672
045700
045706
045714
045721
045726
045734
045742
045750
045756
045764
045772
046000
046006
046013
046020
046026
046034
046042
046050
046056
046064
046072
046100
046106
046114
046122
046130
046136
046144
046152
046160
046161
046166
046174
046202
046210
046216
046224

ONN=NHN
=

B600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613
8614
8615
8616
8617
8618
8619
8620
8621
8622
8623
8624
8625
8626
8627
8628
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

MACY11

30(1046)

14-SEP-81

ERROR MESSAGES

15:14

K 13

PAGE 167

EMS043:

.ASCIZ

/ERROR IN ECC POSITION COUNTING AFTER ECC ERROR/

EM5044:

.ASCIZ

/ERKOR AFTER PROCESSING DATA CHECK ERROR/

EMS5046:

.ASCIZ

/TRANSFER LENGTH ERROR ATTEMPTING PARTIAL SECTOR OPERATION/

EM5047:

.ASCIZ

/BAD SECTOR ERROR DID NOT PREVENT DESIRED ADDRESS INCREMENT/

EM5050:

.ASCIZ

/BAD SECTOR ERROR DID NOT CAUSE CERR TO SET/

EM5051:

.ASCIZ

/BAD SECTOR ERROR FAILED TO SET WHEN EXPECTED/

SEG 0166

8690
8691
8692
8693
8694
8695
8696

8697
8698
8699
8700
8701
8702
8703
8704

8705
8706
8707
8708
8709
8710

046532
046540
046546
046554
046562
046567
046574

046602
046610
046616
046624
046632
046640
046644
046652

046660
046666
046674
046702
046710
046716

051
020
020
OZg
05
05 1
04 4
051
040506
052040
020124
020066
047515
124
042506
043
05
0
0
0
0
0
0
0
0
0
0
0

040 5
052 1
051 1
0415
000104
047522
042524
043516
042 2
04 0
04
0
04
0
05
0
04 4
0
1

2
0
1

0
2

04611
02011
04711
04450
04250
04052
02012
2
}

0
1

2
1

0
2
1
1
1

0
0

EM5052:

OO
nes

]

052040
042506

15:14

L 13
PAGE 168

.ASC!I

/DATA TRANSFER DID NOT CONTINUE TO END OF SECTOR/

LASCIZ

<15><12>/WHEN BAD SECTOR ERROR OCCURRED/

EM5053:

.ASCIZ

/ERROR ATTEMPTING WRITE CHECK OR ECC READ AFTER WRT (HK/

EM5054:

.ASCIZ

/ECC ERROR IN WRITE CHECK OPERATION/

EM5060:

.ASCIZ

/WRITE CHECK ERROR FAILED TO SET IN 16 BIT MODE/

EM5061:

.ASCIZ

/TRANSFER LENGTH ERROR WITH WRITE CHECK ERROR/

EM5063:

,ASCIZ

/WRITE CHECK ERROR FAILED TO SET IN 18 BIT MODE/

= O=NSON
Wiy~ ~ROoONOoOWVMWD

(020116
042523
042440
047440
042522
051105
052101
044524
044522
042510
020122
042522
052106
052122

0001
040 g
051
044 5
020 1
047
020
043;
047
053 4

OO0O0O0OC
Lo
s

046322
046330
046336
046344
046352
046356
046364
046372
046400
046406
046414
046422
046430
046436
046444
046445
046452
046460
046466
046474
046502
046510
046516
046524

042524
040504
040522
020122
047516
052116
052040
020104
041505
015

30(1046)
14-SEP-81
ERROR MESSAGES

o OOO0O0
~S
~N
~
BB
OOoOWVMND

8666
8667
8668
5669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689

046232
046236
046244
046252
046260
046266
046274
046302
046310
046315

MACY11

020103

042440

o joleleleleleoBeleloleoleoleloBelelelelelole
no
o
O onrno HSNONL=O
OO
L ONH/NON
O =O
o~ oWV
MTWNOO
SO O SO wWnnWInON'DN

8656
8657
8658
8659
8660
8661
8662
8663
B664
8665

ONOO
=N =t
N
= NO

CZR6ECO RKk611 DSKLS CTRL PRTS
CZROEC.P1
14=SEP-81 13:57

SEQ 0167

CZROEC.P11

14=SEP-81

8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723

046724

PAT2:

042213

15:14

Mm13
PAGE

169

.EVEN
DATA PATTERNS AND BUFFERS
PATTERN 1

= ALL ZEROS

PATTERN 2 = ROTATING CELL PULSE PRECOMP

PATTERN 3 = MAX PRECOMP PHASE MIAx

046764
046764
046766
046770

046772
046774

046776
047000
047002
047004
047006
047010
047012
047014
047016
047020
047022

PAT3:

B
e s I T
DERREY Y o T ey, Yy
WWWWWWWINANINONON
NN\ ON W
WWWWWWWWWNNON
O NN OV
WWWWWWWNNONON
W
N O W
WWWWWWWN
NN
NN OV N
WWWWWWWANINONON
NN ON N

8727
8728
8729
8730
8731

.SBTTL
b

046724
046724
046726
046730
046732
046734
046736
046740
046742
046744
046746
046750
046752
046754
046756
046760
046762

14-SEP=-81

ERROR MESSAGES

- %

WWWWWWWNNONON
NN OV
WWWWWWWINTINO
O WO N
WWWWWWWANY
NN WO N

8725
8726

30(1046)

— el
e e e B OO R
LD O WWWWWWWN
NN WWN NN W
WWWWWWWONINONON
NN NN N

8724

13:57

MACY11

o = OO0 =00 =000 —=D——
&~ O=NH=NHO—=rOWNLoNNIN
o S=NOSO-2NOWNWNON
NSO =
~n SOOIV
O =N
—
NOVWONVNNOS
O =S =N
O
W OOV
O—=MNN
NSO 2OV

CZRGECO RK611 DSKLS CTRL PRTS

PATTERN 4

047024
047024
047026
047030
047032
047034
047036
047040
047042
047044
047046

PATSG:

177777
177777

177777

052525
052525
052525

177777
177777

052525
052525

= HI-LO FREQ.

MIX

SEQ 0168

¢z
(Z
TS
Tyl
TY

CZRGECO RK611 DSKLS CTRL PRS
CZRGEC.PI1
14-SEP-81 1

8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801

047050
047052
047054
047056
047060
047062

30(1046)
14=-SEP-81
1 2: 14
DATA PATTERNS AND BUF ERS

N 13

PAGE 170

177777
052525
177252
177252
172765
172765
PATTERN 5 = ALTERNATING 1'S AND 0'S
PATTERN 6 = COMPOSIT ROTATING

047064
047064
047066
047070
047072
047074
047076
047100
047102
047104
047106
047110
047112
047114
047116
047120
047122

072307
135143
156461
167230
073514
035646
016723
107351
143564
061672
030735
114356
046167
123073
151453
164616

Bt e O
OO == OO
=D
VIS = NN PO = WOV

8768
8769
8770
8771
8772
8773
8774
8775
8776
8777
8778
8779
8780
8781

MACY11

047124
050130

000402
000402
000001

:
IBUFF
F
OBUF :
.END

073

PATTERN 7 = ALL ONES

BLKW
BLKW

402
402

SEQ 0169

B 14
MACY11 30(1046)
14-SEP-81
15:14 PAGE 172
CROSS REFERENCE TABLE == USER SYMBOLS

ABASE = 177440
ABORT
041413

1307
82084

= 000000

= 120210

BAI

= 000000
002334
= 000020

NS =00
OV NWNO YOV
OO
00 OW

b
) wd

NN NN
s

wdld
b
ol
b
il
wd wad
and
il
) cnld
ol wd wd
i
ol
il

LN NN NN N NN NN NN NN NN W
O=B P WNWO ==
NN
BWW—=

e el
b i i
e e
i
b N N

7274
70914

70904
70924

1320
3
3
3
3
3
7

COHONY
— —
NN =S

;

000100
000000
000000
000000

APTSPO=
ASWREG=
ATESTN=
AUNIT =

1348

1322

D i coul il il

D
s
ol
il e
s

93¢
49

i N

| APTSIZ= 000200

e et e e

APTENV= 000001

APRIOR= 000005
APTCSU= 000040

i e

APASS = 000009

i i s

) i

D i

o
o
o
o
o
o

o
P
N

D i <l

)

s i

) e o ol e o

o
o
o
o
o
o

el i i

T
T
—a

v
L
T T

L =

3
=
=4

(00000
(00000
000000
(06000
000000
000000
000000
000000

AMAMS4=
AMSGAD=
AMSGLG=
AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNYNNO
&~
k-3

i N

10544

T
A
T
T

ADDWO
ADDW1
ADDW1

ACLO
ACPUOP

ACDW1
ACDW2

CZREECO RKE11 DSKLS CTRL PRTS
CIRGEC.P1
14=SEP=-81 13:57

7125
7269

1346

7267

SEQ 0170

= 100000

(OT
CERR

= 002000
= 100000

CFMT

= 010000

CKSWR = 104407

6266

5586

5591

5856

4132

3545

4131
5661

6978

6132

5555

5895

5635

6763

3018

3020

4001

4003

2454
5569

3284
5600

3010
4577

4713

2866+

4356+

2867

6231

3143

2996+

3414

5652

3276

4804

3129«

4412+

4470+

44694

4598

2997

3130
4723

2558

4079

6210

4440

1979

6119

4799

5094

5387

7109

AAAAAAN

SPVONN
=
NN —
—d\ N
SO =
ONON —
AU NO O NV OO 0o 0o W~ 0o
WO NON = WNPROWVON
—

6240

6184+
7946
6134

5565

3504+

5555+
6C18+
6274+

5917«

5805+

7113

3587+«

5512+
5943+

AAL NG VA AARAANPRARAAPRANAAAN

5497«

3414
3549
7120
3546

2 —a
d
—

3548

— el N
- O
— e P\ =
(N
NN00 00O
N
=i
-

WNPNDON N =
e \ N (N = = =
NOWVNIO S = =
NV O—=H =000 =000
—NH0OHONVNONONO
O

NONOWNMO
—

&~
o

—

3417
6762

— d
= N
Vi
N
NIO

3287
6324

7943

3473

3325+

4652+

AR AN

7937

$ 784+
6085+

3211+
4635+
5794+
6097«

7934

5760
6073«

—

3194+

4190«

NPNL NN 2 b 2 N (N = = =
Lo F o I S
A I e e e )
OO ' N=O VN aunonOs
S OVOVH Wi~

S WWWAKNW
- OO 00NV
N

- PN~

b cnd
and
e

— i —
—

3078«

4173«

SEQ 0171

A AR
A A AN

CCLR

BSE
= 000200
BSEDES 002352
O NN =N
NOW—=ON—=O00N)—

—d

. BPTVEC= 000014

032014

o
Nt e b
e
OWWW—=OWWNWNS
=WV
S NW—=O O

" BLDDAT

1146

) =D ed = \ NN =D e —d —d

= 000400
= 001000

MNNN)——
-2
N—=OVo

BIT? = 000200
BIT8
BITS

OON—=0—=
== VOWN—=NWWNSTO
CONWVMIONOVNUNWNSAN
2SO0

= 000010

= 000020
= 000040
= 000100

[0
W
B
e S W B
e
)
ON =200 (N
=3 =2\ ) =
= ed b —d —a

T15 = 100000
12"
= 000004
T4
1S
16

6254

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

6198

=
=
=
=
=
=
=
=
=
=
=
=

104
105
106
107
108
109
1
110
T11
T12
T13
M4

988#
9874
SR6#
G8S#
9844
9834

o o

103 = 000010

5747+
6062+
6296

1127

9984
5905

3061+

4059+

5745+
6038+
6291

— ek
2 O—
OO0OO0O0OY N
S WNCYO o

100 = 000001
101 = 000002
102 = 000004

40462+

o o

= 000001

2948+

3719+
5614
6023
6275

ONANDWN S < i cd N
D o e o e ed
OONO Y= OOOWN—=O—=—waw
NWSOWOOOVO\NO—=—=2aNO
ONWVION
=0 NAWWWMWN =WV

e b

WoOOWOom®

Pt et

oo oo

g Pt Bt

0 Pt Pt S0

0 b

=t bt b

oo oo oo

BITO

1097#
1098#
1737#

O WONWOS
—a
O—=OOV—=—=
w WWOMNOWVMOD

BA16 = 000400
8A17 = 001000
BITCNT
002326

13:57

~ NN

14=SEP-81

C 14
30(1046)
14=-SEP-B1
15:14
PAGE 173
CROSS REFERENCE TABLE == USER SYMBOLS

-—

CZRGECO Rk611 DSKLS CTRL PRTS

CIRGEC.PT1

MACY1T

DFO0TT
DF00T4
DF0017
DF0021
DF0026

DF0027
| DFO037
DFO040
DFO041
- DF0042
DFO043
DFO045
DFO046
DFO0S0
DFO060

DFO06!
DF0062

| DFO063

.
|
|

|
|
|

040474
040524
040550
040574
040620

040640
040654
040674
040700
040720
040740
040760
041004
041024
041050
041070
047114

041140

DHDCMP

024276

DHOOOA

041524

DHOO0B

041542

DHOOOC
DHOO17
DHO021
DH0026
DHOO4
DHO04A
DHO04B
DHO04C

041555
042265
042437
042537
041606
041625
041643
041661

DHO04D
DHOO4E
DHOO4F
DHO04G
DHOO4H
DHO041

041677
041715
041742
041757
041774
042700

11004

72308
11428
9200
11548
1371

1386
1392
1398
14064
1410
1616
143,
1452
14664
1494
8073#
1548
1554
1560
1566
1572
1586
1590
1602
1650
1656
1662

1668

1946
2810
4367
1498
8025
7975
8099
1369
8051

8061
807
7977
7979
7691
8001

8011
7981
8121
8129
8167
8093

3274

3404
5195

3535
66054

3666

3797

3902

3239

3370

3501

3632

3764

4087

4218

4680

1578

1638

1644

79774

79934
8003#
14640

1518

1530

1620

8013

1632

80234

1626
1506

B0S54
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
8153

8109
8324
999
823w

83124
8119

8127

8137

7531
2976
1265

7614
3106
179

79654
1488
79834
1476
1482
1422

1400
1596
80454
1536
1500

80794
8087#
8089#
80974
81054
1608
1614
81314
8141#
81494
8iS9#

81694

2010
2908
4404
1546
8037
7987
8107
82284
82934

8101
8077
7989
8139
8239
82424
8245#
8033
8252#
8157
82584
83414

3446
80354

3008

4575

3141

3989

4121

7340

1458

1536

1542

21134
8123#

82484
82554

YTM

4802

2878
44B2
2641
7340
7284

NARAAAARNN

001000
000015
000200
004000
034764
100000
177570
000400
040320
040324
040354
040400
040424
040450

4711

2791
4348
2561
7330
1831

ers
£ b0t

COE
=
(R
=
CRLF
=
=
€10
CTRHLT
DCK
=
DDISP =
=
DDT
DFO00
DFON04
DFO00S
DFO006
DFO007
DFO0T0

10794
2684
4253
11368
913¢
914#

SEQ 0172

AP AAR A

CLEAR = 000005
CLRIBF
031770

D 14
MACY11 30(7046)
14=SEP=B1
15:14 PAGE 174
CROSS REFERENCE TABLE == USER SYMBOLS

8009

2483
3621

5232
7985
8171
8069

82264

8155

8165

82334

2615

2703

4150

4272

8005

8015

8081

8091

AAAAANRARARALR

CIRGECO Rk6E11 DSKLS CTRL PRTS
CIRGEC.P1
14=5EP=-81 13:57

CIRGECD RK6TT DSKLS CTRL PRTS
CIRGEC.P1T
14=-SEP=-81 13:57
D010
DHO10A
DH010B
DHO1&4
DHOT14A
DHO17A
DHO21A
DHO21B8
DHO37A
DHC3I7B
DHOLTA
DHO60A
DHO60B
DHO63A
DHO63B
DI
=
DISEEx

042011
042055
042123
042171
042230
042351
042463
042511
042624
042651
042744
043012
043037
043064
043131
040000
023334

DISPLA
DISPRE
DLT
=
DMD
=

001142
000174
100000
000040

8019
8021
8031
8041
8043
8053
8063
8111
8083
8085
8095
8145
8147
8175
R177
11044
1932
3421

4917
12654
119424
11234
11654

2635

4763

5372
gggg
-

DRA

DREAD

DRGPSN

DROT
= 000040
DRPAR = 020010
DRSYNC
023740

DRDY

= 000001

= 000200

83164

A,
o

83624

83694
2050
3552

5014
1794+
1802

1963

2167
3684

5107
1802+«

2284
3804

5220
6993«

2405
3909

2520
4007

2603
4138

2691
4260

1964

2081

2082

2198

2199

2315

4860

4952

4953

5489
6578

5049

5584
6581

5050

5142

3051

3184

3315

2636

2835

5373
6526

5394
6538

4859

2836

5464
6550

53584
7112«

3946

2947

4303

2798
4355

2316

2896
4496

2436

3026
4600

3159
4725

3290
4816

2437

2552

2553

5257

5336

4304

4391

4392

4533

5751
6582

5789
6583

6029
6584

6063
6587

6441
6588

6471
6589

6485
6550

3446

3577

3709

3829

3934

4032

4163

5143

5256

4534

4762

5337

11464

1153%

026500

2708

28°5

2913

4617

4742

4833

3438

4934

3569

5031

3701

5124

3821

5237

3926

60104

4024

4155

1151#
11304
1340
2806

4513

2006
904

2058
3034

2124
3167

2175
3298

4733

2241
3429

4824

2292
3560

4925

2358
3692

2413
3812

2479
3917

2528
4015

2611
4146

2699
4268

1938

2004

2056

2122

2173
3296
4731

2239

3427
4822

2290

2356

26411

2477

1577

1601

1637

1643

79254

79304
79324
1439
1445
79414

1517

1529

1619
1523

7934#

1631

79374

DSWR

= 177570
010000
000040
040002
040006
040024
040034

040044
040054
040072
040116
(040132

4277

4363

11104
11574

1916

2697
4266
9194
11394
11324
1370
1385
1391
1397

1403
1409
1415
1433
1451

4372

4400

2804
4361
1264

79244
1487
79284
1475

1481
1421
1427
1595
79434

4504

2502
4398
1793

Ci
#
8
8
.

g?g;‘

023316

DT000S
DT0006
DT0007
DTO010
DT0011
DT0014
DT0017

82614

zggg

DSECTR

=
DTE
DTYE
=
DT000
D10004

82754
8282#
8288¢
8302#
8103
83204
83334
83374
83478
8354#
83584

SEQ 0173

zség

- DRVMSKk= 000007
= 040000
- DSC_

.
'

8029
82684

E 14
30(1046)
14=SEP=B1
15:14 PAGE 175
CROSS REFERENCE TABLE == USER SYMBOLS

027176

MACY11

3043

4608

3032
4502

1457
,

317¢

3165
4606

1469

3307

1541

5022

3558
49273

5115

3690
5020

5228

3810
5113

5457#

3915
5226

2526

4013
53364

2609

4744

MACY1T

DT0021
D10026
010037
510040
DT004T
DT0043
DT0045
DT0046
DT0062
DTC063
DWGPSN
DWRITE
DWRTCK
ECCGEN

040154
040166
040210
040214
060222
040240
040252
040267
040272
040302
025204
025604
027176
030462

1463
1493
1547
1553
1559
1571
1583
1589
1661
1667
1950
1957
4521
ggg;

1535
1499
1649
79524
7953
79564
1607
1613
79628
7964
2068
2075
4625
0e7,

7958#
1655

79604

2185
2192
4750
3200

2302
2309
4B41
3331

2623
2430
4942
3462

2538
2545
S039
3593

2621
2628
5132
3725

S732#
58374
5245
4048

61654
4178

ECCHI
ECCLO
ECCSRC

002340
002342
002344

17428
17438
176448
3892+

SB4iv
5843+
2674%
3998

5904
5932
2780+
4130%

6185%
6186+
2781«
4243%

6250
6251
2887+
4338+

6401
641l
3017+
4472«

6407
6416
3150«
4473«

6412+
G417+
3283+
4590+

ECCw = 020000
ECCXOR 002336
ECH
= 000100

11734
176418
1133

5394
6403+
2070

5464
6409+
3106

5489
6413
3237

5584

5751

5789

3368

3499

3501

176458

2714%

2821+«

2919+

176468
3183~
3478+
3933«

2715+
3203~
3486+
4031+

2B22+
3204
I574«
4051+

2920+
3216
3596+«
4052

ECPATX

002346

£CPOSX

002350

4161

£520%

EHO26
EHC30
EH03T
| EMTVEC=
CEmw

001602
007622
001632
000030
001510

EMJ1
EMW2

044136
044224

EMWe

044402

CEMW3
EMOO0
EMS004
EMS010
|

CIRGECD Rk611 DSKLS CTRL PRY§
CIRGEC.P1T
14=SEP=B1 13:5

EM5011

EM5015
EM5020
EM5021
EM5023
EM5006
EM5027
EM5030

EM5031
EM5032
EMS03L

6298+
14928
15048
15108
1008#
14494
2620%
644t
6476

4283%

4624%

6301
2649+
2563+
2567+
1777+
1949+
2627+
BLO7H
6531

30(7046)
14=SEP=-81
15:14 PAGE 176
CROSS REFERENCE TABLE == USER SYMBOLS
1565
1505
7951a

4378+

1625
1517

79444
79«8#

3049+

3182+

3891e
5087+

5887

5925

6063

6277

6280

3630

3632

6029
)
36z

4085

4216

4218

3444+

3575+

3932«

4030+

2953«
3334«
3617«
4162+

2961+
3335
3708«
4182+

3050+
3347+«
3728+
4183

3070+
3355+
3729
195+«

3071
3445+
3741«
4203«

3083«
3465+
3749+
4284+

3091+
3466
3878+
4379

2191+
6531+

2301«
6543+

2308«
6555w

2422+

2429+

2537*

2544s

2537
2429

2620
2544

84394
2627

3313«

2067+
6476+

2074+
€490+

2184+
6505+

4940+

4B4Cr

5037+

4941+

3707+

5130%

5038«

3827+

5243«

5131+

6293

5244+

6246

6285

B476a

8385#

2067
1956
1485

2184
2074
B458#

2301
2191

2422
2308

8559
1635

85e7#

85%0#
1521
1539

3787+
4995+

1778+
1956+
6h4hbr

1587

1509
1515
1527

3675«
4898+

4749+

140"
B413#

045077
045164
045242

3544+
4793«

4665+

1395
1443

1425

6423

4657%

83784
1389
1413
8434k
1949
1467
1479
8505#
85224
85404

6422+

4645

2941
3314+«
3609«
4072+

1368
1363
1407
1419

6421+

Lb4Lr

2940+
3224+
3597
4064+

043176
043243
043455

1437
1455
1461
1473
1491
1497
1503

6420
6418w
3413+
4702+«

4839+

B84BbH

043535

6215

4748+

6543

043640
043675
043754
044052
044472
044632
045004

5868

4623+

6490

6555

4641

4519+

044314

6505

SEQ 0174

8495#

1471

84224

B447#
-

Gl
Gl
LI

CZRGECO RKke11

(IR6e (P11

DSKLS

CTRL PRTS

14=SEP=-81

13:57

EMS035
EM5037
EM5041
EM504g
EM5043
EM5044
EM5046
EMS047
EM5050
EM5051
EM5052
EM5053
EM5056

045307
045350
045424
045511
045572
045651
045721
046013
046106
046161
046236
046356
046445

1533
1545
1557
1563
1569
1575
86214
1593
1599
1605
1611
1617
1623

EM5063
ERRCNT

046644
002314

1665
17324

E.ASOF
E.BA
£.CS1

002236
002224
002220

EM5060
EMS061

046510
046567

ERRVEC= 000004

1647
1653

1001
6873~
16974
16928
1690#
2844
3361+
3756«
L11%
4541%
4868

E.CS2
E.DA
£.DB
E.DCYL
E.DS

002230
002226
002242
002240
002232

E.ECPT

002254

E.ER
E.MR1

002234
002244

E.MR2

002246

E.MR3

6057
16944
16934
1699#
16984
16954
17034
;;§2'

MACY11

30(1046)

85744
85804
85884
8597#
86064
1581

86144

86314
8eLi1a
86494
8657#
1625
8681
86874
1659
8703#
1810«
1791
6878+

14=SEP=-81

(ROSS REFERENCE

1641

15:14

G 14
PAGE

177

TABLE == USER SYMBOLS

SEQ 0175

86714

86954
7213«
1792+«
6882

7216
1803«
6899+

6781+
6909+

6782+
6910+

6802+
6944

6803+
6945«

6834
6947+

£835
6950+

6839+

6844

6847+

4299+
1988+
2967+
3362
3757+«

4b44br
1989
2968+
3363«
3758

4447
2106+
2969+
3364
3952«

4855+«
2107
2970
3492+
3953«

5270«
2223~
3097«
3493
3954x

5271«
2224
3098+
3494+
3955

5272
2340«
3099+
3495
4078+

7960
2341
3100
3623+
4079+

7925

7937

4539+
4Bb6s
5952

2843+
3233
3755«
4210%

6330

4b41
4865+
5950+

2842+
3230«
3626
4209+

€329«

4440+
4771
5809

2467
3231+
3625«
4081

6101

4439%
&770%
5779

2661+
3230«
3624+
4080+

4212
4540
5393»

4309+
4671%
5397

4310%
4672%
S5514%

4311+
4E73%
5515

4312
4676
5669%

4425+
4768%
5670

4426
4769%
5778+

5686

5689+«

5694

5699

7947

4540w
4B67*
6056e

4414+

5675+

5676+

5681

5683+

5684+

4473«

5674+

5690+

5692

5698

7941

2941+
3733

2945
4052+

3071«
405¢

3075
4183+

3204+
4187

3208
L4645+

3335«
4649

3339
6285+

3466
6288

»
3470
6301+

3597«
630%

3401
7953

170648
6270
16964
17004
5789+
6277+«
6498+

2942
6286
2976+
5394+«
5887+
6280
6499+

3072
6302
3106+
5408
5925+
6281+
6502

3205
6423
3239+«
5464
6029+
6440+
6519+

3326
6L24+
3370+«
5468
6034
6443
6522+«

3467
7546
3501+
5489+
6063«
6454
6525+

3598
7953
3632+
5493
6068
6655+
6528

3730

4053

4184

4646

5870

6217

3764+
5505
6077«
6460+
6537+«

4087+
5584
6080
6465
6540

4218+
5594
6091+«
6470
6549+

4420+
5663+
6092
6473
6552

4680+
5751+
6209
6484
7928

7958
5756
€263
6487
7934

;ggbl

1970«

1994

2088+«

2112

2205+

229

2322+

2346

2443

2467

5379«

5416

002250

;2%30

1984+«

1999

2102«

2117

2219«

2734

2336+

2351

2457+

2472

5391+

5424

E.SPAR
E.w(
ES5004A

(002256
002222
043307

17054
16914
¥223

5277«
égég‘

5278
1426

7962
1444

1456

1448

1486

1522

1540

1576

1600

1630

1636

£5004B
E5004C
E5004D

043326
043345
043364

1390
1396
1402

1408
1474
1480

1420
83984
84014

1438

1514

1528

1618

82954

E.ECPS

002252

7943

wdd odd odh add oda add _ an

4080

3657+

3788+
5154

2727

4117
4808

5065+

3953

3526+

4994+

5096+

3395«

4897+

2999+

4566+

2869

DT S

2874

4296
4855

5151

3400

4478
4961
5265

3531

4488
4967+
5270

3662

4571

5000
6609

3793

4581

S006*
87994

5097«

3004

4299
4903

4D Ahd LD LMD L0k bbs AL

3757

3625

3232

4866

7915

7913

7911

7910

D Al

3099

7907

5147

6232

7921

57214

4957

2675+

5314

€054

4670

5378
3951
5261

7282

1775+

6875

002260

7334
2037
3527

4996

6698+
5695+
1979

3361

2097
3623

2783

2870

3000

6340

L4746

6567

2340

2452

4309

4425

N -

L .ASOF

AN~ —d o

—

Nt
ek ed 2 O OO
OO RNV
O O &sro

——

NOWWWWWW
NONNNNNNL’:NNNNN

b
d e
i e wd e
i
i =

2842

5307

4538
5947

2456
3754

2346

WO NSNNNNNNSNNNNNYN

b =

1830
7919

4438
5807

2442
3622
5054

4469

5776

2335
3491

a0 4l

4244

4424

2204
3096

=3
= <3 QO

4769

002000
000100
000001
000300
000020
000100

2101
2966

4540
79134

000011
000400
047124

2087
¢841

Hno
wn s

T
T
TR
U
T
O

1983

(P IV
N}
e LAY
G000~
NO
-

—

84544
85134

2640

172340

LF
=
LOADRK

1624

002354

2649

1534

104406

2567

GTSWR

HIBITS

84104
84304

000001

1666
1594

8404

tRRTREN

1606

84074

GNS

14=SEP=81
15:14
30(1046)
PAGE 178
CROSS REFERENCE TABLE == USER SYMBOLS

b g =3 USSR

043403
063421
0463437
043610
044022
044545
044716
FMTE
= 000020
FSBLVV
032444
GETREG
03235¢

MACYTT

0 N

£ S004E
£5004F
E50046
ES5011A
ES021A
E5026A
E50268

3 b

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

CIRGECD RKE1T
CIRGEC.P1

(ZREECD Rk611 DSKLS CTRL PRTS
TIRGEC.P1
14=SEP=-81 13:57
4865

5367

6227

6325

€395

6700«

6714

5649

5669

5678

5778

5880

5891

5699«
2203
22°2

5737
2320
2329

6015
2441
2450

6694+
4413
5386

6710
5377
5564

5566
5653

5674
5657

5698«
5742

6633«
6020

6709

5514

5567

2081
4952

2198
5049

2315
5142

2436
5256

2552
5372

2635
6440

2835
6441

394¢
6454

4303
6484

4391
6485

4533
€499

L.MR1
L.MR2
L.MR3
L.WwC

002276
002300
002302
002262

17178
1718#
1719#
17094

6697+

6712

6696+

3
6707

6522

6537

6538

6785
65974
€784+
1211
6581

6790«
6806+
6589

6804
6807«

2223

5464

5489

5584

5751

5789

6029

6063

6440

6455

6460

6484

5463+«

5501+

5587+«

5753«

5785«

5859

5860«

5907

5908+«

5937

5938+

2886+
3155+«
3543«
3699

2888
3281«
3545+
4001+

2890+
3282+«
3546
4003+

2892+
3284+
3548«
4128+

5202
88004

5208+

5209«

5211

MCLk

= 000400

MDS

= 001000

MIND

MMVEC
MSP

M1.BIT

17134

11684
4762

1117#

172100
03172%
002332
000114
001000
000017
002000

1045#
1272
17394
10484
11694
11624
Llsgn

= 000200

10174
11664

002322

17354

6031 =
17364

11204
11194
18874
1129#

NEM
= 004000
NEWPAS
003364
NXF
= 000004

0501320

OFFSET= 000015
OFST
= (000004
OPRO0T1
OPRO02
OPR0O03
OPRO04
OPRO06
OPRO07
OPSTRT

6549

2323

6578

6201«
S786+*

24644

6581

5380 -

6583

5557

6587

6589

§2455859«

6256+
5907«

6397
5937«

6458
6463

6517
6468

6523
7945

6576

2511
3148+
3415«
3680+

2594
3149+
3417+
3839

2726
3151
3418%
3996

2885+«
3153«
3542+«
3997+«

5009+
6250

5059
6251+

5098+«
6625

4589+

5152
6665

4591

2690
4259

2797
4354

2895
4495

2396
3022+
3414%
3678«

4809
5213
10834
1148#

4908%
5215«

4912«
5266

4962
5846

5005«
6183

= 000202

PARM

002360

1200

10784
1889

7934

7937

79473

5330

2275
3020«
3412«
3676

5336

4433«

2158
3018
3411+
3674

1837
1840
1847
1858
1834
7235
1930
3420
4916
11154

PACK
= 000003
PARCHK
032516

2206

2041
3016+
3287+
3673«

11404

= 020000
041164
(41216
041224
041254
041276
041345
032274

1963
4859

2089

1923
3015+«
3285+
3549«

4129+

- 0PI

197

1167#

= 000250
= (00100

2.BIT
002324
NED
= 010000

OBUFF

6188
6711
5675
2086
2095

5393

002270
002266
002274
002266

002267

6056
6699+
4414
1968
1977

5387

SEQ 0177

L.CS2
L.DA
L.DCYL
L.DS

MEMBAS=
MEMERR
MEMPAR
MEMVEC=
MERD
=
ME SMSk=
MEWD
=

5361

5950
17148
1711#
17164
17128

L.DY

.
|
-

1 14
MACY1Y 30(1046)
14-SEP-81
15:14 PAGE 179
CROSS REFERENCE TABLE == USER SYMBOLS

4131«

81814
1850
8187#
81914
81944
8201#
2048
3551
5013
67814

17524

4132%

4134+

1867

81864

2165
3683

2282
3803

5106
7868

5219

4135+

4489

2403
3508

2518
4006

67074

4582

2601
4137

4588+

4593«

3025
4599

4505«

3158
4724

4718

3289
4815

MACY11

CZRGECO RK6TT DSKLS CTRL PRTS
CIRGEC.P1T
14-SEP=81 13:5?7

046764
047024
047064
= 004000
= 010000
= 002000

= 020000
= 177772

1890

000000
000040
000100
000140
000200
000240
0002C0
177776

5910+

5913«

5939

5940+

6394

6461

3461

6207

5466

3490
5491

3592
5503

3621
5592

3724
5754

2789

287¢

300¢

3139

3272

3402

3533

3664

3795

3900

3987

5584

5663

6077

6281

3493

3624

3756

3954

4079

4210

431

2505+
3890+
€714

2583+
3978+

628
5865

6090

79184

3098

4770

3228

3330

65744

3231

4867

3359

»
%
»

4335
7231

1987

2840

VNN
— O

3727
3726

4050
4049

4
oo

3464
3463

roN

Ty
k=3
=

3069
3068

—_
nO—WN
o

000010
000006
000024
000020
000012
000030
000032

d d ed PN

RKCS2 =
RKDA
=
RKDB
=
RKDCYL=
RKDS
=
RKECPS=
RKECPT=

002370
000010
000016
000004
000000

7865+
5909

4669

4672

—

RESTRT
RESVEC=
RKASOF=
RKBA
=
RKCS1 =

5908
6456

4640

2968

RECAL = 000013
RESREG= 104414

5861+
6260+

4434
6261

1868

= 000200

5860

RDY

3199

5865+

6257+

5788+

4207

3095

4346

RDGATE= 100000

7864+

€256

4178

6078

RDHEAD= 000025
RDLIN = 104411
RDOCT = 104412

7851+

5862+

5752+
6245

4076

3065

RDCHR = 104410
RDDATA= 000021

5861

5591«
6205+

031616

7850+

7865

5588+
6202+

Hwaro
~ — =2
rnoww
WO O

RDBIT

1782+
5802+

7851

002316

6782

P1.BIT

1762

5587
6201

oo ~yw

PWRVEC= 000024

7937

5502+
6089+

nOWN

PSW

= 177776

5462+
5639+

Hrorn0
IO
—

= 000340

(eleleleleleleFe
Nole o)
NNOOONONON
W

=
=
=
=
=
=
=

FR7

4432
5938
7934

002320

PR.BIT

PIRQVE= 000240

PRO
PR1
PRZ
PR3
PR4G
PRS
PR6

6470
6465

NN
NN

PIP
PIRQ

87174
87374
87574
8779
6454
6454

046724

PAT3
PATS
PATE
PCA
PCD
PGE

SEQ 0178

€788

PAR.EN= 000001
PAT
= 000020

PAT?2

J 14
30(1046)
14-SEP-81
15:14
PA GE 180
(ROSS REFERENCE TABLE == USER SYMBOLS

(IR6ECO RK611 DSKLS CTRL PRTS
CZRGEC.P1
14-SEP-81 13:5
RKER

= 000014

RKMR1 = 000026

RKMR2 = 000034
RKMR3 = 000036
RKPRI
002306

RKSPAR=
RKVEC
RKWC
=
- RLS
=

000022
002304
000002
000010

SAVREG= 104413
SAVSWR 002356
SCLR = 000040
SCOP1 = 104415
SCOP1$ 033774
= 000017
SEEK
SELDRV= 000001
=-000002
SkI
SPACE2 041410
SPAR = 020000
SPDLSS= 000020
SRTFLG 002312
SRTSPL= 000011
SRO
= 177572
SR1
= 177574
SR
= 177576
SR3
= 172516
STACK = 001100
002400
START
0024Cé4
START1
STKLMT= 177774
SVAL
= 100000
SWR
001140

SWREG
000176
SWw0
= 000001
Sw00 = 000001
sw01
= 000002

Sw02
Sw03
SW04
SW0S
Sw06
Sw07
Sw08
Sw09
SWwl
SWw10
Swl1l

=
=
=
=
=
=
=
=
=
=
=

000004
000010
000020
009040
000100
000200
000400
001000
000002
002000
004000

6269

K 14

MACY11 30(1046)
14-SEP-81
15:14 PAGE 181
CROSS REFERENCE TABLE == USER SYMBOLS
6283

6299

10648

4417

2635«

2636+

2835+

5373«
6442
6578+

54§57
6471«
6581+

1068#

1963+

6763«

4859+

10694
10704
17264

1985
1985
1884+

5372«
6441
6551

10734
1725#
10594
11114

7159
17494
11134
4965
70314
10g4#
10774
1128#
7195
11034
11504
1728#
10814
10214
1022#
10234
10244
1906#
1 753

9174
1 1584
1 2644
5 521
6 494
7 120
1 1954
9704

9604
9594
95R#
9574
9564
G554
9544

9534
952#
9574
9694
9504
9494

1882+
6707+

79194
7849+

1964+

2081+

2082+

2198+

2199+

4B60*

4952+

4953+«

5049+

5050+

2103
2104

2229
2221

2337
2338

2836*
5492
6472
6582+

8207

1752+«

1755«

1758+

6845

6877«

6888«

6874%
17¢1

6891+
1773

5440

1756

17594

7242

970
969
968
967
966
965
964

963
962
961

5593
6486
6584+

5755
6500+
6587+

6565

6605

7223

1801«

1808+«

1823

2458
2459

2316
6391+
5143«
6067
6526%
6589~

4303«

2437+

4533«

4534+

4762+

548
6356
6971

5426
6373
6978

5431
6450
7031

5474
6480

5257«
6091
6538+«
6712+

2552+

2553+

2436+
4392+
5256+
6079
6527
6590+

5336+
6208
6539

5337+«
6262
6550+

79214

7207

1801

5504
6485+
6583+

3947+

7869

5161

5600
6509
7132

3946+

1883+

5062
7921

1771

SEQ 0179

1793«

5704
6535
7136

1823

1795

5766
6547
7214

7534

1835

5815
6559
7534

7573

5969
6601
7573

7596

5979
6939
7628+

7234

7866

5410
6107
6956

7869+

7113

CZRGECO RK611 DSKLS CTRL PRTS
CZREEC.P11
14=SEP=81 13:57
SWw12
SW13
SWwis

= 010000
= 020000
= 040000

SWw15
= 100000
Sw2~
= 000004
Sw3
= 000010
Sws
= 000020
SWS
= 000040
= 000100
Swé
= 000200
Sw7
Sw8
= 000400
SW9
= 001000
S.CLR = 000400
S.FMT = 001000
S.PACK= (04000
S.RECL= 000040
S.RTC = 000200
S.SEEK= 000020
5.5TSP= 000100
S.UNLD= 002000
T8ITVE=
TKVEC =
TPVEC =
TRAPPC
TRAPVE=
TRTVEC=
TSTBYT

000014
000060
000064
002310
000034
000014
041500

1ST10
1ST11

006622
007136

TSTBY2
1ST1

041510
003412

9%8%
9474
9464

9454
9684
9674
9664
9654
9644
9634
9624
9614
11834
11844
11864
11804
11824
11794
11814
11854

10034
10104
10114
17274
10094
10044
82174
82194
1891
26684
57754
28634
2994#
31264
32584
33894
35004

MACY11

6450

6480

7506+

7507+

6598+
1779+«

7924
1780+

19104

6998

7005
7006

007430
010156
010704
011432
012160
012714
004030
913450
014176
014512
015004
015532
016266
016602
017264
004442
017600
020350
020660
021216
021546
022102
022456

1992
36514
37814
38864
39744
41064
4237%
43328
4420
2110
45628
46978
4788%
48934
49904
50834
5182#

7007
7008
7009
7010
7011
7012
1997
7013
7014
7015
7016
7017
7018
7019
4429
2115
7021
7022
7023
7024
7025
7006
7027

TSTS

005466

2344

2349

005054

2227

SEQ 0180

7214

1ST12
1ST13
1ST14
T1ST15
1ST16
1ST17
[ST2
1ST20
1ST21
15122
15123
1ST24
1ST25
1ST26
1ST27
TST3
1ST30
1ST21
15132
1ST33
1ST3%
15135
1ST36

1ST:

L 14
30(1046)
14-SEP-81
15:14 PAGE 182
CROSS REFERENCE TABLE == USER SYMBOLS

2232

6494

€509

2002

20304

6999

444h
2120

4467H
21474

7020
7000

2237

2354

2264w

2384

7001

7002

6535

6547

$559

6601

7031

CZRGECO RK611 DSKLS CTRL PRT ;
CZRGEC.P11
14=SEP=81 13:5

30(1046)

2470
7004
5318
183

2475

25014

79114
1837

1840

7475
R
7159
1866

7528
i

7540

7192

7597

79084

1673%
16714

4295
1987+«

4447
1689

4851
2105%

4426

4441

4542

4674

5272
2107
3233

7937
5057

1ST6
006110
1ST7
006360
TYPDS = 104405
TYPE
= 104401

2465
2584#
5311
1817

TYPERR
034466
TYPOC = 104402

7400
oB
7122
1839

|
|

TYPOS = 104403
T.ASOF
002176

79094
16784

104404

T.BA
T.CS1

002164
002160

797104

2840«

- N2

2844

14=-SEP-81

15:14

NN - N7

2970

1847

002200
002172
002212

16794
16764
1684#
;gg;-

5692
7925
2939+
;ggg

7941
7937
2945
4050«

7948
7948
3069+«
4056

3075
4181+

T.ECPT

002214

16854

2938+

2942

3068+

3072

T.ER

002174

1677#

2561

2641

2974

¢
3104

T.MR1

002204

T.MR2

002206

T.MR3

T.SFAR
T.WC

.DB

.DCYL
.DS
.ECPS

UFE
=
UNLOAD=
UNS
=
UPE
=
vV
=
WCE
=
WLE
=
WRDATA=
WRDCNT
WRHEAD=
WRL
=
WRTBIT
WRTCHK=
WRTGAT=
WR.PAR=

$APTHD

002202

16804

7115

7123

7697

7703

2462
4081

2558
4212

2644
4312

7925

7937

7948

3339
6284*

3464+
6288

3470
6300*

3595+
6305

3601
6735+

3336
5869«

3463+
5870

3467
6216

359+
6217

3598
6269+

3630

3762

4085

4216

4417+

7960
2222«
3364

2224
3495

2339*
3626

2341
3758

7948
5148

5150

5262

3208
4643%

1 «

3205
4642

4B6B

é
7

7946
3368

5319

228

2460%
3955

5264

3333«
4649
3332«
4646

7609
7619
7630
7649
TR L BRR
RST

5515

7953
3499

5593+

5779

5755«

5952

6057

6262«
6540

6263
6551«

6442
6552

6443
7928

5756

6033+

;gg%#

1985«

1994

2103«

2112

2220*

2229

2337«

2346

2458+

2467

5416

6737«

002210

;g%gl

1986«

1999

2104

2117

2221+

2234

2338+

2351

2459«

2472

5424

6738+

002216
002162

1686#
16724

5278

7948

7962

4958

5055

5148

5262

1925

2043

2160

2277

2398

2513

2556

5803
4480
5789

5866
4573
6455

5914
4709

5941
4800

64404
4905

5002

5094

5193

5594

5809

6209
6539«

12304

5505

5670

6208+«
6528

1224

5504+

5312

6092
6527«

001000

5493

5397

6080
6502

10884
11554
5792
1089#
1174#
10504

5492%

5305

6079«
6501«

000027
004000
030652
000031
040000
000004

5468

1867

-N%

6068
6487

11164
1080#
11414
11214
1152#
1122#
11384
10864
17384

5467+

1858

6067«
6486+

7943

5408

1850

6034
6473

000400
000007
040000
020000
000100
040000
004000
000023
002330

16814

7925
5055
7948

4771

6726
4960
7541

002170
002166

759
7595
7598
SR
REE L Nl
S

3100

SEQ 0181

7003

6330
4958
569

.CS2
DA

M 14
PAGE 183

CROSS REFERENCE TABLE =- USER SYMBOLS

6101
16754
16748

— ey -

|
|

TYPON =

—

MACY11

6472+
7934

CZR6ECO RKk611 DSKLS CTRL PRTS
CZR6EC.P11
14=SEP=81 13:57

N 14
MACY11 30(1046)
14-SEP-81
15:14 PAGE 184
CROSS REFERENCE TABLE == USER SYMBOLS

SASTAT= sessss U
SATYC
034044
SATYT
034020
SATYS
034026
SATYL
034036
. SAUTOB 001134
$BASE
001324

72071
7042
70404
720618
70634
1261#
13,84

7272
7128
1827+
1838

| $BDDAT
$BELL
SCHARC
. $CKSWR
| $CMTAG
$C(M1
=

001126
001240
035374
036362
001100
000010

12584
12004
7089+
75738
12448
12764

7115
7299+
7915
1768
12774

$CM3
$CMe

= 000010
= 000015

19748
}533:

1276
12854

| SCNTLC
SCNTLG
SCNTLU
SCORE
$CPUOP
SCRLF

037260
037272
037265
033254
001276
001245

7528
7596
7619
6843
13224
};%}'

7609
7739
7712
68994

77374

;;;g

7123

$CROUT
$DBLK
$DEVCT
SDEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
$E0°
SEOPCT
SERFLG

033304
036042
001260

6899
7441
13134

69064
7475

74834

$BDADR

| $CM2
.

|
|
'

001122

= 000020

007326
023306

12564

12764

13494
5301
bl
1207
1783
53314
13184
13194
52938
1783«
1247#

SERMAX
SERROR
SERRPC

036032
023276
023142
023312
001270
001271
023106
023134
001103
001115
034266
001116

SERRTB
SERTIL
SESCAP

001330
001112
001236

13668
1251#
12984
5473%
5770«
6082+
64750

SETABL
SETEND

001270
001330

13178
1236

$FFLG
$FILLC

036264
001156

7060+
12728

$FATAL 001252

12538
1777
12540
7946

7148

13108

SEQ 0182

7086
70444

12774

7587
1846+

7744
1887

7230

7148
7306

7540
7332+

7737
73374

1769
12788

1777
1279

1783
12804

1784
12814

1785
12324

12834

1284k

12864

12874

1288#

12854

12904

12914

12924

1293#

12944

12958

12964

7148

7171

7176

7186

7197

7210

7288

730

7630

777

7267

7943

1278#

12794

1280#

7870

12814

12804

10834

1284k

7738#

5322
74798
1815
53034

5328
53244

7143

1821
1806
7224
53004
1760+

7049
7051
7239
5304
6928

7073
7269

7125
7274

7222«
6967

7238¢
6969

6975+«

6997

7033

7110+

7148

7233

7118«

7119

7148

7925

7928

7930

7932

793

7937

791

5320%
1888«
5479¢
5817«
€109+
€504

7116+
2730%

5495«
5958«
6336+
6511%

7148
3843+
5508s
5972«
6340e
6530s

5399s

5412«

S420e

S428s

S5434e

5439

S460s

7071
730

7080

7Cs8e

1786+
7108#
7117+«
7948

7168
5316
1785+
5478+
5771«
609+
6489e

7232e

6969
7951

6992«
7953

6997
7956

13508

7077+
7043¢
7292

7958

5523«
5378e
634he
6542¢

7960

55935983«
6348
6554%

7962

5599«
5984
6352%
6561s

7964

5604s
6036+
6360%
6597¢

5605
6063%
6372«
6600

5706e
6048
6378
6991

S§758e
6049
£380%
7133

S&71e

§76Se
&071e
644Se
7141

CIRGECD RK61T DSKLS CTRL PRTS

CIRGEC.P11

gNN\h

. SMNEW
.

001264
001266
SMSGTY
001250
SMSWR
037277
EMTYP1
001301
SMTYP2
001305
SMTYP3 00i311
SMTYP4
001315
SMXCNT
033676
SNOMAP
033054
001154
SNULL
SNWTST= 000001
SMSGAD

| $MSGLG
.

.
|
|

$OCNT
$OMODE
$OVER
$PASS
$PASTM

035622
035624
033662
001256
001006

5441

6996
6566

6606

1308#

1805

1821

6988

7125

72¢€.

68564

6879

6889

7082+

70864

7871

6973

£99(0

6996

7035

7138

1236

2488#

2490
32448
3961

25724
3246

7060

7063+

7075

7079+

2252
29804
3771
45478
5171

764164

5331

6997

23684
2982
38744
4549

311

-t
b
D O

$SMMOUT

6994

5099+

—'\:Omm
L

€989+

5010+

NSNS NN
OHoONoo—
NN
S N

SMFLG

. $MBADR

6973«

+2_uxn B

EMAMSS
CMAP
SMAPRG

| SMAMS?2
. BMAMS3

7798

69214
6922#

un B3

$MADR4
SMAIL
BMAMST

7737

7148
7087#
1787+«
1788+

7744
7162

|
|

| $MADR3

7727

68934
6887#
6846

D LD L@ YOIV

$MADR1
$MADR2

6996

7631
7148

7592+
7119

SEQ 0183

6585+

6982+«

S NN
ngwwwwmwwwmmommmwwwwmw
PO
& &
~Oo~—-;~ombw\.flml~bw
o H—=200OWVNOTM
W= =N—=OWON ornwvrn

- SLST3K

7797#

N2 =Nt

SLFLG
$LPADR
S$LPERR
$LSTAD

B 15

14=SEP-81
15:14
PAGE 185
CROSS REFERENCE TABLE == USER SYMBOLS

30(1046)

7913

Ry —‘OOJ‘WO‘“—‘W? >33 v

SHIOCT
$1CNT
$INTAG
$1TEMB
$K TNE X
$KTOUT
$KT11
SLF

ASSBARRSS3I8

$HD
=
SHIBTS

13:57

(NN = = IS N NN = e
N =
o W T
W
-t NN NNUND = = s
o
Lo T
o A WHT0 o
02Xo V]
ooonN
S O0Own

$FILLS

$GDADR
SGDDAT
$GET42
$GTSWR

14-5EP-81

MACY1T

39594

4687

L7754

4092#
&777

CZRGECO RK611 DSKLS CTRL PRTS
CIRGEC.P1
14-SEP-B81 13:57
$POWER

037556
037604

1781
7850

$QUES

001244

7860+

7862+«

7873#

1300

7148

7340

7649

7720

7737

7795

7798

3859+«
3860+

4960+
4961~

5057+
5058+«

5150+
5151«

5264+
5265+

7952
7952

7964
7964

1779
7532

1787
7537

1783
7538

1784
7568

1785
7744

1787

1815

1818

5295

898
2031
3521
4991

899
2148
3652
5084

900
2265
3782
5183

901
2383
3887
5290

902
2502
3975
5296

1297
2585
4107
5323

6968
7113

1298
2669
4238
5329

6969
7120

1299
2776
4333
5331

76628
7919
76854
775%%
7678%
12744

$REG2
$REG3
$REG4
$REGS
$PEG6
$R"G7

001166
001170
001172
001174
001176
001200

12788
1279#
12804
12814
12824
12834

*“tSRE
SRINAD
NR2A

037520
023310
wwwwan

$SAVRE
037462
$SCOPE
033366
$St TUP= 000137
$SIZE
- $SIZEx
-« $STOP
.
$STUP =
. $SVLAD

032652
033310
033032
177777
033626

$SVPC = 000220
$SWR
= 167400

12768
12778

7849#
78584
7916

7864

7917
7918

2746+
2747+
2748+«
5153«
5154«

3B61+
7964
5156+

4962+«

5059+

5152«

5266+

7920

78154
1775
17524
6938

7919
69374
1774
7109
68254
6892
6852«

1775
7135

Y777
7143

69074
68574

6885

2864
4468

69874
1210
891
1785
2995
4563

895
1787
3127
4698

896
1788
3259
4789

897
1911
3390
4854

903

6933

6934

6957

;32{

7934

7937

7941

1885
5890
6849+
1752#
~948
1205#
8794
1784

6930
9?23

6931
6990

6932
6993

6933
6996

6939
7100

6951
7101

6953
7102

6954
7103

6967
7104

6048
5981

6378
6046

6963
6376

69974
6988+

7160«

7161+

7924

7925

7928

2383+«
3887+«
5296

2502+«
3975«
6976+

2585+
4107+
6983

2669+
4238*
6986+

2776%
4333r
6996

2864*
L4468

2995w
4563+

7547

7353«

7908

7591«

7601

7613

001272

1320#

1808

$SWO8T
$TESTN

033700
001254

5478
13114

5604
5476

$TIMES

001234

1297#
3127«
4698+

1784+
3259«
4789«

1911«
3390+«
4894+

2031«
3521«
4991«

2148~
3652+
5084+

2265+
3782+«
5183«

74884

7503«

7538

7555+«

7669

7671+

756c+
7674

7563
7676+

7565+

7487

7509+

7545«

$TKB

$TKINT
$TKQEN=
$TKQIN
$TkQOU
$TKQSR
$7KS

001146

036052

(036062
036061
036054
036056
036060
001144

7964

7921

$SWREG

$TKCNT

7952

7964

78314
53304

6929
g?;g
$SWRMK= 000000

SEQ 0184

7859«

036724
wwwnen |
037014
037322
000010
001160

001162
001164

78744

C 15
30(1046)
14-SEP-81
15:14 PAGE 186
CROSS REFERENCE TABLE == USER SYMBOLS

7858+«

SRDCHR
SRDDEC=
SROLIN
$RDOCT
$RNSZ =
$REGAD

$REGO
$REG]

7867

037700

$PWRDN
$SPWRUP

037704

$PWRCT

MACY11

902

;82%

1267#

1766
74928
74894
74904
74914
12664

7313

75034
7563
7504+
7505+
7504
7311

5770
5602

7320

7529
7674
7505
7672
7565
7318

5983
5768

7340

7590

7561+
7673+
7676
7340

7487

7943

7508

7946

7519

7948

7549

7951

7577

7953

7604

7956

7958

6976
7132

7960

IO 000000 ~ & —
) —a ONOWONO
» » % %% 22

1846

1852+

1854

1857

1869+

1871

1873

5623+

5626

$629+

5632

5636+

5639

5662+

6355
6240

6266

6278

6291

A275

S BWNON
= NONON NN
NNOWONNOO
0O —-=NDCOONO
NN ONOMOON
IS
-0
v O WVINWMN)NIWVN00
N

$TPS
$TRAP

3356+

4073

4176+

6339
2120
2465
2980
3782#

2470
29954
3874

5921

£H00 = N0
i

>
N
a

$TPFLG

1877«

5928

2133

5069

4455
5084#

7918#

79194

4444

$TPB

.
|

OWOWWN~N

—

0
0

$TMPE
$TMP7
$IN
=

1876+

3351

6178+

$TMPL

$TMPS

1875«

6296

B WNOPRONOWNONON
NN
QO NN NNO O NNGD N —
N=POOH =2
=200

94#

SEQ 0185

$TMP1
$TMP10
$TMP11
$TMP12
$TMP13
$TMP14
$TMP2
$TMP3

036132
001202

D 15

14=SEP-81
15:14
PAGE 187
30(1046)
CROSS REFERENCE TABLE == USER SYMBOLS

$TKSRY
$TMPO

MACY11

OOV
N
e
Y AL® +1* <AV, ]

CZRGECO Rk61T DSKLS CTRL PRTS
14=SEP=-81 13:57
CZRGEC.P1

$TRAP2
=
$TRP
$TRPAD
$TSTM
$TSTAM
STTYIN
$TYPBN=
$TYPDS
STYPE
STYPEC
STYPEY.
$TYPOC
$TYPON
$TYPOS
SUNIT

037746
001004
001102
037250

6987+
7732
7899

79124

7913

79144

79164

79174

6988

6993

6997

7148

7160

70064

7007#

77364

7635

73384

7910

SUNITM

BUSWR
SVECT1

SVECT?

$XOFF =
=
$XON
$XTSTR

$$GET4=
$$SwW08= 000037

1856+

1857+

1860

1880+

1881+«

1882

1884

7000#
70134

7001#
70144

7002#
70154

70034
70164

7004#
7017#

70054
70184

7521

69994

70124

70154

70204

7003#

7021%

7009

7022#%

CIRGECD Rk61T DSKLS CTRL PRTS
14=-SEP=81 13:5
'ZRbEC P11

035623
teteew

051134

LA 2

0C1000

7023#
7366+

MACY11
70244
7370«
7122
1193#
1303
7483

7044

1225

E 15

14=SEP=81
15:14
30(1046)
PAGE 188
CROSS REFERENCE TABLE == USER SYMBOLS

70254
7380

70264
74154

1199#
1772
7487

1205

1787
74918

7027#

70284

12064

12084

1788
7492

18312

74938

12104

53084

77364

SEQ 0136

12114

5331

7737

12144

53324

7744k

1220

6996

7798

1221#

69<7
7853

1223
7085#

87128

12254
7148

87998

~
FSECWT

ESCAPE

MSG

GETPR]
GETSWR
LDLPER
NN = 2 O OO0 O

3294
3322

b kb
ka2
VW]

F 15
PAGE

L LiSIVLTe Ve RO
o

TABLE == MA(CRO NAMES

15:14

nONRLNONLNLNON)
—
H BN
=200
Q0 — — 00 0C — N\

NOOWNES BN
=000
NOOVOWWO
O NN~ —
ON) VWWONNO =N
— W

LSLSLSLSTLNTLNLNT
ST NN

14=-SEP=-81

S WO =000
HroH
W= NOMNWVNOON
N0 O

CROSS REFERENCE

H
5 NN N N N N NN NN N NN PO RO RO N PO P D RO PO RO PO PO NN - N — —a OVOVONOWNESE ST W= <OV OD N
NS WO
=OO0
NN NNWN= = <2200\ NNLVO OO = =2NOWWORDWNINO
&
NOON NO=OWNN=WNODOMNOWMOOWOOOONIWMO
—=O —-=0MN

17%:5~

858 BB B WNNN W N W W N W W W WO O N RO Nu RO RO L RO PO RO RO RO N —
W) = 2OV
NN
WW—= =O V000 NN
W) = -2 OO0
WVINON SNOWON = = NN
S NO OO
N0 = = NONNO O OO OW
OWNOOWNNOHN—=00OWVNO—=H0O-=0000
=N =
H YWV
O =0

3179
O =N NVNINOOWD OW

QOMNH
VNN
NIONONWN -~
NNO W00 = £ WO O OWO WWWN
nn

QO NN

14=SEP=81

VMACYTT 30(1046)

NOOWVES
WA = =000

2706
2801
2829
2917
3035
3074

2348
2620
24LBK
2547
2624

2188
<287

NOPOMNLROPVNINONOPOURONY
—a = = -2

S07#

a0 i

2060
2126
1959

»
il

ENDCOM
ERROR

12154

OCOVOWVNL—OO
=L
a OWRS —
WAHWOWO NN

BYPASS
COMMEN

AN
WO
WWN

CIRGEC.P1T

WN)
=

CIRGECD Rk611 DSKLS CTRL PRTS
190

SEQ 0187

056

3434
3435

632C

2574
35064
4455#

26564
3508

CIREECD RKE1T DSKLS CTRL PRTS
14-SEP-81

CIRSEC.PN

MULTY

NEWTST

OSECRD
OSECWC
POP

PLSH

REPORT

SCOPE

30(1046)

,
'
.

3375
5069
17214

3637

2368
4092

6225

4318

4455

4547

4685

4874

4971

2674

2781

2869

2999

3132

3265

3395

3526

3657

3787

3892

4112

4243

1722#4

4473

4567

4702

5480

4793
5607

4898
5772

4995
5985

5187
6050

6362

6670

6739

6773

7084

7470

5358
7816

5457

5550

5732

5837

6010

6166

6620

6721

6757

7046

7067

9084
3520
5182
1%

2030
3781

2147

4990

3258

3389
5083

2354

2465

2133
2862
3874

2146
2980
3885

«338

3506
5169

7737

7429
il

5635

7665

1767

il 3

1992

2382

4106

4237

7910

7913

1997

2110

4429

1226

2500
3375

LBACTI

2775

2763

2863

2994

4562

4697

4788

7915

7918

7919

7920

2115

2232

2237

2344

1239

2572
3388

4467

4318

4466

7486

7568

7678

5082

2015

1895

2667
3637

3111

2848

5286

2029
2848
3780

4685

7028
7846

4696
7039
7855

1295

1296

1289

1292

3874

2250
3959

2368
4092

2656
4455

6547

4685

L4775

7911

7913

7915

7918

7919

7920

7921

2002

2110

2115

2232

2237

2344

2349

.EQUAT
.HEADE
KT
LSETUP
.SWRH!
.SWRLO

2470
14
14
1%
14
14
879%

2668

2656

1281

$8SET
$$SETM

3375
5069
78994
1805#

4
14

2572

1280

%
14
1%

o
0o~

2488

4876

223

5069

7149

789%%#
14
1#

2501

3886

2250

1237#
1237#

$$SK!P

2250
3959

$$CMRE
SECMTM
$SESCA
SENEWT

5169#

2133
3874

~no
W

TYPO(S
TYPOCT
TYPTXT

5069+

2015
3769

mw—a_‘—‘—-‘-—a—l—n—l—a—a—h

I
.

4973

1895

3959
4787

TYPNUM

45714

LB74m

SLASH
SPACE
SSECWT
STARS

SEG 0188

4777

4422

TYPNAM

191

47758

2963

PAGE

CROSS REFERENCE TABLE == MACRO NAMES
4687

2470
1%
1013#
1721#
1%

TRMTRP
TYPBIN
TYPDEC

G 15

L6854

7909

.
|

15:14

4549

78Q9#
%

SWRSU

14=5SEP-81

L5472
1013#
10134

4457

SETPR]
SETTRA
SETUP
SKIP

MACY1T1

Qabd

1288

1293

2763

1294

2848

2980

3244

4775

7056
7878

3244

4874

4971

2354

2465

CIRGECD RKETT DSKLS CTRL PRTS

.$ERRO
.SERRT
LEMULT
. SPOWE
. SRAND
.SRDDE
.SRDOC
.SREAD

.
.

.
|

.$R2AZ
.$SAVE
.$SB82D
.$SB20

1%
i
12
1%
1%
18
1%
1%

87%#

1%
1%
1%
il;
1%
1%
%
1%

1%
1%

1%
14

.$SCOP
.$SIZE
JISUPR
.$TRAP
.$TYPB
.$TYPD

i
1%
i
1%
1%
1%

.$TYPO
.$40CA
L1170

1%
1%
1%

JSTYPE

ABS.

051134

ERRURS DETECTED:

21
03

Nw»

1304#

B75#

LSAPTY
.BASTA
.$CATC
LBCMTA
.$DB2D
.$DB20
LSDIV
.SEOP

8794
879#

-l

.$APTR

JSAPTH

13:57

14=-SEP=-81

CIRGEC.PN

8754
8794
8754

5284

MACY1T 30(1046) 14=-SEP=-81 15:14 PAGg 192
H1

(ROSS REFERENCF TABLE == MACRO NAMES

7094

8764
8794
879#

7745
7484

8794

7798

879#
8754

6923
6809

8794

7876

B79#
8794
879#.

7244

7417

7340

000

C.SML,CZR6EC.P11

C,CZROEC.LST/SOL/CRF/NL:TOC=SYSMAC.SML,CZ

CZROE
-TIME: 28 33 2 SECONDS
RUN

RUN-TIME RATIO:
40k
CORE USED:

124/64=1.9
(80 PAGES)

SEQ (189