Digital PDFs

AH-9210B-MC

January 1978

252 pages

Original

10MB

view download

OCR Version

8.9MB

view download

Document:	CZRJGB0 RP04-5-6 DISKLESS CONTROLLER 1 JAN 1978 bw
Order Number:	AH-9210B-MC
Revision:	000
Pages:	252
Original Filename:	CZRJGB0__RP04-5-6__DISKLESS_CONTROLLER_1__AH-9210B-MC__JAN_1978_bw.pdf

OCR Text

RPO4/6/6

wissTM" Lun. @il
_FICHE1OF2

MADE IN USA

FICHE 20F2

MADEIN USA

BO1
IDENTRERCOTION

780108

00010000

EJF1CCRPEBRSEG
!

IHORICZRJIGBSEG

PRODUCT

CODE:

AC-92088-MC

PRODUCT

NARME:

CZRIGBO RPO4/5/6 DISKLESS CONTROLLER TEST - PARRT |

PRODUCT DRTE:

DECEMBER 1977

MAINTRINER:

DIAGNOSTIC ENGINEERING

Thng

1nformation

Digital

may

appear

without

nolice

Cgrpor!tnon

change
to
subject
13
documert
this
tn
and should not be construed as a commitiment

Equipment
Digital
Corporation,
Equipment
responsibility for any errors that
no_
assumes
this menual.

The software described 1n this documentl 12 furnished tc
the
on a single compuler
wuse
for
license
a

under
purchaser
tystem
and

copied

(uwith

1inclusion

caggrlght notice’ only for use 1n such s'stcn.
sthe rwise be provided 1r writing by Dig: al

Dxaxtals

sxcept

may

for
1gital Equipgment Corporation assumes no rcsgonsxbxlx(*
that
equipment
on
software
1ts
of
,
relianil)
use or
tts

supplied

Ccpyright

by Dig:tal.

(C)

1974,

1977 Digital Equipment Corporaticr

00010000

78010S
« 9C0!
SEL

YA TV T T, ]

F$ . b qu 20

mmuag

[a81a U 1A V1 V] s TEa VI SySRy T o R Sy XY S Y ol el 21 ) S0y ] Y S o Y Y =y Y Y = o o T A [ 1 ] [Vl ATV
WMy
1 JID O M0 ~ 1~
NN
4L £ £ £ S WwWistshulaWw
O — 3
)DTY QUL L WLy - 0N £ OO
MM (Y- DWMMMOe—
(I L LI+ D
[l
<
oY UDN L O (NO £
O~ K000
RO- oo
LN

a4e2

»#2ERROR TABLE,

ERGT

BIT CEFINITIONS & STARTING ADORESSES###

col

AL SH
Tgh SETTINGS

FINI

QCT

STQRT?NG aODRESS
HEHORY HQNRGEHENT DEFINITIONS
RROR PCINTER TASL

EGICTES ROERESSgS
222#DIAGNOSTIC CODEw#%
SETUP TESTS
INITIRLIZE THE COMMON TRGS

GET VALUE FOR SOFTWARE SWITCH REGISTER
T1
12

REFERENCE EACH REG%STER
RHCS2-CONTROL AND
STATUS 2

13
T4
)]

PRRTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT
TEST FOR DRIVES PRESENT USING RHRS AND RHCSe
TYPE SERIAL NUMBER AND DRIVE TYPE

16
HECK MOL 70O BE Lou
REGISTER T
Y7
8“ sgt
STATUS 2

T10

RHC:l - c T

STRTUS 1 REGISTER

Til
712
T13
T14
Ti§
T1&

RHCS] - BIT 813 - MCPE
RHC uORD COUNT REGISTER
RHBA REGISTER
RHE 1 -"E
é
8]
INTENANC
ISTE
D€SIREO SECTOR/TRQCK RDORESS

Igé

sngg - DEg%RED
CYLINOER REGX

T17

120

123
=

Fgéé

RH F -

GLN/O

T REG STER

CONTgOL SN STR?U% (RHCS 2) - "NED’
CONTROL AND

STARTUS
2 (RMCS2)

128
PACK ACKNOWLEDGE COMMAND
UNIBUS INIT TEST
126
SILG TESTS
Tev
SILO TST 1

T30

TEST

“CLR’

SILO TEST 2

T31
SILO TESTY 3
132
SILO TESTH
133
SILO TEST §
MOPE REGISTER TESTS

T34
TEST ODD BYTE INSTRUCTION ON RHCS1 - RH1}
T35
TEST ODD BYTE INSTRUCTION ON RHCSL - RH?G
136
TEST ODD BYTE INSTRUCTION ON RHCSZ
137
000 BYTE TEST ON RHWC
T40
TESY ODD BYTE INSTRUCTION ON RHBR
DCL COMMAND TESTS
T4!
TESY ILF BIT #C IN REG. RHER!L
MY

RERC

PRECSET

SES 3002

CoRJGBO, RPO4-/S

CSRIGB.F11

& DSKLS CTRLRI

T0B-NOV-77 08:30

MACY11

2841
296"
3120
3378
3433
326
3747
3867
3929
i

T43
T4y
T4S
T4E
147
150
151
182
153
154

4132

RERD/MRITE ADORESSING

4327

157
160

128
4136
4228

4432
4510

161
162

452¢
4832

164
165

4518

763

MAKE CURRENT

WRITE

HERDER

Ee1C
5613

175
176
177
TI00
TI0l

£824
8527
SE32
§53¢
§539
S84
gcce
5564
€890
EESy
Ebik
£781
£764
€872
£964
£gse

TION
1105
TI06
7107
T110
T11l
T112
TI13
TII4
T11S
T1lb
T117
T120
7121
7182
T183

6087
£0e8
609]

¥ #SUBROUTINES
¢ %+

el132

T102
1103

VIR RHMR

AND

DATA

RERD_HEADER AND DATA 3
WRITE DATA

5323
345
5430

gs17
5820

CYLINDER

RERD HERDER AND DATA o

ERROR BIT

171
172
173
174

DO1

PROGRAM ERROR RHCS2 #10
READ HEADER AND DATA |

4876

4880
4994
£092
5169

TABLE OF CONTENTS

08:84

WRITE HCADER AND DATA 1
WRITE HEADER AND DATA 2

166
167
170

08-NOV-77

NO OPERATION FUNCTION TEST
DRIVE CLEAR
SEEK COMMAND TEST
UNLORD COMMAND
TEST
OFFS
RETURN
T0 CENTER LINE COMMAND TEST
REC
TE COMMAND TEST
RELEASE
COMMAND TEST
MAKE CURRENT CYLINDER = O
LOOK
RHEAD
R

4539
4538
T

30(1046)

RERD DATA
WRITE CHECK
WRITE

CHECK

_FUNCTIONAL

HEADER AND DATA

DATA

TESTS

ATTENTION WITH ERROR TEST
BUS RODRESS INWIBIT
RHCS2 - BIT & 11 - NEM
WRITE CHECK ERRO

ERROR REGISTER #1-BIT
4 -FORMAT ERROR
ERROR REGISTER #1-BIT
4 -FORMAT ERROR
Rl - BIT #2 - REG. MODIFICATION REFUSED
MAKE CURRENT CYLINDER
= |
ERROR REGI - BIT 7 - HEADER COMPARE ERROR

MAKE CURRENT CYLINDER = 0
ERROR
REGI
- BIT 87 - HERDER COMPARE ERROR

MAKE CURRENT CYLINOER
=
ERKOR REG.
] - BIT §7 - HEADER COMPARE ERROR
MAKE CURRENT CYLINDER
= O
ERROR REG.1 - BIT &7 - HEADER COMPARE ERROR
RlI - BiT #8 - CRC ERROR (READING
RHERI - BIT 8 - CRC_ERROR (WRITINGS
MAKE CURRENT CYLINDER
= 814
RHOS1 (BIT #10) - LAST SECTOR TRANSFERRED, 'LST"
MAKE CURRENT CYLINDER
= H1Q.
RHDS1 (BIT w10) - LASY SECTOR TRANSFERRED, 'LST"
ERROR REGISTER 1 - BIT #9 ROE
MAKE CURRENT CYLINDER = O
ERROR REGISTER I - BIT #10 'IAE’
ERROR REGISTER 1- BIT #10 'IAE’
ERROR REGISTER 1- BIT #10 ’IAF’
END OF DRIVE

END OF PASS ROUTINE

SAVE REGISTERS RCUTINE

SEG 0003

CaRJ GBO,RPO4-S & DSKLE CTRLR}

CZRIGB.P11

08-NOV-77 08:30

MRCY1l

30(1N46)

(08-NOV-?77

TRBLE OF CONTENTS

6157
6216
6243

FLORTY 1 AND O
CLEAR nenonv ROUT INE
LOCAL TRAPS

627
6407
6429
6469
€SS 1
£845
6882

CHECK ox§ STRTUS ROUTINES
SAVE ROUTINE
WRITE cnecx ROUT INE
COMPARPE ROUTINE
CRC GENERATION ROUTINE
JAM CURRENT CYLINDER ROUTINE
ECC GENERATION AND COMPARISON ROUTINE

7248

DISK

6260

7196

8225
8227
g228
8229
8230
8232
8233
8234
8235
8236
8237
823¢

CLEARR oxsx ROUT

INE

RH BRSE RDDRESS CHANGE
SIMULATION

ROUTINE

SYSMAC L IBRARY ROUTINES
SCOPE HANDLER ROUTINE
CONVERT BINARY TO DECIMAL AND TYPE
TYPE ROUTINE
TTY INPUT ROUTINE
RERD AN OCTAL NUMBER FROM THE TTY
ERROR HANDLER ROUTINE
ERROR MESSAGE TYPEOUT ROUTINE
BINARRY T0 OCTAL (ASCII) AND TYPE
TRAP DECODER
TRAP TABLE
POWER DGWN AND UP ROUTINES

ROUTINE

08:54

EOL
SEG 00CH4

CoRJGBO,RPO4-S 6 PSKLS CTRLRI

CERI3B.A11

DB-NOV-77 08:30

MRCY1l 30(1046)

08-NOV-?7

08:54

£s

FO1

PAGE 3

CONTENTS

ABSTRACT

REQUIREMENTS

)
78

2.1
2.2

EQUIPMENT
STORAGE

LORDING PROCEDURE

3.1

ME THOD

g€

STARTING PROCEDURE

4.2

CONTROL SWITCH SETTINGS

4.3

PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

gé

5.2

SUB-ROUTINE RBSTRACTS

190

ERRORS

ige

6.1

"FATAL"

104

RESTRICTIONS

198

MISCELLANEOUS

128

8.1

EXECUTION TIME

8.2

STACK POINTER

8.3

OPERATOR SELECTABLE SCOPE LOOPS

8.4

PROGRAM REVISION HISTORY

11E

9.0

PRGGRAM DESCRIPTION

ég

2.3

PRELIMINARY PROGRANMS

STARTING ADDRESS OR ADDRESSES

ERRORS

SEG 00CE

L.c.

GB.P11

08:54

GOl

PRGE Y

SEG 00CE

RBSTRACT

23
24
25
&

THIS DIAGNOSTIC TESTS THE RH!1 AND DCL OF AN RJPO4/S5.6 SUBSYSTEM.
1T DOES NOT USE THE DISK SURFACE OR RNY SIGNALS FROM THE MOLT.
IT REQUIRES THRAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR
BE APPROPIATELY TERMINATED.
IF THE DISK 1S POWERED UP,
I7T
nrren SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC
IT CAN BE ASSERTED THAT, “THAT PART OF THE OCL THAT HANDLES

M e g WWUHNLE L L L £ L L L 4L WWWWWWWWIIWWIUTYNUIN

THE DIAGNOSTIC IS USED TO TEST RPO4-S5/6 DEVICE CONTROL LOGIC
CONNECTED TO EITHER AN RH1! OR RH7?0 DISK DRIVE CONTROLLER

N =P
0 NN L WA (D000

s Dot e Bt s Bt Bt Bt B0 Bt et s Dt Pt Bt Pt Pt ot Bt Dt Dt P 0

1.0

08-NOV-77

20
Sé

N NN

BB ata b o Ba s

08-NOV-77 08:30

MARCYL1l 30(1046)

M ULE (W= OW (0 0N £ WM 0O 0N LW O0m

0 Bt Pmt Pt il Pt P Pt Pt P Pt Dot s § =t Pt Dt Pt e 0 et Pt ot Pt Pt Pt Pt Pt Pme

N
00

cGB0,RPO4-S 6 DSKLS CTRLRI

IS Reouxneo TO GET THE DISK TO THE “HEARDS UNLORDED” POSITION.

DATA OR DARTA ASSOCIATED LOGIC IS WORKING PROPERLYTM.
IMPLIES THAT,

THIS

THE PART OF THE LOGIC WHICH HANDLCS HECHQNICRL

COMMANDS OR }T1S ASSOCIATED LOGIC IS NOT TESTED IN THIS

DIAGNOSTIC.
ALL DRTA COMMANDS USE THE MRINTENANCE REGISTER
IN THE WRAPAROUND MODE
.
THE

DIQGNOSTIC

DOES _NOT DO &l

RUN

TO COMPLETION BEFORE

TESTING OF

THE

RH70 CONTROLLER

WHEN IT IS USED Civ AN RWPG4/S/6 SYSTEM TO TEST RPO4/5/b DISK DRIVES
CONN" gD _TO THAT TYPE OF CONTROLLER.
IT IS ASSUMED THRT THE
RH70 SPECIFIC CONTROLLER DIAGNOSTIC HAVE BEEN SUCCESSFULL'Y

e.o0

REQUIREMENTS

2.1

EQUIPMENT

PDP-11

THIS DIAGNOSTIC

COMPUTER WITH CONSOLE

TELETYPE,

IS RUN.

AND R RPO4/5/6 DISK SYSTEM.

THE RPO4/S/6 DISK SYSTEM WILL CONSIST OF AN RH11/RH?0 CONTROLLER.

AND DISK

CONTROL

LOGIC

(DCL),

THE CABLE FROM THE DCL CAN BE

CONNECTED TO THE MDLI, BUT If NOT THAT CARBLE MUST BE PROPERLY
TERMINRTED.

e.e

STORAGE
THIS PROCRAIT REQUIRES

e.3

16K

WORDS

MEMCORY.

PREL IMINARY PROGRAMS
THIS CAN BE

THE

FIRST

PROGRAM RUN ON AN RJPO4-/5/p S\STEH BUT

CONTROLLER DIAGNOSTICS MUST BE RUN FIRST

RWPO4/5/6

3.0

SYSTEM.

LORDING PROCEDURE

USE STANDARRD PROCEDURE FOR LORDING
4.0

IN THE CRSE OF

STARTING

.ABS TRPES

PROCEDURE

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TQO BE RUN USING RN

RH70 CONTROLLER.

IT CAN BE SET AT THE FRON PREL,

SOF TWARE SWITCH REGISTER IF_THE OPERATOR SO DESIRES.

gggsgfi?gn .1

IN THE

FOR
R DESCRIPTION OF SOFTWARE SWITCH REGISTER

THE

“:RJUBO RPOM4/S.6 DSKLS CTRLR!

ZRJGB.P11

MARCY11

08-NOV-77 08:30

173
17

30(1046)

4.1

CONTROL

08:54

PAGE S

SEG 00C7

SWITCH SETTINGS

SEE SECTION G.1

et Pt nn Pt Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt s Bt

08-NOV-77

ég

4.2

STARTING ADDRESS

START AT ADDRESS 200---FOR NORMAL RUN

a4
85
86
£7
88
89

200 START
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN.
WITH THIS
STARTING ADORESS ALL THE RPOY/S/bS ON THE SYSTEM WILL BE
TESTED ONE AT
A TIME BEFORE "END PASSTM IS PRINTED OUT.
TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE
THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTEF

START AT ADRESS 204---T0 SELECT NON-DEFAULT ADDRESSES
START AT ADDRESE 210---FOR UNIT SELECTION

RESRLS

81
gg

PN
50 0ot pos ot - s P
O
OO

THAT
THRT

SQHE Eg START 200 WITH THE FOLLOWING EXCEPTION: THE
04 RESTART

JOm
- o

PROGRRH H LL NTERESSQ HE 8P RATOR_FOR
A NON-STANDARD
E.
TS
E
FORE
STARTING.
ONCE THE

QU STIONS HQV
EEN CO ECTLY ANSWERED, AND IT IS ALSO
NECESSARY TO ?Eb PfiRT&CULQR UNIT_FOR TEST (TYPICAL

PROG AM EXECUTION FROM
A

4.3

-4

213
c

ggfi
ggg
Zze

PROGE NEW

210 START
ALL SWITCHES MUST BE DOWN FOR WORST CASE
JN.
WITH THIS
STARTING RDDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT
NUMBER TO BE TESTED.
THEN ONLY THAT UNIT WIL. BE TESTED
FOR EACH PASS OF THE PROGRAM.

215

222

THE PROCESSOR MAY

PRRQHETERS WILL NOT
BE CHANGED UNLESS THE PROGRAM IS AGAIN
RESTARTED FROM ADDRESS 204.
IF ALL UNITS ARE TO BE CHECKED,
THE PROCESSOR NEED NOT BE TOUCHED.
THE PROGRAM WILL
AUTOMATICALLY RESTART AT 200 AFTER RECEIVING THE NEW DEVICE
PARAME TERS .

213

210),

EORACTED FiND RESTARIED PROH ADBRESS 216

01
282
203
204
29g
206
oc7
20e
209
210
39!

217

RESPONDS)THEN GO ON TO THE NEXT HIGHER UNIT NUMBER
IS POWERED UP.

PROGRAM AND/OR OPERATOR ACTION

LOAD THE PROGRAM INTO M:MORY.

SET STARTING ADDRESS OMN THE SWITCH REGISTER

PRESS "LORD ADDRESS"TM.

§.
6.

SET “OPERATIONAL SWITCH SETTINGSTM

WORST

CASE

ALL

SWITCHES

DOWN.

(SEE SECTION 5.1.

PRESS “START".
FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE

ON THE DRIVES PRESENT OR DRIVE SELECTED BEFCRE “ENC

PASSTM

IS PRINTED.

THE FIRST

PASS WILL REGQUIRE

JFERATOR

unuururufurururufurury
£ WWW
I WWWwwh
OOV I LWU—0OWv

CcRJGBO,RPOM4-5.
& DSKLS CTRLRL
CoRIGB. P11
08-NOV-77 08:30

MACY1l

30(1046:

08-NOY-77

08:54

I01

PRGE

SEG 0008

INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN “ACT-11"
MONITOR.
THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE
ERCH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE
SELECTED BEFORE "END PASSTM IS PRINTED.
THE SECOND
AND SUBSEQUENT PARSSES DO NGT NEED ANY OPERATOR INTERVENTICN.
c.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
IF THE PROGRAM IS BEING RUN OM A SWITCHLESS PROCESSOR {
AN 11734) IT WILL DETERMINE THAT A HARDWARE SWTICH REG 1
IS NOT PRESENT,
AND WILL USE R “SOFTWARE"
SWITCH REGI S

E.
R

THE SETTINGS Of THE ~SOF TWARE"” SWITCHES RRE CONTROLLED

THROUGAH R KEYBOARD ROUTINE WHICH

IS CALLED BY TYPING A

‘'CONTROL G’'.
THE PROGRAM WILL RECOGNIZE A "CONTROL G’ AT AMY
TIME EXCEPT WHEN IT IS AT A HIGHER PRIORITY PROCESSIHG R RPO4-5/&
INTERRUPT.
THE “SOF TWARETM SWITCH VALUER ARE ENTERED AS AN
886$%NEUHBER IN RESPONSE TO A PROMPT FROM THE SWITCH ENTRY
"SWR = NNNNNN

NEW =’

EACH TIME SWITCH SETTINGS ARE ENTERED,

THE ENTIRE SWITCH

LERDING ZEROS ARE NCT

REQUIRED.
'RUBOUT’ AND ’'CONTROL U’ FUNCTIONS MAY BE USED 70
CORRECT TYPING ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

SWITCH REGISTER MAY ALSO BE USED.

THE *SCFTWARE"

IF THE PRbGRRM_FINDS ALL

16 SWITCHES IN THE 'UP’ POSITION WHEN IT IS STARTED, ALL
SWITCH REGISTER REFERENCES WILL BE TO THE “SOFTWARETM
REGISTER

AND THE PROCEDURES DESCRIBED RBOVE MUST BE FOLLOWED.

SWITCH DEFINITIONS RRE GIVEN IN SECTION 9 "OPERATIONAL
ag£ECH SETTINGS” HOWEVER THE DETAIL DESCRIPTION ARE GIVEN
SWITCH 1S - HALT ON ERROR
WHEN THIS SWITCH 1S SEY.
IF

THE PROGRAM FINDS AN ERROR

THEN THE APPROPIATE INFORMATION WILL BE PRINTED GUT

AND THEN THE PROGRAM WILL HALT.
RFTER THIS HALT. PRESSING
*“CONTINUE” WILL CONTINUE WITH THE PROGRAM TILL THE NEXT
ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN.
SWITCH i4 - LOOP ON TEST
WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOGCP
ON THE CURRENT TEST BEING EXECUTED.
FOR EXAMPLE IF THIS

SWITCH

IS SET WHEN THE PROGRAM

PROGRAM WILL KEEP EXECUTING ALL

IN TEST

ONE WRY TO BE SURE THAT THE PROGRAM
TEST

SET

THIS

SWITCH

DURING A PROGRAM HALT.

DURING

TEST

10 THEN THE

10 REPERTEDLY.

IS IN THE EXPECTED
ERROR

PRINTOUT

CoRIGBO,RPO4-S-6 DSKLS CTRLRI

S2RIGB. P11

08-NOV-77 08:30

MRCY11l 30(1046)

08-NOV-77

08:54

JO1

PRAGE 7

SEG 0009

285
286
287

SWITCH 13- INHMIBIT ERROR TYPEOUTS
WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL
CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH RS “STOP DRIVE «

289

ON THIS PASS ON DRIVE x” WILL BE TRUE,

288

290
281

535

WILL CONTINUE.

AT THE END OF PRSS “TOTAL NUMBER OF ERRORS
THAT 1S,

ALTHOUGH

PRINTOUTS WERE INHIBITED IF THAT PRSS'FOUND& ERRORS,
IT WILL SAY SO.

294
29g
296
297
ggg

SWITCH 12- RH70 CONTROFLLER SELECT
THIS SWICH MUST BE SET AT THE START OF THE PROGRAM WHEN THE
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70
CONTROLLER.
1IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED
ARE CONNECTED TO AN RH11 CONTROLLER.

396

SWITCH 11 xnuxexr ITERATIONS

383

ONCE ONLY.

301
302

WHEN THIS
SWITCH IS SET THE PROGRAM ON SECOND PRSS WILL
NOT REPERT EQCH TEST FOUR TIMES BUT WILL 0O EACH TEST

308

SWITCH 10 - BELL ON ERROR

307

THE “BELLTM OR "ALARMTM WiLL BE SOUNDED.

306

WHEN THIS SWITCH IS SET,

IF THE PROGRAM FINDS AN ERROR

THIS SWITCH IS USEFLL

308

WHEN SWITCH 11 IS SET YET INFORHQTION IS NEEDED WHEN ANY ERRGR

310
31l
3i2

SWITCH 11 SET TO
HELP SCOPING.
THEN IF THIS SWITCH IS
SET_AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR
1S PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THART

309

3%3

31¢

1S DETECTED. TAKE THE EXAMPLE OFR PROGRAM LOOPING ON A TEST WlTMw

THE ERROR IS NOT PRESENT

SWITCH 9 - LOOP ON ERROR

31E

WHEN THIS SWITCH IS SET,

318
219
320
321
322
323
324
328

EXECUTED “SCOPETM STATEMENT.
1IF ON THE SECOND TIME
THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BRCK TO
THAT “SCOPETM STATEMENT.
THIS LOOPING WILL CONTINUE RS LCNG
RS THE ERROR 1S PRESENT AND THIS SWITCH IS SET.
HONE”FR
IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WIL
CONTINUE NORMALLY WITH THE PROGRAM.
EACH TIME THE ennon
IS ENCOUNTERED PRINTOUT WILL TRKE ancs UNLESS SWITCH 11
IS ALSO SET.
DURING escuc USINGA SCOPE, IT 1S RECOMMENDED

317

ggg
32e

IF THE PROGRAM FINDS AN ERROR

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST

THAT SWITCH 11

IS ALSO SET

229
330

NOTE:

333

SWITCH 8 - LOOP ON TEST IN SWR ¢7:0>

z3s
33t

HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU
7 HAVE
ANOTHER nsnnxnc
THIS MEANS THAT ANY SETTING OF SWITCH

22e
333
34C

POSITION.
WHEN THIS SWITCH 1S SET THEN SWITCHES O THRU
7 GIVE THE TESY NUMBER TO BE LOOPED ON.
FOR EXRMPLE
WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP

231
332

334

337

ALSO SEE SECTION 8.3

THIS IS A SPECIAL SWITCH.

WHEN SET SWITCHES O THRU 7

0 THRU
7 MUST BS DONE WITH SWITCH 8 IN THE APPROPIATE

0B-NOV-77
TESTM

(08:54

10.

KO1

PAGE B

HOWEVER

SEG 00!0

THIS

SETTING MUST

DONE

THE

INNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TC 10
L BE EXECUTED AND THEN TEST 10 WILL BE REPERTED CVER
OVER
QGQ%N
H:EN THI? ENITCH
S NOT _SET THEN SWITCHES
HR
THE
MERING
ITS
NAME
INDICATES.
OR EXQHPLE SWITCH
7 IS "STOP FURTHER COMPARES: THAT IS

NEXT ERROR THAT

THE PROGRAM DE

—d—e

THE

A0
mue-

THEN

<
—

F_SWITCH B8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A
ATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE.
FSR EXAMPLE IN A 256 WORD BUFFER
IF RLL
THE HO?gS RgEuIN
lglok o)

08-NOV-?7 08:30

30(1046)

OD(')OU)-*%M
O~«XCEWVMD

CZRIGB.P11

MACY1l

umz
o

CIRJGBO,RPO4.S-6 DSKLS CTRLRI}

1S “ECC_TEST~COMPARE END RESULT ONLY
WITCH
8 IS NOT SET AND SWITCH & IS SET THEN ON
S
EST
120 THRU TEST 134) INSTERD OF COMPARING CONTENTS OF THE
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK,
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS.

NOTE:

ALSO

SEE

SECTION 8.3

SWITCH 7 - STOP FURTHER _COMPAQRES IF SW0O8 IS L
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED

IN THE DESCRIPTION OF SWITCH 8.

AND THIS SWITCH
NIME INDICARTES.
THE HORDE

QR;

IF SWITCH 8

]S NOT SET

IS SET THEN THE PROGRAM WILL
DO RS THE
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL

éN ERROR

THEN AFTER

SEEING

THE ERROR PRINTOUTS

FJR THE
FIRST
FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8
POT SET WILL STOP _THE PRINTOUT OF ALL 256 WORDS BUT WILL
HOT _STOP_THE PRINTOUT OF ANOTHER ERROR _IN ANY SUBSEQUENT

TEST.
IT IS _EXPECTED THRT SWITCH 7 AFTER BEING SET FOR
A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET
AGRIN TO ENRBLE THE PRINTING OF OTHER DATA ERRORS.

SWITCH &6 - ECC TEST-COMPARE END RESULTS
ONLY IF SNOB IS LOW
IF SWITCH B IS SET AND THIS SWITCH IS
RLSO SET THEN
THIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICRTED
IN THE DESCRIPTION OF SWITCH 8.
IF SWITCH 8 IS NOT SET
AND THIS SWITCH IS SET THEN ON ECC _TESTS (TEST 120 THRU
TEST 134) INSTERD OF COMPRRING CONTENTS OF THE POSITION AND
PATTERN REGISTERS RFTER_EVERY CLOCK, COMPARES WILL BE DONE
ONLY AT THE END OF ARLL THE CLOCKS.
.2

SUB-ROUTINE RBSTRACTS
SEE

SECTION 9 "SUBROUTINES"

ZRJGBO,RPO4-5 & DSKLS CTRLRI
ZRJG 8.P11
08-NOV-~ 7r 08:30

MRCY11

30(1046)

6.0

08-NOV-77

08:54

LOL

PAGE 9

SEG 0011l

ERRORS
ERROR PRINTOUTS CONTRIN THE ERROR RDDRESS AND OTHER
PERTINENT INFORMATION CONCERNING THE
PARTICULARR FAILURE.

THIS
INFORMATION MAY
BE THE CONTENTS
OF RELEVANT RPO4/5/f
REGISTERS OR GOOD/RECEIVED DRTA.
IF THE ERROR OCCURRED IN A
SUBROUTINE,
THE RDDRESS OF THE SLSROUTINE CALL 1S ALSO

GIVEN.

REFERTO THE PROGRAM LISTTNG AT THE STATED

'"FRATAL’

ERRORS

ADDRESS

T0 DETERHINE

THE

CRUSE OF

THE ERROR

IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE
CONTROLLLR
PONERS DOWN, OR CERTARIN CRITICAL STATUS BITS
CANNOT
BE CLERARED PRIOR'TO THE START OF A TE ST SEQUENCE - THIS
INFORHQTION WILL BE COMMUNICATED TO THE OPERATOR.
IN
ADDITION THE TTY BELL WILL RING AND THE PROGRAM WILL HALT.

LfLLrrik
N.—.—;—;—-.—p—
OwV@-NoNEL

413

1T 1S SUGGESTED THAT IF THIS HRPPENS THE OPERRTOR LORD
RDDRESS 290 (210) AND RESTART THE PROGRAM AS
A FIRST RTTEHPT

HE _PROBLEM.

IF THE FRILURE CONTINUES TO OCCU

FOR THE "HALT' INSTRUCTION ano kEPans

IT PLUS THE TWO WORDS

(“TYPE

,CPHALT”)

RBOVE WITH

"NOP°S

WITH TTY ERROR PRINTOUTS INHIBYTEDA SCOPE LOOP CAN BE

4el

INITIRTED FOR THE TEST

IN QUESTION.

17T IS ALSO POSSIBLE TO CONTINUE FROM THE hALT

EXHIBIT THE SAME SYMPTOMS AND GIVE MISLERDING ERROR PRINTOUTS.
o

POINT.

BUT

IS NOT RECOMMENDED RS ALL FOLLOWING

TESTS WILL

RESTRICTIONS

IS
R DRI ¥ E C ONNECTED THEN THE OPERATOR MUST HAVE
PORT SW T CH LOCKED EITHER ON PORT A OR_PORT B8
BUT NEVER LEAVE IE IN THE PROGRGHHQBLE STATE.
IF THERE
T
IS NO DRIVE CONNECTED
THEN THE CRBLE NORMALLY GOING FROM
THE DCL TO THE MDLI L I MUST BE PROPERLY TERMINATED.
I[F THERE

THE

ORIVE

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 COgTRghLER AND

BECAUSE OF THE nsoustnsnt FOR IT TO BE SET WHEN USING AN

RH70,

THE PROGRAM CANNOT BE RUN

IN CHAIN MODE WHEN USING THE

sorranns SWITCH REGISTER FERTURE WHILE RUNNING ON AN RH7O.
THIS 1S BECAUSE

SETTINGS

IS NOT

8.0

MISCELLANEOUS

B.1

EXECUTION TIME
THE

FIRST

DRIVE.
g2

PRSS

THE ROUTINE WHICH GETS “SOF TWARE” SWTICH

OPERABLE WHEN IN CHAIN MODE.

THE

PROGRAM WILL

SUBSEGUENT PHSSES WILL

TAKE

STRCK PCINTER
THE

STARCK

INITIAL.Y

SET

(QCC

TRAKE

SECONDS

MINUTE.

PER

CZR2GBO,RPO4/S-6 DSKLS CTRLRI

CZRIGB.P11

08-NOV-7?7 08:30

453

MRCYL11 30(1046)

8.3

:gg

456

Y57

Y 2
4S

:g?

08-NOV-?7

08:S4

MO1

PAGE 10

SEG 0012

OPERRTOR SELECTABLE SCOPE LOOPS

HERE ISA DETARILED EXPLAINRTION OF HOW THE LOOP ON ERROR WORKS.
F?R
INSTR CTHSNERRESQR iNG USA

LOO

F THI

?CHN QUE

RUNN nc ON HITTIN

HIT 1C ANY

RROR

IF THE

THE PROGRRH GOES BRCK - bSUflLLV

BACK TO THE eecxmxnc or mt

:sg

gnENTHIS OPERATOR SELEyTRBLE SCOPE LOOP IS USED THEN THE POINT

465

4b4

466

“we?
468
469

RICT?ggg ?0 ¥HE PSINT RE$52 PROGRAM (AN GO ARE: -

IT MUST BE HITHIN THE TES UNDER CONSIDERARTION

LOOP ON ERR

BE SET

ogfl HggT Ogcgg
NITH N THE TEST UNDER CONSIDERATION
IF YHE ERR
DO
C
THIN T
TEST UNDER CONSIDERQTION
THE PROGRAM WILL RE
VERT NORHQL OPERATION.
HOWEVER, IF LOOP ON

470

TEST ?HETS ég SET A TH S

ERATOR gEgECTR?&S SCOPE LOOP 1S USED

“Zi
:Zg

THEN
ROGRAM NILL LO
BACK TO TH
LEC
POINY WHEN IT
COMES TO THE END OF THE TEST UNDER CONSIDERRTION.

Y74
3;&

AFTER LOOPING FUR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN
MORMAL OPERATION WILL CONTIMUE.

:;g
%79

:g?

9.4

PROGRAM REVISION HISTORY

3.9

PROGRAM DESCRIPTION

482
483
484

THE FOLLOWING SECTIONS DESCRIBE ERCH TEST AND SUBROUTINES
IN DETAIL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING.

THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING

485

WHERE THAT ITEM WILL BE FOUND.

HEs
<87

:#DRIVE MUCST BE LOCKED ON PORT # OF PORT B
49]

492

; #INTERNAL PROGRAM MACROS BEGIN HERE

lli!iil’llllllllilllltlillliillllll

:ga
%95

; &

497

;

49E

4968

499
530
ECl
c€oe

; #NOTE:

MACROS BEGINNING WITH *.§" RARE SUPPLIED BY AN

MUST BE MADE AVAILABLE 10 THE SOURCE PROGRAM

e
2

EXTERNAL SYSMAC.SML SYSTEM MACRO PACKAGE WHICH
AT RSSEMBLY TIME.

CIRIGBO,RPO4/S-6 DSKLS CTRLR1I

SZRIGB.PIL

08-NOV-77 08:30

MACY1l 30(1046)

08-NOV-77

BRSIC DEFINITIONS

503

08:S4

NO1

PAGE 11

SEG 0013

CoRIGBO,RPO4/S & DSKLS CTRLRY

SZRIGB. P11

08-NOV-77 08:30

guwnumunyggiuinuen[
LTATVa
TR TV, ITAIT,
OWUL cbetapsps paps
NN LN OD

SOv
Sas

MACY1l

30(1046)_
08-NOV-7?7
TRAP CATCHER

.SBTTL

000200
0002
000210

000137

004240
Q45240
004230

. =200
RA::
ADDMOD:

08:54

BO2
PAGE

SEG 0014

STARTING ADORESS
JMP
JMP
JMP

I8BEGIN
S¥8ASECH
S8BEGIN2

; NORMAL START
;MODIFY RDDRESSES
;SELECT DRIVE START

; ##STARTING RDDRESS 200 FOR NORMAL STARTS

; ##THIS WILL

TEST ALL

DRIVES ON

THE

SYSTEM A SINGLE ORIVE AT

; 2#STRRTING RDDRESS 204 FOR PRRAMETER MODIFI1CATION

; ##RESTART AUTOMATICALLY FROM 200 AFTER PARAMETER MODIF ICATION.
; ##STRRTING RDORESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

TIME

CIRJGBO,RPO4 S & DSKLS CTRLRI

JSRIGB.EIL
52

8&3

08-NOV-T7 08:30
001110

MACY1l 30(1046)

08-NOV-77

08:S4

cOe
PAGE

MEMORY MANRGEMENT DEFINITIONS
.<1110

SEC 001§
¢

CZRJuBO RPQ4-S. b DSKLS CTRLR!

SRIGB.P11

08-NOV-77 08:30

MACY11l 30(1046)

08-NOV-77

ERROR POINTER TRBLE

08:54

PRGE 14

SEG 00

524

535
526

gav

§28

829
530

0Ql22b

001230

057454

;e ITEM!

0&2ra”

EM]
OH1

53]

§32
5§33
ggz

067306
070024

E:é

00i23e

057537

E43

001240

066064

536
£37
538
539

g4l

.2 ITEM2

DTl
OF 1

:RECEIVED DAT
: SERRPC Rscnon SGDDAT, SBODAT
.o.o,o.b,o

EM2

:ERROR ON

DH33

gus

' 600D DATA

0Ola242

0e7e6b

ggg

OCl124e

057837

€Ee
€53
560
Ee1

{01250

O0BSEY!

£68

001252

0E7642

g;g

0p125e

057537

€75

001260

OBEN3E

ggg 0Ci244 070174

0133

:CONTENTS OF RHCS!
:CONTENTS OF RHDSI
:CONTENTS OF RHER!
' §ERRPC . PCJSR . STSTNM. ERWORD, SGODAT.CS1.D%1. .ER1

EM2

;ERROR ON

DH32

: PC
-PC or JSR
i TEST NO
WORD NO.

DF23
;#ITEM3

€62
£63
564
£6C
ggg

5;3
€71
c72

€7E
£77

€78

£7¢

PC OF JSR
WORD NO.

E47

£54
§5¢

DATA COMMAND

TEST NO

E46

£48
£49
§50
€51

:PC
iREG. ADDR

:GO0D DATA

001232
00i234

540

:WRONG DATR IN RERDING OR WRITING HARDWARE REGISTER

i0.0.0,1,0,0,0,0

DARTA COMMAND

:GOOD DATA
:BAD DARTA
: CONTENTS OF RHCS1
:CONTENTS OF RHDSI
:CONTENTS OF RHERI

OC12E4

(0701e3

£132

: SERRPC , PCJSR,

EM2

:ERROR ON

OF 32
;¢

ITEMY

DH31

STSTNM, ERWCRD, SGODAT, $BODAT . CS1,051.ERL

:0.0.0,1.0.8.0.0.0.

TEST NO
WORD

: 600D oarn
:BRAD DATA

DATA COMMAND

Q%SJGBO RPO4-5 & DSKLS_CTRLRI]
€

JGB.P11

08-NOV-77 08:30

MACY1l

30(1046)

08-NOV-77

ERROR POINTER TRBLE

580

001262

067620

586
€87
588
589
€90
§9]
€32

00i26b
001270
QQi272

000000
000000
067620

Eqg
596
ggg

001276

0S7S66

€93

001300

065641

001264

0C1274

070153

: SERRPC,

STSTNM, ERWORD , $GDDAT, $BODAT ,

0
0
D131

;
:
:SERRPC,

STSTNM, ERWORD, SGDDRT, $BODAT,CS1,DS1.ERIL

EMb

:ERROR ON WRITE HEADER AMD CATA

OF31
: #ITEMS

070153

OF31
;#ITEMB

DH32

:0,0,1,0,070,0,0,

:0,0,1,0,0,0,0.0,

'PC OF ISR
: GOOD onrn
'BRD DATR
:CONTENTS OF RHCS1
:CONTENTS OF RMDS!
:CONTENTE OF RHERI

0C1302

0Qe7e42

DOI30&
001310

0S7S66
963052

001304

O0701e3

o732

: SERRPC , PCISR,

EME
DH2

:ERROR ON WRITE HERDERP AND DRTA
‘PC
s TEST NO
:WORD NO.

OF 32

$TSTNM, ERWORD, SGDDAT, $BODAT,CS1.DS1,ER!L

:0,0,0.1,0,0,0,0,0,

612

613
€14
EIE
€16

£1?

:#ITEM?

618

£19
£20
621
gsg

001312
061314

067334
07003¢

€24
625
et
e’
e

001316
00132C
001322

000000
00000
0E7334

001226
00.33C

0S7e2S
CE2I-E

€29
630
€2l
632
£33
£34
g3¢

CS1,0S1,ERY

i TEST NG
WORD NO.

603
604
605
606
ggg

Ei?

SEG 00i7

DT3I

601
602

609

:CONTENTS OF RHERI

S84

630

PAGE

:CONTENTS OF RHDS1

ESS

§33

EQ2

s CONTENTS OF RHCSI

581

€85

08:54

001324

s #ITEMLO

07003%

073
OF3

:GOOD onrn
*BRD DAT
' §ERRPC srsrnn ERWORD, $GDDAT, $BDOAT
.0.0,1.6.0,

0
0
D12

;
;
:SERRPC,

EMI1
DH11

: CONTROLLER OR DRIVE STARTUS
:PC
STEST NO

OF3
;#ITEMLL

STSTNM, ERWORD, SGODAT, SBDDAT

:0,0,1,0,0,

MRCY1l

30(1046)

08-NOV-?7

ERROR POINTER TRBLE

08:54

FO2
PAGE

SEC J0ie

;FAILING REG.

RODOR

01332
01334

067350
070042

00i336

057625

001340

oe2rer

;®I1TEMIC

HER1

o
"

)

fi
o
z

jur
TMy

iCONTENTS OF RHCS]
D111
DF1l

,ssnnpc $TSTNM, SBDADR, CS1,CS2,051 ,ER]

EM1L

; WRONG DRTA FROM SILO

:0,0,0,0,0,0

DH1

000000

c=2ITEML3

:#]TEMIN

0C135&
001360

[

001346
0C13S0
001382
001354

067306
070024

o000

Q01342
001344

ole)
N

RECEIVED DATH
BESRSCbQEGRDR $SGDOAT, $BODAT

: $ERRPC,

TSTNM, REGRDR , $GODAT, $600AT

:0.0,0.0,0

"FRILING REG. ADDR

:CONTENTS OF FQILING REG.
:CONTENTS OF RHCS!
:CONTENTS OF RHCS2
:CONTENTS OF RHDSI
:CONTENTS OF RHER
: SERRPC , $BDADR, seoonr €S1,CS2,C5i1
. ER:
.o,o.o,b,o.o,o

067370
070cs1

0e3SES

001372
001374

DE7412
0700¢e1

001376
001400

pE77cl
Oe3e0e

:SPECIFIED REG.
; PROGRAM

NON EXISTANT SO ABORT

;s PC

{ADDR. OF REG
SESRPC TEMP]

; #1TEM1G

001370

:#ITEMLS

0S7700

om
X

00i36¢e

NgIT LOOP FRILED

‘WAT PC

:BIT WANTED

:REG. ADR,

{REG.

CONT.

C:R}uBO RPO4-S. & DSKLS CTRLRI
CZR GB. P11
08-NOV-77 08: 30

6932
693
694
635
636
69?

201402
001404

MRCY!L 1

-NOV-77

P ER

067422

TRBLE

0B:S4

GOe
PAGE

17
SEG JCl19

: SERRPC,

:0,0,0,0

70064

$TMP3, $THP1, $TMPO, $BODAT

i #ITEMI7

HECK FRILING
TENTS OF RHBA

conrsnrs OF RHDB
:CONTENTS OF RHWC
conrenrs OF RHCS!

CONTENTS OF RHCS2

' SERRPC $TSTNM, $BA, DB, WC.CS1,CS2
:0,0,0,0,0,0,0°

OW NN
L W
0D

SN NI NI NN NI NN NIV
TM 0met Pt Pt e Pt Bs §— = )

; #1TEM20

EMeC
DH20

-REGISTER FRILING
; TST_NO

;CONTENTS OF PHER]
:CONTENTS OF RHER2
:CONTENTS OF RHER3
067460
070100

pYcC
OFe0

Econrenrs OF RHDS!

SERRPC, TSTNM ER1,ER2,ER3.RS,0S:

.o.o.o.c.o.o,o

i#1TEMR]
060037
0e4317

001432
001434

067S0C
07C107

D0143E

Oe0Ce!

EM2i
DH21

T21
Fel

;#ITEME2

EM22

-ggTERRUPT

FRILING

STEST
N

co~15nrs OF RHCS!
:CONTENTS OF RHAS
:CONTENTS OF RHDSI
:$ERRPC, TSTNM, CS1, RS, DS
.0.0.0.0.0
;ERROR

IN DRIVE PRESENT

;LOOKING AT RHAS AND RHCS2-NED(BITslZ.
;DRIVES PRESENT DO NOT AGREE
:NOTE: ON DUAL PORT SYSTEM

;DRIVE ON OTHER PORT WILL NOT GIVE MEC

DHeR

nry
nru

001442
001444

DE4437

0C1440

gENCE THERE WILL BE A MISSMATCH
i TEST NO

;RHAS UNIT (RHER1 BITS SET)
{RHCS2 UNIT (*NED’ BIT TEST,
SESPPC TETNM

CIRIGBO,RPO4-S & DSKLS CTRLR!

CZRIGB.PI1
~4g
~49

50
~51

-52

00lM46

001450

001452

08-NOV-77 08:30
000000

MARCY1l 30(1046)

08-NOV-7?7

ERROR POINTER TABLE
:#1TEM23

000000

000600

001484

00000C

001456

06054l

DCI1460

064542

DH2Y

001462

067522

DT24

768
769

001466

O0BOE3Y

:*ITEM 25
EM2S

772

001470

DBHSH2

DH2Y4

~C3

764

755

766

757
758
~59
~60
761
762
763
764
765
4

;;?

77
=y

s#1TEM 24

EM2Y

OF 24

775
001472
001479

067522
070120

;Sé

DOi47e

057625

782

001500

0&4725

: ¥ ITEM26

BEGINNING OFA SECTOR IS IN
,E ROR
PC
:RHDST
:BAD RHLRA
:GOOD RHLA
:SECTOR NO
:SECTOR CLOCK
! §ERRPC,DST, $BODAT, STMP1, $THPZ, STMF3

i0,0,0,8.0 '

]
:LOOK AHEAD REGISTER IS

:IN ERROR

RHDST
:BAD RHLA

. CONTROLLER OR DRIVE STRTUS

DH26

JSR

‘FAILING REGISTER ACDRESS

SCONTENTS OF RHCS]

:CONTENTS OF RHCS2
:CONTENTS OF RHDSI

;gg

:CONTENTS OF RHER!
051832

05754;

79¢&
;gg

O0150€

0OE74S4

799

001510

0eS130

0C1804

0701z

794
79¢g

:LOOK RHEAD REGISTER AT THE

EMLL

~86

£00
gC1
gCe

'NEC’

D124
DF 24

787
788

ggg

:TEST TABLE TYPE OUT ROUTINE

:SECTOR CLOCK
' §ERRPC,DST, SBODAT, STMP1, §TMP2, $TMP3
.o,o.o.b.o

78¢

791

SEG 0C20

:NO LONGER USED DUE TO SPECIAL

:SECTOR

777
778
778

784

PAGE 18

:GOOD RHLA

780

HO2

76E 001464 070120
¢

08:54

D126

: $ERRPC , PCJSR, $BDADR, CS1,CS2,0S1
. ER]

EM]

:ERROR IN READING OR WRITING HARDWARE REGISTER

OF 3€
;2 1TEMR7

DH2?

:0,0.0,0,0,0,

:PC

:PC OF JSR
:TEST NUMBER
.En;anc FEuISTER
: G000 DAY

CIRIGBO,RPOM-S & DSKLS CTRLR1I

SZRIGB.PLI

08-NOV-77 08:30

MACY1l 30(1046)

0B8-NOV-77

ERROR POINTER TABLE

88;

806

80F

808
899
810

811

812

813
814
£1s
816

001512

067564

0CIS16

0BOETH

001Si4

001820

D127

C70137

OFZ7
: #1TEM30

065273

EM30

DH30

gig

819

08:54

I02

PAGE 19

SEG 2021

:RECEIVEC DATA

. $ERRPC,

PCJSR, TSTNM, REGADR, SGODAT, SBCDAT

:0,0,0,0,0.0

: CURRENT CYLINDER DGES NOT REFLECT DESIREC CY_INGER REG.

,PC
:PC OF JSR
REGISTER ADDRESS
:GOOD DAT

:BARD onrn
001522

0BTEDR

825

001526

061015

828
829
830
831
832
833

001530

066267

Sgg

0G1532

067710

DT34

,SERRPC, TSTNM, GECC1,GECC2,WEZCL,WECC2, LISk

ggg

001E34

070204

DF 34

;0,0,0,0,0,0,0

00153

DellN0

EM22

.ON READ COMMAND AFTER DARTA AND ECC HAVE BEEN READ

gg?

001824

822
823

824

ggg

DT30

070145

OF30
s *1TEM3]

EM
DH3Y

ggg

840
4l

g42

E43

:#ITEM32

:ECC GENERATED IS INCORRECT

]

'EVERY WORD IN THIS SECTOR IS GIVEN IN "DATA JSEDTM
:PC
:TEST NUMBER
:GOOD ECCI
:GOOD EC2C
"WRITTEN ECC!
"WRITTEN ECC2

!ECC REGISTER OR RHER! IS IN ERROR

'ONLY LOWER 11 BITS OF PATTERN REGISTER

g4t
339
849

:0.0,0,0,0

:DATA USED

-t

E48

: $ERRPC, PCISR, REGADR, $GODAT, $BCOAT

:CAN BE RERD
.
!¥HIS SHUOLD MARTCH LOWER 11 BITS OF ECC!
00ISH0

0ebHE2

DH3S

eco
851
gc2
gga

:TEST NUMBER

:GOOD ECC!
:G00D ECC2
;pnrrenn REGISTER
; RHER1

ggi

001842

0e773C

5135

. $ERRPC., TSTNM, GECC1,GECC2.EC2,ERL

6E7

001E44

070213

DF 36

:0.0,0,0,0.0

CcRJIGBO,RPO4/S

CZRIGB.P11

& DSKLS_CTRLR!

~08-NOV-T7 08:30

860

861

862
863
864

00ISHE
001550

061427
066655

MACY11l 30(1046)

08-NOV-77

ERROR POINTER TABLE
; #1TEM33

EM33
OH36

865

08:S4

JOe

PAGE 20

;HIGH COUNT BIT NOT HIGH AFTER 38853 CLGCKS
:PC
;PC_OF JSR

'TEST NUMBER

866

: RHMR

86+
B8

:POSITION REG
{PATTERN REGISTER

479

00is52

0677S2

bT36

. SERRPC, PCISR, TSTNM, MR, EC1,EC2

872

O01Ss4

070223

DF 36

:0,0,0,0,0,0

001556

061501

EM34

; ZERO DETECT BIT NOT HIGH WHEN THE
132 BIT ECC REGISTER HAS 1TS 21 BITS

874

875
8

: #ITEM34

ar7

gre
8-9
880
B8]

:OF 2ERQS

0CISE0

DBEESE

DH36

882
883
884
B8

!ERROR PRINTOUT WILL CONTINUE TILL
: ZERO DETECT BIT IS HIGH
; PC
PC_OF JSR

Tes. NUMBER
: RHM
POSTTION REG.
!PATTERN REGISTER

887

001562

067752

0736

: SERRPC, PCJSR, TSTNM, MR, EC1,EC2

883

00iSes

OTC223

DF 36

;0,0,0,0,0,0

001SE6

061579

831
892
893

894

£9c
E3E
847

SEG OCz2

839
93G
00IE?C
0e7Ci+
9G]

: #1TEM3S

EM3S

DH37

902
9C3
9G4

:POSITION REGISTER OR 11 BITS OF

'PATTERN REGISTER INCORRECT
!LOWER 11 BITS OF PRTTERN REGISTER
' SHOULD MATCH LOWER 11 BITS OF GOGD ECCI

!DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL

:PC
: TEST_NUMBER

'ECC_POSITION
:GOOD POSITION
;GOOD ECCI

305
306
9C7

:G00D _ECC2
;ECC_PATTERN
:DATA ENVELOPE

308

:N-CODE ZEROS

319

ocis72

067770

£13?

: SERRPC, TSTNM,EC1,POSITI,GECCL,
GECC2,EC2, DRTENY, 2CCOE

312

ocis74

o723

OF 37

:0,0,0,0,0,0.0.0.0

§:3
ic

rarq

GBO,RP0O4-5 & DSKLS_CTRLR!

A1l

08 NOV-II 08:30

MACY1!

30(s046)
08-NOV-27
08:54
ERROR POINTER TRBLE

:#1TEM3b

K02

PRGE 2l

;ON
A READ COMMAND WITH NON CORRECTABLE

EM36

001576

062073

001600

066452

001602

067730

; SERRPC, TSTNM,GECC1,GECCZ,EC2,ECL
,ER]

001604

070el3

;0,0,0,0,0,0,0

0e2204
06217S

-gGE ERROR
iPC
:TEST NO

062341

TEST NUMBER
;GO0

:FAILING REG. RDOR
:CONTENTS OF RHCS1
:CONTENTS OF RHCS2
:CONTENTS OF RHDSl
:CONTENTS OF RHER1

:$ERRPC, $TSTNM, $BDADR, CS1,CS2,DS1,ER!L

DT1l
DF1l

067350
070042
0Clele

ERROR INSERTED OCK AND ECH SHOULD BE SET

DH3S

;lITE"HO

;RHWC DID NOT = O RFTER A REAC OR

EMY

06?232

DHY0

070014
C70eue

DT40
OF 40
; #RH11/RH70

; #WORD

,o,o,o.b.o.o

COUNT

ggITE HEADER AND DATA
'TEST
NO

:CONTENTS OF RHWC

SERRPC TSTNM, SBOCAT

REGISTERS

(RHWC)

:#EACH BIT IS CALLED BY BIT NUMBER
; #BUS ADDRESS REGISTER (RHBR)

:#EACH BIT IS
CALLED BY BIT NUMBER

; #CONTROL AND STATUS REGISTER 2 (RHCS2)
000001

000C10

usi=

uses=
UsS4=
BRI=

e
4
10

;UNIT SELECT (BIT 80!

SUNIT SELECT (BIT sl
JUNIT SELECT (BIT #2)
:BUS ADDRESS INCREMENT INWIBITM (SIT 3.

CoRIGBO.RPCH-S & DSKLS CTRLRI

CSRIGB.F1L

08-NOV-77 08:30

ERROR POINTER TRBLE

972
9-3
97y
3°g
976

000020
000040
000100
000200
000400

PAT=
CLR=
IR=
OR=
MPE =

978
979
380
98]
98z
ggg

002000
004000
010000
020600
040000
100000

PGE=
NEM=
NED=
UPE =
WCE =
DLT=

9-7

001000

08-NOV-77

MACY11l 30(1046;

MXF =

08:S4

LO2

PAGE 22

SEG 002+

: INVERT PARITY ON MASS BUS TO EVEN (BIT a4,
:CLEAR (BIT #5S)
: INPUT READY (BIT #6)
:OUTPUT RERDY (BT 87)
!MASS BUS PARITY ERROR (BIT 8

20
40
100
200
400
1000
2000
4000
10060
20000
40000
100000

:MISSED TRANSFER ERROR (BIT 89
:PROGRAM ERROR (BIT %10}
: NON Exxsrnur MEMORY (BIT #11].
:NON EXISTANT DRIVE (BIT sl2}
:UNIBUS PARITY ERROR (BIT 813,
SWRITE CHECK ERROR (BIT #14)
:DRTA LATE (BIT #1S)

: #DATA BUFFER REGISTER (RHDB)

985

389

:#EACH BIT

988
389

IS CALLED BY BIT NUMBER

990

. #RPOY REGISTERS

333

. #CONTROL AND STATUS 1 REGISTER.

99]
992
993

(#00)

;GO (BIT 80)

996

000001

GO=

qg
939

000200
000400

RDY=
A16=

200
400

:READY (BIT #7)
:HIGH ORDER UNIBUS BITS (BIT 8.

1001
1802
1002
1004
§882

002000
0C4000
020000
040000
100000

PSEL=
DVA=
MCPE=
TRE=
SC=

2000
4000
20000
40000
100000

*PORT SELECT (BIT #10)
‘DEVICE AVRILABLE (BIT wl1l)
MASSBUSS PARITY ERROR (BIT 13,
:TRANSFER ERROR (BIT #14)
:SPECIAL CONDITION (BIT miS)

397

1000

000100

001000

;885

000001

1011
1812
1013
1014
191¢
1016
1017
1018
1019
1020
1021
1022

030004
000010
000020
000240
000100
000200
000400
001000
002060
004000
010000
020000

iggg

100000

1023

i0ce
i0e?

Al17=

DFS=

: INTERRUPT ENABLE (BIT #6)

100

1000

. #STATUS REGISTER

1009

1C12

IE=

‘HIGH ORDER UNIBUS BITS (BIT 83,

(RHDS!)

(u01,

:DRIVE FORWARD S"/SEC.

(BIT 80,

0000062

OFF20=

‘DRIVE FORWARD 20"/SEC.

0400060

ERR=

40000

:COMPOSIT ERROR. (BIT #14)

020001

61GB=
GRY=
OLe4=
OEl=
vV=
DRY=
DPR=
PROG=
LST=
WRL =
MOL =
PIP=

ATA=

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

100060

:ATTENTION ACTIVE (BITM 815

. #ERROR REGISTER 801 (RHERL) (07>

tLF=

(BIT 81

‘DRIVE TO INNER GAVRO BRAND (BIT 2.
:GO REVERSE (BIT #3)
:DIFFERENCE LESS THAN B4 (BIT a4
:DIFFERENCE EQUALS 1 (BIT uS)
:VOLUME VAL1D (BIT #6)
:DRIVE READY (BIT #7)
:ORIVE PRESENT (BIT #8)
:PROGRAMRBLE (BIT #9)
:LAST SECTOR TRANSFERRED (BIT s10)
TWRITE LOCK (BIT #1D)
'MEDIUM ON-LINE (BIT #12)
_
'POSITIONING OPERATION IN PROGRESS (B.T 13,

s ILLEGAL FINCTION (BIT #C.

Co
- RJGBJ,RPO4/5. 6
DSKLS CTRLR!

RIGB.P11

1028
1029

1833
131

1833

e
1838

08-NOV-77 08:30

1048
1049
aso
051
052
053
0S4

003G0N
000Ci0
090020
500040
0002C0
000490
001000

Dot Pt Pt et Pt Pt Pt Pt Dot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt

058"

.
056
057
058
0Eg

0000000000000
MM
N N NNNNINNTY
WU OOV PN LW
O
N LW

062
06
06
36
06
06
06
06

: ILLEGAL REGISTER (BIT 1)

FER=

ég

'FOE ¥ EBRSREir 935

oooéoo

834888
004000
010000
520000
040020
10000C

zc C=
Bz
=

WLE=

DTE=

oPI=

UNS=
OCK=

,ggcxsrsaMODI xc¢r;g? REFUSED (BIT 2,

q
188
2

NRITE LLOCK rn L (BIT #5)
AT 6)
OR (BIT

400
A8R8

n
ERR (BéTRle) .
RB%?B 82588&8“:5308 S8

10000

:DRIVE

40000
1000C0

¥»E unsan (BIT #I4)
A CHECK
ERROR (BIT 15)

4000

1
2
4
10
20
90

DTey=

1000

DENVL=
ZER=

209013

000020
000040
000100
000200

LOCK ERROR

(RHMR) (#03)

:DIAGINOSTIC MODE (BIT %0)
!MAINTRINABILITY
CLOCK (BIT #1)
'MAINTAINABILIT INDEX (BIT 82)
‘MAINTRINABILITY SECTOR CLOCK (BIT
MRINTRINABILITY READ (BIT #4,
!MAINTRINABILITY WRITE (BIT #5;

iDATA ENVELOPE (BIT #7)
:2ERO DETECT (BIT #8)

'MAINTAINABILITY SYNC DETECTED (BIT %9,
SUMMARY PSEUDO-REGISTER

(RHAS)

(#04)

ATO=
AT1=
AT2=
AT3=

1
2
4
10

:DEVICE O (BIT #0)
‘DEVICE 1 (BIT s1)
‘D v¥c
5 (BIT #2)
;8 vi¢
(BIT #3)

ATS=
ATH=
AT7=

40
100
206

!DEVICE 5
;oevxcE ;
'DEVIC

ATd4=

(BIT #11)

TIMING ERROR (BIT #i2)

OPERRTION INCOMPLETE (BIT #13)

200
400

- #ATTENTION

000001
000002

(WRITE

20000

OHD=
MCLK=
MINX=
MSTCK=
MRD=
MWR=

#7)

; #MAINTRINABILITY

000002

PRGE a3

WeF =
ECH=
HCS=

83028S

MO2

ILR=

gg;:

00000}

1047

08-NOV-77
(08:54
ERROR POINTER TRBLE

30(1046)

000002
000004

1038
1033
10%
1041
1042
1043
104y
1045
1046

0t B4 et s Pt Bt Pt Pt Pt Bt Pt Pt ot Pt B

C[ 4

MRCY1l

'DEVICE

4 (BIT #4)

(BIT #S)
(gxr 85)
(BIT 875

. #DESIRED ?C gR/TRACK ADDRESS REGISTER (RHDST)
!$EACH BIT
IS CALLED By BIT NUMBER

: *DRIVE TYPE REGISTER (RHOT)

(80&)

‘¢EACH BIT IS CALLED Br BIT NUMBER

(#1)

04-5-6 DSKLS_CIRLR]
08-~NOV-77 08:30

MRCYL11

08-NOV-77
30¢( 1 846)
ERROR PCINTER TRZLE

(CB8:54

; #LOOK-AHERD REGISTER

— OO LWU—
OO0 N LWN—O 0D \atrmx:umv-g:g‘o

s Pt o
s Pt Pen it Pt Pt Pt Bt Pt Pt Pt B cn Pt et Bt Pt Pt Pt Pt Pt Pt Pt et Pt Pt Pt ot Pt Pt Pt Pt
Pt Pt Dt Pt Pt
Pt et G

Hy..—p..—.—p.—p.—.py_h.—.-ppg—fi;—p;—;—p—khw;‘.‘y_pppp—;..._’.4.."—’-OO
WL
WMV
I
= 0 b e b = = = - = D O O O O O O OO
DTN LW

0000391
00

0400040
100000

EXTl=
ExT=
ExT4=
EXT10=
EXT20=
EXT40=
SCi=
§C2=
5C4=
§C10=
§C20=
TRK1=
TRK2=
TRK4=
TRK10=
TRK20=

106000

Weus=
CSF=
Bz
rSu=
HSE=
TOF=
TUF=
FEN=
WRU=
MHS=
NWS=
IXE=
vu30=
PLU=
ACU=
; #RP0OS/6

000601

weu=
CSF=
WStz
cSu=
RAW=
TOF=
TUF=

0200c0

ABS=
WRU=
MHS=
NHG=
IXE=
Pcu=

PRuE 24

(RHLAR)

;EXTENSION 1 (BIT #0)
EXTENSION 2 (BIT si)
EXTENSION 3 (BIT w2
{EXTENSION 3 (BIT #3)
TEXTENSION S (BIT #4)
{EXTENSION & (BIT #5)
;SECTOR
COUNT FIELD O
;SECTOR COUNT FIELD |
ERTOR COUNT FIELD 2
;SECTOR COUNT FIELD 3
iSECTOR COUNT FIELD 4

20
S0
100
200
400
1000
2000

4900
10000
20000
90000
100000

TRACK
;TRACK
TRACK
;TRACK
:TRACK

RHER2)

L
2
4
10
20
40

4000
16000
20000
100000
REGISTER

1
2
3
4
S

(BIT s11)
(BIT #12)
(BIT #13)
(BIT #1%)
(BIT #iS)

‘
#6)
a7)
s8)
%3
i0)

(810)

(RHER2)

1
2
4
10
20

(#10)

s WRITE CURENT UNSAFE
! CURRENT SINK FAILJRE
' CURENT SELECT UNSAFE
! CURRENT SWITCH UNSAFE
'RERD AND WRITE

40
100

200
40N
1000
2000
0G0
20000

FIELD
FIECD
FIELD
FIELD
FIELD

(BIT
(BIT
(BIT
(BIT
(BIT

;WRITE
CURRENT UNSAFE (BIT &0
' CURRENT SINK FAILURE (BIT sl
WRITE
SELECT UNSAFE (BIT s2.
s CURRENT SWITCH UNSAFE (BIT #
MOTOR SEQUENCE_ERROR (BIT sy
i
TRANSITIONS DETECTOR FAILURE (BIT %€,
i TRANSITJONS UNSAFE (BIT #6)
JFAIL
ENRBLED (BIT 87)
WRITE READY UNSAFE (BIT #€)
IMULTIPLE HERD SELECT (BIT #3
'NO_HERD SELECTION (BIT #10)
; INDEX_ERROR (BIT ail)
30VOLT UNSAFE (BIT_#12)
;PLO UNSAFE (BIT #13)
;ACUNSAFE (BIT #15)

100
200
400
1000
2000

ERROR

SEG 00ze

(8C?7)

|
2
4
10

; #RPOM ERROR REGISTER

000001

NO2

: TRANSITIONS DETECTOR FAIL IRE
: TRANGITIONS UNSAFE

: ABNORMAL STOP
'WRITE RERDY UNSAFE
"MULTIPLE HERD SELECT
'NO_HERD SELECTION
! INDEX ERROR
!PLO UNSRFE

;#OFFSET REGISTER (RHOF,

(w#ll)

lelel
Pty

RIGBO,RPO4-S./
6 DSKLS CTRLR]

RIGB P11l

0&8-NOV-77 08:3C

MALrll

301046,

0B8-NOV-7?7

ERROR POINTER “ABLL

08:54

BO3

PAGE 25

1140
114]
1142
1143
1144
ii:g

000001
000002
000Co4
000010
20
000040

OF2S=
OFS0=
0F100=
OF2C0=
OF400=
0F800=

10
20
4O

;OFFSET
:OFFSET
:OFFSET
:OFFSET
;OFFSET
;OFFSET

1147
1142
1149
ixg?

000200
002500
005000
01000C

OFREV=
HCI=
ECI=
FMT22=

200
2000
4000
10000

;OFFSET NEGATIVE (REVERSE) (BIT &7
; HEADER COMPARE INHMIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIV (BIT
:FORMAT BIT (BIT al2

|
2

SEG 0027

1182
1183
114
1185
1156
1187
§1§g

; #DESIRED CYLINDER ADDRESS (RHCA, (#12)
:#EACH BIT IS CALLED BY BIT NUMBER.

116l
1162
1163
1164

: *CURRENT CYLINDER ADDRESS

1180

iigé

(RHCC,

:#EACH BIT IS CALLED BY BIT NUMBER

25 MICRO INCHES (BIT 0.
50 MICRC INCHES (BIT 1)
100 MICRC INCHES (BIT s2)
200 MICRO INCHES (BIT 83
400 MICRO INCHES (BIT sy
800 MICRO INCHES (BIT #5)

wil.

(#13)

1167

1168

{153

1171

; #SERIAL NUMBER REGISTER

1178
117
1176
1177
iigg

: #ERROR REGISTER

fi*g

1180
1181
1182
1183
1184
118
1166
iigg
1169
1190
1191
1192
1192

1194

119t

; #EACH

000001
000002
800013
000229
00004C
0C0100
040000
1000G0

PSy=
VUF =
UWR=
PRE =
ACL=
CCL=
SKI=
OCrL=

(RHSN)

IS CALLED BY BIT NUMBER

#03

(RHER3)

(#14)

(#1%S)

1
2
10
20
40
100
40000

100200

:#ECC POSITION REGISTER (RHECL)

;PACK SPEED UNSAFE (BIT #0)
;VELOCITY UNSARFE (BIT 1}
SANY UNSAFE EXCEPT READ/WRITE (BITM
;0ISK PACK ROTATION ERROR (BIT a4,
:AC LOW (BIT #5)
:0C LOW (BIT #6)
:SEEK INCOMPLEYE (BIT #14)

:OFF CYLINDER

(%16)

;#EMCH BIT 1S CALLED Bt BIT NUMBER

(BIT #1S,

CO3

PAGE 26

(817)

BER

08-NOV-77_
(8:54
ERROR POINTER TABLE

30(1046)

C -

NReee o
G- O WM l* gg

5
) rusyasy
sy
[YRT

GBO,RPQ4/S & DSKLS_CTRLRI
Al
08-NOv-T7 08:30

MRCY1l

SEG CCes

CZRJGBO,RPO4-5-6 DSKLS CTRLRI

£ZRIGE. P11

08-NOV-77 08:30

1204

1205

8gg8uwumwmmmmmmmmmmw»—»—»—o—»—-o—-o—»—»«o
LWR—-OOVDNCNLEWNN—-ODDICCN LW
D

VLRV UTV VUV Y Y
VLV IVIVIVRVITV

e et Pt Pt Pt Bt Pt Bt P8 Pt Bt Pt Pt Pt Pt Pt Pt Pt Pt Bt Pt
st Pt Pt

VRN

Gt Dot et Pt
Pt P

furururu

; #RPOY

001626

001630
00ie3e

001634
0Cle36

00le40

00le42
Q0le44

00lb4e

176722
17670

176704
176710

PAGE 27

CEG 0029

VECTOR ADDRESS

254

:RPO4 VECTOR RDDRES

I
]

IF THE “CHANGE BASE ADDRESSTM ROUTINE IS USED.
THIS ROUTINE STRRTS AT LCCARTION TAGED “BRSECHTM

RHOB:
RHWC :

176722
176702

RHBA :
RHCS2:

176704
176710

:DATA BUFFER _SEE NOTE RBOVE
{WORD COUNT SEE NOTE ABOVE

:BUS ADDRESS SEE _NOTE ABOVE
;CONTROL AND STATUS 2 SEE NOTE w3OVE

.I
P ¥

IF THE “CHANGE BRSE RADDRESS RCUTINE IS USED.
THIS ROUTINE STARTS AT LOCATION TARGED “ROSECHTM

176700

RHCS!:

176700

176740

RHERZ

176740

176714
1767

001650
0CieSe
001654
001656
001660

17673¢
176734
176742
176716
176724

001674

176720

isgg

OClE”E

RHERL:
RrUST

176714
176706

;CONTROL AND STATUS 1 SEE NOTE RBOVE

{ERROR 81 SEE NOTE RBOVE
DS&IRED SECTOR/TRQCK RADDRESS SEE NOTE RBOVE
SEE NOT E QB
OVE

RHOF
RHCA
RHER3
RHAS
RHMR

176732
176734
176742
176716
176724

{OFFSET SEE NOTE ABOVE
DESIRED CYLINOER QDDRESS SEE NOTE ABOVE
:ERROR_#3 SEE NOTE ABOVE
IATTENTION SU"HRRY SEE NOTE ABOVE
,HQINTRINQBILITY SEE _NOTE RBOVE

RHLA:

176720

; LOOK-AHERD SEE NOTE ABOV

176712
176726
176730
176744
176746

RHDS1
R
RHSN
RHEC]
RHEC2:

17736

RHCC:

;ggé

i28«+

D03

IRPOH'S/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC «(DCL:
#NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFERENT

00liebe
00ieb4
001666
001670
00ie7c

.22

RPVEC:

08:54

,ER 04/5/6 DISK 1/0 REGISTERS LOCRTED IN THE RHMI1 CONTROLLER
NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT

1243
1244
leds
1246
1e47?
ie48

000254

08-NOV-?7

ERROR POINTER TARBLE
.SBTTL

1206
1en?
1208

1239
1240
124i
1242

MRCY1l 30(1046)

176712
176726
176730
176744
176746
176736

;DRIVE STATUS _SEE NOTE RBOV
;ORIVE TYPE SEE NOTE RBOVE
; SERIAL NUMBER SEE NOTE ABOVE
;ECC POSITION SEE NOTE RBOVE
;ECC PATTERN SEE NOTE QBOVE

:CURRENT CYLINDER RDDRESS SEE NCTE ~BOVE

;#ADDITIONAL REGISTERS LOCATEC IN THE RH70 CONTROLLER LOGIC
00170C

OCIT0g

1767SC

17&7te

RHBRE:

RHCS3:

176750

17e7%2

;BUS ADDRESS EXTENSION REGISTER

:CONTROL AND STATUS REGISTER &3

CcRIGBO,RPOM S & DSKLS _CTRLRI

CIRIGB.E1!

08-NOV-T7 08:3C

12585
1256
1257
1258
1259

1267

1268

1269
127C
1271
1272
1273
1274
1278
i2?6
1277
1278
1279
1280
1281
1282
1282

30.1046)

0B8-NOV-?7

0B:54

EQ3

PAGE 28

SEG 0020

:#THE FCOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES
:®#ANY TIME THERE ]S AN ERROR ALL THESE WILL BE FILLED
;#ONLY SOME MAY BE PRINTEC BUT ALL WILL BE FILLED TRUE

igg?

igee
1263
i12é¥
iggg

MRCYil

;#FOR

001704
001706
00171C
00i?12

000000
000000
000000
00000C

001714

000000

001716
001720
001722
001724
001726
001730
0C1732
001734
00173t
0G1740
001742
001744
001746
001750
0Cl752

000000
000000
000000
000000
000000
0000
000000
000000
00
000000
000000
000000
000000
000000
(00000C

THE

TIME

JUST

AFTER

THE

"ERROR"

ERROR

COMMAND

D8:
WC:
BA:
cse:

0
0
0
0

:DARTA BUFFER
; WORD COUN’
; BUS_RADDRESS
; CONTROL AND STATUS 2

€sli:

; CONTROL AND STATUS

ER]:
DST:
ER2:
OF :
cA:
ER3:
RS:
MR
DSt
DY
SN:
ECI
ece
L&
cC

0
0
0
0
0
0
0
0
0
0
0
8}
g
C
c

;ERROR 81
;DESIRED SECTOR/TRACK RDDRESS
; ERROR _s2
;OFFSETY
; DESIRED _CYLINDER RDDRESS
; ERROR 83
;RTTENTION SUMMARY
;MARINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
; SERIAL NUMBER
;ECC POSITION
;ECC PATTERN
; LOOK-RHERD
: URRENT CYLINDER ADDRESS

<RJGBO,RPO4-5 & DSKLS_CTRLRI

JZRIGB. P11

08-NOV-7"7 08:30

1284

{ggg

MRACY1!l 30(1046)

0B-NOV-77

001754

000OLO

UNITS:

.BLKW

1289
1290
1291

001776

000000

NOUNIT:

.WORD

001774

000000

UNIT:

.WORD

1292
1293
iggg
isgg

002000

000000

NUNIT:

.WORD

00200c
002004
002006

000000
000000
000000

SELECT: .WORD
UNITSL: .WORC
ERFLGS: O

O
O

1298

002010

0000C2

SAVDT:

002Gie

000000

SAVSN:

1299
1300
1301
13Ce
igga

iggg
1307

PHRGE 29

INTERNAL PROGRAM CONTROL WORDS

1267

1288

08B:54

FO3

; TRBLE OF DRIVES PRESENT TO TEST

JUNIT UNDER TEST

; NUMBER OF UNITS PRESENT
,USED T0 KEEP TRACK OF UNIT UNDER TECST
;USED TO DETERMINE IF THERE IS MORt

i THAN ONE UNIT
JALL ONES INDICATE UNIT TO BE SELECTED
;UNIT NO. SELECTED
:ERROR FLAG
; SAVE DRIVE TYPE REGISTER

:FOR COMPRRISON IN DRIVE CLEAR TEST
JAND RH_INIT TEST
:SAVE SERIAL NUMBER REGISTER
:FOR COMPARISON IN DRIVE CLEAR TEST
;AND RH INIT TEST

0c2C1l4

000000

PCIJSR:

;SAVE PC OF JSR WHICH GAVE THE ERRCR

{ggg

002020

002016

000000

ATTENT: O

;ATTENTION BIT FOR PRESENT UNIT

%gi?

002022

0020000

TMPILL: O

; TEMPORARRY ILLEGAL FUNCTION

1312

0CeCe4

000000

TSECC:

;FLAG TO SAY IF ECC TEST OR _NOT

1316
1317
;g{g

0C202e

000000

TESDTE: O

;FLAG TO CRY IF DRIVE TIMING ERROR OR NOT
IWHEN = 177772
1T 1SA DTE TEST
IWHEN = 0
IT IS NOT A DTE TEST

i320

002C30

0000ac

TAGDTE: O

: TEMPORARY TAG USED IN DRIVE TIMING

igsa

002032

00000C

TSTNM:

; TEST NUMBER

%ggg

002034

000000

FIRSY:

: IF ZERC WILL TYPE HERDER

{%gg

02036

00000C

RPOE :

:IF 0 PROGRAM WILL TRERT DRIVE RS RPCH

2529

0Cel4C

0000200

RH7O:

1313
igi:

igsé

cicis:

000000

TOTALRT: O
O

;TATAL ATTENTION BITS

‘WHEN =177777 17_1S AN ECC TEST
IWHEN =017 IS NOT AN ECC TEST

:ERROR TEST

:IF 1| PROGRAM IS RUNNING ON RH7Q

:IF 0 PRUGRAM 1S ON AN RHI!

SEG G2l

- 0O
»-0
-0
C

£L£L
L LWWWWWWWWW
L
WO
DO~ I LN 8 8

tets

MACY1l

30(1046)
08-NOV-77
REGISTER ADDRESSES

c*mmmmmuunx}m

GO3

; BFUNCTION

EQURTES

; #TRBLE

FUNCTIONS

RHCS1,

301
310
iCC

o840

HNE

WRFROM:
REINTO:

004

BIT

SEECOM:

;UNLORD

70
72

ATRBLE:

; SEEK _COMMAND

1Y
16

;OFFSET COMMAND
; RETURNTO CENTERL INE

22
20

; PACK ACKNOWLEDGE
; READ IN
; COMPUTED ILLEGAL FUNCTIGCN

;QDQTQ

B UFFERS

.BLKW
.BLKW

27y,
274.

.BYTE

(STAND BY)

;READ DATA
:READ HERDER AND DATA

ILLEGL: .WORD

002
020
eCd

"GO”

; RECALIBRATE
;DRIVE CLERR
;RELEASE (DUAL-PORT OPERATION,
; SERRCH COMMAND
;WRITE CHECK DATA
;WRITE CHECK HERDER AND DARTH
; WRITE DATA
;WRITE HERDER AND DARTA (FORMRAT;

FOR RERD WRITE
;WRITE FROM THIS BUFFER
;READ INTO THIS BUFFER

. #TABLE FOR ATTENTION BITS
: #ATTENTION TRBLE

004220
004222
aC4ec2e

THEN

&
10
12
30
S50
S2
&0
62

PKACK:
RERDIN:

000422
00C4ee

FCR

RECALI:
DCLERR:
RELERS:
SERCH:
WRCHEK:
WRCHDT:
WRIDRT:
WRIFOR:

OFSETC:
RETCL
000000

PRGE

;NO OPERATION

UNLORD:

08:54

FUTRBL;
NOPERAR: 0

READAT:
REFOR:

N INO T
e - 0 NN L W OWwm NN

Y oy R

T ey oy ey

Y O

el T ToF SO WOy Uy WY Uy Uiy Yo

LD W LI WD LI G L) L) ) () W) W) WD W W W W W)

WWWWWWWWWWWWWIW

[glg]

4 S & DSKLS _CTRLRI
08-NOV-77 08:30

1,2.4,10,20,40,100,200

SET

1373

_2 TTL ##%DIAGNOSTIC CODE##»
.SBTTL

.SBTTL

MOV
BR
38 9R:E3e 005037 002002 002002 BEGIN2:
CLR
BEGIN:
004240

DO42H4M
D0o4244

8 qqgs

START:

000005

12737

8200
3

004502
004506
pousie
004514

004737
005737
001001
000402

551’2
002034

DO4S 16
o0us2e

000:37

0083et

<302

00S32e

(12737

1772777

<05
406

005364
005372

032777
001403
C12737

4474

81%7;7

177776

175124

SETUP TES'S

#-1 JNSELECT

START

D8SELECT

:SELECT UNIT
:D0 NOT SELECT UNIT

:NORMAL RUN

RESET

STARTA: MOV

MOV

STATUS 10 O
. bvec1 JRPVEC :SET
:THIS PROCESSOR
1S FOR UNTIMELY
DRIVE INTERRLPTS

JSR

PC aoSTKINT

TST

sINITIALIZE THE TTY KEYBOARC

BNE
BR

a.#

18
2s

:1S THIS FIRST TIME ROUND °

ég:

IMp

J8SND1

:SKIP OVERALL PROGRAM HERDER

002034

SND1:

MOV

#-1,98FIRST

:NEXT TIME DO NOT GIVE HEADER

010000

173546

RH70CK: BIT

000001

002040

:SKIP HERDER IF NOT
:D0 HEADER IF SO

DOS374

£
o
£

o
Q
wn

N 3 WNY— OO0~}

hen he
e b
b ab o

[SV G O
o
B S & « pe
RIECRTT
Y ST
T | @]

e bt bt bt

s pn pm

PAGE 31

.SBTTL

137¢

1390

08:S4

gGs470

474

005737
104412
042716
11&37

Qlce3”

002002
177770
g;?zq

QL2004

BEG

38:

#SW12, ISKR

:LOOKk TO SEE IF USING RH7O

:IF SWl2 = 0,

SkIP NEXT

MOV
EBBCT

u!,d8RH70
JNSELECTY

(IF SuWlZ = 1. CU IS AN RH7O
:200 START?

fixc

?1;77zoué§9>

:ONLY SEE$ %nsr 3 BI;S

ngv

Pfl JBUNITSL guv uuf' 78 EE TE?TEB

W
w

30(1046)
08-NOV-77
REGISTER ADDRESSES

(]

MRCYL11

CIRIGBO,RPO4 5 6 DSKLS CTRLRI
CIRIGB.PLI
08-NOV-T7 08:3C

;SET UP STACK POINTER

012737

osedse

000C30

005556
000024
001630

000004

00000e

00000

17777

001200

-e<n1$ srnpx

0056024

020000

173334

SENIB,QSNR

:REGISTER NON EXISTANT
;INHIBIT ERROR PRINTOUT 2
:BRANCH IF YES

00se”2

012746

#ADDOMOD, - (SP)

;GET RERDY TO TYPE STARTING ADDRESS

005676
00€700

104402
000000

G0E702

000137

Q41314

005706
00714
005720
00S760
005762
a0e0eC

012737
005737
005237
000417
22k2
1273

00S7ee
001700
002040

00090+

0ce432

000930

gcacoe

COoloH

[p31aV]
~N

[}

20elet

»=

00Ss30
005536

~No

o0ssee

001000

O0—-0000000000

012706

(4 V]

LW~ OVONCNLWN—ODWOmD

#STACK,

00SsS10

IREGSR;,QOEHTVEC ERROR VECTOR SO _THAT
REGISTERS ARE SAVED

.as aasnnvec
19%:

29%:

oRHbe Rl

J(R1+ R2
RO
1
38

‘R1 NOW HAS ADDR OF ADOR OF FIRST RE,.

"READ HARDWARE REG.
: COUNT DOWN
eanucn IF 24 NOT DONE
:BRANCH IF 24 DONE
lERRVEC+2 J8ERRVEC RESTORE TRAP CATCHER
)
CLE
STACK
(SP)+_(SPY+
N
15

0Cce0

ser UP FOR BUS TIMEOUT
:THERE ARE 24 REG TO TEST

:STORE FAILING REG ADDR

:OF "CHANGE OF BRSE ADDRESSTM ROLTINE
;FORCE

4s:

3%:

:GO TO END OF PROGRAM —-=====-===oean-

J8SEOP
sTRP. Js4

TRP:

;s INITIRLIZE VECTOR

JSRHBRE

:ADDRESS RPBAE (RH11/RH707?;

(SP)+,

SET UP THE STACK

3?2“70
PTN:

THE RESTART!

(SP)+

:FOUND AN RH70-SET MASK.

#SERROR, aEMTVEC:RESTORE ERROR VECTOR
150
T REGISTERS RRE SAVED
;pssvons TRAP CATCHER
SERRVEC+2. S8ERPVED

(@]

MACY1l

?TOH’S & DSKLS_CTRLRI
08-NOV-77 08:30

103

30(10“6)
08-NOV-7?7
08:54
PAGE 3¢
VRLUE FOR SOFTWARE SWITCH REGISTER

CoRJIGBO,RPO4-S & DSKLS_CTRLRI

JSRIGB. P11

08-NOV-77 08:30

MRCYL1

30u1048)
T1

JO3

08-NOV-77
08:S4
PAGE
REFERENCE ERCH REGISTER

1453

1484

14685

i:gg

006044

012706

001000

1468
1469
1460

006070
006076
006104

013737
013737
004537

010736
001636
042266

1461
1462
1463
14694
1465
1466
LHET
1468
1463
1470
1473
1474
1475
14786
1477
1478
;:gg

006110
006112
006114
006116

000000
000000
104001
000207

006136
Q00&142
00B146
006152
00E160
006le4
30E17C

013701
Q12711
011137
105737
005037
010137
104001

001656
177777
001126
001126
001ig4
042264

MOV

gCe! 10
006! 12
JIN:

#STACK,
SP

sRESET

STACK

J8PRCS2+12, dWUN

MOV
JSR

JNRHCS2, I8UN+2
RS, aeBItST

.WORD
ERROR
RTS

O
|
PC

MOV
MOV

annnns R1
9R

;R1 HAS ADDRESS OF RHAS
;1 THIS CLERRS RHAS (SURPRISED!
.
; TEST DATA

auscoonr
R1, 98REGRDR
1

.GOOD DATA

JWORD

MOV
1STB

CLR
MOV
ERRCR

aax aoseoonr
98$80DA

; TEST BITS

IN REGISTER

{ONLY THESE BITS TESTED _FOR READ-WRITE
;RDDRESS OF REG.

BEING TESTED

; IN_ CORRECT DRTA RECEIVED

;RETURN TO BLT3 ROUTINE

;FRILING REG.

RHRS

:RHAS DOES NOT CLEAR
:BY WRITING ONES IN

gssi7e
020000

00654M
006550

RESET

PC, auSTKINT

BNE

4§

MOV

J8RHAS , R1

CLR

ar2

MOV

J8RAHER]
, RY

1%:

MOV

d8RHCS2,R2
#8.

MOV
INC
DEC
BNE

NO. (RHCS2)
€ C COUNTER
T u UNIT IF 8 NCT DONE

MOVB

JR1,JISTOTALAT

006604
006610
ooesle
006614

002Cel

CLRB

IBTOTALAT+!

000137

D0716E

BEQ

006620
006626
0C6E30

032777
po140°
000137

020000

000137

041314

007166

007234
007236
g07eNe
07250

00000
OOQr+-r-

XE2:
c3:

39:

—000000
DO
=-00

007166
007172
007176
007202
007204

; SOME THERE - GO FILL "UNITS” TRBLE

Xge

#SW13, ISWR

BIT

I G ATTENTION BITS
;SAVE ALL RESULTIN
; (USED IN DRIV E C CL E AR TEST)
; CLEAR UPPER BYTE
;TEST RHAS FOR ANY DRIVES PRESENT
; NONE RESPONDING - TYPE THE MESSAGE

BEQ
JMP

33
SELTSTY

JMP

SHSEOP

; INHIBIT ERROR TYPE OUT?

; TYPE “NO DRIVES"TM

MESSAGE

IF NG

;CHECK FOR SELECTED UNIT START AND LORD
;"UNITS” TARBLE WITH DESIRED DRIVE IF SO

3%:

006634

0071&e2

aRl

JMP

OF RHCS2

E
DR. OF RHER!
C
RHER] OF UNIT ADDRESSEL

#-1,dRY
JR2
RO
18

002020

00752

,RO

006600

SEG 003t

#SK13, 3SWR

MOV

001754

000
Orne—

wmwwwwwmmmmmmmmmw»—wu—-—-»—»—-v—»—»»—ooogo
NN LW
OO0 NN LW~
OO
NN
N L WA— OV

s Pt Pt s
p e
s 0t Bt

e § <0

s 9t Dm B

Bt Bm Bt D

Bt Bt Bt Bt Pn B

e Pt B

B8 Bt

et P

Bt B

s Be

dhnanuancndnancngvngntdiuanandnanoicnonuiygnniidnnin

ISR

BIY

172714

006574
006576

08-NCOV-77
08:54
PAGE 3 ¥
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

(6]

1487
1488
1489
1480

006202
oge21e
006216
006224

P
po
D

1486

CTRLR]

06-NOv-—7 08: 30

~00~—00

1481
1482
1483
1484
1485

S & CSKLS

KO3

O
hl

GB.P11

3011048)

jolw]
0

CIRI3BO RPOM
-

MACYLL

172374
024020

108:

001776
000010
001176
001176

4s:

172414

119:

;#SET

MOV

MOV
MOV

DRIVES

#8.

PRESENT

suniTS R3
s-1, (R3)+

DEC
BNE

RO
3s

MOV
CLR
CLR
MGV
MOV

SUNITS,R3
RS
JBNOUNIT
88.,R0
JR1 29STMPO

ROR

as$tMPO

MOV

RS, JRHCS2

BEG

BCC

CMP

824020, JRHDT

TABLE

;LOAD “UNITSTM TABLE COUNTER

;LOAD “UNITS” TABLE POINTER

;PRESET 1ST TARBLE BLOCK TO RLL ONES
; COUNT DOWN
; PRESET NEXT BLOCK IF 8 NOT DONE

:RELORD THE TABLE POINTER
s INITIALIZE UNIT NO.

7O O

iNO. OF UNITS PRESENT
R
;ReLORD THE TABLE COUNTER
;AODR OF RHAS INTO TEMPORARY STORAGE

!
;SET CARRY IF O BIT = 1 (UNIT ATTEN.
;CHECK NEXT UNIT IF ONE NOT IN BIT Q
; INGERT UNIT NO.

+REARD RWDT -

INTO RHCSZ2 UNIT ADOR.

IT A DUARL PORT RPO4

{YES...TYPE THE UNIT NO.

JGB.PI1L

S abaD
o 4D s e 0t Bt Pt et Dt P 2 Pot Dot Pt Pt et Pt P Pt Pt Pt ot Pt Pt Pt s Pt Pt Pt Bt Pt P P Pt Pt Pt P Pt P Pt Prum P P Poen fi

® L)

RJGBO,RPO4 /S 6 ost§ CTRLR]

5§37
ggg

08-NOvV-77 08:30

MACYIl 30(1046'

0B-NOV-77

ogzsw

LO3

PAGE 35

TEST FOR DRIVES PRESENT USING RHMAS AND RHCS2

SEG 0037

007252
007260

02277°
001477

020020

172404

CMP
BEQ

820020, 9RHDT
6%

:READ RHDT - IS IT A SINGLE PORT RPO4 °
:YES...TYPE THE UNIT NO.

42
43
44
E:é

007zb2
007270
007272
007300

022777
001473
022777
001467

024021

172374

020021

172364

cMP
BEQ
cHP
BEQ

824021, 3RHDT
63
820021, IRHDT
68

:DUAL PORT RPOS 7
:TYPE UNIT NO. IF SO
:SINGLE PORT RPOS ?
:TYPE NO. IF SO

§47

00T302

022777

024022

172354

824022, IRHDT

:REAC RHDT - IS IT A DUAL PORT RPOE ~

020022

172344

247

S48
S49
g§?

007310
312
007320

001463
022777
00INST

CMP

BEQ
CHP
BEQ

564

:#0UT THE DEVICE TYPE

658
869
S60
S61

007350
007352
007376
CO7402

010546
104405
017746
1044G2

564

007460

010523

EE%
665
566

S6r

0C7456

007462
007466
007470

000407
104401
010546

001222
001776

104405

007472

005237

00747¢

005205

€79

007504

013737

001754

€76

007520

005337

002000

007524
007832

205727
C13737

27
d/-J

€75
€gC

007500
007802

00~512

MOV
TYPDS
MOV
TYPOC

172282

ggg
€71
§3§

:YES...TYPE THE UNIT NO.
:READ RHDT - IS IT A SINGLE PCRT RPOE ~
:YES...TYPE THE UNIT NC.

:#NO...IT'S NOT AN RPO4-RPOS/RPO6 DEVICE SCG TYPE

gcc

223

X
820022, aRHOT
33

6%:

cs:

013737

001776
0020Cc
002004

001774

002000

001774

128:

SELTST:

JRHDT, - (SP)

B8R

MOV

RS, (R3,+

TYPE
MOV

TYPDS

005300
001252

RS, -(SP)

$CRLF
RS, -(SP)

:PUT THE UNIT NUMBER ON STACK
STYPE
IT
:PUT RHDT ON THE STACk
STYPE IT

:UNIT NOT AN RPC4/RPOS/RPOb SC TESTM MEXTM ONE

;LOAD TABLE POSITION AND INCR 17

{CRLF
:PUT UNIT NO. ON THE STACK

:TYPE THE UNIT NO.

INC

SeNOUNIT

INC

RS
RO
4s

:DRIVE COUNTER DOWN ONE
PTEST AND DO NEXT UNIT IF 8 NOT DONE

MOV

JSUNITS, JsUNIT

SET UNIT NO. TO FIRST ONE FOUND OR O

DEC

ISNUNIT

DEC
BNE

MOV

TST
MOV

PINCR THE TOTAL NG.

OF UNITS

: *RHCS2° UNIT ADDRESS

I#NOUNT
Y, 3sNUNIT SSAVE NO. OF UNITS

INSELECT
JBUNITSL
, asUNIT

;}F NUNIT = 0 THEN ONLY ONE UNIT

; IF NUNIT > O THEN MORE THAN ONE UnIT
:STARTING ADDRESS 20Q °
;CHANGE UNIT NUMBER TC SELECTED IME

CoRJGBO,RPO4/S & DSKLS CTRLRI

CZRIGB. P11

08-NOV-T7 08:30

MACY1l

30¢1046)

_08-NOV-77

08:5S4

MO3
PAGE

TEST FOR DRIVES PRESENT USING RHAS AND RHCS2

SEC 0028

1582

1583
1584
1585

iggg 00?€?20 00S037 002016

007SEY

004737

JSR

iggg

:#TEST FOR UNIT #0

1590
1891
1692

00757+
007600
007?602

005737
001022
0i2700

1594
1895
163
iggg

007612
007614

001015
005737

007620

001012

1593

007606

122710

042614

CLR

001774
000041

002002

BNE
TST

108
J8SELECT

BNE

108

;NO.
.. GO AHEAD
WITH TESTING UNIT
SWARS UNIT #f SELECTED
2
PC1E. WRS é’ 2 210 TART )
L1F 60...TEST

000011

CMPB

; #INCREMENT

00?622

012700

00.7SY

160

007e20

022710

17777

1607

007636

011037

001779

013700

001774

007634

001404

MOV

00”46

MOV

ios:

01007;

007672

02377

7?7

808“8§

1619

007700

{saé

1250

17é7so

001401

107

020022

171764

177777

002036

iggfi

007712

1252

007712

116037

004220

1627
iggg

0077S&
007762

013746
10440S

001774

022777

1€30

1631
1632

1233
1635

.£36
1627

TABLE

TO NEXT DRY~

EEX

010054

002016

00142¢%
2777

024020

171602

020020

171572

010074

022777

D24021

171562

020021

17552

010102
C10104

1421

001483
022777

SELECT

THE NEXT
iN T

MUST USE un;r 20

JBUNIT, RO

'R0 CONTARINS UNIT NO.

THE

PROPER DEVICE

RO JRHCS2

9aRP0e oT

TYPE FLRG

ssrggpagnxr neggg
S PE FLAG

,v S..SET FLAG

MGV

8-1, J8RPOE

13 B

820022, 3RHDT

'S INGLE

‘N

onr

POE ?

ON'T SET RPOE FLAG

;ASSUME THE NEXT UNIT
MOVE

ATARBLF
(RO ,38ATTENT

MOV
TYPDS

JRUNIT, - (SP)

:UNIT NO. TO STARCK
:TYPE
ORIVE NO.

824020, 3RHOT

:DURL PORT RPQM

BEQ
CMP

BEG
CHP

4$
-gooao,annor
Y

824021, JRHDT

&3
820021, 3RHOT

RO)

:DECREMENT BECQUSE UNIT & O WONT’'Y BE TESTED

BEG

BEQ
CMP

TRBLE

'SET up T0 ae THE unxr UNDER TES

BUBC
PORY
R 85 FLAG
%
g

cMP

THE

a TABLE ENTRY PRESENT 2

SIF NO

3s:

010062
0:00&4
010072

28%:

Lono THE UNITS THBLE POINTER

SLR
BEQ
CMP

IF ANY)

TESTED)

125

a:nofinxrs

MOV

HE POINTER,

0),duUNI”

DEC

;#SET

16l
B37ees 82293
82388 17107y
16ir
007670
o;
1618

:WRS It AN RPBH /6 2

(2°¥BE§
INC ;ns

#-1, (RO)

BEQ

1611
oo;gsa

(RO)+

CMP

f%ig

fgig

THE UNITS

SUNITS, RO

TST

1606 00’642 005337 001776
{ggg

$11, (RO)

%8 DECREMENT THE “NOUNITS* PRESENT (T°
005720

1606

:CLEPR

:1S UNIT 80 NEXT IN THE UNITS TABLE ?
:IF NOT, TEST THIS UNIT
:IF SO,
'CHECK THE LORD MEDIA LOCATICN

007626

1282

sFILL UNIT NO

JUUNIT
108
841,R0

§§8?

1662

?lCL?ISK

15T
8NE
MOV

1599

1603

IS AN RPOM

;SET RPPROPRIATE ATTENTION BIT

:TYPE ASCII MSG OUT
§1NGL; PORT RPO4 7
YPE

THE MESSAGE

:DUAL PORT

RPQOS

STYPE MSG
:SINGLE PORT RPUS *

022777
0ol424
022777
001420
000454

00000

001447

00000

oi0112
101
101
101
101
101

MACY11

0240ee

171542

020022

171832

30{1046?
TS

08-NQV-77

08:54

PRAGE 37

TYPE SERIAL NUMBER RND DRIVE TYPE

BEG

; TYPE MSG

CMP
BEQ

s24022, dRHDT
5%

DURL PORT RPO& 7
YPE MSG

ggg

ggOUEE,QRHDT

SINGLE PORT RPO6 ?

DRI $ IS NOT AN RPO4/RPOS/RPO6
:DON'T TYPE THE RSCII MESSAGE

SEQ 0039

- SO

WWNNW
oL
Lfonoo

ONNG

e
oo
Pt P

00000
PDRY -

P
e bmo Pt

0000

0000
WY

00000

; ~SHOULD NEVER HAPPEN RT THIS POINT

1638
1639
1640
1641
1642
1643

WM
»-—Lo e

CSRJIGBO, RPOY-S b DSKLS_CTRLR!
08-NOV-77 08:30
2ZRIGB. P11l

NO3

4§

000435

cs:

Ccoo416

005777
005777
012737
017737

6%:

18:
002012
ocacio

{UNLESS DRIVE GOT SICK WHILE TESTING
;WAS IN PROGRESS

; SKIP NEXT MESSAGE

; SKIP NEXT

TST
TST

dRHSHN
dRHOT

RERD SERIAL NO. AND DRIVE TYPE
THESE TWO ARE TO HELP_SCOPE LOOPS

MOV
MOV

JRHSN, J #SAVSN
JRHDT, 98SAVDT

SQVE T0 CHECK IF CLR RHCS2 BIT S CLEARS ANY BITS
:SAVE TO CHECK IF CLR RHCSZ BIT § CLERRS ANY BITS

JGBO,RPOY
'S & DSKLS CTRLRI

:Z‘uuB P11
1662

1662

1664
i6bS
lede

Cl0322

Q310326
013550
C1LCSS4

08-NOVv-77 08:30
004737

0327!3
G32,-13
001378

MRCYL1!

30.1046)

08:54

PAGE 38

TYPE SERIAL NUMBER AND DRIVE TYPE

1€

BI7
grv
BNE

(CH42tl4

010000
010000

_0B8-NQV-77

BO4

JSR

PC QOCLDISK

sMOL, 2
$MOL . 393
13

GIVE

INITILIZE

CHECK MOL IN RHOSI
CHECK MOL IN RHDS!
{BRANCH IF MCL IS HIGH

SEG 30MC

CZRJIGBO,RPO4-S 6 DSKLS CTRLRI

CZRIGB. P11

08-NOV-77 08:30

§228
ol ol ol
1 S
LI ol d S

Liadoad oad ol pleal e ale ol of
)
SN NN ]
0 - IMN LW~ o

1669

MACYL1 39é10fl6)

08-NOV-77

08:54

CcO4

CHECK MOL TO BE LOW

PARGE 29

.SBTTL REGISTER TESTS
DIC700

004737

Q42E!4

JER

PC.a8CLDISK

(GIVE INITIALIZE

SEG 0041

CZRJGBO,

RPO4 /S 3

SZRIGB. P11

MRCYL1

3$iéOHBJ

08-NOV-?7

08:54

DO4

PAGE 40

RHCS1 - CONTROL AND STATUS 1 REGISTER

SEG 0042

is7T9

1661
1682
1683
iggg

1686

1687

1688
{ggg

011014
011026

012706
00NT37

001000
0M4261M

011032

052777

000020

01i040

00S07?

17057&

MOV
JSR

1691

011137

001126

10420C

001126

1697
1698
1699

011056
011060
011066

001406
012737
010137

104200
042264

001124

1705
1706
1707
1708
1709

G1110C
011104
011110
011114
011122

0110SC

0110872

011074

022737

104001

013746

062716
012637
011237
023737
001403

011124
011130

010237
104001

042264

1714

011132

011437

00112b

171€
1717

DO1lid4

001406

011160

15%00:

1718
1719

i720
172]
ivge
1723

#PAT, QRHCS2

CLR

SRHER1

NUMBER AND DEVICE CORRESPONDENCE (R1-R4)

'PAT’

:SET 'PAT’ TO INVERT PARITY

: GENERATED
‘WRITE DCL REGISTER USING BAD COMTROL PARITY

THIS PRRITY ERROR NOTHING WILL BE READ

011136

Oli1l4e
Glils4
Zli:ee

022737

012737
Qi0437

000010

000010
092264

3R1,

BEG
MOV
MOV

18
:BRANCH IF SC!'DVA'RDY=]
#5C!DVA'RDY, 388GODAT ; GOOD DATA
R1, 8REGADR
;RE$¥§TER ADDRESS RHCSI

MOV

JBUNIT,

CMP

18:

001126

2s:

001124

BIS
MOV
MOV
CMP
BEG

:RHCS1

--->

- (SP)

'S
NG PAT AND
:WRITING DCL REGISTER RMCS!
:DID NOT SET SC'DVA!RDY
'WITH 'PAT’ BIT HIGH
:GET UNIT NUMBER

sPAT!
IR (SP)
: INCLUDE PAT AND IR
(SP)+, a8SGDDRT
:PUT ON STACK
JR2, J4SBDDAT
'RHCS2 ---> SBDORT
auSG0DAT, a8$BDDAY ; COMPRRE RHCS2
2s
;0K - SC!DVA'RDY ARE HIGH

MCV

R4, 98SBDDAT

;RHER]

BEG

'HAVE 'PRAR’ SET
‘R - OK,
IT DOES

ERROR

SBDDAT

R2, 98REGRDR
|

CMP

csc!ovnenov,a-sabgggoéconpnns RHCS! AFTER PARITY

MOV
ERROR

MOV
MCV
kLY

38SBDOOAT

TIL.

MOV

ERROR

001774

000120
001l
001126
001124

1710
1711

1715

:CPU REG.

: #CLERRED

011049

igig

818

;#WITH

1699

i700
1701
1702
1703
1704

:RESET STACK
SINIT AND SET UNIT

. #SET FORCED PARITY ERROR

170576

i&gs

iggg

#STACK, SP
PC,anClDISK

sPRR, 38SBODAT

¥PAR, 88GDDAT
RY, JBREGADR
|

"REGISTER RDDRESS
'READING DCL REGISTER RHCS2 DID NOT

1SHOW UNIT#IPAT!IR BITS HIGH
---)>

$BDDAT

-ERROR REGISTER RHER! SHOULD

:GOOD DATA
‘FAILING REGISTER R4ER]

'PARITY ERROR DID NGT
‘SET 'PAR"

CIRIGBO,RPOM/S 6 DSKLS CTRLP1

CSRIGB.PIL
1724
1785

1726

1-_3:’
1728
1739
1730
1731
1732
1733

08-NOV-TT 08:30

MACYIl 30(1046)

Til

_0B-NOV-77_

08:54

EOY

PRGE 41

RHCS] - BIT ® 13 - MCPE

SEG 0043

48 & DSKLS_CTRLRI

08-NOV-7T7 08:30

MRCY1l

30 (1 ous)
T 13

DB
-NOV-77

0B:S4

FO4

AGE 42

RHBA - UNIBUS QDDRESS REGISTER

SEG S04+

CSRJGBO,RPOY S & DSKi$_CTRLRI]

23RIGE.PIL

08-NOV-=7 08:30

MRCYL1

1046
39

08-NOV-77

RHER]

08:54

GO4

PAGE 43

- ERROR REGISTER

SEG 004s

1738

1?70
17?1
1772
1773
1774
177
1?76
1777
1778
1779
1780
1781
1782
1783
1784
i765
L78E
i7E?

004737
013700
012701
012702
012”10
050116
010146
052716
011637
022610
0OI40S
011037
010037
104001

O0ll4e4
Q11426
011430
01!434
011440
Dliv42

000241
006101
0S2701
042701
00S302
001351

042614
001660
000001
000005
000001

JSR

PC, 8CLDISK

MOV

8l,Rl

MOV

19:

00O4C1
00l12v

MOV

MOV
8IS
MOV
8IS
MOV
CHP

BEQ
MOV

00l1l2e
042264

MOV

ERROR
29

000409
001000

D11460
011462
011464
011466
011472
011476
011s02

011504
011506
Ol1S10
0:1€14
011820
011822

012701
012702
012710

050110
020110
001407
010137
011037
010037
104001

000261
0O&I101
042701
052701
00S302
001354

00043S
00000S
000001

001340
000400

8400, R1!

R2
18

FLORT

8435,R1

4§’

ERROR
SEC
ROL
BIC

BIS
OeC
BNE

HRINTENQNCE REGISTER

R]1. 3RO
R1,

28SGDDAT

JrRb, 4$BODAT
RO, 38REGRDR
|

INDICATED

;

ET NEXT DATA
ET UNUSED BITS

LERR RERD ONLY BI7
UNT

BEQ
MOV
oV

R2_HAS COUNT OF NUMBER OF BI7's

SET OIRGNOSTIC MODE BIT
:SET DATA IN RHMR
;SAVE DATA FOR COMPARES
: INCLUDE BIT O
:SAVE FOR ERROR PRINTOUT
: COMPARE DAT
:BRANCH_IF GOOD
:BAD DATA
;FAILING REG. ADR,

:BRANCH IF S BITS NGT COCNE

85, R2
sOMD 3RO
R1,aR0

MOV

iRO HAS HRINTENQNCE REG. ROR.
Rl HAS DAT

LERR CARRY

MOV
MOV
BIS
CMP

;SET UNIT NUMBER AND INIT

?%SED TO SET

#BIT0S,RI

MOV

4s:

RO #REGADR

BIC
DEC
BNE

00l:ie4
001126
042264

2%
9RO, SBDDAT

BIS

33:

S'R

#0MD, IR0
1,8R0
Rl -lSP)
#0MD! 400, (SP)
(SP), 38S$60DRT
(5P)
4, RO

cL
ROL

;#NCW

D11444
011450
011484

JsRHMR, RO

170
1781
1782
=83
1764
1765
1766
1782
i768
1769
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

011346
011352
011356
Q11362
011366
011372
01i374
011376
011402
011406
011410
Q011412
Dll4l6
0ll422

OOWOOW"I

1739
1740
17491
1742
1743
1744
1?48
1746
1247
1748
1749

;R1

HAS DATA

iR2_HAS COUNT BITS

SET DIRGNOSTIC HODE BITS
:SET DRTR IN RHM
; COMPARE DATA
: BRANCH IF G000
:GOOD DATA
:BRD DATA
;FAILING REG. ADR. RHMR
IMAINTENANCE REGISTER
DOESS"OT ALLOW WRITING

ERO
;SET CQRR
GET NEXT DRTR

CLEQR REQD
#8170 S'BITOB'BITO?'BITOQ R1
7' ZEROED
#81708,
8,Rl
;SET BIT
R2
:COUNT IF S BITS oons
*BRANCH IF INCOMPLETE
K]3

ONLY BIT

- ONM

17373

Do bo Pt Pt Pt Pt Pt Pt et P Pt Pt P oo Pe

(70 W0 O D 0N
D DOLWLWN—ODm
DD DM Clg,

g R PO4 S & DSKLS CTRLRI

3733707097071

1 i

J8-NOV-7T 08:30

MARCY11l

30.1046)
T1S

PAGE 4M
08:54
08-NOV-77
RHMR - MAINTENANCE REGISTER

GBO,RPON 5 & DSKLS_CTRLR}
G B.A11
39-NOV-77 08:30

OO N
L

g
9
a4
o)
9
o)
o)
C
d:

MACY1ll 39
1046)

08-NOV-77

08:54

I04

PAGE 4S

RHER2 - ERROR REGISTER

SEG 0047

CIRJGBO,RPON-5.6 DSKLS CTRLRI

CZRIGB.A11

08-NOV-T7 08:30

MACY1l 30(1046)

Tel

08-NOV-77

0B:S4

JO4

PRGE 46

RHCA - DESIRED CYLINDER REGISTER

1811
1812
1813
1814
1815

1818
1819
1820
1821

1832

;#%#0F THE TWENTY REGISTERS (4 IN RH11, 16 IN RPO4) ONLY 12 ARE
:##CHECKED IN THE ABOVE TESTS
:##TWO0 ARE ALREADY TESTED (SERIAL NO. AND DRIVE TYPE)
#4THE OTHER 7 WHICH QRE RHDS1,
RHLA, RHCC, RHEC1,
RHMECL,
RHEC2

:##ARE READ ONLY REGISTERS.

ONE OR 2ERO CANNOT BE WRITTEN

SEG OCME

{
1

OOMMMPOD

1
1

A1l

wmwmmm};
(7]
OWw NN
(D

¢[ 8

YGBC RPU%4-S5-6 DSKLS CTRLR]

1
1
1831
1832
1833
iggg

08-NOV-7"7 08:30

MRCY11l

1845

:RESET STACK

012024

004737

042614

JSR

PC,a8CLDISK

sHERE

012030

00S037

002606

CLR

JRERFLGS

012034

012040
012044
012050
012052
012054

012701

012700
012721
005300
001374
005012

012102

011246

Q12104
012110
012112
012116
012120

042716
00S216
013703
005203
112713

O0l2124

igga

pi12126

0S1416

MOV

000010
177777

18:

000010
O0SI416

2%:

010000

7g:
108:

177770

70O SETUP HARDWARE/

:LOAD TABLE LOCATION COUNTER
'FILL B8 LOCATIONS WITH -1
:COUNT DOWN ONE LOCATION
:BRANCH IF B8 NOT DONE

CLR

JRZ

MOV
MOV
TST
BIT
BEQ
DEC
BEG

#8. .RG
8018k, R1
RY
SNED, aR2
38
RO
4$

:SELECT UNIT NO.Q

"RELOAD TRBLE LOCARTION COUNTER
nsLono THE TRBLE POINTER
‘READ
A DRIVE REGISTER (pusnx)
INON EXISTENT DRIVE BIT
YES...DRIVE PRESENT cuecx THE TYPE
:NO. . .DECREMENT DRIVE
C
:CHECK RESULTS IF 8 onxvss oons

(U2'U1'U0=0)

MOV

JR2,-(SP)

:PUT RHCS2 ON THE

STACK

012612

MOV

(SP)+, aR2

000757

TEST FOR NEXT DRIVE

001640
000100

012136
012140
012146

001425
022777
001421

024020

167526

020020

167516

1874

012150

022777

024022

167506

;g;g

012166

OCI4!l

020022
024021

012170

TABLE POINTER

#8. RO
8-1,(R1)+
RO
18

:MASK ALL BUT THE UNIT NUMBER
" INCREMENT THE UNIT NUMBER
'GET RHCS1 RDDRESS
: ADDRESS UPPER evvs OF RHCS!
‘SET "TRE' IN RHCSI
'WITHOUT ADDRESSING DRIVE
nncsa HAS THE INCREMENTED UNIT

: #CHECK

012156
012160

:LOAD

MOV
MOV
DEC
BNE

ofc7 (5P)
(SP
acRHc51 R3
R3
#100, JR3

iggg

012130

#DISK,R1

= O IN RH(S2

BIC
INC
MOV
INC
MOve

feee

1879

IS USED

: #STORAGE TABLE FOR DRIVES PRESENT DETERMINED FROM 'NED®

1855
1856
1857
1858
1889
1860
1861

175
187€

:CPU REGISTER CORRESPONCENCE
‘R1=RHCS1
:R2=RHCS2
:R3=RHOS|
' R4=RHER]
:CLERR ERROR FLAG

:#*SIMULATED DISK ARER WILL BE USED AS
A TEMPORARY

1854

SEQ 0049

#STACK, SP

012700
012701
005714
032712
DOINIS
005300
001454

1869

PHGE 47

RHER3 - ERROR REGISTER #3
MOV

012056
012062
012066
01207?G
012074
012076
012100

1870
1871
;g;g

KO4

001000

1846
1847
1848
1849
1850
1881
{ggg

1862

08:54

012706

}Sgg

1890
1841
1842
ig:a

0B8-NOV-77

012012

1836
1839

30(1046)

022777

00[41S
022777
022777

3%:

THE

CHP

BEQ
CHP
BEG
CMP

UNIT

TYPE

AND BUILD

824020, SRHDT

8s
820020, JRHDT
8s
824022, JRHDT

WITH

*NED’

'NED'

DERIVED UNITS

: 1S

CLERRED

TABLE

THIS A DURL PORT RPOY

ENTER IN TABLE IF SO
:IS THIS A SINGLE PORT RPO4 ?
'ENTER IN TABLE IF SO
: IS THIS A DUAL

PORT RPO&

"ENTER

167476

BEQ
CHP

8$
820022, JRHDT

snren IN TRBLE IF SO
:IS THIS R SINGLE PORT RPOB "

lE746E

CMP

824021, JRHDT

BEG

IN TRBLE

THIS

DURL

PORT

RPQE

CoRJGBO,RPO4-S/6 DSKLS_CTRLR1

SZRIGB.PI11

08-NOV-~7 08:30

1880
1881
iggg

012176
012200
012206

001405
022777
001401

igg;

012210

000732

0l2212

012746

0Qle222
0lé2a4

012230

1886

1887
1888
1889

1880
1891
1892

1893

012216
012220
01222

160016
0lese2l

020021

MACY1l 39é50451

167456

000010

8% :

1898

1899
1900
1901
1302
1903
1382

012236
012240
012242
012244
012246
012250

MOV

98.,

- (SP)

B8R

INC

001754
0S!4i6
000010
012252
012300
012416

043510

4§ :

"NED’'

JSR

UNITS
015K
8.
cs
63
138

;LORD MAX NO.

012260
012264

012701
012702

001754
0Si416

012274

012237

001126

1920
1921
1922
1923
1924
1825
1326

012300
012306
012310
Q0le316
012320
012324

032777
001043
022737
001413
104401
104401

020000

166632

177?77

0Cllew

012344

000406

104401

062716
062716
O0e2724

1929
1830

012346
012352

104401
104401

062716
06271€

1833
;233

Ql23e2
€i2270

022737
OCI404

177777

012254
012270

012340

012366

104022

(012703
012137

104401

c§:

000010
Q01124

149

6%:

DECREMENT THE ORIVE COUNT
:CHECK RESULTS IF 8 UNITS CHECKED
:SELECT NEXT UNIT

JR2

:GO TEST IT

DERIVED UNITS TRBLE WITH THAT DERIVED USING RHAS IN Tu

RO, 38COMPRR

: COMPRRE RESULTS

:RHER] /RHAS DERIVED DATA
:*NED’ TEST DATA
*NO.OF WORDS TO COMPARE
:RETURN FOR ERROR HERDER
"RETURN FOR ERROR DATA
'RETURN FOR GOOD COMPARISON (NEXT TEST

062716

12%:

.SERRTYP ANC

MOV
MOV

sUNITS RI
8015k, R2

MOV

(R2)+,3%8BD0AT

;LOAD RHAS UNIT NO.INTQ “SGDDAT" AND
"INCREMENT THE TRBLE LOCATION
;LOAD 'NED’ UNIT NO. INTO “SBDDRTTM
8 INCR TRBLE LOCATION

BIT
BNE
CMP
BEQ
TYPE
TYPE
TYPE

#SW13, ISWR
138
8-1,d88GDDAT
118
, SPACEB
' SPACES
SPACE2

{28

; INWIBIT ERROR TYPE OUTS 7
PYES.
. .EXIT
;DOES RHAS UNIT TABLE LOCATION = -1 °
:YES...DON'T TYPE IT - CHECK °"NED' TARBLE
NO...TAB OVER PC COLUMN
:TAB OVER THE TEST NO. COLUMN
:SPACE OVER TO THE NEXT COLUMN

:CHECK THE °'NED’ UNIT TRBLE

TYPE
TYPE

, SPACEB
"SPACES

. SPACESB

. TAB OVER THE PC COMUMN
:TAB OVER THE TEST NO. COLUMN

'TAB OVER THE RHAS UNIT COLUMN

CHP
BEG

8-1,38SBDOAT
3%

:DOES *NED' UNIT TABLE LOCATICM = 'YES...DON'T TYPE IT

MOV
MOV

TYPE
0OCilee

(BYPASSES

ERROR

BR
118:

OF DRIVES

:(SP) NOW HAS THE PRESENT DRIVE NO.
'LORD TABLE, INCR TABLE LOCATION &
'RESTORE THE STACK TG WHERE IT wHS

:#SPECIAL °"NED'/'RHAS' TABLE TYPE OUY ROUTINE
; #HENCE IGNORES INHIBIT ERROR TYPEOUT SWITCH)

1913
1914

;géé

sNO RPOM FOUND SO CHECK NEXT UNIT

O0OCTi6

012252

iggg

rd 3

RO
4§

19i1

1815
1916
1917
igig

DEC
BEG

1908
{g?g
1912

;ENTER IN TABLE IF SO
:1S THIS R SINGLE PORT RPQS ?
"ENTER IN TRBLE IF SC

005300
001402

004037

SEG NOEC

8%
820021, JRHDT
13

RO, lsP)
(P13, (R1s+

00s212

PAGE 48

BEQ
CHP
BEQ

: #COMPARRE

0l2232

08:54

CONTROL AND STATUS 2 (RHCS 2) - 'NED'

SuB
MOV

¥83§
Py

08-NOV-77

LO4Y

$8.

(R1)+,388GDDART

;LENGTH OF BOTH UNIT TRBLES

'ADDRESS OF RHAS/RHER]1 UNITS TAB_E
ADDRESS OF 'NED® RHCS2 UNITS TABLE

062?06

MO4

PAGE
4

CONTROL AND STARTUS 2

“12412

08:54

TYPE

$CRLF

EE
N
RDD

000014

(RHCS 2)

'NED’

;FOR THE NEXT LINE

R3
148
#i4,5P

IN BOTH TRBLES

? UNT DOWN
2 nabf:? LOCATION COUNTER
NOT = O YYPE
NEXT
2 LOCATIONS
*ADJUST STQCK FOR NO “POP” 8 RTS FRCM “COMPAR"

139%:

; #IN

THE

RBOVE

TEST

;#]F

THE

;#IT

IS NOT POSSIBLE BY PROGRAM TO CHECK

Révss

; #FOUND USING

PRE

RHER]

BITS

ENT“

0,1,2,

AND

BIT

ARE

TYPE
OUTHEOEE
NOT

TESTED

RGREE

WITH

WHAT

LOGIC

WAS

;#FOR BIT12(NED), OR UNIT QELECT(BIT TO E) OR RHERI OR RHAS
;#DRIVE IS REALLY STANDING THERE OR NOT

IF A NON-EXISTENT

; #MANUALLY LORD LOCATION “ERUNIT* WITH A UNIT NUMBER
; "AND RESTART AT LOCATION “ERSTAR” THIS WILL LOOP FOR

1 #EVER DOING EXACTLY RS TEST ON THART ONE UNIT
;270

GET

BACK

MAIN DIARGNOSTIC

HIT

;#RESTART PROGRAM IN NCRMAL MANNER

HALT

SWITCH AND

08-NOV-77

(o]

39é§046)

MRCY11

BEUR
nLw—o

£op2P £

st Pt P

s Pt Pt Pt Pres

GBO RPQO4-S-6 DSKLS CTRLgé
08-NOV-77

CZRJGBO,RPO4-55-6 DSKLS CTRLRI

CZRIGB. P11

004737
005037

30(1046)
T23

NOY

06-NOV-77
08:S4_
PAGE SO
CONTROL AND STRTUS 2 (RHCS 2)

JSR

04261M
002006

CLR

PC, 98CLDISK

JuERF._GS

"NED’

SEG Q0Se

+SET REGISTERS AND CLERR
; CLERR ANY ERRORS

MOV
BIS

MOV
MOV

| HAINY ENAN

SCLR

;CLERR ALL PO
;ggINSTflTE UN

ar2

asUNtT, aRr2

8RHDB, ' RO

N~
NV

Y20

=06
~J—Mm

[F2]

—

[5)]

—4etf)

8177777 JRHER3
s0MD, IR4NR

8177777, 3RHMR

;/GETS

MOV
MOV

—

816277, ORH
81727777, SRHCA

8i77277% aag;na

]

MOV
MOV

MOV

Pl
m
DO
_ D
"M _ DMm

01479 ;kucsx
81777277 JRHERI
#17437, SRHDST

MOV
MOV
MOV

;BUS RDDRESS REGISTER GETS 177777
; WORD COUNT REGISTER GETS 177777
; BUS RDDORESS REGISTER GETS 177777
; CONTROL AND STATUS 2
157010
O

#177777, 3RHDB
8177777
) RHUC
$177777
. SRHBA
8157010 3RHCS2

b
m
174

e
Pt
Pt Pt P

000040
031774
001630

s P

(0S2712
013712
012700

MOV
MOV
MOV
BIS

—NNWW
L LN
ooV
LoN Y

012546
0i2552
Q012556

Pae et Pt Pt Pt Pt

1772777
1772777
177777
157010
001476
1772777
017437
1777?27
016277
17277277
177777
00C0C1
177777

Pt Pt Pt e Pt Pt Pt et Pt Pt

012777
012777
012777
0Se777
012777
0127?77
012777
012777
012777
012777
012777
012777
0127?77

Q1e430
Ql2u3e6
012444
0l24Se
012460
0le4es
Q0i24?4
0l2502
012510
012Sie6
Q12824
0125832
giesS40

oo
oo
NNNNNNININNNNNN

;#FILL ALL FOSSIBLE BITS WITH ONES

F MAINTENANG

’

; #DATA BUFFER REGISTER
0l256k2
012570
012874

Q012737
011037
(013037

012606

001401

012600
012610

023737

177777
042264
001126

00!le4

MOV

00lile4

MOV
MOV

CMP

ooilee

BEQ
ERROR

104G01

O0lz2e12

082712

000040

0l26le

013712

0CG1774

es:

8177777, 388$GOORT ;GOOD DATA FOR ERROR

IR0, 98REGADR
:;REGISTER ADDRESS
d(RO)+, 9uSBODAT : EST TEST DATA
J8SGODAT, 98$BDDR t.COMPARE GOOD WITH TEST ORTA
;QR ANCH IF GOOD
2s
|

;RHCB DID NOT HAVE ALL ONES

BIS

SCLR, aR2

MOV

SMUNIT, ARE

; SET CLEAR AGAIN BECAUSE
; READING RHDB AFTER CLEARING
;SET DLT _SC AND TRE

;RFTER A CLR IN RHCSZ

SREINSTATE UNIT NO.

; #WORC COUNT REGISTER
; #8US RDDRESS REGISTER
-

1389
1990
1991
1992
1993
1994
1395
1996
1997
1998
1999
2000
2001
2002
2003
2004
2008
2006
2007
2008
2009
2010
2011
egie
2013
2014
2018
2016
201?
2018
2013
2Gel

0leMcC
Ole24ed

Prn B

1965
1366
1967
1968
1963
1970
1971
1372
1873
1974
197S
1976
1977
1978
1979
1980
1981
1982
1983
1884
198S
1986
iggé

08-NOV-77 08:30

MARCY1l

; #CONTROL AND STATUS 2 REGISTER

; #CONTROL AND STATUS 1 REGISTER
; #ERROR

WILL

147¢

CZRIGBO,RPON-S & DSKLS CTRLR]I

CZRIGB. A1

08-NOv-77 08:30

MACY1l

30(1046)

Teu

202!
2022
2033

08-NOV-?7

08:54

BOS

: sERROR 2 REGISTER
_
.
. #OFFSET REGISTER

: #UESIRED CYLINDER ADORESS REGISTER

2034

2023%

: 8ERROR 3 REGISTER

§8§§

; #ATTENTION

2036
2037

2040
2041

013168
0513170

013037
012737

2043
204%

013204
013206

051402
004737

001126
000060

001124

2042 012176 123737 O0Clla24 001126

15%:

013430

2046
2047
2048
2048

2053
2054
2055
2056
2057
2058
2059

2060
2061
20be

5823
20£5
2066

3825

2069
2073
2071

et7g
207

2074
207<
207¢

SUMMARY REGISTER

MOV
MOV

a<R0)4 Q8$BODART
J8$G0DRT

BEG
JSR

168
PC, 38ERCS2C

cMPB

actooonr J8SBDDAT

:GET RHAS CONTENTS
:GOOC DATA FOR ERROR TYPE OUT

:COMPARE FOR RHAS

'BRANCH IF GOOD
:JUMP TO ERRGR FOR CLR

SIN RHCS2

; #MAINTAINARBILITY REGISTER

5829

2052

SEG 00E2

: $DESTRED SECTOR/TRARCK REGISTER

2Ces
2026
202"
2026
2029
2030
2031
5833

20M4S

PAGE 51

CONTROL AND STATUS 2 (RHCS2) - 'CLR’

: *DRIVE

013240

013246
013250
013254
013260
013264
013266

012737

013046
011637
042716
022726
001402
004737

00000

0OCll2e
001100
000600

013430

001124

17%:

MOV

STRTUS

8600, 38SGDDAT

MOV
MOV
BIC
cMP
BEG
JSR

S(ROY+ -(SP)
(SP),9k$BDDAT
sVV!PROG, (SP)
8600, (SP)+
20§
PC, 38ERCS2C

: #ORIVE

TYPE

H *

SERIAL NUMBFR
3 REGISTER
i

ECC1 POSITION

: $ECC2 PATTERN
; #LOOK-RAHEAD REGISTER

cooo DATA FOR ERROR TYPEOUT

{GET _RH
osx
:TEST DRT
iCLERR VV nno PROG
: COMPRRE DRTA
'BRUNCH IF GCOD
*JUMP TO ERROR FOR C.R (BITM S
"IN RHCS2

BIT S.

CoRJIGBO, RPOM S 6 DSkLS CTRLR!
08-NOV- -7 08:30
CZRJGB. fil
2077

013vec

MARCY11

30(1046)
e

o4s:

00S7e0

08-NOV-77

08:S4

COS

PAGE S2

CONTROL AND STATUS 2 (RHCSe) - 'CLR’
ST

(RO)+

SEG J0c4

;a?rés Ak OPNT TR0 B8 ot CONE e
.AS_THE

LOQK-AHEAD

REG,

CANNQT

BE PREDICTED

. sCURRENT CYLINDER RDDRESS REGISTER
0134ey

2ss:

os720

(RO +

MoV

-(RO),

TST
RTS

(RO +
PL

.AS THE CURRENT REG. CANNOT BE PREDICTED
IAFTER A INIT IT IS NOT CHECKED

268

Gi3426

013430
013434

157

014037
104001

005720
slalslishy

O4eeeH

ERCSeC:

ERRoR

JNREGRDR FQILING REGISTER RDDRESS

K8
EERe"ApdROBTATE BiYs
OR CLERRED EXTRR
UNDO -(RO) _FOR BRD DQTR
;RETURN TO TEST RBOVE

C2ZRJGBO,RPO4-S & DSKLS CTRLRI
CSRIGB. P11
08-NOV-77 08:30

30(1046)
Tey

DOS

08-NOV-77
08:54
PRGE 53
CONTROL AND STRATUS 2 (RHCS2)

'CLR’

013444

012706

001000

MOV

8STACK, SP

:RESET STACK

013456

oos?3?

oYzl

JSR

PC,38CLDISK

g1e??7?
013777

000001
002100

MOV

:INIT AND SET UP GENERAL CPU/DEVICE
'REGISTER CORRESPONDENCE AND UNIT NO.
'SET DIAGNOSTIC MODE

oo4037
001632

043306

Ysr

MOV
. #SAVE

RHWC

< Pt Pt Poe P

003154
000023

8DMD , JRHMR

99PKACK, dRHCS1
REGISTERS

FOR

RC, 98SAVER

REINTO

0s2777

000001

lesl22

BIS

052737

000100

003204

81s

:LORAD “PACK ACKNOWLEDGE COMMAND" INTG RHCS!

COMPARISON

AFTER

: SAVE

‘GO’

:FROM

:NUMBER OF REGISTERS SAVED

8GO, 9RHCS1

:ISSUE

"GO’

TO PACK ACKNOWLEDGE COMMANC

. #CHANGE SAVED REGISTERS TO EXPECTED VALUES

sVV, J8REINTO+30 ; SAVED RHDS1

; #AFTER_GO HAS

BEEN

GIVEN

TO PARCK

ACKNOWLEDGE

; 8SAVE REGISTERS ARGARIN SO THAT COMPRRISONS CRN
; #BE DONE
204037
00.ie32

043306

JSR
RHWC
WRFROM
19.

000023

RO, duSAVER

113737

003201

; NUMBER OF REGISTERS SAVED

: #OPERATION THE UPPER BYTE
:#S0 THAT THE COMPARES ARE

fovs

002135

COMMAND

; SAVE
:FROM

:#AS UPPER BYTE OF RHAS CAN BE CHANGING
01353t

ISSUED

‘10

19.

0t Dt pon Bt P

rufufunRIrVTVTLR
LI RV
VAL Pt
VMU
R R NP FYTUV L PUTURS RSPV ULV P L NS TV U TV PV RV LTV TV TV Y PV FU PV NV TV U Y
PAPsPaD D0 0P 0 Pt P Pocn Bt s Pt Pt P
Dt Pt Pt Pt Pt s Pt Pt st B e

O NN IUNHO-Dg um:flxzwmwomm \I("‘[H LWN—ODO~ I L W00 '¢88?88~8£

(NLTEL £ LS £ EWWWWWWWWWWNRDNVNUNRD ;;;\;;G;\‘);\-;HHH“"P HFF"ESBF’—H"FSHO

209s
209
209?
2098

MRCY11

IN A DUAL PORT

OF RHARS WILL BE SAVED AS
ONLY VALID FOR THE LOWER

SSREINT0+25, JSWRFROM+2S; SAVE UPPER RHAS

IS
BYTE

: #COMPARE REGISTERS BEFORE PACK ARCKNOWLEDGE COMMAND

{#WITH

o43s1C

JSR

REINTO

AFTER

RO, 98COMPAR

WRFROM
19.

001630

000eC?

18:
Odeeed

;:GOOD

BUFFER

; TEST BUFFER
s NUMBER

1%
18
29
047e20

; COMPARRE

;RETURN FOR ERROR
; SAME
:RETURN FOR GOOD COMPARISON

MOV
ADD

JBERWORD . RS
RS,RS

;GETTING RERDY TO INDEX
:DOUBLE ERROR WORD

ERROR

; IMPROPER REGISTER CHANGE
HAFTER PACK ACKNOWLEDGE COMMAND

FTS

:RETURN

MOV

RHWC=-2 (RS ) . I8REGROR ;FRILING REGISTER RDDRESS
:WITH GO IS GIVEN
TO

COMPRRISCN

:R::.eo RPO4 S & DSKRLS CTRLRI

SRIGB. P11
2181

13839

J8-NOv-~7 08:30

MACYIl 30.1046)

T2S

2s:

08-NOV-77

08:54

EOS

PRGE
S

PACK ACKNOWLEDGE COMMAND TES'
;CONTINUE WITH THE NEXT TEST

SEC 00SE

220

MVRV MUV VIV IV VU TV YUYV PUTU VTV VPV PV PV TU PV RV FUTV VTV 'Y PV Y

Lot

GBO.RPOM S & DSKLS CTRLR!

e s s Pt §t e s B+ Pt Bt Bt Pt Bt Pt B0 B ot Bt s

GB.P11

fOTV RNV

012706

00473~

725

001000

013624
013632
013640

012777
012777
082777

20
~1

013712
013720

012777
O0i2”??

013734

004037

013746

00000S

013784

053777

64
65
66
67
68
69
gg

A,
7S
7€
~~
;g

013646
013eS4
013662
013670
013676
013704
013726
013740
013742
013744

013750

013762

88
89
90

013772
013776
Q014002

9]
92
93
94

MOV

042614

177777
1777?77
157010

JSR

1772777

165724

001632
00354
000021

004737

0S5172

005037

003156

062716
012637
012737

000100
003160
004276

001774

0I4010
014014
(014020

005637
005037
012737

003164
003170
il16000

Q014032

1058037

003200

5037

00317

003204

Sé

014084

0S271&

000700

014060

012637

003204

C1<407C

008037

093214

TR NU N PN P

#STACK, SP

PC,anclDIsSK

:RESET STACK

:INIT AND SET UP GENERAL CPU/DEVICE
'REGISTER CORRESPONDENCE

(i4064

042716
005037

8177777 ,3RHWC ; WORD COUNT REGISTER GETS 177777
:BUS RDDRESS REGISTER GETS 177777
8177777 RHBA
#157010 ARHCS2
:CONTROL AND STATUS 2 GETS 177430

MOV
MOV
MCV
MOV
MOV
MOV

81476, RHCS
8177727 QRHER1
817437 ORHDSY
8177777 JRHER2
816277, ORHOF
8777, SRHCA

:CONTROL AND STATUS REGISTER 1| CETS 2147¢
:ERROR REGISTERI GETS 177777
:DESIRED SECTOR TRACK
ERROR REGISTER 2
:OFFSET REGISTER
‘DESIRED CYLINDER

MOV

8177977 ,dRHMR

:MAINTENANCE REGISTER

8177977, 9RHER3
8DMD, IRAMR

RHWC
REINTO
17.

RESET
JSR

165654

BiS

:ERROR REGISTER 3
*MAINTENANCE REGISTER

:FROM
70
: NUMBER

000400

288 TKINT

SsONIT, IRHCS2

003162

003172
003202

JSREINTO42

MOV

JBUNIT, - (SP)

CLR

CLR
MOV

QSREINTO+14

CLRB

CLR

JSREINTO+22
QSREINTO+2Y

BIS
MOV
MOV

MOV

JINITIALIZE TK

:CLEAR SAVED RHBA

'GET UNIT NUMBER FRO SAVED RHCS2

sIR, (SP)
:INCLUDE IR
(SPY+ ISREINTO+Y' ;:SAVED RHCS2
sOVA!RDY!
76, ISREINTO+6 ;SAVED RHCSI

SSREINTO0+10
;SAVED RHERI
:SAVED RHER2
8116000, ISREINTO416 :SAVED RHOF
:SAVED RHER3

{SAVED RHAS

8400,
S8RE INT0+26;

SAVED RHMR

. #CHANGE RHDS1 WITHOUT CHANGING PROG BIT

176777

003212

PC,

. sCHANGE ORIGINRL SAVED REGISTERS TO EXPECTED VALUES RFTER RESET

LLR

001774

013746

PAGE SS

- #GIVE RESET AND REINSTRTE UNIT NUMBER

Q14044

08:54

. sBEFCRE RESET SAVE REGISTERS IN READ INTO BUFFER
YsR
RO, 98SAVER
s SAVE

043306

MOV
MOV

013777

17?27?27
000001

013746

014050

165734
165732

165764
165760
165754
165750
165744
165740

012737

MOV
MOV
BIS

001476
1?7777
017437
177?77
016277
000777

0137

014026

166000
165774
165770

012777
012777
012777
012777
012777
012777

014036

0B8-NOV-?7

PACK RCKNOWLEDGE COMMAND TEST

.#FILL ALL POSSIBLE REGISTER BITS WITH ONES

&1
62
63

00 0t 5t e 5 80 e s -0 s e Bmm s Bt Bt Bt s ot ot e s B0 Bt Bt Pt s oot B

VRV

013620

MRCYI1l 30(1046)

013606

08-NOv-= 08:30

FOS

MoV

JSREINTO+30.-(SP) :GET RHDS1

81s

8700, (SP)

BIC
4s:

MOV

CLR
CLR

8$CPROG, (SP)
(SP)+,

:CLEAR EVERYTHING EXCEPT PROG

:SET EXPECTED BITS - 'DPR', "DRY' & ‘wv°

98RE INTO+30; SAVED RHDS!

JSREINTO+36

JSREINTO+40

:SAVED RHEC!

:SAVED RHEC2

. #AFTER RESET, SHVE REGISTERS FOR COMPARISONS TO BE DUNE

<EG 0CE7

CCRJIGBO,RPOM ‘5 ‘6 DSKLS _CTRLRI

CSRIGB. AL
2208

014074

08-NOV-77 08:30
004037

2209

014100

001632

gsié

014104

000021

2210

014102

30(1046)

T26

04330e

JSR

002110

ngé
2219

0I4114

004037

043510

2221
2222
2223

014122
014124
014126

002110
000021
014134

2227
2228

014134
014140

013705
060508

2229
2230
2e31

2232
2233
2234
223c

PAGE Sb

CEG noEe

: SAVE

rnon
10

NUHBER

: #AS UPPER BYTE OF RHRS CAN BE CHANGING

003201

2224
sgsg

RO, a8SAVER

17.

113737

2220

GOS

WRFROM

014106

2218

08:54

UNIBUS INIT TEST
RHWC

2213

2214
2215

08-NOV-77_

014120

014130
014132

014142
014150
{14152
Zi4igy

003154

00213S

fove

000207

ISREINTO+25, 9sWRFROM+25; SAVE UPPER RHAS

. #COMPARE Recxsrzns BEFORE RESEY WITH REGISTERS AFTER RESET

Ysr

REINTO

RO, 98COMP

uanon
18
as
047620

001630

18:

04226M4

MOV
ROD

MOV
ERROR

2s:

RTS

; COMPRRE

:GO0D BUFFER

:TEST BUFFER
:NUMBER
'RETURN FOR ERROR

014134
014154

016537
104001

IN
A DUAL PORT

: #OPERRTION THE UPPER BYTE OF RMRS WILL BE SAVED AS IS
:#50 THAT THE COMPARES RRE ONLY VALID FOR THE LOWER BYTE

: SAME
'RETURN FOR GOOD COMPARISON
aosnuono RS
RS, RS

;GETTING READY TO INDEX
DOUBLE ERROR
WORD

RHac
Y Rs;,asfischonrnernc REGISTER ADORESS
cis R_CONTENTS AFTER
sser THRT

IS AN

uuxeus xnxranxzz CAUSED
*AN IMPROPER REGISTER CHANGE
'RETURN TO COMPARISON
:RETJRN TO PGINT ON GOOD COMPARISON

CCRIJGBO,RPO4
S & DSKLS CTRLRI
JZRIGB.PLL
08-NOV-T7 08:30

MRCYLL 3001046)
08-NOV-77
08:S4
T26
UNIBUS INIT TEST

§53§

2238
2239

2240

014202

014156

012706

014206

017700

2251
2252

0l42l12
0i42le
014222
Dldege
0l4232
014234
014240

004737
013746
052716
004737
Do2e3r
001403
010237
104011

MOV

JSR

PC,cLDYSK

#STACK , SP

;RESET STACK

165416

MOV

SRHDB, RO

;READ FROM EMPTY SILO

042614

001774
100100
042220
001712
001122

MOV
BIS
JSR
CHP
BEQ
MOV
ERROR

2255 014242 022737 144200 O0ITI4 1S:
2257
014250 001403
2258 0l4282 010137 0C1122
01425¢

104011

CHP
BEG
MO\

EPROR

AsUNIY - (sp)
8DLT?
IR, (5P)
PC anPUtREG
§¢)+ aucse
Re 2%SBDADR
11

Cl27:1

04000C

2269
2276
2271
55;5

01427&
014300
014304

001403
010137
104011

001122

2274

0l430e

013746

001774

éggg 014264
ggg;
314535 QQ4737
822537 Q42220
808555 ooirin

g
T1é
SE;S
0%:312 8
032715
009100
257. 814§§H
533 8811§§

$576

:GET UNIT NO, IN
GET DATA LATE BIT AND IR
: SAVE REGISTERS
;g DTA LATE BIT UP”
YES BRR
i IF NOT srons FAILING REG.
RHC?S RID NOT HAVE DLY

RHC52
SHOULD HAVE ONLY
;DLT AND UNIT NUMBER (BIT 0-2.

¥SC! TRE!RDY!DVR, baggxntxg
SPECIAL CONDITION, TRANSFER ERRCR
2
;:IF
IF NOT
YES BRA
HeH
R1,2#$BDADR
STORE FAILING REG.
11

iRHCS1 DID NOT HAVE SC, DVA
:TRE_AND RDY. AFTER
f
;READ FROM EMPTY SILO ONLY
:THESE BITS SHOULD BE UP

014260

cec

:CLEAR DISK AND LOAD R'S

RLL OTHER BITS SHOULD

2262

22€3
2264

SEG 0059

001000

253

2253
2260
22€1

PAGE S7

.SBTTL SILO TESTS

§2:§
2244
2245
2246
ged7
2248
2249
2250

HOS

214380

10451

2¢:

33:

JSR
CHP

#TRE, 3R]

;ALL OTHERS SHOULD BE O
;CLERR ERROR BITS BY MOVING

2 PUTR GSecs! §%LOBI§2
°2$e’2’°
IfERe
PROTIEVA,
B0
Bov FHeSt
ano ova sHou.z

BEG
MOV
ERROR

3s
R1.3%$BDADR
11

:BRANCH_IF YES
; STORE FAILING RDDRESS
;AFTERA ONE IN TRE
O
gsggv AND 'GVA SHOULE BE SET IN

MOV

auunxf -(SP)

MOY

M
gxg
MOV

ERROR

By.>
st
3
ML

RH ?R?L&NG
HQULD HAVEALBR IRA AND JNIT C
;STSEE
:AFTER W ONE IN TRE ONLY
;

NLY

JGBO,RPOY 5§ & DSKLS CTRLRI

:ZRJuE P11
2279
2280

2281

014334

gsgg

014360

2084

014364

08-Nov-=7 08: 30
012706

001000

013746

001774

004737

MRCY1l 30110461

T2?

0B8-NOV-77

SILO TST |
MOV

042614

08:54

I0S

PAGE S8

#STACK, SP

JSR

PC.CLDYSK

MOV

asuuxr -(SP)

:RESET STR

:CLEAR necxsrens LOAD R'S

2285
2286
2287

014370
014374
014400

052716
004737
022637

000100
042220
001712

8IS
JSR
cCHP

(SP)
pc hopurnec

(SP)+,38CS2

:IR SHOULD BE SET "ORTM RESET

2283

014406

010237

001122

MOV

R2, d8SBDAOR

;FAILING REGISTER RHCS2

CLR
MOV

aRHoe
JRHDR

2288

Ol4404

001403

2290
2281
3292
3293
2294

0l44l2

104011

0144lM
014420

00S077
012777

2296

014434

104415

2298

014440

BEQ

.
165210
177777

165202

2295 014426 013737 001636 014436
3297
2299

014436

000000

014442

013746

2300

0l4446

2302

01448

2304

Ol4d4e4

2301

2303

2305

Sggg

014452
014462

Glu4?0

000200

2%:
001774

38:

1040!1

001124

2314

O0I¥SI4

010037

001126

23i8

0I4S30

Q0l4E36

012737

17?7?77

DOlied

2321
2322
2222
2324

014550
CIl4ESe

013737
10400!

001630

042264

2319

013737
104001
0227058

165132
165126
oooooo

001630
177777

2320 014544 010537 001126
T4

4§ :

PC. 98PUTREG

BEG

4§

ERROR

-”OR” IN RHCSZ SHOULD 8E

MOV
MOV
CMP
BEQ

SRHDB, RO
RHDB. RS
80, RO
6§’

:SAVE SILO DATA SHOULD BE g
:SAVE SILO DATA SHOULD BE ALL
'FIRST WORD 0 XYZ DG MORE TEST
'BRANCH IF YES

MOV

RC, 288BDOAT

:BAD
D

CHP

-- RS

BIS

CLR

042264

MOV
ERROR
c§:

WRIT TRAP

aoonzss OF RHCS2

JSR

MOV

010237

noonsss OF RHCS2

UNIT, - (SP)

00112°

001403

ucnficsa Jn2s

:RHCS2 ooss NOT HAVE 1P
SSET, UNIT NO. SET AiND
:ALL OTHER BITS O
:LOAD DATA BUFFER (SILO) WITH O
:LORAD SILO WITH ALL ONES

MOV

CHMP

005037

01420
0145826

001712

042220

. WORD

Q022637

004737

017700
017705
022700
00I410

2315
231
23;?

WAT

000300

DQI4Y472
Q014476
014802
014506

014810

MOV

052716

2308
2309
231C
2311

Sgig

18.

ERROR

: SAVE REGISTERS

MOV

MOV
ERROR

8OR! IR, (SP/

(SP)+,38CS2

R2, 98SBDAOR

;

:IR AND “OR"

:SAVE REGISTERS

*IR AND *OR“ SHOULD BE SET
: SAVE RHCS2 ADDR.

FAILING REG.

SEI rogeruen WITH IR AND

388$GDDAT

:GOOD DARTA

achnoa Q8REGADR :SAVE RHDB FRILING REG.
:SILO DIO NOT HAVE THE FIRST WORC
-“0“ WHEN *“0R*” WAS SEY
alSGDDQT

RS hoseoonT

: SECOND uoao ALL OMNES?

-G00D DAQ

:BAD DATA

a.kuoa 98REGADR :SAVE RHDB FAILING REG.
!81L0 DID NOT HAVE THE SECONC
uono OF ALL ONES WHEN "OR"
S SET

RJGBO,RPO4-S & DSKLS CTRLR!

RIGB.PIL1

08-NOV-T7 08:30

MRCY1l 30(1046)

T30

08-NOV-7?7

SILO TEST 2

08:54

JOS

PAGE S9

2326

2327
2328

2329

014602

012700

2335

014624

005000

233C
2331
2332
2333
2334
2336

014606
O0ivele
014614
014616
014620
014626

012705
0059220
005305
001375
004737

042614

012705

000102

MOV

013746

001774

014632
014636
014640
014642

010077
005200
005305
001373

2342
2343
2344
2345
2346
2347

014650
014654
0I4660
014664
014666
014672

0S2716
004737
022637
0OI40S
010237
104011

2349
2350

014700
014704

012700
012705

2352
2353

014714
014716

005308
001374

2355

Q014724

012705

2348

014644

014674

005037

000103

18:

CLR

164772

2%:

001122
002006

0S1416
000102

3%:

2356
2357

2358

2359
2360
2361
2362

2363
2364

014720

012700

014730
014732

005046
021620

014736
014742
0I4246
014754

014037
011637
013737
005737

014734

014760
014762

2365
2266
2367
2368
23E9
2370
2371
2372
2373
2374

014764
014766

2376

014776

001425

001002
104012

4$:

0S1416
Sg:

001126
001124
001630
00200€

#66.

BIS
JSR
CHMP
BEQ
MOV
ERROR

#0R, (SP)
PC, a8PUTREG
(SP)+,anCS2
k]
R2, 98SBDADR
11

CLR

MOV
MOV

MOV

IWUNIT, - (SP)

aseancs

#SILOTB, RO
266, RS’

aRHoé (RO} +

: TABLE POINTER

:COUNTER
:CLEAR TOTAL TABLE
:COUNT
'BRANCH IF NOT COMPLETELY CLEAR
:CLERR ALL REG.
; COU

Lono sto NITH COUNT FROM 0 TG &S
*NEXT COUN
(1S 66 Lonos DONE?
"BRANCH IF NOT.
:SAVE REGISTERS
:“OR" SHOULD BE SET IR RESET
:BRANCH IF YES
:SAVE RHCS2 ADR. FAILING REG.
:*OR" WAS NOT SET, IR WAS NCT

'RESET AFTER SILO WAS FULL

:POINTER
: COUNTER

:RERD SILO

DEC
BNE

RS
48

MOV

866 RS’

BEQ

:BRANCH IF GOOD

BNE
ERROR

63
12

i
IF_NOT_BRANCH
:THESE TWO ERROR CALLS ARE FOR

CLR
cHP

MOV
MOV
MOV
TST

042264

#67. RS
(RO)#
RS
18
PC,8CLDISK
RO. JRHDB
RO
RS
23

MOV

000102

#SILOTB,RO

MOV
INC
DEC
BNE

MOV

000200
042220
001712

2351 O0I4710 017720 164714
2354

MOV

MOV
CLR
DEC
BNE
JSR

2337
2338
2339
2346
2341

0S1416

#SILOTB, RO
(SP
<sp) (RO)+

*COUNT
BRRNCH IF 66 NOT DONE
:POINTER

~-(RO),a%$BDDAT :BAD DATA
(SP) . a#8GDDAT : GOOD onrn
28RHOB . 98REGADR :FAILING REG. RHDB
JMERFLGLE
1S THIS FIRST ERROR?

000401
104013

£§:

BR
ERROR

0IN770

005720

BY4S:

TST

(RO)+

2375

0Bl4772

017746

164142

MOV

JSWR,

2377

ClS002

022726

000200

cHP

#5W07, (SP) +

,Ttsr SW0?

015010

00521&

INC

(sp;

INEXT GOOD WORD

2278

2379
2383

2381

015006

018012

O0lS0I4

042716

001402
0OE30¢€

O0O0134E

177577

BIC
78

BEQ
OEC

ENE

64$
13

:BRANCH TO AVOID PRINTING NEXT ERROR
:THE SAME TYPEOUT. SILO
:HAD A COUNT WRITTEN IN.
:ON RERD OUT AN ERROR WAS
‘DETECTED. THE “OTAL SILO
:READOUT IS IN LOCATION
:*SILOTBTM TO THE NEXT 65
: WORDS.
- (SP)

: INCREMENT (RQ)
:ARE FURTHER COMPARES TO
BE DONE

#1CSN07IswWo8, (P} ;ONLY KEEP SW? AND SW8
108

c§

! IF NO MORE COMPARE THEN BRANCH
: COUNT

'BRANCH IF 66 NOT COMPLETE

SEG 00&l

C2RISBO,RPOM-5 & DSKLS CTRLR1

SORIGB.PIL
2382

CiBCle

08-NOV-—7 08:30
(OSTee

MACYL1 30(1046)

_0B-NOV-77_

731

SILO TEST 3

108:

TSY

08:54

(SPi+

KOS

PAGE &0

:POP STARCK

SEC 0062

004737

2388
2389

015046
015050

005000
005200

239C
2391
2392
2393
sggg

239%
2397
2338
2399
2400
2401
5402
34£3
3404

015052
015056
015062
01i506N
015066

015072
015100
015102
015106
016110
018116
Q015124
Ci€134
Z2i€ig2

010077
022700
001401
000771
004737

032737
001003
010237
10401;
017737
012732
023737
013737
I3%0iz2

30
¥

042614

164552
000103
04222C
100000

08-NQV- 77

SILO TES T3

08:54

LOS
PAGE

PC,JdsCLDISK

; CLEAR DISK REG.

RO
RO
RO, aRHDB

sCLEAR RO
+ADD 1
:LORD SILO

167 DONE?

2%:

2$
18
PC, 38PUTREG

:BRANCH IF YES
INO SO BRANCH
:SAVE REGISTERS

sDLT,a8CS2

;DLT SET?

38:

33
R2, 38SBDADR
11
JRHDB, 98SBDDAT
81, 988GDDAT

: GOO

0o1"1e

001122
164514
000001}
00IleN
00!630

o4b)

867. RO

omrurufv
LfoLor

015042

U=
4o b
[U.._.—..-

Sggg

Q000
£000

2383
2384
2385

08-NOov->=7 08: 30

RIGBO,RPO% § & DSKLS CTRLR]

RJGB.P1!

MRCY1l

_
'BRANCH IF YES
:FAILING ADDRESS RHCSZ
:DATA LATE DID NOT SET AT B7TH.
LO

98$GDDOAT, 98$BDDAY : COMPARE
J8RHOB, JBREGAROR ;FAILING REG. RHDB
12

:WORD IN RHDB CHANGED

‘AFTER THE B67TH INPUT.

SEG OCes

C2RJGBO,RPOM /S -6 DSKLS CTRLRI

CZRIGB.P11L

C8-NOV-77 08:30

MRCY11

30(10463
T32

08-NOV-77
SILO TESTY

08:54

MOS

PARGE 62

SEG C0e4

2406

a40?
2408
2409
g:{?

015166

004737

042614

JSR

PC, 38CLDISK

;CLEAR DISK

2412
e413
2414
ggis

OISI?E
01517
015202
g%S&?g

13746
2”16
004737
02?&87

001774
000100
Q4e220
001712

MOV

BIS
JSR

(SP)
PC fioPUTREG

gE ?N&UT Senov
:SAVE REGISTER

8:18

015220

104011

MOV

R2, 38$BDADR

MOV
CLR

J¥RHDB, RO
Rl

'RO_HA
:DATA

Rl
84, RI

:1S
4 DONE

2419 012514 80

CMP
BEQ

00lle2

ERROR

Sflég 0l1%52e2 013700 001630

2421
E:Eg

015226
015230

00S00!
010110

4e4

015232

005201

2425
e4et
2427
2428
2429
2430
2431

015234
015240
01S242
015250
015252
015254
015256

S
eq3d 81

022701
103373
013737
104415
000000
000200
004737

29%:
000004
001636

01Se76
015302
0i5304
015310

022637
001403
010237
104011

2440
2441
2442
2443
g444
e44S

018312
015316
015322
015324
015326
015330

2446
2447
2448
2443
2450
2451
2452
2453

015332
015336
015340
015344
015346
0153S2
015360
01S3e4

013700
012710
011201
011005
011003
011204
0327?31
001424
022705
001410
010037
012737
010537
104001

e4€S
245k

018366

005703

29ei

0IS40e

MOV

042614

001630
000004

104001

4s:

000004

O0ila4

112¢

RHC52 ooes NOT ans IR SET

R1,aR0

J8RHCS2, 2838

(SP)+,a8CS2

Pé hc?urREc

BEQ

ERROR

:FAILING REGISYER RMCS2
AND

OTHER 8§ g

RHDB RDORESS

-o TH§N

THEN 2

fncns NT DRTA

THEN 3

-annncn IF NOT
‘WRIT FOR "OR"
:RHCS2 ADDRESS
‘WAIT ON OR
CLR IN RHCS2
UNIT NO.

:SAVE REGISTERS

IR SHOULD as SET “0"=0

'BRANCH I

R2, 38$BDADR

FQILING REGIS ER RHCS2

MOV
MOV
MOV
MOV
MOV
MOV

98RHDB, RO
#4, 9RO’
JR2,R1
IR0, RS
RO R3
dR2, R4

RO Hflb RHDB noonsss
;oao 1 sx 0
SAVE
R
Rsno THE q IN SIL
:RERD sto T0 GET DLT
snvg

BEQ
SEE

68
g:,ns

"IF OR IS NOT SET BRANCH
:SILO 4 IS NOW COMPARED

MOV

RO, 98REGADR

:SILO ADDRESS

8O0R Rl

HCSE
005§
NOT ane

IR SET

S TEST roa on IN RHCS2

MOV
MOV

84, 383GODAT
RS. 988BD0AT

: GOOD onrn
:BAD DAT

15T

BEQ
MOV

X
RO, a#REGADR

A
A TR
T
;%g 6£s;5ucr? £ 2

ERROR
cs:

:IR SH OULD BE SET “OR” CLEARED
:BRANCH IF GOO

CMP

BIT

000200

(SP)+,38CS2
13

PC, 38CLDISK
AuONIT - (SP)

MOV

001122

-(SP)

WAT
_WORD
OR
JSR
MOV

?ég

001712

e Gl umy oo

INC

BHIS

gisese

38:

042264
000004
001126

MOV

CMP

e e
H?ég 42220

2435
2436
2437
g:%g

2454

13:

aounxr

CLR

MOV
ERROR

soscooat
|

3, 988BDDAT

:SILO oxo NOT CONTARIN WORD

!BRANCH IF GOOD
;st8 nggnsss

:GOOD

DATA

:BAD DATA
:SILO SHOULD BE

ZERG

RJGBO,RPO4-S-6 DSKLS_CTRLRI

RIGB. P11
2462
2463
2464
2465

2466
2467
2468
2469
2470
2471

015410

015416
015422
015426
015432
01843
015442

08-NOV-77 08:30

032704

013746
0S2716
012637
010437
010237
104001

100000

001774
100300
00lleM
001126
042264

MACY11 30(1046)

733

6S:

08-NQV-77

SILO TEST S

BIT

MOV
BIS
MOV
MOV

MOV
ERRCR

(08:54

NOS

#DLT,RY

PRGE 63

S8UNLT, -(sP)
#DL7'OR!
IR, (SP)
(SP)+, J#$GODRT
RY, 98$BODAT
32, IsRECADR
|

:AFTER THE ONE WORD PUT IN
‘HAS BEEN TAKEN OUT RS
:SIL0 IS A DESTRUCTIVE RERD
:

GET UNIT NO
!
:GOOD DATA
:BAD DATA

:RHCS2 ADDRESS
:DATA LATE ERROR

SEG 00&S

CoRJGBG, PPO4-S & DSKLS_CTRLRI

CZRIGB Pl

08-NOV->~ 08:30

MACY1l 30(1046)

_08-NQV-7?7

733

SILO TEST S

.SBTTL

MORE REGISTER TESTS

24~2

o243

2474
247

08:54

BO6

PAGE BM

)

eu7’h

o4’?

S:gg

G1S47

015466

0i2706

001000

MCV

298]

015476

012711

003566

MOV

2478

2482
2483
2484
2485
2486
2487
2488
2489
2490
2481
g:gg

015502
(15504
0615606
015612
015616
015524
01552
(016534

e4394

(01SsS42

2435
2496
2497
498

2499

2500

5285

G15840

(015546
(015552
D01556c
(QISS70
0i8574

004737

0Ou26l4

010146
005216
112736
011:37
022737
0014
012737
0i0137

001126

112711

000032

10001

011137
022737
012737
010137
108001

JSR

MOV
INC
MOVB
MOV
CHP
BEQ
MOV
MOV

00000S

006766 001i26
006766
0O4z26d

001126
006632
006632
042264

001124

ERROR
18:

001126
001124

MOVS

MOV
CMP
MOV
MOV

ERROR

#STACK, SP

:RESET STACK

#3566, JR1

Lono RHCS1 WITH ANY NUMBER

832,9R1

s MOVE INTO EVEN BYTE

‘BYTE or RHCS1 GAVE WRONG

PC,CLDYSK

:CLEAR DISK REG.

R1.-(5P)
'GETTING RERDY TO FORM 0DD BYTE
(58)
'SP NOW HAS ODD BYTE FOR RHCSI
os d(SP,+
novs 3 INTO 00D B8YTE FOR RHCS1
oR!, 98$BDDAT
ES DATR
82506 DVA!ROY, 238BODAT ;RHCS1 SHOULD HAVE 6766
18
BRANCH' IF GOOD
82566
! DVA! ROY, 98$GDDAT: GOOD DATA
R1, 98REGADR
,rnxxnc REGISTER RHCSI
|
MOVINGA NUMBER INTO
1000 BYTE OF RHCS1 GAVE
:WRONG RESULTS
ORI’ J8$BODAT
'TEST DART
:aq3=-ova ROY, 28$80DAT
;nncsx SHOULD HAVE 6632
#2432 DVRiROY. 988GBCAT :GOOD DATA
R1,3¥PEGRDR
FQILINC REGISTER RMCS!
MOVING R NUMBER INTC EVEN

TRESULT

.
SEG Q0&k

CoRJGBO,RPOY S & DSKLS CTRLRI

CZRIGB. P11
2504
2505
2506
2507

gggg

2510

08-NOV-T7 08:30

MACYIl

001000

MOV

015e22

012711

003566

MOV

00000S

MOVB

004737

JSR

ggig

015636

011137

001126

D1Se42

022737

004766

001126

004766
042264

001124

2517
2518
2519
2620
2621

015632

015650
015652
015660
015664

010146
00S216

042614

112736

001406
012737
010137
104001

08:S4

COb

PAGE &5

TEST ODD BYTE INSTRUCTIOM ON RHCS1 - RHI1

012706

018616

015626
018630

2616

T34

08-NOV-7?

015612

2511
2512
2513

30(1046)

#STACK, SP

‘CLEAR DISK REG.

#3566, aR1

:LOAD RHCS]

85, A(SP)+

‘MOVE S

R1.-(5P)
(SP)

MOV

oR!, 98SBDOAT

CMP

#566 ' DVR!'RDY, J#SBDDAT

ERROR

D0iSebe
Q15e7e

112711
011137

000032
001126

2527

015706

012737

004632

2529
2630
2831

INTO ODD BYTE FOR RHCSI

i TEST DATR

;RHCS1

SHOULD HAVE

4766

'MOVING A NUMBER INTO
:0D0 BYTE OF RHCS1 GAVE
:WRONG RESULTS

2524
2625

2628

WITH ANY NUMBER

:GETTING REARDY TO FORM 0DD BYTE
:SP NOW MRS 0DD BYTE FOR RHCS!

18
.BRANCH IF GOOD
#566 ! DVA'ROY, 38880DAT ; GOOD DATA
R1, 38REGADR
sFRILING REGISTER RHCSI

ggsg

2826

:RESET STACK

PC,CcLDYSK

MOV
INC

BEQ
MOV
MOV

SEG 007

C15676
015714
01572C

022737

010137
104001

004632
042264

18:

001126
O00lle4

MOVB
MOV

CMP

MOV

MCV

ERROR

832, 3R1
ORI’ I%SBDDAT

;novg INTO EVEN BYTE
-rss
DATA

#432'DVA'RDY, 98SBDOAT ;RHCS1 SHOULD HAVE 4632
8432/ DVA'RDY
., 38$GDDAT

R1, 98REGADR
|

:GOOD DATA

:FAILING REGISTER RHCS]

*MOVING R NUMBER INTC EVEN
:BYTE OF RHCSI GRVE WRCNG
*RESULTS

CZP'L-BO RPO4 S & DSKLS CTRLRI

2RIGB. P11

08-NOV-T7 08:30

MRCY1l 30(1046)

T3S

(08-NOV-7?7

(0B:S4_

D06

PAGE 66

TEST ODD BYTE INSTRUCTION ON RHCS! - RH?0

2533

§§§§
'

2638

2639
2540
2541
2542
2543
oS44
2645
2546

0IS744
015750

QON4737

D42b1M

JSR

0S2712

177000

BIS

015754
015786
015760
015762
015766
0158772
018776

010246
00S216
105036
013746
0S2716
011237
022637

2647

016002

001411

2550
2651
2552

016020
0isb24

010237
104001

2655

2648
249

016004
Q16012

MOV
INC
CLRB
MOV
BIS
MOV
CMP

001774
000100
001126
001126

013737
082737

001774
000100

01374
052716

00177
0000i2

GC42264

BEQ

Oriled
Collau

MOV
BIS

:GIVE INIT & SETUP REGISTER CORRES

8177000, (R2)

:LOAD RHCS2

R2,-(SP)}
:GETTING READY FOR _ODD BYTE
(SP)
'SP NOW HARS O0DD BYTE FOR RHCS2
J(SP)+
CLERR RHCS2 00D BYTE
OBUNIT, -(SP)
:GETUNIT NO.
sIR, (SP)
xnpur Renov RS IT IS SET
JR2 . 3u$BDDAT
:TEST DAT
(SPY+,38SBODRT ; COMPARE TO SEE THAT
:“CLRB” DID CLEAR
18

JSUNIT,
sIR,

J8SGDDRT
J¥8GDDAT

MOV
ERROR

R2,
1

MOV
8IS

JSUNIT, -(SP)
8BAI, ' (SP)

(SP)+
osun:t

(016026
016032

25
2657
2558

016036

082712

016042
016044

112612
013746

00.774

MOVB
MOV

016060
016064

011237
022637

01126
001126

MOV
CMP

JR2, 98$BDDAT
(SPY+,3888DDAT

016CT2

010227

0Ov2264

MOV

R2, 38REGARDR

2659 016050 052716 070110
2560 016084 011637 CJoll24

2661
2562
2563
2664
2€6ec
2E6E

C1637&

104001

BIS

BIS
MOV

ERROR

;GOOD DATA

OSREGADR :FRILING REGISTER RHCS2
:CLEARING ODD BYTE OF RHCS2
*GAVE WRONG RESULTS

2553
2554

020000

1%:

PC,d8CLDISK

sUPE | 3R2

ane

)

:HAVE UPE AND MPE IN RHCS2

'BESIDES UNIT SELECT
!MOVE INTO EVEN BYTE OF RHCS2

oups-xh-anx
(SP)
ao:&oonr GOOD DATA
1

fssT DATA
;COMPARE TO SEE THQT MOVB DIC
'MOVE EVEN BYTE
O
TFAILING REGISTER RHCSE
'MOVING A NUMBER INTC EVEN
SEgEL?E RHCS2 GAVE WRONG

SEG 0068

0,RP04-S 6 DSKLS CTRLR]

016110

08-NOV-77 08:30

012706

Q16114
0l6l20
016124
016130
016132
016134
016140
016144
016152
016154
016162
01&166

004737
013704
Q12714
010446
005216
112736
011437
022737
001406
012737
010437
104001

016170
016174
016200
016210
016216
016322

112714
011437
022737
Q12737
01043
104001

MACY11

30(1046)

T36

001000

177652
042264

000123
001126
177523
177523
042264

001126
001124

18:
001126
001isy

0B8:54

EO6

PAGE &7

TEST 00D BYTE INSTRUCTION ON RHCS2

MOV

042614
001632
025252
000377
00ll26
177652

_08-NOV-7?

#STACK,

;RESET STACK

JSR
MOV
MOV
MOV
INC
MOVB
MOV
CMP
BEQ
MOV
MOV
ERROR

PC, CLDYSK
;CLERR DISK REGISTERS
J8RHWC, “RY
iRY NOW IS WORD COUNT REGISTER
825252, JRY
; LOAD RHIIC
RY
-(SP)
;GETTING READY TO FORM 0DD BYTE
(sP)
;SP NOW _HAS 0DD BYTE FOR RHWC
8377,
. 8(SP)+
[MOVE 377 INTO ODD BYTE OF RHIC
JRY, 8SBODAT
; TEST DATA
8177652, J#SBODAT COMPARE TO SEE
IF MOVB 0ID OK
18
;BRANCH_1F GOOD
8177652, 39$GODAT’ ; GOOD DATA
RY,
J8REGADR ;REGISTER FAILING RHWC
|
;MOVING INTO 00D BYTE OF RHWC

MOVB
MOV
CMP
MOV
MOV
ERROR

8123
JRY
;MOVE INTO EVEN BYTE OF RMHWC
ORY, J83BDDAT
;TEST DATA
8177523, 98SBDDAT
8177523, J8$GDDAT ;GOOD DATA
RY,
JBREGADR ;REGISTER FAILING RHWC
|

;GAVE WRONG RESULTS

SEG 00e9

QESJGBO RPO4 S & DSKLS_CTRLRI

SRJIGB.P11

08-NOV-77 08:30

2592
2593
2594
2535
2536
2597
2698
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608

016226
0162490
0lbewd
016250
016254
016256
016260
016264
016270
016276
016300
016306
0le3i2

012706
004737
013704
012714
010446
005216
112736
011437
022737
001406
012737
010437
104001

2610
2611
2612
2613
2614
2eic

016314
016320
016324
016334
016342
Cle3de

112714
011437
022737
012737
010437
104001

f<4

D% A

MRCY11

30(1046)
137

177652
04226
000125
001126
172524
177524
042264

(08:54

PRGE &8

TEST ON RHWC

#STACK , SP

001000
042614
001634
025253
000377
001126
177652

08-NOV-77_

ODD BYTE

FOb

PC, cLD}SK
J8RHBA, R4
oasasa ORY

(sfi

8377

-(SP)

3(5P)¢

SRY, 888D

s RESET STRCK

RH
HRS
RADDRESS OF RHBR

GETTING REQOY FOR Q0D BYTE
S HAS 00D BYTE ADR. OF PHBH
LOARD 000 BYTE OF RHBA

TES o734

.177552 aosaooar conPnRE nove RESULTS

00l1ee

18
; BRANCH 1 GOOD
8177652, 3¥SGDDAT; GOOD DATA
RY,
Q8REGADR' ; FAILING REGISTER RHBA
hovxnc INTO ODD BYTE OF

0Cllevy

19:

JRY

aRq zoseoonr

RHBA GAVE WRONG RESULTS

; TEST DATA

8177524, 28$BDDAT
8177524, JuSGDDAT; GOOD DATA
R4,
28REGADR' ; FRILING REGISTER RHBA
hoVING INTG EVEN BYTE OF
1
'RHBA GAVE WRONG RESULTS

SEG 0C7C

POM 'S B
1

DSKLS

CTRLRI

08:30

MACY!1l

30(1048)

08-NOV-77

GO6

08:54_PAGE &9

T40

TEST ODD BYTE

.SBTTL

DCL COMMRAND TESTS

FOUR

INSTRUCTION ON RHBA

SEG 0C7!

gNERRL RSGISTERE N*LL BE RESERVEC FOR HARDWARE

R1=RHCS1
R2=RHCS2
R3=RHDS1
R4=RHER!

CONTROL
R
CONTROL AND STQTUSE
DRIVE STATUS |
ERROR REGISTER!

WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS
APPROPIATE SAVING MUST BE DONE

* &

[aalead
aloaleadoaoal
ol 0‘(7‘0"(1:‘0‘ oo
[QILIT
I [V o ££E
)
b e

352

001000
042614

00000000000

[X4

163262

w
iy
=Y Sy

W
£

#STACK, SP

:RESET STACK

JSR
MOV
CLR
MOV
MOV

PC, 38CLDISK
#0MD, IRHMR
IeTMPILL
:rurnaL RO
#17. RS’

:CLEAR REGISTERS
"SET DIARGNOSTIC MODE
"GET RERDY TO MAKE ILLEGAL runcrxun
:LORD FUNCTION CODE TABLE STA
: COUNTER (15 GOOD FUNCTIONS)

BNE

:NO

CMP

aovnbeL (RO)+ ;IS THIS
A LEGAL FUNCTION CODE”
- DECR. FUNCT. CODE CTR

ADD
BR
DEC

82,38 TMPILL
13
RS

:YES MAKE MNEXT FUNCTION CODE
STEST NEXT FUNCTION CODE
'MAKE NEXT CODE IF 1ST 1&
'LEGAL FUNCTIONS NOT DONE
"BRANCH IF 16 NOT COMPLETE
:ALL BITS up TO BIT ‘85 COMPARED"

002022

BNE
BIT

23
$100, a8 TMPILL

013737
062737

00202z
000002

002104
002022

MOY
ADD

SSTMPILL 9#ILLEGL:NQ- TEST THE ILLEGQL FUNCTION
82,98 TMPILL
-YEST NEW FUNCTION CODE NEXT TIME

004737
012777
013711
012737
po4?237
005737
001403
01043
104011

Ques ]y
000001
002104

163166

JSR

PC, 38CLDISK

4Sse

?\J
o nNEO

TEST

000100

001367

neeLo

0020ee

0CE308

432

O00COHO0O0O

OO00000000

2%:

002022

(RHER1)

(ILLEGAL REGISTER) CANNOT BE TESTED ON POP1l THIS BIT

1S FOR PDPIO USE ONLY

MOV

13:

000002

ERROR REGISTER #01

BIT #1

00171e
OCllee

001110

BNE

4s:

MOV
MOV
MOV

JSR
TST

BEG
MOV

ERROR

12%

80MD, 3RHMR
IsILLEGL,aR]
¥48 . J8SLPERR
PC, d8PUTREG
JutR]

S$
R4, J8$BOADR
1]

YES
- EXIT =-------

:SET DIAGNOSTIC MODE
*ILLEGAL FUNCTION ---> RHCS!
:ERROR RETURN POINT

:SAVE REGISTERS

: THERE SHOULD NOT BE nnv ERROR

'CONTINUE If RHER! STILL = O
'FAILING REGISTFR ADDRESS RHER!
*ALTHOUGH AN ILLEGAL FUNCTICN
{HAS BEEN MOVED INTO RHCS!
:NO ERRORS SHOULD SHOW TILL
:GO IS SET RHER1
ALL

ZERGCS

SHOULD BE

CZRJGBO,RPO4 S & OSKLS CTRLRI
08-NOV-T7 08:30

MARC Y11

CZRJGB. Pli

0se?ll
00M4737
022737
001403
010437
104011

C0000!
42220
00000!

30(1046)
T4l

08-NOV-77
TEST

ILF

BIT

08:54
80

8GO, JR!

cs:

PC, 98PUTREG
sILF, I8ER]

001716

68
T?.JISBDQDR

oo1lee

PAGE 70

IN REG.

SEG 0072

RHERI

;GO IN RHCSI
:SAVE REGISTERS

ILL%GRL FgNCTIOE BIT SHOULD BE SET
‘1T

'FAILING

TIN

.ILLEGQL FUNCTION DID NOT

:SET ON AN ILLEGAL FUNCTION

"EXECUTION, THE ILLEGAL FUNCTION
‘BEING EXECUTED IS IN RHCSI
98DS!1, -(SP)

Orer~JION
o0w
oo

£%:

- 00
£00

013746
g4erie
0eerze

:GET RHDSI

: MASK PROG
lPROG (SP)
sRTA'ERR: VVIDPR!DRY, (SP)+
“ATYENTION (BIT
! VOLUME VALID (B
:COMPOSIT ERROR

‘DEVICE READY (B

pcleske

BEG
MOV
ERROR

ooliz2e

7’8

.§E SETR N RHDS*
HEY

ILING REGIS T
JBRHDS
!, 38SBDADR'#;FAILING
il

oonsssc§5051

u?*H AN ?L QGZL ?Né?lo COMPOSIT ERROR

(

H DIUM ON LINE (

:DEVICE RERDY
Cl6e3C

sl schy

O4580EN

JSR

PC.JsMIDDLE

(BIT 7)

A WRITE HERDER_AND
;GIVE

:DATA COMMAND WITHOUT
:CLEARING THE ERRORS

:USING “MIDDLE” SO THAT

;IT WILL COME BRCK BEFORE

THETEND TO FIND OUT ITS

L
PRV RY fprorY VNN RN N
N0 NN
NN CINNIN I NINN Y
A
T L L e e e eeS
S S s (e @ |
AN LN
OO0
NPV L Wi~
OW )

2706

010237
104415

O4eee0

040000

;

STATE

R2,ax10%

HOV§ RHSS& QPORESS

108:

:ADDRESS OF RHCS2

118:

PC.IWPLTREG

; SAVE REGISTERS

$TRE.J8CS]

; TRANSFER_ERROR

Oletele

0C1714

13%
?i.alSBORDP

0ollz2e

(BIT

i4)

S?O?LD SET Q?E TO "MXF°®
S

RHCSI

“vRE"

RWCSL

“vRE"

NUE

iFAILING REGISTER RHCSI
: TRANSFER_ERROR_(BIT

:SHOULD BE SET DUE TQ

14)

'MXF'

:LOCAL SCOPE RETURN POINT

13%:
12%:

:GO BRCK & TEST NEXT FUMCTION C3Z

CoRIGBO, RPO4/S & DSKLS _CTRLRI

S5RISE. A1t
2726
Fhh

08-NOV-77 08:30

MRCY1l

30(1046)
T4l

08-NOV-77

TEST

ILF BIT

08:54
#0

106

PARGE 71

IN REG.

RHER!

SEG 3073

g:gg

0l6k46

012706

001000

MOV

#STRCK, SP

:RESET STACK

g;gg

016660

004737

042614

JSR

PC, 38CLDISK

s INIT AND SET GENE®AL REGISTERS

2732
2733
2734
735
2736
2737
2738
2739
2740
27v1
2742
2743
2744
2745
2746
2747
2748
2749
2756
2?51
2762
2753
274
g;gg
2757
2758
27589
2760
2761
2762
2763
27ed
2765
276

767
278

:#FILL ALL POSSIBLE 3ITS WITH ONES
01bS&M
016b72
016700
016706
016714
016722
016726
016732
016736

{i2777
012?77
012777
012777
018777
012746
0S3716
012677
012777

177777
177777
017437
016377
000772
001400
002102
162702
000001

016744
01£750
QlE"S2
016754

004037
001632
003154
000021

043306

C1675e

052777

000001

0l6TeY
01677C

005037
042737

0O031E6
016000

016776
017004

052737
005037

000100
003174

MOV

162714

BIS

J8READIN, (5

MOV

#DMD, JRHMR

MOV
MOV

;WORD COUNT REGISTER GETS 177777

:BUS RDDRESS REGISTER GETS 177777
;DESIRED SECTOR TRACK GETS 17437
;OFFSET REGISTER GETS_16277
:DESIRED CYLINDER GETS 777

onxs'917 -(SPJ :GET BIT 9 AND 8
(SP)+ anhcsn sFILL READ IN PRESET IN RHCS!
*GET DIAGNOSTIC MODE

*THE REGISTERS WILL BE SAVED

RHWC

RO, 3#SAVER

REINTO

lbzbsH

:SAVE

IN REINTO BUFFER

rnon
10

17.

NUMBER SAVED

*GIVE READ IN PRESET COMMAND

B1¢

8GO, RHCS|

: INCLUDE GO TO READ IN PRESET

#NOW SAVED Rscxsrens HILL BE cunnceo TO EXPECTED VALUE

00317e

gIcC

003172

BIS

CLR

JEREINTO+12

LEAR SAVED RHDST
CLEAR FMT22,HCI,ECI IN
#FMT22'HCI'ECI, ahgsxgsoang

$VV, JSREINTO+16 ;SET VWV IN SAVED RHOF

ISREINTO+20

;#AFTER
A READ

IN PRESET

:CLEAR SAVED RHCA
COMMAND

:#SAVE REGISTERS AGAIN SO THAT COMPRRES CAN BE DONE
017010
017019
0170le
017020

004037
001632
00211C
000021

JSR

043306

RHWC

RO, 98SAVER

NPFPOH

; SAVE

FROH
T0

NUHBER OF REGISTERS SRVED

;#RS UPPER BYTE OF RHAS CAN BE CHANGING IN
& DUAL PORT

2771
2772
e
Fr
2774
2775
2776
2777
2778
2779

Ci702e

017030
017034
Ci703e
017040

004037
003184
002110
000021

Z7€i

D:7044

GI7GEC

276d

8177777 9RHBA
817437, 9RHDST
816377 JRHOF
8777, JRHCA

e’ g9

277

8177777, 3RHWC

MOV
MOV
MOV
MOV

113737

003201

002135

‘2OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
‘#S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

fiove

JSREINTO+25, d8WRFROM+25; SAVE UPPER RHRAS

; #COMPARE REGISTERS BEFORE RERD

;#WITH AFTER COMMAND

Cl7042

017050

043510

JSR

REINTO

WRF ROM
17.
18
13

RO, 38COMPAR

IN PRESET COMMAND

;CO
MPARE

; GOOD BUFFER

:TEST BUFFER
:NUMBER OF REGISTERS
{RETURN FOR ERROR
: SAME

CoRJGBO,RPO4-S 6 DSKLS _CTRLRI

C5RIGB.AL1

0B-NOV-77 0830

2782

0I70M6

01707

3784
5-85

017050
017054

013705
0BDS0S

MRCY11 30(1046)

241

017066

o01rOT

000207

08:54

JOb

READ IN PRESET
2s

047620

3-86
017086 016537 001630 042264
2~8- 017064 104001
2788
389

T42

08-NQV-77

18:

28:

PARGE 72

:RETURN FOR GOOD COMPARISON

MOV
ADD

JUERUORD. RS
RS

GETTING READY TG INDEX
DOUBLE ERROR WORD

ERROR
RTS

'REGISTER CHANGE
'RETURN FOR FURTHER COMPARISONS

MOV

SEG 0074

ARG
Z2(RS), acREchoR-FAILING
REG, ADDRESS
|
RERD IN PRESET CAUSEC IMPROPER
:NO ERRORS

‘

CcRJIGBO,RPO4 /S & DSKLS _CTRLRI

CZRJIGB. P11
2793
2794
2795
279

08-NCV-77 08:30

MACY1l

30(1046)

017100

004737

042614

2799
2800
2801

0171l
017116
017122

013711
012700
012703

002042
001632
001706

2803
2804
2805
2806
2807
2808

017132
017134
017136
017140
017146
017152

013023
005302
001375
013737
010137
052711

017160
017162

000000
000200

2%:

0171ee

000000

3%:

017170

000200

2798 617104 0127?77 000001 162546

2809
2810
2811
2812

2813
2814
ggig

017126 012702 000021

017156
017164

104415

001662
017166
000001

017160

IN RMCS2

(BITS)

PC,

MOV
MOV
MOV

JSNOPERR, 9R1
.nuuc RO’

IPUT
opsnnrxon u IN RHCSI
:STARTING ADDRESS OF REG
:STARTING ADDRESS OF WHERE SAVED

MOV
DEC
BNE
MOV
MOV
BIS

a<no>+ (R3)+
R2
X3
JWRHDS 1, 2428
Ri,2838
8GO, aR1

snOs HARDWARE REG
: COUN
annncw IF NOT COMPLETE
:GET RDDRESS OF DRIVE STATUS
:GET ADDRESS OF RHCSI
:G0 TO RHCS1

_WORD
DRY

*ADDRESS OF DRIVE STATUS RHDS!
:DRY WILL BE WAITED ON

LWORD

MOV

WwAT

WAT

98CLDISK

SEG 007S

-ofio SRHMR

sCLEAR ALL POSSIBLE BITS

:SET DIAGNOSTICM

oRHtca-RHWC+2/2, A3. NUMBER OF REGISTERS

{WRIT FOR DRY IN RHDS!

‘WAIT FOR ROY

IN RHCSI

:ADDRESS OF RHCS1 PUT HERE BY AN
:ERRLIER MOV
'RDY WILL BE WAITED ON
COMMAND

lSQVE REGISTERS AGRIN SC THRT COMPARES CAN BE DONE
Q17172
DI17i76
017200
017262

004037
001632
002110
000021

043306

JSR
RHWC
WRFROM
17.

2825

gggg

YsR

;#AFTER A NO OP

ggig

2826
2827

PAGE

RDY

2817
2820
282!
2822
ggga

KOb

READ IN PRESET

MOV

18:

1049165

(08:S4

. #START uer CLR

2797

08-NOV-77

RO, 38SAVER

: #AS UPPER BYTE

017204

113737

001733

: SAVE
FROM
‘10
'NUMBER OF REGISTERS SAVED

OF RHARS CAN BE CHANGING

002135

fove

2830
2831

98RS+], IBURFROM+25; SAVE UPPER RHAS

: #COMPRRE REGISTERS BEFORE

5835

:#lITH AFTER COMMAND
017212

283t
2837
2838

017220
017222
Q17224

002110
000021
017232

WRFROM
17.
4$

*TEST BUFFER
:NUMBER OF REGISTERS
:RETURN FOR ERROR

gg:?

017230

017252

:RETURN FOR GOOD COMPARISON

2842
2843

017232
017236

013705
060505

284c
2846
2847

017246

104001

Q17250

000207

2839

Q017216

017226

001706

043510

JSR

0i7232

RO, 38COMPAR

NO OP COMMARND

2834

2835

004037

IN
A DUAL PORT

:#0PERATION THT UPPER BYTE OF RHAS WILL BE SAVED RS IS
:#S0 THAT THE COMPARES RRE ONLY VALID FOR THE LOWER BYTE

4§
047620

2844 017240 O0l1€537 001630 042264

4§:

MOV
AOD

: COMPARE

:GOOD BUFFER

: SAME
aoERuORD RS
RS

csrrznc READY TO INDEX
UBLE ERROR
WORD

NO &P COMMAND CAUSED IMPRGPER
'REGISTER CHANGE
REdeN FOR FURTHER (OMPRARISLNS

MOY

RuacZ2(RS ), asRscAoR-FAILING REG. ARDDRESS

RTS

ERROR

C<RIGBO, RPO4 S 6 DSKLS CTRLR]

SSRIGB.PLL
2849
2850

Ses

2853

2854
gggg

08-NOV-+7 08:30

MACY11l 30(1046)

Tu3

01T2se

017252

017260
017264

08-NOV-77

08:54_

LO6

PAGE 74

NO OPERATION FUNCTION TEST

cs:

012737

004737
012777

017260

0426i4
000001

001110

162366

148

2857

:NO ERRORS

MOV

JSR
MOV

8148 28SLPERR

PC,bCLDISK
#DMD, JRHMR

;SET SCOPE LOOP_TO 14%

:INIT LAST ALL ZERO TEST
:SET DIAGNOSTIC MODE

gggg

;#NOW START WITH ALL ONES IN ALL POSSIBLE REGISTERS

2860

MOV

2861 017272
017276 012700
012705 001632
000021

2862
2863
2864
2865
2866
2867
2868

017302
017306
017314
017316
017320
017324

012730
013777
00S30S
001371
013711
012700

2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
ggga

017340
017342
017344
Q17346
017354
017360
017364
017366
017370
017372
017374

013023
005302
001375
013737
010137
0S2711
104415
000000
000200
104415
000000

017376

0C0200

2869

017330

012703

177676
001774

162322

002042
001638
001706

0Ulbb2
017374
000001

7%:

017366
108:
118:

2885

2(RO)+, (R3)+
Ra
7$
J#RHDS],d8108
Ri,asll$
8Gd, ar1

.Rntce-RHWC+2/2, A3nuneen or REGISTERS

O
O

s SAVE
ARE REG
:Cou ur
anancu IF NOT COMPLETE
:GET ADDRESS OF DRIVE STATUS
:GET ADDRESS OF RHCS!
:GO TO RHCS1
‘WAIT FOR DRY IN RHDS!
*ADDRESS OF DRIVE srnrus RHDS
:DRY WILL BE unxrso ON
'WAIT FOR ROY IN RHCS!
'ADDRESS OF RHCS! PUT HERE BY AN
'ERRLIER MOV.
'RDY WILL BE WRITED ON

QSQVE REGISTERS RGARIN SO THAT COMPRRES CAN BE DONE
017400

017404
01740e
017410

004037

001632
002110
000021

043306

JSR

RHWC
WRFROM
17.

RO, 9%SAVER

; SAVE

: FROM
10
!NUMBER OF REGISTERS SAVED

; #AS UPPER BYTE OF RHARS CAN BE CHANGING IN A DUAL PORT

2894
2895

ggg; 017412

113737 0017?33 002135

2898

2699

:xOPERATION THE UPPER BYTE OF RHAS WILL BE SAVED RS IS
‘%60 THAT THE COMPARES RRE ONLY VALID FOR THE LOWER BYTE

fove

8RS+
], JWRFROM+25; SAVE UPPER RHAS

; #COMPARE REGISTERS BEFORE NO OP COMMAND

Sgg?

2902
290y

MOV
DEC
BNE
MOV
MOV
BIS
WAT
LWORD
DRY
WAT
LWORD

MOV

;#AFTERA NO OP COMMAND

2693

2902

8177696 Q(RO)+ ' SFILL WITH ALL OMES
JSUNIT, ORHCS2
REINSTRTE UNIT NUMBER UNDER TEST
'KEEP_INTERRUPT DISABLEC
RS
: COUNT
68
:BRANCH IF INCOflPLETE
J8NOPERA, aR1
:PUT NOP OPER rxou -o IN RHCS1
RHNC RO’
srnar§~c ADDRESS
OF REG
R3
STRRTING RDDRESS or uHERF SAVED

RDY

gggg

2889
2890
gggé

DDRESS OF FIRST REGISTER
oRHECé RHNC+2/2 hs
NG. OF REGISTERS

MOV
MOV
DEC
BNE
MOV
MOV
MOV

2870 017334 012702 000021

2888

6%:

MOV

iNITH RAFTER COMMAND
017420

017424
[i74z&

004037

001706
00110

083S10

JSR

WC
WRFROM

RO, 38COMPAR

: COMPARE

:GO0OD BUFFER
TEST BUFFER

SEG 0076

CZRJGBO,RPON-S & DSKLS CTRLRI

JIRIGE.PIL

08-NOV-77 08:30

2905
2906

017430
017432

§359

174

81794

2910
2911

017440
017444

013705
060505

Eg}a

017454

104001

2917

DJ174eC

Sggg

MACYLll

30(1046)

T43

000021
017440

0B8-NOV-77

(08:54

MOG

17.
128

1
047620

2912 017446 016537 001630 042264

128:

MoV
RDD

13§:

ETURN FOR GOOD COMPRRISON

alERNORD RS
RS

GETTING READY TO INDEX
UBLE ERROR WORD

ROG?OMHRND CAUSED IMPROPER

MOV

RHQC-2(RS), QIREGQDRFQILXNG REG. RDDRESS

RTS

ERROR

ggig 017456 000207

SEG 0077

; NUMBER OF REGISTERS
RETURN FOR ERROR

lgg

1746

PAGE 7S

NG OPERRTION FUNCTION TEST

ENFORFuggHER COMPRRISONS

;NO ERRORS

CZRJGBO RPO4/S & DSKLS CTRLRI]

C2RIGB.P11
2918
2919
2920
2921

z¢
23
2 FYO. )

2924
2925
2926
2927
2828
2929
2930
2931
2932
2933
2934
2935
2936
2937

2938
2939
2940
2941
2942
2943
2944
2945
294
2947
2948
2949
2950
2951
2952
2353
2954
2955
2556
2957
2958
2959
2960
2361
296
2963
2964
2365
296
2967
2968
2969
2370
2971
2972

017462
017474

08-NOV-77 08:30
012706
004737

MACY11

30(1046)
T43

NOG6

08-NQV-77
08:54_PRGE 76
NO OPERRTION FUNCTION TEST

MOV

001000
042614

JSR

;#FILL

017500
017506
017514
017522
017830
01753
017594
017852
017560
017566
017874
017602
017610

012777
012777
012777
052777
012777
012777
012777
012777
012777
012727
012777
012777
018777

MOV
MOV
MOV
BIS

177777
177777
177777
157010
001476
1772777
017437
1772777
016277
177777
177777
000001
177777

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV

#STACK, SP

PC, duCLDISK

SEG 0078

;RESET STARCK

iSET REGISTERS RAND CLERR

ALL POSSIBLE BITS WITH ONES

$177777, JRHOB
8177777, JRHWC
8177777 RHBA
8157010, 3RHCS2

819476, JRHCS)
8177777 SRHERI
817437, 8RHDST
817777% SRHER2
816277, SRHOF
$1727277, IRHCA
8177777 QRHER3

#0MD, IRHMR
8177777, SRHMR

;BUS RDORESS REGISTER GETS 177777
;WORD COUNT REGISTER GETS 177777

ADDRESS R;GISTER GETS 177777
H
; CONTROL AND STATUS 2 GETS 157010
.CONTRO% AND STATUS REGISTER/GETS 147&
;ERROR

REGISTERL GETS

;DESIRED SECTOR TRACK
;ERROR REGISTER 2
;OFFSET REGISTER
;DESIRED CYL INDER

177777

;ERROR REGISTER 3
; MAINTENANCE REGISTER
; MAINTENANCE REGISTER

; #THIS SETS BITS FOR ALL PRESENT DRIVES

017616
017622
017624
017630
017632
017634
017640
017642
017644
017646
017650
017654
017660

013700
005012
012705
006000
103002
012714
005212
005305
0061401
000770
013746
052716
O0l26le

017662
017670
017674
017700

012777
013711
052711
012700

002020
000010

30§8:

177777

318%:

BR
MOV

001774
157010

000001
00205
000001
001630

MOV
CLR
MOV
ROR
BCC
MOV
INC
DEC
BEG

BIS
MOV
161770

MOV

J8TOTALAT,
RO
arR2
8. ,RS
RO
31s
8-1,aRY
IR2
RS
27%

308
JSUNIT,

- (SP)

; COUNTER
;GET BIT INTO CARRY

;BRANCH IF NO UNIT ON THIS BI T
;MOVE INTO ERROR REGISTER TO SET ATA
;INCR%HENT RHCS2 - UNIT NO.

;

COUN

;BRANCH IF 8 DONE
;CONTINUE THIS ROUTINE

8157010, (SP)
(5P)+,dR2

;REINSTARTE SET BITS

#0MD, JRHMR

;SET DMD

MCY

d8DCLERR,
AR

MOV

sRHOB,

BIS

;GET DRIVE PRESENT
;SLE§$ RHCS2 AND CARRRY BIT

8GO, 9R1

; 8 DATR BUFFER REGISTER

; #WORC COUNT REGISTER

; #BUS RDDRESS REGISTER

;DRIVE CLEAR =

10 INTO RHCS!

'R0 CONTARINS RDDR. OF ADDR. OF REG.

CoR2IGBO,PPO4/S & DSKLS CTRLR]
CZRIGB. P11l
08-NOv-77 08:30

MACY11

0020uUu

013037
3290072
020190
gecice

023737
001402
004737

30(1046)
Tuy

68:

104210

no1tex

Q04210
001126

0011ie4

0Clle4

001126

328:
238

020SeM

08:54
08-NOV-?27
DRIVE CLEARR

BO7

PRGE 77

SEG 0079

; ®CONTROL

AND

STATUS

;#CONTROL

AND STATUS

15T

BEQ
SSV

JENUNIT

nns

THERE MORE

#4210, 98SGDDAT

;GOOD DATA

THAN ONE UNIT

328
:BRANCH IF ONLY ONE UNIT
55%4&10, 988GDDAT: GOOD DATA

MOV

S(R0O)Y, 38$BODAT ; TEST DRTA

CMP

98SGDDAT, 38$BDDAT: COMPARE DATA

BEQ
JSR

78
PC, 38ERCLFC

; #ERRCR

:BRANCH IF GOOD
{gnp ggasnnon FOR CLK BIT S

: *DESIRED

SECTOR/TRACK

; #ERROR

: #OFFSET

; #DESIRED

CYLINDER

ADDRESS

; ®ERROR 3 REGISTER
; ATTENTION

020312

020320
020326
020332
020340
020342

013737

002020

00l124
O01leH4

0011le4

001126

15%:

020Se4

SUMMARY

MOV

S8TOTALAT, J9SGDDAT;SET ALL BITS OF ORIVE PRESENT

BEQ
JSR

168
PC, 38ERCLFC

BIC
MOV
CMPB

QSRTTENT énscoo
9(R0)+, 9b$BODA
JuSGDDAT, auseoonr

; #MAINTAINARBILITY

:BRANCH IF GOOD
:JUMP TO ERROR FOR CLR

; #DRIVE STATUS REGISTER
020374

00070C

820410

00lize
001000

00lle4

17%:

MOV

MGV
MOV
BIC

8700, 98SGDDAY

(RO}+, -(SP)
(SP), ab$BODAT
#PROG, (SP)

IN RMAS

sCLERAR ONLY WORKING DRIVE BIT
:GET RHAS
:COMPRRE DATA

cooo oara FOR PRINTOUT

'GET RHDS!
:TEST onrn
:CLEAR PROG BIT

(BIT S5)

A
IN RHCS2

C2RJIGBO,RPOS/S.
b DSkLS CTRLRI

CZRIGB. P11
3030
3031

020414
020420

08-NOV-?7 08:30
022726

MACY11l

30(1046)
Tuy

08-NOV-77
08:S4
DRIVE CLERR

cHP

000700

gggg DBOHSE 88&;g; 020564

cO?

PRGE 78

%700, (SP)+

9&R

B2 JuercLrC

; #DRIVE

TYPE

SEG 0080

. COMPARE DATA

F or DRIVE cLEAR
0RR o TEr#8R

: #SERIAL NUMBER REGISTER

; #ECC1 POSITION
; #ECC2 PARTTERN

; #LOOK-RHEAD

020556

o448

00s720

(RO)+

: #*CURRENT

3055
3056

0205&0

3058

020562

3060
306%

020564
020870

25s$:

005720

;AS THE LOOK-AHERD REG.

CANNOT BE PRECICTED

11T 1S NOT CHECKED ARFTER AN INIT

CYLINDER RDDRESS REGISTER

TST

(RC)+

MOV
ERROR

-(RO),
1

;RS _THE CURRENT CYL REG.

CANNCT BE PREDICTED

'AFTER AN INIT IT IS NOT CHECKEC

268:
014037
104001

OueeeH

ERCLFC:

JUREGACR CFQILINETREGISTER RDDREg S
¢ S1 OID
S

:NOT CLERR APPRO ?RTEBIT

3004
3065

Q020%72
020574

005720
000zC?

RTS

(RO)+

OR CLERRED EXTRA BITS
UNOO -(R0O) FOR ERROR

30e7

020C€T¢

anert2s

TST

(RO.+

:0R CLERRED EXTRA BITS
UNDO -(ROs FOR BRD DRTH

TST

RETURN TO0 ARBOVE PROGRAM

CZRJISBO,RPON S 6 DSKkLS CTRLR!
08-NQvV-77 08:30
CZRJIGB. P11

20614
020626

012706
004737

001000
Q4eb 14

020632

012?77

000001

020638

005077

Q13777
017746

161000
0028
161

MACY11

30(1046)
T4Y

0B8:54
08-NOV-77
DRIVE CLERR

MOV
161020

PRGE 79

#STACK, SP

JSR

PC,a8CLDISK

MOV

s0MD, JRHMR

SEG C0el

;RESET STACK

:INIT

AND SET UP GENERAL REG. CORRES.

:AND UNIT
NUMBER

SETDéRGNOSTIC MODE BIT

NRBLES COMMANDS WITHOUT MOL

nuo HOLDS RHLA FROM
MOVING
‘MAKE DESIRED SECTOR TRACK LEGAL

CLR
ngv

160766

D07

g.sg con SRHCSI 58“0 sss gonnnno

MOV

,-(§

T CURRENT

NTO CONTROLLER

CYLINDER

: #FOLLOWING ARE TWO BLOCKS OF CODE TO LORD RHCA WITH THE PROPER

: #ADORESS DEPENDING UPON WHETHER THE DRIVE IS AN RPO6 OR RPCH
020656
020662

002036

020664
020670
020672
020700
020702
026710
020716

001456

020744

013777

J8RPO6

CMP
BEQ
ggv

#814.,(5P)+
9¢
'8}“, 988 TMPS

: 1S CURRENT CYLINDER SAME AS Bl4. 7
:BRANCH IF YES TO MAKE RHCA = 813.
ggt RERgY TO0 MRKE RHCR
= 81Y4.

goi210

001455
ooielo

001210
160734

as:
10%:

MOV
MOV
BR

#813. . J#STMPS
98STHMPS JRHCA
148

:GET READY TO MAKE RHCA
= s 3.
'MAKE DESIRED CYLINDER 814.. OR 813.
:SAVE REGISTERS

118:

CMP
8EQ
MGV
BR
MOV
MOV

#410., (SP)+
12$
#410.,988TMPS
138
#403. .A8$TMPS
Q8STMAS JRHCA

000632

ocoiz21o0

000631
001e210

001el0
160700

; #SAVE

020752
0820756
020760
0207862

004037
001632
003154
000023

043306

020764

052777

0coco!

118

JSR

160e46

000001
020000
000200

003162
003204
003204

IS
IC

FLAG TO ITSELF TO TEST

THE DRIVE RS AN RPO4

: TRERT THE DRIVE AS AN RPOG

: TRERT THE DRIVE AS AN RPO4

1S CURRENT CYLINDER SAME AS 410. 7
:BRANCH IF YES TO MAKE RHCA = 409.
:GET RERDY TO MAKE RHCA = 410.
'FiLL RHCRA
:GET READY TO MAKE RHCA = 409.
:MAKE DESIRED CYLINDER 410.., OF 408.
: SAVE

rnon
10

.4GIVE GO TO COMMAND

81s
IS

TRERT

NUHBER OF REGISTERS SAVED

19.

0c2737
052737
042737

RO, 28SAVER

REINTO

; #CHANGE

020772
021000
021006

;MOVE onxvs TYPE

REGISTERS FOR COMPARISON RFTER GO

RHWC

oom

L0000 \KT‘U\-C(JND—O\D8 \30‘81(08»-

W LI W
W

QOO0

s et Pma Bt Bt Bt Pt

s 0= 0—a pe ot 40 oo 0o =< ()

Pt Bt Bt Bt Pt Dot

0 Bt - @ Pt (ot B b Bome

W WO DL L) LW W W WD

POV PRI

De et P

(WD W WO

001456

000632

3100

157

BEG

8GO, JRHCS1

SAVED REGISTERS

8GO, IWREINTO+6

:GO TO COMMAND
TO EXPECTED VALUES

;SAVED RHCS!

sPIP, J8REINT0430° ;SAVED RHDSI
8DRY. J8REINTO+30 :SAVED RHDS!

;#HFTER GO HAS BEEN GIVEN FOR_SEEK

COMMAND

: #SAVE REGISTERS RGAIN SO THAT COMPARISONS CAN

<RJGBO,RPO4-S & DSKLS CTRLRI

CSRIGB. P11
s Pt Pt Pt Pt Pt Pt Dot et Pt Pt Pt

3125
3126

3127

39&%046)

08:54

EQ?7

SEEK COMMAND TEST

PRGE 80

SEG 00e2

021014
021020
021022
021024

004037
00:632
002110
000023

043306

JSR
RHWC
WRFROM
19.

RO, 9#SAVER

; SAVE
: FROM
:T0
:NUMBER OF REGISTERS SAVED

; #RS UPPER BYTE OF RHRS CAN BE CHANGING IN R DURL PORT
; *OPERATION THE UPPER BYTE OF RHRS WILL BE_SAVED RS IS
; #S0 THAT THE COMPRRES ARE ONLY VALID FOR THE LOWER BYTE

0e10ee

113737

003201

002135

MOVB

ISREINTO+25S, d8WRFROM+2S; SAVE UPPER RHRS

; #COMPRRE REGISTERS BEFORE SEEK COMMAND
; #WITH CONTENTS RFTER GO IS ISSUED

3130

08-NOV-?7

; #BE DONE

Pt ot

3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138

08-NOV-77 08:30

MRCY11

3141
3142
3143
3144
3145
314

021034
021040
021042
021044
021046
021050

004037
003154
002110
000023
021054
021054

043S10

3149
3150

021054
021060

013705
060505

04782C

gi:g

021052

021074

JSR
REINTO
WRFROM
19.
18
18

RO, 38COMPAR

MOV
RDOD

JSERWORD , RS
RS, RS

;GETTING RERDY TO INDEX
; DOUBLE ERROR WORD

; IMPROPER REGISTER CHANGE
; RFTER SEEK COMMAND
;WITH GO_IS GIVEN
;RETURN TO COMPARISON

001630

18:

042264

MOV

;RETURN

gigé

021062

016537

3153
3154
3155
31%%

021070

104001

ERROR

021072

000207

RTS

3158

gigg

3161

3162
3163
3ieM
gigg

021074

021100
021104

0S2712

013712
012777

000040

001774
00000f

02lille

042737

000001

3171

02llee

0S2737

000200

021120
021134
Ocllde2

0427237
017737
013737

020000

160534
001210

3178
3176

COMPARISON

RHWC-2(RS
), 28REGADR ;FAILING REGISTER ADDRESS

2s:

160546

BIS

MOV
MOV

8CLR, JR2

JsUNET, dR2
8DMD, JRHMR

;RH

OINITILIZE

;REINSTATE UNIT NUMBER
;SET DIAGNOSTIC MODE BIT

; THIS ENRBLES COMMANDS W] THOUT MOL
;AND HOLDS RHLA FROM MOVING

003162

BIC

003204

BIS

003204

003216
003220

BIC

MOV
MOV

8GO, JSREINTO+6_

;SAVED RHCSI

sPIP JEREINTO+30' ;SAVED RHDSI

SORY,

J8RE INTO+30_; SARVED RHDSI

QRHLA, J8RE INTO+42: SAVED RHLA
QuSTMPS QEREINTO+44 ;SAVED RHCC

;#AFTER INITILIZE SAVE REGISTERS SO THRT
: #COMPARES CAN BE DONE

gi;g

3173
31eC

GOOD

; #*CHANGE REGISTERS TO EXPECTED VALUE

3169

3172
3%;3

FOR

; ®NOW GIVE INIT AND GET GO AND PIP DOWN

g{gg

2170

; COMPARE
; GOOD BUFFER
; TEST BUFFER
; NUMBER
:RETURN FOR ERROR
; SAME

0elliS0
QCecilt4

Q04037
Q00le3e

04330t

JSR
RHWC

RO, J¥SAVER

; SRVE
: FROM

RO ERSRRLLRSATBERIERD Bh

Cely

321156
02lie0

MRCY11l

30(1046)
T4S

002110
000023

08-NOV-77
08:54
SEEK COMMAND TEST

FO7

PAGE 8!

WRFROM
19.

SEG 00e3

;70
; NUMBER OF

; #AS

UPPER

;#50

THRT

BYTE

RHRS

CAN

REGISTERS SAVED

CHANGING

ONLY

VALID

DUAL

PORT

; #OPERARTION THE UPPER BYTE OF RHQS WILL BE_SAVED RS

gelliea

113737

003201

Move

02135

004037
003154

002110
000023

021202
021204
02le0e

021210
0eield
021230

021210
021214
02lele
D21224

013705
QeDs0s
016537
104001

Delie2e

000207

JSR
REINTO
WRFROM

043510

COMPARES

RRE

REGISTERS

AFTER

RO, 38COMPAR

422N

Dele3c

S8ERWORD, RS
RS, RS

COMPARISOM

MOV
ERROR

RHWC=-2(RS
), 3sREGADR ;FAILING REGISTER ADDRESS
1
: IMPROPER REGISTER

RTS

:CONTENTS AFTER GIVING AN
SINITILIZE FOLLOWING R
:SEEK COMMAND
'RETURN

COMPRRISON

:GOOD COMPARISON

NO4?37

o426l

021234

Q12777

000001

D2la42
0c125C

013777
005077

00207¢
160378

021254
Ocl268
C2l262
0c2leed

004037
00]632
003154
000022

04330¢

Ysk
RHWC
RE INTO
.

O2leee

0S2777

0ooo0:

81s

JSR

PC,38CLDISK

160416

MOV

#0MD, JRHMR

;INIT AND SET UP GENERAL REG.
'AND UNIT NUMBER
"SET DIAGNOSTIC MODE BIT
; THIS ENRBLES COMMANDS WITHOUT
; AND HOLDS RHLA FROM MOVING

180370

MoV
CLR

aaSEECOH,DRHCSI
d

;LORD SEEK COMMAND INTQ RHC
'CESIRED CYLINDER ARDDRESS

#SAVE

REGISTERS

.#GIVE

FOR

RO, 38SAVER

; *CHRANGE

00000!
020000
000200

GOOD

;GETTING READY TO INDEX
:DOUBLE ERROR WORD

4s:

082737
0=2737
042737

INITIALIZE

:RETURN POINT FOR

MOV
ADD

021i23C

gela7?4
02i30e
02l210

BYTE

'NUMBER OF REGISTERS TG BE

001630

LOWER

: COMPARED
'RETURN POINT FOR ERROR
{SAME

33
33

THE

: COMPARE
:GOOD BUFFER
:TEST BUFFER

19.

047620

FOR

JBREINTO+2S, d8WRFROM+2S; SAVE UPPER RHRS

; *COMPARE

021170
021174
0ell7e
021200

THE

()

=W NN L WN—-0OW

[(NINININ NN

Wil

lummmmmmmk}m&:m

RRRER
s
2ERe
BIFREL

et Pt Pt Pt Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt Psn P Pt Ps

WWWWWWwWwWwWWwwWwWwwWwwwww fi 0

(glg)
' rJ

o} RPO4-/5-6 DSKL§ C TRLR!
08:30

SEEK

8GO, aRHCS1
SAVED

COMPARISON

AFTER

COMMAND

REGISTERS

:GO TO SEEK COMMAND
TO

EXPECTED

8GO, JSREINTO+6 ; SAVED RHCS!

80RY . J8REINTC+3C

: SAVE
:FROM
‘70
:NUMBER OF REGISTERS SAVED

sPIP, QsREINTO+30' :SAVED RHDS!

:SmaveU RHOSI

VALUES

MOL

EQSJGBO RPO4-S & DSKLS CTRLRI
“

JGB.PI1L

08-NOV-77 08:30

MACY1l

30(1046)

T4S

3237
3238
3239

0213i6

004037 043306

3244

Q21324

002110

021322

gsgg

021326

[

RHWC

000023

18.

021330

113737 003201

021344
021346
021350
021352
021354
021356
021362

002110
000023
021356
021356
021376
013705
060505

3267
3268
3269
gg;?

021372

104001

002135

fove

021342

021364
021374

004037

003154

016537

043510

JSR

REINTO

047620

001630

S§:

042264

MOV

000207

RTS

;NUHBER OF REGISTERS SAVED
IN
Q DUAL PORT

ISREINTO+2S, I8WRFROM+25; SAVE UPPER RHAS

RO, 38COMPAR

: COMPARE

JBERWORD, RS
RS, RS

'TEST BUFFER
: NUMBER
:RETURN FOR ERROR
{SAME
:RETURN FOR GOOD COMPARISON
'GETTING READY TO INDEX
:DOUBLG ERROR WORD

. IMPROPER REGISTER CHANGE
:AFTER COMMAND
‘WITH GO IS GIVEN
'RETURN TO COMPARISCN

:GOOD BUFFER

RuhcZ2(RS), a.nschon-FAILING REGISTER ADDRES

;#NOW GIVE INIT AND GET GO AND PIP DOWN
021376

021402
021406

0S2712

613712
012777

000040

001779
000001

68:

1e024w4

gggt}

3286
3289
3250
2%,
29z

WRFROM
19.
5§
33
68
MOV
ADD

ERROR

gg;g

3283
3264
3285
gggg

: FROM

: *COMPARE REGISTERS BEFORE COMMAND

3289
3260
3261
32
3263
3264
3265

: SAVE

:#WITH CONTENTS RFTER GO IS GIVEN
021336

2275
3276
3277
ggge

RO, 38SAVER

:#RS UPPER BYTE OF RHAS CAN BE CHANGING

3257

3274

SEG 0084

: *OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED RS IS
1 %S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

SSEE

3266

PAGE 82

WRFROM

3253
3254

3268

SEEK COMMAND TEST

001632

3247
3c48

3245
3250

GO7

:ggvsongcrsrsns AGAIN SO THRT COMPARISONS CAN

3242

gg:g

(08:54

; #AFTER GO HAS BEEN GIVEN TO SEEK COMMAND

gg:?
3243

0B8-NOV-77

BIS

MOV
MOV

#CLR, aR2

JsUNE
T, aR2
80MD, 3RHMR

;RH_INITILIZE

REINSTATE UNIT NUMBER
ssr DIRGNOSTIC MODE BIT
:THIS ENRBLES COMMANDS WITHOUT MOL
SAND HOLDS RHLA FROM MOVING

: #CHANGE REGISTERS TO EXPECTED VALUE
021414

021%22
021430
021436
021444

042737

042737
052737
017737
005037

000001

020000
000200
160332
003220

0031&2

003204
0803204
00321¢

BIC

BIC
BIS
MOV
CLR

8GO, JSREINTO+6

;SAVED RHCS!

#PIP, JsREINTO+30; SAVED RHDS1
SORY IsREINTO+30 ;SAVED RHOSI
JRHLA, @#RE INTO*42: SAVED RHLRA
ISREINTO+4Y
;SAVED RHCC

:#AFTER INITIALIZE SAVE REGISTERS SO THAT
: #«COMPARES CAN BE DONE
JzlYEC

LCO<C27

04330

JCF

RO, JNSAVER

{SAVE

CIRJIGBO,RPO4-S & DSkLS CTRLRI
CZRJIGB.P11
08-NOV-77 G8:30
32923

0S 1454

MACY1l

30(1046&)
THS

113737

003201

; NUMBER OF REGISTERS SAVED

;ng upp;n BYTE
OF Rung Qan
£ cnnnc}nc IN & DUAL PORT
:#OPERATION THE
UPPER
BYTE OF
RHARS WILL BE SHVED AS 1S
: %S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER B(TE

MovB

00213S

[N IRINININ NIN]
[RITUNNININ RININ
FUI— —a ps pmo ps Pt 4 o
OO NLWH—O

JSR

0435810

SSREINTO+25, 38WRFROM+25; SAVE UPPER RHAS

REINTO
WRFROM
19.

REGISTERS

RO, 28COMPAR

021506

nsRuono RS
BEER

RTS

MOV
ERROR

042264

es:

INITALIZE

: COMPARE

:GOOD BUFFER
STEST BUFFER
* NUMBE or REGISTERS T0O BE
|
GAME
:RETURN POINT FOR GOOD COMPARISOM

noo

MOV

047620

RFTER

co
MPARED
ETURN POINT FOR ERROR

001630

PRAGE 83
; FROM
; 70

19.

3 821285
3

HO7

SEEK COMMAND TEST

; ®*COMPARE

02147C
021474
021476
021500

08:54

RHWC
WRFROM

001632

881488 386643
021462

08-NOV-77

TTING READY TO INDEX
BEUBLE
ERROR WO

RHNC a\ns, asnscuoa - FAIL ING REGISTER ADDRESS
1
CONTENTS AFTER GIVING AN
:

C
OMMAND
RETURN TO COMPARISON

: GCOC COMPARISON

c:n'ceo RPOM 5 & DSKLS CTRLR!

SRIGB. AL

08-NOV-~T 08:30

3323
3324

021532
021544

012706
004737

001000
Q4261M4

3326

0218S0

012777

00000l

MRCY11l

30(1046)
T4S

08:54
08-NOV-77
SEEK COMMAND TEST

MOV
16C10e

107

PRGE 84

#STACK, SP

JSR

PC,asCLDISK

MOV

#0MD , IRHMR

RESET STACK

“INIT AND SET UP GENERAL REG.

*AND UNIT NUMBER
:SET DIAGNOSTIC MODE BIT
ITHIS ENABLES COMMANDS WITHOUT MOL

:AND HOLDS RHLA FROM MOVING
3330
333¢
3333
3334
3335
3336
3337
3338
3339
3340

0215856

013777

002044

MOV

160084

8UNLOAD, JRHCS!

;LOAD UNLOAD COMMAND INTO RH

: #SAVE REGISTERS FOR COMPARISON AFTER GO
JSR

02iSe4
021570
021572
021574

004037
001632
003154
000023

043306

021576

0Se2777

000001

160034

3343
3344
3345

021604
021612
021620

0S2737
052737
042737

000001
020000
000200

003162
003204
003204

3347

0Oele2e

00S737

001100

3349

021634

(032777

020000

3746

001774

RHWC

RO, 38SAVER

REINTO

: SAVE

rnon
10

19.

'NUMBER OF REGISTERS SAVED

#GIVE GO TO UNLORD COMMAND

8GO, aRHCS1

:GO TO UNLORD COMMAND

*CHANGE SAVED REGISTERS TO sxpscrso VALUES

BTE

8GO, 9SREINTO+6

BIC

$DRY, J8REINTO+30 ;SAVED RHDS1

BIS
1ST

288PASS

;1S THIS FIRST PASS

:BRANCH_IF NOT FIRST PASS

BNE

c§

'BRANCH IF SW13 HIGH

MOV

QBUNIT, -(SP)

BNE
BIT

157278

;SAVED RHCSI

opxb 9#RE INT0+30" ; SAVED RHDS!

TYPDS

85W13, ISWR

SINHIBIT ERROR PRINT HIGH?

sUNIT UNDER TEST

; #AFTER GO HAS BEEN GIVEN TO UNLORD COMMAND

lagvgg EEGISTERS AGAIN SO THAT COMPRRISONS CAN
#

bc
66

70
72

004037
001832

04330e

cs:

002110
300Ce3

JSR

RHWC

RO, duSAVER

; SAVE

FROH
T0

NUHBER OF REGISTERS SAVED
; #AS UPPER BYTE OF RHRS CAN BE CHANGING IN
R DURL PORT

3367
e8

{#OPERATION THE UPPER BYTE OF RHAS WILL BE_SAVED RS IS

021774

113737

00320!

002135

%S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
hOVB
ISREINTO+25, JNWRFROM+25; SAVE UPPER RHRS
; #COMPRRE REGISTERS BEFORE UNLORD COMMAND

;#WITH RFTER GO
74
7S
7&

QOee002
(0ec00&
Ce20i0

004037
00315
00ell

043Si0

JSR

REINTQO
WRFROM

RO, d8COMPAR

; COMPRRE

:GO0D BUFFER
:TEST BUFFER

SEG OCee

CcRJGBO,RPO4/S & DSKLS CTRLRI
CZRJIGH. P11
08-NOV-77 08:30

p22012
022014
022016
022020

0000e3
022022

022030

016537

022036

104001

MRCY11

30(1048)
T46

19.

001630

19:

O4eebM

022040

022046
0e2e0s2

000040
001774
000001

022060

000001
157566

2%:

gergnn FOR ERROR

MOV
ADD

JSERWORD, RS
RS, RS

ERROR

RTS

MOV

#NOW

B1s

:GETTING READY TO INDEX
:DOUBLE ERROR WORD

: IMPROPER REGISTER CHANGE

GIVE

INIT

AND

GET

anuntr aR2

nuo

PIP DOWN

RH INITILIZE

'SET DIARGNOSTIC MODE BIT
:THIS ENRBLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

Rscxsrsns TO

SREINTO+6

EXPECTED VALUE

;SAVED RHCSI

oPIP JSREINTO+30’ ; SAVED RHDS!

BIS
MOV

sDRY SREINTO+30 ;SAVED RHDSI
SRHLA, I8REINTO+42: SAVED RHLA

; #RFTER

INITIALIZE

JSR

RO, 3#SAVER

SAVE

; #COMPARES CAN BE DONE
043306

ALL

Rexnsrnre UNIT NUMBER

8DMD, JRHMR

¥CHANGE

BIC

:AFTER UNLOAD COMMAND
SWITH GO IS GIVEN
:RETURN TO COMPARISON

#CLR, aR2

MOV

B1¢

003162
003204
003204
003216

'RETURN FOR cooo COMPARISO:M

RHac-2(RS), asnechonsFAILING REGISTER ADDRESS

MOV

1587800

SEG D0g7

NUMBER

{g
047620

022042

JO7

08-NOV-77
08:54
PAGE 8S
UNLORD COMMAND TEST

RHWC

REGISTERS

THART

; SAVE

: FROM
:T0
iNUMBER OF REGISTERS SAVED

; ¥COMPARE _REGISTERS AFTER INITIALIZE
WWwWwwww
Py
P

#RS UPPER BYTE OF RHRS CAN BE CHANGING

022122

113737

003201

022130

004037
003154
002110
000022

g43S10

022134
022136
022140

002135

022150

001e30

fiove

J8REINT0+25, 98WRFROM+25; SAVE UPPER RHAS

JSR

RO, 38COMPAR

REINTO
WRFROM
19,

047620

38:
Oueeey

IN A DUAL PORT

gopenarxon THE UPPER BYTE OF RHRS WILL BE SAVED RS IS
:#S0 THRT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

; COMPARE

§§

:GOOD BUFFER
:TEST BUFFER
NUMBER OF REGISTERS TO BE
: COMPARED
gETgRN POINT FOR ERROR

:RETURN POINT FOR GOOD COMPARISON

MOV
ADD

MOV
ERROR

J8ERWORD, RS
RS, RS

;GETTING READY TO INDEX
DOUBLE ERROR LORG

RHUC=2(RS), acnsuhoa-FAILING REGISTER RDDRESS
|
MPROPER REGISTER

CONTENTS RFTER GIVING RN
{UNLOAD COMMAND

CoRJGBO,RPO4-S.6 DSKLS CTRLRI

SZRIGB. P11
3433
3434
3435

Q022166
0e2e2i70

08-NOV-T7 08:30
C0O0207

MARCY11l

30(1046)
T46

4s:

KO?7

08-NOV-77
08:S4
PRAGE 86
UNLORD COMMAND TEST
RTS

;RETURN TO COMPARISON
; GOOD COMPRRISON

SEG 00es

CZR§GBO RPO4-5-6 DSKLS_CTRLRI

GB.P11

3436

3437

3438

022170

032777

000020

022206

012706

001000

022176

g:gg 022204
3941
Ju42

3443

g::g
3446
3447
g::g
3453

34S1

gzgg

08-NOV-77 08:30

022220
022224

001402

Tub

156742

BEQ

157426

Q22232 0S277T 000004

157420

000004

1587412

LO7

_PRGE 87

#SWY, aSWR

s TEST FOR NO OFFSET OR RTC

#STACK, SP

:RESET STRCK

PC,asCLDISK
8DMO, 9RHMR

DIF

THE NEXT TWC TESTS
conrxnoz DOWITH
NEXT TWO TESTS
xzérua?o SETBES GENERAL REG.
:SET DIAGNOSTIC MODE BIT
'THIS ENRBLES COMMANDS WITHOUT MOL
PAND HOLDS RHLA FROM MOVING

*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THMIS TEST

BIC

SMINX, 9RHMR

sMINX SRHMR

:SET INDEX PULSE
:CLERR INDEX

:#BE BROUGHT TO CENTER LINE
D22246

Q022254
022260

017777

013711
005211

157424

DO2072

157376

346l

MOV

MOV
INC

JRHCC, JRHCA

a-ssscon 9R1
dR1

:SET DESIRED CYLINDER TO RHCC

'SEEK COMMAND TO RHCSI
:GO TO SEEK COMMAND

#FOUR SECTOR CLOCKS RRE cxvsn TO TRKE POSITIONER OFF OFFSET POSITICN

3462 022262 012700 000004

fov

MOV

onércx ono JRHMR'

3465
gggg

022302
022304

005300
001370

3468

022306

004737

042614

3470

02221

012777

000001

3474

022320

013777

002074

3463 022266 012777 0000i1 157364 SS:

3464 022274 012777 000001 1573Se
3469
3471
3:;5

g:;g

022326

3477

3478 022334

3479
3480
g:gé

022340

012777

000001

: COUNTER

DEC
BNE

RO
cs

:RESET sécron CLOCK

JSR

PC,38CLDISK

s INIT AND SET UP GENERAL REG.

157340

MOV

80MD, JRHMR

:SET DIAGNOSTIC MOOE BiIT

157312

MOV

d8OFSETC, aRHCS1

MOV

80F 25, JRNOF

I COUNT
'BRANCH IF NOT COMPLETE
SAND UNIT NUMBER

:THIS ENARBLES COMMANDS WITHOUT MCL
'AND HOLDS RHLA FROM MOVING
;LORD AN OFFSET BIT

:SET AN OFFSET BIT

#SAVE REGISTERS FCR COMPARISON AFTER GO

004037 043306

ysR

001632

RHWC

RO, 38SAVER

REINTO
19.

: SAVE

PFROM

093154
000023

g:gg

02234&

0S2777

000001

157264

B1S

3487

3486

De223c4

052737

000001

003162

B1S

8GO, O8REINTO+6

gzgg

022370

042737

000200

003204

BIC

$DRY| J8REINTO+30 :SAVED RHDS1

3488 0223k2 062737 020000 003204
349.

SECTOR CLOCK

SOMD, 9RHM

(57319

MOV

(22342
022344

3483

SEG 00E9

:#T0 ENABLE LOOP ON THIS TEST THE POSITIONER HAS TO

g:gg

3488
g:gg

BIT

JSR
MOV

042777

0B8:S54

UNLOAD COMMAND TEST

MOV

3464

3457

08-NOV-?7

042614
000001

0222490

004737
012777

MRCYL1 30(1046)

110
:NUMBER OF REGISTERS SAVEC

#GIVE GO TO OFFSET COMMAND

8GO, dRHCS]

:GO TO OFFSET COMMAND

£CHANGE savso REGISTERS T0 EXPECTED VALUES

BIS

;SAVED RHCSI

nPIP JSREINT0+30" ;SAVED RHDS!

:#RFTER GC HAS BEEN GIVEN TO OFFSET COMMANLC

ZRJGBO,RPO4-S- 6 DSKLS CTRLRI

CZRIGB.P11

DB-NOV-77 08:30

MARCYL11l

30(1046)

T4?

482
3;

4037

032404
022406

002110
000023

TO
!NUMBER OF REGISTERS SAVED

:#AS UPPER BYTE OF RHAS CAN BE cunncxnc

022410

113737

003201

iaS0 THAT

00213

;

IN A DUAL PORT

022416

004037

De24ee

000023

3617
3518

022436
Q22442

013705
06DS0S

3820
3521
3522
ggsq

022452

022454

0ep422
Q2244

3513
3514
3515

022430
022432
022434

003154
002110

093510

ISR

REINTO
WRFROM

RO, 28COMPAR

: COMPARE

GOCD BUFFER
TEST BUFFER
MeER

18
18
23
047620

18:

RETU N FOR ERROR
' SAME
!REYURN FOR GOOD COMPARISON

MOV
ADD

ZUERLORD, RS

GETTING READY TO INDEX
BLE ERROR
WORD

104001

ERROR

000207

RTS

- IMPROPER REGISTER
CHANGE
'AFTER JOFFSET connnno
'WITH G
S GIVE
RETURN 18>
cGAPRR 150N

3525

MOV

¥NOW

022456

AETE

19.

022436
0436
022456

3619 Q22444 016537 001630 042264

Q22462
022466

THE gonpnnss nas oLy AL B OB TRE VERLER Bore
JWREINT0+25,
OBWRFROM+35; SAVE UPPER RHAS

SCOMPARE._REGISTERS BEFORE OFFSET COMMAND

'#WITH

3510
3511

3637

SEG 0090

; #OPERAT ON THE UPPER BYTE' OF
RHAS WILL BE SAVED AS IS

307

3528
3529
3€30
53

AVE

WRFROM
19.

3505
3506

3612

PARGE

RO, J8SAVER

3501

3509

OFFSET COMMAND TEST

043306

3500

350¢
3503

MO7

: %BE DONE

i g e

3497
3138

08:54

: ¥SAVE REGISTERS RGAIN SO THAT COMPARISONS CAN

g:g&
4

0B8-NOV-?7

052712

013712
012777

000040

28:

AT22(RS), a-nechoa RILING REGISTER ADDRESS
PC
GIVE

8IS

001774
000001

157164

MOV
MOV

INIT

AND

GET

8CLR, 9R2

S8UNET, 9R2
$0MD, JRHMR

ALL

AND

PIP DOWN

;RHINITILIZE

INSTATE UNIT
NUMBER
s 1
DIAGNOSTIC MODE BIT
!THIS ENRBLES COMMANDS WITHGUT MO.
! AND HOLDS RHLA FROM MOVING

3633
3533

g22474

042737

000001

003162

SCHANGE REGISTERS T0 EXPECTEDVALUE
B1¢
INTO+6
RHCS|

3636
3637

022510
(022616

042737
05737

020000
000200

003204
003504

BIC
BIS

353€ (20502 042737 000001 003179

BIC

eo0s8 acnexnro+16 SAVED RHOF

3638 02524 07737 157144 003216

MOV

aRHLh IWREINTO+42: SAVED RHLA

3E40

. #AFTER

INITIALIZE SAVE REGISTERS SO THAT

ISR

RO, J#SAVER

3541
3643

! sCOMPRRES CAN BE DONE
022532

004037

022840

002110

354y

022636

3S4e

O22S42

3E4E

sPIE,éORE%NTO+30!SAVED RHDS!
S8REINTO+30 !SAVED RHDOS1

001632

300022

043306

RHWIC

WRFRGM

19.

. SAVE

rnon
T0

NUHBER OF REGISTERS SAVED

CoRJIGBO,RPO4/S & OSKLS CTRLRI
CZRIGB P11

08-NOV- 77 08:30

MACY1l

30(1046)
74?7

NO7

PRGE 89
08:54
08-NOV-?77
OFFSET COMMAND TEST

SEG 009!

; #RS UPPER BYTE OF RHAS CAN BE CHANGING

O2as44

113737

003201
Q43510

022562

004037
003154
002110
000023

022564
022566
022570

022572
022572
022612

g2es72
022576
022600
022606

01370S
06050S
016537
104001

002135

#COMPRRE REGISTERS AFTER

¥oR

REINTO

RO, 98COMPAR

WRFROM
19.
qs
39:

001630

O422e4

MOV
ADD

MOV

ERROR

INITIALIZE

; COMPARE

: GO0D aurrsa

'TEST BUFFER
:NUMBER OF REGISTERS TO BE
: COMPARED
:RETURN POINT FOR ERROR
: SAME
'RETURN POINT FOR GOOD COMPARISON

3s
33

047620

IN
R DUAL PORT

: *OPERATION THE UPPER BYTE OF RHAS WILL BE _SAVED RS IS
:#60 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
fiOVB
S8REINTO+2S, d8WRFROM+25;
SAVE UPPER RHRS

aosnuono RS
RS

csrrxnc Rsnov ro INDEX
UBLE ERROR WORD

RnacZ2(RS), auaschonrnxanc REGISTER ADDRESS
: IMPROPER REGISTER
conrsn7§ RFTER GIVING AN
PINITIALYZE FOLL WING R

Oezkle

RTS

000207
4s:

:OFFSET COMMAND
'RETURN TO COMPARISON
; GOOC COMPRRISON

Cow

0eee10

?M;d &8

CIRIG 0 RPOY §.6 DSKLS_CTRLRI
P11
L IRIG
08-NOV-77 08:30

35
IS
35
35

3577
3578

012706
004737

001000
04eb 1M

Oecee3e

012777

000001

157020

022640
0cee46

0se7r?
042777

000004
000004

157C1e
157004

022654

013777

002076

156756

043306

Dez2e7e

go403?
001632
003154
000023

022674

ps2777

000001

022702
022706
022714
822722
022724

012700

00137C

022742

0ser3?
052737
042737

022750
022754
022756
0e227e0

012777
012777
00S300

004037
00le32
00e2.10
000023

30(1C48)
T4?

B08

08-NOV-77
(08:S4
PRGE 90
OFFSET COMMAND TEST

MOV

022614
022626

#STACK, SP

SEG 0092

:RESET STAC

JSR

PC,anclDIsSK

INIT AND SET UP GENERAL REG.

MOV

80MO, 3RHMR

'SET DIAGNOSTIC MODE BIT
:THIS ENRBLES COMMANDS WITHOUT MOL
‘AND HOLDS RHLA FROM MOVING

#GIVE ONE

B1s

NUMBER
AND UNIT

INDEX PULSE TO CLEAR RHLA BEFORE THE STRRT OF

SMINX, JRHMR

:SET INDEX PULSE

113737

*CLERR INDEX

MOV

Q8RETCL,3RHCS!

;LOAD RETURN TO CENTER LINE COMMAND INTO RHCSI

#*SAVE REGISTERS

FOR COMPARISON AFTER GO

RO, 38SAVER

; SAVE

P aYal’]

,rnun

;70

REINTO
:#GIVE

8IS

156736

iNUMBER OF REGISTERS SAVED
GO

TO RETURN

8GO, dRHCS1

CENTER LINE

COMMAND

;GO TO RETURN TO CENTER COMMAND

#FOUR SECTOR CLOCKS RRE GIVEN TO TAKE POSITIONER TO CENTER LINE

000001

156744
156736

cs:

fov

4. RO

: COUNTER

MOV

.nSTcx'ono SRHMRSET secron CLOCK

DEC

MOV

#DMD, JRH

BNE

;RES s SECTOR CLOCK

i COUNT

:BRANCH IF NOT COMPLETE

HANGE SAVED REGIS
I TERS TO EXPECTED VALUES
8GO, JSREIN T 9*6
; SAVED RHCS1

000001

EINT0+30' ;SAVED RHDSI

020000
000200

$ORY, JSBREINT0+30
Nh g
;SAVED RHDSI

FTER GO HRS BEEN N GIVEN TO RETURN TO CENTER LINE COMMAND
AVE REGISTERS AGAIN SO THRT COMPARISONS CAN
' 4BE DONE

¥sR
RHWC
WRFROM
19.

043306

RO, 38SAVER

: SAVE
: FROM
:T0
INUMBER OF REGISTERS SAVED

003201

00213

: #OPERATION THE UPPER BYTE OF RHAS WILL BE_SAVED AS IS
460 THART THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

fiOVB

JSREINTO+2S, d#WRFROM+2S; SAVE UPPER RHRS

.S?¢znnsTgscésrsns
*

0ez2?77g

0oxS237

TEST

sMINX, aRHMR

; #RS UPPER BYTE OF RHRS CAN BE CHANGING IN
A DUAL PORT
Ge2’e2

THIS

B1IC

UMD N 6

r\»—g.nm\w'm £W

s s pmt e o pos

3579
3580
3581
35

MARCY1l

043510

[

RO, 98CCMPAR

BEFORE

RETURN

: COMPRRE

CENTER

LINE

COMMAND

<RJGBG,RPOM-/S. 6 DSKLS CTRLR1

{ZRIGB. P11

08-NOV-77 08:30

MRCYIl 30(1046)

TS0

08-NOV-77

RETURN TO CENTER

3629
3630

022774
022776

00J3.54
002110

REINTO
WRFROM

3633
gggg

023004
023006

023010
023030

336
3637

023010
023014

013705
060S0S

3639
3640

30e4

3638

3641
gg:g

047620

18:

000207

gg:g

3646

3647
3648
3648
ggg?
3652

023030

0S2712

MOV
ADD

MOV

000040

2s:

BIS

Q13712
012777

001774
000001

156kle

MOV
MOV

QIC

36SS
gggg

023062
023070

052737
017737

000200
156600

003204
003216

BIS
MOV

3654 023054 042737 020000 003204

BIC

3658

023C7&

004037

ggga

023104

023106

0C2110

023102

001632

SWITH GO I
iRETURN TO COMPRRISON
INIT AND GET ALL GO AND PIP DOWN

8CLR 3R

JsUNT, dr2
8DMD, JRHMR

;RH_INITILIZE

{REINSTRTE UNIT NUHBER
;SET DJAGNOSTIC MODE BIT
i THIS ENRBLESCOHHQNDS WITHOUT MOL
:AND HOLDS RHLA FROM MOVING

NTO+6

IPIfi dSRE INTO+30 SQVED RHOSl

8DRY, JBREINTO+30 ;SAVED RHDS!
SRHLA, IBRE INTO+42; SAVED RHLA

RHWC

WRFROM

000023

i SAVE

rnon
T0

19.

NUMBER OF REGISTERS SAVED

; #RS UPPER BYTE OF R+#ARS CAN BE CHANGING INA DUAL PORT

023110

113737

003201

023116

004037

043Si0

:#0PERATION THE UPPER BYTE OF RHAS WILL BE_SAVED AS 1S
:#50 THAT THE COMPRRES RRE ONLY VALID FOR THE LOWER BYTE
fiOVB
SSREINTG+2S, d8WRFROM+2S; SAVE UPPER RHAS

00213S

3670

Q022122

0031iS4

02313C
023132
023134

023136
023136
(023156

2eE2

02313t

Q13705

047620

269

Cell94

Clec2”

0CIe30

JtBs

RFTER RETgRN 2 CENTEP LINE COMMAND

: #COMPARES CAN BE DONE
3SR
RO, 8SAVER

043306

3665

3e8!

GETTING RERDY T0 INDEX
%E ERROR

;#AFTER INITIALIZE SAVE REGISTERS SO THART

3659
3660
el

2674
375
3676
3677
3678
ggég

J8ERWORD, RS
RS, RS

#CHANGE REG%STERS T0 EXng Eg
VRL

003162

3673

; SAME
;RETURN FOR GOOD COMPARISON

000001

3672

RETUEN FOR ERROR

RTS

042737

3e71

SEG 0093

RHuC 2(RS) alREGh?R ébING
REG%ETER
ADDRESS
GIST
GE

023046

3tbb
3CE?
gggg

COMMAND TEST

ERROR

3653

3662

PRGE 91

LINE

; GOOD BUFFER
i TEST BUFFER

;#®NOW GIVE

023034
023040

CcO8

i?
18

38?3

3016 066
37 001630 O0O422e4
104001

023026

0?:34

023124
023126

Lez2ive

#COMPARE REGISTERS AFTER INITIRLIZE

REINTO

002110
000023

UslUSJx

RO, J8COMPRR

WRFRGCM
19.

Quezee4

MOY
HUU

MOV

; GOOD BUFFER

;TEST BUFFER
NUHBE OF REGISTERS TO BE
: COMPARED
;RETURN POINT FOR ERROR
; SAM
.
:RETURN POINT FOR GOOD COMPARISON

33
3%
48
3s:

i ¢ MPRRE

3SERWORC,RS

M5, N>

;GETTING_READY TQ INDEX

_1bvubLE

RHWC-2 RS, JWREGHDOR

ERRUR_

WURY

;FRILING REGISTER RDORESS

BFR 6k

GBO,RPOM
-5 & DSkLS CTRLRI

oe-nov-r? 08: 30

MACY11l

30(1046)
TS0

DO8

0B8-NOv-?7
(8:S54
PRAGE 92
RETURN TO CENTER LINE COMMAND TEST

023152

104001

ERROR

; IMPROPER REGISTER

023184

000237

RTS

{RETURN TO COMPARISCN

Ca31%6

ol H

:CONTENTS AFTER GIVING
A
EEITéRLI{E FgLLOHING A RETUFN TG
; GOOD COMPARISON

SEu

rag

PO4-S
-6 DSKLS CTRLRI
1

08-NOv-77 08:30

023160
02317e

012706
po4737

001000
04ebld

023176

012777

000001

MACY1l

3011046)
TS0

EOS

PAGE 93
08:54
08-NOV-77
RETURN TO CENTER LINE COMMAND TEST

MoV
156454

#STARCK, SP

SEG OCac

;RESET STRCK

JSR

PC, a8CLDISK

;INIT AND SET UP GENERAL REG.

MOV

#DMD, RHMR

iSET DIRGNOSTIC MODE 81T
:THIS ENABLES COMMANDS WITHOUT MOL
:AND HOLDS RHLA FROM MOVING

:AND UNIT NUMBER

WWWwWwWwWwwwwWwWwwwww
SNINFNNININNNNTININIC
YY)
U+ 00 92 0= s bt P p—o 0— = ()
—- 00O
LWh-0OD

; #*GIVE ONE INDEX PULSE TO CLEAR RHLR BEFORE THE START OF THIS TEST
SMINX, 3RHMR

;SET INDEX PULSE

023204
023ele

052777
042777

000004
000004

156446
156440

BIS

B1C

sMINX| SRHMR

023220

013777

002046

156412

MOV

SRECALI,JRHCS! ;LOAD RECALIBRATE COMMAND INTO RHCS!

023226

004037
001632
003154

043306

: #SAVE RE&ISTERS
FOR COMPARISON
AFTER GO
: SAVE
RO, 38SAVER

Ysr

052777

000001

000004
000011
000001

823272
023300
02330e

000001
020000
000200

%*GIVE GO TO RECALIBRATE connnna

156372

:NUMBER OF REGISTERS SAVED

023246
023252
023260
023266
023270

8GO, RHCS1

ECALIBRATE COMMAND

%F OUR secron CLOCKS ARE GIVEN TO TRAKE POSITIONER TO CYLINCER O

156400
156372

cs:

fiov

MOV

MOV
DEC

BNE

Du42737

: FROM
A )

RHWC
REINTO

000023
023240

: CLEAR INDEX

003162
003204
003204

; COUNTER

onércx-ono JRHMR: SET secroa CLOCK
CLOCK

#DMD, ARH
RO

; ESE SECTOR
: COUNT

IBRANCH IF NOT COMPLETE

2CHANGE SAVED REGISTERS TO EXPECTED VALUES

1€

BIS
BIC

8GO, dPREINTO+E

;SAVED RHCSI

sPIP JSREINT0+30° ; SAVED RHDSI
#DRY. sREINTO+30 :SAVED RHDSI

:#AFTER GO HRS BEEN GIVEN TO RECAL IBRATE COMMAND

iggvgoREGISTERS AGAIN SO THRT COMPRRISONS CAN

023314
023320
023322
023324

004037
00lie3e
002110
000023

Jsa

043306

RHWC
WRFROM
19.

RO, 38SAVER

: SAVE

: FROM
10
:NUMBER OF REGISTERS SAVED

: #AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUARL PORT

022326

003201

00213S

;#0PERATION THE UPPER BYTE OF RHAS WILL BE_SAVED RS IS
. #S0 THAT THE COMPARES RRE ONLY VALID FOR THE LOWER BYTE
OSREINTO+25, JsWRFROM+25; SAVE UPPER RHRS
fiOVB
; *COMPRRE REGISTERS BEFORE RECALIBRATE COMMARND
;#WITH AFTER GO

SBO RPOM
Jufi ¢11

b DSKLS CTRLR]
08 NOV-77T (08:30
043s10

023350
023352

004037
003154
002110
000023
023354
023354
023374

023354
023360
023362
023370

013705
060S0S
018537
104001

047620

023372

oogz20v

023334

MACY11

30¢1046)
TS1

08-NOV-77

RECALIBRATE

JSR

0Cli630

000040
001774
000001

Be34le
023420
0e34ek
023434

000901

004037
001&e32
002118
0000e3

156234

19:
D42264

c3:

004037
003154
002110
0000e3

023474
023476
082500

023502

023502
023086
0e3cil

01370S
0e0sS0S
01ec2?

TEST

: COMPARRE

:GOOD BUFFER
TEST BUFFER
UMBER

'RETURN FOR GOOD COMPRRISON

MOV

ADD

MOV

aosauono RS

;GETTING READY

ERROR

: IMPROPER REGISTER CHANGE
;nr ER RECAL IBRATE COMMAND

RTS

PC
GIVE

BIS

iWITH GO
INIT

AND

GET

JsUNYT, OR2

IS GIVEN

#0MD, IRHMR

REGISTERS

ALL

AND

PIF

:RH

INITILIZE

; THIS ENRBLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MCVING
TO

EXPECTED

VALUE

81¢
BIC
BIS
MOV

8GO, 98REINTO+6 ; SAVED RHCS]
sPIP, 8REINTO+30’ ;SAVED RHDS1
#DRY. J8REINTO0+30 :SAVED RHDS!
JRHLA, QSREINTO+42: SAVED RHLA

;#AFTER

INITIALIZE

yoR

RO, 98SAVER

UPPER

BYTE

DOWN

:REINSTATE UNIT NUMBER
:SET DIAGNOSTIC MODE BIT

SAVE

: *COMPARES CAN BE DONE

REGISTERS

THRT

: SAVE

: FROM
110
*NUMBER OF
RHAS

CAN

REGISTERS SAVED

CHANGING

A DUAL

PORT

*#*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED RS IS
:#S0 THAT THE COMPARES RRE ONLY VALID FOR THE LOWER BYTE

fove

002135

JSREINTO+25S, I8WRFROM+25; SAVE UPPER RHAS

#COMPARE REGISTERS RFTER INITIELIZE

¥R

o43s10

REINTO

RO, 38COMPAR

WRFROM
19,

047620
oCle3o

INDEX

:RETURN TO COMPARISON

$CLR, aR2

HOV

RAWC
WRFROM
19.

:DOUBLE ERRORWORD

RuacZ2(RS), 2eREGADR: FAILING Recxsrsn RDDRESS

#CHANGE

003162
003204
003204
0032ls

SEC 00%e

gergnn FOR ERROR

MOV

043306

003el!

Q23462
023466
023470
023472

PAGE 94

: #QS

D345y

COMMAND

19.

023374
023400
23404

023442
023446
023450
023452

FO8

RO, 9#COMPAR

RE INTO
WRFROM

:#NOW

0172737

0B:54

3%:
CHe22eH

; COMPAR

: GOOD BUFFER

:TEST BUFFER
NUHBER OF REGISTERS TO BE
OMPRRED

geggnn POINT FOR ERROR

e 3

"RETURN POINT FOR GOOD COMPSRISON

MOV

AOC

MOV

JSERWORD, RS

RS, RS

GETTING READY TO

ODOUBLE ERROR WORD

INDEX

RAIC-2 (RS
s .98REGADR:FAILING REGISTER AODRESS

C:R.;uBO RPO4 S 6 DSKLS_CTRLRI

SRIGB.A11

D08-NOV->r 08:30

MRCY11l 30(1046)

_(0B8-NOV-77

(08:S4

GOS8

FHAGE 9IS

RECAL IBRATE COMMAND TEST

3805
3806
3867

023516

104001

ERROR

. IMPROPER REGISTER
! CONTENTS AFTER GIVING AN
{ INITIALIZE FOLLOWING A

3809

023520

000207

RTS

'RETURN TO COMPARISON

3811

223822

3808

' RECAL IBRATE 2EHMAND

. GOOD COMFARISON

SEG 0057

CSRIGBO,.RPO4-S 6 DSKLS CTRLRI
CZRJGB.P11
D8-NOV-TT 08:30

MARCY1Ll

3001046
151

e
3814 p23524 012706 001000

3815

023536

004737

0M2614

3815 023542 012777 00000!
3818

HO8

0B-NOV-77
08:54
PRAGE 96
RECALIBRATE COMMAND TEST

MOV
ISR

ISE110

MOV

¥STACK, SP

:RESET STACK

PC,38CLDISK

é 67 QNS SET g GENERAL REG.

aDMD, aRHMR

B?A Nggq? MODE B17

:THIS ENABLES COMMANDS WITHOUT MOL

38%8
gggé

QND HOLDS RHLA FROM MOYVING
023550

013777

002052

3824

023556
023562
023564
023566

004037

001632
003154
000023

0432306

3829

023570

0S2777

000001

3833
3825
3826
ggsg

3830

gggé

023576

06277

000001

156062

MOV

3635

gggg

384]

3842
3843
33:;

#GIVE

156042

B1¢

156084

BIS

02304

G23el2

0S273T
017737

000001

: FROM
'70
!NUMBER OF REGISTERS SAVELD
GO

TO RELERSE

#GO, JRHCS|

#0MD, RHMR

COMMAND

:GO TO RELERSE COMMAND
:SET DMD TO HOLD RHLA

156056

*AFTER GO HAS BEEN GIVEN 70 RELEASE COMMAND

003202

B1S

003216

MOV

023624
083€26
023e30

8DMD , 28RE INTO+26; SAVED RHMR

JRHLA, I8RE INTO+42 SAVED RHLA

gnvs REGISTERS AGAIN SO THAT COMPARISONS CAN

023820 004037 043306

001632
GL2.ilC
000023

RHWC
WRF ROM
19.

RO, 28SAVER

: SAVE

* FROM
‘10
'NUMBER OF REGISTERS SAVED

:#AS UPPER BYTE OF RHAS CAN BE CHANGING

2847
3848

3832 023632
[@)

113737 003201

IN
A DUAL PORT

:20OPERATION THE UPPER BYTE OF RHRS WILL BE SAVED RS IS
1460 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BY'E

0Q021.=

fiove

385]
3852

QSREINT0+25, JBWRFROM+25; SAVE UPPER RHRS

: *COMPARE REGISTERS BEFORE RELERSE COMMAND

3853
38549
86

023640
(23644

004037
003154

3887
3858

3859
3860

023650
023682

023654
023e5e

000023
023660

3862

023660

013705

28e3
3864
28eE
ZBEc
ZzE?

INTC RHCSI

; #CHANGE SAVED REGISTERS 70 EXPECTED VALUES

3846

3856

;LOAD RELERSE COMMANG

: SAVE

RHNC
RE INTO
19.

2838

gggg

O8RELERSE, dRHCS1

fgnve Rscxgvgas
FOR COMPARISON AFTER GC

3833

3834

SEG 0098

023646

022664
(o36ee
22374

0435:0

!#WITH AFTER GO
¥sR
RO, 28COMPAR
REINTO

: COMPARE
,uOOD BUFFER

19.
18

:NUMBER
RETURN FOR ERROR

002:10

WRFROM

023660
023700

18
23

06050E
0D16E37
124801

047620

0C1830

18:

w2264

MOV

ADC
MOV
ERROR

'TEST BUFFER

:g
:RETURN FOR GOOD COMPARISON
SUERWORD, RS

;GETTING REAYD TO

INDEX

RS, RS
:DOUBLE ERROR WORD
RHNC-2 RS, a-nsohoa FAILING REGISTER_ADDRESS
1
. IMPROPER REGISTER CHANGE
iAFTER RELEASECOMMAND
TWITH GO IS SIVEN

flp‘

CoRJIGBO,RPO4 S & DSKLS _CTRLRI

JZRIGB. ALY
3868
3869

Q236”6
322700

08-NOV-TT 08:30
000207

MRCY11 30(1046

182

2%:

08-NOV-77

08:54

108

PRGE 97

RELERSE COMMAND TEST
RTS

;RETURN TC COMPAFISON

€ESQ 7C99

CoSRJIGBO,RPOM S & DSKLS CTRLRI

CZRIGB.PI11
3871
38;
38:
3874
3875

3876

ggz

3879

3880
3881
3882
3883

gggg

08-NOV-77 0f:30

MARCY1l 30(i1046)

08-NOV-77

JO8

PRGE 98

RELERSE COMMAND TEST

023736

012706

001000

023754

012777

000025

155662

MoV

#21.,9RHDST

023762
023766
023774

005077
012777
013711

155664
010000

155654

CLR
MOV
MOV

JRHCA
$FMT22, IRHOF
J8SERCH, aR1

023750

004737

MOV

042614

002054

JSR

:RESET STACK

:INIT ANC SET UP GENERAL REGISTERS
:DESIRED SECTOR/TRACK REGISTER
'TRACK O SECTOR 21
:DESIRED CYLINDER =0
:FORMAT BIT=1 (16 BITS PER WORD’
:FILL SERRCH COMMAND IN RHCSI

%¥NOW SAVE REGISTERS STARTING FROM RHWC IN WRITE FROM BUFFEF

3887 024000 004037 043306

3SR

3889
3890
383%

RHWC
REINTO
19.

024004
024006
0240i0

#STACK, SP

PC, auc(DISK

001632
003154
000023

3893

3894

RO, 38SAVER

;SAVE REGISTERS FOR conpaaxson

:AT THE END OF THE SEAR

:START SAVING rnon RHNC
:SAVE INTO REINT
:NUMBER OF Recxsrsns SAVED

:#NOW THE DIAGNOSTIC MODE BIT WILL BE SET

SSZE

:%AND THE SEARRCH OPERARTION STARTED

3897

024024

00S037

001200

CLR

J8STMPI

:THIS WILL HAVE THE EXPECTED

3300

024030

013700

001660

MOV

J8RHMR, RO

:NOW RO HAS MAINTENANCE REG.

gggg
3901
3302
3303
3904
3905
3906

024034
024040
024044
024050
(024054
024062

017703
042703
010337
012710
052777
052710

3908
3909

024072
024074

000240
0S2710

3307

3310

024066

042710

024106
024ll2

052710
012710

024104

3914

0esil6

ggig

042710

024100

3911

392
3913

024i20

000240

005703

155604
177400
053544
000001
000001
000010

155556

010

JRHDST R3
#177400,R3
R3, I#SELTR
#DAMD, IR0
8GO, JRHCS1
sMSCK, IR0

NOP
BIS

000010

$MSTCK, IR0

000010

BIC

NOP

000014
000001

8IS
MOV
18T

001555

BEG

sMSTCK| IR0

#MSTCK. JRO

‘VALUE OF RHLA REGISTER

ADOR.

'GET DESIRED SECTOR/TRACK REG.
'GET SECTOR ONLY
!DUPLICARTE SECTOR
'S
GO
*SET SECTOR CLOCK

*CLEAR SECTOR CLOCK

*ALLOW TIME BETWEEN SECTOR CLOCKS
"SET SECTOR CLOCK

; CLEAR SECTOR _CLOCK

‘ALLOW TIME BETWEEN SECTOR CLOCKS

SMINX!MSTCK,dR0O >SET INDEX AND SECTOR CLOCK
s0MD, 3RO
,RESET INDEX RND SECTOR CLOCK

118

"1F SECTOR REQUIRED JUMP OUT

"BRANCH OF SECTOR ZERO REQUIRED

; #AFTER_THE INDEX PULSE RHLG WILL es CHECKED TO BE ZERO

g24l22

012737

024152

DO141Y4

3920
3921
3922
3923

024130
Q24136
024184

3925
2926

(P41E4
Og4le2

3924

MOV
BIC
MOV
MOV
BIS
8IS
g1

2917

3918
3919

SEG 0100

. #THESE ARE REGULAR SET UPS FOR SERRCH COMMAND

3886
3888

0B8:54

017737
017737
023737
013737
180327

001140

001206

155540
185502
001200

001126
001720
001126

053544
001202

001202

1S:

‘«AND STMPY WILL BE SET
UP TO COUNT BYTES
fov
$608. , 988 THPY
THERE ARE 608 BYTES PER SECTOR

MOV
MOV
CMP
BEG

MOV
SUB

JRHLA 98SBDDAT ;SAVE RHLA
SRHDStT, 9sDST
:SAVE DESIRED SECTOR TRACK
28STHP], Q#8BDDAT' ;RHLA SHOULD BE HAVE EXTENSION
,#xs D EQUAL TO ZERO
2%

'BRANCH IF GOQD

JSECTR, JuSTMP2 :GET SECTOR SOUGHT
R3, 288 THF2
:¢TMP2 NOW HAS PRESENT SECTOR

CoRJGBO,RPO4/S 6 DSKLS CTRLRI

CZRIGB.PL1
3927

3928
33929
3930
3931

024166

0Oe4l7e
024176
024202

08-NOV-77 08:30
012746

163716
012637
104024

MACY11l 30(1046)

TS4

001140

08-NOV-?7

SuB
MOV
ERROR

3932
33933

KO8

LOOK AHEARD REGISTER
MOV

001206
001204

08:S4

PAGE 99

¥608.,-(SP)

J8STMPY, (SP)
(SP)+, JksTMP3
o4

;sNUMBER OF BYTES PER SECTOR

(SP)HQS PRESENT BYTE NUMBER
PRESENT BYTE NUMBER
LOOK AHERD REGISTEP AT THE BEGINING OF A
SECTOR IS IN ERRO

3934

; #NOW THE 304 WORDS WILL START

gggg

lTHE BEGINNING OF NEXT SECTOR

393S
3936

IFOR FIRST BYTE CLOCK WILL BE INDEPENDENT OF
lSECTOR CLOCK THEN 1T WILL COINCIDE FOREVER TILL

ggsg

3941

3942
3943

3944

3945
3946
3947
3948
3949
3950
3951
3952
3953
gggg

; #ONE WORD ONLY THRT

024204

012702

Q24214

000404

0e4e22
024226
024232
024236
024240
024242
024246
024252
024254

042710
052710
042710
005302
001372
00S337
012702
00S30S
001360

024210
024216

000010

012705

00000

0S2710

000012

000012
000002
000002

2%:

3%:

001206
000007

3956

MOV

#8.

4§

BIC
BIS
BIC
DEC
BNE
DEC
MOV
DEC
BNE

sMSTCK! NCLK aR0 CLERR SECTOR AND CLOCK
sMCLK, ar0
SE CLOCK
OMCLK aR0
CLEQR CLOCK
Re
BYTE COUNTER
4
BRRNCH IF BYTE NOT COMPLETE
JuSTMPY
BYTE COUNT DOWN
87 ,R2
SETUP FOR SECOND BYTE
RS
IS WORD COMPLETE?
33
BRENC IF NOT COMPLETE

MOV
BIS

,Re

IS TWO BYTES

82, RS

;BYTE

;BYTES PER WORD

sMSTCK!MCLK,aR0O ;SET SECTOR AND CLOCK

TO GIVE SECTOR CLOCK AND CLOCK

; #NOW 303 WORDS ARE LEFT ALL ARE IDENTICAL

3957
3958
3959

ITHflT 1S 606 IDENTICAL BYTES WILL BE GIVEN
fiRHLfl WILL BE CHECKED STRR TO COUNT AFTER
;IBEGINNING OF SECTOR PULSE

396?

;iSSTEg7lfiS EY ES
P

3962
3963
3964
3965

ggg%
3968
02425
(1270

;#THEN RHLR WILL BE CHECKED AFTER 128 MORE BYTES
; #THEN RHLR WILL BE CHECKED ARFTER 256 MORE BYTES
; #THEN THE TOTAL OF 608 BYTES WILL BE COMPLETED
; #AND RHLA WILL BE MADE REACY FOR NEXT SECTOR

!QND RHLA WILL BE CHECKED

000100

MOV

#64. RS

012701

000177

MOV

8127. R}

024266

012702

000007

3974

024276

042710

3976

024306

042710

024314
Q24316
024322

001372
005337
001436

3969
3970
3971

0e4es2

2372

(2 BYTES ARE ALREADY GIVEN)

;RS WILL KEEP TRACK WHEN
;EXTENSION FIELD IS TO BE CHECKED
sFIRST TIME CHECK EXTENSION FIELD
;AFTER 127 MORE BYTES

3973 024272 052710 000012

5%:

MOV

81sS

OHSTCK MCLK,3R0O ;SET SECTOR CLOCK AND CLOCK

397S

6%:

B1S

#sMCLK, JRO

;SET CLOCK

DEC

; COUNT DOWN CLOCKS PER BYTE

DEC

3977

3978
3979
2980
3981

2%ee

024302
0e431ie

(Oe43e4

052710

005302

005301

000012

000002

00120e

BIC

BNE
DEC
BEG

;CLOCKS PER BYTE COUNTER

sMSTCK! NCLK oR0 ;CLERR SECTOR CLOCK AND CLOCK
sMCLK," 9RO

6%
J4ITMPY
10%

;RESET CLOCK

BRQNCH IF BYTE NOT COMPLETE
COUNT DOWN BYTES
BRQNCHOUT IF 608 BYTES DONE
COUNT DOWN NUMBER OF BYTES

TO CHECK EXTENSION FIELD

SEG 0101

CeRJGBO,RPO4/S & DSKLS CTRLRI
CZRIG
GB.P11
08-NOV-77 08:30
024326

MACY1l

30 ( 1046)
S v}
7

Co1357

LO8

08-NOV-77
08:54
PAGE
LOOK AHERD REGISTER
BNE

5§

100

SEC 01082

;BRANCH

70 BE

IF EXTENSION FIELD NOT

CHECKED

YET

:#NOW THE EXTENSION FIELC OF THE LOOK AHERD REGISTER
; #WILL BE CHECKED

0e4330
024336

000020
15533¢

ADD

MOV

SRHLR, J8SBODAT

820, I8STHP]

:GET

024344

155274
001200

MOV

SRHDST, 380ST

:SAVE DESIRED SECTOR TRACK

MOV

J8SECTR, 98STMP2

;GET

ERROR

CHP
BEQ

0S3S44
001202
001140
001206
001204

suB
MOV
SuB
MOV

oe4412
D244 14
024416
001200

10%:

ADD

820, 38STMP]

:LOOK AHEAD ERROR

BIS
8IC

$MSTCK, 3RO
sMSTCK ) IR0

024450
p244se

DEC
BNE

R3
13
REQUIRED

:ONE SECTOR CLOCK EXTRA

000010
000002
00000¢

0s2710
042710

000012
g00o01e

; #DOWN AND HENCE
MOV

BIS

BIC
DEC
BNE
BIS
B1C

: #¥NOW

#8.

*THESE TWO INSTRUCTIONS GIVE
:ONE SECTOR CLOCK ERRLY
:BEFORE THE NEXT SECTOR
11S REQUIRED NG OF SECTORS COMPLETE
:BRANCH IF NOT
SECTOR

ATA

REACHED

,R2

sMCLK . dRO
Re
128
#MSTCK!MCLK,
RO
sMSTCKIMCLK
QRO
REGISTERS

WILL

:#S0 FILL EXPECTED VALUE
024504
024512

052737
053737

100000
002016

003162
003200

BIS

024520
g24S2e
024c34

0S2737
0S2737
0137237

000001
100000
agecl1eoo

00320¢e
003204
003cle

BIS
B1S

BIS
MGV

SECTOR PULSE

:8 CLOCKS

#sMC(K, arRO

ALL

JALLOW TIME BETWEEN SECTOR CLOCK

; #ONE SECTOR CLOCK WILL BE GIVEN TO GET

052710

THE MIOOLE

s THESE TWO INSTRUCTIONS GIVE

#MSTCK | IR0

NOP

02445y
D24460
024464
024470
Da4u72
D447y
024500

1S NOT COMPLETE

sMSCK, SRC

THE

SECTOR SOUGHT

:§TMP2 NOW MRS PRESENT SECTOR
:NUMBER OF BYTES PER SECTOR
; (SP) HAS PRESENT BYTE NUMBER
:PRESENT BYTE NUMBER

:GET NEXT STEP TO CHECK EXTENSION FIELLD
:PUT IN COUN®ER
:BRANCH BACK SECTOR

36
De4uN0
024444

; #NOW

NEXT EXTENSION

:0F R SECTOR IS IN ERROR

RS, RS
RS .R1
5§

4021

R3, JuSTHP2
8608. . -(SP)
J8STMPY (SP)
(SP)+,3kSTMP3

ADD
MOV
BR

BIC

THE

98STMP!
, 388BDDAT ' ; CHECK VALUE OF RHLA
78
:BRANCH IF GOOD

7b ¥

BIS

'GET RHYLA FOR COMPARISON

8SC,ISREINTO+6

iSET CLOCK

*CLEAR CLOCKS
:COUND DOWN
:BRANCH IF 8 NOT DONE
;SET SECTOR AND CLOCK
:CLEAR SECTOR AND CLOCK
BE

COMPARED

INTO SARVED LOCATIONS

: INCLUDE SC

IN SAVED RHCS!

WA TENT, QuREINTO+29 FILL RPPROPIATE ATTENTION
: IN SAVED RHRS
#DMD, J#REINTO+26 ' ;SET DMD IN RHMR SAVED
$ATA JSREINT0+30 :SET ATA IN RHDS1 SAVED

J8$THP1, JEREINTO+42 MOVE EXPECTED VALUE
s INTS RHLA SAVED

CZRJSBO,RPO4/S & DSKLS CTRLRI
CIRJGB. Pl
08-NOV-77 08:30
4039
4040
404}
4oue
4043

MRCY1l

30(1046)
T84

MO8

08-NOV-77
08:54
PARGE
LOOK AHERD REGISTER
; BAFTER

; #SAVE
0U4037

043306

JSR

RHWC
WRFROM
.

000023

; #RS

_SEARCH

REGISTERS

SEG 0103

COMMAND

AGAIN SO THAT COMPARES CAN BE DONE

RO, 98SAVER

_UPPER BYTE

101l

; SAVE

: FROM
{10
: NUMBER
RHRS

CAN BE

CHANGING

DUAL

PORT

; #OPERATION THE UPPER BYTE OF RHRSWILL BE SAVED AS 1S

024ssH

113737

003201

4598 "ML AEENFBTEERER.ARRORNY,

002135

; #*COMPARE

024562
024566

004037
003184

024570
024572

002110
000022

SSH

043510

JSR

REINTO

4£70

024610
024616
024620
D24ece

863582
245
831
1
00cea7

RO, 38COMPAR

WRFROM

04?7820
001630

13%:

Q42264
148:

148
MOV

fl°3
ERROR
5

SEARCH WITH

AFTER

; COMPAR

:GO BUFFER
TEST BUFFER

ie'
{33

4576

QR
054606

REGISTERS BEFORE

LAY 0 R Rk O4ER BTTE

.R
TBEE FOR ERROR
M

J$ERWORD, RS

'RETURN FOR GOOD COMPARISCN
'GETTING READY 10 INDEX

cnnncso AT END OF
I SEQRCH

SHNESE(RS)
J Rscéoguakg
E§R0RRuORDQ RESS
|
3 *g 9 EEi EB

CaRJGBO,RPO4-S & DSKLS CTRLRI

JZRIGB. P11
<071

08-NOV-77 08:30

MARCY11l 30(1046)

TSY

08-NOV-7?7

08:54

NO8

LOOK RHERD REGISTER

PARGE 102

SEG 2104

C<RJIGRO,RPO4
'S B DSKLS_CTRLRI

C3RIGB. P11

08-NOV-77 08:30

MARCYL1 BQééO“S)

4072
407
4aTY

:g;g

4o7?

.SBTTL

:ggg

024660

4080

Q24672

4081
4082

4083
4084

4085

:ggg

012700

0S1320

MoV

#SECGAP, RO

s POINTER

DEC
BNE

Ri
18

:
:

012701
012720

024712

004737

005301
001374

000460
177777

18:

042614

4092

024724

00S037

052640

4095

Q24740

JSR

024730
024734

005037
005037

052642
052644

024746

004537

044022

0247?52

024754

012737
052636

000400

052636
:
052676

PC,CLDISK

:THIS

IS USED TO SET UP GENERAL

'REGISTER CORRESPONDENCE

TO SET UP FOR DISKLESS USE ONLY

:FORMAT 22=16 BIT WORDS AND

CLR

JWWSECTR

: TRACK=0,

JSR

WCYL

:CYLINDER O

SECTOR=0

SMWKEY]
ISUKEY2

*KEY1=0
'KEY2=0

RS, a#lRC

:GO TO CALCULATE CRC

8256. , 9¥FNWORD

256 DATAWORDS

GCRC

: ¥THESE ARE REGULAR SETUPS FOR RHM1l
024756

012777

4104

084770

010077

024764

024274

002110

012705

000403

025000

4108

025004

005020

4110
3115

025010
0250:2

00137
005077

025030
025034
025040
02046
025052

025006

177374

012700

:igg

4199

:COUNTER
i
!CLEAR "DISKTM ARER TO ALL ONES

$FMT22,d8WCYL

MOV

052646

4102

4105

#304. R
s-1, (RO)+

MOV
CLR
CLR

:igg

4103

MOV
MOV

:#THESE ARE

010000

:ggg

)

RERD/WRITE ADDRESSING VIR RHMR

:RESET STACK

012737

4097

SEG 010S

#STARCK, SP

024716

4096

PAGE 102

MAKE CURRENT CYLINDER = 0

MOV

4090
4093
4094

BO9

001000

:Sgg
4091

(0B8:54

012706

024676
024702

024706
024710

08-NQVv-77

012720

154646

MOV

154640

MOV

RO, JRHBA

MOV

sFMT22, (RO) +

MOV

010000

2%:

005305

8-260. , aRHWC

$WRFROM, RO

CLR

8259,

& "WRFROMTM

OUTPUT

;256 DATA WORDS 4 HEADER

:8US ADDRESS YO BE

BUFFER

WORDS

:BUFFER "WRFROMTM

*COUNTER

:FORMAT =16 BIT WORD

(RO)+

:SECTOR=0,

2%
JRHDST

:CONTINUE IF ALL 259 NOT COMPLETE
: TRACK=0, SECTOR=0

MOV

JSWRIFOR, aR1

CLR
MOY
CLR
JSR

JSERFLGS
8FMT22, IRHOF
JRHCR
PC, 98COMWHD

:GET RERDY FOR WRITE HERDER
*AND DATA WITH 62 IN RHCSI
:CLERR ERROR FLAG
:FORMAT BIT=1 16 BIT WORDS
:CY_INDER O
{WRITE _HEADER AND DATA FROM “WRFROMTM
:INTO THE RHMR REGISTER ANC BACk INTG

DEC

154626

BNE
CLR

013711

002064

005037
012777
O0SC?7?
004737

002006
010000
154600
052462

TRACK=0,KEYS=0,

ALL DATA=(

i3 CYLINDER=0....S0 CLEAR'ALL "WRFROM"

4113

i1y

411
“ilE
4117
4118
4119
4120
4iz1

154602

:xgg
123

4i24
412¢
“lge
<127

:CORE *DISK"

RRER

;#IF THE PROGRAM COMES BACK HERE W]THOUT ERROR
*#PRINT QUTS FROM THE “COMWHD" ROUTINE THAT MEANS
‘»ALL HERDER ON DISK 1S GOOD IE. ONLY DATA IS
:#70 BE

CHECKED TG

SEE

ZERO

CSRJIGBO,RPO% S & DSKLS_CTRLR!
08-NOV-T7 08:30

JCRJGB. £l

MRCY11l

30(1046)
TS6

»—

025056

017737

8528ce 784058
38201

0eSliM

104

; #AND WRITE DATA GAP AND

TOLERANCE

1S4550

802037 B8231E
00s037

0Gl1i2e

MOV

;MOVE WORD COUNTER

ES
ROR
cs:

53
§

157

CLR

0se420

JRHWC , $BDDAT

Stu Ul1Ce
GAP

TO SEE

THEY

004037

s P
Pt Pt Pt oo

oo
oo

Pt Bt o

EL
L
£

003154

JSR

042532

LWORD

005037

002006

CLR

DO4037
003154

043s10

[

104010

s HAY

sWECCI

nuv ERRORS OCCURED”

*CLERAR ECC

ISWECC2

IS FILLED WITH EXPECTED DATA OF

RO, 38CLARER

;CLERR “REINTG"

REINTO+272. %2>

REINTO

DISK
273,
38
3

ERROR
75
ERROR

7
PC
10

ILL WITH Z2EROS

;

CHECK

30Ce0?

RTS

BUFFER

:GO0D BUFFER

:TEST BUFFER
'NUMBER OF WORDS CHECKED
"RETURN POINT FOR ERROR HEADER
'RETURN POINT FOR ERROR DATA
"RERD ERROR1O0 NEXT

*RETURN TO “COMPAR"
: WORD NOS 1 TO 256 ARE
‘DATA
WORDS
1257 AND 258 RRE ECC

.LEROED out
gasles

0°S

s R ERROR FLAG

JBERFLGS

RO, 28COMPAR

ALL

%COMPARRE “REINTO" BUFFER WITH “DISKTM

REINTO

INTQ BAD onva

HOgLB ans counrsg EP
16 ZERG
T =
TER
A WRITE

HERDER AND DATA

osnrtcs

. #REINTO BUFFER

00000
RRRID
DI

)

g?
-NOV-77
02:54
PRAGE
WRITE HERDER
RND DARTR 1

:#ARE ALL ZEROS (ECCL AND ECC2 MRY NOT BE 0) RS WELL RS
:#CHECKING RHWC FOR ZERO

(&)

S Ny
N
M
Y W
Y
o

U?U‘ILIIILI'LLILWNUWU
mrun L(JN*‘D\DQ‘JU‘U‘IUK:H
OwoNICNLW—-0OWw;m-Ion zuk‘;

oy S
Y

L Ltk
Lt

e ey
T
R

L4
R

(oo
o
gy

LLLL L ELLLLs £

oy —

4128
4129
4130

Cc09

1363 TO 273 TOLERANCE GAP

<RJGBO,RPO4 S & DSKLS CTRLRI
CZRJuB f11
08-NOV-77 08:30
4167
4168
4169

4170

4171
4yive
4173
Y4179
4178

4176

MACY11l

3011046)
TSe

4179
4180

4181
4182

4183

DOS
PAGE

WRITE HERDER AND DATA

10S

012706

C01000

MOV

#STACK, SP

:RESET STACK

025202

012700
012701
00s020

051320
000460

MOV

#SECGRP, RO

POINTER

DO4737

oueeld

;

02see20

18:

MOV
CLR

#304. ,R{
(RO)+'

:COUNTER
:CLEAR SIMULATED "DISKTM RREA IN CORE

JSR

PC, d8CLDISK

: #THESE

RRE

TO BE

SEG 0107

Ernxs IS USED TO SET GENERAL REGISTERS

SETUP FOR DISKLESS USE

ONLY

025224

012737

010000

052636

MOV

SFMT22,38UCYL

025232
025240

012737

000001

052640

MOV
CLR

81, ISWSECTR
INWKEY]

:CYLINDER O
:TRACK=0, SECTOR=1
KE 1=0

MOV
ag$L

8256, , & ¥FNWORD
RS, a8lRC

ass DATA WORDS
:GO TO CALCULATE cRC

025244
025250
025256
gz25262

052642
o44022

CLR

052676

;FORMAT 22
= 16 BIT WORDS AND

ao
WKEY2

KEY2=0

025264

; #THESE ARE REGULAR SETUPS FOR THE RH11
025266
02527
025300

177374
002110
154330

025304

010000

025310
025314
025316
025320
025324
025330
025332
025334

000001

012777

0092001

0253Ss4

013711

00c0B4

025360
025364
Qec37e
025378

00S037
012777
005077
004?737

002006

MOV

154336

2s:

#-260. , IRHWC

MOV
MOV

sWRFROM, RO
RO, JRHBA

MOV

8FMT22, (RO)+

MOV
CLR

8l (RO)+
(RO)+

MOV
883

uass RS
RS ,(RD)+

BNE

MOV

JSWRIFOR, aR1

CLR
MOV
CLR
JSR

JNERFLGS
ornrae,aRHor
JRHCA
PC, 98COMWHD

CLR

?00400

3%:
154302

154256

052462

AND “WRFROMTM BUFFEK

;256 DATA WORDS
4 HEADER WORDS

:THESE TWO INSTRUCTIONS GETS
:ADDR. OF WRFROM INTO RO AND
eus ADDRESS REGISTER
FORMAT=16 BIT
WORDS

cvu NDER=0
:TRACK=0, SECTOR=1, KE'YS=0
*KEY1=0
'KEY2=0
: COUNTER
'MOVE ALL ONES FOR DRTH

(RG)+

:BRANCH IF DATA NOT COMPLE"E

: TRACK=0 SECTOR=

#1,IRHDST

MOV

:#]F

:GET READY FOR WRITE HERDER ANC

:DATA WITH 62 IN RHCS!
:CLERR ERROR FLRG
"FOPMART BIT=1 (16 BIT WORDS)
*CYLINDER =0
:WRITE HERDER AND DATA INTO "DISKTM AREM

THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

: #FROM THE "COMWHD" ROUTINE THRT MEANS ALL THE HERDER GN "DISk"

:#]S GOOD IE. ONLY THE DATA IS TO BE CHECKED TO SEE _IF IT IS

:#ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TQ SEE IF
:#THEY ARE ALL ZEROS, - ECCl AND ECC2 ARE NOT CHECKED.

PP P

PP PP

oot
r\'“'m""‘"“""“*"‘*""
V- OWO NMUL LZ W
e—

£
L

A
Q0O
£w

£
£ Lrrirfircesk L L
nn Pt s B Bt Bt Bt Bt Pt Pt Pt s e b

28 BRIRRLON283D IR

4184
418S

08:S4

0esi?’o

4177

4178

08-NOV-77

;#RHIWC

JExeeH

aCllee

MOV

CHECKED

ARHWC , SBODRT

:LORD WORD JOUNTER JUST

IM CRSE

CZRJGBO RPO4-5 6 DSKLS_CTRLRI
<RJGB. A1l
08-NOV-"T 08:30
4223

4o
4225

4eeb
yee?
4228
4229
4230

025410
025412

001401
104040

025414
025434
02S440

005737
005037
005037

MARCYLl

30(10486)
187

BEQ

ERROR
002006
0Se416
0Se4e0

£S:

4237

4238
4239
4240
<241
4242

4243

TST

CLR
CLR

106

SEG CiC8

;SHOULD BE
= 0

;RHWC DOES
N
NOT = O AFTERA WRITE

JSERFLGS

:HAVE ANY ERRORS OCCURRED”?

‘HERDER AND DATA IS COMPLETED

JMUECC]
JWWECC2

:CLEAR ECC
:CLERR ECC

.#FILL "REINTO"TM BUFFER WITH EXPECTED DATA OF ALL 1°'S

4231

4232
4233
4234
4235
4236

EOS

08-NOV-77
(08:54
PRAGE
WRITE HERDER AND DRTA 2

004037
003154
0041582

g4as3e

p42s32

DeS4b4
025466

004037
004154
0g421lY
000000

02s4?70

005037

CC2006

025444
025450
0254582
025454

17272777

JSR
_WORD

REINTO

REINTO+.255. %2>

-1

RO, a8CLAREA
JSR
REINTQ+<255. #2>
REINTO+<272. %2>
0

CLR

JSERFLGS

; #NOW COMPARE "DISKTM

4244
4245
4246
4247

004037
003154
051416

4248
4249

025516
8essa0

10435C

g2ielm

043S10

JSR

RO, JuCOMPAR

RTS

REINTO
DISK
273.
4§
cs
ERROR

£%:

ERRCR

RTS

:FILL REINTG BUFFER

RO, 98CLARER

:FROM
:70

:DATR

SFILL REST
: FROM
;10
;DATA

; CLEAR ERROR FLRG
BUFFER WITH "REINTOTM BUFFER

; CHECK

IN CORE

; GOOD BUFFER
:TEST BUFFER
:NUMBER OF WORDS CHECKED
'RETURN POINT FOR ERROR HEQDER
:RETURN POINT FOR ERROR DATR
{READ ERROR 10 NEXT
;RETURN T0 COMPARE

WORD NOS | TC 256 RRE

DQTQ WORDS
:WORD NOS 257AND
2
RRE ECC WHICH HRVE BEEN
; ZEROED
: WORD NOS 259
:1S _DATA GAP
{WORD _NOS 260 TQ 273
{ARE TOLERANCE GRP
{RETURN TO COMPRRE

RJGBO RPOM/S & DSKLS CTRLR!

JGB. AL

4267

08-NOV-T7 08:30

MACY1l 30(1046)

157

0B-NOV-77

08:54

FO9

PAGE 107

WRITE HERDER AND DATAR 2

:ggg

025526

012706

(£01000

MOV

#STACK, SP

:RESET STACK

4270

025540

012700

051320

MOV

#SECGAP, RO

poxnrsn

4272

026550

012720

000377

MOV

8377, (RO +

4274

025556

001374

4271
4273

4275

3537

025544

(025554

025560

012701

00S301

004737

000460

18:

042614

:Sgg

025564

012737

010000

052636

4282
4283

025572
025600

012737
005037

000401
052642

052640

4287

:ggg

025604
025610
025616

005037
012737
004537

0eSea4

0S52e46

025622

0S2636

052644
000400
044022

012777

012700

002110

025640

010077

4297

025644

4299
4300

[pPSES50
02%65+

4303
4304
4305
:ggg
4308

4309
9310
4311

4312
4313
33{2

;

:THIS IS USED TO SET UP GENERAL

'REGISTER CORRESPONDENCE

MOV
CLR
CLR
MOV

05267&

JSR

WCYL

SFMT22, ABWCYL

Eefi?ngsaaoxs BIT WORDS AND

RS, aslRC

:KEY2=0
:256 DATA WORDS
:30 TO CALCULRTE CRC

8401, JSWSECTR
IsuKEY]
JBUKEY a
#256. . JWFNWORD

:TRACK=1, SECTOR=1
'KEY1=0

: #THESE ARE REGULAR SETUPS FOR RH1l AND "WRFROMTM BUFFER

025626

4301
4302

PC,CLDISK

GCRC

4293
4264
:ggg
4238

JSR

MOV

353?

4292

{COUNTER

:LORD SIMULATED “DISK" AREA WITH 377

. #THESE ARE TO BE SETUP FOR DISKLESS USE ONLY

:ggg

4284
4285
4286

#304. Ri

DEC

BNE

I's

MOV

(025634

025656
025660

177374

153776

MOV

8-260. . IRHWC

153770

SWRFRUM, RO
RO, JRHBR

! THESE TWO xnsrnucr:ous GET
‘ADDR. OF WRFROM INTO
R
PAND BUS ARDDRESS REGISTER

012720

010000

MOV

#FMT22, (RO)+

;FORMAT=16 BIT WORDS

012720
005020

000401

MOV
CLR

.401 (RO)+
04

'TRACK=, SECTOR=1, KEYS=0
,KE 1=0

005020
012705

2%:

000400

3%:

CLR
Moy

MOV
DEC
BNE
MOV

8052525, (RM)+
RS
k]
8401, JRHDST

s KEY2=0
i COUNTER

:GET READY FOR WRITE HERDER

012720
005305
001374
012777

0S252¢S

025714

013711

002064

MOV

JSUWRIFOR, aR1

02S720

(£JS037

002006

CLR

JSERFLGS

012777
005077
004737

000401

010000
153714
OE24e2

153742

153716

: CYLINDER=0

(R0)+
#256. ,RS

025664
025670
025672
025674

02€724
025732
02€73€c

;256 DATH WORDS
4 HERDER WORDS

MOV
MOV

MOV
CLR
JSR

$FMT22, SRHOF
IRHCA
PC, 38COMWHD

MOVE_ALTERNATE ONES FOR DATA
:COUNT
'BRANCH IF DATA NOT COMPLETE
i TRACK=1 SECTOR=1
'AND DATA WITH B2 IN RHCSI
:CLERR ERROR FLAG

:FORMAT BIT=1(I6 BIT WOnUS
:CYLINDER=0
:WRITE HEADER AND 0378 INTO “DISkTM CORE

<4316
4317
4218

:#IF THE PROGRAM COMES BRCK HERE WITHOU ~RROR PRINTCUTS
"«FROM THE "COMWMD®TM ROUTINE THAT MEANS k. HERDER IN
t#*DISK* IS GOOD. DATA IS TO BE CHECKED .0 SEE

~Zgc

;#RHWC 1S CHECKED TO BE = O

4219
35;@

'#IF 1T IS ALL 052525 AND WRITE DATA GAP_AND
'#TOLERANCE GAP T0 SEE IF THEY ARE ALL ZERCS.

SEG 0109

0,RPCY S

P11

025742
025750
02s57s2

& _DskLg CTRLRL
D8-NOV-

017237
001401
104040

183664

MACYLL

39é60fi6)

GO9S

08-NOV-77
0B8:S4
PRGE
WRITE HERDER RND DATA 3
MOV

001126

BEG

ERROR

JRHWC , SBODAT

108

SEG 0110

; LORD AND TEST FOR ZERO

iRHWC SHOULD

= 0

;RHWC DID NOT
= QFTER KRITE
:HEADER AND CATR WAS COMPLETED

:#ONLY ECCl AND ECC2 RRE NOT CHECKED
025754

005737
005037
005037

002006
052416
0Sa420

X ¥

TST

JMERFLGS

CLR
CLR
; #FILL

026010

004037
003154

JSR

042532

REINTO

000000
005037

"REINTO*

.WORD
JSR

RO, 38CLAREAR
52525
RC, 8CLARER

0C2006

CLR

004037
003154
0S14l6
200421
026054
02606C
104007
0002C?
104010

043510

JSR
REINTO

J8ERFLGS

RIsx

c§:

ERROR

; FROM

; T0

;DRTA
;FILL REST
: 10

:DATA

:CLEAR ERROR FLAG
BUFFER

WITH

"REINTOTM

BUFFER

:NUMBER OF WORDS CHECKED

iRETURN POINT FOR ERROR HEADER

{RETURN POINT FOR ERROR DATA
,R AD _ERROR 10 NEXT

: WORD NOS 1 TO 256 ARE
;DATA WORDS

ETURN TO COMPARE

;NORD NOS 259
;IS DATR GAP
; WORD _NOS 260 TQ 273

RTE

CORE

; CHECK
:GOOD BUFFER

: WORD NOS 257 RAND 258
: ARE ESC WHICH HAVE BEEN

coQzC?

; TEST BUFFER

4§

48:

“DISKTM

RO, J#COMPAR

273.

cs
ERROR

;FILL REINTO BLFFER

REINTO+<2S6. #2> ;FROM

. #NOW COMPRRE

026034
026040
026042
026044
026046
026050
026054
02e05¢E
0260860

BUFFER WITH EXPECTED DRTA

REINYO+<2?2 #2)

ANY ERRORS OCCURED”?

iCLEAR ECC
;CLEAR ECC

REINTO+(255. #2>
0o42532

026026
026030

;HAVE

JUWECC]
JeueECC?

;ARE TOLERANCE GAP
‘RETURN TO COMPARRE

'uBO RPON S & DSKLS CYRLR!
RJGB
08-NOV-T7 08:30
437

wgzé
433

437y

4375

4376

3n~

026066

012706

C01000

026100
8 6104
61i0

012700

051320

4378
4379
4380

818733
005301
001374
oo4T 37

MARCY1L

30(1046)
Te0

090469

08-NOV-7?7

4384
4385
<386
<387
4388
4389

<393

geelad

012737

010000

Debl3e

00s03?

052640
000400
O440e2

<399

<400

4401
4402
<403
4404
4408
406

“407
<408

4409
4410

443!
<412
4413

026164
geel7e
026176
026202
026206

ggecle
Oeeely
0cecle
026220

+erepeper=

4398

#SECGAP, RO

POINTER

PC,CLDISK

STACK

CLERRDISK ARER TO ALL ONES.
THIS IS USED TO SET GEMNERAL

REGISTERS

SFMT22, dslCYL

0see3b

ISWSECTR
SSWKEY]
JBWKEYZ2

82S6. , d#FNWORD
RS . aslRC

gs2e7e

;FORMAT 22=16 BITWORDS AND

;CYLINDER O

TRQCK 0, SECTOR=0

ESB DATAWORDS

;G0 TO CALCULATE CRC

geelee

0000

4397

SEG C1i1

;RESET

O4eely

109

#STARCK, SP

8304.,R!
#-1,(RO)+

1%:

4394

<39S
4396

PAGE

RRE TO SETM UP FOR DISKLESS JSE ONLY

%390

<391
4392

WRITE HERDER AND DRTR 3

4381

<438¢
4383

08:S4

177374
00c110
1563432
200403
010000

153440

: #THESE

RARE REGULAR SETUPS

MOV
MOV
MOV
MOV
MOV

8-260. , SIRHIC

CLR
DEC
BNE
CLR

1E3420

SWRFROM RO
RO, aRHBA

8289, RS
sFMT22, (RO)+
(RO:+

COUNT

:GET READY FOR WRITE HERDER

,
aR1
JSWRIFOR

02be4e
0ebe4e

002006
01000C
15337¢
000001
000001

IRERFLGS

1683372
183344

000001

183334

Q42220
0G2C0o0

00i714

aJclese

O0llee

004737
032737
001404

;

:BRANCH IF ALL 259 NOT COMPLETE

: TRACK=0, SECTOR=0

002084

000240
0s2777

:FROM BUFFER_"WRFROM"
: IN BUS ADDRESS
CO TER
FORHQT =16 BIT WORD
s
)
CYLI DER=0
SSCTOR=0, TRACK=0,KEYS=0, ALL DATR=2

23
aRHDST

0ebe3t

183374

;256 DATA WORDS
4 HERDER WORDS

8FMT22, JRHOF

RND DATA NITH 62 IN RHCSI
CL AR ERROR FLRG

FO MAT BIT=1 16 BIT WORDS

#DMD, JRHMR

LYLI NDER O
gET DIAGNOSTIC MOCE

8GO, JRHCSL

: THIS GO SHOULD SET PGE

JRHCA

8GO, aRHCS
1
PC, aPUTREG

n:bE JuCS]

:SAVE REGISTERS

;IS PGE SET

:BRANCH IF GOOD
3
ggpnbsa.a-seonon
PGE DID NOT

SET WHEN A WRITE

:WAS ATTEMPTED WITH ONE

IN PROGRESS

ccRJaBO, RPOY S & C SKLS CTR LRl
JSRIGB.PLL
-NOV-7 7 08:30

4425
4426

Y47

4428

4429
4430

4431
w432

4433
4439

4435

443E
4437
4438

442§

MACY11l

30u104&)
Tl
th®

X ]

2
A
T RE

T RE
B

e
HE
2 ]
thE

R
1R X

w440

08-NOV-77

08:S4

109

PROGRAM ERROR RHCS2

THESE TESTS ARE

PAGE

#10

110

THROUGH THE MRARINTAINABILITY RESISTER - RHMR

THE SECTOR GRP AND SYNC BYTE ARE ALWAYS READ AS

ZEROS AND 144000 NO HQTTER WHAT IS IN THE SIMULATED DISK APEA
TAGGED SECGRP:

AND WSSYNC

THE MEADER CONSISTING OF CYLINDER ADDRESS,
TRACK ano THE KEYS ARE REQD FROM LOCATION

CyL:,

SECTO

KEYl:,

AND KEY2 AND NOT FROM

CRC IS READ FROM SIMULATED DISK LOCRTION WCRC:
HEADER GAP IS ALWAYS READ AS ZEROS NO MATTER

WHART

IS ON THE SIMULATED DISK ARER

THE DATA SYNC

IS READ

FROM HDWS'N:

SNy
“ysl

* R

ON SIMULARTED DISK

RALL DRTR IS READ FROM SIMULATED DISK DISK:

[

SECTOR,

HEADER ON sthLnTeo DISK

LT L4

SEG 0112

CIRIGBO,RPO4/S.
6 DSALS CTRLRI

CZRIGB.A11
4445
Y446
YT
Y448

::;g
4451

4482
4453
44E4

026332

~08-NOV-77 08:30

012706

001000

MACYLl

30(1046)

Tel

0B-NOV-?7

(0B:54

JOS
PAGE

PROGRAM ERROR RHCS2 #10

MOV

#STARCK, SP

111

:RESET STACK

SEG 0113

RLRI0
S_CT
& DSKL
-S
PO4
O,R
IGB
CoR
08:3
77
OvV08-N
X5R33B.A11

4456 02616 012706 CO1000
4455

445

44589
YM4ET

KOS

4DATAPARG1 E 112
7ER 08:5
OV-7
08-N
046)
MACY1l 30(1
AND
Te2 RERD HERD

MOV

#STACK. SP

.RESET STACK

SEG 0114

<RJGBO,RPO4-5
-6 DSKLS CTRLRI

SZRIGR. AL
4461

::23

H44bN
4465

4466

027302

08-NOV-?7 08:30
012706

CC1000

MACYLL

30(} C46)
T63

_0B-NOV-77

08:54

RERD HERDER RAND

MOV

LOS
PAGE

DATA

#STACK, SP

113

; RESET STARCK

SEG J11¢

ESRYEBTIO SoB-RBVLS,C08Y58
H6?
4468
4469
4470
Ehd!
422

MO9S

"RCYH! REACHS) GBRGMRKARER RRGDarRRSE MY

SEG 116

CZRJIGB 0,RPO4/5-6 DSKLS CTRLR!
CZRJ GB.P11
08-NOV-77 08:30
4473
4474
4475
Y476
447?72
4478
4479
4480
4481

4482
4483
4484
4485

30(1046)
T65

08-NOV-77

08:54

WRITE DATA

NOS
PRAGE

!1S

SEG 0117

030226

012706

001000

MOV

#STACK, SP

:RESET STACK

030240
030244
030246
030250

004037
051416
0S2414
177400

(042532

JSR

RO, 98CLAREA

: CLERR SIMULATED DISK

.WORD
JWORD

DISK+?76
177400

110
:DATA

030eS2
030256
030260
030262

004037
003154
0041Se
000000

(042532

JSR

RO, 38CLARER

s CLEARR RERD INTO BUFFER

"WORD
"WORD

REINTO+77&
O

‘10
:DRTA

_WORD

.WORD

DISK

REINTO

:#THESE ARE

030264
030272
03Ce76
030304
030310
030314
032322

012737
105037
112737
005037
005037
012737
005037

030334

0S1400

030326

4612

MRCYIl

004537

0i0000
047503
000001
047504
047506
000012
Q47510

047500

MOV

047502

MOVB

047560

044022

: FROM

TO SETUP FOR DISKLESS USE

#FMT22, 38CYL

;CYLINDER O 16 BITS PER WORD FORMAT

CLRB

IWSECOTR+]

; TRACK O

CLR

ISKEY1

'KEY1=0

81,

98SECOTR

CLR

ISKEY2

CLR
g$fi

Jax
RS, 98CRC

MOV

810.,98DAWORD

ONLY

:SECTOR 1

'KEY2=0
:NO.

OF DATA WORDS

:THIS IS A READ COMMAND
:GO T0 CALCULATE CRC

WCRC

030336
030342
030346
030354
030362
030366
030374
030400

004737
0i3711
012777
012777
112746
112766
012677
012777

(4ebl4
002066
177766
003154
000001
000000
1S1244
014000

030406
030424
030430

005077
005037
004737

151240
002006
(C4734C

151256
151ese
000001
1Sle4e

; #*THESE

ARE

JSR

PC, 38CLDISK

MCVB

80 1(5P)

MOV
MOV
MOV
MOVB

MOV
MGV
CLR
CLR
JSR

REGULAR SETUPS

JSREARDAT, dR1
8-10. , JRAWC
sREINYO, 3RHBA
81, -(SP)

;SETUP GENERAL REGISTERS

'READ DATA INTO RHCS1=70
110 DRTA WOF.SS
;STARTING RDDRESS OF READ BUFFER
‘TN LOWER BYTE GET SECTOR 1
'GET TRACKO IN UPPER BYTE

(SP)+ . JRHDST
! TRRCK/SECTOR IN RHDST
$FMT22'ECI,dRHOF ' : 16 BITS PER WORD
:£CC CORRECTION INHIBIT BECRUSE
JRHCA
CWERFLGS
PC, 38COMHD

:ECC IS NOT CHECKED HERE
:CYL INDER O
:CLEAR ERROR FLRG
:READ DATA

;#1F THE PROGRAM COMES BRCK HERE WITHOUT ERROR PRINTOUT
; #FROM "COMHDTM ROUTINE IN MERNS DRTR IS TO BE CHECKED
: #NOW THE DATA READ INTO “REINTO“ BUFFER WILL
%BE CHECKED,
ONLY 10 WORDS SHOULD BE CHANGED

‘#ALL OTHER WORDS SHOULD REMAIN UNCHANGED
; #THE “WRFROM” BUFFER
030434
030442
030446
030450
0304c2

005737
004037
002110
003106
000000

002006
042532

TST

JSR

QMERFLGS

RO, 98CLARER

WRFROM
WRFROM+776
0

IS FILLED WITH EXPECTED DARTR AND CHECKED
; HAVE ANY ERRORS OCCURED?

; CLEAR BUFFER
;FROM
: 70
:DATA

CoRJGBO,RPO4/S-6 DSKLS CTRLRI
08-NOV-77 08:30

<ZRJGB. P11

030454
030460
030462
030464

MARCY11

30(1C48%)
Teb

08-NOV-77

RERD DARTA

JSR

04es32

LIRFROM

08:54

B10O
PAGE

RO, 3#CLARER

WRFROM+22

177400

oQor—r
825C0RRE000

: ¥NOW READ DATA BUFFER

002110
003154
000400
0oo401

MOV

047620

1$:

ogllau
001126
047620
0C20Ge

030542

3%:

MOV
MOV
MOV
cMP
BEQ
MOV
MOV
suB
TST
BNE
ERROR
R
ERROR

SWRFROM. RO

SREINTO,R1
8256. ,R
#257. | J8ERWORD
(RD)+. (RI)+
2$
- 0),aoscoonr
-(R]1) 3#$BDORT
R2, 98ERWORD
ISERFLGS
3%
Y
4$
&

116

sFILL EXPECTED DATH

: FROM
;70

'DARTA
IS CHECKED

:GOOD DRTA

:DATA RERD
: COUNTER
ron ERROR WORD NO
OMPARE cooo uxru RERD BUFFER
annncm IF
:GOOD DATA
:BAD DATA
{ERROR WORD NO
:ANY ERRORS ALREADY THERE
:IF YES BRANCH DO NOT TYPE HEADER
:ERROR ON RERD DRT
annncu T0 AVOID annrxnc NEXT ERRGR
WORD NO 1-10 ARE DATA

uonos
uoao NOS 11-256 HAVE NUT BEEN
READ AND BUFFER SHOULD BE

zsno IF OTHER THAN ZERO
:WRONG NUMBER OF WORDS HAVE
"BEEN RERD IN THE DISK NOW
:CONTRINS 177400 ALL 256
:WORDS BUT ONLY 10 WORDS
:SHOULD BE RERD IN
030544
030546
030S5Se
030cee

ge2021
017746
042716
0ee7eb
00S30e
00134

150366
177177
000200

4S8

CMP

(RO)+, (R1)+

sUNDO -(RO) AND -(R1) FOR ERROR

MOV
BIC

JSWR, ~(SP)
81771777 (sp)

'GET SWITCH SETTI c
KEEP ONLY SWITCH7 AND 8

DEC

:COUNT

CHP

BNE

#SWO0?, (8P +
13

:1S7 SET AND 8 RESET

!BRANCH IF NCT COMPLETE

SEQ 0i1l8

30(1046)
Teb

08-NOV-77

RERD DRTA

0B8:54

Cclo
PRGE

117

SEG 0119

08-NOV-T7 08:30

MRCY11

030572

012706

001000

012701
012721

003154
010000
000401

BAERE]

00s021
oQ4037
003164
003232
070707

815787
127

010021
000261
006100
103774

883335

042532

77776

C3234

DATA TABLE

20 _WORDS OF 070707
THEN 16 WORDS WITH ZERO FLOATING FROM RIGHT
TO LEFT

(EG.

MOV

#STACK, SP

MOV

.wox (Ri)+

JSR

RO, 98CLARER

- WORD
.WORD

NTO+<¢23.
%2>
070707

o
:DATA

'577773 RS

GETT n? READY TO FLOAT O

:BRANCH IF 16 NOT DONE

CLR
CLR

. WORD

MOV

MOV
MOV
SEC
ROL
JSR

"WORD

.WORD
LWORD

0o41Se
000000

sRESET STACK

%SET up “R xnro" FOR WHAT
70 BE
R
foV
?
AEYING
Eoossss
MOV
ornrea le)#
chxnoen 0 FORHQT 16 BI7 WORCS

BCS
04253e

177776,177775,177773 ETC)

!TRACK=1, SECTOR=

(RI)
<n1)+

(KEY1=0
KEY2=0

RE%NTO+<4;2>

FILL “REINTO" BUFFER

SREINTO
(24, »2> AT:STARTING ADDRESS WHERE 177776 GGES
RO, (R1)+
: MOVE IN FLOATING O
'SET CRRRY
RO
:GET O ONE BIT LEFT
RE acSLnREQ

REINTO+40.s2>
REINTO0+776
O

;FABL THE REST OF BUFFER WITH O

FROM

: 70
:DATA

PO
ORI
0 0 b e b
S
e OWwoo~NTTN
L

:#SET UP SIMULATED DISK WITH WHAT IS TO BE RERD
RO, 38CLRREA

sFILL “DISK" BUFFER

030670
030674
03067¢
030700

004037
0Si4le

O4as3ae

JSR

. WOR
. WOR
.WORD

81 K
JSK+(19. #2>
070707

: FROM
; TO
:DATA

030702
030706

012700

177776
0S14e6

MOV

%177776,R0

:GETTING READY TO FLOAT ZEROS

:GET O ONE BIT LEFT

0S 1464
070707

030720
030722
030726
020730
30732

30734

O4ec3e

MOV

MOV
SEC
ROL
BCcS
JSR

:BRANCH IF 1& NOT DONE

anCLnnsn

- WORD

oxSK

JSR

PC, 8WRCHHD

- WORD
.WORD

8DISK+<20.#2> ,R1:STARTING ADDRESS WHERE 177776 GOES
RGO, (R1)+
‘MOVE IN FLOARTING O
:SET CRRRY

DISK+?75
177777

.2,

sFILL THE REST OF BUFFER WITH 177777

: FROM

170
‘DATA

:WRITE CHECK HERGER AND DATA

:CYLINGER O, TRACK 1, SECTOF |

CSRJGBO,RPO4 S & DSKLS CTRLRI
CCRIGB. P11
08-NOV-T7 08:30

30(1046)
T67

D10

08-NOv-77
08:54
PAGE 118
WRITE CHECK HERDER AND DRTR

SEQ 0120

:#IF THE PROGRAM COMES BACK HERE THEN WRITE CHECK
; #HRS

030740

MOV

013746

03077

COMPLETED

NOW WRITE

JWUNIT, - (SP)

CHECK

ERROR BIT

104017

3%:

TESTED

sGET unxr NUMBER

:ONLY
BIT & SHOULD BE SET
snve EGISTERS
: COMPARE RHCS2

BEQ
ERROR

3%
17

'BRANCH IF ERROR NOT DUE TO *“WCE"
:RHDB CONTRINS FAILING WORD

4§
®WCE, AR2

;annucu IF GOOD
WRITE CHECK ERROR HIGH?

4§

‘RHBA CONTRINS noonsss+a

10F THE WORD IN MEMORY FROM
:THE DISK THRT DID NOT COMPARE

;TRE AND SC WILL BE SET DUE

C30774

8IR, (SP)
PC, 98PUTREG
(SP)+,a8CS2

B8R

000401

BEEN

BIS
JSR
cHP
BEQ
BIT

ERROR

{WCE
:WCE _CORRECTLY WAS NOT SET BUT SOME
iBITS OTHER THAN IR
;AND UNIT NO. WRS SET

; #NOW CHECK

MEMORY

SEE

IF NOTHING GOT DESTROYED

Pt Pt P
Pt Pt Pt Pt Pt Pt

£
L
oo
L

QOO0O00O0

o
00cLro

0000

Dot
st et

000000
Wwwww
0000
WWWW

(08 oL
- .—v—-ggfl
£n
o

0000
0000

042532

00000
wwwww

002110
01000C
000401

0000
wwww

Pt e = b ()

;#FILL “WRFROM” WITH WHAT SHOULD BE IN “REINTGTM THEN CHECK
4S:

MOV

MOV
MOV
CLR
CLR
JSR

CWORD
"WORD
.WORD

070707

12700
012701
010021
000261
006100

1772776
002170

004937

042532

MOV

103774

SWRFROM, RO

sFMT22, LRO)+
8401, (RO)+
(RO) 4
(RO)+
RO, 38CLARER

WRFROM+ (422>

WRFROM+¢23.#2>
070707

043S10

sFILL "WRFROM" BUFFER

I FROM
:70
‘DATA

SWRFROM
<24 22>, Al; STARTING noonzss WHERE 17777 3CES
RO, (R1)+
noOE IN FLon ING O
'SET CARRY
RO
:GET O ONE BIT LEF
11
:BRANCH IF 16 NOT oone

GETTING RERDY TO FLORT O

JSR

RO, 98CLARER

:FILL THE REST OF BUFFER WITH O

"WORD
JWORD

WRFROM+776
O

‘10
:DATA

WRFROM+(4(0.#2,

:FROM

neno BUFFER WILL

CHECKED

JSERFLGS

:CLEAR ERROR FLAG

JSR

RO, I8COMPRR

WRFROM
RE INTC

256.
68

€s:

*CYL INDER
:TRACK=1, SECTOR=]
IKEY1=0
‘KEY2=0

8177776, R0

*NOW THE

00200

; STARTING ADDRESS

MCV
MOV
SEC
ROL
BCS
_WORD

0ooooc

00s037

(KOO0
Wwww

4625
4626
L Y-2d

MRCY11l

ERROR

CHECK

:GO0D aucrsn
'TEST BUFFER

*NUMBER OF WORDS CHECKED
'RETURN POINT FOR ERROR HEADER
&

'RETURN POINT FOR ERROR DRTR

'READ NEXT ERROR S

CcRJIGBO,RPO4-S-6 DSKkLS CTRLRI

CZRIGB. A1
4681
4682
4683

031110
031112

08-NOV-77 08:30
000207
10400%

MRCY11

39é10481

08-NOV-?7

ELOC
PAGE

119

WRITE CHECK KEAQDER AND DATA
RTS
ERROR

PC
5§

4584

468S
Y686

06:54

:RETURN TQ COMPARISON SUBROUTINE
;DRTAR IN REINTO BUFFER GOT
; CHANGED AFTER A WRITE

; CHECK

:Egg

031114

Q0oecT

4683

CJ3lile

000240

RTS
10%:

NGP

SEG 0121

HEADER AND

DATA

COMMAND

; WORD NO_CONTAINS THE WORD
;NUMBER THAT GOT CHANGED

:RETURN TO COMPARISON SUBRGUTINE
:ONLY A BRANCH POINT

T6?

08-NOV-77

08:54

PAGE 120

WRITE CHECK HEQDER ANC OATH

4690
2N
4692

: #DATR TABLE

3232

:#16 WORDS OF FLOATING ZEROS (EG. 177%7e, 177775,

4693
4694

4E37

:ggg

:#TOTAL OF 32 WORDS CONSISTING OF
;%16 WORDS OF FLOARTING ONES (EG. 1,

031122

012706

001000

MOV

:38?

031134

4704

031144

470S

4707

012700

031140

012701

031146

006100

031150

010021

10337%

031182

012700

<718

031164

000261

4714

031172

004037

4~1p
:3§g

031200
03:202

004152
000001

708
4709

4711
34§§

4715

031156
031162
031166
031170

031176

012701
010021

00003!

003154

18:

177776

003214

006100
103774

003254

042532

031204

012700

4724

031216

006103

031210
031214
031220

4727

031222

4730

031234

4728
4729

012701
01002}

012700

012701
010021

4731
:;gg

031236
031240

006100
103774

4734

C3i1242

004037

473t
3;3;

031250
031252

05c+i4
060000

4739
4738

021254

:;3;

4743
T4

(3id4c

00000!

O0SIi<ie

MOV

RO, (R1)+

iMOVE FLORTING 1

BCC

ROL

$177776,R0

:STARTING ADORESS WHERE § GOES
:GET

1| ONE BIT LEFT

:BRANCH IF 16 NOT DONE

:GETTING READY YO FLOAT O

MOV
MOV

SREINTOd
(16. %2> ,R1 ;STARTING ADDRESS WHERE 177776 GCES
RO, (R1)+
:MOVE IN FLOATING O

ROL
BCS

RO
2s

JSR

RO, 9*CLAREA

:FILL REST OF BUFFER WITH 1

-WORD
LWORD

REINT0+776
1

3 (o)
SWITH DATA

SEC

MOV

3s:

103375

031226
031232

473S

:GETTING READY TO FLOAT

sREINTO,R1

REINTO+<32.#2>

:SET CARRY

:GET O ONE BIT LEFT
:BRANCH IF 16 NOT DONE

;FROM

:#SET UP SIMULATED DISK WITH WHAT IS TO BE RERC

472]

:;SE

IS TO BE READ

#1,RO

MOV

.WORD

33%3
4722
4723

10)

MOV

29:

{RESET STACK

:%SET UP "REINTOTM FOR WHAT

4702

4703

#STRCK, SP

004737

ROL

BCC

1?7776

0S1456

000261

0S1E16

MGV
MOV

042532

043652

MOV

48:

#]1,RO

:GETTING READY TO FLOAT 1

:GET

s0}SK, RI
RO, (Ri)+
3s

;

:STARTING ADDRESS WHERE ! GOES
:MOVE FLORTING I
1|

ONE BIT LEFT

:BRANCH IF 16 NOT DONE

MOV
MOV

#0ISk+
6. %2>
,R1’;STARTING ADDRESS WHERE i77776 GUES
RC, (R1)+
:MOVE FLORTING O

8177776 R0

;GETTING READY TO FLORT O

ROL
BCS

RO
4$

:GET O ONE BIT LEFT
'BRANCH IF 16 NOT DONE

JSR

RO, 38CLAREA

SEC

_WORD

:SET CARRY

:FILL REST OF BUFFER WITH G

-WORD
.WORD

DISK+<32.%2>

DISK+776
O

: FROM

JSR

PC, 98WRCHDR

;WRITE CHECK DATA
:CYLINDER B, TRACK

70
:WITH DATR

;KEYS 0,

32 WORDS,

.
SECTOR

:#1F THE PROGRHM COMES BACK HERE THEN WRITE CHECK
: #HAS BEEN COMPLETED NOW WRITE CHECK ERRIR BIT IS TESTEC

n
n

MACY1l 30(1046)

(@]

08-NOV-~7 D8:30

SRIGBO,RPOM-S 6 DSKLS CTRLR]

CSRIGB. AL

Pty

RIGBO,RPOM S & DSKLS CTRLRI

RIGB.PI1L
47946

031260

08-NOv-77 08:30
013746

4747
4o48
4°49
4~S0

031264
031270
031274
031300

062716
004737
022637
061407

4762

031310

001402

4761

4~83

4~S4

4755
4~S¢
Rl
4788
47EQ

031302

031312

032737

MACY1l 30(1046)

1m0

001774

0GiT!

(31314

000401

031316

104017

PAGE

JWUNIT, - (SP)

4762

BEQ

:BRANCH IF ERROR NOT DUE TO "WCE"

B8R

ERROR

#WCE , 38CS2

:RHDB CONTAINS FAILING WORD

:RHBA CONTAINS ADDRESS+2

'OF THE WORD IN MEMORY FRCM
:THE DISK THAT DID NOT COMPARE
:TRE AND SC WILL BE SET DUE TO WCE
:WCE WARS CORRECTLY NOT SET
:8UT SOME BITS OTHER THAN

S#FILL “WRFROM" WITH WHAT SHOULD BE IN REINTO THEN CHECK IT
031320

005037

4768

031334

010021

:;;?

031340

103375

031324

012700

002006

00000}

4767 031330 012701 002110
031336

006100

4°72

631342

012700

4775

031354

000261

4776
3;3;
¢«

031346
031352
031356
031360

012701
010021

031362

004037

4781
jzgg

031370
031372

003106
000001

031366

177776

002150

002210

108:

042532

031374
031400

004037
002110

4789
4790

031404
031406

000490
031419

47g2

4794

4785
479

4797
479e

:CLEAR ERROR FLAG

MOV

RO, (R1D+

:MOVE FLORTING

8CC

MOV
ROL

.ukrnon R1

RO’

$177776,R0

“8C.

:START ADDRESS unsnz 1 GOES
'GET | ONE BIT LEFT

aanncu IF 16 NOT DONE
GETTING READY TO
FLOAT O

MOV
MOV

SWRFROM+
16. %2>, Al . START ING aoonsss NHERE 177776 GOES
RO, (R+
,noOs IN FLORTING O

ROL
8CS

RO
108

JSR

RO, a8CLARER

"WORD
JWORD

WRFROM+776
I

SEC

WREROM+¢32.#2:

031402

031410

031414

(031416
0321420

043515

JSR
WRFROM

003154

:SET

CARRY

‘GET O ONE BIT LEFTY
:BRANCH IF CRRRY SET
sFILL REST OF BUFFER WITH

:FROM

170
‘WITH DARTA

104004

118:

12%:

: CHECK
:GOOD BUFFER

REINTO

:TEST BUFFER

128

:RETURN POINT FOR ERROR DATA

256.
118

031420

000207
10400S

RO, a#8COMPAR

ERROR

RTS
ERRCR

:NUMBER OF WORDS CHECKED
RETURN POINT FOR ERROR HEACDER
Y4

PC
€

4799

“e33

GETTING RERDY TG FLOAT I

: *NOW THE RERD BUFFER WILL BE CHECKED

4786
4787
3;35

aosnrucs

MOV

_WORD

3382

4788

CLR

MOV

006100
103774

4779

478C

; RITE CHECK ERROR HIGH?

: ¥NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED

4765

4773
7?4

:GET UNIT NUMBER

'TR AND UNIT NO. WERE SET

3223

4769

SEG 0123

:ONLY BIT & SHOULD BE SET
:SAVE REGISTERS
: COMPARE RHcse
ananca IF
G

:zeg

4766

121

sIR, (SP)
PC, d8PUTREG
(SP)+,anCS2
X3

ERROR

c§:

G10O

8IS
JSR
cMP
BEQ
BIT

104017

08:54

WRITE CHECK DATA
MOV

000100
042220
001712
040000

0B8-NOV-?7

:READ NEXT ERROR §

{RETURN TO COMPARISON SUBROUT INE
:DATA IN REINTO BUFFER GOT

'CHANGED AFTERA WRITE
:CHECK DRTA COMMAND

'WORD NO CONTAINS THE WORD
Cc.<eez

L00el?

RFTS

INUMBER THART GOT CHANGED

{RETURN TO COMPARISON SUBRILTIME

coRJGBC,RPOY S & DSKLS CTRLR}

JSRISBIRLL
<8C2

:g;g

“32g
-

23.1424

08-NOV-TT 08:30
J002ew0

MACY11l 301046

08-NOV-??

08:54

TT0

WRITE CHECK DATA

13%:

NCP

H10

PAGE 22

sONLY R BRANCH POINT

4806
4807

4808

.SBTTL

4809
4810

MEE
4813

0B:S4

E CHECK DATR

ERROR BIT FUNCTIONAL TESTS

031430

012706

004737

042614

JSR

PC,anclDISk

:CLEAR DISK REGISTERS

:g%g

031460

012700

003i54

MOV

$REINTO,RO

SEEiEREEEQRT’"G FOR 3 ERROR

48230

031464

013720

001642

MOV

J8RHER], (ROJ+

:RHER] STORED IN REINTO

MOV

80, (RO)+

:BITS NOT 70 BE CHECKED IN RHER2

:gi;

it
4821

031442

031470

012720

001000

PARGE 123

MOV

000000

MOY

#STACK, SP

80, (RO)$

'BITS NOT 1O BE CHECKED IN RHER!

4822
031474 013720 001646
<823 031500 012720 000000
4624 031504 013720 001654
:ggg

031510

012720

000000

MOy
MOV
MOV

4827

031514

013704

001656

MOV

JURHAS, RY

#3, J8S§TMP]
sREINTC, RO

'RS HRS ATA BIT IN RHAS
*THAT SHOULD SET WITH ERRCR
'RETURN POINT T0 ERROR
:ERROR REGISTER COUNTER
:REGISTER BUFFER POINTER

(RO)+,R2

:R2 HAS RADDRESS OF ERROR REG

MOV
MOV
JSR
CMPB

JsUNYT aRHCSe
Rl.aR2’
PC. 8PUTREG
RS . 8RS

BEG
ERRCR

3%
20

'REINSTATE unxr NG.
:SET ERROR BIT
:READ AND SAVE REGISTERS
:ONLY THE BIT IN RS SHOU.D BE
:SET IN RHAS
:LOOX @ RHDS1 IF GOOD
‘WITH THE SETTING or oms

4828
4829
4830
4831
3335
4834

4835
4836

4837
4838
4839
4840
4E4 ]
4842

4843
4E4Y

031820
031824

013705
012737

031532
031840

012737
012700

031544

012002

(031846
031552

012701
052777

031560
031866
031570
031574

013777
O0Ol0ile
004737
12053"

031£00
031602

001401
104020

002016
031552

0CI110

MOV
MOV

000003
003154

001200

MOV
MOV

000001
000040

001779

18:

150056
1S0050

2%:

04222C
00[732

MOV

MOV
BIS

aoéaeaa
(ROJ+
04
achnsna (ROJ+

:RESET STACK

JBATTENT RS
828, 98SLPERR

#BITO'RI
8CLR, JRHCS2

:RHAS BIT'DID NOT SET

4848

031604

013746

001736

4850

021E€l4

Q22726

140800

4862

4883

031610

031e20

031€22

04271€
001401

3%:

001100

MOV

BIC

CHP
BEG

108020

ERROR

J8DS1,

- (SP)

:GET RHDS1

uvw'pkoc(SP

'REMOVE vV AND PROG

4§

SCHECK'

sATA'ERRIDPR!? onv,fsp,+ THESE BITS PLUS VV SHOULD BE IN RMIS!

4654
+85¢
33?9

'GO’

xr THIS WRS Ok

:WITH THE SETTINGOF ONE

:ERROR BIT

conposxr: ERROR

:OR ATTENTYON ACTIVE, OR
:ONE OF THE OTHER
:PERMANENT BITS DID NOT SET

4858

031624

012777

<“BEi

O221e40

00141°

48€9
“gBd

‘RI WILL HAVE BIT UNDER TEST
:CLERR RHCS2

‘REGISTER, THE CORRESPONDINu

:g:g

4851

:RY HAS RHAS

:ERROR BIT IN
AN ERR

4E4S
4849

;RHERE
STORED IN REINTO+4
:BITS NOT 10 BE cuecxso IN RHER2
:RHER3 STORED IN REINTO0+10

031632
03163

004737
020112

000001

0Ow2220

1S0C0e

48:

MOV

JSR
HP
BEC

8GO, JRHCS
!

PC, 98PUTREG
R1.aRe
c§

:GIVE NO-OP

SAVE REGISTERS
i
:G0 SHOULD NOT CLEAR ERROR

:FURTHER CHECKOF °GO° FUNCTISH&_ITMY

MARCY 11 30clJOH&J 0?
NOV-77

08-NOvV-T7 08:30

3B.F11

CZS:.;GBO RPOY S & DSKLS_CTRLRI

I10

RJSBO,RPQO4-5 6
RJG B.Fl11
08-

rity

Q42264
C0lleYy
0o171e

g31e42

001401
104020

MRCYL11

3C(1046)
171

00000
Wwwww

NNNINY
=000
NoOoNLN

000
WLWw

NNN
Ve
s

00S720
00s337
301310

[l ot S N SRy SOy SRy

000717

J10

08-NQV-77
(08:54
PRAGE 124
ATTENTION WITH ERROR TEST
R2, 98REGADR

00llee

001736
001100
140600

:GOOD DA
;BAD. onrn

1%G0"*

2wDS1,~(SP)

:GET RHDS!

M PhOG'(SP)
:CLEAR VV AND PROG
8ATA'ERRIDPRIDRY| (SP)+;G0O SHOULD NOT CLEQR nnr BITS
7%
:CHECK 'NEXT ERROR BIT IF
A

THE

MAIN

:%G0"

; #*NOW

WITH NO-OP SHOULD nor CLEQP

‘ATA nuo/on ERR
BIT

TESTING

CONTROL

LOGIC

:GET NEXT BIT

(RO),R!

:1S

108

10%:

001200

WIT H NO-OP CHANGED

:ERROR REGISTER

006301
103403

SEG Olee

rnxanc REGISTER

RI 9¥$GODAT
J8(S2, JuSBODAT

+#THIS

THE

\I\J\I\J})\I\)\I

00000000
WWwwWwwWww)

004737
012737
012714

13777

0O4737
105737
001401
1040290

g4ee 14
031724
1277277

002016

042220
00173¢e

0c1L110

118%:

147706

JSR
MOV
MoV
MOV

LEFT

GO ON TO NEXT REGISTER IF OONE
THIS BIT

TO BE

TESTED

7%
23

:IF NOT. GET NEXT ONE
:IF TO BE TESTED, GO DO IT !

(RO) +
J8STMPI
18

s ADVANCE RO TO NEXT ERROR REG.
'REGISTER COUNTER
;D0 NEXT ONE, IF 3 NOT COMPLETE

AFTER

SETTING

PC,

98CLDISK

ATR

RHDS1

RHRS

:#DRIVE POSITION SHOULD CLERR ATA IN RHDS!

[

4862
4863
4864
4865
4866
4867

KLS CTRLR]
v-77 08:30

THE

; CLERR

nxls SLPERR

;ERROR_RETURN

:SET BIT IN RHAS AND ATA

IN RHOSI

JSR

asnfrsur
SRHAS WRITE
1 INTO ORIVE BIT POSI 10N
PC, asPUTREG
:SAVE REGISTERS

BEQ
ERROR

*THIS SHOULD BE ZERO

;MOVING
A "1”

7578

INTO RHAS

;AT _THE DRIVE BIT POSITION

iDID NOT CLEAR IT
001736
001000
Q40700

12%:

asDS1,-(SP)

$PROG’ (SP

SERR! VV!DPR!DRY,

1 33
4o

032004
C320:i4

172277

0017ie

13%:

CMP

#-1,3J8ER]

ERRCR

;GET RHDSI

HgSK PROGRAMABLE
U)

lglg]

)

RHOSI

SHOULD HRVE THESE BITS

iBUT ATA SHOULD BE CLERRED
:CHECK RHER1 IF GOOD

iMOVING “I* INTO RHAS AT THE
iDRIVE BIT POSITION DID NOT
;CLEAR ATA IN RHDS!
; RHER1

SHOULO NOT CHANGE

:BY CLEARING RHRS
!RHERI WAS CHANGED BY CLERRING
;RHAS BY MOVING “1" INTC

+80 bTPOH € & OSKLS CTRLRI

08-NOV-77 08:30

MACY1l

39 (1046)
71

K10

0B8-NOV-77
(0B:S4
PAGE 125
ATTENTION WITH ERROR TEST
; THE DRIVE

SEG Ci1z7
BIT POSITION

C<RJGBO,RPO4-5 & DSKLS _CTRLRI
C2RJ GB. P11
08-NOV-77 08:30

MACY1l

30(1046)
17 !

L10

08-NOV-77
(08:54
PRAGE 126
ATTENTION WITH ERROR TEST

032020

012706

Co1000

MOV

#STACK, SP

032032
032036
Q32040
032042

Qo037
051416
052414
177400

o4as3e

JSR

RO, 98CLARER

-WORD
JWORD

DISK+?76
177400

' 70
:DATA

032044
032050
032052
032054

004037
003154
po4152
000000

o4es3e

RO, 28CLAREA

:CLEAR RERD

REINT0+778
O

270
DATA

032056

032126

012737
105037
112737

005037
005037
012737
005037
00o4S3?7
047500
051400

032130

010000
047503
000001
047504
Q47506
000012
047510
o44022

JSR

047S00

047S02
047560

;CLEAR SIMJLATED DISK

DISK

.WORD

REINTO

:#THESE

ARE

_WORD
CWORD

MOV

:FROM

: FROM

SETUP

FOR

SFMT22, AnCYL

CLRB
MOVB
CLR
CLR
MOV
CLR
{$fi

USE

chxnosn 0

98SECOYR+ ]
8l ansecorn
JWKEY
ao E a
010 ,08DRWORD
Jux
RS, 98CRC

DISK! ESS

INTO BUFFER

ONLY

16 BITS PER WORC FORMAT

TRACK O
sec10n 1
KEY1=0
xsva-o
:NO. OF onrn WORDS
1THIS ISA READ COMMAND
:GO TO CALCULATE CRC

WCRC

O4eb i
002066
177766

032172

00
147452
014000

032200
032216
032224
032230

147446
000010
002006
047340

004737

_WORD

:RESET STRCK

147464
147460

: #*THESE

ARE

JSR

PC, 38CLDISK

;SETUP GENERAL REGISTERS

MOV

.REINfO 3RHBA

:STARTING RDDRESS OF READ BUFFER

MOV
MOV

REGULRR

SETUPS

asksnonr 3R1
JRAWC

'RERD DATR INTO RMCS1=70
110 DRTA WORDS

147480

MOVB
MOVB
MOV
MOV

8], -(SP}
:IN LOWER BYTE GET SECTOR 1
80 1(5P)
:GET TRACKO IN UPPER BYTE
(SP)+ . @RHDST
;Tnncxxsscron IN RHOST
#FMT22'ECI,aRHOF ;16 BITS PER WORD
;£CC CORRECTION INMIBIT BECAUSE

147412

CLR
BIS

JRH
oaax

000001

CLR
JSR

;#1F

:ECC IS NOT CHECKED HERE
:CYLINDER O
;SET_BUS noonsss INHIBIT

anucsa

ISERFLGS
PC, 98COMHD
THE

PROGRAM

:CLERR ERROR
'READ DATA

COMES

BACK

HERE

FLRG

WITHOUT

ERROR

PRINTQUT

:#FROM “COMHD* ROUTINE IN MEANS DATA IS TO BE CHECKED
; #NOW

THE

DRTA

;#BE CHECKED,

READ

INTO

“REINTOTM

BUFFER WILL

ONLY ONE WORD SHOULD BE CHANGED

;#ALL OTHER WORDS SHOULD REMAIN UNCHANGED
{#THE "WRFROMTM BUFFER IS FIL ED WITH EXPECTED DATA AND CHECHES
032234
032240
032244
C3224&
0322c0

CLR

JSR
WRFROM
0300C0

INERFLGS

RO, a8CLARER

WRFROM+77E

; CLERR FLAG

:CLEAR BUFFER
,FRO
:DQTR

CSRJIGBO,RPO4
'S & DSKLS CTRLRI

CZRJIGB.PLI
4980
4981

:ggg

032252

08-NOV-77 08:30
012737

177400

MARCYIl

30(1046)

172

002110

4987
4388
4989
4990
49

032260

G32264
(32270
032274
(032302
833382

012700

01270,
01370;
012737
022021
1424

002110

003154
000400
000401

5000
5001
5002
§003
5004
5005
SO0E
5007
gggg
5010

6011
5012
6013
€014
%812

g§C.7
Hol-]
€Ci§
Hor-is

032336

022021

032390
032344
032350
032356
03338

017746
042716
022726
00S302
0Gi39E

146574
177177
000200

177400

; ®NOW

DRTR

BUFFER

8177400, J8WRFROM

READ

SWRFROM, RO

SEG 0129
FIRST

LOCATION

ONLY

;EXPECTED DATH

CHECKED

:GOOD DATA

"DRTA RERD
: COUNTER
;FOR ERROR WORD NO
: COMPARE cooo HITH REARD BUFFER
ERQNCH ;r

SUB

5.&3 E

808
uono NO

3%:

ERROR
BR
ERROR

Y
4$
&

:ERROR ON READ DAT
'BRANCH TO AYOID PRINTING NEXT ERRCR
'WORD NO 1-10 ARE DAT

4s:

CMP

1§:

757

4996 032326 001002
104004
000401
104005

DRTR

127

#RE INTO R1
#256. ,R2
0257 JIWERWORD
(RO)+. (RI)+
2$

4994 835312 1 0§g7 8q§é§8
032330
(032332
032334

PRGE

MOV
MOV
MOV
CMP
BEQ

4995 032322 005737 002006
4987
4998
4999

M10

: $EXPECTED

MOV

047620

08:S4

BUS ADDRESS INWIBIT
foV

:ggg

4986

0B8-NOV-?7

BNE

2%:

MOV
BIC
CMP
NEC
BNE

acéRrLcs
33

(RO)+, (R1)+

JSWR, = (SP)
817217727 .sp)
#SW07, (4P +
R2
13

ERRORS ALREADY THERE

:IF YES énnucu oo nor TYPE HEADER

: WORDS
:WORD NOS 11-256 HAVE NOT BEEN
'READ AND BUFFER SHOULD BE
:ZERO IF OTHER THAN ZERO
: JRONG NUMBER OF WORDS HAVE
:BEEN RERD IN THE DISK NOW
:CONTARINS 177400 ALL 256
*WORDS BUT ONLY 10 WORDS
{SHOULD BE READ IN
;UNDO -(RO)

nno -(R1)

FOR ERROR

'GET SWITCH SETTIN c
KEEP ONLY SWITCH
7 AND 8
‘1S7 SET AND 8 RESET
: COUNT
:BRANCH IF NOT COMPLETE

CZRJGBO,RPO4-5

CERICB. P11
5021

& DSKLS CTRLRI

08-NOV--7 08:30

MACY1l 30(1046)

172

08-NOV-77

08:S54

N1O

BUS RDDRESS INMIBIT

PRGE 128

SEG 0130

ggsg

032364

012706

©£01000

MOV

#STACK, SP

sRESET STACK

6024

032410

004037

042532

JSR

RO, 98CLARER

:CLEAR SIMULATED DISK

5026
5027

0324i6
032420

052414
177400

"WORD
CWORD

DISK+776
177400

170
:DRTA

G025

2059
2839

022414

032422

6034

032434

5036

032446

6035

£037
5038
5039
SO40
ES:é

2833
SO45

032430

012737

010000

047500

MOV

112737

000001

047502

MOVB

005037

047506

105037

(032442

005037

032452
032460
032464

012737
005037
004537

032470
032472

032474

047500
051300

004737

047503

047504

000001
047510
044022

013711
012777
012777
052711

002066
177777
160000
001400

061
6082
6063
5054

032530
032536
032542

112766
012677
012777

000000
147102
014000

032550

005077

062777
00S037
004737

147076

GOOOLD
002008
047340

ggga

032604

011137

001126

§065

032610

022737

145670

068

032606

010137

042264

§057
5058
2823
5061
5062

066

032524

032S6E
032574
032600

032616

112746

001406

047560

§070
€071
5072
€073
€074

032632

104001

000001

032634
032640
032644

013746
052716
012637

001774
004110
001124

032eS4

0237237

001124

€075 032650 011237 00112e
§07&

:CYLINDER O,

81, 98SECOTR

:SECTOR 1

98SECOTR+I

CLR

INKEY1

MOV
CLR
JSR

1., 94DAWORD
oux’
RS, 38CRC

cyL
WCRC

IsKEY2

147120

1471149
000001

PC, 38CLDISK

MOVB

8], -(SP)

MOVB
MOV
MOV

147100

CLR

147042

18:

001126

:TRACK O

1& BITS PER WORC FORMAT

s KEY1=0

:KEY2=0

:NO. OF DATR WORDS
:THIS IS A RERD COMMAND
:GO TO CALCULARTE CRC

aoksnonr 3R1
RHAUC
0150000JRHBA
sAI6'AL?, IR1

s SETUP GENERAL REGISTERS

RERD DATA INTO RHCS1=70
10 DARTAWORDS
srnnrxno ADORESS OF READ BUFFER
.IS 760000
:IN LOWER BYTE GET SECTOR |

90 1(5P)
"GET TRACKO IN UPPER BYTE
(S®)+ . JRHDST
: TRRCK/SECTOR IN RHCST
#FMT22'ECI, JRHOF' ;16 BITS PER WORD
,tcc CORRECTION INHIBIT BECRUSE
JRHCA

;ECC IS NOT CHECKED HERE
:CYLINDER O

BIS
CLR
JSR

#BA1, JRHCS2
JRERFLGS
PC, 38COMHD

ser BUS noonsss INHIBIT
:CLEAR ERROR FLAG
:READ DATA

MOV

JR1,

s TEST DATA

CMP

2s:
001126

ISR

MOV
MOV
MLV
B13

5067 032620 012737 144270 001124
S069

' FROM

SFMT22, INCYL

CLRB

CLR

04261M

032500
032504
032512
032520

§05s
€056

DISK

: xTHESE ARE REGULAR SETUPS

6046
047
€348
SO49
S0S0

_WORD

:#THESE RRE TO SETUP FOR DISKLESS USE OMNLY

§032

6033

0S1416

8SBODAT

8SC! TRE'DVA'A16!RL17'ROY! 70, 388BDDRT

; COMPARE RHCSI

BEQ

MOV

BRANCH IF' GOOD

MOY

ERROR

R1, 98REGADR
1

iR EGISTER RWESI

MOV
BIS
MOV

'MEMORY DID
NOT SET
:REQUIRED esz
IWUNIT, - (SP)
IGET UNIT NUMBER
sNEM! IR!BAI, (SP)
: INCLUDE NEM BRI AND IR
(SP,+, 988GDDART

CMP

aastooar,asseoonf conpgqs RHCS2

MOV

#SC!TRE'DVR'RDY'?O J4SCDDAY : GOOD DRTA

JRe ahsaoonr

REFERENCE NON EXISTANT

'YEST DAT

CIRJGBO,RPON-S E DSkLC _CTRLRY

L;RJUB AL
SO0TT

032662

08-NOV-77 08:30
001403

MACYll 30:1046)

173

022664
032670

010237
104001

C42264

032672

017737

146736

001126

S083

032700

022737

160000

001126

160000
001634

u0ile4
0422€M4

5089
5090
§09!
§092
5243
S0Qw
ggac

032706
032710
032716
032724
032726

001407
012737
013737
104001

MOV
ERROR
23%:

MOY

cMP

BEQ
MOV
MOV

ERROR
“s:

08:54

Bll

PAGE 129

KHCS2 - BIT # 11 - NEM
BEQ

5078
5079
5080
2885

5084
8085
5086
§087
5088

08-NOV-77

SEG 0121

R2, J8REGRDR
|1

:REGISTER ADDRESS
'REFRENCING NONEXISTANT MEMORY
: CAUSED nN ERROR SHOULD SET NEM
JRHBR, 388BDDAT ; TEST DATA

8160000, 38$BDDAT

conpnns RHBA

4$
; BRANCH ir GOOD
#160000, 3#SGODAT: GOOD DARTA
JWRHBA, O8REGADR;REGISTER ADORESS RHBA
|
FTER A NON EXISTANT MEMORY ERRCR
RHBQ DOES NOT HAVE 160002

CORJGBO,RPOM S & DSKLS CTRLRI

08-NOV-T7 08:30

CZRIGB.PIL

MACYLi 30(1046)

173

08-NOV-?7

08:54

Cll

PAGE

RHCS2 - BIT & 11 - NEM

130

s09v
§098

8101

€105

g;gg

§110

032730

032742

012706

004737

032746

012700

032752
032756

012701
010021

5118

8357 4

8137 0

8116

§117

032760
032762

720

032774

006100
10337S

01e701

010021

§:18
€119
§§§9

032776
033000
033002

000261
006100
103774

§122

033004

004037

124
gi%&

033012
033014

0041582
000001

§123

001000

MOV

042614

JSR

033010

003254

000001

063i54

MOV

18:

177776

003214

2s:

042532

0330!6

012700

033030
033032

006100
10337%

033022
033026

€135
136

138
€139

0000CI

012701
010021

O0OSI4ie

033034
033040

012700
812721

177776
0S145€

033046
033050

000261
006100

€42

033054

004037

€144
5432

033062
033064

052414
000000

€137
g;:?
b

£143

033044

033082

033060

010021

103774

0OSISIE

D42E32

g;:g

{RESET STACK

:INIT AND SET UP GENERAL REGISTERS

:GETTING RFADY TO FLOAT 1

RO
18

:GET 1 ONE BIT LEFTY
:BRANCH IF 16 NOT DONE

sREINTO,R1
RO, (R134

MOV

'§77778 RO

ROL
acc

MOV

:STARTING ADDRESS WHERE 1 GOES
:MOVE FLORTING 1
:GETTING

RERDY TS FLOAT O

sREINTO4 (16.#2>
Rl ;STARTING ADORESS WHERE 177776 GOES

RO, (R1)+

:MOVE IN FLOATING O

SEC
ROL
BCS

RO
2s

:SET CARRY
‘GET O ONE BIT LEFT
:BRANCH IF 16 NOT DONE

JSR

RO, 38CLARER

:FILL REST OF BUFFER WITH !

.WORD
TWORD

REINTO+776
1

2 0)
‘WITH DATA

REINTO+¢32.%2>

MOV

33:

4§ :

MOV
MOV

¢l RO

s0iSK RI
RO, (Ri)+

:FROM

IS TO BE RERD

;c;rrxuc READY TO FLOART 1

'STARTING ADDRESS WHERE 1 GUES
‘MOVE FLOATING 1

ROL
BCC

RO
3$

MOV
MOV
MOV

8177776, R0
sGETTING RERDY TO FLORT O
80ISK+<16.
%2> Rl -grnnrxng nognsss WHERE 1777786 GOES

RO, (R1)+

BCS

RO
4s

*SET CARRY
:GET O ONE BIT LEFTY
:BRANCH If 16 NOT DONE

JSR

RO, 98CLAREA

:FILL REST OF BUFFER WITH O

-WORD
CWORD

DISK+776
O

170
:WITH DATA

SEC
ROL

_WORD

DISK+(32.#2>

:GET 1| ONE BIT LEFT
'BRANCH IF 16 NOT DONE

-MOVE FLOATIN

: FROM

: #CHANGE FIFTH WORD TO O ON DISK

032066

005037

051426

CLR

I8DISK+10

€lE]

C330Te

004737

043652

JSR

FC . 38WRCHDOA

#!,RO

€149
€.6C

.#SET UP SIMULATED DISK WITH WHAT

£130
€131

€132
g;gg

#STACK, SP

PC,38CLDISK

MOV
MOV

_WORD

2555

S129

; #SET UP "REINTO” FOR WHAT 1S TO BE RERD

Siii
Sile

€113
114

P10 SRS 3k HORRY RQNBERLIVECOF, o

gggg
4

‘16 WORDS OF FLORTING ZEROS (EG. 177?76, 177775,

gigg
5104

: Y

023072

008037

00z00€

CLR

ISERFLGS

:CLEAR FIFTH WORD ON DISK

:CLEAR ERROR FLAG

:WRITE CHECK DRTRA
:CYLINDER O,

TRACK

SEJTCR

66
OO

L g Cg

n B0 Bt 0

e Bt B

Dt s e oon

s B

Bt Bt e Bt 0 s B

MRCY!1

39 Ll
7

08-NOV-?7

WRITE

08:54

D1l

CHECK ERROR

PAGE 131

SEG 0133

:KEYS

32 WORDS.

;#IF THE PROGRAM COMES BRCK MERE THEN WRITE CHECK
'#HAS BEEN LOMPLETED,

NOW WRITE CHMECK ERRGR BIT

IS TESTED

00
WWWwnN——-

e Bt Bt Pt ot
s P P

oL 8 :mmmgm

! #ALONG WITH RHWC FOR PROPER WORD COUNT AND RHBA FOR ADORESS
000000000
W) W W
[RINIRININ
I AINININ

N
P88BIRR
LS8 BB IRR2ER2S
—~OVO
'J*J-q-hra-a-rr:mmrr'g:o"tro*g;a'gmm
NN LWNU—-OVOD)
nrLwh—0Wo~ICCNEW

Bt Bt Bt Pt Pt Pt Pm Pt Bt Pe Pt Pt e e s et Pt Bt ot Pt Pt Pe Pe Pt e s pa pa

rit
00

Lnuainenanivinunoaein
T
it
nn
i unininionicniniununin g i

O,RPO4 § & DSKLS _CTRLRI
Bl
08-NOV-77T 08:30

033140

013746
052716
004737
022637
001407
032737
001002
10401
000401

MOV

Qgul?74
040300
Q4eee0
001712
040000

BIS
JSR
cMP

BEQ
BIT
BNE
ERROR
BR

00171z

104017

% ¥

ERROK

JWUNIT, -(SP)

:GET UNIT NUMBER

68
8ICE, 28CS2
cs
17
6%

:BRANCH IF GOOD
)
CHECK ERROR HIGH?
‘WRITE
:BRANCH IF ERROR NOT DUE TO "WCE’
:RHDB CONTAINS FRILING WORC
:RHBA CONTAINS ADDRESS+2

#IR!'ORVWCE, (SP) ;ONLY BIT & SHOULD BE SET
PC, 38PUTRES
:SAVE REGISTERS
(SP)+,d8CS2
:COMPARE RHCS?2

;OF THE WORD IN MEMORY FROM

; THE DISK THAT DID NOT COMPARE
;TRE AND SC WILL BE SET DUE YC

;WCE WRS CORRECTLY NOT SET

WCE

;BUT SOME BITS OTHER THAN
IR AND UNIT NO.

WERE SET

157

JWRH70

168

:SKIP RH70 CODE AND DU RH1l IF NOT

CMP

8-24. , InC

:COMPARE RHWC RFTER A FORCED

001402
104017

BEQ
ERROR

178
17

:CHECK RHBA IF GOOD
.
:WORD COUNT REGISTER IN ERROR AFTER A

D331lee

goc421

15%

:BRANCH TO CONTINUE TEST

033164

022737

cMP

SREINTO+/8.22)
,d8BA :COMPRARE RHBA AFTER A FORCED

Q33172
033174

001415
104017

BEQ
ERROR

15%
17

:CONTINUE IF GOOD
:BUS ADORESS REGISTER IN ERROR AFTER

033178

000413

158

:SKIP RH11 CODE AND CONTINUE WITH TESTM

033200

0ee737

CMP

8-27. . 38WC

: COMPARE RHWC RFTER A FORCED

03320&
033210

001402
108C17

BEQ
ERROR

14%
17

:CHECK RHBA IF GOOD
)
'WORD COUNT REGISTER IN ERROR AFTER M

032elz2

000405

158

033214

022737

cMP

SREINTO+¢S.
#2> , 38BA; COMPARE RHBA AFTER FORCED

033222
033z24

00140}
104017

BEQ
ERROR

15%
17

033142
033146

005737
BCCl414

002043

033180

022737

1777S0

033:56
033160

003174

€S:

201706

ceivlo

0C1706

003166

001710

178:

169%:

INS:

BEQ

: TEST FOR RH?0 CONTROLLER

‘WRITE CHECK ERROR

!FORCED WRITE CHECK ERROR ON FIFTH WORD

;WRITE CHECK ERROR IN FIFTH WORD

:FORCED WRITE CHECK ERROR ON FIFTH WORD

:WRITE CHECK ERROR

:FORCED WRITE CHECK ERROR ON FIFTH WORD

:BRANCH TO CONTINUE TEST

-WRYTE CHECK ERROR IN FIFTH WORD

;CONTINUE IF GOOD _
:BUS ADDRESS REGISTER IN ERROR AFTER

; FORCED WRITE CHECK ERROR ON FIFTH WCRD

; #NOW CHECK MEMORY TO SEE

ANYTHING GOT DESTROYED

;#FILL "WRFROM” WITH WHAT SHOULD BE IN REINTO THEN CHECK
00sQ2?

0cCz2C0e

15%:

CLR

INERFLGS

; CLEAR ERROR FLRG

6
DSALS CTRLR]
CZRIGBO,RPO4/S

174

10%:

c42532

033270
033274
0332786
033300

08:54

Ell

WRITE CHECK ERROR
MOV

000001
coellc

Or—(@R
-3
—)
i
oo

033250
033254
033260
033262
033264
033266

MRACY11l 30(1046)

033232
033236
03324e
033244
033246

sl
e]e]
Q-0

JZRIGB.PLI

D8-NOV-77 08: 30

08-NOV-77

PAGE 132

#1,RO

:GETTING READY TO FLOAT |

MOV
MOV
ROL
BCC

sWRFROM R1
RO, (R4
RO
78

:START ADDRESS WHERE 1 GCES
‘MOVE FLOQTING 1
'GET 1| ONE BIT LEFY
:BRANCH IF 16 NOT DONE

MOV

MOV
MOV
SEC
ROL
BCS

8177776, R0

SWRFROM+ (16. %2>, Al .STARTING ADDRESS WHERE 177776 GOES
noOE IN FLOATING O
RO, (R1)+
'SET CARRY
:GET O ONE BIT LEFT
RO
:BRANCH IF CARRY SET
108

.GETTING READY TO FLOAT O

JSR
"WORD

RO, a#CLAREA
WRFROM+¢32.#2>

:FILL REST OF BUFFER WITH 1
;FROM

.WORD

WRFROM+?776

; 7O
;WITH DRTA

: #NOW THE REARD BUFFER WILL BE CHECKED

JSR

043510

WRFROM
REINTO
256.
118
128

03332¢
104004
000207
104008

033330

gocec?

033332

20C240

11%:

12%:

3%:

ERROR

RO, 3#COMPAR

CHECK

GOOD BUFFER
:TEST BUFFER
"NUMBER OF WORDS CHECKED
:RETURN POINT FOR ERROR HERDER
:RETURN POINT FOR ERROR DARTR
;READ NEXT ERROR S

RTS
ERROR

PC
S

"RETURN TO COMPARISON SUBROUTINE
G
‘DATA IN REINTO BUFFER

RTS

RETURN TO0 COMPARISON SUBROUTINE

NOP

R WRITE
:CHANGED AFTER
:CHECK DATA COMMAND
:WORD NO_CONTARINS THE WORD
*NUMBER THAT GOT CHANGED

:ONLY A BRANCH POINT

SEG 0134

5250
§25]
§252
gsgg

033336

0l2T0e

001000

(08-NOV-77

5385

F1ll

WRITE CHECK ERROR

MOV

§S§§

08:S4

: *NOW

PAGE

#STACK, SP
SEE

THAT

FORMAT

133

{RESET STACK
ERROR

BIT

GOT

SET

gggg

033720

004737

042220

§260
Se6i

033724
033734

022737
104020

100020

£262
5263
S2e4
€565
5266
g6

£%:
O0O01T16

JSR

PC, 3%PUTREG

:SAVE REGISTERS

CMP
ERROR

8FER'DCK, 28ER]
20

FORHRT ERROR SHOULD BE SET
16 BIT PER WORD READ WAS ATTEMPTEC

unen THE DISK
HAD
:THE FORMAT BIT=0= 18 BITS PER
‘WORD THE READ
WAS
COMPLETED eur ERROR REG
:WAS NOT RIG
:NGTE DCK HILL BE SET BECAUSE
{ECC HAS NOT BEEN GENERATEL

W
wn

08-NOV-

39&
1046)

[&]

X5R138. 811

MRCY1l

c<RJGBO,RPO4'S &
OSKL§~CTRLR6

CZRJGBO,RPO4 S 6 DSKLS CTRLR1

CoRIGB.PIL

08-NOv-T7 08:30

MACY1l 30(1046)

176

5271

g§ar

012706

001000

033752

012737

17?777

033760
033764

004037
0S141b

042532

§28S

033772

005037

047500

€289

034012

005037

047506

034036
034040

052636
052646

§2~8

827
S28C
€281

§282
§283

5284

€286
€287
S288

290
§29]
§292
5293
gggg

253%

033766
033770

033776
034002
034006
034016
034024
(034032

105037
105037
005037

012737
012737
004537

034042

004037

§300
£301

034050
034052

002116
128252

034046

£302
303

034054
034060

€30S
€308
5307
£308
€309

034074
034100
03410
034124
03413C

04°6l4

602110

042614
177774

00S077
012777
005077
013711
005237

14S5¢4
010000
145547
002060
002006

J47546
047810

€3]]

034134

004737

TOLGRP+16
O

CLR

ANCYL

CLR

JRKEY2

sRESET STACK

:SET FLAG SO THAT DATA SYNC

:AND DATA IS NOT READ
:CLERR SIMULATED DISK
:FROM
;TO
:DATA

"CYLINDER O, FORMAT 18 BIT WORDS

duSECOTR+1
d8SECOTR
dSKEY]

TRRC 0
:SECTOR O
.stx 0

., aououoao
81, I8X
RS. 38CRC

:NO OF onrn WORDS
:WRITE DAT
:GO0 10 CQLCULATE CRC

:KEY2 0

: #THESE ARER REGULAR SETUPS

JSR

WRFROM

WRFROM+6
125282

145544

047340

RO, 38CLARER

JSR
MOV

PC aoCLoxsx
-4 9

CLR
MOV
CLR
MOV
CLR

ORHDST
sFMT22, IRHOF
JRHCA
dsWRIDAT, aR1
aoen LGS’

MOV

145842

JSR

uuatnon aRHea
#COMHD

sFILL WRITE FROM BUFFER WITH 125252

: FROM

;TO
:DATA

:SETUP GENERRL REGISTERS
1256 DATA WORDS

:STARTING nooasss OF WRITE BUFFER
:TRACK=0 SECTOR=0
116 BITS PER WORD FORMAT
'CYLINDER O
:WRITE DATR=60
c EAR snnon FLAG
ers DAT

:#IF THE PROGRAM cbnes BACK HERE ' W1 THOUT ERROR PRINTOUTS

"#FROM THE “COMHDTM ROUTINE IT MEANS SECTOR GAP, SYNC BYTE
' ¢HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE MAVE GONE BY
:#aND SYNCS WERE CORRECTLY DETECTED

€314

€316

034140

004737

€318
€219
€320
€321
€322
€323
€334
£32c
326

034150
034152
034166
0341e2
034166
(34174
C34:7e
C3423C
CZ3<2C4

0C1041
0I2700
012701
012702
012737
(020021
Q01424
21037
CiWl2~

€217

RO, 98CLAREA
DISK

"WORD
WORD

WCYL
GCRC

£2iz
EZ13
£3ic

8-1,98NOSYNC

MOV
MOV
JSR

€304 034066 012777 002110 145540
€312

MOV

CLRB
CLRB
CLR

042532

004737
012777

#STACK, SP

: *THESE QRE SETUP ron DISKLESS USE ONLY

047503
047502
047504
000004
000001
044022

MOV

FRMATL: JSR
_WORD

052442
000000

S298

5299

PAGE 134

: #lJRONG FORMAT BIT
03374C

5277

(08:S4

ERROR REGISTER #1-BIT 4 -FORMAT ERROR

. #NOWA WRITE DATA WILL BE ATTEMPTED WITH

ESEu
7S

0B-NOV-77

Gll

034144

005737

:#DATR

042220

002006

000COC
0S:416
000004
000005

oQoliav
OC.ize

IS 70 BE CHECKED

JSR

18T

0O47e2C

1§:

BNE
MOV
MOV
MOV
MOV
CMP
BEG
MOV
M

PC . 98PUTREG

aothLcs

no RO
sotsx R1
Re
os I8ERWORD
RO, (RI)+

k1
RO, 288GDDAT

- R1,.a83B0DATM

:SAVE REGISTERS

{HAS ANY ennons OCCURED”

: BRANCH 1 YES
:GOOD DAT
:DATA unxrveu INTO “DISkTM
: COUNTER
'FOR ERROR WORD
: COMPARE GOOD DQTfi WITH DATA ON DISK
:BRANCH IF GOOD
:GOOD DATA
:BRD DRTA

§32°

034210

160237

§328
€329
£330
€331
£332
5333
€334
§335

034214
034220
034222

005°3T
001082
104CO4

034224

000401

6337

034230

005721

336

5338
8333

5340

8§34]

€342
gg:a

034226

047e2C

(£02006

0I7746

144702

034242

2r2b

000200

034346

034250
034252

ovaTle

1402

c§:

ITTITT

£3s2
FEEN
S3te
iz

R2, 38ERWORD

B8R

S§

SANY ERRORS ALRERDY THERE"
:BRANCH IF YES
ERROR ON WRITE onrq COMMANG
:ONA WRITE DATAW
:WIRONG FCRMAT NO onrn
:SHOULD BE WRITTEN
:WORD NO GIVES WORD IN ERRCP
"BRANCH TO AVOID PRINTING NE<T ERFLF

(R1)+

:UNDO ~(R]) FOR ?no DATA

81771777 (5P,

KEEP ONLY SWITCH7 AND 8

ERROR

TST

MOV
BIC

CMP

00t£302
001348

3%:

=§:E

€347
S34g
€343

SuB

757
BNE
ERROR

104005

034232
0342

BEQ

DEC
BNE

:#NOW

(034254
S3udEw

022737
104027

000220

OCITIE

48:

cMP
ERROR

: ERROR WORD NG

JNERFLGS
23
Y

JSWR, - (SP;

n§u07,fép)+

SWITCH SETTIN

13 SET AND 8 RESET.
BRANCH IF YES

R2
13
CHECK

‘GET

' 1F NOT cou~1 256 WORDS
:BRANCH IF 25& NOT DONE
TG

SEE

#FER, J8ER]
20

THAT

FORMAT

ERROR BIT

GOT

SET

:FORMAT ERROR SHOULD BE SET
‘A 16 BIT PER WORD WRITE DATA
:WAS ATTEMPTED WHEN THE DISv

‘HAD THE FORMAT BIT =0-18
BITS PER uono THE JARITE
WRS CORRECTLY ABORTED
‘BLT ERROR PEG. 1 WAS WRCNa

[ @]

€«

H1l

MRCriIL 3001046
08-NOV-77 (08:54
PAGE 135
176
ERROR REGISTER #1-BIT 4 -FORMAT ERROR

coRJSGBO,RPON S 6 DSKLS CTRLRI
SRIGB.P11
08-NOV-TT 08:30

CIRIGBO,RPOM § & DSKLS CTRLRLI

JSRIGB. B,AL
5355
§356

08-NOV-=7 08:30

MACYIl

30l 04e)

08-NOv-?7

sRESET STACK

sRAHCA, R
(RO)+.RS

:RS HAS ADDRESS OF REG. UNDER TEST

JsUNIT,dRHCS2

;REINSTATE UMIT NO.

00100C

MOV

§359
€360

034320
034324

012700
012005

001652

MOV
MOV

gggg

034334

013777

001274

8361

034326

052777

042614

000040

145302
145274

§§§§

034342

013777

€368

034350

012777

§371

034372

052777

0344CE

005077

§372
gg;q

3325
§377

€378
§379
§gg?

JSR

PC, auCLDISK

BIS

#CLR, JRHCS2

MOV

:CLERR DISK

.#SET UP FOR AN OPERATION (WRITE HERDER AND DATA)

gggg

53e9
5370

18:

2%:

136

#STACK, SP

012706

004737

PQGE

~FORMAT ERROR

(034270

034302

ERROR REGISTER #1-BIT

6367

€358

(0B:S4

034356
034364
034400

034412

034416
034420
Q34422

002064

145270

MOV

J#WRIFOR, dRHCS

;¥§xgficg§noen AND DATR=62

177766

145254

MOV

#-10. , IRHWC

:10 WORDS

0000i0

145236

BIS

012777
012777

002110
000010

012777

010000

DO4037
001640
003154
00001e

145240

145350
145252

145242

MOV
MOV

sWRFROM, 3RHBA : BUS ADDRESS = WRFROM
810, JRHOST
:DESIRED TRACK=0, SECTOR=10

MOV

sFMT22, JRHOF

CLR

s8R}, IRHCS2
JRHCA

. ¥SAVE REGISTERS
JSR
RO, 8SAVER

043306

RHCS ]
REINTG
14.

!BUS ADDRESS INCREMENT INHIBIT

:FORMAT 16 BIT WORDS
:CYLINDER =0

: SAVE

FROM
170
:NUMBER OF REGISTERS SAVED

£382

. #NOW THE COMMAND IS GIVES T0

gggg

: #HRS PRSSED

5383
5384

§387

:#WRITE HEADER AND DATR FOR CYL=0. SECTOR=10
:¥TRACK=0 IT COMES BACK RFTER ONE SECTOR
034424

012777

000001

034436

012715

177872

€388

034432

£39]
£292

Q34442
034450

052737
052737

000001
000004

€39c
gggg

Q34472
034500

0S2737
042737

0000C]1
000200

gggg

393
§394
-

034486
Q034464

008277

042737
052737

145202

000200
0490000

145226

003174
003156

003176
00317€

003154
0031S4

€423

e
w

8177672, 3RS

‘EgY gfi&’l?g ALL BITS EXCEPY

BIS
B1S

#0MD, S8REINTO+20°
: SET DMO IN SAVED REGISTER RHMR
#RMR, JSREINTO+2 ;3ET RMR IN SAVED REG. RHERI

8IS
BIC

8GO, J8REINTO
#RDY,WREINTO

BIC
8IS

SDRY | J8RE INTO+22
8ERR’ JMRE INT0+22

G0 TO RHCS]1 WITH &2

:CLEAR DRY IN RHDSI
:SET ERR IN RHDSI

sSET GO N SAVED REG. RHCSI
:CLERR RDY BIT

: #SAVE REGISTERS RGAIN SO THAT COMPARES CAN BE DONE

034506

034512
034E14
034S1e

004037

001640
002110
00001E

043306

JSR

RHCS!
WRFROM
1M,

E406

€407
E408

:SET_DIAGNOSTIC MODE

JRHCS]

:#AFTER AN ATTEMPT TO WRITE INTO A REGISTER

gagg
€402
£403
5:83

#0MD, JRHMR

INC

MOV

£39g

€401

MOV

RO, 98SAVER

: SAVE

'FROM
;70
*NUMBER

““é UPPER BYTE OF RHAS CAN BE CHANGING IN R DUAL PORTY

C2482C

113737

003173

002:27

*#OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
"#S0 THRT THE COMPARES ARE ONLY VALID FOR THE _OWER BYTE

fOVB

SSREINTO+17, J8WRFROM+ 17 ; SAVE UPPER RHAS

SEG 01

~RJ3BO,RP0O4 S & DSKLS _CTRLRI
08-NOV-TT 08-30
CZRuuB Pl

MRCYLL

39 P o4e)
77

v nnwwninin
£L PPy
Iy
LAV 1Y) e Pt Bt Pt Pt Pt p-o
-0 DO
nN LW

5411
S4le

J11

08:54_PAGE 137
08-NOV-77_
RHER]1 - BIT #2 - REG. MODIFICRTION REFUSED
; #*COMPARE REGISTERS BEFORE ARTTEMPTED WRITE WITH RFTER

034526

004037
003154
002110

JSR
REINTO

043510

001636

Ou4ezeH

TEST BUFFER

4g
43
S§
MOV
RDD

RETURN FOR ERROR
: SAME
:RETURN FOR GOOD COMPARISON
:GETTING READY TO INDEX
AooueLE ERROR WORD

MOV

ERROR
RTS

03020?

conpnfl
0 BUFFER

WRFROM

NUMBER

14.

047620

034564

RO, 2COMPAR

S8ERWORD, RS
RS, RS

RHCSI-2(RS), JwRES aon
-FAILING REG. ADDRESS
ONTENTS OF REGIS ER
|

cnnncso WIT

nN ATTEMPT ro upxrs
URING AN ops T10

:THE FOLLOWING CLEAR nn? SET THE AR BIT escnuss 30 IS HIGH

034566

00737

C42e 14

£3:

3sn

PC,28C._DISK

: CLEAR DISK

SEG 2139

RJGBO,RPO4 -5 & DSKLS CTRLRI
LBl
08-NOV-77 08:30

MRCYLll

30 ul 046)
T Fird

K11

08-NOV-77
08:54_
PRGE 138
RHER! - BIT #2 - REG. MODIFICATION REFUSED

S & DSKLS CTRLRé
O4
J
<RJGBO,RP

SRIGB.P11
5439
SS90
S44
]
Sua2
E443

08-NOV->7 08:3

MRCY1l

39 ( 1 g46)
1 s} 1

08-NOV-77

ERROR REG!

08:54

L1l

PRGE

139

- BIT #7 - HERDER COMPARE ERROR

SEG O1M)

CoRJGBO,RPOM.
S & DSKLS CTRLRI
CeRJGB.PL!
08-NOV-T7 08:30

Sudy
445
SH4E

Syu”~

MACY11

30(1046)
T103

MLl1

08-NOV-77
08:54
PARGE 140
ERROR REG! - BIT 8?7 - HERDER COMPRRE ERRCOR

SEG J1v2

08-NOV-77 08:30

T10S

MACYL11l 30(1046)

Nty

RPO4 S 6 DSKLS CTRLRI

08-NOV-77

08:S4

N1l

PRGE 141

ERROR REG.1 - BIT a7 - HEARDER COMPARE ERROR

SEG 0143

S4S4
cu4ssS
5456
sS4’

2SRIGB. i1

-« x

6 [S L
CoRIGBO,RPOM-S.

08-NO ferr 08:

MACY11L

3o ( 1 g 46)
i0
7

08:54

Ble
PAGE

142

08-NOV-7
R
ERROR REG.1 - BIT #7 - HERDER COMPARE ERRO

SEC 2144

CoRJGBO,RPOM-S 6 DSALS CTRLRI

CZRIGB. P!
s458
4S9

S460

08-NOV-T7 08:30

MACY1L! 3011046)

T110

08-NOV-77

08:S4

Cle

PRGE 143

RHERL1 - BIT #8 - CRC ERRCR (RERDING)

SEQ Civs

6 DSKLS_CTRLR|
C<RJIGBO, RPOY S
8-NOV~-77 08:30
CSRJIGB. P11

30(1046)
Ti11

Dle

PAGE 144
_08:S4_
08-NOV-77
RHER]1 - BIT 8 - CRC ERROR (WRITING)

SEG Cl4e

; #SET UP FOR THE TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING
035650
035654
035656
035660
035664

00S737
001401
000402
000137

757

0GaC3e
036334

wn
1]

5462
Sup3
S4b4
E4ES
5466
SubT
5468
§4p3
§470
g
h
5473
o

MRCYL1l

BEQ
BR
JMP

!TREAT RS RPOB - DO NEXT "MAKECLTM & TEST
:D0 SECOND FOLLOWING "MAKECLTM AND TEST

:GET RHDS1

oPRoc (SP)
:CLEAR_PROG
sLST!OPRIDRY! VvV, tsP)+ xs LST' HIGH ?

GOOD
BRANGH
Ss
J8RHDSI S8REGRDR’ rnxanc REG. ADDRESS

DATA
sLST! oph DRY!VV, abscoonr:GOOD
; BAD_DRTA’

Qu4eebH
00ile4
00il1e26

C3k3ic

38
J8D0G

;MOVE RPOS FLRG TO ITSELF TO TEST
= 0 TREAT DRIVE AS RPOY4
;IF

J80S1, - (SP)

4s:

036252

J¥RPO6
23

acosx 98$BDDAT

*LST’

DID NOT SET RFTER

'LAST SECTOR ON LAST TRACK
:ON LAST CYLINDER WRS

IWRITTEN
036314

go1ie40

03e32e

000000
000200

23633C

000127

036324

cs:
6s:

037000

MOV
WART
0
RO

d8RHCS!, 3868

JMP

a8CAT

:VV BIT

#6 MAY OR MAY NOT BE HIGH

{SET UP “WAT" SUBROUTINE
;RHCS1

ADDRESS

iWAIT FOR RERDY
:OON'T DO THE RPO4 "LST®

YEST FOLLOWING

0,RPO4 S & DSKLS CTRLRI

P11

T08-NOV-T7 08:30

MACY1l 30(1046)

T113

PUTV IR 0 0= 0 b=t bt bt P s o P
nuunininnninnnn
a
Wh—Owo NI LWh—0

036334

036722

036726
036732
036736
036740
036746
036754
036762

08-NOV-77

08:S4

Ele

PAGE 145

RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, 'LST’

DOG:

013746

042716
022726
001412
013737
012737
013737
104001

001736

001000
002700
001662
002700
001736

48 :

Q42264
00II24
001126

MOV

BIC
CMP
BEQ
MOV
MOV
MOV

ERROR

38051, - (SP)

:GET RHDS!

$PROG| (SP)
! CLEAR PROG BIT
sLST!OPR!DRY!
VV, ISP)+ . 1S 'LST' HIGH ?
s
WAIT FOR'REV' IF COOD
JWRHDS1, JWRESADR i FAILING REG. ADDRESS
8LST!DPRIDRY!VV, abscoonr;GOOD DATA
aoosx 9#$BODAT ' ;BAD_DATA'
*7LST’ DID NOT SET AFTER
!LAST SECTOR ON LAST TRACK ON LasT

'CYLINDER WAS WRITTEN - Vv’ BIT #&
!MAY OR MAY NOT BE HIGH

036764

013737

03c-?4
C3e~?e

000003
000200

036772

104415

001640

036774

G§:
63:

MOV

WAT

0
RCY

2WRHCS1,a868

:SET UP “WATTM SUBROUTINE
:RHCS! ADDRESS
;WRIT FOR 'ROY"

BIT

SEG 0147

CZRJL.BO RPO4-S
RJGB. f11
5524
5525

6
6 DSKLS_CTRLR]
08-NOV-77 08:30

037000
03700¢
037014
037020
037030

012706
DON7 37
004037
0S1416
0Se44e
000000

MARCY1l

3 0(1 o 46)
Til S

CRT:

001000
g4ee i
042532

Fle

08-NOV-?7
08:54
PAGE 146
RHDS1 (B1T #10) - LAST SECTOR TRANSFERRED,

MOV

#STACK, SP

;RESET STACK

JSR
JSR

PC, asCLOISK
RO, OOCLQRER

:INIT AND SET_UP GENERAL REG. CORRES.
CLERR SIMULRARTED DISK

.WORD

-DQTR

.WORD
. WORD

DI
TOLGQP+16
TO

i FROM
T0

;#THESE

ARE

SETUP

FOR

DISKLESS USE

ONLY

157

J8RPO&

MOV

#S14. 'FMT22, 38CYL: CYLINDER 814.,

16 BITS PER WORD

MOV

#410. 'FMT22, a8CYL;CYLINDER 410.,

16 BITS PER WORD

:#AND WILL HANDLE RPOY OR RPO6 DRIVES
002036

03-040
037046

012737
000403

011458

047500

0370s0

012737

C1063e

047500

10%:

037056

112737
112737
00s037
00s037
a12737
012737
004537
047500
0S1400

000022
00002S
Q47504
Q47506
ooo400
000001
044022

047503
047502

118:

LWWWN
L

e Pt Bt Pt Pt Pt Pme

NNV

$ea Bm

e nunununoeniccTnuaunuTan
(G I U T TUa R IO T TV A TU ATV TNRT Y}
~ SINN
N NN NN N
O
DU NN L WO
DM 3

tV‘NIOg&Og-I%U’

005737
DO1404

e P

037032
037036

004037

BEQ

B8R

047546
D47S10

°'LST'

MOVB

MOVB
CLR
CLR
MOV
MOV
gsn
YL

108

:MOVE RPO6 FLAG TO ITSELF TO TEST

: TREART DRIVE RS RPO4 IF = O

118

;¥REAT DRIVE RS’RPOB
:YREAT DRIVE RS’ RPOY4

#18.,38SECOTR+1

821. 98SECOTR =
aoxe?1
JAKEY2
uass JSNOWORD
JnX
RS accnc

; TRACK

18.

;SECTOR 21.
'KEYLl O
‘KEYe 0
:NO OF onrn WORDS
‘WRITE DAT
:G0 T0 CRLCULHTE CRC

WCRC

gQ4es3e

04261y
177272
002110
00002S
0000e2
142446
010000

: #THESE

ARE

REGULAR

JSR

RO, 98CLAREA

SETUPS

WRFROM
WRFROM+ <256 . %2>

37?7

JSR
MOV
MOV
MOV
MOVR
MOV

142460
142454
00ooc!

MOV

142444

PC, 38CLDISK
8-326. , SRHWC
SWRFROM, 9RHBA
#21.,-(5P)
810 '1(5p
(5P
14 ARHOST
sFMT22, IRHOF

FILL WRITE BUFFER WITH 377

F
;To

;DATA

:SETUP GENERAL REGISTERS
:396. DATA WORDS
;STARTING RADDRESS OF WRITE BUFFER
:SECTOR 21.
PTRHCK 18,
:SECTOR 21. TRACK 18.

116 BITS PER WORD FORMAT

;#CHECK TO SEE WHAT TYPE OF DRIVE 1S BEING_TESTED
:#AND LOARD CYLINDER RDDRESS REGISTER WITH THE PROPER NUMBER
002036

001456

142432

000632

l4e4ee

157

JsRPO6

MOV
BR

IBIH .dRHCA
13

BEC

12%:
13%:

MOV

129

;MOVE FLQG TO_ITSELF

#410. ,JRHCA

TO TEST

+ TREART AS RPOY IF = O
:CYLINDEP 814,

; TREAT

RPO6

;CYLINDER 410.

SEG Clu8

CoRJGBO RPO4-5 & DSKLS_C TRLR]
SCRIGB. P11
OS-NOV- ] 08:30
23724¢
C3Te4e

013711

00s037?

116

Gle

PAGE 147
08:54
08-NOV=-77
ERRCR REGISTER 1 - BIT #9 ROE
MOV

002062
C02006

d8WRIDAT, ARI

CLR

043306

0372se
0372862

MRCYL1L 3? (1046)

003154
0000223

REGISTERS WILL

JSR
RHIWC

RO, 98SAVER

oo4r 37

;CLERR ERROR FLAG
BE SAVED

IN REINTC BUFFER

; SAVE
; FROM
;10

; NUMBER SAVED

; #GIVE

037264

:WRITE DRATA=60

ISERFLGS

;#THE

SEG 3149

JSR

O47340

WRITE

DATA

COMMAND

PC, 38COMHD

:WRITE DATA COMMAND

nnvIinIivIivY
oo
ehm

: #*CHANGE SAVED REGISTERS TO EXPECTED VALUES

157

J8RH70

:CHECK FOR RH70 CONTROLLER

037270
037274

00S737
001407

002040

037276
03”304

C1273?
012737

177702
003130

D37312

000406

037314
037322

012737
012737

177774
00331v

8%:

MOV

SWRFROM+ (2#256.> 4 <2266. ) , ISREINTC+2
:SAVED RAHBA SHOULD BE WRFRCM+25E+66

037330
037336
037344
037352
0373eC

052?737
042737

000200

012737
017737

:SKIP RH70 CODE AND DC RH11

MOV

8-76, 98REINTO

:SAVED RHWC SHOULD BE = 76 (OCTAL)

:SKIP NEXT RH11 CODE

8-4, ISREINTO

.SAVED RHWC SHOULD BE = 4

BIS
BIC

SOR, WREINTO+4
sIR'QSREINTO+4

;SAVED RHCS2
:SAVED RHCS2

MOV
MOV

#AOE , a8RE INTO+10 :SAVED RHER1 SHOULD HAVE °RAGE"
RHOST, ISREINTO+12; SAVED RHDST SHOULD HAVE=
;RADST IS UNDEFINED

;#CHECK

TO SEE WHAT

TS7T

J8RP0O6

MOV
8R
MOV

#815., 3sREINTO+20;
SAVED DESIRED CYLINDER RDORESS
153
- tRERT RS RPOE
8511.,38REINTO+20;
SAVED DESIRED CYLINDER RDDRESS

MOV

JBATTENT @SREINTO+24

MOV

BIS
142260

IF NOT

BEG

SWRFROM+
(22256 . > $(2#8.> , JBREINTO+2
:SAVED RHBA SHOULD BE WRFROM+256+€

8SC! TRE DeREINTO46; SAVED RHCS1 SHOULD HAVE °"SC° 3 °TRE"

TYPE

OF DRIVE

IS BEING TESTEC

'#AND SET UP CYLINDER RDDRESS ACCORDINGLY
037366
03737¢
D37374
037402
037404

00S737
001404
012737
000402
012737

037412
037420
037-2¢

013737

C32036

BEG

001487

003174

000633

003174

14%:

002016
00C00}
142000

303200
003e2Ge
003204

BIS
BIS

148

;MOVE RPOG FLAG TO ITSELF TO TEST
-TREAT RS RPO4 IF = 0O

:SAVED RMAS SHOULD HAVE RPPRC.

8DMD, 98RE INTO+26: SAVED RHMR
sATRIERRILST, sREINTO+30 ; SRVED RHDS!

;#AFTER A WRITE

DATR COMMAND WITH

°"AQOE'

ERROR

:#SAVE REGISTERS AGRIN SO THAT COMPARES CAN Bt DONE
037434
0237449

037442
FATUNN

043308

JSR

RHWC

WRFROM

i7.

RO.J8SAVER

; SAVE

:FROM

;10

:NUMBER OF REGISTERS SAVES

BIT

cZRIGBO.RPO4-S & DSKLS CTRLR!

CoRJGB.PLI

08-NOV-77 08:30

MACYL1 3011046)

Ti16

08-NOV-77

08:54

H12
PAGE

148

ERROR REGISTER 1 - BIT 3 ACE

5636

:#AS UPPER BYTE OF RHAS CAN BE CHANGING IN
& DUAL PORT

3238

:#S0 THART THE COMPARES ARE ONLY VALID FOR T-E LOWER BYTE

1% h
gg:?

:#OPERATION THE UPPER BYTE OF RHARS WILL BE SAVED AS IS
027446

113737

003201

002135

MOVB

S642

. #COMPARE REGISTERS BEFORE WRITE DATA COMMANC

2233

:#WITH AFTER COMMAND

SE4S

03T4SY

004037

043510

53
8654

O3T4T4
(037500

013705
06JS0S

047620

Se56
5657
gggg

0375i0

éfifi?

646
Sedr
Se48
5649
S6S0
gggé

JSR

RO, 38COMPAR

MOV
RDD

gusnuono RS

gsrrxnc RERSY
TO INDEX
UBLE ERRO

10400t

ERROR

g37c12

000207

RTS

FORCED AOE ERROR CAUSED IMPROPER
Rscxsrsa CHANGE
sgrgsnorgn FURTHER COMPARISONS

037814

205337

CLR

JMERFLGS

'CLEAR ERROR FLAG

. #DATA

JSR

PC, 38PUTREG

037460
037462
037464
037466
037470
037472

003154
002110
000021
037474
Q37474
037514

REINTO
uRrRon
s
18
as

5655 032502 016537 001630 J422e4
00200&

18:

2%:

EeE2
2223

S66ES

037520

004737

Se6b
Se6?
S668
669
5670
71
Se72
Se”3
Se74

037524
037530
037834
03754C
037546
037550
037682
037656
03

012700
012701
012702
012737
020021
Q01424
010037
014137
160237

€e”6
5677
8678
5679

037572
037574
03757
(037600

001002
104004
00040i
104005

€661
Ee82
€83

037604
037610
037614

017796
Q0M427iE
022726

042220

000377
0S1416
J004C0
DJ0040C

047e2C

3%:

001124
001126
047620

8675 037566 005737 002006

ge80
gggg

037602
02720

SE8e

027622

EEES

C3I7EZE

gggé

SREINT0+25, J#WRFROM+25:
SAVE UPPER RHAS

83764

00S721

0014C2
[£0S202

O0134E

c§:

v 1

TO BE

CHECKED HERE

: SAVE Recxsrsas

8377 RO
#0ISK,R1
#25E. . R2
#2556, ' J8ERWORD
RO,(R])+
6%
RO, 98SGDDAT
- R1} acseoonr
R2, asERW

15000
D
‘DATA unxrrsn INTG “DISKTM
coun ER
:FOR ERROR
W
A
conpnne cooo onTn WITH DATA ON DISK
:BRANCH IF GOOD
:G00D DRTA
:BAD DATA
'ERROR WORD
N

BNE
ERROR
BR
ERROR

4
S
§

*BRANCH IF YES
"ERROR ON WRITE DATA COMMAND WITH FORCED 'ACE"
'BRANCH TO AVOID PRINTING NEXT ERROR
‘WORD NO. GIVES uono xn ERROR

MOV
BIC
CMP

9SWR, - (5P,
e1771777 5Py
#5U07, &P+

:GET SWITCH SETTING
KEEP ONLY SWITCH 7 AND 8
IS7 SET AND 8 RESET

DEC

: IF NOT COUNT 256 WORDS

15T

BEG
£s:

RnacZ2REY, aonscboa-FAIL ING REG noo ESS

MOV
MOV
MOV
MOY
CMP
BEG
MOV
MOV
suB

IST

4§ :
141330
177177
000200

MOV

: COMPARE

:GOOD BUFFER
:TEST BUFFER
: NUMBE or REGISTERS
:RETURN FOR ERROR
: SAME
'RETURN FOR GOOD COMPARISON

BNE

aséancs
(R1,)+

:ANY ERRORS RLRERD\ THERE?

*UNDO -(R1) FOR BRD
D

:BRANCH OUT IF YES ==--==m=ecemm—mmeme

'BRANCH IF 25&. NOT GCNE

5690
g691
8632
86393

5634

S696

869"
8698
2639

037664

037676

00N737

012706

001000

03T702
03-~I0

012777
082777

000001
000004

0377le

042777

30(1046)

T116

MOV

O4eBIN

DOOODY

141750
141792
141734

5791

037724

037732
037736

012700
010077

003154
141672

S708
§-09

037742

012720

037746

Q12720

037762

0123720

§°0S
S70p
s7Qr

STIJ

STl
St12
S713

037752
037784
0377Se

8715

037766

STi4

€16
g0i7

5713

S720

€721
€782
£T23
ST}
£72¢

ST27

€28
€739
5537

0I2TT7

00S020
005020
012705
00S30S

177400

€738

€733

€740
€741
E>42
€742
Sowd

: *GIVE

INDEX PULSE

;CLEAR REGISTERS AND SET UNIT NC.

8$OMD, ARHMR
#MINX, QRHMR

BIC

SMINX . JRHMR

; #THESE

ARE

REGULAR

:SET DIAGNOSTIC MODE
iSET INDEX
:CLEAR INDEX
SETUPS

010000

MOV

sFMT22, (RO)+

012000

MOV

#12000, (RO)+

:FORMAT=16 BIT
i CYL INDER=0

000400

177777

012000

04C012

013711

002070

040Cle
040022
040030

005037
012777
00077

002006
010000
14lels

040034

004037

042306

MOV

;RESET STACK

;256 DATA

18:
141644

141620

CLR
CLR
MOV

MOV

(RO)+
(RO)+
#8256. RS

: TRACK=20 SECTOR=0 KEYS=0

IKEY1=0
KEY2:0
: COUNTER

18
812000, 3RHDST

;BRANCH_IF DATA NOT
i TRACK=20 SECTOR=0

MOV

JWREFOR, 3R1

CLR
MOV
CLR

MERFLGS
SFMT22, QRHOF
JRHCA

RO, 98SAVER

CCMPLETE

;GET READY FOR WRITE HEADE® &ND

:DATA WITH B2 IN RHCS!
iCLEAR_ERROR FLAG
{FORMAY BIT=1 (16 BIT WORDS!
; CYLINDER =0

+#THE REGISTERS Wl
L BE SAVED

RHWC
REINTO
19.

WORDS

iMOVE ALL ONES FOR DATA

BNE
MOV

WORDS 4 HERADER WORCS

THESE TWO INSTRUCTIONS GETS
:ADDR, OF WRFROM INTO RO ANG
:BUS ADDRESS REGISTER

8-1,(RO’+

DEC

Ysr

£73e
£734

#STACK, SP

PC,a8CDISK

#-256. , IRHWC

[~]

€735
£736

149

sREINTO RO
RO, JRHBA

001374
012777

OC1E32
003154
000023

PAGE

MOV
MOV

37770
037772

04004C
040042
040044

141700

08:54

JSR

foV
BIS

5:02

ST04

0B8-NOV-77

ERROR REGISTER 1 - BIT #3 ACE

; SAVE

IN REINTO BUFFER

: FROM
;70
i NUMBER

SAVED

;2GO TO WRITE HEADER AND DATA
Q40046

013700

001660

MOV

0400S2
040056

(12710
052777

000001
(0OOOOI

141854

MOV
BIS

Q400eY

0S2737

140000

003162

B1S

040072
Q4CIO0
040106
04014
CWllez

012737
017737
013737
062737
IE2737

002000
012001
002016
000001
[4000C

003164
003166
003200
0032902
002204

; #CHANGE

MOV
MOV
MOV
BIS
BIE

28RHMR, RO

80MD, IR0
8GO, ORHCS 1

;NOW RO WAS MAINTENANCE REG.

:SET DIAGNOSTIC MODE
;GO

SAVED REGISTERS TO EXPECTED VALUE

85C! TRE, S8REINTO+6_; SAVED RHCSI

s1AE, JSREINTO+10 ; SAVED RHERI
812001, JWREINTO+12; SAVED RHOST
S8ATTENT, IREINTO+29 ;SAVED RHAS
$DMD, JEREINTO+26 : SAVED RHMR
sATRIERR, QWREINTO430 :SAVED RHDS!

RDDR.

MACY1l

T08-NOV-TT 08:30

CSRIGBO,RPOY
S & DSKLS CTRLRI

CSRIGB.ALI1

<c<RJGBO,RPO4 'S & DSKLS CTRLRI

CSRIGB.P11

08-NOV-T7 08-3C

MRCY1l

30(1046)

T120

5746

Q40134

5050

040140

§~43

040136

001632

RHWC

002110

STEQ

§tel
S762
5763

O4ol42

SEG 0152

;

SAVE

FROH
T0

!NUMBER OF REGISTERS SAVED

113737

003201

:#S0 THAT THE COMPARES ARE ONLY VALID FOR THE _OWER BYTE
MOVB
QWREINTO+25, d#WRFROM+35; SAVE UPPER RHAS

002135

; #COMPARE REGISTERS BEFORE READ

04GIS0

040184
Q40156
040160
040164

040166

5768

040170

:#WITH AFTER COMMAND

0O4O037 043510

¥R

00315M
002110
000021

REINTO
KRFROM

Q40170

040210

013705

040174
040176
040204

060S0S
016537
104001

040206

000207

RO, 38COMPAR

047620

00163C

2s:

042264

MOV

ADD
MOV
ERROR
RTS

IN PRESET COMMAND

; COMPARE

:GOOD BUFFER
: TEST BUFFER
:NUMBER OF REGISTERS

RETURN FOR ERROR

;

SAME

{RETURN FOR GOOD COMPARISON
AWERWORD, RS

;GETTING READY TG

;MO ERRORS

OMBE2I0

Q004737

ON26IM

3%:

JER

INDEX

RS, RS
: DOUBLE ERROR_WORD
RRWC-2(RS) anREcAoa FAILING REG. RODRESS
1
FORSED TAE CAUSED IMPROPER
REGISTER CHANGE
PC
IRETURN FOR FURTHER COMPARISCNS

Err

277

150

:#AS UPPER BYTE OF RHAS CAN BE CHANGING IN
A DUAL PORT
; #OPERATION THE UPPER BYTE OF RHAS WILL BE_SAVED AS IS

286
S769
S-?0
§771
£
§T73

RO, JuSAV

19.

STed Q40162 Q40170

§76S

PRGE

WRFROM

000023

§m8”
558

5°E9

J1l2

ERROR REGISTER'1 - BIT 10 ’IRE’

¥R

§r82
§rE3

g~y
5155

(08:S4

XSAVE REGISTERS AGAIN SO_THAT COMPARES CAN BE DONE

€74~ 040130 0QQ4037 C43306

Sty

_08-NOV-77

PC.a38CLDISK

;cLEARR GO BIT

CeRIGBO,RPOY S & DSKLS CTRLRI

SERIZBATL
579
§780

So8-Rov=2 406550

MRCYl.

3011048)

T120

08-NOV-77

012706

001000

5783

§784

Q40234

012777

000001

141416

hov

5786

040250

Q42777

0OOD0Y

141402

BIC

040230

004737

MOV

042614

JSR

1CIVE

5785 Q40242 0S2777 000004 141410

BIS

g;gg

5790
§79]
£734
S736

Q40256
040264

012777
012700

177400
002110

040274
040300

012720
012720

010000
000026

040306

005020

5797

040304

§°99
S800

Q40310
040314

5798

5801
5802

5803
5805

5806

8807
5808
S809

005020

012705
Q12720

000400
177777

040320
040322

005305
001374

012777

000026

040344

013711

040350
040354

00S037
012777

040324

141346

18:

sMINX| JRHMR

3256. IRHUC
SWRFROM, R

;SET DIAGNOSTIC MODE

'SET INDEX

:CLEAR TNDEX

;256 DATA WORDS4 HEADER WORDS
! THESE TWO INSTRUCTIONS GETS

MOV

RO, ERABA ©

:ADDR. OF WRFROM INTO RO AND

MOV
MOV

sFMT22, (RO, +
822. , (RO)+

Eefi?ngexaoaxr WORDS
: TRACK=0, SECTOR=22, KEYS=0

CLR

(RO) +

MOV
MOV

'BUS ADDRESS REGISTER

(RO)4

'KEY=0

8256, RS
(ROY+

' COUNTER
:MOVE ALL ONES FOR DATH

‘KEY2=0

MOV

JWWRIFOR, 3R1

:GET READY FOR WRITE HEADER AND

002006
010000

CLR
MOV

JSERFLGS
$FMT22, aRHOF

141266

MOV

CLR

oaa.,aRHosr

ORHCA

; #RS_EXCEPTION

IF DATA NOT COMPLETE

: TRACK=0 SECTOR=22

‘DATA WITH B2 IN RHCS!
: CLERR ERROR FLAG
'FORMA BIT=1
(16 BIT WORDS)

: CYLINDER i,

IS RSSERTED BEFORE RUN

:#LATCHED RHWC,RHBA,RHCSI,RHCS2 CANNOT BE CHECKED

' »BECAUSE RHWC WILL' VARY DEPENDING UPON GATE CELAYS

'#ON DIFFERENT UNITS

040366

004037

€819

040372

001642

5821

040376

O0OOIS

040374

*THE REGISTERS WILL BE SAVED IN REINTO BUFFER
yoR
RO, a#SAVER
; SAVE

043306

RHER]

003154

! FROM

REINTO

13.

€e23

£829

ORHMR

onxnk IRHMR

‘CLEAR REGISTERS AND SET UNIT NC.

002064

£eid

Sg07

INDEX PULSE

:RESET STACK

;BRANCH

141312

Se1s

€826

¥STACK, SP

PC, 98CLDISK

SEG 01€3

Rg'
18

£8i3

€824
€825

MOV
MOV

CLR

ggl2

5820

151

DEC
BNE

S8IC 040362 005077 141264

Eg817
S818

PAGE

; *THESE ARE REGULAR SETUPS

§732 040270 0106077 141340

§-a3

Kle

ERROR REGISTER 1 - BIT #10 'IAE’

Q40216

5181

08:54

NJMBER SAVEC

;%60 TC WRITE HEADER AND DATA
QWOYO0

013700

001660

04040

052777

0OODOI

141222

Q40404

012710

00000I

MOV

28RHMR, RO

BIS

8GO, JRHCS
]

MOV

8DMD, 9RO

. NOW RO HAS MAINTENANCE REG.

'SET DIAGNOSTIC MODE

;GO

SCHANGE SAVEQ REGISTERS TQ EXPECTED VALUE

£83C

Q40416

012737

002000

003154

AoV

8IAE, JSREINTO

€e32
€633
£634

040432
040440
Owd4sE

013727
052737
0E2737

002016
000001
140000

003170
003172
003179

MOV
BIS
BIE

IsATYENT, SWREINYO+14
; SAVED RHAS
#OMD, SREINTG+16 ; 5avED
R
sRTA!ERR, J#RE INT0O+20 snveo RHDS|

Ee31 040424 012737 000027 003156

MOV

VED RHER!

N RREINTO+2: SAVED RHOGT

RCOR.

;GB0,RPO4

JuB A1l
5835
5836

583"

Q40454

5839
gg:g

Q4046e
Q40464

5838

Q4Q460

DSKLS _CTRLR]

OS-NOV-TT 08:3C
0Q0403T

0Qlede

MRCY11l

30(1046)

Tial

gg:g

RHER!

002110
0D0CIS

J40466

113737

DO4037
003154
002110
000015

SB8SS

(Q40SIi0

Q40514

5858

Q40Si4

013705

RO, 98SAVER

WRFROM
13.

.SGVE

; FROM

;10
:NUMBER OF REGISTERS SAVED

0C31T1

0O40S06

040S12

Q40520
040522
040530

03cl2s

fiOVB

dBREINTO+15, d8sUWRFROM+15; SAVE UPPER RHAS

040E32

‘#WITH AFTER COMMAND
JSR
RO, 38COMPAR
REINTO
WRFROM
13.

043510

O40SIM

040S34

06050S
016537
104001

301640

2s:

0O4z2e4

000207

MOV

RDD
MOV
ERRCOR

RTS

READ

IN PRESET

; COMPARE
:GOOD BUFFER
:TEST BUFFER
:NUMBER OF REGISTERS

;RETURN FOR ERROR

;RETURN FOR GOOD COMPARRISOM

JBERWORD, RS

; GETTING RERDY TO_

D04T3T

O42El4

38:

JER

INDEX

RS, RS
: DOUBLE ERROR WORD
RHtRl
-2(RS ., DIRECQDRFRILING REG. ADDRESS
FORCED IAE CAUSED IMPROPER
{REGISTER CHANGE
PC
:RETURN FOR FURTHER COMPARISCNS
;N0 ERRORS

CH40E2%

COMMAND

: SAME

047620

IN A DUAL PORT

: #OPERATION THE UPPER BYTE OF RHAS WILL BE SHVED AS IS
: 250 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

Eggg
5825

152

; *COMPARE REGISTERS BEFORE

Q4OM?Y
040500
040502
040504

S859
5860
5861
5862
ggga

PAGE

; #RS UPPER BYTE OF RHRS CAN BE CHANGING

5849
S8S0
5851
5852
5853
gggé

L12

ERROR REGISTER 1- BIT #10 'IRE’
3SR

5847
S848

SBSY

08:54

#SAVE REGISTERS AGRIN SO THAT COMPARES CAN BE DONE

(043306

S8+2

S843
5844

_0B-NOV-77

PC.anCLDISK

;CLEAR GO BIT

8871

gggg

O4OS¥2 012706

T121

001000

08-NOV-7?7

(08:5S4

Mil2
PAGE

153

ERROR REGISTER 1- BIT %10 'IAE’

MOV

0ON261M

8675

040560

012777

000001

141072

fov

s0MD, IRHMR

;SET DIAGNOSTIC MODE

gg;;

0405”4

082777

000004

141056

BIC

sMINX' QRHMR

'2CEAR INDEX

. #GIVE xmoex PULSE

S876 040566 052777 COOO04 141064

BIS

5879
04002

€883

040614

012777

177400

0QM0610

818799

002110

5884
€885

040620

012705

000400

§887
5888

040630
040632

005305
001374

012777

000000

gggg
5891
$832

onxnk JRHMR

:CLERR REGISTERS AND SET UNIT NG.

T INDEX

: #THESE ARE REGULAR SETUPS

S881

5882

PC, 38CLDISk

:RESET STACK

004737

5874

JSR

8STACK, SP

040554

Q40624

040634

0100

012720

141022

MOV

177777

1$:
141002

#-256. , IRHWC

ounraofi RO

grnugrrous
csrc

RO, aRHB

MOV

oass RS

NtO RO
A
eus noonsss REGISTER
,cou

DEC
BNE

ns
18

:BRANCH

MOV

L (RO)+

lO..DRHDST

$893
6894
Segg

0OMOBSM

013711

002062

MOV

JMWRIDAT, 3R1

(040660
00664

005037
012777

002006
010000

CLR
MOV

J8ERFLGS
$FMT22, JRHOF

S897
gggg

(040672
040676

00S737
001404

002036

15T
BEG

98RPOB ; MOVE
4§

£§900
gggé

040700
ON0706

012777
000403

00INS?

140744

MOV
BR

#815. , dRHCA
33

€903
gggg

O0O407IC

012777

000633

140734

MOV

s411.,3RHCA

N4S:

S£ TWO

MOV

140756

ass DATA WORDS 4 HEADER WORDS

OF WRF

: MOVE ALL ONES FOR DARTA
IF DATA NCT

: TRACK=0 SECTOR=0

:GET READY FOR WRITE

‘DATA WITH 60 IN RHCS!
:CLEAR ERROR FLAG
:FORMR BIT=1 (1b BIT WORDS)
anc TO ITSELF TO TEST
TREAT DRIVE AS RPO4

sCYLINDER
= 411 (ONE
'YREAT DRIVE AS RPOY

: #RS EXCEPTION 1S ASSERTED BEFORE RUN IS

53?3

' %ON DIFFERENT UNITS

£9]]

040716

004037

gg;g

040726

000015

040722
Q40724

001642
003158

043306

c§:

€319

€923
$924
€92€

#THE nscxsrsns WILL BE SAVED IN REINTO BUFFER

YsR

RHER1
REINTO

RO,

98SAVER

13.

ggig
€920
§3§é

TOO MANY

lLQTCHED RHWC, RHBR, RHCS1,RHCS2 CANNOT BE CHECKED
eecnug; RHWC WILL VARY DEPENDING UPON GATE DELAYS

€912

€913
€914

IF FLAG = O

CYLINDER = 815 (ONE TOO MANY:
TRERT DRIVE AS RPO6

£306

£997
€308

COMPLETE

: SAVE

: FROM
‘70

:NUMBER SAVED

.#G0 TO WRITE HEADER AND DATA
040730

013700

0O016E0

MOV

040734
0407480

012710
0827?77

00000!
000CO1

140672

MOV
BiS

040?94¢
0<427c4

012737
012737

002000
00000.

002154
0031Se

MOV
MOY

aonunn no

sOMD g
8GO, ORHCS1

;NOW RO HAS MAINTENANCE REG.

'SET DIAGNOSTIC MODE
GO

: #CHANGE SAVED REGISTERS TO EXPECTED VALUE
nxns SREINTC
SAVED RHERI
- 38REINTO+2; SAVED RHOST

RDOR.

n
wn

08-NOV-77 08:30

30(1046)

CoRIGB. P11

MARCY1l

CoRIGBO,RPO4-S
6 DSKLS CTRLR!

ZRJGBO RPO4-5-6 DSKLS CTRLRI1

CZRIGB. P11
5926

€927
§gsg

040762

08-NOV-77 08:30

040770
040776

013737

052737
052737

002016

041004

004037

043306

000001
140000

MACY11 30(1046)

Ti2e

003170

53931

$932
§933
gggg

(Q410i0
Q41012
041014

00lie42
002110
000015

BIS
BIS

RHER1

Q41016

113737

SQVED RHAS

ODHO|38RQINTO+16 savt
#ATARERR, JNRE! NTO‘EOSQVED RHDS1

RO, J#SAVER

; SAVE

FROM
T0
NUMBER OF REGISTERS SAVED

003171

:¥OPERATION THE UPPER BYTE OF RHAS WILL BE_SAVED AS IS
:#50 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
fiOVB
@8REINTO+15, JaWRFROM+15; SAVE UPPER RHRS

O0Celas

; ¥COMPARE REGISTERS BEFORE RERD IN PRESET COMMAND

041024

004037

043510

047620

S94S
S946
S947
S948
S949
ggg?

041030
041032
Q41034
041036
041040
O41042

003154
002110
00001S
041044
041044
041064

5952

(Q4i044

013705

5955
5956
gggg

041060

o4i0e2

Q41050

:#WITH AFTER COMMAND
3SR
RO, duCOMPARR

’

REINTO
WRFROM
13.
cs
2s
33
cs:

MOV

; COMPARE

:GO0D BUFFER
: TEST BUFFER
:NUMBER OF REGISTERS
;RETURN FOR ERROR
: SAME
;RETURN FOR GOOD COMPARISON
;GETTING READY TO INDEX

104001

MOV

GOERNORD RS

ERROR

RHtRl~-2(RS), alRE¢RDR;FAILING REG. RDDRESS

000207

RTS

ORCED IARE CAUSED IMPROPER
REGISTER CHANGE
:RETURN FOR FURTHER COMPARISONS

060505

5954 041052 016537 001640 042264

RDD

: DOUBLE ERROR WORD

;NO FRRORS
J410b4

004737

Q42614

»e

959
5960
€361

SSRTTENT, WREINTO+1Y4

; #AS UPPER BYTE OF RHRS CAN BE CHANGING IN
R DUAL PORT

5942

5953

PAGE 1S4

NRFROH

594)]

SS43
5344

Nle

#SAVE REGISTERS AGAIN SO _THAT COMPARES CAN BE DONE

JSR

5936

937
5938
Egag

(08:S4

ERRCR REGISTER 1- BIT #10 ’'IRE’
MOV

003172
003174

$830

_08-NOV-?7

33:

JSR

PC,anCLDISK

;CLEAR GO BIT

SEQG 01%S6

CZRJ«BO RPO4 ‘S/6 DSKLS CTRLR}

SRIGB.PI1I

08-HOV-77 08:30

§962
€963
6964
5965
8966
€967
€968
gggg

Q41100
04iibb
QO4il72
0415
Q4lél
Q41214
041220

O4le24

(12737
013746
104405
013746
o8y
00S037
005637
CO0S737

€971
5972
S373
5974
5975
6976
€977
gggg

041230

001413

(41232
041236
QO4lede
Q41246
(041256
041284

005237
104401
01374
104Y40S
104401
000137

041260
Q4loed
(QO4lgbb
Q041272
(041276
041300
041302
041304
041310

005337
001413
013700
012701
022100
00140l
000775
011137
000:37

§980
5398i
5982
5383
6984
€985
£§986
§987
988
5989
5990
5991
5992

000000
0C0177M

MACYi1

39 ( 1 gfl&)
12

177778

B13
FRGE

155

SEG GIS7

JsUNIT, -(SP)

%0,PS

:REINSTATE PS TO O

001112

?9305

O8SERTTL,.~(SP)

;GET RERDY

0o1ll2
00ild2

CLR

JNSERTTL

:CLEAR

737

J8SELECT

:STARTING FROM 210 *

BEQ

INC

anspnss

002002

J8STSTNM

"GET RERDY TO TYPE UNIT NUMBER
TO

TYPE NUMBER OF

ERRURS

TOTAL NUMBER OF ERRORS

:CLERR TEST NUMBER
:TEST NEXT DRIVE

IF NOT

:CONTINUE ON THIS ONE IF SO

001100
041421
001:10C

MOV

bcspnss -(SP)

041416
007s40

IMP

J8TSTS

;00 NEXT TESTS =-=-eemecemceececcmeaae )

DEC
BEQ

JUNOUNITS
$EOP

:NO. OF UNITS PRESENT DECREMENTED
:BRANCH IF ALL DRIVES COMPLETE

MOV

SURITS RI

00177

00i774
OC17sw

001774
007540

TYPE

TYPDS
TYPE

3%:

MOV

1:
2%:

;##HERE

ENOMG

SENULL

JSUNIT.RO

: INCRERSE PRSS COUNT

:TYPE END PASS
&

unxr UNDER TEST
TRBLE

CMP
BEQ
BR
MOV
JMP

(R1)+,R0
2%
T
le) JWUNIT
asTsts

IS THIS UNIT JUST TESTED
*BRANCH IF YES
:BRANCH IF NO
STHIS IS NEXT UNIT
:GO FOR NEXT TESTS -=-wememmem —-eeeeee ,

.SBTTL
.SBTTL
.SBTTL

###SUBROUTINES#®#¢

1S
A DETAILED EXPLAINATION OF

HOW THE LOOP CN ERROR WORKS.

;##0N HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS
S

: ##PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF TQE THE
TEST.

; #2WHEN TH]IS OPERARTOR SELECTRBLE SCOPE LOOP 1S USED THEN THE POINT
##THE PROGRAM GOES BACK TO CAN BE CHANGED.
; ##THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO RRE: ;##1.
IT MUST BE WITHIN THE TEST UNDER CONSIDERATION

;#%2.
;##3.

LOOP ON ERROR SWITCH MUST BE SET
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION

;##]F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
; ##THE PROGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP JN

wrmc

t##TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE’'._00P IS USED
1T

;##THEN THE PROGRAM WILL LOOP BRCK TO THE SELECTED POINT WHEN
n
#28CCMES TC THE
END OF YHE TESY UNDER CONSIDERRTION.

e
e Ba Pt Bt Pro
0o

O000

b [ AL ¥ < N, T

£004
600¢
600
€307
€008
€009
sgxo

08:54

¢$;OS

;##AFTER

§99¢
5999
€000
6001
6002
6003

END OF DRIVE
MOV

§993
§994
£995

5996
€997

D8-NOV-77

: ##NORMAL

LOOPING

FOR

SOME

OPERATION wWIlLL

TIME

CONTINUE.

THE

LOOP

SWITCH

PUT

DOWN

THEN

CoRJGBC,RPOM S5 & DSKLS CTRLRI

CIRIGB.PLIL
ggig

O41436

6020

84144

6022
6023
6024

0Q8IS14
041520
041560

6021

6025
026
6027

6028

08-NOV-77 08:30
000000

041440

005037

041564
0u415
042020

109402
104401
104M12

042022

013746
104402
013746

062716

5329

042026

012637

6031

042206

012637

0Ove22le

000002

6030

6032

0N220M

OPERSEL
:

002032
001110
000002

TYPOC
TYPE
RDOCT

, SCRLF

MOV

RDOCT

001110

MOV

001106

PAGE

156

SEG oice

:FIRST ADDRESS OF TEST

CLR

RDD

001106

Cl3

MOV
TYPOC
MOV

001223

08:54

ONTSTNM,-(SP)
JNSLPERR, -(SP)

:MAKE PROCESSOR STATUS ZERO

:GET READY TO TYPE TEST
NUMBER
:GET READY TO TYPE LOOP BACK PC
)

82, (SP)

:GET LPRDR

(SP;+, 8SLPERR

;GET LPERK

(SP)+, JuSLPADR

J#8SLPADR, - (SP)

6037

.SBTTL

SAVE REGISTERS ROUTINE

63490

;#THIS SAVES THE_CONTENTS OF ALL HARDWARE REGISTERS

6034
6025
603¢E

013746

END OF PASS ROUTINE
TESTRD:

177776

08-NOV-?7

MOV

6033

042212

104412

MACY1l 3C(1046)

RTI

o
ggzé

.!IN MEMORY LOCATIONS TRGED FROM "WC® TO “EC2"

6343

604y
£04E

iTné ?

283§

5048

*snpon PRINTOUTS FOR GOOD RAND BARD DARTR nLunvs oxrrnsnr
Q42220

6349

042226

6052

042242

6050

042232

012700

012701

001632

€556

Q42244
Quco4e
042256

PUTREG:

001706

6051 042236 012702 000023

8062
6064
6065

ONE SO THRT COMPRRES ARE DONE NITH snveo LOCATIONS
HE REGISTERS THEMSELVES.
THIS
W
AKE

0.3021

005302
00137
D00z07

MOV

108:

MOV

uRHuc RO

;STARTING ADDRESS OF REG

3RO+, (RI)+

-SAVE HARDWARE REG.

'STARTING ADDRESS OF WERE SAVED

.nntc-RHWC+272, RY7.NUMBER OF REG. INTO R2

DEC
BNE
RTS

R2
10%
PC

.SBTTL

FLOAT

£0E7

£058
6059
£060

£0€ ]

EoES

6064

: #ABSOLUTE AD ORESS OF REG. UNDER TEST IS IN R4

8067

042260

000000

MASK:

Egge

O42264

000000

REGACR:

E071
8072
£27Z

AND O

:#FLOAT A ONE AND
& 2ERQ THRU A DESIGNATED REGISTER

2822

£3e8

042262
Q4E2eE
oMg272
CazE?4

000000

012537
Clot0u
C1C437

LERR:
042260
Quzees

BITST:

:B1TS UNDER TEST

O
MOV
MCY
MGy

"ERROR HLT RDDRESS
(RS ,+,
(RE)+.

RY |

MASK
R

REGADR

:FETCH DATA MASK
:GET ADDRESS OF RPEG.

JNDER TEST

oBO,RPO4 S 6 DSKLS CTRLR!
:ZRJuB B11
-NOV-77 08:30
08

807
607S
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
65093
6094
6095

Q42262
C00004
000001
042336
042336

30(1046)
FLORT 1

08-NOV-7?7

AND O

RS,
"
..

PC.

BLTL:

042574
136564

PC.,

001774
gss17e

gollev
Q42260
042260
042260
00lle4
001126

Q42400
Q4404
Q4e410

3 737
1 424
1

3
10
2737
0410
3
1

0Cllev4

BLT2:

001636

BLT3:

s s Pt

LERR
RS
R3

BLT2

SEG 0159

;GET ERROR RETURN ADDR.
:MODIFY RETURN ADDR. TO JUMP OVER RTS
SINITIALIZE DARTA PATTERN

:0UTPUT FLOATING Z2ERO

:OUTPUT FLORTING ONE
:SHIFT PATTERN

BLT!

:BRANCH IF NOT COMPLETE

: COMPLEMENT PATTERN

'RETURN TO TEST

:SET SCOPE LOOP
:LO0P ON ERROR

:BRANCH IF NO
:ANY ERRORS

: BRANCH G

IBUNIT JRHCSZ

137e4e

157

yg
JUSERFLG

PC, 3uStKINT

:STRART WITH AN INIT

iSET_UNIT NUMBER UNDER TEST

SINITILIZE TK

OCllievy

:INIT FOR scopxnc LOCPS
R3, 3#SGDDRT
:STORE GOOD DATA
J8MASK
{AND MASK NITH PATTERN
:CLEAR THE REST
JWMASK, I#SGDDAT’
S8MASK
: RESTORE" MASK
J8SGDDAT, (R4)
:OUTPUT TO REGISTER
saq)éasséoonT
:INPUT FROM REGISTER

00l1ee

QOHQSK d8S$BOORT RND MASK QUT RECEIVED DRTA

JSMASK
ESTORE nns
onrq CORRECT
J8SGDDART, aosaoon?
18
:
BRANCH
tr
GOO0D
(RH) aasaooav

001lles

srRHES

sROY! DVR, aoscoonf SET RDY AND ovn

00llieH4

c3:

JBRHCS2, RY

PC,
o

3s
R4, - (SP)
81C‘ IRTOR>, (SP)
(SP1+, aoscbonr

1
e

p42S2e
042530

PAGE

#BLT3,
asLAD
#5109, ISR

001126
001640
004200

D13

001103

042374

08:54

1%:

:REGISTER UNDER TEST RHCS2”?

:BRANCH IFNOT
‘GET RHCS2
;KEEP IR AND OR BIT
iSET_IR OR BITS 1F_NEEDED

:GO_TO REPORT ERROR
L
REPLACE BY 104420 FOR LJCAL SCOPE LIOP

@ Bt bt

010837

042346
poolo00

s Bt Bot Bt Bt Bt bm Bt Be pt boe fot

U RIPUNITU 0= 0 be e b pe e 0 0 = (D O O O O
Q00
mwww.:wm»—ommumm:.wmwo.om
\ngm?wmv—

Laatoad oal ol ol cal ealoal vali A cal cAToaT AT aZoals e ale ale alo aTe a¥o ads Ao a¥oa¥ e ale oY o o)

6097
65098
6039
£100

042300
Q42304

MACY!1l

CLERR MEMORY ROUTINE

HIS CLEARS ANY BLOCK OF MEMORY
IL LING IT WITH ANY DARTA

RLL

@
0o
ms

BB 8

s
ws

et
ss

LE R

nrory

0o 0o Dt ot B

Bt B

e B

.SBTTL

RO, CLARER

; STRRTING ACDRESS OF BLOCK

;DRTAR YO BE FILLED

397
DA

LLLILI&U&)U&UUQWUU
N
LW
00~
NELEWN—0O (2]
mm

08-NOv-=7

08:30

08-NOV-77

CLEAR MEMOR ROUTINE

EL13

PAGE 158

‘%70 AVOID DIVIDE ROUTINE TNO DECREMENT R2 WILL BE USED

STARTING ADDRESS OF BLOCK

SEG 160

:#R1

(R R

WILL HAVE

08:54

MACYIl 30(1045)

L ol T ST oY ST ST

[oatealogtonloalo g oals aloadoadsaloads oo oo ads ol s o fifi

0,RPO4:S & DSKLS CTRLR1

TO BE FILLED

:#R2 AFTER SUBTRACTION NILL HAVE TWICE NUMBER OF LOCATIONS
!#R3 WILL HAVE DATA TO BE FILLED

042532
042540
p42542

Q42544

guod4e
Q42550
g4e554

160102
062702
010321

o42s62

C0137Y

042586
042560

042572

CLRRERA:

012001
012002
012003

005302
005302

000200

000002

18:

MOV
MOV
MOV

SUB
ADD
MOV
DEC
DEC

BNE

RTS

(RO)+,R1
(RO)+.R2
(RO)+.R3

R1,R2
82,R2
R3, (R1)+
R2
R2

; FROM
i 70
'DATA

INO. OF LOCATIONS MINUS TWO
:GET TWICE NO OF LOCATICNS
:MOVE IN DATA
:BRANCH IF NOT COMPLETE

:RETURN

08-NOV-~7 08:30

MRCY1l 30(1046)

O42574

000000

50
Si
2

042576
042604
042606

032777
001402
013716

ou26l2

000002

001000
042574

LRD:

.SBTTL

LOCAL TRAPS

T.SCOP:

BIT
BEQ
MOV

8SW09,
18
d8LAD,

: #MOV

D uX:
:
S

Y e S

cg
g9
60

€l

68
gg

0O4e624
042630

042614

(SP)

8X,

-—=
-—-

SCOP1

S8LAD
-—-

CLERR DISK ROUTINE

CLDISK: MOV

J8RHCS! ,

:R1 WILL BE CONTROL AND STATUSI

013703
013704

001662
001642

MOV
MOV

d8RHDS] |
QSRHER] |

R3
RY

:R3 WILL BE DISK STATUS REGISTER!
:RY WILL BE ERROR REGISTER a1

042634

012712

00004C

MOV

Ou42eNe

0080,
.

T ol T

JSWR

001640

013702

R R

SEQ 21&l

013701

042620

RTI

SBTTL

18:

PRGE 1S9

1¥THIS WILL LOOP BETWEEN X: AND SCOPL PROVIDED THERE 1S NC "NEWTST"

136334

08:54

: *EXAMPLE OF THE USE OF THE RBOVE

€7

0B8-NOV-77

LOCAL TRAPS

[Aal o ATs AF¢ afs alealeato als afo gl ade ol o AT al e alealo aloalo alo alo alo ado alo als a¥o oY« oY« o}

Y 24

tity
0

(elg)

GBO,RPO4-S.6 DSKLS CTRLR1I

GB.P11

F13

082640
DuyZese

L:3712
N00207

001536

001774

MOV

MOV
CLR

RTS

J8RHCS2,

#CLR, JR2

J8UNY T, IR2

aR1
PC

'R2 WILL BE CONTROL AND STATJS2

:CLEAR ALL REG.

:REINSTAYE UNIT NO.

.CLEAR FUNCTION BITS

[

£LWh—-ODOwm~ 1IN
SeRSRA 2R 2R SRRPERDEII
I €8

Cot

[
]
00

e20l

08-NOV-77 08:30

MACYLi

30¢ 1046,
CLERR

0B8-NOV-77

DISKk ROUTINE

.SBTTL
:#THIS CHECKS

08:54

Gl3
PAGE

160

EG Olez

CHECK DISK STATUS ROUTINES
THAT DEVICE AVAILABLE

:¥AND CHECKS THAT DEVICE PRESENT

(DVA)

(DPR),

AND READY

DEVICE READY

(RDY)

(DRY)

IN RHCSi

1217 ALSO CHECKS THAT NO OTHER BITS IN'THESE REGISTERS = 1
002014
000004
Q42220
004200

Q42650
QY2654
Quee62
o4ee6e

0CeClH

CHECKT:

001714

o42674

Q42676
042704
042706
o42712

104026

Q42714

000413

04e73e

104026

042734
042736
042742

000403
010137
104026

004000

001714

0clilez

000e00

001714

18:

ggllee

2s:

O0lle2

MOV

(SP), 38PCJISR

SUB
JSR
cMP

84, abPCISR
PC . IWPUTREG
sDVA'RDY, a8CS1

BEQ

BIT

#DVA, 38CS1

IN RHMDSI

:SAVE PC OF JSR+H4

:GCT PC OF JSR
:SAVE REGISTERS
;RHMCS! SHOULD HAVE CEViCE AVARILABLE
:AND BE RERDY

:BRANCH IF GOOD

BNE
MOY
ERROR

13
R1, 38SBDADR
26

BR
8IT
BNE

MOV
ERROR

3$
#RDY, 28CS1
23
R1, 38$BDADR
26

BR
MOV
ERROR

3%
Ri, 38$BDADR
2B

:BAD SO TEST osvxcs AVAILABLE

'BRANCH IF DVA THERE
: ADDRESS OF BAD REGISTER RHCS!
:RHCSI DID NOT HAVE DEVICE
:AVAILABLE AT STARY OF TEST
:BRANCH TO NEXT COMPARE
:TEST RERDY
:1F RDY THERE BRANCH
*ADDRESS OF BAD REGISTER (RHCS!
:RHCSI DID NOT HAVE READY
'RIGHT AT START OF TEST
"BRANCH TO NEXT COMPARE
.
*ADDRESS OF BAD REGISTER (RHC3!
RHcsx HAD SOME BITS OTHER
THAN Cv4 AND RDY SET

QLL OTHER BITS SHOULD BE O
n fuufuurufufufuvfvfu
U‘U‘U"U‘U"U‘U‘U"U"("("U‘U‘("‘g

[gle)

% 1

oo oo
s -t 8 Pt Bt Ban Bt Pt Dt Bt Dt s Pt Pt Pt oo
oocoooooooo
TP -0 pme Bt bt Ba hcn s P

RPO4-S & CSKLS_CTRLR!

QH2744
042750
042754
042760

013746

042716

042762

3%:

001736
001100
000600
000400

00173&

48 :

00173t

c§:

0Cllee

043030

000207

c43C3e
43Tzt

Je271lE
gacec”

20000t

BEG

BIT

- (SP

8DPR, 28DS1

°%:

RTS

es-

6S:

RYE

:GET RHDS!

sVVIPROG, (SP)
:CLERR VV AND PROGRAMABLE BI~
8DPR!DRY. (5P
) +;RADS] SHOULD HAVE THESE SET

S§
R3, 38$BDRDR
26
?$
sORY, A8DS 1
6
R3, 38$BDADR
26
7
R3, J8$BDADR
26

0cilez

043028

JuDS1,

BIC
CHP

BNE
MOY
ERROR
BR
BIT
BNE
MOV
ERROR
BR
MOV
ERROR

00liec

000200

MOV

¥E, L SP)

;BRANCH IF THEY ARE

s TEST DRIVE PRESENT

"CONTINUE IF THERE
*ADDRESS OF BAD REGISTER (RHCS!
NOT HAVE DPR
‘RHOSI DOES
:BRANCH OUT
.TEST RIVE RERDY
:IF DPR WAS THERE,
BRANCH IF GUOD
:ADORESS OF BRD REGISTER (RHOS!!
:RHOSI DOES NOT HAVE DR'Y
:BRANCH OUT
: ADDRESS OF BAD REGISTER \nHosx,
:RHOSI HRS SOME axrs o

i THAN MOL,

ORY

‘ALL OTHER BITS AND
SHOfiLD
ae 0
HALT

{RETURN TO TEST

;RADJUST STRACK TO GET OVER HALT I TEST

{RETURN TC TEST ANC CONTINUE

TESTING

SIRIGBO,RPOM § 6 DSKLS CTRLRL

ISRIEE AL1
e23.

38-NOv-rT 08:30

H13
MACYIL 30(1046)
0B-NOV-77_ 08:S4_ PAGE 16l
CHECK DISk STATUS ROLTINES

SEG S1E3

CIRJIGBO,RPOM § & DSALS CTRLRI
SSRIGB.PLL
08-NOV-~" 08:30

I13

MAYIl S5 1046)
DB-NOV-77
0B8:S4
PAGE
CHECK DISK STATUS ROUTINES

8232

6233

: #THIS CHECKS THAT DEVICE AVAILABLE

gggg

6236

6237
6238
6233
6240
6241

6342
G243
B244
€245
gg:g

043040

011637

043044
043052
043056

162737
004737
032737

043064

001004

Q43074
OM3076

000427
032737
001004
010137

043066
043072

043104
043106
043112

010137
104026

043134
043136
043i44
043146

000407
032737
001004
010337

2523

OM3154

000207

EZES

Q421SE

062716

EZEE

SEG DlE<
(DVA) AND READY (RDY)

IN RHCSL = !

! #AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE REARDY (DRY) IN RHOSI = 1

6248
Be+49
6250
6251
6252
6253
6254
6265
£256
6257
6268
6259
6260
Eggé

162

083119
043iib
Q43124
043126
043132

043152

O431E2

104026

000417
032737
001004
010337
104026

104026

000237

002014

000004
042220
000200

0C2014

CHECKE:

001714

00L1TIN

18:

000COE

:SAVE PC OF JSR+4

:BRANCH IF GOOD

MOV
ERROR

R1,38$BDRDR
26

BR
817

4§
$DVA, J8CS1

BNE
MOV
ERROR

2%
R1, 98$BOADR
26

BR
BIT
BNE
MOV
ERROR

¥ 3
)
$DRY, w80 "1
39
)
R3, 3#$BDAOR
26

'GET PC OF JSR
‘READ 8 SAVE REGISTERS
*RHCS! SHOULD HAVE OEVICE AVAILABLE
;QND BE READY
:FAILING REGISTER
‘RHCS1 IS IN ERROR
:DOES NOT HAVE DVA, RDY
:BRANCH OUT
S:SSéEsggubo HAVE DEVICE AVAILAB.E

BR
BITY
BNE
MOV

113
#DPR, 28051
1
R3, 24$BOARDR

4§:

RTS

:RETURN TO TEST AND HAL~

5§

ROC

86, .SP)

;RDJUST STACK TG GET OVER HE.TM

0CIT3&

2%:

001736

38:

001122

000400
001122

(SP), 38PCJSR

84, JbPCISR
PC . I8PUTREG
#ROY, 98CS1

:BRANCH IF GOOD
'FAILING REGISTER
:RHCS1 IS IN ERROR
:DOES NOT HAVE DVA, RDY
:BRANCH OUT
:RHDS 1 SHOULD HAVE DPR,DRY
:BRANCH IF THERE
:FRILING REGISTER RHDS]
‘RHDS1 DOES NOT HAVE DPR,DRY
:BRANCH OUT
:RHDS] SHOULD HAVE DPR,DRY
:BRANCH OUT AND conrxnflz IF THERE
:FAILING REGISTER RHDS

001122
000200

SUB
JSR
BIT
BNE

0C1122

004000

MOV

ERROR

RTS

'RHDS! DOES NOT HAVE opn DR

IM gsr

'RETURN TO TEST AND CONTINUE TESTING

CZR GBO,RPO4-S & DSKLS_CTRLR!

SRIGB. P11

08-NOv-—7 08:30

£269

bo7b
6277
b2~8
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292

£293
6294

6295

6296
£297
8298

2%33

QM3164
043166

177777
010046

043170
043174
043200
043206
043212
043216
043222
043224
043232
043240
043242
043246
043250
043256
043264

016600
010037
162737
012037
012037
010066
012600
013737
033777
001021
005337
001371
013737
033777
001007

000002
001204
000002
001176
001200
000002
043164
001200

043274

017737

135676

043266
043272

043302
043304

005337
001371

104016

000002

J13

PAGE 163

WARIT LOOP

WAIT.T: MOV

001204
001202

135736

18:

001202
135712

3$:

001202

043164
001200

(01126
2%:

:SAVE RO

JESTMP2
35

;counr
:BRANCH IF NOT rxns UP

‘GET RDRESS OF REG ADDERSS
2(8P) RO
TWAT PC+2 IN STM 3
RO, as$TMP3
"WAT PC FOR TYPEOUT
82 J8§TMP3
unxr REGISTER ADDRESS
(RO)+,98THPO
‘WAIT ON BIT
(RO)+ QuSTMPI
'RESTORE RETURN ON STACK
RO, 2(5P)
:RESTORE RO
(SP)+.RO
TEMPORARY COUNT
Q8TIMENT, 388TMP2
sSTMPL,JSTMPG ;IS RsoutREo BIT THERE"
YES
.BR c
2%
: COUN
JuSTMP2
aanncu IF NOT TIME UP
18
TEMPORARY COUNT
SUTIMCNT, assTMP2’
BIT THERE”
Rsouinso
;1S
J8STMP1,dSTMPO
YES
: BRANCH
23

MOV

aSTnpo J8$80DAT nscxsrsn CONTENTS

DEC
BNE

001202

RO, - (SP)

MOV
MOV
SUB
MOV
MOV
MOV
MOV
MOV
BIT
BNE
DEC
BNE
MOV
BIT
BNE

ERROR

WATTED ON BIT FRILED TGO SET

RTI

CALL FOR THE RBOVE WAITLOOP 1S

‘e

MOV

R, a8xS

6303
6205

e
‘a

6326

‘ex§:

6301

£302

£305

€25

Eg«:%

SEG ClES

ONE LOOP OR ONE COUNT = §.15 MICROSEC WITH BIFOLAR MEMORY (MIN;
ONE LLOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN)
WITH CORE ERROR IS INDICATED ARFTER RBOUT 650 MILLISEC (MINJ
:WAITING COUNT
TIMCNT: 177777
‘e
(e
S

¥
6271
gs:e
6274
6275

08:54

CHECK DISK STATUS ROUTINES

¥
6268

|=Y=4f]

08-NOV-77

MARCY11l 30:01046)

‘e

WAT

.WORD

:A CONTRINS REGISTER ADDRESS

'HENCE X8 WILL HAVE ABSOLUTE REG. ADR.
sABSOLUTE REG. ADDRESS UNDER WAIT
:BIT WAITED FOR

: CONTINUE

08:30

3001046)

08-NOV-?7

08:S4

K13
PARGE

CHECK DISK STATUS ROUTINES

6310

SAVE

164

Egié

.SBTTL

ROUTINE

6313
6314

:#THIS IS
A SUBROUTINE TO SAVE REGISTERS
:#IN THE REGISTER TABLE TG ANY LOCATION

6315
6316

:#THE CALL IS
% JSR
RO J8SAVER

2353

: ®NUMBER

£317
6318

: #FROM
;270

6321
6322
6323
6324

043306
043314
043316
043320

012001
012002
012003

£328
£329
6330
£331
£332
gggg

043336

000200

325
6326
6327

043322
043324
043326

SAVER:

013122
005303
001375

18:

6335

WRITE CHECK ROUTINE

:#THIS

IS A SUBROUTINE

010000

047500

WRCHHD: MOV

6341
6342

043354
043362

112737
005037

000001
047504

047502

MOVB
C.R

6344
£34S
6346

043372
043400
043404

012737
00S037
004537

000044
047510
044022

047560

005037

043410
043412

047500
051400

047506

£355
6356
€357

Q43414
Q43420

Q43426
043434
043440

004737
012777

0127?77
112746
112766

O42E1M
177730

003154
000001
000001

£358 04344& 012677 136172
€359 0434s2 012777 014000
£360

MOVB

136204

136200
000001
136170

TRACK 1,

snve REGISTER CONTENTS
:COUNT
:BRANCH IF NOT DONE

TC DO WRITE CHECK HERDER AND DATA

SECTOR 1,

KEYS O

TO SET UP FOR DISKLESS USE

#FMT22,

d8CYL

8], aosécorn+1

ONL

:CYLINDER O ronnnT 16 BIT WCRDS

rnac =1

81 Q8SECOTR
JSKE
Yl

secroaKEY1=0

MOV
CLR
JSR

oas , DAWORD
Jux
RS, a8CRC

NO OF onrn WORDS
:THIS 1SR READ OPERATION
:GO TO CALCULATE CRC

: #THESE

ARE

JSR

PC, 38CLDISK

MOV

#-40. , JRHWC

CLR

cYL
WCRC

Egé?

£352
£3E3
€264

%THESE ARE

012737

043366

-rnon
o
UMBER

.SBTTL

QY3340

6347
Eg:g

(RO)+,R1
(RO)+.R2
(RO)+ R3

:#CYLINDER 0,

6340 043346 112737 000001 047503

SAVED

J(R1$, (R2)+
R3
18

6339

6343

WORDS

MOV
DEC
BNE
RTS

2339
6338

MOV
MOV
MOV

a KEY2

REGULAR

KEY2=0

SETUPS

:SEY UP GENERAL REGISTERS
:AND CLERR DISK REGISTERS
136 DATA WORDS 4 HERDER WORDS

MOV
MOVB
MOY

sREINO, JRHBA
1 -(sP}
1(5P)

MOV

#FMT221ECT, JRHOF'

MOV

(s¢)+ JRHDST

;STRRTING RDDRESS OF READC BUFFER
:SECTOR=1
:TRACK=1 IN UPPER BYTE

TRncx 1, SECTOR=1 IN RHDST
BIT WORDS
tcc CORRECTION INHIBIT BECAUSE

63€]
362
5323

D43460
043476

0050”7
013711

136166
002060

cL
MG

JRHCA
JSWRCHDT, aR1

"ECC LOGIC IS NOT CHECKED YET
: CYL INDER=0
?fi%éERCHEEK HERDER AND DATA=52

E3EE

0=3S02

00N727

047340

JSR

PC, 38CCMHD

:WRITE

CHECK

HEADER AND DAT&

08-NOV->~7

MRCY1l

CoRJGB.PLL

6 DSkLS LTRLRI

C<RIGBO,RPO4-S

CRIGBO,RPOM S & DSKLS CTRLR1I

SRIGB. P11

08-NOvV-=7 08:30

MACYLl 30(1046)

08-NOV-?7

WRITE CHECK ROUTINE

6368

gggg
=1

837C

O43s3e

000297

RTS

08:54

L13

PAGE 165

: SAME RS READ MERDER AND DATH

;RETURN TO WRITE CHECK TEST

SEG C1E7

CoRJGBC, RPO4-5.6 OSKLS CTRLRI
CZRIGB. P11
08-NOV-77 08:30

MRCYL1L 30 1046)
0B8-NOV-77
08:84
WRITE CHECK ROUTINE

6371
6372
5313
63T
637S
6376

.SBTTL

lRé

E41C
6411

E412

£413

E4ld
E<1l€
£416
£Ex17
E=lge
€419
&40

LEN
gd2e
e%23
eqed
E42s
e<42E

: #$TMPO 3

166

SEQ Clee

COMPARE ROUTINE
IN MEMORY

RTA UFFE
TURN ERROR TO PRINT HEADER

.svnpx ua n R°§s
or R TURN ON ERROR T0 PRINT DATA
¥R3 HA

0 BE COMPARED

043636

0ON36S0

COMPAR:

001176
00i200

n
n

204

18:

047620

426

wr
W W
NN

oOLfL

(0435S6
043562
0D43566
3572
Q43576
043600
0DN3604
0Ov3606
U312
0OMN3619
043620
Q43624
043630
043632
043634

- 00 800(30000000
PO
) 0 s e 9t st e e

Q43510
(u43Se2
0ON3S2M
Q43526
043530
043534
0DQ43S40
0O43S4e
Q43544
043546
043552
(0N3SS4

OO~ g

lRH Hns ONE none THQN nuneea OF WORDS TO BE COMPARED

[« pTS Y=

6392
63393
B3S4
6395
539
6397
£398
6399
6400
6401
6402
6403
B404
BYUS
6406
6407
e408
€409

PRGE

QTHIS
§ g&ugR?gTéNEF 8 §§HPRR§ TWO BLOCKS

6377

L3
637
6380
6381
6382
6383
£384
638S
6386
0387
£388
6389
6390
6391

M13

OCliey
00l1ee
047620
002006

MOV

RY, 98ERWORD

(RI)+, (R2)+
3s

'COMPARE GOOD WITH TEST DATA
'BRANCH IF GOOD

MOV

-(R1),3%8GDOAT

;GOOD DATA

SUB

R3, d8ERWORD

'ERROR WORD NO.

BNE
JSR
B8R

2s
PC, 38 TMPO
gs

:BRANCH IFYES
nsrunu 70 PRINT HEARDER
RANCH TO avox PRINTING NEXT ERRGR

CMP

(R)+, (R2)+

CMP
BEQ

75T

JSR

135366

c§

135320
177177
000eGC

3s:
s

000230

; RDDRESS OF GOOD DATA BUFFER

(RO)+.R2
(RO)+.R3
(RO)+.$TMPO
(RO)+ . STMPI
(RO), RO
ga,né

MOV

138372

(RO)+,R1

MOY
MOV
MOV
MOV
MOV
?gg

-(R2) 3#$BODRT

JSERFLGS

:RDDRESS OF TEST DATA BUFFER
:NO OF WORDS TO BE COMPARED
:RETURN ON ERROR TO PRINT HEARCER
:RETURN ON ERROR TO PRINT DATA
'RETURN ON NO ERROR
:NO OF WORDS TO BE COMPARRED
:FOR ERROR WORD NO

:BAD DARTA

IANY ERRORS ALREAY THERE
ETURN TO PRINT

C,38TMP]

DARTA

uuoo -(R1) AND -(R2) FOR ERRORS

MGV
BIC
CMP

SWR, = (SP)
s1C600, (SP)
#SK07, LSP) +

'GET SWITCH ssrrxnc
'KEEP ONLY SWITCH
7 AND 8
:1S ? SET AND 8 RESET

DEC
BNE

R3
18

: COUNT
'BRANCH IF ALL NOT DEVICE

BEQ

4§

:BRANCH OUT IF YES

RTS

:RETURN TO MARIN PROGRAM

:#THIS

IS A SUBROUTINE

:#THESE

ARRE

MOV

8FMT22, J8CYL

chxnoen 0 FORMAT 16 BIT WORDS

CLR

IBKEY]

‘KEY1=0

TO DO WRITE CHECK DATA

:#CYLINDER O, TRACK 1, SECTOR 1, KEYS O
436S
O45Bb
Q43bEE
D%3e7v9

868 00
0!
000001
D47504

Q47500
47503
047502

WRCHDA:

MOVB
MOVB

TO SET

81, 38SECOTR+1
8l 98SECOTR

FOR DISKLESS USE

§ TRACK
sscron 1

ONLY

CcRIGBO RPOH/S 6 DSKLS C TRLR]
8-NOV-77 08:30
C<RJGB. Pl1
642?
6428
B4e29
6430
643l
6432
6433
6434
6435
6436
6437
6438
6439
6440
b-44]

s44e

6443
b4
6445
6446
4

043700
043704
043712

005037
012737
005037

047506
0ogo40
047s10

Q43716
Q437ee
043724

004537
Q47500
051400

044022

043726

u2elY

043732
043740
043746

177740
003154
000001

0437S2
043760

043764

014000

Q43772
044010
o44014

135654
002056
Q47340

044020

MRCYL11

047560

30(1046)
08-NOV-77
COMPARE ROUTINE

000001
135656

N13
PAGE

167

SEG 0169

; KEY2=0

CLR
MOV
CLR

JEKEY2
832.
, J8DAWORD
28X

:NO_OF DQTQ WORDS
i THIS ISA READ OPERATION

JSR

RS, 3aCRC

;GO TO CALCULARTE CRC

s #THESE

ARE REGULAR SETUPS

JSR

PC,d8CLDISK

SET UP GENERAL REGISTERS

MOV
MOV
MOVB
MOvVB
MOV
MOV

8-32. , JRHIWC

4 HEADER WORDS
;36 DATAR WORDS

CcYL
WCRC

138R72
135666

08:54

#RE INYO, aRHBA
sl,-(sP}

1(5P)

(SP)+ aRHDST

sFMT22'ECI,3

AND CLERR DISK REGISTERS

gERRTéNG ADDRESS OF READ BUFFER
CTOR=1

TRACK=1

IN UPPER BYTE

TRRCK 1, SECT?Ré éN RHDSY
b Bl

C CORRECTION INHIBIT BECAUSE
ECC LOGIC IS NOT CHECKED YET

CLR
MOV
JSR

JRHCA
JMURCHEK, aR1

PC, 38COMAD

: CYL INDER=0
"WRITE CHECK DATAR=50 INTO RHCSl
‘WRITE CHECK HERDER AND DATA
:SAME RS READ HERDER AND DATA

RTS

;RETURN TO WRITE CHECK TEST

RPO4 'S5-6 DSKLS CTRLR]
P11
08-NOV-7 08:30

I 68

MRCYI1

=77
30(1046)
08-NOVCOMPARE ROUTINE

.SBTTL
,#THIS

08:S4

BlyY
PRAGE

168

SEG 0170

CRC GENERATION ROUTINE
IS

SUBROUTINE

TO_CALCULATE

: sHERDER WORDS AND STORE THEM

(#R] - ng STER FOR CRC,

(#R2 - THIS

*R3 - TH%

FOR

THE

FOUR

INCREMENTED CRC VALUE IS MERE

HAS

BIT POSITION

cegTMPR - Ngneen OF
-

TEMPORAR

:#§TMPS

THIS HAS DATR BIT

:#§TMPY ~ TEMPORARY

: #FETCH DRIR BIT

:#8 = D XOR 16
;-c = B XOR 2
%E
= B
gn x§

RIGHT

I1.E.

1S VALUE

BITS PER WORD =

:#§TMP3

! #ROTATE

CRC

IN “WCRCTM AND "GCRC”TM

HAS gxr POSYTION 2 VALUE €

:#RY - THMIS MRS BIT POSITION
; #STHPO R OF WORDS
G.

OUTPUT BIT

VALLE B

REG TO TRANSFER ~RRRY
VALUE

ONE PGSITION

.*9 GOES TO POSITION 1

C 56€S TO POSITION 3

‘#E GOES TO POSITION 1b

)

:#REPET &4 TIMES
‘#CALL JSR
RS, uCRC
D ux
;FIRST LOCATION AT
ey
:PUT CRC IN WCRC FOR READ GCRC FOR WRITE
MOV
pol210
000004

001204
000020
001204
001204
001210
00000!

001176
001202
001206

063703

oCleld

Q44124

032701

o40000C

044130
Q44132
O44136

:CLEAR WORKING LOCATIOM

16%:

ggg

rR6)+ a:sgroa

g;nogganv WORD STORAGE

15%:

ROR

RIT30)

.ue LSB INTO “C*

B.7
BEQ
ggv

#8I70,R1
1
sgzrxs,aa

:1S POSITION 15 HIGH
:BRANCH IF POSITION 16 LOW
"GET POSITION 1&

CLR

BIT

#BITIY,R]

ggv

:gxtxs,ne

:GET POSITION 2

044140

CLR
ADD

R2
R3,R2

:GET POSITION 2
'XOR B WITH POSITION 2

D44 14y
O44.EC
Q44 icp

BIT
BEQ

#BIT1,R]
c§

38:
032701
001402
0ie704

000002
puisisisls]

CLR
MOV

MOV
ROR

ADD

BEG

100c00

D49 lve

;GET POINTER TO CYL NO.

10GG0o0

U416
pu4120

(RS)+,R0

CLR

[

GB0,

MOy

J8STMPS
84, a8STMPO

;WORD COUNT

assrhpsI8STMPY TEHPORARY uono STORAGE
ansrnps

J¥STMPS R3

)

#BIT1S. R

IGET naovs “ce

:GET POSITION

xuro $TMPS

;xon POSITION 16 WITH D

‘70 GIVE B

:1S POSITION 2 HIGH

:BRANCH IF POSITION 2 LOW

{70 GIVE

1S POSITION 15 HIGH
:BRANCH IF POSITION 15 LOW

:GET

POSITION

DSKLS CTRLRI

08-NOV-°7 08:30

O44156
o44160
O4yl62

000401
005004
066304

oYY 164
ow4170
QY4172
DHY17Y
QY4176
g44202
Q44204
044210
puNele
ou4e I
0wqggo

006037
006001

0‘04325

MRCYLl

30(1046)
08-NOV-77
08:54
CRC GENERRTION ROUTINE

c8:
6%:
001206

100000
100000

108:

Geo0ooc

003001
0Cle0e

PAN]
L")

000001

001176

PRGE

169

SEG 0171

ROD

R3 RY

ROR
ROR

IS TMPY
Rl

:GET LSB INTO "C*
:GET ABOVE C INTO Rl

BMI
géc

78
:g£71s R1

‘BRANCH IF B=1
:SET B IN POSITION

#BITIS,R]

SET B IN POSITION

#8IT13,RI1

:GET C IN posxr:on 3

:GET POSITION

:XOR POSITION
;70 GIVE E

8IS

:TEST

15
18

WITH B

757
BMI

R2
118

gxs
757

c T13,R1

GET C IN POSITION 3

135
reiro R1

'BRANCH IF E=]
'GET E IN POSITION 16

sBIT0,R1

:GET E

séc

020000

Cl4

BR
CLR

15T

——

Y NSNS
oy
Y
[

14V]

—

%U‘U‘U‘G‘U‘O‘U‘O"O" oo

SOOI
UL WD

m&mmmmmmmmm

6510

Ny
[
1T]

23RIGS. #11

——

cROGBO,RPO4

BMI
géc
BIS

DEC
BNE
DEC
8NE

TEST C
‘BRANCH

TEST

88 THP2
15%
ausrnpo
168

S?E

; #CYL INDER Q
#TRACK 1,
#sKEY] 1

; RKEY2

IN POSITION

:PUT CRC NHERE ossxnso

SUBROUTINE

SET

(%6 BITS PER WCRD:

SECTOR

:BIT COUNTER
'BRANCH IF 16 NOT DONE
*[ORD COUNT en
'BRANCH IF 4 NOT DONE

gé.a<R5)¢

;#THIS

IF
C

THE

SIMULATOR

DISK

:#CRC THROUGH THE JSR RS, 38CRC

;#256 WORDS OF 177400

177400

Q00400
Ocivle

044326
O44332
044334
044336

SETDSK:

18:

gaocel
2%:

;#CALL

JSR

MOV

8177400, RO

PC . 3#SETDSK

:DATA

IN THE

DISK

MOV
MOV
MCV

#256. Rl
#01SK, R2
no (R2)+

: COUNTER
:START OF SIHULRTOR DISk
:MOVE IN DRT

BNE

Moy

817, .R}

:BRANCH IF 256 NOT COH°LETE

CLR

(R2,+

: 19 TOLERANCE GAP
:CLEAR ECC,DATA GRP ANC

OEC

DEC

BHE

;#NCW

12 ECC WORDS;

1 on GRP

TOLERRNCE GRP
COUN

cs
SET

:COUNT FOR ass

BRHNCH IF NOT COMPLETE
P

FOR

DISKLESS

USE

FOR

Q44340
O4N 346
Q44354

Q44368
044370
44276
QHNNON

OuNN10
pNeNl2

o BCT-F

044022

047500
047503
Q47502
Q47504
047506
047S6e0

MOV
Mov8

PAGE

170

8FMT22, a8CYL

;CYLINDER O

81,38SECOTR
8],d8KEY]
8] OdsKEYZ

sKEYl=1
;KEY2=1

81, 38SECOTR+!

256. , 98DAWORD
RS, akCRC

; TRACK=1

(186 BIT WGRDS)

;SECTOR=]

;NO.

OF DRTA WORDS

;GO TO CALCULRTE CRC
;FIRST CRC WORD
;PUT CALCULATED CRC

~
n

D14

08-NOV-77
(08:S4
CRC GENERATION ROUTINE

30(1046)

(W)

MACY1L

CIRJGBU,RPO4/S & DSKLS CTRLRI
CIRIGB.PILI
08-NOV-77 08: 30

JGB. P11

(g ly]

RCGBO,RPO4-S. 6 DSKLS CTRLR1

08-NOV-?7 08:30

MARCY11 39(1046)
c

6577

08 NOV-77

(08:S4

E1lY

RCGENERATION ROUTINE

PAGE 17!

SEG 0173

657

;%#THIS IS A SUBROUTINE TO CHECK HEARDER COMPARE ERROR

Eggé

. #CALL JSR RO, a#HCCRCE

6583
6584

com

6585
6586
6587
6598
6589
6530

s%
a
‘e
Da
-

gégg

S¥

¢
S
7
-N.
8

;H:l HEADER CHMECK, H=G CRC fHECK

RO, 3#PCJISR

:SAVE PC OF JSR+4

(RQ)+. ~(SP)

:SECTOR

Eggo

6593

‘%(BIT #7) AND CRC ERROR (BIT #8)

CS+'424

010037

Q44466

112046

6594
5595
6596
6697
6598

Q44430
QON4M3E
044454
044460
Q44462

6600
6601
6602
5603

044470
044472
044476
044500

£599

162737
004737
(011037
012011
012077
105720
112066
10S720
012677

002014

000004
04261M
001210
13S16v

012077

135140
135122

6608
65609

044810
044514

O0ief7?7?
012037

135120
047510

04MS20

012777

014000

6E1]1

944526

005037

002006

6605
6606
6607
6610

ggig

D44E32

009737

047340

HCCRCE: MOV

Nz
ISR
MOV
MOV
MOV

MOVB

TSTB
MOVB
TSTB
MOV

000001

044804

6604

002014

MOV

MOV
MOV
135122

84, 3sPCJSR
PC’ IBCLDISK
(RO I8ETHPS
(RG) 4, aR1
(RO)+. QRHCA

; COMMAND- Rsno HEQDER AND DATA
WRITE DAT

CYLINDER
:SECTOR
: TRACK
:WORD COU
: RHBA aurrsn START

1=WRITE DATAR O=READ

‘GET _PC OF JSR
SINIT AND SETUP GENERAL REG.
:SAVE COMMAND
: COMMAND
: CYL INDER

(RQ)+
(RO)+, 1(SP)
(RO)+
(SP)«, 3RHDST

:UP DATE RO
: TRACK
*UPDATE RG
; TRACK _SECTOR

(RO) +, JRHBR
(RO)
+, 28X

“IF A READ HERDER AND DATA
STRRTING ADDRESS OF BUFFER
'X=0 READ HEADER AND DATA

(RO)+ | SRHWC

*NO.

OF DRTA WORDS +4 HEADER

MCV

iX=1 WRITE onrn
#FMT22'ECI,aRHOF ' : 16 BITS PER WORD

CLR

JSERFLGS

JSR

PC, 38COMHD

,tcc CORRECTION INMIBIT
:CLEAR ERROR FLAG

: COMMAND

6E1S

:#1F THE PROGRAM COMES BACK HERE WITHOUT snnon PPINTUUT:

EELT
6EiIE

'#SYNC BYTE HAVE GONE BY AND SYNLS WERE CORRECTLY
:#DETECTED

EELS
E616

§FRUH THE “COMHD"TM ROUTINE THRT MEANS SECTOR
!#F IRST SYNC, HEADER, HERDER CRC, HERDER GAP nno

gggg

! 2*HEADER AND DATR ARE TO BE CHECKED.

BECl

044836

(O4737

Ee2S

0Ou44ESY

(00iclc

ge22
EEc3
geo4

Q44842
Ou4qB46
0W4sEs0

(05737
001034
D0E737

(042220

002006
047SIO

JSR

PC, J8PUTREG

BHE

I57
BNE
TS

BIERFLuS
i
aux

: SAVE REGISTERS

:ANY ERRORS ALREADY THERE
: BRANCH xr YES
: IS rnxs REARD
:IFA WRITE DATR BRANCH

CSRIGBO,RPOM-5 & DSKLS CTRLRI

{ZRIGB. A1

08-NOv-77 08:30

MACY1l 30:1046)

0B8-NOV-77_

08:S4

F1y

CRC GENERATION ROUTINE

6626

PAGE 172

SEC 0174

662"

; #MOW _THE READ BUFFER WILL BE CHECKED

2235

; #WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA

6628
6629
6630
6633

6634
6635
6636
6637

6638
6639
6640
6641
pE42
k]
E644
6645
BEYE

; *HEADER SHOULD BE COMPLETELY READ RS WRITTEN
:#NC DATA WORDS SHQULD BE_RERD
;#REINTO BUFFER HAS BEEN FILLED WITH O
Q44SSE

Q44SE2
Q4456
044566
OM4S70

Q44572
Q45674
Q44576
C44600
044602

004037

002110
003154
000400
DHNS7E

043510

JSR

WRF ROM
REINTO
256.
13

Q44602
044640
104004
000207
104005

18:
2%:

2%
108
ERROR
RTS
ERROR

RO, 9#COMPAR

4
PC
&

BE4

; CHECK

;GOOD DAT
; TEST BUFFER
4 _HEADER 252 DATA
;RETURN POINT FOR ERROR HERDER

'RETURN POINT FOR ERROR DATA
{RETURN FGR_GOOD COMPARISON
{READ NEXT ERROR S
iRETURN TO COMPARTSON SUBROUTINE
;WORD NO 1 THRU
4 ARE
HEADER WORDS AND HENCE
{SHOULD BE READ AS WRITTEN ON
:DISK, WORD NOS. S ONWARDS
,:HOU(D NOT BE RERD AND HENCE

{READ INTO BUFFER

6648
8643

044604

000207

RTS

:SHOULD BE UNCHANGED
{RETURN 7O COMPARISON

BES]

44606

00041Y

108

; JUMP OUT

£683
6654

; #NOW THE DISK WILL BE_CHECKED
:#NC DATA SHOULD BE WRITTEN

665E

:#DISK HAS BEEN FILLED WITH_177400

6ESE

:#REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA

6657

; #WRFROM HAS BEEN FILLED With'

6659

Q446IC

004037

6661

Q44616

051416

6660

Q44614

Bbb2

044E20

EEEY
BBES
6666
6667
E6BB
£663
EE?
€671

O44B24
Q44626
044630
Q44632
D44B34

6663

Q44622

00315Y
000400

000207

EE?Y

QuHEN2

001442

EE7S
EE76
EE77
gET8
EETY
EEBI
BEEL

O4MENY
Q44652
OW4BSH
O446E2
Q4METD
DOwde?2

1 ¥
5§:

00S720

022737
00417
017737
022737
001470
12727

JSR

REINTO

RO, 38COMPAR

108:

000072

001210

134762
000200

001126
00112€

OCled2

24z2ed

; CHECK

;GOOD DRTR BUFFER

DISk

;i TEST BUFFER

4§

;RETURN POINT FOR ERROR HEADER

256.

D44E3Y
O44E40
104004
000207
10400S

044636

Q44e40

33:

044630

EE72

EBT3

043SIC

128052

13
108
ERROR
RTS
ERROR

4
PC
&

RTS

BEQ

Ts7

cHP
BEG
MOY
CHP
BEG
MY

(RO} +

se, 4 TMPS
18’
SRMER1 248BODAT
SHCE, JhSBDDAT
78

!RETURN POINT FOR ERROR DATA
iRETURN POINT FOR_GOOD COMPARISON
iREAD MNEXT ERROR
RETURN Y0 COMPARI
20N SUBROUTINE
;WORD
NO ARE ALL DATA
:WORDS THE SHOULD NO”
:HAVE BEEN CHANGED BY THE
:WRITE COMMAND

{RETURN TO COMPARISON SUBRGUTINE

i 1S THIS A HCRC ON HCE TM CHECK®
BRANCH_IF

HCRC

:1S THISA RERD COMMAND
iBRANCH IF YES
:TEST DATA
;ONLY HERDER COMPARE BITM>
:SHOULD BE SET
:BRANCH IF GOOD

I8RHER], J8REGADR REGISTER AODRESS RHER.

CIZRJSBO,RPOMY-S & DSKLS CTRLRI

CSRJIGB.PIL

08-NOv->7 08: 30
012737
104027

6685
6686
6687
6688
6689
6690
6631

Q44710
Q44712
QY47i2
044720

000460
017737
022737

134724
100200

6632
6693
6694

Q44726
Q44730
Q44T36
QHN7Y44

001451
013737
012737
104027

001k4e
100200

Q4eeeH
ooliey

6696
6697
6698
6639

QW4TYE
Q44750
Q44756
044760

0004M]
022737
001417
017737

000072

001210

0004OC

134656

0olles
gclitee

001642
000400

042264
OC0lle4

[ A U aloal AL AT AT uaload ol (ol eal Ll o BT T Lot e Aol alealeal el ualo gl T s X oo oo a4 aTa Yo aT0 a¥s o3o Yo oY o}

QW4T00
Qu4TOe

P*H"DODgO(EOOD
LW

|
IR I I

IININ NIt

022737

001426
013737
012737
104027

04S014
04S01e

DOOM 1B
017737

134820

golles

Q4S024

022737

100400

go11ee

Q48032
Q4S034
Q48342
045050

001407
012737
013737
134027

100400
001e42

0Clled4
Cy2ebM

vd 3

MOV

SRHER1,

PAGE

173

SEG C17%8
;G000 DATA

:AFTER AN ERROR ON THE
'HERDER ONLY HCE SHOULD

‘BE SET
3#$BDDAT

:TEST DARTA

#0CK
' HAE . 288800AT; ONLY HERDER COMPARE BIT”

SET
BE
: SHOULD
‘DCK IS ssr BECRUSE ECC 1S NCT RERC
:BRANCH IF G0OD

78
JRHER] aonscnon :REGISTER noonsss RHEF|
8DCK'HCE, 388GDDRT
GOOD DAY
27
AFTER AN ERROR on THE
Henosn ONLY HCE SHOULD
7$
iBE SET
872, 38STMPS
:1S THIS
A Reno COMMAND?
12§’
: BRANCH IF READ

BR
CHP
BEQ
MOV
ggg

aansnx J8$BODAT :TEST DAT
cgcnc,988BDDART :ONLY CRC ERROR SHOULD BE THERE

MOV

J8RHER] , 98REGADR

ERROR

BR
MOV

7%
JRHER!, 28$BDDAT : TEST DATA

CMP

#DCK!HCRC, 29$BODAT; HCRC AND DCK SHOULD BE

BEQ

MOV

J8RHER], 9BREGADR; rthxnc Rscxsrsn nuenx

MOV
ERROR

RTS

30Cect

:#THIS

sHCRC, kSGDORT

:REG.

noon RHER1

.¢ooo DAT

‘AFTER A cnc ERROR ONLY

CRC

:SHOULD BE SET
*BRANCH OUT

SET

:D&K 1S SET BECAUSE ECC IS NCT REAC
BRANCH

IF cooo

8DCK! HCRC aoscoohr GOOD DATA

:AFTER A CRC ERROR
ON A READ
;0CK AND_HCRC SHOULD BE SE”

:DCK IS SET ascnuss ECC

RO
IS

'RETURN TO MRIN
T
A

SUBROUTINE

LEAVE

THE

MIDDLE

:2BUT COMES OUT RFTER ONE &ECT

:#THE COMMAND 0S JSR PC, acnxooLE

:#BAI IS SET

013777

002084

134882

Q4EQDSY
04S060

134834
O4clSE

MIDOLE:

MOV
MOV

BIS
MOV
CLR
MOY

ISWRIFOR, JRHCS
|
8-10. , JRHWC

sWRFROM, QRHBA
810, JRHOST

#BA} , aRHCS2
orn7éa JRHOF
SRHC
sl, amxo

-?nxge ggnosn AND DRTA=62
10 WORDS

'BUS ADORESS=WRFROM
:DESIRED TRACK=0 SECTOR=10

:BUS RDDRESS INCREMENT INHIBITM
‘FORMAT 16 BIT WORDS
: CYL INDER=0
.
:SECTOR

IS SET

IS NCT REAC

‘2R WRITE HEADER AND DATA COMMAND
:#IT TRYS TO GET SECTOR 1O TRncx 0. CYLINDER O

134536

SHN
L WN)e-

MOV

12%:

Gl4

#HCE, I88GDDRT

ERROR

BEG
MOV
MOV
ERROR
13}
¥

08:54

ION ROUTINE

CMP

Q44774
044776
Q45004
045012

048352

-NOV-77

MOV

119%:

‘l‘l\l\l\l\l\lg\l\l\l R

-3 SINNETININY

LA AV AV AV
T AU VT N 0t et Bt Bt e et pe
OO0 NN L Wi ()00 I £V~ OO~

Q44766

30:1048)
CRC GENERQ

001124

6682
6683

~0C

000e20C

MRCY11l

THAT

CSRJIGBO.RPO4 S & DSKLS (CTRLRI
CCRIGB.PLL
08-NOV-T7 08:30
9
0
1]

2
3
¥
S
6

MRCYLL

08-NOV-7?7
08:584
CRC GENERATION ROUTINE

30(1048)

H14
PAGE

174

;WE CAN GET OUT AT

THE

:MIDDLE OF AN OPERATICON
MOV

0MS136
045144
Qusle2
Q4S1Se
QuSled

MID:

g8
9
0
;#THIS

{59 B1RRGE
T nebe

#DMD, JRHMR

BIS
JSR

8GO, JRHCS|
R1,J8SEARCH

GO TO

O
PL

.SBTTL

JAM CURRENT CYLINDER ROUTINE
WILL

WITH &2

:SECTOR

LWORD
RYS

SUBROUTINE

RHCSI

CHRNGE THE CURRENT CYLINDER REGISTER

.rnxé 1S DONE BY vax NGA SEEK COMMAND THEN
AN INIT

035214

B42535

045236
p45240
QusSeue
Q4SauY
Q“Se4e
045252

045300
Q4c3ce
048204

002014
000004

134336

0D2072

MAKECYL
:

002014

CLR

MOV

134416

MQV
BIS

386581 134388

Duee 1y
134420
ocllies

0Clila4
00167¢

MOV
sug

NOP
NOP
NOP
NCP

CMP

RS, 38$BODAT

MOY

J8RHCC,

ERROR
1%:

#DMD gRHfi
8GO, dRHCS]

PC,a8CLOI

BEQ
MOV

gNez2ed

8#8

aossecon JRHCS1

JSR

MOV

ggllee

RO, 38PCJSR
84’ JsPCJISR

;FC

JSR+4

iSAVE PC OF JSR
F%ETING REQDY TOI;éLR gE {2

; MAK 8 Ré EES%RED SECTOR TR

JRHCC aosaoon'

{FILL SEEK COMMAND

IS NOT

I_LEGAL

SST SIRENOSTIC MODE
QLLON TIME FOR SEEK

OR SEEK
.

fresT DATA

i8
RS . a83GDDA
30

DM
r.mu

7
7

;BEglRED VALUE OF CURRENT CYLINDER

J8MRAKECY

Z——

B42270

O
|

CYLINDER WITH THE DESIRED CrLINDER vALLE

—"HHHH

O4S1eb
pu4s170
Q45174
Q45202

RC,

cu CURREN

o
E

. X

THE

]

rooo
oo
~ ERAIERREMN) 03370707129 )
) NN oo
oo o o
£ WM
OO0 ~ 0N £ Wi ()

€775

LOAD

GLQLL

tJéR

WILL

DI
|S
~

s #WHICH

TQ HANG JP
TO HANG uUP
TQO HANG UP

HANG

RHCC

I8REGADR FQILING REGISTER RDDRESS

URRENT CYLINOER DOES NOT MATCH CESIRED O INMCEW
REGISTER AFTFR
A SEEK AND RN INIT

RTS

.SBTTL

ECC GENERRTION AND COMPRRISON ROUTINE

;#7HIS cUBRO gNE u%NERRTES AND TESTS ECC
X TR
C.EC

CZRIGBO,RPOM S & DSKLS CTRLR!I

CoRIGB. P
694
£795
5796
6737

28-NOV-~T 08:3C

MACYL1 30¢1046)

08-NOV-??

100000
040000
020000

PIEL
PIES
PIE3

£803
6804
6805
6806
6807
5808

06200C
001000
000400
900200
000100
300040

PIEE
PIE?
PIES
PIES
PIEI0
PIELl

=20060
=1000
=400
=200
=100
=40

66.0
£811
6812
68.3

000010
000004
000002
000001

PIELI3
PIEIY
PIEIS
PIEIE

=10
=M
=2
=1

6815
€816
6617
6ele
6819
€826
6821

0400CC
020000
010000
004000
002000
001000
900400

PIEI8
PIE1S
PIE20
PIE2L
PIE22
PIE23
PIESY

=40000
=20000
=10000
=4000
=2000
=1000
=400

£823

000100

PIESE

0100600
0049000

88CS

0000620

BSiM

100000

6822

06006200

8824

000040

682¢
6E26
6827
£E28
gggg

€3]

£E22

04530

Il4

PARGE 175

ECC GENERATION AND COMPARISON ROUTINE

6798
6799
6800

6801
68202

08:54

PIEN
PIES

PIEI2

PIE1?

PIE2S

=100000
=40000
=20000

=10000
=4000

=20

=100000

=200
=100

00002¢
030010
060004
000002
00003

PIE2?

piEe8
PIER9
PIE30
PIE3l
PIE32

=40

000000

ECDATA:

=20
=10
=4
=2
=1

gggg

:DATR BIT FOR ECC

:1F AL. ONES THEN CURRENT BIT IS
A ONE

:1F ZERO THEN CURRENT BITM IS A ‘ERu

gegg

04312

00000C

GECC!:

.Lgf ORDER ECC WORD TO BE GENERATED HERE

Eggg

O04E312

12000C

GECCz:

HégH ORDER ECC WORD TO BE GENERRTED HERE

EB4]
Eg:g

045314

020000

TSECC3:

EB4Y
£84E
EB4E
EE47

D45316
0O4E320
[Ou4€3z22
J4E334

113712
000000
00000C
J1004!

NCODE:
NCOUNTpPCEITI:
HARDER:

38859
0
O
4129.

8
6E37

£890

EBNE
EENS

)

:1E =177777 GENERATE AND TEST ECC FOR THIS 817
:1F =0 0O NOT GENERATE AND TEST ECC
FOR THIS BIT
:N-CODE WORD
: TEMPORARY N CODE
:POSITION REGISTER
:hARD ERROR COUNT

o
)
{TRUE COUNT 15 94128 BUT AS C.MPARES ARE
:DONE ONE STARGE LRTER SU =129

SEG 2177

CeRIGBO,RPO4-/S 6 DSKLS CTRLRI

CoRJIGB. AL

08-NOv-77 08:30

MARCYL11l

3011046)

08-NOV-77

0B:S4

J14
PRGE

176

ECC GENERATION AND COMPARISON ROUTINE

SEG 017E

6850

045326

(00000

DATENV:

:DATA ENVELOPE FOR

853

045330

DOOC3I0

ZCODE:

:LERDING ZEROS ENVELOPE FOR

£85]
6852
6854

6860
6861
6862
6863
6864
6865

TYPE GUT

:THIS 1S SHUT OFF WHEN POSITION COUNTER

£855
6856
68587

£8c9

TYPE OUT

:MAX FOR WRITE IS 4096
:MAX FOR READ IS 4128

: IN ENRBLED
:MAX COUNT IS 38859

045332
045339
045336
045340
0458342

000000
000000
000000
0000JC
000000

HADTMP:
P3;
Pia:
paa:
P24 :

6867
68€8
6869
6870
o871

045344
046360

013701

045310

6873

Q48370

005737

045306

0O
0
0
0
3]

: TEMPORARY HARD ERRCR COUNT

6866

6872

gg;g

045364

045374

013702

D040

ECTEST:

045312

MOV

157

BEQ

6876

04S376

010103

6881
6882
ggga

045404
0456406
O4E4IC

005103
010300
DO0040M

68B0 048400 052703 17777%

18:

0Q4S%l12

0!0103

gggg

O48420

010300

6831

045422

000241

£€94
£EB3S

0O4S430
(045432

005700
001462

£888 04414 042703 177776
045424
(045426

045434

010203

Q4EN3e

052703

£302

0O4E4c€0

D0ez27

048442
O<E4N4

00E103
QOIC337

2s:
as:

006000
006000

£899

£900
£90!

JMECDATA

1S CURRENT BIT
A ONE

IS NOT

BIS

;BRANCH

ZERO

Q45339

0O4E334

THEN D=1

n¢¢P1£32.93

R3
R3,R0O
3%

IS zeno THEN D=0

%#%32 eeconss RO

fov

R1,R3

MOV

R3,R0O

BIC

cLC

ROR
ROR
157
BEQ

; #INVERT

137777

WORD

:ECC2 WORD

;#IF_CARRY

6887

6898

MOV
COM
MOV
BR

£885

Egg;

:ECC1

INGECC2 R2

:#INVERT X32 TO GIVE RO

£879

6892
£893

JWGECC!,R1

:#IF CARRY

Eg;/

6886

MOV

OfCPIE32 R3

RO
RG

RO
10%
X2

MOV

R2,R3

X
MOV

93 JsP3

BIS
ASR

:#INVERY

.fépxse R3

Jab3
«}]

_
:BRANCH

IF RO=0

UPRENT

D&RTA

D=0

CSRIGBO,RPOM-S & DSKLS CTRLRI

SZRIGB. P11
6906

6307

045454

6909
6310

04S462
0Q4S46M

6308

ggié

08-NOV-77 08:30
010203

04848

Q52703

045470

006237

005103
010337

MACYIl 30(1046)

0Q4S47TM

010103

6917
6918

Q48502
045504

005103
010337

2gég

177737

045476

O4SS10

052703

006237

0Q455i4

010103

6925
692€

(045522
046524

(005103
010337

gggg

045336

173777
045340

0O4S34C

045516

O4EE30

052703

176777

00623~

045342

Q45534
045536
048840
048544

006002
(006001
0S3700
053700

€344
6945
€946

(045556
045560
048564

00SON0
053700
0S3700

£948

0OMSS74

(050001

045342

COM
MOV

R3
R3,auP22

stlPIE21,R3

Jnb22

MOV

R1,R3

COM
MOV

R3
R3, asPaM

ASR

Q46550
048584

045570

O4SE76

Q042702
0s0002

042701

045334
045336
120020

s1{PIE23,R3

anb2y

ROR
ROR
BIS
BIS

R2
R1
a¥P3, RO
dsP12 RO

CLR
BIS
BIS

a8P22,RO
J8P249 RO

BIS

RO,PR]

81¢
81S

045340
0O4S34e

002400

BIC

0DO4OM

sPIEIVPIE3PIEL2,
R2
RO, R2

sPIE22'PIE2Y,RI
12¢

: #THE PROGRAM COMES HERE

E%és

IF RO=0

‘250 AFTER ROTRTE RO GETS PUT

£954
6955
£955

0Q4SEOC
0O4Se02
0O45E0M

0060C2
006001
042702

£958

O4Sel14

010237

ESED
E3E.

R1,R3

BIS

ESE]

€969

Jsbl12

: #NOW THAT RO FOR POSITION |
"
P3
FOR
POSITION 3
"
P12 FOR POSITION 12
‘a
p22 FOR POSITION 23
ta
P24 FOR POSITION 24
:#ARE KNOWN THE ROTATE WILL BE DONE AND
:#THESE BITS JAMED IN

937
6938
£3939
£940

£9€7

#1lPIELL,R3

MOV

ASR

eggg

gggg

R3
R3,38P12

BIS

£932
£933
£334

€947

COM
MOV

ASR

£929
£33C
€931

£941
23:3

R2,R3

SEG 5179

: ®INVERT Xx23

£323

6324

MOV

BIS

63921

6922

PRGE 177

: #INVERT X2l

6915

£916

08:54

ECC GENERATION AND COMPARISON ROUTINE

6913

6914

08-NOV-77

K14

O4Ee10
0On€e20

10%:
100000

010137

045310

005737

O0O4E314

04E312

12%:

ROR
ROR
BIC

R2
R]
sPIEL,

INTO POSITION

MOV

R1,98GECC]

;SAVE ECCI

TS7

9stSECCG

115 HARDWARE TO BE CHECKED

MOV

R2’ QMGECC2

:SAVE ECC2

'IF =1777227 TEST HARDWARE
:IF = 0 DO NOT TEST HAROWARRE

coRIGBO,RPOM-S 6 DSKLS CTRLRI

Z*RIGB. P11
2325

08-NOV-7T 08:30

45624

001432

045626
045634

032777
001005

MRCYLLl 30(1046)

6966
6967

BEQ
COO400

133304

000100

133274

6968
6969
63°C

0Q4Se44

045636
04Sp4e

032777
0014C1
000421

6373
6974
6975
€976

045650
046652
045656
0456b2

010146
042716
022677
001404

17400
134C10

£3978

0Q45bb4

004737

042220

£371
697

6977

6979
£980
6981
6982

045670
045672
QuSE?N
045702

B384

045704

6383

£38S
6986
6987
Eggg
£990
Eggé
6392

D4ETI0

104035
000407
023777
001403
004737

10403%

045322

0B8:S4

L1Y

PAGE 178

ECC GENERATION AND COMPARISON ROUTINE

6964

6365

08-NOV-77

: #*CHECK HARDWARE

BIT
BNE

:BRANCH IF HARDWARE NOT TO BE CHECKED

8SWB, ASWR
15%

;1S SWITCH B SET
:BRANCH IF SWB IS SET

BIT

#5SWE, ASWR

;1S SWITCH & SET

B8R

143

:IF SWITCH 8 IS _NQT SET AND

BEQ

158:

148

15%

MOV
BIC
CHP
BEQ

Rl,-(5P)
#174000, (SP)
(SP)+, dRHEC2
13%

PC, I8PUTREG

270 SAVE TIME

133766

13S:

ERROR
BR
CMP
BEQ
YR

ERROR

BRRNCH IF SWe IS NOT SET
;SWITCH & 1S SET THEN
:00 NOT DO _COMPRRES

:GOGD PATTERN REGISTER
:GET ONLY PATTERN BITS
: COMPARE PATTERN REGIS
:BRANCH IF GOOD
; SAVE REGISTERS

35
148
J#POSITI,IRHEC!
148

"PATTERN REGISTER IN 11 BITS IN ERROR
:BRANCH OUT
; COMPARE POISTION REGISTER
!BRANCH IF GOOD

PC,a8PUTREG

; GAVE _REGISTERS

-#70 SAVE TIME

042220

6394
6995
Eggg

:POSITION REGISTER IN ERROR
:*DRTA ENVLOP” GIVES NUMBER OF CLOCK
:PULSES FROM BEGINING OF COMMAND
ruar IS THE CLOCKS IN THE R/W DATA FIELD ENVELGOPE
'INA WRITE THERE ARE 10000 OCTAL CLOCKS
:INA RERD THERE ARE 10040 OCTAL CLICKS
:
:*N-CODE ZEROSTM GIVE THE NUMBER OF CLOCKS
: GIVEN FOR THE LEADING ZEROS FIELD
;MAX COUNT 1S 113713 OCTAL

6998

'»GOOD POSITION" GIVES NUMBER OF CLOCKS

7000

‘FIELD

£999

)

:GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA

:885

*MAX COUNT IS 10040 OR 10041 CCTAL

=003
7304
700€

SEG G1E0

0Q4E?;2

OWE?2E

000207

148:

RTS

CIRIGBO,RPOM S

C2RIGB. P11

-6 DSKLS CTRLRI

08-NOV-7T7 08:30

MACYL11l

M1l4

30(1046)

08-NOV-?7
(08:S4
PAGE 179
ECC GENERATION AND COMPARRISON ROUTINE

SEG 0lEl

=006

7007

SINCNINTY

1NN

O
O0000MN00000000
PO
Y0 +— 0 s e s o pe e el
®
U= OO 0 NL WU (= IV}

~008

.Tuxs

SUBROUTI NE

WILL

CONTROL

FOR ERROR CORRECTION PROCESS

'CQLL

JSR,

ERPOS:

ECORR:

MOV

‘e

04ST30

Buaz3e

BBE8A

QNS 74Y
Qus?e2
045756
D45TE2

002014

045322

848774
46000

18:

046002
Q46004
046010

363525

045330

o4s0le
o46016

005237
023737

B4e8se 423345

Q45322
0uS730

o4s3e2

045332

o4s32e

BHE03E 838717

000400

O46044
046050

O4eec0

O460Se
046056
Que0ER
O4B0EE

00000e
goo00e
OHS344

o4e042

001016

£%:

PC, 38ECORR

;EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE
;POSITION REG.

CLR

IsECORTA

'ECC DATA IS ZERO

1ST
ags

JWPOSITI
egucounr

;1S
sorvunne POSITION NON ZERC
Rngcn
IF N-CODE S COMPLETE

28
gszcooe

:BRANCH RS N-CODE 1S COMPLETE
éflcngnsnr
CLOCK GIVEN FOR LEADING ZERGCS

INC

ghis

:SAVE

shci2R

*T0

ERROR

c§:

RANCH
A

1S NOT goegcs E

8HENT sSb?uan@"goss ION
ANH_TF MORE C,0cke ToBE

SHRDTMP, aoposxrtan ENOUGH cL

snvs

:tHAT IS an

TIME

CLOCK
CLOCK

#MCLK,

3R1

sMCLk| JR1

4128 MORE CLOCKS BEEN GIVEN
IN RHMR

:SAVE REGISTERS

zeao DETECT BIT NOT HIGH
WHEN 21

sMCLk . aR1

CIVEN

EEN GIVEN FOR HARD ERROR

K
ZERO
E’ECT BIT
BRQNCH 1S 2ER SEY

PC,a8PUTREG

pg JubCTEST

'SET oxncuosrlc noos axv

JSR

HHEN CORRECTION IS COMPLETE

IMAIMTENAN

JWPOSITI

SMCLK, aR1

GET POS & 88"
RE

JMERPOS, 8POSITI;ans ENGUGH CLOCKS BEEN GIVEN TO DETECT ERROR

BIS

BicC

853
NEH IF N8885 1S NOT LOHPLETE

a ER,JR!
S

BNE

OF JSR +

:23AvE B¢ OF J2R

(R )+ aoERPos

#0MD ahx

IS COMPLETE

MOV

BR
INC

#PCJSR

WHEN CORRECTION

J8RHMAR

:#THIS EXTRA
;#AFTER THIS

BoE8EE

ROUTINE

MOV

CMP

3%:

GENERATION

04s3eC

ECC

MOV

045306

045766
Q4s772

THE

BITS

IN ECC

BIT

:SET CLOCK

:CLERR CLOCK

30 T? GENERRTE AND TEST ECC
;

CONT

IS TO BRING ECH HIGH
POSITION REGISTER MaY

LER

LOCK

10040

10041

SCTAL

CoRJGBO,RPOM~S & DSKLS _CTRLRI
CZRJSB. A1l
08-NOV-77 08:30
062
7063

o46102

MRCY1l

N1Y

08-NOV-77
0B:S4
PAGE 180
E CC GEN ERATION AND COMPARISON ROUTINE

30 (1046)

RTS

000200

;#*THIS

SUBROUTINE

GENERATES

THE ECC

FOR WHAT

;20N LOCATIONS “DISK+1000" AND “DISK+1002"

FILLEC:

00s037”
005637
005037

:POINTER TO DATR FOR ECC GENERATION
:COUNTER FOR NUMBER OF DATA WORDS

82¥NT§§
FOR NUMBER OF BITS PER WORD

——

.SBTTL

HE 2

BARSECH:

ossi7e
O+ 000000
OO n—

Pt Pt Poma P ,.
Pt Pt Pt P
P
st Pt Dot Gt . @ B

o
e OO
e00000C
00
NN LW~
N
0N -0

SN NNNNNINN
NN N N NN NN

052416
0s2420

0ole40

301630
b

001640

000000
001eM40

IGET ONE DRTQ BIT IN CARRY
:BRANCH_IF DQTR BIT IS ZERO
ECC DRTR BIT IS A ONE
:BRANCH_TO GENERATE_ECC
:ECC_DATA BIT_IS R ZERO
;GO TO GENERATE ECC
; DECREMENT BIT COUNT

BRRNCH IF 16 BITS NOT DONE

mm
OO0
OO0

048310
o4s3ie

118
l—%,DOECDflTQ
12
JSECDRTA
PC,asECTEST

045306

Q45306
Q45344

5t P

;CLEAR GECC1

VUOD — 20
OTM nNow
"
(a2

1727?77

O4eMs0

INSERTS

:CLEAR

109:

013746

AND

;CLERR POSITION

S#POSITI

046236

IS CN DISK

O46104
Q46120
Cueley
Q46130
046134
Q46140
Q4B 1YY

SESQ 0182

RH BRSE ADDRESS CHANGE ROUTINE

THIS ROUTINE WILL ALLOW THE _CHANGE OF THE SRASE
ADDRESS FROM 1767 00 1O ANY TYPED VRALUE
MOV
TYPOC
J

- (SP)
28RHCS1,

;GET RERDY TO TYPE OLD BRSE

PC, 38STKINT

; INITIALIZE THE TTY KEYBORRD

sRHoa RO

;GET _STARTING RDDRESS OF REGISTEPRS
iNUMBER OF REGISTE

'e
Tino Al L)
uSP JWRHCS]

000004

cs:

18
ao(sp,
QMRHCS],

ISP

JsP, (RO+

ISET UP_TO CHECK NEN ROORESS

:NEW_CSR”
iNO-SKIP_NEXT
{ACCESS THE NEW ADDRESS
iGET THE ADDRESS OFFSET
(AND PLUG IT IN

THEM

c<RJGBC,RPO4 § & DSKLS _CTRLR!
i<
P11
08-NOV-T7 08:30
J3RIGB

=118

046452

00S301

:153

g:g:s:

001375

T181

Q46522

013746

046636

012637

~122
T123

T124

046526
096634

7125

046704

T127

046754

7126

~128
7129
2130

T13]

132

~133

;igg

DO46710

046760
047200
047204

047220
Q4”224

Q4302

047304

104402
104418

013746

104402

013746

109402
012746
1049402

000137

022626

300137

MARCY11l

30(1046;

08-NOV-77

08:54

B1S
PHGE

RH BRSE RDDRESS CHANGE ROUTINE

)

BNE

F13

:DONE ALL OF THEM YET?

001626

MOV

J8RPVEC,-(SP)

;GET READY TO TYPE OLD VECTOR ADDRESS

001626"

MOV

(SP)+,38RPVEC

:SETUP VECTOR ADDRESS

TYPOC
RDOCT

001640

J8RHCS1,- SP)

MOV

J8RPVEC,
- (SP)

TYPOC
MOV
TYPOC

000200
ADTIMO:

0ouee+C

:NOT YET, SO DO MORE

MOV

TYPOC

001626

004240

DEC

181

IMP

CMP

8RA,
- (SP

J#BEGIN

:0K,

(SP1+,

:RESTORE THE STACK

(SP)+

J8BASECH

NOW START OVER WITH NEW ADDRESS

:AND DG IT AGAIN.

~13¢
»137

139
=140

:#THIS

~142
~143
T144
TidS

0M7310
Q47312

000000
004737

:#T0 BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE
#WITH WHAT IS REALY THERE
RUNIT: O
sUNIT UNDER MANUAL TEST
ERSTART: JSR
PC, 38CLDISK
:SET GENERAL REG.

TIN?
~i48

Q47322
Q47324

005714
022712

(€1

04T3RG

0pOTTE

~14]

~i14g

~149
=.6C

:#THIS

047316

Q47330
D47332

013712

001.d]
000773

QN42&1Y

04°210

010000

18:

2%:

IS A LITTLE ROUTINE

LOOPS

MOV

HERE

FOR

EVER

THAT TESTS NED BIT

IsERUNIT, JR2

:SELECT UNIT

*SY
BIT

JRY
SNED, dR2

:TEST RHER1
"TEST NED

B8R

INEC SET

BEG
BR

2%
13

*BRANCH IF GOOC
*NED NOT SET

IN RHCS2

SEG Q183

3
—

[

)

(Al
)nk),uo\mnfl*rg\o\n.n.n.nmmwmmmmmm
NN NL WU~
SIN I DO~ )N
OOL W00
O O O UTUNIUT
U U%
U
G N4
O
LWAR -0 N LIV~ O NI
WM TN
I 0MNE
gs

[glg]

33
Do Pt Pt ps ht Pt 5t s Pt ot Dt Pt Pt Bt Pt @ st i Pt Pt Pt Pt Pt Pt Pt PP tPe be b0 Lglg
I It n a2t I It A I It I I e Bt A e Bt A |
e
et T I
n it

NN
N T INSIN NIN NN R
I e e e ek Bt D
nnrvoniMRn-- 0+»- CaPadababapada
P Db bt pah 25 AP

O4.-S & DSKLS CTRLRI
D8-NOV-77 08:30

MRCY 1]

Cl5

3001046

RH BRSE

08:g4
PAGE
08- NOY-77
ouT IN
ADDREZS CHANG
CH

;#IN A

.SBTTL
WRITE H

}aUKEYL=

WITH

182

DISK SIMULATION
A
TR CQMMAND FILL

SEG Cigev

RS Y SB§§R B2 BB BTER ! ¢WSECTR=WITH SECTOK AND TRACK 10 BE ON DISk
KEY)

THE

FOLLOWING

ON prsk

' WkEY2= WITH KEY2 1O BE ON

BI8K

! «FNWORD= NO OF DATA WORDS 10 BE WRITTEN GN DISK
'«THE COMMAND THEN IS
JSR PC,COMWHD

#IN A WRITE DATA COMMAND FILL THE FOLLOWING

;#CYL=WITH CYLINDER TO BE FOUND ON DISK
; #SECOTR= WITH SECTOR AND TRRCK TQO BE FOUND ON GISK
;#KEYl= WITH KEY1

7O BE

FOUND

ON DISK

;#KEY2= WITH KEY2 TO BE FOUND ON DISK

t#x= |

MUST_BE ONE

)

; #NOWORD= WITH NUMBER JF DATA WORDS 7O BE WRITTEN
;#THE

COMMAND

THMEN

JSR

PC,COMHD

HE
M

]

s *

HE
1X 4

;'IN R RERD HERCER AND DATA_CCMMAND FILL THE FOLLOWING

:%#CYL= WITH CYLINDER TO BE FOUND ON DISK

; #SECOTR= WITH SECTCR AND TRACK TO BE FOUND ON DISK

(b VeNUMTO £ E BEFOUND
:: eREvSeW
#DAWORD=TNWITH
OF wggos0N 78 DISK
SE FOUND ON DISk
R

:#:X=0 MUST BE ZERO

:#tHE COMMAND THEN IS JSR PC,COMMD
HE
HE
MR

HE
s #
HE

HR
HE
;i

:#IN A READ DATA COMMAND FILL THE FOLLOWING
BE_FOUND _ON glék
CYLINDER TQ
;#CYL= WITH
OUNC ON DISK
TRACK TS g
; #SECOTR= WITH SEC 8R AND

DISK
FOUND ON
BE
;#KeYls WITH KEYL 7O
:#KEY2=WITH KEY2 TO BE FOUNC ON DISK

: #DAWORD= WITH NUMBER OF WORDS TJ BE FOUND ON DISk

;#:x=0 MUST BE_ZERO_

:oYHE COMMANC THEN 1S JSR PC,COMMD
K

0O
O»

MACYLl 30(1046:;
O0B-NOV-77
DISK SIMULATION

08:54

D1S
PAGE

183

SEG S1EE

R R R L

NVUTVNVNUTUIVIVIVTUNDNVIUIUINY
PO s= e ped—e et
- p-OQ OO0
OO0
LW
O0m - 10"

glg]

)
020
Lel,

RPO4-5 & DSKLS CTRLRI
J8-NOV-77 08:30
11

R R R

: #WRITE DATA COMMRAND
:»0R RERD COMMAND I.E DATA ONLY OR HERDER AND DRTA

. ##THIS SUBROUTINE IS THE FIRST IN R SERIES CF NESTED SUBRGUTINES

;##]7 ISSURE DIAGNOSTIC MODE,
;##°GO’ BIT
;##]T THEN CALL

##SUBROUTINES.

R
X2
et

047336

00000C

RUNCTR:

MOV

sDMD, JRHMR

:SET DIAGNOSTIC MODE

132250

BIC

sMINX ' JRHMR

:CLERR DIRGNOSTIC INDEX

012777

000001

Q474902

042777

000004

0S2777

000001

WRDRTH
REDATA

132264

DN7366

04”410

SERRCH

RDHEAD

:SAVE PC OF JSR

002014

COMHL:

132256

MOV

#75. ,98RUNCTR

:LORD STALL

13:

DEC
BHE

F8RUNCTR
13

:COUNT DOWN ONE
:CONTINUE UNTIL = O

SECOTR,

-(SP)

(SP)+,

a8TRK

Q7424
04TTM430

D0S337
001375

047336

O47432

013746

047502

MOV

047442

012637

047452

MOV

Q4742

000000

047460

010137

47474

00N1Z7

D47484
O474E4
guw?470

004137

:SET DIAGNOSTIC INDEX

RUNWAT:

0CO113

O47446

sMINK, SRHMR

:SAVE PC OF JSR + 4

8GO, JRHCS]

012737

O42T1E

(SP), 38PCJISR

BIS

ON4741&

DN7436

047336

MOV

BIS

132222

1777460

ANC THE

IN TURN CALL OTHER

a4, 3bPCISR

000004

WHICH

suB

162737

052777

THESE QRE:

01163°

047274

THREE OTHER SUBROUTINES,

INDEX,

.WORD

047340

047344

00201+

AN EXTRA DIAGNOSTIC

BIC

:ISSUE *GO* BIT & STALL 'TILL_ 'RUN’

: (FUNCTION CODE IS ISSUED BY THE TEST,

‘FOR

COUNT = APPROX.

4S0US

11,50 CPU WITH CORE MEMORY

;GET DESIRED SECTOR/TRACK

8177740, (SP)

iMAKE ONLY SECTOR

JSR

R1, 285EARCH

:1SSUE SECTOR CLOCKS (=—=-=-==--e-euoo

.WORD

047512

MOV

R1, u8S YN

OWrEce

ISR

R1 . 98RCHERD

0S3E4E

012701

000240

010137
C10137

0O47E14
QurEie

TRK :

MOV

MOV
MOV

8+NOP R1

R1, JSHEDGAP
F1.J8HEDSYN

;SAVE SECTOR

:GOING TO MOVE NOPS

:NOP INTQ SSYN

THOP INTQ HEDGRP
INOP INTO HEDSYN

CSRIGBO,RPOM S & DSKLS_CTYRLR1

SSRIGB.P:

08-NOV-T7 08:30

MACYLl

3G(1046)

DISK SIMULLARTION

=582

5522

7266

0Q4?SGO0

Teb7
~268

(047502
Q4TS0N

7270

~263

;5;;
X-4K-

T273

~27Y4

000000

oe NCV-7?7

CYL:

: CYLINDER ADDRESS

;sta WORD

047510

000000

WORD

04TSi2

000240

SSYN:

.WORD

NOP

FOR

THE

RERD

HERDER

;X=1

WRITE COMMAND

:X=0 RERD COMMAND

INSERTED BY_ RDHEAD

:SUBROUTINE THEN THE FIRST SYNC.
1S NOT DETECTED.
NO BARD DATA
:15 GIVEN BECAUSE svnc 144000

nEng;

‘CANNOT

~ET8
;ggo

BE RERD.

BRI ascnuss
‘WORD' T
04TEIN

DDO24C

HEDGAP:

NOP

THIS

IS THE FIRST

:1F “ERROR 3 INSERTED BY
‘ROHEAC SUBROUTINE THEN THE

~283

‘HERDER GAP 0'S WERE NOT

7285

:IF “WORD NO” CONTRINS,

~28y4

‘WRITTEN RIGHT.

228¢

:WORD'OF A S WORD HEADER
;cnp THAT IS WRONG
:*BAD DATA” CONTAINS WHAT

;ggg

n292
7294

:GOING ON THE DISK
OMTElE

500240

HEDSYN:

NOP

:IF “ERROR 3

729¢%

:OR THE LAST BYTE

:IN EITHER CASE WORC NO=&

7298

RIGHT BYTE IS HERDER O

729G

:LEFT

~300
5%85

7306
7307
~308
7309
7210

INSERTED BY RDHERD

:OF THE HERDER GAP 0°S IS WRGONG

7297

7303

:SUBROUTINE THEN THE HEADER SYNC.
:GENERARTED BY DCL IS WRING

7304
730

SAY

:3(8), THEN IT IS THE HIRC

28:
7288
~289
7292

OPERATIGN

'SECTOR/TRACK ADDRESS
'KEY1 WORD

JIF ”ERROR 2"

Tevs
nars

T281
T2

LOCATIONS

SEG 2186

G
O

kEy2:

184

.WORD

.WORD
.WORD

CALL

PRGE

ERROR

SECOTR:
kE¥l:

000000

ELS

: #DUMMY

UOCO00
000000

Q4~506

08:54%

BYTE

:“BAD DATATM
:ON DISK
0Q4752C

047534
047826
047832
047534

0QS73?

(J0i017
00S737
001410
005737

;gié

047540

001011

33{3

ON?S42

004137

731
72le
1T

Q47S4e
2478
O8TEER

00000C
090000
Q00804

0CZ006

TST

BNE
TST

0ONTSIC
0847614

0S1066
NOWORD:
v

ISERFLGS

ouT
J8x

:ARE

ANY

SYNC

HAS WHAT

ennons

IS GOING

DETECTED

2IF YES,
EXIT ~—=cmemceccmmmm——oeo
(1S ITA oarn unxr ?

BEG
TST

DAREAD
JSNOSYNC

:NO...THEN DO
A DARTAR READ
:1S THIS FORCED HERDER ERROR COMMANC
:IF YES
NOSYNC=-]1 THEN WRITE OR RERC
:1S SHUT OFF SO BRANCH OUT
:IF
"NOSYNC=0 THEN CONTINUE

BNE

oLT

JSR

R1,JSURDATA

sWRITE DATA (m===mmmemmmcmee
e eee e

.WORD
CWOREC
BF

O
0
5UT

:NO OF WORDS TO BE WRITTEN
:
SEXIT =emmemmcmmmmmmmmecmecies
oo

PEXIT IF SET =mmmmemcmemeiimeeeeae

C.RPO4-S & DSKLS CTRLR!

08-NOV-77 08:30

O4TS54

00413

QurSe2

000C00

O4”E0C

0oo20T

047860 (000020
04 TS6Y

(Cs4022

MACY1l 30(1046)

oe NOV-77

DISK SIMULATION
DAREAD: JSR

DAWORD: .WORD
ouT:

WORD

RTS

0B:S4

FLS

R1,JsREDATA

PAGE 185

SEG C1€7

:READ DATA

¢ ===mmm===-ommoocooaee

:NO OF uonos T0 BE READ

:EXIT ROUTINE

CoRIGBO,RPOM S & DSKLS CTRLRI

SSRIGB.PIL

08-NOv-7708: 30

~324

325

~329

~33%
r 336

337

30110465

08-NOV-77

DISK SIMULATION
:#THE DISK

7326
:355

7330
7331
n332
7333
T334

MACYI!

SECTOR

08:54

G1S
PAGE

186

1S DEVIODED AS FOLLOWS

‘#19 WORDS OF 0, ONE WORD 144000
:*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BrTE
Q4702
047604
047606
O4Tei0
OwTele

014400
0000CO
00000C
00000C
0000CC

RSYNC:
RCYL:
RSETR:
RKEYLl:
RKEY2:

14400
O
0O
O
O

:#5 WORDS

OF O ONE WORD

144000

=328
3;39

:*THESE MAKE 11 BYTES FOR HERDER GAP AND ONE SYNC. BYTE
:»THESE ARE DCL GENERATED

~343

: #THERE

T39S

1415 WCRDS OF O FOR DATA GAP AND TOLERANCE GAP

340
341
T2
LD
Bl

ARE

256

WORDS

DATA

:2THERE ARE 2 WORDS FOR ECC GENERATED BY DCL

SEG ClEs

coRJSBC, RPO% S & DSKLS CTRLRI

I3RIGB.PL

08-NOV-TT 08:30

MACY11l 3G(1046:

08-NOV-77

DISK SIMULATION

08:S4

PAGE 187

SEG C1ES

348

~349

=350

zgéé

: *READ DISK WERDER

~383

=354
~385c

Zgg&

:ggg

o4TB14

D000OC

NOSYNC:

ancso Hsgosn ERROR = -1

360

247616

00000C

TY:

:ERROR TYPE NO.

T36E

047622

012137

047604

RDHERD:

MOV

(R1)+,

WRCYL

7368
~369

047632
047636

012137
012137

047610
047612

MOV
MOV

(R1)+,
(R1)+,

QWRKEY] ; TOR
Q8RKEY2 :STORE KEY2

7374 0476BY 052710 000010

BIS

;ggé

34~620

000000

ERWORD: O

:ERROR WORD NO.

T3E3

7367

Q47626

012137

047606

~370
T371
~372
=373

047642
0476s0
047654
047660

012137
013700
012705
012710

7375
T3Tb

Q47670
O4767M

052710
848710

000002
000012

~3>%

047700

000404

0SO412
001660
000002
0000CI

»378
7379

047702 012716 000013
Q47706 042710 0000iz
047712

012702

000007

7382

Q47722

04e7i0

000002

~387
7388
~389
7390

Q47736
047742
Q47746
047752

012702
005037
009737
005302

000022
0SQO415
0504149

7332
393

Qu775e
047764

013737
004737

Q47602
050414

733

Q47774

DOIO012

012737

000001

047620

7338

050012

012737

104002

047512

7300
74C1

(CE00c2
050030

013727
OJC4737

047604
0SQ4IM

0S04I0

=-Z2

ZEIZ553z

223737

0gonIM

=380

.8
2%:

T281 047716 058710 000002
7383
>3g4
7385
386

7391

047726
D47730
Q47732
047739

Q47754

005302
001372
005305
001362

001372

7294 0O4777C 032710 001000
7256

Q4777e

3%:

4§:

MOV

BIC

sMCLK.

QRO

MOV
CLR
JSR
DEC

$18,
IBUCRD
PC,
Re

MOV
JSR

aonsvnc J8WORD
JWREAD

MOV

cnth.

DEC
BNE
pcC
BNE

R2
k]
RS
13

MOV

MOV
JSR

2SR

:STORE COMPARE OR
NOT
‘RO CONTRINS MAINTANENCE REG.
‘RS IS A COUNTER FOR WORDS
:01AC. MODE

!SET SECTOR FOR FIRST WORD
BRANCH

OVEP GIVING SECTOR FOR FIRST TIME

SMSTCK!MCLK'
DMD, bno SET SECTOR, CLOCK, DIRG. MCDE, RESET INDEX
OHSTCK MCLK,aR0' ;RESET SECTOR, 'CLOCK

8IS

~399

~4Z¢ CEGC34 0I3737 Q47e0e 0OSCHIC

lMSTCK IR0

MOY
BIC

G§:

sEcron AND TRACK ADDRESS

SMCLK, JRO
ssr CLOCK FOR FIRST WORD
#MSTCK'MCLK,dR0O ;RESET SECTOR AND CLOCK

7397 050004 013737 047602 00lle9
000571

:STOR

8IS
BIC
BR

@8COMPR
RO
RS
3RO

:STORE CYLINDER ADDRESS

(R1)+,
JSRHMR,
82
80MD

MOV

9E0020

Q®RSETR

MOV
MOV
MOV
MOV

BNE

050410

(R1)+.

IR0

J8READ

4§

-o#sv 9RO

J#ERWORD

acksvuc 98SGDORT

;Re ISA COUNTER FOR BYTES

*SET CLOCK

'RESET CLOCK

‘BYTE COUNTER
"BRANCH IF BYTE NOT COMPLETE
*WORD COUNTER
'BRANCH IF WORD NOT COMPLETE

NO OF WORDS OF ZEROS
RERD O
GO TO READ
:COUNT
:SYNC.

WORD

'BYNC BYTE osrecr;g

RANCH IF SYNC DETECTED
.ER OR WORD

ASYNC WORD

nxguooe' 8SSYN

é" ERT

aonch J8WORD
Q8READ

;SETUP CYLINDER
:RERD

PC. 38REAL

:READ

*ERROR 2" IN SSYN

RANCH 0UT

anksern dsWORD :SETUP SECTOR TRACK

JIRIGBO,RPOY § 6 DSKLS CTRLRI

I3RIGB.PIL

08-NQV-77

04761C

0SO0410

047612

050410

MOV
JSR

JERKEY1, J8WORD ; SETUP VEY1
C, 98READ
READ

JSR

PC, J¥READ

JSR
ST

PC, J8READ
IstESDTE

TST

J8COMPA

MOV

SHEGARP,

JSR

acauono

~404
~40S

0S500S4

004737

(05041M

~40r

050066

004737

0S04i4

~406

050046

MACYJL 301041

D8-NOV-77 08:30

O0~0060

(13737

013737

OISk SIMULATION

MOV

~408 060072 013737 051400 05040
~+09
~4]0

0S0I00
050104

004737
005737

050414
002026

~4l2

050112

005737

0S0412

~4l4

050120

012705

051402

T41]

~413

~415
416

~417

050110
080116

0S0124
050130

(060136

00113S
001472

012762
012737
004737

00000S
000006

0S0646

=418 050142 0057372 050644
~4i3

0S0I46

=420
~42]
~422
423
T424

050150
080154
050160
050166
050174

T42b

050202

428

050206

7425
~42?

429

7430

~43]1

T432
7433
~434

050176
050204

080212

(050220

080222

T43S

0S0226

7437
7438
7439
~440
T44i

050234
050236
0S0242
050244
060252

7436

~442

08023C

050260

001413
160237
00SG3”
013737
012737
000SD3
013725
005302
001351

004737

023737
001426

005737
001406

005737

001420
005037
000403
013737
013737

012737

047620
0O0!l124
0SOe44
104003

047602

BEG

O04782C

050274

000443

7446

050302

000440

7448

0S0304

yuc

7442
7449

7460

7481

7482
7483

7454

050276

001126

047514
7%:

052644

000006

047820

?74€g
~<4€Q

108:

(12702

000005

{19:

004737

050414

00S037

080320

005302

001372
013737

047602

0E0342
0S0344

001404
032710

00:00C

OOIWLE
(00003

118

: BRANCH our IFYES

116 THISR RERD OR WRITE COMMAND
RS

%S,
R2
os IMERWORD
C

'READ
1S THISA _DRIVE TIMING ERROF

BWRITE

:POINTER FOR HERDER cap

:NO OF WORDS OF ZEROS
:ERROR WORD NO SET
:FOR_HERDER GRP

"TEST WRITTEN WORD

:BRANCH IF cooo THQT IS 0

anuuono (RS)+
63

JWWRITE

aohsvnc J#WWORD

: 1S THIS FORCED HEADER ERROR COMMAND

148

;BRANCH IF TRUE ERROR

:IF YES NOSYNC=-1 THEN
Wxre OR RERC
:1S SHUT OFF SO BRANCH o
SIF NO NOSYNC=0 THEN CONTINUE

JSUWWORD

MOV

nquooa JSERWORD
JsHEDSYN

MOV

,WRITE HEADER (DATA) GAP SYNC

alNOSWNL

757

BEG
CLR
BR
MOV
MOV

snvs HERDER GAP

10%
'BRANCH IF GOOD
288GDDAT
:1T SHOULD BE ZERQ
158
:BRANCH TO TYPE ERROR
asnsvnc I8S$GDDAT’
:GOOD DARTA
aauuono' 98$BODAT
:BRD DATA
13§

QCNNORD.lRS)0
138

s BRANCH OUT

:SAVE DATA STNC.

. «PEAD COMMAND STRRT FROM HERE

0S0410

050322
060324

JE03c0
2E353E2

1S8:

05064

004737 0S041Y
~465 DS0332
(050336 00737
047e:4

7466
74€?

BEG

14%:

13%

READ
ssrup
CRC

BEQ

Q01126

auacnc JSUWORD

serup KEY2

DEC

MOV

TSY

001124

Q8RKEY2 , J8WORD

SES 0190

R2 aoeauono
:WORD NO IN ERRO
a88GD
: GOOD uono SHOULD BE C
I8l ono
$BODAT ;BAD DAT
#104003, 38HEDGRAP
FERROR a" GOES IN HEDGAP
138
.BRANCH_uT

cHP

05S0e4d4

PAGE 188

SuB
CLR
MOV
MOV
B8R
JSR

047614

001124
047602
0SOR4Y

157

BNE

01372€

(050310

080314

6%:

MOV
MOV
BEQ

443 060266 012737 104003 047516
444

MOV
BNE

050644
050646

08:S4

I1S

128:

0SO41C

MOV

FC,

RERD

CLR

WORD

DEC

RS’

JSR

BNE
MOV

JSR

BEG
BIT
BEG
ER

1%
a-nsvuc J8WORD

aohosvmc RERD
168

#DTSY, 3RO
13%
178

:READ HERDER GAP

115 S HERDER GRP 2EROS COMPLETE
543 NOT aa NCH
:SYNC WORD

:READ HEARDER (DATA) SYNC)

: IF NOT ERROR COMMAND BRANCH
:SYNC. DETECTED

‘IF 2ERO BRANCH OUT
:1F NOT ZERO BRANCH TC EPRRCR

CoRJGBO RPO4 S 6 DSKLS_CTRLRI
JZRJIGB Bl
08-NOV-77 08:30

050354

08-NOV-77
DISK SIMULATION

30(1046)

169%:

001000

00000
04760
104002
050406

MACY1l

047620
Q0lley
047S16

17%:
13%:

8IT

BNE

(08:54

J15
PAGE

#DTSY,
aRO
138
86, 99ERWORD

189
;SYNC. DETECTED”?
'BRANCH IF YES
:ERROR WORD NO.

MOV
MOV

JuRSYNC
, 9#SGDDAT: SYNC WORD

RTS

MOV

#104002, 98HEDSYN

SEG G191

CIRIGBC,RPOM-5. 6 DSKLS CTRLR!

CSRIGB. P11

08-NOV-77 08:30

MACY11

30(1046)

oe NOV-77

08:54

DISK SIMULATION

K15
PAGE

190

SEG D192

469
470

ra gl
e
X
4=
474

;:;s

: *RERD ONE WORD

ii
9T
47
480
7481
~482
7483
7484
~485
~486
~487

0S0414
050416

012705

000002

7489

050486

005037

0SO410

~49]
7462

0S0434
0S0M40

0S2710
012702

000020
000007

~494

QSO4S0

0S0410
0SQ0412

000000
000000

WORD:
COMPA:

O
O
.

REARD:

MOV

7488 0S0422 012710 000001

MOV

490

BCC

7433
7495
7496
7497

DS0432

050444

050454
050486
0SO462

103002

052710
00S737

00S037

045306

006037

0S0410

012737
000402

7601

050500

01274

7602

0S0S10

7502
75604

050474

050504

045314
000020

0S0464
0S0472

103002

177777

012716

050524
050526

001404
005237

7€10
7611

060536
080542

0S2710
005737

000002
045314

7§13
>C14

0S0550
Q50664

032710
001404

000020

050564
0D505e6
050572
050676
050602
0850604

000402
DOS037
01274
006037
103002
012716

000001

(QE0612

00S737

O4C2:i4

7607
7508

7509

712

~€15

7S16
7€17

~€18

719
7€20
7621
7822
7622

TEe4

050516
050520
060532

050546
0E05S56

0S0el10

0Z0e.E

045314

004737

045326
045344

012737

012610

001404

£%:

000021

012610
005737

001411

5§

177777

Q45206

0S0410

000021

2%:

JSWORD

BIS
MOV

lMRD
.7

BIS

8%:
4g:

RO
Re

:WORD

COUNTER

:SET DIAG. MODE

:CHECKING IF THERE

IS A ONE

'SET BIT 4 _IF
:BYTE COUNTER

HAS

:IF NO ONE BRANCH

DATA

MOV
BR

#-1,8ECDATA
6%

1ECC DATR BIT IS A ONE
: BRANCH

80MD

:KEEP

6%
$MRD, 3RO
s

aoscoarn

ROR

8WORD

MOV

-(SP)

ONE

:SET CLOCK,DATA IF ANT,
SECTOR
;1S THIS'BIT TG GENERATE AND TEST ECC
'BRANCH IF NO
i1S DATA BIT A ONE
:BRANCH IF DATA BIT

'ECC DRTR BIT

IS R O

ONLY oxnc

MODE

'CHECKING IF THERE IS A ONE

BCC

; IF 'NO ONE_BRANCH

MOV
157

(SP)+.
&R0
asTselce

sPUT IN bnrn RESET CLOCK,
SECTOR
(1S ECC
T at GENERATED FOR THIS BIT

JSR

PC.

MOV

#MRD ! DMD

lsp)

-KEEP

DATR AND

DIAG.

3s
JBDATENY

: BRANCH
'NUMBER

gls
757

sMiLK,
QRO
asTSelce

'SET CLOCK
216 THIS BIT TO GENERATE ECC

BIT
BEG

8MRD, 3RO
78

115 DATA BIT A ONE
:BRANCH IF DATA exr

B8R
CLR
MOV
ROR
BCC
MOV

8%
J8ECOATA
$0OMD
-(SP)
acuoho
4s
$MRD'DMD, (SP)

: BRANCH
ECC DRTA BIT IS
= O

MOV

7%:

3RO

sMSTCKIMCLK,
JWTSECCG

BEQ
045306

757

BEQ
INC

38:

ooho

ROR

BEQ
BIT
BEG

045306

000001

050512

7505
7806

000012

001411
032710
001404

7488
7499

7500

IN "WORD"

MOV

757

BEG

O8ECTEST

#-1,38ECDATA

(SP;+.
&R0
duTselce

=13

:GO

MODE

xr
OF CLOCKS GIVEN FOR DATA
TO GENERATE AND TEST ECC

iBRANCH

ENVELOPE

IF NO

;ECC DATA BIT

1S =
1S
A ONE

KEEP DIRG. MODE

caecxxua ir THERE IS A ONE
'BRANCH IF NO
O
:KEEP DIAG. noos n~o DATA__
»
:SET DATA, DIRG. MODE,
CLEAR CLICH
:1S THIS BIT TO GENENATE ECC

:BRANCH IF NO

J3RIGB.PLIL

08-NOV-77 08:30
005237
004737

0S0636
0s0e4e

045326
04S344

MRCY11l 30(1046}

08-NOV-?7

DISK SIMULRTION

08:54

S8DATENY
¢ ,O8ECTEST
9%

Vr- VWODT
OV

CTRIGBO,RPOM4-S.& DSKLS CTRLRI

L15S
PAGE

181

.NUMBER OF CLOCKS GIVEN FOR CRTA ENVELOPE
:GO_TO GENERATE AND TEST ECC

;BYTE COUNTER

!BRANCH IF ONE BYTE NOT COMPLETE
s WORD COUNTER
:BRANCH IF ONE WORD NOT CCMPLETE

SEG 0192

CSRJGBO,RPO4-5 6 DSKLS CTRLRI

CZRIGB.PIL

08-NOV-77 08:30

MACY11l 30(1046)

0OB-NOV-?7

DISK SIMULATION

08:54

PAGE

192

SEG 0194

TE34

=635

Zggé
323%

;#WRITE

ONE

WWORD:

WORD WHICH COMES BACK

IN “WWORDTM

240
=G4

7642

7643
TEYY

2645
2846
TEN87
>Eug
~E4§
~650

~55]

0SO6MY

0S0646

(05G6S6

000000

012705

WRITE:

000002

7662
7663
75549

0S0662

012710

000001

0S0666

012702

000007

7666

050676

032710

000040

7668

050704

012737

177777

18:

~685 Q050672 012710 000013

7657

050702

7559
7660

050712
050714

7562

050720

7561

001406

000261
006003

050716

000404

7663
7664

050724
050726

00024l
006003

7666

050734

7665

7867
7668

7668

005037

050730

012710

050740

001404

0E0742

050746

005237

045326

000002

004737

7670

050752

062710

7572

050762

001406

050772

000261

7671

2673
7674

>€76

757

225

050756

060764
068774

032710

012737

2$:

33:

88843‘4

4s:

000040

051004

0002491

0OMS306

061032
0E1034
0S103c
GE1040

005302
00134E
00S305
001312

'BRANCH IF ZERO

SEC
ROR

!SET CAR
'MOVE 1 roaunao

CLR

JBECDATA

:ECC DATA BIT IS = O

cLe
ROR

MOV
75T

7%:

sl 2RO

$MWR, RO

$-1,38ECDATA

#DMD, 3RO

uTSECCG

: WORD COUNTER

'SET DIAG. MODE
‘RO HAS RHHR ADORESS IN IT
'BYTE COUN ;n

CHECK WRITE BIT IN MAINT. REG.

‘ECC onrn 6IT IS A ONE

!CLEAR CARRY
'MOVE O FOR WWORD

!CLERR SECTOR AND CLOCK

!1S THIS BIT 10 GENERATE ECC

BEQ

"BRANCH

ISR

PC a8ECTEST

‘G0 TO GENERATE nno TEST E£CC

8IS
BIT
SEC

7885
7E8E
»Se7
7=ee

ROK

;égg
Osiéig 875902 00001
7681 8?1014 865759 quaxu
ZES%
ngoeg 005337
45326
7E8% 851856
885?37 quaqq
7

BEQ

MO
c§:

037

onSTCK MCLK!DMD, 3R0. SET SECTOR AND CLOCK

BEQ

045306

7678

MOV

INC

0453494

177777

MOV

006003

Q77

045306

0001

046314

82,RS

BIT

045306

005737

MOV

cLe

585
TET
?Eg
ISR

DEC
BNE
DEC
BNE

JDATENY

sMELK, IR0
sMUR, 3RO

'NUMBER

IF NO

OF CLOCKS GIVEN FOR DAT& ENVE.JPE

'SET CLOCK IN RHM

!CHECK WRITE exr IN RHMR
'BRANCH 1F ZERO

8-1.38ECDATA

scc onrn BIT IS A ONE

'MOVE

8ECDATA

Pa-rstfcc IR0
NV
3conr
JeECTEST
|]

ws
RS
1§

}SET _CAR
:ECC

ron WWORD

DATA BIT

:CLEAR CRRRY

ZERO

SEEER
““ORD
HIS evr TO GENERATE ECC
Sfifi“°n
CLOCKSanoGIVEN
?EOFnnvs
TEST Fon
EC _DATA ENVE_CPE
13

co
UNT ron gv END
'YF NOT BYTE END BRANCH
:COUNT FOR WORD END
*IF NOT WORD END BRANCH

C2RIGBO,ROM-5
‘6 DSKLS CTRLRI

CSRIGB. P11
:gg?

08-NOV-?7 08:30

051042

C10337

0S10Se

000207

7592
593
7834

0S0b4M

MACY1l

08-NQV-77
30 (1 046 )
D IS K S M ULATION

08:54

N15S

MoV

R3. JSWWORD

RTS

PRGE

193
; STORE

SEG 3195
THE WORD

W21

RPO4 § & DSKLS_CTRLRI]

08-NOV-=7 08:30

MRCYLll

30 (1 046 )
EB-NOV-??
s} IS K S IMu ATION

i #*WRITE

DRTR

COUNTD:
FORMART:
ZWORDS:
WRDARTR:

PUT

D8:54

DATA

e Pt Pt Pt
e
et Pt
Pt Bt

DO NN LWhe-

ENERR -3 3=
[eateadoealealoaleale
ol o1+ 2l

:#ONE WORD AT A TIME

051060
051062
051064
051066
0S1066

000000
(000400
000000

011137

051060

051074

012137

0SM412

012701

000016

051072
g0Sill2

012102

0S1116
0Sllge
061126
051130
051132
0S1136

012703
012723
005301
001374
013700
013746

0S1l46
051152

011637
012604

051142

163716

BEQ
MOV
MOV

8- aorseccc
sD15K,R3

THESE exrs ARE 10 GENEPQTE ECC
; ADDRESS THE “DISKTM AREA

anauono (R3)+

:STORE ON SIHULRTED DISK
:COUNT DOWN
TCONTINUE IF ALL uonos NOT WRITTEN
TANY 2EROS TO BE WRIT
'BRANCH IF NONE T0 BE unxrvsn
“WRITE ZEROS INTO "WWORD"
:STORE INTO "DISK"

051226

001372

051260

Cc12ed
ZEIZ27C

013723
012701
004737

OF TOLERANCE GRP WORDS

:NO. OF ZERO WORDS TO BE WRITTEN

050644

005301
001372
004737

:NO.

;COMPRRE OR NOT

(SP) a-zaonos
(SPY4
R

013723
005302
001372
005704
001406
004737
013723

013723

#14.

OF WORCS TO BE WRITTEN

MOV
MOV

051200
051204
051206
051210
081212
051214
051220

051250
051252
051264

:SAME IN R2

051064

18:

061060

0S1174 004737 050646

0S1244

(R1)+.38COMPR

MOV

001660
051062

177777
0S141&

005037
012701
004737

MOV

;STORE NO.

(R1)4,R2

“WWORDTM

:START OF TOLERRNCE GAP TABLE
‘MAKE IT 1777
(1S 14 COMPLETED
:IF NO BRANCH
'RO CONTAINS MRINTANENCE REG.

012737
012703

051230
0E:234
051240

(R1),28COUNTD

RAREA FROM

sT0L8AP,R3
s-1, (R3}+
R1
18
d8RHMR. RO
SSFORMAT, - (SP)

51162
0S1170

005304

INTO “DISKTM

SEG Cl19t

MOV
MOV
DEC
BNE
MOV
MOV

051184
00S737 002024
0S1160 001403

0651224

PAGE 194

MOV

0S2424
177777

Blb

0S0646

050644

045314
000002
0S0E46

SuB

157

045314

TS:

2%:
k ¥

JSR

MOV
DEC
BNE
ST
BEG
JSR
MOV

DEC

BNE

(SP)

8T
sstc
78

PC acanxrs
es
RY
4$
PC,a8WRI"E

a-auonc (R3.+

:1S
THIS AN ECC TEST 7
:BRANCH IF NO

TWRITE INTO "WWORD"

CLR
MOY
JSR

anTSECCG
82, R
PC, unx E

(S0e4E

DEC
BNE
JSR

PC,WRITE

:WRITE DRTA GAP INTO "WWORD"

0000!E
0JSO0ENE

MG /
W

8l4. Rl
pc.aoupxrs

-WRITE

050644

4g:

S8COUNTD.

c§:

050644

MOY
MOV

£$:

anuuopo (R3:+
ss

JsWWORD, (R31+

;NO MORE ECC TO BE GENERATED

.
:WRITE ECC1 AND ECC2 ON SIMULATED OISk

:STORE ON WEEC1 AND WEEC2
:STORE INTO “DISKTM

A
_
TOLERANCE GAP ZER(CS

C<RJGBC,RPON S & DSKLS CTRL
RI

JSRIGB.AIL
T6S1
~682
7853
~EE5

o65€

~£gg

T08-NOV->7 08:30

05127y
9351300
051302

013723
00530]
001372

0s13:¢

cooze:

0S064Y4

MACY11

30(1046,

0B-NOV-77

DISK SIMULATION

08:54

Clé
PRGE

MOV
DEC
BNE

2BWWORD, \R31+
Rl
6§

RTS

195

;STORE

INTO "DISKTM

SEQ 0197

CZRJGBO RPO4.5 5 DSKLS CTRLRI
“)
SRISB.P!1
8-NOV-77 08:30
-

MACY1l

30(1046)
08 NOV-77
DISK SIMULATION

-QNRITE
IXTHIS

W~~31~1°3") 31

THE

D16
PRGE

196

AND DRTA

SIMULATED

DISK

'4ONLY ONE SECTOR OF SPACE IS ALLOWED

~e22

~b81

HEADER

(0B8:54

CS13e0
0S1366
351370

0000e3
C0O0001
000004
000801
200400

J3CCOie

SECGAP:

.BLKW

.BLKMW

HEGRP:
HDWSYN:

.BLKW
.BLkW

&
1

DISK:
WECCi:
WECC2:
DTAGAP:
TOLGAP:

.BLKW
.BLKW
.BLKW
.BLKW
.BikiW

2Sb.
I
1
1
Iv.

MERDER: .BLKW
WCRC:
.BLKW

SILOTB:

;SECTOR GARP 38 BYTES OF O

}9.

WSSYNC:

8Y'E
O
0 ONE SYNC BYTE
;SECTOR GAP
: HEADER
3
= cvi, SECTGR TRACK, KEY1l, k&
C C

4
]

{USED

U
HERDER GAP 10 BYTES CF
HE RDE
1 BYTE OF O ONE SiC.
IN' st 0 ;gSTEflS SILO TABLE
;DATA
JECC
JECC2
'3
2
YTES
‘CATA
G
t YOLE RRNCE GRP e8 BYTES OF O

SEG 0198

JGBO,RPO4-S. 6 DSKLS_CTRLRI
bsR
3RICB. P11
08-NOV-77 08:30

MRCY1l

30 (1 g4e )
08 NOV-77
D IS K SIMULRT
ION
IMu

08:54

PRGE

197
SEG 0199.

+#WRITE HERDER RND DRTR

; ##THIS

SUBROUTINE

THE

;::;Togsgy§s DIAGNOSTIC
;##IT

THEN

CALL

:»#SUBROUTINES.
PUrONTVNNAINY
80— Pt Pt Pt Pt P Pt Po [
SN £ WO Dm0
LW O

SNNNNN RRERERRK
KRR EX] SNNSIININ
) ~N

, BB

052466

162737

gc2C14
000004

0Sesio
0Sesle
052524
052532

012777

0000C1

052840

D12727

0C0113

0SgS4e
052552

00c337
001375

0Se4e0

052554
0Sesel
0secs4

813746
Quezie
012637

052640
177240
052574
053546

052576
OSSBOE
052606

000240

0s2eee

MODE,

OTHER

THESE ARE:

SERIES

NESTED

AN EXTRR DIAGNOSTIC

SUBRCUTINES,

WHICH

SUBROUTINES

INDEX,
TURN

AND

CALL

THE
OTHEFR

WRHERD

WRDATA

RNCTRl:

.WORD

(SP), asPCJSR
a4, bPCISR

:SAVE PC OF JSR
:SAVE PC OF JSR

MOV

#0MD, SRHMR

:SET DIAGNOSTIC

COMWHD: MOV
SuB

; "RUN’

LINE S*RLL counren

MODE

BIS
BIC
BIS

SMINK, JRHMR
sMINX JRMMR
8GO, JRHCS]

RNWATL:

MOV

875.,38RNCTR]

13:

DEC
BNE

INRNCTR]
1s

'FOR 11,50 CPU WITH CORE MEMORY
:COUNT DOWN ! TIME
"CONTINUE UNTIL O

MOY

JSWSECTR, -(SP)

£1727740, Lsp)
(SP)+, JbLWTRK

cer ossxnso secron TRACK

AKE ONLY SECTOR
snve sscron

JSR
.WORD

R1, 38SEARCH
C

: ISSUE SECTOR CLOCKS
:SECTOR NO.

28+NOP , R1

:GOING TO MOVE

Ri.JSFSYNER
R, ISERHEAD
R1. 28ERCRC
R1, J8ERHDGP

*NOP
"NOP
:NOP
:NOP

000001

052570
05es74

THREE

FIRST

BIC
MOV
WTRK:

MOV

MOY
MOV
MOV
MOV

R1, 98SEGPER

JWHDESYN

'SET oxacnosvxg INDEX
:CLEAR IT
SET "GO’ BIT 8 STALL "TILL 'RUN’
;LORD STALL

COUNTER

INCP INTO SEGAP

:NOP

INTP
INTO
INTO
INTO

NOPS

FSYNER
ERHEAD
ERCRC
ERHUGAP
INTO HDESYN

APPROX.

450US

(====w===meua-

SSRIGB. AL
“Tu?
ey

780

35e632
052636
052640
0See4e
0So64Y
0S2b46

6 DSkLS _CIRLRI
08-NOvV-77 08: 30

004137
C

MACY1l

jalm]

C2RJGBC,RPOM S

)
0B8-NOV-77
IMULATION

052732

ésn

: 8

Q
303000

08:54

F16

R1.3#WRHEAD

PAGE

198

SEG 0270

unr}sogus MEADER (-=====ccemmcouua )

sEcroa AND TRACK

iKEY2

;cooo CRC

; #DUMMY ERROR CALL LOCATIONS FOR THE WRITE HERDER OPERATION

082650

C0C240

SEGPER:

NOP

BQD WCRD IS GOING ON DISk
gseete

000240

FSYNER:

NOP

:IF "ERROR 6"

INSERTED BY

:WRHEAD SUBROUTINE THEN

'THE LAST O BYTE OF SECTOR
:GRP, CR FIRST SYNC. BYTE

nrgtn SECTCR GRP IS IN
'

:WORD NO.

CONTRINS 20

;LEFT BYTE

IS SYNC.

:RIGHT BYTE 1S SECTOGR GAP
BYTE

g?gKNORD 1S WHAT IS GOING ON
0S2etcy

200240

ERHEARD:

MNCP

; IF “ERROR 6"

INSERTED BY

{WRHEAD SUBROUTINE THEN
:HERDER GOING ON DISk

115 WRONG.
;WORD NO

= CYLINDER NO

:WORD NO 2 = SECTOR- TRACH
{WORG NO 3 = KEYI

:WORD NO H g KEY2
WHART

;BQJ WORD !
ISK

0EzesSe

00Ge+C

NOP

; IF "ERROR 6"

GUING ON

INSERTED BY

:WRHEAD SUBROUTINE THEN CRC WRITTEN

;ON DISK

;GOOD DATA

IN ERROR.

IS WHAT SHQULD BE ¢CN ZIsk

"BAD_DATA IS kHQT IS GOING ON D I Sk

JSeeel

C0eH0

ERHOGP:

NOFP

;WORD NC

IS
S

:IF “ERROR &" INSERTED BY
i WRHEHC SUBRGULTINE THEMN HERCER

6 DSKLS CTRLR}

36-NOV-77 08:30

MACYIL

& o)

PPOY-5

08-NQV-77
LATION
SIMULAT

(1046)

1SK

08:54

Glb
PAWE

193

SEQ 0201

:GAP GOING ON DISK

WORD NO.

1S WRONG.

GIVES WHWICH OF

I
ENN IR
NN
U0 00D 00 (00 (D (D
m
[V 11T Y S ey oy oy Sy Wy ey
[
= O30
LWius- o

THE HERDER GAP WORDS
‘RRE WRONG. FOR EXAMPLE:

;WORD NO 1 GE;RST gsaosn

eno WORD 1S WHAT IS GOING ON DISK
0S2662

000240

HMDESYN:

NCP

:1F "ERROR &” INSERTED BY

:WRHEAD SUBROUTINE THEN _AST

:HERDER GAP BYTE OR HERDER

1SYNC BYTE GOING ON DISK IS WwRONG.
WORD NO
= §

BGD DATA 1S WHAT IS GGING
10N DISK R;GHT evrs 1S HEARCER
T BYTE IS HEAUER
a?
O
:6AP
: GAP

052664

052670
052672

05267&

0E2700

00S?37

002006

004137

0151086

001004

000000

pearce
2827.&

TST

JSERFLGS

; ARE ANY snnons DETECTED

JSR

R1.J8WRDATH

:WRITE THE DATA (-======—c-eoo—oo ,

WORD

BNE
FNWORD: .WORD

FOUT
O

FOUT:
G00CLeC”

RTS

SIF YES EXIT =--cmemmmcmccceoee
:FORMAT COMMQND NO. OF DATA

teRsw
gD RPCY S 6 DSKLS »TRLPA
CoRIGB.PIL
08-Nov~-7 08:3
=836

~837"

MACrll

30(1048
08-NQV-7?7
DISK
SIMULATION

08:54

H16

PAGE 200

: #WRITE HERDER

=838

7839
T840
T941

~842

7843

;¥RO

784
~845
~ENE
~847

:#R1
;#R2
:#R3
:#RS

"848

=843
2850

T§S1

DS2T20

Q00000

7852
863

Q052~g2
052re4

130000C
000000

ZBEE

0S2T30

0070000

7884

7857
~858
-

o861
7862

o863
o865

~865

7866

0S2r2e

052732
052736
052742
052746
052752

052760
0S2764

052770

052774

ScyL:

SSECTR:
SKEY1:

000000

012137
012137
012137
012137
012137

012701
013700

012710

012705

SKEY2:

052720
052722
Q52724
052726
052730

~370

7872

7873
7874
T87S

7876

0877

7878

7879

053014

0S30l6

0S3020

053022
0S3024
053026

053030

2%:
00000

000007

053044

032710

000045

0S3040 052710 0000Ce

7686
7887
7688
7Ee9
TB3C

0S30e4
053C70
(QE3C72
QEIord
CE3C7e

7E8C

006003

012710

US3062

001402
000261
026002
00CH4G2
00024]

006003

012710
0QE302
00i3E2
DOS3CS
001343

MOV

g
BIT
103%

3%:

4% :

c3:

0GGOCI

es:

;

:
(R1)+,385CYL
(R1)+,IWSSECTR
(R1)+, J8SKEY]
(R1)+, JuEKEY2
(R1)+, J8SCRC

8SECGAP, RI
JWRHMR, RO
80rp IR0

2,RS

SIMULRTED DSk INDICATOR
RO_NOW
HRS MAINT. REG. ROCR.
CET DIAC, HOOE

' WORD_COUNTER

TN R

TG(om0,.LHEEK
385, Scorrog:LAtk
BHTEG, mace. meser ingex
w3§$£ BrreR-RarRie REG.

sMiR , JRC

BEQ

ROR

novs ons Y F ORWARD

! CLEAR_CARRY
:MOVE_ZERO FCRWARD

SEC

(Ci2702

052050
053052
0S3054
053056
NS30EQ0

MOV

BDIN03°

053034

7860
788!
7882
7883
7EEY4

MGV
MGV

;
;

MOV
MQY
MOV
MOV
MOV

i$:

;

0
O

WRHEARD:

00026]

000402
000241
00E003

000001

000CO2

SIMULATED DISK
BYTE COUNT
WRITE WORD
WORD COUNT

SCRC:

051320
001660

7868
053004 015718 00DOI3
7869 053010 832710 000CH0
TE71

= MAINT,REG.

=
=
=
=

BR
CLS
ROR

MOV

iSET

80MD

3RO

.LLEQR CLO?K

:BYTE

SECTCR

BIS

SHECK, 3RO

.ss CLOC

BEG
SEC
ROR
AR
¢

c§

annncw 1
:SET_CAR
:MOVE ons 'FORWARD

BIT

ROR

MOV
DEC
BNE
DE<
BNE

SMWR, 3RO

R3
68
R3

a0MD, IR0
R2
43
RS
1%

~HECK WR 75
BIT IN MRINT.RES.

;SET DIRG.

; CONTINUE

MODE RGSIN

IN RhrR

*oBC,RPO4-5 & CSKLS CTRLR!I

\‘a GB.P1I
~892

~893

~894
"89S

896

7897

»898

:ggg
~90]

0S3100

083102
053104
053106

08-NOV-~7 08:30

MOV

010321

15T

000001

063120

81033?

001126

053132

000137

053540

053136

012702

000g22

053124

005037

012737

902
=903

063142
053150

012737
004737

~30c

053160

001413

083166
0563172
Q53200
083206

005037
013737
012737
000SS4

0532:0

00S3c2

001iav

104006

000024
050646

2904 083164 013721 050644

906

~907
~g08
~309
;g;?
79.2

3353

053162

J8321e

160237

08-NOV-7?7

0ISK SIMULRTION

005703

0014!4
012737

053114

MRCYLL 3011046)

BEQ
MOV

047620

CLR

052650
04Te20

10%:

047620

0OCilaY
050644
104006

118:

001253

PAGE 201

SEC 02C3

R3, (R1)+

R3’

73
sl au:nuoao

988GDOR

R3 aosaoonr

IMP

Jnl’s

iBRANCH OUT =-meommmommmmmcc
e e,

#18. ,R2

:COUNT MNO.

aoauoao (R1)+

:STORE SECTOR GAP WORD

MOV

8104006, J9SEGPER

MOV
JSR

820, aosnuono
PC, 3bURI (E

BEQ

118

MOV

OF SECTOR GAP

:COUNT TO GIVE ERROR WCRD
‘WRITE SECTOR GAP

SuB

R2, 38ERWORD

;IF NOT GET ERROR WORD NO.

DEC

{HAVE 1e WORDS OF ZEROS BEEN WRITTVEN 2

CLR
MOV
MOV
BR

0Dil26
052650

Il6

MGV

MOV
3.

08:54

BNE

3#8GDDAT
:GOOD WORD
DsWWORD, 28SBODAT: BAD WORD
8104006 98SEGPER: STORE "ERROR €&" IN SEGPER
178
IBRANCH OUT ~e-==m—meocms
e ceeee ,

1068

:IF NOT DO SO

~gic

;#AT

7915

. #HOWEVER IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROLTINE

:g;g
33§8

~G42]

7922
T923
S24

0S3214

005737

001i47
004737

7926
T926

053226
053232

=328

083240

7530

73929
793]

gggg
K

7334

793¢
793¢
7937
7938
7939
7940
T4

S8TESOTE

1S THIS
A DRIVE TIMING ERRCR

050646

013711
(023721

0S0644
047602

MOV
CHP

JWWLWORD, (Rl
JBRSYNC| (R1

{SAVE 0 BYTE nno SYNC BYTE
'1F SYNC. BYTE RIGHT

012737

000024

MOV

-ao

;IF

0583254

014137

001l26

083266

000524

083236

053246
053260
053270

(53274
053300
0E33
053212
05331
(0€332C

7944

0E3332

794¢

15T

178
PC, a8WRITE

063322

794

002026

IS NOT GIVEN

BNE
ISR

7942

7943

THE SECTOR FOUND FLOP SHOULD

SO THAT THE HERADER SYNC BYTE CAN BE GIVEN

:#1S ABCRTED - HEADER SYNC BYTE

083320
083222

7937

THIS PCINT

"#BE HIGH.

OGIMIY

013737

Q12737
012702

012703
012737
004737
013711
022321

105006

001124

000004

052720
000005
050646
080e4d

O0O4Pe2C

047620

014137

00112e

Q5333

012737
200+47E

00il2w

10Y00E

YES BRANCH

NOT GET RERDY FCR ERROP

-xoqobs J8FSYNER: xusenr “ERROR 6" IN FSYNER

MOV

-(R1',a4$BDDART

:BAD WORD

17§

PBRANCH OUT ==-====emecem cmcmmeemmeem

%4, R2

:FOUR HERDER WORDS

MOV
MOY
JSR
MOY
CMF

MK
5, I8ERWORD
PC, ISWRITE
J8UWORD, (R1
(R3)+, (R1)+

'POINTER FOR MEADER TRBLE
'ERROR uono NO SET
:WRITE4 HEADER WORGS
:STORE unxrreu WORD
;IS IT RIGHT

suB

R2, J8ERWORD

1WORD NU

MOV

CSoec+

MOV

BEQ

160237

014337

13%:

J8ERWORD

S8RSYNC asscoonr GOOD WORD

BR
.28

128

MOV
MOV

0S2652

001412

083326
JE2344

047602

BEG

047620

"BRANCH OUT IF YES
{WRITE ONE SECTOR GAP 0 BYTE
RND ONE SYNC, BYTE
= 23C

MOV

148

-(R3Y, I#SGDDAT
R1,.

388BODAT

:IF GOOD conrx UE
i
IF_NOT GET RERDY FOR PRINT

cooo 0ATA
R0

DAT

s:0400¢6, DSERHEAD. INSERT "ERROR B
173

iBRANCH OUT =-=--=------

(SRJGBO,RPOM-S 6 DSKLS

SSRIGB.PLI

}

083416

~960

053420

)
050646
050644
052646

37
37

001126
052646

Q00000000

2958

005302

001353
37
11
37

737
2737

|
N
[V
W

~N
(=]

(053346

)
[¥s]
N
£

08-NOv-~7 08:30

T948

CTRLRI

004737

IMULATION

DEC

00000S
109006

00000S
00000
0S0646
0S0644

~969

7971
7972
7973
7974
7975

0S3460

104006

053466

053470
053472
053474
053500
053504

7976
7977
7978
379
7980

053510
053512
D0E3520
083524
083832

£382

083E40

384

JE3C42

(0ON73

Q01413
012737

014137
0:2737
012737

DOOOOS
Q01126
047602
104GCE

MOV

aoauoao (R1)+

;sxo€

SUB
CLR

RE aoenuono
a88GD

‘ERROR WORD NO
) onrn

MOV

8104006, I8ERHDGP: STORE "snnoa 5"

os a-snuoao
JSWRITE

—(Rl)

aosaoonr

:ERROR WORD NO ssv
‘WRITE HERDER GRP

:1IF GOOD BRANCH

.a D DAT

178

:BRANCH OUT —--=-ememmcmcmcmaemoeoo

DEC
BNE
JSR

R2
15§
PC, aSWRITE

:ARE S HERDER GAP ZERUS
:1F NOT BRANCH

CMP
BEG

JWRSYNC. (R1)+
178

MOV
MOV
MOV

-(R1), 98SBODAT
J8RSYNC, 3#ESDOAT
# 104006) 38HDES
YN

RTS

DONE

SWWORD, (R1)
85, 98ERWORD

I7e:
000z20:

:ARE Y4 HEQDER WORCTM JOMETM

:NO OF HERDER GAP

MGV

030llay
0seeke

SEG 0204

#5,R2

MOV

047620

232

MOV

0s0e46
0SOe4Y
g47e6C2

PRGE

‘IF NOT DO THEM
‘WRITE cnc
:STORE £
conpnns cooo CRC
'BRANCH IF GOOC
:BAD CRC WRITTEN
;GOOD CRC
:ERROR WORD NO
INSER« ERROK &
TEXTT mmmemmmeeme

MOV

16%:

J16

138
¢, JWMRITE
J8lWORD, (R})
(R1)+, abGCRC
20%
-(R1),d88B0ODATA
39GCRE, 9uSGODAT
85 J8ERWORD
sxbwuos ansncnc
1?

BEQ

0Se2es0

0B:S4

8NE
JSR
MOV
CMP
BEQ
MGV
MOV
MOV
MOV
BR

MOV
JSR

047620
7968

08-NOV-77

Y 3 3 G A

p——

CoRJGBO,RPOM S & PSKLS CTRLR]

JSRISB. AL

08-NOV-T7 08:30

MRCY11l 30(1046)

08-NOV-77

DISK SIMULATION

08:54

K16

PHGE 203

SEG 02CS

~98”

7988
~989
~930
7991
7992

993

: #SERRCH SECTOR

8000
8001
8002
8003
800+
800

i ®
RO=RHMR AUDRESS
.
R1=PASSED ARGUMENT (SECTOR SEARRCHED FOR)
i
R2=CLOCK COUNT (PER BYTE)
®
R3=SECTOR COUNTER FROM Rl
P ¥
RS=BYTES PER WORD COUNT
; *BEBORE INDEX IS GIVEN TWO SECTOR CLOCKS RRE GIVEN TO RESET

7994
7995
799¢
7997
7998
7999

8006
80C7

:#SECTOR PULSE IN CRSE 1T IS SET
:#AT BEGINNING OF EACH SECTOR ONE SECTOR CLOCK HAS TO RISE

8003
8010
8811

;#IDENTICAL WITH CLOCK
; *NUMBERING THE SECTOR CLOCKS RS FOLLOWS
iTnE SECTORCLOCK UNDER INDEX - O

Pt Pt
Bea 9t Pt § -t P

00
W WO
00000

; #BEFORE CLOCK THEN EVERY EIGHT CLOCKS ONE SECTOR CLOCK

0~
£ W

8008

Iz 31
lTHE

*ETC.

#THE NEXT SECTCR THEN HRS 608 SECTOR CLOCKS

000000

8024

053546

012137

0S3S44

8025
8026
8027
8028
8029

0S3S6&
053572
053576
053602
0S3606

013700
013703
0l1c?10
052710
042710

001660
053544
00000i
0000!
000010

8C31

05836l

042710

000CIO

0S36ie

0S2710

0000.10

SECTR:

SEARRCH:

MOV

8038

; SECTOR SERRCHED FOR
(R1)+

OOSECTR

sMSTCW.

aRO

MOV
MOV
MoV
BIS
BIC

J8RHMA
98SECTR, R3
sDMD
" 3RO
stSTEK, WSRO
sMSTCk. IR0

BIC

sMETCK, QRO

BIS

8033

8034
8035
8036
8037

iTHE NEXT SECTOR THEN HRS ANOTHER 608 SECTOR CLOCKS
:#AND SO ON

053S44

8032

lTHEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - &C&

8C19
8020
8021
gggg

8030

SRVE SECTOR SERRCHED FOR

NOW RO HAS MAINTENANCE REG. ALK,
SECTOR COUNTER
iSET DIAGNOSTIC MODE
;SET SECTOR CLOCK
;CLEAR _SECTOR CLOCK

;SET SECTOR CLOCK

;CLEQR SECTOR CLOCK
;THE ABOVE

TWO SECTOR CLOCrS ARE GINVEN €OR

{RESETING SECTOR PULSE

0S3e22
053626
0S3632
0583634

0S2710
012710
0Q0S703
0Civel

000Ci4
0000C!

BIS
MOV
TST
BEQ

:IN_CRSE IT
STARTS SET
SMINX!MSTCK,adRO ;SET INDEX AND SECTOR CLOCK
sOMC,
aRO
;RESET INDEX AND SECTOR CLOCK
R3
s IF SECTOR REGQUIRED JUMP QLT
7%
.BRENCH OF SECTCR ZERC REGUIRED

CcRJGBO,RPOY S & DSKLS_CTRLRI

oRJGB.P1LIL

08-NOV-T7 08:30

8043

MACYLll

30(1046)

DISK SIMULATION

: #ONE WORD ONLY

8051
80S2

0S3636
083e42

012702
012705

000010
000002

80S4

053652

062710

000002

8053 063646 052710 900010

8064
2065

053656
0S3660

000402
0S2710

083664
063670
(053674

042710
052710
042710

3702
08370M

001372
012702

053700
063710

0523712

00S302
005305

090012

000012
000002
000002

18:

2s:

33
8%:

000007

053714

083720
063724

3074
8075
8076
8077
8078
808C
8081
8082

8083
8084
8085
gggg

8068

012701

000457

000002
000007

063734
0S3740
063744
0563750
063752

042710
052710
2710
005302
(01372

000012
000002
000002

053756
053760
053762

001362
005301
001356

083730 052710 000012

063754

063768
053770
053774
083776
054000

OS40l4

8034

0SH40lE

4%
s§
63

005305

0S27i0
0427.0
00S303
001317
0002C!

3835

8097
ecag

BR
BIS

3s
nMS(CK'flCLK dRO

:BRANCH TC CLEAR SECTOR AND C.JCK
;SET secroa AND CLOCK

DEC

Ri!

:BYTE COUNTER

BIC
BIS
BIC

BNE

012705
012702

8089
8090
804;

ggg&

:BYTE COUNTER
,BYTES PER WORD

sMCL'¢, IR0

ISET SCCTOR CLOCK
:SET CLOCK

M5 TCKIMCLK, 9RO :CLEAR SECTOR AND CLOCK
nn LK, oRC
'SET CLOCK
s*CLK. QRO
i CLEAR CLO:K

8$
.7,

:BRANCH IF BYTE NOT COMPLETE
;ssvup FOR SECOND BYTE
: 1S WORD COMPLETE?

:BRANCH IF NOT COMP{ETE
'TO GIVE SECTOR CLOCK AND -LOCK

: ¥NOW 303 WORDS ARE LEFT AND ALL RRE

8071
8072

8079

R2
RS

OHSTCK aR0

DEC

0013b2

aa.,

8IS

BNE
MOV

8063

8073

MOV
MOV

BIS

gggg
§370

SEG 0208

‘#lILL BE IDENTICAL WITh ONE CLOCK

8048
gggg

8G63

PRGE 204

i#;FOR SECOND BYTE AND ALL OTHER BYTES TILL NEXT SECTOR sscrop cLoCw

8829

8061
8062

L16

*#B0TH WILL COME DOWN TOGETHER THEN SEVEN CLOCKS WILL BE GIVEN

8045

80€7
8058
8059

08:54

;#FOR FIRST BYTE SECTOR CLOCK WILL GQ MIGH THEN CLOCK WILL GO HIGh

804Y

8065
8056

0B8-NOV~-77

MOV

MOV
MOV

BIS

RS
R2

:WORDS PER SECTOR COUNTER

:BYTES PER WORD COUNTER
'BYTE COUNTER (CLOCK COUNTER,

onéTcx MCLK, 3RO :SET SECTOR CLOCK AND CLoCK

BIC
8IS
BIC
DEC
BNE

#MSTCKIMCLK, QRO
sMCLK,
RO’
sMCLK,
aRO
R2
63

;CLEAR SECTOR CLOCK AND CLCCk
1SET CLOC
TRESET CLOCK
1S BYTE COMPLETE"
"BRANCH IF NOT COMPLETE

BNE
DEC
BNE

c§
R1
4§

:BRANCH IF NOT
115 SECTOR COMPLETE
:BRANCH IF NOT

DEC

0000IC
006C0.J

#303.,

IDENTICAL

BIS
g1
OES
BNE

SMSTCk, aRQ
sMETCK | IRO
R3
13

RTS

:1S WORD COMPLETE”

:SET SECTOR
:CLERR SECTOR
:1S REQUIRED NO OF SECTORS COMPLETE
:BRANCH IF NCT

: #RERC ONE SECTOR OF DARTA

0E40z0

000COC
GOOOCC

FNG :

RCOM:

o)
©

:NO. OF WORDS REARD

:ExTRA STORAGE

CSRJGBO,RPO4 € 6 DSKLS CTRLRI]

CSRIGB. AL

08-NOV-?7 08:30

8099

054022

012137

054016

sxgé

054034

83573?

002024

8103
gigg

084042
064050

012737
012702

177777
00002

81
8107
8108

OS4054
0S4060
QJS406M

012703
012337
833737

051416
0S0410

8110
8111

0S+w072
054074

001372
005737

8100
8l

8109

0S4C26

4040

084070

012137

1453

302

0504 14

0S41l2
0S%.16

012337
0DON737

8ii8

084124

001372

811°
8119
£:2C

0S4l22
0S%13
28-130

005302
oocec!

30(1046)

045314

08:54

Mlb

PAGE 205

SEG C207

MOV

(R1 1+, 38RNO

157

deTselcC

éfi rnxs nu scc TEST

18:

MOV
MOV

8-1, INTSECLG
#258. ,R2

THESE ex*s ARE 10 csnsnn*s ECC
ssugnggcosn ggc

- ¥

MOV
MC

JSR

8015k ,R3
(R3)+ JBWORD
PC ., 38RERD

POINTE TO0 PISK SIHULRTION
:RERDY TO REARD CONTENTS
ngng

BNE
3

2s
d8TSECC

:1F NOT BRANCH
115 THIS AN scc TEST

MOV
BEQ

DEC

002024

0S04IC
050414

08-NOvV-?7

DISK SIMULARTION
REDATR:

054020

8115
02uidg
DOLBi5
ousaiw
811%
41
8?3982
8 17
8115
B8l1.6

MRCY1l

&
MOV

dersecce
-15..55

DEC

3%:

(R]1)+ 8RCOM

MOV
JSR

BNE

RTS

(R3)+, 38WORD
PC, 8READ

NO.

OF WORDS ONLY FOR

INFGRMATICN

EXT A WORD ONLY FOR INFORMATION
ANCH

115

256 WORDS DONE”

BRANCH
0T 18 YESee 10 GENERGTED
! ONE 8 gnCAP. 13 TOLERANC
b

‘READY TO REAL CONTENTS OF uopo
; REA o
:CGUN

k] 3

;epnncu IF 14 NG* DONE

s RETURN

+ O
]
-2
-

08-NO x-??
30 (1046 )
8] ISk S IMULRTIO

0B:54

BO1

PAGE 206

SEG 0ec0e

Caly

BIRPEL B

Y Y

(OWMMdmOOW®O

lalgl

L LY]
DD

04 'S & DSKLS_CTRLRI
08-NOV-77 08:3C

MACY1l

ps4132
Qs420e
Q54204

0S4cic

1 8]4402
0 1 2777
Co 0000

RPVECT:

0S413¢

125414

TYPOC

MOV
HRLT

SRPVECT, RPVEC

; TYPE FROM PC
;RESTORE TRAP RPO4 VECTOR

;CHAN
GE TO CONTINUE

RPO4-S 6 DSk LS, CTRLR}

08-NOV )

08:30

MRCY11

30¢

ows)

SYSMRC

.SBITL

gs-uov-77

og-sw

IBRARY ROUTINES

COl

PAGE 207

SYSMRC LIBRARY ROUTINES

SEC 0209

CoRJGBO,RPO4-S & DSKLS _CTRLRI

CZRIGB. P11
8131

08-NOV-77 08:30

MACY1l

30(1046)

_08-NOV-77

TTY INPUT ROUTINE

08:54

DOl

PAGE 208

SEG 0210
;FROM

THE

TTY

MACY1l

30(1046)

08-NOV-77

08:54

EOL

POWER DOWN AND UP ROUTINES

PAGE 209

SEG 0211

s HARI AN REEERREEREERRERERERRERRRRRRRRREREE
RN R %
R

;:ERROR AND MESSAGE TRBLE CONDIMENTS

;ll{lillIl!l!Ili&l!li!lIl!lill!lllillll!ll!i’i!ilil!ll!lllllill!!!llllli

0S7462

127
DHO??:

047117
040524

020107
D44440

EMI:

.ASCIZ

/WRONG DATA IN READING OR WRITING HARRDWARE REGISTER/

0S2123

105
047440

044507
000
0Sl1le2
020116

0S1117
042040

EMe:

.ASCIZ

/ERROR ON

10S

047522

020122

EM6:

.ARSCIZ

/ERROR ON WRITE HEARDER AND DATR/

Q20122
o40s0o4

047101
EMIL:

.RSCIZ

~/CONTROLLER OR DRIVE STATUS/

042522

0Sila24

057646

Q42526

0S1440

040524

052123
044501

EMI1M:

.ASCIZ

/REGISTER FRILED~/

0s410S

EMIS:

.ASCIZ

,NON EXISTENT REGISTER,

000
020124

EMI6:

.RASCIZ

/WRIT LOOP FRILED/

020105

EMI17:

.ASCIZ

/WRITE CHECK FRILING/

EM2O:

.RSCIZ

/REGISTER FRILING/

gEmM21:

LASCIZ

/INTERRUPT FARILING/

0e00s2

[

—

[

046111

047

2522
0S1105

Q44507
043040

0Se
044

0S2lle
082120
0O%4514

0sl
043
043

11
ee
044 01

e¥

Qunn
& = e pe
O
L

~
Ut
—n
£N

040SD6

NO—-COUN—

060024
060032

093030

044501

(Lt

0S7756
0S7764

05110S

Q
£
£
X Va [y s [

)

057666

£
1Al
o
~N

Q47117

n
N
n
n

0]
103

~N
o

057625

DRATA COMMAND/

7
2 FRR2RR22
isre H&flqm

057537
0S7S44

(@}
[w]

B0 Bt Dt st ot e s Bt e s Pt Bt et e Dot Pt B Bt Bt Bt Pt Pt Pt s s Bt Be it Bt Bt Pt Pt Pt Pt Pt Pt ot Pt Pt Pt ot Pt ot Pt P

00 00 000 00 00 0 0 00 0D (0 00 (O 00 4D (D (1 (0 0D 4D 0 b (0 T 00 €D (O 40 00 00 D G0 b €D 00 00 00 4D T ¢D €0 D €D € 6D Pt(D CD 00 €D 00 €O CD D (D D "D !B
0@
MMo
NN LWwh-— ERENE N
R
R RAS S AN S S A A

¢ RJGBO,RPO4 /5.6 DSKLS CTRLR!
P11l
08-NOV-77 08:30
c

PROGRRM ARBORTED.
~

FOL

MARCYL1 3g(1046)

o
2223228
AR
un
ONO
NNOMu-—N 3
N
L LENNDO 2
8 ==
O VO = e e
== NINUWNIO~—0O R
e
PO~ N
g irythisfhietat OuUY—
5R=
¥ F-cERRER —
WA

0B8-NQOV-?7
(08:S4
PAGE 210
OWER DOWN AND UP ROUTINES
.RSCII

/ERROR

DRIVES

PRESENT

-/¢1S><¢12>

.RSCII

/THE UNIT NO’S FOUND BY SETTING RHARS USING RHERLl/<¢15>¢12,

.ASCII

/(T4)

.ASCII

/BY LOOKING FOR °'NED’

.RSCII

/NOTE:

.ASCII

/NOT GIVE

.RSCIZ

/HENCE

.ASCIZ

/LOOK RHERD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR-

DO NOT AGREE WITH THE UNIT NO'S FOUND/<15>¢12>

= 0 IN RHCS2 (BIT #12)/¢15>¢i2>¢1S><
1>

ON DURL PORT SYSTEM,

A DRIVE ON OTHER PORT WILL

/<15

=Rl

=0ONOO

g@g%fifififi ZZRARZ

EMe2:

SEG D212

°*NED’,

BUT WILL GIVE RHRS RESPONSES-/<15><le>

THERE WILL BE AN EXTRA DRIVE/

o
£

RARREP RARZZNPZRZZER
X
8222322 EorREo
2R33RS
L '2 h_SORNIuGN
Rat Woo
L
e N1 —~ONNL
L=
LN
I
ol L i
L) Lol Lol oy
oY
v U0 £ NN
& SR2W=

Qv—»—-v—g
&8828& et

Q47440
83311é
e2se
026440
g44led

RZOZRARERRR P2REZREEZ

BRBIBIRALONLEID &

Caty

[

OOOOOOOOOODO®O

0Q
10

e Pt Pt Pt Pt ot Pt Pt Ps Pt s e

0,RPO4-S <6 DSKLS C TRLR]
Pll
08-NOV-77 08:30

Oe0c4]

Quese

000
020113

EM24:

12>

GBO,RPO4-S b DSKLS

GB.P11

08-NOV-77 08:30

Soug Deosey Dazegh

8246
8247

06056
060570

CTRLR]

MARCY1l

30(1046)

08-NOV-?7

08:54

GOl

POWER DOWN AND UP ROUTINES

PAGE 211

SEG 0213

Baqes BESID3

0S110S
O0O44led

040440
0e2Ql10S

020124
Q42soe

020107
041505

3117
047524

0S1440
020122

8243
8250

8248

060576
060604
060612

044507

8253
8254
8255
S6
8257
S8
8259

060634
060642
060650
060656
4
060672
060674

045517
042101
0S1S11
0S1S11
051105

(040440
05104
042524
044440
047522

EM2S:

.RSCIZ

/LOOK

/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGISTER/<1S»><}12>

8264
8265
8266

047105
044514
042040
047516
041524
044523
0S4503
05110S

.ASCII

060710
060716
060724
060732
060740
060746

0Sl1l22
0S4503
051105
020123
040515
042504
020104
042116

EM30:

8261
8262

047514
042510
043S0S
020122
020116
000122
052503
020124
042116
042517
020124
020110
042522
044514

8269
8270

060767
060774

101
040440

0S2106
0SIN40

0S1105
042505

.RSCIZ

/AFTER A SEEK RANC

INIT/

8273
8274
8275

061015
061022
061030

105
047105
042105

041S03
0S110S
044440

0O43440
052101
020123

.ASCII

/ECC GENERATED

INCORRECT/<1S><1l2>

8278
8279
8280
8281
8282
8283
8284
8285
gggg

061051
0610S6
061064
061072
061100
061106
061114
061122
&?Hg

105
0S3440
047117
020123
0S1117
044124
0683111
020116
88010%

042526
0S1117
0S2040
042523
044440
052101
047105
042042
051525

054See
020104
044510
052103
020123
043440
044440
052101
042105

.ASCIZ

/EVERY WORD ON THIS SECTOR

8288
8289
8290
8291
8232
8293
8294

061140
061146
06l11S4
061162
(61170
061176
061204

047117
020104
047101
052106
052101
020104
O0O40S10

0S1040
047503
026104
0S110S
020101
041505
042526

040505
046515
040440
042040
047101
020103
041040

.ASCII

/ON READ COMMAND,

8297
8298
8292

061225
0Obl232
O0Oeled40

10€
04350
0SiSec

041503
O0S1511
047440

0S1040
(042524
020122

.ASCIT

-ECC

060702

8: 116

047111

= g Eion g il

EM3L:

EM32:

AHERD REGISTER

IN ERROR/

THAT GIVEN

IN "DRTAR USED"/

AFTER DRATH AND ECC HRAVE BEEN RERD, /<«15> <12

REGISTERS OR RHER1

ARE

IN ERROR-<15>¢12»

CZRJGBO,RPO4-S.6 DSKLS CTRLR!

CZRJIGB.P11

08-NOv-77 08:30

MACY1l

30(1046)

08-NOV-77

08:54

POWER DOWN AND UP ROUTINES

PRAGE 212

SEG 0214

gy
Yy
i
Qo061
B0 Bis
g
piEs
g
8304
8305
8306
8307

061272
061300
061306
0613i4

047117
0S3517
020061
047440

0OSHS1I4Y
0S1105
044502
020106

046040
030440
051524
040S20

.RSCII

/ONLY LOWER

BITS OF PATTERN REG.

.ASCIZ

/THIS SHOULD MATCH LOWER

CAN BE RERD/‘iS,‘12>

e B &ls Ohe B

i BiE e me g
8312

061352

044124

0S1S11

0S1440

8316
8317
8318
8319
8320
8321
8322
8323
324
8325
a%g%

061402
061410
061416
06l4eH
061427
061434
O0Obl442
061450
061456
O06l464
82};68

030461
020123
835365

041040
043117
020

0S2111
043440
041S0S

110
047503
044502
020124
043101
034063
096603

043S11
047125
020124
042523
042524
032470
041517

020110
020led
047516
020124
0201g2
020071
051813

EM33:

.ASCIZ

/HIGH COUNT BIT NOT SET RFTER 38859 CLOCKS~

8328
8329
8337
8331

061501
061506
061514
D06l1S5ce

132
042504
041040
052117

0S1105
042Se4
052111
044040

020117
0S2103
047040
043511

EM34:

.ARSCIZ

/ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG.

EM3E:

.RSCI1

-POSITION REGISTER OR 11

.RSCII

/LOWER

i EE Ee ohis e
8315 821394
14
é 7
122

8332
8333
8334
8335

061530
061536
061544
061552

020110
031440
020124
042622

044127
020062
041505
027107

047105
044502
020103
044040

8338
8339
8340
8341
8342
8343
8344
B34S

061574
061602
061610
061616
0Oblb24
061632
06lE40
0O6lb4e

OM
047117
0S1S11
0S1117
044502
020182
0Sil
044507

Oflqgsg
0S)
042524
030440
0S1S24
040520
020116
0S2123

844524
43505
(020122
0c0061
047440
0S2124
Q4esee
0S110S

8348
F349
8350
8351
8352
B3S3
8354
B3SS

061670
061676
061704
061712
061720
061726
0DE1734
Oel742

047514
030461
020123
052101
0S1040
042524
0NS2S17
052101

Q42527
041040
043117
042524
043505
020122
042114
044103

020122
0S21!}
0S0040
047122
0S51€1l
044123
046440
046040

BITS OF

GOOD ECCl~/

HRS 21 ZEROS/

BITS OF PATTERN REGISTER INCORRECT/<15><12>

BITS OF PRTTERN REGISTER SHOULC MATCH LOWER-/<15>¢12>

"«

mv-o-go—.c:?mu—gy
O

/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL.

EM3b:

.ASCIZ

~ON READ COMMAND WITH NON-CORRECTRBLE ERROR ’'DCK’

EM37:

.ASCII

/PROGRAM ERROR BIT #10 IN RHCS2 DID NOT SET/<15> 12>

.ARSCIZ

/IF POSITION REGISTER =10040 OR 10041,

.ASCII

/RHWC DID NOT = O UPON COMPLETION OF RERD/<1S5><12>

.ASCIZ

/OR WRITE HERDER AND DRTR/

n
[N

046101

Q42522

Q46S17
0S3440

Q40Se2

05210¢€
043117
006S04

020lee

0clle?

IT IS GOOG~

8
8
046120
020116
040505

OS2

CEG 0215

.ASCIZ

292

047105

046517
11
?g

0e2420

PARGE 213

041S0S

0S3S10

044504
020i24
050125

I01

.ASCI1 /11 BITS OF GOOD ECCl/¢<1S <12

Q43440

le2

062346
062354
062362

08:S4

L
o

[

—

3
1040

05018

52111

?
062341

g4l

020104

0B8-NOV-77

POWER DOWN AND UP ROUTINES

[y,

PR
D
oR?

8402

8403
8404
B40S

043117

047517

QRZ 9
W
el
S}
-00Q
SR ===N N0 O WU

R
3
2

RRRRRELER
% gb2t
gmgggb—hfl—bho—o—b—o—
FRERREOS FFENEXBRZR

&
8

|
o
e]

2
ggssgg

WIAL] [N
Vo]
RRE [N}

[+ ¢}

8392

020123

Q5110

3517

8309 . 84164

30(1046)

020104
020075
047117

020108

AND 'ECH®'

RREZ

S Z

08-NOV-77 08:30

R22 232 RRATIZRTZRZZR R =
n 22728383
=) >
£
e & 2R
o TR g
&L
X [SETENNY
OO0
RAS R NG5SR E0eede 8 am.—b—
n N ST

CZRIGB.PIL

MACY11l

Q
L
~N
o

c<RJGBO,RPO4-/S &6 DSKLS CTRLRI]

020103

047516
020060
041440

042510

EMH0:

SHOULLD BE SE

CoRJIGBO,RPOM/S.'6 DSKLS CTRLRI

CZRIGB. P11
8412
8415
B414

06242t
06e434
(Oe2442

08-NOV-77 0€:30
042101
042116
000101

0S110S
042040

MARCY1l 30(1048)

08-NOV-77

08:S54

JO1

POWER DOWN AND UP ROUTINES

040440
052101

PAGE 214

SEQ 0O2le

CZRJGBO,RPO4/5-6 DSKLS CTRLR!
CZRJGB A1l
08-NOv-77 08:30

S2
062460

o40S06
0S110S
005S
7S04

== O N

062444

KO1

3g(1096)
08-NOV-?7
08:54
PARGE 215
OWER DOWN RAND UP ROUTINES
CPHALT:

0S2elle

/FATAL

.ASCII

/7K1

.RSCII

/THE

.RSCII

#/'RERDY’,

.RSCIZ

/WHICH CANNOT BE

SPARCESB:
SPACE?2:

.ASCII
.RSCIZ

DH1:

.RSCII

/7PC

TEST

REG.

GOOD

RECEIVED/<15>¢<12>

.RSCIZ

RDOR.

DARTA

.ASCI1

/PC

TEST

WORD

GOOD

BRD

/<1512

020110
0Scll?
046103
000104

DH2:

04707

ERROR

SEE

DOCUMENT

LISTING/¢15><¢12>

122<07>¢377><377>¢207><3?77>¢377><207>¢3?7>
3?7

CONTROLLER OR DEVICE HRS GONE OFFLINE,

BECOME UNRVAILABLE,

LOST/<15>(l@2>

OR HRS STATUS BITS//1S8»:12>

052524
0S1524

020040

023102

SEG 0217

.RSCII

= O N N

0s2116
o445y
006

9??23
SRYhESO
§ggg§§8BuZ=Zon
29929293
:Dsyu~du:~4:~

8415
8416
8417

MACY!1

O4el1?

020040

CLEARED~/

DSKLS_CTRLRI

MRCY11 30(1046)

8483
8484
848S

020040

8490 063267 02

CONT.

020040 020040

.RSCI1Z2 ~

REG ADR RHCS!

RHCSZ2

RHDSI

RHER1/

.RSCII

TEST

FRILING CONT.

CONT.

REG ADR BRD REG RHCS!

RHCS2

RMDS1

RHERIL~

TEST

REG ADR -

DH1Y4:

/PC

7¢18>12»

0
0

VOO

reps

Oono —ivLiEf—LoQ
U'NDODU'\?.—
O£f0Lf
LFOUN0
O0OWOODO0O0L

.ASCIZ

051040

i
: 32
20

020040

RAGR PORALAR

s
Pt Pt Pt Pt Pt Pt Pt Pt

DATA

CONT.

063562

DATA

FRILING CONT.

063555

TEST

SEG 0218

.ARSCII /PC

063442
063450
063456

RR
B0
REw

DO NN
£ W

R (RARARRARARRR
W
8523

PRGE 216

.RSCIZ

08:54

028?83 02004§ DH11:

020032

o8
8509
8S10

0B8-NOV-77

LO1

POWER DOWN AND UP ROUTINES

020040

020104

geaa
5220422342

e Prot P
st Pt P
s

040502

222
EnTEE

8481
8482

020040

22RS
£109
£z

8479
8480

ot Pt ot

8478

RRRRRRR
RRRRRRRR
wWw
WWWwhww

8471
By7e
8473
847y
847S
8478
B477

ghie
Vs AR
L2F SR Yo

CZRIGB.P11 0473 086-N v-7?7 08:30

20998

CsRJIGBO RPO4/5-/6

DH1ES:

.RSCIZ

~PC

/7¢18> ¢}

CZRJGBO,RPO4/5-6 DSKLS CTRLR!

08-NOV-77 08:30

CZRIGB. P11

MACY1l 30(1046)

8sS
85

063622

!
Se
063660

020040
1!

02010'45’

020040

107
2522
020040

063676

020040

047516

020040

063726
063734

020040
051505

ci0l
020123

0S1104
047503

120

020:03

020040

ErT EED
0s2?

5
gs41 &g;g
gsy2
8543

%fi

%3?‘42

8546

063751

8547
8548
8549
8SS0
BSS1

063756
063764
DB3772
064000
064006

0seCl)ég

020040
02912‘4
047117
041440
020040

8561

4
0640S6
064064

064100
4106

020040
041110

051040

020056
0Scu40
020040
Q027124
047117
041440

051505
041440
020040
Q027124
047117

DH17:

0S1040
020040

g2:040
A

053510
68:

042110

TR B mR oo

0D641Se
Oe4164
064172

052116
047503
020040

020040
0S~116
£#

&‘45;5

858e

Oe4272

8580
881

064256
0Oe42e4

044122
020040

020063

REG

/7¢18, 12>

WARIT

BITY

.RSCI1Z

WANTED ARDDRESS CONT.

TEST

CONT.

7418 12>

.RSCl1Z ~

RHBR

RHOB

RHIWC

RHCS1

RHCS2

.ASCI1 /PC

TEST

CONT

/7¢18><12»

RHERI

RHER2

RHER3

RHAS

RHDS1

;

8861 0206‘4

0S1105
044122

020040

.RSCI1

/PC

020040
020040
052116

S
DU ok e S0
8576 064226 020040 020040 020040
857

REG

TEST

020102

020040 DH20:
WSEO oeagqo
g‘!i%
856:
856
414
%
BS69
8570
8571

SEG 0219

.RSCII /PC

020040

020040
020101

B Buh
ol b
B
4130
=

PRAGE 217

hus
Egd
116 042105

asgg %"’8% &1‘4‘40 g?&l? 85712'-4
15
m M
goe §
11
8558
8559

MOl

gse?
0040
040

8537 06053536678 0203'401 020040 020040
8538

08:S4

POWER DOWN AND UP ROUTINES

?
020040 020040 DHib:
&mm 83?0520%
9528528 063614
020040 042524 0S2123

8529
8530
8531
8532

08-NOV-?7

020062
051105
0Q44lee

.ASCIz

MACY1l

CZRJGBO,RPO4/S/6 DSKLS CTRLRI
08-NOV-77 08:30
CZRJIGB P11
8583
85

064300
064306
064314
064317
064324
Oe4332
064340
064346
Ob43S4
ge43b2
064370
064371

0S1S01
O44lee
020040
128
02004

020040
0S1504
00
03
g
020lev
Q47117
041440
020040

064376
ob4404

047117
QuYIN4g
020040
020124
gie
o40
020040
020040

o64420
064426
Ob4434
064437

1040
020040
030523
1

0s10
0S1040
00C
020103

O64M412

821510

020040

Q2004C
0S150%
C41440
020040
020124

DH21l:

.RSCII

/PC

.RSCI1Z

.ASCII

0S204C

N=-0OVDNNLWN~O

020040
052123
o44122
020040

DHEM:

DH2E:

043516

TEST

CONT

RHCS1

RHRS

RHDS1/

7¢18r

12>

/PC

.RSCIZ

0e4782

SEQ 0220

020040
020061

020040
047040
020040

RRESRRIFERRRERY a2

Ob4NYM

0c20leM

NO1

30(1046)
08-NOV-77
0B8:S4
PAGE 218
POWER DOWN AND UP ROUTINES

O41440

o47117

TEST

RHAS

RHCS2/¢15>
12>

UNITS

UNITS/

.ASCIT

/PC

TEST

RHCST

BRD

GOOD

.RSCIZ

CONT.

RHLA

.ASCII

/PC

TEST

PC OF

FRILING CONT.

SECTOR

741812

CONT.

7¢18>¢]

BO&

POWER DOWN AND UP ROUTINES

553

29592

8683

(065355
5
065370
376

o040

859090
Q40
020040
020040
842104

020040
020117
045040
020040
Q4esee

020040

Q42040

PRGE 219

SEG Deel

.RSCIZ

JSR

REG RDD RHCSLI

RHCS2

RHDS!

RHERL

TEST

PC OF

FRILING GCOD

RECEIVED/<15>
(12>

JSR

REG

DATA

DARTA

GOOD

BAD

/(16> (12>

DH27:

.RSCII

sPC

000040
041520
020040
02004C

LRSCIZ

020040

29550

ZRERTY

42040

065434
065436
065444
(eS4S2

040

020040

[

020040
—

Pt ot Pt B

08:S4

QoOwnLoD
L Er-L
L

120

?
RERRRZD 2
[dat
)
x
1ot
&R
0000WO0

2500

00973

s Pt Pt Pt Pt Pt

g
® RRRRRERRRRRERERER
i
K KK
3
¥ Brok 28K ERER

g
&
BE7Y

8630
8691
8692
8693
Bea4

08-NOV-7?7

®
&

BEHYS

RUR EIn B

:
e
¥
L i 2&’“’2%%%.7
fl-‘
Z gg
o
g88 o

08-NOV-77 08:30

307104

£
00

CZRIGB.P11

MACY!l

82RR2
£y

CZRJGBC,RPO4/S/6 DSKI.S CTRLR1

DH30:

.ASCII

/PC

TEST

PC GF

REG.

.RSCI1Z

JSR

ADORESS DATA

DATA

;

.ARSCII

/,PC

TEST

WORD

GOOD

CONT.

052101

020101

020040

020040
042524
020040

020040
0S2.23
047527

OH31:

BARD

CONT

7¢183¢]

C2RJIGBO, RPON/S6 DSKLS CTRLR1

CZrRIGB.P11

08-NOV-77 08:30

MACYLl 30(1046)

08-NOV-77

08:S4

coe

POWER DOWN AND UP ROUTINES

PRGE 220

SEG Qez2

Bo% Deoues QuriBs
8697

065474

020040

.RSCIZ

DH32:

.RSCII

/PC

DATA

RMCE1

RHDS1

RMER]

’

TEST

PC OF

WORD

GOOD

BAD

CONT.

JSR

DATA

RHCS1

RHOS1

RHER!

TEST

PC OF

WORD

GOOD

CONT.

7<153«¢1

04251

O
n
Q
o
£
o

omune
one

diiiiana;

BERZRBAT

066054

000
oo
oo

[01]
~N
£
[V 4]

8738

e
3 5

.RSClZ2

DH33:

.RSCII

/PC

CoRJGBO,RPO4/S,6 DSKLS _CTRLRI
P11
08-NOV-77 08:30
C

MACY11l

30(1046)

08-NOV-?7

D02

POWER DOWN AND UP ROUTINES

020040
047516
020040

DH34:

DH3S:

SEG 0223

’/

JSR

DATA

.RSCII

/7PC

TEST

GOOD

WRITTEN WRITTEN DATA

SC18r 012,

ECCI

ECCe

ECCl

TEST

GOOD

PATTERN POSITON GOQD

ECCl

ECC2

REG.REG.

POSITON REG.

TEST

RHMR

POSITON PRTTERN

-.15>.12"

.RSCII

/PC

.ASCIZ

DH36:

PAGE 22!

.RSCIZ

.ASCIZ

G6e7 107
000
020040
0S150S
050040

08:54

LASCII

/PC

RHCS1

ECCe

RHOS!

USED

RHERI

RHER1

7¢15>¢<1

0800“%

EQ2

30(1046)
0B8-NOV-?7
08:54
PAGE 222
POWER DOWN AND UP ROUTINES

DH37:

0040

000056

023233

041520

B
3
2

REFSKErOR

067014

RRRRRRRRSE

@
&

8821

MRCY11l

DHYO:

8853

067302

8855
8856

053510

.RSCIZ

JSR

CONT.

.ASCII

/PC

TEST

POSITON POSITON GOOD

GOOD

PATTERN DRTA

.RSCIZ

ECC

ECCe

ECcC

.RSCII

/PC

TEST

CONT. 715>

.ASCIZ

RHUWC/

GOOD

REG.

ECCI

12>

000103
.EVEN

B8ee

SEG N224

CZRJGBO RPO4/S-6 DSKLS CTRLR!
2RIGB.P
08-NOV-77 08:30
c2
. 11

0e7342

002032

042264

DTl:

.WORD

SERRPC, TSTNM,REGRDR,
SGDDAT, SBDDAT, O

047620

DTe:

.WORD

SERRPC, TSTNM, ERWORD, SGDOAT, O

047620

DT3:

.WORD

SERRPC, TSTNM, ERWORD, SGODRT,$BDDAT,
O

001126

888888

000000

002032

0Cllee

000000

REG.
7

N-CCDE/

ENVLOPE ZERJS~

CZRJGBO,RPO4/S-6 DSKLS_CTRLRI

CZRIGB.A11
8863
8864
8865
66
8867
8868
8869

0B-NOV-77 08:30

067350
067356
067354
067370
067376
067404
067412
067420
06742
067430
067436
067440
067446
0674s4

001116
001714
001716
001116
001126
001736
001116
0Q0000
0NI1116
0U1200
000000
001116
001704
001712

8890
8891
883
8893

067460
067466
067474
067500
06
067514
067522
06753C
067536
067542
067550
067556
067564
067572
067600

8895
B8%
8838
8899
300
8301

8871
6872
8873
8874
8876

8877

8873
8880
8881
8882
8884
8885
8886
8887
8888

30(1046)

08-NOV-77

08:54_

FO2

POWER DOWN AND UP ROUTINES

PAGE 223

002032
001712
0DODOQ
002032
001714
001716
002032

001122
001736

DTIl:

.WORD

001122
001712
000QCO
001200

DTI4:

.WORD

DTIS:

.WORD

SERRPC,TSTNM,STMPL,O

002032
001176

001204
001126

DT16:

.WORD

SERRPC,TSTMM,STMP3,STMP1,STMPO,SBODAT,O

002032
001706
00000

001710
001714

DT17:

.WORD

SERRPC,TSTNM,BA.DB,WC,CS1,CS2,0

0UL116
001722
001736
001116
001732
001116
001116
001126
001204
001116
001122
001736
001115
042264
00000O

32
001730
00000G
002032
001736
002032
002032
001200
000000
32
001714
501716
002032
001124

001716
001732

DT20:

.WORD

SERRPC,TSTMM,ER1,ER2,ER3,AS,0S1,0

001714
000000
000000
001720
001262

DT21:

.WURD

SERRPC,TSTNM,CS1,RS,DS1,0

DT22:
DT24:

.WORD
.WORD

SERRPC,TSTNM,O
SERRPC,TSTNM,DST,SBODAT,STMP1,STMP2,STMP3,0

002014
001712
00000C
0G2014
0J1126

DT26:

.WORD

SERRPC,TSTNM,PCJSR,SBDADR,CSI,CS2,DS1,ERL,O

DT27:

.WORD

SERRPC, TSTNM,PCJSR,REGADR, SGDDAT,S$BODAT,O

067602
067610

001116
Quo2ed

002032
0OI124

002014
O01lee

DT30:

.WORD

SERRPC,TSTNM,PCJISR,REGRDR,SGDDAT,SBODAT,O

067620
067bob
067634
067642

001116
001124
001736
001116
047620
001714
000000
001116
047620
001736
001116
Q45312
051416

002032
001126
001716
002032

047620
001714
000QCQ
002014

DT3l:

.WORD

SERRPC, TSTNM,ERWORD,SGODAT,SBODAT,CS1,DS!,ERL,O

OT32:

.WORD

SERRPC,TSTNM,PCJSR,ERWORD, SGDDAT,SBODAT,CS1,DS1,ERL,C

DT33:

.WORD

SERRPC, TSTNM,PCISR,ERWORD,SGODRT,CS!,DS1,ERL,O

DT34:

.WORD

SERRPC,TSTNM,GECCI,GECC2,WECCI,WECC2,DISK,O

DT35:

.WORD

SERRPC,TSTNM,GECCI,GECC2,EC2,EC!,POSITI,ERL,D

DT36:

.WORD

SERRPC,TSTNM,PCISR,MR,ECI,EC2,0

DT37:

.WORD

SERRPC,TSTNM,ECI,POSITI,GECCI,GECC2,EC2,DATENV,ZCODE,
O

067650

8303
8904
B305
8306
8307
8908
8303
B3I0
831
B312
313
B314
B31S
S1c

067656
067664
067666
067674
067702
067710
067716
067724
067730
067736
067744
067752
067760
067766

001116
045312
045322
001116
001734
000000

B9l

067776

0QUS32Z

8317

MACY1l

0e7770

001116

001124

001126

001736

001716

002032
00Ii24
001716
002032
0S24le
0Q0000
002032
001746
001716
002032
001744

002014
001714
000000
0YS310
052420

002032

O94E310

(Q4YS310
0Q1744
000000
002014
001746

001744

Q4312

SERRPC,TSTNM,SBDADR,CSI,CS2,DS1,ERL,O
SERRPC, TSTNM,SBDADR, SBDDAT,CS1,CS2,DS1,ERL,O

SEG 0225

C<cRJIGBO,RPO4/S 6 DSKLS CTRLR]

CZRIGB. P11

08-NOV-77 08:30

MARCY11l

8919
8920
8321
8922
ggsa

070004
070012

001746
000000

045326

045330

070014
070022

001116
000000

002032

001126

8925
8326
8327
8328
8329
ggg?

070024
070027
070031
070034
070035
070040

000
000
000
000
000
0o0

000
000
000

8932
8933
83934
8935
8936
83937
8338
8339
8340
8941
8942
gg:a

070042
070045
(070050
070051
0700S4
070057
070061
070064
070067
070071
070074
070077

000
000
000
000
000
000
000
000
000
000
000
000

8945
8946

070100
070103

000
000

30(1046)

08-NOV-77

08:54

GO2

POWER DOWN £ND UP ROUTINES

PAGE 224

DT40:

.WORs

SERRPC, TSTNM,$BDDAT,O

000

DF!:

.By7¢

0,0,0,0,0

001

©Dfe:

.By7¢

0,0,1,0

000
ooo

001

DF3:

.8y

o0,0,1,0,C

000
000

DF1ll:

.8y

o0,0,0,0,0,0,0

000
000
000
000
goe
000
000
00c

000
000

DFiN4:

.eyre

o0o,0,0,0,0,0,0,0

Q00
000

DF1S:
OFl6:

.BY1e
.Byte

0,0,0
0,0,0,0,0

CO0
000

DF17:

.8yt

o0,0,0,0,0,0,0

000
J00

000
oco

DF20:

.BY7'¢

0,0,0,0,0,0,0

000
000
000

000

©Drf2l:

.B¥1€¢

0,0,0,0,0

000

DFfFaz2:

.8y

0,0,0,0

8947
8348
8949
89S0
8951
S2
8953
8954
83955
B9S6
8957
8958
ggég

070106
(70107
070112
070114
070117
070123
070123
070126
070127
070132
070135
070137
070142

000
000
000
000
000
000
000
000
000
000
000
000
0co

000

DOFeY:

.evyt¢

0,0,0,0,0,0,0

000
000
000
000
000

000
000

DFe6:

.eyte

0,0,0,0,0,0,0,0

000
000

DOF27:

.BYTE

0,0,0,0,0,0

8361
8%
2

070145
070150

000
Goo

000
000

OF30:

.8y

0,0,0,0,0,0

00l
000

DF31:

.ey7¢

o0,0,!:,0,0,0,0,0

000
000
000
000
000

DOF32:

.8v¢

o0,0,0,!,0,0,0,0,0

DF33:

.8yt

0,0,0,1,0,0,0,0

OF34:

.ey¢

o,0,0,0,0,0,0

8363
8964
8965
2966
83¢7
8968
8969
8370
897,
8972
8973
€974

070153
070156
070161
070163
07016E
070171
070174
070177
07020¢
070204
(070207
(070212

000
000
000
000
00!
000
000
0cl
000
g0oo
020
Gco

000

000
000
000
000
g00
000
000
000
000
000
000

000
slafe]

SEG 022¢

CZRIGBO,RPC4-S5 6 DSKLS CTRLRI
{ZRJIGB.P11
08-NOV-77 08:30
7021

30(1046)
08-NOV-?7
08:S4
PAGE 225
PGWER DOWN AND UP ROUTINES

DF3S:

.BYTE

g.n0,0,0,0,0,0,0

DF36:

.BYTE

o,0,0,0,0,0

DF37:

.BYTE

o,0,0,0,0,0,0,9,0

0
0r024e

DF40:

.BYTE
.EVEN

0,0.0

ooooo!

.END

B78s12

888

070eel
070223
07026
070231

070234
070237

070242

MRCYL11

SEG Qee27

CoRJGBO,RPOM/S-/6 DSKLS CTRLRI

CZRIGB.P11
ABS

ACL
ACU

= 000200

ADDMOD
ADTIMO
ROE
RS

ATA

ATABLE

ATTENT

= 000040
= 100000

SIgs
7112

= 100000

10248

002016

13078

= 001000
001732
004220

= 000001
= 000002

AT3
ATY
ATS

= 000010
= 000020
= 000040

AT6
AT?
Al6
Al17

BAI

BASECH
BEGIN
BEGIN2

BITST
BITD
BITO0
BIT0l
BIT02
BIT03
BITO4
BIT0S
BIT06
81707
BIT08
BITGY
BITI
BIT10
BiT1l
BIT12
BIT13

= 000OO0Y

=
=
=
=

000100
0002
000400
001000

001710

= D000IO
046240
004240
004230

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

BIT14 =
BIT1S =
BITZ
=
BIT3
=
BIT4
=
EITS
=
BITE
=
EIT?
=
EIT8
=
BI-S
=
B.Tl
BLT2
B.T2
EFTVEC=

042266
00000I
00Q000]
000002
000004
000010
000020
000G4Q
000100
000200
000400
00100C
02
002000
004000
010000
020000

040000
100000
000004
000010
000020
00OOMO
000100
000200
000400
001000
092314
042336
(4234E
000Di4

08-NOV-77

0B8:S4

102

PAGE 227

CROSS REFERENCE TRBLE -- USER SYMBOLS

SEQ Ceze

1131w

1184s
1120w

000204
Q47224

ATO
ATl

AT2

~08-NOV-77 08:30

MACY1l 30¢1046)

1437
7132

10368
12758

Skl
2828

13698

1625

289

4840

4898

8879

8682

5744

834

£928

1586%

1e25%

3015

4033

4828

489

sea4

5742

£832

S32¢

10648
10658
9938
10008

2739
2733

5049
5049

506S
5085

9718

2554

5057

5073

5371

6734

1737

1792

1799

180S

1811

1813

1058¢
1059

2686

4036

4850

4870

Se26

10608

10618
10628
10638

12648
510
509
511

1960
5038
5038
5038
5038
5038
503
503s
503s
5038
503s
503s
5038
5038
503s
5038
5038

5038
503s
503
503
503s
5038
5038
503
5038
503s
60778
6077
€085
€03

§1BS

5199

8875

71058
13828
13808

7134
7131

8132

2569

493

1672
4835

1678
6493

1727
6528

1732
6530

1782
1782
1782
1783
1761
8507
Bi3e
8131

B131
1782

8131

8132

6523
6500
6495

6525
8131
6502

6082
6078
£086#

B132
6509

6518

6520

607is

CZRJGBO,RPO4/5.°6 DSKLS CTRLRI1

CZRIGB.P11
CR

001726

08-NOV-77 08:30
12738

MARCY11l 30(1046)

037000

S49?7

55264

CHECKE

Q43040

4139

Y228

Eggz

g?gg

CHECKT

042650

CKSWR =

CLRREAR
CLDISK

104407

(042532
0426lM

12838
8132

COMHD
-

= 000040

047340

coMPR

DSQO412

COMPRR

(043Si0

COMUHD
<OUNTD

0Seve2
(51060

CPHALT

062444

= 00001S

CRLF

= 000200

CRC

O440e2

CSF
¢Sy

= 000002
= 000010

cse

001712

CrL

047500

ORREAD

DRWORD

csl

DATENY

001714

PAGE 228

4451

4458

Y464

5308

8359

4233

4237

5298

2410
3073
5302
S691

62364

S580

5719

5808

Y4yb4

4470

4El2

4815

4963

4476

4481

4YSey4

4529

4586

4538

4605

S45Y

5457

S461

S479

§507

S529

5558

2536
3468

2573
3576

2597
3696

2643
3815

2660
3874

2797
4072

2854
408S

S43S
5781

S440
867

S445
5872

5451
5961

8473
blebs

479
6152

5503
6437

Y464
72388

4470

4513

4965

sS0s9

S2ss

5310

5479

cel9

2776

2834

2902

3141

3194

4314
762M

77198

4246
Sq44

330S

4212
76l2%

4152
5850

3257

6363

6449

4096
§479

418S
5507

1107
11098

11258
1127#

8479

44Q7

5507

Y451

4337

4341

4420

5438

5443

S448

2431
3214

e479
3324

2508
3444

5358
S634

S430
S777

8131

8l3cs

4Yel1?

4654

1585

1663

Y144
5280

9738

4379

74818

2134

3068
4sie

S03s

4451

7412

1898

4120
76088

1670

2003

4458
e6le

3554
4674

4666

1989

4451
6450

7370%

Y1l4

368
4786
3893
4815
8131

8131

3672
5229

4206

4714

1683

4458

3iel

7614%

4734
1742

Y464

3274

4779
1828

4470

3391

4952

5045

3767

S106

2921l
4175

5255

5528
6774

S562
7145

5592

6365

4349
63848

3374

4451
6633

3418

3509

4836

5507
6535

bl36bs

2386

5361

5507
-

6171

6596

84168

44S1
g580

4458
5718

Y464
S80S

4470
s831

4286
5552

4390
6346

Y451
6431

4458
64838

4464
BS73

4470

4495

4946

5033

5ess

S292

2714
8901
{-14
8867
HN7Dx
5853

4419
890S
2”Je
8475
w488
6339%

6187

elal
B}
2336

6197

6239

bc4b

8864

8867

887S

2418

243S

4631

4749

475!

4864

4939%
6423%

4347
B432

Sg32+
6567%

5040
BS74

5255+«
72668

5285%

S479+«

| 5255%

B344x

b42Bx

BS72x

73208

S037#

6688

6693

6709

6712

10528
10148
1010s
534
42
673

4893

2730
3877

2334

4407
5507

4944

DENVL = 000200
1
= 000040
DFF20 = 000002
OF 1
070024
CFll
070042
OF 14
C700c1

ces2

4332
g479

H493#

2958

ee4l

5eee

4308
8359

44B4E

S03s

2156

Si42

4228
5308

Y458

177570

3646

slee

6449

4206
5258

H4S1®

8875
5260

3527

4814

S024

B363

4139
sS05?7

047560

l2bes
10428
11858
13418

4501

2099

497¢

61848

4056
5760

047554

7508%

1970

4932

589!

3854
5645

e2eb?
8838
2276
8864
HYBNE
SS43x

685Cs

4927

4458

3793
5414

4114
4953

3749
5255

4308

2255
g888
gey?
Sie4
HME8E
SS540#
73198

045326

SEQ 0229

5255

3893

12688
8882
12658
Slee
HuS1e
5507%
7306

08
001704
DCK
= 100000
ol
= 000100
DCLEAR
0020S0

DOISP =

JOoe

4332

3068

4275

CLFR

08:S4

CROSS REFERENCE TRBLE -- USER SYMBOLS

CAT

cC
0017S2
CHECKD= 10441M4

08-NOV-?7

7525%

524

1387

653
94}
833Ss

660
8932

7S68%

8325

7583#

2344
8888
4496
6347
8917

)

4458
6659

4464
.

CcRJIGBO,RPO4/S & DSKLS CTRLRI

MACY1l 30(1046)

DFIS
DF16
DF17
DF2
DF20
oF2l

8938
8939s
8941w

CZRIGB. P11

DF22
DF24
OFee
OFe7
DF3
DF30
0F31
DF32
DF33
DF34
DF35
DF36
OF37

DFY0
OFS
DH1
OH11
DHI4

DHIS
DH1b
OH1?
DH2
DHEO
DHZl
DHZ2
DHE4
DHEE

DHe?
DH30
DH31
DH33
OH34
DH3S
DH36
DH3?
DH40
DIGB

DISKk

07006l
070064
070071
070031
070100
070107

070114
070120
070127
070137
070035

070145
070153
070163
070174
070204
070213
070223
070231
070242
= DODGOI
062727
063175
063355
063555
06
063751
3052
De134
De4317
DB4437
D6HSH2
064725

065130

065273
065436
065641
4
066267
DeBYS?
DBEBSS
067014
067232
= DDOOOH

DSI4ie

DISPLA
001142
CISPRE
000174
OLY
=
100000
OLed
= 000020

= 000001

08-NOv-77 08:30
82
693
706
89278
719
730
745
766
792
807
622
820
S85
869

852
838
857
872
912

950
10098
529
634
B6S
679
687
698
£i6
711
784
740
759
783

793

8i3
675
558
E43
828
848
863

946
i01lw

08-NOV-77

KOe

PAGE 229

CROSS REFERINCE TRBLE -- USER SYMBOLS

89458
8948s
89508
779
89558
8958
629

8961
€93
610
89698
89728
929
889
8980w
B8384s
B48
933
85008
85238
BSo8s
85468
BY6LHE
85668
85868
86018
772
B63I3s

SEG 0230

8352
B929s
89638
896bs
8975w
8978w

BYS1W
B480

86138

B8eSHS

8674s
86928
€93
B740s
87628
1
88218
BB4YES

@714

878z
8
8808

1839
4606

1847
4607

1900
4611

4618

Scus
SQ4s
9838
1013

1387
1387
2245

B13l®

8l32#

2396

246s

2]s?7
3601
4035

3075
3602
4072

10468

08:54

1746

1749

3163
3648
4413

1914

5144
1770

3216
398
5387

4154
4619

Sl49%

4248
4722

4351
4728

445]
4735

158
4736

H4BM
4928

H4Z0
4929

4477
g02s

4478
5026

210!

2171

2644

266l

2742

2798

28ss

2936

5255

g28l

5320

5479

5507

8530

5667

6554

a4e?

1986

3276
3722
S3491

3326
3723
5435

3393
3?&8
S4Yy

446
3817
S44S

3463
3831
54581

3464
3835
8473

3470
3874
5503

3529
39CH
5625

357
3913
5691

CoRJGBO,RPO4~/S & DSKLS CTRLRI

CZRIGB. P11

08-NOv-77 (08:30

DPR
DRY

DST

DSWR

DS1

036334

= 000400

587S
7521

5920
75585

5927
7565

674}
7580

6768
7722

7023
7865

S468

4306

c48e

S48s

SSl10

€513

6210

6213

3489
€e13

6258

3637
&£210

3610
6218

4904
8882

s480
86888

S486
8898

cc08
8901

ES14
890S

£208

6213

6218

6253

Ss0es

4850

4870

001720

12708

3921#

3992#»

8885

00i?36

12778
6258

2684
8864

4848
8867

4868
8879

10548

739

7457

641
672
681
6
70

868678
88708
8872
8875s

= 17275720

Dveo
D121
D122
DTed
D126
pre?
D13
DT30
D131

067460
067500
067514
067522
067542
067564
067334
067602
067620

0133
DT34

067666
067710

067306

067322

D132

S03s

12788
7687
10398

£33

8859

pDe7e42

067730
067752
067770
070014

551
836

890Ss
89084

868958
592

S68
8ss
870
910
949

008100

= DON000

EMYVEC=

45732

(H4E34M

001744
001746

65¢e

88798
828
BRCY8
778
]
8831s

égg;o

sS4

1
729
744
765
791
806
621
819
584

= 00ON000

ECTEST
ECL
ECe

5833
7518

28l
3776

o)1=

ECORR

5826
7504

2686
3731

067350
067370
07412
067422
067440

ECI

5784
7501

10168
gsgg

D111
DTN
D118
D716
LT1?

EED&TQ

S743
7488

= 000200

= 001000

DvA

8735
7378

2686

DTSY

DT3E
CT36
0137
DTN0

08-NOV-?77

10178

DY
001740
(0S2422
DTAGAP
DYE
= 010000

DT1

MACY1l 30(1046)

7
89178
8Sc2s

3400
gc10

7460

8857

8885y
88618
8898#s

8901#

891l
89144

2488

2496

2497

2516

2518

2526

sggéo

6873

7024 %

7084+

7086#%

74984#

7S00#

751S*»

7S517%

7558#

7562

7573%

TETVe

11498

275S

Yyys|

44ysg

Y4b4

4508

4959

5083

5255

6359

B4Y4S

6609

7087

7508

7526

7569

7584

{420

1449«

]

7019

68708

70s2

12808
12818

8911
911

8914
8914

528

797

Bl4ls

503s

1387+«

087772

69?7

81784

0E?7c3?

3348
5485

Eggg

81658
8lE8#

EMe

3284
g482

E?gi

bb
677

057751

3236
£393

Efg;

057660
07700

EML7

3171
4906

Eigg

EMIMN
gEMIS

EMIE

88644

3120
4870

7241
7868

éggg

05745y
07625

1387

2879
4850

SEG 023!

éggg

gEMl

EMLL

PRGE 230

CROSS REFERENCE TABLE -- USER SYMBOLS

5697
72373
DCG

08:54

LO2

£33
686

S4]

b4b

8917
8917

781

81608

573

8lSCs

81758

119

CZRJGBO,RPO4 /56 DSKLS CTRLR!

CZRIGB.P11

08-NOV-77 08:30

060016

EM2O

EM2]

060037

EM22
EMRN

060061
060541
;:

M
H3$

101

EN33
M

062204

932

8384s

057566

697

062341

ERCLFC

020564

EMG

Esgggc 8?5333
ERFLGS

002006

ERHDGP
ERHERD

052660
0S2654

EEEOS OQS?gg
RRVEC= 838804

94y
2965
3032

56?3'
809

615

2969
036

81544

2973
3040

2583'

§é O

7794%
7742%

78008
77808

7968#
7945#

6753

ERWORD 047820

2142

ER!
ER2
ER3
EXT1l
EXT10
ExTe
EXT20
ExT4
EXTY0
FEN
FER _

Y4y e

3008

3011

3019

3023

2025

2028

203!

2034

2037

2044

2049

2058

4209¢

4227

Y242«

4311#

4331

aogi

g SSx

S309%

;gx?

5328

6479%

S507%

S581%#

Se60*

5675

38%7
14 2.

48?7
1429%

4906
1451

5394
BI3ls

5626

574y

5834

5928

aée?

2764

2842

2910

3149

326M

3314

3381

3517

3563

7420%

7442®

746

7895k

7902#

796l#

7965%x

208"
?389;

001722
001730
D0O0COOI
00001QC
000002
000020
Q00004
DOOCH40
200
000020

12718
1274s
10878
10808
10888
i09ls
1089
10928
11138
10318

8879
8879

5260

5347

1325s
11608

1393
2755

2733
405S%

8533
J184s

7e0Ss

3005

4i48%

ggsg

[Ei0t2

3002

4138

ég??l

FNWORS DS267E

2939

4i1i7%

1971%

4USIE

001716

7074s

2996
3060

2362

1834#

4410

7977%

046104

2991
3046

535S

3682
S479%

791b®

2978
3043

9
sBAI

3636
s421

002034
FMT22 = 010000

FORPMAT

8402

qqgg

1296%

go;sgbgo

FILLEC

oot
SBE

=
=
=
=
=
=
=
=

888

83208

7?2'
8843

434Se

SEG 0232

8
]

83288
Sg;a.

EMYO

PAGE 23l

8189s
82438
s

875
94

MO2

gi82e

061501
74

862

08:54

818Ss

EM37

734
756
76

08-NOV-77

CROSS REFERENCE TRBLE -- USER SYMBOLS

114

061427

Em34
E"

710

7e3

MACY1l 30(1046)

7623

3757
5507%

2696

2348%

44S8s

3802
5653

q4e4®

11¢

3862
5669%

4470

BB22

uySlow

3203

4523

7826

4545

8132#

4672%

4765%

3427

4364%

437Cs

4064
SE74x

Y470%
5768

4539#
5858

4S44&
5952

4989%
6393

4994s
£399%

S32ox
736ls

gsse

8898

8901

890S

7906*

7928%

793b%

7942%

79S6#

5327+
7396#

8898

4914

5286

g3fl§

8864

8867

8879

1402+#
3883

4090

4106

4118

4179

:gég

:Egg

:ggg

3%%%

gggg

&uggg.

24gggf

9333.

2393

gu33

8207

Be09

ooe8

5708

861

CZRJGBO,RPO4 /56 DSKLS CTRLRI

C2RIGB.P11
FOUT
FRMAT1
FSYNER
FUTRBL

GCRC
GECC1
GECCe

08-NOV-77 08:30

052702
0233760
DS2652
002042

052646
0O4&3i
0u45312

= BREeEe U
= 00000.

GRY
= 030010
GTSWR = 104406

7827
52808
7741%
13378

77678
2646

o4
1627

1399
1629

40938
#8358
bbsos

6030

HCE
=
HCI
=
HCRC
=
HDESYN
HOWSYN
HERDER
HE
HEDSYN
HEGAP
HY
=
IR
=
1€
=
ILF
=
ILLEGL
ILR
=
I0TvEC=

000200
0020
000400
0Se66e
0S1414
0S1370
Q47514
047516
DS1402
000011
C02000
000100
000001
002104
e
000020

= 000100

10348
11488
10358
7745%
76828
76798
7259%
7c60%
7414
Sg3s
10378
997
10278
13558
10288
S038

Ixe

= 004000

4629
1117w

KEVi

047504

5438

9748

SEQ 0233

7931

4288
6957%
6958

4392
7076%#
7077%

5294
7092
7093

77528
8908

8308

7952
g1l
g8all

7955
g8s1z

7108

7121

7123

71258

7127

7129

3398
Y416

3484
4858

3487
S39S

3534
5736

3596
5827

5448

S4SY

S4s5?

6703
7980#*

6703

6712

cb?4

3343
4414

1401
1653

2751

1410
1655

2808

1436
1665

2876

14427
2667

2959

8917
1449
3352

1489
5963

1513
5965

1557
6022

1560
6024

1562
6027

3114

3118

3189

3230

3234

3e82

7131

3608
5921

3653
6742

7133
3717
5769

8126

3729
7244

8132
3774
7785

3830

7039

S443

£678
2755
6700
78138
72818
72928
76818
8131
5740
2676
2657%

1387#

170S

Y747
11358

6682

6688

7423%
7H43x

TYeuH

5830

g8924

6693

S461

65938

26ke

clges
s073

e2eys

2e7s
5609

6113

cess

2300

2413

2433

2467

2543

2548

2559

5160

Y470%

4491%

4942#

5035«

S255%

5288%

5479#

5507%

SS48#

6342#

Y4S1#
eYe?x

44GB#
BS71x

HYEHE
72694

4470%

4492%

4943x

S036*

S255*

5289%

S479x

S507%

SS549%

343

172340
172342
172344
172346
172350
172352
172354
172356

KIPDRl=
KIPDR2=
KIPDR3=

172302
172304
172306

S2os
Sees
Sees

KIPDRe=

172314

ga2s

172310
172312

PAGE 232

;gggl

KIPRRD=
KIPARl=
KIPRR2=
KIPRAR3=
KIPARM=
KIPARS=
KIPRRb=
KIPAR?=

KIPDRY=
KIPDRS=

NO2

:g;gi

047506

172300

(08:54

g:gé.

KETe

KIPDRO=

7106

8l132s

68608
68478

08-NOV-77

CROSS REFERENCE TRBLE -- USER SYMBOLS

1400
1651

10128
1404

(045332
045324

044424

4187
6871
bf72

2111

3340
3905

30(1046)

7833%

3368

HRADTMP
HARDER

HCCRCE

MACY1!

S22
5228
Secs
S22
Sees
Secs
Sees
Secs

S2ce

ce2s
Seee

CoRJIGBO,RPOY/S-6 DSKLS_CTRLRI

CZRIGB. A1
KIPOR?=

LA
LRD
LERR
LF
ST

172316

0017S0
Quas?4
Q4ezee
= 000012
= 002000

MARKECY
045166
MASK
g42260
MCLK
= 000002
MCPE
=
MHE
=
MID
MIDDLE
MINX
=

00
001000
Q4s156
0O4S0SH4
300004

MMVEC = 000250

MOL

MPL
MR
MRD

MSE
MSTCK

= 000400
001734
= 000020

= 000020
= 000013

MWR
=
MXF
=
NCODE =~
NCOUNT
NED
=
NEM
=
NHS
=
NOPERA

NOSYHC

010000

000040
001000
045316
045320
010000
DO4000
002000
002042

047614

08-NOV-77 08:30

3874
60678
10478
70S0

7570

1003
11158
6737%
2701
10488

85877

Sees

10218

9764
12768
10508

1110
10498
4008

7868

10518
9778
68448
68458

9808
9798
11168
13388

C278%

12898
Y470%
1291s
11878
12728
1147
13518
11429
il43s
11408
11448
11418
11458
60208
1040

PAR

10308

= 000200
047564

PAT

= 000020

FCISR

= 000010
002014

30(1046)

6i-ds
6074%
8131
5482

bB1S2
B11S

08-NOV-77

08:S4

BO3

PRGE 233

CROSS REFERENCE TRBLE -- USER SYMBOLS

SEG 0234

Se2s

1282
6085+
e0e8s
S03s
10198

NOUNIT
001776
NOWORD
047546
NUNIT
002000
oCvL
= 100000
001724
OFREV = 000200
OFSETC
002074
0F100 = 000004
OF200 = 000010
OF2S
= 000001
OF400 =
00GGCe
OF50
= 000002
0F800 = 000040
OPERSE
041440
OPI
= 020000

OR
ouT

MACYL1

s48s

4Q7e
6071%
3944
70S1

5435
H095#
394S
70S8

7878

1133#
B744s
6728.
3451

34ce

7868

Ss10
5440
6096
3946
7059

5613

5626

8054

S44s
6097«
3947
737S

80S6e

S4S
£:C0%
4973
7376

S473
6101
3974
7378

SS03
6102%
3975
7379

3583

3584

3705

7521

8059

3976
7381

8073

40ee
7382

3706

3912

3907

3909

80Ss7

8074

807S

4026
7510

4027
7555

5698

5699

5785

_
5786

5876

3910

3912

3944

3945

3973

3974

8073

8074

8083

8084

7455

8131

7020%

7238%

1664

1665

8914
7491

7496

7S04

7513

3463

3601

3722

3906

8028

8029

8030

8031

8035

80S3

80Se

80S7

Sy4BR

SYSYx

CY4G7x

S4els

7307

73588

e34¢
7322

2430

2446

aue?

5160

s608

6113

6763%

7019%

7556
2711

7571

7030%
1849
5073
11348
2799

2867

1528%
5290%
1575#

1568%
S479x
1S76%

S438%

9012
7869

4026

7879

8035

80s8

4023
7493

7243

4011

7724

67618

7242

4009

7723

5691

4027

7374

7376

7378

7379

7493

8076

7555

7867

7148

S4H43®

1575
5507«
2982

1608%
S550%

S5980#%
7315w

743!

3474
3475

2535

813!

9758
7304

2298
7311

2300
7317

9728

1687

170S

171S

1718

13058

6184#

H18S*

623b#

6237%

£593%

£594*

6762%

7719«

7720¢#

8888

8831

883S

8301

830S

8314

7239

CIRJGBO,RPO4-S 6 DSKLS CTRLRI

CZRJGB.#II
PGE

PIEL

C8-NOV-77 08:30

= 002000

100000

PIEIO = 000100
PIE1Ll = OQDO0O40
Pl lg =
000020

PIEI3

PitlY

MACYLll

PIE1S =

PIELI® = 000001
PIEL? = 100000
Pl 18 =
P% é
=

9788

4419

6807
58088
68098

63908
6941

67988

68108

6941

68138
68148
6815e
e8lén

67998

6899

PIE2L
PlE22
PIE23
PIESY
PIE2S
PIE26
PIE2?
PIE28

= 00O4C00
= 002000
= 001000
= 000400
= 000200
= 000100
= 000040
= 000020

68188
68198
68208
68218
68228
68238
6824s
682Ss

691§
6947
6324
BIY7

PIE30

68178

Fl1EeS = 0000!L0
PIE3
= 020000

68268
6800s

PIE3l

68288

= 000002

PIE32 = 000001
PIEY
= 010000
PIES
= D0O4000
PIE6G
= 002000
PIE?
= 001000

PIES = Doga0a
=

PIP

= 02000C

PIRG
= 177772
PIRGVE= 000240

POSITI
RBA

PRCA
PRCS1

011722
010770

PrRCS2

PROST
PRE.
PRER]
PRERZ

PROG
PRUWC

045322
011250

010724

T
10228

6888

3119

3170

3235

3283

3344

3399

3488

3536

7028

7036

7037

7039

7075+

8911l

8917

2200

268¢

3029

4849

4869

4905

5481

S03#
S03s

]
68468
17328%

6981

18l11lex
1678s#»

]

1959.
1
t11

205¢

000100

= 000IN0
= 000200

SEG 023S

6880

= 001g00
011204

PR2

PR3
PRy

68298
6801s
68028
68038
68048

16728%

= 000040

PAGE 234

CROSS REFERENCE TARBLE -- USER SYMBOLS

6941

1458

= 000000

PR1

68278

i752us
11838
17378
17998x

PRO

CO3

6956

011546
000020
011314
gllele

08:S4

6B812e

DOOO0OM

08-NOV-77

68lls

PIE2Q = 010000

30(1046)

SD3s

S03s

S03s
5038

3609

3654

€508

6209

3730

377%

CZRJIGBO,RPO4/S 6 DSKLS CTRLR]

CZRIGB.A11
PRS
PRE

= 000240
= 000300

= 177776

PR?

= 000340

PSEL
= 002000
PSU
= 000001
PSW
= 177776
PUTREG
042220
PWRVEC= 000024
Ple
045336
Pee
Q4S340

P24

04S34e

RR
RAW
=
RCOM
RCYL
RDCHR =
RDHERD

000200
000020

RDLIN =
ROOCT =

RDY

045334

QssC20
oN7604
104410
047622

10441}
104412

= D00200

0S04 1Y

RECALI

002046

REARDAY
RERDIN
REDRTAR
REFOR

REGRDR

REGSAL
REINTS

002066
002102
(0S4De2
002070

Q4eeed

0OSbH44e
0031584

08-NOV-77 08:30

MACY1l 30(1046)

08-NOV-77

08:54

D03

PRGE 23S

CROSS REFERENCE TRBLE -- USER SYMBOLS

SEG 0238

SO3s
503s

S03s

10018
1180s
SO03s
2246
4630
6238
S03s
68628
68634
68648
68618
S09s
1128«

1390#%

5962

6021*

2266
4748
662l
1387%
6910%
6918
6926+
6901 #

2286
4839
6978
8132
6911
6919
6927
6902#

2301
4859
6984

7129

2394
Sl6l

2414
£2s8

2434
6316

7123

8l3cs

5067

£396

e2b?

2486

2488

7407

7409

7450

6027

6030

2se?

2815S

2883

1348s
13S4s

4502
2740

4953

=YL
T

7319
1349

8099s
4461

4458

446N

Sess

§720

1776%

1996%

2089x

ggggl

S770%

SBbO*

S9S4s

6073%

668iI*

66O

1420
13628

81328
2107

2llys

2128

2135

2186%

2189%

4146
4458
4703

415
Y464
4708

4234
4482
4715

£729
£833+#

S834#

6739

S740#
S84S5

7389

13408

1478

2195+
2’71
3189
3300
3419
3558
3713
383S*

€123
5409
Se08%

169S

7393

2196%
27??
3195
3306
3480
3592
3729%
3836%

Sle4
£41S
S609*

6048

4470
6186

7400

1698

7401

7109

2190

2255

7403

7408

5065

5495

8623

3708

1699

4418

6940
6945
69346
6939

8095
73318
8131
7261
81324
1410

998

8100
736b*
gl32s
73668

2343
4897
7048

1710%

1719%

2199
3110
3226
3336
3487+
3608
3730«
3849

2203x
3118
3234%
3343%
3488#
3609%
3731%
3855

5185
5438
SE6i0x

5199
5443
Skil®

1754»

2204
3119%
3235%
3344%
3489%
3610%
3744
3890

el?7

2205%
3120%
323b%
334Sx
3503
3623
750
4o32*

4235
4483
4716

4238
4504
4788

4239
4637
4818

G741+#
S8S1

G742
S914

S743%
S924#

5231
5448
Sblex

Sess
5454
Se20®

2216
3136
3eSI
3368
3510
3629
3774%
4033%

()
3142
32S8
3375
3534#
3653
3775
4O3S#

5379
o457
Sbe2x

5391#
5461
Shadx

4a47
4581
4832

S744»
5925+

4338
4587
4933

§755
5926%

2497
6187

74868

2526

CCRJGBO,RPO4-5-6 DSKLS_CTRLRI

C2RIGB. P11

08-NOV-77 08:30

RELERS
3020Se
RESVEC= 000010
RETCL
002076
RHRS
001656

MACY1l 30(1046)

13428
503s
13528
12418

3587
1473

12248
Y4E4®

RHBRE

001700

12538

1445

RHCC

001676

RHCS2

001636

RHCSI

RHCS3

O0Cled0

001702

RHDB

001630

RHDST

001644

RHDS1
RHDT

0gleee
C0l6k4

RHEC]
RHEC2

001670
001672

RHERL

00lede

RHERZ2
RHER3
RHLA

001646
Q01654
DOlE7H

PHMR

001660

RHOF

001650

RHEN

0Clebb

RPHWC

R-470

00lie32

002040

EQJ

PRGE 236

SEG 0237

3821

001634

001652

08:54

CROSS REFERENCE TRBLE -- USER SYMBOLS

RHBA

RHCA

08-NOV-77

1490

4827

4896#*

1977#%
4504«

2l62®
NGSS¥

2598
5048%

2735%
5081

2927%
5086

4104#
S255%

4193%
5304+

429Sx
5369%

4398s
S479%

YYSle
SS07%

445Bse
SSeu4s

1811

1984

2169%

2738%

2934x

309S#

3104*

3221%

3JYS7x

3882%

4119%

H2ll#

12498

3080

3457

60S1

6775

2102%

2ill®

2le4®

2741%

27S1l%

2929%

3079%

31i4*

3220%

6166

6729%

6742%

B767%

6769%

7106

7113

7116

7125

72448

7725#

1805#

1811#

1813%

1978

2163%

2183%

2295

24e?

2863%

2928%

442l

4836#

4837+

1991

2243

2293%

2294*

2308

2309

2315

a3cl

2337%

2351

2736%
HY4EYE

2931%
4470x

3078%
4507%

3880%
4958%

3901
50Sex

3921
S255#

3992
5305

Yllls
S370¢

4204*
S479#

S48y
1544

5512
1547

6168
1549

12398

12348

1225%

4963%

12548

12228

1732
4470x

1678

1459

S0S57%
14eY

2361

2390%

S507%

S567%

1236s
H306#
12438
le44s

1635

1857

149}

S36l¥

1975#%

2400

1979

1534#

53k2#

2403

1792
440S*

1961#
44S1x

2166%
44G8E

2693
1535

2806
1837

2874
1542

1637

5612

1640

§717%

1642

1614#

5371

e4e0

S803%

1657

le4bs
12478

6981
2802

286l

2870

6975

123748
12408
12488

1799
1813
3172

1982%
1985%
3285

2167%
2170%
3401

2932%
2935%
353

2937%
3470#

2957%
3529%

307S%
3578%

3163%
3583«

3216%
3584¥

12388
Y4SB#
S809%

1805
Y4b4x
5895%

1983%
4470%
B359%

2168%
4S0B#
bYH4S®

1223s

1727

1976%

2106

1457

1235
S9SH

1242

12458

1494
6169

1743

1629

1689%
6677

1986%

1656

2764
3109

2786
3128

2800
3181

13298

1407

1446#

1737
681

1987%

1658

e802
3180

6779

1672%

6091%

2440

£889%

1659

1678%

6110

292S*

6£358%#

1869

1687#

6167

2360

b444x
1560

1727%

6734#

7110

6603

1732%

6733

1737%

b76b*

1792%

1799%

1871

1874

1616

1618

1629

1630

1632

5860

5913

5932

1876

1879

1881

1980%
6687

2165%
6692

2930%
6699

4820
6702

S819
6707

5838
713

210l%

2171%

3777
2172%

3836
2b644%

3393%
3648

3920
26bl®

446k
3698%

3990
2742%

2798%

2855%

2936

2737%
4959%
6609%

2933%
5053%
6735k

3475#%#
5255¢

3883%
S306®

4118%
S372%

H210*%
S479%

43l2®
S507%

Y4llwx
SS568#

H4C1x
5723

2lel

2144

2lelx

2209

c2ea29

2574

2734%

4822
4824
3656

3276%
3p01x

e84y
3225

3326%
3602%

2860
3243

2176

cg6l
ggg?

2868
3293

34SIk
370S%

2870
3316

34So#
3706%

2889
3335

63%
3722%

2912
3361

3J4bux
3723#

2746

2926
3383

CSRJGBO,RPOM-S 6 DSKLS CTRLRYI

CoRIGB. P11
RH7OCKk

00S364

RKEY]

047610

08-NOV-77 08:30
140Ss

73338

MRCYL1l

30(1046)

7368%

7404

73348
10298
77188
80948
7727

7369%
5392
7727%
B8099x

RPVECT

0S4132

1391

81258

8127

047606

73328

7367%

7402

001626

RPO6

002036

RSETR

RSYNC
RTN

047602
006020

RUNCTR
RJUNWAT
SAVDT
SAVER

SAVSN
SC
SCOP]
SCRC

SCYL
SCl1

SCl10

SC2
SCe0
SC4

=
=

0p2012
100000
104413
052730

1301
10058
8132
78558
78518
1093s
10964
10948
10978
10958

001000

= 000200
= 002000
= 000400

SECCTR

047502

SECTR
SEECOM
SEGPER
SELECT
SELTST
SERCH
SETDSK
SILOTB
SKEY]l
SKEY2
S¥I
=
SN
SND
SPACE2
SPACES
SRC
=
SRI
=
SRe
=
€R3
=
SSECTR

053544
002072
052650
002002
(007524
002054
044276
O0SiNlE
052724
(052726
040000
001742
005326
062724
06271&
1778572
177574
177576
172516
(052722

STRCYy

73308
1447

72378
724648
12988
2105

e B

€EYN
)

1327.

047336
DN47N16
002010
0433086

052720
= 000100

12128

guvel2

= COL1000

3292
ggg?

44S1#
S479x
3903
13508
7740%
12938
1509
13438
5438
2329
78538
78548
11868
12793
1397
1926
1324
co2s
5228
5228
22
78528

7258+

S03s

1391%

1615%

7392
14498

08:54

FO3

PRGE 237

CROSS REFERENCE TABLE -- USER SYMBOLS

RKEYEe
047612
RMR
= 000004
RNCTR!I
0S2460
RNO
0S4016
RNWAT1
(0S2S40

RPVEC

08-NOV-7?7

SEG 0228

7406

7729

7121

Ti24s

7127

8127#%

]62l®

3086

5465

6537

7397

7429

74940

7453

5573

7463

c618

5897

7926

7929

797%

7979

3!
3660
¥4

3179
3711
c818

3224
3736
6837

3242
3781
€912

7246%

7248

1659%
2ie0
3334
gggx
1
1658%
1695

2063
217S
3360
3887

3036
2208
3406
4043

2748
3478
8377

2763
3495
S

2820
3543
558s

2888
3590
S631

3108
3615
727

2067
1698

3040
2255

4032

5065

5067

5610

5739

7862%
7858%

7935

447X
SG47%
8022s
3458
7909«
1409

Y4B
H340®
BO24*
6767

4490«
H341*
8026

4940%
pY24Y®

494is
HM2SH

SO33¢
B5SEB*

SO34E
BSEIx

525S%
7251

528p%
72678

5287

1579

1595

5969

5448
2354

G454
76838

G457

LTS

65518

1929

1930

1931

8447

14588

1672

1678

1727

173¢e

1737

1792

1799

180S

44SEE
5507%
3825
3079
77578
1380%
15798
3884
5443
2349
7860
7BL1x

14028
8448s
1925

7859#
72?73
1387

Y4p4x
SG4p®
3995
3220
7898%
1382%

7 398+

1418

le82

CoRIGBO.RPOY-5.6 DSKLS CTRLRI

S5RICE.A11

MACY1l 30(1046)

08-NOV-?7

1811
2920

1813
3072

1826
3383

2097
3443

5376
2573

5357
2833

S438
2507

0B-NOV-77 08:30
§352

START

0ON244

2 Thenr= 793788
2R

0011490
/

SWREG
3W0
2400
3W0l
3ug2
3403
3W04

=
=
=
=
=
=

2u07?

= 000200

2008
3W03
24l .
2410
241l
2412
Sul3
3414
3ulS
8Ws~
245
344
3Ws
2
&>
2ue
249

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000176
000001
00000
000002
000004
000010
000020

000900
001000
000ooR
002000
DO4000
010000
020000
090000
100000
000004
doodio
000020
DBOOYQ
000100
000200
000400
001000

1381

1335
2238

sdl1

SO4s
203n
203
2038
2038
2038
5038

2038

203s
2038
2038
2038
2038
2038
2038
203n
2038
2038
203
2038
203
2038
203n
2038
203

TAGDTE . 002030
TBITVE= 000014

13208
E63s

TESYRD
TIMCNT

60168
B2748

TBF
= DOOOYO
TESCTE
002026
091436
043164

TvvEC = 0000
TMPILL
002002
TOLGAP

055454

T0TALA

009020

TReEvES 089354
RE=
TRY

TRK]
TRYIC
TR¥S~
TR¥SC

17118
13168

13858

1387%

9955

1404

Que2

S438
2635

S440
8e91

2596
4078

26M2
4leB

SU45
o780

6948
871

S4S]

GYER

S9e5

Bupr

4678

ugl3

4926

5022

3349

3437

1404

B131

2377

4470

4563

S0!3

5340

5479

SS07

S683

6408

1486

1507

1920

3349

1129w
7410

7921

8131

6283

6288

i}
2657

2658+

S067

S610

2376

1405
1433

1S07

4eds

2375

6150

3437

6968
6366

1500

1502%

2392

3014

11008

2572
4078

1920

5376
6086

1486

2507
3876

6406

13088

= 020000

S443
€93

2478
3874

BIS0

A
2655

1098s
11018
10938
11028

9479

2281
38I4

6086

1387

1433

2240
3695

SEG 0229

©eBl

€479

2650%

2038

PAGE 238

8507

€338

1405

9973

2648

10048
70638

004000
D%0000
010000
100000

994§

2155
3578

B131%
2b4Ss

4470

GO3

CROSS REFERENCE TRBLE - USER SYMBOLS

€038
13108

= 240000
047452

=
=
=
=

08:54

Epe3

1387%

2265
ook

€379

2264

€297

2714

€831

5065

Sels

Fooss

5739

6366

6368

Bl3is

2728
4268

51AE

5563

4470

456!

B8130s

2433

coRJGBO,RPOM S 6 DSKLS CTRLRI

(CRJGB.PLL
TRP

YRTVEC=

00S76e

000014

e g

08-NOV-77 08:30
1444

S03s

00S500

TST102
157103
TSTI0N

034750
035004
035126

C440n
S44on
S44Sy

035262
035316

7ST101

034626

035162

7€T11_

011012

G4Sls
E4S3s
16818

157112
187113
TST114
157115
757116
187117

(035664
035720
036334
036370
037000
037626

54738
E478s
55038
55068
E527
8
S6S1s

1ST120
1ST121
757122

037662
040214
Q4OSHO

56938
57808
E8718

15713
15714
18715
T€T16

011226
0112872
011336
011524

157106
157107

*5T110
T8T111

185712

v§7123

035416
035544

11162

041070

811983

1811.

1€723

012010

18268

15122

011744

19698
2087

TET27
1813

Q14154
00€ 12C

22908
1457

014860

2282

TETI0

1ET3]

T€132

v€132

013604

014332

(0is0el

01144

599%

18138

012916
Q13442

1€126

16788

TET24
TET25

21558

2097w
14718

2241

2277

228ls

2328

23868

24099

2386

B
gs
H269%

W
s
4373%

DB
e
44SOR

D
s
4457+«

S578ls

S5872%

60c2

8857

8859

886!

8864

8867

887C

8884

59628

18721

BB
ol
41p9®

g8s82

17278

011570

M,
Bh
H4O79%

8879

SE9ls

54568
E4608

1€T17

SEG 0240

TS
s
4O72%

8875

S4yTa

17328
173%s
174918
17918
17988

PAGE 239

TERL
8L
3877%

H4579%
S44S#

E437s

TST10S

HO3

Gl
e
3874%

Y4Zhe
SH43®

14188

1670
54358

I
o
38154

HY70®
S44Ox

1410

010746
034572

T,
R
3696%

HYE9®
5438®

5528#

TETIQ
TETI00

0B:S4

14489

6507%

8872

08-NOV-77

CROSS REFERENCE TRBLE -- USER SYMBOLS

S oL
GEolE
3444
3S76%
Y463I®
S4Y3S*

1ST1

MACY11l 30(1046)

2319

24903

2328s

S694s

4699%
S44B®

888S

4B14#
SHSIE

8888

4327%
S4S4x

8891

S023%
S4GE?s

889S

S106»
SHELIx

8838

S255%
S473%

8901

S277%
E479s

8930S

53584
SSO3x

8908

CoRIGBO,RPOM/S & DSKLS CTRLRL

CSRIGB. P11
TSTI4
75135

2466
25068

24778

016100

263

2564

25-1s

TST4
TST40

006172
016224

016350

15742

016694

TST43

01707

2497

1477
2589

2613

2728

2603

1483
25958

2527

2535w

5378

5988

7183
15184
73155
75156
15157
7576

023700
023734
Qoub22
024656
025166
0103]2

38748
38768
40728
40788
4139
16638

026064
026330
026714
027300
027664
030224
030570
010656
031120
031426
032016
2362
032726
033334
033736

4332
4449
G451
4458
4464
4470
NG24
1665
4680
4793
4916
s014
5023
G236
§o56

44568
446es
44688
447498
4GEY
16708
469Is
u4Bi2s
49258
5022
50988
S251s
6261

527as

14198

14578

14728

TST60

025524

TSTEl
75762
75763
15764
TSTES
75766
75167
7517
75170
T5T71
15172
15173
TET74
75175
TET76

78777

TINC

034266

= 000122

29208
3058
3323
3443
1580
35758
3933

38148

4228

€398

= 00C100

TiPDS =
TYPE . =

047E 1€

10440€
104401

SEG 0241

3072w

15848
3p9Ss

4158
_

41688

43565

u437as

4252

53568

42688

45728

14858

15858

16638

16708

16728

16788

16838

1727e

17328

17378

17428
24108
35768

17928
24768
36968

1799
25078
38i5s

1805s
2536
3I874s

1Blls
25728
38778

iBl3s
25978
40728

18278
26438
40738

20988
27298
Y1698

21568
27358
H263s

2241s
29218
43738

22828
3073%
44508

23288
33248
44578

2386#
3444
4463

S4388

54408

54438

SU4Ss

S4YBw

S4SIs

S4S4s

G457

Gubls

S473s

54798

S503s

55078

5964
19436

S966
1447

5976
1449

5996
1489

34698

TUF

PAGE 240

27958

0179460
020612
021530
022204
007540
022612
023156

Q23522

(08:S4

2641w

TST44
TST4S
75746
18147
7515
13750
TSTS1

75152

0B-NCV-?7

CROSS REFERENCE TABLE -- USER SYMBOLS

2410
2478

0157228

TST41

MACY1l 30(1046)

015444
0156

157

15137

08-NOV-77 08:30

I03

Sc28s
11128

73608

1859
1339

44708
56918
11308
1567
1400

44768

Ge94s

45798

578ls

46998

5872s

u4Bl4s

49278

50238

Gl068

52558

52778

1560

53588

1562

54358

CcRJIGBO,RPOM/S.
6 DSKLS _CTRLRI

CZRIGB. P11
TYPOC =
TYPON =
TYPGS =
T.SCOP

UN
UNIT

104M02
104404
104403
(042576

006110
001774

08-NOV-77 08:30
8l32s

1439
g132s
1926
61508

MACY1l 30(1046)

1561

1629

193S
8132

8132

1458%
12888
1737
2284
3162

1459%
1412
1792
2299
3275

14618
1574 #
1799
2341
3353

12948
13398

141 3%
3330

1880

5963
128748

UNS
UPE

= D40000
= 020000

1041a
981#

JWR
VUF
vu30

= 000010
= £00002
= 010000

11828
1181#
11188

043166

62758

B8l32

001706
Q40000
Q000040
051400

12638
9828
1032
4451

2801
4633

11068
4090*

11248
4097

UNITSL
UNLOARD

Usl
use
JSH

002004
002044

= 000001
= 000002
= 000004

WAIT.T

wWeT

= 000100

= 04415

WC
WCE
WCF
WCRC

=
=

WCU
WCYL

= DOO0GCL
052636

WLE
WORD

WECCI
WECCe
WKEY]
WKEY2

WRCHDA
WRCHDT
WRCHEK
WRCHHD
WRDATA
WRFROM

WRHEARD
WRICAT

052416
DS24e0
0s2642
0S2b44

004000
080410

Q43652
002060
002056
043340
051066
002110

(52732
00202

3688
9698
970

1015Ss

2296

6348

08:54

JO3

PRAGE 241

CROSS REFERENCE TABLE -- USER SYMBOLS

DO01754

UNITS

08-NOV-77

£§982
1521

6987%
1526

2555

2559

2058

e2lly

2428

4458

6433

2709

6023

602%

7107

7122

1580%
1805
24le
3392

1590
1811
2432
3528

1607%
1813
2466
3647

1609
1990
2542
3768

1899

1913

4849

4869

B0SI
16874

2686

2757

7126

71es

7130

8126

8131

Bi3cs

4906

gug2

S48S

SS10

§s813

6209

5479

5507

SSS4

7489%

7502%

7519#

2835
4751

2869
S1&0

2903
Sied

eBle2

2877

5178

192

€880

c493
6050

5521
887S

g13es

4464

4470

4497

4948

Sou4l

5255

S4S7#x

S4el+*

4179%

4186

6575

2809

6l7e
1602

SEG O24e

7408

76808

4o28%
4229%
4y182#%
4183#

4332%
H333%
4283#*
Yes4x

76858
76868
4387#%
43868#*

Ye80*

8908
8908
77504
7751%

4287

4384
%

43491

5293

77488

7392+

7400%

7402%

THOY #

7406*

7408+

7448

7453#%

748Cs

4739
13458
13448
4e22
7313
13618

§15)
363
6449
6239
76l1s
2l22

64238

7829
2128

2136

eelo

eelbx

222l

3843

3849#%

3856

4045

40S1#

4139
Y140
4093#
4094 %
1038#
7388%

8107«

2890
3300%
3556

457
€755+
7747
13468

81]15#x

2836*
3307
3617

S4El
5762
78584
4470

2904
3362
3623

3129
3368
3630

3136%
3376
3662

3143
3408
3668%

3181
3415#
3674

4059

:égg

5479
£79]

5507
5839

5559
Sg4S®

5560
552

5564
5882

5308

E479

5507

5580

5832

MACY11l 30(1046)

0B8-NOV-?7

WRIFOR
WRITE

4115
7428

Y207
75508

4309
7631

4408
7637

5366
7643

Yy282#

u38H#

7732

77494

742S

7429

7436

YHEY#

Y4?70%

052640

WSSYNC
051366
SU
= 00000
WTRK
0Ses 74

WWORD

0S0644

X
XE2
Y

ZCODE
ZER
=
ZWORDS
SAUTOB

S$BDRADR

.
SBODRY

4092#*

7678s
11088
7734#

7922

oM7S510

Y4S]*

44S8#

007166
7550

1805
73168

15188

045330
000400
0S1064
001134

001122

001126

7651

64e9x

68538
10538
76108
S24s

SCKSWR

(0SS460

SCMYAG
SCM1
=
SCM2
=
$CM3
=
$CMY4
=
SCNTLC
SCNTLG
SCNTLU
SCRLF

001100
000006
000014
000006
000006
056231
056243
0S6236
D01223

CAGN

(OM]1412

SOBLYK.

SCTBL

SENDRD
SENDCT
SENDMG
SENULL
SEQP
SEOPCT
SERFLG

8917
8131

2717%

44y21%

6193

1998
2049%

2010#%
2054 #*

1997#
2042

7445

754S#

7590#

7632

7638

7644

7648

2258

8888
1476

7270%

Y494y x

Ya4S#

S038+

S255%

S291l#»

SY479%

£507+

€551

6345+

ee70%

2277%

2289

1694#

730S

6199«
1695

2013#%
2063#%

7951

6203#%
1707%»

c016#*
2067#%

5699

6700

6707%

6709

1936

6026

8131

1S14

5981

€996

€088

B13l#

Bi32x

524s
8l31sx

8131

S24s
5248
524
co4s
cous
Bil3ls
B8131ls
8131y
cous

1387

2987#
3040#
Y4470%
S486#%

2989
3043+
4EY43x
SS07#%

7954 4%

7967%

2996%
3046#
4864 *
SS14x
7978%

2999%
3920#*
4993%
S673%

8857

S99%:+s

59968
€936

2304%

6215%
1708

2019#=
2070%»

2496
2603#

7974

2346#

17]14%

6220*
2022*
2074

2S14%
2604

3005+
3990#
S06S
65101%

6103

8861

8867

8872

8132

1865

7963

3002#*
3922
S063%
6099%

8132

SQ96s

Sos
£996s
5974
€977
1442
59968
So4s

7441

7938

2495#
2588

6688

8131s

7962

2486
2587 %

6687 %

0s471e2

7950

2485
2580

e460#
2562

8131ls

7937

2469%
2579%

2452
25bl#

0S4722
D41M02
041350
D4142]
041416
O4131M
(41342
001103

7033%
7042
7625#%
1404 %

86867
1475%

8l31ls

7925

6624

8864
5248

193S
2040#%

7908

6607%

2249

gggg;
001216
0OSS1i46

7904

S2Ms

2633#

7923

11268

77378

7418

2978#
3036%
HybY#
5479
$SELL
SCHARC

11328

Y18l

7903

8132

6775%

3008*
3993
5075%
7?76

10208
1114n

6729
7650

SN §

= 004000
= 000400

5806
7647

13478
;3%;

SEG Oe43

L 3

WSECTR

002064
0S0646

PAGE 242

CROSS REFERENCE TRBLE -- USER SYMBOLS

o
W
N DO
WO

WRL
WRU

08-NOV-77 08:30

onLwhnnn-—= O—-0O0NWON
ONWs=
=t re N0
C——-gr LN

CZRIGB. P11

08:5S4

KO3

CoRJGBO,RPOM
-5 ‘6 DSKLS CTRLR!

CoRJGBO,RPO4-S & DSKLS CTRLR]
08-NOV-?7 08:30
CZRIGB. P11
SERMAX

SERROR

SERRPC

SERRTB
S$ERRTY

001118
(056432

001116

001226
(0S6600

SERTTL
SESCAP

001112
(001214

$FILLS
$GDADR

00115S
001120

SFILLC

SGDDAT

001156

D01l

Sa4s
1387

1387+

8131l#

S24s

8132

8857

8859

So4#
8l13ce

8132

5967
8131#

8l132*
8132

1698#%
2016%
2067%
gsxeQB84 #
3026
§325#
6682%

888S

SGTSWR

04137

055550

1449

8088

Gous
S24s

5965
1387

S2us
e
SoM

8131

52448

5248
2010#»
20sSe*
2488
2973%
3017
S076
6l14%
ggggi

SGET4Y2

LO3

MACY1l 30(1046) 08-NOV-7?7 08:54 PAGE 243
CROSS REFERENCE TRBLE -- USER SYMBOLS

§9968

8131

1477%
2013%
2063#
2497#»
2978#
3023x
S08S#*
£397%
7929

Bl13ls

8132

S2ou4s

8131+#

= 000000
0S6430
SHIOCT

48
Bl3cs»

SILLUP
SINTRG
SITEM8

(057436
001135
001114

81328
So4s
524s

8131+
8l32x

001108

G248

1387%

SICNT

001104

D0iz2e4

SLPERR

001110

SMNE W
SMSWR
SMACNT
SNULL

0Séetl
0se2s0
0S450M
001154

SLPRDR

SMAIL = #¥xxsx |

SNWTST= 000001

S24s

1750%
2026*
2319%
2560%
2999
3046%
§S13%
6778%

1774%
2031 %
2360%
2582%
3002#*
Y470%
Sb72%
7397%

1915
2034#
2401»
2589%
3005+
YSuo*
#
6094
742l

6029%

6032

8131

N894 #

6024

6031x

8131%

7955#

7966 %

7979%

8857

8859

16638
1826
2595s
40zos

16708
19698
264ln
40788

16788
2097%
27288
41688

16818
2155¢
27958
42688

S453s

S4S6s

S4608

S4738

£§973+#

5975

5996*

8131

S69is

56938

Y-

3347

8131

81378
8l13cs

8l31ls

B132

8132

1584 %

8131

57808

8132

58718

4829

59624

492Ss

S0e2s

50988

8875
8914

8879
8917

8882
8922

8884

8861

15848
1813#
25718
38768
ygles
S4S1 8

go4s

SRODEC= stssss U

1718«
2025#»
2312%
2SMI#
2996#
3043
Se07»
6712

14838
18l1s
25358
38748
46919
SY478

14188
14568
1798
17918
4778
24098
35758 ~ 36958
446848
H474s
S4H42 s
54408

8132

0SB022

1708
20ee*
c074#
o548+
2989
3040%
S4B8S#
6703

14718
1805%
25068
38148
45728
S44S

1404

1387
81328

SROCHR

1706%
2019%
2070%
2Se7#
2986%
3036#%
S479#
65693

8131

1387

057272
DS57426
Q01222

8911

81318
81318
8131s
5248

SPURDN
SPURMG

057344

8908

2863#

8130

SGUES

890S

26b3x

QE7uuY

SPWRUP

8872

8301

1387%

QUER

0S7432

8870

8864

8898

5248

81328x
81328
8l13!s

SPWRAD

7943»

8867

8861

8895

8132

0S7176
(0572
pS4470

001100

8891

8131

SOCNT
SOMODE
SOVER

$PASS

81328

SEQG Q244

52518

8132

17418
23864
34438
Y4628

S4378s
ssev

CZRJGBO,RPO4/S & DSKLS CTRLR]

CZRIGB.P11

06-NOV-77 08:30

SROLIN
SRDOCT
SRDSZ =
SREGARD
SREGO

0S6lle
0S6272
000011
001160
001162

81318
8132
8131
8
SoM
Sous

SREG2
SREG3
SREGY

001166
001170
001172

Sous
Sous
So4s

SREG!

SREGCS

SRTNAD
SR2A
=
SSRAVRE=
$SAVRG
SSCOPE

DO1l164

00117

D4iIvlY
s#xuxus U
Ratuisx U
(0S7442
0SH21Y

SSETUP= 000117
$SS1
= 0000
SSTUP = 177777
SSVLAD
0S4442
$SvPC = 000200

$§SWR

= 167770

STIMES

$TKB
STKCNT

STKINT

0Q0l212

00114€
055182

0SS172

STKQEN= 055171

STKQIN

(0551854

13868

8132

4878
1727
2240
2920
4372

S03
1732
228l
3072
4449

sa9
1737
23c8
3323
4456

1387
1741
2386
3443
Y462

1418
1791
2409
3575
4468

1456
1798
2477
3695
447y

147
180S
2506
3814
ys72

1483
1811
2535
3874
469]

1584
1813
2571
3876
yg1e

1663
1826
2595
4072
4925

1670
1969
2641
4078
s0ee

1678
2097
2728
4168
5098

S478

5503

SS06

§5e?

5691

5633

5780

5871

S962

£§996

8131

8132

813%

Sous
81318

8131

Sous

1392

Blglt

D01200

ol
6289

S TMPE

001210

Ra)

001206

= D0Cle4

g43%

6437

s440

S4y42

1387%

1418

1456%

1471

1483%

148S

2182

6092

7108

B131s

1531+«

6279%

H28M4

3995
b277%
3950#
3095

1419
1670
1799
ecHl
2497
e6l3
3439
407848
4373
Y4748

S44S

S447

c4sS]

1584%

S962%

6289

6293

£388#%

4037

4Yg31#

3996#
6278%
3979+
3101

6283
64B8#*
3998
3103

uwoB8br
6490
6490%
3104

14568
1672
180Ss
ec’?
2503
b4l
34438
4079
HY44S s
44786

1457
1678»
18lis
ccBls
r4=Y0]°Y ]
2643
3444
4139
44560
4524

14?718
l1bEls
1813n
e
2s0?
c’cBs
3575+
4158
44ysi
4564

G453

S456

S460

1681
21588
2795
4268
5251

S473

5996 %

8131%

6402

6487%

H533x

8872

£288%
b4 x

6291 %
8872

6489%
888S

£531+#

8885

3173

6486#

649c*

6498

6596+

667S

1472
1683
1826#
2319
25se?7
2729
3576
41688
44SH s
4E72n

14838
1732
19698
23868
2536
29204
3696
4228
Y4E8
4680

148S
1737s
2086
2403
2564
292!
38148
4252
44yEes
46918

1580
17418
2097 s
2409
2S71e
3058
3815
42688
4463
4699

1584s
1742
2098
2410
2572
3072s
3874s
4269
4464
4793

81318

STMP]

STYPY

5356

503

8l31ls

001202
001204

Bl3ls

8131

(05SS24e

sTMP2
STMP3

8132

5996

STKSRY

001176

SEG 0eMdS

1404

8l3lsx
8131s

STHPO0

CROSS REFERENCE TARBLE -- USER SYMBOLS

1387

13688%
138648
8l3ls
SOS#

0S5156
0SS160

001144

PAGE 244

So4s

55368
8132
8132
Bl3o8s
1387

STKROU
S$TK@SR

S$TKS

08-NOV-77

MO3

So4s

s27e
SSuWRMK= 000000

MACYLl 30(1046)

08:54

S24s

¥T

8131

1530%

1431+#
404

3897%
70

S24s
Cous
So4s
bgs;.

925 #
3929+
919
3092+

3926#
3999+
928
3094+

4878
1585
17918
2155
2466
2589
3073
38768
4332
4Y4oB8

1410
16638
1792
2156
2477s
25958
3323s
3877
435S
Y469

1418%
1665
17984
co40s
478
2597
3324
40728
43728
4470

3922
887¢e

3989%
888s

3993

$007*

6S14»

488bx

6280*

6284

6283

4916

Y444
S4Sis
55278

5348
E4S3n
S5e28

5691

S996*

8131#

813

S014
5358
S4S6s
5693

76858

]
7

8132
505

W
nn

L 3

4927

E:fiafi

070246

4925

L X

SOFILL
S40CAT=

0S6e220

N—
@OUIOOEOMOOOMOOD
@~
[N Pl LV o Ly oy T S =Y Sy T Sy S ¥ ) [T e
oL O W
DWW L L WWW LW W WU L) WL
£MUN L= PO =TT = e b= < ) 0— L MO n
L 2 X J %
SssssEsRNEES
sSs8sSs [ ]

MmO O@NUNIUN L
e e
(Y LU D
WWWWO
£ N+—
U
b= — )GV
£

3C(1046)

[72]
J0
o
@®

CZRJGBO,RPO4-S.
6 DSKLS CTRLRI
08-NOV-77 08:30

CZRIGB. P11

NO3

08-NOV-77
08:S4
PRGE 245
CROSS REFERENCE TRBLE -- USER SYMBOLS

MACY11l

S022%
5694

SEG Oe2v4e
5098+

S106
S4408
S4?738
S871s

5236
SY4yew
c478s
5872

258
E44Ss
SS03s

CZPJjGBO,RPO4/S/6 DSKLS CTRLRI

MACY1l 30(1C 6)

0B-NOV-??

CHECKR
CHECKB

433e
Y1lly4

4458
4308

CZRIGB.P11

COMMEN
ENDCOM

ERROR

08-NOV-77 08:30

S02s
S02s

Yeee
3893

8255

5308

5359

S03s

1432

1463

488
49]

S03s
S03e

1946
1965

BOY

PAGE 247

CROSS REFERENCE TRBLE -- MACRO NAMES

5479

1479

4451
4206

5507

1672

5580

1678

Y464
4407

5719

1700

5255
4451

5805

1711

4458
588l

1720

1799
2316

1805
23ee

181}
2347

1813
2364

1911
2366

2000
2399

2090
2404

3153

3206

3267

3317

3388

3430

3520

4680
SUe9

4682
5079

4753
s087

4758
5166

4794
5171

2529
4067

4547
4910

5255
£9585
ESCAPE
GETPR]
GE TSWR

4139
3068

0B:S4

6668

S03s
S03s
4878

2551

4135

2565
4158

2584

4160

4549
4916

4635
4997

4641
4999

6134

6200

6204

Sebl

6683
S03»

£330
6694
1404

€336

6704

2591

Yoo

5348

2608

4252

S42M4

eblsS

4esy

c479

1732

4512
6536

1737

2250
2453

2259
2461

ee7l
2471

3566

3639

3685

3760

3808

2668
4326

5487

Yol

6243

6979

1727

4470
e449

2230
2438

6221

~780

Y464
6363

2146
o418

6elb

6714

SEG 0247

6985

2679
4355

2694
4357

2718
yyee

2787
Yy4s1i

481S

17585

2305
2520

3865

3930

4000

Y872
5237

4900
5239

284S

4458

4852
S195

4865
202

62S0

6256

62kl

6294

6640

1680

1681

7046

5656

5677

2913
Y464

5679

5771

17264

1727

6642

HCOMPR

Sa2s

S438

SH43

G457

MAKECL

802y

3874

4072

S43S

S440

C4Y4E

S4S]

S473

§502

5691

17
1825
2386
2727’8

17368
1826
25088
27e8

1737
19678
2409
27948

17408
1
S4/vé
2795

1741
2098
2477
29198

1790s
2097
25058
2920

1791
21548
2506
30718

1797
2185
25348
3072

1798
22398
2535
33228

18044
2240
25708
3323

1805
20808
2571
34428

1810%
2281
25948
3443

1811
23278
35748

1812
2328
26408
357S

4Y45Ss

445§

44618

Y462

Y4678

4468

44738

4474

45698

83558

46908

4691

48108

ygle

MSGA

S4378

5442

5456

5272
596248

MULT

S03s

HCOMPW
MSS

MSGB

NEWTST

S02s

14178

4925
65258

SY4Y6 s
SO3s
1798

5448
IM18

38132

Sg2ls
5527

14558

381N

S461

1456

387Ss

S6928

S097s
93

6453

S460

1418
180S

1456
1811

1471
1813

4078

4168

S4y?

2535

2571

S098

gesl

4072

S45Y4

2641l

se’e

L 356

7833

7982

1583#

1584

4077s

1737
2409

1741
e4??

4449

4456

Y462

4468

4474

4572

Gy4yS1}

4691

S483

ygle

4528

7004

7061

7094

6761

6870

7022

5435

S437

5526
6308

691
b4le

5693
6536

§780
6576

€871
6748

5962
6782

6364

6483

648S

6SS1

6728

5038

7486
S03s
502s

6048

6136

g32l

4158

4252

435S

2241

eo8e

2328

S02s
1792
253t

1419
1799
2572

147
180S
2597

1472
1811
2643

5023

S106

5255

52?7?7

gz;gcx

SAYTST

ggg:

407¢e
.

SlOPE

5473

S023s
179¢€

é?gg

4079
c479
1418
180¢€

1670

4169
5503

145
1811

3323

772l

8088
7863

8131

S442

8132

4458

Y464

2386

2410

2478

2536

5023

1485
1813
2729

1588
1827
2795

1663
2098
2921

1670
2156
3073

1672
ge4l
3324

1678
eese
3444

1683
2328
3576

5358

6435

S4Y45

s5448

4373

£507

§8528

1483
1826

4680

8132

S4y?

8101

4451

8131

S445

357%

8025

4269
18471
1813

8119

S440

3443

4793

4450

Y457

4463

4469

5891

5694

€781

872

1Sa
196

c438

1663
2097

5440
1670
2158S

c443

1678
2240

5236

4470
1681
2e8l

4476
1727
2328

369S

3814

3874

4924
s

387

s0ee

S460

8473

7322

7465

7831

7074

7240

7371

1727
2386
3696

1732
2410
3818

1737
2478
3874

1742
2s07
38"

G4S1t

S48y

S457

8461

4579
1732
2386

5456

17318

1791
2506

1732
2386

3072

6666

5506

1727
2328

2920

S861

S505s8

1681
2281

2795

5478

4470

Y4488

1678
2240

94372

54778

4372

1670
2155

4268

S3S6

4371s

1663
2097

PUSH

7616

4268

1584
1969

£506
bl46

7SS0

42678

3061

1813
238Ss
2641
36948
4449

1483
1826

2728

co7ls
SB71

4168

1678

251
58708

§S03
605S

REPORT
RFORGC

41678

16778

S2S0s
5780

5478
§030

7655

4078

1670%

5098
57?798

POP

7592

16638

1792

2290
2499

4843
c188

6518

1777

s0s?

2e78
2490

4796
s181

5507

4963

4699
-

1735
2409

4yg81l4

1741
- F

Y4927
-

1791
2506

CZRJIGBO,RPO4/5-6 DSKLS CTRLRI

CORIGB.PI1

Sk 1P

SLASH
SMORE
SPRCE

STARS

2635

2571

1s)

5851

S478

S03s
B8l32s
s

2838

2613°

535

543

‘283

3058

501

S506

4139

S03s

g527

1477

4228

505

1614

16e4

S691

1580

4332

522

1636

3323

3443

3575

3695

3814

3874

543

g4y

544

o447

S45]

2086

2277

2319

2403

2466

1670

1678

991

4e72

1883
c95
874

Weal

5693

1665

4451

524

1855

446

496

7363

7475

747

7638

1dg7

670

2241

2282

2328

2010

2013

2019

2022

969

2973

7393

7934

S03s

5028

5028
5028
502
5038
5038
5038
5038
s

13878

2063

8092

067

2865

3036
201E
2978

3040

593

8132

1926

1935

544
9]

8093

1818
8477
443

1823
g%k

4
5693

544
©780

199
geye
4078

2097
2638
4168

2155
gedl
4268

2240
2728
4372

5456
5998

546
60l

46
7184

8470
72le

5473
7214

5478
732¢

2070

2074

2996

2999

3002

3005

3008

3011

3023

3043

3046

14
P+
7131

447
182
7132

49
433
8125

489
J2

1S
134

1513
8M3

1557
I3

1560
d338

2798
437

2796
G493

S478

5603

6506

26527

5631

5693

1727

1956
2629
4072

2049

ordy
ueeB

1678

1954
g2
6

2037

2895
4168

503

1542

2034

2571
4078

18672

1483

1737

2031

2635
407

<0zs

1471

1732

2028

4878

1456

1727

2025

INSE

FLORT

1418

1681

5023

1418

8132w
503w

2589

3439

5038

SSSET
$SSKIP

2564

SDI4

2536

5255

5386

2527

4ele

2503

5507

2497

Nsed

2478

6473

525f

2410

BI3?

4458

!Bl

930

Boge

9S24

delp

2386

8131

4451

1811

W470

dedl

1483

1826

543

1732

1584

a7y

7539

1663

7699

1670

7601

1678

3876

d%es

599

9eze

54
59%

5028

1805

952

1663

44N

5962

474

545]
5962

v0 S
7123

1798

W48

5871

5447
5871

1900
tenaI
O
I
7les
7127
1464

5780

446

1879
s%7l
14

1398
L
7123
4470

445

1826
e
3

203
o
7120
5028

SEG 0248

3072

44s

543
5527

PAGE 248

2920

44y

543
5506

CO4

2795

duy

53
5503

1813
409
3

437

q4g6

509
EGUAT

2728

doed

1811
436

5028

SSNEWT

2641

4ieB

08:S4

CROSS REFERENCE TABLE -- MACRO NAMES

180s
o}E

TSCLR2

XREAD

2695

08-NOV-77

1788
2381

S02s

WDATAR

1387

1884

495

TSCLR

TRTXT

8131

1551

S02w

TSCLR3
TSCLRY
TSCLRE
TYPBIN
TYPDEC
TYPNAM
TYPNUN
TYPOCS

5503

8131

JAume.

TSCLRI

478

5038
5028
5038

73496
SWRS

30(1046)

08-NOV-77 08:30

407

SETPRI
SETYRR
SETUP

MRCY11l

dslp

7665

1681

7670

)

1727

5098

7635

7636

1732

1737

8355

1741

5251

7837

1562
rie

1741

526l

1791

527

7838

1627
A%EE

‘¢

1731

1969

2097

2155

2240

2281

2328

2386

2403

247~

2506

6437

&440

544

6446

S447

SU5]

S483

S45E

S460

G543

1737

1792

1799

180%

18!f

1Bi3

2920
Guce
§780

3072
HYe2

5871

3323
ddeR

5962

3443
W7y

3575
§e70

3995
edl

3814
MSl2

384
39es

39Tk
Bges

CZRJGBO,RPO4/5-6 DSKLS CTRLRI

CZRIGB. P11
. HERDE
KTL1
.SETUP
. SWRH]

.SWRLO
.SRCT]
.SCATC

4a’s
4878
4878
4878

9g878
4g87s

see
1385
503

S03s
50S

Y878

SCMTAR

4878

SERRCQ

4878

SEOP

S04

4878

5996

SERRT
SPOWE
0C
SREAD
$SCOP
STRAP
$TYPD
STYPE

4878
4878
4878
4878
487s
4878
4878
4878

813¢
8132
8132
8131
8131
8132
8131
8131

RBS.

070246

S$TYPC
.

08-NOV-77 08:30

4878

8132

5132

ERRORS DETECTED:
RHO3:CZRJGB$CZQJ G
RUN-TIME: 3
30 2
RUN-TIME RATIC: 1
CORE USED:
@2 9K

000

MACY11l 30(1046)

08-NOV-77

08:S4

DO4

PRAGE 249

CROSS REFERENCE TABLE -~ MRCRO NAMES

SEQ 0249

EOY