Digital PDFs

AH-9114B-MC-B01

March 1978

184 pages

Original

10MB

view download

OCR Version

9.0MB

view download

Document:	CZR6EB0 RK611 DISKLESS CONTROL PART 5 MAR 1978 bw
Order Number:	AH-9114B-MC
Revision:	B01
Pages:	184
Original Filename:	CZR6EB0__RK611__DISKLESS_CONTROL_PART_5__AH-9114B-MC__MAR_1978_bw.pdf

OCR Text

R K6 1 1

;

DISKLESS CONTROL PART5

CZR6EBO

AH-9114B-MC

copvricHT276.78

MAR 1978

FICHE1OF1

SOEERED
MADEINUSA

BO1

Wwrnurure TURDPUTL

O~ 0N L W~ OO0~ IV LW

s e e s s e e

000 - I U L Wh—

EOF 1CZRELBSEG
PDP10 411SEQ 000!
(ZR6EB.PLL
0e2-DEC-77 10

10000
780223
BEBO RKe11 DSKLS CTRL PRTS
%

.REM

PDP10 411
ESHORICZRGEBSEQ
MACY1l 30(1046)
02-DEC-77
10:43

PAGE 1

IDENTIFICATION

PRODUCT CODE:

AC-G1128-MC

PRODUCT NARME:

CZR6EBO RKb11

DATE:

FEB 1978

MAINTARINER-

DIAGNOSTIC GROUP

AUTHOR:

MARV TEGROTENHUIS

DSKLS CTRL PRT S

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUTY
NOTICE AND SHOULD NOT BE CONSTRUED RS A COMMITMENT BY DIGITAL
tQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION QSSUMES
NO RESPONSIBILITY FOR ANY ERROR THRT MAY APPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOrUMENT IS FURNISHED UNDER R

LICENSE AND
MAY ONLY BE USED OR CuPIED IN RCCORDANCE WITH THE
TERMS OF SUCH LICENSE

DIGITARL EQUIPMENT CORPORATION ASSUMES NQ RESPONSIBILITY FOR
THE USE OF RELIABILITY Of

NOT SUPLIED BY DIGITAL.

1976,

IYS SOFTWARE ON EQUIPMENT THAT IS

1978 BY DIGITAL EQUIPMENT CORPORARTION

00010000

780223

<ZRBEBO RKE11

ccRbEB.PI1

DSKLS CTRL PRTS
02-DEC-77 10:21

MACY1l 30(1046)

02-DEC-77

10:43

COl

PAGE 2

TARBLE OF CONTENTS
RABSTRACT

REQUIREHENTS
2.1 EQUIPMENT

2. 2 PRELIMINARRY PROGRAMS
OPERATING PROGRAMS
3.1 LOADING PROCEDURE
2 STARTING PROCEDURE

TI??SE SWITCH SETTING

NTRQL

0 PROGRAM DESCRIPTION
0 ERROR REPORTING

SEJ 2002

CZREEBO RKBl1

<ZR6EB.PL1L

DSKLS CTRL PRTS

0e-DEC-77 10:21

MACY1l 30(1046)

02-DEC-77

10:43

DO1

SE3 3003

PAGE 3

1.0 ABSTRACT

MOOCDD

THE RKG611l DISKLESS CONTROLLER DIAGNOSTIC: PART 3
SECTOR DQTQ TRANSFERS.
TESTS MULTITESTS

MID-TRANSFER ?

TESTS
CYLINDER OVERFLOW CHECKING
TESTS NPR TRANSFERS TO MEMORY
TESTS ECC ERROR DETECTION AND CORRECTION,
_AND 18 BIT MODE.
16

BOTH

TESTS WRITE CHECK BOTH 16 AND 18 BIT MODES AND FORCES

WRITE CHECK ERRORS

NO RKOB DRIVE IS REQUIRED FOR PROGRAM EXECUTION.
2.0 REQUIREMENTS

2.1 EQUIPMENT

PDP-11 SYSTEM (IBK CORE MEMORY)
CONSOLE TERMINA

DECTAPE,

PARPER TQPE READER, OR DECDISK

RK611 CONTROLLER
2 2 PRELIMINARY PROGRARMS

RK611
RK611
RK611
RK611

DISKLESS
DISKLESS
DISKLESS
DISKLESS

CONTROLLER
CONTROLLER
CONTROLLER
CONTROLLER

DIAGNOSTIC:
DIAGNQSTIC:
DIAGNOSTIC:
DIAGNOSTIC:

PART
PART
PART
PRRT

1
2
3
4

(CZRGR)
(CZREB)
(CZR6C)
(CZReD)

3.0 OPERATING PROCEDURES
3.1 LOADING PROTCEDURE

THE PROGRAM CAN BE LORDED FROM PAPER TAPE USING RBSOLUTE LORDER

OR FROM XXDP MEDIR SUPPORTED BY XXDP.

s P
Pt
P
Pt Bt Bt Dt Bt Pt Pt P

- — 0000000000
W
- O0oONOMNLWNN—0OW

3.2 STARTING PROCEDURE

LOCATION 200

- START PROGRAM

LOCATION 204

- RESTART PROGRAM

LOCATION 214

- REQUEST BUS ADDRESS,

PRIORITY MODIFICATION

3.3 OPTIONARL SWITCH SETTINGS
SW1S SWIY -

SW13 SW12 SWll -

HALT PROGRAM
LOOP ON TEST

INHIBIT ERROR TYPE 0OUT
RABORT AFTER 20 ERRORS
INHIBIT ITERATION COUNT

VECTOR ARDDRESS, AND

CZRBEEBO RKG&11 DSKLS CTRL PRTS
02-DEC-77 10:21

MACY1l 30(1046)

s ot Dome Pt Pt Bt Pt Pt Bs Pt Pt Bt Pt Pt Bt Pt Pt et Bt Pt Pt Pt Bt Pt et Bt
s Bt Pt Pt Pt
et Pt Bt (n
s Pt Bt Gt o
Pt Bt Pt Pt Pt Pt Bt Pt Pt Pt Bt Pt ot Pt

02-DEC-77
SWI0 SW9

oo
oonIiNUINNININE L L L L L L L L DWW ) () () () L) () LI WIN TY AU NPTV PUNU T TV 9= 5t e 9 s e e [
NN LW
0O
NN L W~ 0O W
NN £ WM
OWwD NN £ W
OW
NN LW~
VO NTTN LWn

CZR6EB.P11

SW8

10:43

EOL

PAGE 4

SEG@ 0004

BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWITCHES 0-7

3.5 RUN TIME

FIRST PASS

SUBSEQUENT PRSSES

4.0

1:40 MINUTES

3:40 MINUTES

OPERATING PROCEDURES

THE PROGRAM IS EXECUTED BY STARTING AT THE APPROPIATE ADDRESS.
Y

"SOFTWARE®'

SWTTCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E.,

OR 11/34) THE PROGRAM WILL DETERMINE THART THE HARDWARE SWITLH

AN 11/04

REGISTER 1S NOT PRESENT AND WILL USE R ’'SOFTWARE’ SWITCH
REGISTER.
THE SETTINGS OF THE ’'SOFTWARE' SWITCHES ARE CONTROLLED

THROUGH R KEYBOARD ROUTINE WHICH IS CALLED BY TYPING ’'CONTROL G’.

PROGRAM WILL RECOGNIZE THE ’'CONTROL G’ AT ANY TIME EXCEPT WHEN THE
THE
PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN RKOb INTERRUPT.

*SOF TWARE® SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:
SWR = NNNNNN

NEW =’

EACH TIME SWITCH SETTINGS ARE ENTERED,

THE ENTIRE SWITCH

LEADING ZEROES ARE NOT REQUIRED.

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

ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HRRDWARE SWITCH REGISTERS,

THE ’'SCFTWARE’ SWITCH

REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES
IN THE *UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
;SEESfiggE' REGISTER AND THE PROCEDURES DESCRIBED RBOVE MUST BE
4.2

CONTROL C (1C) OPERATION

IF ¢+C IS TYPED AT ANY TIME DURING THE PROGRAM EXECUTION THE
PROGRAM 1S HALTED IMMEDIRTELY. IF R MONITOR IS PRESENT (XXDP CHAIN

ACT,

APT) THE PROGRAM RETURNS CONTROL TO THE MONITOR. IF NO MONITOR

IS BRESENT, THE CPU IS HALTED. DEPRESSING THE CONTINUE KEY WILL DO
A PROGRAM RESTART.
4.3
IfF
UN

Y. 4

CONTROL S

(tS)

OPERARTION

tS IS TYPED AT ANY TIME _THE PROGRAM WILL GO INTO A STALL LOOP
IL A CONTROL @

(tQ)

IS TYPED.

CONTROL Q@

(tQ@)

OPERATION

THE

CZR6EBO RK6&11 DSKLS CTRL PRTS

CZR6EB.P11

02-DEC-77 10:2!

MACY1l 30(1046)

02-DEC-77

10:43

FO1

PRGE S

SEQ 000S

IF & 1S HRS BEEN TYPED TYPING THE tQ CANCELS THE STALL

168
YNNI~

INITIATED BY THE 1$S.
5.0 PROGRAM DESCRIPTION
#2MULTI-SECTOR WRITE OPERATIONS
TEST

MULTI-SECTOR WRITE

(PART

MAMMOMEOD
N NN

CLEAR THE RKH611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.

ISSUE A WRITE

DATA OF 401 uonos 10 nn RKO6 IN 26 SECTOR FORMAT

CYLINDERO, HEAD0,

SECTOR 0. CLOCK THROUGH SEEKAND DRIVE CLEAR neésnces
SIMULATEA SECTOR PULSE

AND A GOOD
HEADER.
TWO ECC WORDS.

CLOCK THROUGH 400 WORDS AND THE

MAKE SURE THE NEXT HEARDER RECOGNITION

CYCLE STARTS AND THE PROPER HERDER IS SERRCHED FOR.
ggoxéggga SECOND GOOD HEADER AND CHECK RECOGNITION

TEST 2

MULTI-SECTOR WRITE

(PART 2)

D00

CLEAR THE RKG611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 401 uonos TO AN RKO6 IN 26 SECTOR FORMAT

0, SECTOR 23. CLOCK THROUGH SEEK
CYLINDERO, HERD
AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
AND A GOOD HEADER,

)

TWO ECC WORDS.

CLOCK THROUGH 400 WORDS AND

THE

TMAKE SURE THE NEXT HEADER RECOGNITION

CYCLE srnars f*D THE PROPER HEADER IS SEARCHED FOR.
A SECOND GOOD HERDER AND CHECK RECOGNITION
PROVIDE
OF HERDER.

ggé

TEST 3

MID-TRANSFER SEEK (PART 1)

2G3
204
205

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLERP
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A WRITE
DATA OF 401 uonos TO AN RKO6 IN 26 SECTOR FORMAT

207

AND onxvs LLEAR MESSAGES.

206

CYLINDERO, HEADO, SECTOR 25.

v
roroNY
PUND NN e s 0t s s s Bt ot s pre ()
WL OWVDNOCNLWN-OW

208

AND
A GOOD HEADER.

CLOCK THROUGH SEEK

SIMULRTEA SECTOR PULSE

CLOCK THROUGH 400 WORDS AND THE

TWO WORD ECC.
MAKE SURE THE CONTROLLER ISSUES
AN IMPLIED SEEK TQO THE RIGHT HERD AND CYL INDER.

MAKE SURE THE NEXT HERDER RECOGNITION PROCEEDS PROPERLY.
TEST 4

MID-TRANSFER SEEK

(PART 2)

CLEAR THE RK&11 CONTROLLER WITH A CONTROLLER CLEARR.
PUT THE CONTROLLER_IN DIAGNOSTIC MODE.
ISSUE A NRITE
DATA OF 401 NORDS TO AN _RKO6 IN 26 SECTOR FORMAT

CYLINDERO, HERD2, SECTOR &S.

AND DRIVE CLEAR MESSAGES.
AND A GOOD HEARDER,

TWO WORD ECC.

CLOCK THROUGH SEEK

SIMULATE
A SECTOR PULSE

CLOCK THROUGH 400 WORDS AND THE

MAKE SURE THE CONTROLLER ISSUES

CZRGEBO R¥S11 DSKLS CTRL PRTS

CZREEB.PI11

02-DEC-77 10:21

MACY1l 30(1046)

02-DEC-77

10:43

GOl

PAGE &

224
SSE

SEQ 0006

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

227

Sgg

TEST &

MID-TRANSFER SEEK AND 24 SECTOR FORMAT

230
231
232

CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE AR WRITE DATA
DATA OF 401 WORDS TO AN RKOBE IN 24 SECTOR FORMAT

235
236
237

AND A GOOD HERDER.
CLOCK THROUGH 400 18 BITM WORDS
AND THE 32 BIT ECC.
CHECK THAT IMPLIED SEEK IS
ISSUE TO NEXT TRACK.
CHECK FOR PROPER HERDER RECOGNITIC

233
234

CYLINDER O, HERU O, SECTOR 23. CLOCK THROUGH SEEK
AND DRIVE GLEAR MESSAGES. SIMULATE A SECTOR PULSE

238

OCCURS.

239
240

Sflé

TEST &

CYLINDER OVERFLOW (PART 1)

243
244
245

CLEAR THE RKG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT THE CONTROLLER IN DIRGNOSTIC MODE.
ISSUE A WRITE
DATA OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMART

247

AND

246

cY 1NE§R 632 HERE g E CTOR 25.

28
249

Sgg

TEST 7

256
257
258

nn VML
PP
NN NANNIN
NN N NG
JD ~Nornn
L whu— 0w

Sgg

ELSCK THRSUSH éEEK
SECTOR

PUL

CYLINDER OVERFLOW (PART 2)

CLEAR THE RKG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT

259
260

264

SIMULAT

NOT SET.

251
252
253

SEE

CLEAR MESSAGES.

AND A GOOD HEADER. CLOCK THROUGH Y400 WORDS AND THE
TWO WORD ECC.
MAKE SURE CYLINDER OVERFLOW ERROR DOES

250

261
ggg

DRIVE

CYLINDER 632, HERD 2, SECTOR 25. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
.

AND A GOOD HEADER.
CLOCK THROUGH 40O WORDS AND
TWO ECC WORDS. MAKE SURE CYLINDER OVERFLOW ERROR SETS.
¥¥NPR WRITING OF MEMORY

TEST 10 NPR WRITING OF MEMORY

SO B oR R BB TROBTRENOS T T26 MGOE
. TSELE A READ DATA
SECTOR FORMAT
OF 400 WORDS TO AN RKOB IN

CYLINDER O,

HERD O,

SECTOR G.

AND DRIVE CLEAR MESSAGES.

A GOOD HEADER,

40 DATA WORDS.

ARE WRITTEN PROPERLY IN MEMORY.
¥*¥ECC ERROR DETECTION/CORRECTION TESTS

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE

VERIFY THAT THE WOROS

CZRGEBO RKbll DSKLS CTRL PRTS
CZR&EB.P11
0e-DEC-77 10:21

MRCY11

30(1046)

02-DEC-77

10:43

HO1

PAGE 7

TEST

SEQ 0007

READ DATA WITH NO ERROR

b5988n¥séb§ESN¥fiob&Sgngéi?c
MSBETRO&EEBEChEQEAD DATR

Shé”BE?vE' oUEAR Res2R&IER °sxnut8?é S“@EEfSRSSELss

A _GOOD HEADER,

400 DATAWORD

0802
32 BIT ECC.

VERIFY THAT COMMAND COMPLETES HITHOUT
TEST

READ DATA WITH ONE BIT BURST ERROR

RROR

(PART

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLERAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R READ DARTA
OF 400 uonos TO nn RKOS IN as secron FORMAT

CYLINDER

SECTO

?CK THROUGH SEEK

nND DRIVE CLE R nessncss sxnULn A SECTOR PULSE

cooo H;ng
ONE BIT

BURST

488 DATA ugngs
ERROR OF

VERIFY THE COUNTING OF

THE

AND AN ECC éngxcnrxfic

tHnT SHOUL
POSITION

() W W
LW W W
W
W WL
[2 V] o VSN SRy Sy Y SOy iy Wy Wy VY

N —oOouONCNLWR—-OWw

TEST

READ DATA WITH ONE BIT BURST ERROR

(PRRT 2)

CLEAR RKb11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE,
ISSU E n READ DATA
OF 400 uonos T0 nn RKO6 IN 26 SECTOR FORM

CYLINDERO, HERD0, SECTOR 0. CLOCK THRouch SEEK

nno ovas éLsnR ngésncss SIMULATE A SECTOR PULSE
cooo
o DS, AND AN ECC Inoxcnrxflc

E % *ERQT
RROR OFA
OUNTING OF THE

vsnx

fHQT SHOULD BEA O.

POS

READ DATA WITH

BIT BURST ERROR

3b$ggo§§36LLESNTR°b&SEN3 ¥¥cfln BNTRO&EER ChEREhD DATA
OF 400 WORDS TO AN RKOB IN 26 SECTOR FORMAT

b DRTVe
"2 EBRnesBLESTM" SimuLhPE' 'EEC SH GLSE
A GOOD HERDER,

400 DATA WORDS

AN 11 BIT BURST ERROR.

RND AN ECC INDICATING

VERIFY THE CCUNING OF THE POSITI

15 READ DATA WITY

CLEAR RKB11

12 BIT BURST ERROR
CONTROLLER WITH A CONTROLLER CLERR.

TT&XI DSKLS CTRL PRTS
0e-DEC-77 10:21

MACY1l 30(1046)

02-DEC-77

10:43

I01

SEQ 0008

PRGE 8
PUT CONTROLLER

IN DIRGNOSTIC MODE.

ISSUE R RERD DRTA

OF 400 WORDS TO AN RKO&6 IN 26 SECTOR FORMAT,
CYLINDER 0O, HERD O,
SECTOR 0.
CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.
GOOD HERDER,

SIMULATE A SECTOR PULSE, A

400 DATR WORDS AND AN ECC INDICATING

A 12 BIT BURST ERROR.

VERIFY THE COUNTING OF THE

POSITION REGISTER.
MAKE SURE DRTA CHECK,
AND CONTROLLER ERROR SETS.
TEST

ECC HARD,

16 READ DATA WITH 23 BIT BURST ERROR

CLEAR RKb611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE Q RERD DRTA
OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMART

CYLINDER O, HERD O, SECTOR 0. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE, A
GOOD HEADER,

400 DATA WORDS AND AN ECC_INDICAHTING

A 23 BIT BURST ERROR.

VERIFY THE COUNTING OF THE

POSITION REGISTER.
MRE SURE DRTR CHECK,
AND CONTROLLER ERROR SETS.
TEST

17 READ DATA WITH

ECC HRARD,

1 BIT ECC WORD ERROR

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLERR.
OF 4)0 WORDS TO AN RKO6 IN 26 SECTOR FORMAT

CLOCK THROUGH SEEK

SECTOR 0.

CYLINDER O,

HEAD O,

GDOD HERDER,

400 DATA WORDS AND AN ECC_INDICATING

AND DRIVE CLEAR MESSRGES.

A1 BIT

SIMULATE A SECTOR PULSE, A

ERROR IN ECC WORD 2,

BIT 6.

COUNTING OF THE POSITION REGISTER.

CHECK AND CONTROLLER ERROR SETS.
TEST

VERIFY THE

MRKE SURE DARTA

18 BIT NPR WRITING OF MEMORY

CLERR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6_IN 24 SECTOR FORMAT

CYLINDER O, HEARD O, SECTOR 0.

CLOCK THROUGH SEEK

AND DRIVE CLEAR MESSAGES.

VERIFY THAT THE WOROS

A GOOD HERDER,

SIMULATE A SECTOR PULSE

40 DATA WORDS.

ARE WRITTEN PROPERLY IN MEMORY.

TEST

18 BIT READ DATA WITH NO ERROR

CLEAR RKG611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIRGNOSTIC MODE.
ISSUE A RERD DATA
OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT

CYLINDER O,

HEAD O,

SECTOR 0.

AND ORIVE CLEAR MESSAGES.

A GOOD HEADER,

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE

400 DATA WORDS, AND A GOOD 32 BIT ElC.

VERIFY THRT COMMAND COMPLETES WITHOUT ERROR.

TEST

18 BIT RERD DATA WITH OCK

CZRHGEBO RK611 DSKLS CIRL PRTS
02-DEC-?7 10:21

CZR6EB.PIL1

MARCY11l

30(1046)

02-DEC-77

10:43

JO1

PRGE 9

SEQ 0003

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TQO AN RKO6 IN 24 SECTOR FORMAT

0, HEAD 0, SECTOR 0. ~CLOCK THROUGH SEEk
AND ORIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
A GOOD HERDER, 400 DATA WORDS, AND AN ECC INDICATING
A ONE BIT BURST ERROR BEYOND YHE 4128TH BIT OF THE SECTO
VERIFY THE COUNTING OF THE POSITION REGISTER AND THE
FINAL PATTERN AND POSITION.
MRKE SURE DATA CHECK AND
CONTROLLER ERROR SETS.

o i
i 3 o I 3 o G o o
L) 0= 0= $=st s Pt Pt Pt Pt Bus s
OV
LZWh—-0O

TEST 23

18 BIT RERD DATA WITH ECH

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLEAR,
PUT CONTROLLER IN DIAGNNSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT

CYLINDER O, HERD O, SECTOR 0. CLOCK THROUGH SEEK
gno DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
G000 HERADER, 40O DATA WORDS AND AND ECC INDICATIAG
A 12 BIT BURSY ERROR.

VERIFY THE COUNTING OF THE

POSITION REGISTER.
MAKE SURE DATE CHECK,
AND CONTROLLER ERROR SETS.

*%¥SPECIAL

RERD

ECC HARD,

TESTS

TEST 24 PARTIAL SECTOR RERD

Yel

CLEAR RKH11 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A READ DATA
PUT CONTROLLER IN DIAGNOSTIC MODE.
OF 103 WORDS TO AN RKO& IN 26 SECTOR FORMAT

CYLINDER O, HEAD O, SECTOR D, ~CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
A GOOD MERDER, 400 DATA WORDS, AND A GOOD 32 BIT ECC.
MAKE SURE ONLY 103 WORDS GOT TRANSFERRED TO MEMORY.
TEST 25 SILC UNLORD BEFORE HERDER ERROR

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A READ DATA
PUT CONTROLLER IN DIAGNOSTIC MODE.
OF 401 WORDS TO AN RKO& IN 26 SECTOR FORMAT

CYLINDER O, HEAD 0O, SECTOR 0. CLOCK THROUGH SEEK
SIMULATE A SECTOR PULSE
A GOOD HEARDER, 400 DATA WORDS, AND A GOOD 32 BIT ECC.
AFTER ECC SIMULATE A SECTOR PULSE AND A BARD SECTOR . IROR

AND DRIVE CLEAR MESSAGES.

MAKE SURE THE ENTIRE PREVIOUS SECTOR GETS LORDED INTQ
MEMORY BEFORE BAD SECTOR ERROR AND CONTROLLER ERROR ETS
¥¥WRITE

CHECK

TESTS

TEST 26

WRITE CHECK OF 400 WORDS

CZREEBO RK&11 DSKLS CTRL PRTS

CZRGEB.PI11L

02-DEC-77 10:21

MACY1l

30(1046)

02-DEC-77

10:43

KO1

PRGE

SEQ 0010

CLEAR RK611

CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

CHECK OF 400 WORDS TO AN RKO®
CYLINDER O,
HERD O,
SECTOR 0.

AND DRIVE CLEAR MESSAGES.

ISSUE A WRITE

IN 26 SECTOR FORMAT,
CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

A GCID HERDER, THE 400 WORDS TO BE WRITE CHECKED,
AND A GOOD 32°BIT ECC.
MAKE SURE NO ERRORS SET.
TEST

27 WRITE CHECK WITH OCK

CLEAR RKb11 CONTROLLER WITH R CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE

CHECK OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMRT,
CYLINDER O,

HEAD O,

SECTOR 0.

AND DRIVE CLEAR MESSAGES.
A GOOD HERDER,

CLOCK

THROUGH SEEK

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 THRT THE FINAL PATTERN AND POSITION ARE CORRECT.

CHECK THART DARTA CHECK RND CONTROLLER ERROR ARE SET.

TEST 30 WRITE CHECK OF

18 BIT WORDS

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

HERD 0,

SECTOR 0.

AND DRIVE CLEAR MESSAGES.

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

A GOOD HEADER, THE 400 WORDS TO BE WRITE CHECKED,
AND A GOOD 32'BIT ECC.
MAKE SURE NO ERRORS SET.
TEST

WRITE CHECK OF R PRRTIAL SECTOR

CLERR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER

CHECK OF 1

IN DIARGNOSTIC MODE.

ISSUE R WRITE

WORD TO AN RKO6 IN 26 SECTOR FORMAT

CYLINER O, HERD O, SECTOR 0. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
A GOOD HERDER, TAKE ONE WORD TO BE WRITE-CHECKED, 377 WO
NOT TO BE WRIYE CHECKED, AND R GOOD 32 BIT ECC.
MAKE SURE NO ERRORS SET.
TEST

WRITE CHECK ERROR

(PART

CLERAR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIRGNOSTIC MODE.
ISSUE R WRITE
CHECK OF 1 WORD TO AN RKO&6 IN 26 SECTOR FORMAT

CLINDER 0, HEARD O, SECTOR 0.

CLOCK THROUGH SEE&k

D
NnLWw—-OwONoOCN L

NN
00

0 RK&1l
.P 11

D SKLS CTRL PRIS

0e-DEC-77

10:21

MACY11

30(1046)

02-DEC-77

10:43

LOl

PAGE

SEQ J0.!

AND DRIVE CLSQRRRESSfigEEOR 562U52¥g COEE?EQR PULSEb

NRI?S CHECK 0’ DAT ? 00008

AKE SUR NR%TE CHECK E 8
QOF

0000Q

REPEAT USING EACH OF THE FOLLONING CONF IGURATIONS
AS WRITE CHECKED DRTA

000002
000004
000010
000020
TEST

33 WRITE

0CO040
000100
000200
000400

001000
002000
004000
010000

CHECK ERROR

020000
040000
100000

(PART 2)

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE AR WRITE
CHECK OF 1 WORD TO nn RKO6 IN 26 SECTOR FORMAT

CYLINDER0, HERD
0,

SECTOR 0.

CLOCK THROUGH SEEK

AND DRIVE CLEAR neésnoss
SIMULATEA SECTOR PULSE
ONE WORD OF DATA consxsrrnc OF 177777
A GOOD HEADER, AND

NRITE CHECKED'DATR IS 177776.
CHECK ERROR SETS.

MAKE SURE WRITE

REPEAT USING EARCH OF THE FOLLOWING

CONFIGURATION RS WRITE CHECKED DATA:

TEST

34 WRITE

176777
175777
173777
187777

177737
177677
177577
177377

1777275
1777273
177767
177757

CHECK ERROR

157777
137777
Q77777

(PART 3)

CLEAR RKBG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.

ISSUE
A WRITE

CHECK OF 1 WORD TO AN RKO6 IN 24 SECTOR FORMAT

O, HEADO, SECTOR O.
CYLINDER

AND DRIVE CLEAR MESSAGES.
cooo HEQDER

unx

AND ONE WORD OF DATA consxsr:nc

WRITE

CHECK ERROR

SIMULRTED DATR.
TEST

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

35 WRITE CHECK ERROR

CHECK DATA 1; g?

SETS.

REPEAT

MAKE SURE

USING 400000 RS

(PARRT 4)

CLERR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A WRITE
CHECK OF 400 NORDS TO AN RKO6 IN 26 SECTOR FORMAT,

CYLINDERO, HERDO, SECTOR 0. CLOCK THROUGH SEEK’
AND DRIVE CLEAR MESSAGES SIHULRTE A SECTOR PULSE,

A GOOD HEADER,
125 GOOD WORDS,
AND AR BRAD WORD.
MQKE SURE WRIYE CHECK ERROR SET CHECK WORD COUNT
AND BUS RDDRESS.

CZRGEBO RKb1l DSKLS CTRL PRTS
0e-DEC-77 10:21
CZREEB.P11

MACY1l 30(1046)

02-DEC-77

10:43

MOl

PAGE 12

SEQ dJ012

2363623633 7 I3 338 3 36 3 36 36 36 36 36 36 36 36 3 36 36 36 36 3 36 3 3 36 36 36 36 38 3 26 3 30 20 3 30 06 3 30 3 3 006 2 30 3 o 3 36 3 36 0 0 3 2 2 R

DIAGNOSTIC MODE SECTOR PULSE
BN

R RN

RNERNE RN

AR R R AR RERERRRRERFRRRRRARRRRRR

THE SECTOR PULSE IS PROVIDED BY THIS ROUTINE
23636 3 36 3 3 36 3 36 3 36 3 36 3 3 36 36 36 36 3 36 36 3 36 36 36 36 3 36 38 3 36 3 6 36 3% 30 36 36 3 36 3 36 3 3 36 3 3 36 30 3 36 3 96 3 3 3% 36 3 3 3 3 3¢ X

DIAGNOSTIC MOOE IMPLIED SEEK
XXM MR

NI NN

AR ERREAS

THE CONTROLLER IS CLOCKED THROUGH THE SEEK MESSAGES

GETTING STATUS,

AND CLEARING THE DRIVE. SINCE THIS REQUI

DIFFERENT COUNt FOR WRITE DATA AND RERD DATA/WRITE CHECK
THE ROUTINE LOOKS AT THE COMMAND THART WAS
STARTED (L.CS1) AND SETS THE CLOCK COUNT ACCORDINGLY.
AT THE END OF THE IMPLIED SEEK_THE CONTENTS OF CS1,

MRl

AND MR3 ARE CHECKED TO VERIFY THE OPERATION. ALL DYSCReP
ARE REPORTED IN THE ORDER LISTED.
CALL:

JSR
ERROR
ERROR
ERROR
ERROR

R4, DISEEK
)
;CS1 MISCOMPARE ERROR

;MR1 MISCOMPARE ERROR
;MR2 MISCOMPARE ERROR
;MR3 MISCOMPARE ERRON

S
b
7

36363636 36 36 36 36 3 3 36 36 3 3 3 3 36 36 36 36 36 36 36 3¢ 36 36 36 36 36 36 36 3 36 36 36 06 3 3 3 36 3% 3 36 36 3¢ 3 3 36 30 30 3 3 36 36 3¢ 36 3¢ 3¢ 3¢ 3¢ 3¢ 3 3¢ 3 %

DIAGNOSTIC MODE RERD SYNC PATTERN (PREAMBLE)
BRI

I
30 30363 3330 33 30 3
00 06 3 00 36 0 006000333333

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 THSTENSTOF THEEBYNC READ., CS! IS CHECKED TO INSURE IT
DID N
CALL:

CHRN

JSR
ERROR

R4, DRSYNC
;MR1 CONTENTS IN ERROR
10

ERROR

;CS1 CONTENTS IN ERROR

FE"PRESERT TRPEIRCIER: J0h BROERHOAMGS"
Lk €T 1P 1O A
[ealoalealegfonlonl:o
o pes b s ot )
NEWu—-OW

1)
608

363636 3636 3636 36 36 36 36 36 36 36 3 36 3 36 3% 36 3 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 96 3 36 3 36 3 3 36 3¢ 3 3 3 3636 36 96 96 30 36 96 36 3% 3 3 %

DIAGNOSTIC MODE HERDER READ AND COMPRARE
BN

H I

I NN AN

R RN R TRRER

THIS ROUTINE SIMULARTES THE THREE HEARDER WORDS RERD AND
COMPARE THAT IS PART OF ALL DATR TRANSFER OPERATIONS.
THE EXPECTED HEACER IS CALCULATED FROM THE CYLINDER,

TRR

'D
-

K 611

DSKLS CTRL PRTS
0e-DEC-77 10:21

02-DEC-77

10:43

NO1

PAGE 13

SEQ 0013

AND SECTOR SPECIFIED IN THE LTM REGISTERS. THE RERDING O
3 WORDS IS DONE AND MR1 IS MONITORED TO INSURE IT DOES
NOT CHANGE. AT THE END OF THE READ/COMPRRE,
THE CONTENTS

oooocooco
N
se e

N—OWwo~I"

mcn

oo
MM

NN
00

MACY11l 30(1046)

RKCS1 IS _CHECKED AND THE INCREMENT OF RKCCYL AND RKDA

VFRIFIED

IF THE

INCREMeMT IS GOOD,

THE “L"” REGISTERS AR

UPDATED TO THE NEW PACK ADDRESS IN’CASE OF MULTI-SECTOR

OPERATIONS. THE BAD SECTOR ERROR DESIRED (BSEDES) SWITCH
IS TESTED AND IF IT IS NCN-ZERO,
THE 2ND AND 3RD_HERDER

WORDS ARE _CHANGED ACCORDING TO BSEDES CONTENTS. THIS
CAN BE USED TO FORCE HERDER TYPE ERROR.
CALL:

JSR

ERROR
ERROR
ERROR

RY, DHDCMP

;ERROR IN MRI1
ERROR IN CSl
ERROR IN PACK ARDDRESS

12’
13
14

3696 96 36 36 36 36 36 36 36 36 36 3 36 36 36 36 3 36 36 36 36 3% 3¢ 36 36 36 36 3 36 06 36 36 3 3 36 3 3 36 3 3 3 3 3 22 3 36 36 3 3 3 3 3 3 3 3 3 6 3 3 3¢ % % %

DIAGNOSTIC MODE GRP READ AND SYNC WRITE
B30

H MR

0 0

000 06

N RN N NI

RN R

AR NN

THE RERDING OF THE GAP_AND WRITING OF THE SYNC
1S HANDLED IN THIS ROUTINE.

(OR PREAM

THE FIRST GAP BITS ARE PROCESSED IN THE HEADER COMPRRE
ROUTINE AND THE REMAINDER ARE PROCESSED HERE. THEN
R
CHECK IS MADE THAT WRITE GATE CRHE ON AND 2SS 0" BITS
AND
A SINGLE 1" BIT IS WRITTEN
CALL:
JSR

R4, DWGPSN

15’
1&
17

;MR1 IN ERROR IN RERD GAP
CSl IN ERROR AFTER READ GRP
MRl IN ERROR IN WRITE SYNC

ERROR

;CS1

ERROR
£ RROR
ERROR

IN ERROR AFTER SYNC WRITE

ROUTINE CQLLED
1BIT
JSR
PC

RETURN POINT IF ERROR IN WRTBIT
NO ERROR RETURN

369636 36 36 36 %6 36 36 36 36 36 36 36 36 36 3 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 38 36 36 36 3 36 36 36 3 3 3 3 3 3 3 3 36 36 38 2 2

DIAGNOSTIC WRITE DRTA AND ECC ROUTINE
336233 M 2230360 3 3 00300606 06 00

3000 06 06 06

06 30 06 0606 06 96 30 30 06 36 06 06 36 36 36 36 36 3 8 36 36 36 3636 06 06 06 0 30 9000 00 2

THE DATA IN THE OUPUT BUFFER IS WRITE SIMULATED,

ECC IS

GENERATED AND WRITTEN, AND THE POSTAMBLE IS WRIYTEN.
CALL:

JSR

ERROR
ERROR
ERROR

RH DWRITE

17
21
ee

NO ERROR RETURN

;MR1 IN ERROR IN WRITING
;ECC ERROR IN WRITING
;CS1 ERROR AFTER WRITE

CZRGEBO RK&11 DSKLS CTRL PRTS

CZRGEB.PI1

pe-DEC-77

10:21

MACY11 30(1C046)

02-DEC-77

10:43

672

BO2

SEQ 2014

PARGE 1M

ROUTINE CALLED:
PC,WRTBIT
JSR

67
674

RETURN POINT IF ERROR IN WRTBIT

675

NO ERROR RETURN FROM WRTBIT

g;g

678

YT I

X122 222z2222 22X

2222223222222 2222222222 RTLILLILL S

DIAGNOSTIC MODE READ GAP AND DARTA SYNC

679
gg?

EERERERARER RN RBERFRRARERERERERRRE RN R R

R AR RN RRE RN AR RRRERRRD RN

13gga

THE READING OF THE GAP AND RERDING OF THE SYNC (CR PREAM
1S HANDLED IN THIS ROUTINE.

68%
686
687
688

THE FIRST GAP BITS ARE PROCESSED IN THE HERDER COMPARE
ROUTINE AND THE REMRINING GRP BITS RARE PROCESSED HERE.
THEN A CHECK IS MADE THART RERD GATE CRAME ON
AT THE 129TH BIT OF SYNC. ;%

689
690

cAaLL:
JSR

RY, DRGPSN

18
16

;MR1 IN ERROR IN RERD GAP
;CS1 IN ERROR AFTER RERD GRP

6594
ggg

ERROR
ERROR

32
33

;MR1 IN ERROR IN READ SYNC
;CS1 IN ERROR AFTER SYNC RERD

£97
698

ROUTINE CALLED:
JSR
PC,RDBIT

681
Egg

ERROR
ERROR

530
701

396636 3 00 36 36 36 36 3 36 3 36 3 36 36 36 3 36 36 36 36 36 36 36 36 3 36 36 30 36 36 36 36 36 36 98 3 36 36 3 3 3 3 38 3 3 36 3 36 36 3 36 36 30 3 30 3 3 3 24 9 2 %

70e

DIARGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

EERRRE TR E N6 36 36 30 300 06 063630 36 3 00 06 36 00 3036 36 38 98 00 06 30 30 3 0 30 38 30 00 30 36 00 96 3 36 36 36 36 36 3 06 3 3 3 %

;ga
708
;8%
SININININ I NN NN ININNNINN
MUV TUND CUNU N 0 beme b e 0t et s e s s ()
NN LW—0O0O~NITCNLW—00

708

THIS ROUTINE 1S USED 7O SIMULATE THE RERD OR WRITE CHECK
OF DATAR. THE ROUTINE WILL TRANSFER AR FULL OR PARTIARL SEC
THE FIRST WORD AFTER THE CALL SPECIFIES HOL MANY WORDS

ARE

TO BE

TRANSFERRED.

IF LESS THAN A FULL SECTOR,

THE ECC RT THE END

OF THE TRANSFER IS NOT CHELKED. THE ECC IS CHECKED ARTM TH

EACH BIT IS TRANSFERED.

EITHER 16 OR 18 BIT WORDS CAN BE SIMULATED
DEPENDING ON THE STATE OF CFMY BIT IN L.CS1.

ARE REQUIRED,

IF 18 BITS

BITS 16 AND 17 ARE ASSUMED TO BE ZERO.

THE CONTENYS OF LOCRTION ECPOSX MUST BE LORDED WITH THE
COUNT EXPECTED AT THE END OF THE DATA TRANSFER. THIS
LORDING MUST OCCUR BEFORE THE ROUTINE IS CALLED.
ANOTHER LOCRTION,

ECPATX,

IS SET TO O IF THE ECC IS EXPE

TO BE CORRECT ANDO SET TO'1 IF AN ERROR 1S BEING FORCED.

A 3RD LOCATION,

ECCSRC,

SPECIFIES THE SOURCE OF THE ECC

WORDS TO BE USED IN CHECKING THE OPERARTION. IF ECCSRC IS

CZR6EBO RKb611 DSKLS CTRL PRIS
02-DEC-77 10:21

CZR&EB.P11

MACY11l

30(1046)

02-DEC-7?

10:43

coe
PRGE

SEQ 001S

O
I) e EomeLrt

228

Zeg

EEEL?$HBS PSOn Ecén? QNB ECCLA QEE uggo.

732

JSR

R4, DRERD

tESB%“afl‘ *RQ”SFgfinx IN ERROR READING DATA OR ECC

735

ERSOS
Egngn 32
41

;
13
ngoéng
2“’30 RPTER
ATA SERE
OR C Ecc
;Eéé ‘Sfi°2
Esc?srgfi
ENCOERE&T

:ERR IN ECC PAT CALCULATION
"ERR IN ECC POS COUNTING

ERROR 42
ERROR 43

738

739
740
741
742
743
744
74S
746
747

R4, DWRTCK

JSR

LENGTH oF }RANSFER
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

53
5S4
55
91
42
43

ROUTINES
RDBIT
ECCGEN

'MR1
"ECC
:CS1
'ECC
:ERR
:ERR

IN ERROR WRITE CHK OR ECC RERD
ERROR IN WRITE CHECK
ERROP AFTER IN WRT CHK OR ECC READ
REGISTER INCORRECT AFTER READ ECC
IN ECC PAT CALCULATION
IN ECC POS COUNTING

CALLED:

LS
2L22
2222222
Y S 222222222222223222XX2X22222222XTTLXTLI22L2222

GENERATE ECC WORD
FREEFEEERRHHINEEF

NIRRT

222

EACH TIME THIS ROUTINE IS CALLED THE ECC IS CALCULATED F
NEXT BIT T? ?E RERD OR WRITTEN AND THE BITS PREVIOUSLY
READ OR WRITTEN (STORED IN ECCHI AND ECCLO). THE RESULTS
THE CRALCULATION ARE PLACED IN ECCHI AND ECCLO.

THE LOW O

%é S&EEPQF ECCHI RRE PLRCED IN E.ECPT FOR EARSY COMPARISO
CALL:
RETURN:

JSR
RTS

PC,ECCGEN
RY

63 I U000 0 0 300 3 36 36 3 36 3 36 30 6 36 96 30 36 6 36 96 36 08 96 06 06 36 36 06 36 36 08 98 3 3 3 3 3 % 3 36 3 2 0 23 0000 3 0 000 300 30 3 R

SIMULATE ONE BIT OF WRITE DATA IN MARINTANENCE MODE
FHA

5835

U000 3000000030 00000 00 00 06 0630 30 3300 00 06 00 3 333 0 00 06 3 03 3T 0 00 30 000 0

ONE BIT OF DATA 1S WRITE SIMULATED.
RKMR]

IS COMPUTED

THE CONTENTS OF

(PRECOMP ADVANCE AND DELRY,

MRINTENANC

ENCODED WRITE DATA) FOR THE PROPER TRANSITION OF THE

MAINTENANCE CLOCK AND CHECKED RT EARCH TRANSITION. IF MR]
1S INCORRECT QT ANY TRANSITION,
AN ERROR IS SET UP TO

CONTAIN A MESSAGE THAT IDENTIFIES THE TRANSITION WHEN TH
ERROR OCCURRED.

CZREEBO RKkb611 DSKLS CTRL PRTS
CZR6EB.P11
De2-DEC-77 10:21

MACY1l 30(1046) ~02-DEC-77

10:43

bO2

PAGE 1B

784

ETURN:

787

790

‘%

PC,WRTBIT

£§R

SH*L:

288

SEQ 0016

RYS

pcie

RTS

FOR NO ERROR RETURN

FOR ERROR IN MRl

33696 3 36 3 36 36 3 3630 3 36 36 38 36 38 38 36 38 36 36 36 36 36 36 36 38 36 30 36 36 38 3 30 38 3 30 36 30 36 3 30 36 3 36 2 3 06 2% 30 0 3 3022 0 2 30 2 2 2B %

SIMULATE ONE BIT OR RERD DRTA IN MAINTENANCE MODE
ERMEANENNNNARNER AR E RN

R RN

E R

RR R

R R AR

R R AR R AR AR R B RRRARR

ONE BIT OF DRTR IS RERD SIMULATED.
OONE BY THIS ROUTINE.
JSR

CALL:

RETURN:

RTS

NO CHECKING IS

PC,ROBIT
PC

J0 303696 06 3 36 36 06 36 3 3 36 36 06 3 3 36 36 06 3 3 36 96 36 36 36 36 36 36 3% 36 36 36 36 3 3 36 36 96 3 3 3 3t 3 3 3 3 330 2 36 3 3 9% 38 3 3 30 38 3 3% 3¢ 3 %

MEMORY CHECK ENABLE TRAP
B3I

00003600 0000 3000 00 00 0 00

15 [0F PRRCERRSCEAM YRisMRaLTERE
MiC AROCPSE Raes caus

BY MEMORY PARITY ERRORS.
0 0D 0D 00 0D €0 €D 4D D D CD D (0
UMY
0 e 00 bt s Pt P pa = )
OV O NN L WMN— O W

808

822

36303636 3636 36 36 36 3 36 38 38 36 34 3 36 36 36 36 36 36 30 3636 96 36 36 36 38 38 06 30 06 3 36 3 3 36 3% 3 3 3% 3 3 36 3¢ 30 3 36 36 3 30 3 00 3 00 36 30 36 30 3 3¢ %

CLEAR INPUT BUFFER

000

360608 06 00 06 0 3030 36 3000060 36 30 30 36 30 06 00 6 06 30 36 00 30 6 300 3000 00 00 00 0 0630 300 30 30 00 00 00 2300030 3630 3 2 330000 0 2

2638 38 36 36 36 36 36 36 36 36 3 3 36 36 38 38 3 36 36 38 3 3 36 30 36 96 36 3 3 96 3 36 3 3 36 3 3% 3 3 30 3 3 3 3 30 30 36 3 3 08 06 2% 36 36 36 3 3% 36 36 36 36 3¢ 3 3¢

BUILD DATA BUFFER

3636 36 36 36 36 36 36 38 36 36 36 38 38 3636 36 30 30 36 36 36 38 96 36 36 30 36 36 36 00 30 30 0

40 00 00 0 30 30 30 36 30 330 3000

IO AR 00 0000 00 3000 0 00 06 00 0

THE PRTTERN SPECIFIED IN THE CAlLL IS LORDED INTO THE DART
BUFFER. THE ENTIRE BUFFLR IS ALWAYS LOADED (400(8) WORDS
RN
R R
OO R R R R EHHHEHH
FEANEARERBRREEAAARARR

LOmD LTM REGISTERS
F

I I

020000009000 30 00 000

THE *L"” REGISTERS ARE LOADED FORM THE PARAMETERS FOLLOWI

L.MRI
NE 8 tb ? RGNOETé 808 IS SET IN
SU?ROUT
L.CS1

cAaLL:

JSR
. WORD
.BYTE

.BYTE
. WORD

ORDED

WITH THE

COMMAN

R4, LORDRK
CYL INDER
;SECTOR

TRQCK
BUFFER RDQRESS

. WORD

:WORD

. WORD

RETURN:
RTS

COHHQND FORMAT ,DRIVE TYPE,SUPPER RUS AD
R4

CZREEBO RKB11 DSKLS CTRL PRIS

CZR6EB.P11

02-DEC-77 10:21

MACYLl 30(1046)

02-DEC-77

10:43

EQ2

PARGE 17

840

HEERHEIIMNEN

g:g

g4}

START THE OPERATION

a4y
g:g

SEQ 0017

TN I

00000 0

I 000 00 0

0000 0 000 0 0000 0 000 0 000 6 2 20

IO 000 e

0000 00 0000 0000 0 0 00 0000 3 0 2

THE INFORMATIOIY IN THE "L" REGISTERS RARE LOADED INTO THE
RK611 REGISTERS IN R STARRIGHT TRANSFER.

847

36363 364 4303 0000 06 0 30 36 30 00 26 00 30 00 3030 000 00 00 00 30 2030 0000 30 00 06 36 030 30 00 00 00 06 30 00 00 00 00 00 006 00 0000 00 00 30 00 00 30 30 20

848

GET THE RKb1l REGISTERS

ggg

3RS

851
ggg

I A0 0 3000 06 30 00 06 00 00 00 030 00 00 0606 0000 000 00 00 000 00 00 03000 00 00000 00 0000 00 00 2 6 0
ALL THE RKbll REGISTERS EXCEPT THE DATR BUFFER ARE
STORED IN THE “T* REGISTERS.

854

3636 333606 36 3 300 3630 30 00 06 0 30 0600 0006 30 00 309608 36 3090 0000 30 0 00 00 30 000000 06 000 00 26 00 30 0000 3030 3000 6 4 0000 06 00 00 30 00 0

8SS

“FIRST SHALL BE LAST,

ggg

858

LAST SHALL BE FIRSTTM SUBROUTINE

THE CONTENTS OF R3 IS SWAPPED END FOR END,

I.E. BIT IS

859

BECOMES BIT O AND VICE VERSA,BIT 14 BECOMES BIT

862
863

CALL:
JSR

RY,FSBLVYV

866
867

RETURN:
RTS

gg?

1 AND VICE VERSA, ETC.

ggg

WITH R3 LOADED WITH THE WORD TO BE SWAPPED

ggg

870
871
87¢

o’

WITH R3 SWAPPED.

30NN IR
RN ERAR R R AR R R RRRR R R R BRSNS
CHECK FOR MEMORY CHECK ENABLE
EREHHEFRRNEEERERREEEFRNER
R R RN E R AR RERRRERRAA AR AR RRAA DA AR RRSR

CZR6EBO RK&11l DSKLS CTRL PRTIS
CZReEB.PI11

De-DEC-77

10:21

MACY11 30(1046)

%% REV 004

167400
000001

02-DEC-77

10:42

FO2

PRARGE 18

%x%

.NLIST
.LIST
.ENABL

CND,MD,MC
Mg
ABS, AMA

CTITLE

czassao RKbil DSKLS CTRL PRTS

g§uR-

1674

: %COPYRIGHT

(C)

1976,1977

:#DIGITAL EQUIPMENT CORP.
mnvmao MRSS. 01754

*PROGRRN BY MARV TEGROTENHUIS
lTHIS PROGRAM WRS RSSEMBLED USING THE POP- 11 HRINDEC SYSMAC
}PRCKRGE (MARINDEC-11-D2GARC-C3), JAN 19, 1977

SBTTL
001100
DD
OO DO D OO DD O 0D DO
nr U 0= 0=t bt bme ps B Pt st Bt e
- OWONTNLWN—~0OW

172774
177772
177570
177570

000000
000001
00002
000003
000004
00000Ss
000006
ooooo?

USe

SWITCH

HALT ON ERROR

s Pt P

LOOP ON TEST
INHIBIT ERROR TYPEQUTS
ABORT PROGRAM AFTER 20 ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:D»
BARSIC DEFINITIONS

*INITIALRBDRESS OF THE STACK POINTER ### 1100 #xx

&TACK=

“EQUIV

.EQUIV
000011}
0o0o01e
000015
000200
177?776

OPERATIONAL SWITCH SETTINGS

QDO
MNW L

* * L

* L8 8

SBTTL

EMT ERROR
IOT,SCOPE

:BASIC DEFINITION OF ERROR CALL

:BASIC DEFINITION OF SCOPE CALL

¥MISCELLANEOUS DEFINITIONS
11
c

iT=

LF=
CR=

CODE FOR HORIZONTRL TAB

12
15

; 'CODE FOR LINE FEED
; ; CODE FOR CARRIAGE RETURN

177776

' ' BROCESSOR STATUS WORD

'CODE_FOR CARRIAGE RETURN-LINE FEED

CRLF=

200

.EQUIV

PS,PSUW

PIRQ'

177772

; ;STACK LIMIT REGISTER
,,PROGRRH INTERRUPT REQUEST REGISTER

177570

: 'HARDWARE DISPLAY REGISTER

=
PS=

STKLMT= 177774
DSUWR

DDISP=

177570

; HARDWARE SWITCH REGISTER

%GENERAL PURPOSE REGISTER DEFINITIONS

Rl=
R2=
R3=
R4=
RG=
RE=
R7=

%1
%2
%3
%4
%5
%6
o

. s GENERAL REGISTER

' 'GENERAL
: 'GENERAL
: 'GENERAL
: 'GENERAL
: 'GENERAL
' 'GENERAL

: :GENERAL REGISTER

SEQ 0018

DSKLS CTRL PRTS
02-DEC-77 10:21
000006
000007

MACY1l

30(1046)

02-DEC-77

BASIC DEFINITIONS

SP=

PC=

000300
000340

BRO=

PRI=
PR2=
PR3=
PRY=
PRS=
PR6=

PR7=

010000

004000
002000
001000
000400

000002
000001

&418=

SWi4=
SW13=
Sule=
SWil=
SWi0=
SWo9=
SWos=
SW07=
SWOb=
SWOS=
SWo4=
SWo3=
SWo2=
SWol=
SW00=
CEQUIV
.EQUIV
.EQUIV
-EQUIV
.EQUIV
CEQUIV
"EQUIV
JEQUIV
"EQUIV

.EQUIV

0 O O OO0
NNININNIN
NI L£whn

971

3978

100000
Q40000
020000
010000
004000
002000

LEVEL

DEFINITIONS

000004

. PRIORITY LEVEL

LEVEL
:'PRIORITY
L
. PRIORITY LEVEL
DIPRIORITY LEVEL
: 'PRIORITY LEVEL
i PRIORITY LEVEL
:PRIORITY LEVEL

40
100
140
200
240
300

,,PRIORITY LEVEL

340

100000

SWITCH DEFINITIONS

40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
5W09,SW9
SWO8, SW8
SW07, SW?
SWOE, SWb
SWOS, SWS
SWO4,SW4
SW03,5W3
SW02,SWe
SWOI,SWl

SWOO,SWO

. *DATA BIT DEFINITIONS

81T1S5=

BITi4=
BITi3=
BIT12=
BITil=
BITi0=
BIT09=
BIT08=
BIT07=
B8IT06=
BITOS=
BITO4=
BITO3=
BITO2=

100000

4000
20000
10000
4000
2000
1000
400
200
100
40
20
10
H4

SEQ 0019

,,PROGRRH COUNTER

%¥"SWITCH REGISTERTM

100000
g40000
020000

PAGE

:STACK POINTER

¥PRIORITY

000000
000040

10:43

(BITOO TO BITIS)

NN LWwWU—~0

OR 611

Gae

CZRLEEND RKE11 DSKLS CTRL PRTS

CZREEB.P11

385

988
989
gqo

02-DEC-77 10:2)

BB888s

99y
99g
99
ggg

999

Y
N

.EQUIV
.EQUlv
.EQUIV
-.EQUIV

BIT03,BIT3
BIT02,BIT2
BITOI,BIT!
BITOO0,BITO

PAGE 20

000024

s TIME OUT AND OTHER ERRORS

RESVEC= 10

,,Rsssnveo AND ILLEGAL INSTRUCTIONS

IuTVE == éo

"
SUT/ UTPUT TRAP (IOT) % #SCOPE*%
,,?

TRRPVEC:gH

;; “TRAP” TRAP

PWRVEC= &4

“7*BIT

EMULRTOR TRRP (EMT) #%ERROR#%

000030

EMTVEC= 30

0
000064

TKVEC=
TPVEC=

&0
64

.SBTTL

MEMORY MQNQGEMEN* DEFINITIONS

888884

a00240

PIRQVEC=240

,,TTY KEYBORRD VECTOR
iTT¢ PRINTER VECTOR

'PROGRAM INTERRUPT REQUEST VECTOR

VECTOR ADDRESS

o e

; #KT11

0002s0

MMVEC=
;#KT11

177572
177574
177576
172516

SRO=
SR1=
SRe=
SR3=

250
STATUS REGISTER RDDRESSES

177572
177574
177576
172516

; *KERNEL "ITM PAGE DESCRIPTOR REGISTERS

172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDRY4=
KIPDRS=
KIPDRE=
KIPDR?=

172300
172302
172304
172306
172310
172312
172314
172316

#KERNEL "I* PAGE ADDRESS REGISTERS

e
e
[

%BASIC "CPU“ TRAP VECTOR ADDRESSES

TBITVEC=14

1
000020

B1708,B178
BITO?,BI}?

000014

1005
0000000000000 0000000000000000000O00O
£ £ Wt
W
W WM NN NN R T RO R N t 4 s e pe e ps e b 1~ OO O
= O0O0ONOCNLWH-OWOVONCNLWNLOOONN
LW
0OWO
N

.EQUIV
.50318

ERRVEC=
M

000010

1006

10:43

Bi18:
¢
.EQUIV B8IT09,BIT9

000N0M

1001

1002

02-DEC-77?

BASIC DEFINITIONS

gm&:&&&
.ESugv
TO4.BITH
.EQUIV

33
993

1000

MACY1l 30(1046)

HO2

172340
172342
172344
172346

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=

172340
172342
172344
172346

SEG 0020

CZREEBO RKbll DSKLS CTRL PRTS
02-DEC-77 10:21

CZR6EB.P11

WN—-DOONOCNILWNL—-OOONCNLWN—-ODOONOCNZWN—-OOONON W -0Ouw

o
BDDDQDDDDQODDDOODDDODDDDDDDDDODDDDUDODDODD()
DOOMOOMDMO@MOMME
N NNNNINNNNNOC OO0
NNwnn

Pt Pt ot Pt Pt Pt —
Pt et et Pt Pt Pt st s P
Pt Pt Pt Pt Pt Pt Pt it P
0 Pt ot Bt Dot Pt Prc Bt Pt Pt Pt Bt Dt Bt Pt Pt B
e

102

PRAGE 2!
10:43
02-DEC-77_
MEMORY MANAGEMENT DEFINITIONS

30(1046)

KIPARY= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR?= 172356

1042
1043
1044
104S
1046
1047
1048

MARCYL11

; MEMORY PARRITY VECTOR

WR.PAR= Y4

;WRITE BAD PARITY

PAR.EN= 1
RAVECT1= 120210
APRIOR= S
ABRSE= 177440
.SBTTL

RKCS1=

RKWC=
RKBA=

RKDR=
RKCSe=

00o0e2

000300

000001
000100
000200
000400
001000

2
4

b
10

SELDRvV= 01

GO=

IE=
RDY=
BRl1e=

BAR17=

:ENABLE PARITY ENABLE
:DEFINE RK&11 VECTOR RDDRESS
'DEFINE RKbB1l PRIORIT
:DEFINE BRSE OF RKG11l REGISTEPS
; CONTROL AND STATUS REGISTER 1

"WORD COUNT REGISTER
{BUS RDDRESS REGISTER

;DESIRED TRACK SECTOR REGISTER
; CONTROL _AND STATUS REGISTER 2

!DRIVE STATUS REGISTER
;EFPROR_REGISTER
'ATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:DATA_BUFFER
:MAINTENANCE REGISTER 1
iMAINTENANCE REGISTER 2
iMAINTENANCE REGISTER 3
'ECC POSITION INFORMATION
{ECC PATTERN_ INFORMATION
:SPARE REGISTER

DRIVE COMMRNDS

03
PACK=
CLEAR= 0S
UNLORD= 07
SRTSPL= 11
RECAL= 13
QFFSET= 15
17
SEEK=
RDDATR= 21
WRDATA= 23
ROHEAD= 25
WRHERD= 27
WRTCHK= 31
300
INTR=
.SBTTL

*MEM PARITY OPTION

RK611 CONTROLLER REGISTER DEFINITION

12
RKDS=
RKER=
14
RKASOF= 16
RKDCYL=20
24
RKDB=
RKMR1= 26
RKMR2= 34
RKMR3= 36
RKECPS= 30
RKECPT= 32
RKSPAR= 22
.SBTTL

000001
000003
000005

MEMVEC= 114

MEMBAS= 172100

SEQ 0021

; SELECT DRIVE

: PACK _ACKNOWLEDGE
:DRIVE CLEAR
:UNLOARD
:START SPINDLE
:RECAL IBRATE
,OFFSE
; SEEK
:READ _DATA
iWRITE DATA
READ HEADER
{WRITE HEADER AND DATA
IWRITE CHECK
:GENERATE INTERRUPT TO CPU

CONTROL AND STATUS REGISTER 1 BITS
BITO

BITE
BIT?
BITB

BITS

;GO _BIT

: INTERRUPT _ENABLE
:CONTROLLER READY
:BUS ADDRESS BIT 16

:BUS ADDRESS BIT 17

CZRGEBO RKB11 DSKLS CTRL PRTS

CZR6EB.P11
1098

NNMNNELLLLL L L L4 LWWWWWWWLLWWNAININAINNMAINY
UMM MY 4 4 b b b b s s s s

P B0 0t Pt Pt Pt Pt st Pt P Pt Pt Pt Pt Pt Dot Dt Dt Pt Pt ot ot P Pt Pt Pt Pt P Pt Pt (s Pt et Pt Pt et Pt Pt [t Pt et Pt Pt P Pt Pt Pt Pt Pt Pt Pt e P
Pt Pt Pt Pt Pt Pt Pt et ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Bt Pt e s P Bt Pt Pt et Pt Pt Pt Pt P Pt Pt ot Pe Pt Pt Pt Pt Pt P et Pt Pt Pt ot Pt Pt Pt Pt Pt Pt Pt

1039

02-DEC-77 10:21

MACY1l 30(1046)

02-DEC-7?7

10:43

JOe

PAGE 22

SEQ 0022

CONTROL AND STATUS REGISTER ! BITS

002000

COT=

BITIO

;:CONTROLLER DRIVE TYPE (0O=RKOb6)

010000
020000
040000
100000
100000

CFMT=
SPAR=
DI=
CERR=
CCLR=

BITI2
BITI3
BIT1Y
BITIS
BITIS

*CONTROLLER DRIVE FORMAT (D=2 SECTOR,
1=24 SECTOR)
:DRIVE BUS PARITY ERROR DETECTED BY CDNTROLLER
:DRIVE INTERRUPT
:CONTROLLER ERROR
:CONTROLLER CLERR

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS

004000

000007

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

000002
000004
000010
000020
000040
000100
000200
000400
N01900
0102000
(04000

CT0=

BIT11

DRVMSK= 7

;CONTROLLER TIMED OUT WAITING FOR
;

_DRIVE RESPONSE

;MASK FOR DRIVE SELECTION CODE

RLS=
BRI=
SCLR=
=
OR=
UFE=
MDS=
PGE=
NEM=
NED=
UPE=
WCE=
DLT=

BIT3
BITH
BITS
BITE
81717
BIT8
BI19
BITIO
BIT1l
BITl2
BIT13
BITIH
BIT1S

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=

BITO

SKI=
NXF =
DRPAR=
FMTE=
DTYE=
ECH=
BSE=
HVRC=
COE=
IDRE=

DESELECT OR RELEASE DRIVE IN BITS 0-2
:BUS ADDRESS INCREMENT INHIBIT
;CLEAR CONTROLLER AND ALL DRIVES
:INPUT _READY
:OUTPUT RERDY
{UNIT FIELD ERR
IMULTIPLE DRIVE SELECT
: PROGRAMMING ERROR
iNON-EXISTENT MEMORY
:NON-EXISTENT DRIVE
;UNIBUS PARITY ERROR
;WRITE CHECK ERROR
iDATA LATE ERROR
; ILLEGAL FUNCTION CODE

BIT1
BIT2
BIT3
BITY
BITS
BITE
BIT?
BIT8
BITS
BITIO

{SEEXK _INCOMPLETE
:NON-EXECUTRBLE DRIVE FUNCTION
iDRIVE DETECTED DRIVE BUS PARITY ERROR
:FORMAT _ERROR
DRIVE TYPE ERROR
:ECC HARD
:BAD SECTOR ERROR
:HERDER VRC ERRROR
:CYLINDER ADDRESS OVERFLOW ERROR
IN ALID DISK RADDRESS ERROR

BIT12
BIT13
BITIY
BITI1S

DRIVE TIMING ERROR
SOPERATION (SEARCH) INCOMPLETE
;DRIVE UNSARFE
:DATA CHECK

WLE=

BIT1}

.SBTTL

STATUS REGISTER BIT DEFINITION

000001

DRA=

BITO

000004
000010
000020

QOFST=
BIT2
ACLO=_
BIT3
SPOLSS= BITH

DRIVE OFFSET
:AC_LOW
SPEEDLOSS

000100
000200
000400

vv=
DROY=
DOT=

VOLUHE VAL ID
:DRIVE RERDY
:DRIVE TYPE (D=RKOB)

€ 10000
(20000
040000
100000

000040

DTE=
OPI=
UNS=
DCK=

DROT=

BITS

8176
BIT?7
BIT8

RITE LOCK ERROR

DRIVE AVAILABLE (CONTROLLER IS SET IF
THIS BIT

IS RESET

ORIVE OFF TRACK

CZR6EBO RK&11 DSKLS CTRL PRTS
02-DEC-77 10:21
CZR6EB.P11L

WRL =

004000

1154

11588
1156
iigg

KOe

MACY11l 30(104%)
02-DEC-77 10:43 PAGE 23
STATUS REGISTER BIT DEFINITION

020000
040000
100000

iigg

SEQ 0023

;WRITE LOCK

BITLL

PIP=
DSC=
SvAL=

BITI3
BITI1N
BiTI1S

POSITIONING IN PROGRESS
DRIVE STATUS CHANGE
STRTUS VALID

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

iigé

000017

MESMSK= 17

; MESSAGE MRSK

1163

000020

PART=

;FORCE EVEN PARITY ON DRIVE MESSAGE LINES

1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
{i;g

ii;g
1178

DMD=
BITS
MSP=
BIT6
MIND=
BIT?
MCLK=
BIT8
BITS
MERD=
MEWD=
BIT1O
PCR=
BIT1l
PCD=
BITl2
BIT13
ECCW=
WRTGAT= BITIHY
RDGARTE= BITI1S

DIQGNOSTIC MODE
HRINTENQNCE SECTOR PULSE
NAINTENQNCE IND
MQINTENRNCE CL OC
HRINTENQNCE ENCODED REARD DATR
HRINTENQCNE ENCODED WRITE DRTRA
PRECOHPENSQTION RDVQNCE
PRECOHPENSRTION DELR
ECC WORD IS BEING REQD OR WRITTEN
NRITE GATE
RERD GRTE

000020

S.SEEK= BITY

; SEEK COMMAND

1179
1180
1181
1182

000040
000100
000200
000400

1185

004000

1183
1184

.SBTTL TRANSMITTED MESSAGE R

001000
002000

{ig?
1188

1190

i%gé

lSEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUP 15

000174

; _OCRTIOng CONTARINS 0 TO CRTCH IMPROPERLY LOARDED VECTORS
DISPREG:
SWREG:

1196
{{gg

000200
000204

000137
8885?3

002400
002370

1199

(000214

000137

002360

1203

1204

000220

1206

000046

i208

0000se2

1208

.WORD
WORD

O
O

.SBTTL

STARTING RDDRESS(ES)

.SBTTL

ACT11 HOOKS

; ; SOFTWARE DISPLAY REGISTER
; ; SOFTWARE SWITCH REGISTER

JMP
JMSH

JHSTART ;;JUMP TO STRRTING ADDRESS OF PROGRAM
RESTRT
; JUMP TO RESTART ROUTINE

JMP

PARM
Y

sy T S Y

1202

;207

;SET VOLUME VARLID (PACK ACKNOWNLEDGE®

TRAP CARTCHER
=0

(000000
000000

1208

S.PACK= BITl1

i
RMAT
s UNLORD

; #ALL UNUSED LOCATION.S FROM
4 - 776 CONTAIN n *,+2,HALTTM

000174
000176

igg?

RECQLIBRRTE COMMAND
STQRT SPINDLE COMMAND
DRIVE RETURN TO CENTERLINE COMMAND
CLEQR ERROR AND DSC

SBTTL

1193
1194
1195

S.RECL= BITS
S.STSP= BITH
S.RTC= BIT?
S.CLR= BlT8

S.FMT= Bl179
S.UNLD= BITIO0

000000

1189

BITHY

000040
000100
000200
C0O0400
001000
302000
004000
010000
020000
040000
100000

; JUMP TO OPERATOK ASSIGNED PARMETERS
2 2222222222222

fiooxs REQUIRED BY ACT1l

2223322322222 2322228 223

SS PC=.

; SAVE PC

023276

SENDRD

;3 1)SET LOC.46 TO ADDRESS OF $ENDRD IN .SEOP

000000

-WORD

000046

0000S2

000220

=52

.=$SVPC

,,E)SET LOC. 52 T0 ZERO
::

RESTORE
P

CZR6EBO RK611 DSKLS CTRL PRTS
CZRBEB.PI11
02-DEC-77 10:21
1210
1211
1212
1213
iSig

000114
000116

000! 1M
031726
000340
001000

1217

1221

000024

1223

000044

l1eed

1225

001000
000024

SEQ 0024
.

00 00 I N0

.$X=.
. =4

st s A

e s

e 222222t s a et

; s SAVE CURRENT LOCATION
; ;SET POWER FAIL TO POINT TO START OF PROGRAM

000200

200

001000

SQPTHDR ,,POINT TO APT HERDER BLOC

001000

el L

,,FOR RPT START UP

;,20INT TO APT INDIRECT RDDRESS PNTR.

s :RESET LOCATION COUNTER

4i*iilliii*!i1ii&lii!!liii*i}!li!*l!ii&iiiiillli§§§§i§il***§*&}

SETUP APT PRRAMETER BLOCK RS DEFINED IN THE APT-PDP11 DIAGNOSTIC
INTERFRCE SPEC.

1229

001000

1231

001002

1232

PAGE 24

IO 000000 0 00630 0600 0T 003636 0 3 00 0

R It

00004Y

1226
{Sgg
1230

LO2

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1218

1222

.SBTTL

10:43

.=MEMVEC
MEMERR
PR?7
.=1000
ARPT PARAMETER BLOCK

$ o BN I

1sx§

1219
1220

MACY11l 30(1046)
02-DEC-77
ACT11l HOOKS

001000

000000

001004

000132

001250

S5
Riee oot
1535 881818
888630

SAPTHD:

SHIBTS:

.WORD

$TSTM:

.WORD

90.

$MBADR: .WORD

M
.NSRB

SMAIL

0 HIGH BITS OF 18 BIT MAILBOX ADDR.

,,RDDRESS OF APT MAILBOX (BITS 0-15)
;;RU TIM OF LONGEST TEST

D
TN
. vt
igq"tuo SHAIL,
,,LshcnniLonJTESR
E?EBLEWOR
S) L BB

CZR6EBO RK611 DSKLS C/RL PRTS

CZR&EB.P11

02-DEC-77 10:21

{aag

i§§3
1843

1244

02-DEC-77

.SBTTL

COMMON TRGS

COMMON TAGS

001100

000000

1104

SCMTAG:

000000

$ICNT:

1252

1921 001115
001114

000
001

SERMAX:

001124
001126

000000
00000C

127
811l ppaRgs
1255 001122 000600
1256
1257

PAGE 25

SEQ J0eS

L THTe TABLE CONTAING VARIOUS COMMON STORAGE LOCATIONS i rrX¥*

:%USED IN THE PROGRAM.

isie GBI
(558 0811 eeeeeg
Y

10:43

ig:o

134%

MACY!l 30(1046)

izse
o qoond
1260 001134
090

.=1100
.WOR

sIs: BV 8
iceeed: 0
s

.WORD
.

LOCATION

COMM

;s START OF COMMON TRGS

; CONTAINE THRoBE] phureeR
IERIAE SEEE Rl Brnons

::
HH

CONTRIN

ITERATION

e .BYTE

.WORD
.WORD

O
O

: !CONTAINS *GOOD’ DATA
! !CONTRINS *BAD’ DATA

5555

: I INTERRUPT MODE INDICATOR

.WORD

DDISP

: :

177564
177566
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

O
2
12
O
O

2!TTY PRINTER STATUS REG. ADDRESS
*!7TY_PRINTER BUFFER REG. RDDRESS
!'CONTRINS NULL CHARACTER FOR FILLS
:'CONTAING & OF FILLER CHARACTERS REQUIRED
!t INSERT FILL CHARS. AFTER A “LINE FEED"
*I~TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES)
;;fig?gaxn§sgs Oeoaggsgegzgneo

o
$8DADR: .WORD
O

$GDDAT:
$800AT:

$AUTOB: .BYTE

¢O

g
NTAINZ 19ERCCERFRED BETECTED
' {CONTRINS MAX. ERRORS PER TEST

HGRUTCINE
BsofE ] F20gs,Tgrgucrion
: :CONTRINS ADDRESS OF 'BAD’ DATA
RESERVED-T
10 B UseD
: AUTOMATIC MODE INDICATOR

igg1

Boiigs

000888

$INTAG:

1264

001142

177570

DISPLAY:

1267
1268
1269
1270
1271
1272
ig;g

001150
001152
001154
001155
001156
001157
001160

177564
177566
000
002
Oig
000
000000

$§TPS:
§TPB:
SNULL:
$FILLS:
$FILLC:
$TPFLG:
SREGAD:

1275

001162

000000

$REGO:

.WORD

: CONTRINS ( (SREGAD)+0)

1278
1279

00.170
001172

000000
0000QC0

SREG3:
$REGH:

.WORD
.WOR

O
0

I CONTAINS ( (SREGAD)+5)
ONTAINS
(
($REGAD)+10)

1281
1282
1283

0011?8
001200
001202

006100
000000
000000

$REGE:
SREG?
$TMPO:

.WORD
WORD
.WORD

DO
O
O

: : CONTRINS ( (SREGAD)+14)
: ! CONTRINS ((SREGRD)+16)
: 'USER DEF INED

1286
1287
1288
1289
i290
1291

001210
00lei2
001214
001216
001220
001222

000000
000000
000000
000000
000003
000000

$TMP3:
§TMP4:
§TMPS:
§TMPE:
$TMP7:
§TMP10:

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

O
O
O
O
O
O

: 'USER
: 'USER
! {USER
: {USER
! 'USER
! !USER

1585

126
1266

1276

BS6i1d8 177570

081144
177860
001146
177862

001164

000000

1277 001166 000000

18860 001179 000000
1284

1285 001284
001206 000000
000000

COUNT

SWR:

§TKS:
3TKB

$REGI:

$REG2:

SREGS:

$TMPI:

§TMP2

"WORD

177560
177562

.WORD

.WOR

.WORD

WORS

DSWR

0
O

;s ADDRESS OF SWITCH REGISTER

ADDRE
F
DISPLAY REGISTER
LITTY
K§§
grn?ug
PITTY K
UFFER

P CONTRINS

;;CONTQ}NE ((SREGRD)+2)
((SRECAD) +4)

i ONTKIN§ ((gn uQD)+lg)

: 'USER

DEFINED
' ! USER BEFINED

DEFINED
DEF INED
DEFINED
DEF INED
DEF INED
DEF INED

CZRBEBO RK&11 PSKLS CTRL PRTS
CZRGEB.P
Se-DEC-77 10:21

(un»-Chnarvuun4uun»~cuourvaunJnun»—cnoaruounJHan»-cfl3&¥3gfigfifiafifieg?n

£ £ LLWWWIWLWIGIWLWGLWNININAINIMI
RN N N #=e b e gce ot gt ps st s e

n Bimn Pt Pt P
Pt Pt
Bt | 0 s P
sB

$QUES:
§CRLF:
$LF:
’
.

.ASCIT
.ASCII
"ASCIZ

10:43

SEQ 0026

PAGE 26

O
O
O
O

: sUSER
: 'USER
: 'USER
: 'USER

DEF INED
DEFINED
DEF INED
DEF INED

<207»><377>¢377> ::CODE _FOR BEL'.

: 'QUESTION MARK
: ! CARRIARGE RETURN
:'UINE FEED

%/
15
12

'll*llllllll!lll!l!i*!ll*l*l!lliillllllll**lli!l!illll*ll**l*ll*
48TTL APT MAILBOX-ETABLE

;écggiil*llllllllllllllll!lil!llii!lillllli*!llll!l*!!!il*llil*!l

$MAIL :

001250

§MSGTY:

.WORD

§PASS: .WORD

000000

AMSGTY

APASS

SENV:
SENVM:
$SWREG:
SUSWR:
SCPUOP:

.BYTE
.BYTE
.WORD
.WORD
.WORD

RENV
RENVM
ASWREG
AUSWR
ACPUOP

::ENVIRONMENT BYTE
:'ENVIRONMENT MODE BITS
::APT SWITCH REGISTER
::USER_SWITCHES
::CPU TYPE,OPTIONS

st Pt P
s Pt Pt

!!aPT ENVIRONMENT TABLE

817s 15-11=CPU TYPE
11,04=01, 11/05=02, 11/20=03, 11/40=04, 11/45=05

‘¥

BIT 10=REAL TIME CLOCK

11,70=06,P0@=07,0=10

BIT

$§MAMS1: .BYTE

$MTYP1: .BYTE
.

AMAMS1

AMTYP1

BIT

9=FLOATING POINT PROCESSOR

B8=MEMORY MANARGEMENT

;;HIGH RDDRESS,M.S. BYTE

;:iMEM. TYPE ELkox

MéM. TYPE BYt

_(HIGH BYTE)

900 NSEC CORE=001

R
*
]

WWWWwWwwww
POV MY 0= = e e e
LuoonLsnu-—0

;;PASS COUNT

;:DEVICE COUNT
::;I1/0 UNIT NUMBER
; ;MESSAGE RDDRESS
;;MESSAGE LENGTH

ARDEVCT
AUNIT
AMSGRD
AMSGLG

00000000000
00000000000

;:MESSAGE TYPE CODE

-WORD
.WORD
.WORD
.WORD

000
0co

; s APT MAILBOX

$DEVCT:
SUNIT:
$MSGRD:
$MSGLG:

SETABLE :

Pt Pt Pt

Bt Bt Bt Bt ot ot

.WORD
.WORD
.WCRD
.WORD

$PELL: .ASCIZ
.

(I G W) (W ) ) G () (W ) W )

Dot B

Pt s ot ot Pt Bt

) W W (W W W W W W W L

s Pt Pt Pt Pt Pt Pt

000377

G () () () W ) WG

s Bt B
Pt Bt

G )G G

sB
Bt

GGG G

Bt Dt B

30(1046)
02-DEC-77
* “COMMON TAGS

$TMP11:
§TMP12:
$TMP13:
§TMP14:

000000

001e4b

MACYi.

NO2

:
:¥

300 NSEC BIPOLAR=002
500 NSEC M0S=003

000000

§MADR1: .WORD

AMADRI

;;HIGH ADDRESS,BLK#1

0ao
000
000000
000
s]o]8]
000000
000
000
000000
120210
000000
177440

§MaMS2: .BYTE

AMAMS2

;;HIGH ADDRESS,M.S. BYTE

S¥

MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE" ABOVE

.TYPE,BLK#®2
;;
;;MEM.LAST ADDRESS,BLK#2
;;HIGH ADDRESS,M.S.BYTE

SMTYP2:
$MADR2:
$§MAMS3:

.BYTE
.WORD
.BYTE

RMTYP2
AMADRZ
AMAMS3

§MADR3:

.WORD

AMADR3

;;MEM.LAST ADDRESS,BLK#3

AMTYPY
AMADRY
AVECTL
AVECT2

;;MEM.TYPE,BLKAY
;;MEM.LAST ADDRESS,BLK#4
::INTERRUPT VECTORA1,BUS PRIORITY#!
:INTERRUPT VECTOR#2BUS PRIORITY#2

SMTYP3: .BYTE
§MAMSHY:

.BYTE

SMTYP4: .BYTE
$MADR4Y: .WORD
$VECT1: .WORD
SVECT2: .WORD
$BASE:

.WORD

AMTYP3
AMAMSH

ABASE

;;MEM.TYPE,BLKA3

;;HIGH ADDRESS, M.S.BYTE

;;BASE ADDRESS OF EGUIPMENT UNDER TEST

~ZREEBO RKB11

CZReEB.PLIL
1348
1349
1350

001326
001330

DSKLS CTRL PRTS

02-DEC-77 1C:21
000000

MRCY!l

30(1046)

02-DEC-77

APT MAILBOX-ETABLE
SDEVM:
SETEND:
CMEXIT

_WORD

10:43

ADEVM

BO3

PARGE 27

; ;OEVICE MRP

SEQ 0027

CZR6EBO Rkb1l DSKLS CTRL PRTS
02-DEC-?7 10:21
CZReEB.P11

MACY1l

02-DEC-?7
ERROR POINTER TRBLE

30(1046)

.SBTTL

10:43

ca3

PRGE 28

SEQ 0Ce8

ERROR POINTER TARBLE

1T PRkt
TN oo RR AR BT

NG e " PRbeR RoRadi
P oliB 577

*LOCQ ION SITEMB. THIS NUMBER INODICATES
W

INOTEL:

ach TRER R Pud"haBlE"C ZRELIETM BBIRrdRs F5EEBN0eo e roLovs:

; POINTS TO THE ERROR MESSAGE

,,PO{NTS 10 TH

oY
DF

042704
041263
037510
040026

001340
001342
001344
001346

000000
800000
000000
000000

001350
001352
001354
001356

000000
000000
000000
000000

001360
001362

0427S1
043015
037514
040032

) Gy iy,
Y
o
Sy
e
ey e

LLLL
L £ LWWWWWWWWWWWIWWW
0000000V HHODDONDDD LMD m
N LN~ OO0MNON LWH—O VDN o

001366

;UNEXPECTED PARITY ERROR

000O0OMOOCoD 91

001330
001332
001334
001336

001364

DRTQ HEADER

:;POINTS TO THE
DATA
; s POINTS TO THE DATA FORMAT

$ERRTB:

001330

1368

THE TABLE IS PERTINENT.

; UNUSED

RROR 3

R Y

ERROR 5
EMSO04

; UNUSED

i E RROR RTT%NPTING IMPLIED SEEK
OR
;CS1

IN ER

;MR1

IN ERROR ARYTEMPTING IMPLIED SEEK

001370
001372
001374
001376

042751

040062

DF000S

001400

Q42751
043053
037542
040106

ERROR b
EMSO0Y4
£S004C
DTO006
OF 0006

:MR2 IN ERROR ATTEMPTING IMPLIED SEEK

042751

ERROR 7
EMSO04

;MR3 IN ERROR RTTEMPTING IMPLIED SEEK

040132

OF0007

043163

ERROP 10
MS010

;MR1 ERROR RERDING PRERMBLE

CSRBEBD RKELL DSKLS CTRL FRTS
CZREEB.PLL

p2-DEC-77 10:21

MACY11 30(1046)

ERROR POINTER TABLE

1411

1412
1413

043163
043015

1418

001440

042243

{:gé

001446

040156

i“ng3

8 1450

43243

1426

001454

(037600

001460

Q43243

1333

00l466

1414
{:}5

1419

1419
14¢J

142%
i:gs

iwgg
1431
1432

001434
001436

=21
.
001444

1452

001456

037600
040202

001470
001472

(043346
043034

{:38

001476

037562

001500
001502
D0IS04

043163
043018
037600

1448

001510

000000

1450
i:gé

001SI4
001516

144]

1442
1443
1444

i::é
1447

1449
1453

1464
1456
1456
}:gg

001S06

000000

001520
Q01See
001524
001See

043403
043015
037600
040202

1460
J461
1462

001530
001832
001534

043462
043530
037e6e

ERROR 12
EMSO11

;CS1 EROR RERDING PREARMBLE

iMR1 IN ERROR HERDER READ/COMPARE

ER§8R 13

MS011

;CS1 IN ERROR HEADER RERD/COMPARE

ESOONA

DT0011

DFO011

;

RROR 14
MS011

;PACK RDDRESS ERROR HDR REARD/COMPARE

ESOL 1R
DT0014

DFOOLH4

ERROR 18

MS015
ESOO48

DT0O010

DF0010

;

040202

ERROR 16
EMSD10
ESOQ4R
DT0011

:MR1 ERROR READING GAP
.

;CS1 ERROR RFTER REARDING GRP

DFO0!L1
;

Emu:

037640
040256

1459

040156

Q01512

070011
DFQO11

DF0O010

040232

uutdrd

ERROR 11

EMSOL0
ESOQ4A

ESOO4YB
DT00!0

040202

1436
1437

Iwgn

43015

043316
037624

IHSS

(<3034
037562

001462
001464

SEa Odéq

57001
OF0C10

00l4ee

001430
001432

.D03

10:43 PAGE 29

43034
j4ee
1407
148
BBiusE
837883
040156
}:?g

02-DEC-77

tRROR 17

;ERROR IN WRITING

; TRANSITION IS IDENTIFIED

0T001?7
DF0017

;

;sREGISTER IN ERROR AND CLOCK

ERROR 20

:ERROR IN CS1 AFTER WRITING SYNC

ERROR el

:ERROR IN ECC WORDS

EMS020
E5004A
DT0011
DF0011
MS021
ESO21A
pDT0021

ZRGEBO RK611 DSKLS CTRL PRTS

SoreEa Pt
{:ga

1465

001536

035bRcir7 10501

001540
001542
001544
001546

043462
043015
037600
040202

* 1471
1472

001550

043560

001852
001584
00155

043053
037542
040106

1478

001560

Q43560

1479
1480
i4s]

001862
001564
OD1See

043072
037559
DHOI3Z

001570

043560

001600

044200

001610

044340

001620

044512

1508

001630

044605

1810
1511

001634
ODie36

037674
040326

1483

1484

1485
1486
1967

1489

1490
1491
1492
1433

1495

1496

1497
1498
1495

1801

1302
1503
1804
1505
1507

1509

1513

1214
1515
1816
817

001672
001579
001576

001602
001604
001606

001612
001614
onlele

001622
001624
001626

001632

001640
001642
001644
00lENe

043015
037514
040032

000600
037674
0WD326

;

000000

044672
043034
037S62
0HOISH

EQ3

PAGE 30

ERROR 22

.ERR IN CS1 AFTER WRITE DATA

ERROR 23
EMS023

.ERROR IN MR2
'DOING MULTI-SECTOR WRITE

ERROR 24

:MR3 IN ERROR

EM5021
ESO04A
670011
DFO011

E5004¢C
DT0006
OFO006

EMS023

'DOING MULTI-SECTOR WRITE

£5004D
070007
DFO00?

;

ERROR 25

C51_IN ERROR
'AFTER MULTI-SECTOR WRITE

EM5023

£S004R
670004
DFOO04

.
EHO26:

;

041232
037679
040326

000DC0
037674
040326

10:43

OFO021

1477

02-DEC-77

ERROR POINTER TABLE

040302

1466
1467
1468
469

1473
1474
1475

MACY1l 30(1046)

ERROR 26

EMS026
.WORD
670026
OF0026

ERROR 27

EMS027

. OTHER ERROR WHILE FORCING COE

DHOO0A
DTO026
DF0026

ERROR 30

EHO30:

.WORD
670026
DF0026

EMS030

ERROR 31

EHO31:

.WORD

EMS031

570026
DF0026

ERROR 32
EMS032
£50048
670010
OF0010

.NO COE ERROR

. UNEXPECTED CYL OVERFLOMW

. UNEXPECTED ERROR TESTING COE

.MR1 ERROR READING DATA SYNC

SEQ 0030

CZRGEBOD RKb11 DSKLS CTRL PRIS

CZRGEB.P11

1519

1520
1621
1822
1523

~ 02-DEC-77 10:21

001650
001662
001654
0016Se

Q44672
043015
037600
040202

001660
001662
001664
001666

044750
043034
037562
04D1SE

001670
001672
001674
001676

045015
043530
037662
040302

001700
001702
001704
001706

Q44750
043015
037600
040202

001710
001712
001714
001716

045056
Q41232
037716
040362

1850
1661

001720
001722

0O0O0OQO
000000

1553

001726

040402

1525

1526
1837
1528
1529

1831

1632
1833
1834
1535

1837

1638
1539
1540
154l

1543

1844
1545
1846
1547

1649
1852

1585

001724

001730

046132

1561

001740

045217

001750

045300

1862

1863
1864
1565

1867

1568

1569
1570
1571
1673

1574

001732
001734
001736

001742
001744
001746

;

001760

045357

FO3

PAGE 31

SEG 003!

:CS1 ERROR AFTER READING SYNC

ERROR 34

:MR1 IN ERROR READING DATA OR ECC

ERROR 35

.ECC ERROR READING DATA

;

ERROR 36

:CS1 ERROR AFTER READING DATA OR ECC

;

ERROR 37

:DATA COMPARE ERROR (1ST MESSAGE)

;

ERROR 40

:DATA COMPARE ERROR (2ND THRU 10TH ERR)

EMS032
ESO04A
070011
DFO011
EMS034
£50048
070010
DF0010
EMS035
ESO21R
00021
DFO021
EMS03Y
ESO04A
0T0011
DFO011

EMS037
DHOOOA
070037
DF0037
0
0

DTO040

DFO040

ERROR 41

EMS04 1

:ECC REGISTER INCORRECT RFTER ECC READ

ERROR 42

:ERROP IN ECC PAT CALCULATION AFTER ECC ERROR

DHOOOR
DTO041
DF 0041

041232
037662
040426

041232
037746
040446

10:43

ERROR 33

041232
037730
040406

001752
001754
001756

02-DEC-77

ERROR POINTER TABLE

Q37722

1556

1857
1868
1559

MACYLl 30(1046)

EMSQO42

DHOOOA
DT0021
DF 0042

ERROR 43

EMS043

DHOOOR
DT0043
DFO043
;

ERRCR 44

EMSO4Y

;ERROR IN ECC POSITION COUNTING AFTER ECC ERROR

:ERROR AFTER PROCESSING DATA CHECK ERR

CZRGEBO RKG11 DSKLS CTRL PRTS
02-DEC-77 10:21

CZReEB.P11
1575
1576
1577
1579

1580

1581
1582
1583

001762
001764
001766

043015
037514
040032

001770

045357

MACY1l 30(1046)
02-DEC-77 10:43
ERROR POINTER TABLE

GO3

PAGE 32

SEQ 0032

ESOQ4A
070004
DFO004
ERROR 45

EMSOHY

:ERROR AFTER PROCESSING DATA CHECK ERR

001772
001774
001776

043111
037760
0NO4EE

£SOQME
070045
DFOO4S

1586

002000

Q42751

EMS0046

: TRANSFER LENGTH ERROR PARTIAL SEC READ

1591

002010

Q45521

ERROR_47

:BSE DID NOT PREVENT DA OR DC INCREMENT

1585

1587
1588
1583

15892

1593
1599
1535
1897

1598
1599
1600
1601

1603

1604

1605
1606
1607

1609

1610

1611
1612
1613
1615

1616
1617
1618
1613
1621

1622
1623
1624
1625
1627

1628
1629
1630

002002
002004
002006

041232
037770
040512

002012
002014
002016

043316
037624
040232

002020

045614

002030

045667

002040

Q45744

002022
002024
00202

002032
002034
002036

043015
037514
040532

043111
027760
(ON04eS

ERROR 46

DHOODA
DTI046
DFO0M6

EMSOY47

ESO11A
070014
DFOO1Y4
ERROR S0

EMSOSO0

ESD0YA
073004
OF00SO

ERROR 51

EMS0S ]

ESO049E
DTO0MS
DFOOYS

ERROR_52

ERROR 53

;MR1 ERROR IN WRT CHK OR ECC RERD AFTER WRT CHK

DHOOOA
DT0Q46
DF 0046

002050

Q46064

EMS053

002060

046153

002062
002064
002066

043530
037662
040302

002070

Q46064

002072
002074

043015
037600

:BSE FAILED TO SET WHEN EXPECTED

:DATA XFER ABORT TO SOON

041232
037770
D04OS12

043034
037562
040156

:BSE DID NOT CAUSE CERR

EMS052

002042
002044
002046

002052
002054
002056

ES00498
070010
DFOO010

ERROR S4

EMS05Y

£5021A
070021
OF0021

ERROR 55

EMS053

ESO09A
070011

.
N

:ECC ERROR IN WRITE CHECK OP

:CS1 ERROR AFTER WRT CHK OR ECC READ IN WRT CHK

CZRGEBO RK611 DSKLS CTRL PRTS
CZR&EB.P11
02-DEC-77 10:21

iggé

002076

040202

1634

002100

044750

002102

OQ4301S

002110

Q46064

1647
1648
1649

002120

002le2
002124
002126

Q46216

1651

002130

046275

002140

Q46275

1635

BBeiBe Bdeaid
i2§9
1638
1639

1640

1641
1642
1643
1645

1646

1662

1683
1664
1685
1657

1668

1659
1660
1061

002112
002114
0021ie

002132
002134
002136

002150

046352

1669
1670

002160

000000

1671
1672
1673
1674
1675
1676
1677
1678
179
1680
1681
1682
1EB3
1684
1685

002152
002154
002156

002162
002164
Q0clee
0021
002172
002174
002176
002200
Qoecdz
002204
002206
002210
002212
002214
O022le

PAGE 33

EMS034

.CS1 ERROR AFTER READ DATA OR ECC

;

ERROR 57

EMS053
ESO04A
DT0004
DFOO04

ERROR 60

;

;WCE FAILED TO SET IN 16 BIT MODE

ERROR b1

. TRANSFER LENGTH PROBLEM - RKBA

EMS06 |

ESOQNF
DT0046
DFO061
;

ERROR 62

EMS061

E5004G
BT0062
DFO062
;

ERROR 63

EMS063

T WC:
T.BA:
T.DA:
7.CS2:
T.05:
T.ER:
T.ASOF:
T.0CYL:
T.0B:
T.MRi:
T.MR2:
T.MR3:
T.ECPS:
T.ECPT:
T.SPAR:

. TRANSFER LENGTH PROBLEM - RKWC

.WCE FAILED TO SET IN 18 BIT MODE

£5004G
570063
DF0063

.SBITL
77CSl:

:CS1 ERROR AFTER WRITE CHECK OR ECC READ

EMS060
DHOOOR
070037
DFO0E0

043145
(40010
040B4E

000000
000000
000000
600000
000000
000000
000000
000000
Q000QD
000000
000000
000000
000000
000000
00000

ERROR S6

§ifi§qn

043127
037770
040576

1664

1666
1666
i6b7

;

041232
037716
QHOSSE

043145
(040000
040622

HOJ3

DFO01 1

043015
037514
040032

002142
002144
002146

1663

MACY1l 30(1046)
02-DEC-77
10:43
ERROR POINTER TRBLE

TEMPORARY STORAGE FOR RK611 CONTROLLER REGISTER
.WORD
O
:CONTROL AND STATUS REGISTER 1

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
WORD
.WORD

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

! WJORD COUNT REGISTER
'BUS RDDRESS REGISTER
'DESIRED TRACK SECTOR REGISTER
! CONTROL AND STATUS REGISTER 2
'DRIVE STATUS REGISTER
' ERROR_REGISTER
!ATTENTION SUMMARY AND OFFSET REGISTER
DESIRED CYL INDER REGISTER
'DATA BUFFER
!MRINT NANGE REGISTER 1
!MAINTENANCE REGISTER 2
'MAINTENANCE REGISTER 3
'ECC POSITION INEQRMATION
'ECC_PATTERN INFORMATION
: SPARE REGISTER

SEG 0033

CZRGEBO RK&11 DSKLS CTRL PRTS
CZREEB.PL11 ~ 02-DEC-77 10:21
1687

1689

002220

000000

103

MACY1l 30(1046) 02-DEC-77_ 10:43 PAGE 34
EXPECTED RK&11 CONTROLLER REGISTERS
.SBTTL

EXPECTED RK611 CONTROLLER REGISTERS

E.CS1:

.WORD

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

;CONTROL AND STATUS REGISTER 1

' WORD COUNT REGISTER
!BUS ADDRESS REGISTER
!DESIRED TRACK SECTOR REGISTER
!CONTROL AND STATUS REGISTER 2
!DRIVE STATUS REGISTER
!ERROR_REGISTER
!ATTENTION SUMMARY AND OFFSET REGISTER
oesxnso CYLINDER REGISTER
‘DATA_BUFFER
! MAINTENANCE REGISTER 1
' MAINTENANCE REGISTER 2
!MAINTENANGE REGISTER 3
'ECC POSITION INFORMATION
'ECC_PATTERN_INFORMATION
! SPARE REGISTER

1690
1691
1632
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1703

002222
002224
002226
002230
002232
002234
002236
002240
002242
002244
002246
002250
002252
002254
002256

000000
000000
00000C
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

E.WC:
E.BR:
E.DA:
E.CS2:
£.05:
E.ER:
E.ASOF:
E.DCYL:
E.DB:
E.MRl:
E.MR2:
E.MR3:
E.ECPS:
E.ECPT:
E.SPAR:

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

1706
1707
1708

002260
002262

000000
000000

.SBTTL
L7CS1:
L.WC:

"L” REGISTERS FOR COMMAND START

L.BA:
L.DA:
£.05:
L.0T:
L.CS2:
L.ASOF:
C.DCYL:
C.MRl:
C.MR2:
L.MR3:

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

.SBTTL

PROGRAM JEFINED VARIABLES

1709
1710
1711
1712
1713
1714
1715
1716
1717
1718

002264
002266
002266
002267
002270
002272
002274
002276
002300
002302

000000
000
000000
0OOOCO
000000
000GO0
000000
000O0O

1720
1721

1720

1784
1725

O
O
O
O
O
O
O
O
O

;CONTROL AND STATUS 1
WORD COUNT

'BUFER ADDRESS
:DESIRED
} SECTOR
TRACK
' CONTROL AND STATUS
!ATTENTION AND OFFSET
!DESIRED CYLINDER
IMAINT. REG 1
!MAINT. REG 2
!MAINT. REG 3

000210
000240

RKVEC:
RKPRI:

.WORD

10
PRS

:RKB11 VECTOR
RK611 PRICRIT

1727
1728
1729
1730

002312

000000

SRTFLG:

.WORD

!START FLAG
:7'0 = 200
i
1= 2y
-1 = 204

1732

002316

002310

000000

TRAPPC: .WORD

1731

002314

000000

ERRCNT:

1733
1734
1735
1736
1737
1738
1739
1740
i74l
1742

002320
002322
002324
002326
002330
002332
002334
002336
002340
002342

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

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

000000

.WORD

O
O

002306

1726

002304

.WORD
.WORD

P1.BIT:

:pC FOR_MEMORY YCHFCK ENABLE TRAP

.WORD

ERROR COUNT FOR SWITCH 12 ABORT

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

O
O
O
O
O
O
O
O
O
O

' PRESENT BIT IN DATA SIMULATION
'PREVIOUS BIT IN DATA SIMULATION
'BIT BEFORE PREVIOUS BIT
'BIT POSITION
! JORD COUNT FOR NPR_TRANSFER
! MEMORY EMRBLE ON FIRST 24K
!BAD PARITY FLAG
'ECC XOR SWITCH
'ECC HIGH STORAGE
'ECC LOW STORAGE

.WORD

NEXT BIT IN DATA SIMULATION

SEQ 003%

CZRBEBO RKG11 DSKLS CTRL PRTS

CZR6EB.P11

1743

02-DEC-77

000000

ECCSRC:

002354

000000

HIBITS: .WORD

002346
002350
002352

1748

002356

000000
000000
000000
00000C

10:43

PROGRAM DEFINED VARIABLES

002344

1744
1745
1746
1747

0e2-DEC-77 10:21

MACY1l 30(1046)

.WORD

ECPATX: .WORD
ECPOSX: .WORD
BSEDES: .WORD

O
O
O

SAVSWR:

.WORD

JO3

PAGE 35
;ECC _SOURCE FLARG

:EXPECTED PATTERN ON ERROR
;EXPECTED POSITION ON ERROR
:BAD SECTOR DESIRED
{HI ORDER BITS FOR 18 BIT WORD XFER
; STORAGE FOR SWITCH REGISTER

SEQ 3035

CZRG6EBO RKBll DSKLS CTRL PRTS

CZREEB.P

02-DEC-77 10:21

MACYll 30(1046)

02-DEC-7?7

PROGRAM SETUP

{;ZS

.SBTTL

PROGRAM SETUP

MOV

1761

002360

012737

000001

002312

PARM:

1764

002370

012737

1777?77

002312

RESTRT: MOV

1767
1768
1769
1760

002400
002404
002406
002412

005037
000005
105037
012706

002312

i;ga

062426

000002

002430

004737

035602

1768

002434

012706

001100

17270

002442

022706

001140

1772
1773

002450

};gg

i;gg

176]
1762
1765

1766

1767

1769
1771

1774

1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785

1786

1787

1788
1789

002366

002376

002416
002422

002440

000402

0l2746
012746

005026

000340
002430

001374

012706

001100

002454

012737

033160

002462
002470
002476
002504
002512
002520
002526
002534
002542
002546
002552

002560

002566

002574

1792

002606

012737
018737
012737
012737
012737
012737
012737
013737
005037
005037
112737

012737

013746

000340
034060
000340
037420
000340
037264
000340
023142
0061234

START:
CLR
START1: RESET
CLRB
MOV

001103
001100

002446

1790

1791

000406

MOV
MOV

RTI
18:

"SBTTL

JSR

000020

MOV

000022
000030
000032
000634
000036
000024
000026
023134

002632

1799

002640

000403
012716

002642

012737

000176

001140

1804

002662

00S037

001256

MOV
B4E:

001140

001142

::LOOP BACK IF
N

iSETUP THE sracx POINTER

¥SSCOPE , 98 I0TVEC ;-IOT VECTOR FOR SCOPE ROUTINE

SESCAPE
81, SERMAX
LPERR

#0SWR,
S

1797

000174
000004

-6

MOV
CMP

012737
012637

:FIRST LOCATION TO BE CLEARRED

,,CLERR MEMORY LOCATION

JbERRVEC,-(SP)

176310

002650
002656

INIT KEYBOARD

(R6)+

MOV

177777

00e642

:LORD PSW

;iCLEAR THE
SALLOW ONE

ESCAPE ON ERROR ADDRESS
ERROR PER TEST

,,INITI ALIZE THE LOOP RADDRESS FOR SCOPE

iISETUP_THE ERROR LOOP ADORESS

,,s:ze
FORHflRDuhRE
SWITCH AREG:STER.
IF NCT FOUND OR IT IS
;EQUAL TO A "-1%
SETUP FOR
SOF TWARE_SWITCH REGISTER.

022777

1801
1802

PC, a8STKINT

;LOAD STACK TO LOCK OUT ALL INTERRUPTS
'LOAD START OF PROGRAM

u.,SLPnoR

MOV

001106

002622

1800

#PR7, -tSP)
£18,-(SP)

MOV

001110

1794

000002

SERFLG
#STACK , SP

#3490, 9st0TVEC+2 ;:(EVEL 7
8SERROR, 9¥EMTVEC' ; ;EMT vscron FOR ERROR ROUTINE
8340, 98EMTVEC+2 ;;LEVEL
7
8STRAP, 98 TRAPVEC' TRRP VECTOR FOR TRAP CALLS
8340, 94 TRAPVEC+2; { EvE
#SPIWADN, d#PWRVEC '’ ; Pousn FRAILURE VECTOR
#340, 98PWRVEC+2 ,,t
SENDCT SEOPCT
TUP END-OF -PROGRAM COUNTER
STIMES'
,,INITI 12E NUMBER OF ITERATIONS

002566

1793 002614 012737 177570 001142
002634

:CLEAR START FLAG
'RESET THE WHOLE SYSTEM
:CLEAR ERROR FLAG
,INITIRLIZE STACK POINTER

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR

MOV

1798

SRTFLG

MOV
#STACK sp
,,INITIQLIZE A FEW VECYORS

000004

00i012

:LORD START FLAG FOR RESTART

STAAT]

8SWR,RE ; ; DONE?

BNE

002634

002630

#-1,SRTFLG

START1

CMP

012737

1795
1796

:LOAD START FLAG FOR PARMETER START

nscn AG, Rb

CLR

CLR
MOVB

172570

SEQ 0036

#1,SRTFLG

MOV

002600

012737

PAGE 36

:SCLEAR THE COMMON TAGS (SCMTAG) ARERA

001115

000004

KO3

INITIALIZE' THE COMMON TA&S

001236
000001

002560

10:43

6S$:

66%:

;,ssr UP ERROR VECTOR

#-1,SUR

:TRY TO REFERENCE HARDWARE SWR

668’

6SS

RTI

#5658, (SP)

MOV

#SWREG, SWR

CLR

$PASS

MOV
MOV

P'SETUP FOR A HARDWARE SWICH REGISTER

sooxs# DISPLQY ,,nno A HARDWARE DISPLAY REGISTER

BNE

MOV

~;;SAVE ERROR VECTOR

$64% assknvsc

:BRANCH IF NO TIMEOUT TRAP OCCURRED
,,nno THE HARDWARE SWR IS NOT
= -1
'BRANCH IF NO TIMEOUT

*!SET UP FOR TRAP RETURN
,,POINT TO SOF TWARE SWR

#DISPREG, DISPLRAY
(SP)+,d8ERRVEC ;;RESTORE ERROR VECTOR
; ;CLERR PASS COUNT

C¢RBEBO RK611 DSKLS CTRL PRTS

CZRGEB.P11

02-DEC-77 10:21

1805
1806

002666
002674

132737
001403

000200

1809

002704

005037

002314

1811
1812

002710

00S227

177777

02-DEC-77

001271

BITB
BEQ

8APTSIZE, SENVM
67%

.,TEST USER SIZE UNDER npr
YES, USE NON-RPT SWITCH

CLR

ERRCNT

:CLEAR ERROR COUNT FOR SWITCH 12 ABORT

INITIALIZE THE COMMON TRGS

iggg ggsggs 012737 001272 001140 c7s
1810

1813
1814
1815

1816

1817

002714
002716
002724

002726

001056
022737

023276

104401

002774
000042

001452

1818
1819
1820
1821

002732
002736
002740
002746

00S737
001012
123727
001406

1823
1824

002756
002760

001005
104406

1826

002764

112737

1822

1825
1827

1828

1829
1830

1831

1ega

1833

1834

1835
1836

002750

002762

002772

003052
003052
003056

003068

003064

003072
003074

1837 00310

023727

000403

001002

104901

022737
001121
104401

003104

1840
1841
1842

00311e¢
003114
003120

104412
0l2637
001407

1844

003130

101361

1843

003106

003122

104402

104401

000176

000001

001134

177777

040672

003150

042716

1850

003160

104412

1851

1852

1863
1864

1855

1856
1857

1858
1889

1860

003154

040724

003162

012637

001202

003170

022737

001000

001202

003200

042737

017777

001320

003176

003206
0032i4

003220
003222

003226

001412
101760

053737
104401
005046
113716

006216

718:

001202
040762
001321

:BRANCH IF YES

CMP

SWR, #$SWREG

! ! SOF TWARE SWITCH REG SELECTED?

718

71s

68%

MOVB

_ASCIZ

INC

. $AUTOB

1s$
PROOI

'NO, CONTINUE SETU
*TYPE "RKb11 BUS RDDRESS ¢

MOV

anss,—(sp)

TYPE

, OPROO2

RDOCT
MOV
BEG

(SP)+,$TMPO
7%

BHI

MOV

BIC

#160000, (5P)

TYPE

MOV

ROGCT
MOV

BEG

CMP

10%:

$160000,$TMPO0

STMPO $BARSE
PROO3

tvscr1 -(SP)
, OPRO0O2

(SP)+,$TMPO

108

:CHECK IF PQRQHETER START

' :SAVE $BASE FOR TYPEOU
:GET VALUE

:CHECK IF (CR>

;CHECK IF IN I1/0 PAGE

:LOAD NEW BUS ADDRESS

‘TYPE "RKb11 VECTOR ADDRESS (

*TYPE OUT VECTOR ADDRESS
:GET VALUE
:CHECK IF <CR>

#1000, $TMPO

"CHECK IF LEGAL

817777 SVECT1

;LOAD NEW VECTOR ADDRESS

BIS
TYPE

$TMPO, $VECTI
opnobq

: TYPE "RK611 PRIORITY (

ASR

(SP)

:SHIFT S BITS RIGHT

CLR
MOVB

(SP
svsc71+x (SP)

) ="

*'80 TYPE--OCTAL RSCII(RLL DIGITS)

BLOS

BIC

CZRBEBO/<CRLF)>

TYPE Pnss TIME MESSAGE

S§:

78:

GET OVER THE ASCIZ

OPROO6

k1, SRTFLG

CMP

: sSET AUTO-MODE INDICATOR

TEST %F
PRSS 0

CMP

BNE
TYPE

! {BRANCH IF NO
*!GET SOFT-SWR SETTINGS

#-1

4S:

TYPE

!!ARE WE RUNNING UNDER APT?
: 'BRANCH IF YES

<CRLF>/RKb11 DISK(ESS DIAGNOSTIC: PART §

TYPE

001320

SENV, 81
708

BNE

160000

104401

003166

'BRANCH IF NO
ncr 119

BNE

TYPOC

001324

1848

70S:

001202

040732

688
$SENDRD, 9842

RANCH é §§
:"YYPE RS IZ
RING

BNE
GTSWR

040724

1847 003144 0137496 001320
1843

002312

001202

104401

S INO, Ose APT SWITCH REGISTER

ses

CMPB
BEQ

..59%:
t8s:

00i202

013737

003140

001140

160000

003132

1846

SEG 0037

.SBTTL GET
anut242
ron SOF TWARE saxrcn
REGIS
TST
. ARE
WE Runnxnc UNDER XXDP/ACT?

022737

1845

seo

TYPE

000001

041004

$3SWREG, SWR

TYPE PROGPAM
NAME

BNE
CMP

000042

001270

000001

MOV

PAGE 37

:TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
;FIRST TIME?

063745 001324

1838
1833

SBTTL

000427
005227

10:43

LO3

MACY1l 30(1046)

) ="

CZREEBO _RKB11 DSKLS

CZREEB.P11
1861
1862

02-DEC-77 10:21

003230
003232

1863

gggagu

1865
1866

003240
003242

1864

1867
1868

1869

1870

2 3

MACY1l 30(1046)

ASR
ASR

006216
006216

6 18
1

104402
104401

040724

001202

003256

022737

000007

001202

000004

001202

003264
003266

{g;g

3273

003274

(001430

103753
022737

101347

002;3;

ooiags

1378

003316

1830
1881
1882
1883

gg
003344
003352

iggg

006337

001202

6?37 7
737
042737
(13737

1
1
160000
001321

003360

042737

004737

032652

MO3

TYPOC
TYPE

, OPROO2

BEQ
CMP

PRGE 38

s;ngo

108

$ThPO
$TMPO

ASL

MOV

158
87, STMPO

ggt

g{g

15%:

(SP)+,$TMPO

10
#4. STMPO

Rl
ASL

8 1381
2304
002304
002306

(5P)

BLO
CMP

BHI

001320

(SP)
(SP)

(5P)

RDOCT
MOV

1878
883§86
836337
B3is0s
1877
003312
006337
001202
1879

10:43

ASR
ASR

104412
8125 7

003254

02-DEC-77

GET VALUE FOR SOFTWARE SWITCH REGISTER

003246
oggego

1871
1872

1873

CTIRL PRIS

$TMPO

o*sg og Evgcrx

g M
VECTI+1
vECT!, RKVEC
160000, RKVEC
§VECT1+] ,RKPRI

BIC
MOVB
JSR

PC,S$SIZE

;GET VALUE

;sCHECK FOR DEFAULT
:CHECK IF LEGAL

;SHIFT S BITS LEFT

;STORE NEW PRIORITY

;STORE RKB11 VECTOR
;STORE PRIORITY

:SIZE MEMORY

1886

003364

013702

001324

NEWPAS: MOV

$BASE , R2

:SET RK POINTER

1888

003374

004737

032516

JSR

PC T PARCHK

:CHECK OF MEMORY CHECK ENRBLE

003410

000002

1887

1889
1890
1891

003370
003400
003404

005037

012746
012746

001236
000000
003412

CLR

MOV
MOV
RTI

SESCAPE

#PRO, - (SP)
#1ST, -(sP)

:CLEAR ESCAPE

:LOCK oUT INTERRUPTS
v

SEG 00328

CZRBEBO RKBll DSKLS CTRL PRTS
02-DEC-77 10:21
CZReEB.P

NO3

PRAGE 39
_10:43
02-DEC-77
MRCY11 30(1046)
#¥MULTI-SECTOR WRITE OPERATIONS

.SBTTL

0000 WDDDODD 0D

1943

#¥MULTI-SECTOR WRITE OPERATIONS

LR LR TR DT

TR TR TR TR T

l_l"P ************

SCA 636 36 36 36 36 3 3 36 36 36 36 3 3 36 36 3 3 36 3 2 % X % %
; #;l!llll**il{llll!ill!Illl‘l!!lllll!l
i
1)
(PART
WRITE
MULTI-SECTOR
ST

CLERR THE RK611 CONTROLLER WITH A CONTROLLER CLERR
PUT THE CONTROLLER IN DIAGMNOSTIC MODE.
ISSUE A WRITE
DATAR OF 401 HORDS TO AN _RKO6 IN 26 SECTOR FORMAT

CYLINDERO, HERDO, SECTOR 0.
AND DRIVE CLEAR MESSAGES.

CLOCK THROUGH SEEK

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 HERDER IS SERRCHED FOR.
SgOVégEEs SECOND GOOD HERDER AND CHECK RECOGNITION

!*l**ll**illl}*iiilllll**l*l!llllll*lllilllll!l*l*!lll!!l*i*li*
SCOPE

003412
003414

0o00L4
012737

000012

001234

003422

gi27e2

10000C

000000

003430
003424

005037
004437

002352
023316

003440

032230

003454

004437
000009
000
000
047636
177377
0000e’

003456
003462

00443/
000001

032014

J5R

R4, BLDDRT

003464

004437

032274

JSR

R4, OPSTRT

003470

023334

JSR

R4, DISEEK

003502

004437
104004
104005
104006
104007

003504

o044 37

023316

003510
003514
003S16

004437
104010
104011

023740

003520
003524
003526
003530

004437
104012
104013
104014

024276

£ £ L£WWWWWLWLWILWWLWRNMNININI NI RN N Y e s pe b e 4o pe e
(@}
mwommvwmzumhommummmewo\nmummxum:sgmgggg
W (=] [¥¢) w ~N onNLw

Bt et

s Pt Pt P

Pt ot Pt Pt B

Bt ot B

Bt Bt

e Bt Bt § @ o

s Pt Pt P

s Pt B

Pt Pt Bt Pt P

Pt Pt Bt Pt Pt e

—

SEQ 0039

MoV

#10.,STIMES

; ;00 10.

ITERATIONS

MoV

#CCLR,RKCS1(R2)

;CLR CONTROLLER

JSR

R4,DSECTR

BSEDES

;CLEAR BAD SEC DESIRED

JSR

R4, LOADRK

;LORD “L” REGISTERS

CLR

o
.BYTE

.BYTE

OBUFF

O
O

CYLI
NDER O
,SEC OR O

; TRACK O

BUFFER RDDRESS OBUFF
WORD COUNT

401

-401

COMMQND HRDQTQ

NRDQTQ

:SIMULATE SECTOR PULSE TO SET
'ECCW IN RKMR1 FROM INIT POWER UP

; GO BUILD DATA

:PATTERN 1

;START THE OPERATION

;SIMULRTE IMPLIED SEEK

ERROR
ERROR
ERROR
ERROR

4
S
&
7

:CS1 MISCOMPARE
iMR
*
{MR2
iMR3
*

JSR

R4,DSECTR

; SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

10
11

:MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

JSR

RY, DHDCMP

; SIMULATE HERDER SERRCH

ERROR
ERROR
ERROR
ERROR
ERROR

12’
13
14

; SIMULATE HERDER PRERMBLE

:MR1 CONTENTS IN ERR
iCS1 IN ERROR AFTER SERRC
"RKDCYL OR RKDA IN ERROR AFTER SEARCH

CZRBEBO RKb611 DSKLS CTRL PRTS

CZlR6EB.P11
<

003532
003540
003S44

02-DEC-77 10:21
012737
004437
104018

043403
025204

MARCY1l

30(1046)

001510

NNNNOO
o

10:43

BOY

8EMS020, EMW

?g DWGPSN
16
17
20

003S54
003562
003566
003570
003572

012737
004437
104017
104021
104022

o43462
025604

003574
003600
003606
003614
003616

£12700
012762
0le7ee
00S300
001370

000034
000440
000040

003620

013703

002274
03244y

8EMS021,

001510

PRGE

MULTI-SECTOR WRITE (PART
MOV

104020

02-DEC-77

; SET MESSARGE FOR WRITE FAILURE

:SIMULATE GA® AND SYNC FOR WRITE
iMR1 IN ERROR IN RERD GAP
iCS1 IN ERROR AFTER READ
;MR1
;CS1 1

1%:

87!H RO

IN ERROR

IN WRITING SYNC

IN ERROR AFTER WRITING SYNC

T MESSRGE FOR WRITE FAILURE
MU AT
D ECC
N ERROR IN WRITING DATA OR ECC
1
N ERROR WHILE WRITING DATA
c
N ERROR AFTER WRITING DATA AND ECC
1

EMW

RY, DWRItE

17
el
22
000026
000026

SEQ@ 0040

$OMD! MCLK RKMR1
(R
8DMD, RKMR] (R2)

CLOCKS TO NEXT HDR COMPARE
; CLOCK LOOP

L.DCYL,R3

RY, FSBLVV
R3 E nRa

002246
002267

ox77fioo R3

177400
000005

5%:

003656

153703

002266

003662

032737

010000

002260

001000

63:

032444

sg RO

RO
1
L.DS,R3

#CFMT,L.CSI1
63
#8IT9,R.

F_,FSBLVV
R

002206

;GET DESIRED CYLINDER

: INVERT _WORD
:STORE EXPECTED MR2
{GET DESIRED TRRCK/SECTOR
iCLEAR UNUSED BITS
:SET_COUNT FOR SHIFTING
{SHIFT TRACK FOR HERDER ALIGNMENT
iDEC_COUNT
:LOOP UNTIL ZERO
: INSERT SECTOR NUMBER
TEST ézléa BIT MODE

SET FORMflT BIT FOR WORD TWO
; INVERT _WORD

ST?RE SXPECTED MR3
:GET MR3

:GET CSl

002160

,uET EXPECTED CSl1
;CHECK IF OK

002220

YE: - SKIP

CSl IN ERROR AT MULTI-SECTOR TIME
,,GO TC NEXT TEST

003746
003750
003752
003760
003762
003764

003766

002206

002246

CHECK IF MR2 OK
YES - SKIP

39%:

HRE IN ERROR AT MULTI-SECTOR TIE
;GO TO NEXT TEST

ooo421

ogee10

004000

023737
001402
104024
coOo413

004002

004437

023316

002250

; CHECK IF MR3 OK

c3:

:YES
- SKIP
iMR3 IN ERROR_AT MULTI-SECTOR TIME

;G0 TO NEXT TEST

4S:

R4, DSECTR

; SIMULATE 2ND SECTOR PULSE

CZRBEBO RKB1l

CZR6tEB. Pll

02-DEC-77 10:21

004006
004012
004014

004437
104010
104011

023740

004016
0g40ee
004024
004026

004437
104012
104013
104314

024276

MACY1l

co4

02-DEC-77
10:43
MULTI-SECTOR WRITE

3?{1046)

PAGE Y41
(PART 1)

SEQ 0041

JSR
ERROR

R4, DRSYNC
10

; SIMULATE PRERMBLE
HRI ERROR

JSR

RuY, DHOCMP

SIHULRTE HEQDER SERRCH

ERROR

ERROR
ERROR
ERROR

;CS1 ERROR

12
13
14

‘MRl ERRO
:CS1 _ERRO
: RKDCYL OR RKDR IN ERROR

§ 3 SOOI IEIE 000000000000 0 00 000

s pt P

— 0OWD N LW

et Pt e

00000000000

wi e

et eewe =

U MU= be bt

*!*#*****#**

acms - arw

*TEST 2

..¢ et

nJ NN PRV NPV
Y NY

§882

DSKLS CTRL PRTS

MULTI-SECTOR WRITE

0000 00

(PART 2)

DATA O §1 uobbg 5 AN RKO6 IN 26 gEéToa ?85
CYLINDER
HERD 0, SECTOR 23. CLOCK THROUGH setx
AND DRIVE CLEAR MESSAGES.

708 Ec€uBrDsTM

CYCL?OETRR
PROV
CON

SIMULATER SECTOR PULSE

Rk Sie T THE NEXT HEAGER RECOGN
T Lo

OF HERDER.

THE PRQP ERHSRDER IS SEARCHED FOR.
GOCD HEA
ND CHECK RECOGNITION

li!!ll;gs;zillliiilllill’l§l!l‘lllill§llI*l!llllfllllll!ll!l*lflll!l*

004030
004032

000004
012737

000Ci2

001234

MOV

#10.,STIMES

; ;00

004040

012762

100000

000000

MOV

#CCLR,RKCS1(R2)

;CLERR CONTROLLER

004046

005037

002352

CLR

BSEDES

; CLERR BRD SEC DESIRED

004052

004437
OOOOOg

032230

JSR

R4, LORDRK

;LOAD LTM REGISTERS

0
.BYTE
.BYTE

OBUFF

23
O

-401

10.

ITERATIONS

;CYLINDER O
SECTOR 23
TRACK O

BUFFER RADDRESS OBUFF
WORD COUNT -401

WRDATA

COMHQND WRODATRA

004066

0oooe3

004070
og4074

004437
000002

032014

JSR

R4, BLPDART

;GO _BUILD DATA

004076

004437

032274

JSR

R4, OPSTRT

; START THE OPERATION

004102

023334

JSR

R4, DISEEK

:SIMULARTE IMPLIED SEEK

004114

004437
104004
10400S
104006
104007

ERROR
ERROR
ERROR

5
b
7

M
i MR2
:MR3

oo4116

004437

023316

JSR

R4,DSECTR

; SIMULATE SECTOR PULSE

oovl12e
004126

004437
104019
104011

023740

JSR
ERROR
ERRCOR

R4, DRSYNC
10

,SINULRTE HEQDER PREQMBLE
;MR1 CONTENTS IN ERROR

00413C

ERROR

;PRTTERN 2

;CS1

MISCOMPARRE

*
*
*

;C51 CONTENTS IN ERROR

004437
10901

JSR
ERROR

024276

RROR
RROR

5863 884142 184813

206S
2066

001510

812737

588
5883

104020

12737
04437

Q43462
025604

001510

368330

000040

004226
004230

EMW

MOV
JSR

RY, DWRIYE

SR
Ho e F

558 6or
(&Rl 1N ERASR 58

:CS1 IN ERROR RFTER WRITING SYNC

13 MSO21

ERROR

é7
1

Mov
MOV

o?lq RO

EMiW

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

CRTR 08
WRI
Iy LU
LI ERROR WHILE

!CSI

IN ERROR AFTER WRITING DATA AND ECC

ISSUE CLQCKS TO NEXT HDR COMPRRE
; CLOCK
LOOP

$DOMD!MCLK , RKMR1 (R2)

ngno RKMR] (R2)

RY, FSBLVV
R3’ E nRe

u177400,93

006303
005300
001375
183703

og4274

032737
001402
052703

010000

o044 37
010337
0lea3?
16237

032444
002250
000034
000036

002206
0Cee2l0

004350

023737

002160

002220

004362

000427

004364
004372
004374
004376

023737
001402
104023
0oo4el

S%:

5§
L.DS,R3

002266
002280

001000

6%:

021ie0
0ceel

#CFMT,L.CSI
6%
#BIT9,R3
FSBLVV
sq

002206

00e224s

3%:

;GET DESIRED CYLINDER

i INVERT _WORD
:STOPE EXPECTED MR2
iGET DESIRED TRQCK/SECTOR
¥SE
U
:CLERR
FOR SHIFTING
iSET _COUNT
SHIFT TRRCK FOR HEADER AL IGNMENT
:DEC_COuN
:LooP UNTIL ZEFv
: INSERT SECTOR NUHBER
TSST éFIIB BIT MOOE

‘SET FORMAT BIT FOR WORD TWO
; INVERT _WORD

:STORE EXPECTED MR3
:GET MR2
iGET MR3

GET EX#ECTED Csl

iCHECK IF OK

—

384332 315537 30226

%S,
R3
RO

W
wnNA-

e S
o
o
e
O

= = — OO0 000000
N LWN—OO0ONONL
W

U
MRNo D oYY NN

,oucgs

L.DCYL,R3

00ca74
G32444
002246
002267
177400
00000S

004262
004264
004266
004270

2100

1%:

6C SERSQDSFI§R¢ESORAFTER SERRCH

HRl CONTENTS IN _ERROF

004232
004236
oo424e
004246

3388

000026
0000¢ck

ERROR

207

; SIMULATE HERDER SEARCH

12
13

13 MS020,
RY
is

ERR
R

SEQ 0042

RY , DHDCMP

%ROR
MOV

2071
2072
2073
2074
207%

DO4

10:43
PAGE 42
02-DEC-77
MULTI-SECTOR WRITE (PART 2)

[¥]

004132
004136

30(1046)
T2

MR2,E.MR2
—

c06e

MRCY11

DSKLS CTRL PRTS
02-DEC-77 10:21

-~
W

CZRGEBO RKb61!
CZR&EB. Pll

:YES
- SKIP
:CS1 IN ERROR_AT MULTI-SECTOR TIME

:;G0 TO NEXT TEST
;CHECK IF MR2 OK

YES - SKIP

:MR2 IN ERRQR AT MULTI-SECTOR TIME

:;GO TO NEXT TEST

004400

023737

002210

DO4414

004437

023316

oN4420

004437

023740

004430

004437

024276

oo4406
004410
004412
004424
oo44ce
oo4434
004436
004440

001402
104024
000413

104310
104011
104012
104013
104014

NN
00
oo

EOY

MACY1l 30(1046)
02-DEC-77
10:43_
PAGE 43
T2
MULTI-SECTOR WRITE (PART 2)

002250

CMP

:YES- SKIP
'MR3 IN ERROR_AT MULTI-SECTOR TIME
:;G0 TO NEXT TEST

JSR

R4,DSECTR

; SIMULATE 2ND SECTOR PULSE

JSR

R4, DRSYNC

i0
11

SIMULQTE PRERMBLE

:MR1 ERROR
iCS1 ERROR

JSR

RY, DHOCMP

; SIMULATE HEADER SERRCH

MID-TRANSFER SEEK (PART 1)

CLEAR THE RKG11 CONTROLLER WITH A CONTROLLER CLEQR
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A unxre

CYLINDER O

Ly
tx
x

e Pt

iMR1 ERROR
;CS1 ERROR
{RKDCYL OR RKDA IN ERROR

¥
S
lx

ie
13
14

1222222222221 22222323222222223222222232322222222X22222222
2]

iTEST 3

DRTA OF 401

uoaos 10 nn Rxos IN 26 SECTOR FORMAT

C ocx THROUGH SEEK

AND onxvs CLEnR ssnces IMULATE

A SECTOR PULSE

AND
A GOOD HERDER.
CLOCK THROUGH Y00 WORDS AND THE
TWO WORD ECC.
MAKE SURE THE CONTROLLER ISSUES
AN IMPLIED SEEK TO THE RIGHT HERD AND CYL INDER.

MAKE SURE THE NEXT HEADER RECOGNITION PROCEEDS PROPERLY.

. < JE3 33 3 3 36 3 3 36 3 3 3 3 36 3 3 36 3 3 36 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 36 3 3 3 % I I 3 3 3 3 3 3 3 3 3 3 # %X X ®X R

004442

DOO0O4

0i2737

000012

001234

004452

012762

100000

000000

004460

005037

004464

004437

004444

; CHECK IF MR3 OK

43
&4
TST3

ERROR
ERROR
ERROR
X

T.MR3,E.MR3

SEQ 0043

BEG
ERROR
BR
ERROR
ERROR

n
e Pt Bt et
s
e
s
e
s
e
bt Bt Bt st P

MU MM RN

s B
P

e Bt 0t £

Bt Bt Pt

UMMM VNNV

@2%:

ol ¥

s b o

N PN PU Y ML RU RSNV NY AL ML INL AU PV NV NN YTV IRV PV U N LTV

R MU PV

PNV RY VLIV

0 RK&11 DSKLS CTRL PRTS
P11
02-DEC-77 10:21

+473:

SCOPE
MoV

#10.,STIMES

;;00 10.

MOV

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

002352

CLR

BSEDES

; CLERR BAD SEC DESIRED

032230

JSR

R4, LORDRK

:LORD "L*” REGISTERS

004470
004472
004473
004474

000000
025
0G0
047636

004S00

000023

004502

004437

032014

JSR

R4, BLDDAT

;GO BUILD DATA

00451n‘.uufi337
-afihsxu 004437

032274
023334

JSR
JSR

R4, OPSTRT
R4, DISEEK

:START THE OPERATION
s SIMULATE IHPLIED SEEK

004476

004506

004520
0045822
004524
004826

177377

25
O

-401

ERROR
ERROR
ERROR
ERRGR

:CYLINDER O
1SECTOR 25
STRACK O
*BUFFER noonsss OBUFF

,WORD COUNT

WRDATA

000007 - ~

104004
104605
104006
104007

0
.BYTE
‘BYTE
OBUFF

ITERATIONS

-401

: COMMAND WRDATA

4
S
&
7

'PATTERN 3

;€51 MISCOMPARE
‘MR1
:MR2
*MR3
.

CZRBEBO RKB11 DSKLS CTRL PRTIS
0e-DEC-77 10:2!
CZR6EB.P11

2172

2173
2174
217s
2176
2177
2178
2179
2180

004530

004437

023316

004S34

004437

023740

004S44

004437

024276

004554

104014

004S40
0o4s4e
004Ss0
ag4sse

104010
104011

104012
104013

2183

004556

012737

2186
2187
Sigg

004572
004574
004S76

104016
104017
104020

2190

004600

012737

2192
2193
Sigg

0046le
004el4
004616

104017
104021
104022

2196

004620

012700

000324

2198

004632

012762

000040

013703

002274

2184
2185

2191

004564
004570

004606

004437
104015

004437

043403

025204

043462

025604

FOY

004640
0oo4e42

2202

004e44

2203
2204
c20S

005300
001370

004650
(0O046S4
004660

004437
010337
113703

004670

012700

2208
2209
2210
SSié

004674
004676
004700
004702

2213
2214

004706
004714

2216

004722

221S

2el7

2218
2219
2220
2221l
eea2
eeed
2eed
2225
2eeb

004716
004722

004726
004732
004740
004746
004754
004762
004770
004772
004774

006303
00S300
001375
153703

(032737
001402

RY, DRSYNC

10
1l

iMR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

JSR

RY, CHOCMP

SIHULRTE HERDER SERRCH

ERROR

MOV

OEHSOEO EMW

ERROR
ERROR
ERROR

1b
17
20

MOV

00002k

001000

004437

032444

002250
000034
000036
000000
002260
002160

002260
63:

002206
002210
002160
002220
002220

GPSN

;SET MESSAGE FOR WRITE FAILURE

; SIMULRTE GAP AND SYNC FOR WRITE
;MR1 IN ERROR IN READ GRP

+MR1 IN ERROR IN WRITING DATA OR ECC
;ECC IN ERROR WHILE WRITING DATA
;CS1 IN ERROR RFTER WRITING DRTA AND ECC

MOV

#0MD! NCLK RKMR1 (R2)

DEC
BNE

RO
i3

MOV

L.DCYL,R3

;GET DESIRED CYLINDER

BIC

.177400 R3

,CLEQR UNUSED BITS

MOV

RH DWRITE

853, ¥4

#DMD, RKMR] (R2)

RH FsBLvV
R3,E. MRE
L. DT
#5,R

; SIMULARTE

WRITE DATA _AND ECC

; ISSUE CLOCKS TO NEXT HDR COMPARE

:CLOCK LOOP

; INVERT_WORD
: STORE EXPECTED
M
:GET DESIRED TRQCK/SECTOR

; SET_COUNT FOR SHIFTING

ASL
DEC
BNE
BISB

R3’
RO
ss
L.DS,R3

'SHIFT TRACK FOR HERDER AL IGNMENT
:DEC_COUNT
:LOOP UNTIL ZERO
PINSERT SECTOR NUMBER

BIT
BEQ

#CFMT,L.CS!

TEST IF 18 BIT MODE
NO_- SKIP

RY,FSBLYV

; INVERT _LORD

3IS
JSR

MoV
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
BR

#B8IT9,R3

;CS1 IN ERROR RFTER RERD GAP
;MR1 IN ERROR IN WRITING SYNC
;CS1 IN ERROR AFTER WRITING SYNC

17
21
22

MOV

010000

;RKDCYL OR RKDA IN ERROR RFTER SERRCM

ERROR
ERROR
ERROR

00000S

002266

:MR1 CONTENTS IN_ERROR
:CS1 IN ERROR AFTER_SEARCH

;SET MESSAGE FOR WRITE FAILURE

JSR
MOV
MovB
G$:

12
13

; SIMULATE HERDER PRERHBLE

$EMS021 , EMW

JSR

032444
002246
002267

052703

010337
016237
016237
0l6237
U13737
023737
001402
104025
000427

JSR

JSR
ERROR

001510

2e0b 004664 042703 177400
2207

RY4,DSECTR

ERROR
ERROR
001510

; SIMULATE SECTOR PULSE

JSR

ERROR
ERROR

2197 004624 O0l2e762 000440 000026 1%:

2199
SSS?

SEG 0044

MACY11l 30(1046) 02-DEC-77 10:43 PRGE 44
MID-TRANSFER SEEK (PART 1)
T3

SET FORMAT BIT FOR WORD TWO

R3,E.MR3
STORE EXPECTED MR3
RKMR2(R2),T.MR2:GET MR2
RKMR3(R2),T.MR3:GET MR3
RKCS1(R2),T.CS1 ;GET CSI
L.CS1,E.C51
:GET EXPECTED Ccs!
T.CS1,E.CS!
:CHECK IF OK
33
:YES- SKIP
@25
:CS1 IN ERROR AT MULTI-SECTOR TIME
TSTH
;360 TO NEXT TEST

CZRGEBO RKE1!
.P11

02-0eC-7

10:21

MRCY11l

002206

00ce4s

3%:

023737
001402
104024
poo413

002210

002250

2%:

005026

004437

023316

005032
005036
00s040

004437
104010
104011

023740

005042
DOS046
005050
00s05e

004437
104012
104013
104014

024276

004776
005004
005006
00S010

023737
e

00s01e
005020
0050e2
00S0eM

GO4

SEQ Q045

MIO-TRANSFER GEEK (PART 1)
02-DEC-77

30(1046)
T3

CMP

oooM21l

ug:

10:43

PAGE 4S

T.MR2,E.MR2

;CHECK IF MR2 OK

BEQ
ERROR
BR

2%
23
TSTY

'YES- SKIP
:MR2 IN ERROR AT MULTI-SECTOR TIME
:;G0 TO NEXT TEST

CMP
BEQ

ERROR

T.MR3,E.MR3
4g

24
TSTH

;CHECK IF MR3 OK
- SKIP
YES

JSR

R4, DSECTR

: SIMULATE 2ND SECTOR PULSE

JSR

R4, DRSYNC

10
11

:MR1 ERROR
:CS1 ERROR

JSR
ERROR

R4, DHDCMP
12

: SIMULATE HERDER SEARCH
:MR1 ERROR

ERROR
ERROR

13
14

naa IN ERROR AT MULTI-SECTOR TIME
::GO TO NEXT TEST
: SIMULATE PREAMBLE

:CS1 ERROR
IRKDCYL OR RXDA IN ERROR

o 3636 36 36 96 36 36 3 36 36 36 36 36 36 3 36 36 36 3 3 36 3 3 3 6 3 3% 36 36 36 36 36 36 3 3 36 3 3 36 3 3% 36 3¢ 3 3¢ 3 3 3 9 3 3 3 3 2 3 2

00s0sY
005056

000004
012737

ooool2

001234

00S064

012762

100000

000000

00sgo7e

00s037

002352

00507
00S10
005104
00S10S
00S106
00S110

084437
000000

032230

l_{:' ********#**

G R WL W @t B

irssr 4

twe B

CZR6E

DSKLS CTRL PRTS

MID-TRANSFER SEEK (PART 2)

CLEAQR THE RKH11 CONTROLLER WITH R CONTROLLER CLEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R _WRITE

DATA OF wox uo os TO nN RK06 IN 26 sscron FORMAT
%
?
CYLINDER O

E R SECTOR PULSE
nno ovas CLERRsncss s HULR
H 400 WORDS AND THE
A GOOD Hsnosn CLOC

TOESIGH$ SNTnngEgYE?NBEE
BCEEEK
nfioxfigfl?E
MAKE SURE THE NEXT HERDER RECOGNITION PROCEEDS PROPERLY.

l*llll!il!lllllllllilll*§l!lllllilllll*ll*ll!l!*!ll!lll!ii!i!i*
SCOPE

#10.,STIMES

; ;00 10.

MOV

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

CLR

BSEDES

; CLERR BRD SEC DESIRED

JSR

R4, LOARDRK

.BYTE

&5
@

¢]
.BYTE

005114
005120

004437
000004

032014

00s1ee

004437

00slz2e

004437

LORD “L"TM REGISTERS

CYLI NDER O
;SECTOR 25

:TRACK 2

BUFFER RADDRESS OBUFF
WORD COUNT -401

401

COHMQND WRDATR

NRDRTQ

000023

ITERATIONS

MoV

OBUFF

oos1ile

WX X2

;GO _BUILD DRTA

JSR

R4,BLDDAT

032274

JSR

R4, OPSTRT

:START THE OPERATION

Ue3334

JSR

RY,DISEEK

:SIMULARTE IMPLIED SEEK

;PATTERN 4

CZRBEBO RKb611 DSKLS CTRL PRTS
CZREEB.P11
02-DEC-77 10:21

132

HO4

MACY11l 30(1046)
02-DEC-77
10:43 PAGE 46
T4
MID-TRANSFER SEEK (PART 2)

1Q4Q0Q4

RROR

§582 882135 1BuBR:
2286

Sggg

00S136

00S140

104006

104007

RROR

ERROR

SEC 3046

c51 MISCOMPARE

MRE

'MR3

Sggg

00Si42

004437

023316

JSR

RY4,DSECTR

; SIMULATE SECTOR PULSE

2231

005146

004437

023740

JSR

RY, DRSYNC

: SIMULATE HERDER PREAMBLE

2233 BBetes
ec35
1B4BiT
2295
S1S6
OQH437
104012
8162
g
5599
§
05164
104013

gggg

005166

104014

2300

005170

012737

sggg

005210

104020

2301
2302
2333
2304

005176
008202
005204
005206

2309
2310
S%}é

005224
005326
005230

104017
104021
104022

2313

012700

005244

Q1276

005236

2316
Sg{g

005252
005254

2315

004437

005232

2314

043403

043462

012737

005220

ERROR

025204

005212

2308

024276

004437
104015
104016
104017

2307

012762

005300
001370

RROR
RROR
R
ggnon

001510

MOV

JSR
ERROR
ERROR
ERROR

ERROR

025604

000324

000440

000040

001510

000026
000026

MOV

231

3
37
002274
2353
§§§§6§
§64q§;
gggwqq
2321
6
10337
002246
2322 005272 113703 002267

2323
2324

005276
005302

042703
012700

2326

005310

005300

2325

005306

006303

177400
000005

2327
sgsg

005312
005314

001375
153703

002266

2330

005320

032737

010000

2331
2332

005326
005330

001402
052703

2334

005334

004437

2333

2335
2336
2337
2338

2339

005334

005340
005344
005352
005360

005366

010337
016237
016237

016237

013737

c§:

002260

001000
002250
000034
000036

002260

000000

;CS1_IN ERROR AFTER SEARC

:RKDCYL OR RKDAR IN ERROR RFTER SEARCH

8EMS020, EMW

;SET MESSAGE FOR WRITE FAILURE

'cS1 IN

RY, DWGPSN
15’
15
17

finu&nrs
cnp AND EYNC
FOR WRITE
RROR IN RER
ics1 IN ERROR AFTER REno GAP
‘MR1 IN ERROR IN_WRITING SYNC
ERROR AFTER WRITING SYNC

:SET MESSAGE FOR WRITE FAILURE

ERROR
ERROR
ERROR

17
21
22

'MR1 IN ERROR IN WRITING DATA OR ECC
'ECC IN ERROR WHILE WRITING DATA
:CS1 IN ERROR AFTER WRITING DATA AND ECC

MOV

$53._ %4, RO

MOV

#DMD, RKNR1 (R2)

MOV

RY, DWRIYE

:SIMULATE WRITE DATA_AND ECC

#DMD' MELK , RKMR1 (R2)

:CLOCK LOOP

RO
13

MOV

JSR
MOV
MOVB

DCYL,R3
kq,gsetvv
E-MR2
LbT R3

ASL

BNE
BISB

13
L.DS,R3

LOOP un 1 ZERO
:INSERT SECTOR NUMBER

BIC
MOV
DEC

#177400,R3
25, RO

ET_DESIRER
CYLINDER
?
8?
EB
srons EXPECTED MR2
:GET DESIREE
TRQCK/SECTOR

CLERR UNUSED
g gogur on
HIF

RRCK FOR

HIFTI NG

HERDER AL IGNMENT

BEQ
BIS

63
#BI1T9,R3

#CFMT,L.CSI

;TEST IF 18 BIT MODE

JSR

RY, FSBLVV

; INVERT WORD

RKCS1(R2).T.CS1

;GET CSI

INO- SKIP
:SET FORMAT BIT FOR WORD TWO

002206
002210

MOV
MOV
MOV

R3,E.MR3
:STORE EXPECTED MR3
RKMR2(R2),T.MR2 :GET MR2
RKMR3(R2),T.MR3 :GET MR3

002220

MOV

L.CS81,E.C81

002160

MOV

: ISSUE CLOCKS TO NEXT HDR COMPARE

DEC
BNE

BIT
6S:

032444

:CS1 GONTENTZ
CONTENT
1R8]
N ERROR
;
SIMULATE HEAD
EON$EN§ §§ EE 3 H
,n§1

8EMS021 , EMW

JSR

1S:

11
RY, DHDCMP
12

:GET EXPECTED CS!

CZRBEBO RKbI!

CZR6EB.P1I

DSKLS CTRL PRTS

0e-DEC-77 10:21

MACY11

cMP

2341
2342
gg:a

00s402
J0SH404
00S406

023737

002160

CQ02220

2345

00S410

023737

0G2206

002246

3%:

00S424

023737

002210

002250

2%:

2346
2347
Sg:g
2350

00S416
00S4e0
00S4ee

001402
104025
000427

001402
104023
000421

2351
2352
ggga

00S432
00S434
005436

001402
104024
000413

Sggg

0O0S440

004437

023316

2357
2358
sggg

(00S444
005450
00S4Se

004437
104010
104011

2361
2362

0058484
00S4860

004437
104012

2363
Sggg

005462
00S464

10:43

104

PAGE 47

SEQ 0047

MID-TRANSFER SEEK (PART 2)

005374

2340

02-DEC-77

30(1046)

BEQ
ERROR
BR
CMP

T.CS1,E.CS!

:CHECK IF OK

39
4}
TS71S

YES - SKIP
051 IN ERRCR AT MULTI-SECTOR TIME
,,GO TO NEXT TEST

T.MR2,E.MR2

;CHECK IF MR2 OK

BEQ
ERROR
BR

2%
ed
1875

YES - SKIP
MRE IN ERROR AT MULTI-SECTOR TIME
,,GO TO NEXT TEST

CcMP

T.MR3,E.MR3

;CHECK IF MR3 OK

BEQ
ERROR
BR

Y4
1575

YES SKIP
MRS IN ERROR AT MULTI-SECTOR TIME
,.GO TO NEXT TEST

JSR

R4,DSECTR

;SIMULATE 2ND SECTOR PULSE

023740

JSR
ERROR
ERROR

R4, DRSYNC
10
11

SIMULRTE PREAMBLE
MR1 ERROR
CSl ERROR

024276

JSR
ERROR

R4, DHDCMP
12

SIMULRTE HERDER SERRCH
MRi ERROR

ug:

104013
104014

ERROR
ERROR

2366

13
14

CSI ERROR
RKDCYL OR RKDR IN ERROR

o 363 336 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 38 36 36 36 3 36 3 3 3 36 36 3 36 3 3 6 36 36 36 3 34 06 06 3 2 X H X R F

2367

gggg

iTE:T

2370
2371
2372

i
%
I

2373

MID-TRANSFER SEEK AND 24 SECTOR FORMAT

CLEAR RKb1l1 CONTROLLER WITH A CONTROLLER CLEQR
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
R NRITE DATA
DATA OF 401 WOR,DS TO AN RKO6 IN 24 SECTOR FORMA

2374

CYLINDER
O, HEARD0, SECTOR 23. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. SIMULATEA SECTOR PULSE

Sg;g

OCCURS.

R T T T L
SCOPE

2375
2376
2377

;%
% ]
R 3

2380
2381

00S466

000004

012737

000012

001234

gggg

005476

012762

100000

000000

005037

002352

sggg

2386

005470
00SS04

2387

005510

012700

Sggg

00ss16

001376

2388

2391

2392
2393
2394

2395

005514

008520

005524
005526

(005527

008530

005360

004437

000000
023
000

047636

002000
032230

&T5:

20%:

AND R GOOD HEADER.
CLOCK THROUGH 400 18 BIT WORCS
AND THE 32 BIT ECC.
CHECK THAT IMPLIED SEEK IS
ISSUE TO NEXT TRACK.
CHECK FOR PROPER HERDER RECOGNITION

I R

T T TI I I

T2 IS 222222

MOV

#10.,STIMES

; ;00 10.

MOV

#CCLR,RKCS1(R2)

;CLEAR CONTROULLER

CLR

BSEDES

DEC

JSR

MOV
BNE

0
.BYTE
.BYTE

OBUFF

ITERARTIONS

;CLEAR BRAD SEC DESIRED

#2000,R0

SETA COUNT TO DELAY FOR CLERR

20%

;LOOP UNTIL ZERO

R4, LORDRK

sLOAD LTM REGISTERS

CYLINDER o
SECTOR 23
TRACK 0

BUFFER ADDRESS OBUFF

s Pt Pt
e
Pt Pt
=t Pt P

DONON LWN—

RN
Lrr£ccrck

MARCY11l 30(1046)
18

02-DEC-77
10:43
PAGE
MID-TRANSFER SEEK AND eM ssvron FORMAT
-401

;WORD COUNT -401

005532
00SS34

177377
010023

005536
00ss4e

oo4437

032014

JSR

RY, BLDDAT

:GO BUILD DATA

00SS544

004437

032274

JSR

R4, CPSTRT

:START THE OPERATION

005550
005554
005556
00ssS60
005562

004437
104004
104005
104006
104007

023334

JSR

R4, DISEEK

:SIMULATE IMPLIED SEEK

00sSse4

004437

023316

JSR

R4,DSECTR

s SIMULARTE SECTOR PULSE

005570
005574
005576

004437
104010
104011

023740

JSR

RY, DRSYNC

005600
005604
005606
005610

004437
104012
104013
104014

024276

JSR

R4, DHDCMF

012737
0Q4437

043403
025204

000007

WRDATA! CFMT

104017
104020

00S634

012737
004437
104017
104021
104022

o434e2
025604

012700

000324
000440
000040

00S6S4
005660
005676

00S300
001370

ERROR
ERROR

ERROR
ERROR
ERROR
MOV

0ois10

JSR
ERROR

001375
153703

002266

00S742

032737

010000

MOV

001510

00002k
000026

JSR

1%:

12’
13
14

$EMS020, EMW

RY, DWGPSN
1S
16
17
20

#EMS021, EMUW

RY,DWRItE

MOV

453, ¥4

MOV

; COMMAND WRDATA!CFMT

:PATTERN 7

:CS1 MISCQMPARE
TMR1
‘MR2
:MR3

: SIMULATE HEADER PREAMBLE

‘MR1 CONTENTS IN ERROR
:cS1 CONTENTS IN ERROR

:SIMULATE HEADER SEARCH

‘MR1 CONTENTS IN ERROR
:CS1 IN ERROR AFTER SEARCH
"RKDCYL OR RKDR IN ERROR AFTER SEARCH
:SET MESSAGE FOR WRITE FAILURE

:SIMULATE GAP AND SYNC FOR WRITE
‘MR1 IN ERROR IN_REARD GAP
:cS1 IN ERROR AFTER READ GAP
'MR1 IN ERROR IN WRITING SYNC
:cS1 IN ERROR RFTER WRITING SYNC
sSET MESSAGE FOR WRITE FAILURE

"SIMULATE WRITE DATA AND ECC

'MR1 IN ERROR IN WRITING DATA OR ECC
'ECC IN ERROR WHILE WRITING DATA
!CSI IN ERROR AFTER WRITING DATA AND ECC

RKMR1 (R2)
#DMD*, nCLK
RKMR] (R2)

#DMD

ISSUE CLOCKS TO NEXT HDR COMPARE
LOOP
:C.OCK

RO
18

L.DCYL,R3

:GET DESIRED CYLINDER

JSR
MOV
MOVB

RY, FSBLVV
R3E- nRa
L.OT

: INVERT WORD
'STORE EXPECTED MR2
‘GET DESIRED TRACK/SECTOR

MOV
ASL
DEC
BNE
gISB

#5,R
R3’
RO
c3
L.DS,R3

:SET COUNT FOR SHIFTING
SSHIFT TRQCK FOR HERDER ALIGNMENT
:DEC COUN
:LOOP unrr ZERO
'INSERT SECTOR NUMBER

BIT

#CFMT,L.CSI

:TEST IF 18 BIT MODE

8IC

002280

10
11

17
21
22

DEC
BNE

5%:

Y4
S
&
7

ERROR
ERROR
ERROR

MOV

002274
03244y
002246
002267
177400
00000s

005700
005704
005710
005714
005720
005724
005730
005732
005734
005736

013703
004437
010337
113703
042703
012700
006303
00s300

ERROR
ERROR
ERROR
ERROR

ERROR
ERROR
ERROR

005630
005632

00se52

SEQ 0048

017?400 R3

:CLEAR UNUSED BITS

CZRGEBO RKb1l DSKLS CTRL PRTS
02-DEC-77 10:21

CZRGEB. P11

JO4

CZRGEBO RKB11 DSKLS CTRL PRTS

CZREEB.P11

02-DEC-77 10:21

2452
2453

005750
005752

001402
052703

001000

2455

005756

004437

032444

2468

005774

016237

000036

2454

2456
2457
2459

005756

005762
005766
006002

2460

006010

010337
016237
016237

002250
000034
000000

MACY1l 30(1046)

BS:

002206
002210
002160
002220
002220

006016
006024
006026
006030

023737 002160
001402
104025.
000427

2466

006032

023737

002206

002246

3%:

2471
2472

006046
006054

023737
001402

002210

002250

2%:

s:;g

006062

004437

023316

2478

006066

004437

023740

2482

006076

004437

024276

2467
2468
5393

2473
s:;g

2479
g:g?
2483
2484
5382

006040
006042
006044

006056
006060

006072
006074
006102
006104
006106

001402
104023
000421

104010
104011

104012
104013
104014

SEG 0049

; INVERT
WORD

MOV

RKMR3(R2)
. T-MR3 :GET MR3

CMP

R3 E.MR3
;STORE_EXPECTED MR3
RKMR2(R2),T.MR2 GET MR2
RKCS1(R2).T.CSI :GET CS1

L.CS51,E.CS1

:GET EXPECTED CS1

T.C51,E.CS1
3%
25
TSTe

ICHECK IF OK
IYES - SKIP
:CS1 IN ERROR AT MULTI-SECTOR TIME
1 G0 TO NEXT TEST

BEQ
ERROR
BR

2%
23
TST6

T.MR2,E.MR2

;CHECK IF MR2 OK

CMP
BEQ

T.MR3,E.MR3
4$

;CHECK IF MR3 OK
YES
- SKIP

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

ERROR
BR

24
TST6

nna IN ERROR AT MULTI-SECTOR TIME
:;GO TO NEXT TEST

JSR

R4,DSECTR

:SIMULATE 2ND SECTOR PULSE

JSR

R4, DRSYNC

s SIMULATE PREAMBLE

JSR

R4, DHDCMP

10
11

12
13
14

'MR1 ERROR
:CS1 ERROR

: SIMULATE HEADER SEARCH

‘MR1 ERROR
:CS1 ERROR
:RKDCYL OR RKDA IN ERROR

; l**lll*!!l!lll!lllllIlll!!llllll!l!illlll*l!!!!i!lil*lll***l**i

irss

2480

;;

2491
2492

2493

‘x
1

AND A GOOD HEADER.
CLOCK THROUGH Y00 WORDS AND THE
TWO WORD ECC.
MAKE SURE CYLINDER OVERFLOW ERROR DOES

Sggg

S %

. 3%

gggé

006110

00eli2

00000Y4

012737

000012

2503

006120

005037

002352

2506

006132

004437

032230

006124

006136

012762

000632

100000

001234

000000

CLEAR THE RKb11 CONTROLLER WITH A CONTROLLER CLERR

PUT THE CONTRO!LER IN DIAGNOSTIC MODE.
ISSUE
A WRITE
DATA OF 400 WORDS TO AN RKO6 IN 26 SECTOR FORMAT

2495
2496

CYLINDER OVERFLOW (PART 1)

e
°

2494

2507

R4, FSBLVV

ERROR
ERROR
ERROR

5333

gggg

JSR

ERROR
ERROR

2487

2499
2500

sNO - SKIP
:SET FORMAT BIT FOR WORD TWO

CMP
BEQ
ERROR
BR

4$:

PAGE 49

X
#BIT9,R3

MOV

104024
000413

KO4Y

BEQ
BIS

MOV

002260

10:43

MID-TRANSFER SEEK AND 24 SECTOR FORMAT

MOV
MOV

013737

2461
2462
2463
gzgg

02-DEC-77

CYLINDER 632,

HEAD2, SECTOR 25.

CLOCK THROUGH SEEK

AND DRIVE CLtnR MESSAGES. SIMULATE A SECTOR PULSE
NOT SET.

: R Y 3222222222232 22:%222222:32X22222222:1222222222X222XTXX2TSS
LT
+&76:
SCOPE
MOV

#10.,8TIMES

;00 10.

CLR

BSEDES

: CLEAR BAD SEC DESIRED

JSR

R4, LOADRK

MOV
B32

ITERATIONS

#CCLR,RKCS1(R2) ;CLEAR CONTROLLER

sLORD "L” REGISTERS

;CYLINDER 632

‘

CZR6EBO RKE11 DSKLE CTRL PRTS
CZReEB.PL1
02-DEC-77 10:21

2508
2509

006140
006141

2511

006144

2510

MACY1l 30(1046)
02-DEC-77
10:43
T6
CYLINDER OVERFLOW

025
00e

.BYTE
.BYTE

PAGE SO
(PART 1)

@S
2

SEG 00S0

; SECTOR 25
; TRACK 2

00bl4e

047636

006146

000023

2514

006150

004437

032014

JSR

R4, BLDDAT

ggig

006156

004437

032274

JSR

R4, OPSTRT

; STRRT THE OPERATION

€519

006162

004437

023334

JSR

R4, DISEEK

; SIMULARTE IMPLIED SEEK

gggg

006176

004437

023316

2527

006202

004437

023740

2531

006ele

004437

024276

Sggg

00222

104014

006224

012737

006240
006e42
006244

104016
104017
104020

gg%%

sgig
2520
252l
eSee
Sgga

2528
Sgsg
2532
2533

2536

006154
006166
006170
006172
006174

006206
006210
006216
006220

177400

000001

104004
10400S
104006
104007

104010
104011

104012
104013

2537
2538

006232
006236

2543

006246

012737

c2s4S
2546
gg:g

006e60
00bebe
006264

104017
104021
104022

2539
2540
Sg:é

eS44

2549

2550

2551
2552
2553

006eSY

006266

006272
006300
006306

004437
104015

004437

012700

012762
012762
005300

sggg

006310

001370

2556

006312

004437

Sggg

02e3eY

001415

2560

006326

2562
2563

006336
006344

2557
eS6]

00631&
006334

OBUFF

LO4Y

032737

=400

043403

025204

iC51 MISCOMPARE
iMR1
iMR2
*
iMR3
*

JSR

R4, DSECTR

; SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

; SIMULATE HEADER PREAMBLE

JSR

R4, DHOCMP

; SIMULARTE HERDER SERRCH

ERROR

;7vNCYL OR RKDA IN ERROR AFTER SEARCH

$EMS020, EMW

;SET MESSNGE FOR WRITE FAILURE

ERROR
ERROR
MOV

JSR
ERROR

025604

000016

000440
000040

001510

000026
000026

iMR1 CONTENTS IN _ERROR
CSl IN ERROR AFTER SERRCH

#EMS021 ,EMW

;SET MESSAGE FOR WRITE FAILURE

ERROR
ERROR
ERROR

17
21
22

;MR1 IN ERROR IN WRITING DATR OR ECC
;ECC IN ERROR WHILE WRITING DATR
;CS1 IN ERROR AFTER WRITING DATA AND ECC

MOV

#3x4+2 RO

:SET COUNT TO END OPERATION

DeC

;LOOP UNTIL O

JSR

R4, GETREG

;GET RKb11 PEGISTERS

BEQ

iNO - SKIP TC EXIT

JSR

MOV
MoV
BNE

032356

12’
13

!MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

:SIMULATE GAP AND SYNC FOR WRITE
!MR1 IN ERROR IN_EFan GAP

MOV

1%:

10
11

RY, DWGPSN
1S

ERROR
ERROR
ERROR
043462

;GO _BUILD DARTA

IPATTERN 1

4
§
&
7

ERROR
ERROR

001510

COMHQND WRDATA

ERROR
ERROR
ERROR
ERROR

100000

002160

032737

001000

002174

BIT

012737
104030

044253

001622

MOV
ERROR

001405

WORD COUNT -400

WRDRTA

BUFFER ADDRESS OBUFF

BIT

8EQ

16
17
20

RY, DWRIYE

;CS1
;MR1
;CS1

IN ERROR RFTER KREARD GAP
IN ERROR IN WRITING SYNC
IN ERROR RFTER WRITINu SY''C

; SIMULATE WRITE DATA_AND ECC

#DMD! MELK , RKMR1(R2) SET CLOCK
#DMD, RKMR{ (R2) ,CLEA CLOCK

#CERR,T.CS1

; DEC_COUNT

:TEST IF ANY ERROR SET

#COE, T.ER

TEST IF IT IS COt

8ES026A, EHO30
30

SET MESSQGE HERDER
: "UNEXPECTED COE ERROR"

NO
- SK

CZR6EBO RKG611 DSKLS CTRL PRTS

CZRBEB.P11

ggg
2566

02-DEC-77 10:21

006346

000404

006350

012737

gggg

006356

SE%S

006360

104031

MACY!l 30(1046)

0e-DEC-77

001632

MO4

PAGE S1

SEQ Q0S1

CYLINDER OVERFLOW (PART 1)

2§%:

BR
044253

10:43

MOV

ERROR

8ESO26R, EHO31

JEXIT
; SET HERDER

"UNEXPECTED ERROR TESTING COE"

33:

*l!*llll!!l!*lill!l*l*llll!*l*lilll!ll!!li!lll*ll!i!!!lllll*l!*

2571

gg;g

iTEST

574

gé?
2578

Ly
x

geL?NBER
géa an 3 § 583
ég CESEK QHEBfiGH SEEK
AND DRIVE thnR
. SIMULRTER SECTOR

2582
2583

006360

NI
t&17.

I AU
SCOPE

2586

006370

S;S

x|
%

2579
Sgg?
Sggg

gggg

2589

¥
,:

006362

006374

006402

000004
012737

000012

005037

002352

004437

032230

0l2762

2590
259

006406
06410

000632
OSS

2594
sggg

006414
00oe4le

177377
000023

259
2593

2597

06411
0Cb4le

004437

032014

5289

006426

004437

032274

602

006432

004437

023334

gggg

006446

004437

023316

e6l0

£611
Sgig

00e4S2

006456
006460

004437

023740

cbl4

104010
104011

2615
2616
SE{E

006462

006M66
006470
006472

004437

024276

2619

00e474

(012737

043403

104012
104013
104014

THE HON NORLERTINRDISGNOSTICEEODE 10

I NN

NN AR ERE R ERE

MoV

#10.,STIMES

;;00 10.

CLR

BSEDES

;CLEAR BRD SEC DESIRED

JSR

R4, LOADRK

MoV

632
.BYT

ITERATIONS

8CCLR,RKCS1(R2) CLEQR CONTROLLER

25
2

;LORD LTM REGISTERS

CYLINDER 632
,SSCTO 25

TRACK 2
;BUFFER RDDRESS OBUFF

NORO COUNT -401
COMHRND WRDATA

JSR

R4, BLDDAT

JSR

R4, OPSTRT

;START THE OPERATION

JSR

RY,DISEEK

Y
S
6
7

;SIMULATE IMPLIED SEEK

CSl MISCOMPRRE
R1
MRe
*
MR3
*

JSR

R4,DSECTR

; SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

; SIMULATE HEADER PREAMBLE

JSR

R4, DHDCMP

12’
13
14

HRl CONTENTS IN ERROR
CSl IN ERROR AFTER SEARCH
RKDCYL OR RKDA IN ERROR RFTER SERRCH

MOV

SEMS020,EMUW

;SET MESSAGE FOR WRITE FRTLURE

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
001510

R WRITE

AND A GOOD HERDER
CLOCK THROUGH 400 WORDS R O
TWO ECC WORDS. MAKE SURE CYLINDER OVERFLOW ERROR SETS.

-401
WRDATA

000002
104004
104005
104006
104007

CL;RR THE RKS&I CONTROLLER WITH A CONTROLLER CLERR

.BYT
OBUFF

ooeN424

D06436
006440
006442
006444

000000

002
047636

Sggg

2603
2604
2605
Sggg

006420

100000

001234

CYLINDER OVERFLOW (PART 2)

10
11

;GO BUILD DATA

MRl CONTENTS IN ERROR
CSI CONTENTS IN ERROR

; SIMULATE HERDER SEARCH

CZR6EBO RKsll DSKLS CTRL PRTS
CZRGEB.P1
02-DEC-77 10:21

2620

006502

004437

2622
2623
gggg

006510
006512
006514

104016
104017
104020

2626

006516

012737

2628
2629
ggg?

006530
006532
006534

104017
104021
104022

2621

2627

006506

006524

10401S

004437

NO4

MACY1l 30(1046) 02-DEC-77 10:43 PAGE 2
T7
CYLINDER OVERFLOW (PART 2)

025204

043462

025604

009536 012700 000016
2634
(006542 012762 000440 000026 1S:
2635 006550 012762 000040 000026
006556
006560

0N0S300
001370

2639

006562

004437

ggné

006574

001012

2643
2684

006576
006604

2640

16
17
20

:CS1 IN ERROR RFTER READ GAP
:MR1 IN ERROR IN WRITING SYNC
:CS1 IN ERROR AFTER WRITING SYNC

;SET MESSAGE FOR WRITE FAILURE

ERROR
ERROR
ERROR

17
21
22

‘MR1 IN ERROR IN WRITING DATA OR ECC
:ECC IN ERROR WHILE WRITING DATA
:CS1 IN ERROR AFTER WRITING DATA AND ECC

MOV

#3%4+2

DEC

;DEC_COUNT

JSR

RY GETREG

;GET RK611 REGS

YES - EXIT TEST

MOV
MOV

BNE
032356

BNE

100000

002160

006606
006610

032737
001402

104027
000404

BIT
BEQ

2648

006612

012737

044253

2651
2652

006622

104026

ERROR
BR
001602

2%:

MOV

ERROR

:SIMULATE WRITE DRTA AND ECC

T COUNT TO COMPLETE OPERATIONTM
#DMD!
nbLK
Rxnnltha;
sRUN THE CLOCK
#DMD, RKMR1 (R2)

BIT

006620

‘MR1 IN ERROR IN _READ GAP

$EMS021, EMW

R4, DWRIYE

002174

sggg

032737

ERROR
ERROR
ERROR

001000

2645
gg:g

006566

:SIMULATE GAP AND SYNC FOR WRITE

JSR

2633
gggg

R4, DWGPSN

MOV

2632

2636

JSR

ERROR
001510

SEQ 0052

sclE, T

#CERR, T.CS!

27
33

$ESO26A,EHO026

;LOOP UNTIL O

TEST IF COE SET

TEST IF ANY OTHER ERROR SET
NO
- SKIP

-"~o COE NHEN EXPECTED"
i TO EXIT
;SET HEADER

""UNEXPECTED ERROR WHEN FORCING COE"

3%:

.SBTTL

Sgga

#%NPR WRITING OF MEMORY

o 36363636 36 96 36 96 36 36 36 36 36 36 36 36 3 3 36 36 36 6 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 3 3 36 36 36 36 3 36 36 36 36 96 06 36 F 3 3 3 2 X % %

e65S

NPR WRITING OF MEMORY

gggg

iTEST 10

2658
26859

TM
e

CLERR RK611 CONTROLLER WITH A CONTROLLER CLEQR
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUEA RERD DATA

2661
2662
2663
gggg

¥
'y
%
,:

CYLINDER O, HEAD 0, SECTOR 0. CLOCK THROUGH SEEK
AND DRIVE CLEAR neésncss. SIMULATER SECTOR PULSE
A GOODHEADER, 40 DATA WORDS. VERIFY THAT THE WOROS
ARE WRITTEN PROPERLY IN MEMORY.

2660

26Lb
2667

00622

000004

Sggg

006E24

012737

000012

2670

006632

005037

002352

2673

006644

005037

002344

SE;é
2674
2675

006636

(006650
006654

012762

005037
004437

100000

002354
032230

001234

000000

OF 400 WORDS TO AN RKO& IN 26 SECTOR FORMAT

‘ o 363636 36 3 36 36 36 3 36 36 36 3 36 36 36 3 3 3 36 3 36 36 36 3 36 36 36 36 36 36 3 3¢ 3 36 36 36 3 36 3 3 3 3 36 3¢ 3 36 3 3 3 3 F 3 3 3 3 K % 3 K % % %
Y4710: SCOPE
MOV

#10.,8TIMES

;00 10.

CLR

BSEDES

:CLEAR BAD SEC DESIRED

CLR

ECCSRC

MOV
CLR
JSR

ITERATIONS

#CCLR,RKCS1(R2) :CLEAR CONTROLLER

HIBITS
R4, LORDRK

s CLEAR ECC SOURCE

:CLEAR HI ORDER BITS
:LOAD "L* REGISTERS

C<RB6EBO RKB1:

CZRbEB.P1I

DSKLS CTRL PRTS
02-DEC-77 10:21

MACY11

3916046)

BOS

02-DEC-77
10:43
PAGE S3
NPR WRITING OF MEMORY

2676
2677
2678

006660
006662
006663

000000
000
0ag

0
.BYTE
.BYTE

2680

006666

177400

-400

2679

Sggé

006664

046632

IBUFF

*CYLINDER O
,bECTOR 0
; TRACK O

O
O

BUFFER ADDRESS IBUFF
WORD CCUNT -400

006670

000021

Sgga

006672

004437

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

2685
2686

006676
006702

004437
000C03

032014

JER
3

R4, BLDDAT

;GO _BUILD DATA
; PRTTERN 3

2689

006704

004437

032274

JSR

R4, OPSTRT

;START THE OPERATION

2690
2691
2692
2693
gggg
sggg
2698

006710
006714
006716
006720
006722

004437
104004
10400S
104006
104007

RDDATA

023334

JSR

R4,DSECTR

; SIMULRTE SECTOR PULSE

JSR

RY,DRSYNC

; SIMULARTE HERDER PREAMBLE

JSR

R4, DHOCMP

12
13
1M

; SIMULATE HERDER SERRCH

:MR1 CONTENTS IN ERROR
iCS1 IN ERROR AFTER SERR
iRKDCYL OR RKDA IN ERROR QFTER SERRCH

JSR
ERROR

R4, DRGPSN
1S

GO RERD GR® AND SYNC
MR1 IN ERRJR RERDING GAP

004437

023740

2702

104010
104011

c703
2704
s;gg

006740

006744
006746
006750

004437

024276

2707
2708

006752
006756

004437
10401S

026500

006760
006762
006764
006766

104012
104013
104014

012737

000000

004066
027176

€718
2719
2720
2721
S;gg

007012
007014
007016
007020
007022

012737
004437
000060
104034

27e4
2725

007024

012700

2728

007034

012704

2729
2730
2731

007030
007040
007044
00700

ERROR
ERROR
ERROR
ERROR
ERROR

104016
104032
104033

006774
007002
007006
007010

S;gg

S
6
7

;SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
MR1
i MR2
*
iMR3
”

023316

006730

2714
2715
2716
2717

RH DISEEK

004437

006734
006736

2713

JSR
ERROR
ERROR
ERROR
ERROR

006724

2699
5;8?

2709
2710
s;ié

COHMQND RODATA

10403S
104036
104041
104042
104043

012701

005037
005037
012703

002346

002350

10
11

iMR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

ERROR
ERROR
ERROR

16
32
33

CSl IN ERROR RFTER REQDING GRP
iMR1 IN ERROR READING SYNC
:CS1 IN ERROR ARFTER® READING SYNC

MOV

80, ECPATX

; LORD EXPECTED PRTTERN

MoV
JSR
60
ERROR

s4066, ECPOSX
R4, DREAD
34

:LOAD EXPECTED POSITION
:GO SIMULATE DATR_READ
:NUMBER OF WORDS TO SIMULATE
iMR1 IN ERROR RERDING DQTR OR ECC

ERROR
ERROR
ERROR
ERROR
ERROR

35
36
4l
42
43

;ECC ERROR READING DAT
;CS1 ERROR AFTER RERDING DRTR OR ECC
;ECC REG_INCORRECT AFTER ECC RERD
;ERR IN ECC PAT CALC.
;ERR IN ECC POS COUNT

047636

MOV

#0BUFF, RO

;SET POINTER TO GOOD_DARTR

000012

MoV

#10.

; SET ERROR LIMIT COUNT

046632
001236
001220
000040

MoV
CLR
CLR
MOV

#I1BUFF ,RI
,RY

SESCAPE
STMP?7
#40,R3

;SET POINTER TO INPUT DRTA
iCLEAR ESCRPE
;CLEAR ERROR REPORT SWITCH
{SET COMPARE LIMIT

SEQ 0083

C‘RBEBU RK611

CZRbEB. Pi1

007054

MACYI1l

30(1046)

T10

1%:

907868 851004

CMP

4g:

005303
001424

007072

2%:

007074
007076
s
b

0ol220

oo
oL

007114
007120

be b

007100
007104
007110

001220

3%:

104040
000752

007136

SEQ 00sH4

PAGE S4

:CLEAR WORD COUNTER

(RD), (R1)

: COMPARE

DATA

23
R3
X
RS
(RO)+, (R1)+
13

'SKIP IF NOT _EQUAL
'ELSE DEC WORD COUNT LIMIT
'IF 0 - SKIP TO EXI
:BUMP WOROD COUNT
:BUMP DATA POINTERS
:LOOP

D¢
BEQ

RY
5%

:DEC_ERROR LIMIT
‘IF 0 - SKIP

MOV

(RO), SREGO

:GET GOOD WORD FOR REPORT

MOV
MOV

(R1) ' SREGI
RS, SREG2

"GET BAD WORD
:GET WORD NUMBER

157

§TMP?

:DECIDE WHICH ERROR REPORT TO USE

ERROR 40

B8R

33
§TMP7
37
4%

'SKIP IFNOT o
‘ELSE BUMP_STM
*REPORT FIRST ERROR LINE
'SKIP

1SKIP

:REPORT ALL OTHER LINES

cs:

.SBTTL
S

#%ECC ERROR DETECTION/CORRECTION TESTS

NN 0NN
R AR AR R AR RRRRRR AR

,iTEST 11

;;

CLINDER 0, HEAD
O

. 3%

000001

007146

00s037

002352

004437
000000
000
000
046632
177400

032230

001234

000000

LEQR

e
S
0oCcooY
012737

ONTROLLER WITH A CONTRO

$ CONTS&LLER IN b&Scnos
TIC noo %%s A READ DATA

i
007136
007140

LEAR RK

READ DATA WITH NO ERROR

S E

007206

10:42

BNE
DEC
BEQ
INC
cMe
ER

BNE
INC
ERROR
BR

007130

007132
007134

02-DEC-77

NPR WRITING OF MEMORY

CLR

00500S

000
000

e’3e
2733
2734
273%

DSKLS CIRL PRTS
02-DEC-77 10:21

0 WORDS T0 nN

IN 26 SECTOR R
MAT,

ECTOR 0.

CLOCK THROUGH SEEK

AND DRIVE CLERR néssnces SIHULQTE SECTOR PULSE

A GOOD HERDER, 400 DATA WORDS, ANDA GOOD 32 BIT ELC.
VERIFY THAT COMMAND COMPLETES’ WITHOUT ERROR.

! X 223222222222 222222:222222222X22X2X2X22222322L22LLLILIS SIS LS
¥4T11:
SCOPE
MOV

#1,$TIMES

;;00 1

CLR

BSEDES

;CLEAR BAD_SEC DESIRED

CLR

ECCSRC

MOV
CLR
CLR
JSR
0
.BYTE
.BYTE
1IBUFF
-400

ITERATION

#CCLR,RKCS1(R2) :CLEAR CONTROLLER
ECCSRE
,CLEQR ECC SOURCE FLAG
HIBITS
R4, LOADRK
0O
O

;CLERR ECC SOURCE

'CLEAR HI ORDER BITS
:LOAD “L* REGISTERS
CYLINDER 0
:SECTOR O
:TRACK O
:BUFFER ADDRESS IBUFF
*WORD COUNT -400

CZR6EBO RKb11 DSKLS CTRL PRTS

CZRGEB. Pll

2788
2789
2790

02-DEC-77

10:21

MARCY!l

30(1046)
Ti1

10:43
PRAGE SS
02-DEC-77
RERD DATA WITH NO ERROR
; COMMAND RDDRTR

RDDATA

007210

000021

0o7eie

004437

031770

007216
007eee

poN437

032014

007224

pO443?7

03ea74
023334

007240
007242

104006
104007

007244

oo4437

0072s0
007254
007256

SEQ 00c<S

JSR

R4, CLRIEF

JSR

RY,BLDDRART

JSR
JSR
ERROR
ERROR

R4, OPSTRTY

+START THE OPERATION

S
)

iMR1
:MR2

023316

R4,DSECTR

; SIMULATE SECTOR PULSE

ooM437
104010

023740

R4, DRSYNC
10
11

; SIMULATE HERDER PREQHBLE

007260
007264
007266
007270

004437
104012
104013
104014

024276

RY, DHDCMP
12
13
14

007272
00727
00730
007302
007304

004437

026500

007306
007314

000000
004066
027176

007342

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

007344

012700

002710

007350

012762
gle7ee
005300
001370

000440
000040

016237
004437
042737
052737
023737

000000
032356
000001
000200
002160

000004

;GO CLERR INPUT BUFFER
?UILD DATA

PQT

OWwo NN £WN—O.

[ Y tetetetatetatatate

NN
MNP
YND
0D 0D D 0O DM 0D DM MM

007366
007370

007416

RH DISEEK
7

104011

15
18

002346
00e23s0

; SIMULRT

:MR1

;CS1

H;flDER EERRCH

CONTENTS

IN ERROR AFTER SEARCH

'RKDCYL OR RKDA IN ERROR AFTER SEARCH

g o
EE% ET oEonRIS

:MR1 IN ERROR READING SYNC
'cS1 IN ERROR RFTER READING SYNC

%0, ECPATX

:LORD EXPECTED PATTERN

34
35
36
4]

*LORD EXPECTED POSITION
:GO SIMULATE DATA RE
nunasn or uonos T0 SIMULATE
nsnoxuc onrn OR ECC
IMR1
‘ECC ERROR RERDING DAT
:CS1 ERROR AFTER REQDING DRTA OR ECC
'ECC REG INCORRECT AFTER ECC RERD

$40.%37. RO

:SET COUNT TO EMPTY SILO

#4066 , ECPOSX
R4, DRERD

19:

iMR1 CONTENTS IN ERRO
:CS1 CONTENTS IN ERROR

32
33

42
43

000026
000026

*
*

IMR3

RY4. DRGPSN

104033

:SIMULATE IMPLIED SEEK
iCS1 MISCOMPARE

'ERR
'ERR

#DMD!MCLK,RKMR1(R2)

cgno RKMR] (R2)

IN ECC PAT GALC.
IN ECC POS counr

;CLOCK CONTROLLER

:DEC COUNT

:LOOP UNTIL D

1%
002160

RKCSl(RE) T.CS1

00eec0
002220
00eee0

T.Csl,E.CS1

ETREG'

ocb E cSl

#RDY,E.CS1

;GET CSl

‘GET 611 REGS
GO BIT
‘CLEAR
READY BIT

:SET

'CHECK IF CS1 CORRECT

CZR6EBO RKBll DSKLS CTRL PRTS
02 DEC-77 10:21
CZR&EB.P1

2844
2845

2846
28'4?

007424
007426

007430

EOS

MACY1l 30(1046)
Q2-DEC-77 10:43 PAGE S6
READ DATA WITH NO ERROR
T11

BEQ
ERROR

001401
104056

hTEST 12
;l

¥
La
by

2850
285 ]
2852

2853
2854
2855
2856

2857
2858

007430

000004

012737

000001

2865

007440

00S037

002352

2868

007452

005037

002354

2869
2870
2871
2872
2873

007432

007444

012762

100000

2874

007456
007462
007464
007465
007466

007470

004437
000000
000
000
046632

gg;g

007474

004437

031770

2879

007500

004437

032014

sggg

007506

012700

000530

2884

007512

001234

007504

A GOOD HERDER,

2222222222222
: Y YY1
+&T12: SCOPE

020000

::D0 1 ITERATION

CLR

BSEDES

; CLERR BAD SEC DESIRED

HIBITS

:CLEAR HI ORDER BITS

JSR
0
BYTE
'BYTE
1BUFF

R4, LOADRK
O

JSR

RY, CLRIBF

;GO CLEAR INPUT BUFFER

ISt

RY, BLDDAT

;GO BUILD DATA

MOV

¥530, RO

:SET INDEX INTO BUFFER

007544

2891

007554

5335
2894

2895
2836
2897
2838
2899

007552

007562
007S62

007566
007572
007574
007576
007600

177446

BIT
BNE

2890

050640
002344

052760

000100

047636

042760

000100

047636

004437

032274

000403

004437
104004
104005
104006
104007

~400

2887
007534
032760 000100 047636
2888
007542 001004
2883

#CCLR,RKCS1(R2) :CLEAR CONTROLLER

023334

MOV
MOV

BIS

100%:

1018%:

*PATTERN

8177446, OBUFF
+ 1000

:STORE ECC WORDS

015457 OBUFF+1002
ECCSRC
:SET SOURCE _TQ INDICATE ECC IN BUFFER

oetrs,oeurr(no);
TEST
IF BIT SET
100%
YES
- SKIP
$BIT6, OBUFF (RO) ELSE SET BIT

101%

JSP

R4, OPSTRT

JSR
ERROR
ERROR
ERROR
ERROR

-400

connnuo RDDATA

BIC

'LOAD "L" REGISTERS
CYLINDER 0
,sscOR O
:TRACK O
BUFFER noon:ss IBUFF
WORD COUNT

RDDATA

015457
000001

221:22XXXTX2XXXX2X22XX222X2SS 22224

%1,STIMES

CLR

012737
012737

AND AN ECC xnoxcnrrfic

MOV

032230

SIMULATE A SECTOR PULSE

400 oan uonos

VERIFY THE COUNTING OF THE
PSITIO
REGISTER AND THE FINAL PQTTERN AND POSITION INFORMATION.

MOV

007520
007526

012737

AND DRIVE CLEAR MESSAGES.

050636

2885
2886

CLOCK THROUGH SEEK

MAKE SURE DATA CHECK AND CONTROLLER ERROR SETS.

177400

000007

secron 0.

gg;g 007472 000021
ggg?

O
CYLINDERO, HERD

A ONE BIT BURST ERROR OFA O YHAT SHOULD BEA I.

1K3

2861
2862

READ DATA WITH ONE BIT BURST ERROR (PART 1)
CLEAR RKG11 CONTROLLER WITH R CONTROLLER CLEAR
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 uonos 10 nn RKO6 IN 26 SECTOR FORMAT

‘¥
¥
"
D

i
ta

SSES

5829

:YES - SKIP
*#CS1 IN ERROR RFTER READ DATA"

2s
5B

28:
Y Y YY222212222222222223212222222222X2XX22222X2222X2222X222X2 2222 2 4

gg:g

ggga

SE3 00S6e

#BI176,0BUFF(RO)

RH DISEEK
s
b
7

;CLEAR BIT
s STRRY THE OPERATION

:SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
TMR1
IMR2
*MR3
-

CZRBEBO RKb11l DSKLS CTRL PRIS
CZR6EB.P11L
02-DEC-77 10:21
2900

gggé

2903

007602 A 004437

023316

2904
Sggg

007612
007614

007606

004437

023740

2907

007616

0Q4437

024276

2912

007630

004437

026500

012737

000001

004437
000400
104034
104035
104036
104041
104042
104043

027176

012737

000020

2308
2309
sgi?

007622
007624
007626

104010
104011

1040le
104013
104014

2913
2914
2915
sgi?

007634
007636
007640
007642

2918

007644

2920
€921
2922
2923
2924
2325
2926
gggg

007660
007664
007666
007670
007672
007674
007676
007700

2929
2930

007702

007710
007714
007720

012700
012701
00S037

2935

007724

004737

2938

007742

2919

2931
2932
ggga
2936
2837

2939
2940
2941
e%4e

2943
2944
2945
2946
2947

00752

012737

004066

0©0000S
013672
001214

004737
016237

030462
000032

007750
007754
007762
007770

005237
013737
023737
00140]

016237

007772
007774
010002
010004
010006

104042
023737
001401
104043
005237

010016

005300

010012
010014

2951
2952

010020
010022

005301
001343
001406
012737

010034

000733

002346

JSR

R4, DRSYNC

10
11

{MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

JSR

RY, DHDCMP

; SIMULARTE HEARDER SERRCH

JSR

R4, DRGPSN

3%:

JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

R4,
DREAD
34
35
36
41
N2
43

:GO SIMULATE DATA_READ
:NUMBER OF WORDS TO SIMULATE
iMR1 IN ERROR RERDING DQTQ OR ECC
iECC ERROR READING DAT
:CS1 ERROR AFTER REQDING DATA OR ECC
ECC REG _INCORRECT ARFTER ECC RERD
{ERR IN ECC PAT CALC.
{ERR IN ECC POS COUNT

MOV

#20, BITCNT

;SET BIT COUNT FOR CORRECTION COUNT

JSR

PC,RDBIT

;GO RERD BIT

002212

002350

;LOAD EXPECTED PATTERN

:LOAD EXPECTED POSITION

SET COUNT FOR ECCPQOS PASS
THRU O
SET COUNT FOR ECCPOS TO O FIRST PASS
CLERR SWITCH

002252

177277

IN ERROR READING GAP
IN ERROR AFTER RERDING GRAP
IN ERROR READING SYNC
IN ERROR RFTER READING SYNC

85 RO
#13672,R1
STMPS

002252
002214

2s:

ECPATX

s4066, ECPOSX

iMR1
:CS1
iMR1
:CS1

MOV
MoV
CLR

INC
MOV
CMP
BEQ

002326

; GO RERD _GAP AND SYNC

81,

MOV

1%:

iMR1 CONTENTS IN_ERROR
iCS1 IN ERROR AFTER SEARCH
IRKDCYL OR RKDA IN ERROR QFTER SEARCH

MOV

002350
002350
002254

002212

; SIMULATE HEADER PREAMBLE

1S
16
32
33

002214

000030

12
13
1M

; SIMULATE SECTOR PULSE

ERROR
ERROR
ERROR
ERROR

MOV

00236

RY,DSECTR

ERROR
ERROR
ERROR

002350

(PRRT

JSR

JSR
MOV

2953 010030 012701 020000
23954

FOS

02-DEC-77
10:43
PRAGE 57
READ DRTA WITH ONE BIT BURST ERROR

ERROR
ERROR

031616

007730
007754

2348
2949
2950

104015
104016
104032
104033

MACY11l 30(1046)
Ti2

PC,ECCGEN
:GENERATE ECC
RKECPT(R2),T.ECP}
;GET PATTERN
RKECPS(R2),T.ECPS

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

ERROR
CMP
BEQ
ERROR
INC

42
E.ECPS,T.ECPS
4]
43
BITCNT

DEC

MOV

820000 R1

DEC
BNE
BEQ
MOV

Rl
3%
HS

GET POSITION

; BUMP POQITION EXPECTED
:SET FOR_COMPARE AND REPQRT
iCHECK IF PATTERN CORRECT
iYES - SKIP
;CHECK IF POSITION CORRECT
; YES - SKIP

;BUMP BIT COUNT

:DEC COUNT TO ZERO IN ECCPOS
"NOT YET ZERO - LOOP
;DEC_PASS THRU O COUNT

ECPOSX

:1F 0
-"SKIP
!PRESET EXPECTED POS TO GO TO ZERO

iSET_COUNT TO NEXT O IN ECC POS

;GO DO LOOP AGAIN

SEQ 00S7

CZRBEBD RKb1]l DSKLS CTRL PRTS
02-DEC-77 10:21
CZR6EB.PI11
2956

010036

005737

2957
2958
2959
2960
2961
Sggg

010042
010044
Q10050
010054
010062
010066

Q00igle
012701
012700
012737
005237
000716

2364

010070

04737

GOS

MACr1l 30(1046)
0e-DEC-77 10:43 PAGE 58
READ DATA WITH ONE BIT BURST ERROR (PRRT 1)
T12

001214

005276
000001
177?77

001214

002350
S8

031616

2965
2966
2367
368
2969
2970

010074
010100
010106
0101l4
010122
010130

04437
013737
052737
042737
023737
001402

032356
002260
100200
000001
002160

2973
2974

010136
010144

032737
001404

000100

002174

2976

010154

104045

100000

002234

2971
2972

2975

Sg;g

010132
010134

010146

010156

104044
000410

012737

002220
002220
002220
002220
6%:

TST

; TEST SWITCH

5%
#5276,R!
81 RO
s-1 ECPOSX
§TMPS
33

RLREQDY 6T - SKIP
SET COUNi TO FINAL POSITION
SET RO TO RETURN RFTER ONE PRSS
SET EXP POS TO GO TO O ON NEXT BIT
BUHP SWITCH
GO DO LOOP RGAIN

JSR

PC,RDBIT

; ONE HORE BIT 70 SET RERDY

JSR
MOV
BIS
BIC
CMP
BEQ

RY’ GETREC
L.&s]
CSl
E CS1
oRDY'CERR
#GO,E.CS1
Cél £.CS1
6

BIT
BEQ

%ECH, T.ER
7S

ERROR
BR

MOV

ERROR

2979

$TMPS

BNE
MOV
MOV
MOV
INC
BR

4y
4

8DCK,E.ER

SR 3 22

GET '6ll REGISTE S
ET EXPECTED CS1
RERDY AND ERROR
SE
CLERR GO
CHECK IF CS1 CORRECT
,YES SKIP

TELT IF ECC HARD ERROR SET
NO
- SKIP

SET EXPECTED ERROR REG

2222 L2
223222222222 22222222222222232232

Sgg?

iTEST 13

2982
2983

I
s#

CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLERR.
SSUE REQD DATA
PUT CONTROLLER IN DIRGN STIC HODE

298s%

CYLINDER 0O,

; »*

2984

2986

. ¥

010156

00000M

012737

000001

001234

gggg

010172

012762

100000

000000

2998

010200

005037

002354

010160

2995 010166 005037 002352
2999
3000
3001
3002
3003
3004
3882

(010204
010210
010212
010213
010214
010216
010220

004437
000000
c00
000
046632
177400
000021

032230

gggg

010222

004437

031770

3009
3010

010226
010232

004437
000007

032014

SECTOR 0. CLOCK THROUGH SEEK

AN 11 BIT BURST ERROR. VERIFY' THE COUNTING OF THE POSITION

2994

RKO&6 IN
2

2989

2992
29393

HERD O,

RND DRIVE CLEAR MEQSQGES. SIMULATE A SECTOR PULSE

;¥

Sgg?

OF 400 WORDS TO AN

2987
2988

RERD DATA WITH 11 BIT BURST ERROR

A GOOD HERDER, 400 DATA WORDS, AND AN ECC INDiCATING

L EEENEENERENNR RN EN NN RN RN R E AR AR R AR R REEREREER RN R SR REREE R ER
t&113: SCOPE
MOV

CLR

BSEDES

;:00 1 ITERATION

CLR

HIBITS

;CLEAR HI ORDER BITS

[0}V

JSR
8]
.BYTE
.BYTE
IBUFF
400
RDDQTR

STIMES

CLERR BAD SEC DESIRED

8CCLR,RKCSI1(R2) CLERR CONTROLLER

R4, LOADRK

0
o

LORO *L" REGISTERS
CYLINOER 0
SEC OR O
TRRC 0
BUFFER RADDRESS IBUFF
NORD COUNT -400
COMHQND RDDATA

JSR

RY,CLRIBF

;GO CLEAR INPUT BUFFER

JSR
7

R4,BLDDAT

;GO BUILD DRTR
;PATTERN 7

SEQ 00¢c8

CZRGEBO RKb11 DSKLS CTRL PRTS

CZRBEB.P11

38f§
3014

02-DEr-77 10:21

010234

012700

010240

012737

010254

012737

MACY1l 30(1046)

T13

000530

02-DEC-77

MOV

177446

050636

MOV

30{7 010292 032758 000100 047636

000001

002344

MOV

3020

3015
3016

010246

012737

015457

050640

3813 81857
885980
000100 047636
010300
000403

3021

010302

042760

000100

3024

010310

004437

032274

ggsg

010310

3025
3026
3027
3028
3853

010314
010320
010322
010324
010326

%835

010330

3033

010334

0Og- ...

023742

3037

010344

004437

024276

3633

010352

104013

3034
gggg
3038

3839

3042

3043

3044
3045
gg:g
I'd

3048

3048
3050
3051

010340
010342
010350

004437

010364
010366
010370

104016
104032
104033

3062

012737

Ql0412

000400

010400
019406

010422
010424

012737
004437

3067

000001

.8?
&, 0BUFF (RO) ELgE SéTBIT
1018

JSR

R4, OPSTRT

BIC

RH DISEEK

;START THE OPERATION

5
b
7

JSR

R4,DSECTR

s SIMULATE SECTOR PULSE

JSR

R4, DRSYIC

10
11

*MR1 CONTENTS IN ERROR
1CS1 CONTENTS IN ERROR

JSR

RY, DHDCMP

;SIMULARTE HERDER SEARCH

ERROR

12
14

JSR

R4, DRGPSN

ERROR
ERROR
ERROR

16
32

MOV

#BIT6,0BUFF
(RO) ;CLEAR BIT

:SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
‘MR
1MR2
*
:MR3
-

ERROR

002350

sSET SOURCE TO INDICATE ECC IN BUFFER

JSR
ERROR
ERROR
ERROR
ERROR

ERROR

002346

ECCSRC

:BiTB,OBUFF(RO)STEST IF ax SET

%1 ECPATX

s SIMULATE HEADER PREAMBLE

.nax CONTENTS IN ERROR
;CS]1

IN ERROR AFTER SEAR

'RKDCYL OR RKDAR IN ERROR nrrsn SEARCH
GO RERD cnP AND SYNC

,MRl IN ERROR READING GAP

:cS1 IN ERROR AFTER RERDING GAP
‘MR1 IN ERROR READING SYN
:CS1 IN ERROR AFTER REQDING SYNC
: LOAD EXPECTE

PATTERN

ERROR
ERPOR
ERROR

34
35
36

‘MR1 Iiv ERROR READING DATA OR ECC
:ECC ERROR REARDING DATA
:CS1 ERROR AFTER READING DATA LR ECC

104043

ERROR

‘ERR IN EC

400

104041
104042

012700

ERROR
ERROR

000020

000005

001214

010452

004737

031616

010462

015237 000032

004737

002326

MOV

013672

005037

010456

BIE

ERROR

004066
027176

:STORE ECC WORDS

ERROR
ERROR

026500

OBUFF +1000

015457 OBUFF+1002

1049034
104035
104036

012701

3065

023316

#177446,

:SET INDEX INTO BUFFER

:LORD EXPECTE Posxrxon
:GO SIMULATE DATA READ

010442

010446

023334

#530,R0

#4066 , ECPOSX
R4, DREAD

012737

010436

1018:

SEQ 30S9

MOV

agr
100%:

PRGE SS9

MOV
JSR

010430

3823

3066

104015

010372

010426

3060

104012

010356

010362

gggg

3061

104010
104011

154014

010414
010416
010420

3059

010384

3052
3053
3054
3065
3056

004437
104004
104005
104006
1M'"07

047636

10:43

READ DATA WITH 11 BIT BURST ERROR

030462

002214

#20,BITCNT

;ECC REG Inconnscr arrsn ECC READ
‘ERR IN ECS

POS COUNT

:SET BIT COUNT FOR CORRECTION COUNT

MOV

#S . RO

i SET COUNT FOR ECCPOS PASS THRU O

CLR

$TMPS

:CLERR SWITCH

JSR

PC,RDBIT

:GO READ BIT

MOV

RFECPT(R2).T. ecpt

MOV
3%:

Y1
42

:NUMBER OF onos T0 SIMULATE

JSR

$13672,R1

PC'ECCGEN

:SET COUNT FOR ECCPOS TO O FIRST PASS

:GENERATE ECC

*GET PATTERN

CZRBEBO RK611

CZRBEB.PI11
3068

010470

3070
3071
3072

010502
010S10
010S16

3069

DSKLS CTRL PRTS

02-DEC-77 10:21

MoV

913737
023737
001401

002350
002254

002252
002214

MOV
cMP
BEQ

002252

002212

013520
010522
010530
010532

104042
023737
001401
104043

3078
3079
3080
3081
3082

010540
010542
010544
010546
010550

005301
001343
005300
001406
0Qi2737

gggg

010562

000733

005237

002350

002326

177777

3083 010556 012701 020000
010Se4

005737

18:

23%:

002350

001214

Y42
E.ECPS,T.ECPS
c$
43

INC

TST

$TMPS

MoV

O-l ECPOSX

005276
000001

3091
gggg

010610
010614

005237
000716

001214

010616

004737

10404S

010704

012737

000100

002174

100000

002234

6$:

; CHECK IF POSITION CORRECT
; YES - SKIP

;BUMP BIT COUNT

iDEC COUNT TO ZERO IN ECCPOS
iNOT YET ZERO- LOOP
:DEC PASS THRU O COUNT
:1IF 0 - SKIP
{PRESET EXPECTED POS TO GO TO ZERO

ECPOSX

tEDbOO R1

iSET_COUNT TO NEXT O IN ECC POS
:GO DO LOOP RGRIN
; TEST SWITCH

5%
35276 Rl
RO’

iALREADY SET - SKIP
ISET COUNT TO FINAL POSITION
:SET RO_TO RETURN AFTER ONE PASS

INC
BR

:BUMP SWITCH
:GO DO LOOP AGAIN

JSR

PC,RDBIT

;ONE MORE BIT TO SET RERDY

44
’3
#ECH, T.ER
7

TEST IF ECC HARD ERROR SET
0_SKIP

JSR
MOV
BIS
BIC
CMP
BEQ

ERROR
BR
BIT
BEQ

MOV

ERROR

:SET EXP POS TO GO TO O ON NEXT BIT

R4, GETREG
,GET ’b6l1 REGISTERS
L.8SI,E.CS1
;GET EXPECTED CSI1
#ROY!LERR,E.CS1;SET RERDY AND ERROR
#GO,E.CS]
:CLEAR GO
T.C81,F.CS1
:CHECK IF CS! CORRECT
63
;YES
- SKIP

$DCK,E.ER

SET EXPECTED ERROR REG

7%:
o 3636 36 36 36 36 36 38 36 36 36 36 36 3 3 36 36 36 36 3 3 3 3 3 36 3 3 3 36 3 38 3 3 3 3 36 3 3 3 3 3 36 36 3 36 3 3 9 36 3 3 3 33 3322 R X KX

iTEST 14
s wsBL
s arwr
W
Wl ws B

C10702

gi0e74

002220
002220
002220
002220

104044
000410
032737
001404

5%:

************

010660
010662
010664
010672

031616

032356
002260
100200
000001
002160

TS eletelwrereresefeintoteteduteduws
et

MU MU
= 0= bt s et s e e e 0= (O O O O QOO OO
W~ OOVONCN LW—OODM NN LW—O

WWWWWW W WWWWWWWwWWWwWwWWWWW

[SrSreie

004437
013737
052737
042737
023737
001402

GET POSITION

:SET FOR_COMPARE AND REPORT
;CHECK IF PATTERN CORRECT
iYES - SKIP

BITCNT

Rl
39
RO
HS

BNE
MOV
MOV

010622
01066
010634
010642
010650
0106S6

SEQ 00&0

; BUMP POQITION EXPECTED

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

DEC
BNE
DEC
BEQ
MOV

001012
012701
012700

3095
3096
3097
3098
3099

RKECPS(R2,,T.ECPS

ERROR
CMP
BEQ
ERROR

Q10570
010572
010576

3094

PAGE 60

ECPOSX

3087
3088
3089

3090 010602 012737 177777 002350

105

INC

MOV
4s:

10:43

READ DATA WITH 11 BIT BURST ERROR

002212

3073
3074
3075
3076

3086

Ti3

02-DEC-77

000030

005237

010534

30(1046)

Clee237

010476

3077

MACY1l

READ DATA WITH ONE BIT BURST ERROR (PART 2)

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN ODIAGNOSTIC MODE.
ISSUE n READ DATA
OF 400 WORDs TO AN RKOB IN 26 SECTOR FORMA

CYLINDER O, HERD 0, SECTOR 0. CLOCK Tnnoucfl SEEK
AND DRIVE CLEAR MESSAGES.

SIMULATEA SECTOR PULSE

n GOOD HMEADER, 400 DATA uonos AND AN ECC INDICATING
A ONE BIT BURST ERROR OFA 1 THAT SHOULD BE R O.

VERIFY THE COUNTING OF THE POSI ION
REGISTER AND THE FINAL PATTERN AND POSITION INFORMATION.
MAKE SURE DATA CHECK AND CONTROLLER ERROR SETS.

CZR6EBO RKb61l DSKLS CTRL PRTS
CZR6EB.P11
02-DEC-77 0:21

3124

010704

010706

012737

000001

3128

010714

005037

002352

3131

010726

00S037

002354

g}gg

010720

00000M

012762

10:43

JOS

PAGE 61

READ DATA WITH ONE BIT BURST ERROR (PART 2)

100006

001234

Y4714

SCOPE

MOV

#1,STIMES

;D0 1 ITERATION

CLR

BSEDES

:CLEARR BAD SEC DESIRED

MOV

000000

CLR

01L7S0
010754

004437
004437

031770
032014

JSR
JSR

RY4,CLRIBF
R4, BLDDART

:GO CLEAR INPUT BUFFER
;GO BUILD DATA

gi:g

010762

012700

000530

MOV

#530, RO

;SET INDEX INTO BUFFER

3147

010766

012737

126073

MOV

#126073, OBUFF +1000

BIT

ceiTs OBUFF (RD) TEST 1IF BIT SET

1018

3148
3149

010774
011002

012737
012737

151052
000001

5
0S0636

050640
002344

MOV
MOV

3150 011010 032760 000100 047636
3151

3152

011016

0G1004

011020

052760

000100

047636

3154

011030

042760

000100

047636

3157

011036

004437

032274

3160

011050

104005

31583
gigg

3168
3159

011026

011036

011042
011046

000403

004437
104004

023334

3161 011052 104006
3125

011054

104007

3{22

011056

004437

023316

3166

011062

004437

023740

3170

011072

004437

024276

3175

011104

004437

026500

3177
3178
3179

011112
011114
0Olllle

104016
104032
104033

3167
gigg

3171
3172
3133
3176

011066
011070

011076
011100
011102
011110

104010
104011

104012
104013
104014
104015

BNE

BIS
100%:
1018:

BIC

RY, LOADRK
O

:CLEAR H] ORDER BITS

g{:?
3142

00000S

JSR
0
.BYTE
BYTE
1BUFF
-400
RDDATA

HIBITS

010732
010736
010740
010741
010742
010744
0l( 746
010760

032230

#CCLR,RKCS1(R2) ;CLEAR CONTROLLER

3132
3133
3134
3135
3136
3137
gigg
3133

004437
000000
000
000
046632
177400
000021

02-DEC-77

R 21222222222 222222222222222x222X22X2222222222222X22X2X2222X222 2 X

3105

gigg

MARCY11 39(&04b)

:LOAD ”L*" REGISTERS
:CYLINDER O
SECTOR 0
TRACK O
eurrsn ADDRESS IBUFF
:WORD COUNT -400
:COMMAND RDDATA
*PATTERN 5

:STORE ECC WORDS

c151osa OBUFF+1002
CCSRC
:SET SOURCE _TQ INDICRTE ECC IN BUFFER
100$

YES
- SKIP

#BIT6, OBUFF (RD) ELSE SET BIT
#8176, 0BUFF(RO)

;CLEAR BIT

JSR

RY, OPSTRT

:START THE OPERATION

ERROR

‘MR3

JSR

RY,DSECTR

: SIMULARTE SECTOR PULSE

JSR

R4, DRSYNC

10
11

‘MR1 CONTENTS IN ERROR
'cS1 CONTENTS IN ERROR

JSR

R4, DHDCMP

'2
I3
1Y

s SIMULATE HERDER SEARCH

‘MR1 CONTENTS IN ERROR
'cS1 IN ERROR RFTER SEARCH
IRKDCYL OR RKDA IN ERROR AFTER SEARCH

JSR

RY, DRGPSN

:GO RERD GAP RAND SYNC

ERROR
ERROR
ERROR

16
32
33

:cS1 IN ERROR RFTER RERDING GAP
‘MR1 IN ERROR READING SYNC
:CS1 IN ERROR AFTER READING SYNC

ISR
ERROR

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

Rq DISEEK

:SIMULATE IMPLIED SEEK
cs1 MISCQMPARE
MR1

' MR2

:SIMULATE _HEADER PREAMBLE

'MR1 IN ERROR READING GAP

SEQ 006!

CZR6EBO RK&11 DSKLS CTRL PRTS
02-DEC-77 10:21
CZR6EB.PI11
3180

3181

011120

012737

3184
3185
318
3187
3188
3189
3%3?

011140
011142
011144
011146
011150
011152
011154

000400
104034
104035
104036
104041
104042
104043

3182
3183

3192

011126
011134

012737
004437

3193

01:156

012737

gig%

011174

00S037

3194
3135

O0llle4
011170

000001

004066
027176

000020

012700
012701

00000S
013672

011200
011204

004737
004737

031616
030462

3201

011216

016237

000030

3202

011210

011224

3203
3204
3205

011230
011236
O0lla244

3207
3208

016237

005237

000032

002350

002214

011250
011256

023737
001401

002252

002212

3210
3211
3212
3213
3214
3215

01126
011266
011270
011272
011274
0lle7e

005237
005301
001343
005300
001406
012737

002326

gs%g

011310

000733

3206

3209

3216

0liz24e
011260

011304

104043

17?7777

012701

020000

005737
00i012

001214

3219
3220
3cel
3222

011320
0Oll3e24

Q012701
012700

ggsg

011342

000716

W27
32es
3229

011344
Q11380
011354

004737
004437
(123737

031616
032356
002260

3231

011370

042737

000001

3223
3ee4

3230
323¢
3233

3234
3235

011312
0113i6

104042

011330
011336

011362

011376
011404

011406
011410

012737
005237

0S273s

023737

Q01402

104044
000410

005276
000CO1

1727777
001214

100200

002160

34
35S
36
41
42
43

+NUMBER OF WORDS TO SIMULATE
;MR1 IN ERROR RERDING DATA OR ECC
;ECC ERROR RERDING DATA
;CS1 ERROR AFTCR RERDTM
. DATR OR ECC
;ECC REG _INCORRECT RF
ECC RERD
;ERR IN ECC PRT CRLC.
;ERR IN ECC POS COUNT

MOV

820, BITCNT

;SET BIT COUNT FOR CORRECTION COUNT

CLR

STMPS

;CLEAR SWITCH

JSR
JSR

PC,RDBIT
PC,ECCGEN

MOV

RKECPS(R2),T.ECPS

MOV

002212

002252
002214

400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

MOV
Mov

3%:

002350
002254

; LORD EXPECTED PATTERN

MoV
JSR

002326

013737
023737
00140}

#1,ECPATX

MOV

002346

001214

3198
3199

3200

KOS

MACY1l 30(1046)
02-DEC-77 10:43 PAGE &2
READ DATA WITH ONE BIT BURST ERROR (PRRT 2)
Ti4

INC

MOV
CMP
BEQ
1S:
cs:

002350

ERROR

002350

S, RO
813672,R1

;LORD EXPECTED POSITION
;GO SIMULATE DATA_READ

; SET COUNT FOR ECCPOS PARSS THRU O
; SET COUNT FOR ECCPOS TO O FIRST PRSS

;GO READ BIT
: GENERRTE ECC

RKECPT(R2),T.ECPt

ECPOSX

ECPOSX,E.ECPS
E.ECPT,T.ECPT
13
42

;GET PRTTERN

:GET POSITION

;BUMP_POSITION EXPECTED

;SET FOR_COMPARE AND REPORT
;CHECK IF PATTERN CORRECT
; YES - SKIP

BEQ

E.ECPS, T.ECPS
s

;CHECK IF POSITION CORRECT
; YES - SKIP

INC
DEC
BNE
DEC
BEQ
MOV

BITCNT
R1
33
RO
4§
#-1, ECPOSX

;BUMP BIT COUNT
;DEC COUNT TO ZERQ IN ECCPOS
;NOT YET ZERO - LOOP
;DEC _PRSS THRU O COUNT
; IF 0 - SKIP
;PRESET EXPECTED POS TO GO TO ZERO

;GO DO LOOP AGAIN

TST
BNE
MOV
MOV

STMPS
5%
#5276,R1
#1,R0

; TEST SWITCH
;ALREARDY SET - SK]IP
;SET COUNT TO _FINAL POSITION
;SET RO TO RETURN AFTER ONE PASS

ERROR

MOV
4s:

#4066, ECPOSX
R4, DREAD

820000, R1

;SET _COUNT TO NEXT O IN ECC POS

MOV
INC

-1 ECPOSX
STMPS
33

;GO DO LOOP RGRIN

002220

JSR
JSR
MOV

PC,ROBIT
RY,GETREG
L.CS1,E.CS1

;ONE MORE BIT TO SET RERDY
;GET ’'611 REGISTERS
;GET EXPECTED CS1

cSC22°0

BIC

#GO,E.CS1

; CLEAR GO

; YES - SKIP

BR
5%:

002220
002220

BIS
cMP

BEQ

ERROR
BR

;SET EXP POS TO GO TO O ON NEXT BIT
; BUMP SWITCH

#ROY!LERR,E.CS1 ;SET READY AND ERROR

T.C51,E.CS!

; CHECK IF CS1 CORRECT

SEQ 0082

RK611 DSKLS CTRL PRTS

011412
011420
011422
011430

02-DEc-77 10:21

032737
D0OI40M
012737
104045

MACY1l 30(1046)

T14

000100

002174

100000

002234

011432

6&%:

02-DEC-77

LOS

PAGE 63
READ DATA WITH ONE BIT BURST ERROR (PART 2)

BIT
BEQ
MOV

ERROR

10:43

s TEST IF ECC HARD ERROR SET
'NO_SKIP
:SET EXPECTED ERROR REG

8ECH, T.ER
73
#0CK,E.ER
45

7%:
HH Y2123 21222221222221222222222::22:13x2222X2X22X22X2222X2222222322 22

;iTEST 15

‘x

PUT CONTRULLER IN DIAGNOSTIC MODE.

‘¥

CYLINDER O,

012737

000001

011442

005037

002352

011446

012762

100000

011454
011460

(00S037
009437

002354
032230

000000
000
000

HERD O,

SECTOR 0.

AND DRIVE CLEAR MESSAGES.

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE

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

MAKE SURE DATR CHECK AND CONTROLLER ERROR SETS.

. Yy 1233222222222222322%22212222222222222X 2222222222222 22222 2R

011434

011464
011466
011467

ISSUE A READ DATA

OF 400 WORDS TO AN RKO& IN 26 SECTOR FORMAT

Da
Dx

000004

CLEARR RK611 CONTROLLER WITH R CONTROLLER CLEAR.

011432

READ DATA WITH 11 BIT BURST ERROR

001234
000000

8T15:

SCOPE

MOV

#1,8TIMES

::D0 1 ITERATION

CLR

BSEDES

;CLEAR BAD SEC DESIRED

MCV

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

CLR
JSR

HIBITS
R4, LORDRK

:CLEAR HI ORDER BITS
*LORD "L* REGISTERS

0
CBYTE
BYTE

0
O

:CYLINDER O
:SECTOR O
*TRACK O

011470
011472
011474

046632
177400
000021

011476

004437

031770

JSR

R4, CLRIBF

:GO CLERR INPUT BUFFER

011502
011506

004437
00000S

032014

JSR
g

R4, BLDDAT

;G0 _BUILD DATA
:PATTERN S

011510

012700

000530

MOV

#530, RO

;SET INDEX INTO BUFFER

011514

012737

126073

050636

MOV

#126073, 0BUFF +1000

011530

012737

000001

002344

MOV

011522

011836
011844
rv1652
0LLiB66
011564
011570
011574

011576

012737

042760
(052760
062700
0S2760
004437
004437
104004
104005

1BUFF
-400
RDDATA

151052

005000
050100
000002
000001
032274
023334

050640

047636
047636
047636

MOV

8151052,

'BUFFER ADDRESS IBUFF
:WORD COUNT -400
: COMMAND RDDATA

OBUFF +1002

;STORE ECC WORDS

BIC
BIS
ADD
BIS

81, ECCSRC

#81T9TBIT11,0BUFF(RO):CRERTE 11 BIT BURST ERROR
#BIT6IBITI2!BIT14, OBUFF (RO)
22, RO
;BUMP TO NEXT WORD
#8170, OBUFF (RD)

-SET SOURCE TO INDICATE ECC IN BUFFER

JSR
JSR
ERROR

R4, OPSTRT
R4, DISEEK
4

:START THE OPERATION
:SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE

ERROR

‘MR1

“

SEQ 0063

SEQ 0064

o
Q
£

R4,DSECTR

; SIMULATE SECTOR PULSE

oo
=
L0

004437
104010
104011

023740

JSR
ERROR
ERROR

RY, DRSYNC
10

oo
WK
OoccLo

oQ4437
104012
104013
104014

024276

JSR
ERROR
ERROR
ERROR

RY4, DHDCMP
12
13
1Y

MRI CONTENTS IN ERROR
:CS1 IN ERROR AFTER g

o oo
£ L LWW
£ oo

004437

026500

JSR
ERROR

RY, DRGPSN
1S

IMR1

ERROR

NN
oo oo o oo
OO NNNNNO ng
nooc£noon Lo

; MR2

JSR

012737
012737
oo4437

MOV

JSR

R4, DREAD

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

34
35
36
41
42
43

000001
004066
027176

002346
002350

MOV
400

MOV

002326

T
Y Sy S

s ot

MOV

3%:

002254

00eese
00e214

002252

00ecie

002326

001406
012737
012701

177777
G20000

19
c9:

002350

ECPATX

#4066 , ECPOSX

$20, BITCNT

#S . RO

PC,RDBIT
PC’ECCGEN

MOV
INC
MOV
CMP
BEQ

. T.
RKECPS(R2)
CPOSX
CPOSX,E.ECPS
E.ECPT,T.ECPT
1%

CMP
BEQ
ERROR
INC
DEC
BNE
GEC
BEQ
MOV

E.ECPS, T.ECPS
2%
43
BITCNT
Rl
33
RO
us
ECPOSX

MOV

ROR READING GAP

iCS1 IN ERROR AFTER READING GAP
MRI IN ERRQR RERDIN
;LOAD EXPECTED PATTERN
LOQD EXPECTED POSITION

;GO SIMULATE DATA_RERD
INUMBER OF WORDS TO SIMULATE

IN ERROR RERDING DQTR OR ECC
ERROR READING DATA
ERROR AFTER READING DATA OR ECC
REG INCORREEE 8FTER ECC RERD

;ERR IN ECC PAT
;ERR IN ECC POS COUNT

JSR
JSR

ERROR

;GO R 90 sRP RNE BYNC

MR1
;ECC
;CS1
;ECC

#13672,R1

MOV

002214
ooe2l1z2

{RKDCYL OR RKDA IN E ROR QFTER SERRCH

icsl IN ERPOR QE E& EEEDING SYNC

MOV

CLR

; SIMULATE HEADER SERRCH

RKECPT(R2),T.

oaoboo R1

;SET BI

;SET COUN

;SET CO

:CLEAR

OUNT FOR CORRECT I ON_COUNT
OR ECCPOS PASS THRU O
I SR ECCPOS TO O FIRST PRSS

D:!H—l—dg—i omnm

ERROR

; SIMULATE HEARDER PREARMBLE

iMR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

U')CC—‘

104032
104033

—OO

ERROR

U NN NUNUN) NI NN =0 0t s bt s ot s st e s
Pt Pt pos e
O0000000ONNNNNNNNNN - NNNN
W=
r= = OO NNNCNWNT LWWNY u——0O
Lo
occLc LN SOV
U
E

oy
ey
i e
el SD Y

PAGE 64

READ DRTA WITH 11 BIT BURST ERROR

023316

ot (ot Pt st (ot ot
o Bt Bt (ot Pt P

MOS

004437

s ot Pmn Pt et Pt Pt

0000000000 000000000

W
W
W
o

10:43

:MR3

000

PPt
b ht

0000

s ot Paa Pt

00000

Dt
s ot Pt

0000000000

Bt Dt Dt Bt Bt B

T1S

02-DEC-77

b
7

104006
104007

0000

W
W LW WWILW W WWW w
WWWWwWwWwww
W www w
UMY
0 b po bt Bt bt ps
e
(=}
—OVONTCNLWh—0 o

MACY1l 30(1046)

ERROR
ERROR

011600
011e02

e
P
e

[N
n
£
wn

CZR6EBO RKb11 DSKLS CTRL PRTS
02-DEC-77 10:21
CZRBEB.PL1

PATTERN
POSITION

ON EXPECTED
PARE AND REPORT
TTERN CORRECT

OSITION CORRECT

;BUMP BIT COUNT

: DEC COUNT 70 ZERQ IN ECCPOS

:NOT YET ZERO - LOOP
:DEC_PARSS THRU 0O COUNT
:IF 0 - SKIP
:PRESET EXPECTED POS TO GO TO ZERO
:SET COUNT TO NEXT O IN ECC POS

CZR6EBO TTBll DSKLS CTRL PRTS
CZRb
6EB.P
Ce-DEC-77 10:21

MACY1. 3?{%046)

000733
005737

NN L LWWwN——-O~N
oo Lo

000716

004737

4§:

oo1214
005310
000001
1727777
co1214

002350

002220
002160

104045

002174

100000

02234

:GO DO LOOP AGAIN

157

$TMPS

; TEST SWITCH

MOV

o-l ECPOSX

BNE
MOV
MOV

JSR

JSR
MOV

6%:

S§
ssaxo R1
RO’

SEQ 0065

: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

§TMPS
33

*BUMP SWITCH
GO DO LOOP AGAIN

sONE MORE BIT TO SET READY

PC,RDBIT

#GO,E.CS]
T.C81,E.CS1
s

IGET ’'6l1 REGISTERS
iGET EXPECTED CSl
READY AND ERROR
;SET
:CLEAR GO
*CHECK IF CS1 CORRECT
:YES - SKIP

8ECH, T.ER

; TEST IF ECC HARD ERROR SET

#DCK,E.ER

ssr EXPECTED ERROR REG

RY csrasc
L.8S1,E.CS1

BIS

ORDY'CERR E.CS1

gsnoa

BIC
CMP
BEQ

002220

000100

INC
BR
S§:

031616

NOS

02-DEC-77
10:43
PAGE bS5
READ DATA WITH 11 BIT BURST ERROR

BIT

BEQ

ERROR

4§

MOV

NO SKIP

79:

012160

, o 363636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3¢ 36 36 3 36 3 3 36 3¢ 3% 36 36 3 36 36 36 36 36 6 36 3¢ 3 36 3 36 3¢ 36 3 3 3 36 36 J 2 3 2 3 3 % 3 3 3 2 X %

READ DATA WITH 12 BIT BURST ERROR

firssr 16
s

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLEAR.

CYLINDER O,

co D HEADER,

¥
¥

‘%
Ly

%
N

oo
O

001234

Y ey

e
e
NN
£0

005037
012762

002352
100000

000000

oo
ANV
Y= ———=00
noonLEnnonNn

005037

002354
032230

Ol2z224

004437

e S I

000001

Sy ey Sy
[

HEAD O,

SECTOR 0.

ANC DRIVE CLERR MESSAGES.

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE, A

400 DATA WORDS AND AN ECC INDICATING

12 BIT BURST ERROR.

POSITION REGISTER.

VERIFY THE COUNTING OF THE

MAKE SURE DRTA CHECK,

AND CONTROLLER ERROR SETS.

ECC HARD,

. o 363636 36 3 3 36 36 36 36 3 3 36 36 36 3 36 3 36 3 3 3 36 3 36 36 36 36 36 36 36 3 3 36 36 36 3¢ 36 36 3 3 3 36 3 3 3 36 F 3 I 3 3 3 3 I X

0000o0o4
012737

00000000

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA
OF 400 WORDS TO AN RKO® IN 26 SECTOR FORMAT

000
o4e632
177400
000021
031770

+&T16:

SCOPE

MOV

#1,STIMES

;;00 1 ITERATION

CLR

BSEDES

;CLEAR BAD_SEC DESIRED

MOV

CLR

$CCLR,RKCS1(R2) ;CLEAR CONTROLLER

HIBITS

sCLEAR HI ORDER BITS

JSR
0
.BYTE
BYTE
iBUFF
-400
RDDATA

O
O

'LORD "L” REGISTERS
:CYLINDER O
'SECTOR O
*TRACK O
'BUFFER ADDRESS IBUFF
*WORD COUNT -4300
!COMMAND RDDATA

JSR

R4, CLRIBF

:GO CLERAR INPUT BUFFER

R4, LORDRK

X K%K %R

vznseeo RK611 DSKLS CTRL PRTS
02-DEC-77 10:21
CZRBEB.P11
3404

340S

012230

004437

032014

g:gg

012236

012700

000530

3410

012242

012737

126073

g:gg

3911
3412
3413
3414
3415
3416
g:ig
3419

012234

012250
012256
012264
012272
012300
012304
012312
012320

00000S

012737
012737
CH42760
052760
062700
0S2760
042760
004437

151052
000001
005000
0S0100
000002
000001
000002

BO6

MACY1l 30(1046)
02-DEC-77 10:43 PAGE b6
READ DATA WITH 12 BIT BURST ERROR
T16

JSR

R4, BLDDAT

MOV

%530, R0

g
050636

0S0640
002344
047636
047636

047636
047636

032274

MOV

:GO BUILD DATA

'PATTERN 5

:SET INDEX INTO BUFFER

#126073, OBUFF +1000

:STORE ECC WORDS

MOV
MOV
BIC
BIS
RDD
BIS
BIC

oxsxosa OBUFF+1002
CCSRC
SET SOURCE TO INDICATE ECC IN BUFFER
oette-axrxxloeurtfnn)
CREATE 11 BIT BURST ERROR
93175'91712 BIT14,0BUFF (RO)
RO
;BUMP TO NEXT WORD
oeiro
OBUFF(RO)
#BI1T1,0BUFF(RO} ;MAKE IT A 12 BIT BURST ERROR

JSR
ERROR
ERROR
ERROR
ERROR

JSR

RH DISEEK
s
B
7

:SIMULATE IMPLIED SEEK
:C51 MISCOMPARE
‘MR
:MR2
IMR3
; SIMULATE SECTOR PULSE

R4, OPSTRT

;START THE OPERATION

3420
3421
3422
3423
g:gg

012324
012330
9012332
012334
012336

004437
104004
104005
104006
104007

023334

gzgg

012340

004437

023316

JSR

R4,DSECTR

3428

012344

004437

023740

JSR

R4, DRSYNC

10
11

iMR1 CONTENTS IN ERR
:CS1 CONTENTS IN snnon

3432

012354

004437

024276

JSR

RY, DHOCMP

:SIMULATE HEADER SEARCH

3437

012366

004437

026500

JSR

R4, DRGPSN

:GO RERD GAP AND SYNC

3446
3335

012376
012400

104032
104033

EPROR
ERROR

32
33

3429
gzg?
3433
3434
g:gg

3438
3439

3443

012350
012352
012360
017362
013364

012372
012374

012402

104010
104011

104012
1040:73
104014

104015
104016

012737

3444
3445
3446
3447

012410
012416
012422
012424

012737
004437
000400
104034

3450
3451
g:gg

012432
012434
012436

104041
104042
164043

3448
3449

3454

012426
012430

000001

004066
027176

ERROR
ERROR
ERROR

ERROR
EPROR
(02346

002350

104035
104036

3465

Ql2440

012446

012700

012737

000020

3q=a

012456

00S037

001214

3456

ERROR
ERROR

000005

3457 012452 012701 013672

002326

MOV

MOV
JSR
400
ERROR

12’
13
14

s SIMULATE HEADER PRERHBLE

:MR1 CONTENTS IN ERROR
:CS! IN ERROR AFTER SERRCH
:RKDCYL OR RKDA IN ERROR RFTER SEARCH

15
16

iMR1 IN ERROR READING GAP
'CS1 IN ERROR RFTER REQDING GAP

81, ECPATX

;LORD EXPECTED PATTERN

#4066, ECPOSX
R4, DRERD
34

'MR1 IN ERROR READING SYNC
:cS1 IN ERROR RFTER READING SYNC

'LOAD EXPECTED POSITION
:GO0 SIMULATE DATA READ
INUMBER OF WORDS TO SIMULATE
iMR1 IN ERROR Renoxnc DRTR OR ECC

ERROR
ERROR
ERROR
ERROR
ERROR

35
36

91
42
43

:ECC
:CSI
:ECC
'ERR
SERR

MOV

oeo BITCNT

CLR

$TMPS

:CLERR SWITCH

MOV

5. RO

clés7e R1

ERROR READING
D
ERROR AFTER RERDING DATA OR ECC

REG INCORRECT AFTER ECC READ
IN ECC PART CALC.
IN ECC POS COUNT

" BIT COUNT FOR CORRECTION COUNT

:oeT COUNT FOR ECCPOS PASS THRU O

*SET COUNT FOR ECCPOS TO O FIRST PASS

SEQ 0066

CZR6EBO RK611 DSKLS CTRL PRTS
02-DEC-77 10:21
CZRBEB. P11
gia4ee

004737

804?3?

16237
016237
005237

853737

gactes

000030
002358

001401

433935

001401
10404
523
005301

002es2

30(1046)
T16

3s:
002214
0oe21e2

0022Se
002214

0ceele

18:

2s:

002326

834303

=] o~
£ nNL oo
o

V\'O"U‘%

BHY

012737
104045

MOV

RKECPT(R2),T.

S§:

031616
032356
002260
100200
000001
002160

002220

ooo1l00

002174

100100

002234

002220

'GENERATE ECC

RKECPS(R2).7T.
ECPOSX
ECPOSX,E.ECPS

- BUMP POSTTION EXPECTED
'SET FOR_COMPARE AND REPORT

E.ECPT, T.ECPT
18

MP
BEQ
ERROR
INC
DEC
BNE
DEC
BEQ
MOV

E.ECPS, T.ECPS
2s
43
BITCNT
Rl
33
RO
qs
ECPOSX

15T
BNE
MOV
MOV

$TMPS
c§
910041 R1
RO

INC

$TMPS

Eqnon

JSR

JSR
MOV

BIS
gic

CMP
6%:

:GO READ BIT

PC.ECCGEN

CMP
BEQ

320000 R1

:CHECK IF PATTERN CORRECT
YES - SKIP

;CHECK IF POSITION CORRECT

;YES - SKIP

;BUMP BIT COUNT

: DEC COUNT T0 ZERQ IN ECCPOS

iNOT YET ZERQ
- _LOOP
iDEC PASS THRU O COUNT

{1IF 0 - SKIP

:PRESET EXPECTED POS TO GO TO ZERO
iSET COUNT TO NEXT O IN ECC POS
:GO DO LOOP RGAIN

; TEST SWITCH

c-l ECPOSX

{ALREADY SET - SKIP
:SET COUNT TO FINAL POSITION
:SET RO_TO RETURN AFTER ONE PASS
iSET EXP_POS TO GO TO O ON NEXY BIT
;BUMP SWITCH
:GO DO LOOP AGRIN

PC,RDBIT

;ONE MORE BIT TO SET RERDY

RY’GETREG
L.8S1,E.CS1

oRoY-CERR,E.CS!
8GO, E.CS!

T.C81,E.CS1

BEQ
ERROR

ss
44

BNE
MOV
ERROR

78
)
#DCK!ECH,E ER
4§

BR
BIT

:GET PATTERN
GET POSITION

7
8ECH, T.ER

IGET '611 REGISTERS
:GET EXPECTED CSI
iSET REQDY AND ERROR
:CLEAR GO
: CHECK IF CSl CORRECT
;YES - SK

$EET IF ECC HARD ERROR SET

{SET EXPECTED ERROR REG

ré H
S 3006060 00

fiTEST 17
¥

004737
004437

PC,RDBIT

JSR

MOV

002350

@sws we

012737
005237
000716

010041
000001
177777
ool1214

012701
815?06

Ys:

pol214

mewe

00S737

000733

JSR

MOV

002350

172777
020000

LASLAVTAV AV LAV VIRV IAVIAN o AV A VIR g VLAV T TN T VT 0]
~ o Ll o

S7Y

001406
012737
012701

LB 8

]

S60

SEQ 0087

02-DEC-?7
10:43
PAGE 67
READ DATA WITH 12 BIT BURST ERROR

MOV
INC
MOV

wewe Gewme

3460
346
346
3463
3464
3465
3466
3467

MACY11

CO6

R RN
RN RNERRRAEEE AR R R

RERD DATA WITH 23 BIT BURST ERROR

CLERR RKG611 CONTRO
ER WITH A CONTROLLER CLERR.
ISSUE A RERD DATA
PUT CONTROLLER IN DIAGNOSTIC MOOE.

F ORMAT
OF 400 NORDS T0 RN RKD& IN 26 SECTOR

CLOCK THRoucfi SEEK
ERD
ECTOR 0.
O
SIMULATE A SECTOR PULSE, A
snces
CLsnn MEsDATA
WORDS AND AN ECC INDICATING

O
CYLINDER
AND DRIVE

GOOD HERDER

400

A 23 BIT BURST ERROR.
POSITION REGISTER.

VERIFY THE COUNTING OF

MAKE SURE DATA CHECK,

THE

ECC HARD,

DSKLS CTRL PRTS
De-DEC-77 10:2!

MACY1L

395
1046)

: *

_10:43

SEQ 00e8

PAGE &8

AND CONTROLLER ERROR SETS.

S B

R R

;D00 1

CLR

BSECES

:CLEAR BAD SEC DESIRED

CLR
JSR
o

R4, LORDRK

HIBITS

;CLEAR HI ORDER BITS

00S037
012762

002352
100000

000000

002354
032230

012756

00s037
004437
000000
000
000
046632
177400
000021

012760

004437

031770

ISR

RY, CLRIBF

;GO CLEAR INPUT BUFFER

012764
012770

004437
00000S

032014

JSR
5

R4, BLODAT

:GO BUILD DATA

012772

12700

000S30

8530, R0

;SET INDEX INTO BUFFER

012737
012737
012737
042760
{ 2760
062700
05276
05276

126073

004437
004437
104004
104005
104006
104007

032274
023334

004437

00001

:LOAD "L* Recxsrens

gYL%NSE

eurren noonsss 1BUFF
*WORD COUNT -400
:COMMAND RDDATA

047636
047636

:PATTERN 5

#126073, OBUFF +1000

;STORE ECC WORDS

#151052’ OBUFF +1002
-SET SOURCE TO INDICATE ECC IN BUFFER
81, ECCSAC
CREATE 11 BIT BURST ERROR
neirqee§r11 0BUFF (RO)

uaxrs!a T12!8IT14 oaurr<k0) WORD
;BUMP TO NEXT
S)
R
(
OBUFF
Siro
#BITi2,OBUFF (RO) ;MAKE IT A 23 BIT BURST ERROR
:START THE OPERATION

R4, OPSTRT

R4, DISEEK

:SIMULATE IMPLIED SEEK

TMR1

023316

R4Y,DSECTR

;SIMULATE SECTOR PULSE

O
o o

10000

#CCLR,RKCS1(R2) :CLEAR CONTROLLER

RDDATA

050636
050640
002344
047636
047636

R R

ITERATION

0Q4437
104010
104011

023740

R4, DRSYNC

E
EPREAMBLE
5MU Eon sn?sADER

N
oL

ol ol

ey vy—

WL
WWWW

N
[

ey O

s bt s
P

MOV

004437
104012
184013
104014

024276

WWUN
oo

Y
W

— [
T i

o 000000
000

[ ol o ST

0000

334
59

001234

81,STIMES

000001

SCCRE
MOV

n ns
~N ~ NN
un [T
£ v -0

¥e117:

DO6

READ DATA WITH 23 BIT BURST ERROR
02-DEC-77

000004
012737

0000

N U‘m

WWWWWWwugw

[gle)

T 611

004437
104018
104016
104032

026500

:C51 MISCOMPARE

3
7

‘MR
‘MR

csx CONTENTS IN ERROR

RY, DHOCMP

: SIMULAY HERD? gsnncn

:CS1 IN ERROR AFTER_SEAR

‘MRl CONTE

R4, DRGPSN
15

ERROR

'RKDCYL OR RKDA IN ERROR QFTER SERRCH
:GO READ_GAP AND SYNC
G
MR1 IN ERROR READINR

:CS1 IN ERROR AFTER RE»DING GAP
'MR1

IN ERROR RERDING SYNC

CZRSEBO Rkb1l1
CZRBEB.PI1

DSKLS CTRL PRTS
02-DEC-77 10:21

gg;g

013134

3574

013136

013144

012737

3577
3578

013156
013160

000400
104034

3582
ggga

013170
013172

104042
104043

358S
3586

k2
013174

012737

000020

gggg

013212

00S037

001214

3591

013216

3594

013234

3575

3587

013162
013164
0131ee

013202

012737

000001

004066

3535

3596
3597
3538

3599
3600
3601
3602
3603

00000S

004737

030462
000032

013242

005237

002350

016237

013737
023737
001401

104042
023737
001401
104043
00S237

3604
3605
3606
3607
3608
3609
ggi?

013304
013306
013310
013312
013314
013322
013326

005301
001343
005300
001406
012737
012701
000733

3612

013330

005737

3613
3614
3615

013334
013336
013342

3617
ggig

~SR

400
ERROR

001012
012701
012700

013354
013360
0133t2

002326

031616

004737
016237

013264
013266
013274
013276
013300

0023S0

ERROR
ERROR
ERROR

013222
013226

013246
013254
013262

002346

10403S
104036
104041

012700

000030

002214
00e2ie

002350
002254

002252
002214

002252

002212

002326

177777
020000

002350

001214

4g§:

iNUMBER OF WORDS TO SIMULATE
:MR1 IN EJROR RERDING DATA OR ECC

R4,DRtAD

:GO SIMULATE DATA READ

820, BITCNT

;SET BIT

CLR

STMPS

:CLEAR SWITCH

PC,RDBIT

;GO RERD

JSR

35
36
41

:LOAD EXPECTED POSITION

#5 RO

!13672,R1

ERROR RERDING DATRA
ERROR AFTER READING DRATA OR ECC
REG_INCORRECT AFTER ECC RERD
IN ECC PAT CALC.
IN ECC POS COUNT

SOUNT FOR CORRECTION COUNT

;SET COUN" FOR ECCPOS PASS THRU O

;SET COUNT FOR ECCPOS TO O FIRST PASS
13IT

JSR
MOV

PC,ECCGEN
GENERQTE ECC
RKECPT(R2),T.ECP}
; 3T PATTERN

INC

ECPOSX

ERROR
cMP
BEG
ERROR
INC

DEC
BNE
DEC
BEQ
MOV
MOV
B8R
TST

RKECPS(RE),T.ECPS

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

42
E.ECPS,T.ECPS
cs
43
BITCNT

Rl
39
RO
4
8-1,ECPOSX
#20000, R1
33
$TMPS

sET POSITION

; BUMP POQITION EXPECTED

{SET FOR_-OMPARE AND REPORT
:CHECK IF PATTERN CORRECT
:YES
- SKIP
; CHECK IF POSITION CORRECT
; YES - SKIP
;BUMP BIT COUNT

:DEC COUNT TO ZERO IN ECCPOS
iNOT YET ZERO
- LOOP
;DEC_PASS THRU O COUNT
iIF 0 - SKIP
;PRESET EXPECTED POS T0 GO TO ZERO
iSET_COUNT TO NEXT
O IN ECC POS
GO DO LOOP AGAIN
; TEST SWITCH

010041
000001

5$
8100%1 R1
RO

:ALREADY SET - SKIP
iSET COUNT TO FINAL POSITION
:SET RO _TO RETURN RFTER ONE PASS

005237
000716

001214

INC
B8R

$TMPS
33

:BUMP SWITCH
:GO DO LOOP AGAIN

004737

031616

JSR

PC,RDBIT

013366
013372

004437
013737

032356
002260

3624
3625
3626

013406
013414
013422

042737
023737
001402

000001
002160

104044

MOV

S%:

I-l ECPOSX

:SET EXP POS TO GO TO O ON NEXT BIT
;ONE MORE BIT TQ SET RERDY

002220

JSR
MOV

RY, GETREG
L.8SI
E.CS1

IGET ’611 REGISTERS
{GET EXPECTED CSI

002220
002220

BIC
CMP
BEQ

#GO,E.CS1
T.C81,E.CS1
B

:CLEAR GO
{CHECK IF CS1 CORRECT
:YES
- SKIP

3623 013400 0S2737 100200 002220
013424

; LOAD EXPECTED PATTERN

BNE
MOV
MOV

3621
3622

3627

%1 ECPA

#4066, E OSX

IN ERROR AFTER RERDING SYNC

MOV

MOV
cMP
BEQ

2s%:

;CS1

42
43

MOV

1S:

ERROR
ERROR

MOV
38:

SEG 0069

;ECC
;CS1
;ECC
;ERR
;ERR

MOV

3616 01334 012737 177?77 002350

3620

EOG

-DEC-77
10:43
PAGE 69
R f3 DATA WITH 23 BIT BURST ERROR

ExROR

3588 013206 012701 013672
359¢
3593

30(1046)
T17

104033

3576 0131Se 004437 027176

3579
3580
3581

MACY11l

BIS

ERROR

.RDY'CERR E.CS1 ;SET READY AND ERROR

CZRHEBO RKG11 DSKLS CTRL PRTS

CZRGEB.P11
3628

013426

3629
3630
3631

013430
013436
013440

gggg

013450

gggg

013446

02-0EC-77 10:21
000410

032727
001004
012737
104045

MACY1l 30(1046)

000100

002174

100100

002234

02-DEC-77

10:43

FO6

PAGE 70

T1?7

READ DATA WITH 23 BIT BURST ERROR

6%:

BIT
BNE
MOV

ERROR

$ECH, T.ER
79
$DCK'ECH,E.ER

s TEST IF ECC HARD ETROR SET
'YES - SKIP
:SET EXPECTED ERROR REG

7S:

3636

H 363636 36 3 3 3 3 36 36 36 36 36 3 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3% % 3 33 3 W 33K 4N EEEEE

gggé

*kTEST 20
B

{

READ DATA WITH 1 BIT ECC WORD ERROR

3639
3640
3641

y°
x
‘x

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

3643
3644
3645
3646

‘¥
D%
"
Ly

AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE, A
GOOD HEADER, 400 DATA L'ORDS AND AN ECC INDICATING
A1 BIT ERROR IN ECC W. D 2, BIT 6. VERIFY THE
COUNTING OF THE POSITIOI, REGISTER. MAKE SURE DATA

3642

‘x

3235

Ly
.« ¥

CYLINDER O,

HEAD O,

SECTOR 0.

CLOCK THROUGH SEEK

CHECK AND CONTROLLER ERROR SETS.

.. 362636 36 36 96 35 36 3 3 36 36 36 3 3 3 36 36 3 36 3 3 3 3 3 3 3 36 3 3 3 36 3 3 3 3 3 36 3% 3 3 3 3 3 3 3 3 3 3 3 3 3 % XX ®EERRR
t8120: scorPe

3649
3650

013450

000004

012737

000001

001234

3653
gggg

013460
013464

005037
012762

002352
100000

0000CO

3656

013472

00S037

3688
3659
3660
3661

013502
013504
013505
013506

000000
006
000
046632

322%

013514

004437

031770

JSR

RY,CLRIBF

:GO CLEAR INPUT BUFFER

3667
3668

013520
013524

004437
000005

032014

JSR
g

RY, BLDDAT

:GO BUILD DATA
:PATTERN S

3671

013526

012700

001002

#1002,R0O

.SET INDEX INTO BUFFER

3673

013540

012737

151052

32%5

3657
3662
ggga

£
3672

3674

3675
3676
3677

3678

3679
3289

3682
3683

013452

013476

013510
013512

013532
013546

013554

013562
013564

013572

013574

013602

013602
013606

004437

002354

032230

050636

012737

00000!

002344

001004
052760

000100

047636

042760

000100

047636

004437
004437

032274
023334

000403

;D0 1 ITERATION

CLR
MOV

BSEDES
#CCLR,RKCS1(R2)

:CLEAR BAD SEC DESIRED
:CLEAR CONTROLLER

CLR

HIBITS

0
BYTE
‘BYTE
iBUFF

O
O

RY’, LORDRK

~400
RDDATA

126073

032760

#1,STIMES

JSR

177400
000021

012737

MOV

000100

MOV

050640

101%:

:WORD COUNT -4300
:COMMAND RDDATA

#1260?3, 0BUFF +1000

MOV

%1, ECCSRC

;SET_SOURCE TQ INDICATE ECC IN BUFFER

BNE
BIS

1008
#BIT6,0BUFF(RO)

'YES - SKIP
;ELSE SET BIT

BIT
100%:

CYLINDER O
:SECTOR O
'TRACK O
'BUFFER RDDRESS IBUFF

MCY

MOV

047636

:CLEAR HI ORDER BITS

'LOAD "L* REGISTERS

8151052 OBUFF +1002

:STORE ECC WORDS

#8176, 0BUFF(RO) :TEST IF BIT SET
1018

BIC

#BIT6,0BUFF
(RO) ;CLEAR BIT

JSR
JSR

RY, OPSTRT
R4.DISEEK

:START THE OPERATION
'SIMULATE IMPLIED SELK

SEQ 0070

CZREEBD RKE11 DSKLS CTRL PRTS
CZReEB.PI11
0e-DEC-77 10:21

MARCY11

30(1046)
Te0

GO6

10:43
PAGE
7
02-DEC-77
1
1 BIT ECC HORD ERROR
READ DATA WITH
ERROR
ERROR
ERROR
ERROR

c51 MISCQMPARE

MRE

023316

JSR

RY,DSECTR

;s SIMULATE SECTOR PULSE

004437
104010
104011

023740

JSR
ERROR
ERROR

RY, DRSYNC

013636
013642
013644
013646

004437
104012
104013
104014

024276

3700
3701
3702
3703

013650
013654
013656
013660
0136k2

004437
104015
104016
104032

026500

3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3781

013664
013672
013700
013704
013706
013710
013712
013714
013716
013720

012737
012737
004437
000400
104034
104035
104036
104041
104042
104043

0000C!
004066
027176

013722
013730
013734
013740

012737
012700
012701
005037

000020
00Q00S
013672
001214

3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3739

013744
013750
013754
013762
013770
013774
014002
014010
014012
014014
014022
014024

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

031616
Q30462
000032
000030
002350
002350
002254

3684
3685
3686
gggg

013612
(013614
013616
013620

104004
10400S
104006
104007

3689
3690
36391
3692
3633

01322

004437

013626
013632
01334

3695
3636
3697
3638

3704

3735
3736
3737
3738
3739

014026
014032
014039
014036
014040

: SIMULATE HERDER SEARCH

81, ECPATX

#4066 , ECPOSX
R4, DREAD
34

3s
36
91

42
43

002252
002326

#20,BITCNT

39:

00c214
ooeele

002252
ooeelHy
0oecie

19%:

29%:

: SIMULATE HEADER PREAMBLE

RY, DHDCMP

15
16
kF
33

002326

'MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

RY, DRGPSN

002346
002350

‘MR3

10
11

12
13
14

104033

001406

'MR1 CONTENTS IN ERROR
:cS1 IN ERROR AFTER SEAR

'RKDCYL OR RKDA IN ERROR nrrsn SEARCH
:GO READ GAP _AND SYNC

‘MRl
:c51
:MR1
!cs1

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

:LORD EXPECTED PATTERN

:LORD EXPECTED POSITION
1GO SIHULRTE ATA RERD
:NUMBER OF WORDS TO SIMULATE
‘MR1 IN ERROR RERDING DATA OR ECC

'ECC ERROR READING DATA
'CS1 ERROR AFTER READING DATA OR ECC
!ECC REG INCORRECT AFTER ECC RERD

'ERR IN ECC PAT CALC.
:ERR IN ECC POS COUNT

:SET BIT COUNT FOR CORRECTION COUNT

#5 RO
#13672,R1
$TMPS

;ssr COUNT FOR ECCPOS PASS THRU O
!SET COUNT FOR ECCPOS TO
O FIRST PASS
‘CLERAR SWITCH

PC,RDBIT

:GO RERD BIT

! GENERARTE ECC
PC.ECCGEN
;GET PATTERN
RKECPT(R2),T.ECP}
:GET POSITION
RKECPS (R2) , T ECPS
eunp POSITION EXPECTED
ECPOSX
;SET FOR COMPARE AND REPORT
ECPOSX,E.ECPS
;CHECK IF PARTTERN CORRECT
T.ECPT
E.ECPT
53
:YES - SKIP
E.ECPS,T.ECPS

BITCNT

Rl
33
RO

4§

;CHECK IF POSITION CORRECT

IYES - SKIP

:BUMP BI:

COUNT

‘DEC COUNT TO ZERO IN ECCP0S
:NOT YET ZERO - LOOP

‘DEC PASS THRU O COUNT

‘IF 0 - SKkIP

SEQ 0071

CZR6EBO RKB11
CZR&EB.P11

DSKLS CTRL PRTS
02-DEC-77 10:21

3740

0l1M0N2

012737

g;:g

014054

000733

3744

014056

005737

177777

3741 014050 012701 020000

814890 8 5?86 868861

814185

883

001214

81&110

084737

031616

3;21
3752

014074

141

01273?

3783
3754
3765
3766
3757

014114
014120
014126
014134
014142

004437
013737
052737
092737
023737

3760

0141549

000410

3758
3789

814150
014152

3761
3762
3763
g;gg

014156
014164
014166
014179

g;gg

014176

001402
104044

032737
00I40M
012737
104045

177777

30(1046)
120

002350

001214

3748

MACYll

02-DEC-77
10:43
PAGE 72
READ DRTA WITH 1 BIT ECC WORD ERROR

MOV

MOV
4§:

002350

002220
002220
002220
002220

000100

002174

100000

002234

&§:

'SET COUNT TQ NEXT O IN ECC POS

:GO DO LOOP RGRIN

157

$TMPS

; TEST SWITCH

MOV

01,86 ’

gET 38 T0 Rgrufi 5r83
ONE PASS

INC

STMP

JSR

PC,RDBIT

;ONE

BEQ
ERROR

6%
4

'YES
- SKIP

BIT
BEQ
MOV
ERROR

8ECH, T.ER
78
#DCK,E.ER
45

s TEST IF ECC HARD ERROR SET
'YES - SKIP
'SET EXPECTED ERROR REG

MOV

S§:

:PRESET EXPECTED POS TO GO TO ZERG

032356
002260
100°00
000001
002160

ECPOSX

ceoboo R1

SEG 0072

J5R
MOV
BIS
BIf
CMr

B8R

8-1

gcposx

ET EXP P s TO GO TO O ON NEXT BIT

UMP
S

co DO LOOP ncnln
MORE

BIT TO SET READY

R4’ GETREG
'GET '611 REGISTERS
L.¢SI,E.CS1
:GET EXPECTED CSI
#ROY!LERR,E.CS1 SET RERDY AND ERROR
#GO,E.C51
:CLEAR GO
T.C81,E.CS1
cuscx IF CS1 CORRECT

7%:

3768

; R

g;gg

v
2IIIYIIZ2Z22222X32222X2222 XYL

,irssr 21
R

3771
3772
373

L x
'y
s

18 BIT NPR WRITING OF MEMORY

222222222 X

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
xssus n READ DARTA
OF 400 uonos TO nn RKO& IN 24 SECTOR FORM

3774
3775

Ly
%

O TRDEAB HEADD, SECTOR B. "CLOCK THROOGH SEEK
nno ORIVE CLEAR nsssncss SIMULATE A SECTOR PULSE

g;;g

‘x

ARE WRITTEN PROPERLY IN MEMORY

377

Ly
»

3779
3780

014176

014200

012737

000012

3783

014206

005037

002352

3786

014220

00S037

002344

g;gé

g;gg

014212

000OOOM

0i2762

3787
3788
3789
3790

014224
014230
0l4234
014236

005037
004437
000000
000

3792

014290

046632

3791

3793
gzgg

(014237
Q14242
014244

000

177400
010021

100000

002354
032230

001234

000000

A GOOD HEADER,

40 DATA WORDS.

vsnxrv THAT THE WORDS

: o 35 3 36 36 3 3 36 36 3 36 3 36 36 36 36 3 36 3 3 3 36 36 3 3 36 36 3 3 I I J 3 3 3 3 W U 3 3 3 W I % I 3 3 I I 3¢ 3¢ K XK ® ¥ KE R E R EHE
t&121:
SCOPE
MOV

#10.,STIMES

::D0

CLR

BSEDES

;CLEAR BAD SEC DESIRED

CLR

ECCSRC

;CLEAR ECC SOURCE

MOV

CLR
JSR
0
.BYTE
‘BYTE

1BUFF

10.

ITERATIONS

#CCLR,RKCS1(R2) :CLEAR CONTROLLER

HIBITS
R4, LOADRK
O

-400
RDDATA!CFMT

:CLEAR HI ORDER BI~S
;LOAD "L* REGISTERS
CrLINOE 0
,ssc
OR O

:TRACK O

'BUFFER RDDRESS IBUFF

*WORD COUNT -400
: COMMAND RDDATA!CFMT

106

CLR&EBO RKB11l DSKLS CTRL PRTS
02-DEC-77 10:21
CZRBEB.PILI

g;g§
4

3798

3799

MACY 1 30(1046)
02-DEC-77 10:43 PRAGE 73
18 BIT NPR WRITING OF MEMOR'Y
Tel

SEQ 0073

014246

004437

031770

JSR

RY,CLRIBF

;GO CLERR INPUT BUFFER

0Ql4252

004437

032014

JSR

R4, BLDDPT

; GI BUILD DARTR

014eSe

000003

PATTERN 3

3803
3804
3805
3806
Qggg

014264
014270
Q14272
014274
0l4276

014260

004437

032274

JSR

JSR
ERROR
ERROR
ERROR
ERROR

R4, GPSTRTY

Rq DISEEK
S
b
7

; START THE OPERATION

gg?g

014300

004437

023316

JSR

R4,DSECTR

; SIMULRTE SECTOR PULSE

014304

004437

023740

JSR

R4, DRSYNC

; SIMULATE HERDER PREAMBLE

JSR

RY, DHDCMP

; SIMULATE HERDER SERRCH

JSR

R4, DRGPSN

;GO READ GAP AND SYNC

3802

3811

004437
104004
10400S
104006
104007

3812
ggia

014310
014312

3815

014314

004437

024276

014326

004437

026500

3816
3817
gg{g
3820

3821
3822
3823
gggg
3826

3827
3828
3829
3830
3831
3832
3833
3834
gggg

3837

3838

014320
Q14322
014324
014332
014334
014336
014340
0I4342

014350
014356
0l436e
0l4364

104010
104011

023334

104012
104013
104014

10401S
104016
104032
104033

012737

012737
004437
000060

014366
014370
014372
014374
014376

104034
104035
104036
104041
104042
104043

ERROR
ERROR

000000

005066
027176

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
002346

MOV

002350

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

34
35
36
41
42
43

;ECC
;CS1
;ECC
;ERR
;ERR

#0BUFF ,RO

;SET POINTER TO GOOD _DATA

047636

MOV

3841

014410

012704

000012

MOV

005037
005037
012703
00S00S

3847

Ql4432

021011

3848
3849
3850
3851

O0Ol4434
014436
0Ol14440
0Ol4442

(001005
005303
0O0i4eMd
005205

MOV

001236
001220
000040

CLR
CLR
MOV
CLR
19%:

4$:

IN ERROR READING
IN ERROR AFTER RERDING GRP
IN ERROR READING SYNC
IN ERROR RFTER RERDING SYNC

;LOAD EXPECTED PRTTERN

012700

0QI4414
Q014420
Q0lv4ed
014430

iMR1
:CS1
{MR1
:CS1

#0,ECPATX

014400

3842
3843
3844
gg:g

IS
16
32
33

:MR1 CONTENTS IN ERROR
:CS1 IN ERROR AFTER_SERR
;RKOCYL OR RKDR IN ERROR QFTER SERRCH

#5066, ECPOSX
R4, DREAD

014404

046632

12"
13
14

!MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

MoV
JSR

ggag

012701

10
11

;SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
:MR1
:MR2
*
*
MR3

CMP

BNE
DEC
BEG
INC

$I1BUFF,RI
#10.,RY

;LORD EXPECTED POSITION
;GO SIMULATE DATA_RERD
:NUMBER OF WORDS TO SIMULATE

;MR1 IN ERROR RERDING DRTR OR ECC
ERROR RERDING DAT
ERROR AFTER RERDING DATA OR ECC
REG_INCORRECT ARFTER ECC RERD
IN ECC PAT CALC.
IN ECC POS COUNT

;SET POINTER TO INPUT DRTA
T ERROR LIMIT COUNT

SESCAPE
STMP?
#40,R3
RS

CLERR ESCAPE
:CLEAR ERROR REPORT SWITCH
:SET COMPARE LIMIT
:CLEAR WORD COUNTER

(RO, (R1)

; COMPARE DRTA

23
R3
5%
RS

(SKIP IF NOT EQUAL
:ELSE DEC NORD COUNT LIMIT
:IF 0 - SKIP TO EXIT
:BUMP WORD COUNT

CZRHEBO RKb11 DSKLS CTRL PRTS
CZRBEB.P 11
0e-DEC-77 10:21

MACY11

30(1046)
T21

022021l
000771

2%:

005304
001417

011037
011137
0105837

001162
001164
001166

005737
001004
005237
104037
000754

001220

02-DEC-77

(RO)+, (R1)+
18

; BUMP DATA POINTERS
: LOOP

DEC
BEG

RY
3

;0EC ERROR LIMIT
(IF 0 - SKIP

(RO, ,$REGO

;GET GOOD WORD FOR REPORT

757

BNE

INC
ERROR
R

3%:

SEQ 0074

PAGE 74

cMP
BR

MOV
MOV

104040
0007s2

JO6

18 BIT NPR WRITING OF MEMOR'Y

MOV

001220

10:43

(R1) [$REGI
RS, SREG2

:GET BAD WORD
iGET WORD NUMBER

$TMP?

;OECIDE WHICH ERROR REPORT TO USE

§TMP?
37
4g

ERROR 40
BR
43

SKIP IF NOT o
:

;REPORT ALL OTHER LINES
; SKIP

SS:
X

Y1 222222222222222%32223x2:12222*2212222X22X22X22XX2222222222222222
223

irssv 22

5*
S x
Ty

T
D%

Pt Bt Pt

s Pt Pt ot Pt Pt Pt Pt P

000000000000

Pt Pt

£ LfLLLrrfLrf
L
kL
n dniditnninnin.
o oL
LW
=
£ nNoONCLO0OL£0OLE0MN
£

¥
000004

18 BIT READ DATA WITH NO ERROR

CLEAR RKG11 CONTROLLER WITH R CONTROLLER CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.
IS SUE A READ DATA
OF 400 uonos 70 RN RK06 IN 24 SECTOR FORMAT

TOR
CYLINDER
O, HERD
O, SECTO

CLOCK THROUGH SEEK

SIHULQTE A SECTOR PULSE
nsésnces
AND DRIVE CLEAR 400
R GOOD HERDER,
DATA WORDS, AND
A GOOD 32 BIT ELC.

VERIFY THAT COMMAND COMPLETES' WITHOUT ERROR.

: o 363636 3 3 3 36 3 3 3 3 3 3 3 3 36 96 3 3 36 36 3 3 3 3 9 3 3 3 3 3 3% 3% 3 3 3 3 3 3 3 3 B % 3 3 3 3 ¢ 3% % % WKk H %% E R EK®E R

012737

000001

005037

002352

032230

001234
000000

¥4722:

SCOPE

#1,8TIMES

;;00 1

CLR
MOV

BSEDES
#CCLR ,RKCS1(R2)

; CLEAR BRD _SEC DESIRED

CLR
CLR
JSR

ECCSRC
HIBITS
R4, LORDRK

CLR

BYTE

.BYTE

ECCSRE

:CLEAR CONTROLLER
: CLEAR ECE SOURCE ¢

:CYLINDER O
,sec OR O

IBUFF
-400
RODATA! CFMT

177400
010021

ITERATION

MOV

'LGAD "L" REGISTERS
' TRACK 0

i BUFFER RDDRESS IBUFF
:WORD COUNT -400

; COMMAND RODARTR!CFMT

014566

oo4437

031770

JSR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

014572
014576

004437
000004

032014

JSR

R4, BLDDAT

;GO BUILD DATA

014800

ooN437

032274

JSR

R4, OPSTRT

:STRRT THE OPERARTION

*PATTERN

oL£no
L

023334

014620

oo4437

023316

014624
014630
14632

023740

004437
104010
104011
004437
104012
104013
104014

Ge4276

004437
104015
104016
104032
104033

026500

012737
012737
004437
000400
104034
10403S
104036
104041
104042
104043

000000
005066
027176

012700

003100

0leve2

000440
000040

£fLLL
L

004437
104004
104005
104C06
104007

0000

DSKLS CTRL PRTS
02-DEC-77 10:21

o
[4V]
pe

oL£MVO

Pt pms P

0000000000

Pt oo Pt Pt P

00000

Pt B

NNNNN
J:I.S.E.:.:J:-C.Cof
L £

W
£

00000

£
o

1460
1461
1461
1461
1461

Pt e (e s ot Pt e Pt P

Pt
Pt Pt Pt Pt Pt Pt Pt Pt P

ODONONLW—0

WWWWWwWwWwwww
DO DO DD DDD
DO

CZREEBO RKB611
CZR6EB.P 11

MACY1l 30(1046)
Te2

JSR

R4, DISEEK

ERROR

ERROR
ERROR

1$:

MR1

;SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

: SIMULATE HEADER PREAMBLE

JSR

RY, DHDCMP

12’
13
1Y

'MR1 CONTENTS IN ERRR
:CS1 IN ERROR AFTER SEARCH
'RKDCYL OR RKDA IN ERROR AFTER SEARCH

R4, DRGPSN

:GO READ GAP AND SYNC

10
11

:MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

:SIMULATE HERDER SEARCH

ERROR
ERROR
ERROR
ERROR

15
16
32
33

‘MR1
'cSl
'MR1
:cS1

MOV

#0, ECPATX

:LORD EXPECTED PATTERN

34
35
36
41
42
43

:LORD EXPECTED POSITION
'GO SIMULATE DATA_READ
:NUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR READING onrn OR ECC
*ECC ERROR READING DATA
:CS1 ERROR AFTER RERDING DATA OR ECC
'ECC REG INCORRECT AFTER ECC READ
'ERR IN ECC PAT CALC.
‘ERR IN ECC POS COUNT

MOV

#40. #40. ,RO

:SET COUNT TO EMPTY SILO

MOV

#DMD
' MCLK,

DEC

;DEC_COUNT

JSR

RY, GETREG

;GE_

MOV

CMP
BEQ
ERROR

#5066, ECPOSX
R4, DREAD

IN ERROR READING
IN ERROR RFTER REQDING GAP
IN ERROR RERDING SYNC
IN ERROR AFTER READING SYNC

MOV
JSR
400
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

BIS

cs1 MISCOMPARE

R4, CSECTR

MOV
BIC

002220
002220
002220
002220

sSIMULATE IMPLIED SEEK

JSR

8NE
032356
00260
000001
000200
002160

SEQ 007S

nRa
'MR3

ERROR
ERROR
ERROR

000026
000026

PAGE 7S

6
7

ERROR
ERROR

002346
002350

10:43

18 BIT RERD DATA WITH NO ERROR

ERROR

001370

oo443?
013737
042737
052737
023737
001401
104056

02-DEC-77

KO6

RKMR1 (R2)

$DMO, RKMR1 (R2)

651 .CS1
c51

sno? £.CS1

7.CSi,E.CS1
as
56

;CLOCK CONTROLLER

:LOOP UNTIL O
611 REGS

:GET EXPECTED cSl
'CLERR GO

:SET RERDY ex

:CHECK IF CS1 CORRECT
*YES- SKIP
:#CS1 IN ERROR AFTER READ DATR"

; o 3636 3 3 36 3 36 36 3 9 3 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 X 3 W I 3 3 3 3 3 3 3 3 3% 3 % 3% % % * Kk %%

irssr 23
,*

‘¥
ix

18 BIT READ DRTA WITH DCK

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.

ISSUE A READ DATA
PUT CONTROLLER IN DIAGNOSTIC MODE.
OF 400 WORDS TO AN RKO® IN 24 SECTOR FORMAT,

39é§046)
s msws
8w @
a0
—+ tes
U= e OB RO
K

MACY11

LO6

7
>EQ 0076

PAGE 76
DCK
18 BIT READ DATA WITH
02-DEC-77

10:43

CYLINDER O,

O
HEAD

sscron

CLOCK THROUGH SEEK

nNo8vaE éksna ns $ss SIMULATE A SECTOR PULSE
ORDS, AND AN ECC INDICATIAG

BIT BURQT ERROR REYOND YHE 4128TH BIT OF THE SECTOR.
ons
VERIFY THE COUNTING OF THE POSITION REGISTER AND
T

FINAL PATTERN AND POSITION.

CONTROLLER ERROR SETS.

MAKE SURE DATA CHECK nno

< 230 3636 36 3 36 36 36 96 38 3 36 36 36 3 3 3 6 36 36 36 36 36 36 3 36 36 36 36 3 3 3 3 36 3 3 3 36 36 3 3 3 36 36 36 3 36 3 3 3 36 3¢ 36 3 o6 3 36 3 3 2 3

MOV

#1,STIMES

;00 1 ITERATION

(& =)

SCOPE

000001
002352
100000

MOV

CLR

BSEDES

:CLEAR BAD SEC DESIRED

CLR

HIBITS

;CLEAR HI ORDER BITS

002354
032230

004437
000007

032014

000734
006030
045070
000001
000100

n
o
oo
oo
NN
o

T ol

—

oy
.

004437
104012

; COMMAND RDDATA!CFMT

JSR

R4,CLRIBF

;GO CLERR INPUT BUFFER

JSR

RY,BLDDAT

;GO _BUILD DATA

MOV

#734,R

:SET INDEX INTO BUFFER

MOV
MOV

sqso7b OBUFF+1002
CCSRC
{SET_SQURCE _TQ_INDICATE ECC IN BUFFER

MOV

BIT

;PATTERN 7

#6030 oaurr+1ooo

:STORE ECC WORDS

IF BIT SET
OBUFF(RO) TEST
oeth
- SKIP
YES
1003

000100

gés

fS{IB OBUFF (RQ) ELSE SET BIT

000100

BIC

$BIT6,0BUFF(RO)

104006
104007

004437
104010
104011

O
O

1 ORD LTM REGISICRS
:CYLINDER O
:SECTOR O
:TRACK O
'BUFFER ADDRESS IBUFF
:WORD COUNT -400

BNE

032274
023334

000

Pt Bt Bt et Bt s

L LW
Lo

Pt s Bt e B

e e () OO O

WWHN——O N
ococcoocon Lo

(A Vg Ua{ValUalVa IV al¥alValtalin VAIUAIUATN LTV, ]
[13)

031770

004437

R4, LORDRK

RDDATA! CFMT

DO4437

ot bt P

Pt Pt P

Pt B

Bt P

O0O00D0OO0O0OC0000
000000
o

0
046632
177400
010021

JSR
0
.BYTE
BYTE
iBUFF
-400

#CCLR,RKCS1(R2):CLERAR CONTROLLER

023316

£23740

024276

JSR

R4, OPSTRT

;CLEAR BIT

:STARRT THE OPERATION

JSR
ERROR
ERROR
ERROR
ERROR

RH DISEEK
s
b
7

*SIMULATE IMPLIED SEEK
:C51 MISCOMPARE
‘MR1
.
IMR2
.
*MR3

JSR

R4, DSECTR

; SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

10
11

‘MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

JSR

R4, DHDCMP

:SIMULATE HERDER SEARCH

ERROR
ERROR

ERROR

: SIMULATE HEADER PREAMBLE

'MR1 CONTENTS IN ERROR

CZRGEBO RKb11

CZRGEB.P11

DSKLS CTRL PRTS

02-DEC-77 10:21

4020

015200

104013

4023

015204

004437

4035

0183812

104016

15214

38§é

015202

MARCY1l

30(1046)

T23

104014

qfisq §1§§18 1§w 15

026500

050 Biéigu
Dlosee §015737
:831
g: g 90s0nb
82?195 00SacH
4835 813 4o 104034

4832
812 s0 104051
4037 016252 104042

104043

015256

012737

000022

015300

004737

031616

oisaxg

06623;

000030

4052

015336

023737

002254

4054

015346

104042

4040

4o41

4042
4yo43
3832
4046

4047
4048

:oqg

016264
015270
015274
015304
015310

012700
012701
005037
004737
016237

00OOCS
012672
001214
03046
000032

002326

4055

4056
4057

4058

015394

(015350

015356

015360

015362

001401

023737

001401

104043

005237

002252

015366
015370
015372

4063

015376

012737

3822

015410

000733

4067
4068
4069
4070

015412
015416
015420
015424

00S737
001012
012701
012700

001214

4072

018436

4075

DIS444

015374

RY, DRGPSN

;GQ

ESSOR

:CS1

IN ERROR AFTER SEARCH

'RKDCYL OR RKDA IN ERROR AFTER SEARCH
READ

31N

_GAP AN

ERROR RER IN GAP

IN ERROR RFTERNRERDING GAP

RO %

TG 1N AR ARG
o

Hov
gsn

sggon

'éaEE"EEéosx
R4,
DREARD
34

t82°
EXPECTED
$8£*$¥8~
N"gxgu
5$E§n
In

RROR

§1
42

Egé
ssc 1NCOREEC$ 9*53 Ecc READ
"ERR IN ECC PAT CALC.

#22,BITCNT

sSET BIT COUNT FOR CORRECTION COUNT

]

H § gnnog Réno?ng 0359 SR ECC

‘ERR IN ECC POS COUNT

%5 R0
212672,R1
$TMPS

:SET COUNT FOR ECCPQOS PASS THRU O
:SET COUNT FOR ECCPOS TO O FIRST PRSS
:CLERR SWITCH

JSR

PC,RDBIT

:GO RERD BIT

002212

?gg

Réggpi(na>,r.scps P Pob 71050 %TION 0

002214

CMP

E.ECPT,T.ECPT

ERROR

3%:

002214

002212

JSR
MOV

MOV
BEQ

1%:
2%:

PC ECCGEN
: GENERATE ECC
RKQCPT(RE).T.ECPT
sGET PATTERN

¢PO3X,E.ECPS

CMP

E.ECPS, T.ECPS

ERROR

BEQ
INC

ger FOR éOMPnRE
AND REPORT

CHECK IF PQTTERN CORRECT
YES
- SK

;CHECK IF POSITION CORRECT

'YES - SKIP

BITCNT

sBUMP BIT COUNT

Rl
33
RO

:DEC COUNT TO ZERO IN ECCPOS
*NOT YET ZERQ - LOOP
oec PASS THRU O COUNT

MOV

-1,ECPOSX

oaoboo R1

PRESET EXPECTED POS TO GO TO ZERO

:G0 DO LOOP AGAIN

010272
000001

TST
BNE
MOV
MOV

§$TMPS
3
310272 R1
RO

s TEST SWITCH
!ALREADY SET - SKIP
*SET COUNT TO FINAL POSITION
:SET RO TO RETURN AFTER ONE PASS

005237

001214

INC

§TMPS

004737

031616

JSR

PC,RDBIT

001406

177777

BEQ

002350

MOV
4§ :

407: 015430 012737 177777 002350
018442

JSR

DEC
BNE
DEC

4064 015404 (12701 020000

3833

SEQ 0077

MOV
MOV
CLR

002326

4059
4060
4061
4062

005301
001343
005300

:CS1

MOV

w8§1 81?350 813537 885328 op2ase

4053

PAGE 77

ERROR
ERROR

015254

MO6

ERROR

E%ROR

10:43

18 BIT READ DATA WITH DCK

ERROR

8% Blesll 188

3833

02-DEC-7?7

000716

MOV
BR
5g:

F O - SKIP

'SET COUNT TO NEXT O IN ECC POS

u-l ECPOSX

:SET EXP POS TO GO TO O ON NEXT BIT

:GO DO LOOP AGAIN

:BUMP SWITCH

;ONE MORE BIT

TO SET READY

CZRGEBO RKG11 DSKLS CTRL PRTS
CZRGEB. P11
02-DEC-77 10:21
4076

4077
4078
4079

015450

015484
015462
015470

004437

013737
062737
04942737

032356

002260
100200
000001

MACY1l 30(1046)
723

4084
4085

4086

0i5506
015510

104044
000410

015522

012737

Q15512
015520

:ng

015530

3883

015532

032737
001404
104045

000100

002174

100000

002234

02-DEC-77
10:43 PARGE 78
18 BIT RERD DATA WITH DCK
JSR

002220
002220
002220

MOV
BIS
BIC

4080
015476
023737
002160 002220
4081
015504
001402

4082
4083

NO6

CMP

6%:

SEQ 0078

RY csrnec

:GET ’611 REGISTERS

céx E.CS!I

L.lSI,E.CS1
:GET EXPECTED CSI
caovCERR £.CS1 ;SET RERDY AND ERROR
.cs1’
:CLERR GO

BEQ

'CHECK
IF CS! CORRECT
:YES - SKIP

BIT
BEQ

8ECH, T.ER
73

; TEST IF ECC HARD ERROR SET
NO SKIP

ERROR
BR

MOV

ERROR

44
7%

80DCK,E.ER

ssr EXPECTED ERROR REG

4§

7%:

4091

I 363 36 9 3 3 36 36 36 36 36 36 3 36 36 3 3% 36 36 3 3 36 36 36 36 3 36 3 3 36 3 3 36 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 3 % 3 % 3 % 3% 3 % %

4094

4097

4093

383%

;iTEST v

4035
4096

4038
4100
Y104
4105

015532

0092004

012737

000001

4108

015542

005037

002352

4111l

015554

005037

002354

4115

018867

000

4116
4117

AND DRIVE CLEAR nsésnces.

018534

4112
4113
4114

:igg

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
R READ DATA
OF 400 WORDS TO AN RKOB IN 24 SECTOR FORMAT

3%83

015846

015560
015564
015566

012762
009437
000000
000

100000

001234

000000

032230

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEQR

'x
Sx

4101

18 BIT RERD DARTA WITH ECH

CYLINDER O,

(4ERD 0,

A GOOD HEADER,

SECTOR 0.

CLOCK THROUGH SEEK

SIMULATEA SECTOR PULSE

400 DATA WORDS AND AND ECC INDICATING

A 12 BIT BURSY ERROR.
POSITION REGISTER.

VERIFY THE COUNTING OF THE

MAKE SURE DATE CHECK, ECC HARD,

AND CONTROLLER ERROR SETS.

: o 363636 36 26 36 36 36 36 36 36 36 36 36 3 36 36 3 3 3 36 3 36 36 36 36 36 3 3 36 3 3 36 3 3 3 36 36 36 3 3 36 3 3 3 3 3 3 I 3 3 3 36 3 I 3 I % % K X% X %
¥&724:
SCOPE
MOV

81,$TIMES

;00 1 ITERATION

CLR

BSEDES

s CLEAR BAD_ SEC DESIRED

CLR

HIBITS

:CLEAR HI ORDER BITS

MOV
JSR
0
BYTE
'BYTE

R4, LORDRK
O
O

ILOAD "L* REGISTERS
:CYLINDER O
secron 0
RACK O

:iig

015570
015572

015574

046632
177400

3159

015576

004437

031770

JSR

R4, CLRIBF

:GO CLEAR INPUT BUFFER

4122

015602

004437

032014

JSR

R4, BLDDAT

;GO BUILD DATA

4126

015610

012700

000734

MOV

;SET INDEX INTO BUFFER

4128
4129

015622
015630

012737
012737

071720
000001

050640
002344

MOV
MOV

s71720 OBUFF +1002
ECCSRC
SET SOURCE TO INDICATE ECC IN BUFFER

4131

O015e44

052760

0S0100

047636

4123

015606

1BUFF
-400

#CCLR,RKCS1(R2);CLEAR CONTROLLER

010021

00000S

RDDATA!CFMT

4127 015614 012737 004020 050636

4130 015636 042760 005000 047636

MOV

BIC

BIS

aurrsn ADDRESS IBUFF
{WORD COUNT -400

: COMMAND RDDATA!CFMT

'PATTERN &

oqoeb oaurr+1ooo

sSTORE ECC WORDS

oette'axrxx OBUFFTRO) . :CREATE 11 BIT BURST ERROR

#BIT6IBITI21BIT14, OBUFF (RO)

CZR&EBO RK611 DSKLS CTRL PRTS
02-DEC-77 10:21
7R6EB.PL1

BO7

MACYIl 30(1046)
02-DEC-7?7 10:43 PAGE 79
18 BIT READ DRTR WITH ECH
T4

4132

SEQ 3079

000002
4133 015652
015656 062700
052760 000002
000001 047636
047636

ARD

:igg

015664

042760

BIS
BIC

;BUMP TO NEXT WORD
.BiTO
OBUFF
(RO)
#8IT1,0BUFF(RO) ;MAKE IT A 12 BIT BURST ERROR

4136

015672

004437

JSR

R4, OPSTRT

4137
4138
4139
4i40

:{:é

015676
015702
015704
015706

015710

004437
104004
10400S
104006

032274

023334

015712

004437

023316

4145

015716

004437

023740

:}:g

015724

104011

4149
4150

4161
:igs
4154

015722

104010

015726
015732

004437
104012

024276

015740

004437

026500

015752

104033

015734
015736

415S
4156
4167

015744
015746
015750

4160

015754

012737

4163

015774

000400

4165

016000

104035

:igg
4161
4162
4ie4

4166
4167
4168
:igg

015762
015770
015776

10401S
104016
104032

012737
004437

005066
027176

4172
4173

016012
016020

012737
012700

000022
00000S

:};2

016030

005037

001214

4177

016034

004737

031616

4180

016052

016237

000030

4i74 016024 012701 012672
016040
016044

004737
016237

002326

RY, DHDCMP
12

,SIHULRTE HERDER SERRCH
;MR1 CONTENTS IN ERROR

JSR

R4, DRGPSN

;GO RERD GAP AND SYNC

ERROR

13
14

iCS1 IN ERROR AFTER_SEAR
:RKDCYL OR RKDA IN ERROR QFTER SERRCH

15
1B
37

iMR1 IN ERROR RERDING GRP
:CS1 IN ERROR RFTER REQDING GAP
!MR1 IN ERROR RERDING SYN

81,ECPATX

;LOAD EXPECTED PATTERN

MOV
JSR

#5066, ECPOSX
R4, DREAD

ERROR

:CS1 IN ERROR RFTER RFQDING SYNC
:LORD EXPECTED POSITION
,GO SIMULATE DATA_ RERD

; NUMBER OF WORDS TO SIMULATE

iMR1 IN ERROR READING_DARTR OR ECC

ERROR
ERROR
ERROR
ERROR

36
41
42
43

;ECC
;CS1
;ECC
;ERR
;ERR

MOV
MOV

#22,BITCNT
85, R0

;SET BIT COUNT FOR CORRECTION COUNT
;SET COUNT FOR ECCPQS PASS THRU 0O

CLR

$TMPS

:CLEAR SWITCH

JSR

PC,RDBIT

;GO READ BIT

Oléb?Z,Rl

ERROR RERDING DATA
ERROR AFTER RFADING DATA OR ECC
REG_INCORRECT RFTER ECC REARD
IN ECC PAT CALC.
IN ECC POS COUNT

; SET COUNT FOR ECCPOS TO O FIRST PRSS

RKECPS(RE),T.ECPS

MOV
cMP
BEQ

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

iSET FOR_COMPARE AND REPORT
:CHECK IF PATTERN CORRECT
:YES- SKIP

CMP

E.ECPS,T.ECPS

;CHECK IF PCSITION CORRECT

002252
002214

4186

016104

023737

002252

002212

001401

JSR
ERROR

MOV

002212

002350
002254

O0Olbll2

:CS1 CONTENTS IN ERROR

iMR1 CONTENTS IN ERROR

002214

013737
023737
00140}

4187

JSR
MOV

016064
016072
016100

104042

ERROR

MOV
3%:

4182
4183
4184

016102

; SIMULATE HEADER PREAMBLE

030462
000032

4181 016060 005237 002350
4185

RY, DRSYNC

ERROR

104036
104041
104042
104043

4178
4179

JSR

400

104034

016002
016004
016006
016010

4i71

; SIMULATE SECTOR PULSE

MOV

002350

R4,DSECTR

ERROR
ERROR
ERROR
002346

:SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
iMR1
:MR2
*

JSR

ERROR
ERROR

000001

S
b

;STRRT THE OPERATION

:MR3

ERROR

104013
104014

R“ DISEEK

7?7

ERROR

104007

:i:&

4146

JSR
ERROR
ERROR
ERROR

INC

18%:

ERROR

BEQ

PC, ECCGEN
: GENERATE ECC
RKECPT(RE),T.ECPT
GET PATTERN

ECPOSX
42

; BUMP POQITIONPOSITION
EXPECTED

:YES - SKIP

cznseeo RK611 DSKLS CTRL PRTS

CZRGEB.P11
4188

016114

:190

oxs{ae

4189

O0l6116

02-DEC-77 10:21
104043

005237

005331

MACY1l 30(1046)

Tou

002326

2%:

wigé 8%2152 Ilégog
016130
812138
Q18614

016144

001406
815787
12781
000733

77777
020000

4198

016146

00S?37

001214

002350
4g:

osg

Ré

gg; 589"}538 zsngIN ECCPOS

BEQ
MGV
MOV
BR

4§
#-1, ECPOSX
#20000, R1

SIF0 - SKIP
pnsssr EXPECTED POS TO GO TO ZERO
'SET COUNT TO NEXT O IN ECC POS
:GO DO LOOP RGRIN

TST

$TMPS

001012
012701
012700

011041
000001

BNE
MOV
MOV

4203

016172

016176

00S237

000716

001214

INC

4206

016200

004737

031616

4207
4e08

016204
016210

004437
013737

032356
002260

MOV
S3:

002220

ERROR
SR

4215

016246

4216 016254
4217 016256
:gis

016264

:Sgo

016266

104044
882459

001004
012737

104045

000100

002174

100100

002234

BEQ

6%:

BNE
MOV

ERROR

:BUMP BIT COUNT

‘DEC Pnss THRU O counr
-

s TEST SWITCH

c$
olxoqx Rl
RO

:ALREADY SET - SKIP
*SET COUNT TO FINAL POSITION
'SET RO TO RETURN AFTER ONE PASS

§TMPS

:BUMP SWITCH

o-i ECPOSX

PC,RDBIT

JSR
MOV

BIS
CHP

001402

JSR

4213
H21l4

016242
816 4y

BIC

016240

BITCNT

B8R

4209 016216 052737 100200 002220
4210 oxsseq 042737 000001 002220
421l 016232 023737 002160 002220
4212

SEQ 2080

INC

Qle152
016184
016160

3583

PAGE 80

ERROR

4199
4200
4201

4202 01616M 012737 177777 002350

10:43

18 BIT READ DATA WITH ECH

4193
4jay
4id9s

:igg

02-DEC-77

cO?

:SET EXP POS TO GO TO O ON NEXT BIT
:GO DL LOOP AGAIN
sONE MORE BIT TO SET REARDY

RY’ GETREG
L.8SI,E.CSI

JGET '611 REGISTERS
:GET EXPECTED CSI

1YES - SKIP

SECH, T.ER

s TEST IF ECC HARD ERROR SET

onov'tsnnE.CS1 ;SET READY AND ERROR
.CS1
:CLEAR GO
csx E.CS!
:CHECK IF CS1 CORRECT
44
79

79
ngcx:scn,s.sn

:YES- SKIP
'SET EXPECTED ERROR REG

7%:

3553

.SBTTL

4eoeo4

%%SPECIAL READ TESTS

o 3636 3636 36 36 3 36 36 36 36 36 36 36 36 36 36 3% 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 3 36 96 36 36 36 36 36 3 36 36 3 36 3 3 3 36 3 3 3 ¥ X ¥ 2

:SSE

iTEST .5

4o27
Y228

tx
3

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

4230

AND DRIVE CLEAR neésncss

4229

S %

4231

4232
3533
4235

2
x

016266

016270

012737

000001

4239

016276

005037

002352

4242

016310

005037

002344

:g:?
4243

016302
016314

012762
005037

OF 103 uoeoc TO nn K06 IN 26 SECTOR FORMAT

CYLINDERO, HERD

TOR

CLOCK THROUGH SEEK

IHULQTE A SECTOR PULSE

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

. o 3636 3 2 3 3 36 3 3 3 36 3 3 3 3 3 36 36 36 3 3 3 3 3 336 3 3 3 3 3 3 3 3 % 3 % 3% 3 3% 3 3 3 3 3 3 3 3 3 3 % 3 3 K% I E K E R R

4236

3535

000004

PARTIAL SECTOR READ

100000

002354

001234

000000

t&T25:

SCOPE
MOV

#1,STIMES

;;00 1

CLR

BSEDES

;CLEAR BAD SEC DESIRED

CLR

ECCSRC

MOV
CLR

ITERATION

#CCLR,RKCS1(R2) ;CLEAR CONTROLLER

HIBITS

;CLEAR ECC SOURCE

*CLEAR HI ORDER BITS

CZREEBO RKGI11 DSKLS CTRL PRTS

CZR&EB.P11

02-DEC-77 10:21

004437

:a:g

oisaag

000

4248
:ggo

016332
016334

17767S
000021

4254

016342

004437

032014

016350

004437

032274

016324

000000

125

032230

016320

4244

4245

MACYLl 30(1046)

4523

4258

4259
4260
4261
Y262
:gga
:sgg
4e67

016346

(016354
016360
016362
016364
016366

000006

004437
104004
104005
104006
104007

016370

004437

023316

4268
:ggg

016400
016402

016374

004437

023740

3531

ois:?a

?83”?7

024276

:S;g

016414

104014

4276

016416

004437

4278

016424

104016

427

4277

31%412 104 15

016422

4279

Ole4ee

4282

016432

4285
4286
4287
4eg8
4289

016452
016454
016456
016460
016462

:Sgé

016466

:Sg?

4283
4284

4290

4293

104010
104011

016430

016440
016446

016464

104015

012737

000400
104034
10403S
104036
104041

013700

4298

(016506

012737

4299

016474
016500
016504

016514

162700
022700
001404

104046

JSR

R4, CLRIBF

JSR

R4, BLDDAT

000000

002346

002350

047040

002224

;GO CLEAR INPUT BUFFER
?U&LD DATA

PRT

;START THE OPERATION

s
6

JSR

R4,DSECTR

; SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

:SIMULATE HEADER PREAMBLE

Jgg o

?H,DHDCMP

i3
IHULRTE Henosn SEARCH

ERROR

IRKDCYL OR RKDA IN ERROR AFTER SEARCH

JSR

o4, DRGPSN

:GO RERD GAP AND SYNC

ERROR

10
11

15
IS

‘MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

:cs1 ?N EE 3 &PTER gsnncu

nnx IN ERROR READING GAP

CSi {N ERR R RFTER RERDING GAP

ERROR

:.S1 IN ERROR AFTER REQDING SYNC

MOV

'MR1

ERROR RERDING

%0, ECPA

;LOAD EX
PECTEB PATTERN

MOV
JSR

#4066 ecposx
R4, DREAD

ERROR

34
35
36
4l
42

‘ERR IN ECC PAT CALC.

MOV

T.BA,RO

;GET ACTUAL BA

ERROR
002164

WORD COUNT -103
:COMMAND RDDATA

:SIMULATE IMPLIED SEEK
:C51 MISCOMPARE
IMR1
:MR2
»
:MR3
»

400
ERROR
ERROR
ERROR
ERROR

046632
000206

'BUFFER ~DDRESS IBUFF

RH DISEEK

ERROR

004066
027176

R4, OPSTRT

:CYLINDER O

JSR
ERROR
ERROR
ERROR
ERROR

ERPOR

104043

(016470

4295
4296
4297

ssggonoo

ERR R

104042

4294

ERROR
ERROR

164033

012737
004437

.By}s

JSR

104032

SEG 0081

:LORD "L” REGISTERS

026500

PAGE 81

R4, LORDRK

igUFE

023334

DO7

JSR

-103
RDDATA

:asé 016336 004437 031770

10:43

PRRTIAL SECTOR READ

-1 812330 ousggg

qggs

02-DEC-77

SYNC

*LORD EXPECTED POSITION
GO SIMULATE DATA_READ

,NUHBER OF WORPS TO SIMULATE
:MR1 IN ERROR RERDING onrn OR ECC
JECC ERROR RERDING DATA
'CSI ERROR AFTER READING DATA OR ECC
'ECC REG INCORRECT AFTER ECC READ

'ERR IN ECC POS COUNT

suB
CHP
BEQ

#IBUFF, RO
#206, R0
4g

:SUB_START VALUE OF BA
:TEST IF CORRECT NUM OF WORDS XFER
:YES
- SKIP

ERROR

'REPORT XFER LENGTH ERROR

MOV

$IBUFF+206,E.BR:SET EXPECTED BA

czaseao RKbll DSKLS CTRL PRTS
CZRBEB.P
02-DEC-77 10:21
4300

4301

MOV

83. ¥4,

4304

016536

DEC

:LOOP UNTIL ZERO

4307

016542

RY, GETREG

:GET 611 REGS

4314

016602

:ggg
4308
4303
4310
4311
4312
4313

012701

000014

016530

012762

000040

016540

001370

016546
016554
016562
016570
016576
016600

005301

004437

013737
042737
052737
023737
001401
104056

4§:

SEQ 0082

4302 016522 012762 000440 000026 3§:

4303

016516

EO”

MACYIl1 30(1046)
02-DEC-77
10:43 PAG: 82
Tes
PARTIAL SECTOR RERD

000026

MOV

sOMD, RKMR1 (R2)

BNE
032356

002260
000001
000200
002160

002220
002220
002220
002220

18:

2s:

SET COUNT TO CND OF OPERATION

sOMD! nCLK nxnnxtke) :RUN THE CLOCK

JSR

MOV
BIC
BIS
CMP
BEQ
ERROR

L.LSI,E.CSI1
cco £ c51
#RODY E.CS1
T.Csl,E.CS1
as
Sb

sDEC_THE COUNT

IGET EXPECTED csl
*CLEAR GO BIT
'SET READY BIT
CHECK IF CS1 CORRECT
YES
- SKIP
"c51 IN ERROR AFTER READ DATA"

4317

, Y1221

4320
4321
4322

¥
lx
ta

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE n READ DATA
OF 401 WORDS TO AN RKO6 IN 26 SECTOR FORMAT

4324

nno DRIVE CLEAR MESSAGES.

:g{g

firssr 26

4323

4325

4326

4330
4331

016602

000004

:ggg

016604

C12737

000001

001234

333;

016612

012762

100000

000000

4336

016620

005037

4338

016630

005037

4337

0l6be4

005037

SILC UNLOAD BEFORE HMERDER ERROR

CYLINDER O,

HEAD O,

SECTOR 0.

CLOCK THROUGH SEEK

SIMULATE R SECTOR PULSE

A GOOD HEADER,

ta
T

MAKE SURE THE ENTIRE PREVIOUS SECTOR GETS LOADED INTO
MEMORY BEFOPE BAD SECTOR ERROR AND CONTROLLER ERROR SETS.

4327
3353

2222222222222 222331222X22XX2XTX2XXX222X22X22 T2 LRSS

400 DATA WORDS,

AND A

GOOD 32 BIT ECC.

AFTER ECC SIMULATEA SECTOR PULSE AND A BAD SECTOR ERROR.

, R Y 2 212221221 121222232233z
2222222 2222222222222 22222 R
+&726: SCOPE
MOV

#1,STIMES

;:DC 1 ITERATION

MOV

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

002352

CLR

BSEDES

;CLEAR BSE DESIRED

002354

CLR

HIBITS

002344

CLEAR HI ORDER BITS

004437
000000

4343

016644

046632

:ggg

016650

000021

:g:g

016652

004437

031770

ISR

R4, CLRIBF

;GO CLEAR INPUT BUFFER

434§
4350

016656
016662

004437
000002

032014

JSR
2

R4, BLDDAT

:GO BUILD DATA
'PATTERN 2

4353

(0I66EY

004427

032274

JSR

RY, OPSTRT

4344

4354
4355

01664

016670
Q016674

000
000

.BYTE
'BYTE

iBUFF

177377

004437
104004

R4, LORDRK

CLERR ECC SOURCE

016634
016640
016642
016643

JSR
0

ECCSRC

4339
4340
4341
4342

032230

CLR

O
O

-401

JSR
ERROR

;sscron 0
:TRACK O

aurrsn ADDRESS IBUFF
WORD COUNT -401

RDDATA

023334

'LGAD “L” REGISTERS
:CYLINDER O

connnno RODATA

RH DISEEK

:START THE OPERATION

'SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE

CZREEBO RKB11 DSKLS CTRL PRTS

CZR6EB.PL1

0e-DEC-77 10:21

MACY1l 30(1046)

T26

02-CEC-77

10:43

FO?7

PAGE 83
SILO UNLORD BEFORE HERDER ERRCR

SEQ@ 0083

4356

016676

10400S

ERROR

;MR1

zggg

016702

104007

ERROR

:MR3

4357

016700

104006

ERROR

:gg?

0:6704

004437

023316

4362

0167.0

004437

023740

33?;

016716

104011

4366

016720

004437

4363

016714

104010

016724
016726

016730

104014

4371

016732

004437

:g;g

016744

104033

4377

(016746

012737

4382
4383
4384

016772
016774
016776

104035
104036
104041

:ggg

017002

104043

4389

017004

012701

000040

4391

017016

0!2762

000040

:g%g
4372
4373
4374

4378
4379
4380
4381
4385

016736
016740
016742
016754
016762
0l6766
016770
017000

104012
104Li3
104015
104016
104032

Q012737
004437
000400
104034

000000

004066
027176

; SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

: SIMULATE HEARDER PREAMBLE

ERROR

:CS1 CONTENTS IN ERROR

JSR

RY, DHDCMP

ERROR

:RKDCYL OR RKDA IN ERROR RFTER SERRCH

JSR

R4, DRGPSN

; GO RERD GAP AND SYNC

ERROR

ERROR
ERROR
ERROR
002346

MOV

002350

MOV
JSR
400
ERROR
ERROR
ERROR
ERROR

104042

R4,DSECTR

ERROR
ERROR

026500

:MR2

JSR

ERROR

024276

4367
4368

ERROR

12
13

iMR1 CONTENTS IN ERROR

; SIMULATE HERDER SEARCH

IMR1 CONTENTS IN_ERROR
:CS1 IN ERROR AFTER SEARCH

15
16
32

iMR1 IN ERROR READING
iCS1 IN ERROR RFTER REQDING GAP
‘MR1 IN ERROR RERDING SYNC

80, ECPATX

;LORD EXPECTED PATTERN

#4066, ECPOSX
R4, DREAD
34
35
36
M1
M2

:CS1 IN ERROR AFTER READING SYNC
:LORD EXPECTED POSITION
:GO SIMULATE DATA_RERD
INUMBER OF WORDS TO SIMULATE
iMR1 IN ERROR REQDING DRTR OR ECC

;ECC ERROR READING DAT
;CS1 ERROR AFTER RERDING DATA OR ECC
;ECC REG INCORRECT AFTER ECC RERD
;ERR IN ECC
PAT CALC.

ERROR

4330 017010 0l2762 000440 000026 6$:

MOV

#0MOD!HéLK RKMRl(hE) ;RUN THE CLOCK

4392

DEC

4388

:gga

017024

017026

00S301

:ggg

017030

052737

100000

:ggg

017036

004437

4399

017042

0Q4437

::8é

017050

104011

4400

017046

001370

104010

4403

017052

004437

::89

017062

000411

4404
4405

017056
017060

104012
104013

;DEC_THE COUNT

:LOOP UNTIL ZERO

BIS

#8IT15,BSEDES

;SET FOR BARD SECTOR ERROR

023316

JSR

RY,DSECTR

; ISSUE SECTOR PULSE

023740

JSR

R4, DRSYNC

; READ SYNC

ERROR

:C51 CONTENTS IN ERROR

JSR

RY, OHDCMP

;00 HEARDER COMPARE WITH BSE ERROR

002352

ERROR

0242”6

ERROR
ERROR
;

;
005037

IDMD RKMR] (R2)

T COUNT TO END OF SECTOR

::?8

017084

MOV

%8. %

BNE

4408
4411

000026

MOV

,ERR IN ECC POS COUNT

002352

12’
13

IF THIS CODE IS EXECUTED,

iMR1 CONTENTS IN ERROR

:MR1 CONTENTS IN_ERROR
:CS1 IN ERROR AFTER SEARCH

:EXPECTED RETURN (NO DA INCREMENT)
THE CONTROLLER DID NOT INHIBIT

THE RDDRESS INCREMENT BELAUSE OF THE BSE ERROP
CLR

BSEDES

:CLEAR BSE DESIREL SWITCH

CZR6EBD RKB11 DSKLS CTRL PRTS
CZRBEE.PL1
ge-DEC-77 10:21
Y4yl

GO7

MACY.l 30(1246)
02-DEC-77
10:43 PAGE 84
126
SILO UNLORD BEFORE HEARDER ERROR

4413
::ig

017070

017076
017104

013737

002274

002268

002226

4416

017106

016237

000014

002174

::1?

017114

013737
104047

032737

000200

002240

002174

MOV

19:

L.DAR,E.DR
4?7

;SET EXPECTED SEC/TRACK
; UNEXPECTED RDDRESS INCREMENT

MOV

RKER(R2),T.ER

;GET ERROR REG

OESE,E.ER

EEE§ ExaEégED ERROR REG

BgT

305
BR

0173132

104051

::Sé

017134

000453

Y423

017136

004437

032356

442S

017150

023737

002220

Yy24

4427

::Sg

017142
017156

Q017160

017162

4§30

017164

4432

017174

4431

4433
4434

::gg
4437

013737
001492

012701

005037

017200

004737

005037
005301

017206

001374

C17210

004437

017218
Q017222
Q17230

042737
052737
023737

4442

017240

104056

:::a
4445

017236

000410

017244

(012737

017260

001401

017252

3::8

017262

4447

4450
4451

001402

017242

Yy4b

¢ ¥

002160

023737

39%:

002320

002322

031616

49:

18727

;;G0 TO NEXT TEST

JSR

RY, GETREG

;GET 611 REGS

CMP

gE.CS1,T.CS1

;CHECK IF CS1 OK

ERROR

MOV

CLR
CLR

JSR

000001
100200
002220

002220
002220
002160

002224

N02164

017264

.SBTTL

445y

;"CS1 _ERROR RFTER WRITE CHECK"

;;G0 TC NEXT TEST

18127
#278.%16. ,R1

;SET COUNT TO NEXT ECC rIELD

PR.BIT

; CLEAR PRESENT RND PREVIOUS BITS

M1.BIT

PC,RDBIT

;SIMULRTE RERD BIT

JSR

RY,GETREG

;GET b11 REGS

s ]

;YES - SKIP

157127

;:%0 TO NEXT TEST

;LOOP UNTIL ZERO

260 E.CS1
*SET UP EXPECTEC CSI
#ROY
' CERR,E.CS1
E.CSL,T.CQI
:CHECK IF CS1 0K

ERROR

MOV

;"CS1 _ERROR AFTER RERD DRTARTM

#$IBUFF+1000,E.BPA

;SET EXPECTED BR

CMP

E.BQ,T.BQ

;ngT IF BA CORRECT

ERROR

;BUS ADDRESS INCORRECT

- SKIP

R T I T

#*»WRITE CHECK TESTS

::gg

;fiTEST 27

4457

4459

4458

Y460

H462

017264

00OCOY

Q0OlT26E

012737

s s s R SIS SRS SIS 22 22222222222

WRITE CHECK OF 400 WORDS

L LY

CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLERR.

PUT CONTROLLER

AND DRIVE CLEAR MESSAGES.

AND R GOOD 32 BIT ECC.

::ga

4461

4467

; YES - SKIP

cs:

::gg

BIC
B1S
CMP

BEG

104082

:SET EXPECTED CS1

;DEC COUNT

BEQ

7%:

L.CSI,E.CSI

BR
047632

;°BSE DID NOT SET”

DEC

BNE
032356

; TEST IF BSE SET

BR
010540

QBSE.T.Eh

ERROR

BEQ

00040

Y438
4439
Y440
4441

002220

104956

017170
017204

002260

;SET EXPECTED CYL

MOV
ERROR

Hqig 8};155 8?é98§ 000200 002234
Y420

L.DCYL,E.DCYL

SEQ 0084

CHECK

IN DIAGNOSTIC MODE.

QF 400 WORDS

CYLINDER 0, HERD

A GOOD HEADER,

ISSUE R WRITE

AN RK86 IN SE S;CTOR FORMAT,

gECTOR . CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

THE 400 WORDS TO BE WRITE CHECKED,

MAKE SURE NO ERRORS SET.

%A¥5;*li:és;gl!ll*lllil!l*llill!!!*lliill!l!llil!ll*iiii*11!**{)}

0000l2

00l1e34

MOV

%10.,8TIMES

:;00 10. ITERATIONS

>
CZRGEBO RKE1l DSKLS CTRL PRTS
0e2-DEC-77 10:21
CZR6EB.P11

MRCY11

3011048)
12?7

02-DEC-77
10:43
PRAGE 8S
WRITE CHECK OF 400 WORDS

SEJ U08S

3488 Bt?56d 82835 BB&3e2

L
ELB

HIBIT

aé?ésg

:CLEAR H]

37 O824
902037
032230

CLR

RC
BERERG

:CLEA

17304
17310
017314

BiZ3e
i el

igfirr

R4, LORDRK

1LOAD "L" REGISTERS
: vt$NBEB 0

Thaco

’BHEBERADORESS TBUFF
:COMMAND WRTCHK

031770

JSR

R4,CLRIBF

:GO CLEAR INPUT BUFFER

WRYCHK

FLAG

004437
a04437
000004

032014

JSR

RY4,BLDDART

:GO_BUILD DATA

012700

000400
o46632
047636

Sy S

Wy ey

017332

701

Ww~N

03
2l
00

[

£
r
~N
L

MOV

75%:

104007

1109%:

#400, RO

!PATTERN 4

:SET A COUNT FOR BUFFER SIZE

MOV
MOV
ggg

#IBUFF,RI
#0BUFF ' R3
§83’* tR1)+

:SET ADDRESS OF IBUFF
*SET ADDRESS OF OBUFF
BEX ESTTERN TO IBUFF

BNE

75%

:LOOP UNTIL PATTERN IS MOVED

MOV

#CCLR RKCSI(RE)

; CLEAR CONTROLLER

JSR
JSR
ERROR
ERROR
ERROR
ERROR

RY,OPSTR
Ru oxsssx

s
b
7

'START THE OPERATION
'SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
‘MR1
"
‘MR2
:MR3

oo4437

023316

JSR

R4,DSECTR

: SIMULARTE SECTOR PULSE

017420
17424
17426

004437
104010
104011

023740

JSR
RROR

RY, DRSYNC
10

SIMULQTE HEADER PREAMBLE
RROR
8 NT Nrg {

017430

004437
104012
104013
104014

0c4e’e

JSR

R4, GHDCMP

12
13
14

:MR1 CONTENTS IN ERROR
‘cS1 IN ERROR AFTER SEARCH
:RKOCYL OR RKDA IN ERROR AFTER SEARCH

004437
104015

026500

JSR

R4, DRGPSN

;GO READ GAP AND SYNC

ERROR
ERROR
ERROR

16
32
33

;051 f" RROR AFTER REQDING GAP
RROR READING SYN
'MR1
:CS1 IN ERROR AFTER RERDING SYNC

MOV

%0, ECPATX

—

0000000

—

000000

4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497
4438
4493
4500
4501
4502
4503
4504
4505
4506
4507

JSR
0

0044
000§§§

URCE

iEEEAR BEG 23URCE

000000

4470
4471
447
44?
447y
447
447
4477
447
442
4480
4ug]

ORDER BITS

CLEQR eés DESIRED

RROR

104033

012737
012737
004437
000400
104053
104054

100000
J04066
027176

ERROR
ERROR
ERROR
ERROR

MOV
JSR
400
ERROR
ERRCR

#4066, ECPOSX
R4, DURTCK

S3
G4

-cs1

NTENTS

ERROR

:SIMULATE HERDER SEARCH

‘MR1 IN ERROR READING GAP

sLORD EXPECTED PATTERN

:LORD EXPECTED POSITION
‘GO SIMULATE WRITE CHECK
:NUMBER OF WORDS TO SIMULATE
‘MRl IN ERROR ON WRT Ck OR ECC READ
:ECC ERROR IN WRITE CHECK OP

CZREEBO RKE11 DSKLS CTRL PRTS
CZREEB. P11
02-DEC-77 10:21
4524
4625

017504
017506

3255

MACY!l

30(1046)
Te?

107

02-DEC-77
10:43
PAGE 86
WRITE CHECK OF 400 WORDS

104055
104041

ERROR
ERROR

017512

104043

ERROR

:gg?

017S14

012700

4532

017520

012762

4534

017534

005300

017540

004437

4626

4529

4533

:ggg
4537

4538
4839

017510

017526

017836
017544
017552

104042

(0lé76e

002710
000440

000040

000026

1$:

001370

013737
042737

002260
00C.31

002220
002220

‘ERR IN ECC POS COUNT

MOV

#40.%37. RO

:SET COUNT TO EMPTY SILO

MOV

#0MD' MCLK

DEC

JSR

R4,

MOV

002160

002220

4542

BEQ

023737

4543

Q017576

104057

017574

:g:g

017600

4546

:g:g

001401

‘ERR IN ECC PAT CALC.

RKHRI(RB)

oono RKMR] (R2

MOV
BIC

BIS

017566

ERROR AFTER WRT CHK OR ECC RERD
REG INCORRECT AFTER ECC READ

BNE
032356

:CS1
:ECC

ERROR

4S540 017560 0S2737 000200 002220
4S54l

SS
Y1

COUNT

GETREG

:GET

b11

REGS

¢s1 .C51
G cs

:GET EXPECTED cs1
‘CLERR GO BIT

1.C51,E.CS1

;CHECK IF CS1 CORRECT

:SET READY BIT

ERROR

:DEC

CONTROLLER

:LOOP UNTIL O

cno? £.CS1

CMP

:CLOCK

:YES
- SKIP

:»CS1 IN ERROR AFTER WRITE CHECK"

3636 36 3 36 3 36 3 3 3 3 3 3 3 3 363 3 3 3 3 I 3 % 363 W 3 I 3 I I I 3 U 33

iTEST 30

4549
4550
4851

;*
tx
E

WRITE CHECK WITH DCK

I I

£I

% WK% WK% KX E %R

CLEAR RKb1] CONTROLLER WITH A CONTROLLER CLEflR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
R WRITE
CHECK OF 400 uonos TO AN RKO6 IN 26 SECTOR FORMAT,

4552
4553

s¥
%

CYLINDER
O, HEARD0, SECTOR 0.
CLOCK THROUGH SEEK'
nno DRIVE CLEAR nsésnczs
SIMULATE
A SECTOR PULSE,

4555

S¥

AND R 32 BIT ECC INDICQTING 1 BIT BURST ERROR.

AND

4554

4556

4557

:ggg
4560

4561

:ggg
4Se4

; %*

017600

017602

017610

000004

012737
005037

017614
_17£20

005037
004437

4e¢
4569

017626
017627

000
000

017624

000000

GOOD HERDER,

VERIFY THRT

4565
4566

4SF7

THAT

CHECK

THE

000001
002352

002354
032230

001234

SCOPE
MOV

CLR

FINAL

%1, STIMES
BSEDES

.BYTE
BYTE

O
O

4570
4571
:g;g

017630
017632
017634

046632
177400
000031

:g;g

017636

004437

031770

JSR

R4, CLRIBF

4576

017642

004437

032014

JSR

RY,BLDDAT

4579

017650

012700

000400

MOV

%400, RO

4577

017646

00000S

-400

WRTCHK

BE WRITE

PRTTERN

CHECKED

INCREMENTS PROPERLY

AND POSITION ARE

CORRECT.

AND CONTROLLER ERROR ARE

SET.

222222222222 X2222222222232
222322222 L)

HIBITS
R4, LORDRK

18UCEF

THE POSITION REGISTER

CLR
JSR

400
W os

THAT DATA CHECK

12222228222222

+4730:

THE

;D0

: CLEAR

ITERATION
Bno

SECTOR

oesxneo

:CLEAR HI ORDER BITS
:LOAD "L” REGISTERS

:CYLINDER O
;szcron 0
TRACK O

!BUFFER RDDRESS IBUFF
*WORD COUNT -400
:COMMAND WRTCHK
:GO CLEAR
:GO

INPUT BUFFER

BUILD DATA

:PATTERN S
;SET

COUNT

FOR

BUFFER

SIZE

SEQ 0086

CZRBEBO TTGII
Ce oEB.P

DSKLS CTRL PRTS
0e-DeC- 77 10:21
012701
012703

4580

4581

MACY11

30(1046)
T30

JO7

02-0EC-77
10:43
PAGE 87
WRITE CHECK WITH DCK
MOV

o46632
047636

75%:

050636
050640
002344
047636

#0BUFF' R3
(R3)+, P11+
RO
758

MOV

01260?3oaurr+1obo

BIT

osth OBUFF (RO) TES IF BIT SET

BNE

YES
- SKIP

#8176, 0BUFF (RO)

;CLEAR BIT

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

1009:
1018%:

BIC

012762
o044 37
004437
104004
104005
104006
104007

100000
2ea7y
023334

000000

110%:

MOV

004437

023316

DO4437
104010
104011

023740

020010
0c0014
020016

004437
104012
104013
104014

024276

0e0022

004437
104015
104016
104032
104033

026500

000001
004066
027176

020C72

0127327
012737
oo44 37
000400
104053
104054
1040SS
104041
104042
104043

020074
Ce0l02

012737
012700

000020
00000s

020036
020044

JSR
JSR

R4, OPSTRT
RH DISEEK

ERROR
ERROR
ERROR

s
b
7

MR
{MR2
‘MR3

JSR

R4,DSECTR

:SIMULATE SECTOR PULSE

JSR

R4, DRSYNC

s SIMULATE HERDER PREAMBLE

JSR

R4, DHDCMP

12
13
14

; SIMULATE HERDER SEARCH

‘MR1 CONTENTS IN ERROR
:CS1 IN ERROR AFTER SERRCH
'RKDCYL OR RKDR IN ERROR AFTER SERRCH

R4, DRGPSN

;GO RERD GAP AND SYNC

ERROR

ERROR
ERROR

ERROR
ERROR
ERROR

002346
002350

002326

sSTORE ECC WORDS

0151052 OBUFF +1002
CCSRC
*SET_SOURCE TO INDICQTE ECC IN BUFFER
100

047636

020034

.SET INDEX INTO BUFFER

:gxrs, OBUFF (RO) ELSE SET BIT

000100

020020

IBUFF

‘SET ADDRESS OF OBUFF
N PQTTERN TO 1BUFF
:DEC COUN
:LOOP UNTIL PATTERN 1S MOVED

gés

042760

020006

:SET ADDRESS OF

MOV
MOV
DEC
BNE
MOV
MOV

047636

#IBUFF,R1

SEQ 0087

10
11

ERROR
ERROR
ERROR
ERROR

15
16
32
33

MOV

%1, ,ECPATX

MOV
JSR
400
ERROR

#4066, ECPOSX
R4, DWRTCK

:START THE OPERATION
:SIMULATE IMPLIED SEEK
:CS1 MISCOMPARE
”
-

:MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

‘MR1
:CS1
‘MR1
:CS1

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

;LORD EXPECTED PATTERN

JLORD EXPECTED POSITION
1GO SIMULATE WRITE CHECK
:NUMBER OF WORDS TO SIMULATE
:MR1 IN ERROR ON WRT CK OR ECC RERD

ERROR
ERROR
ERROR
ERROR
ERROR

G54
G5
41
42
43

JECC
'CSI
"ECC
"ERR
‘ERR

MOV

#20,BITCNT

:SET BIT COUNT FOR CORRECTION COUNT

MOV

5. R0

ERROR IN WRITE CHECK OP
ERROR AFTER WRT CHK OR ECC READ
REG INCORRECT AFTER ECC RERD
IN ECC PAT CALC.
IN ECC POS COUNT

:SET COUNT FOR ECCPOS PASS THRU G

CZRBEEBO RK611

CZR&EB.P 11

DSKLS CIRL PRTS
02-DEC-77 10:21
012701
00S037

MACY1l

39%:

00e214
ooeele

002254

002252
002214

002252

goeele

020230
020234

005737
golioie

177777
020000

4e:

010016

c%:

002220
0Ceee0
00eee0
002220

100000

002234

6%:

#13672,R1

:SET COUNT FOR ECCPOS TO O FIRST PARSS

PC,RDBIT

:GO READ BIT

MOV

RKECPT(R2),T.ECP}Y

ERROR

PC|ECCGEN

:GENERATE ECC

T.ECPS

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

:SET FOR COMPARE AND REPORT
;CHECK IF PATTERN CORRECT
iYES - SKIP

ECPOSX

INC

BITCNT

Rl
33
RO
us

TST

;CHECK IF POSITION CORRECT
:YES - SKIP

DEC
BNE
OtC
BEQ
MOV

0SITION

: BUMP POQITION EXPECTED

E.ECPS,T.ECPS
2%

ERROR

GET PRTTERN

RKECPS(R2),

CMP
BEQ

:BUMP BIT COUNT

:DEC COUNT TO ZERQ IN ECCPOS
'NOT YET 2ERO
- LOOP
‘DEC_PASS THRU O COUNT
'IF 0 - SKIP
:PRESET EXPECTED POS TO GO TQ ZERO

ECPOSX

uaoooo R1

;SET COUNT TQ NEXT O IN ECC POS

:GO DO LOOP AGRIN

$TMPS

:TEST SWITCH

BNE
MOV
MOV

S ;
sxooxs R1
RO

JALREADY SET - SKIF
:SET COUNT TO FINAL POSITION
:SET RO TO RETURN AFTER ONE PASS

INC
BR

$TMPS
3%

‘BUMP SWITCH
:GO DO LOOP RGRIN

JSR

PC,RDBIT

JSR
MOV
BIS
81C
CMP
BEG

n-l ECPOSX

'SET EXP POS TO GO TO O ON NEXT BIT

:ONE MORE BIT TO SET RERDY

ggnon

R4’ GETREG
L.8SI,E.CS!
#ROY!LERR,E.CS!
8GO, E.CS1
T.CS81,E.CS1
$

‘GET 611 REGISTERS
'GET EXPECTED CSI
:SET READY AND ERROR
:CLEAR GO
:CHECK IF CS! CORRECT
:YES - SKIP

BIT

8ECH, T.ER

;TEST IF ECC HARD ERROR SET

BEQ
MOV

ERROR

§
#DCK,E.ER
g

:YES - SKIP
:SET EXPECTED ERROR REG

7%:
o 3636 3 3 36 3 36 36 3 36 96 36 36 36 36 36 3 3 36 36 36 3 36 36 36 3¢ 26 3 6 3 36 3 3 6 36 36 36 3 3 6 9 3 2 3 36 36 36 3 3 3 36 3 3 3 3 3 3 3 3 2 3 2

’iTEST 31
L8
8 8 1 *’k

002174

asacmseswsws

020350

104045

000100

JSR

MOV

000716

PAGE 88

CHECK WITH DCK

:CLEAR SWITCH

MOV

002350

KO?

$TMPS

MOV
CHP
BEQ

19:

10:43

CLR

INC

002350

020346

WRITE

MOV

0olz214

poN737
004437
013737

02-DEC-77

MOV

002326

000733

T30

013672
o012l
031616
030462

020226

30(1046)

WRITE CHECK OF 18 BIT WORDS

CLERAR RKB611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A WRITE
CHECK OF 400 NORDS TO AN RKO® IN 24 SECTOR FORMAT,

CYLINDER
0O, HERD
O

CLOCK THROUGH SEEK’
SECTOR 0.
SIMULATE R SECTOR PULSE,

AND DRIVE CLEAR MESSAGES.

SEG 00es

CZREEBO RKG11 DSKLS CTRL PRTS
02-DEC-77 10:21

CZR6EB.P11

LO?

MACYLl 30(1046)
02-DEC-77 10:43 PAGE B89
T31
WRITE CHECK OF 18 BIT WORDS

4692

s¥

3233

4695

4696

020350

000004

:ggg

020352

012737

000001

4699

020360

8 5037

002352

4700
4701
4702

4703
4704

A cooo HEADER, THE 400 WORDS TO BE WRITE CHECKED,

‘%

; »*

C2036M
020370
020374

€037
00S037
004437

001234

SEQ 0089

ANDA GOOD 32°'BIT ECC.
1

+4731:

002354
002344

2222222222122 22222222222222222222222222222222 222222322222 4

SCOPE

MOV

#1,STIMES

300 1 ITERATION

CLR

sseogg

:CLEAR BAD SECTOR DESIRED

CLR
CLR

032230

MAKE SURE NO ERRORS SET.

JSR

‘CLEAR HI ORDER BITS
CLEQR ECC SOURCE

CYLINDER 0
sec OR O

R4 . LOADRK

LOAD “L* REGISTERS

020400
020402

000000
000

020404
020406

046632
177400

020412

004437

031770

JSR

RY,CLRIBF

;GO CLEAR INPUT BUFFER

4712
:;{3

020416
020422

004437
000604

032014

JSR
vl

R4, BLDDAT

yels) guxLo DATA
:PRTTERN 4

4715

020424

012700

000400

MOV

#400, RO

:SET
A COUNT FOR aurren SIZE

4717

020434

012703

047636

MOV

$0BUFF | R3

:SET ADDRESS OF OBUFF

4705

4706
4707

3;83
:Zi?
7/

4716

020403

020410

020430

000

012701

020440
020442

4722

020446

012762

4725
4726
4727

020464
020466
020470

104004
104005
104006

4723
4724
:;gg

020444
020454
020460

020472

.BYTE

1BUFF
-300

010031

4718
4719

:;Sg

012321
0053060

046632

100000

032274
023334

023316

4732

020500

004437

023740

4736

020510

004437

024276

:;gg

020520

104014

020514
020516

104010
104011

104012
104013

474]

(020522

004437

:;:g

020534

104033

4742
4743
4744

4747

020526
020530
020532
020536

000000

104015
104016
104032

012737

MOV
DEC
MOV

(R3)+, R+
RO

75$

RACK O

aurrsn ADDRESS I1BUFF
{WORD COUNT -400

: COMMAND WRTCHK!CFMT

:SET ADDRESS OF IBUFF
1 MOV PRTYERN TO IBUFF
:DEC COUN

:LOOP UNTIL PATTERN 1S MOVED

#CCLR,RKCS1(R2)

;CLEAR

Y4
S
b

:CS1 MISCQMPARE
:MR1
i MR2
»

JSR

R4, DSECTR

;SIMULATE SECTOR PULSE

JSR

RY, DRSYNC

:SIMULATE HEADER PRERMBLE

JSR

R4, DHDCMP

:SIMULATE HEARDER ssnncu

ERROR

'RKDCYL OR RKDA IN ERROR AFTER SEARCH

R4, OPSTRT
R4, DISEEK

ERROR

ERROR
ERROR

10
11

12
13

CONTROLLER

:START THE UPERATION
:SIMULATE IMPLIED SEEK

IMR3

'MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

:MR1 CONTENTS IN ERR
:CS1 IN ERROR AFTER se RCH

JSR

R4, DRGPSN

;GO READ GAP AND SYNC

ERROR

:CS1 IN ERROR AFTER READING SYNC

ERROR
ERROR
ERROR
002346

#1BUFF ,R1

JSR
JSR

ERROR
ERROR

026500

000000

110%:

ERROR
ERROR
ERROR

104007

004437

4737
4738

75%:

BNE

020474

020504
020506

MOV

001375
0049437
004437

WRTCHK ! CFMT

:;g?

4733
:;gg

0
.BYTE

ECCSRC

MOV

15
16
32

#0,ECPATX

:MR1 IN ERROR REACING GAP
:CS1 IN ERROR AFTER] READING GAP
‘MR1 IN ERROR READING SYNC
:LORD EXPECTED PATTERN

CZR6GEBO RKB11 DSKLS CTRL PRTS

CZR&EB.PL1
4748

4749

020544

(020552

02-DEC-77 10:21
012737

004437

J05066

027176

MACYLl 30(1046)

131

002350

JSR

e fofees
iguged
Y
Y
4784
858325
f
4041
4?55 (020570 104042

104043

:;23

020574

012700

003100

4761

020600

012762

000440

4762

4763

:;gg

020606
020614

020616

012762

005300

000040

000026

1S:

001370

0
Y437
4768
BSRRSY
BP4337
BAsZEB ogesag
4768 020632 042737 000001 002220

020640
020646

052737
023737

4772

020656

104057

4771

4773

4774
:;;2

020654

020660

001401

PAGE 90

000200
002160

002220
002220

2%:

SEG 2090

#5066 , ECPOSX

RY, DWRTCK

s LORD EXPECTED POSITION

co SIHULQTE WRITE CHECK

S
elA
Egé
Esc
INCORRECT
AFYER
8
SEA
:ERR IN ECC PAT CALC.

ERROR

:ERR IN ECC POS COUNT

MOV

#40. #40. ,RO

:SET COUNT TO EMPTY SILO

MOV

#DMD'MCLK ,RKMR1(R2)

DEC

;LOOP UNTIL O

JSR

W8
BIC

R4,

BIS
CMP
BEQ

#RDY E.CSl
T.Cs1,E.CS1

T
61}
R
iGET
BY
B§EB el
:CLEAR wu BIT

iSET READY BIT
cuscx IF CS1 CORRECT

"cs1 IN ERROR AFTER WRITE CHECK"

MOV
BNE

4769
4770

MO7

R 291
E
ERROR
42

020572

4758

10:43

WRITE CHECK OF 18 BIT WORDS
MOV

3;§9

02-DEC-77

ERROR

oono RKMRI (R2)

GETRE
PeEETEERs,
%GO, E.CSI

;CLOCK CONTRCLLER

;DEC COUNT

YES
-

SKIP

; ll**lll*ill!!!‘llllllli!lilfll*!l!*!lll*il{llllll‘lil&*l!li*!!«l*li!
&Tesr 32
WRITE CHECK OF A PARTIAL SECTOR

4277

;;

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLERR

4780

CYLINE

A GOOD HERDER,

NOT TO BE WRIYE CHECKED ANDA GOOD 32 BIT ECC

4778
4779

T
Sx

4781

4782

4783
:;gg

4786
4787

:;gg

020660

020662

000004

012737

000001

4790

020670

005037

002352

4796

020713

000

:ggg

020720

479]
4792
4793
4794
4795
4797
4798

020674
020700
020704
020710
(020712

005037
005037
004437
000000
000

002354
002394
032230

001234

. N Y
+4732:

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A WRITE
CHECK SF1 WOR 8
T0 nu
RxgsIN g gecron FORMAT

HEA

THROUGH SEEK

nno DRIVE’ CLEQR nessacss SIMULRTE R SECTOR PULSE

TAKE ONE WORD TO BE WRITE- cuscxso 377 WORDS

MAKE SURE NO ERRORS SET

1222222222322
SCOPE

22222232332X2222222222222222 22222222022

MOV

#1,$TIMES

;;00 1 ITERATION

CLR

BSEDES

;CLEAR BAD SECTOR ossxnso

BYTE

CLR
CLR
JSR
0
.BYTE
1BUFF
-1

HIBITS
ECCSRC
R4, LORDRK
O

*CLEAR HI ORDER BIT
*CLEAR ECC SOURCE
:LORD "L"TM REGISTERS
CYLINDER 0
,ssc OR O

:TRACK O

020714
020716

046632
177777

3885

020722

004437

031770

JSR

R4, CLRIBF

:GO CLEAR INPUT BUFFER

4803

020726

004437

032014

JSR

R4, BLDDRT

;GO BUILD DATA

000031

WRTCHK

:BUFFER noonsss IBUFF
JWORD COUNT -1

:COMMAND WRTCHK

CZREEBO'RKb611 DSKLS CTRL PRTS
02-DEC-77 10:21
CZR6EB.P 11

MACY11

30(1046)
T32

02-DEC-?77

10:43

NO?7

;PRTTERN &

75%:

020754

00000C

110$:

104007

021042
021044

RO
75%

#CCLR,RKCS1(R2)

R4, OPSTRT
RY.DISEEK

oo4437

023316

RY,DSECTR

004437
104010
104011

023740

RY, DRSYNC

004437
104012
104013
104014

024276

R4, DHDCMP
1e
13

004437
10401S
104016
104032
104033

026500

12737
012737
004437
000400
1040€C
104054

000000
004066
027176

RY, DRGFSN
15
16
32
33

#0,ECPATX

002346
0023S0

#4066 ECPOSX
R4,DWRTC

;SET A COUNT FOR BUFFER SIZE

:SET ADDRESS OF IBUFF
:SET ADDRESS OF OBUFF
iMOV PATTERN TO IBUFF
:DEC_COUNT
{LOOP UNTIL PATTERN IS MOVED
; CLEAR CONTROLLER

:START THE OPERATION
:SIMULATE IMPLIED SEEK
gg{ MISCOMPARE
:MR2
iMR3

*
*

; SIMULATE SECTOR PULSE
; SIMULRTE HERDER PRERNBLE

‘MR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

; SIMULRTE HERDER SERRCH

!MR1 CONTENTS IN_ERROR
:CS1 IN ERROR RFTER SERRCH
!RKDCYL OR RKDA IN ERROR AFTER SEARRCH
;GO RERD _GAP AND SYNC

MRl IN ERROR READING CAP

N ERROR RFTER REQDING GARP

N ERROR RERDING SYN

N ERROR AFTER RERDING SYNC

ER OF WORDS TO _SIMULATE
IN ERROR ON WRT CK OR ECC RERD
ERROR IN WRITE CHECK OP

ERROR AFTER WRT CHK OR ECC READ
REG INCORRECT AFTER ECC RERD
IN ECC PAT CALC.
IN ECC POS COUNT

WON——Q
OO LOL

oxautr RO

002164

046634

002224

LW
Lo

e
Sy

Y Sy
Y
Y

T
T

el
o
N

000000
oo

021046
021054
021062

$IBUFF,R1
80BUFF |R3
(P3)+,R1)+

~Noong

100000
032274
023334

020756

000
.

e
Pt
s P
e Pt
s
s

DDNON LW

g o A o o o
o
0000
M MOMM®

#400, RO

000400
046632
047636

020734

|el
Lo ]

020732

4811

SEG 009!

PAGE 91

WRITE CHECK OF R PARTIAL SECTOR

000040
000440
000040

0000ce
000026

046632
0oooae

82, RO

4§’

$IBUFF+2,E.BA

4§:
3%:

;GET ACTUAL BR

;SUB_START VALUE OF

:TEST IF CORRECT NUH OF WORDS XFER
:YES
- SK IP
:SET EXPECTED BR
:REPORT XFER LENGTH EWROR
SET COUNT TO END OF OPERATION

nono'néLK RKMR1 (B3} ; RUN CLOCK
88, #Y4,

#0OMD, RKMR1 (R2)

CZREEBO RKBll DSKLS CTRL PRTS

CZREEB.PI

02-0EC-77 10:21

4860

021152

021'34

001370

4g63

021156

004437

33§é

4864
4eeS
4geb
4Bt~
4868
4869
4870

021162
021170
021176
Q21204
(B2l2l2
021214
021216

MACY1l 30(1046)

132

005301

013737
042737
052737
023737
001401
104057

02-DEC-77

002260
0006001
000200
002160

002220
002220
002220
002220

18:

2s:

4873

PAGE 92

SEQ 0092

WRITE CHECK OF A PRRTIAL SECTOR
DEC

;DEC_COUNT

JSR

R4, GETREG

;GET 611 REGS

BNE
032356

10:43

BO8

MOV
BIC
BIS
CHP
BEQ
ERROR

:LOOP UNTIL ZERO

L.2S1,E.CS1
GO, E.CS1
$RD" . E.CS1
1.Csl,E.CS1
as
57

:GET EXPECTED cS1
'CLEAR GO BIT
'SET RERDY BIT
:CHECK IF CS1 CORRECT
:YES- SKIP
:*CS1 IN ERROR AFTER WRITE CHECK"

o 36363 36 36 36 36 36 3 3 3 36 36 36 36 3 3 3 3 36 3 3 3 3 W 3 36 3 3 3 3 3 3 3 % 3 3 3 3 3 3 3 3 3 W 2 2 I 3 3 I 3 I % X %% X%

ZSZ“

iTEST 33

4876
4877
4878

T
1
S

WRITE CHECK ERROR (PART 1)

CLERR RKb11l CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R NRITE
CHECK OF 1 uono TO AN RKOB IN 26 SECTOR FORMAT

4879

4880

4881

4882

AND DRIVE' CLEAR ntssncss SIMULATEA SECTOR PULSE

WRITE CHECKED DATA IS 00C00!.

RS WRITE CHECKED DRTR:

4883

3882

; ¥

4886

CLINDER 0, HERD

SECTOR 0.

CLOCK rnnoucu SEEK

A GOOD MERDER, AND ONE WORD OF DATA CONSISTING OF 000000.

MAKE SURE WRITE CHECK ERROR SETS.

REPEAT USING EACH OF THE FOLLOWING CONFIGURATIONS

000002

021216

000004

012737

000001

: = 3636 36 3 36 36 36 36 3 36 36 36 36 36 3 3 36 36 36 3 36 36 2 3 3636 36 3 36 36 36 3 36 3 36 36 3 36 3 3 36 36 3 36 36 3 3 3 I 36
t&733:
SCOPE

4895

(21226

005037

H02352

4897

(021236

005037

002344

4836

4898

4899
4900
4901
4902

021220

(021232
02l242

021246
021250
021251
021252

005037
004437

000000
000
000
046632

4903

021284

021256

000031

4906

021260

012705

:ggg

49Q7
4908

001234

MOV

CLR

005037
012737

4910
4911
:gig

021304
021306
021314

001003
012737
013737

4314

021322

021330

012762

004437

; CLEAR BAD secron DESIRED

ECCSRC

s CLEAR ECC souncs

032230

JSR

R4, LOADRK

O
O

-1

000020

047636
000001

MOV

ITERATION

*CLEAR HI ORDER

BITS

LORD “L”TM REGISTERS

CYLINDER 0
*SECTOR O
:TRACK O
eurren ADDRESS IBUFF
WORD COUNT -1

WRTCHK

} COMMAND WRTCHK
$16.,RS

:SET PARTTERN COUNT

046632

CLR
MOV

oaur#

177777

047636

001110

112%:

BNE
MOV
MOV

1128
8-1,0BUFF
£1108, SLPERR

'YES - PATTERN SHOULD BE O
‘ELSE PATTERN SHOULD BE ALL ONES
'SET LOCAL LOOP ON ERROR

10000C

00OCO0

110%:

MOV

8CCLR RKCSI(RE)

;CLEAR CONTROLLER

4909 Q21276 032737 000001 046632
4915

BSEDES

HIBITS

0
BYTE
.BYTE
1BUFF

0 % AKX EE KR

;:00 1

CLR
CLR

040000
100000

#1,STIMES

002354

177777

Q21264
(021270

002000
004000
010000

020000

4891
4892

:gga

000100
000200
000400

001000

x
1
tx
(R

000004
000010
000020

000040

4887
4888
:ggg

021322
032274

BIT

JSR

:atro,xaurr

R4, OPSTR

:CLEAR FIRST uono OF OBUFF
'SET IN FIRST PATTERN

;1S BIT O SET

:START THE OPERATION

CZR6EBO RKE11 DSKLS CTRL PRTS

CZR6EB.P11

0e-DEC-77 10:21

4916

021334

004437

4918

021342

10400S

4917

021340

10408

021344

104006

:gsg

021350

004437

023316

43924

021354

004437

023740

:gg%

021362

104011

4925

4928

021346
(021360

104010

021370
021372
021374

004437

024276

933

021376

004437

026500

4935

021434

021410

104033

021402

10401S

4936

021406

104016

4939

Q21412

012737

:335

4940
4941
4942
4943
44y
4945
494p
4947
:g:g

021420
021426
021432
021434
021436
021440
021442
021444
021446

012737
004437
000001
1040S3
1040SY4
104055
104041
104042
104043

4950

021450

012701

4352

021462

012762

:ggg

021472

001370

4956

021474

004437

4es8

4959
4960
4961
:ggg

021506

021510
021516
021524
021532

001012

:ggg

021534

104415

4351 0e2I4¢Y 012762
4953

4957

4966

4367

:ggg
43870

4371

021470

021500

021536

021542

021544

RROR

005301

032737

013737
013737
013737
104060
006337

005305

001266

10:43

cO8

PAGE 93

RY,DISEEK

RROR

ERROR

004066
027176

R4,CSECTR

; SIMULARTE SECTOR PULSE

JSR

R4, DRSYNC

; SIMULATE HERDER PREAMBLE

ERROR

:CS1 CONTENTS IN ERROR

000040

000440 000026 1S:
000040

000026

40000

002170

002170
046632
047636

001162
001164
001166

046632

iMR1 CONTENTS IN ERROR

; SIMULATE HERDER SERRCH

JSR

RH DRGPSN

;GO RERD _GAP AND SYNC

ERROR

MoV

80, ECPATX

12
13
14

:MR1 CONTENTS IN _ERROR
:CS1 IN ERROR AFTER SE RCH
'RKDCYL OR RKDA IN ERROR AFTER SEARCH
MRI IN ERROR RERDING GRP
31

I E SR RFT R REQDING GAP

N ERROR REQ INGS

:CS1 IN ERROR AFTER RERDING SYNC

53
54
5SS
i
M2
M43

MOV

88. %

DEC

;DEC_COUNT

JSR

RY GETREG

; GET _REGS

BNE

MOV

MOV
MOV
MOV
ERROR

#4066, ECPOSX
RY, DWRTCK

;LORD EXPECTED PATTERN

MOV
JSR
1
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

BIT

2%:

”

R4, DHDCMP

BNE
132356

MRB

JSR

ERROR

002350

Cgl MISCOMPARE

JSR

ERROR
ERROR
ERROR

002346

; SIMULATE IMPLIED SEEK

iMR2

ERROR
000000

SEQ 0093

ERROR

104032

WRITE CHECK ERROR (PART 1)

ERROR

021364

104012
104013
104014

02-DEC-77

JSR

104007

4929
4930
i Hggé
4934

T33

023334

4919

:gg?

‘

MACYLl 30(1046)

ASL

BNE

T COUNT

ODHD'HéLK RKHRI(QE) ; RUN CLOCK
#0MD, RKMR] (R2

sWlE, T.CS2

T.CSe, SREGO
IBUFF, SREG]
OBUFF, SREG2
&0

SCOP1

DEC

:LOAD_EXPECTED PQSITION
:GO SIMULATE WRITE CHECK
!NUMBER OF WORDS TO SIMULATE
iMR1 IN ERROR ON WRT CK OR ECC RERD
:ECC ERROR IN WRITE CHECK OP
:CS1 ERROR AFTER WRT CHK OR ECC RERD
{ECC REG_INCORRECT AFTER ECC RERD
iERR IN ECC PAT CALC.
{ERR IN ECC POS COUNT

:LOOP UNTIL ZERO
TEST IF WCE SET
YES
- SKIP

SET CS2 FOR REPORT
;SET WORD READ
{SET_WORD FROM BUFFER
i"WCE FAILED TO SET”
;LOCAL LOOP ON ERROR

IBUFF

110%

;SHIFT FOR NEXT TEST PATTERN

:DEC PATTERN COUN

:LOOP UNTIL ALL PQTTERNS TESTED

22222222223 TTTTTTLIITESISLILISLISSS
SIS IIRZI S 22222222222 2222 )

iTEST 34

WRITE CHECK ERROR (PRRT 2)

DSKLS CTRL PRTS
02-DEC-77 1G.21

T34
4
HEd

; *

E
i ®
R

HE
HR

HE
; #
;¥

L¥
Ly
! g
L%

10:43
02-DEC-77
WRITE CHECK ERROR

REPE
CHECK ERROR SETS.
OCNF IGURATION AS WRITE CHECKED DARTA:
177775
177773
177767
177757

177737
177677
177577
177377

176777
1757727
1737727
167777

187777
1372777
077777

< JeU U600 3606060303036 0638 36 636 36 08 3 36 36 30 0 3 3 36 6 36 3 3 3 336 36 3 3 36 36 3 3 3 36 6 36 3 3 36 3% % 3 3 3 R
T34:
SCOPE

MOV

ITERATION

#1,$TIMES

;;00 1

BSEDES

;CLEAR BAD SECTOR DESIRED

HIBITS
ECCSRC
R4, LORDRK

:CLEAR HI ORDER BITS
CLEHR ECC SOURCE
SEGISTERS

ACK O

eurrsn ADDRESS 1BUFF

! WORD COUN

! COMMAND DT CHK
#16.

0000eD

000001

OBUF#

$177776,

Q46632

047636
001110

112%:

MOV

100000
032274
023334

000000

1108:

MoV

128

oxxbg gLPERR
#CCLR,RKCS1(R2)

R4, OPSTRT
RH"DISEEK
s
b

E AR FIRST WORD OF OBUFF
T B} N rIRST PATTERN

IBUFF

oaxro IBUFF

O4eb32

177777

0elese

SET PR TTSRN COUNT

mm-<Hmo
Mrrmumer

£ oLro0c0L£O0

e
s Bt Pt
Pt B

wg n—— OLn—-0OO0
OO0 00 ~N m

oo on [Fa)
o oo

s P ¢
s et Pt
e
s
e pt bt Pt

A WRITE
1SSUE

2 680 8 83 6 SLSE ?HROUGH SEEK
AND DRIVE bLEnRances SIMULATER SECTOR: PULSE
OF 0ATB CONBISTyg OF 177777,
D
IO EREE. e 1) £ 38
AT USING EACH OF THE FOLLOWING

002352
002354
002344
032230

0000000
rfururulo

i
0000000000
mp..p_.g—p—p—.—.—._;_.
OOV
N LW

001234

SEQ 0094

CHECK
CYLINDER

0
0

o
n
n

0000000
v uLP
0000000
PRV MVNND

005037

000001

PAGE 94
(PRRT 2)

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLERR

312397

D08

T O_SET

PPQTTERN SHOULD BE O
ATTERN
SHQULD BE ALL ONES
ON ERROR
Lo CAL LOOP

E AR CONTROLLER
A RT THE OPERATION
M ULQTE IMPLIED SEEK
1 MISCOMPARE

XOUnNO
DN

CZR6EB. PLl

30(1046)

cwswsweswswe

CZRGEBO RKB11

MRCY11l

MRa

”

MR3

oo4437

023316

RY,DSECTR

; SIMULRTE SECTOR PULSE

0Q4437
104010
104011

n23740

RY, DRSYNC
10
11

; SIMULATE HEADER PREAMBLE

004437
104012

024276

R4, DHDCMP
12
13

:SIMULATE YEADER SERRCH

104013

:MR1 CONTENTS IN ERROR

CSl CONTENTS IN ERROR
iMR1 CONTENTS IN ERROR

:CS1 IN ERROR AFTER SERRCH

CZR6EBO RK&11
CZRBEB.P11

DSKLS CTRL PRTS
02-DEC-77 10:21

ggsg

021724

104014

S030

5031
S032¢
5033
gggg

021726

021732
021734
021736
021740

004437

026500

S036

021742

012737

000000

S038
S039

004437
000001

027176

SO40
SO41
S04e
SO43
SO44
28:2

021756
021762
021764
021766
021770
021772
021774
021776

5047

022000

S037

002346

PAGE 9S
(PART 2)

SEQ 0095

ERROR

;RKDCYL OR RKDA IN ERFOR AFTER SEARCH

JSR

RY, DRGPSN

;GO READ GAP AND SYNC

ERROR
ERROR
ERROR
ERROR

15
16
32
33

MOV

80, ECPATX

JSR
1

RY, DUWRTCK

IN ERROR READING GAP
IN ERROR RFTER READING GAP
IN ERROR READING SYNC
IN ERROR RFTER RERGING SYNC

;LORD EXPECTED ‘PATTERN

MRl IN ERROR ON WRT CK OR ECC RERD
ECC ERROR IN WRITE CHECK OP
CSl ERROR RFTER WRT CHK OR ECC RERAD
ECC REG INCORRECT AFTER ECC RERD
ERR IN ECC PRT CALC.
ERR IN ECC POS COUNT

5048 022004 012762 000440 000026 18:

MOV

8. ¥

S0S0
gggé

.022020
022022

00S301
001370

DEC
BNE

R1
18

;sDEC COUNT
;LOOP UNTIL

S0S3

022024

004437

JSR

RY GETREP

;GET REGS

104053
1040SM4
10405S
104041
104042
104043

012701

000040

012762

000040

S054
S0SS
S0S6
5057
5058
2828

022030
022036
022040
022046
(022054
022062

032737
001012
013737
013737
013737
104060

gggé

022064

1044]1S

5063

(22066

006337

022100

001264

2829

MOV

HRl
CSI
HRI
C51

53
54
SS
41
T
43

(22072
02cu?6

002350

EOS

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

S0e4
S06S

004066

02-DEC-77
10:43
WRITE CHECK ERROR

LORD EXPECTED POSITION

(022012

012737

30(1046;
T34

#4066, ECFOSX

5043

(021780

104015
104016
104032
104033

MACY11

005537
(005305

032356

000326

040000

002170

002170
046€32
047636

001162
001164
001166

MOV

BIT
BNE
MOV
MOV
MOV
ERROR
29%:

046632

COUN

ODMD'MCLK RKMRI(ha) RUN CLOCK
#CHO, RKMR] (R2)

UHCE cse
ES
T.CS2,$REGD
IBUFF SREG1
OBUFF $REG2
e0

SCOP1
ASL

046632

RDC
DEC

BNE

ZERO

TEST IF WCE SET
YES SKIP
SET CS2 FOR REPORT
SET WORD RERD
SET WORD FROM BUFFER
-“uCE FRILED TO SETTM
;LOCAL LOOP ON ERROR

IBUFF

;SHIFT FOR NEXT

IBUFF
RS
1108

8071
5072
S073

®
21
%

CLERAR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIARGNOSTIC MODE.
ISSUE
A WRITE
CHECK OF 1 WORD To AN RKO6 IN 24 SECTOR FORMAT

SQ07S

QND ODRIVE CLEAR MESSAGES.

S074

5076

;¥

WRITE CHECK ERROR SETS.

gggg

5082

S083

D ¥

022102
022!104

000004

012737

OF 200000.

(000001

001234

SCOPE

Mov

RE R

AE AN

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE,

AND ONE WORD OF DATA CONSISTING

WRITE CHECK DATA IS 000000.

SIMULARTED DATA.

cRBEERREENRENE RN

¥&735:

R AR RN R R R R R R AR AR CRRRRRE R

CYLINDERO, HEARDO, SECTOR 0.
A GOOD HERDER,

;¥

S081

N NN

TESTED

WRITE CHECK ERROR (PART 3)

5077
5078

LOOP UNTIL ALL PRTTERNS

hssr 35

TEST PATTERN

PUT CARRY BACK IN
:DEC PRTTERN COUNT

S068

gggg

ERERINMNI

GO SIMULATE WRITE CHECK
NUHBER OF WORDS TO SIMULRTE

MAKE SURE

REPERT USING 400000 RS

REREREREE R R RN RERRREREREREEREERRRERERERRR

#1,8TIMES

;;D0

ITERATION

CZRBEBO RKBI1 DSKLS CTRL PRTS
0e-DEC-77 10:21
CZReEB.PL1
5084

5085

5086
5087
5088
5089
5090
S091
5092

2833
€095

022112

022116
082152
022126
022130
022131
022132
022134

005037

002352

002344
032230

022136

005037
004437
000000
000
00g0
046632
177777

010031

022140

012737

Q40000

022146
022152
022156
022164

S101

022172

012700

904000

S10S

022176
022200

005300
001376

CLR

CLR
JSR
0
.8YTE
.BYTE
IBUFF
-1

BSEDES

ECCSRC
R4, LORDRK
O
O

046632
047636
022164
100000

002354

0CL110
000000

MoV

112%:
!10%:
4s:

CLR
CLR
MOV
MOV
MOV

SES 0096

;CLEARR BAD SECTOR DESIRED

:CLERR ECC_SOURCE
:LOAD LTM REGISTERS
:CYLINDER O
iSECTOR O
:TRACK O
{BUFFER ADDPZSS IBUFF
: WORD COUNT -1

COMMAND WRTCHK!CFMT

WRTCHK! CFMT

S09%
5097
5098
g?gg
S10e
g%ga

005037
00S037
012737
012762

FOS8

MACYLl 30(1046)
02-DEC-77
10:43 PAGE 96
WRITE CHECK ERROP (PART 3)
T35

#40000,HIBITS

; SET HIBITS FOR PRTTERN OF 200000

1BUFF
OBUFF
#1108,SLPERR
8CCLR,RKCS1(R2)

;SET LOWBITS FOR READ
:SET O _IN BUFFER
:SET LOCAL _LOOP _ON ERROR
;CLERR CONTROULER

DEC
BNE

RO
4$

#4000, RO

; SET STRLL COUNT

:DEC_COUNT
:LOOP UNTIL ZERO

S106
5107
S108
S109
gi{?

022206
022212
022214
022216
Oc2ee20

022202

004437

032274

023334

JSR

JSR
ERROR
ERROR
ERROR
ERROR

R4, OPSTRT

; START THE CPERATION

giig

022222

004437

023316

JSR

R4,DSECTR

; SIMULATE SECTOR PULSE

JSR

RY, DRSYNC

10
11

iMR1 CONTENTS IN ERROR
:CS1 CONTENTS IN ERROR

S114

004437
104004
104005
104006
104007

RH DISEEK
S
&
7

:SIMULATE IMPLIED SEEK
;CS1 MISCOMPARE
iMR1
! MR2
*
;i MR3
*

S115
Eii%

022232
022234

022226

004437

023740

5118
S119
S120
giSé

022236
022242
022244
022246

004437
104012
104013
104014

024276

JSR
ERROR
ERROR
ERROR

RY, DHOCMP
12
13
14

; SIMULATE HEARDER SEARCH
;MR1 CONTENTS IN_ERROR
;CS1 IN ERROR AFTER SEARCH
; RKDCYL OR RKDA IN ERROR OFTER SEARCH

S123
Sie4
5125
Si26
g{sg

022250
022254
0eceeSe
022260
022262

004437
104018
104016
104032
104033

026500

JSR
ERROR
ERROR
ERROR
ERROR

R4, DRGPSN
IS
16
32
33

;GO RERD _GAP AND SYNC
:MR1 IN ERROR RERDING G
;CS1 IN ERROR RFTER RERDING GARP
;MR1 IN ERROR READING SYN
;CS1 IN ERROR ARFTER REQDING SYNC

5129

022264

Q012737

000000

80, ECPATX

LOQD EXPECTED PATTERN

S132
S133
SI134
S135
S136

022304
022306
022310
022312
022314

000001
104053
104054
10405S
104041

;MR1 IN ERROR ON WRT CK OR ECC RERD

S130
5131

S137
gigg

022272
022300

022316
022320

104010
104011

012737
004437

104042
104043

005066
027176

ERROR
ERROR

002346

002350

MOV

MOV
JSR

1
ERROR
ERROR
ERROR

ERROR
ERROR
ERROR

#5066 ECPOSX
R4,DWRTC

SY
55
41
42
43

; SIMULATE HERDER PREQMBLE

LORD EXPECTED POSITION
GO SIMULATE WRITE CHECK
:NUMBER OF WORDS TO_SIMU

'ECC ERROR IN WRITE CHECK OP
:CSI1 ERROR AFTER WRT CHK OR ECC RERD
‘ECC REG_INCORRECT ARFTER ECC RERD

:ERR IN ECC PRT CALC.
.;ERR IN ECC POS COUNT

£ Wh— o

022322
022326

DSKLS CTRL PRTS
0e-DEC-77 10:21

022334
0ea34e
022344

012701
01276,
01276
005301
001370

000040
00044
00004

022346

004437

032356
040000
002170
046632

000016
00172
02e43e

001374
104063

022434

104415

022436
022444
022446
022454
022456

023727
000643

MACY11l

N LW~
OV NN LWL OV NN LWL

30(1046)
T35

18:

00l16e
00lieY
001166
01172

3%:

2%:
NO2354

100000

002354

02-DEC-77
10:43
WRITE CHECK ERROR
MOV

#8.¥4.

MOV

GOS8
PRGE
(PART

97
3)

SEQ 0097

-SET

COUNT

#OMD
' MELK, RKMR1 (R2) ;RUN CLOCK

MOV

#OMD, RKMR1 (R2)

DEC
BNE

R1
13

;DEC_COUNT
:L00P UNTIL ZERO

JSR

RY, GETREG

:GET REGS

BNE
MOV
MOV
MOV
CLR
MOV

2%
T.CS2, SREGO
IBUFF | SREG]
OBUFF ) SREG2
SREcg
HIBITS, SREGH

:YES
'SET
:SET
:SET
‘SET

DEC
BNE
ERROR

RO
3%
63

BIT

002170

sWlE, 7.CS2

MOV
ROR

;TEgT IF WCE SET

- SKIP
€S2 FOR REPORT
WORD RERD
WORD FROM BUFFER
UP FOR REPORT

s14. RO
SREGY

:"WCE FAILED TO SET"

SCOP1

:LOCAL LOOP ON ERROR

CMP
BEQ
MOV
BR

HIBITS, #100000
5§
#100000,HIBITS
1108

;TEST IF SECOND PATTERN DONE
‘YES - EXIT
:SET FOR PATTERN 400000
:LOOP UNTIL ALL PATTERNS TESTED

s JE 363030 36 3606 36 96 2 36 36 36 36 06 36 36 3 36 36 3 36 3 36 3 36 36 3 36 3 36 36 36 36 36 36 36 36 3 30 3 3 6 3 3 96 3 3 3 3 3 3 3 3 3 3 2

:kTEST 36
K

O B

NN LWL~ OWDm NN LW~ 0 D0

M~ NNMNNNNNNNOOCCC
OO OO O NN annnnnLLLL
L Lot £
D00 00O

O 0000 M

B Bt 1t 0t Pt s Pt Pt Pt ot Pt Pt Pt Pt Pt Pt Bt Bt P Pt Bt Pt Dt Pt it Pt Pt Pt Pt Pt Pt P

i
T
NIOAUTATIAIO NV

OTOIAGn A ndanun dain ndndidinan un
Pt Pt Pt Psh Pt Pt Pt P P Pt P Bt Pt Pt s e s Pt o ot Pt s Pt —

CZR6EBO RKB11
CZRBEB.P11

P
%
"

000004
012737

022466

005037

022510
Oeesle

177400
000031

022514

004437

002354
002352
032230

001234

AND BUS ADDRESS.

IZILIELIZSLILISSILS

T36:

L2222

2222222222222 2222222222222

SCOPE
MOV

#1,STIMES

;;00

CLR
CLR
gsn

HIBITS
BSEDES
R4, LOADRK

BYTE
BYIE
1BUFF

O
O

;CLEAR HI BITS
:CLEAR BAD SECTOR DESIRED
:LOAD “L" REGISTERS
;CYLINDER O
*SECTOR O

~400
WRTCHK

031770

X 2 XX R

AND DRIVE CLEAR MESSAGES SIMULATE A SECTOR PULSE,
125 GOOD WORDS,
AN D A BAD WORD.
MAKE SURE WRIYE CHECK ERROR SET. CHECK WORD COUNT

A GOOD HERDER,

RIS

000001

(PART 4)

CLEAR RKB611 CONTROLLER WITH A CONTROLLER CLERR.
ISSUE A WRITE
PUT CONTROLLER IN DIRGNOSTIC MODE.
CHECK OF 400 WORDS TO AN RK06 IN 26 SECTOR FORMAT,
CLOCK THROUGH SEEK
SECTOR Q.
CYLINDER O,
HEAD O

022456
022460

WRITE CHECK ERROR

JSR

ITERARTION

' TRACK O
' BUFFER ADDRESS IBUFF
{WORD COUNT -400

: COMMAND WRTCHK

R4, CLRIBF

;GO CLEAR

INPUT

BUFFER

CRGEBO RKb11 DSKLS CTRL PRTS:
02-DEC-77 10:21
CZREEB.P11

022520

004437

022526
2123
885258
8531 0es836

Q12700

5196

Si97

022524

5199

Se02

Oe2g42

00000

HOS8

MACY11 30(1046)
02-DEC-77 10:43 PAGE 98
WRITE CHECK ERROR (PRRT 4)
136

032014

Ql23al

7s8:

2587 Qssedd
BBpI%e
022550 012700 (000530

5205
8507

022564

012737

126073

050636

G211 02o60e
022604 QEo7eQ
001004

000100

04763

8214

000100

047636

1008:

100000

000000

1108:

2515

Deobi4

5215

D22be

8517

000403

QOooble

042760

€218
5219
8020
255]
8552
5223

022624

0eob32
De2636
Ooobde
Qooe4d
(00646
022650

012762

004437
004437
104004
104005
104006
104007

032274
023334

5235

022652

0OW437

5227

022656

R4, BLDDAT

GO BUILD DATA

MOV

%400, RO

MoV

8$0BUFF
IBUEF,' R3
R1

(R3+, (RD)+

A COUNT FOR BUEFER SIZE
E1
Aosaens H2RiB
ssr ADBRE22 OF OBUFF

MOV

Bl
¥530, RO

'SET INDEX INTO BUFFER

MOV

#126073, 0BUFF+1000

BIT

I?s,oaurrtno> ?Esr IFBIT SET
88

MOV
MOV

nov

LRABRT Dooaud
2509
2503 9ecess
825278 Dig7d7
Q45737 BEBY3S
D353

S2ig

ISR

000400
B1570)
Dascas
012703 047636

BNE

1015:

SEG 0098

'PATTERN 5

! MOV PRTTERN 1O IBUFF

LSSP
ORYIL PATTERN IS MOvED
;STORE ECC WORDS

'151052 QBUFF+1002 . SQURCE TQ_INDICATE ECC IN BUFFER

1008

' YES - Exap

BIS

¥BITb,0BUFF(RO) SELSE SET BIT

BIC

¥BIT6, OBUFF (RO)

;CLEAR BIT

CCLR,RKCS1(R2)

;CLEAR CONTROLLER

MOV

1018

ISR
J3R
ERROR
ERROR
ERROR
ERROR

RY, OPSTRT
nq DISEEK
o
6
7

'START THE OPERATION
'SIMULATE IMPLIED SEEK
1251 MISCOMPARE
' MR1
! MR2
.
! MR3
-

02336

ISR

R4, DSECTR

. SIMULATE SECTOR PULSE

004437

023740

ISR

R4, DRSYNC

. SIMULATE HEADER PREAMBLE

022666 004437
2535
05sere 1040i2
2535 Gooe7d 104013

024276

R4, DHDCMP

5534

022676

10401Y

ISR
ERROR
ERROR

MULATE
HEADER SEARCH
SRR
F
NG
E0ER BRROS
'Sl IN ERROR AFTER SEARCH

RKDCYL OR RKDR IN ERRIR RFTER SEMRCH

£536

022700

004437

026500

ISR

R4, DRGPSN

. GO READ GAP AND SYNC

2538
8539
S840

005706
022710
022712

104016
104032
104033

ERROR
ERROR
ERROR

16
32
33

iC51 IN ERROR AFTER READING GAP
'MR1 IN ERROR READING SYNC
'cS51 IN ERROR RFTER RERDING SYNC

E542

D22714

012737

%0, ECPATX

:LOAD EXPECTED PATTERN

2545
Eo46
So47
2548
€549

(855734
0202736
Qo740
08o74c
055744

000310
104053
104084
104085
104091

53
&4
85
41

'NUMBER OF WORDS TO SIMULATE
'MR1 IN ERROR ON WRT CK OR ECC READ
'ECC ERROR IN WRITE CHECK OP
'G&] ERROR AFTER WRT CHK OR ECC READ
'E8C REG INCORRECT AFTER ECC READ

'ERR IN ECC POS COUNT

SoeE8
5229

02obbe
022664

104010
104011

So3]1

8537

2543
So4ly

2550

£52]

055704

Q08732
022730

0oo746

080750

104015

012737
004437

104042

104043

ERROR
ERROR

ERROR

000000

004066
027176

ERROR

002346

002350

MOV

MOV
JSR

310
ERROR
ERROR
ERROR
ERROR

ERRGR

ERROR

10
11

12
13
15

24066 ECPOSX
RY. DWRTCK

'MR1 CONTENTS IN ERROR
'CS51 CONTENTS IN ERROR

'MR1 IN ERROR READING GAP

:LOAD EXPECTED POSITION
!GO SIMULATE WRITE CHECK

:ERR IN ECC PAT CALC.

CZR6EBO RKB11 DSKLS CTRL PRTS
CZRGEB.P i1
0e-DEC-77 10:21

000020
000440
000040

MACY1l

000026
000026

30(1046)
T36

18:

108

WRITE CHECK ERROR

#4. ¥4,

PAGE 99

o gsoocogog
000410

023066
023074
g2310e
023104

012737
023737
061401
104062

032356
040000

0cz2170

002170
o46632
047636

001162
golle4
001166

002224

:DEC COUNT

RY GETREG

gués .Cse
EGO

:GET

'611

REGS

$E§T IF WRITE CHECK SET
SKIP

{SET UP FOR REPORT

IBL‘F!RO) SREG1 ;BUFFER_WORD

OBUFF (RO) , SREG2 ;SIMULATED WORD
'WCE_NOT SET ERROR
60
2%:

002164

0022ee
002eee

:RUN CLOCK

:LOOP UNTIL ZERO

TEXIT

sxaurr+e E.BA

E.BA

3%:

;SET UP EXPECTED BA

:ADD IN THE NUHBER OF WORDS TO THE ERRCR

IF CORRECT
cuscx SKIP

TEXIT

Een T.BA
61

177655
ooclee

SET COUNT TO END OF OPERATION

80MD! MELK , RKMR1 (R2)
oona RKMR] (R2)

4s
046634
00ceoa4
O0ceeH

SE3 3099

(PART 4,

023040
023046
0230se
023060
Q23062
023064

0231086

10:43

022774
022776

02-DEC-77

#-123,E.WC

T.WC,E.WC
4g
62

YES

BUS ADDRESS ERROR

;SET EXPECTED uoao COUNT

*CHECK IF CORRECT
1YES
- SKIP
*WORD COUNT ERROR

CZR6EEBO RKBL1 DSKLS CTRL PRTS
CZR6EB.P11
02-DEC-77 10:21

MACY1l 30(1046)
02-DEC-77 10:43
END OF PRSS ROUTINE

ggga

.SBTTL

5285

HH Y

ggg?

Y 1222222222222 222222222222X22222X22222322222222 222222222222

'%IF THERE ISN'T JUMP TO NEWPAS

023106
023106

000004

023132

005327

(023110
023114
023120
(23124

299

(023134

000001

$EOPCT:

023142
023144

000001
023134

$ENDCT:

6304
6305

5306

€307

5308
§309
6310
6311

§312

§313

5314
6315
5316
€317
6318

5319

5320

5321

023135
023140

023146
023152

023172

gggé

..558:

104405
104401

023206

023250

000421

013746

001112

023254
023256

10440S
104401

001245

013700

000042

(023262

005037

023272

001405

023266

023302
023304
023306

(023310

023312

£4s:

L68:

001112

000

6335

(023316

012762

€337

023332

000204

8336

023324

O0Oloz62

000140

000040

000026

(PC+

: s ZERO THE TEST NUMBER
:'ZERO THE NUMBER OF ITERATIONS
: : INCREMENT THE PARSS NUMBER
. :DON’T ALLOW A NEG. NUMBER
; 1LOOP?

BGT
MOV

$DOAGN
(PC)+,a(PC)+

;3 YES
: 'RESTORE COUNTER

TYPE
BR

.ASCIZ

65%
43

;s TYPE ARSCIZ STRING
:1GET OVER THE ASCIZ

<12><15>/END PRSS’ 8/

MOV

§PASS, - (SP)

; ;SAVE SPASS FOR TYPEOUT
:'TYPE PRSS NUMBER
:1GO TYPE--DECIMAL ASCII WITH SIGN
:PTYPE ASCIZ STRING

.WORD
$EOPCT

67%

863

MOV

SERTTL, - (SP)

.ASCIZ

*'GET OVER THE RSCIZ

TOTAL ERRORS SINCE LAST REPORT /

$CRLF

$§ERTTL

Js42, RO

$D0AGN

: sSAVE SERTTL FOR TYPEQUT
: STOTAL NUMBER OF ERRORS
::GO TYPE--DECIMAL RSCII WITH SIGN
' TYPE CARRIAGE RETURN, LINE FEED

: 'CLERR ERROR TOTAL

:IGET MONITOR ADDRESS

:'BRANCH IF NQ MONITOR

RESET
JSR
NOP

PC, (RO)

IMP

J(PCI+

: ; RETURN

SENULL:

.BYTE

-I,-1,0

s sNULL CHARACTER STRING

.SBTTL

DIAGNOSTIC MODE SECTOR PULSE

$DOAGN:

6333

6334

BEQ

$ENDRD:

377

.WORD

DEC

SGETH2: MOV

000137

377

STSTNM
$TIMES
$PASS
#100000,3PASS

CLR

000240
000240

023316

CLR
CLR
INC
BIC

TYPDS
TYPE

000005
004710
000240

003364

SZOPE

TYPDS
TYPE

..67%:

023250

023306

6330

023154

023176
023200

5327

5329

104401
000407

001256

023204

001256

003063
012737

013746

023274
023276
023300

§328

001102
001234
001256
100000

023172

6322
8323
5324
5325
5326

00S037
005037
005237
042737

$EOP:

294
295
296
5297

€302
5303

END OF PRSS ROUTINE

‘#IF THERES R MONITGR GO TQO IT

5289

300
301

SEQ 0100

"%TYPE “END PRSS #XXXXX TOTAL NUMBER OF ERRUGRS SINCE LAST REPORT YYYYY"
! #WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

5287
5288

€298

PRGE 100

*4INCREMENT THE PARSS NUMBER (SPASS)

5286

S2%2
5293

JO8§

SRTNAD:

NOP
NOP

.WORD
-EVEN

:'CLEAR THE WORLD
::G0 TO MONITOR
: *SAVE ROOM

IFOR
PIRCTIL
NEWPAS

THE SECTOR PULSE IS PROVIDED BY THIS ROUTINE

OSECTR: MOV

MOV
RTS

$OMD!MSP, RKMR1 (R2)

#DOMD,RVMR1
(R2)

.SET SECTOR PULE

;RESET SECTOR PULSE

C%RSEBO RK611 DSKLS CTRL PRTS
REEB.P11

0e-DEC-77 10:21

MACY11l 30(1046)

(02-DEC-77

10:43

KO8

PAGE 10!

SEQ 0101

DIAGNOSTIC MODE IMPLIED SEEK

SBTTL
AR

€339
S340

DIRGNOSTIC MODE IMPLIED SEEK
THE CONTROLLER IS CLOCKED THROUGH THE SEEK MESSRAGES

S341
5342

o#
IR

gg:g

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

S346

S347
gg:g

AT THE END OF THE IMPLIED SEEK THE CONTENTS OF CS1,

S3S0

CALL:

5352
£3s3
6354

;¥
Ix
g )

ERROR
ERROR
ERROR

6343

% )

S35l

o %

Eggg

P #

6357

023334

6359
S360

023336
023340

010346
032737

023354

000412

§358

023334

6361
S3t2

023346
023350

5365

023356

Egga

6366
5367
5368

023362
023370
023372

DISEEK:

010046

001003
012700

000002
000316

012700

004612

002260

032737
001402
012700

010000
005222

002260

023402

0l2762

000440

000026

023420

001370

gggg 023376 062700 000016
S371

6372
S373

023410
023416

6376

023422

ég;g

8377
€378
5379

023426
023432
023436

5381

023446

012762
00S300
013703

004437
010337
113703

000040

6382
£§383
6384
538S
6386
6387

5388
6389
ggg?

023452
0234S4
(023456
023460
023464

023472

023474
023500
023504

006303
005300
001375
153703
032737
001402

MRI1
R2
AND
MR3
ARE
CHECKED
TO
VERIFY
THE
OPERARTION.
ALL
DTSCRERENCIES
RRE REPORTED IN THE ORDER LISTED.
JSR

RY,DISEEK

ERROR

MOV

10%:

1$:

002274

MOV

001000
Q32444
002250

6392

023510

013737

002260

5394

(023524

004437

03235k

002220

6393 023516 012737 022040 002244

SCOMPARE ERRON

,.PUSH RO ON STACK

109
251, ®4+2 RO

PUSH R3 ON STACK
CHECK IF WRITE DRTA
YES SKIP
SET COUNT FOR READ OR WRITE CHECK

#66.%37. RO

;COUNT FOR CLOCK THROUGH SILO LORD

#4x23+2, RO

RND SHIFT REGISTER LORD

OCFMTCSI
18
066 %41

Moy

#OMD'MCLK, RKMR1(R2)

ADD

TEST IF 22 SECTOR MODE
NO SKIP
ELSE CHANGE FOR 18 BIT WORDS
SET CLOCK

MO/
DEC

#DMD, RKMR] (R2)
RO

CLER
LOOP UNTIL RO IS ZERO

MOV

L.DCYL,R3

;GET DESIRED CYLINDER

BIC

0177400,R3

,CLERR UNUSED BITS

RY, FSBLVV
R3] E.MRE
L.0T
85,R0

REVERSE ORDER OF BITS
STORE RS EXPECTED MR2
GET DESIRED TRACK/SECTOR
;SET SHIFT COUNT

ASL
DEC
BNE
BISB
BIT

R3
RO
15%
L.DS,R3
OCFHT L.CSI1

BIS
JSR
MOV

#BIT9,R3
RY, FSBLVV
R3 E.MR3

ELSE SET FORMAT BIT IN HOR WRD
REVERSE BIT ORDER
STORE RS EXPECTED MR3

MOV

L.CS1,E.CSI

;GET EXPECTED CSl1

JSR

F4,GETREG

:GETRK REGS

BEQ

16%:

SCOMPARE ERROR
SCOMPARE ERROR
SCOMPARE ERROR

BIT
BEG
MOV

MOV

0S2703
004437
010337

RO, -(SP)

00000S

002260

;MR

JSR
MOV
MOVB

002266
010000

;CS
;MR
+MR

R3-(5P)
lBiTl L.CS1

032444
002246
002267
159:

Y
S
6

MOV
BIT

BNE

5380 023442 042703 177400
012700

THE ROUTINE LOOKS AT THE COMMAND THAT WAS

BNE
MOV

11%:
000026

GETTING STATUS, AND CLERRING THE DRIVE. SINCE THIS REQUIRES A
OIFFERENT COuNt FOR WRITE DATA AND RERD DARTR/WRITE CHECK,

MOV

169

SHIFT FOR TRACK AL IGNMENT
DEC COUN
LOOP UNTIL ZERO
INSERT SECTOR NUMBER
,TEST IF 18 BIT MODE
:NO
- SKIP

ODHD ECCH MEWD.E.MR1 ;SET UP EXPECTED MR1

CZRBEBO RKe&11 DSKLS CTIRL PRTS
CZR6EB. P11
02-DEC-77 10:2l
023530
023536
023540

023737
001411
012737

002160

002220

023562

001236

023546
023554

032777
001056

001000

155364

023556
023560

010446
000204

BIT

BNE

2s:

Mov

RTS

TST

CMP

001000

155336

BEQ
BIT

023614

001236

ggv

002246

002206

001000

155304

023646

001236

005724
023737
001414

002250

002210

001011
012737
000727

001000

155252

023700

001236

001000

155232

005724
023737

000744

032777

371
023720
0e3722

032777
001001
005724
80203?
12603
012600
000204

023724
023730
023734

005037
012706
ooo177

001236

BNE

3%:

75T

CMP

BEQ
BIT
BNE
MOV
BR

5%:

TST

CMP

BEQ
BIT
BNE
MOV
BR

6%:

8S$:
93:

BIT

.SBTTL

Iz ]

;:
HE

;¥

T.CS1,E.CS1
cs

$82%, SESCRPE

88179, JSWR

SET ESCRPE TO RETURN FOR
REHQIN%NG TESTS

;CHECK

IF LOOP ON ERROR

R4, -(SP)

;SET STACK FOR RETURN TO SUB-ROUTINE

(R4)+

; BUMP TO NEXT ERROR CALL

33
#8179, dSWR

; OK
SI
CHELK IF LOOP ON ERROR

:;S,SESCQPE

SET ESCAPE FOR RETURN TO SUB-ROUTINE

(R4)+

; SAME OPERQTION AS ARBOVE TO

E.MR1,T.MRI1
3%

E.MR2,T.MR2

5SS
8BITS, ISWR
93
#8593, $SESCAPE
4§

(R4)+

CHEC

- SKIP
YES

:CHECK MR2

SAME OPERQTION AS ABOVE TO

E.MR3,T.MR3

: CHECK MR3

#8179, dSUR

CHECK %F bOOP ON ERROR

8%
#8179, dSWR
93
869, SESCRPE
4%

CLR
MOV

SESCQPE

RTS

CLR

SESCAPE

MOV
JMP

CHECK €Sl
OK
SKIP

YES - SKIP

TST

SEQ 0102

102

BNE

MoV

00
noo

023614
023616
023624
023626
023634
023636
023644

023700
023706
023710
8 371

MOV

002204

001410
32777
01043
012737
000761

023676

CMP
BEQ

002244

023572
82 S74
23602
023604
De3ekle

02364
02365
023656
023660

LOS

PAGE
10:43
02-DEC-77
DIAGNOSTIC MODE IMPLIED SEEK

30(1046)

4$:

[T
)
oW
ooo

ey
w
Y W
[

DONO
N LW

Be32es gas73s

i
LfLrrrrrL
L

MACY11l

BUNP T0 NO ERROR RETURN

(R4)+

C%EQR g %
P
STACK
INTO R3

,,POP STACK INTO RO

(SP)+,R0O

8STACK, SP
JSLPERR

; CLERR ESCRPE

CLEQN OFF STACK
GO TO LOOP START

DIQGNOSTIC MOD: RERD SYNC PRTTERN (PREAMBLE)

THE 255 “0TM BITS AND | "1* BIT ARE CLOCKED THROUTH THE RERD.
THE _CONTENTS OF flRl ARE MONITORED TO WATCH FOR AN ERROR,

AT THE END OF THE SYNC REARD, CS1 IS CHECKED TO INSURE I7
DID NOT GET CHANGED.

CALL:

JSR

ERROR

R4, DRSYNC

10’

;MR1 CONTELTMS IN ERROR

CZRGEBO RKG11 DSKLS CTRL PRTS

CZR6EB.P11

02-DEC-77 10:21

MACY1l 30(1046)

;¥
;!

E463

E:EE

'y
OS 740
023740

010046

5461
S462
gngg

023756
003762
023766

005037
005037
012737

DRSYNC:

S4Sg8
(023742
005037
002326
453
85374
803985
881235
4
7S
1
0200
002320
002322
022080

10:43

MO8

PAGE 103

DIAGNOSTIC MODE RERD SYNC PRTTERN (PREAMBLE)

§3§é

g“%g
4

02-DEC-77

ERROR

8465

031616
S406 (023774
024000 004737
016237 000026
002204

3%:

:CS1 CONTENTS IN ERROR

IF AN ERROR IS DETECTED, THE SUBROUTINE NILL SET UP TO ABORT

THE PRESENT TEST UNLESS LOOP ON ERROR IS SET
MOV

CLR
CLR

MOV

002244

(SP)

fcur
escnps

#128. RO

PUSH RO ON STACK

éL AR E ESCR
T Sgunr
!CLERR

'SET COUNT TO CLOCK TO READ GATE

CLR
CLR
MOV

PR. Bit
:CLERR PRESENT BIT
M1.BIT
!CLERR PREVIOUS B17
#DMD!MEWD'ECCW,E MRI ;SET UP EXPECTED MRI1

JSR

BIT
: GO Rsno A BIT
RKfiRl(Ra)
T.MR1 GET
MRI

MOV

S467
2323

024006
024014

023737
001424

DO2204

002244

CMP
BEG

T.MR1,E.MRL
2%

!CHECK IF IT IS CORRECT
:YES - SKIP

g:;?

024016

012737

024066

001236

MOV

828, SESCAPE

:SET ESCAPE FOR CONTINUE TEST

S472

024024

005037

001236

CLR

SESCAPE

s CLEAR ESCAPE

€476

04044

ASL

€473
S474
S475
6477
§478

8479

c480

024030
024036
(024040

032777
001011
013700

001000
001254

155102

024046
0o40S4

016037
162737

033472
000002

001236
001236

024062

g:gé

024064

€483

024066

g:es

024074

§484

024072

006300

012600

4g:

18:

000204

005237

005200

002326

2%:

001337

2488 24076 012700 000177

2333 024102 012737 122040 002244
5490 024110 004737 031616
E491 024114 016237 000026 002204
49
854158
Q3737 002204 D022
44
41

E494
5435
E43E
€497

024132
Q24idg
Yyl4y2
024146

012737
0004y
005237
005300

€500

024152

013737

g:gg

E501
E502
6503
E604

€505

024150

024160
024166
024172
(24200

024206

O24142

012737
004737
016237
023737

001404

5§:

6%:

001357

MOV
SUB

MOV

002320

002322

002320

002204
002244

(SP)+,RO

INC

BITCNT

BNE

DEC

!CHECK IF LOOP ON ERROR
'YES SKIP
'ELSE SET UP TO SKIP TO NEXT TEST

ssuoeTe(Ro) $ESCRPE
82, SESCAPE
RY

;s POP STACK INTO RO
: INCREMENT THE BIT COUNT

:LOOP UNTIL READY FOR READ GRTE

8127.

SET COUNT FOR REST OF SYNC

MOV
BR
INC
DEC

869, SESCAPE
50%
BITCNT
RO

'SET FOR conr:nuz TESTING
‘GO TO ERROR é
'BUMP BIT COUNTER
!LOOP UNTIL RERDY FOR SYNC 1

MOV

PR.BIT,M1.BIT

;MOY PRESENT TQ PREVIOUS

'YES - SKIP

MOV
JSR
MOV
CMP
BEQ
BNE

000001
031616
000026
002204

#BIT3, JSUR
i$
§TESTN,RO

RTS

MOV

001236

002326

BI~
BNE
MOV

MOV
JSR
MOY
CMP

BEG

sDMD! fisuo-sccu'ROGATEE.MR1 ;SET NEW EXPECTED MR1
BIT
RKI‘!RI(RE’)
.MR1 ;G0_READ
;GE MR1 BIT
T.MR1, nkl
cugcx Ir, CORRECT
6%

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

!SET SYNC 1 BIT
'GO_RERD BIT
:GET MRI
!CHECK IF CORRECT

SEQ 0103

DSKLS CTIRL PRTS
02-DEC-77 10:21

gc4210
024216

012737
000416

024220

024220
024224
024230
0e4232
024240
g2424e

004437
005237

032356
002326

024250
Oe24252

005724
000703

Oc4254
024262
02424

032777
001403
005037
000674
010446
000204

002260
002160

30(1046)

50%:

PAGE 104

SEQ 0104

(R4)+

BIT
BEQ

#8179, ASWR
S1%

TEST IF LOOP ON ERROR
SKIP

—
=

—

)]
@©

&
G GRS
W
WY
GI
MWL PNV
W

K K K K K KK I K K K K K

WO
WIS
W

1%:

CLERR FOR SKIP TO NEXT TEST

R4, -(SP)

;SET UP STACK FOR RETURN

EXPECTED HEADER IS CRLCULRTED FROM THE CYLINDER,
S

TRACK

SECTOR SPECIFIED IN THE “L* REGISTERS. THE Rsnotnc ofF tHE

3 WORDS IS DONE AND MR1 IS MONITORED TO INSURE IT DOES
NOT CHANGE. AT THE END OF TH? sno/conpnne
THE CONTENTS
VERIFIED.

NCREMENT OF RKDCYL AND RKDA IS

IF THE INCREMENT IS GOOD,

THE “L* REGISTERS ARE

UPDATED TO THE NEW PACK ADDRESS IN’CRSE OF MULTI-SECTOR

OPERATIONS. THE BAD SECTOR ERROR DESIRED (BSEDES) SWITCH
1S TESTED AND IF IT IS NON-ZERO, THE 2ND AND 3RD_HERDER

WORDS PRE CHANGED ACCORDING 70 BSEDES CONTENTS. THIS
CAN BE USED TO FORCE HERDER YYPE ERROR.
CALL:

JSR
ERROR
ERROR
ERROR

RY, DHDCMP
;ERROR IN MRI
12
:ERROR IN CSl
13
"ERROR IN PACK ADDRESS
14

MOV

RO, - (SP)

;s PUSH RO ON STACK

MOV
MOV

R3,-(SP)
RS -(5P)

:1PUSH R3 ON STACK
: :PUSH RS ON STACK

CLR
MOV
MOVB
BIC

177400

TESCQPE

DIAGNOSTIC MODE HERDER READ_AND COMPARE
THIS ROUTINE SIMULATES THE THREE HEARDER WORDS RERD AND
COMPARE THAT IS PART OF ALL DATA TRANSFER OPERATIONS.

MOV

002326

sBUMP TO NO ERROR RETURN

:SKIP TO RETURN

RTS

DHDCMP:

:GO GET RKb1l REGISTERS

:BUMP BIT COUNTER
!BUMP TO NEXT ERROR CALL
:GET EXPECTED €SI
:CHECK IF CORRECT
'NO- SKIP

MOV

S1%:

:SET RETURN FOR CONTINUE TEST

1GO TO ERROR EXIT

SER

001236

[m]
o

R4, GETREG

BIYCNT
(pq)+
L.CS1,E.CS1
T.CS1,E.CS1
4§

INC
TST
MOV
CMP
BNE

002220
002220

024326
024330
024332

o mur\u}moooo

024322

O--000000
LretaOrotatmseie

024276
024276
024300

JSR

78:

154656

NOS

¥7$, SESCAPE

MOV

001236

1ST

001000

10:43

02-DEC-77

DIAGNOSTIC MODE RERD SYNC PRTTERN (PREAMBLE)

00 0K M i i

024274

001266

000
000

nuinunninnnyinuIu
i

PO PUNU DU 02 b s 1t 0t 3ms e s e b ()
WOV NN LWN-OW

CZREEBO RK&11
CZReEB. P11

MARCY!1

ASL

ggg

R1.-(SP)

:'PUSH R1 ON STACK.

BItCNT
#S RO
L.OT,RI
#177%00,R1

;CLERR BIT COUNTER
"GE DESIRED TRACK
:CLERR UNUSED BITS

sSHIFT TRACK TQ ALIGN TO

:SET A SHIFT COUNT

:HERDER WORD FORMAT

CZRGEBO RKE11 DSKLS CTRL PRTS
CZR6EB.P11
02-DEC-77 10:21

5563

SSe4
SS6S
Sseb
S567
5568
5569

024334

024340
Ge43d44
024350
024356
024360
0g43e4

153701

0S2701
013700
032737
001402
0S2701
010003

5570
5571
S572
5573

024366
024370
024372
024374

050503

5575

024402

001404

gg;g

024414

S574

5576
S577

024376

024404
024410

BO9g

MACY1l 30(1046)
02-DEC-77
10:43
PAGE 10S
DIAGNOSTIC MODE HERDER READ AND COMPRRE

00e2e6b

140000
0Ce274
010000
031000

002260
29%:

0101GCS
040005

005737

0023Se

043701
043703

002352
002352

23%:

;
024414

005037

001204

5585

Oev42e6

012705

000001

5587
5588
5589
5
SS91

024440
{24444
024446
024450
024456

305037
Q30500
001403
012737
004737

002320

S593
5594
S535

024470
024476
(024500

023737
001431
012737
000137

025160

5598

024512

005037

001236

00000i
031616

002320

002204

002244

024562

001236

5592 0Oe44be 016237 000026 002204

6599
S600
S601
Se02
5603

Q24516
024524
024526
024532
024534

gggg

02454

S606

024550

S607
Se08

032777
001011
013705
00630S
016537
162737

024550
024552

012605
012603

5610

024556

(12600

S613

0O24“See

Se09

ggié

Sbl4
Se1S
5616
ggig

(024554

024560

02456b
024570
024572
024574

001000

000002

BEQ

23%

154414

BIC
BIC
RO,

BSEDES

TEST IF _BSE DESIRED

BSEDES,R1
BSEDES,R3

CLERR BIT IN WORD 2
: CORRECT HVRC

R1, ANC 3 HAVE THE EXPECTED HERDERS
CLEAR A PASS COUNTER

119:

MoV

#8170

;STORE PREVIOUS BIT

38:

CLR
BIT
BEQ
MOV
JSR

PR. BITNl BIT

MOV

RKfiRl(RE) T.MR1 ;GET MR1 FOR TESTING

cMP
BEQ
MOV

4§:

001236

PR.BIT
RS,RO
38’
IBITO PR.BIT
RDBIT

JMP

50%

CLR

SESCAPE

;CLEAR TO JUMP TO NEXT TEST

BIT
BNE
MOV
ASL
MOV

#BIT9, dSWR
:CHECK IF _LOOP ON ERROR
Ss
{YES- SKIP
STESTN,RS
{GET CURRENT TEST NUMBER
RS
:AND SET UP TO ESCAPE TO NEXT TEST
$SWOBTB(RS), SESCAPE

MOV
MOV

(SP)+,RS
(SP)+,R3

82, SESCAPE

(SP)+,R1

00C204

RTS

MoV
002326

6%:

{PRESET FOR_PRESENT BIT O
TEST IF BIT TO BE A ONE
NC- SKIP
ELSE CHANGE TO ONE
:GO_READ A BIT

CHECK IF _CORRECT
YES
- SKIP
SET RETURN TO CONTINUE TEST

MOV

005705
100402
006305
000716

; ESTRBL ISH BEGINNING OF DATA WORD

T.MR1,E.MRI
6§
#68, SESCAPE

suB
5%:

.DMD'NEND'ECCN'QDGRTE E.MR1 ;SET EXPECTED MRI

(1260l

005237

NO
- SKIP

STM

(CO1e54
033472

R1,RS
RO, RS
R1,R3
RS,R3

;SET BS BITS
:GET_DESIRED CYLINDER
TEST IF 22 SECTOR FORMAT
NO
- SKIP
ELSE SET FORMAT BIT
: COMPUTE VRC

MOV

SS86 024432 013737 002320 002322 7%:

024506

MOV
BIC
BIC
BIS

; INSERT DESIRED SECTOR

s8IT1S!BITIY4,R1
L.OCYL,RO
8CFMT,(.CS1
]
¥8I179,R1
RO,R3

CLR

égga 024420 012737 122040 002244

Eggg

L.C5,RI1

BIS
MoV
BIT
BEG
BIS
MoV
TST

gggq
5582

Bise

INC

TST
BMI
ASL
BR

(SP)+,R0O

BITCNT

RS
g3
RS
7%

"POP STACK INTO RS
;POP STACK INTO R3

:iPOP STACK INTO RI

; ;POP STRCK INTO RO
;BUMP BIT COUNT

;CHECK IF LAST BIT OF THIS WORD
‘HRS BEEN SIMULATED - YES - SKIP
iSHIFT TO NEXT BIT
:GO DO THIS BIT

SEQ@ 0108

CZR6EBO RKBII DSKLS CTRL PRTS
02-DEC-77 10:21
CZR6EB.P1
024576

005737

001204

0052
00070S

001204

e
Bea%

001204

023727

001204

012705

100000
001204

023727
001436

001204

894280
37

B0EB38

BBEEZE
024660
024666

MACYL1l

2-DEC-77
MODE HEAD

30(10
DIAGN

g8%:

TST

000002

000003

000004

108:

168:

§TMP]

3
1,R0

1;’

MpP

SEQ 0106

R Adao
AN {88rare

BNE
MOV

INC

cQO9

STHPI

STMF1,
82

GE
MOV
INC
BR

103
R3,RO
STMPI
118

cMP
BG

3
STMP1,
3

cL
MOV
énc
R

8BIT15,RS
;THPI
s

cMP
BEQ

44
STMP1,
128

TEST
NO

IF PASS FOR
P

1ST WORD JUST DONE

PUT NORB 2 IN RO FOR SIMULATION
‘BUMP PASS COUNT

JgST ?8h€ WITH WORD 27

:PUT 3RD WORD IN RO
BUHP PRSS COUNT

JgST gO?E WITH WORD 37

:PUT IN WORD O OF GAP

‘SET TO GIVE IT 1ST GAP BIT
:BUMP PASS COUNT
; TEST

IF RERDY FOR GRP

YES - SKIP

THE FOLLOWING BLOCK OF CODE COMPUTES THE NUMBER OF CLOCK
PULSES (WHICH ARE RACTURLLY CALLS TO RDBIT) THE OPERATION

OR - THE WHAT WA
1o BRSED
EALLOLATION:
PRADEPRD RRDAD. riars
WHEN THE OPERATION STARTED (L.DC AND L.DAj.
IN THESE COUNTERS

024670
024674
024702
024704
024710

012701

000025
010000

scrfiT L.CS1

002260

000023
001000
002266

21
21s:

024764
024770
024772
025000
025006

004437
00S724
013737
023737
00ie4!

025010
gz2s01le
025020

005724
013737
013737

SKIP

;SST éFIgECTOR WAS MAX

000400

010000
001204
100000

#BIT12,RS
STMP1
;gocnrs,s.nnx

:BUMP_PASS COUNT
:CLEAR READ GRTE

17%:

002266

000623

- SKIP
YES

EL E_CHANGE FOR 22 SECTOR MODE
:SET FOR MAX HERD OF 2
TEST IF TRACK/SECTOR ADDRESS WRS MAX

17s
#BIT6,RS
19%
L DS, Rl
18%
chre,ns

000100

024762

cex?q R1

L.DS,R1

;PRESET R1 FOR 24 SECTOR MODE

IS IT 24 SECTOR MODE OPERARTION?

19%

002244

SET FOR 8 BITS OF GAP TO UPDATE

:SET FOR & BITS OF GRP TO UPDATE
;SET TO GIVE 1ST 4 BITS OF GRP

OF BLOCK
RY, GETREG

032356

002260
002160

002220
002220

00ea74
002266

002240
00e226

;GET RK611 REGISTERS

T CSl1,E.CS1

:BUMP TO NEXT ERROR RETURN
{SET EXPECTED CS1
! CHECK IF CORRECT

(RY)

;BUMP TO NEXT ERROR RETURN

(R4)+

L.CS1,E.CSI
4§

L. DCYL E.DCYL
L.OR,E.DR

'NQ SKIP

GET STARTING CYLINDER

TRACK/SECTOR

CZR6EBO RKb11 DSKLS CTRL PRTS
CZReEB. P11
02-DEC-77 10:21

5675
5676

5677

567
567

025026
025032
36

105237
012700

oo
NNNNNANINNNINNINNYN
L) 0= D bt st e s s Bt e ps (O
OWwoONOCNLW—0OWD

20%9 105z

5708

002226
000026
010000

MACY11

000024
002226

138:

002226
882227
0003
0ceee?

123700
001004

02c102
025106

105037
005237

0Gee2?
102240

os2 128

002240

002200

0eslee
025130
025132

8 3737
1004
023737
001402
000137

002226

0oe2leb

025136
025144

013737
013737

002240
oGz2e226

025152
025154

005724
000137

024550

025160

032777

001000

000137

001236
024550

02-DEC-77

15%:

25%:

107

Rg ¢.on

INCB
MOV

E on+1
83, RO

g TRACK
RESET FOR 3 TRACKS (RKOB)

158

NE
CLRB

26%:

#26, RO
ucrfir L.CSl
oaw RO
S

PRESET FOR 26 SEC/TRACK
vEg
as SECTOR MODE
ELSE cuance FOR 24 SECTOR MODE

CHECK IF SECTOR TO LARGE

'NO - K*
ser 3 c OR TO O

CHECK IF TRACK INC TO LARGE

CMPB

E.bn+1,no

CLRE

E.DA+]

:CLEAR TRACK TO O

CMP
BNE

5 DCYL,T.DCYL
3

BEQ
IMP

E.DA,T.DA

;CHECK_IF CYL OK
- SKIP
NO

263
q4$

! CHECK IF DA OK

MOV

E.DCYL,L.DCYL

;STORE COMPUTED NEXT CYL

CMP
MOV

SKIP

:BUMP CYLINDER

E.OCYL

£.DR,L.DA

'AND NEXT DA

JMP

(RY)+

;BUMP TO NO ERROR RETURN

BIT
BEQ

#BIT9, 3SWR
51§

; TEST IF LOOP ON ERROR
- SKIP
NO

IMP

51$:

n v

sq -(SP)

SBTTL

DIRGNOSTIC MODE GAP RERD AND SYNC WRITE
THE RERDING OF THE GAP_AND WRITING OF THE SYNC (OR PREAMBLE)

50%:

CLR

;*
;l

tx
‘¥

RTS

:GO TO GOOD EXIT

$ESCAPE

'CLERR TO LOOP ON ERROR

:SET STACK TO CONTINUE TEST

IS HANDLED IN THIS ROUTINE.

THE FIRST GAP BITS ARE PROCESSED IN THE Henoen COMPQRE

ROUTINE AND THE REMAINDER ARE PROCESSED HERE. THEN
CHECK IS MADE THAT WRITE GRTE CAME ON AND 255 “0* exrs

AND A SINGLE *"1" BIT IS WRITTEN.

s x

cALL

‘x
¥
1

ERROR
ERROR
ERROR

JSR

RY, DWGPSN

ERROR

‘¥
T

ROUTINE
JSR

CQLLEO
PC,
WRTBIT

NO ERROR

RETURN

SEQ 3107

:BUMP SECTOR

Snpe

15T

153752

PAGE

E.DR

INC

002274
002266

D09

INCB

MOV
3%5
MOV

BNE

oceysle

10:43

DIAGNOSTIC MODE HERDER RERD AND COMPARE

002260

025074
025100

010446
000204

30(1046)

1§
16
17

:MR1
:CS1
"MR1

IN ERROR IN READ GAP
IN ERROR AFTER READ cnp
IN ERROR IN_WRITE SYN

:CS1 IN ERROR AFTER SYNC NRITE

RETURN POINT IF ERROR IN WRTBIT

—

CZREEBO Rksll
CZREEB.P
5731
6732

§733

S734
§735
6736

€737
5738
6739

6740
5741

025204
025204

025206

025212
025214
(25220
025226
025230

S742
5743
S744
6745

025234
0:5236
025242
(025250

6747
g;ng

025260

6750

025264

6746

6781
6752
6763

025252

025272
025276
025302

DSKLS CTRL PRTS
02-DEC-77 10:21

MACY1!

DWGPSN:

010046

005737

001006
012700
012737

000416
105737

:
:

002266

000066
000011
002266

8% :

000070
0000N?

002326

012700

0000GS

000074

002326

012737

005037
005037
004737

022040

002320
002322
031616

002244

S7S4 025306 016237 000026 002204
6765 025314 023737 002244 002204

6766

025322

001404

5787
6768

025324
(25332

012737
000S13

5760
5761
g;gg

025340
025342
025344

005300
001357
000421

65769

5764

(025334

025346

005237

002326

005037

001236

5765

025352

022777

5767
5768
6769
g;;?

025362
025366
0256370
852363

013700
006300
016037
162737

5766

025360

001011

S§772
g;;a

025404
025406

012600
000204

5775

025410

004437

§776
6777
5778
g;gg

025414
025416
025424
025432

E;Sé

025434

005724

6783

025436

005037

€785
5786

(026446
025452

005037
005037

6784

(025442

025346

(005724
013737
023737
001345

005037

001000

9%:

032356

THE GAP. THE ADJUSTMENT DEPENDS ON HOW MANY GAP BITS WERE
Rsno IN THE HERCER conpnas ROUTINE FOR ADDRESS REGISTER UPDATE.
TST
L.DA
TEST IF DESIRED TRACK/SECTOR NOW O

es
#54. RO
#11,BITCNT

'NO - SKIP
*ELSE ADJUST COUNT FOR CYL CHANGE
:PRESET BIT COUNT FOR REST OF GAP

9§
#56. RO
#7 BYTCNT
108

'NO- SKIP
SELSE ADJUST COUNT FOR TRACK CHANGE
JPRESET BIT COUNT FOR REST OF GAP

BR
1518

108
L.DS

MOV

cs BITCNT

BNE
MOV
MOV
BR

s TEST

IF NEW SECTOR IS O

sPRESET BIT COUNTER FOR REST OF GAP

10§:

MOV

18:

MOV
CMP

Rthma) -MR1 ;GET
e MR1, nhx
CHECK IF CORRECT

MOV
BR

oas SESCAPE
50§’

ser RETURN TO CONT TEST

RO
18
4s

:DEC LOOP COUNT
:LOOP IF NOT ZERO
JELSE SKIP

CLR
CLR
JSR
BEQ

118:

001236
001236

PUSH RO ON STARCK

THE FOLLONiNG cooE ADJUSH THE COUNT FOR THE REMAINDER OF

2%:

Ys:

BITCNT

CLR

SESCAPE

CMP

:SET COUNT FOR &0 BITS

oono-sccu MEWD,E.MRL

PR.BIT
n1 arr
BIT

INC

DEC
BNE
BR
BNE

001254
033472
000002

RO, - (SP)

SEQ 0108

MOV
#60. RO
END OF BLOCK'

001236

153560

MOV

BNE
MOV
MOV

002326

001006
012700
012737
000405

012737

EOS

30(1046)
02-DEC-77
10:43
PAGE 108
DIRGNOSTIC MODE GAP READ AND SYNC WRITE

#8179, ISWR

:SET sxpscrso MR1

:CLEAR
PRESENT BIT
:CLERR PREVIOUS BIT
160 Rsno BIT
YES
- SKIP

;BUMP BIT COUNT

:CLEAR TO EXIT OR LOOP

ERROR RETURN: cnscx IF LOOP ON ERROR
YES
- SKIP

MOV
ASL
MOV
suB

$TESTN,RO
GET NUMBER OF NEXT TEST
RO
:SHIFT FOR INDEXING
SSNOBTB(RO) SESCAPE :SET ESCRPE FOR GOT TO NEXT TEST
82, SESCAPE
:SET 0 FIRST INST (SCOPE)

MOV
RTS

(SP)+,R0
RY

JSR

RY, GETREG

; :POP STARCK
sGET RKb11

INTO RO
REGS

TST
MOY
CMP
BNE

(RQH
L.CS1,E.CS!
T.C51,E.CS1
23

BUMP TO “EXT ERROR RETURN
'SET E.“E.TED €SI
:CHECK .F CS1 OK
‘NO- SKIP

TST

(RY4)+

:BUMP RETURN POINTER

002326

CLR

BITCNT

:CLEAR BIT COUNTER

002324
002316

CLR
CLR

M2.BIT
PI.BIT

002260
002160

002322

002220
002220

CLR

M1.BIT

:CLEAR ALL WRITE BIT INDICATORS

CZREEBO RKL_11 DSKLS CTRL PRTS
0e2-DEC-77 10:21
CZR6EB. P11
00S03?
012737
012700

000402

025514
325516

010446
000204

025520
025526
025532
025534

012737
004737
000770
005237

025540
025544
025546
025554

004437
005724
023737
001274

025556
025560

005724
000711

025562

032777
001403
00S037
000702
010446
00004

FOS

PRGE 109

SeqQ 0109

PR_BIT
SOMD! ECCW' MEWD uRTcaTE MR:

c%:

JSR

PC,WRTBIT

BR
INC
DEC
BNE
BR

£9%:

000001
030652

10:43

CLR
MOV

MOV

002326

MOV

RTS

MOV

002316

#256. ,RC

:SET EXPECTED MRl

SET cbunr T0'WRITE 256 "O”

;CALL WRITE BIT

6%
BITCNT
RO
S§

"ERROR RETURN - SKIP TO HANDLER
:BUMP BIT COUNT
:L00P UNTIL ALL 256
:BITS ARE WRITTEN

RY, - (SP)

;WRITE ERROR HANDLER-SET

81,P1.BIT

:SET SYNC BIT OF 1 RS NEXT BIT

'STACK FOR REPORTING SUBSEGUENT ERRORS

002326

JSR
BR
INC

PC WRTBIT
63
BITCNT

‘GOWRITE IT
*ERROR RETURN
‘BUMP BIT COUNT

032356

JSR

RY, GETREG

;GET RKb1l REGS

0ce1e0

TST
cMP
BNE

00ee20

TST

BR
001000

153350

50%:

001236

S1%:
3
8
8
88 8
3
S
L

IR I I

SBTTL

DWRITE:

025604

02see0

02-DEC-77

DIAGNOSTIC MODE GAP RERD AND SYNC WRITE

O02a44

030652

025474
025500
02550¢
025506
025510
0e5S51e

025602

002320
062040
000400

30(1046)

i
0 0D00 000D D 0D 00D D
mp—.—;—p.._._._;.....
OWwO NN LW

02s4se
025462
0254?70

MACY11l

002326
002342

BIT

(R4)+
7.CS1,E.CSI
2%

:BUMP TO NEXT ERROR RE TURN
'CHECK IF CORRECT
'NO- SKIP

(R4)+

BUMP PRST ERROR RETURNS

#8179, aSWR

: TEST IF LOOP ON ERROR

:GO TO EXIT

BEQ
gkn

51§
ggscnps

:YES - SKIP
'ELSE SET TO LOOP

MOV

24 ~(SP)

;PRESET STACK FOR RETURN

RTS

DIRGNOSTIC WRITE DATA AND ECC ROUTI NE
THE DATA IN THE QUPUT BUFFER IS WRITE SIMULRTED,

ECC IS

GENERATED AND WRITTEN, AND THE POSTAMBLE IS WRITTEN.
CALL:

JSR
ERROR
ERROR
ERROR

RY,DWRITE
;MR1 IN ERROR IN WRITING
17
;ECC ERR OR IN WRITING
21
;CS1 ERR OR AFTER WRITE
22

NO ERROR RETURN

ROUTINE CRLLED:
PC WRTBIT
J SR

RETURN POINT IF ERRIR IN WRTBIT
NO ERROR RETURN FROM WRTBIT

s sPUSH
:PUSH
:'PUSH
::PUSH

RO
R1
R3
RS

ON
ON
ON
ON

STACK
STACK
STACK
STACK

:LLEAR BIT COUNTER
:CLEAR ECC LOMW

CZRBEBO RKE11
CZRGEB.PLL
0e5624
25630
25634
025640
025644
025646

DSKLS CTRL PRTS
02-DEC-77 10:21

005037
0l ?80
703

010437
005724
010437

MACY11l

30(1046)

02-DEC-77

10-43

GO9
PAGE

SEQ 0110

110

DIAGNOSTIC WRITE DRTR AND ECC ROUTINE
;CLERR ECC
H

002340
000400
047636

CLR
MOV

ECCHI
#4900, RO

001220

MOV

Ru STHP?

MOV
MOV
TST

goi2ie

80BUFF,P3
Rq $TMPE
R4+

'SET WORD COUNT FOR ONE SECTOR
:GET POINTER TO OUTPUT DATR
:STORE_MR1 ERROR RETURN
‘BUMP TO NEXT ERROR_RETURN
:STORE ECC ERROR RETURN

THE FOLLOWING CODE SIMULATES THE WRITING OF 400 HORDS
THE PROCEDURE IS TO
0AD_THE CERRENT WORD INTO RS AND
T0 SHIFT

02sese
025656
025662

S86)
S86
5864

002324
002322
002320

025664
02567

Qgs70

8557?2
025714
S716
025724
025730

X
5871

3%:

002316

025752
025754

001402
000137

025760
025764
025766
025770
025772
025776
026000

005237
005701
100424

002214
0O0celY

4g:

5%:
43%:

eS80 826078§
026014

010000

001214
32%:

020000

5891

026034

000137

026374

026040
026046
0260S0
026054

032737

010000

026070

ool1214

040000
000675

ool1214

002244

002260

TO L FT

TO POINT TO THE CURRENT BIT.

;CLERR SWITCH

MOV
MOV
MOV
CLR
BIT
BEG
MOV
JSR

M1.BIT,M2.BIT
PR.BIT.MI.BIT
P1.BIT PR.BIT
Pl.géT
RI,
X3
#1,P1.BIT
PC!WRTBIT

JSR

MOV

ECC FOR THIS BIT
: GO GENERRTE
. GET PATT
RKECPT(R2) g ecpt

BEG
IMP

40%
13%

INC
TST

ASL

002260

IGHT

$TMPS
#8I170,R1
(R3)+ RS

BMI
000001

FROM

CLR
MOV
MOV

CMP
409%:

002326

R BIT

CMP
BNE
BIT
EQ
§T
BNE
BR

:LOAD BIT POINTER
:GET A WORD FOR WRITING
-2
; SHIFT CURRENT-1 TO CURRENT

'PRESENT TO CURREN
NEXT TO PRESENT

?E IFNEXgBIT IS ONE

INO - SKIP
NEXT BIT
ELSE%;T

334

ERRO ETURN - SKIP

E.ECPT,T.E¢

cfiecx IF ECC CORRECT

PC,ECCGEN

BITCNT
Rl
78
R1
81
RO,
4g
#CFMT,L.CS1

3;5

§TMPS
32%
4§

YES
- SKIP

' JGMP TO ERROR EXIT
;BUMP BIT COUNT

TEST BIT_POINTER
! IF NEGATIVE - SKIP

;ELSE SHIFT LEFT AND LOOP

;TEST IF WRITING LAST WORD
- GO TO LOOP
;NO
;TEST IF 22 SECTOR MODE
- %KIP
:NQ

;TEST
IF 18 BIT SWITCH SET
,YES - SKIP
;ELSE LOOP

ELSE TEST IF LAST BIT OF LAST WORD

TST

B1IC

SECCW,E.MR1

ELSE SET HRl FOR ECC WRITE

#CFMT,L.CS1

; TEST IF 22 SECTOR MOOE

BPL

33%:

BR
JMP

7%:

BIT

4§
203

BEQ

313

BNE
MOV
CLR
CoM
BR

30%
#BITIY,RI
RS
§TMPS
4g

TST

§TMPS

NGO - GO_TO LOOP

ING- SKIP
TEST IF 18 BIT SWITCH SET
YES - SKIP

SET TO SUPPLY 2 HORE BITS (16 & 17y
‘MAKE SURE THEY RRE 0'S

:SET THE 18 BIT SWITCH
:GO WRITE

THE BITS

CZRBEBO RKbB11l

CZREEB. P11

DSKLS CTRL PRTS
0e-DEC-77 10:21

005037

o0lelH

012701

gol214
002340
000001

oo Ngf\'

~-00

Z goo

oo o P o
s
Pt PmaPs
- P

00
nn

o
n
o

L LLwu-—

005300

MACY1l

30(1046)

30%:

318:

8%:

846237 338E84

002316

108
BaR
001403
000s01

G151 3pE531

41§:

002326

ool214

000001

020000

00c2244

0ese20

000736

BEEEsE

pol1214

026230
026234
02be40
0cba44

8 S737
1007
005237
1270
1370
000724

0eea4e

012701

g
s]0]al0)

026252

013737

002322

CLR

118:
12%:

42%:

0013S6

026316
826322
026326
026330

004437

032356
00lec0

013737

002ee0

002220

026336
026344
026346
026350

023737
001031
005724
000446

0021860

00e220

$TMPS

: CLEAR THE SWITCH

;SHIFT BIT INCICATORS AGAIN

CLR
BIT

Pl.g%T
RI,

gtgnn NEXT BIT
T IF BIT IS ZERO

14$

NRTBIT ERROR - SKIP

RGY
JSR
N
T

ECCHI,RS
sBITO Rl

PR.BIT.MI.BIT
P1.BIT.PR.BIT

al.PL.BIT
Pé’ué?gfr
ITCNT

108
R

PGET FIRST ECC WCRD
'SET BIT POINTER

YEEEEB ?BRNGE
2 3? TO ONE
? B}T SQYNTER

:
EGARTIVE ,ELSE SHIFT nno

CMP
BNE
75T
BPL
BIS

$TMPS, 81
g3
R1
8%
$ECCW,E.MR1

(TEST
INO 'ELSE
INO ‘ELSE

157

$TMPS

INC

$§TMPS

BNE

118

INO

IF HRITING LQST ECC WORD
SKIP TO LOOP
TEST ¥r
NRITING LAST BIT OF LARST ECC
SKIP
SET Eccu IN MR1

TEST Pn§g
- SK

0 JUST DONE

:BUMP PASS COUNT

MOV
MOV
BR

#BIT0,Rl
ECCLO.RS
8%

BIT POINTER
:PRESET
"GET
SECOND ECC WORD
:LOOP

MOV

#15.,R!

:SET A BIT COUNT

M1.BIT,M2.BIT

;SHIFT BIT INDICATORS

P1.8IT

sSET 2ERO FOR WRITE POSTAMBLE

MOV

MOV
MOV

PR.BIT.ML.BIT
P1.BIT.PR.BIT

JSR
BR
INC
DEC
BNE

PC WRTBIT
158
BITCNT
R1
12%

CLR

030852

026314

SEQ 0111

111

M1.BIT,M2.BIT

MOV

MOV
MOV

001214
000001
002342

002326

PAGE

:DEC WORD COUNT
"IF NOT ZERQ - GO GET NEXT WORD
:CLEAR FOR PASS CONTROL

BMI
ASL

10%:

002324
g023ee
002320

HO9

RO
33
$TMPS

DEC
BNE
CLR

MOV
MOV
002324
002322
002320

13737
013737

10:43

DIAGNOSTIC WRITE DATA AND ECC ROUTINE

002322
002320
002316
002316

13737

02-DEC-77

JSR

RY, GETREG

:GO WRITE BIT
‘WRITE BIT ERROR - SKIP
:BUMP BIT co
'DEC BIT COUN
*LO0P UNTTIL BIT COUNT O
:GET RKB11 REGS

MOV
TST
MOV

$THP7 , R4
(R4 )+
L.CS1,E.CS1

:SET R4 FOR ECC ERROR RETURN
:BUMP TO CS1 ERROR RETURN
‘GET EXPECTED €Sl

CMP

T.CS!1,E.CS!

; CHECK_IF _CORRECT

TST

(R4)+

‘BUMP TO GOOD RETURN

BNE

B8R

18%

19%

- SKIP
NO

:GO TO RETURN

CZREEBO RKB11l

CZRBEB .P11

DSKLS CTRL PRTS
0e-DEC-77 10:21

MACY11

30(1046)

02-DEC-77

10:43

109
PRGE

SEQ J112

112

DIAGNOSTIC WRITE DARTA AND ECC ROUTINE
139:

MoV

$TMP7 ,RY

rggS.QESCQPE

;STORE RETURN POINT FOR NO LOOP ON ERROR

001216

14%:

MoV

$TMP6,RY

;SET FOR MR1 ERROR RETURN

013704
000402

oole1e

209:

Mov

$TMPB,RY

;SET FOR MR1 ERROR RETURN

026402

013704

0ol1216

15%:

MoV

$TMPH,RY

;SET FOR MRl ERROR RETURN

026406
Ceb414

032777
001403

001000

16%:

BIT

#BITS, dSKR
178

;NO - SKIP

026416
OceM22

005037
ooo421

001236

CLR
BR

SESCAPE
19%

:CLERAR_ESCAPE
; SKIP TO EXIT

02642y
0ee4ee

010446
000204

179:

MOV
RTS

R4,-(SP)
RY

; CONDITION STARCK
;GO REPORT ERROR

026430
026434
026442
026444

005037

169:

CLR

SESCAPE

001254

BNE
ggt

193
aEESTN,RO

033472
000002

MOV
SuB

$SWOBTB(RO), SESCRPE
82, SESCAPE

MOV
MOV
MOV
g?g

(SP)+,RS
(SP)+,R3
(SP)+ Rl
é&P)+,R0

026366
026372

013704
000405

026374
026400

152524

152476

19%:

L
R

Egv
BR
BR

BEQ

BIT

163

168

#8179, ISWR

;SET FOR ECC ERR_R_RETURN

; CHECK IF LOOP ON ERROK

;CLEAR FOR LOOP OR EXIT

:CHECK IF LOCP ON ERROR

; YES - SKIP
;SET UP TO SKIP TO NEXT TEST

; ; POP
; ; POP
; ;POP
; ;POP

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

RS
R3
Rl
RO

DIAGNOSTIC MODE _READ GAP AND DRTA SYNC
THE RERDING OF THE GAP_AND READING OF THE SYNC
IS HANDLED IN THIS ROUTINE.

010046

L3 S

026500
026es00

ODRGPSN:

(OR PREARMBLE)

THE FIRST GRP BITS ARE PROCESSED IN THE HEADER COMPARE
ROUTINE RND THE REMAINING GAP BITS ARE PROCESSED HERE.
THEN A CHECK IS MADE THAT RERD GATE CRAME ON
AT THE 129TH BIT OF SYNC. ;%
CALL:

JSR

R4, DRGPSN

ERROR
ERROR
ERROR

16
32
33

ERROR

;MR1 IN ERROR IN READ GAP

;CS1
;MR1
:CS1

IN ERROR AFTER RERD GRP
IN ERROR IN READ SYNC
IN ERROR AFTER SYNC RERD

888

R T

001236
001000

001236

—
—
r

001e20
025760

8] n
@®

013704
012737
000410

888

026352
026356
026364

ROUTINE

CALLED:

JSR

PC,RDBIT

MOV

RO,-(SP)

; :PUSH RO ON STRCK

CZREEBO RKE11

CZR&EB.PI11

e P

[oadaloal
al '
000000

Pt Pt Pt Pt Pt

DONOC
N LW

6011
6012
60

DSKLS CTRL PRTS
0e2-DEC-77 10:21

MACY11l

’

;
;

002266

02650¢e
026506

000066
000011

002326

8%:

00eeeb

6020

000070
000007
026554

012700

026560
026566
026572
026576
026602
026610
026616
026620
026626

012737

026630
026634
026636
026640
Oe6b42
326646
026654
026656

002326

000005
000074

002326

022040
002320
002322
031616
000026
002244

002244

026b42

001236

00ece0H4
goo2e04

REQD IN THE HERCER COMPARE ROUTINE FOR ADDRESS REGISTER UPDRTE.
L.DR
; TEST IF DESIRED TRACK/SECTOR NOW O

BNE
MOV
ESV

8%
#S4. RO
réé,éxrcut

75718

L.DS

MOV
ggv

#56. RO
:6 i TeNT

BNE

MOV

18:

CLR
JSR

CHP

E.MR1, T.MRI

SSV

ggg,sescnps

CLR
MOV

BEQ

2%:

001254

INC

004437
005724
013737
023737
001345

026730

005724

026732
026736
026744

005037
012737
012700

002326
022040
000200

02&750
0ece7SY

004737
016237

031616
000026

4g:

032356
002260
002160

00e2e20
002220

002204

5%:

:SET COUNT FOR 60 BITS

cono-eccu MEWD, E. MRl
SET EXPECTED MR
PR.BIT
nh
PRESENT BIT
CLERR PREVIOUS BIT
917

DBIT

:GO REARD BIT

Rxfinltna) T.MR1 ;GET
MRl
;CHECK IF CORRECT
11$

BITCNT

- SKIP
YES

ssr RETURN TO CONT TEST
:BUMP BIT COUNT

RO
19
43

'DEC_LOOP COUNT
'LOOP IF NOT ZERO
'ELSE SKIP

CLR

SESCAPE

:CLEAR TO EXIT OR LOOP

CMP
BNE
MOV
ASL
MOV

suB

"ERROR RETURN: CHECK IF LOOP ON ERROR
#8179, 3SUR
33
'YES - SKIP
'GET NUMBER OF NEXT TEST
§TESTN, RO
RO
:SHIFT FOR INDEXING
SET ESCAPE FOR GOT TO NEXT TEST
ssuosracno) ssschpe

82, SESCAPE

ET +3 FIRST INST (SGOPE)

RTS

(SP)+,RO

;;POP STACK INTO RO

JSR

R4, GETREG

:GET RK&11 REGS

BNE

15T
MOV
CMP

(RY)+
cs1 E.CS1
T.CSlE.CS1

:BUMP TO NEXT ERROR RETURN
'SET EXPECTED CS1
:CHECK IF CS1 OK

15T

(R4)+

:BUMP RETURN POINTER

CLR

BITCNT

:CLERR BIT COUNTER

JSR

PC,RDBIT

:CALL READ BIT

MOV
MOV

002244

'ELSE ADJUST COUNT FOR TRACK CHANGE
'PRESET BIT COUNT FOR REST OF GAP

DEC
BNE
BR

MOV

026704
026710
gee71e
026720
026726

:PRESET BIT COUNTER FOR REST OF GAP

#60.,RO

10%:

001236
001000

012600
000204

#S BITCNT

END OF BLOCK

118:

0e6702

:TEST IF NEW SECTOR IS O

- SKIP
:NO

MOV

*NO- SKIP
'ELSE ADJUST COUNT FOR CYL CHANGE
'PRESET BIT COUNT FOR REST CF GARP

MOV

002326

033472
000002

THE FOLLOWING CODE ADJUST THE COUNT FOR THE REMRINDER OF
THE GRAP. THE ADJUSTMENT DEPENDS ON HOW MANY GAP BITS WERE

9% :

00042l

00s037
022777
g0i011
013700
006300
016037
162737

709

02-DEC-77
10:43
PAGE 113
DIAGNOSTIC MODE READ GRP AND DRTA SYNC

30(1046)

MOV

:NO
- SKIP

sOMD"! Eccu-nsuo EHRl .SET EXPECTED MRl
#128. R0
T LOUNT TO REARD 128 "0

RKMRI (R2),T.MR1 :GET MRI FOR TESTING

SEQ 0113

CZREEBO RKB11 DSKLS CTRL PRTS
CIRBEB.PLL
0e-DEC-77 10:21

KOS

MARCYLl 30(1046)
02-DEC-77
10:43
PAGE 114
DIAGNOSTIC MODE READ GRP AND DARTA STNC

6067

026762

026770

001404

023737

002244

002204

6070

026772

012737

027002

001236

6071
6072
6073
6074
6075
6076
6077

027000
027002
027006
027010
027012
027016
027024

000465
005237
005300
001357
012700
0S2737
004737

6079

027036

6081
gggg

02706
0270S4

002326
000177
100000
031616

002244

023737

002244

002204

012737
000437

027056

001236

6085
Eggg

027062
027064

005300
001357

005237

002326

6088

027066

012737

000001

001404

027124

000413

012737

027126

ggg?

027126

005237

002326

6038

027132

004437

032356

6100

027140

023737

002160

00123S

J27150

005724

027154

Q032777

027170
027172
027174

000643
010446
000204

MoV
BR

4238, SESCARPE
S0s

ELSE SET ESCRPE
:GO TO ERROR REPORT EXIT

BITCNT

; 3UMP BIT COUNTER

%1,PR.BIT

;SET SYNC BIT OF 1 RS NEXT BIT

INC

DEC
BNE

RO
63

YES
- SKIP

iDEC BIT_COUNT
:LOOP UNTIL ALL 127 READ

4248, SESCAPE

508

ELSE SET RETURN FOR CONTINUE TEST

INC

BITCNT

;BUMP BIT COUNT

JSR

RH GETREG

;GET RKb1ll REGS

cMP

T.CS1,E.CS1

24s:

TST

002220

BNE
TST

BR
001000

23%

MoV

BEQ

000652
151756

S0%:

001236
518:
3
8

SBTTL
8

001403
005037

TEST IF CORRECT

RKfiRl(RE) T.MR1 ;GET_MRI FOR TESTING

001236

027162
027164

E.MR1,T.MARIL

002c44
002204

027152

CMP

MOV

PC RDBIT
1GO_READ IT
RKMR1(R2),E.MR1 ;:GET MR1 FOR TESTING
£.MR1, T.MRI
CHECK IF _CORRECT

027146

005724

;SET _RETURN FOR CONTINUE TEST

:GO TO ERROR EXIT
:BUMP BIT COUNT
:LOOP UNTIL ALL 128
:BITSARE RERD
:SET COUNT FOR REST OF SYNC
:SET EXPECTED MRI
:GO_CALL READ BIT

BIT

BEQ
CLR

BR
HOV
RTS

c4s

R4+

YES
- SKIP

:BUMP TO NEXT ERROR RETURN
;CHECK

_IF CORRECT

iNO - SKIP

(RY)+

BUHP PAST ERROR RETURNS

#8179, dSKR

; TEST

33
R4, -(SP)

; PRESET STACK FOR RETURN

:GO TO EXIT

S1%
SESCAPE

RY4

IF LOOP ON ERROR

:YES
- SKIP
'ELSE SET TO LOOP

DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE
THIS ROUTINE

OF DATA.

IS USED TO SIMULARTE THE READ OR WRITE CHECK

THE ROUTINE WILL TRANSFER A FULL OR PARTIAL SECTOR.

THE FIRST WORD AFTER THE CALL SPECIFIES HOW MANY WORDS
ARE TO BE TRANSFERRED.

027136

#4228, SESCAPE

; TEST IF CORRECT

:YES - SKIP

JSR
MOV
cMp

e
s
s
(s Bt Bt Pt
e B
B
e P
e Bt Pt
(et P
e Bt B
e D

TORI Y= =2 b s be pe 1 1 = = Q OO O O OO0 0O
N~ OVONCNLWN—-DOO
NN LW—

[eadoaloaloalealoalo
o aleale o aloale oo alo als oo ado oo alualo ol o o

6099

E.MR1,T.MR1

c2es

SO
BITCNT
RO
s$
s127. RO
ORDGR?E E.MR]
oIt

MoV

027116

002320

ss
s we

gggg

027114

031616
0C00C6
002244

6093

004737
016237
023737

23%:

6032

027074
027100
027106

BR
INC
DEC
BNE
MOV
BIS
JSR
BEQ

6089
6090
6091

0270S6

001404

6%:

LB 8

6084

027044

MOV

22es:

6078 027030 016237 000026 002204

6080

cMP

BEQ

gggg

SEQ 011v

IF LESS THRAN
A FULL SECTOR,

THE ECC AT THE END

OF THE TRANSFER IS NOT CHECKED. THE ECC 1S CHECKED AT THE TIME
EACH BIT

IS TRANSFERED.

EITHER 16 OR 18 BIT WORDS CAN BE SIMULRATED

CZRGEBO RKB11 DSKLS CTRL PRTS
CZRGEB.P11
02-DEC-77 10:21

LOS

MACY1l 30(1046)
02-DEC-77_
10:43 PRGE 11S
DIAGNOSTIC READ DATAR OR DIAGNOSTIC WRITE CHECK ROUTINE

123
§i§§

s ¥

OF CFMT BIT IN
2 PENDING
E RE&U?R OND, THEBITS _STARTE
16 AND
7 AR nséuntb L.CSl.
?6 eé JF zéso.BITS

612

612
gieg

Tx
P

THE CONTENTS
OF (OCATION ECPOSX MUST BE
LOA
W[TH THE ECC
COUNT
EX
EC?ES
At
?HE
END
SF
?Hs
8379
§R$NSPES.
¥HIS
LOADING MUST OCCUR BEFORE THE ROUTINE IS CALLED.

sxgo

2i3é

TO BE CORRECT AND SET TO'1 IF AN ERROR IS BEING FORCED.

D%
i

6133

6134

6136

6135

ANOTHER LOCATION, EC:ATX, IS SET TO O IF THE ECC IS EXPECTED
A 3RD LOCATION,

ECCSRC,

SPECIFIES THE SOURCE OF THE ECC

WORDS TO BE USED IN CHECKING THE OPERARTION. IF ECCSRC_IS A
1.

THE ECC WORDS FED INTO THE DECODER ARE TAKEN FROM THE

LAST TWO LOCATIONS OF OBUFF,

IF ECCSRC IS O, THE COMPUTED

6137

ECC WORDS FROM ECCHI AND ECELO ARE USED.

6140

LENGTH OF tRANSFER

ERROR 41

6138
6139

D x
Tx

b14]
6142
6143
6144
6145
6146

¥
s
x

CALL:
JSR

RY,DREAD

ERROR 34
ERROR 35
ERROR 36

sMR1 IN ERROR READING DRTA OR ECC
'ECC ERROR READING DATA
'CS1 ERROR AFTER READING DATA OR ECC

D
3

ERROR 42
ERROR 43

(ERR IN ECC PAT CALCULATION
'ERR IN ECC POS COUNTING

6148
6149
6150

Sy
B
T

6152

6147

6151

6153
b154

LENGTH OF tRANSFER

Py
Dx

ERROR 54
ERROR 55

gigg

6159

‘x

6160
6161
6162
6163
6164
6165

027176
027176

6170
6171
6172

027206
027210
027214

6166
6167
6168
6169

L%
1
R 4

027176
027200
027202
027204

DWRTCK:
DRERD:

010046
010146
010346
010546

012400
010437
005724

001216

R4, DWRTCK

6155

6156

JSR

:ECC REGISTER INCORRECT AFTER RERD ECC

ERROR 53

“MR1

ERROR 41

'ECC REGISTER INCORRECT AFTER READ ECC

ERROR 43

JERR IN ECC POS COUNTING

ERROR 42

'ERR IN ECC PAT CALCULATION

ROUTINES CALLED:
ROBIT
ECCGEN

MOV
MOV
MOV
MOV

RO, -(SP)
RI,-(SP)
R3,-(5P)
RS, -(5P)

MOV
MOV
TST

MOV

RY, STMP7

6175
6176
6177
6178

027224
027230
027232
027236

010437
005724
010437
005724

001210

MOV
TST
MOV
TST

R4, $TMP3
(R4 +
RY, $TMPY
(R4 +

001212

ON STACK

:BUMP TO NEXT ERROR_RETURN

001220

TST

ON STACK
ON STACK
ON STACK

(R4)+

010437

005724

RO
R1
R3
RS

:STORE WORD COUNT
:STORE_MR1 ERROR_RETURN
:BUMP TO NEXT RETURN

027216

027222

: ;PUSH
:PUSH
:'PUSH
'PUSH

(R%)+, R0
RY, $THPE
(R%G) +

6173

E174

IN ERROR WRITE CHK OR ECC READ

‘ECC ERROR IN WRITE CHECK
:CS1 ERROR _AFTER IN WRT CHK OR ECC READ

:STORE_ECC ERROR

RETURN

:STORE €S1 ERROR RETURN
{BUMP TO NEXT ERROR RETURN
"STORE_ECC_REG_ERROR RETURN
:BUMP TO NEXT ERROR RETURN

SEQ 0115

027354
027360
027362
85?370

NN EWN

oo
oo T
UM hL VUV
PV

'SOTER ECC POS ERROR RETURN
'GET ADDRESS or BUFFER

CLR

$TMPS

027434

005737

002326

- ()
£N
OW
N~

030262

gRes8]

027504

027540

002322

000001

002320

00ee04
002244

e 030435
dlss 362 14 GIEE
0014
000137

005037

Srnr,L.CS1
#11000,8TMP12

#11001,3TMP13

;CLEAR FOR 18 BIT MODE SWITCH

TEST §F &e BIT MODE
ELSE SET UP BIT COUNTS FOR 18 BIT MODE

MOV
MOV

s18880,§rrp1§

$10001,8TMP1
#10041.8TMP1Y

:SET BIT COUNTS FOR 16 BIT MODE

3%:

MOV

#BITO,R]

:PRESET _BIT POINTER

4$:

2°§

SE.BI},Ml.BIT

SHIFT PRESENT INTO PREVIOUS

MOV

BYT

18:

43%:

040000
002354
ocoi214

30%:

IGET DATA WORD

Rx;Eé
13

gt
T IFSKIP
SESENT BIT IS O

JSR

PC,RDBIT

;GO cho BIT

JNP

E13

MOV
CMP
BEQ
TST
BEQ

$1,PR.BIT

ELSE INSERT A1

RKMR1(R2),T.MR1 :GET
CHECK IF CORRECT
T.MR1,E.MR1
43%
'YES- SKIP
BITCNT
44§

s TEST IF FIRST BIT OF DATA
- SKIP ECC GEN
:

JSR
MOV

PC,ECCGEN
:GO GENERATE ECC
RKE%PT(RE) 71.ecPt ;TEST IF ECC CORRECT

BEQ
IMP

1os

N
éal

Bf TCNT

ASL

ELSE SHIFT BIT POINTER

#CFMT,L.CS!

:TEST IF 18 BIT MODE

CMP

2%:

(R3)+ RS

BEQ

MOV

ool214

001214

:CLEAR BIT COUNTER
:CLERR ECC COMPUTED LOCATIONS

MOV

0Ceese0

BITCNT’
ESEE

32%:

010000

:BUMP TO NEXT ERROR RETURN

géxoux,srnp1q

Y4§:

002326

(R4)+

SSV

030276

100402
006301
000727
032737
ool4le
00s737
001007

MOV

Nl
W

000
O

~
L]
~N

000000
o rebe O —

000137

027500
027502

Béé
MOV

001226
001230

031616
000026
002204

BE7ad

CLR
tg
002260

027406
g27412
027420
027426
027430

-0 L0

NN 0= 0= b= pt s Pt Pt po

5 BaAESe

002320
002320

027376
027400

116

RH STHPII
80BUFF, R3

TST

OO
e

027346

PAGE

DIAGNOSTIC RERD DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

MOV
MOV

857508

355338

MO9

:STORE ECC PAT ERR RETURN

27272
027306

10:43

RY,$TMP10

00000
—=0OWOr

6200

02;256

02-DEC-77

MOV

0000
O N=0

DD D O D DD O DD 0 M O
DO NN LWNU—ODONONL

Pt et P

00O OO

e Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P

T OO 00T OCTC O

Be78a3J

30(1046)

001222

010437

027240
OE;E:H

MACY1l

wwn
oot

CZR&EB. P11

DSKLS CTRL PRTS
02-DEC-77 10:21

CZR6EBO RKB11

BIT

tet

T
?E ?E
8 COUNTSRD IS DONE

'NO- SKIP
STEST IF PROCESSING BIT 16 OR 17 DONE
,YES SKIP

BEQ
TST
BNE
MOV

MOV
ggn

308
§TMPS
308
#BIT14,RI]
HIBITS,RS
s;nps

:INSERT HI ORDER BITS
'SET 18 BIT SWITCH

CLR

$TMPS

:CLEAR 18 BIT SWITCH

'SET_POINTER FOR 2 MORE BITS

SEQ 0l16

cznssao RKBll DSKLS CTRL PRTS

CZREEB.P11
6235

6236

027544

02-DEC-77 10:21

31%:

027546

001302

6239

027550

023737

002326

624l

027560

000137

030234

gs:g
6244

bo4s
646
247
6248
6248
ggg?
6252

027656
027564

027572
027576
027602
027606
027610
027616
027624

001402

013737

00v"37
005037
005737
001006
013737
013737
012305

002320

002322

002340
002342

050636
050640

030462
001214
002344

ggga

027626

012701

000001

6255

027632

013737

002320

6257

027644

6259
6260

027650
027656

6256

6258

b6l
bebe

6263
6e64

6265
6266
6267

027640

027646

0276b2
027670
027676
027700

027704
027712
027714

005037
030105

001403

012737
004737

(.6b237
023737
001402
000137

023737
001402
004737

6268
6269
6270
ES;é

027720
027726
027734
027736

6273

027742

005237

6275
6276

027754
027756

001003
042737

6274

027746

016237
023737
001402
000137
023737

001226

002320

000001
031616

33%:

002320

65S:

000026
002204

002204
00,244

030312
002326

001226

363:

002214
002254

49%:

030462

000032
002214
030276
002326

Ys$:

6278
6279

:IF NOT ZERO - LOOP

CMP

BITCNT,STMP12

;ELSE TEST IF FULL SECTOR WAS RERD

JIMP

*ELSE _JUMP TO EXIT - DO NOT CHECK

MOV

JSR
CLR
TST
BNE
MOV
MOV
MOV

R1.RS

MOV
JSR

46$
$ECCW

INO
- SKIP
,ELSE CLR ECCW FOR ECC RERD

47
$ECCW,E.MR!

;
SKIP
"ELSE SET ECCW_FOR ECC DONE

sROGAYE E.MR1

000032

002214

MOV

€385

030032

023737

002214

002254

CMP

6287

030042
030050

023737

001157

002212

002252

6290

030052

023737

002326

001232

MOV

,TEST IF 18T BIT OF ECC

BIC

016237

;TEST IF 1ST BIT OF POSTAMBLE
:CLEAR RERD GATE

RKECPT(R2),T.ECPT ;STORE ACTUAL PATTERN

RKECPS(R2) ,

T-ECPS :STORE ACTUAL POSITION

MOV

ecposx E. Ecps

BNE

208

BNE

208

INO
- SKIP

CMP

BITCNT,$TMPI1Y

:TEST IF ECC DONE

CMP

47%:

BITCNT,$TMP!3

BITCN? STMPlH

030010

6288

RKECPT(RE) 1.€cpt
sGET PATTERN
T.ECPT,E.ELPT
; JEST_IF'ECC PAT CORRECT
45§
YES SKIP
108
ELSE GO REPORT ERROR

CMP

6282

001163

'YES - SKIP
‘ELSE JUMP TO REPORT EXIT

;BUMP BIT COUNT

030002

030040

38%
118

BITCNT

CMP

gsgg

6286

:GO_RERD BIT

INC

MOV
CMP
BEQ
JMP

002244

6284 030024 013737 002350 002252

81,PR.BIT
PC RDBIT

:TEST IF FIRST ECC BIT
;
-"SKIP ECC GEN (ALREADY DONE)
GENERARTE ECC FOR axr

0Ou2244

002212

34¢

BITCNT,$TMP12
49¢
PC,ECCGEN

020000

000030

;SHIFT PRESENT TO PREVIOUS

'AND SET UP PRESENT

CMP
BEQ
JSR

BEQ
JMP

020000

016237

PR.BIT

RKMRI (R2),T.MR1 ;GET MR1
T.MR1,E.MR1
:CHECK IF CORRECT

BNE
BIS

030016

'SET B8IT POINTER

MOV
CMP

001027
052737

6283

;MOVE LAST DATA BIT FOR ECC GEN

:GET ECC FROM BUFFER

BIT

BNE
BIC

002244

(R3)+,RS

PR.BIT,M1.BIT

001230

100000

PR.BIT,M1.BIT

ECC WORDS

PC.ECCGEN’
: GENERATE ECC
§TMPS
:CLEAR FOR PRSS COUNTING
ECCSRC
:TEST WHERE ECC WORDS ARE
36%
:THEY ARE_IN BUFFER - SKIP
ECCHI, OBUFF+1000°
‘ELSE MOVE THEM INTG BUFFER
ECCLO. OBUFF+1002

MOV

CLR

'YES- SKIP
:

#BIT0 R1

027772
(027774

042737

338

MOV

002326

6277 027764 023737 002326 001232 46%:

: DECREMENT WORD COUNT

BEQ
348

10:43

DEC

BNE

BEQ

368:

002322

02-DEC-77

NOSY

PAGE 117
DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

005300

gggg
6240

MACY1l 30(1046)

GET EXPECTED POSITION FOR REPORT

T.ECPT.E.ECPT

cuscx IF CORRECT

T.ECPS,E.ECPS

CHECK IF POSITION CORRECT

NO SKIP

SEQ 0117

CZREEBO RKG11 DSKLS CTYRL PRTS
CZRBEB.P11
02-DEC-77 10:21

6291

030060

030062

002436

6292
6293
6294
6295
6296
6297
6298

030070
030C76
030100
030104
030112

016237

000030

6302
6303
6304
6305
2386

030134
030136
030142
030150
030i52

001'402
000137
023737
001402
000137

030326
002212
030342

6308
6309

030156
030160

005701
100403

030066

005737
001433

023737
001402
005237
016237

B1O

MACYll 30(1046)
02-DEC-77_ 10:43 PAGE 118
DIAGNOSTIC READ DATA OR DIAGNOSTIC WRITE CHECK ROUTINE

BLY

002346

001232
002350
000032

6310
ggié

030162
030164

006301
000137

027632

6313

030170

00S737

001214

ggig

030174

001004

6317

030176

00S237
000137

027624

6320

030206

023727

001214

6314

ggig

030202

6321
6322
6323
6324

030214
03021&
030220
(030224

6327

030234

gggg

030260

6334

030262

ggg%

630274

ggsg

6328
6329
6330
6331
6335

030230

030240
030246
030254
030256

001007
005005
012701
005237
000137

004437

013737
023737
001060
00S724

002214

INC
MOV

ECPGSX
ELSE BUMr POS COUNT EXPECTED
RKECPT(R2),T.EcP}
;GET PATTERN

00221e

013704

001216

6338

030276

013704

001220

gg:?

030310

000421

e342

030312

013704

g344

130324

000413

634?
6346

030316
030326

000427

012737

012737
013704

027470
001216

027742
001222

MOV
MoV
CcMP

51%:
48%:

T1ST
BMI

R1
6%

TEST IF _WORD DONE
YES SKIP

TST

$TMPS

BNE

INC

001236
001236

001236

GET POSITION

RKECPS(R2),T.ECPS
EXPECTED POSITION
E . ECPS ;GET
ECPOSX,
'TEST IF PATTERN CORRECT
T.ECPT,E.ECPT

:YES- SKIP
;ELSE GO _REPORT
CHECK IF POSITION CORRECT
YES- SKIP
ELSE GO REPORT

6%:

002220
002160

YES
- SKIP

518
ccs
T.ECPS,E.ECPS
48%
233

ASL
JMP

000001

52%

BEQ
JMP
cMP
BEQ
JMP

7$:

8%:

000446

027434

030302

S2$:

027632

012737

£339

002252

BEG

001214

030266

48§

:TEST_IF EXPECTED ECC 1S O
(NO ERROR)
YES_- SKIP
TEST IF FIRST POSTAMBLE BIT

STMP14,BITCNT

000001

002260
002220

BEQ

;NO_- SKIP

CMP

001214

032356

ECPATX

0023¢b

030120 013737 002350 002252
6300
6-.Jdl 030126 023737 002214 002254
6299

489

TST

SEQ 0118

3%:
10%:
118:
2es:

Rl
Ss

ELSE SHIFT BIT POINTER
:ANDLOOP
; TEST PASS COUNT.

IF NOT Q

(NOT THE FIRST ECC WORD JUST WRITTE)
SKIP

JMP

363

S$TMPS

;BUHP PRSS COUNT

cMP

$TMPS, 8]

; TEST_PASS COUNT. IF NOT 1 (NOT THE

JMP

BNE
CLR
MOV
INC

83
RS
#8IT0,R1
$TMPS

:2ND ECC _WORD JUST READ)
:CLEAR _WORD (POSTRMBLE)
;SET BIT POINTER
:BUMP PRSS COUNT

JSR

RY, GETREG

;GET RKbE11 REGS

139

MOV
CMP
BNE
TST

L.LSI,E.CSI
E.CS1,T.CS1
2ls
(R4)+

MOV

$TMP6,RY

12%

MOV

SKIP

{SET EXPECTED CS1
CHECK IF CORRECT
NO
- SKIP
ELSE BUMP RETURN POINTER TO NO ERR
;SET RETURN TOR MRl ERR.

8433, $ESCAPE

;SET RETURN TO CONTINUE TEST

MoV

$TMP7 . RY

;SET RETURN FOR ECC ERROR

128

MoV

8443, $ESCAPE

MOV

$TMP6,RY

129%

MOV
MOV

8458, $ESCAPE

$TMPLIO,RY

;SET RETURN TO CONTINUE TEST

;SET RETURN FOR

MR1 ERROR

'SET RETURN TO CONTINUE TEST
;GET RETURN FOR PATTERN ERROR

CZRBEBO RK&II OSKLS CTRL PRTS

CZRGEB.P11

0e-0eC-77 10:21

6347

030332

012737

6350

030342

013704

gg:g

gggé

6353

030340

030346

00040S

012737

6354

0303S4

030360
030366

032777
001407

6358

030370

00S726

635S
gggg

gggg
6361

6362

030372
030376

013746

005037

030142
001224

030156

001224

001000

MACY1l 30(1046)

001236

001236
150852

23%:
12%:

13%:

030402
03044

012601
(012600

6368

030410

013704

001212

208:

6370

030416

(13704

001210

218%:

6369

6371
6372
gg;a

030406
030414

012603
143

030422
030426
030434

00S037
032777
001360

6375

030436

013700

001254

gg;g

030444

016037

033472

001236

6379

030452

162737

000002

001236

6376

ggg?

030442

030460

006300

0007486

001236
001000

1S0S04

6385
6386
6387

6392

030462

010046

030464
030470
030476
030500

012700
032737
001002
012700

6338

0C7504

005710

6393
6400
€401
e40e2

158:

030506
030510
030516
030520

001410
032737
001410
005037

$TMP11 RY

;RET RETURN FOR POSITION ERROR

MOV

$TMPL1,-(SP)

;PREP STACK FOR RETURN

(SP)+

; REMOVE LARST ENTRY FROM STACK

MOV
BIT
BEQ

002316
000002

IBITQ JSWR
43

MOV

(SP)+,RS

MOV
MOV

(SP)+ Rl
(SP)+,R0

{SET RETURN TO CONTINUE TEST
;TEST IF LOOP ON ERROR
iNO SKIP

iNO LOOP - SLEAR ESCAPE

(SP)+,R3

; POP STRCK INTO RS

"POP STACK INTO R3
; sPOP STACK INTO Rl
; ;POP STRCK INTO RO

RTS

MOV

$TMP4, R4

;GET RETURN FOR ECC ERROR

MOV

$TMP3, RY

;GET_CS1 ERROR RETURN

CLR
BIT
BNE

153

SESCAPE
#BIT9, JSKR
13%

:TEST IF LOOP ON ERROR
:TEST IF LOOP ON ERROR
;YES - SKIP

STESTN,RO

SET REG;STERS
TO LOOP ON ERROR OR

ASL

SuB

22, SESCAPE

ESCRP

$SWOBTB(RO), SESCbPE
134

;SET UP TO ESCQPE TO NEXT TEST

; ADJUST RETURN

;GO TO EXIT

.SBTTL
; *
;¥
;¥
¥

GENERATE ECC WORD
ERCH TIME THIS ROUTINE IS CALLED THE ECC IS CALCULATED FOR THE
NEXT BIT TO
BE RERD
OR NRITTEN QN THE BITS PREVIOQUSLY

; ¥
; ¥
; #
L ¥

TO RKECPT.

READ OR_MWR TT N (STORED IN
ECCHI
AND ECC%O) TH$ RESULTS OF
THE CALCULATION ARE PLACED IN E
CCHI QNO
CCLO
THE LOW ORDER
11 BITS OF ECCHI ARE PLACED IN
FOR ERSY COMPARISON
CALL:
RETURN:

JSR
RTS

MOV
BIT
BNE
MOV

sP{_BIT,RO
$8171,L CSI1
129
#M1.BIT,RO

;GET ADDRESS OF NEXT BIT
:CHECK IF WRITING
:YES
- SKIP
;ELSE CHANGE TO PRESENT BIT

(RO)

;CHECK IF NEXT BIT O

ECCGEN: MOV

002260
12%:

002336

483, SESCAPE

SESCAPE

002322
00000!

128

CLR

MOV

6393
6334
6395
Egg%

MOV

6382
6383
6384

6388
63t9
6390
6391

;SET RETURN TO CONTINUE TEST

MOV

000204
000402

119

8518, SESCAPE

TST

001236

6364
636S

gggg

PAGE

MOV
BR

01260S

03C400

10:43

DIAGNGSTIC READ DATA OR DIAGNOSTIC “WRITE CHECK ROUTINE

030376

6363

02-DEC-77

Cl0

002340

1%:

TST

BEG
8IT
BEQ
CLR

RO -(SP)

33
#1,ECCHI
S$
ECCXOR

PC,ECCGEN

; STORE RO

;YES - SKIP
iNO, CHECK IF BIT 31 = 1
iNO, SET ECC XORED BIT
:CLEAR ECC XORED BIT

SEQ 0113

CZR6EBO RKb11
CZR6EB.PIL1

DSKLS CTRL PRTS
0e-DEC-77 10:21

MACY11l

02-DEC-77
GENERATE ECC WORD

30(1046)

gbc

14
B483 B3Be5¢ Be8a

6405

£40% 838222 831730

002340

39:

Sér

000001

002336

S%:

MOV
SEC

’9:

002342
002340
002336

020020
00~ 342
2 4020
80534
002340
002400
002340
002340
174000

038858

330648
030650

00ec2s4
002254

000207

SEQ dJi20

:SHIFT IN ECC BIT
: CHECK

#1,ECCXOR

*NO,

CL nR

cc xons

:set ECC xOR
:SET CARRY FLOP

ROR
ROR

ECCLO
ECCHI

MOV

s8lt13'8ITY, -(spi bo xon OF ECC BITS

ECCXOR

317

CHECK xr XOR NEEDED

BIC
BIC

ECCLO, (SP)
o, 2, 11, 21, 23
B8 TIQ!BITH,ECCLb

MOV

sBIT107BIT8, -(SP)

(SP)+,ECCLO

(SP)

BIC

ECCHI,

8IS
MOV

(SP)+,ECCHI
ECCHI E.ECPT

STORE ECC PPTTERN

RTS

:RETURN

#BIT10!'BIT8,ECCHI

BIC

10%:

120

:CLEAR CARRY FLOP

l*,ECCHI

BIS

002340

PAGE

TST

002342

D10

Y4 3

BEQ

0240

s 7400g E.ECPT
(GP)+ RO

BIC
MOV

gSEEN BITS
RE TORE RO

MAINTHNENCE
OM
ENT 2O
LAY
LTI E ?flULQ;ED
B FATT 127OF(PRECOMP
TE oCOMPUTED
ADVANCE AND DELRAY nnxnrsnnncz

030652

030722

030724
030732
030734
030740
030746
030754
030760
030762
030766

002400
ooo440
00c0es
002244

002244

p a TR
Pl 2 B S

LR T T
& 8 8

nu ATE

O2°0000000
Qv o=
O
—

Pt Pt Pnes P
s P
bt
P

012737

DoV

oococo oo
PR
i g
¥ o
¥ o

030540

000001

10:43

TBIT:

150206

1%:

0010e3

014400
042000
002320

002244
002244

3%:

0023ee

IF MR1

THAT TBANFIF 1S THE TRANSITIONWHEN TE
N
HERGE
B

ERROR OCCURRED.

CALL:

JSR

RETURN: RTS
BIS

MOV
MOV
CMP
MOV
MOV
MOV
RTS

031606

042737
052737

ENCODED WRITE DATA) FOR THE PROPER TRANSITION OF THE

MAINTENANCE CLOCK AND CHECKED AT EACH TRANSITION.

BEQ

030724
043644

001000

RKMRI IS

BIT

RTS

PC,WRTBIT

pCi2

FOR NO ERROR RETURN

FOR ERROR IN MR!

#MCLK!MEWD,E.MR1
:CREATE EXPECTED MRINT. REG.
$DMD' MCLK, hxnnxRé) -PROVIED 1ST UPWRRD rnnnsxrxou
RKMR1(R2)
T.MR1 ;STORE nnln REG. 1
E.MR1, nh1
; CHECK IF MAINT REG 1 CORRECT
: YES PROVIDE DOWNWARD TRANSISTION

#1%, SESCRPE
SEMW1, EMW+2
(SP), -(SP)
PC

:LORD ESCAPE FOR LOOP ON ERROR
*LORD ERRO MESSAGE
SQVE RET
TMR1 Inconnecr ON UPWARD TRANSITION

#SW9, ISWR

; CHECK IF LOOP ON ERROR

INO, CONTINUE
:YES, LOOP ON ERROR

BEQ
JMP

33
63%

BIC

#MCLK!PCA!PCD, E. HRI ; INITIARLIZE MAINTENANCE REG.

TST

PR.BIT

cuec IF ONE

TST

M1.BIT

CHECK IF PREVIOUS ONE

8IS
BNE

BNE

M
$MEWD! WRTGAT,E.

20%

108

YES,

SIMULATE ONE

:YES, NO TRANSISTION

cznsseo RK611 DSKLS CTRL PRTS
CZREEB.PI1
02-0EC-77 10:21

E1Q

MACY1l 30(1046)
02-DEC-77 10:43 PAGE 121
SIMULATE ONE BIT OF WRITE DATR IN MAINTANENCE MOOE

BIC

6459 030770 042737 002000 002244
6460
6461
6462
6463
6464
E:gg

030776
031002
031004
031010
031012
031020

005737
001007
005737
001412
052737
000406

002316
002324
010000

ogloea

5737

002324

6468
6469
6470
6471
6472
6473
6474
6475
6476
g:;g

031026
031030
031036
031044
031052
031060
031062
031070
031076
031100

1003
052737
012762
016237
023737
001416
012737
012737
011646
000207

6479
6480

031102
031110

6483

6488
6489
6430
E:gé

5§ :

6494
gjgg

6497

BNE
BIS
MOV
MOV
CMP
BEQ
MOV
MOV
MOV
RTS

M2.BIT

10%
upca E.M
#0MD | Rxnnx(na)
Ranl R2).T.MR1
T.MR1,
nhx
128
ulxs SESCAPE
SEMW2, EMW+2
(SP), =(SP)
PC

s CHECK FOR_PRECOMP. ADVANCE

#SW9, ASKR
128

CHECK IF LOOP ON ERROR
CONTINU

001236
001512

032777
001402

001000

150030

118:

BIT
BEQ

JMP

638

031116

0S2737

002400

002244

12%:

BIS

¥MCLK! MEWD,E . MR1

031150
031156
031164
031166

012737
012737
011646
000207

031170
044022

001236
001512

031170

032777

001000

147742

13%:

002244

15%:

031124

0l2762

031176
031200

031204

001402
000137
052737

6498
6499
6500
6501
6502
6503
6504
6505
2289

031212
031220
031226
031234
031292
031e44
031252
031260
031262

092737
012762
016237
023737
001414
012737
012737
011646
000207

6508
6509

031268
031272

000440

000026

6511

6514

002000

000400
000040
000026

002244
000026
002204

002204 002244

031264
044110

001236
001512

032777
001145

001000

147646

031300

062716

000002

031306

005737

002316

031304

000207

MOV

MOV
CMP
BEQ

MOV
MOV
MOV
RTS

031606

6510 031274 005037 001236
2215

=
ICHECK IF NEXT BIT
*YES, CHECK FOR PRECOHP ADVANCE
:CHECK FOR PRECOHP ADVANCE
:NO, CLOCK IN ZERO
'St PRECOMP. DELATY
:CLOCK IN ZERO

031102
043732

002204 002244

6485 031132
016237 002244
000026 002204
6486
031140
023737
002204
6487 031146 001416
6433

p1.81t
X3
M2.BIT
108
#PCD,E.MR1
108

002244
000C2¢.
002204

10%:

17%:

18%:
208 :

: INDICARTE TRQNSISTION

757
BNE
TST
BEQ
BIS
BR

004000
000040
000026

g:gé 031112 000137 031606
6484

002244

SMEWD,E.MR1

BIT

BEQ
JNP

BIS

YES LOOP ON ERROR

cnsnre EXPECTED MARINT REG
1

OVIDE 2ND upunno TRANSISITICN

RKMR1
(R2)
. T.MR1 cuscx
hs HRINT
REG.REG 1 CORRECT
E.MRI,
nhx
IF
nn:nr
15$
PYES, CONTINU
#SW3, ASKR

:LOARD ESCAPE FOR LOOP ON ERROR
*LORD ERROR MESSAGE
: SAVE RETURN
:MR1 INCORRECT
sCHECK IF LOOP ON ERROR

15%
533

INO, CONTINUE
*YES, LOOP ON ERROR

SMEWD, E MR1

sRESET TRANSITION INDICATION

B1cC
MOV
MOV
CMP
BEQ
MOV
MOV
MOV
RTS

#MCLK E.MR1
sono AKMR1(R2)
kRl (R2),T.MR1
nnx
nfix
18%
8178, SESCAPE
SEMUWG, EMW+2
(sp) 2(sP)
PC

YES, RETURN
'LORD ESCAPE FOR LOOP ON ERROR
'LORD ERROR MESSAGE
! SAVE RETURN
:MR1 INCORRECT

BIT
BNE

#5W9, ASKR
63%

cuscx IF LOOP ON ERROR
LOOP ON ERROR

RDD

82, (S5P)

QDJUST RETURN

CLR

$ESCAPE

RTS

15T

P1.BIT

:CLOCK IN ZERO
'SET PRECOMP. novnncs
:CLOCK IN DATR BIT
;STORE MRl
:CHECK
IF MR1 CORRECT
PYES, CONTINUE
'LORD ESCAPE FOR LOOP ON ERROR
:LORD ERROR MESSAGE
:SAVE RETURN
:MR1 INCORRECT

$DMD' MCLK,, hxnnxtné)

%138, SESCAPE
SEMIW3, EMW+2
(SP), ~(SP)
PC

SEQ 0121

;SUPPLY LAST PART OF DATA
}STORE MR1

:CHECK IF MR1 CORRECT

CLEAR CAPE
:RETURN

.CHECK IN NEXT BIT A ONE

CZRGEBO RKEB11 DSKLS CTRL PRTS

CZRBEB.P11

02-DEC-77 10:21

6515

031312

001007

6517

031320

00141S

2258

031330

000411

6516
6518

031314
031322

£521

031333

6523

031344

6522

624
625
6526

6507

031340

031346
031354
031362

031370

6528

031376

6531

031414

6529
6530
gggg
6534
6535

031400
031406
031416

031420
031426

002244

O42737

000407

002244

0Olezeée

000040

000026

002204

002244

016237

023737
001414

012737
012737
011646

032777
001067

0S2737
012762
016237
023737
00I41M4
012737

6543

031476

031500

0116496

000207

6546
6547

031502
031510

032777
001036

6562

031542

gg:g

6548
6549
6550
6551

002322
010000
000026

031420
043732

002244

002204

012737

423:

001512
147430

43$:

45§:

6553
6654

031544
031552

012737
012737

031564
0494110

001236
001512

6558

031564

032777

001000

147346

6560

031574

005037
012706

6561
gggg
6564

gggg
6Se7

6568
6569

031600
031604
031606

031612

001414
011646
000207

001005

062716
000207

000177

40$

:CHECK MR1

SMCLK . E.MR1

:CHELK FOR PRECOMP ARDVANCE
INO, CHECK FO MRI
:SE} PRECOMP. RDVZNCE

:RESET MAINT CLOCK IN EXPECTED MF1

MOV

RKMR] (R2), T.MR1 :STORE MRl

BEQ

4as

MOV

$DMD RKMR1(R2)

:CHECK FOR PRECOMP DELAY
INO, CHECK MRI
:SEY SET PRECOMF DELAY
:CLOCK IN DATA BIT

T.MR1,E.MR1

:CHECK MR1 CORRECT

#4918, SESCAPE
SEMWR, EMW+2

:LORD ESCAPE FOR LOOP ON ERROR
:LORD ERROR MESSAGE

(SP), ~(SP)

:YES,

CLOCK IN REST OF BIT

:SAVE RETURN

RTS

'MR1 INCORRECT

BIT
BNE

#SW9, ISWR
638

;CHECK IF LOOP_ON ERROR
*YES, LOOP ON ERROR

SMCLK ,E. MR}
ICHREATE EXPECTED MAINT. REG. 1
#0MD* MCLK, RKMR1 (R2) :PROVIDE 2ND UPWARD TRANSITION
RKMR1 (R2) . T.MR1 ;STORE MAINT REG I
E.MR1, T.MRI
"CHECK IF MAINT REG 1 CORRECT
45§
PYES, CONTINUE
#9438, SESCAPE
:LORD ESCAPE

MOV

RTS

(SP), =(SP)

:SAVE RETURN

BIT
BNE

#SW3, ASWR
63%

;CHECK IF LOOP_ON ERROR
IYES, LOOP ON ERROR

(] {

:YES,

(SP), =(SP)
PC

:SAVE RETURN
:MR1 INCORRECT

SEMUW3, EMUW+2

:LORD ERROR MESSAGE

:MR1 INCORRECT

BIC
MOV
MOY
CMP

SMEWD!MCLK . E.MR1’:SEY TRANSISTION
#DMC, RKMR1tR2) ;ELOCK TRANSISTION
RKMRI (R2),T.MR1 ;STORE MRl
T.MR1,E.MR1
:CHECK IF MR1 CORRECT

MOV
MOV

8478, SESCAPE
SEMWG , EMW+2

BEQ
MOV
RTS

RETURN

:LOAD ESCAPE FOR LOOP ON ERROR
'LORD ERROR MESSAGE

473:

BIT

001236

50$:

CLR

001100

638:

MOV

.SBTTL

SIMULATE ONE BIT OR READ DATA IN MAINTENANCE MODE

DONE BY THIS ROUTINE.

000002

147272

i¥

‘

BIS
MOV
MOV
CMP
BEQ
MOV

MOV

001000

:YES,

M1.BIT
40$
#PCR,E.MR!

SEQ J122

CHECK IF PRECOMP DELAY

308

M1.81t
40%
#PCD,E MRl

MOV

002244
000026
002204
002204
001236

10:43

TST
BNE
BIS

MOV
MOV

000400
000440
000026
002244
031502

044022

BIC

CMP

41§:

002244
000026
002204
002244

031572

40S:

147512

002400
000040
000026
002204

6569

30%:

001000

042737
012762
016237
023737

031560
031562

001236
001512

031512
031520
031526
031534

655
Eggg

TST
BIS

BEQ

000207

031430
031436
031444
031452
031460
031462

031470

BNE

002322
004000

005737
001003
052737

02-DEC-77

F10

PAGE 122
SIMULATE ONE BIT OF WRITE DATR IN MAINTANENCE MODE

005737
0S2737

6536
6537
6538
6539
6540
6541

6542

MACYL1l 30(1046)

#SW9, ISKR

;CHECK IF LOOP ON ERROR

$ESCAPE

:CLEAR ESCAPE

BNE

6539

RDD
RTS

%2, (SP)
PC

:ADJUST RETURN
: RETURN

#STACK, SP

: FORCE STACK

JMP

JSLPERA

*YES,

LOOP ON ERROR

:LOOP ON ERROR

ONE BIT OF DATA IS READ SIMULATED.

NO CHECKING IS

)

e
s
s Ds
s

oo
oo
ZWWwhyhie
OO £

Je-DEC-77

005737
001024

oo
NOCUOUWNE
OOV

e et
Pt e o

00000
WWwwWww

it
P

bt ot P

00000
WWwwww

CSKLS CTRL

PRTS

10:21

MACY11

30(1046)

CALL:

JSR

RDBIT:

TST

PR.BIT

000440

000026

001440
000040

4g:

0ooo40

000026
000026
000026
000026

000440
000040
001440
000040

000026
000026
000026
000026

108:

53 :

.SBTTL

Wwwwwww

00000000
Or—-=000 b=t
o= tnnnnon
RNOWWO N~ N
QOoONONNO L0
Er--N1—-0—-00

Pt Pt Pt P
Pt P

NN LW

Pt Pt P

100

20
046632
ooo400

147164

‘x

047636
000400
000001

PAGE

SEQ 0123

123

108:

RTS

PC,RDBIT
P

MOV

#DMD! MCLK' MERD, RKHRI(RE)

MOV
MOV

#OMD! MCLK , RKMR1 (R3)
sDMD, RKMR1 (R2)

MOV

CLOCK IN 3ER

RTS

; RETURN

MOV

#DMD! MCLK RKHRI(RE)

MOV

! MERD, RKMR1 (R2)
sOMD! MCLK

RTS

MOV

ODHD'RKHRI(R
sDMD, RKMR1 (R2)

:CLOCK IN ONE

;s RETURN

MEMORY CHECK ENABLE TRAP

IF THE PROCESSOR IN USE HRS MEMORY PARITY OPTION

IT WILL BE ENABLED. THIS ROUTINE WILL PROCESS TRAPS CAUSED

B8Y MEMORY PAR]TY

ERROR

CLR
I7
NE
RTI

(sp) TRAPPC

ssscnps
oguq JSWR
1

#STACK, SP

.SBTTL

CLEARR INPUT BUFFER

JMP

MOV

CLR
DEC
BNE
MOV
RTS

ERRORS.

8108, SESCAPE

MOV

18:

INSERT TRANSITION

ODHD'RKHRL(RE)

15%:

CLRIBF:

:CHECK IF ONE

10$
YES SIMULATE ONE
M1.BIT
CHECK IF PREVIOUS ONE
NO INSERT TRANSITION
4§
¢DMC ! MCLK, Rxnnxthe) YES, oo NOT INSERT TRANSITION
(X3
GLock IN'ZERO

MOV

.SBTTL

6620

Gl0

BNE
TST
BEQ
MOV
8R

MEMERR: MOV

:
éfoont

oococooooo o

oo o

001236
001000

RETURN:

MOV

:
001236

10:43

002322

031742
002310

G2 DEC-77_

SIMULRTE ONE BIT OR REARD DATA IN MAINTENANCE MODE
"y

002320

000440

NNNNO
nN——0O~N
LoonE

000000
WwWwwwww

REEBO RKb11
6EB. Pil

JSLPERR

:LORD ESCAPE

,STORE PC

'REPORT MEM PARITY ERROR

:CLEAR ESCAPE
' CHECK 3 Eogp 8N

FORCE
'YES,
*NO, 'RETURN

STACK

RROR

AND TRY AGAIN

s INITIALIZE STACK

*LOOP ON ERROR

sxaurr RO

GET BUFFER POINTER

(ROY$
R1
13
(sp)+ R1
RY

‘DEC_Cou
L OOP UNTIL COUNT 1S ZERGC
RESTORE R1
'RETURN

STORE Rl

subo Rl :SET couNT
FOR CLERR
:CLEAR BUFFER WORD

BUILD DATA BUFFER

THE PATTERN SPECIFIED IN THE CALL IS LOADED INTO THE DATA
BUFFER. THE ENTIRE BUFFER IS ALWAYS LORDED (400(8) WORCS).
MOV
MOV
MOV
MOV

MOV
MOV
CMP

RO, - (SP)
R1,-(SP)
R3, -(SP)
RS’ -(SP)

$O0BUFF , RO
#9400, R{
(RY) . %1

; sPUSH
:'PUSH
; ;PUSH
PUSH

RO
R1
R3
RS

ON
ON
ON
ON

STACK
STACK
STACK
STRCK

'{0AD RO_TO POINT TO BUFFER
:SET DATA LEN
:TEST IF PQTTERN 1(ALL TERO:

2%:

R
MP

125es2

000004

5%:

b9%:

7%:

046532
000003

8%:

o46472

CMP
BNE
MOV

MoV

DEC
BNE
BR
CcMP

CMP
8SNE
MOV

SBTTL

LOAD

B,
e

c$
$PATH,
RS
103
(RY), %5

73
#125252,R3

R? (RO)+
68
138

a4
(R4),

1.
#PATY, RS
108
(R4),
%3
9g
rpnra,ns

18312 Rs

THE
THE SUBRO
AND
L
L.CS1
CALL:
JSR
. WORD

{ELSE SET BUFFER TO ALL ONES

,R3

(RS)+ (RO)+

13%:

(ALL ONES)

816.

12%:

047636

9%
10%:
11%:

[aPtetetetalalal=t=t=]

o46432
000020

e
ER

F.RS

,IRD)+
ps} Pl b 0
[=] — w wn

00000S

DEC

8177777 ,R3

Ré (RO) 4

-C
+T

046572

MOV

Tgsg %F PAT 7

4us

BNE
MOV

SEQ dl24

124

iBPe 2léEr oBuFF

+++4++

39:

PRGE

DEC
BNE

Yt N’ Nt N

000006

BCR

; TEST IF PAT &
NO - SKIP

(COMPOSIT RTTATING)

EbSEOSBT QPPRESS OF PATTERN &
TES% %F PRTTERN 5 (ALT 1 3 O)
:ELSE LORD OBUFF WITH PAT 5

; TEST IF PATTERN 4
;N8 - EKiP

;

LORD

(HI-LO FREG MIX)

POINTER WITH ADD OF PAT 4

TEST éFIPRT 3

(MAX PRECOMP PHRSE MIa)

LOQD POINTER WITH ABD OF PAT 3

ER par2
: 81 20BRPYET
PATTERN LENGTH COUNT
SET

vV PATTERN

D C COUNTERS

INTO OBUFF

: LOOP UNTIL PATTERN IS MOVED
:SET RS TO _START_OF BUFFER

:REPEAT PATTERN THROUGH BUFFER
:BUMP PAST PARAMETER
; POP STACK INTO RS

,,POP STACK INTO R3
; ;POP STACK
; ;POP STACK

INTO R1
INTO RO

I
FOLLOWING
ERS RRE LOADED FORM THE PARAMETERSL.MR!
32
IN

[ alon]
2

177777

19%:

Dm0

000007

10:43

LNV
ON— NN
DO L)+
VVVVLN

00S301
001375

D2-DEC-77
BUILD DARTA BUFFER

30(1046)

DV~~~

B35848 BB483d

032044
032046

MACY11

mel
——0OMm

DSKLS CTRL PRTS
0e-DEC-77 10:21

LS B

CZRBEBO Rkbl1l
CZR6EB.P11

CALL. DIAGNOSTIC MODE IS SET
LOARDED WITH THE COMMAND.

R4, LOADRK
CYLINDER

»ZRSEBO RK611 DSKLS CTRL PRTS
CZR6E
02-DcC-77 10:2.

MACY11

30(1046)
ORD “L"TM
. ¥
X ]

ix
Dy
el
H *

002274
002266
002264
002262
000040
002272
002270
002260

022266
032272

002260

032354

MOV
CLR
CLR
MOV
RTS

#0MD, [ . MRI
L.ASHF
L.CS2
(R4)+,L.CS1
Ru

ISET uxncnosrxc MODE
:CLEAR OFFSET
ICLEAR CSe
:LOAD CS1
*RETURN

032434

O.—p—p—.—....p—.—
pey

goz2z212
002214
002206
002210

L.WC,RKWC(R2)

;MOVE THE "L"REGISTERS INTO

L.BA'RKBA(RZ2)
:CORRESPONDING RK611 REGISTERS.
L DCYL RKDCYL (R2S
L.DA, RKDR(R2)
L.CS2,RKCS2(R2)

MOV
MOV

L.ARSOF , RKASOF (R2)
L.CS1,RKCS1(R2)

L.MRI

RKMRI (R2)

GET THE RKbl1 REGISTERS

ALL THE RKb11 REGISTERS EXCEPT THE DATA BUFFER ARE

STORED IN THE "T" REGISTERS.

s sPUSH RO ON STACK
;;PUSH R1 ON STACK
PUSH R3 ON STACK

MOV
MOV
MOV

RO, - (SP)
R1,-(5P)
R3.-(SP)

DEC

;LOOP UNTIL DONE

ADD

#4, RO

:SKIP OVER DB AND SPARE

MOV

(RO)+, (R1)+

MOV
MOV
MOV
MOV
BNE

000004

WORD COUNT

MOV
MOV
MOV
MOV

RTS

18:

(R4)+.L.WC

THE INFORMATION IN THE “L* REGISTERS QRE LORDED INTO THE
RK611 REGISTERS IN A STRRAIGHT TRANSFER

MOV

002160

START THE OPERARTION

OPSTRT: MOV

GETREG:

000011

MOV

701

BUFFER ADDRESS
*WORD COUNT
! COMMAND, FORMAT ,DRIVE TYPE,8UPPER BUS ADDRESS BITS

WORD
WORD
WORD

:LORD CYLINDER
:
TRACK AND SECTOR
;
BUS ADDRESS

:
032356
032356
032360
032362
032364
032366
032372
032376
032400
032402

szcron

(R4)+,L.DCYL
(R4)+.L.DR
(R4)+.L.BA

.SBTTL

Pt e P Pome Be e (Y O
n
o
[N]
~N

oo
N NNNNINNNNNN
PO b= b s bt bt e e s e
- OODM NN LW

6710

SEQ 0125

MOV
MOV
MOV

002276

goo00e
000004
000020
000006
000010
000026
000a1e
000000

125

LOADRK:

:
I
002262
002264
002274

.BYTE
.BYTE

PRAGE

RETURN

.SBTTL

032274
032302
032310
032316

10:43

HR J

032230

02-DEC-77

REGISTERS

I10

CLR

MOV

MOV
MOV
MOV
MOV

R2.RO
#7.CS1,R1
%11, R3
(RO3+, (R1)+

(RIH+

(RO)+. T.ECPS
(RB)+.T.ECPT
(RO)+. T.MRe
(ROJ+.T.MR3
(SP)+.R3

¢ETRK BASE
:GET STRRT OF REGS
:SET COUNT
:GET CS1 THRU DCYL

:CLEAR T.DB
:STORE MR1

;

ECC POSITION

ECC PATTERN
:
:
MR2
;
MR3
1.POP STACK INTO R3

CZREEBO RKb1l DSKLS CTRL PRTS
CZR 6EB. P11
0e-DEC-?7 10:21
032436
032440
032442

02-DEC-77
10:43
GET THE RKB1l REGISTERS

30(1046)

MOV
MOV

gizell
012600
000204

RTS
i
8

SBTTL

J10
PRGE

(SP)+.Rl
(SP)+.R0

“FIRST SHALL BE LAST,

SEQ Ul26

126

. ;POP STACK INTO Rl
::POP STACK INTO RO
LAST SHALL BE FIRST" SUBROUTINE

THE CONTENTS OF R3 IS SWAPPED END FOR
E

BIT BIT IS
BIT 0O AND VICE VERSA,BIT 14 esconts 1.€.
BECOMES
1 AND VICE VERSA, ETC.

6745

032444
032444
032446
032450
032452
0324S4
032460

LE R

6739
6740
6741
6742
6743
6744

MACY1l

FSBLVV:

CALL:

JSR

R4, FSBLVV

RETURN:
RTS

MOV
MOV

RO, - (SP)
Ri,-(SP)

: ;PUSH RO ON STACK
,,PUSH R1 ON STACK

MOV
MOV

uBII RO
BI71%,R1

:SET FOR BIT TEST
:SET FOR BIT SET

WITH R3 LOADED WITH THE WORD TO BE SWRPPED
WITH R3 SWAPPED.

MOV

CLR

0C000!
100000

19%:

032602
000340
000000
002332
172100

032550
032554
032560

000001
000001

032576
032600

002332
000002

001366
000406

000004
000006
002334

RY ON STACK

BIS

R1,RY4

:SET CORRESPONDING BIT

cLe
ROR

:CLEAR CRRRY
;SHIFT FOR NEXT BIT SET

MOV
MOV

RY,R3
(SP)+,RY

STORED SWAPPED WORD
,,POP STACK INTO RY

MOV

(5P)+ RO

:POP STACK INTO RO

RTS

03es1e
032524
032532
032540
032544

CLERR R4 FOR SWAPPED WORD

:TEST IF BIT SET

MOV
032514

RO R3

BIT

BEQ
ASL
BEQ

3%:

RH,-(SP)

2s’
RO
3%
13

(5P)+ Rl
q

‘NO - SKIP

(SHIFT FOR NEXT BIT TEST
'LAST BIT TESTED - YES - EXIT
LOOP

'POP STARCK INTO Rl

.SBTTL

CHECK FOR MEMORY CHECK ENABLE

PRARCHK:

MOV

16%:

MOV
MOV
CLR
MOV

#20%, ERRVEC

$PR?’ ERRVEC+E
s BADP
nEnPnR
SMEMBAS, R3

:SET VECTOR FOR MEMORY PARITY CHECK

:LOAD cooo PARITY

:CLEAR FLAG

L 0AD Recxsrsn TO DETERMINE IF
.~

"MEMORY CHECK ENABLE AVAILIBLE

MOV

¢g¥

cth EN, (R3)

PINITIALIZE MASK

BIS

RH nsnPnR

:SET FLRG

CHECK IF FINISHED

ADD

cLe

ROL

BNE

B8R

82, R3
16%

22%

*ENABLE MEMORY CHECK

SET UP NEXT MEMORY PARITY MODULE
TRAP VECTOR
Rsérons

CZRBEBO RKB11l
CZRBEB.P11

DSKLS CTRL PRTS
0e-DEC-77 10:21

K10

MACY11l 30(1046)
02-DEC-77
10:43
PAGE 127
CHECK FOR MEMORY CHECK ENRBLE

SEQ Q127
[

032602
032604

M
032636
032644
032650

022626
062703

005037
000207

208 :

000002

000006
000006
002332

000004

000116
000116

000114

228 :

CMP

ADQ

#2,R3

(SP)+, (SP)+

s ADJUST STACK

ROL

; CHECK IF FINISHED

CLR
ST

ERRVEC+2
MEMPAR

CLR

MEMVEC+2

MOV
8NE

BNE

MOV

2ss:

.SBTTL

NEXT LOCATION

oERRvec+e ERRVEC' kssrons TRAP CATCHER
168

25§

;CHECK_IF MEMORY CHECK ENABLE AVAILIABLE
RETURN
YES,

SMEMVEC+2, MEMVEC' REQTORE TRAP CATCHER

pPC

ROUTINE TO SIZE MEMORY

; RETURN

< 36363036 36 36 6 36 36 36 36 38 06 36 3 3 3 3 3 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 3 3 3 3 3 3 3 36 06 3 6 36 36 6 3 36 36 06 36 36 3 3 2

ianL
!

RTS

JSR

RETURN

PC,S$SIZE

lSLSTflD HILL CONTARIN:

¥
tx

WITH KT11 OPTION

WITHOUT KT11 OPTION

-- LAST VIRTUAL ADDRESS OF THE LAST BANK

-- LAST RBSOLUTE ADDRESS OF AVAILABLE MEMORY

:#SLSTBK WILL CONTAIN THE LAST BANK RS R SAF
:¥3KT11 IS THE MEMORY MANRGEMENT KEY
iBITO? = 0 _DON'T USE MEMORY MRNRGEHENT

MUST BE SETUP BEFORE THE CALL

*91715 0D
SR

$SIZE:

032652

MOV

RO, -(SP)

MOV
MOV

RE,—(SP)
-(SP)

nov

aoERRvecia ~(5P)

MOV

000004

000006

72?7

§KT11l:
000004
032710

177740
000200

P'SAVE R1 ON THE STACK

a:énnvsc -(SP)

;:SAVE PRESENT ERROR VECTOR PS & PC

:'SAVE R2 ON THE STACK
:'SAVE R3 ON THE STACK

AVE THE STACK POINTER

0ooooH

nvs HE PSW IN @8ERRVEC+2

#3776,R1

. : SETUP ABDR

.WORD

200

;iSET_TO USE MEMORY nnnncenenv

MOV
TST
BIS

8K TNEX, J8ERRVEC' ; ;SET FOR TIMEQUT
JUSRO
kT11 ARE YOU THERE?
,,YES--SET KT1l KEY
#100000, 3KT11

MOV

IKIPRRO R2

SOB

8200,
R3, 14

TST8

BPL

CLR

18:

<sp)+ JMERRVEC+2’

MOV

MOV
MOV
ADD
MOV

177600
033010

:;SAVE RO ON THE STACK

R1,-(SP)

. SET THE ERRVEC Ps TO THE PREsshf
PS
;PUSH OLD PSW nno PC ON STACK
nov

032764
032770
032772

HAVE MEMORY MANAGEMENT OPTION

DETERMINED BY ROUTINE

CLR

MOV

(PC)+’

$CORE

(SP)

81D

: LUSE nsnonv nnnncsne
:BR_IF NO

JINITIRLIZE FOR "PAR” LOQDING

,,nooness OF FIRST "PAR

; ;LOAD EIGHT “PAR.’STM AND EIGHT "PDR.'S"

077906
-40(R2) ::PDR
RERD/WRITE
k UP,
1LOAD=PFOR
:} ;UPDATE
(SP), (R2)+
NEXT “PAR"
(SP)
n1?7soo -(R2)
R2)

ses J8ERRVEC

'LOOP UNTIL ALL EIGHT ARE LORDED

,,SETUP
KIPAR? FOR 1/0
:SETUP KIPARG FOR TESTING
::CATCH TIMEOUT IF NO SR3

CZRBEBO RKG&11 DSKLS CTRL PRTS

CZREEB.P11

02-DEC-77 10:21

851

033000

3301

sggs

33808

6854
6855

033012
033016

68567

033030

6856

6858

177572

042737
012737

100000
033110

062701

004000

686

8 3070

033066
3074

6868
6863
6870

033100
033102
033106

6872

033114

6875

000040

005037

033052
033060

6874

062712

033044

6863
6864

6873

177572
033042

023712

033050

6871

005237
012737

033034

6862

686

626

033110

101371
011202
000421

005002
062702

005711
022701
001370
162701

033154

012637

033136

010237

6878

033142

012603

033152

000207

6879
6880
6881

033144
033146
033150

6883
6884
gggg

033154
03315¢

6882

28:

000004

10:43

38:

4g:

INC
MOV

J#SRO
: 'TURN ON MEMORY MANAGEMENT
$SKTOUT, 98ERRVEC' ;:SET FOR TIME OUT

ADD

#40, (R2)

cHpP

TST

CLR

SKTNEX: BIC
S$CORE:
MOV

18:

$CROUT:

SUB

MOV

6887

i"MAKE A 1K STEP

::LAST ONE?

PINO--TRY_ IT
:'GET LAST BANK+!

:+8ET UP BANK

#4000, R1

:PINCREMENT BY 1K

(R1
$177776,R1
18

: TRAP ON TIME OUT
:ILAST ONE
: :NO--TRY AGRIN

#4000, R1

a40, R2

RQ,

211K

STEP

; ; DROP BACK

;;REETORE THE STACK

(SPY+, IERRVEC+2’ ; ;RESTORE ERROR VECTOR
(5P)+ 9SERRVEC

(SP)+,R3

: ;LAST ADDRESS

R2.SLSTBK

*'LAST BANK

(SP)+.R2
(SP)+.R1
(SP)+ RO

: 'RESTORE R2
'RESTORE Rl
! 'RESTORE RO

.WORD
O
.WORD
O
SCOPE HANDLER ROUTINE

s s MM

: "CLEAN OFF THE STACK--NO SR3

#100000,$KT11
;;KT11 NON-EXISTENT
8$CROUT
, I8ERRVEC ; ;SET FOR TIMEOUT

MOV
RTS

P THIS PDP-11 HAS A SR3 REGISTER

: *TURN OFF MEMORY MANAGEMENT

SSIZEX

R1,SLSTAD

MOV
MOV
MOV

$LSTAD:
SLSTBK:
.SBTTL

J8SRO

MOV

000000
000000

4g
(R2),R2

$40, R2

TST
CHP
BNE

: ;ENABLE 22 BIT MODE

;1 YRAP ON NON-EX-MEM

JskiPAR7, (R2)

ADD

MOV

012602
012601
012600

143776

ADD

MOV

033186

(SP)+, (SP)+

CLR

$SIZEX: SUB

000004

SEQ 0128

#20, 98SR3
33

BHI
$KTOUT: MOV
032710
000004

PRGE 128

CMP

004000

010137

033126

MOV

177776

000006

033132

172516

000040

012637

81g00

_02-DEC-77

ROUTINE TO SIZE MEMORY

172356

000046

033120

(033122

143776

162702

6876
6877

000020

005737

033040
033042

6865

ngw 1

033024

6859
6860

6861

012737

MACY1l 30(1046)

L10

IEN I II

IINR NN

: 'RESTORE R3

; sCONTAINS THE
P :CONTRINS THE

LAST ADDRESS
LAST BANK

R R RN

R RR

ENR AR

ERL RN R

6888

*4THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

6891
£892
6893

T%THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE RRE:
D ESWIN=1
LOOP ON TEST
(xSW11=1
INHIBIT ITERATIONS

6895

: ¥5W08=1

6889
6830

6834

6896

6897

6901
63902

033162
033170

032777
001131

6304

033172

0004i6

033174

013746

6905
£906

: %S5W09=1

LOOP ON ERROR

S
033160

6303

Tegr NEMBER(STSTNM)
ERROR FLAG (SERFLG)

: %CALL

6898
6899

6900

;¥AND LOAD TH
"%xAND LOAD THE

033160

104407

$SCOPE
:

040000

1457S0

1§:

INTO THE DISPLAY REG.(DISPLAY(7:0>)
INTO DISPLAY(15:08>

LOOP ON TEST IN SWR<7:0>
SCOPE

CKSWR

BIT
BNE

: ; SCOPE=10T

#BIT1Y, ISWR
$OVER

;s TEST

FOR_CHANGE IN SOF T-SWR

::LOOP ON PRESENT TEST?
i YES IF SWl4=1

. ¥488¥START OF CODE FOR THE XOR tESTER#ssus

$§xXTSTR: BR
000004

MoV

JSERRVEC,-(SP)

;s
IF _RUNNING ON THE "XOR® TESTER CHANGE

PTHIS INSTRUCTION TO A _"NOPTM (NOP=240)
;:SAVE THE CONTENTS OF THE ERROR VECTOR

CZR&EBO RKE11
CZRbEB. PlL1

DSKLS CTRL PRTS
0e-DeC-77 10:21

o
oo oo ooooocooooocooocoooo
Vo Ve V1 IV 3V ] Vel¥o] DD D DO DD DO OO DDD0DDD
WG W nny POV
PUN) N e b dma be bt ps be be pm b (O
n»—0 Wwo ~No NEWNNDO ODNN LWU—0OW

012737
005737
022626

06 637
000440

033220
177060
000004

MACY1l

000004

MOV
TST
MOV

cY:

000004
000400

10:43
02-DEC-77
SCOPE HANDLER ROUTINE

30(1046)

145702

BR
cMP
MOV

001000

145612

001110

001106

3%:

001104
001104
001234
00las4

19:

MOV

$SVLAD:

003414
004032
004444

XOR?

;GO TO THE NEXT TEST

,,CLEQR A_TEMP. LOCATION

,,PICKUP THE DESIRED TEST NUMBER
TEST UHBER IN SWR
; ;BRANCH _IF BAD
; ;CHECK THE NUMBER IN THE SWR
,,BRRNCH IF _TEST _NUMBER IS OUT OF RANGE
PDATE THE TEST NUMBER

"scaLEPTHE
?EET NUMBER RS AN INDEX
:FORM THE ADDRESS OF TEST POINTER

,.SST BSQP noQREs§ 79 DESIRED TEST

'CLEAN THE GAD TEST NUMBER OFF OF THE STACK

,,Hns AN ERROR OCCURRED?

sgxroq,asun

ON ERROR?
.,Eoop

§ICNT
srxmes.sxcnr
SOVER

:BR IF NO

::ser LOOS ADDRESS TO LAST SCOPE

,,ZERO THE ERROR FLAG

CLEQR THE NUMBER OF ITERATIONS TO MRKE

P 'ESCAPE _TO THE NEXT TEST
,,INHIBIT gTERQTIONS’

;3BR IF YE
;;
IF FIRST PRSS OF PROGRRM

::IncnenénT ?*gn&’i““*éS

; CHECK THE NUMBER OF ITERQTIONS MADE

#1,SICNT

COUNTER
TsRQTI?NR§QSN
"SEINITIgLizé
NUMBER OF éTsRnrxons T0 DO
I

§TSTNM, STESTN

SET TEST NUMBER IN APT MAILBOX
,,snv SCOPE L.OOP ADDRESS

gnécnr $TIMES
(SP), SLPADR
(SP)’ SLPERR
ssschps

' !5qvE
ERROR
LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR RDDRESS
ERROR ON NEXT TEST
'ONLY ALLOW ONE(I)

STSTNM aDISPLQY ' !DISPLAY TEST NUMBE

$OVER:
003720

OUT

,,nnx angons FOR THIS TEST OCCURRED?

$LPERR, SLPARDR
SOVER
SERFLG
$TIMES
1%
$BIT11,3SWR
18
§PRSS

7%:
4S:

145560

; TIME

SERFLG
33
ERMAX, SERFLG
q

033442

033462
033466
033470
033472
033472
033474
033476

(SP)+' 98ERRVEC

(SP)+

8%:
2%:

001256

8334e4

CLERR THE STACK RFTER R TIME OUT
,,RESTORE THE ERROR VECTOR

§<sp>+ $LPADR

001103
001234

0334%6

(SP)+, (SP)+

$SvLAD

(SP)

001103

001104
001234

,,RESTORE THE ERROR VECTOR

(5P)
#3$SWOBTBL , (SP)

033472
001106

N33374
w33402
033404
0 HéS
S

(SP)+, 98ERRVEC

(sp) $TSTNM

001102

001115

SEQ dJ12%

; SET_FOR_TIMEOUT

ags (SP)

001103

129

ugf’acsanvsc

-(SP)
JSKR, (SP)
83

000036

004000

PRGE

:LOOP ON THE PRESENT TEST
7%
6%: I.O..END OF CODE FOR THE XOR "tESTER® w888
bSO?FONOSPEC TEST?
.EITOB JSWR

145672

6333

M10

$LPADR, (SP)

$MXCNT: 2000.
:
$SWOBTBL
.WORD
.WORD
. WORD

TSTl+2
TST2+2
TST3+42

; ;FUDGE RETURN ADDRESS

XeS PS
’ '
; ;MAX. NUMBER OF

ITERATIONS

; ;STARTING ADDRESS OF TEST |
; ; STARTING ADDRESS OF TEST 2
; :STARTING ADDRESS OF TEST 3

CZR6EBO RKB11l DSKLS CTRL PRTS
CZR6EB.P11
02-DEC-77 10:21

MACY1l

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

6363

033500

005056

6970
6971
6972
6973
£974
6975
6976
6977
6978
6979
6980
6981
63982
6383
6984
63985

033516
033520
033522
033524
0335¢e6
033530
033532
033534
033536
033540
033542
033544
033546
033
033552
033554

010160
010706
011434
Q0lelee
012716
0134Se
014200
014514
015006
015534
016270
016604
017266
017602
020352
020662

6989

033564

022460

6933

033566

032777

001000

6995

033576

105737

001103

6997
6998
6999

033604
033610

013716
000002

001110

033612
033620
033626
033630
033636
033636
033640
033642
033646
033650
033656

112737
112737
000403
112737

000001
000001

034056
034054

000001

034056

72000
7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012

7013
7014
7015
7016
7017
7018

033660
033666
033670
033674
033702
033706

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
00S737
001375

10:43
02-DEC-77
SCOPE HANDLER ROUTINE

30(1046)

N10O
PAGE

TST4+2
TSTS+2
TSTb+2
TST7+2
TST10+2
TSTl1+2
TSTiZ2+e
TST13+2

_WORD
TS5T36+2
s RN
060000 R0 U N
"&BTTL LOOP ON INTERNAL ERROR
145344

SCOP1S:

BEGQ

7578

5%:

_SBTTL

MOV

RTI

001270

000100

0ole7l

0coooH

SERFLG

SLPERR, (SP)

ADDRESS
RDDRESS
ADDRESS
RDDRESS
ADDRESS
ADDRESS
85
PNDDRESS
RDDRESS
ADDRESS
ADDRESS
§5
ADDRESS
AODRESS
RDDRESS
RDDRESS
RDDRESS
RDDRESS
55
ADDRESS
RDORESS
ADCXESS
ADDRESS
D RES
RDDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

S
6
7
10
11
12
13
14
15
16
17
20
21
22
23
24
25
26
27
30
31
32
33
34
35S
36

RN REERER

;gHECK IF LOOP ON ERROR

:NO_RETURN

!CHECK IF ERROR OCCURED
*NO, RETURN
!GO’BACK TO BEGINNING OF LOOP

;RET

APT COMMUNICARTIONS ROUTIANE

thTYlf

MovB
gOVB

SATYC
#1,SFFLG

MOV
MOV

RO, -(SP)
Rl -(SP)

SMFLG

70 REPORT FATAL ERROR
;;
;;
70 TYPE A MESSAGE

;370 ONLY REPORT FATAL ERROR

; ;PUSH RO ON STACK
; ; PUSH R1 _ON STACK

BITB

; ; SHOULD TYPE R MESSAGE?
BR
IF NOT:
;3
; ; OPERRTING UNDER APT?
52PTENV,SENV
R
IF NOT:
;3
ggPTSPOOL,SENVM ; ; SHOULD SPOOL MESSAGES?

MOV

J4(SP),RU

s
NOT:
BR
; ;GET MESSAGE RDDR.
RETURN ADDR.
:BU
; :BUMP

;3 IF NOT:

BEQ

CHMPB

1%:

#l,SFFLG
OITSMFLG

R
MOVB

TSTB

00000!

#SW9, ASWR

: ;STARTING ADDRESS OF TEST 4

' !STARTING
! ISTARTING
' !STARTING
' !STRRTING
! !STARTING
! !STARTING
! {STARTING
! !STARTING
' !STARTING
' !STRRTING
' !STARTING
: ! STARTING
:!STARTING
; ;STARTING
! {STARTING
! ISTARTING
! !STARTING
! {STARTING
! ISTARTING
! STARTING
! {STARTING
' ISTARTING
! !STARTING
! !STARTING
; ; STARTING
: ;s STARTING

o o 3363636 36 36 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 3 3 36 36 3¢ 3¢ 3 36 36 36 36 3 3 36 96 36 3 36 36 26 36 3 3 3 3% 3 36 3% 36 3 3t 46 36 36 36 3 36 06 3 3 2 £

034054

000004
000002
001250

SIT
EQ

SEQ 0130

ADD
15T

BNE

#2,4(5P)
$MEGTYPE

:sSEE IF OONE W/ LAST XMISSION?
WRIT

RoEB O RKbil
R6EB P11

033710

DSKLS CTRL PRTS
0e-DEC-77 10:21
010037

MACY11l

oole2e4

Bll

PAGE
10:43
3U(1046)
02-DEC-77
APT COMMUNICATIONS ROUTINF

OCleeH
001266
000004

000034
000002
177776
034636

033765
000004

RO, SMSGLGT
84, SMSGTYPE

MOV

J4(SP),

. :PUT MSG ADDR IN _JSR LINKAGE
- . BUMP RETURN ADDRESS

BEQ
75T
BNE
MOV

12%
$MSGTYPE
11§
J4(SP) ,SFRTAL

12%:

CLRB

$FFLG

.SBTTL

ERROR HANDLER ROUTINE

118:
001252
000004

ADD
INC

CLR8
CLR8
MOV
MOV
RTS
$MFLG:
.BYTE
$LFLG:
.BYTE
$§FFLG:
.BYTE
.EVEN
APTS1ZE=200
RPTENV=001
APTSPOOL=100
APTCSUP=040

0cooio0
000040

;; TELL APT TO TAKE MSG.

SFFLG
12%

TST

034056

1578
BEQ

LMORD

001270

000004
000002
001250
034056
034055
034054

MOV
MOV

82, 49(SP)
17?2776, -(SP)
PC,STYPE

108:

00120

; ;SUB START OF MESSAGE
; ;GET MESSAGE LNGTH IN WORDS
; sPUT LENGTH IN MAILBOX

2s
$MSGAD,
RO

ADD
MOV
JSR

gg.

034056

BNE
SUB

B8R

; ;PUT _ADDOR IN MAILBOX
; ;FIND END OF MESSAGE

RO, SMSGRD

ASR

001250

(ROY+

MOV

1578

2%:

BIHA

NI I

SEQ@ 0131

131

;;PUSH 177776 ON STACK

;;CALL TYPE MACRO

; ; SHOULD REPORT FATAL ERROR?

SENV

%2, 9(SP)
SMSGTYPE

;s TELL APt TO TAKE ERROR

: ICLEAR FATAL FLRAG
:'CLEAR LOG FLAG
: SCLERR_MESSAGE FLAG
; ;POP STRACK INTO Rl
; ;POP STACK INTO RO

SLFLG
SMFLG
(SP)+,R1
(S5P)+.RO
PC
O
O
O

BR
IF NOT:
;3
: 'RUNNING UNDER APT?
BR
;;IF NOT:
IFINISHED LAST MESSAGE?
WRIT
_NOT:
PUIF
; ;GET ERROR &
. :BUMP RETURN ADOR.

MR RN

NIRRT

N AN

:kTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND_THE ERROR COUNT,
: ¥SAVE THE ERROR ITEM NUMBER AND THE RDDRESS OF THE ERROR CALL
; #AND GO TO TYPERR ON_ERROR

; #THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
#SW1S=1
HALT ON ERROR
INHIBIT ERROR TYPEQUTS
; ¥SW10=1

BELL ON ERROR

LOOP ON ERROR

; #SW09=1

; #CALL
;%

034060
034060
034062
034066
034070

SERROR:
7%:

001103
go1l102

145044

ERROR

CKSUR
INCB

SERFLG

BEQ
MOV

; ; ERROR=EMT AND N=ERROR ITEM NUMBER

79
$TSTNM, JDISPLAY

; ;s TEST _FOR _CHANGE IN SOFT-SWR
;;SET THE ERROR FLAG
DON’T LET THE FLAG GO TO ZERO

é;DISPLQY TEST NUMBER AND ERROR FLAG

CZR6EBO RKG11 DSKLS CTRL PRTS
CZRBEB.P11
02-DEC-77 10:21

MACY1l 30(1046)
02-DEC-77
10:43
ERROR HANDLER ROUTINE

7075
707
707

034076
834184
4106

032777
081482
104401

002000

7079

034116

011637

001116

7082
7083

034136
8 Y144

032777
881984

7085

034152

104401

4737

034260

834155
4164

122737
001007

000001

001270

034200

034200
034201

000
000

001114
033630

7078
7080

034112

7081 034122
034130
7084

Y146

7086

034156

7089
7090

034166
034174

7087
7088
7091
7092

7083
7094

162737

113737
004737

7097

034214

7089

034224

001402

7088
7100
7101

034210
034212

034216

020000

20%:

21%:

22%:
2%

144730

013716
005737

001110
001236

4§:

833534

013716

001236

022737

023276

034244

7108

03425k

034252
034254

034256

001402

001001
000000

144714

(sp) SERRPC

:'GET ARDDRESS OF ERROR INSTRUCTION

817
?N

IBIT13 JSUWR
S

:SKIP TYPEOUT IF SET
,,sxxp TYPE% a

TYPE

,SCRLF

CMPB
BNE

SAPTENV, SENV
2%

_BYTE
‘BYTE

0
O

INC

$ERTTL

SUB
MOVB

RRPC
stRRPc
SITEMB

BPL
HAL T

BNE
HALT

,,RUNNING IN RPT MODE
'NO,SKIP APT ERROR REPORT

::SEYITEM NUMBER AS ERROR NUMBER
,,REPORT FATAL ERROR TO APT
. s APT_ERROR_LOOP
!'HALT ON ERROR
,,SKIP IF CONTINUE
HALT ON_ERROR!
TEST FOR CHANGE IN SOFT-SWR

$LPERR, (SP)
$ESCAPE

*FUDGE RETURN FOR LOOPING
.,CHECK FOR AN ESCAPE RADDRESS

$ESCAPE, (SP)

: 'FUDGE RETURN ADDRESS FOR ESCAPE

#SENDRD, 2842

:sACT-11 AUTO-ACCEPT?

'BR_IF NO

"BR_IF
NONE

' 'BRANCH IF
NO
;3 YES

. s RETURN

TYPERR

grnxs ROUTINE usss THE “ITEM CONTROL avre" (sxtsna) TO DETERMINE WHICH
: *ERROR *3 J0 BE REPORTED. IT THEN USES THE “ERROR TRBLE” (SERRTB)
*$nrnv DEF INE anT INFORMATION IS TO BE REPORTED CONCERNING
. %

034260

034262

7127
7188
7129

034310
034312
034314

7130

ERROR ROUTINE

TYPE ERROR ROUTINE

: XENTRY JSR PC,

7122

7123
7124
7125
7126

::G0 TO USER

2222222271 2222222%222222322222333X2222222222222222X222 222222222 X,

*RETURN RTS PL

7121

;;STRIP AND SAVE THE ERROR ITEM CODE

,,LOOP ON ERROR SWITCH SET?

RTI

;ifg

7120

:'COUNT THE NUMBER OF ERRORS

#B1709, ASKR

5§

MOV

'8BTTL

7116
7117
3%%3

22%
JSWR
33

BEQ

7118

7113

SITEMB 218
ATYY

4§

CMP

¢, TYPERR

BEQ

MOV
TST

6%:

7111

BR
TST

BIT

000042

000002

MOVB
JSR

CKSWR

3%:

SEQ 0132

,,BELL on ERROR’
¥? a
'RING BELL

001245

PAGE 132

#BIT10, 3SWR
12
BELL

MOV

144774

034226
034232

7105

;igg

13:

001000

034236

7106
7107

001112

032777

7102

;iga

001240

BIT
geg
YPE

001116
117737 000002
144762 001114

000777
005777
100002
000000
104407

7095
7096

Q34202
034204

005237

145034

Cll

104413

113737

034270
(34276
034302
034306

042737
113700
042700
005300

034316

062700

006300
006300
006300

lllllI'lll!l!l!l!lill*!!l!*!l!llllllflll!!Il!llllli!!lll*ll’l*li*l

001102

177400
001114
177400

001330

001254

+{PERR: snvnsc
ovB

001254

axc
MOVB
BIC
DEC

1%:

ASL
ASL
ASL

ADD

$TSTNM, $TESTN

;SAVE TEST NUMBER FOR REPORT

8177900, $TESTN
SITEMB, RO
$177400, R0
RO

;CLEAR UNUSED BITS
'ENTER ERROR NUMBER
*CLEAR UNUSED BITS
'FORM INDEX FOR ERROR TABLE

#SERRTB, RO

:FORM ADDRESS OF ERROR ENTRY

RO
RO
RO

CZRGEBO RKB11 DSKLS CPRL PRTS
02-DEC-77 10:21
CZRBEB.P11

037

034336

034330

18448

oolaus

034336
034340
034394

000000
012037
001404

7133

7135
7126
7137

7135 83435& 86? SH

2139 034334 104401
;igg

83:395

10::01

140 ogqiéfi 680086
7141 0343%6 012001
7142
7143
7144
7145

7146
7147
7148
7149
7150

034360
034362
034364
034366

034370
034374
034376
034400
034402

001445
005004
012000
012002

104401
112003
105720
005703
001416

7151
7182
7183
7164
7155
7156
7157
7188
7169
7163

034404
034406
0B344.0
034412
034414
034416
83““ 0
Y424
044426
234432

005704
0I3146
104402
005303
001403
é 4401
07?71
104401
Q0S710

7163
7169
7165
7166
7167
7168
7169
7170
7171

034440
Q34442
034444
034450
034452
034454
034456
034462
034464

005302
0034914
(012037
001751
005704
001402
104401
104401
000000

7173

034472

000740

7161

0344349

MACY1l 30(1046)
02-DEC-77
TYPE ERROR ROUTINE

MOV

034354

0o124s

4§:

S3:
001245

10%:

001004

11%:
041116
001245

12%:
13%:

o140l

7172
7174

034466
034474

104401

104414

.WORD

O(R0)+ R1

TYPE
MOVB
TSTB
18T
BEQ

75T
MOV
TYPOC
DEC
BEQ
TYPE
BR
TYPE
15T
BNE

BEQ

7162 034436 005104

i4%:
15%:

034464

041116

17%:

18%:

001245

20%:

:TYFc

O
(PO)+,48
53

MOV
BEQ
CLR
MOV
MOV

COM

DEC
BLE
MOV
BEQ
1ST
BEQ
TYPE
TYPE
LWORD
TYPE

RESREG

SEa 0133

,SCRLF

.WORD
MOV
BEQ

¥¥gg

PAGE 133

-GET EM POINTER

TYPE

D1l

(RO)+, 2%

BEQ

TYPE

2%:
33:

10:43

;CQANCHCARRIAGE
IF THERERETURN
ISN'T LINE
ONE FEED

TYPE ERROR MESSAGE (EM)

‘EM POINTER GOES HERE
:GET DH POINTER
annncn IF THERE ISN’T ONE

,SCRLF

$¥; R-L

208
RY
(RO)+,R0O
(RO)+' R2

PET DT POINTER
:BRANCH IF THERE nRE NONE
'RESET INDENT SWITCH
'GET DF POINTER
:STORE NUMBER OF DH'S

$CRLF
tRO)+,R3
(RO)+
R3
149

coss HERE
SO?NTER

:GET 8 STORE NUHBER 0F DATA WORDS
‘BUMP PAST FORMAT WORD
'TEST IF ANY DATA FOR THIS HEADER
'NO - SKIP DATA PRINT

RY
12%
J(R1)+,-(SP)
R3
13%
SPACE2
11s
, SCRLF
\20)

CH cK 3‘
IN ENT WORDS
PUT FIRST onrn WORD ON STACK
STYPE IT
:MORE DATA WORDS
: NO-BRANCH
TYPE SEPARATORS
:LOO
:TYPE (CR>(LF>
cnzcx IF NEXT HEADER nvnxLstE

R2
20%
(RO)+, 15%
108
RY
17%
,SPACE?
O

*MORE DH’S?
: NO-BRANCH
:GET NEXT DH POINTER
sIF 4G ysaosn GET DATA
: INDENT
*NO-BRQNCH
xnosnr
TYPE DH
DH POINTER GOES HERE

148

$CRLF

DO NOT CHANGE INDENT

cuhncs INDENT

; LOOP

INC

ERRCNT

: INCREMENT ERROR COUNT

7178
034512 022737
000024 002314
7179 034520
10301S
7180
034522 104401 O41i2l
7181

BEQ

CMP
BHIS
TYPE

25%

7184 034534 012737 000001 023134

TST
BEQ

MOV

42
30%

g
tcx
IF EROR THRESHOLD EXCEEDED
RETURN
Tvbe
"Pnocnnn HAS BEEN ABORTED BECAUSE
;
ERROR THRESHOLD EXCEEDED"

MOV
IMP

sstack,.sp
$EOP

7175

034476

7177

034510

7176

005237

002314

034502

032777

7182
7183

034526
034532

005737
001407

000042

7185
7186

034542
034546

012706
000137

001100
023106

00142

010000

144430

BIT

#SWi2, aSR

#20. ,ERRCNT
25%
,RBORT
%1, SEOPCT

CHECK IF naonr AFTER 20 ERRORS

CHECK IF IN CHARIN MODE
%

Fohcs ND OF PASS COUNT TO ONE FOR ABORT
:INITIALIZE STACK
!BRING IN NEXT PROGRAM IN CHAIN

N NN NNINNNNNNINN ~
) 0ms e s poct Pt Pt P Pt P Pt e e —
@IV IV IV RV IV IV IV IV BV B s T o 70 o} @
ONONCNLWN--0ODm ~

CZREEBO RKb11 DSKLS CTRL PRTS
CZR&EB.P11
02-DEC-77 10:21

MACY11

034552
034554

001324

034556

000010

30(1046)

TYPE ERROR ROUTINE

000001
023106

034630
034632

000000
000137

CONTROLLED PROGRAM HALT

CTRHLT:

MOV

$BAS

CLR
CLRB
MOV
TYPE
15T
BEQ
MOV
JMP

SESCAPE
SERFLG
#STACK, SP
OPROO?
42
5§
#1, SEOPCT
sebP

;SET 611 BASE
SUBSYSTEM
#CLR kxcsa<aa) :CLEAR
ESCAPE

5§

HALT

.SBTTL

TYPE ROUTINE

JMP

START]
I I

'CLEAR
:CLEAR ERROR FLAG
:CLEAR STACK
:TYPE HALT MESSAGE

(TEST xr MONITOR PRESENT
'NOG SKIP
:FORCE END OF PROGRAM
:JUMP TO END OF PASS

.
:

:HALT PROGRAM

:RESTART IF CONTINUE

NI 00000000 000 3000 0

300 0603600 0 0 3

0006 00

06 00 00 30

: ¥CALL

c%1) usxnc A TRAP INSTRUCTION
’*on
,i

E
,'l

105737

18:

000002
000001

001270

000100

001271

034706
033620
000040

(=]
|=)

726

034730

$TYPE:

001157

YPE

googoe

001271

TSTB

BPL

BR
MOV

MOV
CMPB

gIT8
BEQ
MOV
JSR

_WORD

628

BITB

2%:

MOVB
BNE
TST
MOV

608 :
33:

: sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

;1S THERE R TERMINAL”

TYPE

BNE

618:

, MESADR

MESADR

HAL T

W
~

034636
034642
034644
034646
034650
034652

0000
DPSDDQ.—DU—00~0W
O—-0wWon
mmm»—m.—go;o.-mp
N

e Pt
e
e
e P
s

MOV

HFMR I

SEQ 0134

134

iROUTINE TN _TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE NITH AOD BYTE
'#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER
A LINE FEED.
P ¥NOTE]:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
T ¥NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
: xNOTE3:
$FILLC CONTRINS THLC CHARACTER TO FILL RFTER.

OONONLWh—0O

Pt et Pt

PAGE

.SBTTL

NN NNNNNYNIN
v

Ell

HALT
RTS

023134

002404

10:43

30%:
258 :

041053
oooo42
034624

0°-DEC-77

BNE

ADD

JBR IF YES

,,HRLT HERE IF NO TERMINAL
LEAVE
£ RO

33
RO, -(SP)

i s

PC.SATY3

;1 SPOOL MESSAGE TO

$APTCSUP, SENVM

(RO)+,-(SP)
4§

,,RPT CONSOLE suppnsssso
} YES, SKIP_TYPE OUT
PUSH cunnncrzn T0 BE TYPED ONTO STACK
an IF IT ISN'T THE TERMINATOR

(SP)+,RO
82, (SP)

,,RESTORE RQ
: *ADJUST RETURN PC

a2lspP), RO
SAPTENY, SENV

'GET ADDRESS OF ASCIZ STRING
,,RUNNING IN APT MOOE
NO,GO CHECK FOR APT CONSOLE
623
OL; ; SPOOL MESSAGE TO APY
, SENVM
$APTSPO
::NO,GO CHECK FOR CONSOLE
62%
oness FOR APT
: 1 SEYUP MESSAGE
RO, 618
O

608

(SP)+

I MESSAGE ADDRESS

APT

:IF TERMINATOR POP 1T OFF THE STACK

CZRBEBO RK611

CZRBEB. P11
7243

7244
724S
7246

7247
7248
7249

034734
034736
g34742
034744
034750
034752

DSKLS CTRL PRTS
0e-DEC-77 i0:2l
000002
122716
001430

MACY1l

30(1046)
TYPE

ROUTINE

4S:

000011

02-DEC-77

CMPB

SgHQRCNT
2
PC,STYPEC

03Ss114

034776
035000

035004

035022

5%:
63:

013746
105366
202770
004737
105337
000770

JSR
cMPB

000001

035024
035030
035034

112716

1(SP)
63
PC, STYPEC

0350S0
035114

schnRCNT

000040
035050
000007

035114

144074
000002
00oc01s

000012

8%:
9%

STYPEC:
144066
000002

035114

000207

23
SNULL, -(SP)

DecCB

; HORIZONTAL

0ooo0e

135S

SEQ@ 0138

: RETURN

' 'BRANCH IF <HT>
; s BRANCH IF NOT <(CRLF>
«(CRYCLF)> EQUIV
;3 POP
;:TYPE A CR AND LF
,,CLERR CHARACTER COUNT
;GET _NEXT CHARACTER

GO TYPE THIS CHARACTER

;IS IT TIME FOR FILLER CHRRS. ?

13 IF _NO GO GET NEXT CHRR

8 OF FILLER CHARS. "NEEDED
;;GET

; s AND THE NULL CHAR.
;;DOES
R NULL NEED TO BE TYPED?
;3R IF_NO--GO POP THE NULL OFF OF STRCK
;360 TYPE A NULL
,,DgogOT COUNT AS A COUNT

TRB PROCESSOR

MOvVB
JSR
BIT8
BNE
TST
B8R

7578
BPL
MOVB

CMPB
BNE
CLRB
BR
CMPB
18:
BEQ
INCB
$CHARCNT:
. WORD
$TYPEX: RTS

.SBTTL

PAGE

sFiiLc, (SPr+

001154
7%:

F11

#HT, (SP)
8%
#CRLF, (SP)
5%
(SP1)+

000200

035050
001156

10:43

8’

(SP)

,,REPLRCE TAB WITH SPACE

pc, $TYPEC
37 $CHARCNT

,,BRQNCH IF NOT AT

(SP)+

,,POP SPACE OFF STACK

2%
asrps
$TYPEC
2(SP) . a3TPB

; TYPE
A SPARCE

; TAB

STOP

;GET _NEXT CHRRACTER

:'WAIT UNTIL PRINTER IS RERDY
;LORD CHAR TO BE TYPED INTO DATA REG.

#CR, 2!SP)

,,IS CHQRQCTER A CARRIAGE RETURN?

#LF,2(SP)

JEXIT
,,IS CHARACTER A LINE FEED”?

18
§CHARCNT
STYPEX

$TYPEX
(PC)+

BINARY TO OCTARL

,,BRRNC
NO
YES--CLEQR CHRRACTER COUNT

: BRANCH_IF YES
: {COUNT THE CHARACTER
: ! CHARACTER COUNT STORAGE

(RSCII) AND TYPE

ilililli*lllll!‘ll!llllill'l'!l*iillll!*ill!l&!l*l**!li*l*l*!i!l}i

iTHIS ROUTINE IS USED TO CHANGE
A 16-BIT BINARY NUMBER TO R 6-DIGIT
:#0CTAL (ASCII) NUMBER_AND TYPE IT.
!STEEOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

; #CA

g
]
;%
]
R

¥
Hh

MOV
TYPQS
BYTE
BYTE

NUM, - (SP.
N
M

; ;NUMBER TO_BE TYPED
*!CALL FOR TYPEOUT
= gg 8 FOR NUMBER OF DIGITS TO TYPE

L=TYPE_LEADING ZEROS

o SUPPRESS LERDING ZEROS

CZRSEBO RKB11
CZRbEB .P11

DSKLS CTRL PRTS
0e-DEC-77 10:21

MACY11l

Gll

10:43
PAGE 136
02-DEC-77
BINARY TO OCTAL (ASCII) AND TYPE

30(1048)

SEQ 0136

: #§TYPON--~--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS RS THE LASTY

;*STYEOS OR S$TYPOC
; #CAL
*

MOV
TYPON

- (SP)
NUM,

; sNUMBER TO BE TYPED
; ;CALL FOR TYPEOUT

HR ]

: #§TYPOC---ENTER HERE FOR TYPEOUT OF R 1& BIT NUMBER

; #CALL:
D

8 NNNO
W £LNV
LWy
£NO0CONV
LO

346
70M

000001
000006
00000sS

035343
035345
035342

$TYPOS:

$TYPOC:
STYFON:

035345

398345

- OC)

2320

035343

nNOMVO

Pt
s P

LW
DO~

Pt Pt Pt Pt Pt

N NN
NN
W WWWWWWL

035343
oooole

035216

MOV
TYPOC

NUM, -(SP)

; sNUMBER TO _BE TYPED
; ;CALL FOR TYPEOUT

MoV
Move
MOovB
ADD
BR
MOVB
Mova
MOvB
MOV
MOV
MOV
mova
NEG
A00D
MOovB

J(SP),-(SP)
1(5P)
| SOFILL
(SP)+, SOMODE+1

s s PICKUP _THE MODE
!!LOAD ZERQ FILL SWITCH
! INUMBER OF DIGITS TO TYPE
! {AUJUST RETURN RDDRESS

#1,$0FILL
86, SOMODE
+1

;:SET THE ZERO FILL SWITCH

82, (SP)
$TYPON

85 SOCNT
R3, -(SP)
R4, -(SP)
RS -(3P)

R4
DE
+1,
SOMO

;;SUBTRQ?T IT FOR MAX.

SOFILL,RY

:'GET THE ZERQ FILL SWITCH

R4’ $OMODE

3%:

177770

; ;SAVE

FOR USE

TYPE

ALLOWED

!'PICKUP THE INPUT NUMBER
: 'CLERR THE OUTPUT WORD
:'ROTATE MSB INTO "C*
!GO0 DO MSB

: 'FORM THIS DIGIT

2%:

035344

; ; SAVE R3
RY
; s SAVE
RS
; ; SAVE
;;GET THE NUMBER OF DIGITS TO

RY
86, RY

12(SP),RS

19:

SIX(6) DIGITS
ITERATION COUNT

;;SET FOR
;3SET THE

;;GET LSB _QOF THIS DIGIT

:;BR _IF NO

$OMODE

s TYPE

THIS DIGIT”

; ;GET RID OF JUNK
:;TEST

FOR O

; s SUPPRESS THIS 0O?
00S204

325783

110337
1044

184395

03s312
035314
035316
03S3¢
03<3e
035324
035326

003347
002402
005204
000744
012605
012604
012603
016666

4%:

000060
000040
035340
035340
035342

G%:

;:BR

YES

;;88

TYPS THIS DIGIT

; sDON’T SUPPRESS ANYMORE 0°S
;;MQKE THI? DIGIT RASCII
ASCII IF NOT AL RERDY
;sMAKE
;s SAVE FOR TYPING

BY 1
COUNT
; s
;;BR IF MORE TO DO

; ;BR_IF DONE

6%:

000002

000004

;s INSURE LAST DIGIT ISN’'T A BLRANK
;;G0 DO THE LRST DIGIT
; ;RESTORE RS

; tRESTORE RM
; sRESTORE R3

:3SET THE STACK FOR RETURNING

CIRBEBO RKB11
CZRGEB.PLI

DSKLS CTRL PRTS
02-DEC-77 10:21

MARCr11

ciee Bie3de BAEBAS

PRGE 137
10:43
02-0EC-77
BINARY TO OCTAL (RSCII) AND TYPE

035340
035341
035342
035343
035344

8s:

.BYT

$OCNT:
$OFILL:
$OMODE :

0
000000

.SBTTL

.BYT

.BYTE
.BYTE

.WORD

; s RETURN

;s s STORAGE F8R QgC%I DIGIT

; ; TERMINATOR

FOR

TYPE ROUTINE

;;0CTAL DIGIT COUNTER
- 37 ZERO FILL SWITCH
;i NUMBER OF DIGITS TO TYPE

O
O

_ 0

CONVERT BINARY T0 DECIMAL’AND TYPE ROUTINE

HIH 228 3 36 3 3 36 3% 3% 36 36 3 36 36 36 3 3 36 36 3 3 36 3 3 36 3 3 36 36 36 36 3 36 9E 36 0 3 06 3 3 U 20 3 36 3 3 30 3 2 06 X 222X WRER

;iTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S5-BIGIT

; #SIGNED DgcsHRL (RSCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER_ THE
; *®NUMBER 1
OSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

; *BEFORE THE FIRST DIGIT OF THE NUMBER. LERDING ZEROS WILL ALWAYS BE
;lggEtQCED

;¥

$TYPDS:

000055

WITH

000001

035562
000040

18:
2%

035552

4g:

NUM, - (SP)

: ;PUT_THE

MOV
MOV
MOV
MOV
MOV

RO, - (SP)
R1,-(SP)
R2.-(SP)
R3. -(5P)
RS -(SP)

: sPUSH
:'PUSH
; ;PUSH
:'PUSH
*1PUSH

MOV
BPL

20(SP)
13

:»GET THE INPUT NUMBER
2iBR IF INPUT IS POS.
: MAKE
THE BINARY NUMBER PQS.
‘:MAKE
THE ASCII MUMBER NEG.
: 1 2ERO THE CONSTANTS INDEX
PISETUP THE OUTPUT POINTER

TYPDS

52702

000001
000060
000040
000010

1772777

6%:
7%

000764

RO
R1
R2
R3
RS

BINARY NUMBER ON THE STACK

THE ROUTINE

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

P1GET BLANK SWITCH AND SIGN

RS
8-, 1(SP)
RO
#$DBLK,R3

CLR
MOV
SuB
BLY
égc

R2
$0T8. RO),RI
R1,RS
49
gg

: 'CLEAR THE BCD NUMBER
" GET THE CONSTANT
: FORM_THIS BCD DIGIT
; ;BR IF DONE
' INCRERSE THE BCD DIGIT BY !

ADD
TST
BNE

R1,RS
R2
S§

CONSTANT
: sADD BACK THE
P CHECK IF BCD
DIGIT=0
P FALL THROUGH IF O

BMI

MOVB

(R34

:1SET THE FIRST CHARACTER TO A BLANK

(SP)

::STILL DOING LEADING 0'S”

ASLB
8CC

(SP)
63

BIS

#'0,R2

s
:iBR IF NO
;. YES--SET THE SIGN

MOVB
TST

re, IRI)+
(ROY+

:'MAKE THE BCD DIGIT RSCII
:'MAKE IT A SPACE IF NOT_ALREADY A DIGIT
!PUT THIS CHARACTER IN THE OUTPUT BUFFER
:+ JUST INCREMENTING

G0 DO THE NEXT DIGIT

MOVB

BIS

CMP

BLT

8GT
035504

s20 00,-(SP)

11GO

NEG
MOVB
CLR
MOV

TSTB

SPACES.

MOV

020200
000020

£
(o]
n

G‘o—Qo—o—-Q»—-gQr—.—»—-v—-o—o—u—

035346

—O0O0Q~00~0—-0000000

7357

(SP)+,(SP,

H?V
RTI

SEQ 0137

3001046)

MOV

; ;BR_IF YES

1(SP),-1(R3)

.R2

RO, %10

: :CHECK THE TABLE INDEX

1160 TO EXIT

: GO CHANGE TO ASCII

RS, R2

P1GET THE LSD

cZREEBO RKB11
CZR6EB.P 11

DSKLS CTRL PRTS
0e2-DEC-77 10:21

MACYi1

1772777

4401

035562

0ocoge

177776

1STB

BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV

9§

Q00012
0oooo04

MOV

$0BLK:
LSBTTL
Y

035572
035574
035576
035600

PRAGE

SEQ 0138

138

; ;WAS THE LSD THE FIRST NON-ZERG?

$DBLK
2(SP),4(SP)

:'NOW TYPE THE NUMBER
:TADJUST THE STACK

(SP)+. (SP)

RTI

10000
1000.
100.
10
Y
.BLLKW
TTY INPUT ROUTINE

LSB

§TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
§TKQSRT: .BLKB

$TKQEND=.
.EVEN
:#TK

(SP)+

;;BR
IF NO
::YES--SET THE SIGN FOR TYPING
PGET THE TERMINATOR
: POP STACK INTO RS
::POP STACK INTO R3
:'POP STACK INTO R2
:'POP STACK INTO Rl
:'POP STACK INTO RO

: sRETURN TO USER

1223222222222 22222222Y22X22222222XX2X2X222LXXX2STTLTTLLI
XL

"ENABL

000000
000000
000000
000001
035601
035602

I11

s
Z1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP,+ . R2
(SP)+ RI
(SP)+, RO

TYPE
MOV

000004

$DTBL:
035560
035562

10:43

CONVERT BINRRY TO DECIMAL AND TYPE ROUTINE

8s:

035506

02-DEC-77

30(1046)

O
O
O
1

; sNUMBER OF ITEMS IN QUEUE
D INPUT POINTER
;P OUTPUT POINTER
:TTY KEYBOARD QUEUE

INITIALIZE ROUTINE

'%THIS RCJTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
:¥SETUP 1HE INTERRUPT VECTOR AND TURN ON THE KEYBORRD INTERRUPT
; #CALL:

035650

w
N

035602
035606
035614
035622
035630

Q0000000
OOt
O

tx
%

035572
035600
035574
035652
000200
143304
000100

035574
035576
000060
0ooo0se2

JSR
RETURN

§TKINT: CLR
MOV

; #TK

$TKCNT
: s CLERR_COUNT OF ITEMS IN QUEUE
#STKQSRT,STKQIN ::MOVE THE STARTING RDDRESS OF THE

MOV
MOV
MOV

STKQIN, $tkQOUT ;)QUEUE INTO THE INPUT 8 OUTPUT PGINTERS.
#STKSRY, 98TKVEC :; INITIALIZE THE KEYBOARD VECTOR
8200, a8tKVEC+2 ;;"BR” LEVEL 4

MOV
RTS

#100, 3STKS
PC

TST

143274

PC,STKINT

SERVICE

ASTK

: CLEAR DONE FLAG

:ENABLE TTY KEYBOARD INTERRUPT
D'RETURN 70 CALLER

ROUTINE

; #THIS ROUTINE WILL SERVICE THE TTY KEYBORRD

INTERRUPT

; #8Y READING THE CHRRACTER FROM THE INPUT BUFFER AND PUTTING
;#IT

THE

QUEUE.

;#IF THE CHARRCTER IS A “CONTROL-CTM

(fC)

STKINT

IS CALLED AND

; *®UPON RETURN EXIT IS MADE TO THE "CONTROL-C* RESTART ADDRESS
035652
035656
03see2

117746
042716
g2l1ee?

143270
177600
000003

$§TKSRY: MOVB
BIC
CMP

J$TKB, - (SP)
#$C177, (SP)
(SP), #3

: :PICKUP THE CHARACTER
PISTRIP THE JUNK
::IS IT A CONTROL C”

(CTRHLT)

CZR6EBO RKe11l OSKkLS CTRL PRTS

CZRBEB.PI11
7467
7468

(035666
(035670

7470

035700

7469
7471

7472
473
7474

;3;2

035722

(035732

7482

7483
7484

7485

7486

7487

7488

JIMpP

CTRHLT

BEQ

Q34556

7479

7481

PC. STKINT

000137

021627
001004
022737

001500

001140

(0635572

0000C1

035734

104401

qplaqo

035740

005726

035744

021627

000023

00S077

143166

105777

143160

035750

(Q357S2

(035756
035760

(000451

001021

005726

035764

100375

7490
7491

035772
035776

042716
022627

177600
000021

7493

036004

Q012777

000100

7489

7492
7494
7495

035766

036002

117746

0C.366

036012
036014

000002
005237

7499

036032

003002

7501

Q36040

7496
7497
7498

7500

7502
7503

7504
750S
;289

036020
036024
036026

042716

000040

036044

005237

035574

0360S6
036060

001003
012737

036050
036066

023727
000002

3%:
31%:

143132

000175

177530

4%:

035574

035601

035600

035574

7517

:'CLEAN UP STACK

(SP), %7
29
#SWREG, SWR

;3
IS IT A CONTROL G?
; s BRANCH IF
NO
;3 IS SOFT-SWR SELECTED”

81, 8TKCNT

; INIT THE KEYBORRD

(tC:

; ; CONTROL C RESTART

;;G0 TO SWR CHANGE

;3 1S THE QUEUE FULL?

lsPy+

,,CLEQN CHRARACTER OFF OF STACK

(SP), 823

,,IS IT A CONTROL-S”?

$BELL

,,BRRNCH IF NO

RING THE TTY BELL

BNE

329

TST

(SP)+

,,CLERN CHAR OFF STRCK

319

,,LOOP UNTIL ITS THERE

$1C177, (S5P)
(SP)+,521

,,HQKE IT 7-BIT RSCII
;IS IT A CONTROL-Q?

CMP

ad3TKS

7578

dSTKS

MOVB

9$TKB, -(SP)

BHE

319%

RTI
INC

STKCNT

BGT

B8PL

CMP
BLT
CMP

#8100, 9%8TKS

,,BRQNCH IF
NO

;DISABLE TTY KEYBOARD INTERRUPTS
;WAIT FOR A CHA

;3 GET _THE CHQRQCTER

,,BRRNCH IF NO

;REENABLE TTY KEYBORRD INTERRLPTS

RETUR
,,COUNT THIS CHARACTER

(SF), 8175

;;1S IT UPPER CRSE”?
,,BRRNC IF YES
;IS IT A SPECIARL CHRR?

#40, (SP)

,,MQKE IT UPPER CRSE

iNC

STKQIN

,,UPDnTE THE POINTER

BNE
MOV

%]
BRRNCH IF NO
#STKQSRT,STKQIN ,,RESET THE POINTER

BIC

Move

RTI

(SP3, 8140
43

JEXIT

(SP)+, aSTKQIN

,,BRRNCH IF YES

;AND PUT IT IN QUEUE

$TKQIN, 8STKQEND ; ;GO0 OFF THE END?
; s RETURN

NN MU NN RE R R R R B R EREREEERELERERLERR

AND WIL

lSERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP

036070

022737

000176

(036100
(036104

105777
100121

143040

177600

036076
036106

00l11e4
117746

143034

021627

000007

036lie

042716

7520
A

03bl22

001300

(SP)+

o B35 366062636 26 06 363606 36 3 06 36 0 36 36 36 JE I J I JE I MM

76818

7519

,.BRQNCH IF NO
,,TYPE CONTROL-C

iSOFTNRRE SWITCH REGISTER CHRANGE ROUTINE.
lROUTINE IS ENTERED FROM THE TRAP HANDLER,

7511

7515
7516

13
SCNTLC

TST

CMP

SEG 0139

33’

MOV

329%:

PAGE 139

BNE

8IC
CMP

7509
7510
7514

CMP

CLR

7508

7812
7513

CMP
BNE
CMP

TYPE

035572

000140

112677

29:

143154

021627
002405
G21627

036034

1%:

000176

022737

(035742

157

000007

03S7ed

001004

10:43

JSR

035702
035706
035712
035714

02-DEC-7?7

TTY INPUT ROUTINE
BNE
TYPE

035602

005726

MACY1l 30(1046)

036766

004737

035724

7480

001007
104401

035674

7477

7478

02-DEC-77 10:21

J11

036116

001140

:%CALL WHEN OPERATING IN TTY INTERRUP MODE.
QCKSNR CMP
8SWREG, SWR
;IS THE SOFT-SWR SELECTED

BNE

1593

;;EXIT IF NOT

J578B
BPL

J8TKS
159

BIC

#tC177, (S

,,MQKE IT

IF NOT, PUT IT IN THE TTY QUEUE
!AND ExtT

MOVB

CMP

BNE

J8TKB,~-(S

(SP), 'Y

;3 IS A CHAR NRITING°
;;IF NOT, EXIT
; YES

7-BIT ASCII

;IS IT A CONTROL-G?

CZREEBO RhB1l

CZReEB P11

DSKLS CTRL PRTS
0e-DEC-77 10:2!

MARCY11

30(1046)
02-DEC-77
TTY INPUT ROUTINE
S

10:43

K1l

MNAEIRIII NI RNIR

PAGE

140

SEQ J140

ERRNENEREERRR R AR

RRRRRRERE RN

:kCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

; *ROUTINE OR FROM THE SCFTWARE SWITCH REGIST ER TRAP CALL,

036124
036132
036134
036136
036142
036146

123727

001134

000001

112737

035602
142776
000001

001135

#1,SINTAG

s s BRANCH IF YES
; ;CLEAR CONTROL-G OFF STACK
;sFLUSH THE TTY INPUT QUEUE
;;DISABLE TTY KEYBOARD INTERRUPTS
;;SET INTERRUPT MODE INDICRTOR

,SCNTLG
$MSWR

::TYPE CURRENT CONTENTS

2%
(SP,+
PC, STKINT

astks
T

036154
036160
036164
036170
036172
036176
036200
036202
036206

104401
104401
013746
104402
104401
00S046
0gs0o4e
105777
100375

037000
037005
000176

036210
036214

117746
042716

142732
177600

J$TKB,

000003

(SP), 83
9§
$CNTLC
6, SP

036220

037016
142736

036766
000006
00113S

036254

000i00
034556

036260

036276
036300

$GTSUR:

;YPE

19%:

CLR

’%:

TST8

JMP

00002s

9s:

CMP

036773
000006

20%:

ADD

000015

10%:

CMP

: 'SAVE SWREG FOR TYPEOUT
1160 TYPE--OCTAL ASCII(ALL DIGITS)
! !PROMPT FOR NEW SWR
' ! CLEAR COUNTER

*ITHE NEW SWR

'!CHAR THERE?
:1IF NOT TRY AGAIN

a$TKS

- (SP)

8%
£100, 3$TKS

; s PICK UP CHAR
;sMAKE IT 7-BIT ASCII

315 IT A CONTROL-C?

: 'BRANCH IF NOT
:1YES,
ECHO CONTROL-C

: *CLEAN UP STACK

<
0
m

—

po]

[ ]

LrA

142574

—

000100

omn
11"]

000001

142616

($C)

: 'REENABLE TTY KEYBORRD INTERRUPTS?

: 'BRANCH IF NO

;ALLOW TTY KEYBOARD INTERRUPTS

CTRHLT

: 'CONTROL-C RESTART

(SP), %25

;;1S IT A CONTROL-U?
:BRANCH IF NOT
' 1YES,

ECHO CONTROL-U

(tU)

:: IGNORE PREVIOUS INPUT

;s LET’S TRy

IT RGRIN

;3IS IT A <CR>?
; s BRANCH IF NO
IT

THE FIRST

'BRANCH IF YES

—

000002
b
5
001135

COCZ8~

: ;ECHO THE CONTROL-G (1G)

;3 YES, IS

000004

036364

, SMNEW

2(sP)
=(SP)

$INTAG,
#1

000001
BS:

035050
000060

SWREG,- SP)

#1C177, (SP)

142670

RS R RESULT OF A

-lCONTRO%agBBEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
; ; ARE WE RUNNING IN AUTO-MODE~?
$AUTOB,
k1
£s

CHARR”

; s SAVE NEW SWR
; ;CLEAR UP STACK
;s ECHO (CR> AND <«F>
; ;RE-ENRBLE TTY KBD INTERRUPTS?
; ; BRANCH IF NOT
; ;RE-ENRBLE TTY KBD INTERRUPTS
; s RETURN

; s ECHO CHAR
:;CHAR <« 07
; ;BRANCH IF YES
;;CHAR

CZRGEBO RKB11 DSKLS CTRL PRTS

CZRGEB.P11

02-DEC-77 10:21

7579
7680

036370
036372

003015
042726

7583
76849

036404
036406
036410

0806316
006316
006316

036416
036422
036424

0S66lE
000667
104401

7681
7682

7585

036376
036402

7586

036412

7530

036430

7687
7588
7689
7591

005766
001403
005266

000720

MACY1l 30(1046)

TTY INPUT ROUTINE
BGT
BIC

000060

000002

.DSARBL

LSB

7598
7599

Ly
s%

;

7602

036432

011646

7604

036442

005066

000004

036450

036454

012746

(000002

036456

005737

035572

03(464

005337

035572
035576

7606
7607

036434
036446

7608

036456

7610

036462

7609

7611

7612

036470

016666

005046

001775

117766

7613

036476

005237

7615

036510

001003

7614

7616
7617

7618

036502
036512
036520

023727
012737
000002

000004

000002

$RDCHR:

18:

4(5P)

,,csr RERDY FOR A cunnncren

#5648, - (SP)

11PUT NEW PC ON

CLR

-(SP)

RTI

TST

BEQ

{THE PS

'PUT NEW PS ON STAC

srncx

'IPOP NEW PC AND PS

STKCNT

: sWAIT ON A CHARACTER

§TKCNT

; ; DECREMENT THE COUNTER

035576

035601

CMP

§TKQOUT, usrxoeno -DID IT GO OFF OF THE END”

035600

035576

INC

BNE

2s:

MOV
RTI

$TKQOUT

;,cer ONE CHRRACTER

uponrs THE POINTER

RANCH IF NO

STKQSRT, STKQOUT' RESET THE POINTER
h

lil!ll!l!!*ll!l!l!illl!l»i!l*!l‘il!lllll*!!!*!!l!**liil*!l**ll*l

iggEE ROUTINE WILL INPUT A STRING FROM THE TTY

L¥

s¥

7625

036522

010346

7607

036526

012703

7633
7634

; ;PUSH_DOWN THE PC AND

4(sP},2tispPy

ISTKQOUT,4(SP)

;gsa

7631

(SP),-(SP)

MOV

DEC

7632

' 'CHRRACTER IS ON THE STA
P'WITH PARRITY BIT sraxppso OFF

MOVB

7622

7630

MOV

BYS:

:sGET_A CHARACTER FROM THE QUEUE

RETURN HERE

000004

‘

7629

RDCHR

CLR

7621

7628

! 'GIMULATE CONTROL-U

177102

zgég

7626

: 'KEEP COUNT OF CHAR

*ESES ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

7597

7605

P'SET IN NEW CHAR
; ;GET_THE NEXT ONE
*TYPE ?<CR><LF)>

:IS THIS THE FIRST CHAR
: 'BRANCH_IF YES

, liiil!lli!*!illil!li**iil*!«!llilllilllll*ll!!l!lll!i**lll!l!*i!

;232

7603

—2(SP), (SP)
79
$QUES

208

18%:

7594

1INO, SHIFT PRESENT
;3
'CHAR OVER TO MAKE
3
ROOM FOR NEW ONE.

00124

SEQ 0141

(SP)
(SP)
(SP,

2(SP)

BIS
BR
TYPE

PAGE 141
: ;BRANCH IF YES
i i STRIP-OFF ASCII

INC

ASL
ASL
ASL

L1l

18%
#60, (SP)+

2(5P)
178

17%:

177776

10:43

75T
BEQ

000002

7235

7601

02-DEC-77

036524

036532

036536

00S046
022703

101456

036540

104410

036544

122713

036542

036550
036552

112613

001022
005716

036756

036766

RDLIN

*ADDRESS OF FIRST cnnnncrsn WILL BE ON THE STACK

' ITERMINATOR WILL BEA BYTE OF ALL 0°S

SRDLIN:

MOV

R3,=(SP)

18:

MOV

cSTTYIN R3

BLOS

4§

2%:

CLR
CMP

ROCHR

000177

;3 INPUT A STRING FROM THE TTY

RETURN HERE

108:

MOVB

CMPB

BNE
TST

;

SAVE R3

(5P)

,,CL AR THE RUBOUT KEY

$$TTYINB. ,R3

,,eurrsn FULL?

(SP)+,

(R3)

2177, 1R

S§
(SP)

GET

ADDRESS

IF YES

:'GO_RERD ons cunnncrsn FROM THE TTY
*'GET CHRRAC

:21S ITA
RUBOUT

::BR IF
N
1S THIS THE FIRST RUBOUT?

CZRBEBO RK611
CZR6EB .Pll

DSKLS CTRL PRTS
02-DEC-77 10:21

783 B3eesd 714957
7637

036564

104401

7e38 B3kash RAESAS
7640

036576

020327
103434
111337

000134
036754
177777

MACY11

3C(1046)
02-DEC-77
TTY INPUT ROUTINE

BNE
MOVB

036754

6%:

036756
036754
036754

S%:

000134
036754

036754

8%:

ooocee

;;BR IF NO
;s TYPE A BACK

63
#'\,98

kol ’ (SP)
33
R3, #STTYIN

SLASH

::SET THE RUBOUT KEY

EEBSCKJP 8Y SNE

BEQ
MOVB

73
#'\, 9%

CMPB

825, (R3)

; ;CLERR THE RUBQUT KEY
IS CHARACTER A CTRL U?
;;

CMPB
BNE
CLRB

49
(R3),9%
9g
(SP)

93
SP)

;sBR_IF NO
;s TYPE A CONTROL *U”TM
; ;GO START OVER

$CNTLU

1S CHARACTER A "tRTM?
;;
; s BRANCH IF NO
; ;CLEAR THE CHARACTER

#22, (R3)
[
(R3)

LR 4

, 3CRLF
STTYIN

; ; TYPE

THE

INPUT STRING

;;GOPEISKgg.QNOTHER CHACTER
3 TY

001244

T;PE

$QUES

36754
36754
000015

3%:

MOVB
TYPE

(R3),9%

: JECHO THE CHARACTER

kisS, (R3+

; ;CHECK FOR RETURN
;;LOOP _IF NOT RETURN
; ;CLEAR RETURN (THE 15)

CMPB

177777
001246

000004
036756

gooo02
000004

0oa
google
000
0siie?

STTYIN:

020127
.EVEN

.SBTTL
S

' 'CLEAR THE BUFFER AND LOOP

BNE
CLRB
TYPE

-1(R3)
SLF

MOV
MOV

(SP)+,R3
(SP), Z(SP)

TST

9s:

037030

SEQ J142

TST

TYPE
T;PE

00124S
036756

142

BNE
EEPE

036773

PAGE

s ; STACK EMPTY?
IF YES
i
;;SSTUP TO TYPEOUT THE DELETED CHAR.
; ;G0
TYPE
; ;GO READ ANOTHER CHRR.
; s RUBOUT KEY SET?
;:BR _IF NO
;; TYPE A BACK SLASH

CMP
BLO
MOVB
TYPE

TYPE
CLR

0000eS

037024

o
DEC

10:43

M1l

;3 TYPE A LINE FEED

{SP)+

; ; CLEAN RUBOUT KEY FROM THE STACK
; ;RESTORE RJ3

MOV
MOV

4(SP},2(SP)
4 SP)
sSTTYIN,

.BYTE
BYTE

O
O

RTI

Bicz<1 1
ggéa
nscf% /fU/<1§><1S>
)<

.ASCIZ
JASCIZ

/74G/<1S <12
<15>¢12>/SkR

LASCIZ

; ;ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON 1IT
; s RETURN

; ;STORAGE FOR ASCII CHAR.

TO TYPE

8 BYTES FOR TTY
i
s s CONTROL *C*

INPUT

; ; TERMINATOR

[1] Gn

NEW = /

READ AN OCTAL NUMBER FROM THE TTY

SRR I

0 00 06000 0

IO 00060 0300

AN RN

*4THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
; XCHANGE IT
; ¥THE INPUT

TO BINARY
CHARACTER §

WILL BE CHECKED TO INSURED THEY ARE LEGAL

CZRGEBO RK&11 DSKLS CTRL PRTS
02-DEC-77 10:21
CZREEB.P11

N1l

MACY1l 30(!1046)
02-DEC-77
10:43 PAGE 143
READ AN OCTAL NUMBER FROM THE TTY

7691
7692

:%0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?* WILL BE TYPED
:¥FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

;233

;*ESEE BE RETYPED.
i

7635

;235

7696

037030

011646

770:

037040

010046

7704

037046

7762
7703

7705
7706
7707

7708

7709
7710
7711

037032

016666

037042
037044

010146
010246

037050

012600

037060

005002

037052
037056

Q10037
005001

112046
001420
122716

7713
7714
7715
7716

037074
037100
037102
037104

122716
002423
006301
006102

7718

037110

006102

7720

037114

7717

7719

7721

7782
7723

7724

7725

037072

037106

037112

037116

037122

037142

037140

7729
7730
7731
7732
77233

037144
037146
03715C
037152
037154

7735

037160

7736

7737

;;gg

042716

06eb01

010166

7728

7734

006102

037156

037164

037166

005726

$RDOCT:

MOV

MOV
18

000060

010237

012602

012600
000002
005726
105010
104401
000000

104401

000730
00000C

001244

. sPICKUP THIS CHARACTER
P11F ZERO GET OUT

1115 AN OCTAL DIGIT

ROL

:'AND SAVE IT
: :CLERR DATA WORD

' !MAKE SURE THIS CHARACTER

s ¥Y

ASL

;s %8

BIC

#1C7,

(SP)

(SP)$,R1

;;STRIP THE ASCII JUNK

:'ADD_IN THIS DIGIT

MOV

R1,12(SP)

:'SAVE THE RESULT

(SPY+,R2

: ;POP STACK INTO R2

(SP)+.RO

: 1POP STACK
: RETURN

(SP)+

MOV

R2.$HIOCT

MOV

(SP)+.R1
(SP)+
(RO)

L.WORD

.WORD

.SBTTL

#’0, (SP)

8’7, (SP)
4$
R1
R2

TYPE

$HIOCT:

CMPB
BLT
AS.
ROL

MOV
RTI
TST
CLRB
TYPE

5%:

:'READ AN ASCIZ LINE

1 GET RDDRESS OF 1ST CHARACTER

(RO)+,-(SP)
39

MOV
4§:

:1PUSH R1 ON STACK
:1PUSH R2 ON STACK

MOVS
BEQ
CMPB

TST

012601

:1PUSH RO ON STACK

: L INPUT NUMBER

RO, 5%
RI

ADD

037166

RO, - (5P)

MOV
CLR

ROL

3%:

: ;sPROVIDE SPRCE FOR THE

(SP)+,R0

ASL

177770

(SP), -(SP)

4(SPY,2(SP)

MOV

BGTY

000067

:;HIGH ORDER BITS ARE IN $HIOCT

R1,-(5P)
R2,-(SP)

CLR

cs:

::LOW ORDER BITS ARE ON TOP OF THE STACK

MOV
MOV

ROL IN

037156

000012

: ;REARD AN OCTAL NUMBER

RETURN HERE

006301

037130

037134

000002

THE INPUT 1S TERMINATED BY TYPING A CARRIAGE RETURN.

RDOCT

005301

000756

7726

7727

003026

037124

037126

000004

104411

037062
037064
037066

7712

7699

7700

SEG 0143

$QUES

:LOOP

: *CLEAN_TERMINARTOR FROM STACK

::POP STACK INTO Rl

INTO RO

:'CLERN PARTIAL FROM STACK
}SET A TERMINATOR
::TYPE UP THRU THE BAD CHAR.
537" “CR* & “LF"

: : TRY AGRIN

: *HIGH ORDER BITS GO HERE

SAVE AND RESTORE RO-RS ROUTINES

7740

HH 3696 36 36 36 36 36 3 36 36 36 3 36 3 36 36 36 36 36 3 36 3 36 36 36 96 36 36 36 2 36 36 36 36 3 3 36 36 3 3% 36 3 3¢ 36 3 3 %6 36 3 3 I X F 3 3 46 2 3 ¥ A ¥ % R

7742

; #CALL
:

7746

S¥TOP--=-(+16)

7741

7743
;;:g

: ¥SAVE RO-RS

e
SAVREG
xUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
. *

]
|
l

CZR6EBO PRKGII
CZR6EB. 11

DSKLS CTRL PRTS
02-DEC-77 10:21

MACY11l

Bl2

10:43
_PAGE
02-DEC-77
SAVE AND RESTORE RO-RS ROUTINES

30(10+b)

SEQ Oivd

144

;% 42---(418)

; #

+4---RS

037262

wununyn
VUV

; ;RESTORE PC OF CALL
OF CALL
; ;RESTORE P
OR E P
OF MAIN FLOW
s
; ; RESTORE PS OF MRIN FLOW
; ; POP STRC K 1 NTO0 RS
:1pOP STACK INTO RM4
::POP STACK INTO R3
:1pOP STACK INTO R2
'1pOP STACK INTO Rl
!!pOP STACK INTO RO
[@1T)]

VLY
R
R

Nt Nt Nl Nt

BN TN NN

OO
Yred
F

gt
Nt Nal Nt
N

20207020
20 DMLY
O~
£

.SBTTL

Nl Nt Nl Nt N

%
" RESREG
$RESREG:

VNN TN NN

000022
000022
000022
000C22

MAIN FLOW
MAIN FLOW

RO-RS

o
o
£

(3»»—»»—;;—#»—»u—

037226

0000000000

;iRESEORE
*CAL

[

000c2e
0000e2
000022
000022

037220
037224

446

XX
an ¥

ntEwn—-0

$SAVREG:

IO IO IV G IV
VUVOVVVOVODOO

O0000000000
D 1= s Pt P Pt Pt et Pt s P
Q0000000
oocoon
LELELEL
ooooo

;% +6---RY
;% +8---R3
; #+10---R2
; #412---R1
; #4149---R0

POWER DOWN AND UP ROUTINE

;;!§ll!*l§!lill!ll!il!!!l!!l&iillll**!ill*!!lil**l**!lilll**!*ll!

037264
037272
037300
037306
037310

: POWER DOWN ROUTINE
; SAVE SWITCH REGISTER
JSWR, SAVSWR
#3PWRUP , PWURVEC 'SET UP VEC T0 R
MOV
8PR7, PWRVEC+2
MOV
HALT
:HANG UP
.=2
BR

§PLRDN: MOV

017737
012737
012737
000000
000776

;;l!llllillllliilll!lll!*Il*i!llllll*i*!*llllli*lllll*i!lill*il!!

005037

~N
[01]
(o]
o

037312

037332

005337

037406
000144
037406
p37410

. POWER UP ROUTINE

$PURUP: CL R
18:

MOV
INC
BNE
DEC

[3 PWRCT

#100. ,SPWRCT+2
$PWR ct
19
$PWRCT+2

;LOAD WAIT COUNT
:WAIT FOR TELETYPE

CZR6EBO RKB11
CZReEB .P11
7803

7804

037336

037340
83? 46
7 354

DSKLS CTRL PRTS
02-DEC-?7 10:21

001372

883108

e
Pt Pt

837380
UL W

000024
000026

gas3se

141542

ooga122

037376
037402

000177

001324
141500

037406
037412

000000
047520

000000
042527

O DN

Pt Dt et Pt Pt P

02-DEC-77

10:43

POWER DOWN AND UP ROUTINE

PRGE

14S

SEQ 0148

BNE
MOV

18
#SPWRDN, PWRVEC

;SET UP FOR POWER DOWN VECTOR

MOV
TYFE

#STARLK, SP
$POWER

;FORCE STACK
: TYPE POWER

MOV

03741e

037360

N NNNININNNIN NN,
a0 (D00 00 00 O CDCO 00

035234

MACY1l 30(1046)

cle

8PR7 , PWURVEC+2

JSR

PS PARCHK

W
IMP

$BASE, R2
TREINITIALISE R2 FOR ‘611 BASE
SLPADR ;GO BACK' TO LAST TEST

$PWRCT:

.WORD

0,0

.SBTTL

.EVEN
TRAP DECODER

MOV

$POWER: .ASCIZ
33 SIRIHEI I

SAYSWR, JSWR

/POWER/

0000 000 A0

;REéN&TéQgI?; MEMORY ;HECK ENABLE
‘RESTORE

SWITCH REGISTE

; TELETYPE

TIME OUT

00 0000 0 00 3000303 T

000 I

0 R

s #THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP“ INSTRUCTION

;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING RDDRESS
; #OF THE DESIRED ROUTINE. THEN USING THE ADORESS OBTRINED IT WILL
; GO

037420
037422
037426
037430
037432
037434
037440

010046
016600
00S740
111000
006300
016000

006200

Q37442
037444
037452

$TRAP:

0ooooe

MOV

RO,

TST

-(RO)

MOV

MOVB
ASL
MOV
RTS

037454

000004

THAT ROUTINE.

000002

- (SP)

2(48p) RO
(RO), RO
RO
§TRPAD(RO)
RO
RO

; s SAVE_RO

'!GET TRAP ADDRESS
: ! BACKUP BY 2

BYTE OF TRAP
!!GET RIGHT
!!POSITION FOR INDEXING
:; INDEX TO TABLE
:1G0 TO ROUTINE

;3 THIS

IS USE TO HANDLE THE "GETPRI* MACRO

§TRAP2:

MOV

MOY

RTI
.SBTTL

(SP),-(SP)

4(sP),2(sP)

: :MOVE THE

! 'MOVE THE

PC DQWN

PSW_DOWN

:'RESTORE THE PSW

TRAP TRBLE

; ¥THIS TRBLE CONTARINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
“TRAPTM INSTRUCTION.
; ¥BY THE

;
037454

037464
037466

037442
034636
035144
03s120
035160
035346

037470

037472
037474
037476
037500

$§TRPAD:

ROUTINE

.WORD

STRAP?2

$TYPOC

::CALL=TYPOC

TRAP+1 (104401)

§TYPOS
§TYPON
§TYPDS

;;CRLL=TYPOS
:;CALL=TYPON
:;CALL=TYPDS

TRAP+3(104403)
( 104404)
TRAP+4
TRAP+S(104405)

TTY TYPEQOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZERGCS)
TYPE OCTAL NUMBER (NQO LEADING ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

036160

SGTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

036070
036432
036522
037030

SCKSWR
$RDCHR
$ROLIN
$ROOCT

;; CALL=CKSWR
; ; CALL=RDCHR
;;CALL=ROLIN
; ; CALL=RDOCT

TRAP+7 (104407 )
TRAP+10(104410)
TRAP+11( O4411)
TRAP+12(104412)

TEST_FOR CHANGE

§TYPE

;;CALL=TYPE

TRAP+2( 104402)

IN SOFT-SWR

TTY TY2EIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
REARD AN OCTAL NUMBER FROM TTY

CZRGEBO RK611 DSKLS CTRL PRTS
CZRBEB.PI11
02-DEC-77 10:21

7859

037502

037170

7861

037506

033566

7860

037504

037226

MACYIl 30(104%)
02-DEC-77
TRAP TABLE

10:43

Dle

PRGE 146

$SAVREG ;;CALL=SAVREG
*

SRESREG ;;CALL=RESREG
SCOPIS
;;CALL=SCOPl

TRAP+13(104413) SAVE RO-RS ROUTINE

TRAP+14(104414) RESTORE RO-RS ROUTINE
TRAP+1S(104415) INTERNAL LOOP ON ERROR

SEQ J146

CZREEBO Rrkbl1l DSKLS CTYRL PRTS
ZRBEB.PI1
02-DEC-77 10:2!1

001254
001254
002160

PAGE

147

.SBTTL

DATA TABLE FOR PRINT OUT

DT1000:
UTO00M:

- WORD
. WORD

STESTN, TRAPPC
$TESTN, SERRPC,E. CcS1,7.CS1,7.CS2,T.ER,T.0S

001116

002244

DT000S:

.WORD

STESTN, SERRPC,E. MR1,T.MR!

oc1ilie

002246

DTO006:

. WORD

STESTN, SERRPC,E. MR2,T.MR2

001116

002250

DT0007:

. WORD

STESTN,SERRPC,E. MR3, T.MR3

001116
002320

002244
002322

0T0010:

.WORD

$TESTN, SERRPC,E. MR1,T.MR1,PR.BIT,M1.BIT,BITCNT

002220
002322
002174

DTO011:

.WORD

STESTN, SERRPC,E. £S1,7.CS1,PR.BIT,M1.BIT,BITCNT,T.CS2,T.ER,T.DS

002240
002166

DTOO14:

.WORD

T.DA
$TESTN, SERRPC,E. DCYL,T.DCYL,E.DR,

DT00L7:

. WORD

STESTN, SERRPC,E. MR1,T.MR!,P!1.BIT,PR.BTT,M1.BIT ,M2.BIT,BITCNT

002254

DT0021:

.WORD

§TESTN, SERRPC, E. ECPT,T.ECPT,BITCNT

002160
0oel7e
002166

DT0026:

. WORD

$TESTN, SERRPC, T. CcS1,T7.CS2,T.ER,T.DS, T.WC,T.DCYL, T.DA

SREGO, $REG]1, SRE Ge
$TESTN, SERRPC,E. ECPT,T.ECPT,E.ECPS, T.ECPS,BITCNT

00ee52

DTO0OM43:

STESTN, SERRPC ,E. ECPS, T.ECPS,BITCNT

00ec234

DT004S:

$TESTN, SERRPC,E. ER, T.ER

00lll6

002224

DT0046:

$TESTN, SERRPC,E. BAR, T.BA

001116

002ee2

DT0062:

$TESTN, SERRPC,E. WC, T.WC

0ollle
0o11e4

00llee
go117e

DT00e3:

$TESTN, SERRPC, SREGO, SREG3, SREG1, SREGH, SREG2

U=t

DTOO41:

oo o

=)0

$TESTN, SERRPC

001166
002254
0pezle

0g2
00111

001166

El2

002220
002174

0023

040024

_10:43
02-DEC-77
DATA TARBLE FOR PRINT OUT

30(1046)

0ne310
QU116
002170

e mo—-o‘o—oxjo—mb—mo—b—yv—
NCLOCOLOCC
Lo

037510
037514

7862
7863

MACY1l

SEQ 0147

CZRBEB.P1

DSKkLS CTRL PRTS
02-DEC-77 10:21

MACY1l

02-DEC-77
10:43
DATA FORMAT FOR PRINT OUT

30(1046)

.SBTTL

PNONUNY
o= b e = O
LnnoooLnnooe

7911

040026
Q40030
Q40032
040034

040174
040176
040200

000001
00e
000006
00c
o41232
000
041250
002
O41314
000
041333
0ge
041423
003
0000QS
000
041232
000
041250
002
041314
000
041351
002
00000S
000
041232
000
041250
002
041314
000
041367
00e
000005
000
041232
000
041250
002
O41314
000
o4140S
00e
00000S
000
041232
c00
041250
002
041517
0oa
D41S5E3
005

000

ooo

DFOO0OC:
DFOO00M:

2,0
b
0,0

DHOCOR
0,0

000

DHOCOB

000
000
000
000
000

DFO00S:

0a0
000
000
000
000

DF0006:

000
000

000
000
0oo

DF0007:

000
000
000
000
000
000

000
coo
00c

DFOO010:

F12

PRGE 148

DATA FORMAT FOR PRINT OUT

[Gleleleie/ele/elhiela] o Wielalelalhjiile/alelilelslelal)1
I I
I - = I I XQ0000 000
=
o 000000 O
O
O
o
(=)
Q
O
0
o
£
£
O
o
£
£
O
O
o
o 2]
D
O
@
D

CZR6EBO RK&II

fiooog
0

fioooe

Hoxo
0

HO10A

SEG U148

CZRGEBO RKG11 DSKLS CTRL PRTS

CZRGEB.PI11
7963
7964

040202
040204

796

040210

7965

02-DEC-77 10:21

MACY1l 30(1046)

02-DEC-77

DATA FORMAT FOR PRINT OuT

000006
000

000

DFO011:

.WORD
.BYTE

&
0,0

000

.BYTE

0,0

002

000

005

000

.BYTE

65,0

0063

000

.BYTE

3,0

(40206

041232

040212

041250

040216

041517

(040222

041631

040226

041423

7975
7976

Q40232
040234

000005
000

000

7978

040240

000

.BYTE

002

000

'BYTE

000

oo4

000

7967
7968

Q40214

7970

040220

7969
7971

7972

7973

7974

7977
7979

(40224

(040230

040236

041232

040242

041250

040246

041677

040252

041736

(40256
040260

000005
000

000

Q40264

000

002

000

(040300
Q40302
040304

007
000005
000

000

7938

Q40310

000

8000

040314

062

000

040324
040326
040330

003
000004
000

000
000

040334

00N

000

002

000

7980

Q040244

982

(040250

7984

Q40254

7981

7983
7985
7986

7987

7988

7989
7930

7991

7992

7983

7994
7995
7996

7997

7989

040262

040266

(040270

041232

041250

040272 041773
Q40274

(040276

040306

042057

041232

Q40312

041250

8001

040316

042145

8003

040322

042171

8002

8004
8005
8006

8007
8008

04032

040332

O041c32

8009

040336

041250

8011

040342

042245

8010

Q40340

000

.WORD
.WORD

'BYTE

-WORD
.BYTE

_WORD

.WORD
DFOOIY:

.WORD
‘BYTE

.BYTE

.WORD
'BYTE

-WORD

'BYTE

4,0

5
0,0

DHOOODR
0,0
2,0

0,0

7,0
S
0,0

.WORG

DHOOOB

'BYTE

0,0

2,0

.WORD

DHOO2!

"WORD

DHO21A

"WORD

DHOOOA

'BYTE
.BYTE
.WORD
.BYTE
.BYTE

0,0

3,0
4
0,0
0,0

.WORD

DHODOB

"WORD

DHOOD26

BYTE

00?7

000

'BYTE

040380

DHO14R

DHOODOA

'BYTE

000

8018

0,0

.WORD

002

042245

DHO14

DHOL7A

'BYTE
.WORD
'BYTE

040354

040356

2,0

"WORD

'BYTE

8016

8017

0,0

DAOOD17

010
000

S
0,0

-WORD

00?
000003
000

041250

DHOOHE

DHOOOB

040344
040346
0O403€0

040352

DAHC10B

"WORD
'BYTE

DF0027:

0,0

DHOOOB

_WORD

DFO026:

2,0

DHO.0

_WORD
.BYTE

DFO021:

DKOOOB

DHOOOA

-WORD
DFOOL7:

DHOOOR

.WORD

8012
8013
8014

8015

10:43

.BYTE
.WORD
'BYTE

2,0
7,0
3
0,0

.WORD

DAOOOB

.WORD

DAMOO26

2,0

7.0

Gle

PAGE 149

SEG 3149

CZR6EBO RKBll
CZR6EB .P11

BRid guB3eq
8021

040366

DSKLS CTRL PRTS

0e-DEC-77 10:21
000883
041250

Mok g ozl
HE
Q40376

40406

040410
o4oMi2
o4041Y4

040540

042357
003
000
000004

000
041250
00e
042406
000
042452
00S
000004
000
041250
0o2
0o42145
000
o4el71
003
000004
000
041250
00e
042145
000
o4eel?
003
00000S
000
041232
aln]e)
041250
00e
041314
000
041450
0Qe
000004
000
041250
002
O41314
000
041465
002
000005
coo
041232
000

000

MACY11

30(1046)

DF0037:

000

coo

oco
000
000

000
000
000
000

DFO043:

goo
0Go
000
000

DFOC4S:

000

000
000
000
ooa

OF0046:

000
000
000
Qoo
000

. WOR
.BYT
. WOPRD
.BYT

. WOR
.BYT
. WORD
.BYTE
.WOR
.BYT
. WORD
.BYTE

0cG

000

10:43

DATA FORMAT FOR PRINT OUT

coo

000

02-DEC-77

DF00S0:

0,0
DHO008

§¢4 37

H12
PRGE

150

SEQ J150

CZRHEBO RKBL1 DSKLS L <L PRTS
CZREEE.P11
02-DEC-77 10:21
8075
8076

040S42
040544

041250
002

8677
8078
8079

040546
040550
040552

041314
000
041333

8081

040556

00000Y

(Q4OSE2
Q40564
040566

041250
002
042520

040572

042545

8080

8082

8083
8084
806S
80€6

8067
8088
8089
8030

8031

Q40554

040560

040570
Q40574
040576
040600

000

003
000005
000

000
000

000

002

041250

8095

040612

O41314

8037

040616

041465

(040604

8094

040610

8093
8096

8098
8099
8100

8101

DHODOA

000

'BYTE

002

000

.BYTE

000

Q40644
040646
040650

002
00000S
000

000

040654

060

041502

040630

040634

040640

0,0

.WORD

DAHOOMG

.WORD

DAHOOOA

.BYTE
.WORD
.BYTE

-WORD
.WORD

2,0
S
0,0
0,0

DAHOOOB
2,0

DHOOH

2,0
&
0,0

000

0,0

002

000

.BYTE

2,0

0co

000

'BYTE

00s

000

040656

041250

8115

040662

042572

C40666

042637

040670

DF00B2:

DHOO4

_BYTE
.WORD
'BYTE

8113

040664

.WORD

DAHOOOB

0,0

040652
040660

000

.WORD

.BYTE

8111

8118

.WORD

3,0
§
0,0

062
00000S
000

040620
Q40622
040624

040642

8117

DAMO&OB

.BYTE
.WORD
'BYTE

0,0

.BYTE

041314

8116

"WORD

000

040636

8114

DFOOOB
2,0
DHOBOR

000

Q40614

8105

8112

.WORD
"BYTE
.WORD
BYTE

DFOO6l:

0,0

2,0

041250

8107

.BYTE

2,0

.BYTE

040632

8108
8109
8110

.WORD

000

8103
81°6

.BYTE

DHOO4
0,0
DAHOO4A

0,0

041232

8104

DFO0B0:

DHOOOB
2,0

.BYTE

040626

8102

.BYTE

000

040606

8092

.WORD
.WORD

000

041232

.WORD
'BYTE

0ao

002

040602

MACYLl 30(1046)
02-DEC-77
10:43
CQTA FORMAT FOR PRINT ouT

041232

000

-WORD

DFO063:

_WORD

"WORD

"WORD
.BYTE

DHOO4H
DAHOOOA

DHOOOB
DHO&3R
0,0

DHO&3B
5,0

Il2

PAGE 151

SEQ 0151

02-0EC-77 10:21

(QuYs522

MACY1l 30(1046)

02-DEC-77

10:43

ASCII MESSAGES
.SBTTL

RSCII MESSRGES

J1la

PRGE 152

SEG 0182

G+425¢26
Q40440
0S1523

030466

052103
042104
024040

OPROO1:

.ASCIZ

<15><12>/RKb11 VECTOR ADDRESS (

Q40714

0058 1S
bl
17
042522

040724
040732
040740
Q40746
Q40754

024440
045522
042526
040440
0S1523

036440
030466
052103
042104
024040

000040
020061
0S1117
04252e
000040

OPROO2:
OPRON3:

.ASCI Z
.RSCI Z

Q40672

)

/RK6ll

VECTOR ADDRESS

(

Q4062

0Q4SS22

030466

020061

OPROO4:

.ASCIZ

/RKbll PRIORITY (

041004

005015

047062

020104

OPROOB:

.ASCIZ

«15><¢12>/2ND PASS RUN TIME APPROX 4 MINUTES/<15>
(1>

052688

OPRO07:

.ASCIZ

«15><12>/#x%xx

SPACE2:

047511
024040

(Q44See
000040

0S1523
052040
0s0101
032040

0S1040
046511
0S1120
046440

025012

025052

025052
020040

006452
000

000012

051505

RBORT:

.AR

PROGRAM HALTED

Q42504

006504

000012

0Se2123

TSTBYl:

.RSCIZ

<«1S>¢12>/TEST ~

041040

0S0131

0S1501

TSTBY2:

.ASCIZ

~ BYPRSSED/¢15><12>

005015
042523

042524
006504

000012

xa##x/<(1S><12>

¢15> (12> /PROGRAM ABORTED BECAUSE ERROR THRESHOLD EXCEEDED-/<1S><12>

—

047522
Q
n
n
n
o

wn
o
n

(0S00l2
£

o
£
o

015

—

ié

040520
047125
0S
17

—

LYV
Ve
e e e
ol S
e (e e]e)
=~ 00NN L WRHN——~=O N0V
LoLoonLoON
£~
L00W

o41012
Q41020

0S1120
0S4S24

(=}
£

040770
Q40776

.ELI-C-C.IIIIIJ::I&LII&?I

(00000 00 G0 O 0D 0 (0 (D Q0 €0 (D €D GO G €D D A €D U GO0 0D €D U €O 10 ¢ D O 0D TN D €D 0 D D 0D K0 O

0000000000000 00000Q0

LN 1Y)
polpel

O RkB11l DSKLS CTRL PRIS

P11

02-DEC-77

O41232
041240

042524

DRATA HEADERS

PRAGE 153

DHOOOR:

.RSCIZ

/TEST

ERROR~

0SeS1e

020115

020838

DHGO0B:

.RSCIZ

/NUM

PC/s

124

0S150S

0e20le4

DHOOOC:

.ASCIT

/TEST

12>
TRAP/¢15>

.ASCIZ

/NUM

pPC/s

o
|o
Uy
o

116

020040

0Q41S20
052040
012

046525

0S004C

0475e2

040See

020040

000103

0S410S

042520
041501

0S2524

052103

DHOO4:

.ASCIZ

/EXPECT

ACTUAL~/

122

041513

030523

DHOO4A:

.ASCIZ

~/RKCSI1

RKCS1/

046513

030S22

DHOO4B:

.RSCIZ

/RKMR1

RKMR1/

000
046513

031122

DHOO4MC:

.RSCIZ

/RKMR2

RKMRz2/

DHOO4D:

.ASCIZ

/RKMR3

RKMR3/

DHOO4E:

.RSCIZ

~/RKCS2

RKER

DHOOMF:

.ASCIZ

/RKER

RKER/

020040
020040

[=)
W
o
wn
rn
W

s Pt ot Pt Pt ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt

020040

030Sea2
122

051838
051040

041513
046513

041456

020838

o4sS22

0Sl!

04146S
041472

le2
020040

041113
0S1040

020
041

DHOO4G:

.ASCIZ

/RKBA

RKBR/

Q41502

045522
020838

041527
Q4s522

0200
Qu41Se?7

DHOO4H:

.ASCIZ

/RKWC

RKWC

105

050130

[

wn
n

~
122
-20040
=]
W

SUBREAR

0S1040
000
046513
051040
000

e Bt

020040

000

LSL L L L LWWWWWWW WWWWWWNN
NOCNN
L £ WWwh—
£ENEO—-0OWONL
-0

.SBTTL

10:43

0cJO40

020C40

Iltlll&l:::&:#::&&???

02-DEC-77

DATR HERDERS

052123

020040

Q000000000000 00000

MACY11 30(1046)

O0S110S

Q41256

Q41263

10:21

020040

80\1\3

041250

0000000000000
0000
frrLLcLrrfL
Lk

gle]

NN
0D
oo
mm
mm

O _RKb11l DSKLS CTRL PRTS

Kl2

046513

SEQ 0183

RKDS/

020124
040SeS
042522
0S0040
051525

040440
020114
042523
042522
041040

052103
0S0040
052116
Q47526
0Selll

041505

DHOLO:

.ASCIZ

~/EXPECT

ACTUAL

PRESENT PREVOUS BIT/

122

046513

020040
030Se2
CSelll
Q41040
020040

0S1040
020040
020040
052111
041338

030522

046513
Q41040
020040
020C40
0Ses17

DHOI0AR:

.ASCIZ

/RKMRI

RKMR1

BIT

COUNT/

122

041513

030523

DHOLI0B:

.ASCIZ

~RKCSI1

RKCS1

BIT

COUNT/

020040

051040

041513

CZRBEBO RKB11
-l
b
P11
-~

Q41644
o41652
041660

Q41666

Q41674
Q41677

DSKLS CTRL PRTS
02-DEC-77 10:2
21
030523

020040
020040
gselll
O41440
000

052103

JHa2a

Q42324

MARCY11l

30(i046)
02-DEC-77
DATA HEADERS

10:43

Ll2
PRGE

154

SEQ O1S4

Q41040

05es17
04150S
gsel03
Q4e440
Ge0leH
04052S

DHO1Y4:

.RSCIZ

/EXPECT

ACTUAL

EXPECT

RCTUAL-

46131
41504

DHOLHYA:

.RSCIZ

/RKDCYL

RKDCYL

RKDR

RKDR~/

DHOO17:

.RSCIZ

/EXPECT

ACTUAL

PRESENT PRESENT PRESENT PRESENT BIT/

DHO17A:

.ASCI1Z

/RKMR1

RKMR1

BIT+!

Q4ssee
020040
000
g4150S
0s2103
0S0o040

031055
0ses1?

052116

050130
040440
020113

041505
052103
041040

DHOO21:

.RASCIZ

/EXPECT

ACTUAL

BIT/

050103
042513
041440
000
050103
042513
041440

DHOZ21A:

.RSCIZ

/RKECPT

RKECPT

COUNT~/

DHO21B:

.RSCIZ

/RKECPS

RKECPS

COUNT/

DHOO26:

.ASCIZ

/RKCS1

RKCS2

RKER

000101

BIT

BIT-1

BIT-2

COUNT/

RKDS

RKWC

RKDCYL

RKDR-

CZREEBO RKB11
CZR6EB P11
8273
8274
8275
8276
8277

Q42332
Q42340

DSKLS CTRL PRTS
0e-DeC-77 10:21

Q47507
020040
020040

Q42117
040502

MACY1l

30(1CH46)
02-DEC-77
DATA HEADERS

10:43

Ml2
PRGE

1SS

SEQ Q1SS

020040
020104
047527

DHO37R:

.RSCIZ

~GOOD

BRD

/
WORD

020104
Q51117

DHO378B:

.RSCIZ

/WORD

WORD

NUMBER~/

DHDQO41:

.RSCI1Z

/EXPECT

ACTUAL

EXPECT

ARACTUAL

BIT/

DHOM1A:

.ASCIZ

/RKECPT

RKECPT

RKECPS

COUNT~

042040

000122
052103
Esesew

047503

047125

051503
05250¢e

020062
043106
047527

DHOBORA:

.ASCIZ

/RKCS2

BUFFER . WORD/

020040
051117

DHOB0B:

.RSCIZ

WORD

DHOB3A:

.ASCIZ

/RKCS2

BR17-16 BUFFER

047527

020062
033461
052502
020040
03045S
o42122

020040
Q41040
020104
020104
020104
051040

020040
Q43125
0S3440
020040
Q4asee
040505

DHOB3B:

RERD/

0000 (000D 00
WWwWwww

0s1040

D42674
042702

00004

BR17-16 WORD~

.RSCIZ

BUF WD

WORD

WD REARD RERD~/

Nle

.ASCIZ

/UNEXPECTED MEMORY PARITY ENABLE TRAP/

EMS0O0N:

.RSCIZ

/ERROR ARFTER RTTEMPTING IMPLIED SEEK/

ESOONA:

.RSCIZ

/RKCS1

IN ERROR/

020061
osila2

ESCO4B:

.RSCIZ

/RKMR1

IN ERROR/

03l122
051108

ESOQHC:

.RSCIZ

/RKMR2

IN ERROR/

020063
O0sllee

ESOQO40D:

.RSCIZ

/RKMR3 IN ERROR/

geolee
0s

:
ESOO4E

.RSCIZ

/RKER

IN ERROR/

O
-

ESOONF

.ASCIZ

/RKBAR

IN ERROR/

=0
b

O
VW

ESOQMG:

.ASCIZ

/RKWC

IN ERROR/

EMS010:

.ASCIZ

/ERROR ATTEMPTING TO RERD HERDER SYNC

EMS011:

.RSCIZ

8ERROR ATTEMPTING TO DO HEANER READ/COMPARES

046131
o4ss22

ESOLlRA:

.ASCIZ

/RKDCYL OR RKDA

Q42520

»r—
=0
b

OO o WOOUINICNW

PO~-VON
WO~ Lo

e 1)
0 0o b

—N—00
L0

EMOOO:

O4el02
gsiliz2

0s011s
045522
047940

(PREAMBLE)~/

gs2120
04752

043324

SEQ 0156

156

Q=
VU=
I (0=
OnNWOOOO0O~
= —tNNNIN

PRAGE

=N
-0~
NNON

10:43

ERROR MESSAGES

n—00
CLrepmr-

?DOD
non
Fodm oy (ST
VI
s T
L OO NN~

30(10Q46)
02-DEC-77
ERROR MESSAGES

.SBTTL

£ ==
Q Lo—MYr=—

044
040

MARCY11

Nrerepopata

047125

Q42704
Quezle
Q42720

DSKLS CTRL PRTS
0e-DEC-77 10:21

QLU

CZRBEBO RK&11
CZRGEB.P 11

041504
020122

IN ERROR/

CZPEEBO RKE11 DSKLS CTRL PRTS

CZR6EB.P11
8372
8373
8374
8375
8376
8377

8387

8394

043332
043340
043346
043354
043362
043370

02-DEC-77 10:21
040504
0S110S
0S110S
0S2101
044524
020117

Q44440
047522
Q475¢e2
Q42se4
043516
042522

MACY1l 30(1046)

02-DEC-77

ERROR MESSAGES

O0O¢
00
02
QS
0S5
04

10:43

Bl3

PAGE 157

SEQ 0157

EMSO1S:

.ASCIZ

/ERROR PTTEMPTING TO RERD GRP/

EMS020:

.ASCIZ

/ERROR ATTEMPTING TO WRITE DRTR SYNC

(PREAMBLE)~

043462

051105

047522

020122

EMS021:

.RSCIZ

/ERROR ATTEMPTING TO WRITE DATR OR ECC/

8395

(043536

Q43430

831105

Q47522

020122

ESD21A:

.ASCIZ

/ERROR IN ECC CENERATION/

8398

043560

0S11

047522

020122

EMS023:

.ASCIZ

/ERROR BETWEEN SECTORS ATTEMPTING MULTI-SECTOR WRITE-

Q42440

041503

8399
8400
8401
8402
8403
8404

Q43566
043574
043
Q43610
043616
043624

8407

043644

8412
8413

045702
043710

8416

043732
043740
043746
Q43754

047
020
0521

0S1
047
o42

041505
030440
053517

8423

Q44004

0201

o4?7
040

o47111

g42s

(0O44020

0001

044030

0475

020

047111

8408

(043652

04
0201
0S11
Q42S
0435
Q445

053524
es23
020123
050115
Q46440
051455

04250S
052103
052101
O44S24
046125
041505

0200e1

O47111

047
7

Q44523
047440

0O44Sa4
020106

0Sl

020

O47111

0475

8413 043724 Q46103
8417
8418
8419

g4e4

8426

B427

Q44012

044022

0201

0S11

0S1lee

041505

D41si? DOO113

o046
05!

EMWL:

.ASCIZ

/MRl

INCORRECT ON 1ST UPWARD TRANSITION OF MAINT CLOCK~/

EMWe:

.ASCIZ

MR1

INCORRECT "N 1ST DOWNWARD TRANSITION OF MAINT CLOCK~

EMU3:

.ASCIZ

~MR]1

INCORRECT ON 2ND UPWARD TRANSITION OF MARINT CLOCK-

0415817
041505

44
]

414

044146

30(1046)

02-DEC-77

ERROR MESSAGES

10:43

Cl3

PAGE 158

SEQ 0158

031040
053-20
0s1ia4

e
e
e
e
b= (10—

8430

044036
044044
ou440%2
044060
044066
044074
Q4410
Q441|
044116
Q44124

8428
8429

DSKLS CTRL PRTS
02-DEC-?77 10:2!

PREZPZACRRZARER EAELLZR Q0
£
WWNN L0000 L~ WO
O 0= O U e b 0 3=t s b= 0= (V0= (0
= a‘o—wa\lvv-mo
O
Lot
'VE}QCTQ\»—UJRZ:ES{CJHPO\C&N”MMH\”—&nNU>-JUC»—Ch—>-CK3;i¥

CZRBEBO RKBIl

CZRBEB.P 11

MARCY11l

42940

EMUWY

.RSCIZ

/MR1

INCORRECT ON 2ND DOWNWARD TRANSITION OF MAINT

EMS02h:

.RSCIZ

/EXPECTED

ESO2BA:

.ASCIZ

/WRITE TO CYL 632,

EMS0R27:

.ASCIZ

/UNEXPECTED ERROR WHILE TRYING TO FORCE CYL OVERFLOW~/

E50268:

.RSCIZ

/WRITE TO CYL

EMS030:

.RASCIZ

/UNEXPECTED CYLINDER OVERFLOW WRITING LAST PHYSICAL RADDRESS/

CYLINDER OVERFLOW ERR

TRACK 2,

DID

NOT

SECTOR 25,

CLGCK/

SET/

WORD COUNT 401~/

053440
052040
020107
051117
046131
043122
e010S

46131

p44512
044520
044526
O44534

0s2103
046131
geole2

053117

051108

1456,

TRACK 2,

SECTOR 2S5,

WORD COUNT 401~/

046106

0S3S17
vl

fant ey

—N5rRASSSNECRZBUENERR2EEINY

8
e = Y
U o

0420

OO NN
E W

Pt Pt Pt Pt [t Pt Pt Pt Pt

0
@@ MM @
unnnnnnnn n

054S
0s

puseliz
D4SceS
048232

10:43

D13
PARGE

159

SEQ 03159

EMSO31:

.RSCIZ

/UNEXPECTED ERROR WHILE WRITING LAST PHYSICAL ADDRESS/

EMS032:

.ASC1Z

/ERROR ATTEMPTING TO READ DATA SYNC

EMSO34:

.ASCIZ

/ERROR ATTEMPTING TO RERD DATA OR ECC~/

EMS035:

.ASCIZ

/ECC ERROR

EMS037:

.ASCIZ

/DATA COMPARE ERROR AFTER

EMSO41:

.ASCIZ

/ECC REGISTER NCT CORRECT AFTER ECC RERD IN RERD DATAR/

EMS04e:

.ASCIZ

/ERROR

(PREAMBLE)~/

IN READ DATA OPERATION/

052101
041440

040440
o42440
040505
0s1040
040S04
105
QuuN40
020103

02-DEC-7?7
30(1046)
ERROR MESSAGES

0S3440

o0
U
(& =]

o44sY2

MACY11

= L0000 L—NNoONN~0NOl
o —-0OnNW—-WW—-NPNLO00
L

CZR6EBO RKB11 DSKLS CTRL PRTS
CZR 6EB.P11
02-DEC-?7 10:21

INPUT NPR

TRANSFER.

IN ECC PATTERN CALCULARTION AFTER ECC ERROR/

ZR6EBO _RK611
CLP& B.P 11

045240

PRTS

0S110S

9
07{0)

g40s03

02-DEC-77 10:21

02-DEC-77
ERROR MESSAGES

30(1046)

10:43

E1l3
PAGE

SEQ 0180

160

047522
ge0lee
041503
0Selll
047503
043516
0S110S
o42440
000
0S1117
0S110S
042503
020107
041440
042440
000
051516
O4eS1y4
042440
o40440
0seleg
040S20
020114
0S1117
040522
0aoo

051103
0ogley
o4e523
Q42440
Q42040
052117
042Se3
geolee
052105

051440
Qe0lze
020122
042105
042523
047105
041505

L0000 L0

OUI—ONNIZWN—

045732

041505
051105
040506
052040
0201eY4
Q42440

0S1440
0201ee
pgeglez
047516
053105
042504
020104
051505

8540

DSKLS CTRL

MACY11l

0s0130

EMS043:

.ASCIZ

/ERROR

IN ECC POSITION COUNTING AFTER ECC ERROR~

EMS0OM4YH:

.RSCIZ

/ERROR AFTER PROCESSING DATA CHECK

EMS046:

.RSCIZ

/TRANSFER LENGTH ERROR ATTEMPTING PARTIAL SECTOR OPERATION-

EMS047:

.ASCIZ

/BAD SECTOR ERROR DID NOT PREVENT DESIRED ADDRESS INCREMENT~/

EMS0S50:

.RSCIZ

/BAD SECTOR ERROR DID NCT CAUSE CERR TO SET~

EMS0S1:

.ASCIZ

#BAD SECTOR ERROR FAILED TO SET WHEN EXPECTED~

ERROR/

~ZRBEBO RKbl1l
CZRGEB .P1l

DSKLS CTRL PRTS
02-DEC-77 10:21!

0s2040
042506

30(1046)
0e-DEC-77
ERROR MESSAGES

F13
PRGE

SEQ Jl&!l

16l

/DATA TRANSFER DID NOT CONTINUE TC END OF SECTOR~/

.ASCIZ

15> <12> /WHEN BRD SECTOR ERROR OCCURRED~/

EMS053:

.ASCIZ

/ERROR ATTEMPTING WRITE CHECK OR ECC RERD AFTER WRT CHk~/

EMS0SY:

.RSCIZ

/ECC

EMSObO:

.ASCIZ

/WRITE CHECK ERROR FAILED TO SET

:
EMSOB!L

.RSCIZ

/TRANSFER LENGTH ERROR WITH WRITE CHECK ERROR/

EMS0E3:

.RSCIZ

/WRITE CHECK ERROR FAILED TO SET

Q46374
g4e402
046410
046416
D4B4HeY

047518

ERROR

IN WRITE CHECK OPERATION/

041505

on—0O—0
dmwnon

NN
== NWNNW

O
L
e e

s
e UV U bs= (e
e e 0ee () :E
=P
== ON)—-0O
£
e PO O

U e O e e

£000

mfl)
)
Fdwly 8"\)00—
wm—-uamma

10:43

.ASCII

EMS0S2:

-0

000104
Q40524
051516
044504

MACY11l

16 BIT MODE/

051105
020105
020113
020122
Q42105
042523
030440
020124
coo

IN 18 BIT MODE-

CZRBEBO Rkg1l
CZR6EB P11

DSKLS CTRL PRTS
02-DEC-77 10:21

o46432

MARCY11l

02-DEC-77
ERROR MESSAGES

30(1046)

.SBTTL
=

80—-.—
9

046470

N LO—~NNWOUNINN L0
L
nun WrNNNLO—-NNE—-NLED
on n L0
LNV L£O--MN

oO—-000~-0
- 0QQ0O»
L0
£~
LO—-VNNWoUIN
L LO~-NNWErNN
LO

PATZ:

10:43

Gl3
PRAGE

l&2

.EVEN

DRATA PATTERNS AND BUFFERS

PRATTERN 1 - ALL ZEROS
PRTTERN 2 - ROTRTING CELL PULSE PRECOMP
1
1

0
1

0
0
0
105504
o4ae42
0
1

Q
o
0

PATTERN 3 - MAX PRECOMP PMASE MIX
PAT3:

o46472

133333

046530

PATTERN 4 - HI-LO FREG.
Q46532
Q46532
046534

O46554

1772777
177777
177777
052525

PRTY:

17772727
127777
172777

052525

MIX

SEQ Qle2

[oeleo
aeloalsaleelenleoloatealeolaeTae
o
NININ NN NN NN NNIN 3
PUNUS— 0 b e e 0= 0 b= 0—e = (D)
~-=Owo~NTNLW—0O JOD

CZRBEBO RKb11l
CZReEB.PILI

OSKLS CTRL PRTS
02-DEC-?7 10:2!1

MACY1l

30(1046)
02-DEC-77
10:43
DATA PATTERNS AND BUFFERS

Bbazh BELEEL

BERESE

172765

17276S

guesee
g46564
046566
046570

Ji87
4657

46574

046576
046600

PATTERN S

PRGE

163

ALTERNRTING

1°S

Heegd
046610
gueble
g4yeblYy
46616
46620

Quek22
o4e624
Q46626
046630

Q46632
047636

164616

oog4o2
000402
0oc0o01

AND 0’S

PATTERN b - COMPOSIT ROTATING
072307
135143
156461
167230

072307
135143

SEQ 0163

PRTTERN

IBUFF:
OEUFF:

.BLKW
.BLKW

%02
402

ALL

ONES

CZRBEBO RKB11 DSKLS CTRL PRTS
CZR6EB.PI11
0e-DEC-77 10:21

I13

MACYLl 30(1046)
02-DEC-77
10:43 PAGE 165
CROSS REFERENCE TRBLE -- USER 3YMBO.S

RBASE = 177440
ABORT
Q41121
ACDW]1 = 000000
ACOWZe = 00000Q

10S3s
7180
1306
1306

1306
8148%s

ACPUOP=
RDDWO =
RADDK1 =
ADDP10=
ADDW
I 1=

000000
000000
000000
000000
000000

1306
1306
1306
1306
1306

1321

ADDW (3=
ADDWI1Y=
ADDW1S=
ADDW2 =
ADDW3 =
ADDWY =
ADDWS =
ADDWE =
RDDW? =
ADDWB =
RADDWS _=
RADEVCT=
ADEVM =
RENV
=
AENVM =
RFATAL=
AMADR1=
AMADR2=
AMADR3=
AMADR4Y=
AMAMS1=
AMAMSZ2=
AMAMS3=

000000
000000
000000
000000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0000090
000000
000000
000000
000000
000000
000000
000000

1306
1306
1306
1306
1306
1306
1306
1306
1306
1306
1306
306
306
306
306
306
306
306
306
306
306
306
3

[w}
o

7236
70538

7087

000020

1345
W

=
z%

BRI

Lol

ol ol ad ad e

Pt Bt Bt et Bt Bt ot ot et st P

Pt Pt Pt ot Pt Pt Bt Pt o

s ot

W WWWWWLWLW
W IWIWWWWWWWWWWW
O
L£ L WO~ LWWN
L LWWONr=— L—
- WONVOVNZINOOD
LSO L O0O~NDN

oY yeey

306

[

(=
o
o
o
Q
=]

D
X

—

<
O
n

AMAMSY= 000000

1306

Y Sy ey o ol al o

000

Y ey Y e oy oy Y

ADDOU 1 2=

1148»

o el ey e

= 000010

—NWOWWLWLWOMOOOW
W
WWL L
—WoONC OO0~ NN0O0
- 00— 00
WN—N

QCcLO

1347

7229

SEQ J16%

CZREEBO RKB11 DSKLS CTIRL PRTS
CZRBEB.PI11
Qe-DEC-?77 10:21
BR16
BR17

BITCNT

BITCO

= 000400
= 001000

002326

= 000001

10968
1097

17368

3718%
Se13%
6022%

9974

J13

MACY1l 30(1046)
02-DEC-77
10:43 PAGE 166
CROSS REFERENCE TABLE -- USER SYMBOLS

2930%
373S%
5739%
60c24x
1093

81701 = 000002

S304
9874
98648

S930
997
996

B170S = 000040

982es

992

EITO0 = 000001

BI1702 = 000004
81703 = 000010
BITOM = 000020
81706
81107
BITO8
BIT09
BIT1l

BIT10
BIT11
BITie
81713
BIT14

=
=
=
=
=

9814
9804
3798
9784
9964

002000
004000
010000
020000
040000

977
9768
9754
9748
636?'

BIT1S = 100000

9724

BIT4
BITS

9938
932

BlT2
BIT3

BITe
BIT?
BIT8

BITS

=
=
=
=
=

000100
000200
000400
001000
000002

9858
9844
3838

= 000004
= 000010

= 000020
= 000040

= 000100
= 000200
= 000400

= 001000

BLODAT

032014

BPTVEC= 000014
BSE
= 000200

BSEDES

00235&

CCLR

= 100000

2947#
H041®
S744#
H6037%
1126

3060%
N0SB®
S746#
B06l1®
1145

3077%
4172%
5759%
[J72%

4189%
5783%
H084#

3193%

3210%
4p34®
5793%
609%*

3324%
4651%
S804x
6£183%

334ls
S458%
S84ls
b2le

34SSx
S4B3*
5S873%
6220%

3J472x
S496®
S91b%
6239

SS11s
S942%
6265

S554s
B0L7#
6273%

3286

3416

3547

4133

4909

5006

5585

S530

s8ss

1184
1170
3284
1172
1173

6418
1185
414
6414
3284

6420
3283
354S
b416
3414

7075
3413
3548
r08e
3545

3544
4131

4130
S660

63940

4131

Sse4

S894

6230

1141

1157

1174

4395

SSeY4

S634

6762

1163
1164

1178
1179

6414

416

1165
3545

1180
3675

2887

2889

2891

3017

3019

3021

1183

1980

2038

2332

2453

3283

3413

2879
4483

3009
4576

31l4e
4712

3275
4803

6197

6253

6323

6915
6933
3417

7098
4134

5360

991
990
989
388
1127

1098
1099
1101
110
1103

1104

1117
1118
1119
1120
1121

1136
1137
1138
1139
1140

1105

1122

1130
1131

1149
1150

1169
1154
1171
1155
1156

1128
1110

1147
1129

991
3150

1094
3152

1113
3154

1132
3284

1151
3414

9884

1097

1116

1135

1168

3544
5703
1326
3405

1111
1112

4532
1095
1096

4594
1114
1115

4002

4131

2034*

2]151%

2268%

2386*

2503*

2586%

2670%

2777%

286S*

299S%

31284

2032

2149

2ebb

2384

2504

2587

2671

2778

2866

2996

3129

50939

5217

3262

3392

3523

4813

4914

S011

3653
4B895*
3654

3783
4992x
3784

3888%
5085%
3889

3976%
5185%
3977

5658

4108%
5574

4109

6418

eels

8473
6372
2792
4349

4239%
5576
4240

6420

5520

4336%
5577
4334

5568

4335x%
4493

5599

HY1l®
4597

S6S1

H4EI#
4722

cOT

= 00200L

= 100000

&ég?.

2557

2643

2967

3097

3230

3361

3492

3623

3755

4078

4209

4439

CFMT

= 010000

11018
5366

1978
5386

2096
£566

2213
5648

2330
5677

2397
5879

2451
5890

3794
6187

3899
6226

3986

4118

4708

5033

CERR

CKSWR =

104407

1098%

4000

S430
6355
2685
4254

3522%
H4790%

1912

3938

S4es
6106
2597
4122

3391%
4B99I%

1105

3679

S417
6043
2514
3990

3260%
4SEME

S654
1181
1182

3677

S409
5978
2399
3903

4419

1914%

s210
1133
1134

6394

S400
5968
2278
3798

4417

66198

1148

5214
1166
1167

5388
5814
clel
3667

17468

3603#

sa2i2
1152
1153

4130
5765
o044y
3536

5196
1004#
11338

6761

3586*

935
994
993

9954
9944

4530
9908
989

SEQ 3188

£300

7071

7097

7855%

CLERR = 00000S

1078

CLRIBF

031770

COE
=
CR
=
CRLF
=
CT0
_=
CTRHLT

001000
000015
000200
004000
034556

4ese
11358
9128
9138
1099s
71928

DDISP =

177570

919

DCK

= 100000

DOT
DFOOO0

DFO004

DFO00S
DFO006
DFO0O07

DFO010

DFOOL11

DFO014
DFOO017
OF0021

DFO026

DFO027
DF0O037
DFOO40
DFOO4!
DFOO42
DFOO43
DFOQ4S
DFOC4e
DFOOS0
DFO0B0
DFO061
DFO062
DFO063

DHOCMP

2790

4347
2560
7275
1830

2877
Y481
2640
7285
7246

7471

7554

1264

1793

11418

2975

000400
Q40026

11538
1370

7909

040062
040106
040132

1391
1397
1403

79238
1478
1481

79334
79438

1415

1427

1445

Q40032

1385

1487

8013
1547
1553
1559
1565
1571
1583
1589
1601
1649
1655
1661
1667

80194
8027#
8029
8037
8045
1607
1613
8071
8081#
8089
8099
8109

80538
8063%

DHOODB

041250

OHMO0OC
DHOOL17
OHO021
DHOOZCE

041263
041773
(042145
Q42245

DHOO4A
DHOO48
DHOO4C
DHOO4D
DHOOME
DHOQYF
OHOO4G
DHOOMH
DHOO41

041333
0413S1
(041367
041405
041423
D41450
Q41465
041502
042406

041314

4366
1497
7965
7918

1439

7975
1625

206l
3037

1517

14567

7995

3763

4086

N217

4679

1631

79638

2178
3301

1368
7991
8001
8011

gle8s
82334
8041
8017

8049
82648

82524

7819
7931
7941
7951
7921
8061
8069
8107
8033

8079
81794
gig2s
8185s
7973
gl9es
8097
8198
82814

7939

81764

8188

8195

1529

1469

e2la?
3170

8065

7329

3631

800Ss

8057

7917

3901

1511

4507
1857
7987
7937

8047

3796

3988

4120

728S

4403
1545
7977
7927

8039

3665

7911s

040346
040362
040402
040406
Q40426
040446
040466
040512
040532
040SSe
040576
0406ee
040646

041232

3534
e6C8

1643

1505

2009
2907

3403

1637

1499

1943
2809

S194

1577

1595
7985
1535

024276

4801

3500

1433
145}
1463

1493

3273

3369

040232
040256
040302

040326

1421

SEQ J1eb

3140

4710

3238

1409

040202

3007

4574

3105

Q040156

DHOODR

DHOO4

2683

MACY1l 30(1046)
02-DEC-77
10:43 PAGE 167
CROSS REFERENCE TABLE -- USER S5YMBOLS

4611
1563
7997
7947

7949

1619

79534

224y
3432

229s
3563

1523

1541

4736
1569
8007
7957

48e7
1587
80SS
7967

4928
1611
8073
7979

8059

8067

8077

8075

8083

2bl4

N0 NNWN
— OO0
e DO 4= b ps pme
WO
wono

CZRBGEBO RK&11 DSKLS CTRL PRTS
CZRBEB.PI11
02-DEC-77 10:21

8093

803S

810S

81738

270¢e

4149

4271

7948

7958

8021

8031

L13

CZREEBO RKE11 DSKLS CTRL PRIS
CZR6EB.PI11
0e-DEC-77 10:21

MACY!l 30(1046)
02-DEC-77
10:43 PAGE 168
CROSS REFERENCE TABLE -- USER SYMBOLS

DHO10
DHO10R
DHO108
DHOL1Y
DHO14A

7969
8208#
8215
82224
8228

041517
041563
041631
Q41677
Q41736

DHOL17R
DHO21R
DHO21B
DHO37R
DHO378

Q42057
042171
042217
042332
042357
Q42452
042520
042545
042572
(042637

DISEEK

023334

DHOY1R
DHOB0R
DHOB0B
DHOB3R
DHOB3B
DI
= 040000

DISPLR
DISPRE
OLT

DMD

001142
000174
100000

= DOOCMO

7959
7961
7971
7981
7983

7993
8003
8051
8023
80eS

8035
808S
8087
8115
8117
1103#

1931

3420

4916
12648
1193%
1128

1164

DRERD
DRGPSN
DROT

DRPAR

DRSYNC

= 000001
= 000200

2leb

2283

2404

S013
1733%
1801

5106
1801%

5219
B955%

53574
7074

1962

3683

1963

3803

2630

2797

289S

3025

3158

3289

4137

4259

4354

4495

4539

4724

2138

2314

2315

2435

2436

2551

2552

4951

4952

5048

SQ49

Si4l

S14e

6028
6583

5255

6062
6586

5256

6440
8587

5335

6470
6588

8336

8371
Eggg

837
6525

393
6537

5463
6549

3945

3946

4302

4303

5788
6582

43390

43391

4532

4533

5583
6580

S750
6581

3050

3183

3314

3445

3576

3708

3828

3933

4031

4162

3042
4616

3175
4741

3306
483e

3437
4933

3568
5030

3700
S1e3

3820
5236

3925
6009

4023

Y4154

2610

2698

2608

026500

2707
4276

egly
4371

c9le
4ysie

1939

2005

2057

2le3

2174

2240

a9l

2357

2412

2478

2527

4362

4399

4503

4607

4732

4823

4924

5021

5114

5227

S4:b8

1937

003

0SS

elel

2172

2238

2e89

2355

2410

2476

2ses

4360

4397

4501

4605

4730

4821

4922

5019

5112

52es

533Ss

1576

1600

1636

1642

78654

1516
1456

1528
1468

1618
1522

78744
1540

1630

7877%

= 000040

= 000010

(023740

023316

037514
037532

DT0010
070011

037562
037600

037542
037552
037624
037640

11504
1129

2805

11094
1156

1915

2696
4265

9184
1138%
11318
1369

1384
1390

1396
1402

1408
1414
1432
1450

2903

803
1263

78648

1486
78684
1474
1480
1420
1426

1594
78834

3033

2901

1792

78708
78724

1438
1444

7881

4761

c488
8577

E?Eg

4815

2197

283S

11454
1152s

2602

4006

2081

2834

4859

2519

2080

2635
4858

3908

Eggg

DT0004
DTO000S

DT0014
070017

2049

3551

sgég

DSWR
= 177570
DTE
= 010000
DTIYE
= 000040
DTO00
037510

DT0006
DTO0007

8256

027176

DRVMSK= 000007
DSC _ = 040000

DSECTR

82018

2634

4762

DRAR
DRDY

goucs
8043
82604
8273%
B277%
8287
1%
82948
8298#
83024
8309

SEQ 3187

3166

3031

3297

3164

3428

3295

3559

3426

3691

3557

3811

3689

3916

3809

4C 14

3914

4145

40ie

6484
6589

4ee?7

Y143

CZRBEBO RKb11l DSKLS CTRL PRTS

CZR6EB.P11

DT0021

070026

02-DEC-77 10:21

pragee
gl

1624

1648

7891%

776

1582

1606

78984

1654

7900#

1949

2067

2184

2301

a4ae

2537

Eggg

gggg.

3199

3330

3461

3592

oo
g
ible
79028
7904
s

1356
4520

DeSe04

030462

002340

002342
002344

1498

g
5

025604
027176

SEQ 0168

7886

1546

DWRITE
DWRTCK

ECCLO
ECCSRC

1564

037716

1588
1660
1666

ECCHI

PRGE 169

1534

037770
040000
040010

ECCGEN

M13

CROSS REFERENCE TRBLE -- USER SYMBOLS

1492

DTO046
0T0062
DT0063

DWGPSN

10:43

1462

farce
g3

T004

02-DEC-77

037662

037674

010037

MACYil 30(1046)

2074
4eeu

1741%

17428
17438

gggél
®

5843%

1504

21981
4749

S903

1510

2308
4840

6184%

78884

2429
4941

6249

2544
S038

6400

2620

5731

37e4

4047

6164
4178

4640

867

6214

6406

b41l®

B419

6420%

B421x

Y472

4589#

4701%

3543
4792%

3674%
4897%

3786#
4994 #

3830#
S086#*

2627
5131

S842x
2673

5931
2779%

6185%
2780%

6250
2886%

6410%
3016%

B41S
3149%

ggg;!

4129%

Yoy

4337 #

Y47 1%

S836#
5244

B416%
3282%

BYH17®
34los

624S

ECCW

= 020000

1172

5393

S463

5488

s583

5750

5788

5886

5924

6028

6062

6276

6279

ECH

= 000100

&é;gi

2973

3103

3236

3367

3498

3500

3629

3631

3761

4os4

4215

4e17

ECPATX

002346
002350

2713%
H282%
2714*

2820%
N4377%
2B821%

2918%
4S518%
2919*

3048%
Yb2ex
2939%

3181
H747%
2940

3312¥
4838
2952#

3443%
4939%
960%

3574x
5036*
3049%

3706
5129%
3063%

3826%
S24ex
3070

3331%
629
3082*

4029«

ECPOSX

17448
4160
174Ss

HG519%

4p23®

4BYY

Y6SE*

4bbY4x

474B8¥

4B39%

4940

S130%

S243*

14488
2619%

1948#*
262b*

ECCXOR

002336

EHO26
EHO30
EHO31
EMTVEC=

001602
00l6ee
001632
000030

EMW]
EMW2
EMW3

D43644
043732
044022

EMOOO
EMSO04

042704
042751

EMSO11
EMSOLS

Q43243
Q43346

EMU

EMIWY

EMSOI0

EMS020

EMSO32
EMSO34

001510

17408

3182#%
3477%
3932*
6297%
14918
'S038
15098
10074
B44S
6475
6489

o44110

6504

043163

1406

043403

044672
044750

1367
1382
18

6402%

6408%

3c02%
3485%
4030*

3203
3575%
40S0%

6300
2648*
2562%
2566#%
1776%

1777%

84074%
6530
6542

6554

83184
1388

4BY43E®

1955%
644S*

BY412

3216%
3595%
4051

3223%
3596
4063%

3313%
3608%
4071%

2066%
BY47S*¥

2073%
6489*

2183%
BSO4®

3333%
36lb®
4lbl®

334
3707%
4181%

3346%
3727%
4182

3354%
3728
Y4194x

3444e
3740%
4202%

2190%
B530%

2300*
65SH2x¥

2307%
BSSH¥

242lx

2428%

2536
2428

2bl9

8379
2626

5037%

B416¥
B426
4

8435

141ie

1400
8353

1586

8325

1424

1394
1442
1430

8362#

1948
1466

2066
1955

2183
2073

2300
2130

e4el
2307

1538

1634

8507

2543

8387

3090=

3JYEHE
3748%
4283%

3465
3827%
H4378%

253b%

2543x

6284

CZR6EBO TTSII
CZR&EB.P
EMSO3S
EMS03?7
EMSO4]
EMSO42

EMS0OM3
EMSO44
EMSO46
EMSO47
EMSOS0
EMSOS)

Q45015
045056
g4si3e
g4sz217
Q45300
Q45357
Q4s4a?
045521
o4S61Y4
045667

DSKLS CTRL PRTS
0e-DEC-77 10:21

N13

10:43
PAGE 170
MACY11l 30(1046)
02-DEC-77
CROSS REFERENCE TRBLE -- USER SYMBOLS
B8S148
8520
85288
8537%
85468
1580

SEQ 01869

85544

85718
85818
86lls

002314
000004

6828

002236
002224
00eee0

7900

2340
3099
3b2o*

mmmmmm

.CSe
DA
.08
.DCYL
.DS

.ECPS

002230
002226
00ec4e
002240
00e232
002252

.ECPT

00c2asH4

4078
4438#%
Y4769#%
S77P

.ER
.MR1

002234
002244

S688%

mmm
m m

6518%
.MRe

002246

2087*

.MR3

002250

2101

.SPAR
. WC

C0e2sS6
00egee
043015

7902

S004A

043034
043053
043072

1443

1437

MACY1l 30(1046)

02-DEC-77

ESOO4E
ESOQ4F
ESOOMG
ESOLIR
ESO21R
ESO26RA

1605
83471
1665
1593
1533
2566

83448
8350
8370#
1623
2648

8334s
84S3%

1982
2r39
44,23

2086
2840
Y437

2100
2965
4837

2203
3095
4669

eel?
3228
4766

2320
3359
4863

2334
3490
4956

2441
3621
5053

2455
3753
S146

377
3950
5260

5389
4076
S394

67563
4207
5510

1829

6306

8313

7847

7848

7849

7850

7851

7853

7855

78Sk

7857

2841

296e

3098

3231

3362

3493

3624

3756

3952

4079

4210

4309

2674%

2’81

c863%

2998*

3131%
Y4700#

4791%

3264#*

3394

4896+#

4993

S095#

3656%

3787%
5153

Sl&c

7244

7285

2679

2726

2786

2873

3003

3136

3269

3399

3530

3661

3792

3839

SOb3*

SObY#

5091

S0Se*

5150

5190

S200

5264

CZReEB.PI1L

£SC26B

0e-DEC-77 10:21

043111
043127
Q43145
Q43315
043530
044253
O4442Y

84718

032444
032356

1968
2556
4307

FMTE

= 000020

GNS

= Xuu¥¥e U

= 000001

FSBLVV
GETREG

GTSWR =

HIBITS
HT
HAVRC

IBUFF

IDRE

=
=

104406

002354

000011
000400

046632

= 002000

1E
=
ILF
=
INTR
=
I0TVEC=
IR
=
KIPARO=

000100
000001
000300
000020
000100
172340

KIPARLl= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPARY= 172350
KIPARS= 1723S2
KIPARG= 172354
KIPAR7= 172356
KIPDRO= 172300
KIPDRl= 172302
KIPDRE= 172304
KIPDR3= 172306
KIPDR4Y= 172310
KIPDRS= 172312
KIPDRG&= 172314
KIPDR7?= 172316
LF
= 00002

LORDRK
ASOF

L.BA

L.CS1

i581
1653
1659
1431
1461
2562

(032230

002272

002264

002260

11308

1192

7858

1093

4438
i8e4

17478

gléll

184
9108
11348

3984
4797

11368

1094#%
11268
1089
100S#
1113#
1038#s

1039
10408
10418
10428
10433
10448
1045
1027#
1028%
1029
1030#
10318
1032%
1033%
10348
glls

10:43

Bl4

CZRBEBO RKG11 DSKLS CTRL PRTS

7859

4539
7853

Zgg?i

4116
4807

7860

4672

433Ex

4248
4851

1774%

1775%

6814

6842

7861

47e8

Y4CB#

4865

4Y5ES*

4295
4854

4298
4902

7279

7285

2036

2153

2270

2391

4898

4995

5087

5186

66924

3526

17148

65697

17074

1978

1709

3229

4343
4308%

Y445
4909

2506

eel3

SEQG 0170

3526

Y477
4960

4487
43664

45?70
ug9qq
6608

87398

2589

2675

2782

2869

2999

4566

4702

eeee

2330

2339

24S1

2460

2966

£2s9

4580
S00S*

3892+#

3979

Slb4x

3897

4706
S00e

4716
5057

3132

3265

6858

1918

3395

PRGE 171

CROSS REFERENCE TRBLE -- USER SYMBOLS

6694#

3360

3657
6712

6707

1987

3491

3788

2096

36e2

3893
210S

3754

3380

3951

4112

4077

424y

4208

4339

4208

Y473

Y44

4538

4670

4793
3096

4767

CZRBEBO RKE11l DSKLS CTRL PRTS

B053Ee
—4

xXrrererer

CCR6EB.PLI

002274
002266
0Ceee?

000400
001000
172100
031726
002332
000114
001000
000017
002000

000200
000250
000100
002322

002324

02-DEC-77 10:21

S360

171

Yyy1

6187
gg;fl

1967
1976
1970
6696#%

2085
2094
2088
6711

6695

6706

4761
???é.

4858
6536

4951
6537

1048s
1211

171Ss
1711ls
1712n
17168
17178
17188
17088

11678

000015
000004
020000

OR
PACK

000200
000003
032516
002380

PRRCHK
PRRM

g40672
g40724
040732
040762

032274

6014

6693%

2933

S463

{;63:
6030!

33355
6288!
5329

2319
2328
23ce

§583

S7S0

5788

St p2%
6244 *

SS00*
b255%

S306#

SSBH*
6386
5936%

752%
EHS
b46e

G784#»
6516
6467

5296

51
B
*
A

59
I
*
M

2885#
3154#%
3542*
3998

c858*

95
B
*
R

480

4907/ %

491llx

4961

S00Y*

S845

1866

glces

2047
3550

2lb4
3682

2281
3802

6780#%

7808

glels
1849
8127
81314
81348

491§

11148

1077%

1888

1199

Y133%

5265

1839
1846
1857
1833

1929
3419

Y131#%

Bl4ls

5012

17513

5105

52l8

5255
6580

6371
6582

4134

ngg

4581

6182

6249*

6250*

2402
3907

2517
400S

2600
4136

67064

S008*

5879

5830

bbyc#
6019

&£708

6453

6483

2834
b440
6588

S488

74
¥
H1llx
A

C21l4x

5379

2581

S7
4T
¥
38

S2lex

Y412
§385

243%

141
6577

Y
B
¥
3295
Y4130%

2440
2449
2443

5314

5048
6548

llgg‘
e,
*
Jhar

7197

SEQ 0171

SSe6

§736

c20e
e2ll
220s

11698

5785S*

SS13

Segqal »

6803
6806#%

6548

5332

6699

6789x
6805*
6588

10828
11478
11398
1836

PAGE 172

6394

1738%
10478
i%g?:

Y ag*

Cl4

€328

6784
6596
6783%
1210
6580

{z?g:

1962

5386

2157

p497
11668
10168

10:43

6226

2080

188648

OFFSET
OFST
OP1
OPROQ1
OPROO2
OPROQO3
OPROOM
OPROO6
OPROQ?7
OPSTRT

5366

6055
6698%

5949
171 :

02-DEC-77

CROSS REFERENCE TRBLE -~ USER SYMBO.S

4864

1118#
047636

MARCY1l 30(104¢)

6028

6062

6439

4590

Se0l
87408

S0s8

2689
4258

2796

4353

2894
4994

6454

S937»

2887
3280%
3544%

2891
3283#

3547

H4127%
9717

4000+#
4592%

S207*

3024

4598

5210

3157

4723

3288
4814

D14

CZRBEBO RKB11 DSKLS CTRL PRTS
CZR6EB.P11
02-DEC-77 10:21

MACY1]l 30(1046)
02-DEC-77
10:43
PRGE 173
CROSS REFERENCE TABLE -- USER SYMBOLS

PAR.EN= 000001

10508

6787

PAT2
PAT3

6658
6656

86578
86778

6641
11708

87198
B4S3

PAT

PATY

= 000020

o46432
o4e472
046532

PARTE
PCAR

p46572
= 004000

PGE

PCD
PIP

= 010000

002000

11638

6652

11710

1117

86978

6469

£518

6453

B46M

6524

= 020000

11558

PR.BIT 002320

195§.

Y431 %

5461 %

5500

5573

7874

7877

7883

PRO
PR]
PRe
PR3
PRY
PRS
PRB

= 000OOD
= 000040
= 000100
= 000140
= 000200
= 000240
= 000300

PR?7

= 000340

1727776

gagVEC: éggggs

)

5308%
334s
935s
368
3378
33848
939s
9404

941
9148

lgég.

5937
1889

5938

6029%

5501 %

5586

6088%

121@
915

031616

2935

1780

2864

3065

3094

3198

RKDS
"2 000012
=

RKECPS= 000030
RKECPT= D0O0032

10638
]

1070s
1071s

SBbl#

S8b4x

3358

4668

5465

5490

3489

3591

5502

5591

5783

sgsg

2875

3005

3138

3271

3401

3532

3663

3794

3899

3986

5488

5583

Sob2

6076

6280

120"
éaqg

égg7
4671

7@sas
309

4769

.3230

3361

3492

3623

3755

3953

4078

4209

4310

ey
é;;sl

1986
2839

2032
cB8bb*

104 %
996

149
129+

2ge
3 Bé*

cbb#**
539

3
Sgag*

5217

SO4#%
883

6713%

25897+
59??!

7133%

S099*

2459 %
3784

6710%
6709

S011%

384 »
BSYx

3594
3593

3726
372S

4049
4048

4180
4179

Y42
Yo4!

6283
5868

11748
1086%

106is
1060
10665

5860

3329

RDGATE= 100000
RDHEAD= 000025

4109

6460

4SS

3227

sggé

RKCS2 = 000010
RKDR
= 000006
RKDB
= 000024

6393

£259%

4433
6260

&??3'

[

§939%

6256%

4206
6206

RODATR= 000021

185;'

5938

6255

4177
5089

4046
%ggg

éfi§1*

5912%

ba244

407S
8077

3752
;Egé

S907

5909%

RDBIT

s&ggl z 888883

5860

5908

7791

000013
104414
002370
000010
000016

5859

7805#

7790%

RECAL =
RESREG=
RESTRT
RESVEC=
RKASOF=

S787%

7804%

1781%

4439
1081s
7174
1197
1001%
10648

S751%

6204®

7808

S801*

laag
! 98.

SS90#

7791

;ggg{

RPGCT
= [9duis
Y = 680268

6201%

6781

ég?s.

104410

5E87x

1761

002316

200

172S

FP1.BIT

ROCHR

SEG 0172

]

4540

jge7

4866

4639
65738

3460

3620

3723

78608
1754y
6712o%
%

Y240%*

o oo
2938
2937

4334

3068
3067

4493%

4597%

4722%

3201
3200

3332
3331

3463
3462

4813#

491 4%

YR
bc
.

CZR6EBO RK611 DSKLS CTRL PRTS

MACY1ll 30(1046)

RKER

?gggl

ES?E

6238

2b34s

2635

2834®

8371%

S372%

S466

CZR6EB.P11

000014

RKMR1 = 000026

02-DEC-77 10:21

10678

6440%
RKMR3 = 000036

RKPRI
RKSPAR=
RKVEC
RKWC
=
RLS
=
SAVREG=

SAVSWR
SCLR
=
SCOP1 =
SCOP1S
SEEK
=
SELDRv=
=
SPRCE2

002306
000022
002204
000002
000010
104413

002356
000040
104415
(0335e6
000017
000001
000002
(041116

SPAR_
= 020000
SPDLSS= 000020

SRTFLG

002312

1985

1725%
1072%
17248
1058
11108
7121

17488
11128
4964
69938
1083%
10764
11274
7157
110es
1149

1727%

1196

002404

SVALTM'=
100000
SWR
001140
=

SWREG
SWO
SWO0
SWO1
SW02
SW03
SWO4
SWOS
SWO6
SWO07
SWo8
SWOs
SWi
SWi0
SW1l

=
=
=
=
=
=
=
=
=
=
=
=
=
=

000176
00000l
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000

BYYL

1069%

1068

START

START]

4B8SB*

6577%

1080#
10208
10214%
10228
1023s

002400

1962%

6550

SRTSPL= 000011
SRO
= 177572
SR1
= 177574
SR2
= 177576
SR3
= 178516

STACK = 001100

10:43

ElY

PAGE 174

30Ss

1752

11573

]

12638

1984

1883%
1881 %
&706%*

78598
7789%

1963%

2080%

2081*

2197%

2198%

2314#

2015%

243S*

2436%

2551

2552#

4B8S9®

49SIx

4952%

SO4B*

SO49x

Si4ls

Sl4gx

5255

S5256%

$33S#

S336#

6470%

6471

pUE4*

648S

6499

6500

6525#

6526

6537

6538

elge

2219

7188

7196

7806

1822

S400

s425

S430

7S68%

7789

£SBO*

2103

283S#

g491

bSB2¥

ce20

2337

592

£533%

42457

81474

1751%

1754%

1757 %

6839

£854*

HB61x

S754

6032

6SBEX

6587%

4390%

6066

6588%

4391%

6078

£SBIX

4G32x

6090

B711x

4533%

6207

Y7614

6ebl

6549

2458

1834

1772

5439

17585

17588

7204

1792#%

1794

6564

1800%

6604

1807 %

5599
6508

5703
6534

5765
6546

5814
B6558

5968
6600

11948
3698
9598
9584
9574
9564
9554
9544
Q53¢
9528
9S1is
9508
3684
9494
348

1800

1822

7474

7513

7536

369
968
367
366
965
964
SE3
362
961
960

4303®

78618

1760

7094

4302%

7809

7169

1770

2336

3946¥

188o%

S160

1757

£503

65B81%

506l
786l

68S1%

3945

5520
6493

7082

SEG 0173

CROSS REFERENCE TRBLE -- USER SYMBO.S

4762%

RKMR2 = 000034

02-DE.-77

7098

7176

7474

7513

5978
6901

6043
B315

5409

6106
6918

7809#

5417

6355
6933

6372
6340

6449
6393

S473

6479
7075

CZRSEBO RK611 DSKLS CTRL PRTS
CZRGEB.P11
02-DEC-77 10:21
SWle

= 010000

SW13
SWlY
SWiS
Ske
SW3
SW4
SWS
SWe

=
=
=
=
=
=
=
=

SWS

= 001000

Sug

020000
040000
100000
000004
0000iC
000020
000040
000100

= DObs0D

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

000400
001000
Q04000
000040
000200
000020
000100
002000
000014

TKVEC = 000060

9478

468
94Ss
44
e
%78
3668
9654
b4
e
9638

31
9608

11828
1183%
1185
1179
1181s
11788
1180
11848
10024

100Ss

F1y4

MACY1l 30(1046)
02-DEC-77
10:43 PAGE 175
CROSS REFERENCE TABLE -- USER SYMBOLS
7176

6449

6479

6493

6508

7451%

74S2x

2001

2029

6961

Y443
2119

Y468
21468

6982
BI62

2236
2353

22638
238ls

6963
6964

TPVEC =
TRAPPC
TRAPVE=
TRTVEZ=
ISTEY1
ISTBY2
TST1
TST10
TST11
TSTie
TST13
ISTI4Y
TSTIS
TST16
IST17

000064
002310
000034
000014
041206
041216
003412
0O06bbee
007136
007430
01015
010704
011432
012160
012714

10108
17268
1008
10038
8157
81598
1890
26678
2774s
c8b2s
29938
31258
32578
33888
35198

6597%
1778%

786M4
1779%

19098
6967
£968
6969
6970
6971
6972
6973
6974

6960

TST20
75721
IST22
TS123
IST24
TS125
IST26
IS727
7573
TST30
TS731
T5T32
I8T33

013480
014176
0l4Sl12
015004
015532
016266
0l660e
017264
oo4442
017600
020350
020660
021216

36508
37808
38858
39738
41058
4236%
43318
4y21
2109
45618
46368
47878
48928

6975
6976
6977
6978
6979
6980
6981
Y428
2114
6983
6984
5985
6986

IS135

022102

50828

6988

T572

TST34

TST36
STy
TSTE

004030

021546

022456
005054
00cH46E

1991

43898

Sil8ls
222k
2343

1996

6987

63889
2231
2348

6534

6546

6558

6600

6993

M2S
-

006110
006360

2464
35838

3312
133
2395
2648

TYPERR
034260
TYPOC = 104402
TYPON = 104404

2684
1838
7850

;Zgg

16720

T RodF boaide
.

00214

Dozieo

7.C52

002170

T:0R
T.0B
T.DCYL

1.06

T.ECPS

002166
002202
002500

002172

002212

16778

2469
6366

1855
933
7420
7662

7131w
1865

4294

2474

25008

6965

183"
4R
7468

i3
isue
833
48dp
7480 2 7534

7887

7658

7860

71S4

7537

7848s

4@se

7881

7888

16838

2938%

2944

3068%
HOSS

Glow

3074

3201%

3207

3338
6283%

3469
6299#

3600
67342

jreex

7865
373e

7877

G049

Ry
7888

ZBEL

&%%

Wlee

&%
539

2g43

S691

16758

7888

Raey

&%yt
47

So8d

5633

G383

7881

7867

16738
16798
16788

§A%®
477D

7900

7663

7077
7197
7637

d8e*
4D

2490,

gABd*
Herd

1857
4%Ed
7538

igToe
Jups’

1383
uewl

5274

849
4843
7535

N NN
o —L)
£ Or—
~hW0 O

TST6
1817

MRCv1l 30(1046)
02-DEC-77
10:43 PAGE 176
CROSS REFERENCE TABLE -- USER SYMBO.S

NN N
N —- @
wL oo,
W oo

CZR6EBO RKb11 DSKLS CTRL PRTS
CZR6EB.P11
0e-DEC-77 10:21

GlY

£808

5149

4311

60S6

7877

HENex

T.ECPT

002214

16848

2937%

2941

3067%

3071

3200%

3204

3335
S868*%

3466
6215#

3597
6268%*

T.ER

002174

2640
786S
S4eb*

2973
7877
S467

3103
7888
SH9l*

3236
7898
5492

3629

4084

Y416%

002204

2560
4677
S407

3367

T.MR1

16768
441?72
16808

6033
9355

6066*
6485%

6067
6486

6078*%
6500%

6079
650!

6091
6S26*

%
6207
6527

6208
6538#

559e*
6261
#
6539

S754#%
YY1
6551

6032*
6471

SS03#

7874

T.MR2

002206

%ggél

1984 #

1993

2i02¢

2111

2219%

22c8

2336%

2345

2466

6736

T.MR3

002210

%g;gl

1985%

1998

2103%

2116

2220%

2233

2337%

23s0

2471

6737%

T.SPAR
T.WC

00e2e!lb
002162

16858
16718

5277

7888

7302

UNLORD= 000007
UNS
= 040000
UPE
= 020000
Vv
= 000100
WCE
= 040000
WLE _ = 004000

1079
1140%
11204

1151
11218
1137%

4357

Sos4

5147

5261

WRDCNT
002330
WRHEARD= 000027
WR
= 004000

17378
1087%
11548%

10854%

1924

ao4e

2159

2276

2397

asle

25935

5802

5865

5913

5340

6439

S001

5093

UFE

= 000400

WRDATA= 000023

11154

WRTBIT

030652

57491

WR.PAR=

000004

1049

WRTCHK= 000031
WRTGAT= 040000
$APTHO

001000

10888
11738
iee3

4479
5788
12294

4572
6454

Y708

4799

4904

Sia2

CTRBEBO RKb11l DSKLS CTRL PRTS
CIREEB.P1Y
02-DEC-77 10:21

MARCY11l

7033
7004

7048
70068

SASTAT= #xkx#» U
033636
$ATYC

$ATY]
SATY3
SATYY
SAUTOB
$BASE
$8DADR
$BDORT
$BELL
SCHARC
SCKSWR
$CMTAG

$CM1
$CMe
$CM3
SCM4

R
SCNTIC
$CNT_G
SCNTM_J
$COKE
SCPUQP
SCRLF
SCROUT
$UBLK
SOEVCT
SOEVM
S$O00AGN
SOTBL
SENDAD

SENDCT
SENULL
SENV
SENVM
SEOP
SEOPCT
SERFLG

$ERMAX
SERROR
SERRPC
SERRTE
SERTTL
$ESCAP

SETABL
SETEND
$FRTAL
SFFLG
$FILLC

033612
033620
033630
001134
001324
0O0l122
001126
a0le40
(035114
036070

70028
7003
700Ss
12608
13478
12558
1257»
1298
72S1l#®
75138

= 000010
= 000020
= 000010

12758
12758
12738

001100

DOOOLS

036766
037000
036773
033060
001276
001245
033110
035562
001260
001326
(023306
035552
023276

023142
0e33le
001270
00127}
023106
023134
001103
001118
034060
001116
(001330
001112
001236

001270
001330
0Clese
034056
0O0l1se

H14

PRGE 177
10:43
02-DEC-77
CROSS REFERENCE TABLE -- USER 5YMBO.S

30(1046)

7527
184G

7684

1886

7182

7110
7268

7480
7277%

7677
72828

12438

1768
1277
1277%

1776

15788

1782

18538

1783

15888

1784
ls 1
12818

15823

1583

12838
1296%
7468

1285

12868

1287

1288%

1289

1290s

12918

12928

1293

12948

1295»

7110

7133

7138

7146

7158

7172

7250

7285

7570

7657

BI37%

7072+

7110

7195+#

7865
7898

7872
79CY

7874

7877

7881

7883

S398*
SSoex
§977%
b6343#%
654 1#

SHe7#
S603x»
6035%
6359%
6596#*

SH33#
S604x
6042
6371%
6599

S438*
S705%
6047»
6377
BS3*

SY4SI»
S757%
6048#»
6379

SH70»
S764#
6070%
#
BYYY

7534
7559
6837
13218
13008

7677

7810

76774

76784

6864
7386
13128
13488
5300
7389
1206

1782
5330%
13178
13188
S29es
1782%
1246#
12528
1776
12538

7229

7886
13658
1250#
1297%

Y72
S769#%
6081#%
6474#
7110

13168
1235
1309
7002#*
12718

7042

7050

7101

7103

CZR6EBO RKB11

<ZR6EB.P11

SFILLS
SGDADR

MRCY1l

DSKLS CTRL PRTS
0e-DEC-77 10:21

Il4

10:43
PAGE 178
02-DEC-?77
CROSS REFERENCE TABLE -- USER SYMBOLS

30(1046)

SEG 0177

7285

O0ON11SS
031158

7883
77378

x
6344
7532%
7081#%

634S

7285

7667

7677

7738

6926%
4912

5935*
S009#*

%
6951
S038*

6956
S440

6958
6565

6605

1307

1804

1820

6950

7087

7229

%
7044

7048

$MXCNT
SNULL
$NWTST=

033
00l
000

$OCNT
SOMODE
SOVER
$PASS
$PASTM
SPOWER
SPWRCT
SPWRON
SPUWRUP

035342
035344
033454
001256
001006
037412
037406
(037264
047312

s070

Sie8s

7022

03
0012
0012
Q012
0370
0013
00!
00l
00l

WOr-=—wWO
£

$MAMS3
SMAMSY
SMBRDR
SMFLG
SMNEW
SMSGRD
$MSGLG
$MSGTY
$MSWR
sMIYPl1
sMTyP2
SMTYP3
$MTYPY

958

7684
7124

6863

1235

6947

7571
7110

7551
7089

7025%

7037

29
374

7361

5330
78148
7799%
77898
7738%

6942

7811

6935

6952%

69S8

6997

7100

J14

CZR6EBO RKB11 DSKLS CTRL PRTS
CZRBEB.PI1
02-DEC-77 10:21

MACY1l 30(1046)
02-DEC-77
10:43 PRAGE 179
CROSS REFERENCE TABLE -- USER 5YMBOLS

SQUES

7110

00le4d4

SROCHR

SRODEC=

036432

#a¥x¥s

SRDLIN
SRDOCT

036522
(037030

SREGO
SREG]
SREGEZ

001162
001164
001166

12998

SRDSZ = 000010
SREGAD
001160

SREG3
SREGY
$REGS
SREGE
$REG?
SRESRE
SRTNAD
=
SROA
$SAVRE

001170
001172
001174
001176
001200
037226
023310
#xExxx |
037170

$SCOPE
033160
$SETUP= 000137
$SIZE

032652

$SIZEX
033114
$STUP = 177777
$SVLAD
033420
$SvPC = 000220

$SWR

= 167400

7602
7859

76258
76998

7657
7858

12758
12768
12778

274S%
2746%
2747»%

76188
12738

12788
12798
12804
12818
12828
77718
53298
7861
77558

S152%
S153%

7285

7589

7660

7677

T73S

7738

3858%
3859%
3860%*

4959%
4960%
496l#

S0OSH*¥
S0OS7*
S0S8%

Sl49%
S1SO®
S5]151%

S2e3x
S264*
5265#

7892
7892
7892

7904
7904
7904

7904
S155%

SEQ 0178

7904

7860
7859

17794
1751n
6900

5899
1773
7071

6862
17518
6310
12048

6872
63498
1209

4467

4562

4697

4788

1807
902

6895

6896

6919

S475
;ggs

Se0l
7874

5767
7877

5380
7881

65045
7883

6375
7886

5350%
7888

7122%
7891

7123#
7893

7864
7896

7865
7898

7868
7900

2863*

2994#

1884

878
1783
2863

6891
9333
$SWREG
00l27c
$SWRMK= 000000

7856

13198
901

68248

890
1784
2994

6892
9??8

1774
7097

1776
7108

1778
7472

1780
7477

1782
7478

1783
7508

1784
7684

1786

1814

1817

5294

894
1786
3126

895
1787
3258

BS6
1910
3389

8397
2030
3520

898
2147
3651

899
eeb4
3781

900
2382
3886

301
2501
3974

1296
2584
4106

1297
2668
4237

1298
277?%
4332

6894
6955

6895
6958

6901
7062

5913
7063

6915
7064

6316
7065

0929
7066

6930
7075

6931
7082

6938
7094

6893
6952

5322

001234

12964
3126%

1783%
3258%

1910%
3389%

2030%

2147

2264x

238ex

2S01x

2584#

2668%

277S%

S182%
7517

S5295%
7544

BIHS

6948*

£958B

7495%
7530

S083%
7489

6938%

7478
7469
7614
7450
76l@2
7505

4990x
7464

7501%
7613%
7616

7502%
7614

7503
7blb*

7505%

7485%

7487

7493%

7518

7531%

754]

7553%

7573%

iggg

1845

1851%

1853

1856

1868%

1870

1872

1874%

5619

Se22%

5625

SeeBx*

5631

S635%

5638

Sebl%

$TKB

001146

4697%
12668

4788%
7432

$TKCNT
STKINT
$STKQEN=
STK@IN
$TKQOU
$TKESR

035572
035602
035601
035574
035576
035600

74338
1765
74378
74348
74358
74368

7448%
74488
7503
7449%
74S0%
7449

$TKSRV

035652

7451

74648

$TKS

§TMPO
$TMP1

$TMP10O

001144

001202
001204
0OCleee

12658
{gg;:
12848

12918

7432

{g;él

5582%

6179%

4893%
74563

74S4x

B346

7609

3781

7611%

3886%

6959

5295

$TIMES

3651x

6925

289

5603

3520%

6377

S182

S477

13108
;ggg

6047

5083

033472

001254

5982

4990

$SWOBT

STESTN

5769

4893

3974*

4106%

4237%

H4332%

5328

5330

44B67%

45b2H

1875

18764

Kl4

CZRBEBO RKE&11 DSKLS CTRL PRTS
CZR6EB.P11
02-DEC-77 10:21

MACY1l 30(1046)
02-DEC-77
10:43
PAGE 180
CROSS REFERENCE TABLE -- USER SYMBO.S

$TMP11
S$TMPl2
$TMPL13
$TMP1Y

00lea4
001226
001230
001232

sTMP2
$TMP3
$TMPY

001206
001210
00l2le

$TMPS

00l21M4

37N

6181%
6189%
6190%
6191%

6350
6£193%
H194*
6£195%

6175%
6177%

6370
6368

4198

4203*

12888
3458#%

001216

5929*%
1289

= 000037

879

$TMPE
STMPT

12928
12938
12948
12958
12858
12868
12878

001220

001182
001157

STRAP
$TRAP2

037420
037442

$TPS

STRP

629S

2961*%
3589%

3063*
3612

3086
3617%

3091
3721%

b232%
5363

B234®
5966

bedbx
6171%

B313
6334

4637%

4660

6228
5960

4ebS*

S854*
3862

3864 %

S848%

5947

§356

6173%

6338

2343
26684

2348
2762

2353
e775%

2367
2847

2382
28638

2464
2979

4317
4873

43328
48934

Yy
4970

4428
4990

Y443
S068

223l
25014

2236
2571

2249
25848

22648
2655

38868
Y4674

3958
4546

3974#
45624

4091
4684

41068
4697 %

Yy2e4
4774

42378
478848

7274%
7223

7285
7285

31268

5168

S182%

12674%

7272

7839

78248
7846

3243

6320

32584
6960

3374

33898

3350
4072%

S902%

2eeb
2487

1996

3327%
4067

S899*

21478
2474

1991

3224*
4OY4*

S896%

3843

1910»

3219
3749%

5892

27S1#»

1894

['9e*
3/44

5881

2749

1778
78358

= 000016

6290

2730%

12684
1272%

001150

6186%
S846%

2956
3486%

6265

12908

3110
$TPB
$TPFLG

2933%
3481

6354
623
6274
6277

SEQ 0173

2001

3505

6317%#
6342
2014

35208

6320

2030%

3636

B324*

2109

36518

2114

7849

78504

7851%

78528

7853

78544

7855

78564

78578

124648

S294#

6890

£922%

6949%

6950

695S

6959

7074

7110

7122

STYPBN= #xxxx U
STYPDS
(035346
STYPE
034636

7852
73748
7030

7851
72238

7839

7847

STYPEX
STYPOC

7278
731Ss

7280
7848

72724

7273

7575

696845
6981

659698
6982

STRPAD
$TSTM

037454
001004

STTYIN

036756

7627

STSTNM

001102

7628

7640

7672

767648

STYPON

035160

7314

731748

7850

001320

134Ss

1847

1855%»

1856%

1859

1879%

1880%

1881

1883

65959
69728

6960
6973

69618
69744

69628
697Ss

69765

69638

69644
69772

69658
69784

6979

696648

69674
6980%

035120
00leee
001010
001274

SVECT1

73108
13138
12348
1320

SVECT2
001322
$XTSTR
033172
$SGET4Y4= 000000

13468
69044
£5322s

$$SwW0B= 000037
SOFILL
035343
SHOCAT= »xxxxx U

= 0S0e42

sxxsxx

6986

6987

69884

1188%

11928

1198

1204

74284

743¢

74368

7311%
6901

12424

72834

69854

gggg
.SASTA=

7849

7267

7658

0350S0

$TYPOS
SUNIT
SUNITM
SUSWR

7260

78624

STYPEC

035116
035144

7253

78618
78464

7003

7315%
7084

1307

7006

35927

2119

2132

3781#»

3873

2469
2994

Y45y
50838

7285

78488

78604
7829
1232

5920

3355#
4175

7325

1771

73604

. 796

£989%
1205%

1787

790

69904
1207%

1830s
PETY

1209

§307
oY

12108

5330

7677

12134

63314#

7684#

1219

6958
7738

1220%

63593

7793

78588

78598

69709
6983

69718
69844

1222

7051
8652

12244

7110

8739

CZREEBO RKE&11 DSKLS CTRL PRTS
CZRGEB.PLI
0e-DEC-77 10:21
.$X

= 001020

12198

L14

MACY1l 30(1046)
02-DEC-77
10:43 PAGE 181
CROSS REFERENCE TRBLE -- USER SYMBOLS
12e4

SEQ 03180

CZR6EBO RKkb11

CZRBEB.PI11
BYPASS
COMMEN
ENDCOM
ERROR

12148
10128
101es
N6

1958

c0S9

212as

2187

DSKLS CTRL

PRTS

0e-DEC-77 10:21

1932

1959

20k

cie8
2188

MACY11

M1lY

10:43
PRAGE 183
02-DEC-77
CROSS REFERENCE TRBLE -- MACRO NAMES

30(1046)

SEQ UOl8l

23dh

1933

1990

2063

2129
2192

2521

3034

3035

3038

WJ
V2,02
OO
DO

3817

L £ W WWW WWWWWWW
o OWm@OMNIUW LWN—-O

N—NWOO ONWNWO NN
NN WU L O—WoDW

2520

W)
i
Ul
wun

c248s

4400

ESCAPE
FSECWT
GETPRI

5279
10128
17194
1012

LDLPER
MSG

12148
18944

GETSUWR

1012%

ee57
36368

6598
1918
8832

2036

1896

2Cly

18174

2’6es
3638

2764
3768

201
2847
3770

5438"
38738

2134
2979
387S

2251
3110
3960

2363

3243
4093

24878
3245

4224

2489
3374
4226

2573
3505
4319

2b5Ss
3807

4454

N14

PAGE 184
"J:43
g2-DEC-77
CROSS REFERENCE TRBLE -- MACRO NAMES

CZRBEBO RKe11l DSKLS CTRL PRTS
CZREEB.P11
02-DEC-?7 10:21

MACY11

30(1046)

4YS4b
s

4548

46848

4686

47748

1894
3636

201y
3768

2l3e
3873

2248
3958

4091

Yeay

4317

2673

2780

2868

2998

3131

4472

4566

S473

470.
S606

4792

4897

5984

8456

5549

5731

029
3780

2146
3885

7849

1396

MUL T
NEWTST

OSECRD
OSECWC
POP
PUSH

REPORT
SCOPE

SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE_
SSECWT
STARS

SWRSU

4456
10128
10128

3505
5168
17208
4337

17218
1012
7776
10128
7701
1012#
307

3519
5181
1012
78398
1012w
10128
2474
1012

1012
17208
10128
2262
3110
3972

4873
7120

1012

TRMTRP
TYPBIN
TYPDEC

7839
10128
1012w

TYPNUM

10128

TYPNAM

TYPOCS
TYPOCT
TYPTXT

$SCMRE
§ICMTM
$SESCA
SINEWT

$SSET
$ISETM
$SSKIP
.EQUAT
.HERDE
KT11

SETUP

SWRHI
SWRLO
§ACTI

S434

4428

SEQ d182
439708

4972

SOe8s

2762

2847

2979
4774

3525

3656

3786

5186
6361

6669

6738

6165

6619

6720

48738

4875

2571

2655
4454

4546

3264

3394

6048

4994

5836

6003

2263
3973

2381

2500
4236

4331

4466

4561

7850

7851

7853

7855

7856

7857

2001
44943

2109

2ll4

2113

2226

1238
2571
3387

1302
e2s8e
350S

g7?1

1218
2487
3256

2367

4105

4317

4224
4988
7364

5081

4776

caug?

2583

Sle8s

5170

4970

3243

3374
5068

3891

4111l

4Yeu4e

6772

7045

7415

772"

6756

7006

7029

7374

4646

e8be

2993
4787

44989

3257

3388
5082

7858

7859

7860

a3l

2236

2343

2348

2464

2469

1291

1292

1293

cbb?

2774

4684

4330

5168

7508

7523

1012

10128
10128
10128

1236#
12368
10128
10128
3505
5168
7839
1804
10128
2474
878w
8788
8784

8788

8784
8788
878

1277
1285

1278
1286

1279
1287

1280
1288

lege
1290

el3e
3t 3

2249
3958

2367

ca487

2655
4454

4546

2762

2847

2979
47749

4873

7850

7851

7853

7855

7857

7858

7859

7860

7861

2001

2139

2114

2119

2a3l

2236

2343

2348

2353

3943

4031

4Yea4

4684

1294
3110

1295
4970

3243

3374
5068

2464

2469

CZS&FBO RKB11 DSKLS CTRL PRTS

CZRbtp.TM "1

.$SAPTB

. SAF

RABS.

02-DEC-77 10:21

MACY1l 30(1046)

02-DEC-77

10:43

8784

050642

RMO3: CZR6EB, RMO3: CZR6EB. SEQ/SOL
/CRF /NL : TOC/DOC=RMO3: CZR6EB. P11

RUN-TIME: 2§ 24 2 SECONDS
RUN-TIME RATIO:

CORE JSED:

30K

DOCUMENT PAGES:

1392/56=24.7
(59 PAGES)
183

PAGE 185

CROSS REFERENCE TRBLE -- MACRO NAMES

13038

ERRORS DETECTzu:

B1S

SEQ@ 0183