Digital PDFs

AH-9110B-MC

March 2002

188 pages

Original

10MB

view download

OCR Version

9.3MB

view download

Document:	CZR6DB0 RK611 DISKLESS CONTROL PART 4 MAR 1978 bw
Order Number:	AH-9110B-MC
Revision:	000
Pages:	188
Original Filename:	CZR6DB0__RK611__DISKLESS_CONTROL_PART_4__AH-9110B-MC__MAR_1978_bw.pdf

OCR Text

DISKLESS CONTROL PART 4
CZR6DBO

AH-9110B-MC
COPYRIGHT ©76-78

FICHE1OF 1

gliftial
MADE IN USA

BO1

N L WU

- I

LIMPUTUIVTOTUTUR
I~
e b o b s bs be e be poe

UL LW
- O

ION L DU+

-DEC-77

0c0o100

PD P10 411

780223

CZR6DBO RKb11 DSKLS CTRL PRTH4

MACY1l 30(1048)

10:00

.REM

3HDR1C ZREDBSEQ

02-DEC-77

10:20

PAGE |

IDENTIFICATION

PRODUCT CODE:

RC-5108B8-MC

PRODUCT NARME:

CZReDBO RKbll

DATE:

FEB 1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

ROY SPITZER

THE INFORMATION

IN THIS DOCUMENT

DSKLS CTRL PRT 4

IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED RS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERROR THRT MAY APPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER_R

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

DIGITRL EQUIPMENT CORPORATIO N ASSUMES NO RESPONSIBILITY FOR
OF RELIABILITY OF IT S SOF TWARE ON EQUIPMENT THAT IS
THE USE
NOT SUPLIED BY DIGITAL.

1976,

1978 BY DIGITAL EQUIPMENT CORPORATION

0ogo10000

CCREDBC RKELl
IZFeUB.PLI

DSKLS CTRL PRTH
0e-DEC-77 10:00

MACY1l 30(1046)

O02-DEC-77

10:20

COl

PAGE 2

TABLE OF CONTENTS

0 ABSTRACT
REQUIREMENTS

2.1 EQUIPMENT
2.2 PRELIMINARY PROGRAMS
OPERRTING PROGRAMS
3.1 LORDING PROCEDURE

3.2 STARTING PROCEDURE
3.3 OPTIONAL SWITCH SETTING
3 .4 RUN TIME

OPERATING PROCEDURES
4.1 “SOFTWARE"TM SWITCH REGISTER
4.2 CONTROL C (¢C) OPERATION
4.3 CONTROL 8 (18) OPER9T¥ON
4. 4 CONTROL
(tQ) OPERAT ON

PROGRAM DESCRIPTION
0 ERROR REPORTING

SEQ 3002

CIREDBO RKEBL1 DSKLS CTRL PRTY

CZR&DB.P11
56

g‘

02-DEC-77 10:00

MARCYLl 30(1046)

02-DEC-?7

10:20

DOl

PAGE 3

SEQ 0003

1.0 RBSTRACT

THE RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 4

R. srs THE Lonolnc OF THE DRIVE BUS MESSAGE SHIFT REGISTERS
LA 2 @gg

g. 31

D. E? g n?sn Rscgg éTION

67
68

;g
74

zg
/

zg
4

79
80

gg
84

ga
[)

H. TESTS PARTIAL SECTOR WRITE (ZERO FILL

1. TESTS 18 BIT FORMAT ECC GENERATION nNo DATA WRITE.

NO RKO& DRIVE IS REQUIRED FOR PROGRAM EXECUTION.
2.0 REQUIREMENTS
2.1 EQUIPMENT

PDP-11 SYSTEM (1sx CORE MEMORY)
CONSOLE TERMIN

OECTAPE

PQPER TQPE READER, OR DECDISK

RK611 CONTROLLER

2.2 PRELIMINARY PROGRAMS

RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 1 (CZREA)
RK611 DISKLESS CONTROLLER DIAGNOSTIC: PART 3 (CZR&C)
RKb611 DISKLESS CONTROLLER DIAGNOSTIC: PART 2 (CZRE&B)

3.1 LORDING PROCEDURE

THE PROGRAM CAN BE LOADED FROM PRPER TAPE USING ABSOLUTE LOADER
OR FROM XXDP MEDIA SUPPORTED BY XXODP.

LOCARTION 200

- START PROGRAM

LOCARTION 204

- RESTART PROGRAM

LOCATION 214

- REQUEST BUS ADDRESS,

oY Sy ey

igé
- = 0000000
- ODONON
LW

3.2 STARTING PROCEDURE

PRIORITY MODIFICATION

3.3 OPTIONAL SWITCH SETTINGS
SWIS SWI4Y -

SW13 -

HALT PROGRRM
LOOP ON TEST

AND SECTOR INCREMENT AFTER SUCCESSFUL

TYPE ERRORS.
02$Ecrxon OF ALL HEQDER
F.G. TESTS
RI ING.
W
TESTS ECC GENERATION AND

3.0 OPERATING PROCEDURES

133

ACK,

NOER
E. ;EQBERCYL

gé

9g
gg

1 N FOR SERRCH OPERATIONS.

A NPR Rnnsrens T0 SILO.

INHIBIT ERROR TYPE OUT

VECTOR ADDRESS., AND

CZR6EDBO RKE11 DSKLS CTRL PRTH
CZR6DB.P11

02-DEC-77 10:00

MACY11l 30(1046)

02-DEC-77

10:20

EO1

PAGE 4

SEQ 0004

SWi2 SWil SW10 -

ARBORT AFTER 20 ERRORS
INHIBIT ITERARTION COUNT
BELL ON ERROR

SW8

LOOP ON TEST IN SWITCHES 0-7

Pt Pt ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt et ot Pt Bt Bt Pt Pt Pt (et Pt et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt et it Pt Pt Pt Pt Pt Pt Pt Pt Pt Dot e Pt Pt

112
13
14

SW9

LOOP ON ERROR

ég

3.4 RUN TIME

el
Sg

FIRST PASS
SUBSEQUENT PARSSES

:25 _MINUTES
3:15 MINUTES

a4
gg

4.0

THE PROGRAM IS EXECUTED BY STARTING AT THE RPPROPIRTE RDDRESS.

4.1

*SOFTWARE'

SWITCH REGISTER

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

OR 11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWIT(H

AN 11/04

33
34
35
36
37
38

REGISTER IS _NOT PRESENT AND WILL USE R 'SOFTWARE’ SWITCH
REGISTER.
THE SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLE
THROUGH A KEYBORRD ROUTINE WHICH IS CRLLED BY TYPING °'CONTROL G’.
THE
PROGRAM WILL RECOGNIZE THE 'CONTROL G’ AT ANY TIME EXCEPT WHEN THE
PROGRAM IS AT R HIGHER PRIORITY PROCESSING AN RKO6 INTERRUPT.
THE
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

oooocoomounnininnninniInNE L LI L L £ L L
NN LWN—-OWO
NI
LW
OO N I0N LW

OPERATING PROCEDURES

SWR = NNNNNN

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:
NEW =’

EACH TIME SWITCH SETTINGS ARE ENTERED,

AND ’*CONTROL U’

THE ENTIRE SWITCH

LEADING ZEROES ARE NOT REQUIRED.

FUNCTIONS MAY BE USED TO CORRECT TYPING

ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

POSITION,

THE °*SOFTWARE’

IF THE PROGRAM FINDS ALL 16 SWITCHES

SWITCH

ALL SWITCH REGISTER REFERENCES WILL BE TO THE

;gEEgfiggE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST BE
4.2

CONTROL C

(tC)

OPERRTION

IF ¢C IS TYPED AT ANY TIME DURING THE PROGRAM EXECUTION THE

PROGRAM IS HALTED IMMEDIATELY.

ACT,

IF A MONITOR IS PRESENT

(XXDP CHAIN

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

IS PRESENT, THE CPU 1S HALTED. DEPRESSING THE CONTINUE KEY WILL DO
A PROGRAM RESTART.
4.3

CONTROL S

(tS)

OPERRTION

IF ¢S IS TYPED AT ANY TIME THE PROGRAM WILL GO INTO A STALL LOOP

UNTIL A CONTROL Q@

(tQ)

IS TYPED.

4.4

(tQ)

OPERARTION

CONTROL

CZR6DBO RKG11 DSKLS CTRL PRT4

U 0= 0 0t Dt 4t st Pt Pt ot Dt B

s Poms Pt s Pt it Pt Be Bt Pt Pt Pt Pt Dt Pt Pt Pt Pt Pt Bt [

OO WO W DGO WD DD
DD D 00D M
N N 3~ NN NN
NI o
— OO0 NN LWN—ODmNN.L W~ OO~ IN LW~V w

CZR6DB.P11

0e-DEC-?7

10:00

MACY11l 30(1046)

02-DEC-77

10:20

IF A tS HAS BEEN TYPED,
INITIATED BY THE

FO1

PRGE S

TYPING THE tQ CANCELS THE STALL

1S.

S.0 PROGRAM DESCRIPTION
#2#TYPE

INSTRUCTION'S DRIVE

TEST

TEST 2

TRACK 7, DRIVE 7. CLOCK IN SEEK MESSAGE.
PROPER MESSAGE 1S ASSEMBLED.
TEST 3

CHECK IF

SEEK MESSAGE FOR WRITE CHECK

CLERR RK611 CONTROLLER WITH A CONTROLLER CLERR.

PUT CONTROLLER IN DIARGNOSTIC MODE.

ISSUE A WRITE CHECK

OF 1 WORD TO AN RKOb6_IN 24 SECTOR FORMAT,
CYLINDER 1777,
HERD 7,
DRIVE 7.
CLOCK

IN SEEK COMMAND.
IS ASSEMBLED.

TEST 4

MAKE SURE CORRECT MESSAGE

READ DATA CLERR MESSAGE

CLEAR THE RKG&11 WITH A CONTROLLER CLERR.
PUT THE
CONTROLLER ON DIAGNOSTIC MODE.
ISSUE R READ DATA TO AN
RKO&,
IN 24 SECTOR FORMAT,
CYLINDER 1777,
HEAD 7,
DRIVE

7.
WORD COUNT 177777. CLOCK IN THE SEEK MESSAGE AND TH
cLEAR MESSAGE AND MAKE SURE THE CLEAR MESSRGE IS CORRECT
TEST S

21E
217
218

WRITE DATA AND ORIVE CLEAR MESSAGE

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE R WRITE DATA OF
ONE WORD TO AN RKOB IN 24 SECTOR FORMAT,
CYLINDER 1777

213
SS?
223

WRITE DATA SEEK MESSAGE

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE AR WRITE DRTA OF
ONE WORD TO AN RKOB IN 24 SECTOR FORMAT,
CYLINDER 1777,

211
gig

222

READ DATA SEEK MESSAGE

7. WORD COUNT 177777.
cLOCK IN THE SEEK' MESSAGE’ AND
MAKE SURE IT IS GENERATED PROPERLY.

208
209
210

S{g

MESSAGES

CLEAR THE RKO& SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT TH
CONTROLLER IN DIAGNOSTIC MODE.
1ISSUE A RERD DATA TO AN
RKO6,
IN 24 SECTOR FORMAT,
CYLINDER 1777, HEARD 7, DRIVE

202
263
204
205
sgg

SES 000S

TRACK 7. DRIVE 7. CLOCK IN SEEK MESSAGE AND DRIVE CLERR
CHECK IF PROPER DRIVE CLEAR MESSAGE IS ASSEMBLED.
TEST &

DRIVE CLERR MESSAGE FOR WRITE CHECK

CIR6DBO RKB11
Z2R6DB. P11

DSKLS CTRL PRTY
02-DEC-77 10:00

MACYL1

30(1046)

02-DEC-77

10:20

GOl

PAGE &

224

SEG 0006

225
226
227

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A WRITE
CHECK OF 1 WORD TO nn RKO6 xn 24 SECTOR FORMAT,

229

THROUGH SEEK MESSAGE AND CLOCK IN DRIVE CLERR.

228

CYLINDER 1777,

sg?
232

233

Sgé

HEAD
7, DRIVE 7.

CLOCK

MAKE SURE CORRECT MESSRGE IS ASSEMBLED.
*¥HERDER GENERATION
TEST 7

HERDER GENERATION

(PART

238
239
240

CLEAR THE RKG11 WITH A CONTROLLER CLERR.
PUT THE
CONTROLLER IN DIAGNOSTIC MODE.
ISSUEA READ DATA OF 1
WORD FOR AN RKOB IN 26 SECTOR FORMAT, CYLINDER
O, HEARD O

242
o43

CHECK MAINTENANCE REGISTER 2 AND MAINTENANCE REGISTER 3
YO MAKE THRT THE HERDER IS CORRECT.
REPEAT FOR CYLINDER

241

SECTOR 0. CLOCK THROUGH SEEK AND DRIVE CLEAR nsésnces

244

g:z

1-1777.

TEST 10 HERDER GENERATION

249
2s0
21

CLEAR THE RKG611 CONTROLLER WITH
A CONTROLLER CLERR.
PUT
THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A READ DATA OF
1 uono FOR AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER
O, HERD

252
253
SEE

256
257

Sgg,-

(PART 2)

ECTOR 0. CLOCK THROUGH SEEK AND DRIVE CLEARR ntssncs
chzcx MAINTENANCE REGISTER 2 AND MAINTENANCE REGISTER 3
70 MAKE THAT THE HEADER IS CORRECT.

TEST

260

REPEAT FOR HEARDS 1-

11 HERDER GENERATION (PART 3)

CLEAR THE RKG611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT

261
262

THE CONTROLLER IN DIARGNOSTIC MODE.
ISSUE A RERD onrn OF
one uono FOR AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER

ggg

T0 MAKE SURE HERDER IS CORRECT.

263
264

26?7
ggg

270
271
272

273
274
275

€

ECTOR 0. CLOCK THROLGH SEEK AND DRIVE CLEAR nsséncs
cnscx MAINTENANCE REGISTICR 2 AND MAINTENANCE REGISTER 3
TEST

12 HEADER GENERATION

REPEART FOR SECTORS 1-25

(PART 4)

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
THE CONTROLLER IN DIARGNOSTIC MODE.
ISSUE A RERD DATA OF
ONE uono FOR AND RKO& IN 26 SECTOR FORMAT, CYLINDER O,

HERDO, SECTOR 0.

CLOCK THROUGH SEEK AND’DRIVE CLEAR’

MESSAGES, CHECK MAINTENANCE REGISTER 2 AND MAINTENANCE
REGISTER'3 TO MAKE SURE HEADER 1S CORRECT. REPEART FOR 2
SECTOR FORMAT.

CCREDBN RKkB11
cZR&0B.PIL

DSKLS CTRL PRTY
02-DEC-77 10:00

MACYL1 30(1046)

02-DEC-77

10:20

#2NPR

HO1

PARGE 4

TRANSFER

TEST

FOR

SEQ Q007
WRITE

13 WRITE

DATA

DATA NPR TRANSFER

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE A WRITE DRTA or
?ggugnos
TO AN RKO& IN 26 SECEERRESRHQTOECELESQES L

GIV EROUEH XEOSK
PU 82 FSR E SILO WORDS. n KE susg 35

ksgscggsgc¢07 OCCUR.

#*HEADER

RECOGNITION

TEST

READ BACK b6 WORDS AND VERIFY THEY

TESTS

14 WRITE DRTA HEADER RECOGNITION

CLEAR THE RKb1ll CONTROLLER WITH
R CONTROLLER CLEAR.
PUT
CONTROLER IN MAINTENANCE MODE.
ISSUE R WRITE DRTR OF ON
WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER
O, HEAD O,

SECTOR 0. CLOCK IN BOTH SEEK AND DRIVE CLEAR MéSSRGES

géquflTE A SECTOR PULSE AND A HERDER WITH THE FOLLOWING
000000
140000
140000

WL WWWWW WWWWWLI(D
PN
==t e e b= b= = == OO
n—O0O Vo NCN L WN—-0OOm

307

MAKE SURE WRITE GATE SETS SHOWING CORRECT HERDER RECOGNI

TEST

SECTOR PULSE DETECTION FOR WRITE DRTA

CLEAR THE RKG&11 CONTROLLER WITH A CONTROLLER CLEAR.

PUT

CONTROLLER IN MAINTENANCE MODE ISSUE A WRITE onrn OF ONE
WORD TO AN RKOB IN 26 SECTOR FORMAT,
CYLINDER
O, HERD O,

SECTOR 0.

CLOCK IN BOTH ssex AND DRIVE CLERR MESSAGES.'

SIMgLRTE AN INDEX PULSE AND
A HEADER WITH THE FOLLOWING
000000
140000
140000

MAKE SURE WRITE GATE DOES NOT SET.
TEST

SECTOR INCREMENT

CLEAR THE RKG611 CONTROLLER WITH A CONTROLLER CLERR.
PUT
CONTROLLER IN MRINTENANCE MODE.
ISSUE R WRITE DATA OF O
TO AN RKO6

IN 26 SECTOR FORMAT,

CYLINDER O,

HERD O,

<ZR6DBO RKB11 DSKLS CTRL PRTHY
CZReDB.P11
0e-DEC-77 10:00

MACY11l

30(1046)

02-DEC-77

10:20

101

PRGE

SEQ

3008

SECTOR_ 0.
CLOCK IN BOTH SEEK AND DRIVE CLERR MESSAGES.
SIMULATE SECTOR PULSE AND PROPER HEARDER,
MRAKE SURE
THRT

WRITE

GRTE

SETS,

REPEAT FOR SECTOR
TEST

TRACK

1-2M.

INCREMENT

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE
A NRITE DQTQ OF O
TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER
O

SECTOR 25. CLOCK IN BOTH SEEK’ AND DRIVE C(EQR HESQRGES
SIMULARTE SECTOR PULSE AND PROPER HERDER,
THRT WRITE GATE SETS.

TEST 20 CY.INDER

MRKE SURE

INCREMENT

CLEAR THE RK&I1 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE
A unxrs onrn OF 0

SECTOR
25. CLOCK IN BOTH SEEK AND DRIVE ctsnn
nsssnces
SIMULRTE SECTOR PULSE AND PROPER HEADER,
MAKE SURE
T0 nN RKO6

IN 26 SECTOR FORMAT,

CYLINDER
O

THAT WRITE GATE SETS.

REPEART FOR CYLINDER =

TEST

BAD SECTOR ERROR

1-632.

(PART 1)

CLEAR THE RK61] CONTROLLER WITH A CONTROLLER CLERR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE R WRITE DQTR OF
ONE HORD TO AN RKOB IN 26 SECTOR FORMAT,
CYLINDER
0

HEADO, SECTOR 0.
MESSAGES,

CLOCK IN BOTH SEEK AND DRIVE CLEAR

SIMULATE A SECTOR PULSE AND A HEADER WITH

THE FOLLOWING DATA:
000000
040000
040000

MAKE SURE BRD SECTOR ERROR SETS.
IS NOT INCREMENTED.
TEST

BAD SECTOR ERROR

CHECK THAN DISK RADDRES

(PART 2)

CLEAR THE RKG611 CONTROLLER WITH A CONTROLLER CLERR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE A WRITE DATA OF
ONE NORD TO AN RKO& IN 26 SECTOR FORMAT,
CYLINDER
0

HERD0, SECTOR O. CLOCK IN BOTH SEEK RND DRIVE CLEAR
MESSARGES.

SIMULATEA SECTOR PULSE ANDA HEADER WITH

cZR6DBO RKE11l DSKLS CTRL PRTH
0e-DEC-77 10:00
<ZReLB.P11

MACY1l

30(1046)

02-DEC-77

10:20

JO1

PRGE 9

SEQ 0009

THE FOLLOWING DRTA:

000000
100000
100000
MAKE SURE BRD SECTOR ERROR SETS.
IS NOT INCREMENTED.
TEST a3

CHECK THRT OISK RDDRES

OPERATION INCOMPLETE

CLEAR RKGE11 CONTROLLER WITH R CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE R WRITE DATA_OF
ONE WORD TO AN RKO®& IN 24 SECTOR FORMAT,
CYLINDER 1253,

HEAD 2, SECTOR 23. CLOCK IN BOTH SEEK AND DRIVE CLEAR
MESSAGES. SIMULATE A SECTOR PULSE AND 32 SECTORS WITH

1 BIT DIFFERENT IN 30 BITS OF OPI DETERMININATION. ALL
SIMULATED HERDERS,
HAVE GOOD HERDER VRC._
MAKE SURE ONLY

r Ltk
U 0= e Bt Pt Pt Pt P Pt P P
OVONC
T EWNN~DO

409

955?“;&?” INCOMPLETE AND CONTROLLER ARE THE ONLY ERRORS
TEST 24 HERDER VRC

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE A WRITE DATR OF
ONE WORD WITH CDT SET IN 24 SECTOR FORMAT,
CYLINDER 1253

HERD 2, SECTOR 23.

421

CLOCK IN BOTH SEEK AND DRIVE CLEAR

MESSAGES SIMULATE A SECTOR PULSE AND HERDER WITH BIT O
OF THE VRC INCORRECT.
MAKE SURE ONLY HEADER VRC AND
g?¥gR?L%§ROER588 ARE THE ONLY ERRORS SET.
REPERT FOR

TEST

BAD SECTOR ERROR AND HERDER VRC

CLEAR RKH11 CONTROLLER WITH A CONTROLLER CLERR.
PUT
CONTROLLER IN MRINTENANCE MODE.
ISSUE R WRITE DATA OF
ONE WORD TO_AN RKOb6 IN 26 SECTOR FORMAT,
CYLINDER 300.

HEAD 1, SECTOR 17, CLOCK IN BOTH SEEK AND DRIVE CLEAR
MESSAGES. SIMULARYE THE FOLLOWING HERDER:
000300
o40057
040356

MAKE SURE ONLY HERDER VRC ERROR SETS.
TEST 26

GOOD HEARDER AND PREVIOUS BSE

CLEAR RKB11 CONTROLLER WITH CONTROLLER CLERR.
PUT
CONTRCLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE DATA OF

cZR6DBC RKB11 DSKLS CTRL PRTH
CZREDB. P11
02-DEC-77 10:00

MARCY11l

30(1046)

02-DEC-77

10:20

KO1

PAGE

SEQ 0010

ONE HORD TO_AN RKO6 IN 26 SECTOR FORMAT,

yug

CYLINDER 100,

HEAD
O, SECTOR 1. CLOCK THROUGH SEEK RfiD DRIVE CLEAR’
MESSAGES. SIMULATE A SECTOR PULSE AND
R HERDER OF THE
FOLLOWING 3 WORDS WITH
A BAD SECTOR

INDICARTION:

000100
g43000
040100
MAKE SURE NO ERROR IS REPORTED AND WRITE GATE DOES NOT
gELORDgI"ULQTE A SECTOR PULSE AND A HERDER OF THE FOLLOW
000100
140001
140101

MAKE SURE WRITE GATE SETS
BEEN RECOGNIZED.

INDICATING THART HERDER HRS

TEST 27 GCOD HERDER AND PREVIOUS HVRC

CLEAR RKB11 CONTROLLER WITH R CONTROLLER CLEAR.
PUT
CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
R WRITE DATA OF
ONE HORD TO AN RKO6 IN 26 SECTOR FORMART,

CYLINDER 200,

HEAD
O, SECTOR 1. CLOCK THROUGH SEEK RfiD DRIVE CLEAR
MESSAGES. SIMULATE A SECTOR PULSE ANDA HERDER OF THE
FOLLOWING 3 WORDS WITH R BAD HERDER VRC:
000200
140000
140000

MAKE SURE NO ERROR IS REPORTED AND WRITE GATE DOES NOT

SET.

SIMULATE A SECTOR PULSE AND A HERDER OF THE

FOLLOWING 3 WORDS:

000200
140001
140201
MAKE SURE WRITE GATE SEES
BEEN RECOGNIZED.
TEST

INDICATING THAT HERDER HRS

BAD SECTOR ERROR AND PREVIOUS HVRC

CLEARR THE RKB611 CONTROLLER WITH A CONTROLLER CLERAR.

PUT _CONTROLLER IN DIARGNOSTIC MODE.
SUE
A
WRITE DATA OF ONE WORD TO QN RKO6 IN 26 SECTOR
FORMAT,
CYLINDER 400, HERD
O, SECTOR 1.
CLOCK_ THROUGH

SEEK AND DRIVE CLEAR MESSAGES.

SIMULATE A SECTOR PULSE

AND A HEADER OF THE FOLLOWING 3 WORDS WITH R

CZREDBO RKE11 DSKLS CTRL PRTY
<ZR6DB.PI11

02-DeC -77 10:00

MACY1l

30(1046)

02-DEC-77

10:20

LO1

PRGE 11

BAD HERADER VRC:

nndwwnuinnnuTn (Al
PUNY e e b b pe e e s e 0= ) O
—-OoooNNNLWN-O
WO[ ¢}

0%
S06
S07

See

SEQ Q011

000400

140000
140000

MAK
RE N? ERR? 2 REPORTE? Qflg
WRITE
8QTE
DOt
SIMULAT
OR
U
A
HEQDER CONSISTING OF THE FOLLOWING
3 NORDS:
000400
040001
040401

MAKE SURE BAD SECTOR ERROR SETS AND HEARDER VRC
ERROR DOES NOT SET.
TEST

HERDER VRC AND PREVIOUS BSE

CLEAR THE RK611 CONTROLLER WITH
A
CONTROLLER CLERR.
PUT CONTROLLER IN DIRGNOSTIC MODE.
ISSUE
A
WRITE DATA OR ONE WORD 710 nn RKO6 IN 26 SECTOR
FORMAT,
CYLINDER 140, HEAD
O, SECTOR i.
CLOCK THROUGH

SEEK AND DRIVE CLEAR'MESSAGES.TM

SIMULATE A SECTOR PULSE

egg EREggosn OF THE FOLLOWING 3 WORDS WITH A HEARDER

000140
Q40000
040140

MAKE SURE NO ERROR IS REPORTED AND WRITE GQTE

DOES
NOT SET.
STIMULATE
R SECTOR PULSE AND
R
HERDER CONSISTING OF THE FOLLOWING THREE WORDS:
000140
140001
140101

MAKE SURE HERDER VRC ERROR SETS AND BAD SECTOR
ERROR DOES NOT SET
TEST

32 OPI

AND HVRC ON LAST HEADER

A CONTROLLER CLEAR.
CLEAR THE RK611 CONTROLLER WITH
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R WRITE
DATA OF CONE WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CLOCK_ THROUGH
HEAD O, SECTOR 1.
CYLINDER 240,

SEEK AND DRIVE CLEAR'MESSAGES.

SIMULATE A SECTOR PULSE

AND 30 HERDERS CONSISTING OF THE FOLLOKWING 3 WORDS:
00040

CZR60BO RKE11l
<ZR6DB.P11

DSKLS CTRL PRTH

02-DEC-77 10:00

MACY11

30(1046)

02-DEC-77

10:20

MO1

PRGE

SEQ 012

149988

131

562

PAKE SHTECYY EREOR L5 BETORIEO R

TR, GPUC

HEADER CONSISTING OF THE FOLLOWING THREE WORDS:
000240
140000
140040
MAKE SURE HERDER VRC AND OPI

TEST

33 OPI

AND PREVIOUS HERDER VRC

ERROR SET.

(PART

CLERR THE RK611 CONTROLLER WITH A
CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
R
WRITE
DATA OF ONE WORD TO AN RKO& IN 26 SECTOR FORMQT
CYLINDER 300,
HEAD O, SECTOR 1.
CLOCK THROUGH

SEEK AND DRIVE CLE&R MESSAGES.

SIMULATE
A

SECTOR PULSE AND 30 HEADERS CONSISTING OF THE
FOLLOWING 3 WORDS:
000300
140000
140300

THEN SIMULRTE
R 3 NORD HERDER CONSISTING ON
THE FOLLOWING DATR

000300
140000
140200

MQKE SURE NO ERROR IS REPORTED AND WRITE GATE
DOES NOT SET.
SIMULATE
A SECTOR PULSE AND A
HERDER CONSISTING OF THE FOLLOWING THREE WORDS:
000300
140000
140300

MAKE SURE HEARDER VRC AND OPI
TEST 34 OPI

AND PREVIOUS HERDER VRC

ERRORS SET.
(PART 2)

CLERR THE RKG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF ONE WORD TO RN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 40,
HERD
O, SECTOR 1.
CLOCK THROUGH

SEEK AND ORYVE CLEAR MESSAGES.

SIMULATE A SECTOR

PULSE AND R HEADER CONSISTING OF THE FOLLOWING

CZRGDBO RKG11 DSKLS CTRL PRTM

CZREDB. P11

gf?

618
619
gg?

622
ee3

ESE

626
627
gsg

gg?
632

ggg

02-DEC-77 10:G0

MACY1l 30(1046)

02-DEC-77

10:20

NO1

PAGE 13

SEQ 0013

THREE WORDS HAVING A BAD HERDER VRC:

000040
140000
140000

MAKE SURE NO ERROR IS REPORTED AND WRITE GATE
SIMULATEA SECTOR PULSE AND 31
DOESNOT SET
HEADERS CONSISTING OF THE FOLLOWING THREE WORDS:
000040
140000
140040

MAKE SURE HEADER VRC AND OPI ERRORS SET.
TEST 35 BSE AND CONTROLLER ERROR

635
636
637

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLsnn
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUEA WRITE DATA
OF 1 uono T0 AN Rxos IN 26 SECTOR FORMAT

64}
g:g

ERROR AND HVRC SET. CLEAR CONTROLLER AND MAKE SURE
CONTROLLER ERROR RESETS.

638

639
640

644
BMS
646

g:g

649
650
651

SEEK

CLOCK THROUGH
R SECTOR PULSE
SIMULATE
nsésnces
CLERR
DRIVE
AND
AND A HERDER WITHR BSE ERROR. MAKE SURE CONTROLLER
CYLINDERO, HERDO, SECTOR 0.

TEST 36 HVRC AND CONTROLLER ERROR

CLEAR RKG11 CONTROLLER WITH A CONTROLLER CLEQR
PUT CONTROLLER IN DIAGNOSTIC MODE. xssus WRITE DATA
OF 1 WORD 10 AN RK06 IN 26 SECTOR FORMAT

653

CYLINDER 300, HEADO, SECTOR 0. CLOCK THROUGH SEEK
DRIVE CLEAR nssshcss SIMULATEA SECTOR PULSE
AND
ANDA HEADER WITH A HVRC ERROR. MAKE SURE CONTRO.LER

ggg

CONTROLLER ERROR RESETS.

652

654
655
658

223

ERROR AND HVRC SET. CLEAR CONTROLLER AND MAKE SURE

TEST 37 READ DATR AND HVRC ERROR

661
662
663

CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLEGR
PUT CONTROLLER IN DIAGNOSTIC MODE. xssue READ DATA
OF 1 WORD TO AN RK06 xn 26 SECTOR FORMAT

667

ERROR AND HVRC SET. CLEAR CONTROLLER AND MAKE SURE

664

665
666

ggg
67

671

CLOCK THROUGH SEEK
A SECTOR PULSE
SIMU.ATE
nessbcss
CLtnn
DRIVE
AND
ANDA HEADER WITH R HVRC ERROR. MAKE SURE CONTROLLER
CYLINDER 300, HEADO, SECTOR 0.
CONTROLLER ERROR RESETS.

TEST 40 WRITE CHECK AND HVRC

CZR60BO RKB11 DSKLS CTRL PRTH
CZReDB.P11
02-DEC-77 10:00

MACY1l

30(1046)

02-DEC-77

10:20

BO2
PRAGE

SEG 0014

CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R WRITE
CHECK OF 400
WORDS TO QN RKO& IN 26 SECTOR FORMAT

CYLINDER 300,

HEADO,

SECTOR 0.

CLOCK THROUGH SEEK

QND DRIVE CLEAR HESSAGES SIMULATE A SECTOR PULSE AND
A HEADER WITH A HEADER VRC ERROR.
MRKE SURE
HVRC AND CONTROLLER ERROR RARE SET. CLEAR CONTROLLER
AND MAKE SURE CONTROLLER ERROR RESETS.

#%ECC GENERATION TESTS
TEST

ECC INITIALIZATION

CLERR THE RKG11 CONTROLLER WITH A CONTROLLER CLEAR.

PUT THE CONTROLLER IN DIAGNOSTIC MODE.

DATA OF 10 WORDS o AN RKOG,

FORMAT,

ISSUE A WRITE

IN 26 SECTOR

CYLINDER
0O, HERD
0, SECTOR 0.

CLOCK THROUGH

SEEK AND DRIVE CLEAR nessndss SIMULATE
A SECTOR PULSE ANDA GOOD HEARDER.
CLOCK THROUGH ONLY FO
DATA WORDS OF ZEROES.

42 ECC GENERATION

MAKE SURE THE ECC PATTERN

(PART 1)

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 12 uonos T0 A R
K06,
IN 26 SECTOR

FORMAT, CYLINER
O HERD SECTOR 0. CLOCK THROUGH
SEEK AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR
NNNNNINNNININNN
U e b 9 0t ot ot st s e 0 ()
owoNCNLWL—-OWw

PULSE AND A GOOD HEADER.
CLOCK THROUGH ONLY THE
FOLLOWING SIX WORDS OF DATRA:

72l

00s001
040040
020004
000064
000000
000000

CLOCK IN EACH BIT INDIVIDUALLY AND CHECK FOR PROPER ECC
GENERATION RS SEEN THROUGH THE ECC PARTTERN REGISTER.
TEST

43 ECC GENERRTION

(PART 2)

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLERR.

PUT THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
DATA OF 12 WORDS TO AN Rxos IN 26 SECTOR

FORMAT, CYLINDER
O, HEAD
O, SECTOR O. CLOCK THROUGH
SEEK AND DRIVE CLEAR MESSARGES. SIMULATEA SECTOR PULSE

CZR6DBO RKB11 DSKLS CTRL PRTH
02-DEC-77 10:00
CZR6DB.P11

MACYil

30(1046)

02-DEC-77

10:20

coe

PRGE 15

SEQ 3015

AND A GOOD HEADER.

SIX WORDS OF DATA:

CLOCK THROUGH ONLY THE FOLLOWING

{77777
27?277
1777727
177777
177777
172777

CLOCK IN EACH BIT INDIVIDUALLY AND CHECK FOR PROPER ECC
GENERATION RS SEEN THROUGH THE ECC PATTERN REGISTER.
TEST

44 ECC WRITING

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

DATA OF 400 WORDS.
CYLINDER O, HERD O,

TO AN RKO6 IN 26 SECTOR FORMAT,
CLOCK THROUGH SEEK

SECTOR 0.

QNB ER&VS CLEQR HEQSRGE
00D HEADER. CLOEK
AN

IMULATE R SESTOR P8§SE
400 WOR
THROUGH ALL

AND THE TWO ECC WORDS.
MAKE SURE THE TWO ECC WORDS
CHECK BUS RDDRESS,
ARE CORRECT AND WRITTEN PROPERLY.
WORD COUNT, CYLINDER, TRACK, RND SECTOR.

*xPARTIAL

WRITE

DATA

TEST 45 ZERO FILL ON WRITE DATA

CLEAR THE RKB11 CONTROLLER W I1TH A CONTROLLER CLERR.
ISSUE R _WRITE
PUT THE CONTROLLER IN DIAGNG STIC MODE._
DATA OF 103 WORDS TO AN RKOB IN 26 SECTOR FORMAT

CYLINDER O,

HEAD O,

SECTOR 0.

AND DRIVE CLEAR MESSARGES.

CLOCK THROUGH SEEK

SIMULATE A SECTOR PULSE

ELO K THROUGH flbL ugo ugno; AND
AND A 3028 Hsngsn.
FILL
CHECK THE SECTOR FOR Z2ERO
¢ WORDS.
THE TW
AND MAKE SURE THE TWO ECC WORDS ARE WRITTEN PROPERLY.
CHECK BUS RDDRESS, WORD COUNT, CYLINDER, TRACK, AND SECT

xx18 BIT

FORMAT

TEST

WRITES

18 BIT WRITE DRTA (PART 1)

CLEAR THE RKBG11 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE.

ISSUE A WRITE DRTA

OF 400 WORDS TQ AN RKO6_IN 24 SECTOR FORMART

CYLINDER O, HEARD 0O, SECTOR 0.

CLOCK THROUGH SEEK

CZR&ED8D RKe11
CZR6DB.P11

DSKLS CTRL PRTH
02-DEC-77 10:00

MACY1l

30(1046)

02-DEC-77

10:20

DOG2
PRGE

SEJ 0016

4
AN R"td6o HERDER. > CLock TRACUCH
'€ HoRbS'OF 175357,

VERIFY THRT

TEST

TWO ZERO BITS ARE

18 BIT WRITE DARTA

PRESENT FOR EARCH WORD.

(PART 2)

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT CONTROLLER IN DIRGNOSTIC MODE.
ISSUE A WRITE DATA
OF 400 uonos TO RN RKO6 IN 24 SECTOR FORMART

CYLINDER

SECTOR 0. CLOCK THROUGH SEEK
AND DRIVEO CLEAR5MSSnces
SIMULQTE A SECTOR PULSE
CLOE THROH? WORDS

BITS ON SIMULATED DISK.
NOTE:

TEST

RIFY WRITING OF

THIS TEST IS ONLY EXE
RITY ENRBLE IS PRES
LOCRTION

177777

Twd PARITY

—N—

ARITY SET.

WITH B

nng A 3808 H?QDER

SO CLERR BRD PARITY BUFFER

THE SOLE PURPOSE OF THIS TEST IS TO CLEARR BRDPRR
BUFFER AND REMOVE THE BRD PARITY.

0 {000 00 0D 0D 0D D A A D KD (D
PO
e b b e e e e pa 0 O
nN—oOUOoONOCN LWU-0OW

808

TEST

18 BIT WRITE DATA

(PART 3)

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE DATA
OF 400 uonos T0 nn RKO6 IN 24 SECTOR FORMAT

CYLINDER
O, HERDO, SECTOR 0. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSARGES. SIMULATE A SECTOR PULSE

AND n GOOD HEADER.
AND
THE 32 BIT ECC

WRITTEN CORRECTLY

CLOCK THROUGH 400 18 BIT WORDS
VERIFY THAT THE ECC IS

6.0 ERROR REPORTING
THE GENERAL FORMAT OF ERROR REPORTS

IS:

OPERATION DESCRIPTION AND ERROR DESCRIPTION
TEST

ERROR

XXXXXX

_YYYYYY

NUM

%XPECT
EG
222222

NOTE:

QEEURL

?THER P;RTENQNT

WWWWWW

ARRAARR

MORE THAN ONE SET OF EXPECT-/ACTUAL REGISTERS MAY BE
PRINTED QUT. OTHER PERTENANT INFORMATION MAY COMSIST
OF MORE THAN ONE WORD.

CZR6DBO RKB11 DSKLS CTRL PRTY

CZReDB.P11
840

D2-DEC~-77

10:00

MACY1l 30(1046)

02-DEC-77

10:20

EOE2

PARGE 17

SEQ 0017

841
842
843
g:g

OTHER PERTINENT INFORMATION MAY CONTRIN R WORD LABELED
“BIT COUNTTM. THIS COUNT IS REPORTED WHEN THE OPERATION BEING
PERFORMED INVOLVES CLOCKING THE CONTROLLER THROUGH ONE OR MORE
OF THE VARIOUS FIELDS THAT MAKE UP THE PHYSICAL SECTOR FORMRAT.

g:g

THESE FIELDS

(ALL VALUES GIVEN IN OCTAL)

ARE:

g48
849
8S0
851
g8se

FIELD
HERDER PREARMBLE
HEADER
GAP
DATA PREAMBLE

8s4
B85S
856
857

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

10000
11000
40
20

400
400
e
1

859
gg?

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

160
140

7
6

8s3

858

862
gga
865

DATA

GAP

BITS
400
60
100
400

WORDS
20
3
Y
20

REFER TO THE RKOBH UNIBUS DISK SUBSYSTEM SPECIFICARTION FOR MORE
DETARILED DESCRIPTION.
THE "BIT COUNTTM REPORTED IS INITIALIZED RT THE START OF ERCH FIELD

gg%

AND IS INCREMENTED FOR EACH BIT PROCESSED.

g8e8

WHEN THE OPERATION BEING PERFORMED INVOLVES WRITING,

870

PRESENT Bi: -2,

872
g;q

RK611 LOOKS AT THE DRTA STREAM TO COMPUTE PRECOMPENSATION RADVANCE
AND PRECOMPENSATION DELRY IN THE WRITE OPERRTION.

869

INFORMATION AY CONTAIN WORDS LABELED PRESENT BIT,

OTHER PERTINENT

PRESENT BIT -1,

RND PRESENT BIT +1. THESE BITS ARE PRESENTED IN THIS

WAY TO SHOW THE WRITE DATA STREAM IN THE SAME MANNER THAT THE

875

WHEN THE OPERATION BEING PERFORMED INVOLVES READING, OTHER PERTINENT

8-7

BITS RELATE TO RK611 LOGIC THART DETERMINES WHEN THE BIT IS VALID

876

878
¢

INFORMATION MAY CONTAIN PREVIOUS BIT AND P~ESENT BIt WORDS. THESE

FROM THE, DECODER.
A

CZREDBO RKE11 DSKLS CTRL PRTH
02-DEC-77 10:00
CZReDB.P11

MACY1l 30(1046)

167400

10:20

PAGE 18

#x% REV 003 %xx»

000001

02-DEC-77

FO2

.NLIST
LIST
_ENRBL

CND,MD,MC
ME
ABS,AMA

LTITLE

cznsoeo RK&;I DSKLS CTRL PR1Y

§§un-

152400

: *COPYRIGHT

(C)

1976,1977

:#DIGITAL EQUIPMENT bonp
;nnvnano MASS. 01754

!PROGRQH BY ROY SPITZER
lTHIS PROGRAM WRS ASSEMBLED USING THE PDP- 11 HQINDEC SYSMAC
lPRCKRGE (MARINDEC-11-D2QARC-C3), JAN 19, 1977

SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

;¥
®

15
14

HALT ON ERROR
LOOP ON TEST

ABORT PROGRAM AFTER 20 ERRORS

10
9

BELL ON ERROR
LOOP ON ERROR

DODDDD

907

D0 DD DD D DD DD D
U MUY = e bme b bt o e bt b e ) O
LN~ OW M NV £ WO D0

R
¥

.SBTTL
001100

USE

INHIBIT ERROR TYPEOQUTS
INHIBIT

ITERATIONS

LOOP ON TEST IN SWR<7:0>

BASIC DEFINITIONS

¥INITIAL ADDRESS OF THE STACK POINTER %#¥ 1100 *x»

§TACk="
CEQUIV

JEQUIV

1100
EMT,ERROR

IOT.SCOPE

:BASIC DEFINITION OF ERROR CALL

'BASIC DEFINTTION OF SCOPE CALL

. ¥MISCELLANEOUS DEFINITIONS

CR=
CRLF=

15
200

.EQUIV

PS,PSW

PIRQ=

1772772

ODISP=

177570

LF=

:CODE FOR HORIZONTAL TAB

,,coos FOR LINE FEED

; ;CODE FOR CARRIAGE RETURN
CODE_FOR CARRIAGE RETURN-LINE FEED

177776

: 'PROCESSOR STATUS WORD

STKLMT= 177774

;;STACK LIMIT REGISTER

pPS=

DSWR=

177570

'PROGRAM INTERRUPT REQUEST REGISTER

,,HQRDNRRE SWITCH REGISTER

' 'HARDWARE DISPLAY REGISTER

¥GENERAL PURPOSE REGISTER DEFINITIONS

ko=
Rl=

000007

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

%2
%3
%4
%5
%6
%

:GENERAL REGISTER

,,GE ERAL REGISTER

: :GENERAL
.,GENERRL
: GENERAL
: *GENERAL
: ' GENERAL
: 'GENERAL

SEQ 0018

DSKLS CTRL PRT4
02-DEC-77 10:00

000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000
a40000
020000
010000

100000

000004

MACY11

30(1048&)
02-DEC-77
BARSIC DEFINITIONS

SP=

PC=

PR1=
PR2=
PR3=
PRY=
PRS=
PR6=
PR?=

LEVEL

SWi4=
SW13=
SWie=
SWli=
SWi0=
SW09=
SWo8=
SW07=
SW06=
SWOS=
SWO4=
SWo3=
SWoe=
SWll=
SWoo=
_EQUIV
-EQUIV
-EQUIV
"EQUIV
JEQUIV
-EQUIV
"EQUIV
JEQUIV
-EQUIV
EQUIV

;s PRIORITY LEVEL
::PRIORITY LEVEL
: 'PRIORITY
I PRIORITY
:'PRIORITY
P IPRIORITY
: :PRIORITY
: 'PRIORITY

40
100
140
200
240
300
340

100000

SWITCH DEFINITIONS

40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
Y4
2
I
SW09, SW9
SW08,Su8
SWO7,SW?
SWO&,SKe
SWOS.SWS
SWO4.SW4
SWO3.5uW3
SW02.S5W2
SWOI1,SW!
SWOO, SWO

- ¥DATA BIT DEFINITIONS

B817T1s=

BITI4=
B8ITi3=
BITi2=
BITil=
BITiD=
BITOS=
B8ITO8=
B8I107=
BITO6=
BITOS=
BITO4=
BIT03=

BITO2=

DEFINITIONS

. #"SWITCH REGISTER"

duW15="

PARGE

1000

40000
20000
10000
4000
2000
100G
400
200
100
40
20
10
M

SEQ 0019

; ; PROGRAM COUNTER

GO2

: s STACK POINTER

. PRIORITY

PRO=

10:20

(BITOO

BITIS:

NoOnLwhu—0

CZREDBO RKBil
CZREDB.PI11

e Pt Pt Pt et Pt Pt Pt et

lBflSIC "CPU”

ACE Rnp

BREQKPOINT TRAP (BPT)
,,INPUT/OUTPUT TRAP (I0T) %%#SCOPEx#

: ' POWER FAIL
,,§¥HL§TOR Tgnp (EMT)

"TTY KEYBORRD VECTOR

000030
0000402
000004
000006
000010
000012
000014
000016
000020
000024
000026
Cooo34
000036
000030
000032
0ooo22

000001

.SBTTL

RKB1l

RKCS1=
RKWC=

0
e

RKDA=

)

RKBRA=

'TTY PRINTER VECTOR

MEMORY PARITY VECTOR

{MEMORY PARITY BUS noonsss
:ENABLE nsnonv PQRI
'WRITE BRD PARIT
:DEF INE RKB1l vscvon noonsss
‘DEFINE RK611 PRIORIT
‘DEFINE BRSE OF RKG&1l REGISTERS
CONTROLLER REGISTER DEFINITION
; CONTROL AND STATUS REGISTER I

:WORD COUNT REGISTER
:BUS RDDRESS REGISTER
DESIRED TRACK _SECTOR REG ISTER

RKCSe=
RKDS=
RKER=
RKRSOF=
RKDCYL=
RKDB=
RKMRl=
RKMR2=
RKMR3=
RKECPS=
RKECPT=
RKSPAR=

10
12
14
16
20
24
@26
34
36
30
32
22

.SBTTL

DRIVE

SELDRV=

%%ERROR#%

,,PROGRRM INTERRUPT REQUEST VECTOR

PIRQVEC=240
MEMVEC= 114
MEHBRS- 178100
PAR.

177440

TIME OUT AND OTHER ERRORS

,,RESERVED AND ILLEGAL INSTRUCTIONS

60
b4

ABRSE=

SEQ 0020

VECTOR RDDRESSES

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34

177440

PRGE 20

o MW
LU
IO DO

Y]
T
S

TRAP

RESVEC- 10
TBITVEC=14
TRTVEC= 14

TKVEC=
TPVEC=

HO2

T
T

— Ll

10:20

— —~AA

(1] OmDOOOD
oD ©O

—

)

O 000000000
|=) W
LN
IO D

BIT
BIT
BIT
BIT
BIT
BITY
BIT
BIT
BITY

.EQUIV
.EQUIV
EQUIV
.EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
.EQUIV

ERRY

s s Pt
Bt Pt Pt ot Pt (Pt Pt Pt ot Pt Pt Bt B Pt
et Pt P Pt Pt Pt Pt Pt Pt P
e
e e e Pt Pt

it46
1047

02-DEC-?7
BRSIC DEFINITIONS

30(1046)

m
o
[

s e

oo 00000000000 000000000000000 00000000000 00000
LLrL£xr £ £ Wl W
WL W WM
NNV
TR Y- -—— Pt Pt e Pra Pt Prace s Q00000000
nLwn ~ODONCU
LW
0OV NN LW~ OWVONCNLWN—~0O00
N LW [

s P

BBBR8T

MACY11l

DSKLS CTRL PRTH
0e-DEC-77 10:00

—

CZREDBO RKBll
CZreDB.P11

SNTROE AND STATUS REGIS TER 2
IVE
STRTUS REGISTE

ERROR REGISTER
SATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:DATA_BUFFER
:MAINTENANCE REGISTER 1
:MARINTENANCE REGISTER 2
IMAINTENANCE REGISTER 3
JECC POSITION INFORMATION
{ECC_PATTERN INFORMATION

:SPARE REGISTER
-OMMANDS

:SELECT DRIVE

CZR6EDBO RKE11 DSKLS CTRL PRTY

CZReDB.P11

1048

1049
1050
10s81
1052
1053
1054
105S
1056
1057
1058
1059
igg?

0e-DeEC-77 10:00

000003

00000S
000007
000011
000013
00oais
000017
000021
000023
000025
000027
C00031
000300

iggg

1064

106S
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
ig;g

000001

000100
00Cce09
000400
001000
002000
004000
010000
020000
040000
100000
100000

ig;g
1080

1081
108e
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
igga

000007

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

iggg
1097

1098
1099
1100
1101
il0e
1103

000001

000002
000004
000010
000020
000040
000100

02-DEC-77

MACY1l 30(1046)

DRIVE COMMANDS

10:20

102

PAGE 21
; PALK ACKNOWLEDGE

PACK=

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

CLEAR= (0S
UNLORD= 07
SRTSPL= 1]
RECAL= 13
OFFSET= 1S
17
SEEK=
RODATAR= 21
WRDATA= 23
RDHERD= 25
WRHEHD= 27
WRTCHK= 31
INTR= 300
GO=

BITO

:DRIVE CLEAR
; UNLOAD
:START SPINDLE
RECRLIBRQTE
,0 FSET
; SEEK
:READ_DATA
iWRITE DATA
:READ_HEADER
{WRITE HEAVER AND DATA
iWRITE CHECK
:GENERATE INTERRUPT TO CPU
;GO _BIT

: INTERRUPT ENABLE
:CONTROLLER READ)
,BUS ADDRESS BIT 16
; BUS_RDDRESS BIT 17
:CONTROLLER DRIVE TYPE (0=RKO®
F
:CONTROLLER TIMED OUT WRITING
; _DRIVE RESPONSE
1=24 SECTOR)
*CONTROLLER DRIVE FORMAT (0=26 SECTOR,
BY CbNTPOLLER
DETECTED
ERROR
PARITY
BUS
:DRIVE
{DRIVE INTERRUPT
:CONTROLLER ERROR
:CONTROLLER CLERR

IE=
RDY=
BRl1e=
BA17=
C0T=
CT0=
CFMT=
SPAR=
=
CERR=
CCLR=

BITHE
BI117
BITB
BIT9
BITIO
BIT11
BITI2
BITI3
BITIY
BITIS
BITI1S

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS

DRVMSK= ?7

;MASK FOR DRIVE SELECTION CODE

'DESELECT OR RELEASE DRIVE IN BITS 0-2
;BUS ADDRESS INCREMENT INHIBIT
:CLERR CONTROLLER AND ALL DRIVES
;INPUT RERDY
; OUTPUT RERDY
:UNIT FIELD ERROR
SMULTIPLE DRIVE SELECT
: PROGRAMMING ERROR
:NON-EXISTENT MEMORY
INON-EXISTENT DRIVE
;UNIBUS PARITY ERROR
:WRITE CHECK ERROR
:DATA LATE ERROR

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

BIT3
BITHY
BITS
BITH
BIT?
BIT8
BI19
eITio
BIT11
BITle
BIT13
BIT1Y
BITIS

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=

BITO

SKI=
NXF =
DRPAR=
FMTE=
DTYE=
ECH=

BITL
BITe
BIT3
BITH
BITS
BITH

SEQ 2021

; ILLEGAL FUNCTION CODE

:SEEK_INCOMPLETE
:NON-EXECUTABLE DRIVE FUNCTION
:DRIVE DETECTED DRIVE BUS PARITY ERROR
:FORMAT ERROR
:DRIVE TYPE ERROR
:ECC HARD

CZREDBO RKB1l DSKLS CTRL PRTH
CZR&DB.P11
02-DEC-77 10:00

1104

1108
1106
1107
1108
1109
1110
1111
III%

000200

000400
001000
002000
004000
010000
020000
040000
100000

IIIE

1116
1117

0060001l

1119

0000143

1118

000004

1120
1121
112@e
1123
1124
1125
1126
1127
iigg

000020
000040
000100
000200
000400
004000
020000
040000
100000

II%?

Jog2

MACY1l 30(1046)
02-DEC-77
10:20_ PAGE 22
ERROR REGISTER BIT DEFINITION

BSE =

BIT?

;BAD SECTOR ERROR

HVRC=
COE=
IDAE=
WLE=
DTE=
OPI=
UNS=
DCK=

BIT8
BITS
BITI10
BITI11
BIT1e
BIT13
BITIY
BIT1S

.SBTTL

STATUS REGISTER BIT DEFINITION

DRA=

BITO

QFST=

BITe

ACLO=

BIT3

SPDLSS= BITHY
DROT=
BITS
Vv=
BITE
DRDY=
8IT7
DDT=
Bl18
WRL =
BITI1l
PIP=
BITi3
DSC=
BIT14
SVAL=
BITIS
.SBTTL

SEQ 0022

*HEADER VRC ERRROR
CYLINDER ADDRESS OVERFLOW ERRGR
: INVALID DISK QDDRESS ERROR
:WRITE LOCK ERROR
‘DRIVE TIMING ERROR
OPERRTION (SERRCH) INCOMPLETE
:DRIVE UNSAFE
:DATA CHECK
;DRIVE AVAILABLE (CONTROLLER IS SET IF
;:
THIS BIT IS RESET

DRIVE OFFSET
AC LOMW

SPEED LOSS
DRIVE OFF TRACK
:VOLUME VALID
DRIVE RERDY
‘DRIVE TYPE (0=RKOB)
SWRITE LOCK
POSITIONING IN PROGRESS
DRIVE STRTUSCHANGE
:STATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION

%igg

000017

MESMSK= 17

; MESSAGE MASK

1134

000020

PRT=

sFORCE EVEN PRRITY ON DRIVE MESSAGE LINES

1135
1136
1137
1138
1139
1140
1141
1142
1143
1144

II:E

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

100000

II:;
1149

RDGRTE= BITI1S
.SBTTL

00002g0

BITH

DMD=
BITS
MSP=
BITE
MIND=
BIT?
MCLK=
BIT8
MERD=
BIT9
MEWD=
BIT1O
PCA=
BIT1l
PCD=
BIT12
ECCU=
BIT13
WRTGAT= BIT1Y

DIRGNOSTIC ODE
NRINTENQNCE SECTOR PULSE
'MAINTENANCE INDEX
HRINTENQNCE CLOCK
MRIN ENANCE ENCODED RERD DATA
NRINTENRCNE ENCODED WRITE DARTA
: PRECOMPENSATION ADVANCE
{PRECOMPENSATION DELAY
ECC WORD IS BEING REARD OR WRITTEN
NRITE GRTE

:READ GRTE

TRANSMITTED MESSAGE A

S.SEEK= BITMY

; SEEK COMMAND

1150
1151
115¢
1153

000040
090100
000200
000400

S.RECL= BITS
S.STSP= BITE
S.RTC= BIT?7
S.CLR= BITB

RECALIBRATE COMMAND
:START SPINDLE COMMAND
DRIVE RETURN TO CENTERLINE COMMAND
CLERR ERROR AND DSC

1156
I{ég

004000

S.PACK= BIT}1
.SBTTL
TRAP CATCHER

;SET VOLUME VALID

1154
1158
P

)

1189

001000
002000

000000

S.FMT=
BIT9
S.UNLD= BITIO

MAT
; UNLORD

(PACK ACKNOWNLEDGE
)

CZRE&DBO RKBII DSKLS CTRL PRT4
CZREDB.P1

02-DEC-77 10:00

1160

{{Es
000174

000000

DISPREG:

003334

1170

000214

000137

003314

000204

888%?3

1173

1175

000220

1177

000046

1179
118C

000052

1182

000114

1181

1183
1184
i{gg

00011e

PARM

s JUMP TO OPERATOR ASSIGNED PARMETERS

ACT11 HOOKS

(000000
006220

WORD
O
. =§SVPC

,,2)551 LOC.S2 TO ZERO
;3 RESTORE PC

034526

MEMERR

:MEMPARITY ERROR HANDLER

. =52

000114

000340
001000

. =MEMVEC

.SBTTL

PR7
.=1000
APT PARAMETER BLOCK

< 3636 3 36 3 36 3 3 3 36 36 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 36 3 3 3 3 3% 3 3 3 3 3 I 3% 3 3 3 3 3 3 3 3 I % 3 3 3% % 3 3 3% ¥# 3% % % %

000024

001000
000024
000200

00004Y

1204

001006

000000

1206

001012

000032

i2ly
1215

Jmp

:31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

001000

1213

:JUMP TO RESTART ROUTINE

$ENDAD

1200

1212

RESTRT

fiooxs REQUIRED BY ACTLI

000052

001000
001000

iigg

1208
1209
1210
1211

Jns1

034062

0ooo44

1807

: SOFTWARE DISPLAY REGISTER

:SAVE PC

1199
11385
1196
1197

1205

.SBTTL

.WORD O
,,sorrunas SWITCH REGISTER
srnarznc ADLRESS (ES)
ImMP
ST RRT ;s JUMP TO srnnrrnc ADDRESS OF PROGRAM

QET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1189

1201
1202
1203

003324

.WORD

SSVPC=.

1188

1193

.SBTTL

000046

1187

1190
1191
1192

SWREG:

o 363536 36 36 36 36 36 36 3 3 36 36 36 3 36 36 3 3 36 3 3 3 3 3 3 3 3% 3 3 U 3 3 % 3 3 3 3 3 3 3 3 % 3 3 3 3 W 32 I Ak % KX K% X% %% %%

1174

1178

SEQ 0023

: #SEQUENCE YO CATCH ILLEGAL TRAPS AND INTERRUPTS

000000
000137

1176

PRGE 23

;Locnrxonlo CONTAINS O TO CATCH IMPROPERLY LORDED VECTORS

000176
000200

if;é

10:20

000174

1165
1166
1167
iigg

02-DEC-77

TRAP CATCHER

s #¥ALL UNUSED LOCATIONS FROM
4 - 776 CONTAIN A . 42, HALT"

1161

1164

MACY1l 30(1046)

KO2

iliilll!**llli!lllllll*!!lll*l!lllll!!!!!!!!ll!!ii!!llll!l!***!

.8X=.
=24
200

;;SAVE CURRENT LOCATION
ISET POWER FQIL T0 POINT TO START OF PROGRAM
i ;FOR APT START

: :POINT TO RPT INDIRECT RDDRESS PNTR.

$APTHDR ,,POINT TO APT HEADER BLOCK
§X
::RESET LOCATION COUNTER
; l*l*l!llll!!*!ii*ll!!ll!*l!illlll!l!!*l!!l**!l*l*l!!**!l*illl*l»
éerup APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
*INTERFACE SPEC.

001000
001002
001004

001010

$APTHD:

000000
001214
000000

§HIBTS:
SMBADR:
$TSTM:

000000

SUNITM:

000100

.WORD
O
.WORD ~ SMAIL
.WORD

$PASTM: .WORD
MSP=

.WORD

"WORD

BITE

000200
000400
001000
002000

MIND=
MCLK=
MERD=
MEWD=

BIT?
BIT8
BIT9
BITIO

010600

PCD=

BIT12

004000
020000
040000

PCR=

BITIl

ECCW=
BITI3
WRTGAT= BIT1H

;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
'RUN TIM OF LONGEST TEST

‘

,,RUN TIME IN SECS. OF 1ST PRSS ON 1 UNIT (QUICK VERIFY)
ADDITIONAL RUN TIME

(SECS)

OF A PRSS FOR ERCH ADDITIONAL UNIT

SETEND-SMAIL.2 ,,LENGTH MAILBOX-ETABLE (WORDS)
AINTENARNCE SECTOR PULSE

nnxnrennucs INDEX
'MAINTENANCE CLOCK
'MARINTENANCE ENCODED READ DATA
*MAINTENRCNE ENCODED WRITE DATA

PRECOMPENSATION novn CE
:PRECOMPENSATION DELR

'ECC WORD IS BEING Rsno OR WRITTEN
:WRITE GATE

c 88

CZRERBO PK&ll
fgi?

PRTY
82KLS bé CTRL
Z77°10:00
100000

.SBTTL

1221
1222
1823
1224
1225
1226
1227

000040
000100
000200
000400
001000
002000
004000

1228

1229

1230

1232

iS%fi

_6BTTL

;Locnrxonlg CONTAINS O TO CATCH IMPROPERLY LORDED VECTORS

000000
000000

1238

000200

000137
8885?3

003324

1241

000214

000137

003314

1245

1246

000220

1248

000046

1250
1251

0000S2

1253

000114

1249

1852

1254
1255

000116

iggg

1266

000024
000044

1268

28START

PARM

RESTRT

;;JUMP TO STARTING ADDRESS OF PROGRAM

RCT1l HOOKS

;JUMP TO RESTART ROUTINE

s JUMP TO OPERATOR RSSIGNED PARMETERS

! HOOKS REQUIRED BY ACT11

:SAVE PC

034062

$ENDAD

s31)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP

000000
000220

CWORD
O
.=$SVPC

;32)SET LOC.52 10 ZERO
:: RESTORE PC

MEMERR

:MEMPARITY ERROR HANDLER

000052

. =52

000114

- =MEMVEC

034526
000340
00100u

.SBTTL

PR?7
=1000

APT PARAMETER BLOCK

001000
000024

i*l!*ll*li!il&lllli!l!ll!i!!!!!!llll!!l!lll!!lll!!!!!lllilll!l*
.$X=.
;;SAVE_CURRENT LOCATION

=2y

000200

aoo

000044
001000

001000

!SET POMER FAIL TO POINT TO START OF PROGRAM

,,FOR APT START UP

:POINT TO APT INDIRECT ADDRESS PNTR.
SRPTHDR } }POINT TO APT HERDER BLOCK
$X
'RESET LOCATION COUNTER

!l*!i!l**ll!*!‘i!*li*l*l*l*llllllll**il**l!!*l!!lll*!!!ll*l}*l!

'&ETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC

;sgg
ie7l

mpP

s s SOFTWARE DISPLAY REGISTER
: {SOFTWARE SWITCH REGISTER

o 363636 36 35 36 36 36 36 36 3 36 3 3 36 36 36 36 36 36 36 36 3 36 36 36 3 3 36 36 3 3% 36 3¢ 36 36 3 36 3 3 3 3 3 3 3 3 3 3 I 3 3 3 3 3 3 ¥ 3 % 3% ¥ % % %

1267
4

sranr:nc RDDRESS(ES

Jnglq
.SBTTL

O
O

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1260
1261

1264
1265

.SBTTL

.WORD
.WORD

$SVPC=

1259
1263

003334

000046

1258

1262

DISPREG:
SWREG:

o 363636 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3 36 36 36 3 3 3 3 3 3 3 36 3 36 3 36 36 36 3 3 36 36 3 3 3 3 3 3 3 3 36 3 36 3 3 3 3 3 % 3 X X %

1244
1247

TRAP CATCHER

! ¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

{sgg

'RECALIBRATE connnno
:START SPINDLE COMMAND
*DRIVE RETURN TO CENTERLINE COMMAND
*CLEAR ERROR AND DSC
:FORMAT
: UNLORD
!SET VOLUME VALID (PACK ACKNOWNLEDGE)

000174

000204

;s SEEK COMMAND

:¥ALL UNUSED LOCATIONS FROM4 - 776 CONTAIN n " 42,HALT"

1235
1236

1533

TRANSMITTED MESSAGE R

§.RECL= BITS
S.5TSP= BITH
S.RTC= BIT7
§.CLR= BITS8
S.FMT= BIT9
S.UNLD= BITIO
S.PACK= BIT1I

000000

1231

;READ GATE

S.SEEK= BIT

000020

1220

PAGE 24

RDGATE= BITIS

1513

1237

29+ SRQHE§E2 EC-77
BLOCK 10:20

MACTY1l 30(104

LO2

*INTERFACE SPEC.
001000

$APTHD:

SEG 0024

CZR6DBO RKBL1
CZREDB.P11
1272
1573
1274
1278
1276
12?7

001000
8 1002
1004
001006
001010
0gi012

DSKLS CTRL PRTH
0e-DEC-77 10:00

MRCYL1

30(1046)
02-DEC-77
APT PARAMETER BLOCK

000000

S:IB;E:

. WORD

000000
Q00000
000032

$PASTM:
SUNITM:

.WORD

BBAGAG

TE$M:' ) LORD
.WORD
. WORD

10:20

SMAIL

MO2

PAGE 25

SEQ 0GCes

;; TWO HIGH BITS OF 18 BIT MAILBOX RDCR.
;;:ADPR
£ APT
MAILBOX (BITS 0-1S)

;5383 fifi 8F LONG s; ?Esr

S'RUN TIME IN SECS, OF 1ST PASS ON 1 UNIT (QUICK VER 1 F Y )
! 'RODITIONAL RUN TIME (SECS) OF A PASS FOR EACH RDDI T I o NAL UNIT

SETEND-SMAIL
2 ;;LENGTH MAILBOX-ETARBLE (WORDS)

MACY1l 30(1046)_

02-DEC-77

1278

.SBTTL

COMMON TAGS

1587
1281
1282

CZR6DBO RKGE11 DSKLS CTRL PRT4

CZR60B.P11

1284

1285

1286

1287
1268

0e-DEC-77 10:00

001100

001102
001103

001100

$CMTAG:

000000

; ;CONTAINS THE TEST NUMBER
;1 CONTRINS ERROR FLAG

o
SCOPE L 0OP ADDRESS.
{+: ' CONTAING
CONTAINS SCOPE RETURN FOR_ERRORS
'

000000
©N000C
0Q5aNN

SGDDAT: .WORD
§BODAT: .WORD
.WORD

O
O
0

: : CONTAINS *GOOD’ DATA
: 1 CONTAINS *BAD’ DATA
; ' RESERVED--NOT TO BE USED

001134
88{{32

000
000228

$AUTOB:
SINTAG:

.BYTE
.BYTE

G
0

: ;AUTOMATIC MODE INDICATOR
;' INTERRUPT MODE INDICATOR

001180
001i42
001144
001146
001150
001152

177570
177570
177560
177562
177564
177566

SWR:
DISPLAY:
$TKS:
§TKB:
§TPS:
§TPB:

WORD
.WORD
177560
177562
177564
177566

D
D

; ; ADDRESS OF SWITCH REGISTER
; ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
:1TTY KBO BUFFER
:1TTY PRINTER STATUS REG. ADDRESS
:1TTY_PRINTER BUFFER REG. ADDRESS

001124
001126
001130

1302
1303
1305
1306
1307
1308
1309
1310

SERTTL:

StRMAx: (BYIE
OG
[LoRD
SGDADK:
.WORD
$8DADR:

001i32

001154
001185
001156

000000

SNULL:
SFILLS:
§FILLC:

000
002
g1

001164
001166
001i70
001172
001179
061176
001200
001202
001204
001210
Q01211
001212

000000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

.WORD

.BYTE
.BYTE
.BYTE

O
2
I

[WORD OO
STHPO. .WORD

001180 oo0DoD
1312
1316 001ib2 000000

O
O

; ;START OF COMMON TRGS

::CONTRINS TOTAL ERRORS DETECTED

1298
1299
1306

i3g§

[HORD OO
SLPADR:
SLPERR: .WORD

gor
1533 Biirs
001128 000000
1532
297 001122 000000

1331

WCRD

000200

1350

PAGE 26

.WORD

001112

i317
1318
1319
1320
1321
1322
1323
1324
1325
1336
1327
1328
c

.=1100

$TSTNM: .BYTE
SERFLG: .BYTE

00g
000

1292

1311
1312
1313

NO2

L
COMMON STORAGE LOCATIONS
VARIOUS COMMON
CONTAING VARIOUS
LE_CONTAINS
T ABLE,
4TH
e
: #USED IN THE PROGRAM.

89118 ©B0g00o
1393
1291 001110 0G0GO0

1301

COMMON TRGS

10:20

§TMPI:

000377

CONTAING HAX. FRRORS-PER TEST
'
DRTA ’
OF 600D
t: CONTAING ADDRESS
; ;CONTAINS ADDRESS OF ’'BRD’ DRTA

: ' CONTAINS NULL CHRRACTER FOR FILLS
ICONTRINS # OF FILLER CHARACTERS REQUIRED
;1 INSERT FILL CHARS. AFTER R “LINE FEED

s [ LAG (BITCOTy=0mES)
L OCER DEFINED

; $USER DEFINED

: {USER DEFINED
O
.WORD
$TMP2:
; iUSER DEFINED
C
.WORD
§TMP3:
§TMPY:
.WORD
O
: tUSER DEFINED
:tUSER DEFINED
O
.WORD
§TMPS:
: ;USER DEF INED
O
.WORD
§TMPE:
: {USER DEF INED
O
.WORD
§TMP7:
; MAX. NUMBER OF ITERATIONS
STIMES: O
:ESCAPE ON_ERROR ADDRESS
§ESCAPE: 0
$BELL:
.ASCIZ <207>¢377>¢<377> ;;CODE _FOR BELL
:SQUESTION MARK
.RSCII /7%/
$QUES:
:$ CARRRIAGE RETURN
.ASCII 1S
§CRLF:
3LF:
.ASCIZ 2>
::LINE FEED
o o 36336 3036 36 6 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3t 96 36 36 3% 36 36 36 96 36 36 36 36 36 36 36 36 36 36 0 3 3 36 3 3 3 3 3 36 3 3 3 3% 3 3 36 6 3% 36

"8BTTL APT MAILBOX-ETABLE
:

LBOX-

;é!!**l!l*lll**!!*i***i*l*k*i**i**!l**lfllll**t**!l*ll**!***lll!l*i
.EVEN

SEQ 0026

SZR6DBO Rkb11 DSKLS CTRL PRT4
T7REDB. P11
02-DEC-77 10:00

1334

001214

1336
1337
1338

001216
001220
001222

1335

1339
1340
1341
1342
1343

1344

1345
1346
1347
1348

1349

1355

SMAIL

§MSGTY:

.WORD

AMSGTY

001224
001226
001230
001232
001234

000000
000000
000000
000000

SDEVCT: -WORD
SUNIT:
.WORD
§MSGRD: .WORD
$MSGLG: .WORD
SETABLE:

ADEVCT
RUNIT
AMSGRD
AMSGLG

SENVM:
§SWREG:
SUSWR:
$CPUOF:

RENVM
ASWREG
AUSWR_
ACPUOP

001234

001235
001236
0012490
001242

000000
000000
000000

000

000
000000
000000
000000

SFATAL: .WORD
$TESTN: .WORD
$PASS: .WORD

$ENV:

.BYTE
.BYTE
.WORD
(WORD
.WORD

001244

001245

000

§MAMS1:

.BYTE

000000

$MADRY: .WORD

001266
001270
001272
001274
001276

000000
1774940
000000
000000
000000

1372 001264 000210

1378
1373

001300

;;FATAL ERROR NUMBER
;:TEST NUMBER
;;Pnss COUNT

;:DEVICE COUNT
;;I1/0 UNIT NUMBER
; ;MESSAGE RDDORESS
;:MESSAGE LENGTH
T ENVIRONMENT TRBLE

,,Envxnonneur BYTE

;;ENVIRONMENT MODE BITS
;:APT SWITCH REGISTER
;;USER SWITCHES
CPU TYPE,OPTIONS

8175 15-112CPU TYPE

AMAMS1

BIT
BIT

9=FLOATING POINT PROCESSOR
8=MEMORY MANAGEMENT

;;HIGH ADDRESS,M.S. BYTE

AMADR! ;;HIGH nooREs
sl
MEM. L nook -3 BYTES, THIS WORD AND LOW OF "TYPETM ABOVE
AMAMS2 ;;HIGH nooREss M.S. BYTE'

001262

000

;;MESSAGE TYPE CODE

tnnon1 .WORD
&nnnsa .BYTE

T
¥

1371

001261

,,nPT MAILBOX

AMTYP1

001260

000

SEQ 0027

§MTYP1: .BYTE
-¥

1369

000600

PAGE 27

11,70=06,PD@=07,0=10
BIT 10=REAL TIME CLOCK

001251
001252
001254
001255
001256

000
000000
000
000

Ty
sy

BO3

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

1364
1365
1366
1367

1373
13749
1375
1376
1377

RENV

Dy
S

1361 001246 000000
1362
1363 001250
000

1370

AFATAL
ATESTN
APASS

1358
1359
1360

1368

10:20

000000

1351
1352

1356
1357

30(1045)
02-DEC-7?
MAILBOX-E TRBLE

001214

1350

1353
1354

MACYI

gMTYP2:
3MADR2IMAMS3:
$§MTYP3:
$MADR3:

.BYTE
.WORD
.BYTE
.BYTE

AMTYP2
AMADR2
AMAMS3
AMTYP3

;;nsn TYPE, BLK k2
,,nzn LAST' nooaess BLK#2
HIGH ADDRESS,M.S.BYTE
;:MEM. TYP%,BLK53

AMAMSY

:;:HIGH Agoaess S BYTE

AMADR3

SMTYF4:

.BYTE

~ AMTYPY

$VECT2:
$BASE:
$DEVM:
$COMl:
$COM2:

.WORD
.WORD
.WORD
.WORD
.WORD

AVECT2
RBASE
RDEVM
ACDWI
RCOW2

§VECTL: .WORD

SEIEND:
CMEXIT

(MIGH BYTE)

900 NSEC CORE=001
oo NSEC BIPOLAR=002
NSEC nos-ooa

.WORD

§MAMSY: .BYTE

::MEM. TYPE,BLK#I1
MEM.TYPE BYYE
--

AMADRY

AVECTY

,,nsn LAS

noonsss BLK#3

; MEM.T

;;MEM. Lnsr noonsss

;;INTERRUPT vscronb1 BUS PRIORITY#!

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

CZR6DBO RK611 DSKLS CTRL PRTY
De-0eC-77 10:00
CZReDB.P11

MACY1l 30(1046)

ERROR POINTER TABLE
.SBTTL

1380
1381

02-DEC-77

; ¥NOTE]L:
; *NOTE2:

X
]
=1
1
$ERRTB:

001300
046111
044116
042456
o43012

o B

Bt Pt ot et Bt

s ot

e Pt ot Pt Bt

o
¥
g

001326

046156
052052
042504
043042

i
g

et Pt Bt Pt ot Pt Pt

000000
000000
o4a4e2
043016

[ Pt

PAGE 28

SEG 0028

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

s #THE ¥NFORMQTégg I?H?gTRINEERBY USING THE INDEX NUMBER_FOUND IN

; #LOCATION SIT

P o o PP PP PP PP PP PP PP PP IS
W)
£W

CO3

ERROR POINTER TRBLE

;#THIS TRBLE CONTAINS THE

1382

1435

10:20

001330
001332
001334
001336

046156
052070
Q4es04
043042

001340

046156

001346

o43042

001350
001356

001360
001362
001364
001366

046233
052052
Ques0oy
043042
046233
052070
042504
043042

NUM

INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

IF SITEMB IS O THE ONLY PERTINENT DATA IS ($SERRPC).
EACH ITEM IN THE TABLE CONTRINS 4 POINTERS EXPLAINED RS FOLLOWS:

; ;POINTS
; ;POINTS
;sPOINTS
; ;POINTS

EM
DH
DT
DF

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATR HERDER
DATA
DATA FORMRT

;

ERROR 1:

UNEXPECTED MEMORY PARTIY ENRB.E TRAP

ERRUN 2:

WRITE BIT ERROR

EMW:

;

EMOQO
DHOOOC
DT000
DFO00

0
DT002
F
DFO02

ERROR 3:

ATTEMPTING TO CHECK SEEK MESSAGE FOR READ DRTA

ERROR 4:

RATTEMPTING TO CHECK SEEK MESSAGE FOR READ DATA

CS1 INCORRECT
EM300
EM4000
DT003
DFO03

Efiggofl INCORRECT
EM4001
DT003
DF003

ERROR 5:

RTTEMPTING TO CHECK SEEK MESSAGE FOR RERD DATRA

ERROR 6:

ATTEMPTING TO CHECK SEEK MESSAGE FOR WRITE DATA

RROR 7:

ATTEMPTING TO CHECK SEEK MESSAGE FOR WRITE DATA

EESSOB INCORRECT

Eal INCORRECT

MESS A INCORRECT
EM301

EM4001
DT003
DFO03

ERROR 10:

ATTEMPTING TO CHECK SEEK MESSAGE FOR WRITE DATA

CZR6DBO RKE11 DSKLS CTRL PRTH

CZR6DB.P11

o017
1932
43 001374
88i%fe
1439

1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1467
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468

1469

1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484

1485
1486
1487
1488
1489
i480
1491

0e-DEC-77 10:00
84 233
S¢lll

001376

042504
043042

001400
001402
001404
001406

Q46311
052052
Q42504
043042

001410
0QQINle

046311

QOI4IH
001416

001420

001422
001424
001426

001430
00143¢
001434
001436
001440
001442

043042

046311
052111
C 42504
043042
046370

043042
046370

001444

30(1048)
02-DEC-7?7
ERROR POINTER TRBLE

10:20

D03

PRGE 29

MESS B INCORRECT

ATTEMPTING T0 CHECK SEEK MESSAGE FOR WRITE CHECK
RECT

ATTEMPTING TO CHECK SEEK MESSAGE FOR WRITE CHECK
ERROR 12:
HESS A INCORRECT

OF003
ATTEMPTING T0 CHECK SEEK MESSAGE FOR WRITE CHECK
ERROR 13:
HE%BEB INCORRECT
EM
EM4002
DT003
DFO03

ATTEMPTING T0 CHECK CLERR MESSRARGE FOR READ DATA
ERROR 14:
CS1 INCORRECT
EM303
EM4000
DT0O03
DFOO3

ATTEMPTING TO CreCK CLEAR MESSAGE FOR READ DATA
ERROR 15:
E%SSafl INCORRECT
DTO03
DF003
RATTEMPTING TO CHECK CLEAR MESSAGE FOR READ DATA
ERROR 16:
T
INCORREC
B
MESS
EM383
EMY002
DTO03
DFO03

001446
001450
001452
001454
001456

001460
001462
001464

MACY11l

ERROR 17:

001466

043042

001470
001472
001474
001476

O46446

00ls00

O4e44E

043042

ATTEMPTING T0 CHECK CLEAR MESSAGE FOR WRITE DRTA

CS1 INCORRECT
EM304
EMY000
DT003
DFO03
ATTEMPTING T0 CHECK CLEAR MESSAGE FOR WRITE DATA
ERROR 20:
MESS A INCORRECT
EM30Y4
DFO0J3

ATTEMPTING TO CHECK CLEAR MESSAGE FOR WRITE DATA
ERROR 21:
MESS B INCORRECT
EM304

SEQ 0029

CZReDBO RKb11 DSKLS CTRL PRTY

CZR6DB.P11
1492
1493
1494

1495

001S0e
001S34
001506

02-DEC-77 10:00
0Selll
042504
043042

001510
0Q0IS1e

046525
0Se0Se

001516

043042

02
03
04

LL£EL
L L L L LWWWWWWWWWLWRINNINIMN NN NINNY =t b b b pe b
—
\w\m.:wm-—o.om\w"m;wm»—o.om\ammzumo-o\nm\w*m.:ua‘::ogggagg

T
T
Y
Y
T
Sy i Sy Ny
S
oy S
Y
Ll ol ol ol e
ey O
e
Sy e
o
e
T e
T S
O
[

499

gicnidnuiinnidnanAn
i
ity

1496
1437
1498

001S14

001520
001522
001524
001526
001530
001532
00153
001S3c

MACY1l 30(1046)

ERROR POINTER TRBLE

;
:

042504

046525
052070
042504
043042
046525
0S2lll
042504
043042

046605
0Se0s52
Q042504
043066

001550
001552

04660S
0sSel3e

001556

043066

001554

001560
001562
001564
001566

;

;
;

;

;
;
;

042504

Q46605
052162
042504
043066

046707
052052
042504
043066

;

046707
0S2132
(042504
043066

PAGE 30

ATTEMPTING TO CHECK CLEAR MESSAGE FOR WRITE CHECK

CS1 INCORRECT
EM30S
EM4000
DFO03

ERROR 23:

ATTEMPTING TO CHECK CLEARR MESSAGE FOR WRITE CHECK

MESS A INCORRECT
EM30S
EM4001
DTO03
DF003

ERROR 24:

ATTEMPTING TO CHECK CLEAR MESSARGE FOR WRITE CHECK

MESS B INCORRECT

EM30S
EM4002
DT003
DFOO03

ERROR 25:

ATTEMPTING TO CHECK HERDER GENERATION

WITH VARIOUS CYLINDER VRLUES

CS1 INCORRECT
EM306
EMY000
DTO03
DFO2S

ERROR 26:

ATTEMPTING TO CHECK HERDER GENERATION

WITH VARIOUS CYLINDER VALUES
FIRST WORD OF HERDER INCORRECT
EM306
EM4003

DF02S

ERROR 27:

ATTEMPTING TO CHECK HERDER GENERATION

;
;

WITH VARIOUS CYLINDER VALUES
SECOND WORD OF HEADER INCORRECT

;

ERROR 30:

;

CS1 INCORRECT
EM307
EMY000
07003
DF02S

EM306
EM4Y00Y
DTO03
DF025

ATTEMPTING TO CHECK HERDER GENERATION

WITH VARIOUS TRACK VALUES

ATTEMPTING TO CHECK HERDER GENERATION

;

ERROR 31:

;

FIRST WORD OF HERDER INCORRECT

;

001600
001602
C01604
001606

ERROR 22:

EQ3

DT003

;

001570
001572
001574
001576

EM4002
DT003
DFO03

10:20

DTO03

001540
001542
Q01544
00.5S46

02-DEC-77

WITH VARIOUS TRACK VALUES

EM307
EMH4003
DTO03
DF0eS

SEG 0030

CZREDBO RKE!1
CZReDB.P11

1548
1549
1550

1551
1SS2
1553
1S54

185§

1556
1557

1558
1559
1560
1S61

1562
1563
1564

1S6S
1566
1567
1568

1569

1570
1571
oo o e nnniniinniniiniiigininin i
O0O000WD0W0
OO DD 00D
Mo D

1572
1573
1574
1575

1576

1577
1578
1579
1580
1s81
i
g
1584
1585
1586
1587
1588
1589
1590

001610
00lele
001614
001616

001620
O00ie22
001624
001626

001630
001632
001634
001636

001640
001642
001644
00le46

001650
001652
001654
001656

001660
0016b2
001664
001666

DSKLS CTRL PRTY
02-DEC-77 10:00

1597

1598
1599
1600
1601
i
s

001670
001672
001674
001676
001700
001702
001704
001706

;
;
;

046707
0S2lee
042504
043066

047006
052052
042504
043066

047006
052132
042504
043066

047006
052162
042504
043066

047106
052052
Q42504
043066

047106
052132
Q42504
043066

1591

1584
1595
1596

MACYI! 30(1046)
02-DEC-77
10:20
ERROR POINTER TRBLE

Q47106
052162
042504
043066
047206
052052
Q42524
043112

;
:
;

;
;
;

;

;
;

;
;
H

;
;

;
:

;

FO3

PARGE 31

ERROR 32:
RATTEMPTING TO CHECK HEARDER GENERATION
WITH VARIOUS TRACK VALUES
SECOND WORD OF PEADER INCORRECT

EM307
EM4004
DT003
DFO25

ERROR 33:

ATTEMPTING TO CHECK HERDER GENERATION

WITH VARIOUS SECTOR VALUES
CS1 INCORRECT

EM308
EM4000
DTOO03
DFO2S

ERROR 34:

ATTEMPTING TO CHECK HERDER GENERATION

WITH VARIOUS SECTOR VALUES
FIRST WORD OF HERDER INCORRECT

EM308
EM4003
DTO03
DFO25

ERROR 3S:

QTTENPTING TO CHECK HERDER GENERATION

WITH VARIOUS SECTOR
VALUES
SECOND WORD OF HERDER INCORRECT

EM308
EMHO0Y4
DT003
DFO25

ERROR 36:

ATTEMPTING TO CHECK HERDER GENERATION

ERROR 37:

ATTEMPTING TO CHECK HERDER GENERATION

WITH VARIOUS FORMAT VALUES
CS1 INCORRECT
EM309
EM4000
DTO03
DF025

WITH VARIOUS FORMAT VALUES
FIRST WORD OF HERDER INCORRECT

EM3 09
EM4003
DTO03
DF0eS

ERROR 40:

ATTEMPTING TOEgHECK HEADER GENERARTION

WITH VARIOUS FORMAT VA
SECOND WORD OF HERDER INCORRECT

EM309
EM4004
07003
DF025

ERROR 41

RATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DATA

ERROR 42:

ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DRTA

CS1 INCORREC
M31
EMY000
DTC41
DFOY41

SE@ 0021

¢ ZR BOBD RK&11l

Do Pt Gt Bt Pt Pt Pt e @ ot Pt Pt Pt Pt Pt et Pt Pt Pt Pt Pt Bt Bt Bt et Pt Pt s ot Pt Bt et et Pt i Pt P

Pt Pt Pt P Pt ot Pt Pt Pt Pt Pt ot Pt Pt Pt Pt Pt

oo Joadoafoalondoadendeadeats
\loglogto ol oo oo alo als a¥oato alo als a¥o aTo pT0 aT0 aT0 g¥0 a¥0 230 o14 ol oo
oo
[Ta]V, PV ot o o3 ot of £ £ £ L LWWLIGWWL GG LWMNINININIMN M PRI b= e b e b ps pe e 1 = O O O
- O0o~NN £ W= OWD NN L WOV
NN LWN—DNMNO N LWN—OO00N

C ZR6DB. P11

OSKLS CTRL PRTY
C2-DEC-77 10:00

MACY11

30(1046)
02-DEC-77_
ERROR POINTER TRBLE

10:20

GO3

PAGE 32

CSe INCORRECT
EM310
EM4005
DTO41
DFOHI

ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DRTA

ERROR 43:

ERROR REGISTER INCORRECT

001726

043112

001730
001732
001734
001736

047206

001740

052254
a42524
043112

047206
052302
o425a4
043112
047206
052327
042554
043146

047206

001776
002000

ERROR 44:
ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DATA
Egg 800 INCORRECT

DFO41

ERROR 4S:

NgRD COUNT
EM310
EM4008
DTJ41

ERSO& 46: ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DATA
&

ERROR 47:
ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DATA
ESS éNCORRECT AFTER READING DATA BUFFER

043146
047206
052447
042554
043146

DF 046

047273
052052
042606
043216
047273

INCORRECT

855
INCORRECT AFTER READING DATAR BUFFER

EM4010
STOHS
FO46

047206
052525
Qu2574
043172

ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DARTA

ERROR 50:
ATTEMPTING TO CHECK NPR_TRANSFER FOR WRITE DATA
ERROR REG INCORRECT AFTER READING DATA BUFFER

ERROR S1:

ATTEMPTING TO CHECK NPR TRANSFER FOR WRITE DARTA

DATA READ FROM MEMORY INCORRECT
EM310
EM4012
DTOSI
DFOS1

ERROR S2:

RATTEMPTING TO CHECK HERDER RECOGNITION

CS1 INCORRECT
EM311
EMH000
DT0S2
OF 0se

ERROR S53: ATTEMPTING TO CHECK HEADER RECOGNITION
EgéliNCORRECT AFTER GAP IN WRITE DATA

SE3 003e

CZReDBO RKE11 DSKLS CTRL PRTH

CZRe0DB.P11

02-DEC-77 10:00

{eeD Bpcpe fases
e R
042632
043266

1671
1672
1673
1674

002040
002042
002044
002046

047342
052667
Q42632
043266

1677
1678
1679
1680

002050
002052
002054
002056

047407
052633
Q04eb3e
043266

002060
002062
002064
002066

Q47407
052667
092632
043266

002070

047453

002076

043266

[

e e

T S

e S

oy ey sy

002034
002036

N NNNINNNIN YNNI
YN
o oo
oo oo o oo oo oo o e
= e e -~ O QOO0 000000 W VDD D O U DD D
MDD
NLEWNN—-ODVONTNIWNL—~OOOMNCNLWNN—0DODONOUNILEW

1667
1668

047453
043266

0
e

002120
00clee
002124
002126
002i30
002132

047522
0s2727

042622

043242

047616
052052
Q42554
043146
047616
052212

MARCY11l

02-DEC-77
30(1046)
ERROR POINTER TRBLE

10:20

PRGE 33

brdes

ERROR S4: ATTEMPTING TO CHECK SECTOR INCREMENT
g%gKaRDDRESS REG INCORRECT

qulq

DTOSHY
DFOS4

ERROR 5S: ATTEMPTING TO CHECK SECTOR INCREMENT
E;E{QDER ADDRESS INCORRECT

DFO3Y

ERROR 56: ATTEMPTING TO CHECK TRACK INCREMENT
DISK ADDRESS REG INCORRECT

OF OSY4

ERROR S~. ATTEMPTING TO CHECK TRACK INCREMENT
E;L{QDER ADDRESS INCORRECT

DFO5Y4

ERROR 60: ATTEMPTING TO CHECK CYLINDER INCREMENT
DISK RODRESS INCORRECT

054

ERROR b1: ATTEMPTING TO CHECK CYLINDER INCREMENT
CYLINDER ADDRESS INCORRECT
EM401S
DTOSY
DFOSY4

ERROR 62:
MRINT.

EM31S
EM4016
DTOS3
DFOS3

ATTEMPTING TO CHECK SECTOR PULSE CETECTION WITH

WRITE DRTA

REG.

ERROR 63:

INCORRECT

ATTEMPTING TO FORCE BAD SECTOR ERROR

CS1 INCORRECT
EM316
EM4000
DTQ46
DF 046

ERROR &4:

ATTEMPTING TO FORCE BAD SECTOR ERROR

caa INCORRECT
EM316
EM400S

SEQ 0033

002134

MACY1! 30(1046)
02-DEC-77
10:20
FRROR POINTER TABLE

0Q42554

;

4314

002136 4314k

002140
002142

002144

002146

002150
002152

002154
002156

047616
0See230

002160
002162

0021e4
002166

;

(042554
043146

Q42554
043146

002200
002202

Q47761
052052

002306

043312

002204

002210
002212
002219
002216

002220
002222
002224
002226
002230
002232
002234
002236
002240

;

050020

CS1 INCORRECT
EM317
EM4000

ERROR 67:

ATTEMPTING TO FORCE HEADER VRC ERROR

ERROR 70:

ATTEMPTING TO FORCE HERDER VRC ERROR

WHEN BAD SECTOR PRESENT
CS2 INCORRECT
EM317
EM400S
DTO46
DFC46

WHEN BAD SECTOR PRESENT

ERROR REG INCORRECT

EM317
EMY006
DTO46
DF 046

ERROR 71:

RTTEMPTING TO FORCE HVRC ERROR

31
EMY000

Jo1071
;

;

0FO71

ERROR 72:

ATTEMPTING TO FORCE HVRC ERROR

€52 INCORRECT

EM318
EM300S
D7071
0FO71

ERROR 73:

ATTEMPTING TO FORCE HVRC ERROR

ERROR REG INCORRECT
EM318
EM4006

047761
052230
042646
(043312
050020
052052
042674
043346

RATTEMPTING TO FORCE HEADER VRC ERROR

WHEN BAD SECTOR PRESENT

Eal éNCORRECT

042696
Q47761
052212
092646
043312

Egg?g REG INCORRECT

DTO46
DFO46

047663
(052212

047663
052230
042554
043146

ERROR 65: RTTEMPTING TO FORCE BROU SECTOR ERROK
DFO46

ERROR 66:

002170
002172
002174
002176

D;O:b

DF 046

043146

047663
052052

PAGE 34

EM4006
DTOu46

042554

-ews

ODONCNLWNN—ODDNCN LWNU—-OOONTWNLWNN—OVONCN LW—~0O0mND
—~ OO NCN LW

Gy Sy S S
Y Wy Sy SUY S
Y oy oy Gy Dy NPy iy Uy WDy Py Wy Uy WPy W
k)l o
Y
o ey e e oy e e e e e et ol oy Sy e e e ey ey O e
Ll

NN oIV
E L S£££
£L
£ L £ L WWLWIWLWILIGLLLLNA NN
R NTY RN = 0—

iy Gy Gy

N NN N NN NN N NN N N NN N NN NN NN NN NN N N NN N N N N N NN NN N N N N N N NN NN NI NN N

CZR6DBO RKB11 DSKLS CTRL PRT4
CZR6DB.P11
02-DEC-77 10:00

103

D;O?l
071

ERROR 74:

ATTEMPTING TO FORCE OPERATION INCOMPLETE

ES% %NCOR ECT

;

EM4000
DTO74
DFQ74

ERROR 75:

ATTEMPTING TO FORCE OPERARTION INCOMPLETE

EagléNCORRECT

SEQ 0034

CZR6DBO RKG&11 DSKLS CYRL PRTY
NN LW~ ODVONNLWH—O0ONOCONLEWRI—-ODONCNLZWN—O0ODONCN
LW~V
NN LW

[

ol el o

o e

e ot

Y e

ey e

CZR6DB.P11

0g2242

02-DEC-77 10:00
042674
043346

002250
002252
002254
002256

050020
052230
042674
043346

002270
002272
002274
002276
002300
002302
002304
002306
002310
g0e312
002314

050020
052565
042716
043372
0S0071
052052
042674
043346
0S0071
0se221e2
042674
043346
0S007}
052230
042674

002316

043346

002320
002322
002324
002326

050071
052565
042716
043372

002330
002332
002334
002336

0S015S
052052
042674
043346

002340
002342
002344
002346
002350
002352
002354

ERROR POINTER TARBLE

0S01SS
0Ss22ie
042674
043346
0S01SS
052230
Q42674

10:20

JO3

PRGE 235

EM400S

0Seele

002244
002246

002260
002262
002264
00226k

MACY11 30(1046)

02-DEC-77

;

:
:

;
;

DTO74
DFO74

ERROR 7?6: ATTEMPTING TO FORCE OPERATION INCOMPLETE

ERROR REG INCORRECT
EM319
EMY006
DTO?H
DFO74

ERROR 77: ATTEMPTING TO FORCE OPERATION INCOMPLETE

MR1 INCORRECT AFTER GAP IN WRITE DRTA
EM319
EM4013
DTO??
DFQ?7?

ERROR 100: ATTEMPTING TO FORCE OPI WITH HVRC ERRGR ON HERDER 37
CS1_

INCORRECT

EM320
EM4000
DTO74
DFO74

ERROR 101: ATTEMPTING TO FORCE OPI WITH HVYRC ERROR ON HEARDER 37
CS2_INCORRECT
EM320
EM400S
OTO?H
DFO7Y4

ERROR 102: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER 37

ERROR REG INCORRECT
EM320
EM4006
DTU?H

DFO74

ERROR 103: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER 37
MR1 INCORRECT AFTER GAP IN WRITE DATA

EM32 0

EM4013
01077
DFQ?7

;

ERROR 104: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HEARDER 36

;

ERROR 105: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER 36

;

CS1 INCORRECT
EM32]
EM4000
DTO74
DFO74

CS2_INCORRECT
EM32]
EMH400S
DTO?H
DFO74

ERROR 106: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER 36
ERROR REG INCORRECT
EM321
EM4006
DTO74

SEQ 003s

002356

043346

002360
002362
002364
002366

050155
225865
042716
043372

002370

050241
0s5e0s2
042674
043346

002376
002400

050241
gs2ele
Q42674
043346

050241
0See30
042674
043346

002426

0S0241
052565
042716
043372

002430

050324

002432
002434
002436

043346

002440
002442
00244y
002446

050324
gseele
042674
043346

002450
002452
002454
002456

0S0324
043346

002460
002462
002464
002466

0S03e4
052565
Q42716
043372

MACY1l

30(1046)
02-DEC-77
ERROR POINTER TRBLE

10:20

KO3

PRGE 36

DFO74
ERROR 107: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER 36
MR1 {NCORRECT AFTER GAP IN WRITE DRTA

DFQ77

ERROR 110: ARTTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER O
CS1 INCORRECT
EM322
EM4000
DTO74
DFO74
ERROR 111: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER O

ESE

INCORRECT

ERROR 112: ATTEMPTING 7O FORCE OPI WITH HVRC ERROR ON HERDER O
ERPOR REG INCORRECT
EM322

ERROR 113: ATTEMPTING TO FORCE OPI WITH HVRC ERROR ON HERDER O
MR1 INCORRECT AFTER GAP IN WRITE DATA
EM322
EM4013
D107?
DFQ7?7
CHECKING HEADER RECOGINTION WITH PREVIOUS BRD
ERROR 11Y4:
SECTOR ERROR CS1 INCORRECT
EM323
EMY000
DTQ74
DFO74
CHECKING HERDER RECOGNITION WITH PREVIOUS BRD
ERROR 115:
SECTOR ERROR CS2 INCORRECT

DF
ERROR

EM323
EM4006
DTO74
DFO74
ERROR 117:
EM323
EM4013
01077
DFQ?77
ERROR

Ng HEADER RECO? ITION WIT H PREVIOUS BRD
RROR
ERROR
INCORRECT

116:

120:

ING HERDER RECOGNITION WITH PREVIOUS BRO
R ERROR MR1 INCORRECT

oOX

R gmmmmmmmmmm £

Bt et Pt e ot Bt ot et (s o ot et s P

et Pt s

s s ot s Pt Bt Pt P Pt Pt Pt s Bt Pt Bt s Pt s et Pt s s ot et Pt Bt et Bt Bt B

(Emmmmmmmmmmmmmmmmm

0D 000000 (0 00 /00 €0 0 0D G0 KD(3D 0D 0D €0 0D (O 6D 00 (O (D00 O oo
~N NNNNOCOC
O
£LL
£ L L LWWWWWwWwwwwnn
£ WOV
DN
LW
DONNLW—-0OWw o~ o NLW—-O0OVONCNLWNN—0ODD

CZREDBO_RKB11 DSKLS CTRL PRTH
CZR 60B. Pll
pe-DEC-77 10:00

CHECKING HEARDER RECOGNITION WITH PREVIOUS HERDER

SEQ 003&

CZR&DBO RK611 DSKLS CTRL PRTH
02-DEC-77 10:00
CZR6DB. Pll

e Bt Pt

et Pt Pt Pt ot st Pt P

Pt Pt (et

s s it Pt Pt Pt Pt Pt Pt et Pt Pt Bt P Pt Pt Pt Pt P

D OD 0 D DWW DU D D OO0
D DD OO DD DD D NelVo Ve RV IV IV [N o BN SV IV IV o
WwWw W W WL LNVDU
e pe e e pe = = 0= = O OO O QO
Vali V]TN LWN—~OOM NV L W~ OV m N
LWL~
O DN "N

Pt Pt Pt

1884
1685

MACY11l

02-DEC-77
ERROR POINTER TRBLE

30(1046)

0S0417
052052
Q42674
043346

002500
002502
00e504
0025086

050417
gs221e
Q42674
043346

002s10
00esie
002514
00eS1e

0s041?
052230
042674
043346

EM3eY
EMY4006
DTO74
DFO7Y4
ERROR 123:

002520
0gesee
00eSe4
002526

0s041?7
052565
042716
043372

EM32Y
EM4013
01077
DFQ77
ERROR 124:

002530
002532
002534
002536

0s0s12
052052
Q42674
043346

EM325
EMY000
DTO74
DFO74
ERROR 125:

002540
002542
002544
002546

0s0sie
gsezie

EM32S
EMY400S
DTO74
OF074
ERROR 126:

ERROR

121:

EM324

PRAGE 37

SEQ@ 0037

INCORRECT

CHECKING HEADER RECOGNITION WITH PREVIOUS HERDER
VRC ERROR CS2

INCORRECT

EMY005S
DTO74

DFO74
ERROR l22:

002550
002552
002554
002556

gsosie

002560

002566

gsosie
052565
042716
043372

EM325
EM4013
DT077
DFO?77

002570
00eS7e
002574
002576

0s0e02
052052
042674
043346

EM326
£M4000
DT374
DFQO74
ERROR 13!:

002600

050e02

EM326

043346

LO3

VRC ERROR CS1

002470
00e472
002474
002476

042674
043346

10:20

EM325
EMY 106
DTO74
DFO74
ERROR 127:

ERRROR

130:

WI TH PREVIOUS HERDER
CHECKING HERDER REC OGNITION
G?
VRC ERROR
ERROR REG
INCORRECT

CHECKING HEADER RECOGNITION WITH PREVIOUS HERDER
VRC ERROR MR!1

INCORRECT

FORCING BRD SECTOR ERROR WITH PREV HEADER
VRC ERROR CS1

INCORRECT

FORCING BRAD SECTOR ERROR WITH PREV HERDER VRC ERROR
CS2 INCORRECT

FORCING BRD SECTOR ERROR WITH PREV HEADER YRC ERROR

ERROR REG

INCORRECT

FORCING BAD SECTOR ERROR WITH PREV HERDER VRC ERROR
MR1

INCORRECT

FORCING HEADER VRC ERROR WITH PREV BRD SECTOR ERROR
CS1 INCORRECT

FORCING HERDER VRC ERROR WITH PREV BRD SECTOR ERROR
CS2

INCORRECT

CZR6DBO RKb11

CZReDB.P11

DSKLS CTRL PRTY

0e-DEC-77 10:00

MACYLll

30(1046)

ERROR POINTER TRBLE

1940

Q5gglie
144] BBSeqe BRSEAS
1942

002606

043346

1945
1946

002610
00e6le

0S0602
052230

1943
1944

002620

;
;

195S
1956
1957
1958

002630
002632

1959
1960

002634
002636

1
1364

002640
002642

1961
lggg

051021
052745

042730
043416
0S1072
052745

{968 Oosede Basaie
196

1968
1969
1970
1971
1972

i37

002650
002652
002654
002655

051135
052052
Q42554
043146

1974
1975
1976
1977
1978

002660
00egebe
002664
002666

05113S
052212
Q42554
043146

1981
1982
1983
1984

002670
002672
002674
002676

051135
052230
(042554
043146

1979
13980

1985

1986
1987
1988
1989
1990

1991

1992
1993
i994
1995

002700
002702
002704
002706
002710
002712
002714

;

050602

253
Bocesn BaSre
1954
433

051222
052052
042554
043146
0Si222
052212
(042554

1C:20

MO3

PRGE 38

M400S
BYo%

19y
B6%eld BaS8le
lgflg
1950
1951

02-DEC-77

;
H

;
;

;

DFO7Y4

ERROR 132:
EM326
EM4006

FORCING HEADER VRC ERROR WITH PREV BRD SECTOR ERROR
ERROR REG INCORRECT

Br074
ERROR 133: FORCING HEADER VRC ERROR WITH PREV BRD SECTOR ERROR
MR1 INCORRECT

EM326

51027°
DFQ7?7

ERROR 134:
EM329
EM4017
DT134
DF 134

ERROR 13S:
EM330
EM40O17

B¢ 134

ATTEMPTING TO CHECK ECC PRTTERN CLERRING
ECC PRTTERN INCORRECT

ATTEMPTING TO CHECK ECC GENERATION
ECC PATTERN INCORRECT

ERROR 136:

ATTEMPTING BAD SECTOR ERROR SETTING CONTROLLER ERROR

ERROR 137:

ATTEMPTING BRD SECTOR ERROR SETTING CONTROLLER ERROR

;
;

ERROR 140:
ERROR REG.

ATTEMPTING BAD SECTOR ERROR SETTING CONTROLLER ERROR
INCORRECT

;

ERROR 141:

RTTEMPTING HERDER VRC ERROR SETTING CONTROLLER ERROR

ERROR 142:

ATTEMPTING HEARDER VRC ERROR SETTING CONTROLLER ERROR

;

;
;

;

;
;

CS1 INCORRECT
EM331
EM4000
01046
DF Q046
€S2 INCORRECT
EM331
EMH400S
DTO46
DF 046

EM331
EM4006
DTO46
DFO46

CS1 INCORRECT
EM33e
EMY000
DTO46
DF 046

CS2_INCORRECT
EM332
EMY00S
DT0O46

SEQ 0038

CZR6DBO RKEe11 DSKLS CTRL PRTH
02-DEC-77 10:00
CZReDB. P11

nRAYVLNDNYNY
0000000000
m.—.—.—.—p—..—p..p_p.
nN—O0WVONTNLWNN—-OW

00271&

043146

MARCYi1

002730
002732
002734
002736

051403
052052
042792
043442

002740
002742
002744
002746

251403
ps2212
Q42742
043442

002750
002752
002754
002756

051403
052230
o4e74e
043442

002760
002762
002764
002766

051403
052254
0427492
043442

EM335S
EM4007
DT14Y4
DF 144

002770
002772
002774
002776

051403
052302
Q42752
C4344e

DT1494
DF 144

051457
003026

0432186

SEQ C039

PRSG E 39

ERROR 143: ATTEMPTING HERDER VRC ERROR SETTING CONTROLLERRERROR

ERROR REG.
EM33e
EMYG06

002726

051403
052633
032742
043442

NO3

DFO46

0Sleez
052230
042554
043146

051403
0Sees?
Q42742
043442

10:20

02-DEC-77_
30(1046)
ERROR POINTER TARBLE

INCOPRECT

DT046
Y
DFO46

ERROR 144: RTTEMPTING COMPLETE EXECUTION
CS1 _INCORRECT
EM33S

WRITE DATA

EMY000
DT 144
OF 144
ERROR 145: ATTEMPTING COMPLETE EXECUTION OF WRITE DATA
Ca2 INCORRECT

ERROR 146:
ERROR REG.
EM33S
EMG006
DT 144
DF 144

ATTEMPTING COMPLETE EXECUTION OF WRITE DATA
INCORRECT

ERROR 147: ATTEMPTING COMPLETE EXECUTION OF WRITE DATA
BUS_ADDRESS INCORRECT

ERROR 150: ATTEMPTING COMPLETE EXECUTION OF WRITE DATA
WORD COUNT INCORRECT
EM335
EMY008

ERROR 151: ATTEMPTING COMPLETE EXECUTION OF WRITE DATA
EgLIgDER ADD INCORRECT

ERROR 152; ATTEMPTING COMPLETE EXECUTION OF WRITE DRTA
DISK ADDRESS INCORRECT
EM33S
EM3OD1Y
DT 144
DF 144

ERROR 15%: R¥TEMPTING ERROR CLEAR WITH CONTROLLER CLERR
CS1_INCORREC

DFOSe

ERROR 1S84: ATTEMPTING PARTIAL SECTOR WRITE WITH ZERC FILL

CZR6DBO RKB11 DSKLS CTRL PRTY
CZREDB.P11
02-DEC-77 10:00
205¢
20S3
20S4

2055
2056

2057

003030
003032
003034
003036

051534
052052
04e74e
043442

2058
2059
2060
c0bl
2062

003040
003042
003044
003046

051534
0Seele
Q42742
043442

2065
2066
2067
2068

003050
003052
003054
0030Se6

051534
052230
Q042742
043442

2063
coeY

2069
2070
2071
2072
2073
2074

207s

2076
2077
2078
2079
2080

2081

2082
2083
2084
2085
2086

2087

2088
2089
2090
2091
2092
2093
2094
209S
2096
2097
2098

2099
2100
2101
2102
2103
Sigg

003060
003062
003064
003065
003070
003072
003074
003076
003100
003102
003104
003106
003110
003112
003114
003116
003120
003122
003124
003126

003130
003132
003134
003136

051534
(52254
042742
043442
0S1534
0S2302
Q42742
043442
051534
052667
042742
043442
051534
052633
(042742
043442
052005
052745
043002
043476

052005
052745
042730
043416

MACY!l 30(1046)
02-DEC-77
10:20
ERROR POINTER TRBLE
;

;

;
;

;
:

;
;

BO4

PAGE 40

SEQ 0040

CS1_INCORRECT
EM337
EM4000

DT144
OF 144

ERROR 155:

ATTEMPTING PARTIAL SECTOR WRITE WITH ZERO FILL

CSe_INCORRECT
EM337
EMY00S
DT144
DF 144

ERROR 156: ATTEMPTING PARTIAL SECTOR WRITE WITH ZERO FILL
ERROR REGISTER INCORRECT

EM337
EM4006
DT144
DF 144

ERROR 157:

ATTEMPTIN PARTIAL SECTOR WRITE WITH ZERO FILL

ERROR 160:

RTTEMPTING PARTIAL SECTOR WRITE WITH ZERO FILL

ERROR 161:

ATTEMPTING PARTIAL SECTOR WRITE WITH ZERO FILL

ERROR 162:

ATTEMPTING PARTIAL SECTOR WRITE WITH ZERC FILL

BUS_ADDRESS
EM337
EM4007
DT144
DF 144
WORD COUNT
EM337
EM4008
DT144
DF 144

INCORRECT

CYLINDER ADDRESS
EM337
EM401S
DT144
DF 144

INCORRECT

DISK ADDRESS INCORRECT
EM337
EM401Y
DT144
DF 144
ERROR 163: ATTEMPTING WRITE DATA
RKECPT INCORRECT
EM340

EM4017
DT1S!
DF151

ERROR _164:

RKECPT
EM340
EMY017
DT134
DF 134

IN 18 BIT MODE

ATTEMPTING WRITE DATA IN 18 BIT MODE

INCORRECT

nUMJ MU N

MU MU AUTVMY MV MRV TV LTV NBTVNL Y PV PSPV AL TV

TU U PO

PPV MV MY

OO0

NN
030

0 RK611

Pll

DSKLS CTRL PRTY

02-DEC-77 10:00

MACYIl

30(1046)

10:20

co4
PAGE

TEMPORARY STORAGE FOR RKB11 CONTROLEER REGISTER
.SBTTL

14
883143
BORRH0

02-DEC-77 _

TEMPORRRY STORAGE FOR RKb611

T.CS1:
.WOR
Tag:
CHoRd

CONTROLLER REGISTER

;CONTROL AND

STATYS REGISTER 1
{HORD COUNTRECISTER

00314~
003146
nglgg

000000
00000C
8 000

T.BA:
T.DA:
T.CS2:

.WORD
.WORD
.WORD

O
O
8

:BUS ADDRESS REGISTER
!DESIRED TRACK _SECTOR REGISTER
CONTRO% AND STATUS REGISTER 2

003154
003156
888122

000000
000000
8800

T.ER:
.WORD
T.ASOF: .WORD
T.DCYL: .WORD

O
O
O

ERROR REGISTER
SATTENTION SUMMARY AND OFFSET REGISTER
0£§RRSEYbINDER REGISTER

003164
003{96

000000
000000

O
0

:MAINTENANCE REGISTER 1
ngln¥€ngNCEREGISTER 2

003174
003176

000000
000000

O
O

ECC PATTERN INFORMATION
:SPARE REGISTER

88317

003200

003202
003204
003206
003210

000

888888

000000

T.D05S:

.WORD

1.08:

.WORD

T.ECSS: .NSR

T.MRl:
}.RSE:

.WORD
.fiOSD

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

DRIVE

STARTUS REGISTER

P SI??SN ENR%RHRT?ON

.SBTTL

EXPECTED RK&E11 CONTROLLER REGISTERS

E.CS1:

.WORD

; CONTROL RAND STQTUS REGISTER 1

000000
000000
000000
000000

E.WC:
E.BA:
E.DA:
E.CS2:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

:WORD COUNT REGI
;BUS ADDRESS REGISTER
'DESIRED TRACK SECTOR REGISTER
,CO TROL RAND STATUS REGISTER 2

000000

E.ER:

.WORD

ERRE 8 g

003220
003222
003224

000000
000000
0000030

E.DCYL: .WORD
E.DB:
.WORD
E.MR1:
.WORD

O
O
O

003232
003234

00000
000000

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

O
O
O

003212

000000

003216

000000

003214

003226
003230

003236

000000
000000

000000

E.DS:

.WORD

E.ASOF:

.WORD

E.MR2:
E.MR3:

.WORD
L.WORD

O
O

;DRIVE STRTU: REGXSTER

;ATTENTION

SUMMARY AND OFFSET REGISTER

:DESIRED CYLINDER REGISTER
:DATA BUFFER
:MRINTENANCE REGISTER 1

MQ%NT NANC
; MRINTENANC

REgié E
TER

{ECC POSITION INFORMQTION
{ECC_PATTERN_INFORMATION
:SPARE REGISTER

SEQ 00M!1

CZR6DBO RKB11
CZREDB.P11

DSKLS CTRL PRTY
02-DEC-77 10:00

MACYI1

giza
2145

2146
2147
2148

2149

003240

003242
003244
003246

000214

000240
000000
00000C

30(1046)
02-DEC-77
10:20
PROGRAM DEF INED VARIABLES

PROGRAM DEFINED VARIABLES

RKVEC:

.WORD

RKPRI: .WORD
TRAPPC: .WORD
SRTFLG: .WORD

ERRCNT:

.WORD

2154
2185

PR.BIT:
M1.BIT:

.WORD
.WORD

2156
2127
2188

003252

000000

003260
883552
3264

000000
888800

003274

oooooo

083 Sy
003256

P1.BIT:

880000
0000

PAGE 42

.SBTTL

Sl&é 003250 000000
2153

DO4

M2.BIT:
BITCNT:
WRDCNT:

214

SEG Q042

sRK611 VECTOR noosss

PRS
O
O

'RKb11 PRIORIT
:TRAP PC FOR nsnonrv PARITY OPTION
:START FLAG

snnon counr FOR ABORT ERROR THRESHOLD

O
O

,pnsssur BIT
iBIT-

.WORD

.WORD
.WORD
.WORD

O
O
O

.WORD

;

0 = 200

INEXT BIT

;BIT-E
:BIT COUN
:WORD counr FOR NPR TRANSFERS

iy 883573
goise amoeed
5121
888888

R
Egcx
R: .WOR
8

{2 ARGTBRL
IaNT Bl O
Eé
FOR Sl
ECC GENERATION

2163
2164
2165
2166
2167
2168

SECTOR:
TRACK:
CYLN:
HEADER:
HORCNT:
SAVSWR:

:SECTOR FOR INCREMENT TEST
:TRACK FOR INCREMENT TEST
:CYLINDER FOR INCREMENT TEST
'EXPECTED FOR INCREMENT TEST
*NUMBER OF HEADERS FOR OPI’S
:STORAGE FOR SWITCH REGISTER

2162

003276
003277
003300
003302
003310
003312

ooo
000000
000000
000000
000000

MEMPAR:

00CO0D

000000

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

O
O
O
0,0,0
O
O

:FLAG FOR MEMORY PARITY OPTION

MACY11l

MOV

003322

012737

000001

003246

PARM:

003324
003332

012737
000402

177777

003246

RESTRT: MOV

003334

005037

003246

003346
003352
003356
003362

105037
012706
004737
012746
012746
000007

001103
001100
040550
000340
003370

003366

CLR
START:
START1: RESET

CLRB
MOV
JSR
MOV
MOV
RTI

EQ4

PAGE 43

SEQ 0043

81, SRTFLG

:LOAD START FLAG FOR PARMETER START

#-1,SRTFLG

:LORD START FLAG FOR RESTART

SRTFLG

;CLEAR START FLAG
RESET THE HHOLE SYSTEM

STARTI

SERFLG
#STACK, SP
PC,STKINT
#PR?7, - (SP)
818, -(SP)

CLERR ERROR FLAG
xnxranxzz srncx POINTER
PINIT KEYBORRD
:LOAD STACK TO LOCK OUT ALL INTERRUPTS
*LOAD START OF PROGRAM
:LORD PSW

1%:

003370

10:20

PROGRAM SETUP

000406

0033i4

012706

INITIALIZE THE COMMON TAGS
_SBTTL
; ;CLEAR THE COMMON TAGS (SCMTARG) RFER
;FIRST LOCATION TO_BE CLERRED
CSCNTRG R6
MOV

001100

003376

022706

001140

003404

012706

001100

220l
220e
2203
2204
2205
2206
2207
2208

003410
003416
003424
003432
003440
003446
0034s4
003462
0034?70
003476
003502
003506
003S14
003522

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
012737

034646
000340
037404
000340
042366
000340
042232
000340
033726
001200
001202
000001
003514
003S22

e2ll
2cle
2213
22l4
2215
SS%?

003530
003534
003542
003550
003556
003se4

013746
012737
012737
012737
022777
001012

000004
003570
177570
177570
177777

2218
2el9
2220
ee2l
2222
2ee3

003566
003570
003574
003576
003604
003kle

000403
Q012716
000002
012737
012737
012637

2209
2elo

30(1046)
02-DEC-77
PROGRAM SETUP

.SBTTL

OVONCN
LW OV NN LW—O
VD NN 3(3”0’-'3 O

—

DD wDD 3D 000 D B D D D D 00 G0 DD NNNNNNNNNY
IJ1 3 0 0 3 3

nuML NN RVNY R NRVVIVIVIVIVRDRVVV
VLV VYR VIV VY v

CZRBDBO RK611 DSKLS CTRL PRTH
0e2-DEC-77 10:00
CZReDB.P11

CLR
CMP

BNE

MOV

000020
000022
000030
000032

(RB)+

:CLEAR MEMORY LOCATION

NO
,,LOOP BACK IF

CSNR R6 ;;DONE’

'SETUP THE STACK POINTER

E A FEH vefoas
,,INITIQLIZ
#$SCOPE , 28I0TVEC ;-xor VECTOR FOR SCOPE ROUTINE
MOV
MOV

MOV

MOV
MOV

#3490 aoiorvsc+e

EVEL 7

#SERROR, I8EMTVEC’ : ;EMT VECTOR FOR ERROR ROUTINE
7
8340 aaén7vsc+a EVEL
sSTRAP, 98 TRAPVEC' TRQP VECTOR FOR TRAP CALLS
8340, JBTRAPVEC+2; Lé

SSPLADN . J¥PWRVEC' ; POHER FAILURE VECTOR
#340 aoPuRvsc+a ,,t

MOV
CLR

ssnoér SEOPCT
§TIMES’

,,serup ENO OF-PROGRAM COUNTER
'INITIALIZE NUMBER OF ITERATIONS

MOVB
nov

81, SERMAX
s.,sPnon

,,nLLou ONE ERROR PER TEST
INITI ALIZE THE LOOP ARDDRESS FOR SCOPE

CMP
BNE

$-1,ISUR
663’

! TRY TO REFERENCE HARDWARE SWR
'BRANCH IF NO TIMEOUT TRAP OCCURRED
'AND THE HARDWARE suR IS NOT = -1
..annncn IF NO TIMEOUT

CLR

SESCAPE

LEAR THE ESCAPE ON ERROR ADORESS
LOOP ADDRESS

ETUP THE ERROR
LPERR
OR IT IS
NOT FOUND
IFSWITCH
RsctSTER
SWITCH
Hnnouhns
n
roa
,,sxzs
REGISTER.
TWARE
SOF
n
ron
SETUP
"-1",
A
TO
:EQUAL
; 1 SAVE ERROR ECTOR
JkERRVEC, - (S
MOV
VECTOR
ERROR
:ISET UP FOR
asshnvec ,,ssrup
csus
MOV
A HARDWARE SWICH REGISTER
#0Sid
MOV
cooxsb oxsanv 'AND A HARDWARE DISPLAY REGISTER
MOV

003576

64 :

QQY

65%

$65S, (SP)

1!SET UP FOR TRAP RETURN

000176
000174
000004

653 :

MOV

#SWREG , SWR

,.POINT TO SOFTWARE SWR

¥ ¥

MOV
MOV

80 ISPREG, DISPLAY
(SP)+,38ERRVEC :;RESTORE ERROR VECTOR

c‘nsoeo RKG11 DSKLS CTRL PRT4
CZREDB.PI1
02-DEC-77 10:00C

2225
2226

2227
2228

2229
2230
2231
2232

003616
003622

003630
003632

003640
003640

005037
132737

001403
012737

FO4

MACYLIl 30(1046)
02-DEC-77
10:20
PAGE 44
INITIALIZE THE COMMON TAGS

001222
000200

001235

001236

001140

005037

003250

177777

2233
2234

00344
003650

005227
0010SS

2236
2237

003660
0036be

001451
104401

2239
2240
2241

003666
003672
003674

005737
001012
123727

000042
001234

000001

2243
2244
2245

003704
003712
003714

023727
001005
104406

001140

000178

112737

000001

001134

2235

2238

2242

2246

003652

003702

003716

2247

0037206

2249

003726

2248

2250

003726

2251

004004

2283
2254

004010
004012

2252

2255
2256
2257

022737

001406

000403

034062

000042

003730

00S227

177777

004016
004024
004026

022737
001117
104401

000001

043671

004036

104402

2261
2262
2263

004044
004046
004052

104412
012637
001407

004040

2264

004054

2266

2265

2267

104401

003246

043522

2269

00406M

013737

104401

001160

043557

001270

004102

042716

160000

2270
2271
2272
2273
2274

004106
004110
004114
004116
004122

2276

004132

2278

004142

2275

2277

2279
2280

004124

104402
104401
104412
012637
001407

004134

013737

001160

001264

004146

00OSO46
113716

043607

001265

#42
7os
SENV, 81

CMP
BNE
GTSWR

SWR, #SWREG
718

MOVB

#1,$AUTOB

7$:

718

68%

_ASCIZ

:YES, USE NON-RPT SWITCH
*NO,USE APT SWITCH REGISTER

;;ncr-11

i BRANCH_IF _YES
:TYPE RSCIZ STRING

INC

,OPROO2

RDOCT
MOV
BEQ

(SP)+,$TMPO
73

BHI

CMP

#160000,8TMPO0

§TMPO, SBRSE

::GO TYPE--OCTAL ARSCII(ALL DIGITS)
sGET VALUE
sCHECK IF

<CR>

:CHECK IF IN I1/0 PAGE
:LORD NEW BUS ADDRESS

#160000, (5P)

*CLEAR PRIORITY BITS

tvscrx -(SP)
,OPROO2

(SP)+,$TMPO
108

#1000, STMPO

TYPE

,OPR
ob

MOVB

) ="

*TYPE "RKb11 VECTOR ADDRESS (

CLR

::SAVE $BASE FOR TYPEOUT

OPROO3

BLOS

MOV

GET OVER THE ASCIZ

:CHECK IF PARAMETER START
'NO, CONTINUE SETUP
'TYPE “RKb11 BUS ADDRESS (

TYPE

MOV

; sSET AUTO-MODE INDICATOR

k1, SRTFLG
st

Senss,—(sp)

TYPE

' 'SOF TWARE SWITCH REG SELECTED?
: 'BRANCH IF NO
D:GET SOFT-SWR SETTINGS

:T¢PE RUN TIME MESSARGE FIRST PASS ONLY

MOV

' 'BRANCH IF YES

»-1

2%
OPROO6

CMP
BNE
TYPE

;s ARE WE RUNNING UNDER XXDP/ACT?
; ;BRANCH IF YES
'ARE WE RUNNING UNDER APT?

<CRLF>/RKb11 DISKLESS DIAGNOSTIC: PART 4 CZR&DBO.<CRLF>

BNE
TYPE

TYPOC
TYPE
RDOCT
MOV
BEQ

10$:

70%

B8R

CMP

001160

004180

2§%:

043551

001000

104401

TST
BNE
CMPB

BIC

022737
101757

718:

001160

2268 004076 013746 001264

ses

TYPOC

001160

004072

70$:

043551

160000

101361

$SENDRAD, asu42

aso
TYPE

BEQ

5%:

022737

004062

CMP

Las:

2258 004032 013746 001270
2260

67%
#$SWREG, SWR

..CLERR PASS COUN
::TEST USER SIZE UNDER APT

CLR
EPRCNT
.SBTTL
TYPE PROGRANM NAME
::TYPE THE NRME OF THE PROGRAM IF FIRST PASS
INC
s-1
;;FIRST TIME”
BNE
688
'BRANCH IF NO

698:

004004

2259

£7%:

BEQ
MOV

$PASS
$APTSIZE,SENVM

.SBTTL csr anut roa SOF TWARE sfitrcn REGISTER

000426

001602
104401

CLR
8178

SEQ 004d

:GET VALUE
;CHECK

(CR»

:CHECK IF LEGAL

§$TMPO, SVECTI

:LORD NEW VECTOR ADDRESS

l{spP

‘MAKE FOOM ON THE STACK

svsc11+x,(sp1

) ="

*GET VECTOR ADDRESS FOR TYPE oOuT

:TYPE “RK&il PRIORITY (

‘GET PRIORITY

) ="

006216
006216
006216

(
(
(
(
(

043551

,OPRO0O2

001160

000007

001160

(SP)+,$TMPO
15%
87, STMPO

000004

001160

84, STMPO

001160
001160
001160
001160
001160

001264
001265
003240
003240
003242

10$

§TMPO
§TMPG
STMPO
STMPO
STMPO
#160000, SVECT!

15%:

NEWPRS:

004332

012745
00o002

02-DEC-77
10:20_
_PAGE 4 S
GET VALUE FOR SOFTWRRE SWITCH REGISTER

30(1046)

VVVOO

004154

MRCY11

uuvnY)

CZR6DBO RKB11 OSKLS CTRL PRTY
CZReDB. Pll
02-DEC-77 10:00

004334

$TMPO, SVECTI+1
SVECT! , RKVEC
8160000, RKVEC
svscrx;é,nxpar
PC , PARCHK

#PRO, - (SP)
#75Ti, -(sP)

;SHIF RIGH S BITS

+GET VALUE
: CHECK FOR DEFAULT
{CHECK IF LEGAL

:SHIFT S BITS LEFT

;GET PRIORITY BITS

)
;CLERR ESCAPE
;ENRBLE MEMORY PARITY
;LOCK OUT INTERRUPTS

SEQ Q0u4S

CZREDBO RKGI1 DSKLS CTRL PRTY

CZReDB.P11

02-DEC-77 10:00

MACY1l 30(1046)

.SBTTL

eaiq

:TEST 1

2317

‘¥

5312

.
»
tx

1
5318
S%S?

- %

004334
004336

000004

012737

SSSE 884344
81Q12762
70
4350

2327 004356

000062

086870
100606

001200

004406
0044I4
ooM422
004430
004434

012762
012762
012700
O0l2762

2338
2339

004450
004452

005300
0061370

004442

O0lc7ee

003400
000007
012021
000016
000440

012762

000040

000000

000026

1$:

2346
2347
2348
2349
gggg

004526
004526
004530
004532
004540

023737
001405
104003
0i2762
000412

003200

0063140

100000

000000

2352

004542

023737

003226

003166

2%:

2356

004562

001401

003230

003170

3%:

Sggg
2359

ggg?

004550
(004552
004554

004564

001401
104004
023737

164005
.

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV

003140
003166
0063170
003200

000000
000034
000036
012021

071027
037760

ORB cS ? f79§7§ LOCK 5

nhxe SURE IT IS GENERATED PROPERLY

DEC
BNE

016237
016237
016237
012737

012737
012737

MoV
MOV
MOV

004454
004462
004470
004476

004504
004512

CLEAR THE RKO®& SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT THE

goggROthanNEolncnoggég nogs INIESUE777RESDRDQTR 52132

MGV

000006
000010
000000
000026

READ DATA SEEK MESSAGE

MOV
MOV

2340
2341
2342
2343

2353
2354
2355

##TYPE C INSTRUCTION’S DRIVE MESSARGES

MOV

012762 000040 000026

2331
2332
Sgga
2335
2336

2344
2345

SEG O0M6&

AND
EEK nsg gcs

. o 33636 363 3 3 3 3 36 3 36 36 9 36 3 35 36 36 36 36 36 36 3 36 3¢ 36 36 3 3 3 3 3 3 36 36 3 3 36 3 3 96 3 3 3 3 3 3¢ 36 3 3 3 o6 2 3 X% X £ % X%
SCOPE
+471:

4372 Bistes
0127 42227
55216 388384
004
B3ud%3
358
2330 004400 012762 001777 000020
2337

PAGE 46

, illiili!llllll!l!lili!lllllll!!l!lllllll!l!iilllll!lllli!fi!!ll

2313

2324

10:20

»#TYPE C INSTRUCTION’S DRIVE MESSAGES

Sgié

23ee
2323

02-DEC-77

HO4

MOV
MOV

003226
003230

CMP
BEQ
ERROR
MOV
BR
CMP

sr MES

BAS

oono kKHR&lRB) TRKS&é sno;ncnosrxc MODE

oautr RKBQ(RE)

L300bDUMMY BUS ADDRESS

#1777 RKDCYL(R2) ;LOAD CYLINDER ADDRESS REG.
#3400’ RKDR(RE) Lbno TRACK
87 RK(S2(R
LOAD DRIVE
N
}gaus RDDATA WITH COT SET IN

sCOT!CFMT? RoonTnRKSSI(RSTO
#3¥4+2 R0
1CLOCK IN DRIVE MESSAGE
$DMD! MALK . RKMR1 (R2)
#DMO, RKMR] (R2)

RO
18

RKCS1(R2),T.CS1 ;STORE connnuo srnrus REG. 1
. T-MR2 :STORE MAINT REG. 2 nEss A)
RKMR2(R2)
' T.MR3 ;STORE MAINT REG. 3 (MESS 8)
RKMR3(R2)
#CDTICFMTIRDDATA’E.CSI
:LOARD EXPECTED ¢Sl

#S.SEEK'S.FMT! 70007 E.MR2 :LOAD EXPECTED MR2
;LOAD EXPECYEDMR3
$37760,E,MR3
:CHECK COMMAND AND STQTUS REG. 1 CORRECT
g.csl,t.Cs1
1YES, CHECK MESSAGE A
2%
:CS1’ INCORRECT
3
#CCLR,RKCS1(R2) :CLEAR RKb1l
1560 TO NEXT TEST
TST2

E.MR2, T.MR2

BEQ
ERROR
CMP

3%
4
E.MR3, T.MR3

ERROR

BEG

; 83 sg ITERnTéons

S
L 0 K6
.CCL
RKCS1(R2)

TST2

A _CORRECT
; CHECK MESS

'YES, CHECK MESSAGE B
:MESSA INCORRECT
'CHECK MESS 8_CORRECT

YES, GO ON TO NEXT TEST

fiess B INCORRECT

o B335 3626263636 336 20 36 96 36 36 36 36 36 36 36 3 3 36 36 36 36 36 36 36 36 36 36 46 36 96 26 36 36 36 06 36 36 06 36 06 36 3 36 3 3 3 3 H M M H M X A X R

2362
2363
2364

sx
‘x
Ly

WRITE DATA SEEK MESSAGE
CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLEAR. PUT
ISSUE A WRITE DATR OF
CONTROLLER IN MARINTENANCE MODE.
ONE uono TO AN RKO& IN 249 SECTOR FORMAT, CYLINDER 1777,

¢ 236E

PROPER MESSRGE IS ASSEMBLED.

2365

'TEST 2
;l'

TRACK7. DRIVE7. CLOCK IN SEEK MESSAGE.

CHECK IF

CZR6DBO RKE11l DSKLS CTRL PRTM
02-DEC-77 10:00
CZReDB. Pll

MRCY11 39é104&)

02-DEC-77

10:20_

104

PRGE 47

SESJ 0047

WRITE DATA SEEK MESSAGE

HRE4

004662
004666

000062

00ie00

012023

000000
000026
000002
000004
000020
000006
000010
0ooo00

000016
000440
000040

000026
000026

000000
000034

003200
004764
oo4772
004774
00s002
005004
005006
0osolH4
00s0l6

MOV

18:

023737
001401
104007
023737
001401
104010

003166

2%:

003230

003170

3%:

::D0 50.

ITERATIONS

'L 0AD RKb11 BASE
;CLEAR RKb1l
:PUT RKbll IN DIAGNOSTIC MODE
:LORD WORD COUNT

MOV
MOV
MOV
MOV

#1777 RKDCYL (R2)’ Lono
#3400 RKDA(R2) ;LOAD TRACK
87 RKLS2(R2)
:LORD oaxVE NUM
scOHT? crnr uaonrn RKCS1(R2) ;ISSUE WRDATA WITH COT SET IN
24 SECTOR’FORMAT
' CLOCK IN DRIVE MESSAGE
#3¥442, RO
! MALK RKMR1 (R3)
$DMD
$DMD, RKMR! (R2)

MOV

MOV
MOV

BUS ADDRESS
nautr RKBA(R2) ;LORD DUMMY
CYLINDER ADDRESS REG.

RO
18

;STORE COMMAND srnrus REG.

MOV

RKCSL(R2),T.CS1

MOV
MOV
CMP

? nna -LORD EXPECTED MR2
#S.SEEK'S.RTC'S.¢n7-7ooo
LORD Ethcrs
;:CHECK
#37760,E.MR3
COMMAND nno STQTUS REG. 1 CORRECT
£.cS1,t.cs1

MOV
MOV
MOV

0032eb

,STIMES

$BASE, R2
#CCLR'RKCS1(R2)
oono AKMR1 (R2)
1, RKWC (R2)

DEC
BNE

100000

¥50.

MOV
MOV
MOV
MOV

MOV

o000
o

004566
004570
004576
oc4602
004610
004616
004624
go4632
004640
004646
004654

}él’illll*lll!llll{ll!lllllll*ill!!l*llll!liill!!l}ifiiiffliiii!i
Te:
SCOPE

2);STORE MAINT REG. 2 nsss A)
. T.MR2
RKMR2(R
RKMR3(R2) | T.MR3 STORE MAINT REG. 3 (MESS B)
#COT!CFMTVWRDATR E.CSI :LOAD EXPECTED cS1

BEQ
ERROR
MOV

F]
6

R
CHECK MESSAGE
'Y
:CS1' INCORRECT

TST3

;GO TO NEXT TEST

CMP
BEQ

E.MR2,T.MR2
33

R CORRECT
CHECK MESS
YES, CHECK MESSAGE B

ERROR
CMP
BEQ
ERROR

#CCLR RKCS1(R2) CLEQR RKG1[

7
E.MR3,T.MR3
TST3
10

nsssA INCORRECT
:CHECK MESS B CORRECT
' 'YES, GO ON TO NEXT TEST
hess B INCORRECT

; *!*liliillll*lflll!lill!lll**il!Illlll!llllil!*l!llllililfll{!«!{»i*i

SEEK MESSAGE FOR WRITE CHECK

'ETEST 3

io O
¥ <V I o o i oV
O
m'—*""’""‘."""""."
OoVONOCNL£Wh—0O

VRN

Ly
Ly
ta
Lx

CLEAR RK611 CONTROLLER WITH R CONTROLLER CLER
A WRITE CHECK
ISSUE
PUT CONTROLLER IN DIAGNOSTIC MODE.
OF 1 WORD TO AN Rxos IN 24 sscron FORMAT,

IS ASSEMBLED.

CYLINDER 1777,

‘x

005020
00s022
00S030
005034
00so4e
00s050
00s0se

HERD
7, DRIVE
7.

IN SEEK COMMAND.

CLOCK

MAKE SURE CORRECT MESSAGE

;sl*§llll‘lllglillillllll!!**lli!lllll!il*llll*!llllll!!i!!!!*liii
000050
001270
100000
000040
177777
0ssels

001200

000000
0000ek
00oo0e
000004

T3:

SCOP

MOV

MOV
MOV
MOV
MOV
MOV

#50, STIMES

$BASE, R2
#CCLR'RKCS1(R2)
#DMD, RKMR1(R2)
#-1 . RKWC (R2)
#BUFF ,RKBA(R2)

::D0 50 ITERATIONS

:LOAD RK611 BASE
:CLERR RKBIl
;PUT RKb1l IN oxncnosrrc MODE
:LOAD WORD COUNT
:LOAD DUMMY BUS ADDRESS

CZR&0B0O RK&11 DSKLS CTRL PRTY
CZR&DB. Pll
0e-DEC-77 10:00

[

Or-0O0O
M re b peo pe e = O
oo»—oooooooooget
O 00

glazee
012762
2762

005224
005226
00Se34

001777
003400
000007
012031

MACY11

30(1046)
13

000020
000006
000010
000000

000016
000440
000040

000026
000026

000000
000034
000036
012031
071027
037760
003200

003140
003166
003170
003200
003eeb
003230
003140

Jo4

10:20
PRGE 48
02-DEC-77
SEEK MESSARGE FOR WRITE CHECK

MOV

#1777 ,RKDCYL(R2)

MOV

83%4+2, RO

MOV
MOV
MOV

18:

DEC
BNE

RO
[

003e22b

003166

2%:

003230

003170

3%:

RKCS1(R2),T.CS1
RKMR2(R2),T.MR2
RKMR3(R2) ' T.MR3

BEQ
ERROR

00sesgo

#DMD
, RKMR] (R2)

MOV
MOV
MOV

MOV

000000

24 SECTOR’FORMAT
:CLOCK IN DRIVE MESSAGE

#DMG
' MELK , RKMR1 (R2)

MOV
MOV
MOV
CMP

100000

;LOAD CYLINDER ADDRESS REG.

#3400 RKDA(R2) ;LOAD TRACK
87, RKES2(R2)
:LORD DRIVE NUM.
#COT!CFMT'WRTCHK
| RKCS1(R2)
; ISSUE WRTCHK WITH CDT SET IN

MOV

#CCLR,RKCS1(R2)

ST4

E.MR2, T.MR2
3%

cCMP

E.MR3,T.MR3

ERROR

BEQ

;STORE COMMAND STATUS REG. 1
:STORE MAINT REG. 2 (MESS R)
;STORE MARINT REG. 3 (MESS B)

#COT'CFMTIWRTCHK E.CSI :LORD EXPECTED CS1
#S.SEEK'S.FMT!
70007 E.MR2 :LORD EXPECTED MR2
837760, E.MR3
:LOAD EXPECYED MR3
£.cs1,t.¢s1
:CHECK COMMAND AND STATUS REG. 1 CORRECT

cMP
BEQ

ERROR

SES J0M8

SYES, CHECK MESSAGE A
:CS1’ INCORRECT
:CLEAR RKb!]
:;G0 TO NEXT TEST

:CHECK MESS R CORRECT
*YES,
CHECK MESSAGE B

'MESS A INCORRECY

TSTY

: YES, GO ON TO NEXT TEST

ICHECK MESS B CORRECT
:MESS’'B INCORRECT

s o 36 36 36 2 36 36 3 36 3 36 36 36 36 3 3 3636 36 36 3 36 36 36 36 36 36 36 3% 3 36 36 3 36 3 3 26 36 30 6 36 3 36 36 3 96 36 3 3 3 3 36 3¢ 3 3 3 36 3¢ 3 2 3 3 3¢

RTEST 4
’

o1] ®

':
’
’
1]

0oses2
005254

005340

005346
005352
005360
005366
008370

*
*

RERD DATA CLERR MESSAGE

CLERAR THE RKb611

WITH A CONTROLLER CLERR.

PUT THE

ISS UE_A_RERD DATA TO AN
CONTROLLER ON DIAGNOSTIC MODE.
HEARD 7,
RKOB
IN 24 SECTOR FORMAT,
CYLINDER 1777
D DRIVE

cLoCK IN THE SEEK MESSAGE AND THE
7
WORD COUNT 177777.
CLEAR MESSAGE AND MAKE SURE THE CLERR MESSRGE IS CORRECT.

ty
;- "nuul;uiuu"unuuiluunuuunuuiuunnnu*u
000062
001270
100000
000040
177777
055216
001777
003400
000007
012021

000156
000440
000040

001200

&1y

$BARSE, R2

MOV
MOV
MOV

$0MD, AKMR1 (R2)
#-1_RKWC (R2)
#BUFF,RKBA(R2)

MOV

#3400 RKDA(R2)

MOV

MOV
MOV

1%:

#50. , STIMES

MOV

000000
000026
000002
000004
000020
000006
000010
000000
000026
000026

MOV

MOV
MOV

DEC
BNE

$CCLR RKCS1(R2)

;;00 50.

ITERATIONS

;L 0AD RK611 BARSE

;CLEAR RK611

:PUT RKb1l IN DIAGNOSTIC MODE
:LORD WORD COUNT
:LOAD DUMMY BUS ADDRESS

81777 RKDCYL(R2)'

;:LORD CYLINDER ADDRESS REG.

;LOAD TRACK

87, RKES2 (R2)
:LOAD DRIVE NUMBER
#COT!CFMT!RODATA,RKCS1(R2)
; ISSUE COMMAND WITH COT SET IN
#27. #442 R0

$OMD
! MCLK , RKMR1 (R2)
#0MD
, RKMR1 (R2)

RO
13

24 SECTOR'FORMAT

:LOAD COUNT TO LORD DRIVE CLEAR

CZREDBO RKB11 DSKLS CTRL PRTH
CZR&DB. P11
02-0EC-77 10:00

2479

2480
2481
2482
2483

00S372

016237

000000

MOV

Lbno EXPECTED MAINT REG.

7575

:GO TO NEXT TEST

MOV
MOV
MOV
MOV

RKMR2(R2), T-MR2 :STORE MAINT. REG. 2 (MESS A)
RKMRa(RE)' "MR3 srons MAINT. REG. 3 (MESS B)
8COT!CFMTIRODATAR E.CSI ;LOAD EXPECTED CS1
#S.CLR'S.FMT!70007 .E.MR2’ :LORD EXPECTED MAINT REG. 2

005434
005442
005444
005446

023737
00140S
104014
012762

003200

003140

100000

000000

CMP
BEQ
ERROR
MOV

E.CS1,T.CSl
2%
IY
#CCLR,RKCS1(R2)

023737

003226

003166

2%:

003230

003170

3%:

005456

2485

(005476

005464
005466
005470

000412

001401
104015
023737
001401

S:gg 005500 104016
2498

CLR

;CHECK COMMAND AND STATUS REG 1 CORRECT
'YES, CHECK MESSB
:CS1’ INCORRECT
CLERR RK611

CMP

E.MR2,T.MR2

;CHECK MESS
A CORRECT

BEQ

TSTS

BEQ
ERROR
CMP

ERROR

38
15
E.MR3,T.MR3

:YES, CHECK MESS B
:MESS A INCORRECY
cuscx MESS B CORRECT
YES,

GO ON TO NEXT TEST

hess B INCORRECT

illl!!!**llll!llll!llllllil!l!lli!l!!lllll’lll**l!ll!**l!lil»l»l}

5366

irssr

2501
2502
2503

3
tx
tx

2504
5282

tx
%

2507
2508

00S502

000004

2510
2511
2512
2513
2514
2515
2516
2517

005512
005516
005524
0055832
00SS40
005546
005554
005562

013702
012762
012762
018762
012762
012762
012762
012762

001270
100000
000040
1772777
055216
001777
003400
000007

000OCO
000026
000062
000004
000020
000006
000010

2520
2521
2502

00S576
005602
005610

012700
012762
012762

000156
000440
000040

000026
000026

2525
2526
2527

005622
005630
005636

016237
016237
016237

000000
000034
000036

003140
003166
003170

005504

012737

000062

001200

005616
005620

005644
005652
005660
00564
005672
005674
005676

005300
001370

012737
012737
005037
023737
00140S
104017
012762

012023
071407
003230
003200

003200
003226

100000

000000

003140

WRITE DATA AND DRIVE CLEAR MESSAGE

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLESR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE A WRITE DATA OF
ONE uono TO AN RKO& IN 24 SECTOR FORMAT,
CYLINDER 1777

TRACK
7, DRIVE7. CLOCK IN SEEK MESSARGE AND DRIVE CLEAR.
CHECK If PROPER onxvs CLEAR MESSAGE 1S ASSEMBLED.

: = 3636 36 36 3 36 96 3 36 3 3 36 3 3¢ 36 3 3¢ 3 3 3 3 3 36 3 3 6 I 3 3 3 3 3 3¢ 3 3 3 3 3 3 2 3 36 3 3 J 3 I 3 3 I I ¢ % I X X ¥ X% XX
¥&15:
SCOPE
MOV

ggig 005570 012762 012023 000000

2528
2529
2530
2531
2532
2533
2534

E.MR3

003166
003170
003200
003226

2491

2523
2524

;STORE COMMAND AND STATUS REG.

000034
000036
012021
071407

00S4s4

2509

RKCS1(R2),T.CS1

016237
016237
012737
012737

s:gg

2482
2483
2484

003140

SEQ 0049

005400
005406
005414
005422

2484 005430 005037 003230
2485
2486
2487
2438

KaO4Y

MACYIl 30(1046)
02-DEC-77
10:20
PAGE 49
Ty
READ DATA CLEAR MESSAGE

; ;00 S0.

ITERATIONS

$BASE, R2
:LOAD RKsll aase
#CCLR RKCS1(R2) :CLERR RKb1}
#0MD, RKMR1(R2) ;PUT RK611 IN DIRGNOSTIC MODE
#-1, RKWC (R2)
:LOAD WORD COUN
8BUFF ,RKBA(R2) :LOAD DUMMY BUS noo ESS
#1777 RKDCYL (R2)’ Lono CYLINDER ADDRESS REG.
oaqoo RKDA(R2) ;LOAD TRACK
RKLS2(R2)
:LORD onxvs NUMBER

MOV
MOV
MOV

827.%¥442,R0
:LOAD COUNT TO LOAD DRIVE CLEAR
#OMD! MCLK , RKMR1 (R2)
#DMD, RKMR1 (R2)

MOV
18:

#50. , STIMES

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ocbr CFMT!WRDATA,RKSSI§E§%OR IgsueTconnnno WITH CDT SET IN

DEC
BNE

RO
18

MOV
MOV
CLR
CHP
BEQ
ERROR
MOV

#COTICFMTIWRDATA E.CSI
;LORD EXPECTED CS1
#S.CLR!S.FMT'70007 E.MR2' :LOAD EXPECTED MRINT REG. 2
E.MR3
;LOAD EXPECTED MAINT REG.
£.CSI,T.CS1
:CHECK COMMAND AND STATUS REG 1 CORRECT
$
IYES, CHECK MESSB
17
:CS1’ INCORRECT
#CCLR,RKCS1(R2) ;CLEAR RKB11

MOV
MOV
MOV

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2(R2)
) T.MR2 ;STORE MAINT. REG. 2 (MESS A)
RKMR3(R2) ) T-MR3 ;:STORE MAINT. REG. 3 (nsss B)

CZR6DBGC RKG11 DSKLS CTRL PRTY

CZREDB.P11

02-DEC-77 10:00

MACY1l 30(1046)

gggg

005704

DOO412

2537
2538

005706
005714

023737
001401

003226

003166

2$:

2540

005720

023737

003230

003170

38:

2639
254

5533

(005716
88%72

730

104020

001401

02-DEC-77

10:20

LO4

PAGE S0

SEQ 20S0

WRITE DATA AND DRIVE CLEAR MESSAGE
BR

1576

;G0 TO NEXT TEST

CMP
BEQ

£.MR2, T.MR2
3%

; CHECK MESS A CORRECT
'YES,
CHECK MESS B

CMP

E.MR3, T.MR3

'CHECK MESS B_CORRECT

tHMESS'B

ERROR
BEQ

104021

ERROR

1576

*MESS A INCORRECT

;~Y§s,

ON TO NEXT TEST

INCORRECT

o54yY

HH I 2222222222222222222X22X2222222X222323232X2X22232232222223223%
2]

2547

S %

SE:E

;fiTEST &

DRIVE CLEAR MESSAGE FOR WRITE CHECK

CLEAR RK611 CONTROLLER WITH A CONTROLLER CLERR.

2548
2548

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R WRITE
CHECK OF 1 WORD TO AN RKOb IN 24 SECTOR FORMAT,

2551

THROUGH SEEK MESSAGE AND CLOCK IN DRIVE CLEAR.

2550

Sggg

255y
2555

005737

000004

2557

00S742

013702

2556
2558

005734

005746

012737
012762

000062

001200

100000

000000

001270

CYLINDER 1777,

HERD 7,

DRIVE 7.

CLOCK

MAKE SURE CORRECT MESSAGE IS ASSEMBLED.

.. 12 1222222222222 222222212122222222X222X22X2222222222222222222
t81e:
score
MOV

#50.,STIMES

:;D0 50.

#CCLR RKCS1(R2)

;CLERR RKb1l

MOV

$BARSE, R2

MOV

ITERATIONS

:(0AD RKb11 BASE

2669
2560
2561

005754
005762
005770

Dl12762
0l2762
012768

000040
177777
055216

000026
000002
000004

MOV
MOV
MOV

#OMD, RKMR1 (R2)
8-1,RKWC (R2)
$BUFF ,RKBA(R2)

2563
2564
2565

006004
006012
006020

012762
0l2762
012762

003400
000007
012031

000106
000010
000000

MOV
MOV
MOV

#3400 RKOA(R2)
;LOAD TRACK
87, RkES2(R2)
‘LOAD DRIVE NUMBER
sCOT!CFMTIWRTCHK
| RKCS1(R2) ; ISSUE COMMAND WITH CDT SET IN

006026

012700

000156

2570
2571

006046
006050

005300
001370

2576
2577

006102
006110

012737
005037

2579
2580
2581
gggg

006122
006124
006126
006134

001405
104022
0l2762
000412

2584
2t85

006136
006144

2587
2588

006150
006156

2562

2566
2567

2568
2569

2572
2573
2574
2575
2578

2586
2589

005776

006032
006040

006052
006060
006066
006074
006114

006146

006160

012762

001777

000020

012762
012762

000440
000040

000026
000026

016237
016237
016237
012737

000000
000034
000036
012031

003140
003166
003170
003200

023737

071407
003230

MOV

1S:

MOV
MOV
MOV
MOV

003226
003140

100000

000000

023737
001401

003226

003166

2%:

023737
001401

003230

003170

3%:

104024

MOV
MOV
DEC
BNE

003200

104023

MOV

:PUT RKb61l IN DIAGNOSTIC MODE
:LORD WORD COUNT
:LOAD DUMMY BUS ADDRESS

#1777 RKDCYL(R2)'

827.¥4+42,R0

;LOARD CYLINDER RDORESS REG.

29 SECTOR’FORMAT
'LOAD COUNT TO LOAD DRIVE CLEAR

#0MD
! MCLK , RKMR1 (R2)
#0MC
. -*MR] (R2)

RO
18

RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2(R2),T.-MR2 :STORE MARINT. REG. 2 (MESS RA)
RKMR3(R2)
T MR3 ;STORE MAINT. REG. 3 (MESS B)
#COT'CFMTIWRTCHK E.CSI
;LORD EXPECTED CS1

1
_

MOV
CLR

#S.CLR!S.FMT 70007 E.MR2' :LOAD EXPECTED MRINT REG. &
E.MR3
:LOAD EXPECTED MAINT REG.

BEQ
ERROR
MOV
BR

2%
22
8CCLR,RKCS1(R2)
TST7

E.CS1,T.CS1

:CHECK COMMAND AND STATUS REG 1 CORRECT

CMP
BEQ

E.MR2, T.MR2
3%

s CHECK MESS A CORRECT
*YES,
CHECK MESS B

CMP
BEG

E.MR3,T.MR3
1877

:CHECK MESS B_CORRECT_
: YES, GO ON TO NEXT TEST

CHP

ERROR
ERROR

23
2%

'YES, CHECK MESSB
:CS1’' INCORRECT
;CLERR RKB1]
1:G0 TO NEXT TEST

'MESS A INCORRECT

'MESS’B INCORRECT

CZREDBO RKBli

CZReC2.P11

DSKLS CTRL PRTH

0e-DEC-77 10:00

MACY1l

30(1046)

02-DEC-?7

##HERDER GENERATION

2593

MO4

PAGE 51

SEQ Q0S1

##HEADER GENERATION

.SBTTL

Sggé

10:20

§ 3EIEIE A0 I3 U0 I 0000003000600 00 00 06 0 00 00 0300000 0000

:TEST 7

CLERR THE RK61] WITHA CONTROLLER CLEAR. PUT THE

529

‘x

sgc?oa 0. cn.ogx * SLGH gsgx nno DRIVE E S NSSSQE 2

Sggg

s ¥

Ségg

2600
2601
2604

%
;

;'l

2605

006162

0002204

2607
1519]

006172
006176

013702
0sQ37

2ElQ

Q00206

012737

2806
&0

cbl]l

eble

006164
006202

006214

012737

05037

012737

00CCl2

001270
003280
003206

000021

006ee2e

001200

Q00eeee
006234

0leve
Q012762

100000
000040

000000
000026

cbel
2bee
2623

0062k
006272

O0Ce300

D13762
013762

012700

03206
003200
000426

000006
000000

2625

006312

0le7?62

000040

000026

2628

006324

016237

000003

003140

036006

13:

2b29
c630

006332

006340

2631
2632
2633
2634

006346
006354
006356
006360

2637

006370

eb4]1
2b42
2643
2b44
2b4S
2e46

006410
006412
006414
00641e
006422
006430

gggg

2638
2639
2640

006366

008637
00640
006402

005300
001370

016237
016237

00C0ZY
000036

ITERATIONS

;LOAD RKB1] BASE
;INITIALIZE CYLINDE ADD

MOV

$RDCATAR,E.CS!

;s INITIRLIZE FOR

413, SLPERR

s INITIALIZE 7 QCK AND SECTOR

;LORD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

JSR

PC, CALHDR

MOV
MOV
MOV

hKNC(R2)
LOHD WORD COUN
uBU#F RKBA(R2"
OARD DUMMY BUS QDDRESS
£.0CYL Rxocvunei Lono CYLINDER NUMBER

MOV

869 ¥#442

MOV
MOV
MOV

MOV

CnLULRTE EXPECTED HERDER

#CLLR,RKCS1(R2) CLERR K61l
ODHD kKHRl Re) PUT RKb1} IH MRINTENF{NCE MOCE

£.DA,RKDR(R2)
LbnoTRACK AND SECTO
E.csi RKCSl(Ra) LORD COMMAND AND FORM

:LORD COUNT UNTIL HEQDER GENERRARTION

sDOMD! HCLk RKMRl'hE)
#0MD,"RKMRI (R2)

MOV

RKMR2(R2),T.MR2 ;:STORE FIRST HEADER WORD

CHMP
BEQ
ERROR
MOV

E.CSI,T.CSl
6%
es
#CCLR,RKCS1(R2)

CH CK CEHMQN? AND STATRUS REG | CORRECT
YE
CK FIRST LINE OF HERDER
CSl INCORRECT
CLEQR CONTROLLER

CMP

E.MR2,T.MR2

;CHECK IF FIRST WORD OF HERDER CORRECT

MOV

003170

MOV

100000

000000

023737

003226

003166

b6%:

003230

003170

7%:

003220
000633

; ;D0 10.

003166

083149

201401
104027
104415
(00S237
022737
001002

#10.,8STIMES

$BASE R2
E
ocyl

RO
gs

0032)0

001401
104026
023737

MOV

MOV
CLR

DEC
BNE

23737
01405
104025
0l27e2
000412

2222222 22222222222222332222222222
3222222322322

"SCOPE

MOV
MOV

Y 006304 012762 000440 000026 6S9:
006320
008222

-1777.

MOV

2bl8 00be4e 0l1ezee 177?277 000002
2619 006250 0127?62 (055216 000004
2620 006256 Q13762 go 220 000020

2626
26e?

HECK MARINTENANCE RES&?? E
MRINT
NflN?E
R GI ?
0 MAKE
THART
THE HE
S
CORRECT.
REPER
CYLINDERS

CLR

001110

2616
ebl?

004737

$877.

003200

0Qeeee

006cee

1123 2

2613
2614

261S

HERDER GENERATION (PART 1)

I I 000000600 06 0600 00 00 0 0

2594

15%:
003220

BEQ
ERROR
cMP

BEQ
ERROR
SCOP1
INC
CMP
BNE

KCS1(R2),T.CS1

;STORE COMMAND AND STATUS REG 1

RKMR3(R2),T.MR3 STORE SECOND WORD

15%

73
26
£.MR3,T.MR3
1€¢%
e?

E.0CYL
0633,E.DCYL
169

YES CHECK SECOND WORD OF HERDER

YES CHECK IF SECOND WORD OF HERDER CORRECT
FIRST WORD OF HERDER INCORRECT
CHECK IF SECOND WORD OF HEADER CORRECT

YES CHECK IF LOCF ON ERROR
SECOND WORD INCORRECT
LOOP ON ERROR
INCREMENT EXPECTED CYLINDER
L,HECK IF VALUE OF CYLINDER OVERFLOW DFTECTION
No CONTINUE

CZRBDBO PV&tl DSKLS CTRL PRI4
2-DEC-77 10:00

CZReDB.P

oce432
D0E4 36
006444

005237
022737
103266

03220
001777

MRCY1!

003220

02-DEC-77_10:20

30(1046)

NO4

PRGE S2

HEADER GENERRTION (PART 1)

16%:

INC
cMP
BHIS

E.DCYL

%1777,E.0CYL
18

SEG C00Ss2

USE 634

CHECK IF _FINISHED

;NO, GO TO NEXT CONFIGURATION

l!****#

,‘;Eg¥l§Sllillll!l!liiiiilillfilllllllll!llil!l*illi!*lliilli*ll*!

0oogle
001270
003220

006506

036006
100000

001200

e e O O 1 1

006654

1%:

000000

SS:

PC, CALHDR

;;D0 10.

ITERATIONS

OAD RKb11 BASE
L
NITIALIZE CYLINDER ADD
,xnrransz TRQCK nno SECTOR
:INITIALIZE FORM

:LORD LOOP ON ERROR LOCATION FOR

LOOP
SUBTEST

: CALULATE EXPECTED HERDER

#CELR, RKCS1(R2) :CLEAR RKS11
#0MD,RKMR1 (R2) ;PUT RKbBll In HQINTENRNCE MODE
C
:LOAD WORD
8-1. RKWC (R2)
:LOAD DUMMY sus noofiess
88UFF ,RKBA(R2)
-LORD CYLINDER NUMBER
E.0CYL RKocYL(Rei
;LOAD TRACK AND SECTOR
E.0A,RKDA(R2)
E.CS],RKCS1(R2) LOAD COMMAND AND FORMA
:LOAD COUNT UNTIL HEQDER GENERATION
869, x4+2, RO
#DMO? MCLK , RKMR1 (R2)
38"0RKMR] (R2)
[

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
T MR2 ;STORE FIRST HERDER WORD
RKMR2(R2),
WORD
RKMR3(R2) ! T.MR3 ;STORE SECOND

E.CS1,T.CS1
6%
30
#CCLR,RKCS1(R2)
158

003200

100000

003207
000007

#10.,STIMES

$18, SLPERR

000000

003226

122737

TO MAKE

#RODATA,E.CS1

003200
001110

000040

003230

006706

MESSAGE.

SECTOR 0. CLOCK THROUGH SEEK AND DRIVE CLEAR
REGISTER 3
REGISTER 2 AND MAINTENANCE
CQECK MRINTENANCE
REPEART FOR HERDS 1-7.
THAT THE HEADER IS CORRECT.
$BASE | R2
g.oCcy(
€.DR

0
OO
O

006652

PUT
CLEAR THE RKB11 CONTROLLER WITH A CONTROLLER CLERR.
A _RERD DQTR oF
ISSUE
THE CONTROLLER IN DIRGNOSTIC MODE.
1 WORD FOR AN RKOb IN 26 SECTOR FORMAT, CYLINDERO, HERD

< 336363 38 36 96 36 38 06 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3t 36 36 36 6 38 36 36 34 38 36 6 3 38 36 6 36 36 36 36 30 38 36 36 3¢ 38 36 3 36 06 6 30 3 04 30 3

15710

s et e e

006506

Q
£
~
W
~N

006500

300004
012737
013702
005037
005037
012737
012737

0O—-000000OG0000D0000 =

006446
006450

HERDER GENERATION (PART 2)

003166
003170

6%:

E.MR2, T.MR2

79%:

31
£.MR3,T.MR3
158
32

15%:
003207

E.DA+]
$7,E.DA+1

!CHECK COMMAND AND STATRUS REG 1 CORRECT
:YES, CHECK FIRST LINE OF HEADER
:CS1’ INCORRECT
:CLEAR CONTROLLER
'YES, CHECK SECOND WORD OF HERDER
:CHECK IF FIRST WORD OF HERADER CORRECT

YES

CHECK IF SECOND WORD OF HEADER CORRECT

FIRST WORD OF HERDER INCORRECT
CHECK IF SECOND WORD OF HERDER CORRECT
YES, CHECK IF LOOP ON_ERROR
:SECOND WORD Incoanscr
!LO0OP ON ERROR
" INCREMENT TRACK
:CHECK IF FINISHED

CZR6DBO RKB11 DSKLS CTRL PRTY
CZRE0B. P11
02-DEC-77 10:00

5783

006714

BOS

MACY11 30(1046)
02-DEC-?7
10:20
PAGE 53
T10
HEADER GENERATION (PART 2)

103274

BHIS

SEG 00S3

:NO,

GO TO NEXT CONFIGURATION

2708

’ XY X222 2222222222222222222Y2222 X2 XXX

2708
2709
2710

e
x
‘x

;L ]

Srog

PETEST 11

2711
o712
52{3
2’18

La
‘x
tx

2716

006716

000004

2718
2719

006726
006732

013702
00S037

2717
2720
2721

2722

2723

006720

006736
006742

006750

012737
005037
012737

012737

2704
2725

006756

2727
2728

2729

006762
006770

006776

012762
012762

2732
2733
2734
2735
2736

007020
007026
007034
007040
007046

2739
2740
2741

007060
007066
007074

272b

006756

(007054
007056

000012

001200

003206
000021

003200

001270
003220
006756

004737

036006

012762

100000
000040

MOV

813, SLPERR

18:

JSR

013762
013762
012700
O0le762
012762

003206
003200
000426
000440
000040

000006
000000

MOV
MOV
MOV
MOV
MOV

016237
016237
016237

000000
000034
000036

003140
003166
003170

100000

0000CO

003226

003166

6%:

003230

003170

7%:

2748

007124

023737

007164

$BASE
| R2
£.0CYL

CLR
MOV

001110

001401
104034
023737
001401
104035
104415
105237
122737
103274

003200

003206
000025

000026
000026

MOV

S%:

158:
003206

E.OR
$RDDATA,E.CS1

;D0 10.

xrsnnrxons

,Loao
RK611 BASE
;INITI
ALIZE CYLINDER ADD

SINITIALIZE TRACK AND SECTOR
; INITIALIZE FORMAT

PC, CALHDR

:LOAD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

CRLULQTE EXPECTED HERDER

#CCLR, RKCS1(R2) :CLERR RKbI]
:ono AKMRI(R2) ;PUT RKb11l IM MAINTENANCE MODE

1. RKWC (R2)

:LOAD WORD COUNT

MOV
MOV

sautr RKBA(R2) :LOAD DUMMY BUS RDDRESS
£.0CcYl RKDCYL(RE’ -LOAD CYLINDER NUMBER

DEC
BNE

RO
cs

cMP
BEQ
ERROR
MOV
BR

E.CS1,T.CS1
6%
33
#CCLR,RKCS1(R2)
158

! CHECK COMMAND AND STATRUS REG 1 CORRECT
'YES, CHECK FIRST LINE OF HEARDER
:CS1’ INCORRECT
;CLERR CONTROLLER
PYES, CHECK SECOND WORD OF HEADER

CMP

£.MR2, T.MR2

:CHECK IF FIRST WORD OF HEADER CORRECT

MOV
MOV
MOV

003140

#10.,STIMES

MOV
CLR

0000GR2

023737
001405
104033
0l2762
000412

2757

SCOPE

MOV

177777

007102
007110
007112
007114
007122
007132
007134
00713e
007144
007146
007150
007152
007156

SECTOR 0. CLOCK THROUGH SEEK RND DRIVE CLEAR nessnces
chscx
MAINTENANCE REGISTER 2 AND MAINTENANCE
REGISTER 3
TO MAKE SURE HEADER IS CORRECT.
REPERT FOR SECTORS 1-25.

MOV
MOV

2742
2743
2744
2745
5;39
2749
2750
2761
2752
2763
2764
2755
2786

CLERR THE RKG11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
THE CONTROLLER IN DIAGNOSTIC MOD.
ISSUE
A READ DATA OF
ons WORD FOR AN RKOB IN 26 SECTOR FORMAT,
CYLINDER
0, HEAD

000000
000026

005300
001370

2222222222222 L 3

X Y12212212222222222222222X3X22X232222XX22X2222
2222222222322 222 24

+&T11:

2730 007004 012762 055216 000004
2731 007012 013762 003220 000020

2737
2738

HERDER GENERARTION (PART 3)

BEQ
ERROR
CMP
BEQ
ERROR
SCOP1
INCB
CMPB
BHIS

E.DA,RKDA(R2)
;LOAD TRACK AND SECTOR
E.CS], RKCS1(R2) Lono COMMAND AND FORMA
#69. ¥442, R0
:LOAD COUNT UNTIL HEPDER GENERATION
#DMD
! MCLK , RKMR1 (R2)
sDMD, RKMR1(R2)

RKCS1(R2),T.CS1
RKMR2(R2)
| T-MR2
RKMRI(R2), T-MR3

7%
34
E.MR3, T.MR3
158
35
E.DR
%25, E.DA
1%

;STORE COMMAND AND srqrus REG 1
:STORE FIRST HERDER WORD
;STORE SECOND WORD

*YES, CHECK IF SECOND WORD OF HEADER CORRECT
'FIRST WORD OF HEADER INCORRECT
:CHECK IF SECOND WORD OF HERDER CORRECT
'YES,CHECK IF LOOP ON ERROR
:SECOND WORD INCORRECT
:LOOP ON ERROR
: INCREMENT SECTOR
ICHECK IF FINISHED
INO,

GO TO NEXT CONFIGURATION

CZR6DBO RKE11

CZR6DB.P11

DSKLS CTRL PRTY

02-0EC-77 10:00

MACYIL 30(1045)

2759
a;go

CcasS
PA

SEQ 00S4

HEQD E censn&?xgn (PQ&$

HHcRERERARBBER AR R RERERREERAEBREEXLRRRRRERRERRLEEREERLRERRRAELERLER R
;#TEST 12
HERDER GENERATION (PART 4)

SRR

5755

CLERR THE RKG611 CONTROLLER WITH A CONTROLLER CLERR. PUT

2765

HEADO, SECTOR 0.

27E>g

)

2763
2754

e
"

2766
S?g?

I
.

e’70

577é
77

887198
71

808984
12737

2778
2779

S;SO
278
2783
2784
2785
2786
2787
2788
2789

007220

012737

000062

001200

007286

SSOPE
MOV

#50. , STIMES

; ;00 50.

EBS
SRDDATA E.csx

Mi
C 1Sk ?nké Sfio e ror
srxnbsgs

MOV

001110

MOV

07556
887555 04737
12782 O188888 000000 18:
007240 012762 000040 000026
007246 O01i276e 177777 000002
007254 012762 055216 000004
0C7262 013762 003220 000020
q

cono-nCLk RKHRl(fi

MOV
MOV
MOV

2791

007316

012762

000040

000026

MOV

2794
2795
2796

007330
007336
007344

8152 7
016237
016237

000000
000034
000036

003140
003166
003170

007360
007362

00140S
104036

2797

2798
2793

007352

023737

003200

DEC
8NE

003140

007364
007372

012762
000412

100000

000000

2803

007374

023737

003226

003166

6%:

003230

003170

7%:

010000

003200

2804
2805
2806
2807
2808
2803
2810
2811

007402
007404
007406
007414
007416
007420
007422

001401
104037
023737
001401
104040
104415
032737

007440

000672

0074306

001004

28l2 007432 052737 010000 003200
2813

E DA, RKDA(R2)
;LOAD TRACK AND ssrvon
E.Csi RKCSl(Ra) :LOAD COMMAND AND FORMA
ssq 1442
:LORD COUNT UNTIL HEQDER GENERATION
#DMD, RKMR1 (R2)

RO
1

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKMR2(R2),T.-MR2 ;STORE FIRST HERDER WORD
RKMR3(R2), T.MR3 ;STORE SECOND WORD

BEQ
ERROR

6S
36

MOV
BR

17§:

MOV
MOV
MOV

CMP

2800
Sggé

ON ERROR LOCATION FOR

SUBTEST LOOP

MOV

000006
000000

005300
001370

;

PC
CQLHDR
ATE EXPECTED HEADER
8CLLR,RKCS1(R2)
tgk
uono kxnnx(na) PUT RK511 xn nnrnrennncs MODE
1 . RKMC (R2)
:LOAD WORD COUN
neu#F RKBAR(R2) :LOAD DUMMY BUS nooREss
E.0CYL(, RKOCYL(RE’ Lono CYLINDER NUMBER

003206
003200
000426

2790 007310 012762 000440 000026 5%:

£13, SLPERR

ITERATIONS

JSR
MOV
MOV
MOV
MOV
MOV

013762
013762
012700

007324
007326

FORMA

X222 :2222322222222322222X22:X2X2XX2XX22X2X2X22S2XX2XX22XXRXLR
S

+&1)2:

007270
007276
007304

2792
2793

CLOCK THROUGH SEEK AND DRIVE CLERR'

MESSAGES, CHECK MRINTENANCE REGISTER 2 AND MAINTENANCE
REg;grsp 3 79 MAKE SURE HERDER IS CORRECT. REPEAT FOR 24

5774
80558
802837
803550 003200
2776
007212
012737
000021

27?77

THE CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
R READ DATA OF
ONE uono FOR AND RKO6 IN 26 SECTOR FORMAT, CYLINDER O,

cMP

E.CS1,T.CS1

gs cnscx r;nsr LINE OF HERDER
1’ INCOR

#CCLR,RKCS1(R2) CLEQR CONTROLLER
158
'YES, CHECK SECOND WORD OF HEADER

£.MR2, T.MR2

BEQ
ERROR
CMP
BEQ
ERROR
SCOP1
BIT

73
37
E.MR?,T.MR3
158
4O

BNE

TST13

BIS

;CHECK COMMAND AND STATRUS REG 1 CORRECT

#CFMT,E.CSI

#CFMT ,E.CS1

:CHECK IF FIRST WORD OF HEARDER CORRECT

:YES, CHECK IF SECOND WORD OF HEADER CORRECT
'FIRST WORD OF HEADER INCORRECT
CHECK F SECOND WORD or HEQDER CORRECT
YES_CHECK IF LOOP ON ERR
secbuo WORD INCORRECT
:LOOP ON ERROR
CHECK IF FINISHED
:

GO TO NEXT TEST

Ose éu SECTOR FORMAT

CZREDBO Rkb11

CZR&DB.P11

DSKLS CTRL PRTY

02-DEC-77 10:00

MACY1l

30(1046)

02-DEC-7?

10:20

DOS
PAGE

2%NPR TRANSFER FOR WRITE DATA

SEG 00SS

ggig

.SBTTL

581?

P REBERRRRERRRRRRRN
RN
R RN RRERARERE R RS RTERRPRRRRR AR RRRRRRERR

eeig

*#NPR TRANSFER FOR WRITE DATA

'ATEST 13
HE

2820
2821
2822

2823

P
¥
¥

CLEAR RKb11 CONTROLLER WITH
A CONTROLLER CLERR.
PUT
CONTROLLER IN nnrn ENANCE MODE.
ISSUE
A WRITE onrn OF
67 uoaos TO AN RKOE6 IN 26 SECTOR FORMAT,
CYLINDER

GIVE ENOUGH CLOCK PULSE FOR 68 SILO WORDS. MAKE SURE DATA

2824

2825
sgg;

WRITE DRTA NPR TRANSFER

‘x
H

TRACKO, DRIVE 0. CLOCK IN SEEK AND DRIVE CLEAR nsséacss.

LATE DO E
NOT OCCUR.
nns COR
)

RERD BACK 66 WORDS AND VERIFY THEY

2828
2829

007442

0NOOOM

2831
2832
2833
2834
2835
2836
2837

007452
007456
00746%
007472
0NC7-00
007506
007514

013702
0l276e
O0le27ee
012762
012762
012762
012700

001270
100000
000040
177675
053159
000023
004724

000000
000026
000002
000004
000000

MOV
MOV
MOV
MOV
MOV
MOV
MOV

2839

08?

127

00040

000026

MOV

S545 837240 Biks37 283398 1983id
2844 007554 016237 000002 003142

MoV
MOV

E&éms)' &2} 38588:"2882
KN<Ra),1 WC
WORD coun
RKBA(R2),T.BA

srons aus noonsss

c848 007604 8157 7 8 0258 03210

MOV

oon,s.cs

LS“B EEEETEB cgé

2851 0875 6 86 og?
2852 007632 023737

003140

CLR
CMP

E.ER
s csx T.CS1

,c HECK CSI CORREC

100000

000000

ERROR
MOV

1
1CS1’ INCORREC
#CCLR,RKCS! (R2) CLEQR RKE11

2830

007444

(12?37

2838 007520 315765
2840

284S

007534

007562

005

016237

000062

00440

000004

03214
003200

001200

: X 22222222X22:12:22212%22222X:222X2X2X2X22X:X2X2222XTX2XT2X2XTXXTTRSLXTLLS
t&113: SCOPE
MOV

000026 1S:

MOV

#50.

MOV

ITERATIONS

RKMR] (R2)

}

Lono Exg 8750 E REG

2853

007640

001405

sggg

007652

000517

2858
2859

007654
007662

023737
001401

003210

003150

5%:

CMP
BEQ

£.CS2,T.CS2
63

cuecx cs2
cuscx BUS ADDRESS

2861
2862
2863
2864
2865
2866
2867
2868
2869
2870

007666
007674
007676
007700
007706
007710
007712
007720
007722
007724

023737
001401
104044
023737
001401
104045
023737
001401
104043
012703

003204

003144

6$:

003202

003142

78:

003214

003154

B8$%:

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

E.BA,T.BA
73
44
E.WC, T.WC
8%
45
E.ER, T.ER
10%
43
#NPRBUF ,R3

'CH ECk aus ADDRESS
'YES, CHECK WORD COUNT
BUS ADDRESS INCORRECT
! CHECK WORD COUNT
*YES, CONTINUE
SWORD COUNT INCORRECT
: CHECK ERROR REG CORRECT
YES CONTINUE
RROR Rv.G INCORRECT
LORD PDDRESS OR START OF BJFFER

2854
2855

007642
007644

104041
012762

2860 007664 104042

0S3154

BEQ

.DO SO.

anS-MCLk Rxnfli(he) ; NPR TRANSFERS

DEC

003144

,STIMES

$BASE, R2
Cono RKbll enss
8CCLR RKCS1(R2) :CLEAR RK61
#0MD, RKMR1 (R2) ;PUT RK&ll IN DIAGNOSTIC MODE
8-67. ,RKWC(R2) ;WORD COUNT=67
sNPRBUF ,RKBA(R2)' ;LOAD BUFFER RDDRESS
#IRDATA.RKCS1(R2) ' : ISSUE WRDATA
#68.#37. RO
158U ENOUGH CLOCKS FOR 68

10%:

ERROR

TSTIY

:YES,

CHECK CSe

:GO TO NEXT TEST

csé ORRECT

CZR6DBO RKB11 DSKLS CTRL PRTY
CZREDB. P11
02-BDEC-77 10:00

2871

2872
2873
2874
2875
2876
2877

007730

007734
007740
0077?46
007752
007?60
007764

012701

005037
012737
012337
016237
012700
005300

2878
2879
2880

007766
007770
007?76

001376
016237
016237

2882
2883
2eg4

010012
010020
010C22

023737
001405
104046

gggg

010032

2881

2885

010004

010024

2888

010034

2890
2891
2892

010044
010046
01004

2889

2893
2894
2895
2896
2897

010042

010056
010060
010066
010070
010072

003264
000300
003222
000024
000020

003210
003162

000000
000010

003140
C03150

003200

003140

100000

000000

023737

003210

003150

001401

104047
023737
001401

104050
023737
001401
104051
005237

005301

2900
Sggé

010102
010116

012737
100316

001003

15%:
168:

0i2762

000427

003164

20%:
218%:

003222

003162

22%:

258%:
003210

26%:

#65.,R1

WRDCNT
$IR'OR,E.CS2
(R3)+.£.08B
RKDB(R2),T.DB
820, RO
RO

:LORD COUNT FOR SICO

SINITIALIZE WORD COUNT
'LOAD EXPECTED CS@
:LORD EXPECTED DATA
:GET DATA_READ
'SET COUNT TO WAIT FOR SILO
:DEC_COUNT

168
RKCS1(R2),T.CS1
RKCS2(R2) . T.CS2

CMP
BEQ
ERROR

E.CS1,T.08si
208
46

TSTIM

CMP

£.C52,T.CS2

:CHECK CS2 CORRECT

ERROR
CMP
BEQ

47
E.ER,T.ER
228

:CS2' INCORRECT
: CHECK
enaon REG CORRECT
'YES,
CONTINUE

BEQ

RKER(R2),}.ERTM

*WAIT FOR O
;srone CS1
:STORE €S2

;STORE ERROR REG.

:CHECK CS1 CORRECT
:YES, CONTINUE
:CS1 xnconaecr

8CCLR,RKCS1(R2) CLEQR RK61

21%

:GO ON TO nexr TEST

' YES, cour:nue

ERROR
CMP
BEQ
ERROR
INC

SO
£.08,7.08
o5$
Sl
WRDCNT

*ERROR REG INCORRECT
:CHECK DATA CORRECT
1YES, CONTINUE
:DATA INCORRECT
: INCREMENT WORD COUNT

BNE

268

:CHECK IF LAST WORD

DEC

MOV
BPL

$IR,E.CS2
15§

:UPDATE EXPECTED CS2
'CHECK IF FINISHED

.SBTTL #*¥HERADER RECOGNITION TESTS

5383

SEQ 30%k

BNE
MOV
MOV

MOV

003154

003264

CLR
MOV
MOV
MOV
MOV
DEC
MOV

003214

000100

02-DEC-77
10:20
PAGE Sb
WRITE DATA NPR TRANSFER

MOV

000014

010076

010100

000101

016237

2898

2899

MACY!l 30(1046)
T13

EOQS

2905

i U003 00063626 06 00000 0 000606 T 0 D

/4
2908
2909
2910

;
L%
sx
T

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLERR.
PUT
CONTROLER IN MAINTENANCE MODE.
ISSUE
A WRITE onrn OF ONE
WORD TO AN RKOB IN 26 SECTOR FORMRT,
CYLINDER
0, HEARD O,

ggig

8£HULQTE A SECTOR PULSE AND R HERDER WITH THE FOLLOWING

538§

firssr 14

2311

‘x
;!

2914
2915
2916

ggig

tx
X

2921
2922

010112

00000M

2924
2925
2926

010122
010126
010134

013702
012762
012762

010114

012737

000012

001270
100000
000040

001200

000000
000026

RN RN

CLOCK IN BOTH SEEK AND DRIVE CLEAR MESSAGES.'

000000
140000

ggég

2923

SECTOR 0.

;!
tx
T

WRITE DATA HERDER RECOGNITION

140000

MAKE SURE WRITE GATE SETS SHOWING CORRECT HEADER RECOGNITION.

: « 3636 363 3 36 3 36 3 3 36 36 3 36 3 3 36 36 3 3¢ 36 36 36 3 36 3 3 3 36 3 3 3 I 36 3 3 3 3 3 U 3 3 I 3 I 3 3 3 3 I B 3% ¢ 3 2 % 3 % ¥ W® X ¥R
$4714:
SCOPE
MOV

MOV
MOV
MOV

#10.

,STIMES

D0 10.

ITERATIONS

$8ASE,R2
tono RK611 anss
#CCLR RKCS1(R2) :CLERR RK61
#DMD, RKMR1
(R2)
:PUT RKb611 IN DIAGNOSTIC MODE

CZPBDBO RK&11

CIF6
60B.P11

2927
2928
2929

Sgg?

23932

010142
010150
010156
Giole4

010170

ggKbS CTRL PRTH
EC-77 10:00
Q0lezee
012762
Q0le7ee
O0Ole7

0l2762

2933
2934
2935
2936
2937
2938
2939
2940
2341
2942
2943
2944
2945
2346
2347
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963

010176
010204
010206
010210
010216
OIOESH
010232
(010236
010242
010246
010252
010256
010264
010272
010274
010300
010302
010304
010312
010316
010324
010332
010334
010340
010344
010350
010352
010356
010364
010366
010370
010374

000403

2966
2367
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982

010376
010404
010410
010416
010424
010426
010432
010434
010436
010440

012737
004737
016237
023737
001035
005237
005300
001350
005301
001343
012700
013737
00S037
004737
00S300
001367
016237

gggg

010442
010446
010454
010460
010464
010466
010470

Q0le76e
005300
001370
0le?ee
Q0l2762
012737
005037
005037
005037
12700
004737
016237
023737
00l1lle
005237
005300
001363
012737
004737
016237
023737
00107z
005237
012703
012701
012304
012700
013737
006004
103403
005037

MACY11l

177777
055216
000023
000426

000002
000004
000000

000440

000026
0000e2e

000040
000140
000040
000023
003254
003256
00326e
000377
037026
000000
003200

30(1046)
TiY

FOS

PAGE S7
02-DEC-77
10:20
WRITE DARTA HERDER RECOGNITION

1, RKWC (R2)

269 #4+2, RO
19:

Iséus ENOUGH CLOCKS UNIT

#0MD ! MCLK nxnnxtka)
80MC, RKMR] (R2)

FOR SECTOR PULSE

RERDY

.OHD'HSP RKMR1 (R2)

000026
000026
003200

#DMD Rxnhxtna)
;unohtn cSl
M1.BIT
BITCNT

; SIMULRTE SECTOR PULSE

;STORE EXPECTED CS!

:GENERATE SYNCH

s CHECK CS1 CORRECT

'NO, REPORT ERROR
! INCREMENT BIT COUNT
:CHECK IF SYNCH FINISHED
; SIMULATE SYNCH BIT

003254

003140
003140

003262
05336%4
000003
000020
003254

:WORD COUNT=1

oeutr RKBAR(R2) LORD DUMMY BUS nooness
sWRDAtA, RKCST¢Rai ISSUE WRITE DAT

003262
000001
037026
000000
003200

SEJ 00€7

b
BITCNT
.HEQDI R3

128:

003256

159%:

(Ré)+ RH
gn.atr,nx.exr

: CHECK CS1 CORRECT

'NO,

REPORT CS!

P INCREMENT BIT COUNT
:SIMULATE GOOD HERDER
; GET_NEXT HERDER HCROD

:LOAD BITS PER WORD
:STORE_PREVIGUS BIT
:GET NEXT BIT

003254
00000l
037026
000000
003200

003254

SIHU%RTE NEXT BIT
€Sl
:GET

003140
003140

CHECK CS1 CORRECT

INCREMENT BIT C

REPORT ERROR

003262

cuecx IF READY ron NEXT HERDER WORD
ONTINUE

00010S
003254
003254
037026
000026

cutcx
IF FINISHED WITH HERD
*NO, CONTINUE

003256

003164

:LOAD COUNT FOR GAP
:SIMULATE GAF

25%:

2
RKMR1(R2), T.MR1

;GET MR1

CZR6DBO RKE11 DSKLS CTRL PRTHY
CZR&DB.P 11
0e-DEC-77 10:00

010476
010504
Q10512
010514
010516

012737
023737
001411
104053
000407

010520
010526
010S34

016237
016237
104052

062040
003224

MACY11l

30(1046)
TiY

MoV

003ceH4
003164

063150
003154

GOS

0e-DEC-77
10:20
PAGE S8
WRITE DRTA HERDER RECOGNITION
$DMD'ECCW!
1.« WD!WRTGAT,E.MR!1

.LORD_EXPECTED MRl

CMP

£.MR1, T.MR1

:CHECK IF WRIYE GATE SET

ERROR
BR

53
TST1S

::GO ON TO NEXT TEST

MOV

RKCS2(R2),T.CS2 ;STORE CS2 FOR PRINT OUT

ERROR

BEQ

6398

SEJ J0s8

MOV

78715

RKER(R2),t.ERTM

:YES,

GO ON TO NEXT TEST

:STORE ERROR REG FOR PRINT oUT
:REPORT ERROR

;'ii!{lilllill!!ll!illlllllll!llll!*lllIli!l!illllll!!{llIlli!i!!

;fiTEST 15
‘¥
tx
‘e

CLEAR THE RKGE11 CONTROLLER WITH A CONTROLLER CLEAR,
PUT
CONTROLLER IN MAINTENANCE MODE ISSUE A WRITE DRTA OF ONE
WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 0,
HEARD O,

BA¢gLnTE AN

SECTOR 0.

; ®

000000

140000

o
n

Ot
bt s s pe 4 O
8CM3C)
CNDCKDCKDE
n

n
W
=]
O

0000000
eOO0
b= pe b

[

000000
NINN NN

NN
£L£VEL

£
n

o
o

FRR
CNDCHDgyDCHD CNDCJCKDErDCNDCKDCJ
o

000000 0ODOODOo

[y Sy N Ny S N

00000000000 00000

e Bt P Pt Dt Pt Pt s e s Pt Pt (it Pt it Pt

Wl ww
000000

gooole
001270
100000
000700

001200

000440
000040

00002%
000026

000004
000240
000640
000240

000026
000026
000026

000040
003254
003256
000377
037026

140000

MAKE SURE WRITE GARTE DOES NOT SET.

MOV

8700, RO

000026

ITERATIONS

:{0OAD RKH11 BASE

:CLEAR RKG11}

DEC

'DEC COUNT

MOV

#DMD,RKMR1(R2)

BNE

MOV
MOV

4§

:SET STALL COUNT
:LOOP UNTIL ZERQ
;PUT RKBL11

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

RO
13

MOV

aohoznxno'nxnnxthe)

#4, RO

""FOR SECTOR PULSE

. SIMULATE

MOV

¢ MIND Y MCLK , RKMR1 (R2)
#OMD

DEC
BNE
MOV

RO
23
#DMD,

CLR
MOV

M1.BIT
$255. . RO

MOV

JSR
DEC

IN DIAGNOSTIC MODE

#-1, RKWC (R2)
PWORD COUNT = |
#BUFF ,RKBA(R2)
:LOAD DUMMY BUS ADDRESS
sWRDAYA, RKCSI(R2) :ISSUE WRITE DATR
869. ¥4+2 RO
: I8SUE ENOUGH CLOCKS UNTILL READY

DEC
BNE

CLR

X ¥

DO 10.

#CCLR RKCS1(R2)

MOV

2%:

,STIMES

$BASE ,R2

MOV
MOV
MOV
MOV

1$:

#10.

MOV

MOV
4s:

000026
000002
000004
000000

THE FOLLOWING

:'l!*llllll*lil!{llllili*llil!llllil!!ll!l!l!ll!ill!iii*iii{i!lli
t8715:
SCOPE

000000

000040
177777
055216
000023
000426

INDEX PULSE AND A HERDER WITH

000004
012737
013702
012782
012700

CLOCK IN BOTH SEEK AND DRIVE CLERR MESSAGES.

S36
S40
S46
SSe
S60

SECTOR PULSE DETECTION FOR WRITE DATA

INDEX PULSE

#DMO i MIND, RKMR{ (R2)
RKMR1 (R2)

PR.BLT

PC,RDBIT
RO

: GENERATE SYNCH

C2ReDBO RKE1l DSKLS CTRL PRTH

0e-DeEC-77 10:00

CZR6DB.P11
3039

3040

010726

010730

001374

012737

000001

39 s

81 ?33
1074
8187;2
01 ;s

80
27 3
8 S gq
:740

8&785&
3364
000003
00020

3048
3049
ggg?

010770
010772
010776

103403
005037
000403

003254

30S

011000

D0le?37

000001

3054
3085
3056

011012
011014
11016

38 é

384Y
H

30S

057
0s8
3059

3060
306!l
3062
3063

3064

§6§?89
81§722
004
107
1

011006

004737

00S300
001361
085381

011034
011040

011044
011046

011050

00S037
004737

00S300
001367

016237

3065
3066

011056
011064

012737
(023737

gggg

011074

1040S3

3067

011072

001401

T1S

037026

003254
037026

000026

022040
003164

12%:

003254

003256
003164

JSR
MOV
MOV
ngv

PC RDBIT
sHEADI,R3
#3,R1
(P3)+ qu

MCV
MOV
ROR

MOV

JSR

DEC
BNE
DEC

PRGE 59

SE3 00%9

;:SIMULRTE SYNCH BIT

8!,PR.BIT

T
P&.BIT.MI.BI
RY
178
PR.BIT
189

81,PR.BIT

RO’
159
R

1
,RO
s64.
PR.BiT,Ml.BIT

DEC
BNE

RO
259

CLR
JSR

MOV

BEQ

;SIMULATE GOOD HEARDER
HEADERgogo
GE“; Nng

%9 EE LREVIS 8 9
GET NEXT BIT

; SIMULATE NEXT BI7T

PC RDBIT

BNE
MOV
MOV

MOV
CMP

PR.BIT
PC,RDBIT

CHECK IF READY FOR NEXT HEARDER WORD
NO CONTINUE
ESK ; éNISHED WITH HERDER

hD COUNT FOR GAP

SIMULRTE GRP

RKMR1(R2),T.MR1 :GET MR]

ODMD!ECCN'MEND E.MRI LOAD EXPECTDED MRI
, k IF WRITE GRATE DID NOT SET
T.MR],E.MRI
YES GO ON TO NEXT TEST

1ST16

REERRIIMMIIN I

R REA RN AR AR RERRRRRRRRR AR RN

,iTEST 16
SECTOR INCREMENT
CLEAR THE RKG611 CONTROLLER WITH A CONTROLLER CLEAR. PUT
Ei
NRITE DRTQ OF ONE WORD
R
CONTROLLER IN MAINTENANCE MODE. ISSUE
;%

L¥
P#
I

3076
3077

gg;g

ggg?

o %

3083

011076

000004

3085
3086
3087
3088

011106
0lllle
Q0l1111l6
Ollle2

013702
005037
005037
012737

3090
3091

011130

3093
3094

011134
J11l42

3092

% 1

ERROR

3073
3074
307S

3089

25%:

003224
003224

gg;é

3084

17%

189%:

10:20

BNE

BCS
CLR
BR

3070

3082

02-DEC-77

SECTOR PULSE DETECTION FOR JARITE ODRTA

MOV

003254

03254 003256 15%:

001354
000100
012700
11022
011026 013737 003254
11820

MARCrl]l 30(1046)

HOS

011100

011130

012737

Q04737

0l1e7e2
012762

TO AN RKO6 IN 26 SECTOR FORMART,
0. CLOCK IN BOTH SEEK AND DRIVE CLEQR HESS&G
SECTOR
SIMULATE SECTOR PULSE AND PROPER HERDER, MAKE SURE
O
CYLINDER

THAT WRITE GATE SETS,

REPERT FOR SECTOR 1-2M.

o 363636 06 96 6 36 36 36 3 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 36 38 36 36 36 46 36 36 36 36 36 06 06 36 30 36 36 36 36 3 3 3 R B R X X R

000012

001270
003300
003276
011130
035624

100000
000040

001200

$4T16:

001110
19:

000000
000026

SCOPE
MOV

#10.,STIMES

;;00 10.

ITERATIONS

MOV
CLR
CLR
MOV

SBQSQ,RE
CYLN
SECTOR
81%8,3LPERR

COQD RKb1l BRSE
INITIRLIZE CYL
INDER
INITIQLIZE TRACK AND SECTOR
LORD LOOP ON ERROR LOCATION FOR

JSR

PC, INCHOR

;sGENERRTE HERDER WORDS

MOV
MOV

;

SUBTEST LOOP

#CLLR, RKCS1(R2) CLERR RK611 CONTROLLER
sDMD, RKMR1(R2) PUT RK611 IN DIAGNOSTIC MODE

CZR6DBO RKG11

CZReDB. P11

3095

011150

DSKLS CTRL PRTY

02-DEC-77 10:00

013762

003300

MACY1l 30(1046)

T16

000020

3096
3097
3098
3099
3100

011156
011164
011172
(011200
011206

013762
012762
012762
0127?62
012700

003276
177777
0SS21&
000023
rNO426

000606
000002
000004
000000

3102
3103

011212
011220

012762
012762

000440
000040

000026
000026

3106

0lie32

012762

000140

000026

3101

3104
3105

3107
3108

011226
011230

005300
001370

011240
0lie46

012762
00S037

000040
003254

3111

011262

004737

037026

3114

011272

3109
3110
3112
3113
3115

3116

3117

3118

3120

O0ll2s2
011286

011266
011270
011300

011304

005037
012700
005300
001374

012737
004737

012703

037026

012701

0600003

011316

012700

000020

011314

011322

012304

013737

011330
011332
011334
011340

006004
103403
005037
000403

3126

011342

012737

3130

011360

003254

000001

004737
005300
001361

011362

001354

3139
3135

011376
011402

00S037
004737

003254
037026

3138
3139
3180

011412
011420
011426

016237
016237
023737

000006
000020
003206

3142

011436

3145

011450

3132
3133

3136
3137

3141

3143
3144

3146
3147
3148
gigg

011364
011370

003254

037026

011406
011410

005300
001367

011434

001401

104054

Q011480
011446

023737
001401

011452
0114849
011460
011466

104415
105237
122737
001220

000100
003254

003220

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

MOV
CLR

#DMD RKMR1 (R2)
PR.BT

Mi.BIT
#255. . RO

DEC
BNE

RO
108

003146
003160
003146
003160

ROR
BCS
CLR
BR
MOV

JSR
DEC
BNE

32%:
003276

:GET NEXT HEADER WORD

PR.BIT, M1.BIT

#1,PR.BIT

PC.ROBIT
158

MOV
MOV

#64. RO
PR.BIT,M1.BIT

CLR
JSR
DEC
BNE

:LORD BITS PER WORD

RY
17%
PR.BIT
18%

DEC

12%

:SIMULATE NEXT BIT
:CHECK IF RERDY FOR NEXT HEADER WORD
iNO,
CONTINUE

ICHECK IF FINISHED WITH HERDER
*NO,

CONTINUE

:LOAD COUNT FOR GRP
:SIMULATE GAP

PR.BIT
PC,RDBIT
RO
25%

sCHECK IF GAP FINISHED
*NO,
CONTINUE

308

IYES,

E.DCYL,T.DCYL
328

;CHECK IF CYLINDER ADD CORRECT
:YES,
CHECK IF LOOP ON ERROR

MOV
MOV
CMP

RKDA(R2),T.DA
:GEY DISK RDDRESS REG
RKOCYL (R2),T.DCYL :GET CYLINDER ADD REG.
E.DA,T.DA
sCHECK DISK RDD CORRECT

ERROR

BEQ

30%:

(R3)+,RY

$16.

BNE

25$%:

: SIMULATE HEADER

MOV

17%:

003256

sHEADER, R3

#3,RI

003254

188:

:SIMULATE SYNCH BIT

MOV

: GENERATE SYNCH

#1,PR.BIT

PC ' RDBIT

15%:

;SIMULATE SECTOR PULSE

PC,RDBIT

JSR

003256

""FOR SECTOR PULSE

#OMD!MSP,RKMR1 (R2)

CLR
MOV

MOV

;LOAD DESIRED CYLINDER

RO
S

JSR

SES 0060

SECTOR,RKDA(R2) :LOAD DESIRED TRACK/SECTOR
#-1,RKNC(R2)
SWORD COUNT=1
#BUFF ,RKBA(R2) :LOAD DUMMY ADDRESS
sWRDAYA RKCSI(R2) :ISSUE WRITE DATA
869, ¥4+2 RO
; 1SSUE ENOUGH CLOCKS UNTIL READY

DEC
BNE

128:

104002

003276
000026

MOV
MOV

MOV

005301

012700
013737

CYLN,RKDCYL(R2)

MOV

003254

011350
011354
011356

3131

108:

PAGE &0

MOV

003302

011310

3121
3122
3123
gisg

3127
3128
3129

000001

GS$:

105

10:20

SECTOR INCREMENT

MOV
MOV
MOV
MOV
MOV

000026

003256
000377

02-DEC-77

CMP
BEQ

ERROR
SCOP1
INCB
CMPB
BNE

SECTOR
#o6, SECTOR
19

CONTINUE

‘DISK ADDRESS INCORRECT
:CYLINDER INCORRECT

:CHECK IF LOOP ON ERROR
: INCREMENT SECTOR
*CHECK IF ALL SECTOR TRIED
:NO, TRY NEXT VALUE

CZR&DBOPTTSXI DSKLS CTRL PRTH
CZR6DB.
02-DEC-77 10:00

MACYL1 39{;046)

02-DEC-77
10:20
TRACK INCREMENT

JOS

PRGE bl

SEQ 006!

3151

;ilii*l»liillllll#llill-;lE;ElE*#lllll*l!l!ll!ll!lll!lllllll!ll!il*

3183

;

3128
3157

'
;®
tx

3182

:¥TEST 17

3154
3158

%iég

3163
3164

000004

000012

0O1200

23167
3168
3169
g{;?

011504
011510
011516

005037
012737
012737

003300
000025
011524

003276
001110

3172

011524

3174
3175

011530
011536

Ql2762
012762

3177
3178
3179
3180
gigé

011552
011560
011866
011574
011602

3183
3184

011500

011524

013702

004737

CYLN'RKDCYL (R2)

:LORD DESIRED CYL INDER

MOV
MOV

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

011626

012762

000140

000026

003256
000377

012762
005037

005037
012700

3193
3194

0llebe
011664

005300
001374

3196

011674

004737

011656

011666

004737

003302

012703

3199

011710

012304

011712

011716

011724
011726
011730
011734

012701

012700

013737
006004
103403
005037
000403

037026

10%:
003254

000020

003254
003254

MOV
CLR

#DMD . RKMR1 (R2)
PR.B!T

JSR

003256

15%:

M1.BIT
8255, RO

JSR

PC RDBIT

MOV

%3 Rl

MOV

ROR
BCS
CLR
BR

;SIMULATE SECTOR PULSE

: GENERATE SYNCH

PC,RDBIT

RO
108

MOV

12%:

%DMD!MSP,RKMR1(R2)

DEC
BNE

MOV

000003

SECTOR, RKDA(R2) :LOAD DESIRED TRACK/SECTOR
#-1,RKNC(R2)
*WORD COUNT=1
#BUFF ,RKBA(R2)
:LOAD DUMMY RDDRESS
sWRDAYTA, RKCSI(R2) ~ : ISSUE WRITE DATA
¥69. ¥4+2 RO
;Isggs gggggg gbggés UNTIL RERDY
RO
5§

CLR
MOV

'L OAD RKB11 BASE

#CELR, RKCS1(R2) ;CLEAR RK&11 CONTROLLER
8DMD, RKMR1 (R2)
:PUT RKb11 IN DIAGNOSTIC MODE

DEC
BNE

MOV

000026

037026
000001

011700
011704

000040
003254

012737

3197

3202
3203
3204
3205

MOV

000026
000026

011646
0liese

3201

: GENERATE HEADER WORDS

000440
000040

SS:

ITERATIONS

PC, INCHDR

012762
012762

000020

;D0 10.

JSR

011606
011614

003300

,STIMES

PINITIALIZE CYLINDER
:INITIALIZE TRACK AND SECTOR
:LOAD LOOP ON ERROR LOCATION FOR
"
SUBTEST LOOP

MOV
MOV
MOV
MOV
MOV

3190
3191

3200

1%:

#10.

CYLN
825, SECTOR
#18 SLPERR

CLR
MOV
MOV

000006
000002
0000049
000000

005300
001370

$BASE, R2

003276
177777
0SS216
000023
000426

013762

TRACK =

MOV

013762
012762
O0le7e2
012762
012700

011544

011634
O0lle42

3198

035624

SCOPE

MOV

MOV
MOV

3188
3189

3195

001270

T17:

000000
000026

011622
011624

3192

REPEAT FOR

MAKE SURE

100000
000040

3185
3186

3187

THAT WRITE GRTE SETS.

;éillllll*l*!lll*!l!l!lll!llll*l!ii!ll*l!i!il!l!*l*lll**!ll!!*!il

012737

3176

SIMULRTE SECTOR PULSE AND PROPER HERDER,

[

011472

3173

PUT

N
RO R I L e N CE oRRas '. CYUINDER O HEAD
D O ONE WORD
SECTOR 25. CLOCK IN BOTH SEEK' AND DRIVE CLERR MESSAGES.

3165

3166

CLERR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR,

; »*

011470

INCREMEN

‘x

3{25

RACK

81,PR.BIT

s SIMULATE SYNCH BIT

sHEADER, R3

: SIMULATE HEADER

(R3)+,RY

#16.

PR.BYT,
M1 BIT
RY
17%
PR.BIT
18$

sGET NEXT HEADER WORD

:LORD BITS PER WORD

cznsoao RKG611 DSKLS CTRL PRTY

CZREDB.P11
3207

011736

02-DEC-77 10:00
012737

3208
3209
3210
3211

0117244
011750
011752
0117?54

004737
005300
001361
005301

3215
3216

011772
011776

005037
004737

3218

012004

001367

3221
3222
3223

012022
012036
012032

3212

000001

037026

MACY11 30(1046)

003254

012002

005300

17%:

MOV

188:

003254
037026

3224

3225
3226
3227
3228
3229
gg;g
K]

012034

012042
012044
012046
012050
012054
012062

023737

001401
104002
104415
105237
122737
006ie20

003206

003146

003220

003160

003277
000003

PC.RDBIT
RO’
158
R1

CLR
JSR

PR.BIT
PC,RDBIT

BNE

25$

BNE

MOV
MOV

30%:

32%:
003277

PAGE &2

#1,PR.BIT

JSR
DEC
BNE
DEC

DEC

3219
012006 016237 000006 003146
3220 012014 016237 000020 003160
023737
001401
104056

10:20

TRACK INCREMENT

3213 01175
011760 00135M
012700 000100
3214 011764 013737 003254 003256 25%:
3217

02-DEC-7?7

T1?7

KOS

1as
264
PR. atT M1.BIT

SEQ 3062

;SIMULATE NEXT BIT
:CHECK IF RERDY FOR NEXT HEFJER WORD
'NO, CONTINUE
cutcx IF FINISHED WITH HERDER
INUE
Loho CONT
COUNT
FOR GAP
:SIMULRTE GAP

RO’

CHECK xr GAP FINISHED

E.DR, T.DR
308
Sb

cHECK DISK ADD CORRECT
1YES, CONTINUE
oxsk ADDRESS INCORRECT

32%
R2

vss CHECK IF LOOP ON ERROR
*CYLINDER INCORRECT
:CHECK IF LOOP ON ERROR
: INCREMENT TRACK
'CHECK IF ALL TRACKS TRIED
INO, TRY NEXT VALUE

NTINUE

MOV
MOV

RKDA(R2),T.DA
GE? GET
oxsxCYLINDER
ADDRESS ADD
REG REG.
RKDCYL (R2),T. ocvt

CMP

E.OCYL,T.DCYL

CMP
BEQ
ERROR
BEQ
ERROR
SCOP1
INCB
CMPB
BNE

TRACK
#3, TRACK
18

CHECK IF CYLINDER ADD CORRECT

3232

; o 363 3 3 36 36 3 3 3 36 36 36 36 3 36 36 38 36 36 36 36 3 3 36 36 96 36 3 36 96 36 36 3 36 36 96 3% 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3¢ 36 3 3 3% 36 3 3 %

3235

‘x

CLEAR THE RK611 CONTROLLER WITH R CONTROLLER CLEAR.

3238

SECTOR 25. CLOCK IN BOTH SEEK’AND DRIVE cLEnR nssénass

353?

ggga

firssv 20

3236
3237

D%
¥

3239

T
;!

gg:g

3244
324S5

012064

3247
3248

012074
012100

3250

012112

3246

3249

325]1

3252
3253

3254

000004

012066

012737

012104

012737

012120
012120

000012

001200

001025

003276

013702
005037

001270
003300

012737

O0i2i20

004737

035624

CONTROLLER IN MAINTENANCE MODE.
TO AN RKO6 IN 26 SECTOR FORMAT,
THAT WRITE GATE SETS.

REPERT FOR CYLINDER = 1-632.

MOV

$13, SLPERR

*LORD LOOP ON ERROR LOCATION FOR

PC,

; GENERATE HEADER WORDS

JSR

100000
000040
003300
003276

000000
000026
000020
000006

MOV
MOV
MOV
MOV

3261
3262

012170
012176

012762
012700

000023
000426

000000

MOV
MOV

177777

000002

ITERQTIONS

MOV

012762
012762
013762
013762

012762

;:D0 10.

$BASE, R2
CYLN

MOV

18:

#10.,STIMES

MOV
CLR

012124
012132
012140
012146

0l2is4

MAKE SURE

. o 3636 3 3 3 3 3 36 36 3 3 3 3 3 36 3 36 3 3 3 3 3 3 36 3 3 3 3 3 3 3 2 3 3 % 3 3 3 3 3t 3 I 3 36 3 % 3 3 3 I 3 3 3 W 3 3 K 3¢ % %% ¥R
+4720:
SCOPE

001110

3260 0l2162 012762 0SS216 000004

PUT

ISSUE
R NRITE onrn OF ONE WORD
CYLINDER
O, HERD

SIMULATE SECTOR PULSE AND PROPER HEADER,

3255
3256
3257
3258

3259

CYLINDER INCREMENT

MOV

#1025, SECTOR

INCHDR

#CELR,RKCS1(R2)
sOMD, RKMR1 (R2)
CYLN RKDCYL (R2)
SECTbR RKDA(R2)

1. RKWUC(R2)

sautF RKBA(R2)

:LORD RK&i1 BARSE
SINITIALIZE CYLINDER

; INITIALIZE TRACK AND SECTOR

SUBTEST LOOP

;CLEAR RK61I CONTROLLER
;PUT RKBL1l IN orncnosrxc MODE
:LOAD DESIRED CYLINDER
;LOAD DESIRED TRACK/SECTOR

*WORD COUNT=1

:LOAD DUMMY ADDRESS

#WRDAYA,RKCSI(R2) ; ISSUE WRITE DATA
£63. ¥4+2 RO
Iséus ENOUGH CLOCKS UNTIL RERDY

CZReDBO RKB11l DSKLS CTRL PRTY
CZReDB.P11
02-DEC-77 10:00

3263

3264
3265

Qle202
0le2i0

012762
012762

3267
3268

0leee0
0lceee

801 7
12762

3266

Qle2le

3298

0{2230

01276

3272

0le246

012700

3274
3275

0lezse
0leee0

1579 Biss3s
3273

000440
000040
000140

OOODHS

BR2R3s BBic2

004737

037026

3276
3277

Q0lezs2
8152?0

012737
809737

000001
37026

3279

012300

012701

000003

3278

12274

005300
001374

127C3

3280
3281

812304
1230

012304
013700

3283

012320

006004

3c82 0123l
3284
3285
ggg%

(0le2322
Dle2324
012330

3288

012332

3283
3290
3291
3292
329:
3294

012340
012344
012346
012350
0l235e
012354

3297

012372

3299

012400

MACY1]l 30(1046)
T20

O02-DEC-77
10:20
PRGE &3
CYLINDER INCREMENT

00002e
000026

MOV
MOV

6S%:

000026

003254

03302

12%:

013737 003254 003256 159%:
003254

012737

000001

004737
005300
001361
005301
001354
012700

037026

000100

004737

037026

003254

17%:

18%:

3295
012360
013737
003254
003256 25%329¢,
012366
005037
003254
3298

012376

00S300

3301}
3302
3303
3304

812410
12416
Oleded
0le426

016237
023737
001401
104060

330
3307
3308
3309
3310
ggié

012436
012440
O0lev42
O0Ol2444
Q12480
0l124S6

3313

ggiz

3316
3317
3318

012430

001367

023737

001401
104002
104415
005237
022737
00ieco

000020
003206

003160
003146

003220

003160

003300
000633

82"°:¥K"§“R3’

MOV

32%:

003300

BB
#25S.

MOV
JSR

81,PR.BIT
PC,RDBIT

MOV

#3,R1

DEC
BNE

MOV
MOV

RO
108

;GET _NEXT HERDER WORD
LOQD BITS PER WORD

17%
PR.BIT
189

MOV
CLR

81,PR.BIT

PC,'RDBIT
RO’
15%
R1
123

PRBiT
M1.BIT
PR.B

JSR

PC, RDBIT

BNE

259%

MOV
CMP
BEQ
ERROR
CMP

BEQ
ERROR
SCOP1
INC
CMP
BNE

;SIMULATE SYNCH BIT

(R3)+,RY
#16. R0

BCS
CLR
BR

MOV

;SIMULRTE SECTOR PULSE

GENERATE SYNCH

; SIMULRTE HEARDER

PR.B!T,MI.BIT

JSR
DEC
BNE
DEC
BNE
MOV

FOR SECTOR PULSE

OHEROER,Ra

MOV

ROR

SEQ O0&3

,R0

PC,RDQIT

MOV

30%:

% 3
SOMD!MSP, RKMR1(R2)

JSR

DEC

3300 Q0l2402 016237 000006 003146

3305

EE%

MOV

000020

103403
005037
000403

10%:

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

DEC

BNE
MOV

000026

000377

012252

LOS

RO’

RKDAR(R2),T.DR

;SIMULATE NEXT BIT
CHECK IF RERDY FOR NEXT HEARDER WORD
NO CONTINUE
CHECK IF FINISHED WITH HEARDER
NO CONTINUE
LOAD COUNT FOR GAP

SIMULRTE GRP

CHECK IF GRP FINISHED
ONTINUE

GET DISK QDDRESS REG

RKDCY%(Ré),T DCYE GET ?YL NBSR ADD REG.
E.DAR,T.DA
C
DISK A
CORRECT
309
YES CONTI NUE
60
DISK ADDRESS INCORRECT

E.DCYL,T.DCYL

329
R2

CYLN
#633,CYLN
19

CHECK IF CYLINDER RADD CORRECT

YES CHECK IF LOOP ON ERROR
CYLiNDER INCORRECT
CHECK IF LOOP ON ERROR
INCREHENT CYLINDER
CHECK IF ALL CYLINDER TRIED
NO TRY NEXT VALUE

;-l!llii!lll!ll!!*l*!llll*i!llliliillll!ll!!l!lllillll*lll!i*l***

iTEST el
;¥

s ®
;¥

BAD SECTOR ERROR (PRRT 1)

CLEAR THE RK611 CONTROLLER WITH A CONTROLLER CLEAR.

PUT

CONTROLLER IN MRINTENANCE MODE.
ISSUE A WRITE DATA OF
ONE WORD TO AN RKD6 IN 26 SECTOR FORMAT, CYLINDER O,

CZR6DBO RKE11l

0e-DEC-77 10:00

MACYI1

30(1046)

Tel
’

3321

W
Wit
N»—
O

CZR60B.P11

CSKLS CTRL PRTY4

3325

3326

e
325

s x

géag

3331

012460

000004

3333

oxaq;

013702

3332

0le4ee

012737

soases
040G00
MAKE

15 NoT

000012

oxago

001200

SCOPE
MOV

nox

3339 Q12832 012762 055216 000004

MOV

3342

3343
3344

012846

0l2s52
012560

Ql27&2

012700

000023
000426

Hov

000440
000040

000026
00CO26

012?62

000140

000026

012566
012570

005300
001370

3348
3349

012600
012606

012762
005037

000040
003254

3352
3353

812522
012626

004737
065300

037026

3350
3351
3354

012572

0l26le
012616
012630

0CS037
012700
001374

0126

012737

00000l

3358

012650

012701

0000G3

3356
3357

012640
Ql2ed4

004737
012703

037026
053372

MOV
MOV

1§:

MOV
MOV

SURE

BAD s;EToa ERROR SETS.

5%:

RSE,R

Sk ARKESIABD Logg
GHRPRBKELY
D naNosTIC MOCE
c¥k59;'nuo SECTOR

1RRRACTRS)
&8
osutp
RKBR(R2) iL3RR
:LORD ounnv
eus noonsss

s.RDATA RKCSI (R2
5
$69. #4+2, RO

#DMD . RKMR1 (R2)
PR.BIT

: GENERATE SYNCH

JSR
DEC

PC,RDBIT
RO’

;CHECK IF SYNCH FINISHED

8i,PR.BIT

:SIMULATE SYNCH BIT

CLR
MOV

MOV

JSR
MOV
MOV

cDMD'nSP RKMR1(R2)

M1.BIT
#255. RO

PC'RDBIT
othoe R3
3, Rl

3363
3364
gggg

BCS
CLR
BR

17%
PR.BIT
18%

6004

3367

012702

012737

3369
3370
3371

012714
012716
012720

005300
001361
005301

3368
3372

012710
012722

004737

001354

003254
000001

037026

003254

17%:

18%:

3373 012724 012700 000100
3374 012730 013737 003254 003256 25%:

" ENOLIGH CLOCKS UNTIL RERDY

r R SECTOR PULSE

MOV
CLR

rR3)+ RY
RO
Pn.atT,nl.sxr

103403
005037
000403

ués WRITE DAT

1S8UE

#0MD* MCLK nxnnx(h=>
#DOMD, RKMR] (R2)

MOV
MOV

012672
012674
012700

ITERRT%ONS

:8 QEBETE(RE)

MOV

012

;500 10.

) tong
RK61

RG
18

BNE

003254

oxoSTéMES

3359 012654 012304
12%:
3360 012656 012700 000020
3361 oxag;g 8637 7 003254 003256 15%:
3362

CHECK THAN DISK ADDRESS

INCREMEN

DEC
BNE

MOV

000026

003256
000377

3355

MoV

000000

012762
Gleze2

3345
3346

3347

SEQ O0&H

. Y2222 122222222222:3222222222X22X22222222
2222222223222 X22 2222

t&7121:

3337 Bisesh 815788 999999 B3R3R8
012540

PAGE &Y

THE FOLLOWING DATA:

nox

334]

MOS

HEQQRQESSEC§ fiULQTEChogEC4gRBSLESEESK QNDHE 625 %%fia

33
Q18473 815788 ABRASH BBRA%E
333; 012512 012;52 000000 000020
3340

10:20

BAD SECTOR ERROR (PART 1)

3
¥

;~57

3320

02-DEC-77

ROR

MOV

JSR

DEC
BNE
DEC
BNE

MOV
MOV

$1,PR.BIT

PC.RDBIT

RO’
15%
R1

1as

13
PR.eiT M1.BIT

;SIMULATE SECTOR PULSE

;SIMULATE HERDER ERROR

;GET NEXT HEADER WORD
LOAD BITS PER WORD
STORE PREVIOUS BIT
"GET NEXT BIT

;SIMULATE NEXT BIT

:CHECK IF READY FOR NEXT HERDER WORD
:NO, CONTINUE
cuécx IF FINISHED WITH HERD2
NTINU

Loho COUNT FOR GAP
;SIMULATE GAP

CZR&EDBO RKH11 DSKLS CTRL PRTY

CZRECB.PI1
3375
3376

3377
3378

3379
3381
3382
3383
3384
3385
3380

3386
3387
3388
3389
3390
339]

33,2
ggga

02-DEC-77 10:00

MACY11 30(1046)
T21

012736
Nl12742

00S037
004737

003254
037026

012752
012760
012766
012774
013002
013010
013016

G16237
016237
815237
012737
012737
012737
023737

000000
000010
000014
000023
000300
000200
003200

003140
003150
003154
003200
003210
003214
003140

003210

003150

30S:

003214

003154

32%:

012746
012750

013024
013026
013030
013036
013040
013042

013050
013052

005300
001367

001401
104063
023737
001401
104064
023737

001401
104065

02-DEC-77

10:20

NOS

PAGE &S

SEQ 0065

BAD SECTOR ERROR (PART 1)
CLR
JSR

PR.BIT
PC,RDBIT

MOV
MOV
MOV
MOV
MOV
MOV
CMP

RKCS1(R2),7.CS1 :GEY CS1
RKCS2(R2).T.CS2 :GET C52
:GET ERROR REG
RKER(R2).t.ERTM
:LOAD EXPECTED CSl
SWRDATA,E.CS1
:LORD EXPECTED CS2
#IR'OR,E.CS2
'LORD EXPECTED ERROR REG
#BSE E ER
:CHECK CS1 CORRECT
g£.csl,T.cs1

BEQ
ERROR

TS6T22
&5

DEC
BNE

BEQ
ERROR
CMP
BEQ
ERROR
CMP

RO
25%

;CHECK IF GRP FINISHED
INO, CONTINUE

308
63
E.CS2,T.CS2
328
64
E.ER,T.ER

:YES, CHECK CS@
:CS1’ INCORRECT
:CHECK €S2 CORRECT
IYES, CHECK ERROR REG.
:cS2’ INCORRECT
:CHECK ERROR REG CORRECT

S YES, GO ON TO NEXT TEST
:ERROR REG INCORRECT

3338
3399
3400

H 363 36 36 36 3 9 36 36 36 3 36 36 36 3 36 36 3 36 3 36 3 36 3 36 3 3 36 3 3 9 36 36 3 3 ot 3 3 36 3 30 3 3 3 3 3 3 3 3 3 3 30 3 3 36 3 3 3 3 3 3 % %
SATEST 22
BAD SECTOR ERROR (PART 2)
CLEAR THE RK6&11 CONTROLLER WITH R CONTROLLER CLERR. PUT
‘a
ISSUE R WRITE DATA OF
CONTROLLER IN MAINTENANCE MODE.
‘x
ONE WORD TO AN RKO® IN 26 SECTOR FORMAT, CYLINDER O
¥

3402

3395
3339

3401

3403

HEAD 0. SECTOR 0.

t¥

THE FOLLOWING DATRA:

3404

; %

3409

3405
3406
g:gg

T
T
e
H %*

g:i?

34l2
3413

013054

3415

013064

3414
3416

000004

013056

012737

0000i2

001200

013070

012762

100000

000000

013702

001270

3417
3418
3419
3420
3421
3422
3423
3424
3425
3426

013076
013104
013112
013120
013126
013134
013142
(013146
013154

0l2762
012762
012762
012762
012762
012762
012700
012762
012762

000040
000000
000000
177777
0SS216
000023
000426

000026
000020
006006
000002
000004
000000

000440
000040

000026
000026

3429

013166

012762

000140

000026

3427
3428

3430

MESSAGES.

013162
0:31e4

013174

005300
001370

012762

000040

000026

CLOCK IN BOTH SEEK AND DRIVE CLEAR

SIMULATE A SECTOR PULSE AND A HEARDER WITH

000000
100000
100000

MAKE SURE BAD SECTOR ERROR SETS.
IS NOT INCREMENTED.

CHECK THAT DISK ADDRESS

.. 3636 3 36 96 36 36 6 36 36 3 36 36 96 35 36 36 3 36 3 36 36 36 3¢ 36 3 96 3 3 3 36 3 36 3 3 3 3 3 3 3t 3 36 3 3¢ J 3¢ 3 3 3 3 9% 3 3 3 3 3 3 3 3 % %4 3
t4122: SCOPE
MOV

MOV
MOV

1%:

#10.,STIMES

;:D0 10. ITERATIONS

8CCLR'RKCS1(R2)

:CLEAR RKb1l

$B8RSE, R2

;L OAD RK611 BASE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#DMD, RKMR1 (RZ) :PUT RKBLI IN DIAGNOSTIC MODE
#0,RKDCYL (R2) ;L OAD CYL INDE
;LORD TRACK AND SECTOR
$0’ RKDA(R2)
s-1, RKWC (R2)
:WORD COUNT=1
#8UFF RKBA(R2) :LORD DUMMY BUS ADDRESS
sWRDATA RKCSI(R2Y TM :ISSUE WRITE DATA
- 1SSUE ENOUGH CLOCKS UNTIL RERDY
$69. ¥4+2, RO

MOV
MOV

#OMD
! MCLK , RKMR1 (R2)
#0OMD, RKMR1 (R2)

DEC
BNE

RO
18

MOV

#DMD
, RKMR1 (R2)

MOV

$DMD'MSP,RKMR1(R2)

"FOR SECTOR PULSE

;SIMULARTE SECTOR PULSE

CZR6DBO RKbB11 DSKLS CTRL PRTM
CZRe0B.P11
02-DEC-77 10:n0

3431
3432
3433

013202
013206
013212

005037
005037
012700

343S

013222

005300

3434

013216

3436

013224

3438
3439

013234
013240

3437

013226

004737
001374

012737

004737
012703

MACY!l

003254
003256
000377

037026
000001

037026
053400

30(1048)
Tee

5%:
003254

3444

013244

013264

3445
3446
g::g

013266
013270
013274

3449

3452

3450
3451

012701

006004

103403
005037
000403

003254

013276

012737

000001

013312

001361

013304
013310

004737
00S300

037026

003254

17%:

18%:

013316
013320
013324

001354
012700
013737

013342

005300

3457
3458

013332
013336

3460
3461
3462
3463
3464
3465
3466
3467

013344
013346
013354
013362
013370
013376
013404
013412

001367
016237
016237
016237
012737
012737
012737
023737

3470
3471
3472
3473
3474

013424
013432
013434
013436
013444

023737
001401
104064
023737
001401

3459

3468
3469

013420
013422

005037
004737

001401
104063

g:;g 013446 104085

; GENERATE SYNCH

DEC

;CHECK IF SYNCH FINISHED

%l ,FR.BIT

; SIMULATE SYNCH BIT

JSR

PC,RDBIT

JSR
MOV

PC,RDBIT
BHER03 R3

MOV
MOV
MOV

(R3)+ RY
RO
PR.BiT,HI.BIT

BCS
CLR
BR

173
PR.BIT
18%

MOV

ROR

MOV

$1,PR.BIT

003254
037026

003256

25%:

003140
003:50
003154
003200
003210
003214
003140

00321C

003150

30%:

003214

003154

32%:

;GET NEXT BIT

; SIMULRTE NEXT BIT
CHECK IF READY FOR NEXT HEADER WORD

BNE
MOV
MOV

128
864. RO
PR.BIT,M1.BIT

;NO, CONTINUE
:LOAD CQUNT FOR GRP
;SIMULATE GRP

; CHECK IF GRP FINISHED

0s
63

;YES, CHECK CS2
;CS1 INCOTRECT

15%

CLR
JSR

PR.BIT
PC,ROBIT

DEC

000000
000010
000014
000023
000300
000200
003200

;GET NEXT HERDER WORD
:LOAD BITS PER WORD
:STORE_PREVIOQUS BIT

PC,ROBIT
RQ’

DEC
000100
003254

; SIMULARTE HERDER ERROR

JSR
DEC

BNE

3453 013314 00S301

3454
3455
3456

PR.BIT
M1.BIT
8255. ,RC

MOV

000003

SEQ J066

CLR
CLR
MOV
BNE

3441 013250 Q12304
12%:
J442 013252 012700 000020
3443 013256 013737 003254 003256 158:
3440

BO6

02-DEC-77
10:20
PRGE_6b
BRD SECTOR ERROR (PART 2)

NTINUE

CHECK IF FINISHED WITH HERD3

BNE
MOV
MOV
MOV
MOV
MOV
MOV
CMP

259
iNO, CONTINUE
RKCS1(R2),T.cS1:GEY CS1
RKCS2(R2) . T.C52 ;GET CS2
RKER(R2),t.ERTM
GET ERROR REG
8WRDATA £ . CS1
:LORD EXPECTED CS!
sIR!OR,E.CS2
;LORD EXPECTED C32
$BSE E.ER
:LORD EXPECTED ERROR REG
£.csl,1.cs1
;CHECK CSI CORRECT

CcMP
BEQ
ERROR
CHP
BEQ

E.CS2,T.CS2
328
&Y
E.ER,T.ER
T5T23

BEQ
ERROR

ERROR

$ 5 JEIIE 060006060606 00

3480
3481
3482

¥
P ®
; ®

CLEAR RK&11 CONTROLLER WITH A CONTROLLER CLEAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE R WRITE DATA OF
ONE NORD TO_AN RKO6 IN 24 SECTOR FORMAT,
CYLINDER 1253,

3485
3486

o
;¥

1 BIT DIFFERENT IN 30 BITS OF OPI DETERMININATION. ALL
SIMULQTED HERDERS, HAVE GOOD HEADER VRC.
MAKE SURE ONLY

3483

3484

,fiTEST 23

;¥

HEAD2,

303

ERROfi REG INCORRECT

3477

g:;g

0 0

;CHECK CS. CORRECT
:YES, CHECK ERROR REG.
:CS2’ INCORRECT
CHECK ERROR REG CORRECT
;
0 ON TO NEXT TEST

H 336 303 30 36 36 30 30 3030 30 330 36 30 06 3606 30 30 36 36 00 30 06 6 36 6 0 06 06 36 30 06 O 26 00 300 3

OPERARTION INCOMPLETE

SECTOR 23.

CLOCK IN BOTH SEEK AND DRIVE CLEAR’

HESSQGES SIMULATE A SECTOR PULSE AND 32 SECTORS WITH

CZR6DBO RKE1: DSKLS CTRL PRTH
CZReDB.P11
02-0eC-77 10:00

MACY11

3487

8
’

3488
3489

£l 8igs
35%3

013610

0%3642

3521
3522
3523
3524
35eS
3526
3527

013660
013664
8136 0
013674
013700
013702
013704
013712
013716
013722
013724
013730
013736
013740
01374
013746

3530
3531
3532
3533

3534
3535
3536
3537
3538
3539
3540
3541
3542

013750
013756
013762
013764
013766

Roc?

000040
055216
177777
001253
001023
010023
000426

000026
000004
000002
000020
000006
000000

000440
000040

000026
000026

753 Gooas

0003?8

et et Pt P

e
o

000040
000037

213 4ige

3528
3529

19:

0sS

£l gl
£l gien
3518

000000

OPERATION INCOMPLETE AND CONTROLLER ARE THE ONLY ERRORS
THRT

003200
003210
003224

000026
000026
003310

SCOPE

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

MOV
MOV
DEC
BNE

#10.,STIMES

SEARSE, RS

#CCLR RKCS1(R2)

#2500, RO

RO
e

ISHD RKMR]1 (R (R2 )

000001
037026
000003
000020
003254

“SET COUNT FOR STALL

;DEC COUNT

;bO?P UNTIL O
;PUT
RKB11l IN DIAGNOSTIC

MODE

OR PULSE

agno,nxnaltna)
18

#32.

:LORD HERDER COUNT

obno!neuo!eccu,sfn31 -Lons EXBEETES
MR ]
HERDER COUNT

HDRCNT

- INITIALI2E

#3]

:CHECK
]F _ALL
_DONE
RROR TEST
#o HEADERS
- gKIP
;YEE

#DMD
! MSP,RKMR1 (R2) ;SIMULATE SECTOR PULSE
#DMD
, RKMR 1 (R2)
., HDRCNT

Mi.BIT
#255. . RO

PC,ROBIT

003254
12%:

15%:

:GENERRTE SYNCH

Rgs

:CHECK

$1,PR.BIT

:SIMULATE SYNCH BIY

PC.RDBIT
%3 RI

(R3)+,RY
$16. RO
PR.BYT M1.BIT
RY
178

IF SYNCH FINISHED

;SIMULATE OPI

"GET NEXT HEADER WORD
'LORD BITS PER WORD
;STORE PREVIOUS BIT
‘GET NEXT BIT

PR.BIT
18%

003254

005301

:CLERR RKb11

#0MD
! MCLK , RKMR1 (R2)

asi

10%:

003256

ITERATIONS

#BUFF, RKBA (R 2) ;LOAD DUMMY BUFFER RDDRESS
8-1,RKWC (R2)
:WORD COUNT = 1
#1263, RKDCYL ( (R2) " ;LORD_CYL INDER
2
#1023 RKDA(R2)
;L0AD TRACK AND SECTOR
sWRDATAYCFMT, RKCSI(R2) :ISSUE WRITE DATA
515?35 ggggcn CLODKS UNTIL READT
869. #4+2, RO

PR.BIT

37026

::00 10.

:(LORD RKB11 BRSE

s0P1].R3
:LORD RODRESS OF HEADERS
sWRDAYATCFMT,E.CS1
-LORD EXPECTED CSI

m~N)
R

0{32;2

001200

——

013560
013566
013570

NN~
N RWNOD

013552

700

3506

goog0lie
001270
100000
002500

+8123:

013510
013516
Q13524
013532
013540
013546

Pt Pt Pt Pt

3439
3500
3501
3502
3503
gggg

SS{O

SEG 0067

I ITETIITILLILLILITIZIZEZILIESZZLSLL2L
2222222222 22222222 22 22 2

013450
013452
81 460
13464
013472
0}3476

5% 5

3507
508
3509

CO6

PRGE &7
10:20
02-DEC-77
OPERATION INCOMPLETE

1R2

[
p—.—p—.p—-p—;—p—.o
(DCXDC%38¥2CJ
CJCKDCNDCKNDE?DCHDC%%
N
— U

34390
3491
3492
3493
3494
3495
g:gg

30(1046)
723

#1,PR.BIT

PC.ROBIT
RO
158

:SIMULATE NEXT BIT
:CHECK IF READY FOR NEXT HEADER WORD
:NO,
CONTINUE

:CHECK IF FINISHED WITH HERDER

CZR6DBO RKbB11

CZR&DB.P11

DSKLS CTRL PRTY

02-DEC-?7 10:00

3sqs

013776

013737

14010
14014

4737
s3

14
ox:oes

7
01523;

3554
3555
3656
3557
3558

014050
gxqgéa
Q14084
014062
014064

001401
62%974
3737
001401
104075

3560
Séfié

014074
Biq 58

001401
6?”879

3563

014106

023737

ng
g

141é8
141

6 4
c337

3568

oi:{gg

0?191;

3573

014160

gg 3
5
3551

30(1046)

Te3

qugéa

003254

Sggsgq

003256

25%:

000000
000013

003140
ooaigg

26%:

SENd

3567

014066
Y

QI4114

014124

3577

014162
014166
014174
0l4202

014234

PAGE 68

PR.BYT,M1.BIT

JSR
DEC

PS,RDBIT

MOV
:83

KCS1(R2),T.CS1 :GE?Y
s§c§§éaf)?7égsa GE; Ega

sCHECK IF GAP IS FINISHED

BNE

sss

PEE(REIadiB®

BEQ
ERROR
CMP
BEQ
ERROR

:NQ

vss CONTINUE
é ngg ES
HECK
€S
RRECT
vss CON
T
E NE s

003154

318:

CMP

E£.ER,T.ER

6237

000026

003164

32%:

MOV

RKMR1(R2),T.MR1

022737

003310
000037

003310

001402

000137
O0le762
016237
016237

013634
100000
000000

‘

000010

000000
003140

358

37%:

CMP

ERROR

REG CORRECT

YES CONTINUE
ER@ORREG INCORRECT

E.MR1,T.MRL

CHECK TO nnxs SURE WRITE GRATE DID NOT SET

7
HDRCNT

#31.,HDRCNT

35 gl €

é
NCRENERT HEQDER COUNT

CHECK IF LAST HERDER

*NO cuscg IF FINSHED

Bl
BIS
DEC

aghrebek]
+OHD BRBOR
BIT o eND OF OP CONTENTS
nRD?'CERR
E.CS1
RS
;CHECK IF FINISHED

JMP
MOV
MOV

c$
oo NEXT SECTOR
8CCLR,RKCS1(R2) ,CLERR CONTROLLER
RKCS1EtR2),T.CS1 :GET €SI

noy
CMP
BEQ

RKERALLER
.Bsi.E.§§1
TST24

BEQ

37%

MOV

104153

3584

HECK

23
76
;qs

2“5

003150

CMP

34§

£.CS2,T.CS2

BEQ
ERROR

SgNTINUE

iERECERRYT BGRect

308
74

003214

O 149;

:SIMULRTE GAP

.BI

023737

003164

CONT INYE

;LSAB COUNT FOR GAP

MOV

c§n

39%:

003224

SEQ 0068

:NQ,

ugw RO

003150

3279 814524
Dlusie 85
13537
Doooid
BosiEd
3580
737
00814
003200
3581
014232
061401
gggg

DO6

003210

3253
gwws
845737
BER33T
BB354d
3571
014150
052737
1060200
003200
3572
014156
00S30S
3574
3575
3576

10:20

OPERATION INCOMPLETE

3225 BiuBd3 Bi%s37 BB%34S B83iad

3559

02-DEC-77

3&»3 8!3539 8?5980 000100
49

MACYll

YES
- SKIP

RKCS2(R2),T.CS2

ERROR

153

;

cSe

G R IF ecrep
oo
:CHECK
CORRECT
GO TO NEXT TEST

Y 122222222 2222222222222222222XX322XX2322X22222222
2222222222220 8

gggé

,irssr 24

3587
3588
3689

¥
S E
"

CLEAR RKH611 CONTROLLER WITH
A CONTRC _ER CLERR.
PUT
CONTROLLER
IN MRINTENANCE MODE.
ISSUE
A WRITE DATA OF
ONE uon
ux H CDOT SET IN 24 SECTOR FORMAT,
CYLINDER 1253,

OF THE VRC INCORRECT.

3590

359}

35382

3593

;l’

323?

3596

3597

3598

014236
014240

000004

012737

HERDER VRC

HEAD2,

SECTOR 23.

CLOCK IN BOTH SEEK AND DRIVE CLEQR

nessncés SIMULRTE SECTOR PULSE AND HEADER WITH BITO
MAKE SURE ONLY HEADER VRC AND

CONTROLLER ERROR ARE THE ONLY ERRORS SET.

BITS

1-15

VRC.

REPENT FOR

2212222222222
2222222122222222 2222222322222 222222 222222284

000012

001200

+4124:

SCOPE

MOV

#10.,3TIMES

.:D0

10.

ITERATIONS

CZR60B0 pRK&ll
CZRBDB. 11

DSKLS CTRL

0e2-DEC-77

PRTH

10:00

MACY1l

30(1046)
Teu

f&&.fil&&
LfELEL L L L LLLE
LWl
VU‘U"U‘!U‘J:&U#N*-DL0000
NN
880‘\&&!\"’0'\»—»—.—
onEcLnNeoo
o
(=]

B
e Be
S be e

570

000403

012737
004737
005300
001361
00301

000000

18:

VRC

10:20

EOH

PRGE &9

SES 00869

MOV

$BASE , R2

:LOAD RKB11

MOV
MOV

81, STHPY
#18 SLPERR

:INITIALIZE BIT FOR VRC ERROR
:LORD LOOP ON ERROR LOCATION FOR

MOV
MOV

8CCLR,RKCS1(R2)
#2000, RO

;CLERR RKG11
.SET COUNT FOR STALL

BNE
MOV

28
#0MD,RKMR1(R2)

'LOOP UNTIL O
:PUT RKb611 IN MRINTENANCE MODE

DEC

BRSE

8CFMTICOT'WKDATA
E.CS1 ;LOAD EXPECTED CSl
#IR'0OR,E.CS2
:LOAD EXPECTED €S2
sHVRC, £ . ER
'LORD EXPECTED ERROR REGISTER

SUBTEST LOOP

:DEC COUNT

000040
140370
001170

000026
055200
055200

001170

055200

BIC
BR

§TMPY
, VRCHDR+Y4
cs

055200

BIS
MOV

$TMPY, VRCHDR+Y4
#BUFF RKBA(R2)

MOV

#1253 RKDCYL (R2)’ :LOAD CYLINDER

MOV
gég

MOV
MOV

MOV

000000

000040

000026
000026

000140
000040
003254
003256
000377
037026

000026
000026

000001
037026
055174
000003

003254

000020
003254

s Dt Bt Pt Bt 5t (ot

nonee
U\U‘IJZUUB'\)NF-’-‘D
L O £0MOoos

~N
o
o

~N
[ead nNeoOnNOCONCONN

Bt b
e et Bt Bt Pt P

o—p—OQ;u—Hb—o—o—o—

s ot Pt Bt (s Dt e o

Lt
s
v g £ fLfrrLfrrrLf
LELELLL

P ps e Bt be Pt Bt Bt Dt Pt Bt Bt

O000O00O00OO0OO0O00O00O00OO00O000D0D000D
O000O0

Pt Pme
Pt o Pt P
s P

WWWWWww W
oo o

Lwh

e Bom

100000
002000

HEADER

MOV
MOV
MOV

O00DOO00O00OD

001270
012023
000300
000400
000001
014310

02-DEC-?7

003254

MOV

203%:

8-1, RKWC (R2)
#1023,RKDA(R2)
#69. #9442, RO

sOMD RKMR] (R2)
PR.BIT

M1.BIT
#255. . RO

PC,RDBIT

RO
1SS

MOV

#VRCHOR, R3

MOV

81,PR.BIT
PC RDBIT
#3,R1

;SIMULATE SECTOR PULSE

s INITIAL BITS
: SIMULATE SYNCH

: GENERATE SYNCH BIT
:SIMULSTE SYNC 1 BIT

:LOAD ADDRESS OF HEARDER
:LOAD HEADER COUNT

(R3)+,RY

SGET NEXT HMEADER WORD

PR.BYT,M1.BIT

:SIMULATE NEXT BIT

816.,R0

ROR
BCS
CLR
BR

RY
238
PR.BIT
25%

MOV
JSR

#1,PR.BIT
PC.RDBIT

OEC

DEC
BNE

'LOAD COUNT UNTIL RERDY FOR SECTOR

#DMD* MSP,RKMR1 (R2)

DEC
BNE

MOV

1253

#DMD
, RKMR] (R2)

MOV
CLR

JSR

'WORD COUNT = 1
;LOAD TRACK 2 SECTOR 23

#DMD
! MCLK , RKMR1 (R2)
RO
108

CLR
MOY

;LORD DUMMY ADDRESS

sCFMTICDT
' WRDATA, RKCS1 (R2) ; ISSUE COMMAND

DEC
BNE

MOV
JSR

17¢:
003256

MOV

15%:

003254

000001
037026

108:

#140370, VRCHDR+4’ ; LOARC VRC
3;npq,vhcuon+q ;MAKE ONE BIT BRD

RO
208

'LORD BITS PER WORD

:CHECK IF FINISHED WITH WORD
:NO,
CONTINUE

:CHECK IF HEADER FINISHED

CZREDBO RKBL1
CZRE0B.P11

3655

014602

3658
3659
3660
3661
3662
3663

Q014616
0l4622
014626
014630
014632
014640

3656
3657

3664
3665

3666
3667
3668
3669
3670

014604
014610

014646
014654

DSKLS CTRL PRTY
92-DEC-77 10:00

001354

012700
013737
005037
004737
00
001367
016237
016237

016237
023737

014662
014664
014666
014674
014676

00140!
104071
023737
001401
104072

3672

014706

001401

3674

014712

3671

3673
3675
3676

gg;g

014700
014710

014714
014720

014722

023737

MACYI1 30(1046)
Tod

BNE

000100
003254

003256

000000
000010

003140
003150

003254
0370626

104415

000137

30%:

000014
003200

003154
003140

003210

003150

35%:

003214

003154

37%:

104073

006337
103402

014310

e
¥
Dx

tx
a

3688
3689
3630
3691
3235

1
' x
s %
;l'
Py

178

SEQG 0070

:NO,

864. RO
PR.BIT,
1. BIT

CONTINUE

:SIMULATE GAP

BEQ
ERROR
CMP
BEQ
ERROR

35§
71
E.CS2,T.CS2
37¢
72

:YES, CHECK CSe
2CS1’ INCORRECT
:CHECK CSe CORRECT
'YES, CHECK
ERROR REG
:CS2° INCORRECT

40$

'YES,

RKER(R2).}.ERTM
E.CS1,T.8s1

cCMP

E.ER,T.ER

ERROR

BEQ

SCOP1

ASL
BCS

STMPY
TST2S

:STORE ERROR REG
:CHECK CS1 CORRECT

:CHECK ERROR REG CORRECT

CHECK IF LOOP ON ERROR

:ERROR REG INCORRECT

'CHECK IF LOOP ON ERROR

SGET NEXT PATTERN
P CHECK IF FINISHED

*NO, CONTINUE

BAD SECTOR ERROR AND HERADER VRC

CLEAR RKE11 CONTROLLER WITH A CONTROLLER CLERAR.
PUT
CONTROLLER IN MAINTENANCE MODE.
ISSUE R WRITE DATA OF
ONE WORD TO AN RKOB IN 26 SECTOR FORMAT,
CYLINDER 300.

HEARD 1, SECTOR 17, CLOCK IN BOTH SEEK AND DRIVE CLEAR
MESSAGES. SIMULAYE THE FOLLOWING HERDER:
000300
040057
040356
MAKE SURE ONLY HERDER VRC ERROR SETS.

< 3%

389‘4
3695

014726

000004

3697

014736

013702

014750

012762

014730

3688

014742

3700

014756

012737

000012

001200

100000

000000

0l2762

000300

000020

012762
012762
012700

055216
000023
000426

000004
000000

000440
000040

000026
000026

012762

3703
3704
3705

014764
014772
015000
015006
015014

012762
012762

3707
3708

015020
015026

012762
012762

3709
3710

PARGE 70

PR.BIT
PC,ROBIT
RC
308
RKCS1(R2),T.CS1 ;STORE CSl
RKCS2(R2) . T.CS2 :STORE €52

TkTEST 25

3685
ggg%

3706

FO6

s [ Y 2222222222222222222222X2X222222222X22XX2222222222
2222222222324

3682
3683
3684

3701
3702

10:20

CLR
JSR
DEC
BNE
MOV
MOV

JMP

3679

3699

MOV
MOV

MOV
CMP

408 :

005170

3289

3696

02-DEC-?7
HERDER VRC

015034
01S03&

005300
001370

001270

000040

000417
177777

.. P2 Y222222222222212222221222222222X2222X2XX2222X2222X22222X2 222222 L
t&1es:
SCoOPE
MOV

000006
000002

ITERATIONS

:LOAD RK611 BARSE

MOV

#0MD, RKMR1 (R2)

:PUT RKb11 IN DIAGNOSTIC MODE

#CCLR RKCS1(R2)

;CLERR RKG611

MOV

#300.RKDCYL
(R2) ' ;LOAD CYL INDER

MOV
MOV
MOV

#BUEF , RKBA(R2)
:LOAD DUMMY BUS ADDRESS
sWRDARTA RKCSI(R2Y ; ISSUE WRITE DATA
$69. ¥4+ RO
: ISSUE ENOUGH CLOCKS UNTIL RERDY

MOV
MOV

#OMD
' MCLK , RKMR1 (R2)
#0OMD
| RKMR] (R2)

MOV
MOV

1§:

;;00 10.

$BARSE, R2

MOV

000026

#10.,STIMES

MOV

DEC
BNE

si417 RKDA(R2)
8-1,RKWC(R2)

;LORD TRACK AND SECTOR
{WORD COUNT=1
:

RO
13

"“"FOR SECTOR PULSE

015060
015064
015070
015074
01507
0{5{00

005037
012700
004737
S300
001374
065;3;

3722
3723
3724
3725
3726
3727
3728
3723

015116
015122
Q01S124
015130
015136
015140
015142
015146

012701
012304
012700
013737
006004
103403
005037
000403

015150
015156

012737
004737

7g bl

003254

129:

003256

159%:

000001
037026

3735 815166 005301

3741
3742
3743
3744
3748
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755

3756
3757
3758
3759
3760
3761
3762
3763
3764
376S

015204
015210

015214
015216
015220
015226
015234
015242
015250
015256
015264
015272
015274
015276
015304
015306
015310
015316
015320

00S037
004737

005300
001367
0Ole237
016237
016237
012737
012737
012737
023737
001401
104066
023737
001404
104067
023737

001401
104070

JSR

PC,RDBIT

CLR
MOV

ggg

003254
037026

00325k

25$%:

003214

003154

32%:

: GENERATE SYNCH

#1,PR.BIT
PC.RDBIT

;SIMULATE SYNCH BIT

MOV

23, Rl

IF SYNCH FINISHED

MOV

#16.

sHEADY, R3

:SIMULATE HEADER ERROR

(R3)+ Ry

:GET NEXT HEADER WORD

MOV

PR.BYT,M1.BIT

:STORE PREVIOUS BIT

B8CS

17%

MOV

ROR

MOV

#1,PR.BIT

PC.RDBIT
RO
&ss

BNE

12%

MOV
MOV

'CHECK IF FINISHED WITH HERDY

#64. RO
PR.BYT,M1.BIT

DEC
BNE
MOV

RKCS2(R2) . T.CS2

CMP

E.CS1,T.CS1

ERROR
CMP

bbb
E.CS2,T.CS2

BEQ
ERROR
CMP
BEQ

ERROR

:GET NEXT BIT

; SIMULATE NEXT BIT
'CHECK IF READY FOR NEXT HEADER WORD
:NO
conrxngs

PR.BIT
PC,RDBIT
RO
25$

CLR
JSR

:LO0AD BITS PER WORD

PR.BIT
18%

JSR
DEC
BNE

BEQ

30%:

SECTOR PULSE

MOV
JSR

MOV
MOV
MOV
MOV

003210

;SIMULRTE

:CHECK

MOV

000000
000010
000014
000023
000300
000400
003200

M1.BIT
8255. . RO

SEQ 007!

OeC

g? 8 81217E 81 789 883254

3739
3740

#0OMD RKMR1 (R2)
PR.BLT

CLR
BR
003254

#DMD!MSP_ RKMR1(R2)

MOV
CLR

MOV

003es4

3731
3732

GO6

02-DEC-77
10:20
PRGE 71
BAD SECTOR ERROR AND HERDER VRC
MoV

£3:

000003

000020
003254

Tes

000026
000026

003256
000377
037026
009801

30(1046)

gles

3714
3715
3716
3717
3718
3%18

MACY11l

o~
[
1]

pis sl

DSKLS CTRL PRTH
0e-DEC-77 10:00

P—

CZR6DBO RKB11
CZReDB.P11

:NO,

CONTINUE

:LOAD COUNT FOR GAP
;SIMULATE GAP
:CHECK IF GAP FINISHED
*NO,
CONTINUE

RKCS1(R2),T.CS1 :GeE} £S1
;GET

€S2

RKER(R2),t.ER
SWRDATA, E.CS1
#IR'OR,E.CS2
#HVRC, £ . ER

GET ERROR REG
LOAD EXPECTED CSl
:L0AD EXPECTED €S2
'LOAD EXPECTED ERROR REG.

308

:YES,

32¢
b7
E.ER, T.ER

16728

:CHECK CSI CORRECT

CHECK

:CS1’ INCORRE
:CHECK €S2 CORRECT

'YES, CHECK ERROR REG
:CS2’ INCORRECT

:CHECK ERROR REG CORRECT
GO ON TO NEXT TEST
P CYES

: ERROK REG INCORRECT

o 303636 3 3 06 3 36 36 3 36 36 3 96 36 36 36 36 36 36 36 3 36 36 36 3 3 36 3 36 36 30 36 38 36 36 3 36 36 % 36 3 3 3 36 3 3 3 36 3 3 3 36 3¢ 3 3 3 % 3 ¥ X R %

;ivssr 26
s

GOOD HERDER AND PREVIOUS BSE

CLEAR RKG611

CONTROLLER WITH CONTROLLER CLEAR.

PUT

;¥

CONTROLLER IN DIRGNOSTIC MODE.

"
¥

HERD O, SECTOR 1. CLGCK THROUGH SEEK RND DRIVE CLEAR
MESSAGES. SIMULATE A SECTOR PULSE AND A HEADER OF THE

‘x

ONE WORD TO AN RKO6

ISSUE A WRITE DATR OF

IN 26 SECTOR FORMAT,

CYLINDER

100,

CZR6DBO RKB11 DSKLS CTRL PRTM

CZRGDB.P11

02-DEC-77 10:00

MACYIl 30(1046)

02-DEC-77

.HOG

10:20

PAGE 72

SES 0072

T26

GOOD HERDER AND PREVIOUS BSE

§;g7

FOLLOWING 3 WORDS WITH A BAD SECTOR INDICATION:

3770
g;‘/?'é

;l'

3773

3774
377%

¥
X

3776

3;50

P ¥

3777
3778

‘e

g;gg

3785

3786

3787

040000
oN40100

MAKE SURE NG ERROR IS REFORTED AND WRITE GATE DOES NOT

SET.
SIMULATE A SECTOR PULSE AND A HERDER OF THE FOLLOWING
3 WORDS:

I
S

3781

3784

000100

¥
iR

015322

000004

016332

013702

015324

Q012737

000100
140001

140101

MAKE SURE WRITE GATE SETS INDICATING THAT HEADER HAS

BEEN RECOGNIZED.

XXX 2222222222222222:2222X22XX22X222XXX2XXXXZXTSLIIILILLE
L)

000012

001270

001200

+&T26:

SCOPE
MOV

8-1,RKIWC(R2)
#1,RKDA(R2)

MOV

#DMD! MCLK , RKMR1 (R2)

DEC
BNE

RO
15

$793
0icns Bis7es 200429 828858
3745 81?41 815738 800458

nov
MOV

012762
012762

177777
000001

000002
C00006

3797

0Q1S414

012762

000440

000026

3799
3800

015430
015432

005300
001370

3805
3806
3807

3796

3798

uono COUN
:LOAD TRACK nNo SECTOR

e100,RKDCYL(R2)
iLOBD CYLINDER i
$69. #4+2 RO
: ISSUE ENOUGH CLOCKS UNTIL READY
: " "FOR SECTOR PULSE

012705

000002

015460
018464
015472

005037
012737
005037

003214
022040
003310

003224

CLR
MOV
CLR

E.ER
:LOAD EXPECTED MRI
#DMD!MEWD
! ECCW, E . HRl -LOAD EXPECTED nnx
HDRCNT
NITIALIZE HEADER COUNT

3809
3810

015504
015512

012762
005037

000040
003254

000026

MOV
CLR

#0MD . RKMR1 (R2)
PR.BIT

3812

015522

012700

MOV

3802 015440 012703 0S3414
3803 015444 012737 000023 003200
3804 015452 Q012737 000360 003210

MOV
MOV
MOV

3808 015476 012762 000140 000026 S%:
3811

3813

3814

3815

015516

015526
015532
(018534

005037

003256

004737

037026

005300
(01374

3816

015536

012737

3819
3820
3821
3822

(015554
015566
015562
015570

012304
012700
013737
006004

3817
3818

015844
015550

004737
012761

000377

000001

037026
000003

000020
003254

10%:
003254

MOV

15%:

#0MD, RKMR] (R2)

cHénos R3
#RDATA,E.CS1
$IR'OR, é cs2

M1.BIT

JSR

PC,RDBIT

BNE

10%

MOV

DEC

JSR
MOV

MOV
MOV
MOV
ROR

;LOAD HERDER COUNT

:L0AD ADDRESS or HERDERS
:LOAD Expecrsg
'LOAD EXPECTE csa

#0MD ! MSP RKNRl(Ré) ; SIMULATE SECTOR PULSE

CLR

MOV

12%:

003256

MOV

'°SLRaE§SS%é“§’
iGLERR RKBLL - NOSTIC MODE
ogugt RKB (RS) 390 ounnv au ADDRESS

000040

015434

000026

ITERATIGNS

:(0AD RKb11 snse

Qle7be

3801

018422

1%:

::D0 10.

MOV
MOV

Mo
MOV

015360
015366

srxnes

$8RSE,R

3789
0ic333 Bis7es 599040 Bagooe
3730 815 52 81575 82821
00004
3791
3792

810.

MOV

8255,

; GENERATE SYNCH

:CHECK

$1,PR.BIT

s SIMULATE SYNCH BIT

PC,RDBIT
83 R1

(R3)%+ R4
#16. RO
PR.BIT,M1.BIT
RY

IF SYNCH FINISHED

: SIMULATE HERDER

'GET NEXT HERDER WORD
:LOAD BITS PER WORD
:STORE PREVIOUS BIT
:GET NEXT BIT

DSKLS CTRL PRTH
02-DEC-77 10:00

000001
037026

013737

003254
003254
037026

003254

18%:

000102

000000
0.0010
000014
003200

003256

25%:

003210
003214

s1,PR.BIT

MOV

JSR
DEC

PC ROBIT
RG’

MOV

#66. ,RO

003150

MOV
CLR
JSR

003154

000026
003224

003164
003164

BEQ

003310
062040

003224

32%:

348

015476

Wr
e
s B B BT
e
W
AL
MIMI
Bt
G

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

41w

PR. BIT M1.BIT
PR.BIT
PC,RDBIT

'SIMULATE GAP

RKER(R2), }.ER
£.cs1,T.8si

:GET ERROR REG
:CHECK CS1 CORRECT
1YES, CONTINUE
:CS1’ INCORRECT
CHECK €S2 CORRECT

CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

E. csa T.CS2
318
115
E.ER,T.ER
328
116
RKMR1(R2),T.MR1

YES,

CONTINUE

SYES,

CONTINUE

1S FINISHED

csa INCORRECT
: CHECK ERROR REG CORRECT

:ERROR REG INCORRECT
'GET MR1
£.MR1, T.MRI
'CHECK WRITE GATE CORRECT
'YES, CONTINUE
348
:MR1’ INCORRECT
117
* INCREMENT HERDER COUN
HDRCNT
SWRTGAT! DMD!nEuo'Eccu E.MR] - LORD EXPECTED MR
Eck iF FINISHED
RS

CMP

BEQ
ERROR
INC
MOV
DEC
BEQ
IMP

Loho
counr FOR GAP
PLUS 2 COUNTS FOR WRTGAT TO SET

3os

ERROR

iTEsr 2?7

:NO, CONTINUE
cnécxIrxfifiEISHED WITH HERDER

sCHECK IF GAP
INO, CONTINUE
25%
RKCS1(R2),T7.CS1
» GEY CS1
RKCS2(R2) . T.CS2 GET cs2

MOV
cHP

31%:

'CHECK IF RERDY FOR NEXT HERDER WORD

RO’

BNE
MOV
MOV

308:

sSIMULARTE NEXT BIT

158
R1
12%

DEC

0N3140
150
€
003154
003140

SEC 0073

178
PR.BIT
18$

BNE
DEC
BNE

W
OW— O

o £o0oNoOoOCONNOCO

NN NNNNNNNN
o onnnL Lwwnn

714
716

T26

106

02-DEC-77?
10:20
PRGE 73
GOOD HEADER AND PREVIOUS BSE
BCS
CLR
BR

O W

702

30(1048)

003254

012737
004737
00S300
001361
005301
001354
012700

NN \J\JU"—\IWH%IE%

636

MARCY11

WO O W W

600

103403
005037
000403

00000000 QO0—-00—-0000
O0O0—-0D00N—-00NOONOON
- —

cZREDBO RKB11
CZR6DB. P11

YES,

157127
X3
T

GO ON TO NEXT TEST

RN ER AR AR R R REE AR

GOOD HERDER AND PREVIOUS HVRC

PUT
CLEAR RK611 CONTROLLER WITH A CONTROLLER CLEAR.
ISSUE A WRITE DATA_OF
CONTROLLER IN DIAGNOSTIC MODE.
CYLINDER 200,
ONE uono YO AN RKO& IN 26 SECTOR FORMAT

CLOCK THROUGH SEEK afio DRIVE CLEARR’
SECTOR 1.
A HEADER OF THE
SIMULRTE A SECTOR PULSE AND
FOLLOWING 3 WORDS WITH A BAD HEADER VRC:
HERD
O

MESSAGES.

000200
140000
140000

MAKE SURE NO ERROR 1S REPORTED AND WRITE GRTE DOES NOT
SIMULATE A SECTOR PULSE RND A HERDER OF THE

SET.

FOLLOWING 3 WORDS:

CZREDBO RKB11 DSKLS CTRL PRT4
CZR6DB.P11
0e-DEC-77 10:00

JOb

MACY1l 30(1046)
02-DEC-77
10:20 PAGE 74
Te?
GOOD HEARDER AND PREVIOUS HVRC

3879
3880
3881

s¥
‘e

gggg

HE4

3884

gggg

3897

3888

015774

3890

016004

3889
389]

3892
3893
3894
3835
3896
3897
3838
3899

3300
3301

000004

015776

012737

016010

012762

013702

000000

016066
016074

012762
012762

000440
000040

000026
000026

012705

000002

012737
012737

000023
000300

012703

016132
016136

00S037
012737

3910
3911
3912
3913

016106

016116
016124

016144
016150
016156
016164

005300
001370

005037
012762
0l2762
005037

3914
3915

016170
016174

005037
012?00

3917

016204

005300

3316
3318

001270
100000

0l6lle

3908
3909

001200

000040
055216
1777277
000001
000200
000023
000426

3305

3906
3907

000012

012762
0l27ee
012762
012762
012762
012762
012700

016102
016104

016200

016206

004737
001374

053430

003214
022040

003310
000140
000040
00325H

012737
004737
012701

00000
037026
000003

33923

016230

012700

000020

3924

3925

016226
016234

(0l6ed2

3926
3927
ggsg

0l6e44
016246
016252

3930

016254

3932

016266

3931

3933

3934

012304

013737

006004

103403
005037
000403
012737

016262

004737

016270

001361

016272

005300

005301

MAKE SURE WRITE GATE SEES INDICATING THAT HEADER HRS

BEEN RECOGNIZED.

003254

1§:

003200
003210
000026
000026

108:

12%:
003256

15%:

000001

003254

17%:

188:

#CCLR RKCS1(R2)

:CLERR RKB1l

#DMD, RKMR1 (R2) :PUT RKG611 IN DIAGNOSTIC MODE
#BUFF, RKBA(R2) :LORD DUMMY BUS ADDRESS
#-1, RKWC (R2)
*WORD COUNT -1
81 RKDA(R2)
:LOAD TRACK AND SECTOR
8200, RKDCYL (R2) ' ;LORD CYLINDER
sWRDATA,RKCS1(R2)’
: ISSUE WRITE DATA
#69. ¥4+2 RO
; ISSUE ENOUGH CLOCKS UNTIL READY

MOV
MOV

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

RO
18

MOV

#HEADG , R3

CLR
MOV
MOV
CLR

:(CORD RKG611 BRSE

DEC
BNE

""FOR SECTOR PULSE

#2,RS

;LOAD HEADER COUNT

SWRDATA,E.CS1
#IR!OR,E.CS2

;LORD EXPECTED CSl
:LORD EXPECTED €S2

:LOAD ADDRESS OF HEADERS

E.ER
'LORD EXPECTED MRI
#DMD!MEWD!ECCW,E
MR1l
:LORD EXPECTED MRI

HDRCNT
- INITIALIZE HERDER COUNT
#OMD!MSP, RKMR1 (R2) ; SIMULATE SECTOR PULSE
#0MD . RKMR1 (R2)
PR.BIT
: GENERRTE SYNCH

CLR
MOV

M1.BIT
#255. . RO

DEC

:CHECK IF SYNCH FINISHED

MOV
JSR
MOV

$1,PR.BIT
PC.RDBIT
#3’RI

; SIMULATE SYNCH BIT
; SIMULATE HERDER

MOV

#16.

'LOAD BITS PER WORD

JSR
BNE

003254

ITERATIONS

MOV
MOV
MOV
MOV
MOV
MOV
MOV

CLR
MOV

S%:

; ;D0 10.

$BRSE, R2

MOV
MOV

003224

#10.,STIMES

MOV
MOV

003254

037026

SCOPE

MOV

037026

016210
016216
016222

t8127:

000026
000004
000002
000006
000020
0000GO

003256
000377

3919
3920
3921

3922

140201

.. I T Y22222222222232222222222222 2222222222222 X222 2

016016
016024
016032
016040
016046
016054
016062

3902
3303

3304

000200
140001

MOV

PC,ROBIT
10$

(R3)+ R4
RO

MOV

PR.BIT,M1.BIT

BCS
CLR
8R

17%
PR.BIT
18%

ROR

MOV

JSR

8! ,PR.BIT

PC RDOBIT

DEC

BNE

158

:GET NEXT HERDER WORD
:STORE PREVIOUS BIT
:GET NEXT BIT

:SIMULATE NEXT BIT

:CHECK IF READY FOR NEXT HEADER WORD
:NO,

CONTINUE

‘CHECK IF FINISHED WITH HEADER

CZR6DBO RKE11 DSKLS CTRL PRTHY

CZReDB.P11

3935

Q016274

3939
3940

Q016310
016314

3944

016332

3936
3937
3938
3941
3942
3943

02-DEC-77

001354

0le276
016302

012700
013737

016320
016322
016324

005300
001367
016237

005037
004737

016237

3345
3946
3947
3948
3949
3350
3951
3952
3953
3954
3955
3956

016340
016346
016354
016356
016360
016366
016370
016372
016400
016402
016404
O0le%'>

016237
023737
001401
104120
023737
001401
104121
023737
001401
104122
016237
23737

3958
3959

0l .
0lb424

104123
00Se37

3957

3960

3961

3962
ggga
3965

O0l¢

016430

016436

016440
0le442

001401

10:00

000102
003254

003254
037026

127

003256

003140

000014
003200

003154
003140

000010

@25%:

003150

30%:

003214

003154

319%:

000026
003224

003164
003164

32%:

003310

001402
000137

016150

003224

KOG

PAGE 75

SEQ 007S

12%

;NO,

CONTINUE

MOV
MOV

866. ,R0
PR.BIT,M1.BIT

DEC
BNE
MOV

RO’
;CHECK IF GAP IS FINISHED
eS%
NO CONTINUE
RKCS1(R2),T.CS1 i £t CS1

MOV
CMP
BEQ
ERROR
cMP
BEG
ERROR
CMP
BEQ
ERROR
MOV
CMP

RKER(R2), }.ER
E.CSI,T.CSI
309
120
E.CS2,T7.CSe
31%
121
E.ER,T.ER
329
122
RKMR1(R2),T.MR1
E.an,T.Mkl

GET ERROR REG
CHECK CS1 CORRECT
YES CONTINUE
CSl INCORRECT
CHECK CSe CORRECT
YES CONTINUE
CSE INCORRECT
CHECK ERROR REG CORRECT
YES CONT INUE
ERRbR REG INCORRECT
-GE MR1

ERROR
INC

123
HDRCNT

MRI INCORREC
'I NCREMENT HERDER COUNT

,CHECk IF FINISHED

CLR
JSR

BEQ

348:

10:20

GOOD HMERDER AND PREVIOUS HVRC

MOV

003210

062040

02-DEC-77

BNE

000000

012737

005305

MACY1l 30(1046)

MOV

DEC

BEG
JMpP

PR.BIT
PC,RDBIT

RKCS2(R2),T.CS2

348

LOAD COUNT FOR GRP
PLUS 2 COUNTS FOR WRTGAT TO SET
SIHULRTE GARP

;GET CSe

CHECK WRITE GARTE CORRECT
YES,

CONTINU

SWRTGAT!DMD!'MEWD!ECCW,E.MR]l

TST30
Ss

;s YES,

:LORD EXPECTED MRl

GO ON TO NEXT TEST

o 36 36 36 3 36 3 6 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 3 36 3 3 3 36 36 3% 36 3% 36 36 36 36 36 3 36 36 36 36 36 36 36 3 36 36 36 36 36 3 46 3¢ 36 3 %

ggg%

iTEST 30

3968
3369
3970
3971

;*
R
P ¥
P ®

CLERAR THE RKG61! CONTROLLER WITH A CONTROLLER CLERAR.
PUT _CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A_
WRITE DRATA OF ONE WORD TO AN RKO6 IN 26 SECTOR
FORMRT,
CYLINDER 400, HEAD O,
SECTOR 1.
CLOCK_ THROUGH

3973

AND
A HERADER OF THE FOLLOWING 3 WORDS WITH A

3972

S¥

3974
397S
3976
3977
gg;g

¥
;l
P ¥
I
s #

3980

3981
gggg

3984
3985
ggg%

3988

gggg

¥
;%

Iz
;®
;®
;l

¥
¥

BAD SECTOR ERROR AND PREVIJOUS HVRC

SEEK AND DRIVE CLEAR MESSARGES.

SIMULATE A SECTOR PULSE

BAD HERDER VRC:
000400
140000
140000

MAKE SURE NO ERROR IS REPORTED AND WRITE GRTE

DOES NOT SET
SIMULRTE A SECTOR PULSE AND
A
HEADER CONSISTING OF THE FOLLOWING 3 WORDS:
000400
040001
040401

MAKE SURE BRD SECTOR ERROR SETS AND HEADER VRC
ERROR DOES

NOT SET

CZRBDBO RK611l DSKLS CTRL PRTHM
02-DEC-77 10:00
CZR608. P11
000000000
P Pt PP b
et

16504

30(1046)
T30

001200

0l27e2

1727277

000002

g0l127ee
012700

000023
000426

000000

0l127e2

000440
000040

000026
000026

HSV
MOV
MOV

818788 888284 AB8R=S
19:

sBUPE, RBA
(R
8- RkuCtne)

sfiKBfléRa)

E.ER

gono RKMR1
R.81T

12%:
15%:

PR.BiT,Ml.BIT

RY
17%
PR.BIT
1 8%

I
81, PR. BIT
PC, RD Bl T

001367

129

¥66. ,R0O

003256

FOR SECTOR PULSE

;LOAD HEADER COQUNT

'LOAD ADDRESS OF HEADERS
LOAD EXPECTED CS1
LORD EXPECTED csa
LOA D EXP CTE
xPECTED MR1
LOAD

TIALIZE HERADER COUNT

; GENERATE SYNCH

IF SYNCH FINISHED

; SIMULATE HERDER

159

003254
003254
037026

ISSUE NRITE DAT

rséue ENOUGH CLOCKS UNTIL READY

;CHECK

013737
00s037
004737
005300

L0 D C

; SIMULATE SYNCH BIT

003254

0001Ce

D COUNT 8
TRQCK QNB SECTOR

#DMD! MSP RKMRI(R?)
: SIMULATE SECTOR PULSE
(R2)

HDRCNT

003254

012700

LBEDRKBhfiyIBUSIAGNORTIC MODE

.DMO MEWD!ECCW, E HRl

003254

003256

; ;00 10. ITERATIONS
EOR RK&ll BQSE

$DMD
! MCLK . RKMR1 (R2)
#DMO, RKMR] (R2)

109:

037026

772

OgCLEkRKCSI(R

otho7 R3
#WRDATA,E.CS1
$IR!OR, t cs2

000026
000026

012737
004737

SEQ 3076

003224

000403

#10.,STIMES

(R
ounohrn
RKCS1
869. %4+2,R0

003200
003210

000020
003254

MOV

Hov

000000

1573 BE8318 e

000001
037026
000003

LO6

10:20
PRGE 76
02-DEC-"7
BRD SECTOR ERROR AND PREVIOUS HVRC

: uu*ugs;z“ulnuuunuuuu;uuuununuuuuunu

$4730

000002

oo 0‘0‘0"0‘0‘0‘% oo
oo

4003

4004

oo
oo oin

4001
4002

647

0000000000000 DODDOOODOOOO0D
Pt Pt ot et Pt Pt s Pt P st ft P Pt Pt s Pt Pt Pt Pt Pt Pt Pt it Pt ot Pt Pt ot Pt

2438

1842 812737 00001e
18428 813785 784508

0000000
o bt pmt Pt Pt Pt Pt

3335
334
333

00000
st P Pt e Pt

3931

MACY1l

25%:

PR.BIT,M1.BIT

PR.BIT

PS ROBIT
25%

:GET_NEXT HEADER WORD
!LOAD BITS PER _WORD
:STORE_PREVIQUS BIT
:GET NEXT BIT

; SIMULATE NEXT BIT

CHECK IF READY FOR NEXT HERDER WORD
CONTINUE

tcx IF FINISHED WITH HERDER

NO
ONTINUE
LOAD COUNT FOR GAP

PLUS 2 COUNTS FOR WRTGAT TO SET

.SIMULRTE GAP
;CHECK

IF GRP

:NO, CONTINUE

IS FINISHED

CZR6DBO RKbE11

CZR6DB.P11

DSKLS CTRL PRTH4

0e2-DEC-77 10:00

MARCY11

30(1046)
T30

nov

4B 818006 Biesd; BBRAYR BR3128
4049

O0170i2

016237

%3 RiRe

MP
Seo

003154
003140

Gy o

003150

308:

003154

31%:

B BB oo

329:

———— 00000

s Prnet Pt P
e Pt st
s Pt Pt Pt
e
P

MOV

000014

JBe Biam Bedgi oo

MO6

PRGE 77
10:20
02-DEC-77
BAD SECTOR ERROR AND PREVIOJS HVRC

348

ERROR
CHP

RKEEMRE).T:eab ekt kel
RKER(RE‘

GET ERROR REG

1294
5.gsa,1.csa

csx xnconnscr
cngcx Ssg
connscr

Si, 651
Sbg

Bsgon
és
Enp
é.sR,T.ER
BEG
328

ERROR
MUV
CMP
BEQ
ERROR
INC
MOV
DEC
?gg

CH
CK CS connscr
E 8+

Hecx"ESRosREG CORRECT

vss CONTINUE
126
:ERROR REG INCORRECT
RKMR1(R2),T.MR1 :GET MR]
£.MR1,T.MR1
:CHECK WRITE GATE CORRECT
34s
PYES, CONTINUE
127
*MR1' INCORRECT
HDRCNT
P INCREMENT HEQDECOUNT
8ESE,E.ER
'LOAD EXPECTER RROR REG
RS
;CHECK IF FINISHED
ggral
::YES, GO ON TO NEXT TEST

s 366 36 3 3 3¢ 36 36 36 36 36 36 36 36 36 36 36 36 3 3 36 38 36 3 36 36 3 36 3 3¢ 06 3 36 3 36 36 3 38 3 36 3 30 3 3 3 36 3 08 36 3 9t 36 3 3 3¢ 3 3 3 o 3 X X

W
WY W
W
W
W
RS WA WM
B
WS W
W
WM
W
WA
W
G
WO
M W

OOoo0oNo0o

N Lwwmnny
oonLONNO

e
s Pt Pt Pt Pt B

e
e Pt Bt Pt Pt Pt

NN NTINNN

0000000

£
[}
JD
[¥e]

2737
3702
2762
2762
2762
2762

000012
001270
100000
000040
055216
177777

001200
000000
000026
000004
0006002

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

irssr 31

HERDER VRC AND PREVIOUS BSt

CLERR THE RKBbl11 CONTROLLER WITH A CONTROLLER CLERR.
ISSUE
PUT CONTROLLER IN DIQGNOSTIC MODE.

uRaNETDRTQ
HE 140,
1 48R0ue
RKES
8Ng8 ELUCK THROUGH
CYLINDER
HERD
O
SEEK AND DRIVE CLEAR MESSAGES.

SIHULQTE SE"TOR PULSE

AND A HERDER OF THE FOLLOWING 3 WORDS WITH
A HERDER
VRC ER 0

' 000140
Q40000
O40140

MAKE SURE NO ERROR IS REPORTED AND NRITE GATE
DOES NOT SET.
STIMULATE
A SECTOR PULSE AND
R
HEADER CONSISTING OF THE FOLLOWING THREE NORDS
000140
140001
140101

MAKE SURE HEADER VRC ERROR SETS AND BRD SECTOR

ERROR DOES NOT SET.

< 3 3 3 3 3 3 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3F 36 36 36 36 36 3 36 36 3 36 36 3 36 3 362 36 36 36 30 36 36 06 36 38 36 3 3 3 36 36 36 3% 36 3¢ 3¢ 3% 3¢ % %

IETE

SCOPE

MOV

MOV
MOV
MOY
MOV
MOV

#10.,STIMES

$BASE, R2
#CCLR RKCS1(R2)
#DMD, AKMR1(R2)
seur# RKBA(R2)
1,REWLC(R2)

::D0 10.

ITERATIONS

:(0AD RKG611 BRSE
;CLERR RK611
:PUT RKb11 IN DIAGNOSTIC MODE
;LOAD DUMMY BUS ADDRESS
:WORD COUNT -

SEQ 0077

CZREDBO RKE11 DSKLS CTRL PRTY
CZR6DB.P11
02-DEC-77 10:00
4103

017164

012762

000001

02-DEC-77
10:20 PAGE 78
HEADER VRC AND PREVIOUS BSE

000006

MOV

4104
4105
4106

017172
017200
017206

012762
012762
012700

000140
000023
000426

000020
000000

4108
4109

017212
017220

012762
012762

000440
000040

000026
000026

017236
Q17242

012703
012737

017256
017262

005037
012737

4107
4110
4111
4112

017226
017236
017232

4115

017250

4113
4114
4116
4117

00S300
001370
012705

012737

000300

005037
012762
012762

003310
000140
000040

4118
4119
4120

017270
017274
017302

4122
4123

017314
017320

005037
012700

4125

017330

005300

4121

G124

4126

017310

017324

017332

003214
022040

00S037

003254

004737

037026

001374

017334
017342
017346

012737
004737

012701

000003

4131

017354

012700

000020

4133

017366

4132
4134
4135

:igg
4138

017352

017360

017370
017372
017376

012304

013737

006004

000001
037026

003254

103403
005037
000403

003254

017400

012737

000001

0Ol7412

005300

4139

017406

4141

017414

001361

4143

017420

4145
4146

017422

001354

012700

000102

017426

013737

003254

4149
4150

017444
D17446

4140

4142

4144

4147
4148

4151

4152

017416

004737

017434
017440

005037
004737

003254
037026

Q17450

016237

000000

000014
003200

(017456

005300
(01367
016237

017464
017472

016237
023737

4158

017512

001401

Q17500
017502
017504

001401
104130
023737

000010

003210

:LOAD TRACK AND SECTOR

MOV
MOV
MOV

#140 RKDCYL(R2) ’;LOAD CYLINDER
#WRDATA RKCS1(R2) ' : ISSUE WRITE DATA
869 #4+2 R0
: ISSUE ENOUGH CLOCKS UNTIL READY

MOV
MOV

#OMD!MCLK , RKMR1 (R2)
#0MC
. RKMR] (R2)

DEC
8NE
MOV

:"“FOR SECTOR PULSE

RO
18
#2,RS

003224

CLR
MOV

E.ER
*LORL EXPECTED MRI
$OMD! MEWD'ECCW,E.MR1 __ :LOAD EXPECTED MRI

CLR

PR.BIT

JSR

PC,ROBIT

BNE

108

003210
000026
000026

MOV
G5$:

108:
003254

128:

003256

15%:

CLR
MOV
MOV
CLR
MOV

DEC

17$:

188%:

25%:

003140

003150

; GENERATE SYNCH

:SIMULATE SYNCH BIT

MOV

#16.

MOV

#3’R1

(R3)+.RY
RO

MOV

PR.BYT,M1.BIT

8CS
CLR

178
PR.BIT
18%

ROR

MOV

81,PR.BIT

IF SYNCH FINISHED

: SIMULATE HERDER

'GET NEXT HEADER WORD
*LORD BITS PER WORD

STORE PREVIOUS BIT

'GET NEXT BIT

JSR

PC RDBIT

; SIMULATE NEXT BIT

BNE

158

*NO,

CONTINUE

IND,

CONTINUE

DEC

*CHECK

IF REARDY FOR NEXT HERDER WORD

DEC

‘CHECK IF FINISHED WITH HERDER

MOV

$66. ,RO

;LOAD COUNT FOR GAP

MOV

12%

PR.BIT,M1.BIT

: " PLUS 2 COUNTS FOR WRTGAT TO SET
;SIMULATE GAP

RO
25%

;CHECK IF GAP
*NO,
CONTINUE

RKCS2(R2) . T.C52

;GET €S2

308
130
£.CS2,7.CS2

:YES, CONTINUE
:CS1' INCORRECT
:CHECK €S2 CORRECT

CLR
JSR

PR.BIT
PC,RDBIT

MOV

RKCS1(R2),7.CS1 :GEY CS1

MOV
CMP

30%:

M1.BIT
#255. , RO

#1,PR.BIT
PC.RDBIT

MOV

003154
003140

HDRCNT
: INITIALIZE HEADER COUNT
#DMD!MSP,RKMR1(R&)
;SIMULATE SECTOR PULSE
#0MD | RKMR1 (R2)

MOV
JSR
MOV

DEC
BNE

003150

:.0ap EXPECTED €S2

:CHECK

BNE
003256

8IR!'OR,E.CS2

:LORD ADDRESS OF HERDERS
LOAD EXPECTED CSl

BR
003254

sHEADS, R3
#WRDATA,E.CS]

:LORD HEADER COUNT

003200

005301

4183
4184
4155
4186
4187

037026

#1,RKDA(R2)

SEQ 0078

MOV
MOV

003256
000377

4127
4128
412§

4130

18:

000002

053460
000023

NOG

MACYIl 3%_(3‘{046)

BEQ
ERROR
CMP
BEQ

RKER(R2),}.ERTM
£.Cs1,T.8s1
3is

IS FINISHED

:GET ERROR REG
:CHECK CS1 CORRECT

:YES,

CONTINUE

CZR6DBO RKB11 DSKLS CTRL PRTY
02-DEC-77 10:00
CZR6C3.P11
4169

4160
.61
Yiee
4163
Y164
4165
4i6b
4167

4170

3};5

017514

017516
017824
017526
017530
017836

017544
017546
017550

017564

017566

104131

023737
001401
104132
016237
023737
001401
104133
005237

001402
000137

MACYLl 3?5%046)

003214

003154

31S:

000026

003164

328:

003224

003164

003310

348:

BO7

02-DEC-7?7 10:20 PRGE 79
HERDER VRC AND PREVIOUS BSE
ERROR

cCMP
BEQ
ERROR
MOV
CMP

BEQ
ERROR
INC

BEQ
NP

017274

131

SEG 0079

:CS2 INCORRECT

E.ER,T.ER
32¢
132
RKMR1(R2),T.MR1
E.MR1,T.MRI

:CHECK ERROR REG CORRECT
SYES, CONTINUE
'ERROR REG INCORRECT
:GET MRI
:CHECK WRITE GATE CORRECT

15132

:YES, GO ON TO NEXT TEST

34s
133
HDRCNT

:YES, CONTINUE
:MR1’ INCORRECT
: INCREMENT HEADER COUNT

4179

HH 336363 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 3% 36 38 36 36 3 3 36 3% 3 36 38 36 3 36 36 36 36 36 3 36 3 36 3 34 3 3 3 3 3 3 36 3 3 3 3 2 2 % 2 % R
SkTEST 32
OPI AND HVRC ON LRST HEADER
;l
CLEAR THE RKG611 CONTROLLER WITH A CONTROLLER CLEAR.
TM
Sx
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE R WRITE
tx
DATA OF ONE WORD TO AN RKO6 IN 26 SECTOR FORMAT,
CYLINDER 240, HERD O, SECTOR 1. CLOCK_ THROUGH
TE

:igé

4173
3{;;

4176
417?
4178

4180

tx
;l

Y184
4185

4187
4188
:;gg

I
Ly
Ly

41383

;¥

4191
4132

;¥

‘x

:igg

:{gg

017572

4199

017574

420l

017606

4203

4ep4

4205

4206
4207
4208
4209
4210

3S{é
4213
4214

140000
140240

MAKE SURE NO ERROR IS REPORTED AND WRITE GATE
DOES NOT SET.
GSIMULATE R SECTOR PULSE AND A
HERDER CONSISTING OF THE FOLLOWING THREE WORDS:

T
‘x

4194

4202

000240

%
e

4186

012737

013702

017614

012700

017622

017624

012762

005300
001376

012762

MAKE SURE HEADER VRC AND OPI ERROR SET.

001200

MOV

100000

000000

MOV

001270
002500
000040

2s:
000026

012762
012762
012762
012762
012762

055216 000004
172777 000002
000240 000020
000001 -20006
000023 000000

017674
017702

012762
012762

000440
000040

012700

140040

0000i2

017632
017640
017646
017654
017662

017670

000240
140000

i&¥gslil»ggsggllilllllllll!l!lll*llINII!i*!lllllil!llll*ilfllllll!!l!

000004

017602
017620

- %

SIMULATE A SECTOR PULSE

AND 30 HEADERS CONSISTING OF THE FOLLOWING 3 WORDS:

4183

4200

SEEK AND DRIVE CLEAR' MESSARGES.

000026
000026

1$:

::D0 10.

#CCLR,RKCS1(R2)

;CLERR RKb611

$BASE, R2

MOV

#2500, RO

ITERATIONS

:(ORD RK611 BASE

-SET COUNT FOR STALL

DEC

:DEC_COUNT

MOV

#0MD,RKMR1 (R2)

;PUT RKb11 IN DIAGNOSTIC MODE

BNE

MOV
MOV
MOV
MOV
MOV

00L+426

#10.,STIMES

MOV

:LOOP UNTIL O

#BUFF,RKBA(R2) ;LOAD DUMMY BUFFER ADDRESS
#-1, RKWC (R2)
JWORD COUNT = 1
8240, RKDCYL (R2) ;LOAD CYLINDER
81 RKDAR(R2)
'LOAD TRACK AND SECTOR
#WRDATA,RKCS1 (R2) : ISSUE WRITE DATA

;xéggs gggggg gbggés UNTIL RERDY

MOV

$69. ¥4+2 RO

MOV
MOV

#DMD!MCLK , RKMR1 (R2)
$0MD
, RKMR] (R2)

CZR60BO RK611 DSKLS CTRL PRTY
02-DEC-77 10:00
CZR6DB.P11

MACY1l

30(1046)
T32

DEC
BNE

003200
003210

MOV
MOV

#sWRDAYA E.CSI
:IR OR,E.CS2

003224

MOV

00S300

MOV

00Q40
0023
000300

823640
008350

886848
000037

MOV

00026
00026
003310

003254
003256
000377
037026

000001
037026
000003
000020
003254

020070

000403

020072

012737
004737
005300

000000

020220
020222
020230

cs:

10%:

12%:
005256

003256

CLR

MOV
MOV
MP

EQ
CLR
CLR
MOV

15%:

259

cb3:

003200
003210

003150

30%:

003214

003154

318:

000026
003224

003164
003164

32%:

PR.BIT
M1.BIT
8255, RO

; GENERATE SYNCH

108
81,PR.BIT

PR.BtT,Hl.BIT

BCS
CLR
BR

17%
PR.BIT
18$

JSR
DEC

#1,PR.BIT

ERROR

TEST

IF SYNCH FINISHED

; SIMULATE SYNCH BIT
; SIMULATE OPI1

!GET_NEXT _HEADER WORD
:LOAD BITS PER WORD
;STORE _PREVIOUS BIT
{GET NEXT BIT

PRBIT M1.BIT

PR.BIT

JSR

PC,RDBIT

BNE
MOV

25%
RKCS1(R2),T.CS!

RO’

MOV

RKCS2(R2) | T.CS2

BEQ
ERROR
CMP
BEG
ERROR
CMP
BEQ
ERROR
MOV

30%
100
E.CS2,T7.CS2
31
101
€.ER,T.ER
323
102
RKMR1(R2),T.MR1

CMP

;CHECK

SKIP

NO CONT INUE
'LOAD COUNT FOR GAP
:SIMULATE GAP

CLR

MOV
CMP

CHECK IF READY FOR NEXT HERDER WORD

15%
R1
1as

MOV

;YCS

PC RDBIT
RG’

BNE
OEC
BNE

MOV

R REG
MR

;CHECK éF QL# HEQDERS DONE

MOV

'LORD RDDRESS OF HEADERS
*LOAD EXPECTED CSl
:LOAD EXPECTED €S2

sg*" HDRCNT

PC'RDBIT
83 RI
(Ré)+ RH

ROR

:LOAD HEADER COUNT

#DOMD! MSP RKMR1 (R®) :SIMULATE SECTOR PULSE
#0MD, RKMR1 (R2)

JSR
MOV
MOV
MOV

SEQ 0080

obno'nsuo'eccu £hgx
LonBCTEBEERR
HDRCNT
INthanzs HEADER COUNT *

PC,RDBIT
RG’

DEC
003140
0031S0
003154
003140

oopxé R3

JSR
DEC
BNE
MOV

003254

000100
003254
003254
037026

CLR

[y,

4074

co7

02-DEC-77
10:20
PAGE 80
OPI AND HVRC ON LAST HERDER

RKER(R2) }.ER
E.CS1,T.¢51

E.MR1,T.MR1

; SIMULATE NEXT BIT
NTINUE

écx IF FINISHED WITH HEADER

:CHECK IF GAP IS FINISHED

NO CONTINUE
Get ¢si
cs csa
{GET ERROR REG.
! CHECK cs1 CORRECT

ECT

CHECK ERROR REu CORRECT
:YES, CONTINUE
EERbRRREG INCORRECT
;CHECK TO MAKE SURE WRITE GATE DID NOT SET

CZREDBO RKE11l DSKLS CTRL PRTH
CZFe0B.PL1
02-DEC-77 10:00
4271

020236

001401

4272
4273
4e74
4275

020240
020242
020246
020254

104103
005237
022737
001011

L T-¥4

737

42?7

858556

MACY11 30(1046)
132

8&573?

BEQ

003310
000037

003310

8 0480

03214

0001

4280
4281
4e82
4283

020302
020304
020310
020316

001402
000137
012762
016237

017756
100000
000000

000000
003140

4285
4286
4287

020332
020340
020346

016237
012737
(023737

000014
000200
003140

003154
003200
003200

288
:Sgg

020324

020354
020356

016237

001401
104153

000010

34%:

BIC
358

37%:

003150

4291

ERROR
INC
CMP
BNE
MOV

03200

4278
020272
052737
100200 003200
4279
020300
005305

4284

DO7

0e-DEC-77
10:20 PAGE 8l
OP1 AND HVRC ON LARSTM HERDER
348

s YES,

103
HDRCNT
83]. ,HDRCNT
358

CONTINU

HRI INCORREC
INCREHENT HERADER COUNT
CHECK IF LAST HEADER
NO CHECK IF FINSHED

OOPI MVRC,E.ER

;RRO BIT

CSl

BIS
DEC

SEQ 008!

R JUS

E.CS1 FOR END OF OP CONTENTS

.RD?'CERR E.CS1 ;CHECK IF FINISHED
RS

BEQ
JMP
MOV
MOV

379
ss
8CCLR,RKCS](R2)
RKCSllRE),T.CSl

MOV
MOV
CMP

RKER(R2), t.ER
#RDY E.CS1
T.CSl,E.CSl

MOV

BEQ
ERROR

YES SKIP
00 NEXT SECTOR
,CLEQR CONTROLLER
;GET CS1

RKCS2(R2),T.CSe

;

TST33
183

;

cse

ER
SET EXPECTED CS1
CHECK IF CORRECT

;G0 TO NEXT TEST

Y221222222222322222222222222222222X22X32222223223X222222
2222222 8

:ggg

iTEST 33

4294
4295

X )
I )

CL AR THS E&l CONTROL
R WITH A
CONTROLLER CLEAR.
CONTROL
IN DIAGN
C MODE.
ISSUE
WRITE
DQTQ OF ONE WORD TO AN RKOB IN 26 SECTOR FORMAT,

4298

SEEK

4300
4301
4302
4303

]
1
Ly
I ]

FOLLOWING

4296
4297

¥
*

4299

R ]

4304

OPl AND PREVIOUS HERDER VRC (PART 1)

CYLINOER 3

SECT OR

;i
X

4307
4308
4309
4310

2]
tx
Ly
¥

:g{é

AND

WORDS:

THE

000300

4319
4320

‘¥
s ¥

140300

4324

4325

4326

020362

020370

000004

012737

013702

30 HEADERS CONSISTING OF THE

MAKE SURE NO ERROR IS REPORTED AND WRITE GRTE
DOES NOT SET.
SIMULRTE A SECTOR PULSE AND R
HEADER CONSISTING OF THE FOLLOWING THREE WORDS:

020360

THROUGH

140200

P #

4323

CLOCK

SIMULATE R

000300
140000

4317

FOLLOWING DRTA:

I
s
;%

:gSé

g
CTOR

MESSAGE s

THEN SIMULATE A 3 WORD HEADER CONSISTING ON

4313
4314
:gig
4318

140300

HE4

HEQ Rg

000300
140000

P *

4306
4306

ULS

140000

MAKE SURE HEADER VRC AND OPI ERRORS SET.

: o 336369 3 36 3 3 3 36 3 36 3 36 3 3 36 3 36 3 3 26 36 3 36 36 26 2 36 3 3 3 36 3 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3 % 3¢ 9% 3 3 % % % % % % % ¥
000012

001270

001200

4733:

SCOPE

MOV

#10.,$TIMES

$B8RSE, R2

::00

10.

ITERATIONS

:(ORD RKB11 BRSE

CZR60BO RKB11 DSKLS CTRL PRTY
CZREDB.P11
02-DEC-77 10:00
4327

020374

4328
4329
4330
433]
4332

020402
(20406
020410
020412
020420

4337

O0l2762

100000

012700
005300
001376
012762
O0l12762

000040
055216

020456

012700

000426

4339
4340

020462
020470

012762
012762

000440
000040

4343

020502

012705

000040

4346
4347
4348
4349

020520
020526
020532
(020540

012737
005037
012737
005037

000300
003214
022040
003310

435]
4352

020552
020560

012762
022737

000040
000037

020570

005037

003254

004737
005300

037026

4333

Q20426

012762

002500

177777

EQ?7

MACY1l 30(1046)
02-DEC-77
10:20
PAGE 82
733
OPI AND PREVIOUS HERDER VRC
000000

MOV

2s:
000726
000004

000002

4338
4341
4342

4344

020476
020500

020506

005300
001370

012703

000026
000026

4345 Q20512 012737 000023 003200

4355
4356

020574
020600

005037
012700

4359
4360

020612
020614

0601374
012737

000001

020626

012701

000003

4354

4357
4358

4361

4362

020604
020610

020622

001460

004737

003210

86° #4422
R

ésu ENOUGH CLODKS UNTIL READY

MOV
MOV

#DMD * MCLK Rxnn1(ha)
#DMO, RKMR] (R2)

1, RKWC (R2)

DEC
BNE

RO
18

MOV

#0PI3,
R

cae

.unonfn E.CS1

MOV
CMP

#DMO| RKMR1 (R2)
#31. , HDRCNT

;CHECK IF ALL HEADERS DONE

CLR

PR.BIT

GENERRTE SYNCH

JSR
DEC

PC,RDBIT
RO’

:CHECK IF SYNCH FINISHED

MOV
BEQ

108:

CLR
MOV
BNE
MOV

003254

JSR

#OMD! MSP RKMRI(Ré) SIHULQTE SECTOR PULSE

268

Ml.BIT
8255, , RO
108
ox PR.BIT

PCRDBIT

<R3)+ RY
RO
PR.BIT,Ml.BIT

4367

8CS

17%

006004

4368
:ggg

020652
020656

005037
000403

003254

4371

020660

012737

000001

4374

020674

001361

4372
4373

020666
020672

103403

004737
005300

037026

ROR

CLR
BR
003254

17%:

18%:

MOV

'GET NEXT HEADER WORD
:LOAD BITS PER WORD
:STORE PREVIOUS BIT
:GET NEXT BIT

PR.BIT
18%
$1,PR.BIT

1as

*NO, CONTINUE
:LOAD COUNT FOR GAP

020700
020702

001354
012700

000100

BNE
MOV

4379
4380

020714
020720

005037
004737

003254
037026

CLR
JSR

005300
001367

;SIMULATE OPI

:SIMULATE NEXT BIT
cuecx xr READY FOR NEXT HEADER WORD

4376
4377

020724
020726

:SIMULARTE SYNCH BIT

PC,RDBIT
RG’

DEC

4378 020706 013737 003254 003256 25%:

YES
- SKIP TO ERROR TEST

JSR
DEC
BNE

4375 (020676 005301
4381
4382

:LOAD ADDRESS OF HEARDERS

:LORD EXPECTED €Sl

000026
003310

MOV
MOV
MOV

020646

:LOAD HEADER COUNT

003224

MOV

020650

FOR SECTOR PULSE

$IR'OR,E.CS2
:L0AD EXPECTED €S2
E.ER
:LORD EXPECTED ERROR REG
#OMD!MEWD!ECCW, E . HRI .LOARD EXPECTED MRI
HORCNT
TYALIZE HEADER COUNT

4363 020632 012304
12%:
4364 020634 012700 000020
4365 020640 013737 003254 003256 153:
4366

{WORD COUNT = 1

oaoo RKDCYL(RE) :LOAD CYL INDER
81, RKDA(R2)
LOAD TRACK AND SECTOR
uukonrn Rxcsxtaai ISSUE WRITE DRTA

MOV
CLR
MOV
CLR

003256
00G377

037026

MOV

4350 020544 012762 000140 000026 G%:
(020566

SET COUNT FOR STALL
: DEC COUlT
:LOOP UNTIL O
:PUT RKGE11 IN DIAGNQSTIC MODE
;LORD DUMMY BUFFER AQDDRESS

MOV

054374

4353

82500, RO
RO
2s
#DMD,RKMR1(R2)
oeur# RKBA(R2)

MOV
MOV
MOV
1$:

;CLEAR RKb1l

MOV
DEC
BNE
MOV
MOV

MOV

4339 020434 012762 000300 000020
4335 Q20442 0l27e62 000001 000006
4336 020450 012762 000023 000000

#CCLR,RKCS1(R2)

(PART 1)

158

MOV

PRair M1.BIT

DEC
BNE

RO’
258

PC RDBIT

TINUE

cutcx xr FINISHED WITH HERDER
;SIMULRTE GAP

sCHECK IF GAP IS FINISHED
:NO, CONTINUE

SEQ 0082

CZRsOBO RK&11 DSKLS CTRL PRT4
CZFe0B. P11
02-DEC-77 10:00
4383

020730

016237

000000

MACY!! 30(1046)
T33
003140

26%:

4384
4385
4386

020736
020744
020752

016237
(16237
023737

000010
000014
003200

003150
003154
003140

4389
4390

020764
(020772

023737
00140}

003210

003150

30%:

4392
4333
4394
4335
4396

020776
021004
021006
(021010
021016

023737
001401
104106
016237
023737

003214

003154

31%:

000026

003164

32%:

4398
4399
4400
440!
4402
4403

021026
(021030
021034
021042
021044
021052

104107
005237
022737
001011
012737
042737

4405
4406

021066
021070

00530S
001402

4387
4388
4391

4337

020760
020762
020774

021024

001401
104104
10410S

001401

003224

003164

003310
000037

003310

020400
000001

003214
003200

4404 021060 052737 100200 003200

4407
4408
4409

021072
021076
021104

000137
012762
016237

020544
100000
000000

000000
003140

016237
012737
023737
001401

000014
000200
003140

003154
003200
003200

4410

021112

016237

::ig

021144

104153

4411
4412
4413
4414

021120
021126
021134
021142

000010

34%:

35%:

37S:

4420

4422

4424

;CS2 INCORRECT

E ER,T.ER
328
06
R 1(R2) T.MR1
E.M
MR1

:CHECK ERROR REG CORRECT
:YES, CONTINUE
'ERROR REG INCORRECT
:GET HR%
:CHECK TO MAKE SURE WRITE GATE DID NOT SET

ERROR
INC
CHP
BNE
MOV
BIC

107
HDRCNT
#31.,HDRCNT
358
oopx HVRC E.ER
cSl

‘MR1’ INCORRECT
: INCREMENT HEADER COUNT
:CHECK IF LAST HEADER
'NO, CHECK IF F INSHED
;LOAD ERROR BIT
:ADJUST E.CS1 FOR END OF OP CONTENTS

DEC
BEQ

RS
378

i CHECK IF FINISHED
YES
- SKIP

RKCS2(R2),T.CSe

;

BIS

JMP
MOV
MOV

348

uRO?iCERR E.CSI

RKER(R2), t.ER
#ROY,E.CS1
7.CSl,E.CS1
TST34
183

; ®

4429
3:39

¥
.

Yy4y3E

¥’
E
S x
R

e
"

CONTINUE

cse

ER
'SET EXPECTED CSl
CHECK 1F COR ECT
:.G0 TO NEXT TEST

221222222212 222222222222222222
2222 X3X2X222 2222222222222 2L L

OPI AND PREVIOUS HERDER VRC (PART 2)

CLEAR THE RK6]1 CONTROLLER WITH A CONTROLLER CLEAR.

CYLINDER 40,

4428

; YES,

cs
OO NEXT SECTOR
#CCLR,RKCS1(R2) ,CLERR CONTROLLER
RKCS1tR2),T.CSI ,GE CS1

‘¥
It

:CHECK €S2 CORRECT
;YES CONTINUE

CMP
BEQ
ERROR
MOV
CMP

PUT CONTROLLER

;YES. CONTINUE
;CS1 INCORRECT

4423

4437
4u3g

ERROR

,iTEST 34

4421

308
104

£.CS2,T.CS2
315

MOV
MOV
CMP
BEQ

H #*

;GET CSI

CHP

BEQ
ERROR

MOV

; X

RKCSi(R2),T.CS!

RKCS2(R2) T.CS2 :GET €S2
RKER(R2'. Y. ERTM GET ERROR REG.
£.Cs1,T.¢s1
:CHECK CS1 CORRECT

ERROR

::ig

4432
4433
::gg

MOV

SE3 J082

(PRRT 1)

MOV
MOV
CMP

BEQ

0031S0

4417

4425
::Sé

02-DEC-77
10:20
PRAGE 83
OPI AND PREVIOUS HERDER VRC

IN DIAGNOSTIC MODE.

ISSUE
A WRITE

DATA OF ONE WORD TO AN RKO6 IN 26 SECTOR FORMAT,
HERD
O, SECTOR

SEEK AND ORiVE CLERR MESSAGES.

CLOCK THROUGH

SIMULATEA SECTOR

PULSE AND
A HERDER CONSISTING OF THE FOLLOWING
THREE WORDS HAVING
R BAD HERDER VRC:
000040

140000
140000

MAKE SURE NO ERROR IS
REPORTED AND WRITE GATE
DOES NOT SET.
SIMULATE R SECTOR PULSE AND 31
HERDERS CONSISTING OF THE FOLLOWING THREE WORDS:

000040

140000
140040

CZR6080 RTSII D SKLS CTRL PRTY
0e-DEC-77 10:00
CZR 608 .P1

MACY11l

30(1048)
T34

4439
4440

’

Y442
Y443

813y

1R4

00000000

o
n

b—D—DOD—R;
o Dt e Pt Pt s
~

000440
000040
00040
S4674
000023
000300
003214
Gceg40
003310
00 140

366837

ce:
000026
000004
000002
000020
000006
000000
000026
000028

19:

000020
003254

005037
000403

003254

012737
pO4?737
005300
001361
00s301

000001
037026

MoV

CLR
MOV

AR R AR NSRRI

AR SRS

ITERATIONS

.SET

#2500 R0

2s
sDMD ,RKMR1

COUNT FOR STALL

:DEC_COUNT
(R2)

:LOOP UNTIL O
:PUT RKBL1 IN DIARGNOSTIC MODE

#BUFF , RKBA(R2)
:LOAD
DUMMY BUFFER RDDRESS
*WORD
COUNT = 1
#-1,RKWC(R2
240’ RKDCYL (R2 ) ;({0AD CYLINDER
81, RKDA(R2)
-LOAD TRACK AND SECTOR
#WRDATA, RYCS1 (R2} -JSSUE WRITE DATA
869. ¥4+2 RO
18SUE ENOUGH CLODKS UNTIL RERDY

#DMD
! MCLK , RKMR1 (R2)
#OMD, RKMR] (R2)

RO
18
#32.

FOR SECTOR PULSE

:LOAD HEADER COUNT
:LOAD ADDRESS OF HEADERS
:LOAD EXPECTED CS!
:LOAD
EXPECTED CS2
EXPECTED ERROR REG
‘LORD
E.ER
#DMD ! MEWD ! ECCW,E
. MR1 .LOAD EXPECTED MRI
RS

s0P1% R3
sWRDARYA E.CSI
#IR!OR,E.CS2

: INITYALIZE HEADER COUNT
#DMD!MSP, RKMR1 (R2) :SIMULATE SECTOR PULSE

HORCNT

, RKMR 1 (R2)
#DMD
#31.

HDRCNT

; CHECK
;YES

IF ALL HERADERS DONE

SKIP

TQ ERROR TEST

;:GENERATE SYNCH

:CHECK IF SYNCH FINISHED
; SIMULATE SYNCH BIT

003254

12%:

003254

::D0 10.

#10.,STIMES

10%:

003256

$BASE | R2
:CORD RKB11 BRSE
#CCLR,RKCSI(R2) :CLEAR RKBI%

268

003254
003256

000001
037026
000003

MOV

DEC
BNE
MoV
MOV
MOV
MOV
CLR

003e2e4

000377
037026

MOV
MOV
MOV
OEC
BNE
MoV

MoV
MOV
MOV

003200
003210

000026
000026
003310

SCOPE
MOV

MOV
MOV
MOV

15%:

£L00L£00

0000000

\:\w*a*uwg LWWNH—OONNNT"NNEL
LS00
E£0O0 LONCO

e e

NDNUN N b 0 bt e s g pe
NN

021446
021454
Ce21i460
021462
0el4eY4

000040
000001
000023
000426

000000

4430
449]
4492
4433
4434

1?????

001200

m~N
1)

4489

£ LLL
1 L LWWWWW
LW LWW LWL WIWW WMDY

4474
4475
4476
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488

it s Dt Pt ot Pt Pt Bt Pt ot e P

DOODOOO0O

4473

s Bt s s Pt Bt Bt

4450
4451
4452
4453
445y
4455
4456
4457
4458
4459
4460
4461
4462
Y463
4464
4465
4466
4457
4468
4469
4470
4471
4472

4449

Q0OO000000000000000000000CO000

Yyy
4448

000012
001270
00000
02500

Pt P

4445
Y44y

SEJ 0084

(PART 2)

MAKE SURE HEADER VRC AND OPI ERRORS SET.

L REEEREREERARREE AR

e Bt Bt s s Pt pt Bt Bcn Pt Pe Bt Pt bt e Bt Pt P

4441

GO7

PAGE 84
10:20
02-DEC-77
OPI AND PREVIOUS HERDER VRC

#16.

PR.BYT,M1.BIT
RY
17%
PR.BIT
189

#1,PR.BIT
PC,ROBIT

RO
159
Rl

; SIMULATE OPI
;GET NEXT HMERDER WORD
;LOAD BITS PER WORD
;STORE PREVIOUS BIT
; GET NEXT BIT

; SIMULATE NEXT BIT
;CHECK IF READY FOR NEXT HERDER WORD

*NO,

CONTINUE

‘CHECK IF FINISHED WITH HERDER

CZREDBO RKB11

CZR6DB.P11
4495
::95

021466
021470

DSKLS CTRL PRT4

02-DEC-77 10:00
001354
012700

000108

i B
B B
1
37026

4500

qsgé

021512

851314

8°é3

4803

021524

oxsa

4507

851550

04110

4510

02iSk2

4504
4505
4506
4508
4509

1 és

851232
1840
021546

8§5
3737
001401

MACY1l

003256

003140

000014
003200

003154
003140

003150

BNE
ngv

26%:

003150

30$:

4Sl2

021564

021572

023737

003214

003154

31%:

4514
4S1S

021576
851204

016237
8 3737

000026
003224

003164
003164

32%:

4§13 021574 104112
4&16

1612

1401

B B BB o

4519 0515%3 023537 800059 003310
4520
4621

021-30
021622

001011
012737

4625
4coL

021656
021660

001402
000137

021332

4528

021672

016237

000006

4530
4531
4532
4533

021706
021714
(021722
021730

016237
012737
023737
001401

000014
000200
003140

4622

021640

042737

020400
000001

4527

4529

4E34

0216b4

012762

021700

016237

021732

104153

4537

128
6.

ERE
PC,RDBIT

BNE

258

000000

000010

003150

003140

MOV

: CHECK

'NO,

IF GAP IS FINISHED

CONTINUE

RKCS2(R2) ! T.CS2 :GET €S2

RKER(R2) .} .ERTM
E.Ccs1,T.451
303

CMP
BEQ

£.CS2,7.CS2
31%

CMP

E.ER,T.ER

MOV
CMP

RKMR
I(RE) T.MR1 GET MR1
5'” T.MR1
gcx
T0 nnKE SURE WRITE GATE DID NOT SET

ERROR

ERROR
BEQ

ERROR

:GET ERROR REG.
:CHECK CS1 CORRECT
;Y S, CONT Nu§

:CS1’

111

:CS2 INCORRECT

INCORREC

:CHECK CS2 CORRECT
,YES, CONTINUE
CHECK ERROR REG CORRECT

32%

1l2

ROR REG INCORRECT

LI
o
'CHECK IF LAST HEADER

35§
uopx anc E.ER

'NO CHECK IF F INSHED
:LOAD ERROR BIT

BEQ
JMP

37%
5%

'YES - SKIP
:DG_NEXT SECTOR

MOV

RkCS1IR2),T.CS1:GET CSI

BIC

35%:

BIS
DEC

37%:

MOV

.cst’

"ADJUST E.CS1 FOR END OF QP CONTENTS

oRD? CERR,E.CS1 :CHECK IF FINISHED
RS
#CCLR,RKCS1(R2)

MOV

RKCS2(R2) . T.CS2

ERROR

183

MOV
MOV
CMP
BEQ

RKER(R2),t.ER
#ROY E.C51
T.Csl,E.CS1
16735

:CLERR CONTROLLER

;

cSe

ER
{SET EXPECTED CSl
:CHECK IF CORRECT
1 GO TO NEXT TEST

CRRREBBRRRRRRAEREA
LR RN
RERREREAERERE R R R LA AR ERERERRE LR LR

*rssr 35

4540

CLEAR RKG11

4542

4543

4546

4641

:g:g

00004

CONTROLLER WITH A CONTROLLER CLEQR.
IN DIAGNOSTIC MODE.

CYLINDER 0, HERDO
%

WORD TO AN RKOB

ISSUE WRITE DATA

LOCK THROUGH SEEK

IN
es aecrgn FORMA

'y
sy

AND
DRIVE CLEARMSsncEs SIMULATE
A SECTOR PULSE
AND A HEADER uxTH A BSE ERROR.
MAKE SURE CONTROLLER

P x

CONTROLLER ERROR RESETS.

021734

BSE AND CONTROLLER ERROR

PUT CONTROLLER

454y
4545
4€50

;NO, CONTINUE
E?QBLSQENgQEOR GRP

MOV
CMP
BEQ

BNE
MOV

003154
003200
003200

SEQ 00es

RKCS1(R2),7.CS1 :GEY CS1

MOV

:ggg

‘45‘49

arT

BT
o
CMP
#31.,HDRCNT

003200

100006

Ro'“1

o
JSR

BEQ

003214

4523
gsxsqa
835787
100200 003200
4524
1654
308

PAGE 85

25§

003210

001401

HO7

OPI AND PREVIOUS HERDER VRC (PART 2)

(023737
001401
104111

10:20

T34

1662
021560

4S11

02-DEC-77

DEC

000000
000010

30(1046)

ERROR AND HVRC

SET.

CLEAR CONTROLLER AND MAKE SURE

2 222222222222 222222222 2222232222222

+&735:

SCOPE

X2 X2TXITIIILTELE SR 2

T35

Q00000
000026
000004
000002
000020
000006
000000
000026
000026

000140
000040
003254
003256
000377
037026

000026
0000eb

000001
037026
053372
000003

003254

18:

#10,STIMES

::DO 10

#CCLR'R¥FCS1(R2)

:CLEAR RKb1}

$BASE, R2

80MD, RKMR1(R2)
;PUT RKGL1 IN DIAGNOSTIC MODE
8BUFF RKBA(R2)
:LOAD DUMMY BUS RDDRESS
8-1,RKWC (R2)
:WORD COUNT=1
#0, AKDCYL (R2)
;(OAD CYLINDER 11DMS
80’ RKDA(R2)

-LORD TRACK AND SECTOR

869 #4+42 RO

: ISSUE ENOUGH CLOCKS UNTIL

M1.BIT
8255. . RO

0cee7y4

- ISSUE COMMAND

""READY FOR SECTOR PULSE.

PC,RDBIT

: GENERATE SYNCH
sCHECK IF SYNCH FINISHED

81,PR.BIT

; SIMULATE SYNCH

PC RDBIT

sHERD2, R3

12%:

;SIMULATE SECTOR PULSE

#3_R1

{R3)+ R4

#16.

PR.BYT,M1.BIT
RY
15%

:LOAD HERDER

*LORD WORDS PER HEADER

:GET_NEXT WORD

'LOAD BITS PER WORD

;STORE PREVIOUS BIT

'GET NEXT BIT

PR.BIT
16$
e

003254

#1,PR.BIT
PC,RDBIT
RO
12%

RI
000101
003254
003254
037026

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

gono RKMR1(R2)
R.BIT

10%:

ITERATIONS

:(ORD RK61I BASE

18
#DMD!MSP . RKMR1(R2)

cs:

003256

SEQ Q3086

#WRDATAR, RKCS1 (R2}

003254

000001
037026

107

02-DEC-77
_10:20
PAGE 86
BSE AND CONTROLLER ERROR
MoV
MoV
MOV
MOV

on
1"]

012737
004737
00S300

30(1046)

001200

000440
000040

000020
003254

000403

MRCY11l

wn
NN
oW
N

000010
001270
100000
000040
055216

177777
000000
000000
000023
000426
~
o
n

Pt poa

021736
021744

——

4551
4552
4553

[ ]

CZReDEB. Pl

DSKLS CTRL PRTH
02-DEC-77 10:00
Dt Pt Pt Pt Pt Pt Pt Pt P —

<ZR6DBO RKEL11

003256

021200
000440
000040

000026
0000es

000000
000010
000014
100222

003140
003150
003154
003200

c0%:

25%:

#65.,R0O

:SIMULATE NEXT BIT
'CHECK IF RERDY FOR NEXT WORD
:NO,
CONTINUE

:CHECK IF FINISHED WITH HEARDER
:NO,

CONTINUE

PR.B;},HI.BIT

: SIMULATE GAP

RO
208

:CHECK IF GAP FINISHED
CONTINUE
INO,

PR.B
PC,RDBIT

82%(256.+<16. ¥256.>464.> R0
I MCLK , RKMRI (R2)
#DMD

:LOAD COUNT UNTIL POSTAMBLE

aono,nxnnicna)

0
2s5s
RKCS1(R2),T.CS1
RKCS2(R2) T.CS2

;GET CSI
:GET CS2

RKER(R2),Y.ERTM
:GET ERROR REG
#CERR!ROY
! WRDATA& <$C<GO>>,E.CS1

:LOAD EXPECTED CS!

CZR6DBO RKG11 DSKLS CTRL PRTY
CZRE0B.P11
uUZ DFC-77 10:00
4607

022302

012737

022324
022326
022330
022336

001401
104136
023737
1401

4615
4plb
4el?
4618
4619

Q022342
022350
022352
02234
(022362

023737
001401
104140
012762
016237

4e2l
4622
4623

022376
022404
022412

016237
012737
023737

.508
4609

4610
4ell
y6le
4613
4614

4620

4e24

:ggg

022310
022316

0220

022370

022420

022422

012737
023737

104137

016237

001401

00G390

000200
003200

Ja7

MACYI1 30(.046)
02-DEC-77
10:20
PAGE 87
T35
BSE AND CONTROLLER ERROR
003210

MOV

003214
003140

003210

003150

003214

003154

32%:

100000
000000

000000
003140

35S:

000014
000200
003140

003154
003200
003200

000010

#IR'OR,E.CS2

:LOAD EXPECTED €S2

BEG
ERROR
CMP
BEQ

308
136
£.0S2,T.CS2
32%

:YES,
CONTINUE
:CS1 INCORRECT
'CHECK CS2 CORRECT
s YES, CONTINUE

CMP
-1e)
ERROR
MOV
MOV

E.ER,T.ER
358
140
#CCLR,RKCS1(R2)
RKCS1tR2), T.CS1

cascx ERROR REG CORRECT
YES- SKIP
ERROR REG INCORRECT
;CLERR CONTROLLER
.uET CSl

MOV
MOV
CMP

RKER(R2) . t.ER
#200,E.CS1
7.CSy,E.CS1

ER
SET EXPECTED CSl
:CHECK IF CORRECT

183

tRRon DID NOT CLERR

MOV
CMP

)
2308:

003150

ERROR

MOV

BEQ

104153

ERROR

Y627

SEa 0087

#B8SE E.ER
g.csl,T.cs1

137

RKCS2(R2) . T.CS52

15736

:LOAD EXPECTED ERROR REG
:CHECK CS1 CORRECT

:CS2’

INCORRECT

cse

16O TO NEXT TEST

o 3636 36 3 3 36 36 3 3 3 3 36 3 3 3 3 36 3 3 3 3 36 3 3 96 3 3 3¢ 36 3 3 3 3 36 3 3 3 3 3 3 3 3 3¢ 3 I 3 3 3 3 B 2 K I

3258

irssr 36

4631
4632

S
1

4€30

4633

HVRC AND CONTROLLER ERROR

#% % W% E R %R

CLEAR RKb11 CONTROLLER WITH A CONTROLLER CLERR.

PUT CON'ROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE DARTA
OF 1 WORD TO AN K06 IN es SECTOR FORMAT

CYLINDER 300,

HERDO,

SECTOR O.

CLOCK THROUGH SEEK

4634

4639
4e40

: o 3636 3 36 36 3 3 35 3 36 3 3 36 36 36 3 36 36 3 35 36 36 36 36 3 3 36 3¢ 3 36 3 3 3 3 36 3 3 I 3 3 3 3 3¢ 3 J 3% 3 J 3 I J o K X 3 3 % % % %% XX
+4736:
SCOPE

4635
4636
:ggg

s %
x
S

022434
022440
022446
022454
022462

013702
012762
012762
012762
012762

4650

022512

012700

000426

4652
4653

022516
022524

012762
012762

000440
000040

000026
000026

4656

022536

0i2762

000140

000026

(005027
012700

003256
000377

Q22426

012737

000012

001270
100000
000040
055216
177777

001200

MOV

000000
000026
00000
000002

4647 022470 012762 000300 000020
4648 022476 012762 000000 000006
4£49 (022504 012762 000023 0000CO
4651

4654
4655

022532
022534

005300
001370

4657
4658

022544
C22652

Ole7ee
005037

46b]l
4662

uceSbb
022572

004737
005300

4yega
466U

~35p586
2562

000040
003254
037026

5§

;00 10.

ITERATIONS

:(ORD RKb11 BARSE
;CLERR RKb1l
;PUT RKB11 IN DIAGNOSTIC MODE
;LOAD ounnv BUS RDDRESS
'WORD COUNT=1

MOV

#69. ¥4+2, R0

xssus EROUGH CLOCKS UNTIL

MOV
MOV

#0MD* MCLK RKHRI(QE)
#DMO, RKMR] (R2)

uaob RKDCYL(R2) ';LORD chxnosn 110MS
RKDA(R2)
. (ORD TRHCK AND SECTOR
cuhonrn Rxcsxtnas
ISSUE COMMAND

READY FOR SECTOR PULSE.

DEC
BNE

RO
18

MOV
CLR

#DMD . RKMR1 (R2)
PR.BIT

:GENERATE SYNCH

JSR
DEC

PC,RDBIT
RO’

:CHECK IF SYNCH FINISHED

MOV

000026

,STIMES

$BASE, R2
8CCLR RKCS1(R2)
#0MD, RKMR1(R2)
$BUFF, RKBA(R2)
#-1,RKWC (R2)

MOV
MOV
MOV

1%:

#10.

MOV
MOV
MOV
MOV
MOV

CLR
MOV

SDMD!MSP,RKMR1(R2)

M1.BIT
8255. . RO

;SIMULATE SECTOR PULSE

000004

4e42
4643
444
4e4s
4646

AND A HEADER WITH A
HVRC ERROR.
MAKE SURE CONTROLLER
ERROR AND HVRC SET. CLERR CONTROLLER AND MAKE SURE
CONTROLLER ERROR RESETS.

- %

022424

4641

AND DRIVE CLERR nssshces SIMULATEA SECTOR PULSE

<ZREDBO RKBL1 DSKLS CTRL PRTH
CZReDB.P11
0e-DEC-77 10:00
4663
4664
4665

022574
022576
022604

001374
012737

000001
037026
053474
000003
000020
003254

4673
4674

022640
022644

000403

4676
4677

022646
022654

012737
004737

000001
0370e6

n
~N
o
o

—

237
237
237

000000
000010
000014

R
OERGEREBRE
SO
eR
— £ NN
N— £ - £ 9
A
N Nt

NOWWWWWINLOWLOW £
W= NN NNNU
W
N — N—

—
—
—

o
0
o

(=]

o
n
n

023110
0e31.2

—~0000000~00—00—~00000

4
2

o
[ ]

o
fo

£
o
[Ve]
o
L
~

Lrerrt
NNNNNIN

e
3

021200
000440
000040

737

30(1046)
T36

109:

003256

KO?7

10:20
PAGE 88
02-DEC-77
HVRC AND CONTROLLER ERROR
#1,PR.BIT

003254

129:

PC RDBIT
sHERD10,R3
83, Rl
(pé)+ Rq

PR.atT.nl.exr
RY

15%
PR.BIT
16$

003e54

000101
003254
003254
037026

737
737
737

MACY11

8],PR.BIT

003254

208:

'STORE PREVIOUS BIT

IGET NEXT BIT

1os

'NO, CONTINUE

gng%r M1.BIT
RO’

259%:

;LOAD HEADER
:LORD WORDS PER HERDER
:GET NEXT WORD
:LORD BITS PER WORD

:SIMULATE NEXT BIT

PC,RDBIT

000026
0000eb

:SIMULATE SYNCH

PC,RDBIT

RGO’
12%
R1
003256

:CHECK IF READY FOR NEXT WORD
*NO, CONTINUE
"CHECK IF FINISHED WITH HEARDER

;SIMULATE GAP

:CHECK IF GAP FINISHED

208
:NO, CONTINUE
2K (256, +(16. ¥25b > 364,> ,RO ;LOAD COUNT UNTIL POSTAMBLE
#0MD! MCLK , RKMR1 (R2)

#DMD, RKMR{ (R2)

RO
25$
RKCS1(R2),T7.CS1

;GET CSI

#IR'OR,E.CSe

; LOAD EXPtCT cs

RKCS2(Re) . T.CS2 :GET €S2
RKER(R2),t.ER”
:GET ERROR REG
SCERR RDV! WRDATA&< $C<G0>>
E.CS1

100222
000300
000400
003200

003210

30%:

003214

32%:

100000
000000
000010
000014
000200
003140

35%:

SEQ J088

sHVRC, £ . ER
E.CSI.T.CS1
308
1
£.CS2,T.CS2
$
142

:LOAD EXPECTED CSl

:LORD EXPECTED ERROR REG
:CHECK CSI CORRECT
:YES, CONTINUE
:CS1’ INCORRECT
'CHECK €S2 CORRECT
;vss, commue

:CS2’ INCORRECT

E.ER,T.ER
358
143
#CCLR,RKCS1(R2)
RKCS1{R2),T.CS1

:CHECK ERROR REG CORRECT
:YES- SKIP
:ERROR REG INCORRECT
>CLEAR CONTROLLER
;GET CS1

RKER(R2), t.ER
#200,E.C51
7.CS1,E.CS1

ER
ISET EXPECTED CS1
:CHECK IF CORRECT
GO TO NEXT TEST
:¢RROR DID NOT CLEAR

RKC52(R2) | T.C82

156737
153

;

‘iiiiiiil*55**&{4****i*i*il{*ii*i*i*!i**iii*l****!i*1}1*1**1*;**
TEST 37
READ DATA AND HVRC ERROR

( o46)
3 0l
137
wr

MACY1l

CZREDBO RKb11 DSKLS CTRL PRTH
CZR6D B. Pll
02-DEC-77 10:00

PUT CONTROLLER IN DIAGNOSTIC MODE.

WO
WY

CYLINDER 300,

Gt
TeswIWIws

CONTROLLER ERROR RESETS.

'UN*%HNH)!UNQ{UNHHUQ&NUO

o
n

bt pa b
O

01374

19%:

000377
037026

5¢:

023372

109:
003256

129%:

005037

o
e

003254

012737
poN4737
005300
001361

VIR

003254

023334

2300, RKDCYL
(R

20%:

;CLEAR RK&ll
;PUT RKb11 IN DIAGNOSTIC MODE
;LOAD ounnv BUS ADDRESS
*WORD C
6
. LOAD CYLIN ER 11DMS

MOV
MOV

8DMD ! MCLK Rxnnxzka)
#0MD, RKMR1 (R2)

869. ¥4+2, RO

: ISSUE
ENOUGH CLOCKS UNTIL
READY FOR SECTOR PULSE.

DEC
BNE

RO
18

MOV
CLR

#0OMD . RKMR1 (R2
PR.BIT

: GENERATE SYNCH

JSR
ggg

PC,RDBIT
o

sCHECK IF SYNCH FINISHED

sx PR. ?41

: SIMULATE SYNCH

%3 R1

:LORD WORDS PER HEADER

MOV

Pn.air,nl.axr

PER WORD
BIT
Pnsvxous
STORE BITS
::LORD

BCS
CLR
BR

158
PR.BIT
168

#DMD! MSP RKHRI(RE)

M1.BIT
#255. . RO

JSR
MOV

PC’RDB
sHEAD10,R3

MOV

<R3)+ nq

MOV

MOV
ROR

MOV

JSR

DEC

DEC
figs

003256

12ITERRT ONS

Lono Kb

#0, RKDAR(R2)
.(OARD TRACK AND SECTOR
ISSUE COMMAND
sRODATA Rxcsxtnai

BNE
000101
003254
003254

#CCLR RKCS1(R2)
$OMD, AKMR1 (R2)
8BUFF,RKBA(R2)
8-1.RKWC (R2)

;

MOV
MOV

MOV

003254

srxnes

MOV

CLR
MOV

003256

810,

$BRSE, R2

MOV

000140
000040
003254

000020
003254

MOV

000440
000040

000001
037026
053474

SCOPE

MOV
MOV
MOV
MOV

000000
000026
000004

000003

023336

< 33636 36 30 36 36 3 36 36 36 36 36 36 28 30 36 36 36 3 36 3% 36 36 36 3 38 34 36 36 36 36 36 3¢ 36 96 30 36 36 30 3 B¢ 3 3k 3 36 36 3 3 36 36 3 36 36 9 36 3 36 3 2 ¥ ¢ %

tér37:

e pa

023206
023214
023222
0232eM
023226
0ec3234
023e4e

OO0 0=+

023174
0e3e0e

0000
s pt et b b= = O)

*
;*

762

CLOCK THROUGH SEEK

A HEADER
AND
ERROR AND HVRC SET. CLEAR CONTROLLER AND MRKE SURE

L
;%

(s [0FV-4
100000
000040
055216
177777
000300
000000
000021
000426

HEAD
O, SEGTOR O.

AND DRIVE CLEAR
nessbcss SIMULARTE
A SECTOR PULSE
MAKE SURE CONTROLLER
WITH A HVRC ERROR.

001200

ISSUE
A READ DATA

SECTOR FORMAT

OF 1 WORD TO AN RK06 IN 26

00001

SEQ 0089

CLEAR RKB11 CONTROLLER WITH A CONTROLLER CLEQP.

;

023114

LO7

PRGE 89
10:20
02-DEC-77
READ DATA AND HVRC ERROR

MOV
CLR

#1,PR.BIT

:SIMULATE SECTOR PULSE

:LORD HEARDER

:GET NEXT
WORD

:GET NEXT BIT

PC.ROBIT

; SIMULATE NEXT BIT

IF FINISHED WITH HERDER
CHECKNTINUE

PRatT M1.BIT

;SIMULARTE GARP

RO’

12%

PR.B

CHECK IF RERDY FOR NEXT WORD

:NO, CONTINUE

CZR6DBO RKE11

CZR&D8.P11

DSKLS CTRL PRTY

02-DEC-77 10:00

4?7
7
?
037026
477
853303
883380
4777
023404
805;35
4778 023406
021200
4779

023412

012762

MACYLl

000440

000026

01523;

000090

003}“8

12737

000100

003210

003150

:;eo

023420

01§7sa

:;93

023:32

4787

02346

4780 353358 883338

000040

000026

30(i0¥6)

137

25%:

02-DEC-77

10:20

MO7

PRGE 90

SEQ 0090

READ DATA AND HVRC ERROR
JSR
o?c
BNE
MOV

PC,RDBIT
8
CHECK IF cnp FINISHED
g
CONT&
$O%(256.4¢16. *esé >$s
:LOAD COUNT UNTIL POSTAMBLE

ggg

58"0 RKMR] (R2)

nox

szc5é(sgg,T cgé:GET €Sl

MOV

#IR,E.CS2

MOV

#0MD 'MCLK , RKMR1 (R2)

4785 85 4y 8i8537 888819 883124
4786 023454 012737 100220 003200

MOV
MOV

4788
4789
479G
4791
4792

02347
023476
023504
023506
023510

12737
023737
001401
104141
023737

MOY
CMP
BEG
ERROR
CMP

sHVRC ,E.ER
E.CSI,T.CS1
30%
141
E.CS2,T.CS2

47949
4795
4796
4797
4788
4795

03520
(023522
cgasgo
0e3532
(23534
023542

104142
023737
081401
104143
0i27e2
016237

ERRCR
CMP
EQ
ERROR
MOV
MOV

142
E.ER,T.ER
353
143
8CCLR RKCS*(RE)
RKCS1tR2),T.CS1

csa INCORRECT
:CHECK ERROR REG CORRECT
:YES- SKIP
"ERROR REG INCORRECT
CLEQR CONTROLLER
:GET €SI

%200, E.C51

‘SET Expscreo cSl

4793

4800

023516

023552

001401

o{saag

000400
003200

003214
003140

30$:

003214

003.54

32§:

100000
000000

000000
003140

35%:

000018

ooaisg

ggv

Y §§ §53§24 813537 888860 883230

MOV

4804

23572

023600

023737
001401

:ggg 023602 104153

003140

003200

4807

BEQ

CMP

BEQ

ERROR
X

iTEST 40

4810
4811
4812

‘¥
‘¥
S

4813

4814
4g1s

32%

:LOAD EXPECT

7.CSl,E.CS1

TSTHO

153

LORD EXPECTED CSl

:LORD sxpscreo ERROR REG
:CHECK CS] CORRECTM
PYES, CONTINUE
:CS1’ INCORRECT
cuscv ¢S2 CORRECT
YES,

sficgfég§)?7égsa:
.

csh

CONTINUE

cs2

CHEPK IF conascr

GO TO NEXT

TEST

ERROR DIS NOT CLERR

222222222222 2X2222222222:232222X2222X2222X22XX2X222FXXTTT2222TXL
LS

:ggg

;'!

RKE? &a),? ta EET Eason REG
.CERR!QDY'RDDQTQA(fL(GO)) E. c51

WRITE CHECK AND HVRC

CLEAR RKBH11 CONTROLLER WITH A CONTROLLER CLERR.
PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A WRITE
CHECK OF 400 WORDS T
AN RKO®
IN 26 SECTOR FORMAT

CYLINDER 380,

HERD0, SECTOR Q.

CLOCK THROUGH SEEK

¥
TM

AND
DRIVE CLEQR nesshcss SIMULATE
A SECTOR PULSE AND
A HEADER WITH A HERDER VRC
ERROR.
MAKE SURE

:gig

AND MAKE SURE CONTROLLER ERROR RESETS.

4819

. o 33 3 3 3 3 96 3 3 3 36 36 3 36 3 3 36 36 3 3 36 3 36 3 3 36 96 3 3 3 3 3 3 3 W 3 I 3 3 I 3 I 36 3 I K I I I I F I 3 W ¥ 3 A K ¥ K K® XX

4816

HVRC AND CONTROLLER ERROR ARE SET.

:SS?
gggggg4 8?398;
oooc%e
0oo1200 §740: ESSPE
"
0137
002
MOV

4853 BSSEéc 813725 18&008 000000

dsoe
Oo363q ois7es 920949 DOOOSE
4852 853 42 8157& x7§§59 838 02
4858 853&24 81 76
4830

023672

012700

880891 8 0000
000426

0. ST MES

MOV

:CCLSRKCS1(R2)

MOV

sukTCHK RKCSl(R2}

Hov
MOV
MOV

-L

CLEAR CONTROLLER

88o 13stxxrsnnréons
BAS
.

'°"°¢"'§.'2§&
S) E‘o’n
“Efiéév’eg ASoRESSC MOPE
Rkuc<
uon COUNT=1
$63. ¥4+2, R0

ISSUE COMMAND

: ISSUE ENGUGH CLOCKS UNTIL

MACY1l

000440
000040

000026
00002

000140
000040
003254
003256
000377

000026
000026

000001
037026
053474
000003

000020
003254

024020
024024

003254

024026

000001
037026

33(1046)
T40
18:

003254

10%:
003256

NO7

10:20
PRGE 91
0e-DeEC-77
WRITE CHECK RND HVRC
.

#DMD! MCLK , RKMR1 (R2)
ognoRKMRI (R2)
18
s0MD ! MSP RKHRI(RE)

cs:

037026

£
~N

Q00000 00000000000
o - 000—-00——-0

023676

DSKLS CTRL PRTH
02-DEC-77 10:00

CLR&DBO RKe&11
CZR6
60B. P11

129%:

DNOONDONHH»—o—r—r—gg

oO0-00—-00000000

024220

; SIMULARTE SECTOR PULSE

; GENERATE SYNCH

PC,ROBIT
RO’

:CHECK IF SYNCH FINISHED

81,PR.BIT

: SIMULATE SYNCH

M1.B81IT
#255. RO

PC RDBIT
sHERD10,R3
83, Rl
(Ré)+ Rq

PR.eiT,nx.BIT
RY

158

;LOAD HEARDER
:LOAD WORDS PER HEADER
'GET NEXT WORD
SLOAD BITS PER WORD

:STORE PREVIOUS BIT

IGET NEXT BIT

PR.BIT
16$

#1,PR.BIT

003254

PC,RDBIT
RO’

; SIMULATE NEXT BIT
CHECK IF READY FOR NEXT WORD

xos

NO CONTINUE

128

737

READY FOR SECTOR PULSE.

#DMC | RKMR1 (R2
PR.BIT

RI
000101
003254
003254
037026

SEQ Q091

003256

c0%:

etr M1.BIT
gg

NT INUE

ECK IF FINISHED WITH HEADER

;SIMULATE GAP

PC, RDBIT

RO’
:CHECK IF GAP FINISHED
208
*NO, CONTINUE
82%(256. +¢16. #256.>+64.)> RO ; LORD COUNT UNTIL POSTAMELE

021200
000440
000040

000026
000026

000000

003140

0
25%
RKCSI(RE), .CS1

003200

003140

E.CSI1,T.CS1

003210

003180

309:

003214

003154

32%:

25%:

#0MD! MCLK , RKMRI(R2)

aonoJRKMRI (R2)

;GET €Sl

RKCS2(R2) ! 7.C52 :GET €S2
RKER(R2) , 1.ER
GET ERROR REG
OCERR'RD?'NRTCHK&(fC(GO)) E.CS1 ;LORD EXPECTED CS1
#IR,E.CS2
:LOAD EXPECTED cs2
#HVRC E.ER
:LORD EXPECTED ERROR REG

308
141
E.CS2,T.CS2
32%
14 2

E.ER,T.ER
35%

:CHECK CSI CORRECT

YES, CONTINUE
CS1’ INCORRECT
:CHECK CS2 CORRECT
; YES, CONTI
: €S2’ INCORRE CcT
'

:CHECK ERROR REG CORRECT
:YES - SKIP

CZR6DBO RKB11 DSKLS CT;L PRTY
CZR&DB.P11
02-DEC-77
10:00
4887
48B8

(024222
0e24e2d

104143
012762

024240

815237

024270

001401

4889

(0e4e32

4891
4892
4893

024e46
(24254
024262

:ggg

024éve

4890

4894

MACYI!

39‘(‘60‘46)

100000

000000

35§:

000010

003150

016237

000000

016237
012737
023737

000014
000200
003140

003140

B0O8

02-DEC-77
10:20
PRGE 92
WRITE CHECK AND MVRC
ERROR
MOV

RKCS1tR2),T.CS1 :GET CSI

MOV
MOV
CMP

RKER(R2),}.ERTM
#200,E.CS1
1.CS1,E.Cs1

!
ER
!SET EXPECTED CS!
:CHECK IF CORRECT

153

‘ERROR DID NOT CLEAR

BEQ

104153

ERROR

4897

:ERROR REG INCORRECT
:CLERR CONTROLLER

MOV
MOV

003154
003200
003200

143
8CCLR RKCS1(R2)

SEQ 3092

RKCS2(R2) . T.CS2 ;

TST41

cse

:<GO TO NEXT

TEST

:ggg

.SBTTL

4900

HIH I 2222222222222222222222222222222222XXXX22XX222222222
2222222222 2

:ggé

;RTEST 41

;

4903
4304

e
P

4907

4905
4306

024274

000004

4915

024304

013702

001270

4917
4918
4919
4320
4321

024316
024324
(024332
(024340
024346

012762
012762
012762
012762
012706

000040
NS3510
177770
000023
000450

000026
000004
000002
0600000

4323
4924

024352
(024360

012762
0l2762

000440
000040

000026
000026

4916

4922

4925
4926

(024276

C€C24310

012737

012762

4927

024366
024370
024372

00S30C
001370
012762

4930
4931

024412
024416

005037
012700

(24426

005300

4928
4929
4932

4933
4934

(024400
(024406

024422
(024430

000012
100600

000140

012762
005037

000040
003254

004737

037026

001374

(24432

(012737

00000!

43838
4939

(024450
Q24484

012703
012304

053364

Q024462

013737

003254

4940

4941

4942

024440
024444

024456

O24470

004737
012701

012700

006004

001200

037026
000003

000020

Y 2122222212X2222212¥2%:z22:z222:2232222:2X222222XX2X2X222XXXX22X2XTTL
L

Y$141:

SCOPE

MOV

1§:

S§:
003254

;:00

10.

ITERATIONS

#CCLR RKCS1(R2)

:CLEAR RK611

$BASE, R2

MOV
MOV
MOV
MOV
MOV

#0MD, RKMR1(R2)
:PUT RK611 IN DIAGNOSTIC MODE
sECC!,RKBA(R2)
:LOAD ADDRESS OF ECC DATA
#-10,RKWC(R2)
:WORD COUNT =10
#WRDATA,RKCS1(R2)
; ISSUE WRITE DATA
#8.%37. RO
: ISSUE ENOUGH CLCCKS UNTIL

MOV
MOV

DEC
BNE
MOV

000026

#10.,STIMES

MOV

000026

003256

SIMULATE

0000CO

003256
000377

4935

4936
43937

SEEK AND DRIVE CLEAR MESSAGES.

A SECTOR PULSE AND A GOOD HERDER.
CLOCK THROUGH ONLY FOUR
DATA WORDS OF ZEROES.
MAKE SURE THE ECC PATTERN

4913
4914

DATA OF 10 WORDS TO AN RKO6, IN 26 SECTOR
FORMART,
CYLINDER O,
HEAD 0,
SECTOR 0.
CLOCK THROUGH

Lx
e

:g{?

ECC INITIALIZATION

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

¥
‘¥

4908
4809
49]2

##ECC GENERATION TESTS

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

#0MD _ RKMR1 (R2)
PR.BIT

JSR

PC,ROBIT

BNE

DEC

MOV

JSR
MOV

12%:

MOV
MOV

15%:

MOV

ROR

"READY FOR SECTOR PULSE

RO
18

MOV
CLR

CLR
MOV

:(0AD RKBI1 BASE

M1.BIT
#255. , RO

;SIMU'LATE SECTOR PULSE

: GENERATE SYNCH

;CHECK

$1,PR.BIT

: SIMULATE SYNCH BIT

#HEAD! ,R3
(R3)+,RY

;
0, TRK 0, SECTOR O
*GET NEXY HERDER WORD

PR.BIT,M1.BIT

:STORE PREVIOUS BIT

PC,RDBIT
#3 Rl

#16.

IF SYNCH FINISHED

; SIMULATE

HEADER

:LOAD BITS PER

:GET

BIT

WORD

CZR6DBO RKBi1 DSKLS CTRL PRTMH

CZR6DB.P11
4q43
4944
4945

4946
44?7

4948
4949

0e-DeEC-77 10:00

D24M72
024479
024500

103403
005037
000403

003eS4

024502

012737

000001

037026

MACY1l

30(1046)
T4l

MOV

003254

JSR
DEC
NE
EC

4950

ga3sed

424

003254
037026

000400
050670
003252
03254
03256
003260
003262
062040
036300

43966

4967

4968
4969
4970
4371

4972

4973

4374

4975
4976

4977
43978
4979
43980
43981
43982
4983
4984
4985
4986
4387
4988
4389

003256

20%:

001310

003224

000001
036300

003262

003e5e

024740
24746
c 4752
024754

025000

001401
104134
005237
005300

20%
#256. ,RO
#EM327, EMUW
PI.BIT’

003260

003256
003254

329%:

003252

000032
003234

003174
003174

: CHECK xr GAP FINISHED

:NO, CONTINUE
!LOAD COUNT FOR SYNCH FIELD
:LORD ERROR MESSAGE
SINITIALIZE BITS

BITCNT

INITIARLIZE BIT COUNT

JSR
INC
DEC
BNE
MOV

PC,WRTBI
@
BITCNT
Rg
2ss
%1,P1.BIT

: INCREMENT BIT COUNT
CHECK IF FINISHED
'NO, CONTINUE
:SIMULATE SYNCH BIT

ERROR

MOV

ssnag , EMW

MOV

ERROR

E.MRI ;LORD EXPECTED MRI
#DMD ! ECCWT ! MEWD! uhrcnr
WRITE BIT

PC . JRTBIT

BITCNT

E.EC

MOV
MOV
MOV
MOV
MOV

$ECC1,R3
84 Rl
(R3)+,RY
#16. RO
M1.BYT,M2.BIT

MOV

P1.BIT,PR.BIT

BCS
CLR
BR

34§
P1.BIT
35§

MOV

JSR

ERROR

MOV

CMP
37%:

RO’

N0 CONTINUE
'SIMUCATE GAP +1 FOR SWITCH FROM READ TO WRITE

PR.BIT
M1.BIT
M2.BIT

ROR

34%:
35%:

P aIT M1.BIT

:SIMULATE NEXT BIY
: CHECK xr READY FOR NEXT HERADER WORD
NO CONT ?
CHECK IF FINISHED WITH HEADER

CLR
CLR
CLR

CLR

30%:

000001
036300

003262

BNE
MOV
MOV
CLR

CLR

00325e

024736

PR.BIT
PC,RDBIT

JSR

001310

053510
0oooo4
000020
003256
003254
003252

CLR
JSR

CLR

259

81,PR.BIT

PC"RDBIT

BNE
MOV

MOV

SEQ 0093

17%
PR.BIT
18%

&ss
1
12%
s

DEC

003262

05%642

PAGE 93
10:20
02-DEC-77
ECC INITIRLIZRTION
BCS
CLR
BR

4951

4955
495
49S
4958
4959
4960
496
4962
4963
4964
496S

Ca8

BEQ
ERROR
INC
DEC

PR.BIT MI.BIT

#1,P1.B1I7

PC WRTBIT

*DRTA INCORRECT

;CLEAR BIT counr

t ng ERPROR 53
LEAR EXPECT

:GET NEXT BIT

: SIMULRTE BIT

378
134
BITCNT
RO

:STORE ECC WORD

ECC PATTERN CORRECT
cuécx CONTINUE

RKECPT(R2),T.ECPT

F.ECPT,T.E&PT

ECC PATTERN

:LOAD START OF DATA
:LORD COUNT
"GET NEXT WORD
:LOAD BITS PER WORD
iSHIFT BITS

:YES,
:ECC PRTTERN NOT zsao
: INCREMENT BIT COUN
'CHECK IF FINISHED NITH WORD

CZR6(BO RKb11

CZR&DB.P11

DSKLS CTRL PRTH

MRCY11

02-DEC-?7 10:00

30(1046)
T4l

3ddd 822888 BRAY
SOOé

025006

D08

PAGE 94
10:20
02-DEC-77
ECC INITIALIZATION

BNE

aes

:NO,

CONTINUE

BNE

308

;NO,

CONTINUE

001333
s s B

;

s ¥

g
000000000
U MY o e b p—s e P p—
OO0 NN LW

ECC GENERATION (PART 1)
NIRO

onrngor éa uongs T0 ?N RKOB

TRO

CLE

é¥oas secrog X

1 ve

THROUGH

EEEQ 3&0 EthE cEEnH figsghcég. gIHU n?k 8 S c?gH
.

CLOCK THROUGH ONLY THE

PULSE AND A GOOD HERDER.

FOLLOWING SIX WORDS OF DATRA:

005001

‘e
"
2"
i x
¥

S x
¥

'CHECK IF FINISHEC WITH TEST

BhFAS.EEoRYRAL
L ERMIROBYRENEE A TYc AnbBE : TROYEEDE “hEfR

‘x

IE 303363636 30 36 08 36 36 38 36 36 96 36 36 36 36 36 36 36 98 96 06 36 36 38 3 36 3 3 30 0% 3020 3 30 00 3% 36 38 3 3 3 3 3 0 3 3 9 3 3 3 3 3 3 3% % % %

SkTEST 42
;l

SEQ 00

040040
020004

000064

000000
0060000

CLOCK ¥N EACH Bét INDIVIDUR#LY AND CHECK FOR PROPER ECC
GENERATION AS SEEN THROUGH
THE ECC PATTERN REGISTER.

- %

S025

025010

:-*illl!lll!!lllll!llli!lfilll!l!!lllll}l!l*!llIillll!lll!l!*!!l!l

000004

2053 BesRlS : Bisidl BR3IS

2030 052035 : 813765
o g B 5765
5028

2033

025024

025062

sggs 8250 )

2762

100000

8303
hh00sS

2700

000562

: 7
S300
:001370

000440

S?ES

S036
5037
5038
5039
SO040
S04l
SO42
SO43
SO44

025074
025102
025104
025106
025114
025l22
025126
025132
025136

12762
12762
00S037
005037
012700
004737

000140
000040
003254
003256
000377

S047
S048
S049
S0S0

025146
025154
025160
025164

01c737
004737
01270:
012703

000001
037026
000003
0S3364

S0S3
S0S4

025176
0Oeseo4

012700

000020

013737
O

001200
000000

MOV

20MD hxna1(ns)

n8v

=
DATA
ei. -?sgug uRf?E
cufighrn,Schx(R

MOV
MOV

#DMD
! MCLK , RKMR1 (R2)
#0MD, RKMRY (R2)

MOV

1%:

000040

RO
13

MOV

#0MD | RKMR1 (R2)

CLR

1 ¥

12%:
003256

CLR
MOV

JSR
852

MOV

003254

15%:

#10.%#37. RO

DEC
BNE

MOV

037026

003254

ST4e: MOV
Ro= ségse,R§
w10..STIMES
ITERATIONS
'L D0
0AD 10. st11
ans%
MOV
#CCLR RKCS1(R2) ;CLEAR RKb61l

PR.BIT

M1.BIT
#255. . RO

PC,ROBIT

: GENERATE SYNCH

%1,PR.BIT

: SIMULATE SYNCH BIT

sHEARD1,R3

:7°CYL 0,

#16.

:LOAD BITS PER WORD

(R3)+,RY

ROR

;SIMULATE SECTOR PULSE

:CHECK IF SYNCH FINISHED

MOV
MOV

. " READY FOR SECTOR PULSE

PC,RDBIT
%3 R1

MOV

: ISSUE ENOUGH CLOCKS UNTIL

#DMD!MSP. RKMR1(R2)

JSR
MOV

MOV

:PUT RKb}1 IN DIAGNOSTIC MODE

PR.BYT,M1.BIT
RY

: SIMULRTE HERDER

TRK O,

SECTOR O

:GET NEX} HEARDER WORD
iSTORE PREVIOUS BIT

:GET NEXT BIT

0e-DEC-77 10:00

025206
025210
0cSel4y

103403
005037
000403

003254

g2s216

012737
004737

000001
037026

MACY1l

30(1046)
42

EOS

02-DEC-?7
10:20
PRARGE 95
ECC GENERATION (PART 1)
BCS
CLR
BR

003e2s4

CZPEDB.PI11

DSKLS CTRL PRTH

[+ 1 8]
1.

CZREDBO RKB11

MOV

JSR
DEC
BNE

000101
003254
003254
0370cH
000400
050670
003252
003254
003256
003260
003262
062040
036300

003256

208

003262
000001
036300

003262

it
Pe s D Bt Pt bt s s pma §- 0 b ()
— 00000000000
Ww
OD®ICNERO—OW

000020
003256
003254
003ese

0essle

003260
003256
003254

32%:

PR.BIT
Mi.BIT
M2.BIT

BITCNT

NITIRLIZE BIT COUNT

ERROR
INC
DEC

2
BITCNT
RO

*DATA INCORRECT
: INCREMENT BIT COUNT
cuscx xr FINISHED

JSR
ERROR

PC,WRTBIT
2

MOV
JSR

012737
004737

001401
104135

003ese

00003e
036132
003234

003174
003174

349
35%:

2S$

81,P1.BIT

NTINUE

srhULnTE SYNCH BIT

BITCNT
8EM328, EMW
ECCHI

:CLEAR BIT COUNT
:LOAD ERROR MESSAGE
SINITIALIZE ECC

MOV

#ECC2,R3

;LOAD START OF DATA

(R3)+,RY
$16. RO
Mi.B}T,M2.BIT

:GET NEXT BIT
'LOAD BITS PER WORD
;SHIFT BITS

:GET NEXT BIT

MOV

MOV
MOV
MOV

MOV
MOV
BCS
CLR
BR

000001
036300

oonoszccusneuo'uhrch MRI ;SET EXPECTED MRl
PC,WRTBIT
WRITt BI

CLR
MOV
CLR

ROR

003252

025456

025460
025466
025472
025474

30%:

PRBtr M1.BIT

CLR
CLR
CLR

CLR
000006

1as

ONTINUE

écx xr FINISHED WITH HEARDER
TINUE
sthLnTE GAP +1 FOR SWITCH FORM READ TO WRITE

; CHECK IF GAP FINISHED
INO, CONTINUE
:L0AD coun7 FOR SYNCH FIELD
:LOAD ERROR
SINITIALIZE BITS

MOV

001310

15%

sSIMULATE NEXT BIT
cuecx IF READY FOR NEXT HEADER WORD

RO’
20%
256, , RO
SEM327, EMW
P1.BIT

BNE

003252

8l,PR.BIT

PC.ROBIT
RO’

PC RDBIT

CLR
25%:

17$
PR.BIT
18%

CLR
JSR

DEC
BNE
MOV
MOV
CLR

001310

003224

DEC
8NE
MOV
MOV

SEQ 0095

MOV

gggofl
MOV

ECCLO

%6, RI

PR.BIT.MI.BIT
P1.BIT.PR.BIT

34%
P1.BIT
$
#1,P1.BIT

PC.WRTBIT

: SIMULATE BIT

RKECPT(R2),T.ECPT

JSR
CHMP

PC,ECCGEN
E.ECPT,T.ECPT

ERROR

135

BEG

:LOAD COUNT

378

;STORE

ECC WORD

cefiennrs XPECTED ECC PAT
'CHECK ECC PARTTERN CORRECT

:YES,

CONTINUE

"ECC'PATTERN INCORRECT

025520
02SsSey
025526

005237
005300
001336

0essS3e

001331

025530

MACY1l 30(1046)
02-DEC-77_
10:20
PAGE 96
T42
ECC GENERATION (PART 1)

003262

378:

005301

INC
DEC
BNE

DEC

BNE

; INCREMENT BIT COUNT
;CHECK IF FINISHEDC WITH WORD
;NO,
CONTINUE

308

;NO,

RN R RN

iCHECK IF FINISHED WITH TEST

E BRI

ECC GENERATION

CONTINUE

(PRRT 2)

AAREAR AR AR SRR RS RN

BT
AL
@
S
R
e
me

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

SEEK AND DRIVE CLEAR MESSAGES.
AND A GOOD HEADER.
SIX WORDS OF DATA:

et
S
@
et
A

013702

025556
025564
025572
025600
025606

012762
012762
012762
012762
012700

000040
053550
177766
000023
000562

000026
00000Y
000002
000000

025612
025620

012762
012762

000440
000040

000026
000026

025632

012762

000140

000026

025652
026656

005037
012700

003256
000377

028626
025630

025640
025646

012762

005300
001370

012762
005037

025662

004737

025670

001374

025666

025672
025700
025704

025710
025714
0271

005300
012737
004737
012701

012703
012304
012700

XSS SRS

025544
026550

W Me
B

000004

012737

CLOCK IN EACH BIT INDIVIDUALLY AND CHECK FOR PROPER ECC
GENERRTION RS SEEN THROUGH THE ECC PARTTERN REGISTER.

< s B0 000300 20 3 36 36 36 36 36 3 36 36 36 36 3 336 3 3 36 3 3 3 3 96 3 36 36 3 36 3 38 3 3 3 30 36 3 36 3 3 36 36 36 3 36 3 2 3 36 2 X %

025534

025536

SIMULATE A SECTOR PULSE

CLOCK THROUGH ONLY THE FOLLOWING

177727
172777
1772777
1772777
1727777
1772?7277

SRS

RESE RN 8

:#TEST 43

SEQ 009%%

BITCNT
RO
328

Do EREEARNNNRR NN RN

t4T43:
AR

TTOOTCTANNNANNINNEE
E L EE L E L E 0000200 NN
RN
MO — o e e o omm:wm»—o.nmumm;um-—ommvwm;wm»—o.nm\urmmewoomwgmxumugmasgaza;fi;

it daiinaiuinininininainiiniaudydnad
i onAdanaty o v
iunanidi

cR6DBO RPKB11 DSKLS CTRL PRTY
CZFe0B.P11
02-DEC-77 10:00

FOS8

000012

001200

100000

000000

001270

000040
003254

000001
037026
000003

053364

000020

MOV

1§:

ITERATIONS

#DMD,RKMR1(R2) ;PUT RK611 IN DIAGNOSTIC MODE
#ECC3,RKBA(R2) ;LOAD ECC DATA
8-12 RKWC(R2)
:WORD COUNT=12
$WROATAR,RKCS1(R2) ; ISSUE WRITE DATA
$10.%37 RO
: ISSUE ENOUGH CLOCKS UNTIL

MOV
MOV

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

#CCLR RKCS1(R2)

RO
18

MOV
CLR

#DMD , RKMR] (R2)
PR.BIT

JSR

PC,ROBIT

CLR
MOV

DEC

MOV
MOV
MOV

:LORD RK611 BASE
:CLEAR RKb11

DEC
BNE

MOV
JSR
MOV

12%:

::D0 10.

MOV
MOV
MOV
MOV
MOV

8NE

003254

,STIMES

$BASE , R2

MOV

5%:

#10.

MOV
MOV

000026

0637226

SCOPE

#DMD!MSP,RKMR1 (R2)

M1.BIT
#255. . RO

""READY FOR SECTOR PULSE

;SIMULATE SECTOR PULSE

:GENERATE SYNCH

sCHECK IF SYNCH FINISHED

#1,PR.BIT
PC.RDOBIT
83’ R1

:SIMULATE SYNCH BIT

sHEADI,R3
(R3)+,RY
#16.,R0

: SIMULATE HERDER

“°CYL O, TRK 0, SECTOR O
:GET NEx? HERDER WOR
:LOAD BITS PER WORD

4]
o
n
v
rn
oo
n n P s Pt s Pt it s

o DOV
LW

Se2¢

D03254

0es7a2
025730
025732

013737
006004
103403

Q5037
00403

003254

025742
025750
025754

012737
004737
005300
001361
00S301
001354

00001
037026

852730

MACY11
003256

30(1046)
T43

159%:

26204

000101
003254
003254
037026

000001
036300

003262

0032586

neeees
0z2ee32

PR.BIT,M1.BIT
RY
178
PR.BIT
18%

PC.ROBIT
RO
158

20s:

000020
003256
003254
003e2se

865. RO
gn.g%},nx.axt
R.
PC,RDBIT

25%:

003260
003256
003254

32%:

000001
036300

003ese2

34%:
35%:

00003e
036132
003234

003174

003ese

003174

:NO,

CONTINUE

:SIMULRTE GAP +1 FOR SWITCH FORM RERD TG WRITE

BITCNT

-INITIALIZE BIT COUNT

2
BITCNT
RO
25%

:DATA INCORRECT
: INCREMENT BIT COUNT
:CHECK IF FINISHED
*NO,
CONTINUE

:LOAD COUNT FOR SYNCH FIELD
:LOAD ERROR

#0MD'ECCW
! MEWD ' WRTGAT,E.MRI
;WRITE BIT
PC,WRTBIT

BITCNT

30%:

CHECK gg FINISHED WITH HERDER

SINITIALIZE BITS

Sc.unraxr

001310

:SIMULATE NEXT BIT
‘CHECK IF READY FOR NEXT HEADER WORD
:NO,
CONTINUE

PI.BIT

#1,P1.BIT

003252

:STORE PREVIOUS BIY
:GET NEXT BIT

; CHECK IF GRP FINISHED
*NO,
CONTINUE

PR.BIT
M1.BIT
M2.BIT

003ece4

SEJ 3097

RO
0s

8256.,R0
8EM327, EMW

001310

000006

012737
0Q4737
104002
016237
004737
023737

PRGE 97
10:20
02-DEC-77
ECC GENERATION (PART 2)

8] .FR.BIT

003254

003262

026202

GOS8

Tés

000400
050670
003252
003254
003256
003260
003262
062040
036300

£ LWwwhunr——0
Lo

O WO DD D OO

DODDOMOMOMOMNNNNNNNINNNOOOT

D\Dm\la‘(flIU*’—O\D(D\JU‘U\LNNND\DQ\)U‘U\I(JNHD\D(D ~

C RKB1l
0B.PI11

DSKLS CTRL PRTY
0e-DEC-77 10:00

SEM328, EMW
ECCHI
ECCLO
#ECC3,R3
86 R1

(R3)+,RY
#16. RO
Mmi.BYT M2.BIT

PR.BIT.MI.BIT
P1.BIT.PR.BIT
RY
34$
P1.BIT
$
81,P1.BIT

sc,untsrr

'SIMULARTE SYNCH BIT
:CLEAR BIT COUNT

'LOAD ERROR MESSAGE
"INITIALIZE ECC
:LOAD START OF DATA
:LOAD COUNT

'GET NEXT BIT
'LOAD BITS PER WORD
iSHIFT BITS
:GET NEXT BIT

:SIMULATE BIT

RKECPT(R2),T.ECPT

PC,ECCGEN
E.ECPT, T.ECPT

;SET EXPECTED MRl

;STORE ECC WORD

;GEfiERQTE EXPECTED ECC PAT
:CHECK ECC PATTERN CORRECT

CZR6DBO RKB11
CZReDB.PIL

£22

DSKLS CTRL

PRTY

MARCY11

02-DEC-77 10:00

3001048)
T43

0819

1041
005237

Bepsel BBT3%E
026254
026256

37%:

003eske2

HOS8

02-DEC-7?7
10:20
PAGE
ECC GENERRTION (PART 2)

BEQ

37%

INC
£

BITCNT
RO

ERROR
N

8NE

SEQ 0098

s YES,

CONTINUE

*ECC’PATTERN rmconnscr

135

: INCREMENT BIT
: CHECK xr FIN ISHEO NITH WORD

3es

DEC

005301
001331

'NO,

CONTINU

'CHECK IF FINISHED WITH TEST

3os

*NO, CONTINUE

HH 2222222222222 22222X2 2322222222222 2222223222222 22XX22 22 23

ECC WRITING

S¥TEST 4y

HE4

¥
¥

Sy
'y

DRTA OF 400 uongs
CYLINDER
HEA

TO AN RKOb
SECTOR O.

8 EO? HEQgER

gLocx THRgUSH

AND

¥
%

00a440
000040

000026

000140
000a40
003254

000026
000026

Oe—
W)
N
no

001270
100000
000040
056216
177400
000023
004612

—

026336
026344

opootle

0000000

026332

TWO

WORD

MAKE

THE

TWO

ECC WORDS

ARE CORRECT AND WRITTEN PROPERLY.
CHECK BUS RDDRESS,
WORD COUNT, CYLINDER, TRACK, AND SECTOR.

001200

T44:

000002
000000

0006026

358163

Cee440

000020
00d254

000403

003254

0032Se

#10.,STIMES

;00 10.

MOV

$BASE, R2

:LOARD RKb11

MOV

sWRDATA, RKCS51 (R2}

MCV
18:

RO
B

MOV

#DMD RKMR1 (R2)

CLR
MOV

JSR
852
MOV

JSR
MOV

MOV

SSUE WRITE DATA

""READY FOR

#0MD, RKMR1 (R2)

#DMD!MSP, RKMR1(R2)

;SIMULATE SECTOR PULSE

PR.BIT

M1.BIT
#255. . RO

PC,ROBIT
gg

:CHECK IF SYNCH FINISHED

#1,PR.BIT

:SIMULATE SYNCH

PC RDBIT
oHéno1 R3

3,RI1

MOV
MOV
MOV

(Ré)+ RY
&0
pn.atr,nx.az'

BCS
CLR
BR

15%
PR.BIT
16%

ROR

snse

ISSUE ENOUGH SECTOR
CLOCKS PULSE
UNTIL

DEC
BNE

CLR

10%:
12%:

#66. #37. R0

#DMD! MCLK , RKMR1 (R2)

MOV

ITERATIONS

#CCLR RKCS1(R2) :CLERR RKb1
#0MD, RKMR1
(R2)
;PUT RKb11 IN DIAGNOSTIC MODE
#ECCBUF ,RKBA(R2)’ :LORD RDDRESS
#-400, RKWC(R2) ubno COUNT=400

MOV
MOV

003254

258439

SCOPE

MOV

MOV
MOV
MOV
MOV

000000

QeeM12
026414
OBBHéB
0ce4ey

0ceHEM

THE

: Y222 22222222222:322232222222X222X22222222X2222222222222222 22222

000000

026270
026274
02630
02631

IN 26 SECTOR FORMAT,
CLOCK THROUGH SEEK

nno onxvs LLEAR nsésncs SIMULATE
A SECTOR PULSE
AL 408 WORDS

026260
Oceese

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

:LOAD HS SR

'LOAD WORDS

PER HEADER

GET NEXT WORD
LOAD BITS PER
PREVIOUS BIT
srons
:GET NEXT BIT

CZREDBO RKb11 DSKL3 CIRL PRTH
0e-DEC-77 10:00
CZRBDB. PL1
026466
0264?74
026500
026502
026504
026506
026510

012737

000001
037026

000101
003254
003254
037026

MACY11

003254

003256

30(1046)
Tud

15%:
169%:

209%:

259%:

003ese

v
WWWWWWWwWwwLWwWwww
DUDYRU MY 0 0= 0t 0 s bt s Pt P
W GIDMNN
L W

003260
003256
003254

000001
036300

003252

34%:
35%:

036132
000032
003234

027000

001006

003262
000002

37%:

:LOAD ERROR nessnce

SINITIALIZE BIT COUN

SYNCH COUNT nno WRITE SYNCH

:CLEAR BIT COUNT

'CHECK IF SYNCH FINISHED
*NO, CONTINUE
‘WRITE SYNCH BIT

EECHé

s INITIALIZE ECC GENERATOR
:LOAD ERROR MESSAGE

BITCN
#256. Rl
8ECCBUF ,R3
(R3)+ R4
#16. RO
M1.BYT,M2.BIT

SINITIALIZE BIT COUNT
*LORD WORDS PER SECTOR
:LORD ADDRESS OF BUFFER
:GET NEXT WORD
*LOAD BITS PER WORD
iSHIFT BITS

:DETERMINE NEXT BIT

PR.BIT.M1.BIT
P1.BIT.PR.BIT
348
P1.BIT
35%

003eSe

xntranxze BITS FOR SYNCH

RO
25$
81,P1.BIT

aenaee EMW

329:

CHECK IF GAP FINISHED
CON" INUE

scLWRTBI”

Sc,unrexr

30%:

: CHECK xr READY FOR NEXT WORD
:NO, CONTINUE
:CHECK IF FINISHED WITH HEADER
:NO. CONTINUE

LOAD
oono'tccu'neuo uhrcnr .MR1 ;SET EXPECTED MRI
8256

BITCNT

oseele

026730

;SIMULRTE GAP

8EM327, EMW

0013510

0ee72e

PRBir M1.BIT

PR.BIT

BITCNT

003266

003252

:SIMULATE NEXT BIT

RO
12%
RI1
1os

PR.BIT
M1.BIT
m2.8IT

003262

000020

81,PR.BIT

PC.RDBIT

P1.BIT

00322

SEQ 0099

PAGE 99

RO
208

001310

000001
036300

108

PC,RDBIT

003252

062040
036300

10:20
02-DEC-77
ECC WRITING

s1,P1.BIT

sc,uarexr

:WRITE NEXT BIT

PC,ECCGEN

GENERATE ECC

:GET PATTERN
RKECPT(R2) . T.cPt
. CHECK ECC PATTERN CORRECT
E.ECPT, T.ELPT
:YES, CONTINUE
379
*ECC’ PATTERN INCORRECT
135
* INCREMENT BIT COUN
BITCNT
*IF THE NEXT BIT IS THE LAST BIT OF
82, RO
:THE LAST DATA WORD, ECCW MUST BE RESET
28$

CZREOUBC RKB11 DSKLS CTRL PRTY

CZReCB.P11

02-DEC-77 10:00

5335 027002 022701 000001
$336 027006 001003

020000

027010

042737

027022
027024
0ez0ee

005301
001320
012737

051307

5345
5346
§347
5348

(027044
027050
027052
027056

012703
012304
Q12700
013737

003266
000020
003256

5351

027100

006004

§337

5338
§339

027016
027020

§343
§344

027034
027040

5340
€341
5342

€349
6350
§352
5353
5354

(027064
0er072

027102
027104
027110

00S300
001325

005037
012701

013737
013737

003252
000001

027112

012737

5358

027124

104002

5359
5360

027120

027126
027132

004737

005237
022700

536l
6363

027136
027140
027144

001006
022701
001003

5365
5366

027154
027156

005300
001337

5362
5364

027146

003254
003252

103403
005037
0004O3

5356

5357

003262
000002

052737

036300

020000

§371

027176

012700

000017

§373
5374

027210
027216

013737
013737

003254
003252

5370

€372
8375

027172

027202
027024

005037

013737
005037

0S1345

003262

003256

003252

§376

027230

004737

036300

§378
5379
5380

027236
Q27242
027244

005237
005300
001356

003262

5377

027234

104002

5381
5382

027246
D2z2S2

012700
012762

5384
§385

027266
027270

005300
001370

5388
£389

027306
027314

£383
5386
5287

£390

027260

027272
027300

027222

012762

003224

288:

001310

003260
003256
003254

003252

0000LY
000440
000040

02-DEC-77

ECC WRITING

40$:
428:

448:

4e$:

003260

003256
003254

478:

RO
323

: CHECK IF THROUGH WITH WORD
:NO, CONTINUE

RI
308
BEM333, EMW

:CHECK IF AT END OF SECTOR
:NO, CONTINUE
:LOAD ERROR MESSAGE

MOV
MOV
MOV
MOV

8ELCHI,R3
(R3)+, RY
slb. R
M1.BYT,M2.BIT

'LORD ADDRESS OF ECC
'GET_NEXT _ECC_WORD
:LOAD_BITS PER WORD
:SHIFT BITS

PR.BIT.MI.BIT
P1.BIT,PR.BIT

BCS
CLR
BR

44§
P1.BIT
45§

MOV

;WRITE NEXT BIT

INC
CMP

BITCNT
82,R0

; INCREMENT BIT COUNT
!IF THE LAST BIT OF THE LAST ECC WORD

ERROR

464

BNE

4ed

!1S BEING WRITTEN, ECCW MUST BE SET
IN_EXPECTED MR1 10 INDICATE ECC
!
WRITING IS DONE

DEC
BNE

RO
4§

; CHECK IF _THROUGH WITH WORD
iNO, CONTINUE

BIS

81,R1
8ECCW,E.MR1

R
REM33Y, EMW

*CHECK IF FINISH WITH ECC
'NO, CONTINUE
; LOAD "ERROR MESSAGE

$15. RO

'LOAD_POSTAMBLE BIT COUNT

CLR

BITCNT

MOV

M1.BiT,M2.BIT

MOV
MOV
MOV

BNE

MOV
MOV
MOV

PR.BIT MI.BIT
P1.BIT,PR.BIT
P1.BIT

;CLEAR BIT COUN?

;SHIFT BIT

PC,WRTBIT

;WRITE NEXT BIT

BITCNT
RO
47§

; INCREMENT BIT COUNT
! CHECK IF THROUGH WITH POSTAMBLE
'NO, CONTINUE

$3%4 RO
!1SSUE CLOCKS TO COMPLETE COMMAND
! MCLK ,RKMR1(R2) ; ISSUE CLOCK PULSES
$OMD
$0MD, RKMR{ (R2)

DEC
BNE

RO
50%

MOV
MOV

RKER(R2) }.ER_
:SAVE ERROR REG
RDY! WRDATAS(1C<80>> ,E.CS1 _;LOAD_EXPECTED CSl

003140
003150

MOV
MOV

012737

0OCIO0

003210

MOV

003154
003200

BNE

000000
000010

000014
000222

81,P1.BIT

;DETERMINE NEXT BIT

PC.WRTBIT

016237
016237

016237
0le737

"INITIALIZE BIT COUNT
'LOAD NUMBER OF ECO WORDS

JSR

INC
DEC

000026

BITCNT
82, Rl

MOV
MOV

CLR

S50%:

8ECCW,E.MR]

DEC
BNE
MOV

ERROR

000026

SE3 0100

[ .
BNE

DEC
BNE
MOV

001310

PAGE 100

:IN THE EXPECTED MR1 TC INDICATE ECC
:BEING WRITTEN

CMP

003224

JO8

%l Rl
28¢

ROR

45§:

10:20

CcMP
BINE

CLR
MOV

000001

005301
001332
012737

027162

T4y

003262
000002

027160
027164

5367
536
5369

MACY11 30(1046)

RKCS1(R2),7.CS1 ;SAVE (Sl
RKCS2(R2) . T.C82 (SAVE €52

#IR,E.CS2

;LORD EXPECTED CS2

CZREDBO RKB11 DSKLS CTRL PRT4

CZRE0B. P11

02-DEC-77 10:00

027330

€396
§397
5298
6399
S400

027364
027370
(027376
(027404
027410

005037
012737
012737
005037
023737

003220
000001
0S7216
003202
003200

403
G404

(027422
027430

023737
061401

003210

003150

655%:

S406

027434

023737

003214

003154

S63:

023737

003204

003144

57%:

023737

003202

003142

58%:

(027472

023737

003220

003160

59%:

027504

023737

003206

003146

60S:

02714

104162

6401
S402
€405

027334
(027342
(27350
(027356

027416
027420
027432

016237
016237
016237
016237

001401
104144
104145

407
S408

027442
027444

S410
6411

027454
027486

001401
104147

027466
027470

001401
104150

S409

6412
S413
S4l4

E41€

027446

027460

6416
6417

027500
027502

5419

0275J2

6418

g:g?

001401
104146

001401
104151

001401

003214

TYy

$391

§392
€393
€394
6395

00S037

MACY1l 30(1046)

000020
000006
000004
000002

CLR

003160
003146
903144
003142

MOV
MOV
MOV
MOV

003206
003204
003140

.SBTTL

S4e4

; X

E:SE

5430

: CHECK €S2

E.ER,T.ER

:CHECK ERROR REG

E.BR,T.BR

:CHECK BUS ADD

E.WC, T.WC

:CHECK WORD COUNT

E.DCYL,T.DCYL

;CHECK CYLINDER ADD

E.DA,T.DA

:CHECK DISK ADDR

027520

012737

000012

5441

027526

013702

001270

(027632
(27540
(27546
(027554

012762
012762
012762
012762

145

BEQ
ERROR

578
146

BEQ
ERROR

589
147

BEQ
ERROR

59g
150

CMP

CMP
CMP

BEQ
ERROR

608
151

BEQ

TSTUS

CMP

152

;S YES, GO ON TO NEXT TEST

#%PARTIAL WRITE DATA

ZERO FILL ON WRITE DARTA

ANDA GOOD HEADER.
CLOCK THROUGH ALL 400 uonos RND
THE TWO ECC WORDS.
CHECK THE SECTOR FOR ZERO FILL
AND MAKE SURE THE TWO ECC WORDS ARE WRITTEN PROPERLY
CHECK BUS RDDRESS, WORD COUNT, CYLINDER, TRACK, AND SECTOR.

CYLINDERO, HERD
0, SECTOR 0.

CLOCK THROUGH SEEK

AND onxvs eLEAR neésncss SIMULATE A SECTOR PULSE

l!*llil!!i!lli!l!**llll!!ll*lill!lll!!&*l!l!lllllfl*lli**i*!*li

027516

S442
6443
S444
445

£.CS2,T.CS2
56$

S5§
194

S
‘x
S%
tx
;l

6438

gzag

CMP
BEQ
ERROR
CMP

BEQ
EPROR

CLEAR THE RKb11 CONTROLLLR WITH R CONTROLLER CLERAR.
PUT THE CONTROLLER IN DIARGNOSTIC MODE.
ISSUE A WRITE
DATA OfF 103 uonos TO AN RKO6 IN 26 SECTOR FORMAT

‘x

000004

-LOAD EXPECTED ERROR REG.

RKOCYL(R2),T7.0CY(
;SAVE CYLINDER ADOR REG
RKDA(R2), T DR
snOE DISK AND REG
RKBA(R2),T.BA
:SAVE BUS RDD REG
RKWC(R2).T.WC
;SAVE WORD COUN

Ly
¥
e

6432
6433
5434
g:gg

E.ER

SEQ 0101

122222222222222222:222222222222:X:232X22222222232222222
2222222222

H i

8431

PAGE 101

E.DCYL
:LORD EXPECTED CYLINDER AND REG.
81 E.DA
:L0AD EXPECTED DISK
sECCBUF+<400%2> ,E.BA :LOAD EXPECTED
E.WC
sLORD EXPECTED ECC WORD
E.CS1,T.CS1
:CHECK CS1

iTEST 45

5427
5428
5429

10:20

CLR
MOV
MOV
CLR
CMP

ERROR

g:gg

437

02-DEC-77

ECC WRITING

KO8

100000
000040
0S6216
177675

001200

000000
000026
000004
000002

B44e 027562 012762 000023 000000

t&Tys:

scope

MOV

#10.,STIMES

;;D0 10.

MOV

$BASE, R2

;LORD RKB11 BASE

MOV

sWRDATA, RKCS] (R2$

MOV
MOV
MOV
MOV

ITERATIONS

#CCLR RKCS1(R2) ;CLEAR RK611
#DMO, RKMR1(R2) :PUT RK611 IN DIAGNOSTIC MODE
$ECCBUF,RKBA(R2)' :LORD ADDRESS
#-103, RKWC(R2)
;WORD COUNT=400

: ISSUE WRITE DATA

CZRSDBO TTBII DSKLS CTRL PRTY
CZR6
0e-DEC-77 10:00

MACY11

30(1046)
TYS

LO8

02-DEC-7?7?
10:20
PARGE
ZERO FILL ON WRITE DRTR

027570

012700

oo4ele

MOV

027574
0276

012762
012762
00S300
003370

000440
000040

MOV

037026
000001
037026
053364
000003

000020
003254

000403

027724
027732
027736
027740
027742
027744
827746
027752
027760
027764
027770
027772
027774

Q12737
004737

003254

:CHECK IF SYNCH FINISHED

81,PR.BIT

; SIMULATE SYNCH

003256

129%:

(Ré)+ RY
RO
PR aiT ML.BIT
%16.

1ss
PR.BIT
168

003254
003254

$]1,PR.BIT

PC.RDBIT

RO’

123

000101
003254
003254
037026

108

003256

209%:

004737
104002
005037
00037

003266
003270

PR.BYT,M1.BIT

PR.BIT
PC,RDBIT

PI.BIT

003ee4

003262
000001
036300

PR.BIT
M1.BIT
M2.BIT

8EM327, EMW

001310

BITCNT
#256

258:

JGET NEXT

:SIMULATE NEXT BIT

CHECK IF READY FOR NEXT WORD
NO CONTINUE
;SIMULATE GAP
CHECK IF GAP FINISHED

:NO,

CONTINUE

xnttanxzs BITS FOR SYNCH

;LOAD ERROR nsssncs

SINITIALIZE BIT COUN

LOAD SYNCH COUNT nNo WRITE SYNCH

SC"°R¢°°¥'MEWD? uchnTE.MR1 ;SET EXPECTED MR!
2

BITCNT

:CLEAR BIT COUNT

25%

#1,P1.BIT

uRITE SYNCH BIT

ECCHI

s INITIALIZE ECC GENERATOR

003252

;cer NEXT WORD
:LOAD BITS PER
;STORE PREVIOUS BIT
BIT

ECK IF FINISHED WITH HERDER

20%

003es2

062040
036300

#65.

:LOAD HEADER

:LORD WORDS PER HEADER

CONT INUE

030000

030076

PC,RDBIT
sg

owtnox R3

10%:

;SIMULATE SECTOR PULSE

M1.BIT
8255, RO

PC RDBIT

(V21

027722

#OMD!MCLK , RKMR1 (R2)
38"0 RKMR{ (R2)
gono RKMR1 (R2)
Bir

003254
003256
000377

SEQ di102

;xsg

18
nono MSP,RKMR1(R2)

000140
000040

0ezele

0276?8

$66.%#37. RO

102

SC,HRTBIT

ECCLO

CHECK IF SYNCH FINISHED
CONTIN

CZR6DBO RKG11

CZR&DB.P11

5503

030102

DSKLS CTRL PRTY

02-DEC-77 10:00

012737

§504

030110

00S037

€507

030124

012;04

0S0742

003262

MARCY1l

30(1046)

001310

a2 Bi8iad BiSoB4 BERAYE

308:

ggié 838158 Bbgoaq

gg}s

030156
030160

103403
005037

030164

000403

030174
(030200

004737
104002

16237

5519 030166 012737 000001 003252 34%:

6518
S519

§520

8 020

622
S523
Sco4
5525
SS2b
5528

5521

5627

§529
530

€531
S532

036300

04737

036132

030214
030222
(30224
(030226
030232

023737
0061401
104135
005237
022700

003234
003262
000002

030240

022701

000001

042737

020000

030236
(020244

0302846

030254
0307256

001006
001003

005300
001325

000032

353 ;

003174
37%:

030262

82&983

5536
c537
E528

030270
030272
030279

003315
005004
000714

€641

030310

012701

£535

0Se424

O01e737
00S037

051307
003262

030314
(030220
(030332

012703
012304
012700

003266

E546
€847
SS48
S549
6650
gggé

030334
030342
030350
(30352
030364
03036C

013737
013737
006004
103403
00037
000403

€553
6554
SSE5

030362
03C370
(030374

6657
5558

030402
030406

S539
5S40
S542
€543
SSu4

€545

6586

(030264

030276
020304

030326

030376

013737

003224

000020

003254
003252

001310

39%:
40$:

003260
003256
0603254

012737
004737
104002

000001
036300

003252

022700
001006

000002

42%:

44%Y=g:

PAGE

iE2RacPlra
]

MOV

M1.6%T,M2.BIT

RSX

35§

MOV

]

348
P1.BIT

#1,P1.BIT

103

:LORD ERROR MESSAGE

1888 HBERESEERSBGIRER
cgz Ngx¥ ugga JORD

§H PT é ?s

:DETERMINE NEXT BIT

PC,WRTBIT
2

MOV

RKECPT (R2) . T.EcPY

CMP
BEQ
ERROR
INC
CMP

SEQ 0103

xngranIzz gér cognr

JSR
ERROR

sWMRITE NEXT BIT

PC,ECCGEN

GENERATE

E.ECPT, T.ELPT
378
135
BITCNT
82, RO

ECC

.GET PATTERN

BNE

268

BNE

238

cnécx ECC PATTERN CORRECT
'YES, CONTINUE
'ECC PATTERN Incoanscr
*INCREMENT BIT COU
‘IF THE NEXT BIT IS THE LAST BIT OF
"THE LAST DARTA WORD, ECCW MUST BE RESET
:IN THE EXPECTED MR TO INDICATE ECC
:BEING WRITTEN

DEC
BNE

RG
328

cuzcx IF THROUGH WITH WORD
CONTINU

395

ES -SK é

BIC

#1 Rl

$ECCW,E.MRI

DEC

CMP

#ECCBUF +< 103%2> , ha

BGT
CLR
B

308
RY
i

erK IF AT END OF SECTOR

cws IF 103 WORDS TRANSFERED

0 T0 GET NEXT uo D
E CLERR RY FOR ZE
IMULATE REST OF
SECTOR

MOV
CLR

SEM333, EMW
BITCNT'

Lono ERROR MESSAGE
SINITIALIZE B

MOV
MOV
MOV

#ELCHILR3
(R3)+,RY
#16.,R0

:LORD ADDRESS
;GET NEXT ECC WOR
LOARD BITS PER WORD

MOV

003262

‘TE"#S“

BEQ

003252

005237

28%:

000002

003256

gox

nev

CMP

5533 037260 005301

5534

BITCNT

JSR

003174

MOS8

$EM328, EMW

BCS
CLR

003252

10:20

ZERO FILL ON WRITE DRTA

MOV

3383 838133 815789 889852 003260 3é§:
5513
SS14

02-DEC-77

MOV

82, R1

M1.8%7,M2.BIT

MOV
MOV
ROR
BCS
CLR
BR

PR.BIT/MI.BIT
P1.BIT!PR.BIT
RY
44g
P1.BIT
45§

MOV
JSR
ERROR

¥1,P1.BIT
PC.WRTBIT
2
BITCNT

INC

CMP
ENE

#2, RO
464

LORD NUMBER OF ECO WORDS

SHIFT BITS

:DETERMINE NEXT BIT

:WRITE NEXT BIT

: INCREMENT BIT COUNT

*IF THE LAST BIT OF THE LAST ECC WQRD
:1S BEING WRITTEN, ECCW MUST BE SET

CZReDBO PKb11 DSKLS CTRL PRTY4
CZRB0B.P11
02-DEC-77 10:00

5559

SSe0

SS5e61
SSbe

030410

022701

000001

030416
030424

052737
00S300

020000

030414

001003

S563

030426

001337

5565
5566
5567
5568
5569

030432
030434
030442
030446
030452

001332
012737
005037
012700
013737

030500

004737

NOS8

MACY1l 30(1046)
_02-DEC-77
10:20 PAGE 104
T4S
ZERO FILL ON WRITE DRTA

CMP
003224

5564 030430 005301

S570
S571
5572

030460
030466
030474

SS74

030504

S573

SS?5

027506

SS76
£577
5578

030512
030514
030516

SS80

030530

013737
013737
005037
104002

005237

005300
001356
012700

0S134S
003262
000017
003256

003254
003252
003252

469:

001310

003260
003eSb
003254

478:

036300

000014

012762

000040

000026

016237

000000

003140

030536
030540

005300
001370

Ssgv
5585
5586
5587
5588
5589
5590

030550
030556
030564
030572
030600
030604
030612

016237 000010
016237 000014
012737 000222
012737 000100
00S037 003214
016237 000020
016237 000006

5593
SSs4

030634
030640

005037
012737

003220
000001

55396
5597

030654
030660

005037
023737

5683

5691
5532

030542

030620
030626

016237
016237

030666
030670
030672
030700
030702
030704
030712
030714
030716
030724
030726
030730
030736
030740
030742
030750
030752

001401
104154
023737
001401
104155
023737
00140l
104156
023737
001401
104157
023737
00i40}
104160
023737
001401
104161

4Yes

BNE
MoV
CLR
MoV
MoV

40%
$EM334, EMW
BITCNT
#15. RO
M1.BiT, m2.BIT

DEC

MOV
MoV
CLR
JSR

CHECK IF THROUGH WITH WORD

CONTINUE

CHQCK IF FINISH WITH ECC

PR.BIT,M].BIT
Pl1.BIT,PR.BIT
P1.BIT
PC,WRTBIT

;WRITE NEXT BIT

BITCNT

MoV

#DMD, RKMR] (R2)

MOV

; IN EXPECTED MR1 TO INDICATE ECC

IWRITING IS DONE

RO
479
#3x%4 RO

MOV

iNO, CONTINUE
;LOAD ERROR MESSQGE
;CLEAR BIT COUN
:LOAD_POSTAMBLE BIT COUNT
(SHIFT BIT

; INCREMENT _BIT COUNT

:CHECK IF THROUGH WITH POSTAMBLE
iNO, CONTINUE
1SSUE _CLOCKS TO COMPLETE COMMAND

#DMD ! MCLK RKMRl(hE); ISSUE CLOCK PULSES

RO
S0s

RKCS1(R2),T.CS1;SAVE CS1

003160
003146

MOV
MOV
MoV
MoV
CLR
MOV
MoV

RKCS2(R2) . T.C52 ;SAVE €52
RKER(R2),}.ER
:SAVE_ERROR REG
#ROY ! WRDATAS
< +C<80>> [E.CS1 _;LOAD EXPECTED CSl
$IR,E.CSe
;LOAD EXPECTEDCS2
E.ER
:LORD EXPECTED ERROR REG.
RKDCYL(R2),T.DCYL_
;SAVE CYLINDER ADDR REG
RKDA(R2),T.DA
,SGOE DISK AND REG

003206

CLR
MOV

E DCYL

:LORD EXPECTED CYLINDER AND REG.
:LORD EXPECTED DISK

003202
003200

003140

CLR
CcMP

E.WC
E.CS1,T.CS1

;LOARD EXPECTED ECC WORD
:CHECK CS1

003210

003150

655%:

003214

003154

656%:

003204

003144

657%:

003202

003142

58S%:

003220

003160

59%:

000004
000002

003150
003154
003200
003210

SECCW,E.MRI1
RO

DEC
BNE
MOV
DEC
BNE

003144
003142

MOV
MOV

5535 030646 012737 0Sb424 003204
€538
5599
5600
5601
5602
S603
Se04
Se0s
S606
Se07
Se08
S609
Sel10
S611
Sel2
S613
5614

BNE

BIS
DEC

INC

5579 030522 0le7ee 000440 000026 SO$:
5581
5582

464

ERROR

003262

81 Rl

BNE

SEQ 0104

MOV

BEQ
ERROR
CMP
EQ
ERROR
CMP
BEQ
ERROR
cMP
BEG
ERROR
CMP
EQ
ERROR
CMP
BEQ
ERROR

RKBA(R2),T.BR
RKWC(R2),T.WC

,SRVE BUS RDD REG
; SAVE WORD COUNT

OECCBUF+(10312> £.BA_ ;LOAD EXPECTED

55%
154
E.CS2,T.CSe
Ses
155
E.ER,T.ER
57%
156
E.BA,T.BA
589
157
E.WC, T.WC
59%
160
E.DCYL,T.DCYL
60%
16l

; CHECK CS2
; CHECK ERROR REG
; CHECK BUS RDD
; CHECK WORD COUNT

; CHECK CYLINDER ARODD

CZREDBO RKG11 DSKLS CTRL PRTY

CZR6DB.P11

5615

Selb6

8617
ggig

030754

030762

0307&4

02-DEC-77 10:00

023737

00140

003206

MACYI1

30(1046)

003146

60$:

104152

T4S

.SBTTL

5620

02-DEC-77

CMP

BEQ

5627

‘¥

T
e
i~

5626
¥

Eggg

012737

000012

6635

030776

013702

00i270

030770

031002
031010

012762
012706

5638
031014
00S300
ggag
031016
001376
641

031020

Se44

031042

012762

000000

000040

000026

012762
012762

031050

012700

005136

6647

031054

012762

000440

Sed9
gggg

031070
031072

005300
001370

Se52

031074

012762

000140

£665
5656
gggg

031110
031114
031120

00S037
005037
012700

003254
003256
000377

5669

031124

031130
031132

005300
001374

004737

037026

663

031134

012737

000001

S6bb

031146

012703

ggga

5660
gggé

gggg
Se6?

031062

031102

031142
031152

012762

004737
012701

NO1200

100000
002000

031026
031034

5648

: YES, GO ON TO NEXT TEST

18 BIT WRITE DATA (PART 1)

CLEAR THE RKG11 CONTROLLER WITH A CONTROLLER CLEMR.
PUT CONTROLLER xn DIAGNOSTIC MODE.
ISSUE A WRITE DATA
OF 400 uonos TO AN RKO6 IN 24 SECTOR FORiiGT

CYLINDER
O, HERD0, SECTOR 0.

AND
A GOOD HERDER.

AND onxvs LLEAR MESSAGES.

CLOCK THROUGH SEEK

SIMULARTE A SECTOR PULSE

CLOCK THROUGH 6 WORDS OF 177777.

VERIFY THART TWO ZERO BITS ARE PRESENT FOR EACH WORD.

X2z XX222222212222222X22222:2X22XXX2X22XX2XX22222X2X2X2XITESIESRRS

000004

5646

:CHECK DISK ARDCR

TSTHb

030766

5645

SEQ 0108

€632

5642
5643

E.DA, T.DR

105

XYY 22222222222YY222222XX2XXX2222X22X22X2I2XTTRSLTLZXZL
XS

5623
S624
5625

6636
6637

PAGE

ERROR
162
##18 BIT FORMAT WRITES

ifesv 46

ggga

BOS

ZERO FILL ON WRITE DRTA

5621

SEe31

10:20

055202
177400

010023

000040

037026

053502

000003

$4T46:

000004
000002

000000

000026

SCOPE

MOV

#10.,STIMES

;;00 10.

MOV

$BASE, R2

:LOAD RKG11 BRSE

DEC
BNE

RO
13

; LOOP unfo COUNT O

MOV

#DMD,RKMR1(R2)

;SET DIAGNOSTIC MODE

MOV
MOV

000026

sMOD2BF RKBR(RE) ;LORD BUFFER ADDRESS
#-400, RKWC(
; --- WORD COUNT

MOV

866. #40. +<4. %3.+42> R0

MOV

#DMD! MCLK , RKMR1 (R2)

DEC
BNE

RO
7%

MOV

#DMD'MSP,RKMR1 (R2)

CLR
CLR
MOV

PR.BIT
M1.BIT
#255. RO

: GENERATE SYNC

PC,RDBIT

:SIMULATE SYNC O BITS

MOV

93:

003254

668 031156 012304
11%:
S669 031160 012700 000020
670 031164 013737 003254 003256 13%:

';CLERR CONTROLLE
T A STALL COUNT

MOV
MOV

MOV
7%:

#CCLR,RKCS1(R2)
#2000, RO

ITERATIONS

JSR

DEC
BNE

MOV

sWrRDAtA! crnr RKCSI(RE)

: -—- START COMMAND

; }SSUE ENOUGH CLOCKS UNTIL
.

RERDY FOR SECTOR PULSE

#DMO, RKMR1 (R2)

#DMD, RKMR1 (R2)

RO
9%

;SIMULATE SECTOR PULSE

JSR

PC.RDBIT

#1,PR.BIT

; SIMULATE SYNC 1 BIT

MOV

nnsno11 R3

; SIMULATE HERDER

MOV

MOV
MOV
MOV

(R3)+ RY
RO
PR.BiT,Ml.BIT

CYL

O TRK

SEC O

cer HEADER uoho
:LOARD BITS PER WORD
:STORE PREVIOUS BIT

CZR6DBO RKB11 DSKLS CTRL PRTY
0e-DEC-77 10:00
CZR6DB.P 11
5671
Se72

031172

006004
103403

MACY11l

30(1046)
T46

cOo9

02-DEC-77_10:20
PAGE
18 BIT WRITE DATR (PART
ROR

B3B80%
4

003254

012737
004737
005300
001361

000001
037026

BCS

5K
003es4

159%:
169:

RY
158
PR,BIT
#1,PR.BIT
PC ROBIT

:GET NEXT BIT

SIHULQTE NEXT BIT

RG’

}READY FOR NEXT HEADER WORD

HERDER DONE ?

865

SET COUNT FOR GAP

118

20%:

SEQ 0106

16$

138

003256

106
1)

PR
gtT M1.BIT

NO - GET NEXT BIT THIS WORD

NO - GET NEXT HERDER WORD

:SIMULATE GAP

PC RDBIT

RO’

20%

#256. , RO

8EM327, EMW
PI.BIT

001310

wwuwawwww

LL L L LS L L L LWLWWWWW
LE£LWWUN—O
—-OQ0O~NNO onnniLww
oo
Lo
oo oo
L0 L
NN oounn
on £nVoo

LfL£LELLL

0000000000000 000000000000
WL W WWWWLWLW WW WWWWLWWWWWWWWW
000000
WWWWWHW

i
NN NNNNNINNNNN
mmp_.p..;..y—p-p..p_._p_._
— OV N NLWh-0O

PR.BIT
M1.BIT
M2.BIT

036300

003224

BITCNT
229%:

003262
000001
036300

003266
003270
00326e
055202
000006

0004063

012737
004737
104002
016237
004737
023737

001310

:BUMP BIT COUNT

81,P1.BIT

:SIMULATE SYNC

ECCHI

s INITIRLIZE ECC WORDS.

BITCNT

:CLEAR BIT COUNT

SC,HRTBIT

003254
003ese

003260
003e5t
003254

24%:
25%:

LEAR BIT COUNTER

BITCNT

ECCLO

0S1613

:LOAD ERROR MESSAGE
!CLEAR BITS

#0MD ! ECCW ! MEWD! ukrcnr MR1 :SET EXPECTED MRI
Sc,unrexr
sxnutnre SYNETMD
ggs

003ese

:SET COUNT FOR WRITE DATA SYNC

'LOOP UNTIL SYNC O WRITTEN
1

‘SET onrn POINTER
#MODEBF, R3
86. Rl ;SET onTh cou
(R3Y+.RY’

GET DATA WORD

8EM338, EMU
#18. RO
M1.81T,M2.BIT

'LOAD MESSAGE (18 BIT DATA WRITE)
:LOAD axrs PER WORD
:ISHIFT BITS

:CLEAR CRRRY & GET NEXT BIT

PR.BIT.M1.BIT
P1.BIT.PR.BIT

27%
P1.BIT
$

003252
000001
036300

003ese

000032
036132
003174

003174
003234

27%:
289%:

#1,P1.BIT

PC.WRTBIT

:SIMULATE NEXT BIT

PC,ECCGEN
T.8CPT,E.ECPT

COHPUTE EXPECTED ECC
:CHECK IF CORRECT

e
RKECPT(R2),T.ECPT_;GET ECC PATTERN

CZRBDBO RK611 DSKLS CTRL PRTY
CZR6DB.P11
0e2-DEC-77 10:00
5727
5728

031504
031506

5732

031522

731 HiE
gdiele
3

8731
5735
5736

§737
738

5739
57240
S741
5742
5743
§744
5745

001401
10%16;

3
B3fese S

031530
031532

G315H0
031544

031546
031550

000406
012737

386722

MARCY11l

000002

0S1701
0ooooo

001310

32%:

005301
001312

ESROR
652
CMP

000004
012737

031562

00S73?7
001017

003e?4
000001
17727277

013746
104402
104401}
000137

031626
031632
031634
031636
031640
031642

004237
000006
057216
005700
001353
013737

031650

4401

16¥cnr
85
RO,

314

1sr 16 BITS JUST DONE?

;

Eb
£ T S

BR
MOV
MOV

32%
{ELSE oo NEXT WORD
#EM339, EMU
: LORD nessnce (BIT 16.17)
#0,R4Y ' ;SET upptnaérs ?r RD

2%%

254

DEC
BNE

R1
24s

IFu?no DONE

QLL WORDS DONE?
NO - GET NEXT WORD

18 BIT WRITE DATA (PART 2)

CYLINDER O

SECTOR 0.

CLOCK THROUGH SEEK

ANDA GOOD HERDER.

CLOCK THROUGH & WORDS OF 177777
VERIFY WRITING OF

BITS ON SIMULARTED Disk.

NOTE:

TWO PARITY

THIS TEST IS ONLY EXECUTED IF MEMORY

PARITY ENARBLE

LOCATION.

IS PRESENT FOR BUFFER

: R Y2122222122z2222222222X2222232X22222XX22XX22X222XX222222 2222228 24

031552
031554

031610
031614
031616
031622

:YES - SKIP

TST

5770
5771
5772
5773

29%

WITH BAD PARITY SET.

2768 831885

SEQ@ 3107

AND DRIVE 8L ERRMEASAGES " SIMULATE A SECTOR PULSE

‘e

012737
00S227
?8108?

107

PUT CONTROLLER IN DIAGNOSTIC MODE.
ISSUE
A WRITE DATA
OF 400 uonos T0 nn RKO6 IN 24 SECTOR FORMAT

031578

PRGE

CLEAR THE RKbll CONTROLLER WITH R CONTROLLER CLEAR.

Ly
'y

§767

D09

22222222222222222222222222222X23XXX22222222222222X222X2
2222222 R

;;

276 831278

5779
5780
5781
5782

BEQ

iTEST 47

5753
5754
5755
5756

5774
§775
5776
5777
§778

31%:

10:20

18 BIT WRITE DATR (PART 1

BNE

5752

5762
5763

02-DEC-77

BEQ

5747
§748
5749
5750
5751

5760
5761

T4Y6

29% ’

003262

5746

2728

30(1046)

0000i2

001200

&T47:

SCOPE

BNE

)

044041
001220

MOV

#10.,STIMES

::00

TST

MEMPAR

;cuscx

MOV

81, STIMES

:FORCE INTERATION COUNT TO 1

?YSE

TgTBYl

TYPE 9559 evpnggso

xnc

MOV

TYPOC
TYPE

s-1

$§TESTN, - (S5P)
TSTBY2

044051
032424

B4S:

JMP

tsTs0

034102

2%:

gsn

R2, WRTPAR

BADPAR
TST
BNE
MOV

RO
18
33, $LPERR

031650

001110
3%:

10.

ITERATIONS

IF MEMORY PARITY AVAIL.

:YES - SKIP

ONLYGDO onc

: : SAVE STESTN FOR TYPEOUT

GO TYPE--OCTAL RSCII(ALL DIGITS)

;GO TO NEXT TEST

CZRBDBO RK611 DSKLS CTRL PRTY
CZR&0B P11
0e- DEC-77 10:00

00000
Wwwwww

000026
000004
000002
000000

000440
000040

000026
000026

000140
000040

000026
00co2e

003254
003256
000377

004737
005300
001374

037026

032006
032014

012737
004737

000001
037026

032020
032024

012703
012701

053502
000003

032030

032056

03213e

8CCLR,RFCS1(R2)
82000, RO

RO
5%

#DMD , RKMR1 (R2)

7%:

SEQ 0108

:LOAD RKG&11

BASE

:CLERAR CONTROLLER

AR STALL COUNT

; LOOP unfo COUNT O

:SET DIAGNOSTIC MODE

READY FOR SECTOR PULSE

#DMDMCLK ,RKMR1 (R2)

8DMD, RKMR] (R2)

RO
7’9

#DMD!MSP,

RKMR1 (R2)

#0MD, RKMR1 (R2)

; SIMULARTE SECTOR PULSE

; GENERRTE SYNC
#255. RO
9%:

003254

PC,RDBIT
RO

; SIMULARTE SYNC 0 BITS

#l,PR.BIT

; SIMULATE SYNC

cHEnoxx R3

SIMULQTE HEQDER

'STORE PREVIOUS BIT
'GET NEXT BIT

PC,RDBIT
11%:

003256

13%:

000001
037026

000101
003254
003254
037026

000400
050670

(Ré)+ RH
PR.BiT,nx.BIT
158
PR.BIT
16$

003254
012737
004737
005300
001361
005301
001354
012700
013737
005037
004737
005300
001367
012700
012737

PAGE 108
(PART 2)

000020
003254

032054

EQS

#BADPAR, RKBA(R2)' ;LORD BUFFER ADDRESS
: --- WORD COUNT
#-400, RKWC (R2)
! ——- START COMMAND
#WROARYA!CFMT RKCS1 (R2)
866. #40. +(4. %3.+2> RO issue ENOUGH CLOCKS UNTIL

003254

0032586

217

i
0000
0000 M

s8le

10:20
02-DEC-?77
18 BIT WRITE DATR

$BASE, R2

00
WW

00S037
005037
012700

T4?7

cs:

000040
057216
177400
010023
005136
2762

30(1046)

000000

0000
WWWwWw

000
www

001270
100000
002000

00
WW

£783
5784
S78S
5786
5787
S788
789
5790
5791
5792
5793

MACTY11

20$%:

#1,PR.BIT
PC.RDBIT
RO
133
R1
11s

PRBIT M1.BIT

PR.BIT’

GET HEQDER uoho
cvL

O T

BIT

SEC O

'LORD BITS PER WORD

; SIMULATE NEXT BIT

RERDY FOR NEXT HERDER WORD?

NO - GET NEXT BIT THIS WORD

HEQDER DONE ?

NO_- GET _NEXT HEQDER WORD

SET COUNT FOR GRP
:SIMULARTE GRP

PC,ROBIT

RO’

001310

20%
#256. ,RO

sEM32% EMUW

;SET COUNT FOR WRITE DATAR SYNC

:LOAD ERROR MESSAGE

CZR6DBO RKB11 DSKLS CTRL PRTY

CZR&DB.P11

5839
840
841

cg42

(32140
032144
032150
032154

02-DEC-77 10:00

005037
005037
005037

T4?

003252
003254
003256

00S037

003260

005237

003262

005037

MACYIl 30(1046)

003262

023224 22%:
062040
012737
032164
Sa44
036300
004737
032172
cg84s
104002
€846 032176
6843

5847

(032160

032200

5848

032204

005300

§8s0

032210

J12737

6849

68S!
€852

§R63
€gS4

5855

€856
6857

032206

032216
032222

032224

032230

032234

032240
032244

001371

004737
104002

00SC37
005037

005037

012703
012701

000001

036300

032300

013737

5864

032306

000241

5866
€867
gggg

032312
032314
032320

103403
005037
000403

5865

5870

032310

032322

012737

000001

032330

004737

036300

6873

032336

016237

000032

032334

104002

004737
023737
00140l

036132
003174

032362

005237

003262

5880

032370

020027

000002

6882

032376

005700

5874
€875
5876
877

€878
5879

g8l

5883
§884
§885

032344
032350
032356
032360
(32366

032374

104164

005300

001403

032400
032402
(032404

001331
000406
012737

(032420
032422

005391
001312

051701

6886 032412 012704 000002
gggg 032416 000722
€889
€890

5892
5894

BITCNT

:LOOP UNTIL svnc 0 WRITTEN

#1,P1.BIT

:SIMULATE SYNC 1

ECCHI

s INITIALIZE ECC WORDS.

CLR

BITCNT

:CLEAR BIT COUNT

MOV
MOV
MOV
MOV
MOV

(R35+ snu
:snaaé
s18. R0
n1.eir,ne.axT
PR.BIT.MI.BIT

WORD (18 BIT DATR WRITE,
sGET Darn
MESSAGE
:LOAD
:LORD BITS PERWORD
BITS
(SHIFT

INC

MOV
MOV

MOV
ROR

BCS
CLR
BR

003252

27%:

28%:

003174

MOV

29%:

318%:
32%:

:BUMP BIT COUN

228

PC.WRTBIT
2
ECCLO

SSET onrn POINTER
cnooear R3
:SET DATA COUN

P1.BIT,PR.BIT
Y

:CLEAR CARRY 8 GET NEXT BIT

27%
P1.BIT
283
#1,P1.BIT

:SIMULATE NEXT BIT

PC,WRTBIT

MOV

RKECPT(R2),T.ECPT_

ERROR

PC,ECCGEN
T.ECPT,E.ECPT
29%
164

.GET ECC PATTERN

cOMPUTE EXPECTED ECC
CHECK IF CORRECT
1YES - SKIP

INC

BITCNT

CMP

RO, #2

:1ST 16 _BITS JUST DONE?

TST

ELSE TEST IF WORD DONE

DEC

BEQ

001310

T EXPECTED MR1
#0MD'ECCW! MEWD! ukronr
SYNC
sxnu(nrs
PC,WRTBIT
@

JSR

JSR
CMP
BEQ

003234

M2.BIT

DEC

cLe

006004

65871

5872

003254

:CLEAR BITS

P1.BIT
PR.BIT
M1.BIT

CLERR BIT COUNTER

CLR

055202
000006

SEQ 0109

PAGE 109

MOV
JSR
ERROR

CLR

003270

FO9

BITCNT

CLR

JSR
ERROR

003262

003252

CLR
CLR
CLR
CLR

BNE

003266

10:20

18 BIT WRITE DATA (PART 2)

MOV

003252

24%:
032250 012304
5858 032252
001310
051613
012737
€359
SA60 032260 012706 000022
Subl 032268 013737 003256 003260 258%:
€862 032272 013737 003254 003256
€863

02-DEC-77

BNE
BR
MOV

31¢

25%
32%
ssnaaq EM

MOV
BR

#2,R
ast

DEC
BNE

Rl
24%

R EEREEEFRE
{TEST 50

YES- SKIP

NG - DO NEXT BIT
LSE D0 NEXT WORD
AD MESSAGE (BIT 16.17)

:SET UPPéR
OFWORD
DO BITS
;GO BITS

RLL WORDS DONE?
NO - GET NEXT WORD

R ERE R RN ERE RS ER AR R RERERRER AR R
CLERAR BAD PARITY BUFFER

ER LR ERREERRREERRRRES

CZRBDBO RKB11 DSKLS CTRL PRTHM
0e2-DEC-77 10:00
CZR60B .P1l

MACTY11

3?;6046)
¥

BUFFER AND REMOVE THE BRD PARRITY

§él{lllllll’lllll!llllllllillii!!llilllllliliiillillill!}il!li!il

000004
012737

032450
032452

TS0:

001200

8% 440
Y44

18:

005300
001374

@s
@
w
@t

wews

LS 2

“t

001200
OO+t

T
D ODWD O D DO DDD DD
PUNUN) 0 b s Pt e e e s s P
N—-OVONTN LW~

DEC
BNE

::D0

ITERATION

#BADPAR, Rl
8-1,(R1}+

RO
18

18 BIT

WRITE DATR

(PART

CLERR RK611 CONTROLLER WITH A CONTROLLER CLERR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE R WRITE DRTA

OF 400 WORDS TO AN RKO6 IN 24 SECTOR FORMAT

CYLINDER O, HERD 0, SECTOR 0. ~CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. SIMULATE A SECTOR PULSE
AND A GOOD HEADER.
AND THE 32 BIT ECC.

WRITTEN CORRECTLY.

CLOCK THROUGH 400 18 BIT WORDS
VERIFY THAT THE ECC IS

iél!!i!*ll*lil*’lilllllili!l!filli!l}l{!l}lliiilillil}!l’i{ifiil!i

32514
032522
032530
032536

MOV
MOV

#1,STIMES

86 . RO

A 1222222222222 2222X2222222222222222X2X2X222X2X222 222222222222 L L

032454
032456

832 (0]}

SCOPE

MOV

. %TEST

032464
032470
032476
032502
032504

SEQ 0110

THE SOLE PURPOSE OF THIS TEST IS TO CLERR BAROPAR

i
032424
032426
032434

GOS9

Ce-DEC-77
10:20
PAGE 110
CLERAR BRD PARITY BUFFER

032542
032550
03esse
032560

TS1:

000000

X ¥

177400
010023
005136

000026
000004
00000e
000000

000440
000040

000026

000026
000026

032seke
032570

gle7e2
012762

000140
000040

032576
032602
032606

005037
00S037
012700

003254
003256
000377

03eele
03eblb
032e20

004737
00s300
001374

037026

000026

SCOPE

MOV

#10.,STIMES

::DO0

MOV
MOV

$BASE ,R2
8CCLR.RKCS1(R2)

:LOAD RKG11 BASE
’;CLEAR CONTROLLER

MOV
DEC

82000, RO
RO

MOV

#0MD,RKMR1(R2)

BNE

“SET A STALL COUNT
:LOOP UNYIL COUNT O

;SET DIAGNOSTIC MODE

8ECCBUF , RKBA(R2) ' ~;LORD BUFFER RDORESS
; --- WORD COUNT
#-400, RKWZ (R2)
sWRDATA! CFMT RKCS1(R2)
: --- START COMMAND

MOV

#DMD
! MCLK , RKMR1 (R2)

DEC
BNE

RO
rd3

MOV
MOV

#66. #40. +<4.%3.+42>
,R0 ; }SSUE ENOUGH CLOCKS UNTIL
. " "RERDY FOR SECTOR PULSE

. RKMR] (R2)
#0MD

#DMD!MSP,RKMR1 (R2)

;SIMULATE SECTOR PULSE

MOV

, RKMR1 (R2)
#DMD

CLR
CLR

PR.BIT
M1.BIT

: GENERATE SYNC

PC,RDBIT

:SIMULATE SYNC O BITS

MOV

ITERATIONS

MOV
MOV
MOV

MOV
7%:

10.

JSR

DEC
BNE

#25S. ,RO

RG
3§

CZR6DBO RK611 DSKLS CTRL PRTY

CZrRe08B.P11

MARCY11l

TS81

02-DEC-77 10:00

S5 B BT 9NN

3 Biftu BiEl Geancs
%3 §§§§% glard Go3dk
S36

fl
ges

888037

0032s4

€965
S366
5367

032672
032700
032704

012737
004737
005300

00000!
037026

5971
5372
5973
5374

032714
032720
(032726
032732

012700
013737
005037
004737

00010l
003254
003254
037026

5977

032742

012700

000400

30(1046)

0032s4

MOV
JSR

11%:

003256

02-DEC-77
10:20
18 BIT WRITE DATA

13%:

#1,PR.BIT

:SIMULATE SYNC

omenoxx R3

SIHULQTE Hsn ER

PC.ROBIT

003256

GET NEXT BIT

Pfi.alr,nx.exr
81 ,PR.BIT

(033006

004737

036300

53987

033014

005237

003262

5990
599]

033024
033032
033036
(33040

012737
004737

000001
036300

005037

003266

5993

S997

033060

012701
12737

13737
e006

033126

103403

003224

ces:

8256. RO

:GET COUNT FOR WRITE DATA SYNC

PR.BIT
PC,ROBIT
RO
208

Sc,uarexr

051613

001310

0032s2

003260
003256
003254

#1,P1.BIT

s SIMULATE SYNC 1

ECCHI

: INITIALIZE ECC WORDS.

BITCNT

;CLEAR BIT COUNT

(R3)+'RY4

'LOAD MESSAGE (18 BIT DATA WRITE)
'LOARD BITS PER WORD
ISHIFT BITS

SC,NRTBIT

25%:

;BUMP BIT COUNT

1LOOP UNTIL SYNC O WRITTEN

24%:

sxnutnTE

Rgs

ECCLO

000377

:LOAD ERROR MESSAGE
:CLERR BITS

M BIT
CLEAR BIT COUNTER
BITCNT
8OMD ! ECCW ' MEWD! uhtcnr MR1 :SET EXPECTED MR1
svyn&70
BITCNT

003252

:SIMULATE NEXT BIT

'READY FOR NEXT HERDER WORD”
'NO - GET NEXT BIT ThiS WORD
:HEADER DONE?
'NO - GET NEXT HEADER WORD
'SET COUNT FOR GAP.
:SIMULRTE GARP

PR.BIT

5385

? Ss finévxous BIT

RO’
13%
R1
118
#65. RO
PR.BIT,M1.BIT

SEM327, EMW
PI.BIT

001310

8 SEC O

ceg HsnoenpggbBORD

PC,ROBIT

20%:

cYC

| BIT

cné,+ RY

15%
PR.BIT
16%

003254

SEQ 0it!

PRGE 111l
(PART 3)

8ECCBUF ,R3
8255, ,R{

#EM338, EMU
#18. R0
M1.B1T,M2.BIT

B BIT ' B BT
RY
278

:SET DATA POINTER
,SET DATAR COUNT
:GET DRTA WORD

.CLEAR CARRY & GET NEXT BIT

6032

033240

012737
004737

000001
036300

0o3ese

000032
036132
003174

003174

6044
6045
6046
6047
6048
6049
6050
6051
6052
6053

033312
033320
033324
033326
033334
033340
033346
033350
033352
033356

012737
004737
104002
0lee37
004737
023737
001401
104164
005237
022700

001310

318:

001310

000022
003256
003254
003eSse

003260
003256
003254

000032
036132
003174

003174

39%:

003ebe
000002

003224

419:

CCGEN

écpr E.ECPT

ERROR
INC
DEC

164
BITCNT
RO

BEQ
TST
BNE

3¢
RO
25%

MOV

#EM339, EMU

B8R

MOV

GET ECC PATTERN

COMPUTE EXPECTED ECC

cwecx xr coanccr
- SKIP
YES

RO, 82

;15T 16 _BITS JUST DONE”

328

ELSE D0 NEXT WORD

YES- SKIP
ELSE TEST IF WORD DONE
*NO - DO NEXT BIT
OAD MESSAGE (BIT 16.17)

BITS OFWORD
#0,RY ' ;SET uppén
;GO DO BITS

2s¢

DEC
BNE

R1
24s

sALL WORDS DONE”
INO - GET NEXT WORD

MOV

8EM338, EMW

:SET ERROR MESSAGE

MOV
MOV
MOV

MOV
MOV

MOV

(R3)+,RY
#18. RO
M1.B1T,M2.8IT

:GET LAST WORD
:SET BIT COUNT
:SHIFT BITS

RY
368

: CLERR CRRRY
:TEST NEXT BIT
'SKIP IF A

PR.BIT MI.BIT
P1.BIT.PR.BIT

P1.BIT

37%

#1,P1.BIT

'ELSE SET NEXT 2IT FOR ZERO
:SET NEXT BIT FOR !

:SIMULQTE BIT

JSR

PC.WRTBIT

MOV

RKECPT(R2),T.ECPT

SEE

asccu,e MR1

ERROR

003234

;SIMULATE NEXT BIT

CLR

003ese

81,P1.BIT

BEG

000001
036300

28$

RKECPT(RE) T.ECPT

cLC
ROR
BCS

003252

000002

000406

348:

P1.BIT

MOV

CHP

SEQ Q112

PAGE 112
(PART 3)

PC,WRTBIT

CMP

29%:

109

JSR

003234

0s1i613

020000

MOV

ERROR

329%:

0oo403

033404
033406

2’s:

000002

033210

02-DEC-77?
10:20
18 BIT WRITE DATA
BR

£03262

6042

6060
e0el

181

W
~N o
1]

033234
033236

30(1046)

CLR

003252

051701
000000
6029
6030

MARCY11l

005037
000403

2V0‘0"x}

oo
O0O0o00000

6011

0000000000000
WLWWWWWWWWWWWLWWW
WWWWLWWWWWLWLWWWWLW
POPURDN)
M) 0= oot de e s s o b e
—r—— 00N
NEW
LENNOLENNCLNED
oL

L£O

00
WW
WW
Pt e
WwWw

CZREDBO RKB11 DSKLS CTRL PRTY
0e-DeC-77 10:00
ZZRB0B.PLI

JSR
CHMP
BEQ
ERROR
INC
CMP
BNE
CHP

BEQ

PC ECCGEN
T.8CPT,E.ECPT
39§
164
BITCNT
82, R0
$
82, RO

yo$

TST

45§

BNE

34%

;GET PATTERN

cefisnnts ECC PARTTERN
TEST IF CORRECT
ves - 6KIP
:ELSE REPORT
‘BUMP BIT COUN
JIF NEXT BIT IS THE LAST DATA BIT
"ECCW MUST BE RESET TO INDICRTE
ECC BEING WRITTEN

:TEST IF 1ST 16 BITS DONE

'YES- SKIP

ELSE TEST IF WORD DONE
SKIP

ELSE GC TO ECC PROCESSING

2ZReDBO RKB11 DSKLS CTRL PRTY

CZFEDB.PILI

02-DEC-77 10:00

MACYLl 30(1046)

02-DEC-77

012737

0S1701

001310

42%:

MOY

6066

033424

012737

0S1307

001310

45§:

MOV

€069
6070
6071
6072

033442
033446
033450
033484

012701
012304
012700
013737

000002

43%:

MOV
MOV
MOV
MOV

012704

6065 033422 000714

6067
6068

6073
6074
6075
6076
6077
Eg;g

033432
033436

033462
033470
033476
033500
033502
033506

005037
012703

013737
013737
006004
103403
005037
000403

6080

033510

012737

6082

033522

104002

6081

033516

000000
003262
003266

000020
003256

003254
003252

003260

003256
003254

44S:

003252
000001

004737

036300

003252

463:

473 :

MOV

MOV
MOV
ROR
BCS
CLR
BR
MOV

JSR

6089

6090

6031
6092

033552
033554

005301
001332

033570
033574
033600

00S037
012700
013737

003262
000017
003256

033626

004737

036300

033562

6097
6098
6099

033606
033614
033622

6100

6101

033632

6103
6104
6105
6106

033640
033642
033644
033652

6108

033666

6102

0336

003224

49%:

001337

033556
033560

6093

6094
6095
5096

005300

003262

012737

013737
013737
005037
104002

005237

005300
001356
012737
016237

051345

003254
003252
003252

001310
003260
003256
003254

44§

000001
000032

003234
003174

6107 033660 023737 003174 003234
6109
6110

033670
033672

56%:

#ECCW,E

*ECCW MUST BE SET TO INDICATE
. MRI

DEC
BNE

R1
43g

CLR
MOV
MOV

BITCNT
#15. RO
M1.B81T,M2.BIT

SEM334, EMUW

;BUMP BIT COUNT

rssr IF LAST BIT THIS WORD IS DONE
NO
- LOOP

rssr IF BOTH WORDS WRITTEN
'NO - LOOP

Lono MESSAGE (POSTRMBLE)

:CLEAR BIT COUNT
:SET GAP COUNT
:SHIFT REST OF BITS

MOV
MOV
CLR

PR.BIT, M1.BIT
P1.BIT PR.BIT
P1.BIT

ERROR

DEC
BNE
MOV
MOV

RO
:GAP WRITTEN?
Sis
'NO- LOOP
81 E.ECPT
:SET EXPECTED PATTERN
RKECPT (R2) . T.ECPt
ET '511 PATTERN

BEQ

568

CMP

001401

104163

DEC

JSR

003262

:ECC IS DONE

BNE

BIS

MOV

51§:

sl Rl

BITCNt

020000

005237

:LORD NEXT BIT

:IF THIS BIT IS THE LAST ECC BIT

INC

052737

033546

:CLEAR BIT COUNT
'LOAD POINTER TO ECC WORDS

$2, RO

4yad

CMP

:G0 DO LARST TWO BITS

:SIMULATE NEXT BIT

BNE

000001

033540

#1,P1.BIT

:SET UP UPPER BITS

PC.WRTBIT

4yad

(022701

6088

PR.BIT.MI.BIT
P1.BIT.PR.BIT
R
468
P1.BIT
47%

BNE

033532

6087

:SET FOR 2 WORDS
"GET ECC WORD
:SET BIT COUNT
:SHIFT BITS

6085

001003

82, R1
(R3)+,RY
816. RO
M1.BYT. M2.BIT

ERROR

CMP

033536

"MESSAGE (ECC unxrz)

BITCNT
8ECCHI,R3

000002

6086

csnaaa EMW

CLR
MOV

022700

001006

:SET MESSAGE FOR BITS 16 AND 17

033524

033530

censaq EMW

6083

6084

PAGE 113

18 BIT WRITE DATA (PART 3)

033410

033416

JO9

751

6063

6064

10:20

ERROR

PC,WRTBIT

BITCNT

s CLEARR NEXT BIT

:SIMULATE BIT

:BUMP BIT COUNT

T.ECPT, E.ECPT TEQT EQUAL
163

YES - s IP

ELSE REPORT

SE3 0113

CZREDBO RKb11 DSKLS CTRL PRT4

CZr6DB.PL1

02-DEC-77 10:00

MACYL1l 30(1046)

END OF PASS ROUTINE

bll}

.SBTTL

elle

6113
6114
6115
6116
6117
6118
6119
6120
6121

033672
033672

0000

033722
033724

003063
012737

6134

6135

6136

6137
6138
6139

6140
6141
6142
6143
6144
6145
6146

6147

6148

6149

6150
€151
6152

£153
6154

6155
6156
6167

£158

Eigg

6161

6162
6163
6164
E1ES
6166

#XXXXX TOTAL

’

NUMBER OF ERRORS SINCE LAST REPORT YYYYY”

; ¥WHERE XXXXX AND YYYYY ARE DECIMAL
; ¥IF THERES A MONITOR GO 10 _IT
; #IF THERE ISN’T JUMP TO TSTI

6128
6129

6133

PAGE 114

END OF PASS ROUTINE

;#TYPE “END PRSS

005037
005037
005237
042737
005327

6132

K39

$ 5 RTINS
R R
0 S

033674
033700
033704
(033710
033716

6130
6131

10:20

:EINCREMENT THE PASS NUMBER ($PASS)

6122
6123
6124
6125
6126
6127

02-DEC-77

033720
033726
033730

033732

033736

033756

000001
033720

$ENDCT:

104401

000407

033762
033764

104405
104401

000421

033740

..67%:

034040
034042

104405
104401

001211

013700

000042

005037

034056

00140S

034060
034062
03406M

034066
034070
034072
034072
034074

034076

6ES:

0011i2

$GETH2:
$ENDAD:

000240
000240

$DOAGN:

377

:;2ERO THE TEST NUMBER
: 1 ZERO THE NUMBER OF ITERATIONS
: *'INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
:iLooP?

BGT
MOV

$DOAGN
(PCY+,3(PCI+

;s YES
: 'RESTORE COUNTER

. WORD

.WORD
$EOPCT

000

$RTNAD:

$ENULL:

.SBTTL

D ¥
'x
tx
Ly
‘¥

65%

643

MOV

$PASS, - (SP)

.ASCIZ

;s TYPE ASCIZ STRING

: *GET OVER THE RSCIZ

<12><15>/END PARSS’ u/

673

: s SAVE SPASS FOR TYPEOUT

:1TYPE PRSS NUMBER
GO TYPE--DECIMAL ASCII WITH SIGN
:1TYPE ASCIZ STRING

BR
.ASCIZ

66%
*'GET OVER THE RSCIZ
~ TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL, -(SP)

TYPDS
TYPE

000005
004710
000240

000137
004334
377
034102

$TSTNM
§TIMES
$PASS
#100000,8PARSS
(PC)+

TYPDS
TYPE

033772

001112

034046

001222

013746

SCOPE

CLR
CLR
INC
BIC
DEC

TYPE

. 668:

034034

034052

001222
$EOPCT:

013746

034034

001102
0012G0
001222
100000

000001

033756
033770

SEOP:

NUMBERS

$CRLF

CLR

$ERTTL

BEQ

$DOARGN

MOV
RESET
JSR
NOP

842, RO

PC, (RO)

NOP
NOP

JMP
.WORD
.BYTE
-EVEN

; ;SAVE SERTTL FOR TYPEQUT
::TOTAL NUMBER OF ERRORS
::G0 TYPE--DECIMAL ASCII WITH SIGN

' 'TYPE CARRIAGE RETURN,

' 'CLEAR ERROR TOTAL

LINE FEED

:'GET MONITOR ADDRESS

: 'BRANCH IF NO MONITOR

:'CLEAR THE WORLD
1160 TO MONITOR
: *SAVE ROOM

:FOR
PIACTIL
J(PC)+
TSTI
~-1,-1,0

: s RETURN

s sNULL CHRRACTER STRING

GENERRTE BAD PARITY IN MEMORY

THIS ROUTINE ATTEMPTS TO GENERATE BAD PARITY WORDS IN
MEMORY. THE NUMBER OF WORDS TO BE GENERATED AND THE ARER
WHERE THEY ARE TO BE PLACED IS SPECIFIED IN THE WORDS
FOLLOWING THE CALL. IF ALL THE SPECIFIED WGRDS CANNOT
BE GENERATED, THE BUFFER IS CLEARED OF BAD PARITY WORDS.

SEQ 0119

RK&11 DSKLS CTRL PRTY
8%26090

608.P

0e2-DEC-77 10:00

MRCY1l

26169
gg
6170

30(1046)

02-DEC-77

10:20

LOS
PAGE

GENERATE BAD PARITY IN MEMORY

115

g ;é

3
Ro

DA?RC FLAG
TOEINDICATE
IF BAD RETURNS
PARITY WAS
GENE&QT?S
T
T
EOUTINE
TO CALLER
PRARITY WRS HflDE BARD IN ALL THE DESIRED WORLCS. IF RO IS ALL

6173

; #

CALL:

7S
76

I
¥ 3

RETURN:

[

6174

]

B0
81

034102

034104
034110

011200

Olezdl
012703

WRTPAR:

000002
172100

B3
034120 DI>703 00ODAO
84 034124 006004
41

8BS
86

B7
88
89
S0
91
92
93

C34l126
034130
034134
034140
034142
034144
034150

03415¢
034154

103002
012713
062703
00s30S
001370
012721
005300

001374
Q12703

000002

79:

177777

8%:

003274
000020

034174

Q012713

000001

Q34200
034204
034206
034210
034216
034220
034e24
034226
034230

6208

034232

6210
6211
b2l2
6213
6el4
62

034236
034240
034242
034244
034e46
034252

6209

(034234

g34256
034260
034e6e

103002

062703
00530S
001370
012737
011200
016201
010004
005721
000240

11%:

000002
000000
177777

034266 012703 172100
034e7e (Cl13704 003274
034276 012705 000020
034302

006004

000114
10%:

000240

005300
001374
012700

178:

000002

005300

001373
005704
001444
011200
016201
012721

15%:

000002

034360

ONES IT WAS NOT SUCCESSFUL.

MOV

12%:

13%:
14%:

JSR

R2,WRTPAR

POINTER TO'AREA TO BE ALTERED

NUMBER OF WORDS
RTS
R2

WITH RO RS SUCCESS FLRAG
(R2)

MOV
MOV

2(R2},R1
SMEMBAS,R3

MOV

1Oy

ROR
8CC

EnPaR,
R
RY

ADD
DEC
BNE
MOV
DEC

7%
#WR.PRR, (R3)
#2,R3
RS
5s
8-1,(R1)+
RO

MOV
MOV
ROR

MEMPAR , RY
8$16. RS
RY

MOV

#PAR.EN, (R3)

MOV

BNE
MOV

172100

013704
012705
006004

034172

S%:

00000%

034160
034164
034170

99
00
6201
6202
6203
6204
65205
6206
6207

)
b
6

94
35
96

{

BCC

8%
SMEMBRS,R3

17%

;GET BUFFER POINTER

GET NUMBER OF WQRDS
GET BRSE OF VECTOR RRER

L
CHECK IF PARITY ENRBLE ON THIS BANK

NO TRY NEXT BRNK
RLCON SETTING OF BAD PARITY

CQLCULQTE NEXT ADDRESS
CHECK IF FINISHED
N GET NEXT PRRITY MEMORY RDDRESS
NRTTE BAD PARIT
LOOP UNTIL ALL LOCRTIONS WRITTEN
; LOAD BQSE OF CONTROL REGS

LOQD LAGS
GET NUMBER OF REGISTERS
CHECK IF PARITY ENABLE ON THIS BANK
;ALLOW PARITY DETECTION

RADD
DEC
BNE
MOV
MOV
MOV
MOV
TST
NOP

#2,R3
RS’
159
8305 MEMVEC
(R2),R0O
E(RE’,RI
RO, R4
(RIH+

CHECK IF FINISHED
CHECK IF FINISHED
NO GET NEXT PARITY MEMORY RDDRESS
SET PRARITY TRAP VECTOR
NUHBER OF WORDS
BUFFER POéNTER
STORE NUMBE
TEST FIRST BUFFER WORD - SHOULD GET
TRQP WHICH DECREMENTS RM

DEC

; DEC NUMBER OF NORDS COUNTER

NOP

BNE
TST
BEQ
MOV
MOV
MOV

109
R4
20%
(R2),R0
2(R2},R1
00,(R1)+

QLL CHECKED? N
SKIP
TEST IF ALL LOCQTIONS B8R0
YES - SKIP
GET NUMBER OF WORDS
:RUFFER POINTER
;CLEAR ALL OF AREAR THAT WAS MADE BARD

MOV
MOV
MOV

OHEHBQS R3
MEMPAR, RY
%$16. RS

LOQD BRSE OF CONTROL REGISTE S
NOH SET UP TO CLEARR PARIT
CONTROL REGISTERS AND SET

DEC
8NE
MOV

ROR

RO
IES

;SET FLAG THAT COULDN’T SET BARD PARITY

ENRBLE WHERE RPPLICABLE

SEQ 0118

CZ2R6DBO RKB11

CZReDB.P11

DSKLS CTRL PRTH

0e-DEC-77 10:00

MACYI1

30(1046)

03:313

6228

034322

062703

BCC

g52% B4%18 '?393
6229
6230
6231
6232

034324
034332
034340
034344

12737
012737
012746
012746

gggg

034352

000202

6237
2%33

034354
034356

gsga

6240

6241
6%:%
b

034350

034360

034362
034364

0000Ce

18%:

RO
13%

;CLERR FLRG - BAD PARITY SET UP

005304

308:

DEC

;DEC THE COUNTER

022626
000723

; ®

012737

034464

(012737
005037
012703

000340
003274
172100

6256

034412

012704

000001

6258
6259

034422
034424

005713
0S0437

beb2
6263
6264
6265

034440
034442
034446
034450

001003
005037
000411

003274

6267

034450

062703

000002

6269
6270

034456
034460

00el04
001356

6273

034464

022626

6257 034416 012713 000001
082713
032713

(000241

003274

007740
007740

000004

000006

MOV

8208, ERRVEC

6275
6276

6277

6278

MOV
CLR
MOV

MOV

;

PC,PARCHK
PC

8PR7|ERRVEC+2
MEMPAR
SMEMBRS,R3

IPAR EN, (R3)

;SET VECTOR FOR MEMORY PRRITY CHECK

;CLEAR FLAG
LOQD REGISTER TO DETERMINE IF

MEMORY CHECK ENARBLE AVRILIBLE

INITIQLIZE MASK

ENRBLE MEMORY CHECK

{R3)
R4, MEMPAR

;SET FLAG

BNE
CLR
BR

2%
MEMPAR
22%

:
H
:

ADD

#2,R3

ROL
BNE

RY
169

8IS
BIT

BR
:
:

JSR

TST
BIS

CcLC

20%:

CLEQN STARCK
GO CHECK NEXT LOCRTION

IF OPTION IS PRESENT, PARITY DETECT IS ENABLED ON THAT BRNK.

PARCHK:

1%:

;RESET PRIOTITY TO O

THIS RCUTINE CHECKS ALL AVAILABLE MEMORY FOR PARITY OPT;Cli.

RTS

16%:

RESET TRAP VECTOR

CHECK FOR MEMORY CHECK ENABLE

RETURN:

2%:

003274

(SP)+,(SP)+
11%

CALL:

Eg;é 034462 000403
00S037

CcMP
BR

;&
#

034466

;SET POINTER FOR RETURN

CLR
BR

034374
034402
034406

ee74

(P2)+,(R2)+

20%:

034454

Tas

005000
000743

6252
6253
6254

6268

3§,R3

6248

[S¥=41°)

18%

WPAR.EN, (R®)

SEQ 2116

RTS

.SBTTL

034430
034434

116

19%:

gsgg

6260
6cel

980

RTI

gg:%

6255

PAGE

sMEMERR, MEMVEC
#PR7, MEMVEC+2
.PRU -(SP)
8195 -(SP)

6245

034366

ROV

CMP

000114
000116

b4y

6251

MO9S

MOV
MOV
MOV
MOV

o00o0c2

034526
000340
00000
034352

10:20

GENERRTE BRD PARITY IN MEMORY

4304

£553 83338 4PE9Y5 ooooos
6225

D0e2-DEC-77

CMP

#7740, (R3)
07740 (R3)

BUHP TO NEXT CSR

CHECK IF FINISHED
SET
UP NEXT MEMORY PARITY MODULE

REQTORE TRQP VECTOR

(SP)+,(SP)+

sADJUST STQCK

MEMPAR

ROL

BNE

; THE ABOVE 6 LONES ADDED 24-0CT-77

22%

CLR
ADD
cLC

(SET BIT 5 TO BIT 11
QRE THEY SETED
~°

%2,R3

16%

Eq ocT-7

;CHECK IF FINISHED

;NO, GET NEXT LOCATION

CLRBDBO RKSII DSKLS CTRL PRTY
02-DEC-77 10:00
CZR6DB.P11

6279
6280
6281
€e82
6283
6284
6285
6286
6287
6288
6289

034472
034500
034504
034510
034512
034520
034524

012737
00S037
00S737
00100S
012737
005037
000207

000006
000006
003274

000004

000116
000116

000114

25%:
L ¥

012737
011637
104001
005037
032777
001001
000002

034542
003244

6298
6299
6300
6301
6302

034560
034564

012706
000177

001100
144320

00le0e
00100C

001202

144364

108:

6317
6318
6319
6320
632l

034640
034642

000000
000137

001270
100000
043631
001100
001202
001103
000042

RTS

000000

CLR

MEMPAR

CHECK IF MEMCRY CHECK ENRBLE AVAILIARBLE

:YES,

RETURN

SMEMVEC+2, MEMVEC' REQTORE TRAP CARTCHER

MEMVEC+2

s RETURN

MEMORY CHECK ENRBLE TRARP’

THIS ROUTINE HANDLES ANY PARITY TRAP.

PARITY WRS BAD

ERROR

CLR
BIT
BNE
RTI

IS REPORTED.

#10$, SESCAPE

(SP). TRAPPC

:LORD ESCAPE

,s ORE PC

:REPORT MEM PARITY ERROR

#STACK, SP

s INITIALIZE STACK

SBTTL

CONTROLLED HALT ROUTINE

JMP

THE LOCATION WHERE

$ESCAPE
#SWS, ASKR
158

MOV

JSLPERR

:CLERR ESCRPE
'CHECK IF LOOP ON ERROR
'YES, FORCE STACK AND TRY AGAIN
*NO, 'RETURN
:LOOP ON ERROR

THIS ROUTINE IS ENTERED WHEN A #C IS ENTERED IN THE KEYBOARD.

IF NO MONITOR 1S PRESENT THE PROGRAM HALTS ELSE THE PROGRAM

IS FORCED TO LAST PASS AND JUMPS TO END OF PASS.

CTRHLT: MOV

MOV
TYPE

MOV

CLR

CLRB
TST

BEQ
CLR
JMP

033720
033672
003340

MOV

2s5s

158 :

013702
Q0l2762
104401
012706
005037
105037
005737
001404
005037
000137

BNE

MOV

"
034570
034574
034602
034606
034612
034616
034622
034626
034630
034634

SEQ 0117

;RESTORE TRAP CATCHER

SERRVEC+2,ERRVEC

ERRVEC+2

MEMERR: MOV

6306
6307
6308
6309
6310
6311
6312
6313
6314
Eg{g

MOV

CLR

TST

ix
034526
034534
(034540
034542
034546
034554
034556

b3z2e
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334

22%:

_SBTTL

6290
6291
6292
6293
6294
6295
gggg

6303
6304
6305

MACY11

NOS

PAGE 117
10:20
02-DEC-77
CHECK FOR MEMORY CHECK ENABLE

30(1046)

$BASE, R2

:SET ’611 BASE

$ERFLG
42

CLERR ERROR FLAG
TEST IF STAND ALONE

OCCLR RKCS1(R2) :CLERR CONTROLLER
*TYPE HALT MESSAGE
PROOS
:CLEAR STACK
hsrncx SP
:CLERR ESCQPE
$ESCAPE
vss -"sKkipP
:ZERQO PRSS COUNT
‘GO TO END OF PASS

13
$EOPCT
SEOP

:HALT PROGRAM

15:

HAL T

.SBTTL

SCOPE HANDLER ROUTINE

JMP

!GO TO RESTART IF CONTINUE

START1

< 3606060006 06 06 06 00 06 06 036 06 36 06 06 06 626

00000 0

I 30N

A RN NN

I AL

iTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:%¥AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:¥AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY¢15:08>
iTHE SWITCH OPTESNS
PROVIDED BY THIS ROUTINE RRE:
P _ON TEST

#SW14=1

lSNll-l

INHIBIT ITERARTIONS

LOOP ON ERROR

: #SW0%=1

LOOP ON TEST IN SWR<7:0>

: ¥SLW08=1

:%CALL

P¥

0O34b4e

$SCOPE:

SCOPE

; ; SCOPE=IOT

R&DBO RKB1l1
608. Pi1

CTRL PRTYH
0e-DEC-77 10:00
D SKLS

104407

034646
034650
034656

032777
001131

034660

000416

g34662
034666

013746
012737

040000

MACY11

144262

000004
034706
177060
000004

G
o
W el
TM Ll e ol
~N [epd el ala N Loy o of 4 )

000400

—

18:

PAGE

118

SE3 J118

CKSWR
BIT
BNE

#BIT14, ISR
$OVER

::TEST
FOR CHANGE IN SOFT-SWR
::LOOP ON PRESENT TEST?
D YES IF SWl4=]

MOV

JBERRVEC,-(SP)

PITHIS INSTRUCTION TO R "NGPTM (NOP=240)
::SAVE THE CONTENTS OF THE £o00@ VECTOR

(SP)+, 98ERRVEC

;;RESTORE THE ERROR VECTOR

MOV
TST

000004

MOV

S§:

144214

MOV
BR

(SP)+.J8ERRVEC
78

CMP

BLT
MOV
DEC
ASL
ADD

035160
001108

MOV

8%:
2s:
001103

001000

144124

001110

001106

001103
001e00
144072

BR
15T
1578

BEQ

:'CLEAR THE STACK AFTER A TIME OUT

:;RESTORE THE ERROR VECTOR
:LO0OP ON THE PRESENT TEST

$B1T08, aSWR

2$
-(SP)
JSKR, (SP)
8%
851, (SP)

8%
(SP),STSTNM
(SP)
(5p)
#$SWOBTBL, (SP)

; ;LOOP ON SPEC.

TEST?

::BR _IF NO
:'CLEAR R TEMP. LOCATION
:PICKUP THE DESIRED TEST NUMBER
'BRANCH_IF BAD TEST NUMBER IN SWR
PCHECK THE NUMBER IN THE SWR

PBRANCH IF TEST NUMBER IS OUT OF RANGE
'UPDRTE THE TEST NUMBER
; s BARCKUP BY ONE
"
'SCALE THE TEST NUMBER AS AN INDEX
;:FORM THE RDDRESS OF TEST POINTER

J(SP)+,SLPADR

:;SET LOOP ADDRESS TO DESIRED TEST

1:BR IF NO

SOVER
(SP)+
SERFLG

:1GO LOOP ON THE TEST
!CLEAN THE BAD TEST NUMBER OFF OF THE STACK
1 HAS AN ERROR OCCURRED?

#BI1T09, ISWR

4§
gBCEgR,SLPQOR

::LOOP ON ERROR?

7%:

BEQ
ggv

4§:

CLRB

$ERFLG

: ; ZERO_THE ERROR FLAG

BIT

3%:

CLR
BR

BIT
BNE

BEQ
INC
CMP

001104

001220

11G0 TO THE NEXT TEST

SERMAX, SERFLG
3s

75T

001104
001200

(SP)+, (SP)+

::SET FOR TIMEOUT
::TIME OUT ON XOR?

CMPB
BHI

00leee
001104
001200

sSvLAD

BEQ
CLR
MOVB
BEQ
CHP

00110e

004000

B8R

BIT

000051

001115

858 . I8ERRVEC
d8177060

6S:: s8888END OF CODE FOR THE XOR' tESTERsssus

144204

001103

18:
§SVLAD:

28R
_IF NO
{SET LOOP RDDRESS TO LAST SCOPE

$TIMES
1%

' 'CLEAR THE NUMBER OF ITERATIONS TO MAKE
: 'ESCAPE_TO THE NEXT TEST

;;BR IF YES

$BIT11,3aSWR

§PASS

13
SICNT
§TIMES, SICNT

P INHIBIT ITERATIONS?

::IF FIRST PASS OF PROGRAM

i
INHIBIT ITERATIONS
* P INCREMENT ITERATION COUNT
: 'CHECK THE NUMBER OF ITEPATIONS MADE

$SOVER

:'BR_IF _MORE ITERATION REQUIRED

MOV

SMKCNT,STIMES

;;SET NUMBER OF ITERATIONS TO DO

MOVB

$TSTNM,STESTN

MOV
INCB

MOV

$OVER:

;;MAX. ERRORS FOR THIS TEST OCCURRED”
J'BR IF NO

BGE

MOV
03S14e

B1C

. suu88START OF CODE FOR THE XOR YESTERsssus
¢§xTSTR: BR
68
s IF RUNNING ON THE “XOR” TESTER CHANGE

000004

02-DEC-77
10:20
SCOPE HANDLER ROUTINE

30(1046)

81, SICNT

§TSTNM

(SP), S{LPADR

(SP)

SLPERR

' 'REINITIALIZE THE ITERATION COUNTER

::COUNT TEST NUMBERS

::SET TEST NUMBER IN APT MAILBOX

: 'SAVE SCOPE LOOP ADDRESS

: 'SAVE ERROR LOOP ADDRESS

CLR

SESCAPE

MOV

§T4TNM, ADISPLAY ::DISPLAY TEST NUMBER

MOVB

81,

SERMAX

:'CLEAR THE ESCAPE FROM ERRORF ADDRESS
:IONLY ALLOW ONE(I)

ERROR ON NEXT TEST

CTR6EDBO RKB11

CIRECB.PIL

6391

035150

DSKLS CTRL PRTM

02-DEC-77 10:00

013716

6392
6393

035154
035156

6395
6396
6397
6298
6399
64900
6401
402
6403
6404

035160
035162
035164
035166
035170
035172
035174
03517
03520
035202

004336
004570
005022
005254
005504
005734
006164
06450
06720
007170

6407

035210

010540

6394

£405
6406

(035160

035204
035206

e B=)

000002
003720

MACYI1

30.1046)

02-DEC-77

10:20

Cl0

SCOPE MANDLER ROUTINE

001106

MOV
SMXCNT:

RTI
2000.

$SWOSTAL

_WORD
"WORD
_WORD
CWORD
.WORD
_WORD
.WORD
_WORD
"WORD
_WORD

007444
010114

119

SEQ 0119

$LPRADR, (SP)

. :FUDGE RETURN RDDRESS

TST1+2
TST2+2
TSTS+2
TSTH4+2
TS575+2
TSTH+2
T577+2
TST10+2
TST1li+e
TST12+2

: ;STARTING
: 'STARTING
::STARTING
:'STARTING
: 'STARTING
:'STARTING
: 'STARTING
i
nnr}gg
' 'START
: 'STARTING

_WORD
CWORD
"WORD

TST13+2
TSTI4+e

TST1S5+2

o
WOR

TgTS§+ I

£
WORD

ISl
TST30+2

B
.
+

HE
ewxé 33558R
81305&

PAGE

: :FIXES PS
:'MAX. NUMBER OF ITERATIONS

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADORESS
ADCRESS
ADDRESS
sg
ROORESS
SS

OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

|
2
3
4
5
b
7
10
11
12
: 'STARTING ADDRESS OF TEST 13
P ISTARTING noongs
OF TEST 14
: 'STARTING ADDRESS OF TEST 1S

s R

it nggnEgg
s 8§ TE?T 22
Ezgrnnvfns
HE

il
6415 Gme
83?333 BT
81u§3

O
IHENs
WOR
T TSS+

6419
6420
6421
422
423
6424
6425

035240
035242
035244
035246
025250
52
035254

017122
017574
020362
021150
021736
022426
023116

.WORD
_WORD
.WORD
"WORD
"WORD
.WORD
WORD

TST31+2
TS5T32+2
TS5T33+2
TST34+p
TST3S+2
TS5T36+2
TST37+2

16T RT%NG
: STARTING
: 'STARTING
::STARTING
:'STARTING
: 'STARTING
.,svnnfinc

6427

035260

024276

WORD

TST4l+2

:'STARTING ADDRESS OF TEST 41

sl
oo 815450
MR
€418 035338

6426

6428
6429

6430

6431
pY32
6433
6434
6435

6436
g:gg
6439
6440
6441
6442
443
g::;
E446

035256

035262
035264

035266

023605

WORD

025012
025536

WORD
-WOR

6262

035270
035272
035274
035276
035300

027520
030770
031554
032426
032456

035302
0353106
035312
035316
035320
035324

032777
001405
105737
001402
013716
000002

TSTHO+2

MRgg 8F& TE?T
e og
;iST
rgnvfgg 288
LA 3883553
e 8r
O TEST
T 30
::STQRTfng

;:STARTING

RODRESS
ADDRESS
RDORESS
ADDRESS
ADDRESS
ADDRESS
&S

OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TF3T
TEST

31
32
33
34
35
36
37

ADORESS OF TEST 4O

TST42+2
T5T43+2

:'STARTING ADDRESS OF TEST 42
::STARTING ODRESS OF TEST 43

"WORD
WORD
WORD
.WORD
WORD

TST4S+2
TSTYGE+2
TST4Z+2
TS5T50+2
TSTS1+2

:1STARTING
i
TING
::STARTING
:'STARTING
: :STARTING

BIT
BEQ
7578
BEQ
MOV
RTI

#5W9, ISR
S
$ERFLG
33
$LPERR, (SP)

:CHECK_IF LOOP ON ERROR
*NO RETURN
:CHECK IF ERROR OCCURED
*NO, RETURN
:GO’BACK TO BEGINNING OF LOOP
*RETURN

WOR

TSTYY4+2

: STARTING ALORESS OF TEST 44
ADDRESS
RDDRESS
ADORESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST

45
46
47
SO
SI

eT
T
T
T T T T T e T YT I TR Y
"8BTTL LOOP ON INTERNAL ERROR
001000

143630

SCOP1$:

001103

001110

c§:

P REEERERERRERAARRREREERF
RS RERRRR A AR AR REAEE AR ER LR AR AR AL RS

CZR6DBO RKB11 DSKLS CTRL PRTY
02-DEC-77 10:00
CZReDB.P11

MACY11l

30(1046)
02-DEC-7?7
TYPE ERROR ROUTINE

10:20

D10
PAGE

120

SEQ 0120

seg;h }EEE Ennoa ESUTINE

Badt

;RETURN RTS Pé

6449

iTHIQ ROUTINE USES THE “ITEM CONTROL BYTE®” (SITEMB) TO DETERMINE WHICH
;#ERFOR [~ 0 BE PEPORTED. IT THEN USES THE "ERROR TRBLE" (SERRTB)
}
n£ ERABR FFINE WhAT

INFORMATION

TO BE REPORTED CONCERNING

ii:f&iiiiii{&l{iiillilliliiiiill{i!!&ili§§iiii§il§§*§§§iliii}ii

035326

f?PERR SAVREG

104413

$TSTNM. STESTN

;GET TEST NUMBER

BIC
DEC

8177400, RO
RO

‘CLEAR UNUSED BITS
:FORM INDEX FOR ERROR TABLE

ADD

nsERRTe RO

:FORM RDDRESS OF ERROR ENTRY

MOVB

832338 442737

BIC

MOVB

ASL

001300
035404

18:

0ciell
g3su422

2%:
3%

pgolzll

4§ :
c3.

ool211

10%:

11%:
043751

12%:

oolall

13%:

035832
00S704

MOV
BEQ
TYPE
TYPE
LWORD
MOV
BEQ
TYPE
TYPE
.WORD
MOV
BEQ
CLR
MOV
MOV
TYPE
MOVB
G
TST
BEQ
TST
BNE
MOV
TYPOC
DEC

8177400, $TESTN

SITEMB bo

(ROY+, 2%
33
,SCRLF

O
(RO)+,48
S$
,SCRLF
O
(RO)+,R1

aos

;CLEAR UNUSED BITS

'ENTER ERROR NUMBER

‘GET EM POINTER
'BRANCH IF THERE ISN’T ONE
:TYPE CARRIAGE RETURN LINE FEED
:TYPE ERROR MESSAGE (EM)
‘EM_POINTER GuES HERE
'GET DH POINTER
' BRANCH xr THERE ISN'T ONE
:TYPE CR-L
TYPE onTn HEADER
‘DH_PO NTER coes HELRE
:GET OF POIN
:BRANCH IF THERE ARE NONE
‘RESET INOENT SWITCH
:GET DF POINTER
:STORE NUMBER OF DH'S

(RD)+ RO
(RO)+'R2
SCRLF
{RO)+,R3
(RO)+
R3
148
RY
128
J(R1)+,-(SP)

:YES, GO INDENT
JPUT'FIRST DATA WORD ON STACK

BEQ
TYPE
BR
TYPE

R3
133
SPACE2
lis
sanr

: MORE onrn WORDS
: NO-BRANCH
:TYPE SEPARATORS
:LOOP
STYPE <CR><LF>

BEQ

149

CHANGE INDENT

TST

{RO)

:GET 8 STORE NUMBER or DATA WORDS

'BUMP PAST FORMAT
W
:TEST IF ANY DATA ron THIS HEARDER

'NO - SKIP DARTA PRIN

{CHECK IF INDENT uonos

STYPE IT

cnscx IF NEXT HERDER AVAILIBLE
DO NOT CHRNGE INDENT

COM

BLE

20%

NO BRANCH

108
RY

:1F NO HEARDER GET DATA
: INDENT?

148:

DEC

15%:

MOV

BEQ
TST

(RO)+, 18%

ORE DH’S?

:GETNEXT DH POINTER

CZR60BO RKE11
CZR60B.P 11
035522

DSKLS CTRL PRTY
0e-DEC-77 10:00
001402
104401

MRCY11

30(1046)
02-DEC-77
TYPE ERROR ROUTINE

BEQ

TYPE

043751

TYPE

WORD

TYPE

s
s o

e
e fon
e
e Boe

DM NV

o oococoocoog o
[V} vy wn

oolall

035566
035570

035574

0356e2

03s6eH4
035632
035636
035644
035650
035654
035660
035666
035674
035700
035706

035714
035720
035724
035732
035740
035744
035752
035754
035760
035764
036772
035774
036000
036004

036006
036010
036014
03e0le

R
RESREG

003250
010000

143362

000024

003es0

10:20

;DH POINTER GOES HERE

$CRLF

ERRCNT

ggg..snncnr
,RBORT

gggxa,asun

104401

043754

005737
001407
012737
012706
000137
000000

000042

TST

dng

SEOP

RTS

003300
003304
003277
003304
003304
003304
003276

MOV
MOV

309:
2s%:

000207

013737
005037
113737
006237
006237

BEQ

033720

0033CC

003206
003e20

003220
000020

cnécx xr ann THRESHOLD EXCEEDED
TYPE "Paocnnn MRS BEEN ABORTED BECAUSE
:

ERROR THRESHOLD EXCEEDED"

cuscx xr IN CHRIN MODE
HALT

rokcs END OF PASS COUNT TO ONE FOR ABORT
SINITIALIZE STACK

'BRING IN NEXT PROGRAM IN CHAIN

CYLN HEQDER

MOVB

rnncx Hsnosn+3

ASR

ASR
ASR
gIsB

8IS
MOV
MOV
BIC
BIC
BIS
MOV

003220
003206

003207

: INCREMENT ERROR COUNT

cnscx%r
ABORT AFTER 20 ERRORS

MOV

CLR

MOV

HEARDER

: LOOP

INCHDR:

003306
003306

003206
003207
000003

SEOPCT
nsfncv Sp

YPE

GENERATE HERDERS FOR SECTOR,

003304
003304

003206

3os

xuosnr

.SBTTL

003305

000026

SEQ d121

: NO-BRANCH

, SPACE2

gz?s
TYPE

000001
001100
033672

121

17%

INC

Séé

PRAGE

TRACK,

AND CYLINDER INCREMENTS

:LOAD HEADER WORD 1

:CALCULATE HEARDER WORD 2

DER+2

Hsnosn+a
HERDER+2
SECTOR, HEADER+2

#140000, HERDER+2
HEADER, = (SP)
GENERATE XOR
HEADER$2, HEADER+4
HERDER , HEADER+4

HEADER+2, (SP)

(SP)+, HEADER+4
CYLN,E.0CYL
SECTOR,E.DA

: INCREMENT DISK RDDRESS

INCB

£.0R

BNE
CLRB
INCB
CMPB

10%
E.DA
E.DA+]
83 E.DR+1

10%:

CLR
INC
RTS

£.0R
E.DOCYL
PC

.SBTTL

CALCULATE EXPECTED HERDER

CALHDR:

CLR

;CLEAR EXPECTED FIRST WORD

BEG

; CHECK

cCMPB

BNE

MoV

MOV

826,E.DR

10$

E.DCYL,.R1

#16.,R0

: RETURN

:STORE CYLINDER
_IF ZERO

:LOAD SHIFT COUNT

CZR6DB. Pll

036022
036024

DSKLS CTRL PRTH
0e-DEC-77 10:00

MACY11

10:20
02-DEC-77
CALCULARTE EXPECTED HERDER

30(1046)

19:

006101
006003

ROL

v
®

o0}

~No
R

000020

000207

003230

10%:

ROL

15%:

MOV

03e2k2

;LORD_FIRST WORD

(SP)
(SP)
(SP)

E.DR,

:OR IN SECTOR BITS

(SP)

(SPY4,R1

: CHECK FORMAT
= 24 SECTOR

'NO, CALCULATE SECOND WORD
‘Set FORMAT BIT

:CLEAR EXPECTED SECOND WORD

CHECK IF uo D =0

005737
001410
032737
001410
005037
000241
000410
032737
001770
012737
000261
006037
006037
005737
001422
012746
Q43716
042737
052637
012746
043716
042737
0S2e3?
013737

003252

000001

:LGARD SHIFT COUNT

R1
R3
RO

108
R3,E.MR3

:LOAD SECOND WORD
ETURN

Y Y 3222222322222 2232222222222222X22X2X2X2X2Y22
22T
R S

GENERATE ECC WORD

ECCGEN:

TST
BEQ

1%:

CLR

003266

003272

' YES

15%
#16.,R0O

"&8TTL

;CHECK

P1.BIT
33
#1,ECCHI
58
ECCXOR

000001

003266

33:

BIT

000001

003272

Ss:

MOV

7%:

ROR

003270
003266
003272
020020
003270
020020
003270
002400

003266

002400
003266
003e2es

MOV

003c70

003e6t
003234

10%:

ODVDWIIODm
(e
L I Ta T
T o]
<NOONOO

W)
NY pe e e O

0c1000

036160

:GET TRACK AND SECTOR
:CHECK IF TRACK = O AND SECTOR
= O
:CLEAR SECTOR BITS
:CHECK TRACK = 0
SSHIFT HEQD 3 BITS RIGHT

#CFMT E.CS
8%
#BIT3,R!
R3

003200

SEQ dOi22

E.0R, -(SP)
63

003206

122
; CRLCULATE FIRST WORD

7%
8377, (SP)

000377

036146
036150
036154
036156

PRGE

18
R3,E.MR2

003226
003206

010000

F10

R1
R3
RO

:CHECK IF BIT 31

#l,ECCHI

*NO CLERR ECC XORED BIT
:SetECC XOR
:SET cnanv FLOP

19
#1,ECCXOR

Mg
OoOVNOODWY
(@] ]w]
OV~
40 O
Te~dT A—— ——
Pt
O—

CZR60BO RKBLl

CHECKEIF
XOR NEEDED

.-(SP5 bo XOR or ECC ggTs
»

:STORE

11,

ECC

2l.

PRTTERN

036270
03€e276

0e-DEC-77

10:00

042737
000207

174000

938737
B3E305 BoE737 fse

036300

036320

33E358

03&330

836338

036344
036350
036352
036360
036362
03t 366

g0llee
5737
1023
Q42737
8 S?S?
1007
005737
gol4le
052737
000406

005737
001003

023737
001416
Q12737
012737
Ullb4s

MACYL1l

003234

0032eH4
0032e4

002000
0032Se

010200

#174000,E.ECPT

123

SEJ dla3

;MASK UNSEEN BITS

*RETURN

QBTTL

SIMULATE ONE BIT WRITE IN MRINTENCE MODE

WRTBIT:

SIS

8OMD! MEWD' WRTGAT,E.MR1

;gog?re-Pcn-Pco¢,nnxK

SMEWD, E . MR1

003224

:YES

; INITIALIZE

EXPECTED MR1

SIHULR

ONE

cugtxIF PREV%OUS ONE

xnoicnrs TRQNSIT%ON

p1.81t

,c HECK IF NEXT

M2.817

cweéx FOR PRECOHP DELAY

10%

'YES,

CHECK FOR PRECOHP ADVA*E

CLOCK ;N

#PCD,E.MRI

se? PRECOM

5%:

M2.BIT

;CHECK FOR PRECOMP.

10%:

#0MD I MCLK RKnR1<ha) ;CLOCK IN DATA BIT

0C3eceH

108

003164

036450
052773

108
#PCA E.MRI

#DOMD . RKMR] (R2
RKMRI (R2) , T. an
T.MR1,E.MR1
158
n13s $ESCAPE
SEMWE, EMU+2
(SP), ~(SP)

:CLOCK IN ZERO

osan

ADVANCE

:CLOCK IN ZERO
:SET PRECOMPENSATION novnncs

:STORE MR1
:CHECK IF MRl CORRECT
S YES CLOCK IN REST OF BIT
LO
AD ESCAPE
LOAD ERROR MESSAGE
STORE RE TURN

PC
#5439, ISKR

:REPORT ERROR
:CHECK IF LOOP ON ERROR

#MEWD E.MRL

.RESET TRANSITION INDICQTION

T.MR1,E.MRL
188

8178, SESCAPE

SEMWG, EMW+2
(SP) 2(sP)
pC

CHECK IFgnx CORRECT
:YES
:LOAD ES RPE
:LOAD ERROR MESSAGE
:SAVE RETU
*REPORT ERROR

17%:

gggq,asun

:CHECK

001202
000002

18%:

$ESCAPE

003e5e

20%:

002000
000440
000040
000026
003164

36524
036532
036540
036542

036544
053063

036544

001000

005737
001007
005737

PRAGE

20%

Q4000

g36ueY

036566
036572
03ec74

G10

TéiBIT

003260

037012

000207

10:20

; llll!l!il{!ll!l!l!ll!l!!iill!l‘lil!ll!lll!lll!l!!i!iQiif{ifii!i

003260

036460

036564

BIC
TS

003256

13%:

001000

03&500
036506
036514
365ee

02-DEC-77
GENERRTE ECC WORD

30(1046)

003256

1S%:

142366

158
633

*NO, CONTINUE
:GO’LOOP ON ERROR

#OMD' MCLK RKHRI(#E) sCLOCK IN DATA
#0MD RKMR] (R2
Rxnni(na) T. nR1 :STORE MR1

82, (SP)
PC
P1.BIT

308
M1.BIT

IF LOOP ON ERROR

:CLERR ESCAPE

:ADJUST ESCAPE
:RETURN
;CHECK

IF NEXT BIT
A ONE

:YES, CHECK FOR PRECOMP. DELAY
:CHELK FOR PRECOMP. ADVANCE

CZRe0BO Rkell
CIRBDB. Pil

6671
B672
6673
6674

OSKLS

CTRL

PRTY

MACY!1

0e-DEC-77

10:00

036600
036602
036610

001412
052737
000406

004000

003224

83Ee1

8 5737

003256

83665

3666
036666
036674
036676

gol41s
012737

8367Ee 844855
036770

032777

037004
037010

062716
000207

037012
037016
037022

005037
012706
000177

384853

003224
000026
000026
003164
003224

036700
052773

001202
001312

001000

142232

4es:

002000
0oo440

003224
000026

45%:

003164

003224

036770
053063

001202
001312

409%:

142142

001202
0oo0oc2

H10
PRGE

124

SEJ JlaY

IN MAINTENCE MODE

BEQ
BIS
BR

40$

sNO,

TST

s BIT

; CHECK FOR PRECOMP.

BNE
BIS
MOV
MOV
MOV
CMP

BEQ

MOV

8PCA,E.MR]
40$

CHECK

MRI

:SEY PRECOMP ADVANCE
:CHECK MRI
DELAY

$
!NO, CH
sPCC E.MR1
:set PRECOHP osan
80MD! MCLK , RKMR1 (R3) ;CLOCK IN DATA BIT
#OMD RKMR] (R2)
RKMRI (R2), T.MR1 ;STORE MRI1

T MR1, nkx

CHECK IF MR1 CORRECT

E§°S IN REST OF BIT

8428, SESCAPE

1L6AD

#SWT, dSKR
6 33

CHECK IF LOOP ON ERROR
LOOP ERROR
YES

SEMWE, EMW+2
(SP), = (SP)
PC

:LORD ERRORRHESSRGE
;STORE RETU
:REPORT ERROR

SMEWD,E.MR1
INDICQTE A TRANSITION
sOMD! hCLK RKMR1 (R3) ;CLOCK TRANSITION

#0MD RKMR] (R2)
RKHRI(RE) MR1 ;STORE MRl

T.MRI, nhl

YES

sEMIG, EMW+2

Lono

(89) L(sP)
¥SWI, ISWR

47%:

ggcnpe

508:

82, (SP)
PC
SESCARPE
#STACK . SP
JSLPERR

639%:

CHECK xr HRI CORRECT

S0%

#47%, SESCAPE

:LOARD ESCRPE

RROR MESSAGE

EPORT ERROR

CHECKRIE

OOPRggRERROR

LSEo EE 8

"ADJUST RETURN
{RETURN
:CLEAR ESCAPE
:FORCE STACK
:JUMP TO LOOP ADDRESS

NI IR
RN AR RARRRREEEERRRER R RN

037026
037032
037034
037040
037042
037050

O0O00~0»-

éBTTL

037052

O0000

oo,[oads
glantendoatoatoaloalentogtealsals gl ol
NN NN NNNNNNN NINNNN
nn[V e ey e et o S S T Y - |
Nr— OO
NLWN—0OWw

83500

30%:

010000
000440
000040
000026
003164

001000

10:20

SIMULARTE ONE BIT WRITE

000207
032777
001041
Q42737
012762
012762
3?
gl
0e

036756

02-DEC-77

30(1046)

037102

ROBIT:

003254
003256

000440

000026

001440
000040
0og440
000040

000026
000026
000026
000026

5¢:

SIMULARTE ONE BIT OF REARD DARTR IN MAINTENENCE MODE
1518

PR.BIT
10$

CHECK IF ONE
SIMULARTE ONE

M1.BIT
1 éx IF P«EVIOUS ONE
43
TRANSITION
ggMD'MCLK RKflRl(ka)6SERT
30NOT
xgsenr TRANSITION
#DMD
! MCLK ! MERD, RKMR1 (R2)

; INSERT TRANSITION

#OMD RKMR1(R2)'
;CLOCK IN’ ZERO
$OMD! MCLK , RKMR1 (RS
#DMD, RKMR{ (R2)

: RETURN

CZR6DBO RK611 DSKLS CTRL PRTH
CZReDB.P11
Ge-DEC-77 10:00
6727

MACY11l

0000es
000026
0000es
0000es

02-DEC-77

I10

10:20
PRGE 125
SIMULATE ONE BIT OF RERD DARTA IN MAINTENENCE MODE

30(1046)

108:

0l127ee
012762
012762
012?62
000207

00440
000040
001440
000040

27237
2737
o403

000001
000001

037402
037400

‘hTYl:

000001

037402

SATYY:
SATYC:

.SBTTL

MOV
MOV
MOV
MOV
RTS

sDMD!MCLK,RKMR] (R2)

;CLOCK

#0MD . RKMR] (R2)
sDMD I MCLK ' MERD, RKMR1 (R2)

#DMD, RKMR{ (R2)
PC

IN ONE

.RETU RN

APT COMMUNICATIONS ROUTINE

—Or—r

- N00O
~N
W
~N

SATY3:

MOVB
MOvB
BR
MovB

#1,SFFLG

;:JO REPORT FATAL ERROR
;370 TYPE R MESSAGE

#1,8FFLG

;;
7O ONLY REPORT FARTAL ERROR

MOV
MOV

,
- (SP)
RO
Rl -(SP)

; ;PUSH RO ON STACK

7ST8B

037400
000001

001234

000100

001235

000004
000002
ool214

000004

onuawu»-flcwflnm\»—m
n

000000-0O0—00

O —-0000—000—0Ww onNO O

00000~

oocoounnLw
oL

SRI2222222222L22L2IILSLSLISE
2222222 LLSLILRALALS RSS2 S ]

001416

001230

000004
000002
177776
037604

19
RO, SMSGRD

(R&Y+

cs:

cs
$MSGAD,
RO

RO
RO, SMSGLGT

o012l

037312
000004

g;,SHSGTYPE
a4 (SP) . 4%

33:

22, 9(SP)

172776, - (SP)
PC,STYPE

4g:

G%:
109%:

037402

$EFLG
12$
SENV
12%
§MSGTYPE
1i%
J4(SP, SFATAL

001234

001214
000004

119:

00lele
000004

82, 4(3P)
SMSGTYRE

$FFLG
SLFLG
SMFLG

12%:

037400

037401

g
SAPTENV, SENV
33
SENVM
, OOL
#APTSP
33
J4(SP),RO

#2.4(SP)
SMSGTYPE

1%:

001230

001232
000004

SMFLG

$MFLG:
ELFLG:

.BYTE
.BYTE

(SP)+,R1
(5P)+.RO
PC
0
0

; ;PUSH R1_ON STRCK
; s SHOULD TYPE R MESSRGE?
BR
1 1F NOT:
: OPERATING UNDER APT?
BR
IF NOT:
;3
: 'SHOULD SPOOL MESSAGES?
B8R
IF NOT:
;s
:1GET MESSAGE RDDR.
s -BUMP RETURN ADDR.

:SEE IF'BONE W/ LAST XMISSION?

WRIT
IF NOT:
;o
:PUT ADDR IN MAILBOX
::FIND END OF MESSAGE

::SUB START OF MESSAGE
:GET MESSAGE LNGTH IN WORDS
; ;PUT LENGTH IN MARILBOX
;3 TELL APT TO TAKE MSG.
:;PUT MSG ADDR IN JSR LINKAGE
. - BUMP RETURN ADDRESS

. sPUSH 172776 ON STACK
: 1CALL TYPE MACRO

; ; SHOULD REPORT FATAL ERRCR?
5
NOT:
BR

; ; RUNNING UNDER ARPT?
;s IF IF NOT :
BR
P FINISHED LAST MESSAGE?
WRIT
s:IF NOT:
:'GET ERROR 8
. :BUMP RETURN ADDR.

:: TELL APY TO TRKE ERROR

:'CLEAR FATAL FLAG
: 'CLEAR LOG FLAG
: *CLERR MESSAGE FLAG
POP STACK INTO Rl
;i pOP s;ncx INTC RO
UR
; sMESSG. FLAG

; :LOG FLAG

SEQ dlas

CZRSDBO RKE11 D3KLS CTRL PRTY
CZF 60B.PI 1
R2-CceC-77 10:00
037402

MACY11

SFFLG:

000
37404
000200
000001
000100
0ooo4C

J10

APT COMMUNICATIONS R JTINE
02-DEC-77

30(1046)

EYEE

10:20

PAGE

126

::FATAL FLAG

APTS1ZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

.SBTTL

ERROR HANDLER ROUTINE

s IR
RN EER RN R R RS AR A AR R AR AR RARREEREN

iTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND_THE ERROR COUNT,
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

"%AND GO TO TYPERR ON ERROR

"#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

: #SWIS=]
P #SW13=1
: #SW10=1
*ggeg=1
I

037570
037570

104407
105237
00177S
013777
032777

001103
001102
002000

1$:
L
(12
oL

020000
035326

go1211

122737
001007
113737
004737
000
000
000777
005777
100002
000000
104407
032777

000001

001234

Q01114
037154

037524

022737

CKSWR

218:

22%:
2%

141404

141370

38:

; ;ERROR=EMT AND N=ERROR ITEM NUMBER
s TEST FOR CHANGE IN SOFT-SWR

INCB

$ERFLG

MOV

STSTNM, aoxsanY :'DISPLAY TEST NUMBER AND ERROR FLAG

BEQ

TYPE
INC

285

$BELL

,,RI
NG BELL

(sp)gERch

:GET ADDRESS OF ERROR INSTRUCTION

ERTTL

JSR

PC, TYPERR

CMPB
BNE

#APTENV, SENV
2%

.BYTE
'BYTE

O
O

MOVB
JSR

BR
757
BPL
HALT
CKSWR
BIT
BEG

'DON’T LET THE FLAG GO TO ZERO

,,BELL ON ERROR?

asERRPc $ITEMB

TYPE

i SET THE ERROR FLAG

#B1T710, aSKR

MOVB
BIT
BNE
208

104401

001000

ERROR

BIT

001204
gol1le

go1402
013716

]

$ERROR:

037404
037404
037406
037412
037414
037422
037430
037432
037436
037442
B37446
037454
037462
037470
037472
037476
037502
037502

-00
£L00

oo
oM OEOOEmOIM
DU 0 b= bt st e Pt bt e P
OowuDmNCN LWh-

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

#BIT13, 3SUR
208
L SCRLF

NO - sxx

:COUNT THE NUMBER OF ERRORS

;;STRIP AND SAVE THE ERROR ITEM CODE

:SKIP TYPEOUT IF SET
,,sxxp TYPEOQUTS

::G0 TO USER ERROR ROUTMINE
,,RUNNING IN APT MODE
:NO,SKIP APT ERROR REPORT

SITEMB,21%
PC, SATYY

SEY ITEM NUMBER AS ERROR NUMBER
,,REPORT FATAL ERROR TO APT

228
FSWR
33

: :APT _ERROR LOOP
P'HALT ON ERROR

#BIT09, ISWR
4§

1:SKIP IF CONTINUE
:'HALT ON ERROR!®
::TEST FOR CHANGE IN SOFT-SWR
,,LOOP ON ERROR SWITCH SET?
:BR IF NO

001110
001202

4§:

MOV
TST

$LPERR, (SP)
$ESCAPE

:FUDGE RETURN FOR LOOPING
,,cuecx FOR AN ESCAPE RDDRESS

001202

MOV

$ESCAPE, (SP)

' 'FUDGE RETURN ADDRESS FOR ESCAPE

$SENDAD, 3842

::ACT-11 AUTO-ACCEPT"

034062

000042

BEG
CMP

c§

"BR_IF NONE

SEQ 0126

CZR6DBO RKb11 DSKLS CTRL PRTY
CZR6DB.P11
02-DEC-77 10:00

6839
e840

037576
037600

001001
000000

ggzg

037602

000002

e84l

037602

MACY1l 30(1046)
02-DEC-77
10:20
ERROR HANDLER ROUTINE

BNE
HALT

6S:

Eg:g

s S

RTI

.SBTTL

6846

PRGE 127

SEQ 0127

; s BRANCH IF NO
;s YES

; RETURN

TYPE ROUTINE

I3 30206 3 30 30 06 06 3 3 36 06 3 4% 36 36 36 3 3 303 30 38 3 36 6 3 3 3 3 3 36 3 3 36 3 96 3% 3 3 3 36 3 3% 36 3 36 3 06 30 36 3% 3 3 3 3 3%

6847
6848
6849
6850
ggéé

‘ROUTINE TO TYPE RSCIZ MESSRGE MESSARGE MUST TERMINATE HITH A O BYTE.
;¥ THE ROUTINE WILL INSERT
A NUMBER OF NULL CHARACTERS RFTERR LINE FEED.
: #NOTEL
SNULL CONTRINS THE CHARACTER TO BE USED RS THE FILLER CHARACTER.
!NOTEE
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
:NOTE3
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

6853
6854

; #CAL
,*1) USING R TRAP INSTRUCTION

Eggg

TYPE

®
L

TYPE
MESADR

$TYPE:

18:

,‘l

6857
6858

; sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TSTB
BPL

STPFLG
13

,,IS THERE A TERMINAL?
; BR IF YES

RG,-(SP)
a2lsP), R0
$APTENY, SENV

,,SQ E RO
;GET ADDRESS OF ASCIZ STRING
,,RUNNING IN APT MODE

RPTSPOOL,SENVM; 1 SPOOL MESSAGE TO APT

6861
6862

037604
037610

105737
100002

6865
6866
6867

037616
037620
037624

010046
017600
122737

000002
000001

001234

MOV
MOV
cMPB

6869

037634

132737

000100

00123S

BITB

6871
6872

037644
037650

010037
004737

037654
037144

6868

6870
6873
6874
6875

037632

001011

037642

001405

037654
037656
037664

000000
132737
001003

o
ss Lo
6878 037672 005726
6879

037674

e881

037702

6883

037710

001430

6885
6886

037716
037720

001006
005726

6888

037724

001211

6891

037734

004737

6833
6894

037744
037746

001350
013746

6880
6882
6884

6887

6892

012600

001157

, MESRDR

000040

037676

062716

000002

037704

122716

000011

122716

000200

037712

037722

037740

000002

001235

BNE

bl%:
6&2%:

60%:

33:
4%:

123726

BEQ

623

.WORD
BITB
BNE

O
$APTCSUP, SENVM
60%

MOV
JSR

RO,618
PC,SATY3

001154

S%:

6%:

; s MESSAGE ADDRESS
,,RPT CONSOLE SUPPRESSED
YES,SKIP TYPE OUT

RDD

82, (SP)

(SP)+,RO

; sRESTORE RO

CMPB

#HT, (SP)

:IBRANCH IF <HD>

8CRLF, (SP)

; ;BRANCH IF NOT <CRLF>

MOV
RTI

BEQ

BNE
IST

S$
(SP)+

SCRLF

0011%5

NO,GO CHECK FOR CONSOLE

SETUP MESSAGE RDDRESS FOR APT
,.SPOOL MESSAGE TO RPT

Do
(SP)+

TYPE

040016

NO, GO CHECK FOR APT CONSOLE

g
TST
cMPB

10440l

623

g IF_TERMINATOR
bR POPT etIT OFF
peTHEa0STARCKSThos

,,QOJUST RETURN PC
URN

;3POP_
<CR><LF> EQUIV
;3 TYPE R CR AND LF

JSR

PC,STYPEC

::GO TYPE THIS CHARACTER

BNE
MOV

s
$NULL,-(SP}

,,IF NO GO GET NEXT CHA
;GET # OF FILLER CHQRS "NEEDED

CcMPB

$FILLC, (SPy+

;;IS IT TIME FOR FILLER CHARS. "

037752
oaz;sg

83%72u

037770

DSKLS CTRL PRTH
02-DEC-?7 10:00
105366
002770
084?3?
105337
000770

30(1046)
02-DEC-77
TYPE ROUTINE

4 H

000001

DecCB
BLT

bECa

WIS

Pt Pt
Pt Pt Pt Pt Pt P
P

WD
N £ W—

oooooocooo
DD
D DO DD D

D37772
037776
040002
040010
040012

£320

Q40014
040016
040022

040062
040064

112716
004737
132737
001372
005726
000724
105777
100375
116677
122766
001003
105037
000406
122766

108235

000040
040016
000007

B8%:
o40062

000000
000207

CHAR

; ;LOOP

::00 NOT counr as A COUNT

(SP)

; ;REPLACE_TAB WITH SPACE

87, SCHARCNT

:TYPE A SPACE
} 1BRANCH IF NOT AT

(SP)+

,,POP SPACE OFF STACK

23
a3TPS
$STYPEC
2(SP) d%TPB

#CR,2lSP)

scunacnr
$TYPEX

CMPB

B
I
$CHARCNT:
. WORD
$TYPEX: RTS
.SBTTL

THE NULL

*'DOES
AR NULL NEEC 7O BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
1160 TYPE
A

9’

19%:

SEQ 0128

;AN

pc.$TYPEC

141120
0ooo0e

000002

128

1(SP)
6%
PC,$TYPEC

8’

MovB

JSR

o40062
oooole

PAGE

TRB PROCESSOR

STYPEC:

141126

000002
000015

9%:

L10

SCHARCN

;HORIZONTAL

10:20

#LF,

22T

STOP

'GET NEXT CHARACTER

"'WAIT UNTIL PRINTER IS READY
;;LOAD CHAR TO BE TYPED INTO DATA REG.
; ;1S CHARACTER A CARRIAGE RETURN?
; s BRANCH IF NO
,,E;?;-CLEQR CHRRACTER COUNT

H BRQN? IF YES
; COUNT
THE CHARACTER

(PC)+

,,CHQRRCTER COUNT STORAGE

BINARY TO OCTAL

:TAB

,,IS CHARACTER A LINE FEED”?

2(SP)

STYPEX
=]

CZR6DBO RKB1l

CZR60B.P 11

MACY11

(RSCII)

AND TYPE

ITITEITLTSTZTZZL IS LL 22

S ST 2L 2T 22 S bhdhobotdedolardobabobadadoded

lTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO R 6-DIGIT

:%#)CTAL (ASCII) NUMBER_AND TYPE IT
*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

iy
!

*
*
’
*
l
l

s’ %
’
l
!

MOV

TYPOS
.BYTE
.BYTE

; s NUMBER TO_BE _TYPED
!CALL FOR TYPEOUT

NUM,
- (SP)

.,N-l 70 6 FOR NUMBER OF DIGITS TO TYPE

N
M

;M=1

OR 0
;
=TYPE LEADING ZEROS

0 SUPPRESS LERDING ZEROS

»*
»

#$TYPON~----ENTER HERE TO TYPE OUT WITH THE SRME PARAMETERS RS THE LAST

*$TYPOS OR $TYPOC
®CALL:
!
*
MOV
NUM, - (SP)
'
*
TYPON
'
'

!
,
!
!

0400e6
g40072
g4c1i00

017646
116637
112637

009
00c0o01
04C313

*STYPOC---ENTER HERE FOR

*CALL

ETYPOS:

; ;NUMBER TO _BE TYPED
; ;CALL FOR TYPEOUT
TYPEOUT OF A

MOV

NUM, - (SP)

MOV
MOVB
MOVB

3(SP),-(SP}
1(SP).SOFILL
(SP)+, $OMODE +1

TYPOC

16 BIT NUMBER

; s NUMBER TO BE TYPED
; sCALL FOR TYPEOUT

PICKUP THE
MODE
I7T
;
RD ZERO F IL % SWITCH
_,,NUMBER OF D IGITS TO TYPE

CZRo0BO RKE11 DSKLS CTRL PRTM
CZR6D8B.P11
0e-DEC-77 10:00

84817

MARCYL11

AQD

000002

000001
000006
00000S

040311
040313
040310

$TYPOC:

2%:

3%:

040312
177770

86, SOMODE+1

MOVE

Yg:

S%:

040310

d ¥

6%:
COooOoOo4

8%:
$OCNT:
$OFILL:
$OMODE:

.SBTTL

81,80FILL

SEQ 0129

; s ADJUST RETURN ADDRESS

,,SET THE ZERO FILL SWITCH
;SET FOR SIX(6) DIGITS

85, SOCNT

,,SET THE ITERATION COUNT

NEG
ADD
MOY

sofiooe+x RY

,,GET THE NUMBER OF DIGITS TO TYPE

:s RY
RY . $OMODE

,,SRVE IT F

MOV

12(SP)| RS

{PICKUP_THE INPUT NUMBER
,,CLERR THE OUTPUT WORD

MOV
MOV
MOV

R3'-(SP)
RY.-(5P)
RS’ -(SP)

CLR
ROL

BR
ROL
ROL
ROL
MOV
ROL

SOFILL, RY
R3
RS

SRVE S

SUBTRRCT IT FOR MRX.

;GET THE 2 RO

,,28
ATE MSB

INTO *“C”

3%
RS
RS
RS
RS, R3
R3

;;GET LSB OF THIS DIGIT

,,FORH THIS DIGIT

,,TYP TH&S DIG
; +BR

;gmoos
#177770,R3

,,GET RID OF JUNK

TST

,,SUPPRESS THIS 0°

MOVB
TYPE

R3, 8%
g4

8GT
BLT
INC
8R
MOV

2%
63
RY
23
(5P)+,RS

R_TYPING
; ; SAVE
;; GO0 TYPE THIS DIGIT
;s COUNT
BY |
,,BR IF MORE TO DO
;BR IF DONE

BEQ
INC
BIS
B1S

DECB

MOV
MOV
MOV
MOV
RTI
.BYTE
‘BYTE
.BYTE
.BYTE
. .WOR WORD

4§

5%
RY
$'0,R3
%'
R3

$§OCNT

ALLOWED

ILL SWITCH

DECB
8PL
BIC
BNE

000060
000040

000002

MOY

MOV

1$:

(SP)

MOVB

000006
Q4031e
040311
ooo01e

82,

STYPON: MOVB

040313

040256
040260
o40262
g40264
040266
040270
040272
Q40274
040302
040304
040306
040307
040310
040311
g40312

M10

10:20
PRAGE 129
02-DEC~77
BINARY TO OCTAL (ASCII) WND TYPE

30(1046)

; TEST FOR O

;;BR IF YES
,,DON T_SUPPRESS _ANYMORE 0’S
;MAKE THIS DIGIT ASCII

} S MAKE ?SCII IF NOT RLREARDY

,,INSURE LRST OIGIT ISN’T A BLANK
;

REST RE

DIGIT

(SP)+.RY
(SP)+.R3
2(SP).4(SP)
(SP)+, (SP)

RESTORE RH
,,RES RE R3

O
O
O
O
0

,,STORRGE FOR _ASCII DIGIT

; ;SET THE STACK FOR RETURNING
RETURN

; TERMINARTOR FOR TYPE ROUTINE

:i0CTAL DIGIT COUNTER

,,ZERO FILL SWIT
MBER OF OIGITS TO TYPE

CONVERT BINARY TO DECIMRC QND TYPE ROUTINE

li*il*l!!l*!!!&!*!li!l**l!*ill!!lllillllll!l**llill!l**lllli**!

iTHIs ROUTINE IS USED TO CHANGE
R 16-BIT BINARY NUMBER TO
R S-DIGIT

;%¥STGNED DECIMAL (RSCII) NUMBER RND TYPE IT. DEPENDING ON WHETHER THE
: ¥NUMBER IS POSITIVE OR_NEGATIVE
R SPACE OR_A MINUS SIGN WILL BE TYPED

:¥BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

CZR6EDBO RKEG11 DSKLS CTRL PRT4
02-DEC-77 10:00
CZReDB.P11

N1O

MACY1l 30(1046) 02-DEC-77 10:20 PRGE 130
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

7007

; SREPLACED WITH SPACES.

7009
;8{?

:
:

7008

7012

040314

7013
7014
7015
7016
7017

040314
040316
040320
040322
040324

010046
010146
010246
010346
010546

7019
7020
7021
7022
7023
7024

040332
040336
040340
040342
040350
040352

016605
100004
0O0S40S
112766
005000
012703

7028
7029

040370
040372

7018

040326

012746

%CALL:

$TYPDS:

020200
0000SS

MOV
TYPDS

NUM, - (SP)

:sPUT_THE BINARY NUMBER ON THE STRCK
:1GO TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV

RO, - (SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
RS’ -(5P)

:;PUSH
:'PUSH
:1PUSH
' *PUSH
:'PUSH

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) RS
13
RS
8’ -,1(SP)

::GET THE INPUT NUMBER
::BR IF INPUT IS POS.
:'MAKE THE BINARY NUMBER POS.
:'MAKE THE ASCII NUMBER NEG.
:1ZERO THE CONSTANTS INDEX
:'SETUP THE OUTPUT POINTER

MOV

000020

000001

040530

13:

SEQ 0130

820200, -(SP)

#SDBLK,R3

RO
R1
R2
R3
RS

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STRCK

:'SET BLANK SWITCH AND SIGN

nove

&L . (R

C- 10 A BLANK
THE EIRR] RbMBeR
1i2ET

3%:

8:83;:

160105
002402

gggggs

SuB
BLT

égc

R1,RS
4g

: 'FORM THIS BCD DIGIT
‘'BR IF DONE

7022
7033
7034

040400
040402
040404

060105
005702
001002

4§ :

ADD
TST
BNE

R1,RS
R2
S

: sADD BACK THE CONSTANT
: *CHECK IF BCD DIGIT=0
:'FALL THROUGH IF O

7036

040410

100407

BMI

:'BR IF YES

BCC
MOVB

6%
1(SP),-1(R3)

:'BR_IF _NO
YES--SET THE SIGN

B1S

8’ . R2

:MAKE IT A SPACL IF NOT_ALRERDY A DIGIT

2058 Duojes obepes 00000
7027 040364 016001 040520

;gg?

7035

7037

7038
7039

7040
7041

040406

040412

040414
040416

040424

040430

105716

TST8B

106316

S%:

103003
116663

000001

052702

000040

052702

000060

177777

040444
040446
040450
040452

0027496
003002
010502
000764

040466
040470
040472
Q40474

105013
012605
012603
012602

040500

012600

;ggg
7051

gggggz
040460

7056

040476

7052
7063
7054
7055
7057

7058

70569

7060

70El

7062

040502

igggsg
116663

104401

016666

040516

000002

040520

8%:

177777

177776

3%:

012601

(040506
040514

6%:

7%:

2935
Buou3e bbe553
7044 Q40440 020027 000010
7045
7046
7047
7048

012616
023420

MOV

040530

000002

ASLB

BIS

nove
CHMP

(SP)

#'0,Re

: * INCRERSE THE BCD DIGIT BY |

::STILL DOING LEADING 0’S?
i

: 'MRKE THE BCD DTGIT ASCII

T
R R e, [N THE OUTPUT BUFFER
'!CHECK THE TABLE INDEX

ggle

égp’*

;;NRSI;HEOLSD THE FIRST NON-ZERO?

MOVB

“1(SP),-2(R3)

::YES--SET_THE SIGN FOR TYPING

MOV

(SP)+ . RI

'POP STACK INTO Rl

$DBLK

P NOW TYPE THE NUMBER

BLT
BGT
MOV
BR

CLRB
MOV
MOV
MOV

TYPC

MOV

$DTBL:

(SP)

:'GET THE CONSTANT

REatR3
RO, #10

MOV

000004

$DTBL (RO),RI

RTI

10000

23
g%
RS, R2
X

(R3)
(SP)+,RS
(SP)+,R3
(SP)+.R2
(5P)+'RO

2(SP),Y4(SP)
(SP)+. (SP)

;G0 DO THE NEXT DIGIT
11G0 TO EXIT
::GET THE LSD
;GO CHANGE TO RSCII

PISET
: 'POP
:'POP
: 1POP

THE TERMINATOR
STACK INTO RS
STACK INTO R3
STACK INTO R2

: 'POP STACK INTO RO

:'ADJUST THE STACK
; sRETURN TO USER

CZR6DBO RKBL1 DSKLS CTRL PRT4
CZR60B.P11
0e-DEC-77 10:00
7063
7064
7065
7066

;ggg

040522
040524
0405e6
040530

Bll

MACY1l 30(1046)
02-DEC-77
10:20
PAGE 131
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

001750
Q00144
000012
000004

SDBLK:

_SBTTL

7069

7670

7071

7072
7073
7079
7075
7076
7077

1000.
100.
10.
.BL Kid

040540

040542
040544
040546

LSB

000000

$TKCNT:

Q40547
040550

$TKQEND=.
_EVEN

000000
000000
000001

.WORD

STKQIN: .WORD
$TKQOUT: .WORD
§TKQSRT: .BLKB

7078

;#TK

;88?

"%GETUP THE

. :NUMBER OF ITEMS IN QUEUE

O
O
1

L INPUT POINTER
:1QUTPUT POINTER
1'TTY KEYBOARD GUEUE

INITIALIZE ROUTINE

)

*#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

7082

%#CALL
:

7083
;ggg

D e
¥

040550

00S037

040540

7088
7089
7090

040562
040570
040576

013737
012737
012737

040542
040620
000200

040544
000060
000062

MOV
MOV
MOV

7092
;833

040610
040616

012777
000207

000100

140326

MOV
RTS

040554

040604

012737

005777

040546

140336

04OSH2

INTERRUPT VECTOR AND TURN ON THE KEYBOARD

JSR
RETURN

7086

7081

TTY INPUT ROUTINE

S ERERRERERRRRRRERE
2 R RERERRR R AR R R RS RN RN
RABRERF R R AL AR SRS RRRRES

"ENARBL

7079

7087

SEQ 013!

§TKINT: CLR

MOV

TST

PC,STKINT

$TKCNT

#STKQSRT,STKQIN

; sCLEAR _COUNT OF ITEMS IN QUEUE

::MOVE THE STARTING ADDRESS OF THE

STKQIN, $tKQOUT ::QUEUE INTO THE INPUT 8 OUTPUT PGINTERS.
#STKSRY, a8 TKVEC :; INITIALIZE THE KEYBOARD VECTOR
8200, astKVEC+2 ;:"BR” LEVEL 4

JSTKA

8100, 3$TKS
PC

! 'ENABLE TTY KEYBOARD INTERRUPT
:'RETURN TO CALLER

: #TK

7087

¥BY RERDING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING

"¥THIS ROUTINE WILL

7038

"#]17

7099

*%IF

;{89

7102

7103
7104

7105
7106

7107
7108

040620

040624
040630

040634
040636

117746

042716
021627

THE

001007
104401

140322

$§TKSRV: MoOvB

041734

BNE
TYPE

177600
000003

004737
005726

040550

7110
7111
7112

040654
040660
040662

000007

040670

021627
0061004
022737

001500

7115
7116
7117
7118

Q40672
040672
040700
(040702

022737
001004
104401

;{ia

QUELE.

THE CHRRACTER

SERVICE THE

TTY KEYBOARD

IS R "CONTROL-C”

($C}

INTERRUPT

STKINT

IS CALLED AND

*%UFON RETURN EXIT IS MADE TO THE “CONTROL-C* RESTART ADDRESS

040642
040646

7109

ROUTINE

: 'CLEAR DONE FLAG

7095

7086

SERVICE

INTERRUPT

040650

000137

BIC
CMP

034570

18:

000176

001140

000001

040540

001204

; sPICKUP_ THE CHARACTER

$1C177. (SP)
(SP), 83

P'STRIP THE JUNK
1S IT A CONTROL C?

JSR
15T

AC, STKINT
(SP)+

PYINIT THE KEYBOARD
P 'CLEAN UP STACK

CMP
BNE
CMP

(SP), %7
23
#SWREG, SKR

22 IS IT A CONTROL G”
: 'BRANCH IF NO
;1S SOFT-SWR SELECTED?

11GO0 TO SWR CHANGE

CMP
BNE
TVPE

#1,STKCNT
33
,SBELL

::1S THE QUEUE
:'BRANCH IF NO
:'RING THE TTY

JMP

BEQ
2%:

J$TKB, - (SP)
13
$CNTLC

CTRHLT

:'BRANCH IF NO
2:TYPE A CONTROL-C

(tC)

: :CONTROL C RESTART

FULL?

BELL

(CTRHLT)

CZR6EDBO RKB11 DSKLS CTRL PRTY

SN N NINTN NN NN N NNN NN NN NN NN NN N NN NN NN NN N NINN NININ

N NNININ
NN

NI SNININININN

NNNNNCC
=
R TR T O T NN NANNNNNN L E £ LLL£ELEL£ £ EEE
L £ TWWWWWWWWWWHINNMNVU
LD 000 W W@ NN NN
RN RO
n
—
Iwka\Dm\lU‘mLMNHD\DQVU‘MIMND—DJQ\IU‘mIMN*‘D\Dm‘JO‘U\IQN'—‘O;D%VU‘UT'ESNSBS

C2REDB. P11

040706
040710
040712
040716
040720
040724

090733

o407
040734

040740
ON0?4M

84 7
407

02-DEC-77 10:00

005726
0004S
02127
001021
005077
005726

106777

100375
117746

042716
022627
01;99
ie

TTY INPUT ROUTINE

3%:

000023

140220

318:

140212
140206

4054
038360 002003
80814
881537
8«07
040772 002405

140164

o40774
041000
O41002

021627
003062
042716

000175

041016
041024
U41026

023727
001003
012737

040542

040547

040S46

040542

041006
041012
041034

112677
005237
000002

000040

177530
040542

32%:

4g:

5%
S

10:20

Cll

SEQ 0132

PAGE 132

: ;CLEAN CHARACTER OFF OF STACK
DEXIT

(SP)+
S3

757
BR

(5P), 822
323
J3TKS
(SP)+

PIS IT A CONTROL-S?
: 'BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
: :CLEAN CHAR OFF STACK

BPL
MOVB

31%
J$TKB, - (SP)

P1LOOP UNTIL ITS THERE
::GET THE CHARACTER

BNE
MOV

31s
#100, 38TKS

'BRANCH IF _NO
:
! 'REENABLE TTY KEYBOARD INTERRUPTS

cHP
BNE
CLR
7ST

1578

BIC
CHP

177600
000021
000100

02-DEC-77

MACY1l 30(1046)

JSTRS

#1C17% (5P)
(SP)+, k21

iMAKE_IT 7-BIT ASCII
2115 IT A CONTROL-G?

CHARACTER
;;RE63¥NTH
cnssg
UPAER
1T
5;?8
: BRANCH IF YES

STKCNT
(SP), #140
4s

?LI
o}
BLT

*'WAIT FOR A CHAR

::1S IT A SPECIAL CHAR?
: :BRANCH IF YES
PIMAKE 1T ¥PP§R CRSE

CMP
BGT
BIC

(SP), 8175
43
#40. (SP)

CMP
BNE
MOV

STKQIN, #STKQEND ;:GO OFF THE END?
: 'BRANCH_IF NO
_
3
#STKQSRT,$TKQIN ::RESET THE POINTER

MOVB
INC

(SPY+ @STKQIN
STKQIN

:AND PUT IT IN QUEUE
:UPDATE THE POINTER
! RETURN

RTI

EAEEEENIE RN

:kSOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;!ROUTINE 45 ENTERE?

THE TEST

; #SERVICE
041036

041044
041046
o410S2
g41054

041060
041064
041070

022737

001124
105777
100121
117746

042716
021627
001300

000176

001140

140072
140066

R AR AR RRRHRNRAR

AND WILL

SWITCH REGISTER TRAP

- #CALL WHEN OPERATING IN TTY INTERRUPT MODE

$CKSWR: CMP

#SWREG, SWR

;1S _THE SOFT-SWR SELECTED

#1C177 (5P)
(SP), #?

;;MRKE IT ?7-BIT RSCII
;;1S IT_A CONTROL-G?

BNE
7578
BPL
MovB

159
I3 TKS
15%
a3TKB, - (5P)

BNE

BIC
CMP

177600
000007

FROM THE TRAP HANDLER,

FOR CHANGE IN SOF TWAR

Yy ey

s sEXIT IF NOT
;3 IS A CHAR WAITING?
IF_NOT, EXIT
;i
;s YES

IF_ NOT,

P1AND ExtT

PUT IT IN THE TTY QUEUE

Attt ettt it bttt s

*kCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
*¥ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS R RESULT OF A

Q41072

123727

041100
Q41102
O41104
Q41110
O41114

001674
005726
004737
005077
112737

Q41122
D41l26

104401
104401

041132

013746

001134

000001

040550
140030
000001

001135

041746
041753

000176

; #CONTROL -G BEINGQTYPED AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
; ;ARE WE RUNNING IN RUTO-MODE?
k1
SAUTOB,
CMPB
6%
BEQ
751
JSR
CLR
MOovB

TYPE
$GTSWR: TYPE

MOV

23
(SP)+
PC,STXINT
J$TKS
81,5INTAG

; ;BRANCH IF YES
; ;CLEAR CONTROL-G QOFF STACK
;3FLUSH THE TTY INPUT QUEUE
; s DISRBLE TTY KEYBOARD INTERRUPTS
;;SET INTERRUPT MODE INDICATOR

, SCNTLG
$MSWR

:;ECHO THE CONTROL-G (tG)
;s TYPE CURRENT CONTENTS

SWREG, - (SP)

; ;SAVE SWREG FOR TYPEOUT

T230

3+ THE

041734
000006
001135

888155 885458

CMPB

00c00l

137722

8%:

SINTAG,
81

JMP

ESE

o] 0, a$TKS
C+8Hfl?

99:

041741
000006

CMP
BNE

(SP), 825
10%

20%:

ADD
BR

ke sP
198

000015

10%:

CMP
BNE

(SP), 815
169

000100

137626

L
1]

000001

137650

000002
000006
001211
001135

000060
000002

BNE
MOV

15%
#100, 38TKS

TYPE
CMPB

RTI

.DSABL

$LRLF
$INTRG,
81

JSR

PC,$TYPEC

BLTY

18%

CHP

(SP), 860

(SP), 867
189
%60, (SP)+

TST

2(sh)

ASL
ASL
INC

(SP)
(SP)
2(SP)

B8R

BIS

18%:

4(SP)

118
2(5P), 3SR
%6, SP

BEG
ASL

000002
177776

$§CNTLU

BEQ
MOV
ADD

CHP
BGT
8IC

000067

001210

TYPE

TST

000004

040016
000060

104401
000720

- (SP)

#1C17?, (SP)

0000eS

on
L1

06270
12372
001003

TYPE
BR
LSB

178
(SP)

-2(SP), (SP)
$QUES

208

FOR NEW SWR

NEW SUWR

; ; CHAR THERE”?
IF NOT TRY RGAIN
++

(SP), #3
s
SCNTLC
SP

NE
YPE
ADD

SEQ 0133

; ;PROMPT

CMP

BIC

——

00 0 ()
) () L L) () W
() G W) W W)
NN N
O
£ £ WW W
— —
oo Lo
LNO Lo NNO L0000

d$TKS
78

133

; sCLERR COUNTER

-(SP)
-(5P)

1STB
BPL

PAGE

;60 TYPE--OCTAL RASCII(ALL OIGITS,

000003

021627
0010e2
005766
001403
016677
062706
104401
123727
00100;
01277

[Srary —

137770

CLR
CLR

D11l

, SMNEW

ASTKB,

041246

Bt Pt Pt Pt Pt Pt Pt et Pt et st Pt Pt et Pt ot P

19%:

TYPOC
TYPE

10:20

MOVB

021627
00100S
104401
062706
000737

NINININ

e
AUAYAHLY]
Do

—~——

041764

30(1046)
02-DEC-77
TTY INPUT ROUTINE

137764
177600

041226
Q41232
041234
Q41240
O4l1244

0000000000000 00000
FXFELFfIFLETEELTLELI
L

NN NN NNNNN
nnn oo
rorufny PUNY 0= e b b pa
Lwn —~OwooNon
L
!

MACY11l

172746

rory n PR
b—
U~ — QOONNe
L n O£V

e e
s b b b

L
L LW
£O0C L0000

oMY
PO

000000
LLr&rxg

42716

QO
£L£

104402
104401
005046
005046
105777
100378

041306

72es

DSKLS CTRL PRTH
02-DEC-77 10:00

021627
081015

=
@) o 00000
£r £ LfLrLfrL
L

o e
e
e
e
e Pt
e Bt Bt Be
e B
st bt s
e s
e
e
e
e e
e

—

D D ND DO NOW0 DO DDA I~ IN)
Vol NN LW
OO0
NN L WHho— 0O 000N

~N SINN ANININITNIN NNSNENIN
N NN NI NI NN
N

CZRBDBO RKkE11
CZR&0B P11

:;PICK UP CHAR
:3MAKE

IT 7-BIT ASCII

::1S IT A CONTROL-C?
: 'BRANCH IF NOT
11YES,

ECHO CONTROL-C

: 'CLEAN UP ?TRCK

($C)

! 'REENABLE
TTY KEYBOARD
T
o
iBRANCH TP N0

: 186k PHol T¢ KELFRRTC

INTERRUPTS?

INTERRY

;1S IT A CONTROL-U?

. 'BRANCH IF NOT
*1YES,
ECHO CONTROL-U

(tU)

. ' IGNORE PREVIOUS INPUT
*:LET'S TRY

IT AGRIN

;:IS IT A «<CR»?
; s BRANCH IF NO
;3 YES, IS IT THE FIRST CHRR?

' 'BRANCH_IF YES

; ; SAVE NEW SWR
; ;CLEAR UP STACK
; ;ECHO <CR> AND <LF>
:;RE-ENRBLE TTY KBD INTERRUPTS”
; s BRANCH _IF NOT
; ;RE-ENRBLE TTY KBD INTERRUPTS
; s RETURN
;;CHAR < 07
; s BRANCH IF YES
;;CHAR » 72
; ;BRANCH IF YES
; ; STRIP-OFF ASCII
IS THIS THE FIRST CHAR
;3
; ; BRANCH
IF YSS
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
i
; ; KEEP COUNT OF CHAR

; :SET IN NEW CHAR

; ;GET THE NEXT ONE
s TYPE

?2<CR><LF>

:;SIMULATE CONTROL-U

CZR60DBO RKE11 DSKLS CTRL PRTH

CZREDB.P11

02-DEC-77 10:00

MACY1l 30(1046)

02-DEC-77

TTY INPUT ROUTINE

7231

BB RERAR RN

7e3e

10:20

Ell

PAGE 134

SEQ 0134

E R RS ER B RRE AR B RN AR RN

SRR R BB AR RN RBRRRRRRR R R R R R

3333

‘EE{E ROUTINE WILL INPLT A SINGLE CHARACTER FROM THE TTY

7235

RDCHR

SROCHR:

MOV

ta
¥

7236
7237
740

041400

011646

7242
7243
7244

DO41410
041414
041416

00SO66
DOS046
012746

7246

041424

741 041402 016666
7245

7247
7248

7249

Q41422

005737

040540

(041432

005337

040540

041430

041436
041444
041450

7255
7256

041466

041456

001775

117766
005237
023727
001003

B4S:

18:

000002

INC

BNE

MOV

STKQOU

041470

010346

RANCH IF NO

RTI
h lllillllllillllillllili!lfll
llili{»llil!!lillii‘i!!lll
INIll!lllllll
WILL INPUT AR STRING FROM THE TTY

2s:

;3 INPUT A STRING FROM THE TTY
:ADDRESS OF FIRST CHQRQCTER WILL BE ON THE STACK

041724
041734

1$:
2%

OSTTYIN R3
sSTTYIN'B. .R3

000177

108:

041524

112737

000134
177777

041522

041532

061022
001007
104401

041722

0415836

012716

7278
7279

041544
041550

020327
103434

041724

041556
041562
(041564

104401
000746
005716

041722

041570

112737

Q41582

041566
0O41S7e

005303

111337

001406
104401

CLR
MOV
cMP
BLOS
ROCHR
MOVB

CMPB

041722

BNE

000134

041722

SAVE R3

IGET cunnnc ER

,,Is ITA RUBOUT
'BR IF NO

,,xs THIS THE FIRST RUBOUT”

$'\,9%

' 'TYPE A BACK SLASH

k-1, (sP)

:sSET THE RUBOUT KEY

CMP
BLO

R3, #STTYIN
4g

:'STACK EMPTY?
,,BR IF YES

TYPE
BR
TS7T

ET3
$
(5P)

:GO0 TYPE
,,co READ ANOTHER CHAR.
,,RUBOUT KEY SET
R IF NO
:TYPE A BACK SLASH

MOV

DEC

MOVB

5$:

'CLEAR THE RUBOUT KEY
‘GET ADDRESS
..BUFFER FULL?
!BR IF YES
.,co RERD ONE CHARACTER FROM THE TTY

(SP)

TYPE

041722

(SP)+, (R3)

$177,IR3)

c§

MOVB
6%:

<sp)

BNE

TST

7276

041542

' 'TERMINATOR WILL BEA BYTE OF ALL 0'S

7274

041516

112613

UPDATE THE POINTER

$STKQSRT, $TKQOUT' : RESET THE POINTER

$ROLIN: MOV

005716

041510

: DECREMENT THE COUNTER

041520

T28E

,,cer ONE cnanncren

&rnxs ROUTINE
‘%CALL:
ROLIN
x
lx
RETURN HERE

7272

7285

$TKCN

srxoour cSTKQENO 010 IT GO OFF OF THE END?

128713

7289

DEC

CMP

0415812

7261
7282
7283

. ,WRIT ON A CHARACTER

(040547

00S046
012703
022703
101456
104410

7280

STKCNT

BEQ

:1pOP NEW PC QND PS

040544

041472
041474
041500
041504
041506

7877

157

RTI

asrxoour 4(SP)

2264
7265
7266
7267
7068
7269
7270

727S

8648, - (SP)

MOV

'THE PS

MOVB

;sgé

7273

-(5P)

,,csr READY FORA CHARACTER
‘PUT NEW PS ON STACK
P'PUT NEW PC ON_STACK

000004

7257
7258
7259
7260

7271

;;PUSH_DOWN THE PC AND

4<sp5, (SP)
4(5P)

177102

7269 Q41460 012737 040546 040544

7263

(SP),-(SP)

MOV
CLR

CLR

041424

7250
72561
7262
7263

000002

000004 000002
000004

:GET A CHARACTER FROM THE QUEUE

:CHARACTER IS ON THE STACK
'WITH PARITY BIT STRIPPED OFF

RETURN HEPE

(R3),9%

BEQ

TYPE

.9%

MOVB

£°\,9%

:BR_IF NO

: 'BACKUP BY ONE

'SETUP TO TYPEOUT THE DELETED CHAR.

c<R60BO RKB11

ol reDB P11
-

DSKLS CTRL PRTH
0e-DEC-77 10:00
00s016

7287
7288
7289
2290
7291
7292

MACY11l

30(1046)

CLR
CMPB
BNE
ggps

o41741

oooceae

8s:

CMPB

BNE
CLRB

TYPE

0ol21l!

041724

E;PE

001210

4g:

g41722
041722

3%:

TYFE

MOVB
TYPE

000015

CMPB

177777

ool121e
000004
Q41724

e
s b
m
bt bt bt

DOV
L W

~
~
W) w

7311

041723
o41724
041734
041741
041746
Q41753
041760
041764
041772

000002
000004

grrvxn

$QUES

SMNEW:

.RSCIZ

;:Ig CPQgRCTER A CTRL U”

;iBR
1
0
;s TYPE A CONTROL "U”
; ;G0 START OVER

1; IS CHARACTER A “¢tRTM"?
; ; BRANCH IF NO
; ;CLEAR THE CHARACTER

;;TYPE A "CRTM & "LF"
:: TYPE THE INPUT STRING

;;GOPEIgKyg’RNOTHER CHRCTER

i 1Y

; ;CHECK FOR RETURN
;;LOOP IF NOT RETURN
;;CLEAR RETURN (THE 15)

SLF

(5P)+,R3
(5P}, ~(SP)

O
O

020127

; ;CLERR THE RUBOQUT KEY

k15, (R3)+

BYTE
BYTE

oqegls

SEQ Q135S

: ;CLERR_THE BUFFER AND LOOP
; ;ECHO THE CHRRACTER

(R3),9%
q3

4(sP), 2(sP)
#STTYIN, G(sSP)

.BLKB
.RSCIZ
.ASCIZ
.ASCIZ
.RSCIZ

135

MOV
g$¥
$TTYIN:
S8CNTLC:
$CNTLU:
S$CNTLG:
SMSWR:

,SCRLF

1Sp)+

000
000012
000
051127

.SBTTL

822, (R3)

TST

005015
006525
005015
886358

.EVEN

PAGE

3%
(R3)

2%
<1(R3)

MOV
MOV

F11

(SP)
#25, (R3)
8s
gcanu

BNE
CLRB

TYPE

9s:

5
036440
020040
020075
041776

10:20

TTY INPUT ROUTINE

78:

000025

02-DEC-77

;; TYPE

R LINE FEED

; ; CLEAN RUBOUT KEY FROM THE STACK
; ;RESTORE R3

; ;ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHRARACTER ON IT
; ; RETURN

; 3 STORAGE FSR RSCII CHAR.

8.
/#C/<1S> 12>
/tU/<18>¢12>
/1G/<15>¢12>
<15><12>/SWR =
/

; ; TERMINATO

TO TYPE

; ;RESERVE 8 BYTES FOR TTY INPUT
; s CONTROL
;s s CONTROL

nGu

NEW = /

READ AN OCTAL NUMBER FROM THE TTY

st T YT IR

R TR TTTTILSSTTRT IR LT LT T T 2 2 2 St bbbt Sohababetdadob bbb

:4THIS ROUTINE WILL RERD AN OCTAL (ASCII) NUMBER FROM THE TTY AND
; ®CHANGE IT TO BINARY.
; #THE INPUT CHARACTERS WILL BE

:#0CTAL DIGITS.

CHECKED TO

INSURED THEY ARE LEGAL

IF AN ILLEGAL CHARACTER IS READ A "°" WILL BE TYPED

; #FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
; #*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING R CRRRIARGE RETURN.

; #CALL:

Q41776
042000

042014

000004

000002

R
%

RDOCT
RETURN HERE

$ROCCT:

MOV

18:

MOV
MOV

MOV
MOV
RDLIN

(SP),-(SP)

4(SP}, 2(SP)
- (5P)
RO,

R1.-(SP)
R2.-(SP)

; sREAD AN OCTAL NUMBER

; ;LOW ORDER BITS RRE ON TOP OF THE STACK
; ;HIGH ORDER BITS ARE IN SHIOCT
; s PROVIDE SPACE FOR THE
; 3 INPUT NUMBER
; ;PUSH RO ON STACK
:;PUSH R1 ON STACK
:;PUSH R2 ON STACK

;;READ AN RASCIZ LINE

£ R&DB0 RKbll OSKLS CTRL PRTY
02-DEC-77 10:00
¢ R&DB.P
Q42016

842050
420eH4

Q42026
042030
g4203e
042034
g420%0
Q4e042
042046
042050
Q42052
Q42054
042056
042060
Q42062

012600
010037
005001
00S00e
112046

MACY1l

Gll

30(1046)
02-DEC-77
10:20
PAGE_136
READ AN OCTAL NUMBER FROM THE TTY

g4eieM

cs:

MOV
Mov
CLR
CLR

(SP)+ RO
RO, 5%
R1
R2

;GET QDDRESS OF 15T CHARACTER
; ;AND SAVE IT
; :CLEAR DATA WORD

BEQ
CMPB

3¢
#'0, (5P

;i IF ZERO GET ou
..HQKE SLRE THIS CHRRACTER

CMPB
BLY
RSL
ROL
ASL
ROL
ASL
ROL

87, (5P
4§
R1
R2
Rl
R2
Rl
R2

ggo

égp)L,Rl

MOovB

0000eC

BGT

000067

BIC

3%:

TST

MOV

001210

000000

1115 AN OCTAL DIGIT

#1C7,

(SP)

(SP)+

R1,12(SP)
(SP)+ R1

15T

.SBTTL

MOV

CLRB

$HIOCT:

;;PICKUP THIS CHRRQCTER

R2'§HIOCT

g?¥

5§

(RO)+,-.5P,

MOV

MOV
Ys:

SEQ 0138

R
L

;. 2B

;:STRIP THE ASCII JUNK

"EDD IN THIS DIGIT

,.CLERN TERHINQTOR FROM STACK
‘SAVE THE RESULT

(SPY+,R2

; :POP STRCK INTO R2

(5P)+ RO

,,Popusrncx INTC RO

(SP)+

,,CLERN PARTIAL FROM STACK

(ROQ)

TYPE
_WORD
TYPE

.WORD

P #2

$QUES

:POP STARCK

INTO RI

:'SETA TERMINATOR

::TYPE UP THRU THE BRD CHAR.
;,"?“ “CR” & "LF"

:TRY AGAIN

HIGH ORDER BITS GO HERE

SAVE AND RESTORE RO-RS ROUTINE

X 12222222222222222222222222222222XY222X222X22X22X2
2222222 LT L)

iSQVE RO-RS

fcn

SAVREG

§UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

iTOP--—(+16)

* +2---(+18)

+4---RS

;% +6---RY
; # +8---R3
; #+10---R2
; ¥412---R1
; #4+14---R0

$SAVREG:

MOV
MOV
MOV
MOV

MOV

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

R4,-1SP)

; ;PUSH
:;PUSH
;;PUSH
SH

RO
R1
R2
R3

ON
ON
ON
ON

STACK
STARCK
STACK
STACK

: :PUSH R4 ON STACK

<ZR60BO RKE11
CZR6DB P11

010846
Qleb4e

MACY11l

g42i66
o4a172

016646
000002

000022

RS, -(SP)
22(SP),-(SP)

MOV

(5P)
.

g$¥

000022

:#CALL:

042230

$§RESREG:

[
£

-(8P)

22(SP), -(SP)

: :PUSH RS ON STACK
: :SAVE PS OF nn§m FLOW

::SAVE

PC OF MARIN FLOW
PS OF CALL

: :SAVE PC OF CALL

MOV

(SP)+,22(SP)

: ;RESTORE PC OF CALL

MOV
MOV

(SP)+.22(5P)
(SP)+.22(5P)

:'RESTORE PC OF MAIN FLOW
*'RESTORE PS OF MAIN FLOW

MOV
MOV

(SP)+.RY
(5P)+.R3

::POP STACK
:1pOP STACK

INTO R4
INTO R3

MOV
g$¥

(SP)+.R{
(5P)+.R0

:1POP STACK
*1pOP STRCK

INTO RI
INTO RO

MOV

(S5P)+. 22(5P)

(S5P)+.RS

(S5P)+.R2

: 'RESTORE PS OF CALL

:1POP STACK INTO RS

:'PpOP STACK INTO R2

POWER DOWN AND UP ROUTINE

EREEEEERERNERRE R

AR R R AR

; POWER DOWN ROUTINE

$§PWRON: MOV
MOV
MOV

136702
Q42260
000340

SEQ Q137

RE3REG

MOV

SS(?P),-(

137

RO-RS

MOV

SBTTL

D42232
Quac4o
042246
042254
042256

PAGE

MOV
MOV

n8v

000022
ggog22
0000e2
0000ee

H1l

SAVE AND RESTORE RO-RS ROUTINES

: $RESTORE

Quelzy
Q42174

10:20

02-DEC-77

30(1046)

1sigs Bibedk BBBRsS

DnflUflHU?flNUHNUN

caBd

042150
Quel1se

0e-DEC-77 10:00

00000000000
O 00— =2 b Pt s Pt Pt s P

7399
7400

DSKLS CTRL PRTM

HALT

dSWR, SAVSUR
#SPWRUP, PWRVEC
#PR7
, PWRVEC+2

AR R R R RE R R AR RR AR

RR R SRR RERRE

;SAVE SWITCH REGISTER
:SET UP VECTOR

:HANG UP

;;i!!ll!lllliili*ilQlllli*lil**lilil*!ili!*li*i!**l*l*i*}l**!!*ii

Q42260

042354
000144
042354

: POWER UP ROUTINE

042356

$§PLIRUP: CLR

SPWRCT

18:

INC

$PWRCY

MOV

#3PWRDN, PWRVEC

042356

042232
000340
001100
045320

I
042350

301270
136532

Q42354
042360

000000
042527

000024
000026

BNE
ggg

MOV
MOV

#100.

,SPWRCT+2

18
fgunc1+a

8PR7 , PURVEC+2
8STARLK, SP

:LOAD WAIT COUNT

sWRIT FOR TELETYPE
;SET UP FOR PNOWER DOWN VECTOR

:FORCE STACK

ek
MOV

#spggsgflx
sSOsuR ASWR

JMP

JSLPADR ;GO BACK' TO LAST TEST

$PWRCT:

.WORD

0,0

.SBTTL

.EVEN
TRAP DECODER

136574

000lz22

MOV

$POWER: .ASCIZ

$BASE,

/POWER/

R
TaI TOACLZE
CHECK ENABLE
EREgrsné
gufficaMEMORY
R cxs?zs

"REINITIALISE R2 FOR

s TELETYPE TIME OUT

'611 BASE

RBDBO RKB1l
CZP&D Pl

DSKLS CTRL PRTH
02-DEC-77 10:00

MRCYLL

3001048)

02-DEC-7?7

TRAP DECOGER

10:20

I11

PAGE

138

SEQ Q138

X222 2222222 2222222222222 2222222222

iers ROUTINE WILL PICKUP THE LOWER BYTE OF THE *“TRAP” INSTRUCTION
'%AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

:#0F

:#GO

THE DESIRED ROUTINE.

$TRAP:

000002

::THIS
042410
Quadle
042420

000004

ROUTINE.

MOV

RO, - (SP)

MOVB
PSL

(RO),RO
RO

RTS

MOV
TST
MOV

gu424e2

042406

THAT

000002

$TRAP2:

1S USE

MOV

RTI
.SBTTL

IT WILL

:SAVE RO

2(5P),RO
-(RO)’

,,cer TRAP ADDRESS
: 'BACKUP BY 2

§TRPAD(RO)
RO

::INDEX T0 TABLE

TO HANDLE

MOV

THEN USING THE RDORESS OBTAINED

i 3GET RIGHT BYTE OF TRAP
POSITION FOR INDEXING
GO TO ROUTINE

THE “GETPRITM MACRO

(SP) , - (SP)

4(sP},2(5P)

: sMOVE THE PC DCWN

: tMOVE THE PSW DOWN
: RESTORE THE PSW

TRAP TRBLE

:#THIS

TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;

ROUTINE

:%¥BY THE "TRAP" INSTRUCTION.

o42422
o4e42Y
a4eu4es
042430
o42432
o4e434

04e410
037604
o40l12
040066
040126
040314

042436

041126

D42440
o4a442
Q4244Y
042446
p42450
o42452
O4245H4

041036
041400
041470
041776
042136
Q42174
035302

§TRPAD:

.WORD
YPE

STRAP2

;;CALL=TYPE

TRAP+1 (104401)

TTY TYPEOUT ROUTINE

;;CALL=TYPDS

TRAP+5(104405)

TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

; ; CARLL=GTSWR

TRAP+6(104406)

SCKSWR
$ROCHR
$ROL IN

; ; CRLL=CKSWR
; ; CRLL=RDCHR
,,CRLL—RDLIN

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

$TYPOC
$TYPOS
§TYPON

$TYPLS

$ROOCT

;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON

:;CALL=RDOCT

§SAVREG ::CALL<SAVREG
SRESREG ::CALL=RESREG
SCOP1S ,,CRLL SCOPI

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)
GET SOFT-SWR SETTING

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY

TRAP+13(104413) SAVE RO-RS ROUTINE
TRAP+[4(104414) RESTORE RO-RS ROUTINE
TRAP+15(104415) INTERNAL LOOP ON ERROR

CoRECDEC RKe1l
CZrelB.PL1

Qua4se
Que4ee
042470
042476
Q42504
g4esie
842520

001220
001220

003244

OQOr—

ocoLLooccncoCcLOooNCLoONoo

===V

0oL
LO

NNNNINNNNNN ~N
vn
UMY+
e e s st e P e
—-OooNOCNLWh

7500
7501
7502

CEKLS CTRL PRTY
02-DEC-T7 10:00

Q42730
042736

Q42742
042750

042756
042762
042770
042776
043002
043010

003174

MACYL11l

02-DEC-?7
10:20
DATA TABLE FOR PRINT OUT

30(1046)

J11

PAGE

139

SEQ 0139

.SBTTL

DRATA TABLE FOR PRINT OUT

DT000:
nTo0e:

. WORD
.WORD

$TESTN, TRAPPC
$TESTN,$ERRPC ,E.MR],T.MR1,P1.BIT,PR.BIT,M1.BIT,M2.BIT,BITCNT

DTO03:

. WORD

STESTN,SERRPC,E.CS1,T.CS1,E.MR2,
T.MR2,E.MR3, T.MR3

DTOM1:

.WORD

$TESTN, $ERRPC,E.CS1,T.CS1,E.CS2,T.CS2,E.ER,
T.ER,E.BR, T.BAR.E.WC, T.WC

DTO4G:

. WORD

$TESTN,SERRPC,E.CS1,T.CS1,E.CS2,T.CS2,E.ER,
T.ER

003222

DTOS1:

.WORD

WRDCNT
C,E.
DB, T.DB,
STESTN, SERRP

003200
003154
003ee4

DTOS2:

.WORD

$TESTN, SERRPC,E.CS1,T.CS1,T.CS2,
T.ER

DT0S3:

.WORD

$TESTN, SERRPC,E.MR1, T.MR1

DTOSY:

.WORD

STESTN, SERRPC,E.DCYL, T.OCYL,E.DR, T.DA

DTO71:

.WORD

STESTN, SERRPC,E.CS1,T.CS1,E.CS2,T.CS2,E.ER,
T.ER

003ceH4
003254
003262
003200
003166

003200
003150
003204
003142
003200
003150

003220
003146
003200
003150
055200
003200
003150
003310
003224

DTO?4:

.WORD
.WORD

VRCHDR, VRCHOR+2, VRCHDR+4

DT077:

. WORD

HORCNT
.MR1,
T.MR1,
STESTN, SERRPC,E

003234

DT134:

.WORD

$TESTN, SERRPC,E.ECPT, T.ECPT,BITCNT

003200
003150

DT144:

. WORD

$TESTN, SERRPC,E.CS1,T.CS1,E.CS2,T.CS2,E.ER,
T.ER

.WORD

E.BA,T.BAR,E.WC,T.WC,E.DCYL,T.DCYL,E.DR,T.DR

.WORD

,
T.ECPT
$TESTN, SERRPC ,E.ECPT

003202
003160
003234

DT151:

STESTN, $ERRPC,E.CSI,T.CS1,E.CS2,T.CS2,E.ER,
T.ER, HDRCNT

CZR60BO RKE11 DSKLS CTRL PRTY

CZREDB. P11

02-DEC-77 10:00

;gqa
¥

7645
7646
7647

(043012
043014
(043016

000001
002
000005

7649

Q043022

044065

7548

76550
7661
7662

7653
7564

(043020

000

BYTE

607

000

002

000

044147
044233

7557

(043042

000005

043046

044065

043052

044103

043056

044321

043062

044400

7569

7660

043050

7562

(043054

7561

7563

7564

7565

043060

7666
75667
7568

043064
043066
043070

006
000005
000

000

7570

043074

000

7569

043072

7580

043120

000

002

000

006

0co

000

000
0co

7585

044103

043126

044616

043132

044675

043136

044752

043142

045011

7586

043134

7588

(043140

7587

7589

044065

043122

043130

_WORD

DAHOO3A

.BYTE

_WORD

2,0

0,0

DAHOO3B

000

7584

DAHOOOB

_BYTE

DF025:

-WORD

.WORD
.WORD
.BYTE

_WORD

OFO41:

DHOODOA

DAOOOB
DHO25A
0,0

DHO25B

.BYTE
.WORD
.BYTE

6,0
?
0,0

"BYTE

0,0

.WORD

DHOOOA

DAHOOOB

'BYTE

2,0

.BYTE

0,0

_WORD

"WORD
.BYTE

DHO41R
DHO4:8B
6,0

_WORD

DAOYIC

.WORD

DHO41D

.BYTE

Q43144
043146
043150

004
000005
000

000

7594

(43154

000

BYTE

0,0

7596

043160

002

000

.BYTE

2,0

000

7693
7895
7597

7598

(043152

044065

(043156

044103

043162

044616

043164

.BYTE
.WORD
.BYTE

0,0

7590
7591
7592

DFO46:

.WORD
"WORD

-WORD
.BYTE

:ERROR 3-24

0,0

.WORD

000

006
000007
000

7683

DAHCOOA

.BYTE

0,0

000

043110
043112
043114

043124

.WORD

.BYTE

2,0

000

7576
7677
7578

7582

BYTE

044536

7581

7,0

.WORD

000

(043106

043116

DAHOO2B

002

044457

7579

DFO03:

.BYTE

0,0

043102

7575

_WORD

DAHOO2A

0,0

_BYTE

7573

043104

.WORD

DHOGOR

000

044065
044103

7579

.WORD

6,0
S
0,0

043076
043100

DFO02:

.BYTE
.WORD
.BYTE

7571

7572

.WORD
.BYTE
.WORD

000

(043034

Q43044

DFOO0:

000

(043036

7558

DRTR FORMAT FOR PRINT OUT

0,0
DHOOOB
2,0

000
044103
002

PAGE 140

.SBTTL

.BYTE
.WORD
.BYTE

Q43024
043026
(043030

043040

10:20

.BYTE

000

7665

7556

02-DEC-77

DRTR FORMAT FOR PRINT OUT

1
2,0
S
0,0

000

(043032

MACYLl 30(1046)

K1l

4,0
5
0,0

DAHODOA

DAOOOB
DAO41A
c,0

:ERROR 25-40

SEQ OIN0

CZREDBO RKG11 [SKLS CTRL PRTY
CZREDB. P11
62-0EC-77 10:00

MACYI1

30(1046)
02-DEC-77_
10:20
OATA FORMAT FOR PRINT OUT

7599
7600
7601
7602

043166
043170
Q043172
04317

044675
006
000005
000

7609
7605

043200
043202

0oc
044103

7607

043206

045046

7609

Q43212

045073

7611
7612

3216
043220

000005
000

000

7614

043224

000

002

000

'BYTE

000

.BYTE

0,0

004
000005
000

000

.BYTE
.WORD
.BYTE

8,0
&
0,0

000

'BYTE

002

000

.BYTE

000

002
00000S

000

7603
7606

7608
7610

7613

043176

043204
043210
043214

044065

7617

043232

045121

7619

043236

045140

7618

7620
7621
7622

7603

043234

043240
043242
043244

043246

044065

7625

(043252

044103

7627

043256

045175

043262

045214

7624
7626

043250

043254

7628

043260

7630
7631
7632

043264
043266
043270

7629
7633

006

000

'BYTE

003

0oo

_BYTE

044616

043332

044675

043336

045326

(043342

046347

7648

043330

7650

043334

7649
7€E]

7652

7653

SE25

043340

pe3auh

.BYTE
.WORD
'BYTE

000

(043326

7647

043324

DHOS3A

000

044103

7646

DHOS2B

.WORD

000

(043322

7645

2,0

DAOS2R

DHOOOB

062

O4406S

DAHOOOB

.WORD
.WORD

0,0

2,0
0,0

DAHOS3B
2,0
§
0,0

.WORD

DHOOOAR

"WORD

DHOOOB

.BYTE
.BYTE

-WORD
'BYTE

.WORD
DFO71:

DAHOOOR

DHODOA

.BYTE

DFOS4:

3,0

"WORD

000

043316
043320

DFOS3:

000

000007

7648

.WORD

000

043312

7643

"WORD

000

7641

043314

.WORD

000

045271

7642

0,0

004

043306
043310

.BYTE

.WORD

000

7639
7640

S
0,0

000

045232

043304

.WORD
.BYTE

000

043302

7638

OFOS2:

DHOS1B

002

7637

043300

.BYTE

DHOS1A

"WORD

000

044103

7636

000

043276

7635

0,0

000

044065

043274

'BYTE

.WORD

2,0

DAOS4A
0,0

DHOS4B

4,0

'BYTE

0,0

.BYTE

0,0

.WORD
.WORD
'BYTE

DHOOCA

DAOOOB
2,0

"WORD

DHO4IR

.WORD

DHO41B

.WORD

DAO71A

.WORD

DHO71B

'BYTE

.BYTE

: ERROR-54-61

0,0

.BYTE

.WORD

141

DAHOOOR

000

.BYTE
_WORD

000

043272

7639

WORD

PAGE

DHO41B
b,
5
0,0

.BYTE

003

044103

043230

.WORD
.BYTE
.WORE
.BYTE

0,0
DHOGOB
2,0

000

043226

DFOS!:

000
000

OMY06S

7616

000

002

042222

7615

000

L1l

0,0
6,0

0,0

:ERRORS 71-73

SEQ O141

CZREDBO R¥KBI1
CZR&08 P11
7555
7656
7657
7&S
7b5

8H33H
4335

043352

DSKLS CTRL PRTH
02-DEC-77 10:0C

000C0oS
o]0]s]
044865

0“4188

00e
045376
Ccoo0
045465
007
000005
000
044065
000
0o44103
Qe
0o45551
000
045600
003
000005
Qo0
o44065
000
044103
002
045624
000
0455650
003
000007
000
044065
e]o]s]
o44103
002
044616
000
04467S
DOb

045676
000

045775
010
000005
000
044065
000
Oo44103

002
045121
000
O4EQ72
00e

000

MARCY11l

30(1046)

DFO74:

000

000
000
000

DF0O77:

000
000
000

ooo
000

DF134:

000

000
000
000

000

DF 144:

000

000
000

0co
000

000
000
0oo
000

02-DEC-?7

10:20

DATA FORMAT FOR PRINT OUT

DF151:

. WORD
.BYTE
. WORD
.BYT
. WOR
.BYTE
. WORD
.BYT
. WOR
.BYTE
- WORD
.BYTE
. WORD

0,0

DHOO0A

8#8009
2,0
DHOTHA

M1l

PRGE

142

SEd Jive

NANNTNNNNINN
NNNNNINNNN
m....—.—...._’—._.;_
owoNoN LW

CZREDBO RKb11 DSKLS CTRL PRTH
De-DEC-77 10:00
CZReDB.P 11

g43see

04SSse2
gs2s02
0s1104
020050
020051

MARCY11l

02-DEC-77
30(1046)
ASCII MESSAGES

10:20

N1l

SEQ 0143

PAGE 143

.SBTTL

RSCII MESSAGES

OPROO!:

.ASCIZ

«15>¢12>/RKb11 BUS ADDRESS (

OPROO2:

.ASCIZ

030461
Q47524
051104
020050

OPROO3:

.RSC1Z

/RK611 VECTOR ADDRESS

030461
0S1117
0200S0

OPROQM:

.RSCIZ

/RKE11

02s50s2
0s1120
02011S
04210S
0es0se

OPROOS:

.RSCIZ

C15>¢12> 7nnnnx

041505

OPROOG:

.ASCIZ

(158>¢12>/SECOND PASS RUN TIME IS APPROX 3:1S5 MINUTES/<1S><12>

SPACEZ2:
ABORT:

.ASCIZ
.ASCIZ

(15> ¢ 12> /PROGRAM ABORTED BECAUSE ERROR THRESHOLD EXCEEDED-<1S»><12>

TS78BY1:

.ASCIZ

<1S><1e>/TEST

TSTBY2:

.ASCIZ

/ BYPASSED- <1S>»<«1a>

030466
0ellel
051505
0ao0
020075

=7/

PRIORITY

(

PROGRAM HALTED #xx#%/<15><12>

051508
000040
0siia0
020115
04esey
040503
0S110S
o44l2H
046117

000

044056
o44064

054502
042105

000
051505
040520
00s01s

CcReDBC Rrpll
CZRE0B .Pll

DSKLS CTIRL PRTH
0e-DEC-77 10:00

7756
7757
7758
7759
7760
T UL LW+
neLNnNLNLoroO

051505
Oua440
co0
046525
0s0040
052123
0oSsiled

MACY11

02-0EC-77
ODATA HERDERS

30(1046)

10:20

Bl2
PARGE

144

SEQ J1v

.SBTTL

DATRA HERDERS

020124
osilee

DHOOOR:

.RSCIZ

/TEST

ERROR/

020040
000103
020040
050101

DHOGOB:

.ASCIZ

/NUM

PCs

DHOOOC:

.ASCII

/TEST

TRAP/
15> 12>

.ASCIZ

/NUM

PCs

DHO02RA:

.RSCIZ

/EXPECT

ACTURL

PRESENT PRESENT PRESENT PRESENT BIT/

DHOG2E:

.ASCIZ

/RKMR1

RKMR1

BIT+]

BIT

BIT-1

BIT-2

DHOO3A:

.RSCIZ

/EXPECT

ACTUAL

EXPECT

ACTURL

EXPECT

/
RCTUAL

DHOO038:

.RSCIZ

/RKCS1

RKCS1

MESS A

MESS R

MESS B

MESS B~

DHOR2SA:

LASCIZ

/EXPECT

ACTURL

EXPECT

ACTUAL

EXPECT

ACTUARL#

DHO2S8B:

.ASCIZ

/RKCS1

RKCS1

HD WD

020040

o44170

0Ses17

052116

050130
Q40440

04150S
052103
042440

O44342
0443s0
044356
o44364

044372
044400
O44406
O44414
o44422
p44430
Q44436
ou444Y
ou4452
Q44457
O44464
o444?72
Q44500
044506
p4451Y
o44s22
044530
O44536

Q4ssee

Q40SesS
051503

000114
020061

HD WD

HD WD 2 HO WD 2

COUNT~/

NNNNNINN
[selaode
el ela ofuele]
VLR
ey oy e e
Oowo~NcCN
L

CJIRE0BO RKB11
CZFRe0B P11

O4N4EYY
puyss2

DSKLS

CTRL

0e-DeEC-77
020040

044560
044566
044574
o44602
044610
o446 16

PRTY
10:00

MACY11

Q45522
020040
020104
053440

0s1503
guz2110
020061

30(1046)
02-DEC-77
DATA HERDERS

10:20

Cle
PRGE

14S

SEQ Q14s

DHOY 1R:

.RSCIZ

/EXPECT

ACTUARL

EXPECT

RCTUAL

EXPECT

ACTURL
~

DHO418:

.RSCIZ

/RKCS1

RKCS1

RKCS2

RKER

RKER/

DHO41C:

.ASCIZ

/EXPECT

ACTURL

EXPECT

RCTUAL~

DHO41D:

.ASCIZ

/RKBA

RKBR

RKWC

RKWC/

DHOS1A:

.RSCIZ

/DRTA

DATA

WORD/

DHOS1B:

.RSCIZ

/EXPECT

RERD

COUNT/

DHOS2A:

.ASCIZ

/EXPECT

ACTURL”

020961

DHOSEB:

.RSCIZ

/RKCS1

RKCS1

Q41sS0S
052103

DHOS3A:

.RSCIZ

/EXPECT

ACTUARL~

020061
051118

DHOS3B:

.ASCIZ

/RKMR1

RKMR1/

O4YBeY
044632
044640
044646
044654
ouvBe62
Q44670
O44675
44702

p44710
44716
o44724

o4y4732
044740
044746
ou47s2
044760
044766
044774

042513
0Ssigo40
052103

Q40524
047527
041505
040505
O41440
000
Q41505
052103

045170
045175

Q45222
Q4ce30

000061

o4sSee

RKCS2

RKER-

CZR6DBO RKB11
CZR&DB.P11

DSKLS CTRL PRTY
02-DEC-77 10:00

MACY1l

7862

93538

834608

42520

052103

7870
7871

04S246
Q45254

046101
Q42520

020040
0S2103

O0S410S
020040

786

4524

o0y

;8;5

g:sggfi

7875
7876

045276
045304

7881

Q45342

0S2101

042105

7883

Q45354

020061

0S3440

7858

Qgue37e

7894
7
7897

Hé 7

Ofllagé

41501

020114
0S4S03

052Se4

052524

30(1046)
02-DEC-77
OATA HEARDERS

DHOSH4A:

.RSCIZ

10:20

/EXPECT

Dl2
PAGE

ACTURAL

146

EXPECT

046101

042113 0S4S03 DHOS4B: .ASCIZ /RKLCYL RKDCYL RKDA

SEQ J146

RCTURL/

RKDR

0S1040
020114

042113
0S1040

046511

046683

0S1117

020104

DHO7!B:

.ASCIZ

~/WORD 1

WORD 2

WORD 3/

QBUI0R

QUeoP0

Q9giQ3

DHO74A: .ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

EXPECT

ACTUAL

HERDER/

Q454Se
454

042

g42101

0S110S

045472

020040

041513 030523 DHO?4B: .ASCIZ /RKCSI
051040

041513

RKCS1

RKCS2

RKER

NUM~

ACTURAL

EXPECT

RCTURL

EXPECT

f
Bl gl
sl
g DHO?7!A: .RSCIZ /HERDER SIMULRTED~/
787 8:2356
4esl SH
101 0S1105
7882

045334

045347

783 Buz2ded

0S1440
127

051117

7838
7899

045500
045506

030523
041513

020040
g3i123

7905

Q45581

105

bS2%
0S0130

000
041505

DHO?7A:

.ASCIZ

/EXPECT

ACTUAL

HERDER~/

7909

045600

045522

0S1115

020061

DHO?7B:

.ASCIZ

/RKMRI1

RKMR1

NUM/

7311

0Q4S614

020061

020040

052516

g4sSe24
045632
Q4Se40

054105
020040
046101

042520
041501
020040

052103
05252+
Q44502

DHI34A:

.RSCIZ

/EXPECT

RCTUAL

BIT/

045522

041505

0S2120

DHI34B:

.ARSCIZ

/RKECPT

RKECPT

COUNT/

DHIYY4A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

045650
045656

020040

045676

054105

0Q4SSee

051040
020040

041505

i3 Bl fele Bl s
7921

7922
7923

045704
(048712

020040
046101

042520

041501
020040

052103

0S2Se4
054105

RCTUAL-

CZREDBC PKELL

CIRBOB.PLI

Q45?720
Q45726
Q45734
Q4s74e
045750
045756
045764
g4s5772
Q45775
o46002
Q46010
Q46016
o4e0eH
Q46032
Q46040
046046
Q46054
Q46062
Q46070
Q46072
046109
04e106

DSKLS CTRL PRTH
0e2-DEC-77 10:00
042520
041501

052103

MACY1l

30(1046)
02-DEC-77
DATR HEADERS

-El12

10:20

PRGE

147

SEQ 01v?

020040

052524
020101

DHI44B:

.RSCIZ

/RKBH

RKBR

DHIS.A:

.ASCIZ

/RKECPT

RKECPT/

054503
o4ell13
0S1040
0
052120

041505
o45522
000

RKWC

RKDCYL

RKDA

RKDR/

<ZRBDEO RKB11
CZR&0B P11

DSKLS CTRL PRTH
0e-DEC-77 10:00

7946
T947
7948
7949

Q42516

MACY11

30(1046)
02-DEC-?7
ERROR MESSAGES

10:20

Fl2
PAGE

148

St J148

.SBTTL

ERROR MESSAGES

050130
020104
os4sez2
0selll
Q41101
g40s22

EMOO0Q:

.ASCIZ

/UNEXPECTED MEMORY PARITY ENRBLE “RAP~

0S011S
052040
gu180s
045505
020123
0s1040
040504

EM300:

.RSCIZ

/ATTEMPTING TO CHECK

046505
020107
04es10
042505
051523
0e0118
020105
000
046505
020107

EM301:

.ASCIZ

/ATTEMPTING TO CHECK SEEK MESS FROM WRITE DATA/

EM302:

.ASCIZ

/ATTEMPTING

EM303:

.ASCIZ

/ATTEMPTING TO CHECK CLEAR MESS FROM RERD DATAR~/

EM304:

.RSCIZ

/ATTEMPTING TO

EM30S:

.ASCIZ

/ATTEMPTING TO CHECK CLERR MESS FROM WRITE CHECK~

CHECK

SEEK

MESS FROM RERD DRTA/

MESS FROM WRITE

CHECK~/

g4esio
042505
051523
020115

042040

046554

Q4e562
046570

020123
0s3440

gseley
047111
o41440
041440
o46440
051106
o44522

0s011S
052040
Q4150S
040505
051523
020115
020105
000
o46505
020107
Q42s10
042514
051505
046517
C42524

CHECK

CLEAR

MESS FROM WRITE DRTAR~

¢ - R6DBO

RKb11
CZR&D B.P11
-

046576

Q46604
04660S
o4eble
Q46620
Q46626

0e-DEC-77

PRTY

10:00

MARCv11

041440

042510

045503

0Scle4

Q42587
o44524

046505
0e0107
g4esio
040505
Q4esle
Qu7117

041440
g44040
042507
o44524

053040
051525
047111
040Seb
ooo
046505
020107
042510
Q40505
042516
o47117

DSKLS

CTRL

000
101
0s21e20
047524
Q45503
020104
g4osee
005015

Q4711}
o41440
o4404Q

44124
47511

053040
051525
045503
0425e5

guzs2y

050115
052040

040522
046101

30(104&)

02-DEC-77

ERROR MESSAGES

EM306:

EM307:

EM308:

10:20

Gl2
PRGE

149

.RSCI1I

/ATTEMPTING TO CHECK HERD GENERRTION-//18><¢12,

.RSCIZ

/WITH VARIOUS

.ASCII

/ATTEMPTING TO CHECK HERD GENERATION-/<¢1S><¢12>

.RSCIZ

/WITH VARIOUS TRACK VALUES/

.ASCII

/ATTEMPTING TO CHECK HEARD GENERARTION/<1S><l2>

CYLINDER VALUES/

047511
.ASCIZ

.’WITH VARIOUS SECTOR VALUES/

—IN—
—

L~
o

0selll
Q44Se2

047244

g40s22

040524
gcsi5i6

EM309-

Ofr-—-—
—NO

Q
(=}
o
N0~

o442

047511

—~000£L£~
=0

00
—W

0sa11l

EM310:

.ASCII

/ATTEMPTING TO CHECK HERD GENERRTION/¢15><l2>

.ASCIZ

/WITH VARIOUS FORMAT VALUES~

.ASCIZ

/ATTEMPTING TO CHECK NPR DATA TRANSFER FOR WRITE DATA~

SEQ 0149

CZRBDBO RrEl1l
CZR60B.PLI

MRCY11

e Beglid BEB}BE
0s21e0

NDON'—’—HQOF—
O—0OnNNWN

02-DeC-7?
ERROR MESSAGES

30(1046)

10:20

PAGE

1S0

SEQ 01&J

EM311:

.RSCIZ

ZATTEMPTING TO CHECK HERDER RECOGNITION-

EM312:

.RSCIZ

/ATTEMPTING

TO CHECK SECTOR

EM313:

.ASCIZ

/ATTEMPTING

CHECK

TRACK

/7ATTEMPTING

CHECK

CYLINDER INCREMENT/

0selll

girss

DSKLS CTRL PRTH
0e-DEC-7?7 10:00

050115
042523
044440
042515

052116

g5ecieM
047111

046505
020107

42515

052116

gsaleM
047111

04650S

EM314:

INCREMENT~/

INCREMENT/

046505
050115
052040

e P
bm
Bt Bt B
s Bt Bt b
Pt Bom Bt Bt

00 00

==
O 00000000
W~ OVONCNLWL—0

a0 00 €0 1D (D (0 00 (B (D 00 M

8039

047676
047704
o47712
047720
Q47726

Q42523
042440
000
101
052120
Q47524
042503
042504
020103
00esee

o44524

047117

o44124
042Sa4
gog101
o425e4
043516
047506
040S0e
052103
0si12e

053440
042040

EM315:

.ASCII

/RTTEMPTING TO CHECK SECTOR PULSE DETECTION/<«1S><12>

.RSCIZ

/WITH WRITE

DATAR~/
TO FORCE

BAD SECTOR ERROR/

0s011S
052040
041522
020104
0s1117
0s1117

EM31b:

.RSCIZ

/ATTEMPTING

046505
020107
0Si11?

EM317:

.RSCII

/RTTEMPTING TO FORCE HEADER VRC ERROR-/<¢15>¢12>

047522

0Selll

020110

0S2i24

046505

042524

047736
047744
047752
047760

040S02
052103
042522
000

020104
0S1117
042523

047766
047774
0S0002
0S0010

082120
047524
042S03
020103

047111
043040
044040
0S110S

0S0020

0S2101

/WITH BRD SECTOR PRESENT~/

EM318:

.ASCIZ

/PTTEMPTING TO FORCE HVRC ERROR/

052040
Q41522
0S110S

EM319:

.RSCIZ

/ATTEMPTING TO FORCE OPERATION INCOMPLETE~/

052124

046505

EM320:

.RSCIZ

/ATTEMPING TO FORCE OPI WITH HVRC ERROR ON HERDER 37~/

0S2124

046505

EM321:

.ASCIZ

/ATTEMPING TO FORCE OPI WITH HVRC ERROR ON HEADER 36/

050115

—

101

020107
O0S1117
0S1126
047522

PRGE 151

043516
047506
0S0117

(=}
L
[N
n

p—

o
n

050155

0O44Se4
020117
020105

050026
0S0034
0S0042

101

Uy
n
O

Q47761

10:20

.ASCIZ

04eS5e3
050040
052116

000
o

127

MACr11 30(1046)
02-DEC-77
ERROR MESSAGES

(=}
n
n,
o
£

Q47731

(=]
un
O

DONTNLWNN—OOONCNLWNI—-OWVO
NN LWNN—OOO NN LWNN—~ODO
NN LWN->OVDNNL

NSNS ST
NP
W
W
S
o
O

b2 Pt Pt P

Pt Pt P

Pt Pt Pce Pe Pt st Bt Pt ot Bt Pt Pt Pnt Pt Pt Bt Pt Pt Pt Bt

NNNUNININNONNL £ £ 4 £ ££ 2 £ £ WwwWwK W WWNRINTININININ RN = b i i e e

e e Pt Pt B

00 00 @ 06 0o 00 000D C0/aD o 00 M €D 00 €0 00 00 (D O 00 (D (O 0 (D A OB G0 @D €0 (D D D 0 CD 4D 4D €O D D O (D €D 0D OO D O AD OO € (0 €D (D (D D

<ZR60BO RKB11 OSKLS CTRL PRTHY
cZREDCB.P11L
02-DEC-77 10:00

052124 quggg EM322:

.RASCIZ /ATTEMPING TO FORCE OPI WITH HVRC ERROR ON HERDER 0O/

0S031e

044040

040505

042504

0S0324

044103

041505

Q44513

EM323:

.ARSCIZ

/CHECKING HEADER RECOGNITION WITH PREVIOUS BARD SECTOR ERROR/

045503

EM324:

.RSCIZ

-CHECKING HERDER RECOGNITION WITH PREVIOUS HERCER VRC ERROR~

0S0332
0S0340
0S0346
050354
0S0362
050370

043516
042504
(047503
047511
044124
044526

044040
020122
047107
020116
(0SOO40
052517

0S0412
0s0417

O0Sllee
103

0511
S

040505
042522
05211l
044527
Q42522
020123
042523
o4e440
000

SEJ d1S1

OWVONOCNLWN—OLDNCNLWNN~OVODNCNLWNN—DO

0s0424
0so432
0sg440
050446

DSKLS CTRL PRTHY
0e-DEC-77 10:00

MACY11l

0e010

g4esla
051040

047111

30(1046)

02-DEC-?7

ERROR MESSAGES

10:20

J1e

PRGE 1S2

gEM3es:

.RSC12Z

/FORCING BAD SECTOR ERROR WITH PREVIOUS HERDER VRC ERROR~/

EM326:

.RSCIZ

/FORCING HERD VRC ERROR WITH PREVIOUS BAD SECTOR ERROR~/

EM327:

.RSCIZ

/ATTEMPTING TO WRITE SYNCH WITH WRITE DRTAR/

EM328:

.RSCIZ

/ATTEMPTING TO WRITE DATR FIELD WITH WRITE DRTR/

EM329:

.RSCIZ

/ATTEMPTING TO CHECK ECC PATTERN CLEARRING/

EM330:

.RSCIZ

/ATTEMPTING TO CHECK ECC GENERRTION~/

onLoonLEo on

S
D N
NN
P

£
WN— 00NN
HPHH*‘ODD%ODC)

0S1014

[ SN

UM
TV
N = e s bt s e e
NLWN—ODOoNN
LW

8211

0000000000000
i

) 0 5on 0 Bt Dot

O W00 ODDD DD L0

e Bt §t Bt Pt ot ot n Pt Bomt bt ot s

et et Bt Bt Bt Bt Bt e Bt Pt s

OO WAM N NNNNNNIYNNY

0D G000 (0 0D 0D (O 0D (D (0 4D 0D D 00 D €D 0D CD 0D C0 (O (0 (00D €0 G0 0D 0D 0 D M

CZRLDBO RKBI1
CZRE0B P11

042507
o445y

SEQ 0182

CZREDBO RKe1[ DSKLS CTRL PRTY
02-DEC-77

[

]

CZreDB.P

10:00

02-DEC-77

10:20

Kla
PAGE

1S3

SEQ 0183

MACYI1l

30(1048)

gEM331:

.RSCIZ

/ATTEMPTING BAD

EM332:

.ASCIZ

/ATTEMPTING HEADER VRC ERROR SETTING CONTROLLER ERROR/

EM333:

.RSCIZ

/ATTEMPTING 7O WRITE ECC WORDS~

ERROR MESSAGES

SECTOR ERROR

SETTING CONTROLLER ERROR~

051345
05135e
0S1360
0S1366
051374
0S140 2
05140 3
0S141 0
0S1416
8
24

101
052120
047524
042524
040883

05c2led4
047111
0QS3440
(0S0040
041115

046505
020107
044522
051517
042514

EM334:

.RSCIZ

/ATTEMPTING TO WRITE POSTAMBLE~

101
g521e0
047503
042524

0OSela4
047111
0S011S
042440

EM335:

.ASCIZ

/ATTEMPTING COMPLETE EXECUTION OF WRITE DRTR-/

047440

020106

046505
020107
042514
042530
047117
051127
o40Ss04
046505

EM336:

.ASCIZ

/ATTEMPTING ERROR CLEAR WITH CONTROLLER CLERR~/

EM337:

.RSCIZ

/RATTEMPTING PARTIAL

EM338:

.ASCIZ

/ATTEMPTING TG WRITE

)
v

7
q

e
0
0S1506
0S1S14

052503

0s2111

01
052120
051105
046103
044527
047117

044524

020105
000
052124
047111
047522
040505
(044124
0SlleMd

0475

101
0S2120

047111

£~L—0ONn

o)
@

—

(@)
rn
o

n
o

—

oLV

MRINRININY UMY == e 5

W W WL WM NN

Q
]

e pst e

s Pt
Pt ot ot Pt
Pt Pt Pt P
Pt Pt Pt Pt Pt ot P
eP
Pt Pt Pt

051117

m-—oowm@m:wgm»—goflo‘mwxu
LCONE0ONLFON £00NMN

053330

nnnaninnnnnnnnn
RR20000C00000000000000
nntnnnnn

051336

046505
020107
Q42523
o4e440
0S1440
043S16
0Slley
geglee
0oglee
0s0115
o440M40
020122
051105
04as23
020107
047522
o4244Q
000
046505
020107
Q44522
041503
051504

SECTOR WRITE WITH ZERO FILL~/

18 BIT DRTA FIELD WITH WRITE DARTA/

R&CBOPTT&LI

PEKLS CTRL PRTH
0ec-DEC-77 10:00

0s1i626
0S1634

0sS3440
030440

020110
02010S
000
106
gsele
Q47524

02-DEC-77

ERROR MESSAGES

10:20

L12

PAGE 1S4

SEQ Q1S4

o4y4522
020070
o40S04

o40sa4

5211l
0Selll
o40se
.ASCII

/ATTEMPTING TO WRITE BIT

.ASCIZ

«15>¢12>/DRTA FIELD WITH WRITE DRTR/

EM340:

.ASCIZ

/RTTEMPTING WRITE DATA IN

047111
041505

EMH4000:

.RSCIZ

/CS1

o40440
051117
000
020123
047503

EM4001:

.ASCIZ

/MESS A

INCORRECT/

EM4002:

.RSCIZ

/MESS

INCORRECT/

EMH003:

.ASCIZ

/HEARDER WORD

INCORRECT/

EMY004:

.RSCIZ

/HERDER WORD 2

INCORRECT/

EMY00S:

.ASCIZ

/CS2

Q47522
020107
0Sllee

EMH4006:

.RSCIZ

/ERROR REG

020123
051505

EMY007:

.ASCIZ

/BUS ADDRESS INCORRECT~/

g4elee

EM4008:

.RSCIZ

/WORD COUNT INCORRECT~/

05;124
047111

046505
020107
p44s22

EM339:

16-17 OF

18 BIT/

034061

o40Se4
Q4211y4
0c0110
020105
000
046505
020107
020105
044440
041040
04ell7

no O
=00 --00—~
00—
roru U= o= N
= (N
N WO

Q Q0
wn n.£

£
-0 — N~ e—= NNy
-0 Y0 b e (JY02 bt e (Y0 (Y 0

0D (0 00 00 00 0D 00 (o G0 0 (D
WwWwwwwwwwww
PUNU = 00 s bt pss Pt Pt Pt e
— OO0 0NN LW

052302

30(1046)

42S11

YeoilM

00 Q00000000
000
nn N [VaITa[T))
e
bt b
O
N
Y Ny
nn [
00 NNNNNNNINNNYNN oo
NN
L WW—-000 ~No
nNELCOL0CON £0—-0O nL

gsieue
51650
S1656

047524
O4esa24
044502
osau4

MACY11

o47527

INCORRECT/

18 BIT MODE~

PAGE

1SS

3% el gt g% 3 Bi2dl

EM4009:

.ASC1Z

/CS1

V0 bt e (VO L 00 n ot P
O£

10:20

30(1046)

EMY0i0:

.RSCIZ

/CS2 INCORRECT AFTER READING DARTAR BUFFER~

EMN0L11:

.ASCIZ

/ERROR REG

e bes bt = (YO L2 0=

02-DEC-77
ERRQR MESSRGES

MARCY11l

EM4012:

.ASCIZ

/DATA READ FROM MEMORY

EM4013:

.ASCIZ

/MR1

EM401Y:

.RSCIZ

/DISK ADDRESS REG.

EMY015:

.RSCIZ

/CYLINDER ADDRESS REG.

044440
042522

EMH016:

.RSCIZ

/MR1

0s0040
043505
0s1117
000

EMY4017:

.RSCIZ

/ECC PAT REG

052710

828728

052727
052734
85 74
5274
0527Se
052760
052766

PRTM

garees

044440

SEQ 01SS

INCORRECT ARFTER RERDING CATR BUFFER~

N OO~
000~
n—-000
0~ L L -DONQO—
.c.:v-rua

020

00000MNO0O0
000008
FonLnLovwnn g REZROR
L.ENJUIU'I
O
O
= O
(W 4=t 0O () 0= 4

ZRGoGT = BAas =]
W
PR 2R S 2RO RT

== s (F0== 0= Y UVUVUIO= 0= b (1] 00 e UV 0= ba 0t (J] 0 0t (S0 e ot ()0 0 () D

Faelal
V2N - ST
- OnNWoNWo
WL

OO0 == O

£
~N

Q000000

00QO0

052327
052334

DSKLS CTRL

02-DEC-77 10:00

L oconnszn .IU\?(!IRS 38?88?
W LrefUe=r= W Lr—N= WL

CZR60BO PKkb6ll
CZrR6DB.P11L

0S1117
0

027107
0S1117
000
030See
0Sill?

041803
0S1040
041516

0sz2103

INCORRECT AFTER REARDING DATA BUFFER/

INCORRECT/

042522
44440

INCORRECT AFTER GAP

IN WRITE DATA/

INCORRECT/

CZR6DBO RK611 DSKLS CTRL PRT4
CZReDB.P11
02-DEC-77 10:00
8394

8395
8396
83397

052773

11S

030522

10:20

Q44440

INCORRECT ON 1ST DOWNWARD TRANSISION OF MAINT CLOCK-

8399
8400
8401
8402
8403

0S3000
0S3006
053014
053022
(0S3030
053036
0S3044
053052
0S3060

041516
052103
0Si46l
047127
0S2040
0S1S11
043117
052116
045503

0S1117
047440
020124
Q40527
O040See
047511
046440
041440
000

042See
020116
Q47504
Q4elee
O0S1S16
020116
Q044501
047514

8405
8406
8407
8408
8409
8410
8411
8412
B413

053070
0S3076
0S3104
0S3112
053120
0S3126
O0S3134
0S3142
0S3150

041516
052103
047062
047127
052040
0S2111
043117
052116
045503

0S1117
047440
020104
040527
Q040See
047511
046440
041440
000

(042522
020116
Q47504
042122
0S1S16
020116
0O4450°
0O47S51%

8404

053063

115

030522

" N12

MACY1l 30(1046)
02-DEC-77
ERROR MESSAGES

044440

EMW2:

.ASCIZ

~/MR1

PAGE 156

SEQ C1Se

EMWY:

.RSCIZ

/MR1

INCORRECT ON 2ND DOWNWARD TRANSITION OF MRINT CLOCK~
'

ZZReDBO PKpll DSKLS CTRL PRTY
JZR6CB. P11
02-DEC-77 10:00
gu1y

g415
8416
8417

.SBTTL

g418
8419
g420
g421
g4e2
8423
8424
g4es

053154
053154
053156
053160
063162
053164
0S31Lb
053170
053172

8427
g4é8
8429

053176
053200
053202

g426

053174

053154

000
001
002
003
004
00S
006
007

0.0
1.1
2.2
3.3
4.4
§'S
6.6
7.7

"BYTE
.BYTE
.BYTE

014
0is
016

-BYTE
'BYTE
BYTE

11,11
12,12
13,13
14,14
1515
16.16

020
g2l
022
023
024
925
026
027
030
031
032
033
034
03s
036
037
040
041
042
043
044
04s
046
047
050
051
052
053
054
0S5
056
657
060
061
0e2

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYIE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

20,20
21.21
22,22
23,23
24,24
25,25
26,26
27,27
30,30
31,31
32,32
33.33
34,34
35.35
36,36
37,37
40,40
41,41
42,42
43,43
449,44
4545
46,46
47,47
50,50
51,61
52,82
53,53
54.54
&8585
56.56
©§7.57
60,60
61,61
62,62

B434
8435
8436
8437
8438
8433
8440
g441
8442
g443
8444
8445
8446
8447
g448
8449
g450
8451
8452
B453
8454
8455
8456
gus7
8458
8459
g460
8461
8462
8463
B464
g465
8466
8467
8468

053214
053216
053220
053222
053224
053226
053230
053232
053234
053236
053240
053242
053244
053246
053250
053252
053254
053256
053260
053262
(053264
053266
053270
053272
053274
(053276
053300
053302
053304
05330¢
0€235.0
053312
053314
053316
053320

020
g2l
022
023
024
025
026
027
030
031
032
033
034
035
036
037
040
041
042
043
044
0us
046
047
050
051
052
053
054
0ts
056
057
060
061
662

083322

BYTE
BYTE
BYTE
BYTE
_BYTE
.BYTE
BYTE
.BYTE

.BYTE

014
015
016

84638

DRTA BUFFERS

0i0

011
012
013

053204
053206
053210

083212

000
001
002
003
004
0s
006
007

.EVEN
NPRBUF:

10:20

010

8430
8431
8432

8433

MACY1l 30(1046)
02-DEC-77
DATR BUFFERS

01?7

063

011
012
013

017

063

BYTE

.BYTE

10,10

17,17

&3.63

B1l3
PAGE

1S7

SEQG 0157

CZREDBO RKG1: DSKLS CTRL PRTM
CZREDB.P11
02-DEC-77 10:00

8470

053324

06M

MACYI1

30(1046)
02-DEC-77
OATA BUFFERS

.BYTE

06Y

10:20

053326
053330
Sgaaaa
3334
053336
053340
053342
053344
053346
053350
053352

065
066
067
070
071
072
073
074
075
076
077

065
066
067
070
071
072
073
074
07s
076
077

'BYTE
.BYTE
BYT
‘BYT
BYTE
_BYTE
.BYTE
gvr
YT
BYTE
BYTE

65.65
66.bb
67 .67
70.70
71.71
72.7
73.73
7974
7575
76.76
77.77

848
g484
848S

33%6
053360
053362

101
102
103

0l
102
103

8YT
BYTE
.BYTE

101101
102.102
103)103

8486

8%33 4
053364

100

000000

100

BYT

HEAD1:

.WORD

8487
g.88
8489

053366
053370
053372

140000
140000
000000

HEAD2:

"WORD
"WORD
.WORD

gug

82 40

800000

HERD3:

.WOR

8493
8494
84395
8496
8497
8498
8499
gc00
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8513
8520
8521
8522
8523
8524

BS25

(053402
0S3404
053406
05341
05341
053414
(053416
053420
053422
053424
053426
053430
053432
053434
053436
053440
053442
053444
053446
053450
053452
053464
053456
053460
053462
053464
053466
053470
053472
053474
053476
053500

053502

100000
100000
000300
40057
40356
000100
040000
040100
000100
140001
140101
000200
140000
140000
000200
140001
140201
000400
140000
140000
000400
040001
040401
000140
040000
040140
000140
140001
140101
000300
140000
140000

000000

HERD4Y:
HEADS:

HEADG:

HEAD?:

HEADSB:

HEAD1O:

HEADL1:

108, 100

000OCO

140000
140000
000000

00000

JWORD
"WORD
.WORD
.WORD
_WORD
.WORD
.WORD
WORD
WORD
WORD
"WORD
.WORD
.WORD
WORD
WORD
WORD
JWORD
.WORD
.WORD
WORD
WORD
WORD
JWORD
.WORD
-WORD
WORD
WORD
JWORD

100000
100000
000300
040057
040356
000100
040000
Q40100
000100
140001
140101
000200
140000
140000
000200
140001
140201
000400
140000
140000
000400
040001
040401
000140
040000
040140
000140
140001

.WORC

000000

JWORD
.WORD
CWORD
WORD

PAGE

158

SEQ 0158

64,64

8471
8472
8473
8474
8475
8476
8477
8478
8479
8488
8481

gu8

Cl3

140101
000300
140000
140000

BE81
0S3874

000000

DATA BUFFERS

141

ECCI
.WOoRD

0,0,0, 0.,0,0,0.0

ECC3:
.WOR
1772777

OPI!:
_WORD
001252

. WORD
-WOKD

Lol TM Lot ad = Lot o e oY =Y o T Y an TR TS on TN S Q== ==
»—= = O
0—
£ LfO0L££0L£0L£
0L 0L 0O O£ rO0L£sO0L 0L
n—
Ws e QY 0 0 O 0= 0= O
b O 0 0= o
D 02 4e O
(D 00 Ot e O e b= O
G =PI = MU N
O b= 0— O M) = (I (W=
S ANV RN VIV IR T VT ) S T VIV BN T 1T ) WHR— NN N0
LV
NN

30(1046)
02-DEC-77

OWWOWWOWWOWWOWWOWWOWWOL
W £L NN Wk —

000000

000000
000000
000000

MACY11l

E
o
Pl

gest Bedage 141868
ges8 823210
88

00
00

DSKLS CTRL PRTH
0e-DEC-77 10:00

E
(=}
Pl
o

(A0
N L ot e Tee oY So¥ an TEX = an R S an [T SEY qn TORY WY o TROY DY o TUSY W
W =TI
M) N
N = = O R0 (W) W~ MW — N w
NN NN
NN
UTWRD—UN
N[
OWWOWWOWWOWWOWWOWWOWW (@]

= = O 0= b= 0= s O
bt O 02 s O = 0 0= 1= O 0= =2 [0 1+ ) b= ba O 0e 1
LLO0LrLr0L
0L 0L O L FOL£OL£0£
L0 £ £0L £

CCRBDBO RKBIL
<ZRB0B.PL1

10:20

141000
141000

D13
PnGE

159

SEg J1t9

054052
054054
A [

Y S TA TS w S o [

00Ses3

10:00

PRTY
MACY1l
3011046,
02-DEC-77
DATR BUFFERS

. WORD
-WORD
.WORD
. WORD
. WORD
. WORD
- WORD
- WORD
. WORD
. WORD
. WORD
WWOoWWOWWOoOWWOWWOWWOWWOWWLWOWWOWWO WW
L NWN— W—NWOLWOWWOWWOWWOWW

CTRL

=M U - WM MO
L= M) L) =N We— M W r— MU L »— N —
UI NN NN N NN NNIWeNNoONo? Wi NNN n NN NuL

0e-DEC-77

DSKLS

U NN

el ® Lol S

bt O ot 0= Y O
e 0 0= Y= = O 0= = O
0318 0t
LLO0L£L 0L 00 L L
LN L

0S3676
053700
053702
053704
053706
0s3710
053712
053714
053716
pS3720
053722
053724
053726
053730
053732

= O 0= 0= O 0 e O =2 0=t O 0=t 0= Y 0= 0= ) 0 b (D00 bt () 40 b (oLl
s L] = T
oconNnnnoL£L£oL££0££0L££0 £ L£O0L£ 0L £0O0L£L0OL

<ZREDBO RKBE11
LZFEDB.PLI
10:20

E13
PRGE

[of]

1Y)

160

CcR6DBJ RKE11 DSKLS CTRL PRTY
ZRE0B.PLL
0e-DEC-77 10:00

8638

8639
8640
8641
8642
8643
8644
864S
ge46
8647
8648
8649
8650
8651
8652
8653

0S40S6

054060
0S4062
0OS4064
0S4066
(0S4070
0S4072
CS4074
0S4076
0S4100
0S4102
0S4104
4106
0S4110
0S4lle
O0OS4114

8654
8655
8656
8657
8658
8659
8660
8661
8bbe
8663
8664
8665
8666
8667
8668
8669
8670

0S4116
0S4120
0OS4l22
0S4124
054126
(0S4130
0S4132
0S4134
0S4136
0S4140
QS4142
0OS4144
054146
QS4150
0S4152
054154
0S4156

8673

0S4164

Bk71
8672

8674
8575
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
BE30
B69l
86382
8693

MACYLl 30(1046)
02-DEC-77
DATAR BUFFERS

160370

001250
141123
140373
141253
141123
000370
000240
140000
140240
000240
140000
140240
000240
140000
140240

000240
140C00
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000

0S4160
0S4le2

140240
000240

0QS4166
054170
054172
0S4174
0S4176
0S4200
0S4202
0S4204
0S4206
0S4210
0S4212
0QS4214
0QS4216
0S4220
0S4222
0S4224
054226
054230
054232
0S4234

140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240

140000

. WORD

OPle:

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

10:20

160370

001250
141123
140373
141253
141123
000570
000240
140000
140240
000240
140000
140240
000240
140000
140240

000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240
140000

WORD
WORD

140240
000240

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

140240
000240
140000
140240
000240
140000
140240
000240
140000
140240
000240

WORD

140000

140000
140240

000240
140000
140240
000240
140000
140240
000240

F13
PARGE

16!

SEQ 016!

CZREDBO RKBI1
CZRe0B .P11

S42236

Eq g
424

054244
0s4246
054250
0542se

MACY11

30(1046)
02-DEC-77
DATA BUFFERS

10:20

. WOR
. WOR
. WORD
. WORD

140000
6H§
40

00240
140000

D00 ad 00 (0
00 M oM M
NN NNNININNINNINYN
U 0 0t bt Pt s Pt b bt e b= (O
OCwoONOCNLWN—DOW

8e384
8295
8696
8697
8698

DSKLS CTRL PRTY
0e-DEC-77 10:00

8721

OPI3:

QS4412
0S44 14

140300

G13
PRGE

1&2

SES Jlee

VDD

NEY

NN NI NININININ) )

OWOOOOODO@OOIDMD

[glg)

O RKE11l
P11

Ns4416
pE4420
gs4422
0S4424

DSKLS CTRL PRTH
0e-DEC-77 10:00
000300
140000
140300
000300
140000
14030C
000300
140000
140300

MACY1l

30(1046)
02-DEC-77
DATA BUFFERS

10:20

000300

258388

140300
000300

DEYS7Y

140000

H13
PAGE

163

SEJ Q13

CZR6DBO RKkE11
CZReDB.P11

8806
8807
8808
8809
6810
8811

8812
8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
BB830
8831

8832
8833
8834
8835
8836
8837
8838
8839
8840
8841
8842
8843
gg44
8845
8846
8847
8848

8849
8850

0OS4576
054600
0S4602
0S4e04
0S4606
0S4610

0S4ei2
0S4614
0S4616
0S4620
0S4622
0S4624
0S4626
0S4630
0S4632
054634
0S4636
0S4640
0S4642
0S4644
0S4646
054650
0S4652
054654

054656
0S4660

054662
0S4664
0S4666
0S4670
054672
054674
054676
0S4700
0S4702
0S4704
054706
054710
QS4712
0OS47I4
054716
0S472Q0
0S4722

DSKLS CTRL PRT4
0e-DEC-77 10:00

MACTIL1

3C(1048)
02-DEC-77
DATA BUFFERS

140300
000300
140000
140300
000300
14000C

. WORD
.WORD
. WORD
.WORD
.WORD
WORD

140300
000300
140000
140300
000300
140000
140300
000300
140000
140300
000300
140000
140300
000300
140000
140300
000300
140000

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

140000
140200
000300
140000
140300
000040
140000
140000
000040
140000
140040
000040
140000
140040
000040
140000
140040

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

140300
000300

WORD
WORD

OPI4:

140500
000300
140000
140300
000300
140000
140300
000300
140000
140300
000300
140000
140300
9000300
140000
140300
000300
140000

140300
000300

140000
140200
000300
140000
140300
00QO40
140600
140000
000040
140000
140040
000040
140000
140040
000040
140000
140040

8852
8853
B8EY
8855
B8SE
8857
8858

000040
140000
140040
000040
140000
140040
000040
140000
140040
000040

WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD

000040
140000
140040
000040
140000
140040
000040
140000
14004C
000040

8860
BBel

054752
054754

140040
000040

. WORD
.WORD

140040
000040

8859

(0S4750

140000

WORD

.- WORD

I13
PRGE

i&4

SEJG Cled4

140300
000300
140000
140300
000300
1%0000

0S4724
054726
0S4730
0S4732
0S4734
Q0S4736
0S4740
0S4742
0OS4744
0S4746

8851

WORD
WORD

10:20

140000

ZReDBO RKBI11
ClFEDB.P11

8862
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875
8876
8877
8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888
8889
8830
8891
8832
8833
8894
8835
8896

8897
8898
8899
8300
83901
8902
8903
8904
8305

8906
8907
8908
8909
8910
8911
8912
8913
8914
8915
8916
8917

0S47S6
054760
0S4762
0S4764
0S4766
054770
0S4772
0S4774
0S4776
0SS000
055002
0SS004
0S5006
055010
0S5012
0S5014
0SS016
055020
0S5022
055024
055026
055030
055032
0S5034
055036
0SS040
0SS042
0SSO44
0SS046
0€S0S0
055052
0SS054
055056
055060
055062

0S5064
055066
055070
055072
055074
055076
0SS5100
055102
055104
055106
0S5110
0SSi12
0SSi14
055116
055120
055122
0S5124
055126
0SS130
0S5132
0SS5134

DSKLS CTRL PRT4
0e2-DEC-77 10:00

MACY11l

30(1046)
02-DEC-77
DATA BUFFERS

140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040

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

000040
140000
140040
000040
140000
140040
000040
140000
140040
(000040
140000
14004C

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

000040
140000
140040
000040
140000
140040
000040
140000
140040

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

10:20

J13
PRGE

18S

SEQ 0185

140000
140040
000040
140000
140040
000040
140600
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
002040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040

000O040
140000
140040
000040
140000
140040
000040
140000
140040

000040
140000
140040
000040
140000
140040
000040
140000
140040
000040
140000
140040

’

CZREDBO RKB11

DSKLS CTRL PRTH
0e-DEC-77 10:00

VVG‘G‘g;U‘U"U’lU“fl&&
£ LW
Lo
Lo

02-DEC-77
DRTR BUFFERS

30(1046)

10:20

K13
PAGE

166

000040
140009
140040

000040
140000

nooc
Lo

B0 Bt P

Bt Bt

s Bt

s Bt P

s P

(=] 0000000000000
0
n nrnnninnnninuininnm
wn awninainnnannnunioian

CZRE08B .Pll

MACY11

VRCHDR:

12727727
1772777

177777
1277277

125e5e
125252

125252
125252

:
MOD2BF

BUFF:
ECCBUF:

140370

177777 ,177777 127277 ,127777 177777 , 177777

?ggasa,Lesasa,125252,125252,125252,125252
125252, 1252852, 177777 177777, 177777 , 177777
177777 ,1777?7 177777 177777 ,000000,, 000000
000000, 000000, 000000, 000000, 000000, 000000
052525, 052525, 052525, 025252, 052525, 052525
052525, 052525, 121105, 150442, 064221, 132110°

055044, 026422, 013211, 105504, 042842, 021321
110550, 044264, 022132, 011055, 104426, 042213
&
55555

133333, 066666, 155555, 155555, 133333, 066666
066666, 155555, 155555, 133333, 133333, 133333

133333, 133333, 133333, 133333, 177777, 177777
177777 ,052525, 052525, 052525, 177777, 177777
052525, 052525, 177777,052525,
177252, 177252
172765, 172765, 072307, 135143, 156461, 167230
073514, 035646, 016723, 107351, 143564, 061672

056466
0S6474
056502

030735, 114356, 046167, 123073, 151453, 164616

056510

0Sesie
056524
056532

125252, 125252, 125252, 125252, 125252, 125252
125252

1777277

‘1es2se, 125252, 177777, 177777, 177777 177777

SEQ Jlee

CZR6VBO RKB1l

CZReDB.
08.P11

0S6540
056546
056554
052592

D SKLS CTRL PRTH
0e-DEC-77 10.00

177277

177777
77777

Beears

MACY11

30(1046)
02-DEC-77
DATA BUFFERS

177777
172777
000000

056604

052585

056626
056634
664
5665

013211

1811

mmmwouuvmgmwuuwmmu

I C) ) 02 v Bt pme (Y bt s (Y0

gesf

J O OO OO DD DD
O000000000
m._.p..p_.._y_._.p..._....
OOONO
N LW

Pt Pt bt (O s Y 00 b

N
r
;]

2525

1272777
177727
177777
17277277
057224

000001

1727777
1777277

1727277
1777277

BADPAR:
.END

10:20

L13
PAGE

167

. WORD

177777,177777,177777,
177777 ,00000G, 000000

.WORD

0C0000, 000000, 000000, 000060, 000000, 000000

.WORD

052525, 052525, 052525 , 025252, 052525, 052525

.WORD

052525, 052525, 121105, 150442, 064221, 132110

. WORD

055044, 026422, 01321 1, 105504, 042642, 021321

.WORD

110550, 044264, 022132, 011055, 104426, 042213

.WORD

133333, 066666, 155555, 155555, 133333, 066666

.WORD

066666, 155565, 155555, 133333, 133333, 133333

.WORD

133333, 133333, 133333, 133333, 177777,177777

.WORD

177777
177777, 5,
5252
052525, 052525,
177777,0

. WORD

052525, 052525, 177777052525,
177252, 177252

. WORD

172765, 172765, 072307, 135143, 156461 , 167230

. WORD

073514, 035646, 016723, 107351, 143564, 061672

.WORD

030735, 114356, 046167, 123073, 151453; 164616

.WORD

125252, 125252, 125252, 125252, 125252, 125252

. WORD

125252, 125252, 177777, 177777 ,177777 177777

.WORD

000000
777
,177777 ,000000,
7,177
177777
17777

. WORD

000000, 000000, 000000, 000000, 000000, 000000

. WORD

" 052525, 052525, 052525, 025252, 052525, 052525

. WORD

052525, 052525, 121105, 150442, 064221, 132110

. WORD

0S5044, 026422, 013211, 105504, 042642, 021321

. WORD

110550, 044264, 022132, 011055, 104426, 042213

. WORD

177777 ,177777 172777, 177777 , 177777 , 177777

.WORD

177777, 177777 , 177777 172777 , 177277 177777

. WORD

\77777,127777 177727, 177777

. WORD

,
127777 , 127777
7777
177777, 177777,
17777717
-

SEQ 0187

CZREDBO RKE11

CZREDB.PI1
ABASE

}77440

ACOW1 =
ACOW2 =
ACLO
=
ACPUOP=
ADDWO =
ADDW1 =
ADOW10=
ADDW11=
ADDW12=
ADOW13=
ADDW14=

000030
000000
000G10
000GO0
000000
00C00
000000
000000
000000
000000
000000

CBoRT - dhareq

AbOKs"= DORORO
Aoba3 = 809099

DSKLS CTRL PRTY

02-DEC-77 10:07
10248

6SIS

1333
1333
1119
1333
1333
1333
1333
1333
1333
1333
1333

30(1046:

1333

1374

7742w

= 00000
= 000000
= 000000
= 000000
= 000000

1333
1333
1333
1333
1333

ADEVM
AENV

=
=

000000
000000

1333
1333

AMADRI=

000000

RENVM = 000000
AFATAL= 000000

1333
1333

1345
1336

AMADR2=
AMADR3=
AMADRY=
AMAMS1=
AMAMS2=
AMAMS3=
AMAMSY=

0000
000000
00000Q
OCuou0
000000
000000
000000

1333
1333
1333
1333
1333
1333
1333

AMSGLG=
AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=

00
000000
000000
000000
000000

1333
1333
1333
1333
1333

1342
1335
1356
1364
1367

APASS =
APRIOR=
APTCSU=
APTENV=
APTSIZ=
APTSPO=
ASWREG=

000000
000240
000040
000001
000200
000100
000000

1333
10238
67888
6744
2226
6796
1333

1338
1333
687
67868
67858
67878
1346

ATESTN=
AUNIT =
AUSWR =
AVECT1=
AVECT2=
BAOPAR

BRI

000000

000000
000000
000000
000210
000000
057216

= 000020

M13
PAGE

SEQ 0168

CROSS REFERENCE TABLE -- USER 5YMBOLS

1348

1339

AMTYPY4=

10:20

137¢
1377

1333

AMSGAD= 000000

02-DEC-77

1393
1333

ADDWHY
ADDWS
ADOWG
ADDW?
ADOWS

AbEver= 838388

MACY1l

1333

1333
1333
1333
1022
13
§777

10828

1375
1344

136!

1365
1368
1371
1355
1363
1366
1369

1344

1370

1337
1390
1347
1333
1373
6731

6820

6867

6869

1372

5303

9025

CZREDBO RKE11 DSKLS CTRL PRTY
02-DEC-77 10:00
CZReDB.P11

BAl6
BR1?

BITCNT
8170

B1T00
BI701
B1102
BIT03

MACY1l 30(1046) 02-DEC-77 10:20 PAGE 170
CROSS REFERENCE TRBLE -- USER SYMBO.S

= 000400

10678

003262

21678
S191%
64gcx
6gsSs

2941x
61958
6504«
S878%

9934
992
991s
9904

1003
1002
1001
1000

= 001000

= 000001

=
=
=
=

000001
000002
0CO0O04
000010
000020
000040
000100
000200

10684

10038

BIT04
BITOS
BIT06
81707
BI7108

=
=
=
=

BITI

= 000002

3854
984 s
1002

BIT11 = 004000

9824

= 000400
BIT09 = 001000

BI1T10 = 002000
BITl2 =

0109

BIT13 = 020000
BITIY = 040000
BIT1S = 100000
BITe2

N13

= 000004

9898
9884
9874
9864

R
S526¥
S983%

2955%
S225%
S540*%
5987%

995
994
1098

B350
6368

6831

1070

1089

1064

999
9398
997
996

2947%
S201%
1097

1116

6606
6336
1216

6608

1001 s

1099

9984

9958

9344

1083

1149

1220

6606

6608

1122
1123

1136
1137

1151
1152

1207
1208

12e2
1223

4735

4825

R
¢OTY

= 002000

4888
égggl

CERR

= 100600

10758

CYLN

003300

4555

2326
2634
3174
4ese

1087

e4ee
3339
464S

2726

2349
2673
3255
4327

2781

237¢
2691
3334
4408

2S14
3499
6555

2395
2727
3416
Y446

5028
2343

5142
2379

5249
2389

3571

4278

4404

4523

6804

6830

2333
e8le

1049
11064
9188

6913

6923

7109

7192

2165s

2468
3421

4916
ggga

10728
2810

9138
10704
6306%

1124

4608

= 100000

6335

1135

4064

CCLR

10768
26lb
30383
4201

1121

3466

2672

4y4S1

1102

3384

2615

2251

3086*

1e27

1134

1118

1139

036006

-3

1126
1127
1112

1106

2375
3260

1156

1110
1111
1093

1105

2329
3179

1141

1091
1092
1076

1086

1068

055216

11048

1125

1067

BUFF

CRLF
= 000200
C70
_= 004000
CTRHLT
034570

681S

1214
1215
1145

1073
1074
1075

1010s

104407

6808

1143
1144
1128

980
979
3788

BPTVEC= 00001Y4

CLERR = 00000S
CoE
= 001000
CR
= 00001S

6612

1213

1103
1104

CKSWR =

6610

1142

1084
1085

= 010000

1109

1108

1065
1066

CFMT

1226

1090

9974
9368

CALHDR

1211

S556%
S995%

1072

= 000100
= 000200

= 000200

5706
B094%

S08l*
5370%
S5729%
6102%

9818

BITe
BIT?
BSE

S077»
5359

1155

1119
1120

= 000400

4997%
S343#+
S6I8%
6088%#

1140

1100
1101

= 001000

4975
S5332%
SE94x
6067%

1107

1081
1082

BIT9

SSe7x
H018%

4969%
S311%
S575¥
60S2*

1088

1000#
939%

BIT8

4965%
S5302%

1069

= 000010
= 000020
= 000040

2971%
5297%

3838

BIT3
BIT4
BITS

SEQ 0169

2343
3503

6884

3095

2379
3512

7493

2389
3600

1150

122l

1138

1153

1209

2sbl
3620

ebl9
3703

2676
3790

2419
274S
3494
Yse?z

2442
2782
3575
4553

2465
2800
3608
4618

1154

89384

S442
2426
4606

2426
3624

1210

le24

1225

6575
\

’

ebl10
-

ebla
29e8
4101

3019
4206

3098
4332

2488
2832
3698
4643

eSll
2855
3788
4708

2534
2885
3891
4733

2558
292S
3995
4798

2581
3013
4099
4823

25e8

2565

a57s

25e8

2565

2575

5925
2482

4696

4786

4876

c248e
5933

6307
2518

2518
6573

8923

3167

’

3176

3248*

3257

3309«

SBY47#
7833

785
3997

5785
2472

ce47e
5793

S843
7503

Slllw
S490#

2730
3893

5636
2436

2436
Se44

6375

5087%
S378%

3310

6527

6540

DFQO74

043172
043216
gu3e4e
043266
p4331¢2
043346

DFO77
DF 134
DF 144

043372
O43416
043442

DF 151
DHOOOR

043476
0440865

DHDO0O08

044103

DHO00C
DHO02A
DHO0C8

Q44116

DHOO3R
0HOO38

CHG25A

84198
8432s
84458
5458»
84718
Buygus
eelM

L LWOMN

g41e
84318
Y44
84578
84708
s483s
1306

D4306L
o4311e
043146

30(1046)

g4y208e

84338
8u4bs
5«59

guels

gu3y4s
84478
8460

gyees
843Ss
84488
84bls
84748

84738

1428
1506
1540
1620
1711

1434
1812
1847
1b2b
1717

1686

1692

1792
1894
1858

1798
1900
1882

18ee
1924
1954

2026

2032

2056

2068

2074

2080

2086

7579

75693

7623

7643

7657

7667

7677

7581

7595

7628

7648

7659

7669

7679

848Ss

84668

2032

76418

767S#

044147

7647
7643

7691

7693

78198

7827#%

7854

DHO748

guycse
Budly
84YSys
84678
84808

84728

o44233

044321
g44400
Q44457
044536
044616
g4467S
0447S2
045011

8u42sSs
84388
84S1s
84648
8477

guy23e
842368
8449
84628
847Ss

1446

1452

1458

1464

1470

1476

1482

1561

1568

187%

1582

1589

159%

75678

1730

1737

1744

1972

1978

1984

1990

DFO0e
DFO03

177570
300400
gy2idle
043016
043042

11128
84178
84308
84438
84S6s
84638
g4gees
9258

DCISP
i} T
OF 000

100000
00C104

LY T Sy Sy Sy Wy Sy Y [,
UTM el el o
owv NONNOCOCOTOCTNL L LW [N
oo O NN
PN NDWO—
M= O Ln
[se]m] COMOmNNCOCNNNWLWODO
LW £

DCK
0oC

Bl4Y

10:20
PAGE 171
02-DEC-77
CROSS REFERENCE TRBLE -- USER SYMBO.S

MRCY11

O£ L0000
r+-

CZR6DBO RKE1] DSKLS CTRL PRTH
CZREDB.P11
02-DEC-77 10:00

O4S4ED

1864

1846
1948

CZRBDBOPTTEII
CZR&DB

790Ss

10:20
PR GE 1?7 e
02-DEC- 7 7
CROSS REFEREN CE T ABLE -- USER > YMB .S

30(1046)

g4e072
Q40000
001142
000174
100000
000040

Q42524
042554
012574
042606
Q42622
042632
Q42646
042674
042716
042730
Q42742

2213

1463
1546
1971

usteiells]
042456
p42462
O4esSo4

2430

6730

] 0t 0t Dt Pt pe
NN
L L
L —00n
WWWH O

-~
-~

2337
2559

TUNY = mopms e pme NJ W)
OQ—-OUNNCNNT
= OWONC NN
DWW N0~ O00m

000001

SEQ 0171

5390+#

mwz.ot‘r;»-w\»—u

DLY

OoMD

7671

TR 0= 0= bt b pmt e 1) NI 0t bt e e
OOOODNNTNONOooTNL
—o O NNNINOQLE£—-DWO
M
won Vo)

DISPRE

Q455S]
045600

MACY11l

Pt st Pt e Pt Pt Pt Pt Pt Pt Pt Pt Pt Pran Pt Pt Pt Pt Pt st
NOOCO
DU L£.L L u)ter
Or ()bt
LO00NL£OWONDOOLDOOND
O
NON—ND
N
£ NODWOMNIWD
£N0 0 W

DHO?7A
DHO778
DH134A
DH1348
DH144AQ
DH144B
DHISIA
Dl
DISPLA

DSKLS CTRL PRTHY
0e2-DEC-77 10:00

Cl Y

1863

208S

CZRe0OBO Rrkbl1l

cZREDB.PLI

ETlgl
8“3
0e
CIBUF
S62lb

DSKLS CTRL PRTY

MACYL1Ll

30(1046)

582;
5es1

75418
68313

5398

S44Y

SS06

bbl1l

bbles

bBb13®

E6IM

3065
5192

3516
5299

02-DEC-77 10:00

318%,

2PR4.

CeLo

216Qs

S090%

ECu

8?8858

ECCXOR
003272
ECCL
053510
ECCe
053830
ECC3
053550
ECH
= 000100
EMTVEC= 000030

Mid

001310

EMW2
EMWY
EMOO0
EM300
EM301
EM3ge
EM3
EM304
EM305
EM306
EM307

052773
053063
046111
046156
046233
Que3ll
046370
046446
046525
046605
Q46707

EM303
EM310

94706
§u7eos

E3F%.

o3R8,

12i4s
43e

2983
€078

Se204®

5309

21618
J318°
503
§144
11038
10138

6534%
4378
c031
5205

HE00*
gocew
8531s
85338

BEOY

2197%

2198%

5539
6066%

S566%
6093*

5689%
Hb43*

5710%
BBES7#

1419
1437
1488
1473
1491
1509
1530
1551

795Ss
79638

6643
6657
1336
1407
1425
1493
1461
1479
1497
1516
1537

1270
1
{2ad

4960%

6684
6637
79488
1413
1431
1499
1467
1485
1503
1523
1644

126

1
1g8k

4976

SO72%

83348
BYO4S

1203
1g7i

8page
To1 .

1663
1665
1677
1689
1702
1708
1727

1653
1671
1683
1695
B083s
1714
1734

8061w
80688
8075
80828
1720
1741

81008
8107%

EM319

050020

1765

1771

1777

1783

EM320
EM32]
EM322
EM323
EM324
EM32S
EM326

EM327
EM328
EM329
EM330
EM33]
EM33e

EM3Z3

050071
050155
050241
050324
050417
(050512
050602

050670
050742
05i021

051072
OE1135
Qciges
Q2130

1747
1788
1813
1837
1861
1885
1908
1833

4360
4976
1957
1963
1969

1987

€342

173

SEZ 0172

1753

1795
18i3
1843
1867
1891
19i5
1833

8220
1976
1993
5535

1759

B8113%

1801
1825
1843
1873
1897
1321
1946

5186
G202

1807
1831
1855
1879
1903
1827
1951

25295
63i0

1981

82268

6066

89249

1999

5635

58195

838c

2BA(.

SS5C2®

5705+
3806
§337

3857
534

S0B8*

S931

599%

8939

souns

eoee

ese2

BBA3

B9dB.

5854

5994

pb02e

6607

6608

6609%
4222
SBNY

4348
53g4

S369%

S48

5503+

3909
5492

3960
5530

4013
SS61

G73p#
BEBY*

S1Bb%#

G©838%
BT

5202

S296*

S5310%

5342%

1623

1629

1635

184l

1647

80528

S689
B20Ss

5838

5978

8138w

5859

58A8Ss

5378

5399%

7979s
7987w
799Ss
8004
BOlb6#

47273
047342
Q47407
Q47463
Q47522
047616
047663
047761

PRGE

7971w

EM311
EM312
EM313
EM314
EM31S
EM3I6E
EM317
EM318

D14

CROSS REFERENCE TRBLE -- USER 3SYMBO.S

11438
dH67

140i%

10:20

75358

BECSTTM BaSaee

6603%

02-DEC-7?7

B23Ss

81258

8132%
Bl4ls
8150%
8159s
81698
8179w
8189w

5489
5503

MI17
SEIS

p02S*

6032+

eses

6063

EM33u4
EM33S

DE134S
0581403

CSKLS cTRL PRTM
Je-DEC-77 10:00

MACYL11l

€369
200S

5566
201l

6093
2017

82508
2023

2029

203¢

2041

82568

20589

2065

2071

20?7

2083

2089

82728

g7 3¢t

5885

6025

6063

2290

1408
1728

1426
1748

1444
1766

1462
1790

1480
1814

1498
1838

1817
1862

1538
1886

1589
1910

1580
1934

1600
1970

1654
1988

1709
2006

1486
1492
8318#s

1604
1S1C

g83l2s
831Ss

EM33¢

0S 1487

2047

82648

EM338

pS16l3

§710

£859

EM340

052005

209S

EM33?

EM339

EM4000
EM400!
EM4002
EMY4003

0S1S34

0S.?01

0Se0s2

052070
0%211l
0%el3e

2053

2101

8309
1480
1456
1566

1468
1474
1587

1394

2012

2060

83268

2018
2024

2066
2072

83298
8333

£M4006

052230

EMN007

0S2254

2000
1618

EM4009
EMY010
EM401]1
EM40l2

052327
052377
052447
052525

1630
1636
1642
1648

83418
83488
835Ss
83638

EM4014
EMH01S
EM4016
EM4017

0S2633
0Se667
(0Seve?
(0S274S

1666
1672
1723
1958

1678
1684
83878
1964

E.RSOF

003216

2134

003200

2levs

EMY4013

0S2S6S

ERRCNTY
003250
ERRVEC= 000004

£.8A

E.CS1

003204

8302

6032

2054
1432
1438
1645

0Selbe
D0Seele

052302

£999

2048
141y
1420
1524

EMY004
EM400S

EM4008

30(1046)
02-DEC-77
10:20
PQGg 174
CROSS REFERENCE TRBLE -- USER SYMBO.S

15831
1606
16ie

162eM

1660

21528
10068

1882
1718
1721

2030

1784

2230
22ll

1573
1735

1742

2078

1808

82808

1694
1754

8322es
1772

1796

1820

1894

1868

1892

1916

1940

1978

1760

1778

1802

1826

1850

1874

1898

1922

1946

19682

1880

1904

1928

1952

83698

62S1*

6252

6279%

6280%

6341

b34cH

B34

6347+

7509

7538

2733

a74¢e

e77b#%

2788

2797

2810

3465%

3470

3?13!

3556

3601
#

8337

1832

1856

1690
1696

2042
2036

2090
2084

2096

2102

8390#

£510#%
2212%

6513
c223x

83768
83818

2129

285s0*

2861

5398#*

S409

SE3S#*

5606

2610+

2622

2631

ebb7#

2679

2688

2721

2812+

2343%

2847#%

2346

28S2

SEa 2

2389#

2882

2392

2938#

o436%

2439

o482

2953

2969

2485

338c#

G20

385

2531

3464

2575

3467

2578

3Slex

£.252

003elo

2131s

2848%

2858

2873x

2888

2300*

3383

3388

E.CA

003206

2130

2609%

2621

2b6b*

267€

2701%

2702

2720%

2775%

2787

6571

7522

7538

BSH3

2756

BSEY

pS4H2®

2755%

BS49*

6S41lx

2647%

2648

2665%

2677

27198

2731

2774%

2786

3140

£.08B
E.0Cy¥L

003eee
0C3ee20

2l3bs
21358

£.DS
E.ECPS

003ele
00323¢

cl3es
2140w

E.ECPT
E.EF

003234
0C3ei4

3143

2l41s

bbly®
2133

3eel

2874#
2608%

3302

5397%

5418

S594%

Sk1S

2732

B545%

BS46%

BSY7

3e24

2894
2620

3305

7516
2b44®

83%6%

5415

56833*

Sbi2

6S40*

B5S0*

B5SSH6

H4977%

4934

5108

5222

5329

Ssa22

5726

587S

6018

6049

610S*

6107

3384+

3391

34bbs

3473

3S14%

3559

3569*

3602+

367!

b61S*
2851®

7533
28&7

7541
2891

2645

7see

7538

CZR60BO RKkE11
cZRE0B.P11

ElY

C2Re0BL RKell DSKLS CTRL PRTH

CIFeDB.PI1I

E.MR]

003224

Oc-DEC-77 10:00

3748
4266
4795
21378

003226

£.MR3

003230

£E.SPAR

003236

E.uWC

FMTE

003202

= 000020

GNE

= sxEyrax

= 00000!

GTSWR

HDRCNT

HERDER
HERD |

HERDIO
HERDL1
HERDZ
HEAD3
HEADY

104406

003310

05344y

HERDS
T

2640

cl39s
21424

2128s
1101s

1163

6654

b672%

23494 #%
2694

2352
2748

2390»
2803

2398
6563

2437x
7506

2697

2751

2806

49664

56774

6681

6690

2448

2483»

e49l

S69S+

SB4YY s

S84

23%1#%

a401

2438%

2448

2484

2494

6584#

7506

3960+

S078#

5192

7503

S20

2529

2537

2576»

2584

2530

2540

eS7?7x»

2587

7493

7494
4167

60SS#

6087

620#

bbele

Se09

7509

7538

1234

2250

6134

bl4]l

7485

7486

7487

7488

7489

7491

3570

4277

4403

ysee

4606

4696

4786

4876

5389

§586

3S16%

3519

3566#

3567

3807
4352

3856#%

4399

3910
4400

3959

Y468%

HO14#

4471

4063%

4518#

4118+«
4519

7528

£531#

£83c»

6533»

bS34s

6535

4220

4226

3116

7497

7499

474

4349

3197

278

£527#%

6528%

6529%

6530

4938

S0S0

SieM

5270

S463

guyses

4276

4402

4821

4698

4788

4878

3383
4697

3465
4787

3513
4877

3601
S3190

3747
c87

3804

3807

4011

4115

e47s

252l

2568

2624

268l

2735

2/9Q

2838

4562
SY4S
6729

4599
6879

4652
5647

4689
€796

Y742
5336

H?fg
6637

4832
6651

4869
6678

6253*

6259#

6263

6274x

4846
§95S
8489

3042

7498

Y73

4756
5815
4576
8492
8495

539+«

g5ees
852Ss

84984#
8504

3602

= 000100

10848
4346

917

1138

8Sl6s
6882

6923

3748

4168

3173

3254

B527%

873
4465

6917

2300
4607
6923

1209

2336

2382

2429

4004
4923
6691

4108
5035
6718

4213
S149
6721

4339
5256
6723

4458
8382
6727

6193
6229
6182
1252

6219
62908
6194

6254

1018n

6181
1253
S763
1181

2932

MDS
= 001000
MEMBRS= 172100
MEMERR
(034526
MEMPAR
(003274

10878
1019
1182
21628

MERC

11398

001000

4518

422le
4788+

S59%#»

11058
1107
10654
1097
3092

CS61s

Y4678

YieBe
470S
7583S
3956

5412

4666
S666
3357
3439
3721

4113
9168

MEMVEC= 000114

§530%

4160
46598
7528
3909+

§399x

6538

0S3460
000011

0000le

)

Yllbs
4615
7524
3857#»

2864

6537%

3305

= 000400

235S

40642
4608#%
7513
3853

2849+

000400
002000
000100
000001
(03S6eM

40S6
4sels
7509
3806#*

6650%

8510

4Ql2s
4Ysl11
Se03
3563

6640

6536#*

3802

3952
Y4664
5588#
3S15#

6636%

2345

Y4117#

3908#
440
5406
3066

4396

7491

;gg?l

SES 2.7+

43484

2e4s

cle7s

17S

4270

7496

10648

PRGE

Yook

7495

053430

/EC=

MCLK

S364#

F1Y4

4164

4009

HYRC
=
I0RE
=
IE
=
ILF
=
INCHDR

6337%

2'38s
e6l3?

2956

HERD?7

3849
4392
G391 #
3065

6b31lx

0S33e4

0S3414

HERD6

3805#
Y347%
488S
2984

;gg?i

clebs

HEARDS

3758
Y4e7e#
48784+
2983

10:20

CROSS REFERENCE TABLE -- USER SYMBOLS

4060

003302
053474
053502
083372
0S3400
053406

02-DEC-77

40l 3»

5299%

£.MR2

MACY11l 30(1046)

3023

1210

3029

6721

3102

6202
£729

3183

&220

B229*

3264

6230%

3343

6283*

3425

6284*%

3506

3626

6281

37g?

3797

3900

CZREDBO RKE11 DSK.S CTRL PRTY
CZFEDB.PLL
Qe-DEC-7T7 10:00
MESMSK=

000C17

MEWD

= 002000

MIND

000200

MODeBF
0S5e0e
MSP
= 000130
“1.BIT

0G3ese

11328

1140

003260

NED
= 010000
NEM
= 004000
NEWPAS
(004316
NPRBUF
053154
NXF
= 000004
QFFSET= 00001S

QFST
OP1
OPI1

OPlIe

= 000004
= 020000
053574

054074

OP13
OPIY
OPROOL
QPROG2
QPROO3
OPROOY

CPROOS
OPROOE

0S4374
0S4674
04352c
043551
043557
(043607

Q43631
043671

= 000200

PACK
=
PARCHK
PARM
PAR. EN=

PAT
PCA
PCO
PGE
PIP

=
=
=
=
=

PIRQ
=
PIRQVE=
PR.BIT

000003
034366
003314
000001

000020
004000
010000
002000
020000

177272
000240
003254

12118

30(1046)
02-DEC-77
10:20
PRGE 176
CROSS REFERENCE TRBLE -- USER SYMBO.S
2983

4966

5642
11368
4015
5463
21558
3271%
3644+

5707
12078
4119
5652
2940%
3282%
3657%

S8Sse
2936
YyeeH
5801
2960%
3295%
3714%

8936»
3106
4350
5941
2977%
3350#%
3725%

4964»
SS69*

3806

3857

5492

56935

2187
Y469

3268
4566

3347
4656

Hl46®

303S#
3361%
3738%
H4229%

3046*
33748
3B8l1x
H4239%

3059
3432%
382]1+#
4252#

4982%
5633

5076%
S712x

5095#
SB42x

5190%
SBblx

5209+
5382%

2850

2870

84174

1118
11108
3511

3569
85494

4276

4402

4344
1463
2257
2260
ceb?
2278

87418
8837
77118
2271
77178
77228

2287

7715

1085s

2848

2873

3383

35813

3801

3747

3804

3907

4011

62518
1241
6198

7446
21718
6224

6257

1212%
12138

662l
662l

6636
6631

6672
6677

21548

2939%

2950«

2960

2963*

2966%

2977

3207%»

3214

3215%

3270%

3276%

3282

3285+#

29378#%
3133
3288%»

30342*
3134%
329¢S

3040%*
3189
3296+

3046
3195%

7503

21568
;gggl

1090
10894
23074
2835
1099
10S3s

4218

6308
2254

4346
1048s
2307
1170
10208
11348
1141
11424
10884
11268
9238
1017%

3059

12088

4122%

3028

4132%

5192

3515

5299

1137w

5078

3065

4467

4O4ex

M2.BIT

MPCYLLl

Gl4

3029

3030

4521

86454

77268
7732

4465

306e0*

4607

3108¢

4657

31l4*

3465

3120

3123

3126#%

3349+

4115

4220

<oR6DB0O RKE11 DSKLS CTRL PRTH

tZReLB.PI1

0e2-DEC-77 10:00

3364#

= 000000
= 000040

SEY CIT6

3431®

3437%

3443

3919%

3954

3927+#

3932*

3938

3939%

4754%

4?7

5280%
S470%
940s
Qu4ls

PAGE 177

3375%

Yicls
42S3®
4497

5670
5832
6002

H14

3379

)
*
4252
4490%

Hssa
4987,

10:20

3367%

467 3%

02-DEC-77

CROSS REFERENCE TRBLE -- USER SYMBO.S

33q3

PRCO
PRI

MACYIl 30(1046)

4676%

4853;
273

Ylg7%
43S4®
4498%

4132
4360*
HS&B!

5287
S47 3%

S673*
S833#
6003

5288#
sS480
S676%
S840%
6036

S293#
S4Bl #*

2308

Hgggl
EQyAr
6231

H135#
4365
4e74x

4748

344;1

3456

3457+

3S52ls

3527+

geg*

4838

ngsl

4Q34#

404

BEOEE

4138%
4368%
4580

Y147+
4378
45B6*

YooBe
4379%
4593

Yo34s
HY473®
4594x

§373
5547 %

5098

482
EP3%F

4864 #
ead

4929
BTRDY

5683
5862
6037%

SeB84*
S863*%
6073

S5691*
S944»
6074%

S317
S486#

446+

5318%
SS10

4146
4371%
4583%

49381
EUmd

4017+«
Y763#%

4941
e%%R

6349
SSil#s

53S0
SE46

7429

7443

5713
G952%
6097

S714*
5959
6098%

4766%

4944 »
29%7:

SBO4*
S362*
bb22

Y7744%

6374s
§570

435y
2R3k,

G455
G571»
5819
£372
7503

LT 9%
S6S5S»

5822
5973%

S467
S6b34

S100#

Si03*

49‘4;!
297aL

SBl2®
5965
6714

= 000100

942

PRY
PRS

= 000200
= 000240

QU4
e
g45s

1023

2146

9478

1183

1254

a2lse

65230

6252

10128

2201%

2202%

7428%

7429%

744eR

D
B B
S718%
S5721#%
SBJQ*
68:1* FoEe BOZ;
AN
&
3w
MR
4124
4128
4139

Epio

HED

60;?‘
%R
4148

6089*
e
o3P

6039
B

5023"
BB

6820 b?fz
RN
Ml
A

3?§g
&

5182
5808

Se6s
c813

5269
5826

5281
5834

PRE

PR7
PS
PSW

= 000iM0

880300

=
=

177776
177776

000340

PWRVEC= 00024

P1.BIT

003252

ROBIT

037026

gogggnz= 60431?
ROGARTE= 188080
RDHERD= 00002%
ROLIN = 104411

ROOCT =

ROY

104412

9468
3208
9218

2é53l

Hgfill

4491
4775

{Sgg ]
11468

gqgg.
12168

50e8
SeS

1057+
7342
cedbl

RECAL = 000013
EES$E$= IOHHIH

1052
6509
1

RKASOF= 000016

1035

= 000004

4480
4767

égggt

RKBA

Hggg!
2330t

48YY»

49624
2is3)
5825+
5980+

= 000200

el g

HeUs#
Y487
»
4670

477

Y
44798
4658

BT
Youycos
H4BYM
Y6bYR

PR2
PR3

5,
10308

2328

5158
Sbb4

7495y
eerze

HQT;*
*

S850%

5863

HQ?Ol

S867%

5870%

4841

2343
bbal

e47e

2610

2667

4278

4286

4404

24z22%

2468%

2514+

S
5677

2288

74388
1238

2174w

2329%#

237S*

3098

5174
5685

74968

3179#

2482

3260+

4235
4587
4865

7443«

5073#%

4231
4575
4857

3579

3019«

Hqg?l

4571
4845

ggg;

Hqgg

3339%

4246
4535
4932

508:*
%

5979%

4as4
4661
4336

5990+

4357
4665
4948

6003

e0C7#

S187#

S462
S366

4380
4751
S048

S474
8974

4476
4755
S0&0

4876

g?g; 3135 3192
EEE
B B
98

4361
4677
4956

437
4685
SO44

7
a2rzl

2776

4739

4786

4412

4523

4531

4608

4636

4786

2Shbl¥

2619%

2676

373g*

E?ggl

sgggl

3620»

703«

6037

5458
59353

3499%

6010%

5289
5948

342l#

S‘ggf

3790

c482
B714s

384;

972

cZR6DBO Rkbell DSKLS CTRL PRTH
CZRE0B.PIL1
0e-DEC-7?7 10:00
4101#

FroSt

000030

SYYYR
10288
2465%
2bces
2794
3013%
3461
%
3794
4257

4SC 3

4798%

RKCEe

RKkDA
RKDB
RKOCYL

Coo010
000006
0000
000020

RKDS
RKECPS
RKECPT
RKER

S249#%
10328
3577
4604

1031
3177%

4209%

1037
10368
3176#%
4208*
1033s
104ls

MACYL1l

4206+
5591
c326#

I14

02-DEC-77
10:20
PAGE 178
CROSS REFERENCE TRBLE -- USER 5YMBO.S

30(1046)

Y4S1#x
S791#»

2340
2488

2349
2S11%

283b#
3099%
SO
3897»

eg4e
317Y4%
3575#»
43

46168%

4619

24esS»

e471s

4710
ot

4784
2470%

2423
3301

2469%
3336*

Se20
2990

5328
3381

5585
2337%

2373

2790%
3024 %

2791%
3028

eb73x

4327 %

4829%
SYyox

3841

3300
4558

4557#

4385

RKMR1

2559*%

3184#
3417%
3627
3852
4100%*
4339+

4op3*

000034
000036
003242
000022
003240
0000a2

26794

4735

2372#%
2518%

4873
SY46%

3944

3337#%
HY648%

%
Y47

Yyll

2568#%

3187%
3425
3630%
3892#%
4108#%

4340

%
4566

4Y743%
4323

S4SY %
S330#
6680

5579
5936
6691

2434
2435

2480
2481

eNel
3178

2467
3259*%

S7cx

533cx

44ySox

4e4SH*

43364

Y742%
4Q17%

G153%

RKMR2
RKMR3
RKPR]
RKSPAR
RKVEC
RKWC

4ESS#»
5931#%

S154#»

45S6*

2513
3338%

Yo4bx

2834%
3894%
S252*

2844
3998+#
§38S

cZREDBO RKB11

CZR6DB.P11

DSKLS CTRL PRTY

MACYILl

DE-DEC-%7 10:00

J14
PAGE 179
CROSS REFERENCE TARBLE -- USER SYMBO.S

30(1046)

02-DEC-T

10:20

SES 0178

RLS
= 000010
SAVREG= 04413

1081s
6456

74978

gggslsz égggég
1
003276
SEEK
= 000017
SELDRvV= 000G01
SK1
= 000002
SPRCES
043751
SPAR
= 020000
SPDLSS= 000020
gs;g%&
8888??

Esgg

;Zgg

2754

2809

3146

3227

3308

3674

74998

3087%

3096

31472

3148

3168+

31727

3249*

3258

8533

6504

77418

2171l

2174

2177%

2255

2180
1238
2175

2193
2177s
21788

6298

6309

6520

6708

7Y4Y

B318

2191l
6511

ecl3x
bb46

c2els
6661

2c2ls
6688

2cct*
6701

eeM3
6808

6294
6815

6336
6827

6350
6831

cell

2243

711e

7151

7174

6439
2483
2344

6646
2529
2390

6661
2576
2437

6688

6701

2483

2529

23190
2344

2390

2437

]

1638

1054

10470

1098s
6492
10738
11208
?ég?l

STACK = 001100
STARY
003334
START]
003340
SWR
SWREG

SWO

SWOO
SW0l
SW02
SW03
SWO4
SWOS
SWge
SW0?
SWwig8
SW09
SW1
SWi0
SWli
SWlg
SW13
SWi4
SW1S

000176

000001

=
=
=
=
=
=
=
=
=

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

SW3
=
SWH
=
SWs
=
SWE
=
SW?
=
SW8
=
SW9
=
S.CLR =
S.FMT =
S.PACK=
S.RECL=
S.RTC =
S.SEEk=

000010
000020
000040
000100
000200
000400
001000
000400
001000
004000
000040
000200
000020

SuWe

=
=
=
=
=
=
=
=

001140

= 000004

6541

]

Slls
1167
2172
»

1305s
6439
7427
11658
975
9654

964
63
362
Scle
9608
9598
9588

957s
9568
97448
955
9544
953
Qc2s
9S1s
9508

7447
%
12368

97S
974
973
972
971
970
969
368
67
966

6511

9738

q72s
971l
9708
9698
9684
w7
9664
1153%

1154s
11568
11508
11528
1149%

6294
12244
12254
1227
12218
1223
12204

2576

6368

71581

6375

72064%

CZR6DBO RKB11 DSKLS CTRL PRTY4
CZR6DB.PLI
02-DEC-77 10:00
S.STSP= 000100
S.UNLD= 002000
IB8ITVE=
TKVEC =
TPVEC =
TRACK
TRAPPC
TRAPVE=
TRTVEC=
ISTBY1
TSTBY2

0CJO1Y4
000060
000064
003277
003244
000034

TSTIO
TST11

DO&44e
006716

TST1

0CO01Y4
044041
(Q440S1

004334

11518
11558

1008s
10158
10168
2le4s
2l4?s
10148
1009%
5769
5772

2309

26628
27168

7089%

7090#
.
3229
7502
2200#

65es

23238

6157

6395

b40M4
2829s
2886
2987
30838
6409

B40S
c3c2s
3010s
&408

6406
6407

23638

6396

3228%
be9l®
2199%
7751¢s
77534
B402
6403

007166
007442
0l0lle
010536
011076
011470

TST20
TS121
IST22
IST23
TS724
TST2S
IST26
T5127

0l2064
0le460
013054
013450
014236
014726
015322
015774

32458
33318
3392
3474
3581
3676
3756
3859

6410
B4l
34138
34918
35978
36958
37858
38888

IST30
TS731
75732
IST33
TST34
TS13S
TS736
7S7137
TSTY
TST4O0
TSTH]
IST42
TSTH3
IST44
TST4S

016446
017120
017572
020360
021146
021734
022424
023114
005252
023604
024274
025010
025534
026260
027516

3362
4066
4170
4288
4414
4533
4eo4
471y
2443
4804
4894
S025s
S1398
Sa245s
S419

39928
40968
41988
4324s
44438
4S50s
46408
47308
2449
438204
49138
6428
6429
6430
54388

IST47?
TS7S
TSTIS0
TS7S1
1576

031552
005502
032424
032454
005732

$7?608
2489
5773
59208
2535

6433
2435
S300%
6435
254}

2237

2esY

004566

TS713

005020

TST46

TYPE

030766

104401

2350

c396

Sel6

6308
eg8is

SEJ 3179

1222%
12268

ISTle
ISTI3
TSTIY
ISTIS
ISTle
TST17

IST12

2771s
e8ll
2856
2985
3067
31648

Kl4

MACYIl 30(1046)
02-DEC-77
10:20
PAGE 180
CROSS REFERENCE TRBLE -- USER SYMBOLS

2356

e40e

Se32s

6468
6€87

B4l2
6413
b414
B4IS
B41b
B417

24168

6418
6419
6420
b42l
b422
6423
6424
B425
e4ees
6426
427

8397

6398

B431

6432
2508s
B434

6399

2555#

6400

2es?7

2260

6469
6983

6473
7058

2eb7?

B474
7106

eezl

6481
7118

c2arg

6492
Tive

2es’

6494
7173

S769

6504
7176

§772

6S0S
7187

6l3e

6507
7197

E139

6S1S
7208

bl4b

6810
7227

L1Y

CZREDBO RKB1! DSKLS CTRL PRTY
CZR6DE.P11
0e-DEC-77 10:00
TYPERR

035326

TYPON =
TYPOS =

104404
104403

7275

SEQ Q0180

7281

7286

7290

7295

729

7298

2270

2e8b

5771

6489

7178

74868

21108

2845%

2340%
2631

2861
2346
2685

c394%

2386%
2688

S4C9

239¢
2739

Ss91x
c433%
742

64568

2259

74888
74878

7301

730S

7371

7373

7448

7485s

S606

2439
2794%

7509
2479%
2797

7538
2485
cB4yox

2525%
852

2531
2879&%

2572%
2882

2578
2944+

T.RSOF

003156

T.CE1

003140

2l08s
cboB8*

003150

2lles

2843

2858

2880%

2888

2989»

3380%

3388

3462

3470

3S51*

3556

3S77%

4263

4YoB84®

43B4%

4389

;gggl

4410%
4874%

4503%

4508

4S529%

4604®

4612

4620#

4694x

4702

3140

3219%

3221

3300%

3302

8393%

5418

5590%

S61S

7522

7538

3143

3220%

3224

3301%

3305

5392%

S415

6589%

Sbl2

7522

7538

S106%
6015
288l
3755

5108
6047%
2891

5220%
6049
2990*

*»
*

5328%
b107
3391
3952

5329
7533
3463%
4049%

5521%
7541
3473
40OSe

552e

5724

5726

003166

T.MR3

003170

T.SPAR

003176

UFE
=
UNLORD=
UNS
=
UPE
=
VRCHDR

000400
000007
040000
020000
(0SS174

T.WC

WCE
WLE

003142

000100

= 040000
_ = 004000

003264

WRHERD= 000027
WRL
= 004000
WRTBIT
036300

2982%

2984

5693%

6634

163%

1198
£29%
120
630%
123w

4164

2341%
2637
2342
2640

e e e e

4994
6013
2867
3745%

S
1188

3064*

3066

3562%

3956

4059%

4705
7513

4060

2445
2795%
2448
2796%

2480
2803
248l®
2806

2491
7506
2494
7506

2526%

2537

2573%

2584

2527%

2540

2574#*

2587

7509

7538

4559

4606

8357

7531

3616#

3619%

3640

7527

8933

032
108#

0
1
3

463S®
7509

2434%
2748
243S%
2751

7520

5609

7516

4e2l®
5603

3578+

4259%

2398
2740%
2401
2741%

5592%

2897%

4160

6680+

S412

3559

4iS3®

4636

4973

4920
4991

5032
5079

’

6654

5395%

e872%

3552*

7513

6653*%

2864

4105

3955%

7509

6640

2387%
2634
2388%
2697

4010

3853

4615
cSgS*

5600

6639%

2352
ob86%
2355
2687%

4001

3852*

4605%
5406

5S84

Y5]S

4395%

3614

4S30*
5388%

5403

4S14*

4270

2844%

122

S387%

4336

4269

7503

4890%

1098

0Ses
0SOs
1118
091w
613%

HgDCNT

4993%
5875
2B46%
3671

7516

T.MR2

2894

4882

£
@
~N
n
L3

00316M4

1228
873*%
1148
g ¥
7

T.MR1

9= b

12is

2875%

£
~N
Vo)
n

003154

3139%

;ggg

£
~N
@
wn
w»

T.ER

1168

1138

003174

3138%

1178

D O 4= 14— GO

003172

T.ECPT

111s

NI NN

T.ECPS

003152

;gg:i

MO D NI— Di— (N

003160

T1.0S

£ 0 £

T.0CYL

003162

0C3146

7.08

T.DR

£ =0 L W) tets b b () e b = = U RN U NNV O £V LK LW VIR
N L

—

T.CS2

£
[0}
[

003144

Vgg)g)\nwommmmu»—»—om.nuoommo—mmm-—m.c:umo—mtr
N mO
L

T.BA

2ll1Ss

6817

19
®
n

TYPOC = 104402

MACY1l 30(1096)
02-DEC-77 10:20 PAGE 181
CROSS REFERENCE TRBLE -- USER 3SYMBO.S

9114

4210

4219

4336

4345

4455
Se44

5793

5933

5085

S104

5193

£199

5218

5300

5306

83a5

5146

5253

5289

S446

5586

Y464

CZReDBO RKB11 DSKLS CTRL PRTYH

De-DEC-77 10:00

5493

5499

oW
85

1265

12718

fi§¥82§= 888886

HowM
isgg.
215 ER
98

WRTPAR
Q34102
WR.PAR= 000005

6
§77S
1C2ls

61798
5186

SASTAT=
$ATYC
$ATY]
$ATY3
$ATYY

*#xx3% U
037162
037136
037144
D37154

6766
6737
67358
67368
67388

$BASE

0Cl1e70

1374

$SAPTHD

$AUTOB

001000

(001134

]

1194

(00l1lee
001126

$BELL

001204

S$CDWe

001276

SCDWL

S$CHARC

SCKSWR

$CMTAG
$CM3

$CM4

SCNTLC
SCNTLG

g01e74

040062

041036

001100

= 000000

= 000010

1200«

6781
6739

13028

6872
6823
2247

2773

2831

3890

$BDRADR
$80DAT

7165

3994

4098

4200

29eM

S84Y

5984

2510
3415

2557
3493

5784

5924

6306

7448

ycce

4732

4822

2664
3697
S0e7

7208

7295

2197

2e03

2204

22058

13178

1318%

1319

13208

13218

1322

1323

6473

6481

6494

6507

6818

6843

6888

69e3

2235

61S1ls

6838

6744

6768

£820

65314%

6519%

£372%

6334

B441

680S#*

6843

7503
7541

7506

7509

7513

7516

7518

7520

7522

6310*

6388%

Eb4e*

6656#%

6663%

6683%

6636#*

6703#

13158

13168

6155Sx

SENDCT
SENULL

033726
034076

2203
6158%

001235

134Ss

7197
13484

1339

1177

1248

6130%

13448

2241

033672

6120%

6315

001103
001118

12884
1294 %

2203%

6746

61278

6131

2179%
2206 #%

6364
6394

6818*
752

9813*
G631

6814
7533

6843
7535

6143

b147%

6Bl1l*

6843

2197

68038

$ERRTB

001300

1394#

6465

SESCAP

001202

13248
65707%

2205
6834

1343

6874

6325
£389%

037404

12928

6521

6869

6311%
6366

001116

12958
7524

73158

2eehb

$ERRPC

001234

S69S

2189

6149
70eeH

SETABL

s492

2188

1375
6128
70ez

00111

5299

1285#

1315s

001272
034072
040520

SERTTL

5132

6920%

SDEVM
SO0AGN
$0TBL

SERROR

3247

4y44g

5985

6915%

7493

7066

SERFLG
$ERMAX

3166

4326

g871

2418

308S

3012

5851

6906

7i51n

7058

033720

2371

S078

S84%

£899#

13778

7024

SEOPCT

4876

4966 oW

g§72e

6889

040530

SEOP

5702

7315

$08LK

D01234

232S

5696

7118

£468

SENV

OB 60

ggga

6843

g%;g

SENVM

Ssaé

6810

13768

;g%gs

034062

SEQ 0181

13cSH

1297
12588

5635

oolell

SENDAD

PAGE 18¢

S441

73168

Q01224

M1lY

5248

7290

$DEVCT

73e2

2305

7187
7317

SCRLF

)

2cbb%

7106
7172

041741
001242

§518

2258

041734
Q41746

SCNTLU
SCPUOP

10:20

CROSS REFERENCE TRBLE -- USER SYMBO.S

8376
=

02-DEC-77

U
NN
£
=)0

CZReDB.P11L

MACYLl 30(1046)

2306#%
£836

65290%
6843

65293%

6867

6366
-

CZR6DBO RKB11 DSKLS CTRL PRTY4
02-DEC-77 10:00
CZReDB.P11
SETEND

SFATAL

001300

001216

1206

13368

SFFLG_
SFILLC

037402
001156

6735%
13138

$GDDAT
SGET42

001124
034052

12984
614848

$HO _ = 000000
SHIBTS
001000
SHIOCT
Q42134

896
1201
7364%

SFILLS
SGDRDR

SGTSWR

001155
001120
(041126

SICNT
SINTRG
SITEMB
SLF

01104
001135
001114
001212

SLPADR
SLPERR

001106
001110

SMADR1
$SMADR2
S$SMADR3
SMADRY

001246
001252
001256
001262

SLFLG

SMAIL

6766
6923

6775%

6783

6923

7491
12724
7375%

5382*
7209
6822
7305

6393
7322
6843
7315

7376

12908
12918

2207%
2208%

6£361%
2bll*

6370
2668%

6386%
2722%

6391
2777%

63393
3088%

7449
3169%

3250%

3604%

1202

1206

1273

1277

13348

2225

224!

6385

6820

6867

037400
Q41764

6736%
71786

b742
73208

6777%

6781%

001214
041753

13358
7173
13564

6750
73184

24528
761
3313s
3864
46278
5233

2454
28178
3315
39658
4629
S4e4s

24384
2819
3395
3967
47178
S426

037401

00124

001230
001232

$MTYP1
sMTYP2
EMIYP3
$MTYPY
$MXCNT
SNULL

00124S
001251
001255
00leel
03515t
001154

SOCNT

040310

SNWTST= 000001

6776%

6387%

13618
13658
1368#
13718

1355
13638
13668
13698
12024
13418
13428

13648
13674%
1370
6383
13118

23138
2595
30708
3586
42918
902

1273%

6752%
6757#%

63334
6894

001006
042360

12048
7445

7436%

6709

6833

6755

6758%

6923

6770

B774%

2359s
2653
31518
3681
Y4178
S00S

236!
27058
3153
3759s
4419
S117#

2405s
2707
3232s
376l
4537%
5118

2407
2759
3234
38628
4539
S231s

6954®
6362

6959
6371

6962*
6381

£973x
63304

BIGIH

7438%

TH40x

74S1s

2225%

$PASTM
SPOWER

puN3

2315
ebSls
3072
36798
4293
S003s

13388

6950*%
6337

0423SH4

B393

5895
BIB4E

Q40312
035142

00leee

£782%

£893%
69SS*

$OMODE
$OVER

$PURCT

6£738%
689¢

6380
7189
e814x
6923

$MSGRD
$MSGLG

$PASS

1378s

6379%
7170%
6459
6843

001244
001250
001254
001260
001002

$MSGTY
$MSWR

71738

1277

&772%

SEQ 0182

12898
1303
12938
13288

$MAMS!
$MAMS2
$MAMS3
$MAMSY
$MBADR

SMFLG
SMNEW

13128
129648

N1Y4

02-DEC-77 10:20 PAGE 183
MACY1l 30(1046)
CROSS REFERENCE TABLE -- USER 5YMBO.S

12754
74524

7437%

59078
£997#

bla4x

5909

blaS*

bl3b6

6158

6377

6394

S780x

6299

6370

CoREDBD Rrell
CZFBLE.PII

SPIWRDN
SPUWRUP

DSKLS

Quez3e
o42260
001210
041400
Ensany

Q414720
Q41776
000010

Q42174

034074
L 338584

042136
Q34646
SSETUP= 00013:

L PRTY
10:00

MACY1l

30(1046)

2201

74278
74368

7442

7428
13268
72409
7497

7c638
73374
72568
74098

61S57s
7499

6843
7494

0e-0eC-77

10:20

B1S
PAGE

SEQ 0183

184

CROSS REFERENCE TARBLE -- USER SYMBO.S

£9323

7ee7

7298

7318

7373

7378

7445
7496
7498

7497

2207

223s

2238

LAl 2l

VA IN U

MWL NINW
£ N £V
WANNOo NN

SSTUP = 1272777
$SVLRD
035106
$SVPC = 000220
= 167400
SSWR

ble2

001236
SSWREG
=
SSWRMK
$SuOBT
STESTN
00leead

$TIMES

7520

2830+
39932
S439»

001200

001146
o40S40
STKINT
040580
S$TKGUEN= 040547

$TKB
S$TKCNT

[

7143#%

p40s42
Q4OSHY

OND

S XN
BB

NWoUVIN-— 000N

MONUNY
et bt e b e e Y
)
DN LDWWWWWWWNIWO

NNNNNOO
U

OO0 e s e s e
[ LY o oY o Y el

00000000

00006 >~
o

Lo
Ln

A2,

(& YUo

057546

7183

7169

7179

7181

Teil#

2er7

2289+

2asl

2293

2295+

2402
2544
2817
3151

2405
25568
2830
3165s

2296

2297

3616

836
2452
260t
29234

23244
4
2bb3s
2987

2443
3246

<ZREDBO RKEll DSKLS CTRL PRTH
CZREDE.PLL
pDe-DeEC-77 10:00

MRCvll

3313
36968

3332
37¢6

S117

S140s

4170
4627

£893

Cl5S

30(1046)
02-DEC-77
10:20
PAGE 185
CROSS REFERENCE TRBLE -- USER SYMBOLS
3392
3759

3395
7868

3414e
3859

347y
3862

Y-01°Y )

c419

3yz?
3889s

&35S

S4eHd

6395

S439s

S6338

Yer4Y)
S765

74888

74898

74904

7491

74948

74978

6325
7278

6357%
7296

6384#
7310

6385
73148

6390

6807

7477
6905
6321

7485
69108

6911

7213

4288
4717

S30ls

5907

63218

74998

7S00s

74878

§23l

43258
4804

6912
6861
6910
74628
7484
74868

S$TRPAD
§TSTM
$TSTNM
STTYIN

(QM2422
001004
00:10¢2
Ou1724

7467
12038
12878
7265

74848
12748
bla2s
7266

$TYPDS
STYPE
STYPEC
STYPEX
$TYPOC
STYPON
STYPOS
SUNIT
SUNITM

(040314
037604
040016
Q40064
(Q40l1le
040126
040066
001226
001010

7012
6763
6891
6916
69538
6952
69488
13408
1205

74es
68618
6898
6918
7486
69558
7487

SVECT1

001264

13728

2268

2277k

2280

2300#

2301+

2302

639448
64078
64208

6395
64080
b42ls

63968
409
422

63978
6410w
B423s

63988
gqéli
Hous

63998
gqégl
45

64008
gflégl
Yyobs

6949»
6336
11598

6953
6817
1163

6963

11788

11808

6736
11908

6739
1195

SUSKWR

001240

13478

SVvECT2
001266
SXTSTR
(034660
$3GET4= 000000

13738
63398
61508

$8SW0B= 0DO0Se

654338

SOFILL
040311
SH0CAT= #aasax
.
= 057e32

.SASTAz
. ¥
=

sesxzs
001000

7490

12308
1284
70668

6923
6923
6923

4291
47318

13108
1314
13098
2199
74738
74778

musxxx

7488

12768

64348

12348
1329
7070

3679

4CS"
e
ST

4533
4300

41998
4714

001152
001157
PO1150
042366
(042410
000016

STYPBN=

3584
3993s

“49y1i4
4807

4173
4e4le

TPB
$TPFLG
$IPS
$TRAP
STRAP2
$TRP
=

74988

SES uiB+

64358

b436n

11698

1175

£9988s

12408
2192
7074

1246
2207
7075

12618

1266

11768

12478
220e
70768

12498
6135
73148

12S1s
6158
7318

ccR60BO RKBI1
CZR60B.P11

SSETET
YPRSS

CLRMSG
CLRPSW
COMMEN
DDDGEN

ECCTST
ENCCOM
ERROR

DSKLS (TRL

12788

1278s
12788
10188
8457.
432
Bu4?
8462
84?77
12788
10188
9ics
254¢e
2808

3667
35
8e
4791

GETPR]
GETSWR
HDRERR

HDRGEN
ENC;ER

Hgt

10:00

MACY11

333

3418

3697

a464

2s10

2557

g4l
843

8434

8419

8420
8435

D1S

30(1046)
02-DeC-77
10:20
PAGE 187
CROSS REFERENCE TARBLE -- MRCRC NAMES

SEQ O18S

g4a3

8458
8453
gue8
8483
b4
S¢43

2884
3393
384S

4166
4534
4887

4398

ESCAPCS

0e-DEC-77

PRTY

8307
5524
5852

S110
SY1Y
S6l?
6082

1018

1018»
1018#
12788

12784
12;88

égl s
e833,

]

3864

47178

MULT
NEWTST

OPITST

POP
PUSH
REPORT
SCOPE

SEKMSG
SETPRI
SE;T;Q

SLASH

5622

1018:
10188

3151

4627

1278#

10184#
i018%
1018#»
313
3é64
4640
1278%

4443

3010

3083
4580

a8ll

2856

1018#
i%{?s

]

2886

4633
1018

4288

4414

CZR6DBO RKE1! DSKLS CTRL PRTH
CZReDB.P11]
0e-DEC-77 10:00

10188
1C18s

N
L E£EWn»—
OO0
£ L
Qe
o
- (D
D NNW
NN

SPACE
STARS

2368
2759
3330

4069
4819

SWRSU

S893
6925
10188

WRT188

10188
1018s
10188
10188
10188
12078

$ICMTM
$EESCA
SINEWT
SSSET
$3SETM
$SSKIP

EQUAT

HERDE
LKT1L

1278s

12788
1018
10188
3161

4627

4533

884#

8844
g84s

SETUP

8848

SWRLO
$ACT!
$APTB
SAPTH
$APTY
SCATC
SCMTA

8848
8848
13304
8848
8B84s
8844
8844

SERRC
SERRT
SPOWE
SRDOC

884#
8844
884s
884s

SSAVE
$SCOP
$SIZE

884s
884
8848

SWRHI

SEQOP

SREARD

STRAP
STYPD
$TYPE
$TYPC

1244
2498
22l
3584

1258
2507
2933
3596

1267
2554
3070
3694

1329
2604

S117
6322

S158
6436

S9N
5455

S43?7
6517

1319

1320

1321

2498
3584
S117

2544
3679
Se3l

2593
3759
S4ye4

4173

7494

7498

7499

2443
3474
c419

2449
3s81
5616

2489
3676

4066

2582

2ses

43e3

7232

7491

74778
ceess
10188
2886

8848

8844

B84
S

8844
8844
8844
8B4

896
=

$SSCMRE

1189
2452
28e8
3477

E1S

30(1046)
02-DEC-77
10:20
PRGE 188
CROSS REFERENCE TABLE -- MACRO NRAMES

45837

ot
¥4

7378

7256

3151
3784
Yyee?
7433

74778
12788
1018s
10188

1242

Lo pd « gl X m o o] I

TRMTRP
TWOHD
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

MACYL11

1256
l1ees

7493

e8l?z
$907

290s
4291

4170

2993

3070

Y417

4537

281l

2856

4288

4414

CoREJEO RKB11 DSKLS CTRL PRTY
ICFEDB.PLI
0e-DeC-77 10:00

ABS.

(0£7232

ERRORS DETECTED:

000

RMO3: CZR6DB, RMO3: CZR6DB. SEQ/SOL /CRF /NL: TOC/DOC=RMO3: CZR&DB. P11

RUN-TIME: 3] 26 2 SECONDS

RUN-TIME

RATIO:

CORE USED:

39K

DOCUMENT PARGES:

1188/60=19.6

(67 PAGES)

187

F15

MACYLl 30.1046)
02-DEC-77
10:20
PAGE 189
CROSS REFERENCE TABLE -- MARCRO NAMES

SEq 0187