Digital PDFs

AH-9210B-MC

January 1978

252 pages

Original

112MB

view download

OCR Version

159MB

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

OCR Text

RPO4/6/6

wissTM" Lun. @il
_FICHE1OF2

MADE IN USA

FICHE 20F2

MADEIN USA

BOl
EOF 1CZRPBBSBGH ] |

00010000

780105

IDENTRERCATION

--------------

IHDR1CZRIGBSEG

PRODUCT CODE:

AC-92088-MC

PRODUCT NAME:

CZRIGBO RPO4/5/6 DISKLESS CONTROLLER TEST - PART 1

PRODUCT DATE:

DECEMBER 1977

MAINTAINER:
The

i1nformation

without

nolice

by Dig:tal
Corporation

may

appear

DIRGNOSTIC ENGINEERING
1n_

this

document

and should not

subject

change

be construed as a commiiment

Equipment
Digital
Corporation.
Equipment
responsibility forf any errors that
no_
assumes
this manual.

the
The software described 1n this document ie furnished tc
on a :ing}c compuler
wuse
for
license
a
under
purchaser
Diglt.la
inclusion
(with
copied
be
can
eystem and

Caggrlgh! notice’ only for use in such s'stcn.
otheruise be provided i1n writing by Digital

except

23s may

for
Cigital Equigment Corporation assumes no rasponsxbllit*
the
wuse or reliabil) ! cf 1ts scftware on equipment that 1s
ot

supplied

Ceopyraght

by Dig:tal.

(C)

1S74,

1977 Digital Equipment Corporation

00010000

780108
&

000l

€83
SO4

###ERROR TRBLE, BIT DEFINITIONS 3 STARTING ADORESSES###

COl

%cma?&‘gfi SETTINGS

pCTLLHOOKE
ERFOR POTNTER,
TagL

HORY HQNRGEHENT DEFINITIONS
IN

22#DIAGNOSTIC CODE##%»

SETUP TESTS

{xn,{x

8& L(%&
Jgeeen
£ (D> vmg S8R0

rorununnun
PUTUIUTUTUIUNUNUTUS
© 0t s 5s bt b+ ot et bt Bt bt §4 Bot s Bt Pt Bt Bt s Bt
oeooan
4]
£ £ WM
o 0 3~J
“JOM D= J L veve LU= Y ")
wWwinnOWEEE@W W E L
00O
Lo

iNl1s

7RGS

GET VALUE FOR SOFf TWARE SW ECHTR§GISTER

13
L
15

RECEDRNT
B
T
RI

atUs 2
e
s
ER |ARD
DRIVECTYPE

‘r:'s%r REGISTER
75
§3

TAT
%38§E
aTde§ mecrster

110
i1

113

;ig}

PO
;21
T

Ted
T

126

1 - BIT

fin"“":UN

AR -

T31
T32
T33

T34

T3S
T36

Rioter

RHOST - e L IRED SECTOR, TRACK ADDRESS

c
B

%gb
REGIS ER

PACK ACKNOWLEDGE

(RH e
2) = 'NED’
s

UNIBUS INIT TEST

SXLO TESTS
Te7
SILO TST_

130

‘Ec?srea

{LO TJEST g

LO TEST
LO TESTH
? #O TEST S

GISTER

TESTS

TEST ODD BYTE
YEgT
TEST

YTE
T

INSTRUCTION ON RHCSI

NSTRUCTION ON RHCSI
TRUCTION ON RHCSE

137
T40

00D _BYTE
TEST ON RHWC
TEST _ODD BYTE INSTRUCTION ON RHBR

T42

RERD

DCL COMMAND _TESTS
T4l
TEST %LF BIT #C IN REG.
IN PRESET

RHER!

H1l

SEG 0C0e

CZRJGBO,RPO4/S/6 DSKLS CTRLRI
CZRIGB.FP11
08-NOV-77 08:30

MACY1l 30(1046)
08-NOV-77
TABLE OF CONTENTS

T43

NO OPERRTION FUNCTION TEST

T4S
TV

SEEK commo TEST
g
M

TS0

153

157
Te0

DOl
SEC 0002

§g
ER LI%COMMAND TEST

1t
RERD/WRI
156

08:54

NT SYEPOER =0

o
vs

DATA 1

WR
WR

1A 2
TR 3

;gé

RHC T“IID

T64
165
766

RERD
WRITE
RE

ieweiag e

R AND DATA 3

167
bflIfE
CK HERDER AND DATA
170
WRITE
CHECK
DATA
RROR BIT %TI
TEETS
71
AT
ION WITH
ERROR TEST
172
S? INH
173
?E BIT
8
- NE

PRI
= i b i = O O D QOO OO U
wmhgflom:um»ovgasugng

T74

AA A A A A

A A

WRI

ERROR %
W

CK E

ST R 81~ % -FORHflT ERROR
§ Il-

T _ERROR

ICATION REFUSED

E’“R'(R&c Gl - BIT & 5 I'E&R COMPARE ERROR
RARE G :; g# 'ses !:E&ER COMPRRE ERROR
'E“(ehe G.1 - B‘fr‘i)snF&MER COMPARE ERROR
RHER1
MAKE

T 8 - CRC SROR
(MITING)

(BIT

NT CYLINDE

810)

Sgl

=~ bfiST CTOR TRANSFERRED,

MAKE
C
NT CYLI
9
RHDS1 (Bl
Iég) - LRS; SEC OR TRANSFERRED,

ERROR

MAKE C
RROR
RROR

1 - BIT

#9
A

NT CYLINDER = O
REG STER 1 - BIT 810 'IRE’
REGISTER 1- BIT #10 'IRE’

ERROR
REGISTER 1- BIT #10 'IRE’
END OF DRIVE

##%#SUBROUTINES###
END OF PASS ROUTINE
SAVE REGISTERS RCUTINE

'LST’

CZRJGBO,RPO4/S-6 DSKLS CTRLR1

CZRIGB.P11
B157
6216
6243

08-NOV-77 08:30

r
c E 8

B429
6463
£5S1
6845
6882

um: c

7196
7249
8225
8227
8228
8229
8230
8232
8233
8234
8235

8236
8237
g23e

08-NOV-77

TRBLE OF CONTENTS

n.oa 1 AND O
nonv ROUTINE

6260

gfig;

MACY1l 30(1046)

mus ROUTINES

cx nounns
Nz
cnc es
m
vt.mosa ROUTINE
rsmr ON AND COMPARISON ROUTINE

nn
SS CHANGE ROUTINE
DISK SIMULATION
gvsmc 1
Y
TINES
COPE
ER ROUTINE
CONVERT
BINARY TO DECIMAL AND TYPE ROUTINE
TYPE ROUTINE
TTY INPUT ROUTINE
READ AN ocmk NUMBER FROM THE TTY
ERROR
ROUT INE
ERROR
MES
TYPEOUT ROUTINE
BINARRY TO OCTAL (ASCII) AND TYPE
TRAP DEC
TRAP TABLE
POWER DOWN AND UP ROUTINES

0B:54

EOL
SEG 0004

CZRJGBO,RPO4/5-6 DSKLS_CTRLRI
08-NOV-77 08:30
CZRIGB.P11

MACY1l 30(1048)

08-NOV-77

0B:54

68
£s
MNPV

EQUIPMENT

PRELIMINARY PROGRAMS

LORDING PROCEDURE

METHOD

STARTING PROCEDURE

CONTROL SWITCH SETTINGS

STARTING ADDRESS OR ADDRESSES

PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS

SUB-ROUTINE ABSTRACTS

ERRORS

"FATAL®

RESTRICTIONS

MISCELLANEOUS

STORAGE

EXECUTION TIME

STACK POINTER

OPERATOR SELECTABLE SCOPE LOOPS

ERRORS

PROGRAM REVISION HISTORY

wwt*kHHHDODDDDDDOD-flg
UL W= OO0
N LW
0w

el Sl el el el S

Sy S

Y =

ABSTRACT

REQUIREMENTS

MMM~~~
- Owo N L

72
73

PAGE 3

CONTENTS

FO1

PROGRAM DESCRIPTION

SEG 00ce

oty

P11~

"D8-NOV-77 08:30

MACY1l 30(1046)

1.0

08-NOV-77

08:54

PAGE 4

<A1}

THE DIAGNOSTIC

IS USED TO TE T RPO4/5/6 D VIC

TO EITHER AN RH11 OR RH70 DISK

CONTROL LOGIC

CONTROLLER

THIS
DgflGNOS TE TS_THE RHi11 AND DCL OF AN RJPO4/S/6

SUBSYSTEM.
HE MOLI.

Dg‘eaeL“CE5,ongv
3 (NS
mose Ty 1 on
gng
W
G
2l
nsou
THE ox;« 10 "'f “HEADS UNLOARDED” Posmon
xmuesmr socx EDTHELOGICLOGICIS NOT
WHICHTESTED £SIN MECHANICAL
THIS
auu (WITH NO Sn
) OF THIS DIAGNOSTIC
HAT, “THAT PART
THE DCL THAT HANDLES
m D'
LOGIC IS WORKING mmv“.
THIS

e mOOnUnNnnNnNNNE L £ L £ £ £ 5 L5 LWWWWWWLW

ABSTRACT

CONNECTED

IQ%ST c

w'i D acngs
N
CONNECTED

aLL DATA COMMANDS USE THE MRINTENANCE REGISTER

MODE .

ooes NOT
ANY T sr;m OF THE RH70 CONTROLLER
4/S/6
SYSTEM TO TEST RPOH/S/& DISK DRIVES
um rm: OF comn% R. véT IS ngsunso THAT THE

nu7o
cxrxc CONTROLLER DIAGNOS
HAVE
BEEN
SUCCESSFULLY
UN TO COMPLETION BEFORE THIS DIRGNOSTIC IS RUN.
2.0

REQUIREMENTS

2.1

EQUIPMENT
PDP-&I COMPUTER WITH CONSOLE TELETYPE,

AND R RPO4/S5/6 DISK SYSTEM.

7576 DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER,
DISK CONTROL LOGIC (DCL),
THE CRBLE FROM THE DCL CAN BE

?Og:?
§EDT° THE MDLI, BUT If NOT THAT CABLE MUST BE PROPERLY
e.e

STORAGE
.

2.3

THIS PROCRAM REQUIRES

16K WORDS OF MEMORY.

PRELIMINARY PROGRAMS
THIS CAN BE THE FIRST PROGRAM RUN ON AN RJPO4-/S/6 SYSTEM BUT THE

CONTROLLER DIAGNOSTICS MUST BE RUN FIRST IN THE CARSE OF AN

RWPO4/5/6 SYSTEM.

3.0

LORDING PROCEDURE

USE STANDARD PROCEDURE FOR LORDING .RBS TRPES
4.0

STARTING PROCEDURE

;TCH 1; MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN

9
CONTROLLER.

IT CAN BE SET AT H$ FRON PREL,

s
SNITCH REGISTER

OO0

Nry
00

GBO,RPO4/5-6 DSKLS CTRLR1

OR IN THE

IF_THE OPERATOR SO DESIRES.

QRRGRQ H 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER
OPERATION.

SEG 0008

LWy

30(1046)

08-NOV-77

08:5S4

PRGE S
SEG 0007

%.1

CONTROL SWITCH SETTINGS
SEE SECTION 5.1

STARTING RDDRESS
START AT AD
TART AT

200---FOR_NORMAL
R
04---T0 SEL%?T NON-DEFRULT ADDRESSES

TART AT

10---FOR UNIT

SELECTION

THRT

SE:E

N
ii

RLLgflITCgs HU BE OWN FOR WORST CASE RUN. WITH THIS
HE RPOH/S/SS ON THE SYSTEN HILL BE
ORE “E
SS” IS PRINTED
O
ONE
TESTI
WILL
START W
OHES
Ng ONDS)THEN
RED UP ( HfiT ?g #HEHES UNIT
NUNBRRRHAS REGISTER
..4

“.2

IS POHERED UP.

srnnr

sriONs

GO ON TO THE NEXT HIGHER UNIT NUMBER

WITH THE FOLLOHING EXCEPTION: THE
TE
T
ron A uon-srnnonno
xnc
EN c v nususnso
AND ONCE
IT IS" THEALSO

NT RES

zsosasagg
*&figgfifl
M
BE
T
STRRT D FROM
PARAMETERS WILL gST
?figTPRs D SFR

ESS T
F RLL UNIT

PROGRRN

CESSOR NEED NOT BE TOUCHED.

S AGARIN
CHECKED,

WILL

gggTéSRLLY RESTART AT 200 AFTER RECEIVING THE NEW DEVICE

HIT 58“ ET % DOWN FOR_WORST CASE ~UN.
WITH_THIS
STRR ING
ES
T
CONSOLE TELETYPE WILL ASK FOR_THE UNIT
NUMBER
THAT UNIT WILL BE TESTED

FOR ERCH PRSS OF THE PROGR

PROGRAM AND/OR OPERATOR ACTION

LOAD THE PROGRAM INTO MZMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS "LOAD ADDRESS".

SET "OPERATIONAL SWITCH SETTINGS®TM

WORST CRSE

IS ALL SWITCHES DOWN.

(SEE SECTION 5.1

O NN LW

VL T VT o U T 1T N

T Bt bt s B

OO 0 MU £ WM

s Bes 2 (OO

00000V
LWhe-OWw - y

oo
oo oo oror WAALY)TUS 02 boa bt Pt s ot Pt Pt Pt Pt Bt Pt ot Pt Pt Pt ot ot ot Pt et

(D0 (0 (0 (DD DM ~J~J~ 393
DO O L WO W0~
o
L

Nb-b—

MACY11

CZRJuBO RPO4/5-6 DSKLS CTRLR!
ZRJGB.P11
08-NOV-77 08:30

PRESS "START".

FOR_THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFCRE "ENC
PRSSTM

IS PRINTED.

THE FIRST PARSS WILL REQUIRE OPERATOR

30(104&)

08-NOV—7?

0B:S4

I01

PAGE &
SEG

INTERVENTION IF_THE PROGRAM IS NOT RUN UNDER AN "ACT-11]
ONITOR.
THE SE?ONg
AND UB
QUENT PASSES WILL EXECUTE

ERCH TEST FOUR

TIME

IVES PR SENT OR DRIVE

SELE
nsgS PRINTED. THE SECOND
Nb SUEgEgEENTPflgNgSDO NOT NEED ANY OPERATOR INTERVENTICN.
s.0

OPERATING PROCEDURE

$.1

OPERATIONAL SWITCH SETTINGS
IF THE P!

SE;NEH

au 11/3%

HILL

ns
errvg
ot T
og

rxne

* SWITCHES RARE CONTROLLED

ROUTINE WHICH IS catho BY TYPING A
PROGRAM
WILL RECOGNIZE
A 'CONTROL G’ AT ANY

unns* SWITCH VALUEA ARE ENTERED AS AN
N RESPONSE TO A PROMPT FROM THE SWITCH ENTRY

'SWR = NNNNNN

%80=f

TIME SWITCH

OXDOM
mm

A SWITCHLESS PROCESSOR (I.

HAT A HARDWARE SWTICH REGISTER
A
“SOFTWARE”
SWITCH REGISTER.

;Pt unsu gr *
S AT A HIGHER PRIORITY PROCESSIHG A RPO4.5/6

INTER
Sourxne

§r R IMAGE

NEW =’

rrxngs

snrenso

THE snrxn: SWITCH

Lsno!
% 0S ARE NOT

D.
'cou ROL
FUNCTIONS MAY BE USED TO
CT TYPING ERRORS DURING SUITCH ENTRY.

QPERATIONA

TION ARE GXVEN

&
§.=.T

S5 8F

—4

ZZ—

é;*§ ¥ Aey
S;r*
g
13’:*

Drr

ggsgs

TC EsGIS sn' 55§§ SWITCH
SED. REGISTERS,
IF THE 6THE
an "SCFTWARETM
rxnos ALL
Tc"‘?s
EE"
3
T x§
g%cxsrsa
$
goczsunggSggcnxae
nusr
L

DO
Z

MACY11

£ B

CZRJGBO,RPO4-S-& DSKLS_CTRLRI
GB.P11
CZRIGB
08-NOV-77 08:30

I
HA
?R
0
0
SET
THIS SNITC
A PROGRAM HALT

00Ce

fl%fiWNMPmwmEmN%Wz-OwwSoNh>id ixmateo'rSisnSs‘WOxBuXEXl(L7)]
(DO~YMEOIMIMVILINCI—IUCMICTIOTM

J8O['2xrUm w[=]OX-~~~J9E-xa O-4'Xwaxxow[,=xm)iXx

TMIMMAUUULFUEUYEUYi0e(Uu'=4S4Qm4n—0tlrd=4at0x4+ry4c0doeQy00C

Ee-ral” Yz 5OQiWO}IO xuv 8F= cxsxW

39507819”%12@34%575890
V-IqxOoanNX

MACY11
30(1046)

08-NOV-77

NOTE:

—

0B:54

TT
L

§f¢
Y

Nonflzg

T;RED

H 11

o0P

EST
8S
N

BE
SO

ALSO SEE SECTION 8.3

Q z Wi

CZRJIGBO RPO4-/5-6 DSKLS CTRLRI
08-NOV-77 08:30
CZRIGB. ¢ 11

JO1
PAGE 7
SEG 0009

P ROGRAM WHEN THE
AN RH70

DR IVES TO BE TESTED

30(1046)

08-NOV-77

08:S4

KOl

ON TEST“aO

9§GIM
WILL
3

;

TT NG

N 'fH

IT H

I N

THE

T T
TFEN T ST éb HILL

F guét H

PAGE B

R YHIS

EXEC T
TE

FOR EXNPLS 1

6
T0 10
OVER

i‘N SWITCHES

MES THAT 1S

T TKN WHEN A

'T&
TH%
SST DE

XTW
HA §2
Tcr ;
NT
TEST
T.
rum
7. ONLY
1
OF &hm NOT PRINTED 35* CHANOTHER

gr ;u

IS "E

8 65 NOT

THRU

ST~
SET

ING

LOW

gu.

SWITCH &

gr *E'“ INSTE

IS WITH SWITCH

ONLY”.

THAT

OMPARING

CONTENTS

SET THEN ON ECC

WHICH

IF SWITCH

TESTS (TEST

OF THE

0SITION
ISTER AND PATTE
GISTER
AFTER EVERY CLOCK,
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS.

NOTE:

ALSO SEE SECTION 8.3

?HITCH
F_SWITCH
SWITCH

THI

gfl THE

NAME 1

STOP F

*PT

Om?
CH 1

IS LOW.
ALSO SET THEN THIS
D ON AS INDICATED

NOT_SET
T
TN Tl! F ITCHWIL8 AS_THE
J
"‘N ?Igsg:la:gfl 4 “I%TEE;S;H 8
N A

FER IF

gi
%..*fi*fic..
e,
I0
S
&
l
gcflwi‘fldL STW FéNPAINTINhOF0?%'1 DATA EIléflge i
TEST,

.3-5

m—

MARCY11l

CZRIGBO,RPO4/S/6 DSKLS CTRLRI
CZRIGB.P11
08-NOV-77 08:30

BEI

%*:"c';fs.,
Es T
WITCH
R T
N_THE

AND TH
TEST

Pfl TE

g.2

Tl-%

OuTS

fi*aso
Loli
5 L0
ON RS
INDICATED
;S NOT_SET
H 8
? %S

120 7T HRU

NO OF ALLRTHEEVERYCLOCKCLOCK COMPARES WILL BE DONE
RING CONTEN S OF

SUB-ROUTINE ABSTRACTS
SEE SECTION 9 "SUBROUTINES"

THE POSITION AND

SEG 0010

Cg}ggO‘NO‘USSS_D KL;
CTRLR

08-NOV-77

MARCY11l 30(1046)

6.0

0B:54

LOl

PAGE 9

ERRORS

Psngo?"m
NTOUTS comnm r

7S _AND orrusnn

é'fS*
P ou nsvm
wf‘mE
grHE ;r\?é"rir
mgb«"'}s}s
OR OCCURRED IN A
§¢
R
m2“£¥"$
T BETERM
'nc ESR °"§'fa%éo“5°
ne

6.1

"FATAL’

ERRORS

mr
r@:vsm
THAT THE DISKDR
v;nz o§§
vn&%sa}osme
P G O O G O
A 4
MU=t tabsp—epsp=pops
OO
LW~

xuroam%:fi‘&f
Tou:nTRING ,53g TT mocmn
épzmWILL
A
CORTLL
HaLT. zgr
1 THE
comxm:quST
ATTEMPT
? T* msmucqouAfiohspmcs
't
L7?:4dg;
sC LOOP CAN BE

AODITION THE"#'r#
'rx

srormr IF mg

THE OPERATOR LOAD

42l

ABOVE WITH 'NOP’'S

POIN

grgs
aksrocomuuernonnc
HALT

ExHIBlT
7.0

?ngt LOWING TESTS WILL

NG ERROR PRINTOUTS.

RESTRICTIONS
*F T%RE IS

A MI

SEDET!EER"‘ 08R PO; HgVE
-

o;R etR
SS
TERHIMT
%%Y

Lk
T8 S
N
ey
P
Ky 8.5
g et Sl e TR A Sl Rl I8 o
!

8.0

MISCELLANEOUS

B.1

EXECUTION TIME

N CHRIN MOOE.

Tl-i FXRST PRE&EF THE PROGRAM WILL TRAKE 30 SECONDS PER

SuBS

8.2

NT PASSES WILL

TAKE 1 MINUTE.

STRACK POINTER
THE STACK

INITIALLY SET TO

1000

SEQ 0011

CZRJGBO,RPO4 /56 DSKLS CTRLRI

CZRIGB.P11

oe-uov-77 08: 30

08-NOV-77

MACY11l 30(1046)

8.3

08:S4

MOl

PAGE 10

SEG 0012

OPERATOR SELECTABLE SCOPE LOOPS

TAl

nmm ON OF n?u ni ON ERROR WORKS.

x§ &%kno&1C_ANY
ch
OF

°i
Iélt

ancx T0 sux
THE BEGINNING xsOFrt rs

uuzu TTM

OPE LOOP IS USED THEN THE POINT

aar

W rnxn

consxo:nmxou

"PROGRAM CAN GO ARE: -

%5&*‘i%‘ Bl e R R B
T

ER
..8#% mm ST
W

RSl

RRTION

LSOPUSED

AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN
NORMAL OPERATION WILL CONTINUE.
8.4

PROGRAM REVISION HISTORY

3.0

PROGRAM DESCRIPTION

nggxmg ?HE"E‘:‘E%"EE
THE FOLLOWING sscnons oescgsaenfl

501.géaiug?R WITHIN THE LISTING
kntsr*
THAT"8'?
rsn WIL
;#DRIVE MUST BE LOCKED ON PORT A OR PORT B
; *INTERNAL PROGRAM MACROS BEGIN HERE

e
L

: MACROS BEGINNING WITH *.S$" ARE SUPPLIED BY AN
XT;RNRL
SYSHQC SML SYSTEM_MACROPACKAGE WHICH
E AVAILABLE TO THE SOURCE PROGRAM
¥

~ e

HBLY TIME.

CZRJGBO,RPO4/5/6 DSKLS CTRLR1

CZRIGB.P11
503

08-NOV-77 08:30

MACY1l 38

??g;;?

08:5S4

NO1

PRAGE 11

SEGQ 0013

oongngs|

CZRIGBO, RPO4/S/6 DSKL ;?CTRLRI
CZRIGB. P11
08-NOvV-

MACY1l

30(10%6) _08-NOV-77
TRAP CATCHER

0B:54

BO2
PAGE

SEG J014

unnununagngionuan

NAL P-a Bt Bos Bt e ot B P

i
28

ot s

= OO LW~

S04

004240
Q46240
004230

.SBTTL

STARTING ADDRESS

. =200
RA:

JMP

ADDMOD: JMP
JMP

S#BEGIN

S¥BARASECH
J#BEGIN2

; NORMAL START

iMODIFY RDDRESSES
{SELECT DRIVE START

; ##STARTING RDDRESS 200 FOR NORMAL STARTS
; ##THIS WILL T EST ALL DRIVES ON THE SYSTEM A SINGLE ORIVE AT A TIME
; *%STRRTING RODRE?

S
: ##RESTART AUTCMATICALL
Y FROM 200 AFTER PARAMETERfiODIFICRTION
204

FOR PRRAMETER MODIFICATIO

; ##STARTING RDORESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

coe

04/5-6 DSKLS CTRLRI
08-NOV-77 08:30

MACY1l 30(1046)
08-NOV-77
08:54
PAGE
MEMORY MANAGEMENT DEFINITIONS

001110

.=21110

SEC 00iS

i
flxggngthfl
W
W
IQHUF43¢Kgfl8*#EZJG

08:54
30(1046)
0B8-NOV-77
ERROR POINTER TRBLE

070024

0s7837

- 001240

Cee0EY4

PAGE 14

SEQ 00ie

;URONG DATA IN RERDING OR LRITING MARDWARE REGISTER

$ 500D DA

067306

0Ci23e

*ITEMI

om
I

0S74S4
oeare?

MACY11l

CZRJGBO,RPO4/S-6 DSKLS CTRLRI
CZRJIGB. B11
08-NOV-77 08:30

;!ITEHE

EM2

DH33

'RECEIVED DAT

.aegagcongcaon_$GODAT, SBODAT

;ERROR ON

DATA COMMAND

PC OF JSR

SERRPC PCJ
:0,0,0,1,0
;IITEfla

;ERROR ON

NM, ERWORD, $GDDAT,CS1,081 ,ERL

DATA COMMANDC

sPC
;PC OF JSR
TE

; CONTEN

CONTENTS OF RHER!
; SERRPC ,PCJSR,

QE7E42
C701e3

0cizse

0E7837

0012e0

OesSH43e

STSTNM, ERWCRD, $GDDAT, $BODAT ,CS1.DSL,ERL

:0,0,0,1,0,0,0,0.0,
;QITE"H

EM2

DH31

;ERROR ON
PC

TEST NO

WORD NO.

GOOD DATA
:BAD DATA

DATA COMMAND

04-5-6 DSKLS_CTRLRI
08-NOV-77 08:30

MACY11l

30(104 6)
08-NOV-77
08:54
ERROR POINTER TABLE

EO2
PAGE

SEC 0017

; CONTENTS OF RHCSI
; CONTENTS OF RHDSI
; CONTENTS OF RHERI
; SERRPC,STSTNM,

067620
070183

:0,0,1,0,0,0,0,
;lITE"S

gSERRPC $TSTNM,ERWORD, SGDDAT, $BODAT,CS1,0S1 ERI

gy ll'bl ’ P9y

070183

057566

; #ITEME

;ERROR ON WRITE HERDER AMD DATA
sPC

06Se41

;PC OF JSR

; GOOD DRTA
;BAD DATA
;CONTENTS OF RHCSI
; CONTENTS OF RHDSI

; CONTENTS OF RHERI

DT32
DF32

QE7642
07013

0S7Sek
063052

:#ITEM?

PPN

; SERRPC, PCJSR,

$TSTNM, ERWORD, $GDCAT, $BODAT,CS1,DS1,ERL

;0.0.0.1,0,0.6.0,0.

;gRROR ON WRITE HERDER AND DATA
’ c

; TEST NO

; WORD NO.
; GOOD DATA

0t hest Bt Bt et Bt Bt e b= )

c‘g;mmmwu'mc*cra-wmu-m o
555WO
W \IU'MLUNO-D\DR 8

; TEST NO
; WORD NO.

;BAD DATA

067334
07003s

;8Egfl?€6§BSTNfl.ERNORD.SGDDRT,SBDDQT

; *ITEMIO

| SERRPC, STSTNM, ERWORD , SGODAT , SEDDAT
:0,0,1,0,0,

07003s

0E7e2S
Ce2317¢

;#ITEMLL

;ggflTROLLER OR DRIVE STATUS

i TEST NO

RPU4/5-6 DSKL§ CTRLR&
08-NOV-77 08:3

MACY11 30(1046)
=NOV-77
08:54
ERROR POXN ER TARBLE

SEC 00ie

ADR,CS1,CS2,0S1,ER!

DT11
DF11

067350
070042

057625

PAGE

;*ITEMI2

oea272?

EMII
DH1

.MRONG DATA FROM SILO

' REG. ADDR

000000
000000
067306
070024

0C13Se
001360

0S76&0
06335E

;#ITEMI3

;#ITEMIN

jele/ele)

067306
070024

——

FGOOD DAT

ECEIVED DAT

: SERRPC nzcnon $GDDAT, $BDDAT

:0,0,0,0

: SERRPC , TSTNM, REGADR, SGDDAT, $B0DAT

:0,0,0,0,0

FRILING REG.
RDDR
;CONTENTS OF FAI

i CONT

;CONTENT OF RHDS1
S OF RHER!

SERR C,SBDADR, $BDDAT,CS1,CS2,051 ,ER!L

001362
001364

067370
0700s1

00136&

0S770C

001370

0e3ccs

001372
001374

DE7412
0700e1

SESRPC, TEMP]

001376
001400

0s7781
Oe3e0e

:0,0,0,0,0,0,0
; #ITEMLIS

; #1TEM1E

;SPSE%FIED REG.
e
ADDR.

NON EXISTANT SO ABORT

OF REG

;ggIT LOOP FRILED

:WAT PC
;BIT WANTED
:REG. ARDR.
:REG. CONT.

CZRIGBO,

RPOY4 /5.6

CZRIGB. P11

08-NOV-7

632
693

067422
0700864

001402
001404

0s7772
063751

MACY11

3%( 046)
08-NOV-77
08:54
RROR POINTER TRBLE

s #ITEML?

PAGE

17
SEQ 0C19

DT1e
DF 16

: SERRPC,

EMI
DH1?

:HEITE CHECK FRILING

:0,0,0,0

$TMP3, $TMP1, $TMPO, $BODAT

! §ERRPC §TSTNM, $BA, DB, WC,CS1,CS2

DT17
OF17

:0,0,0,0,0,0,0°

; #ITEM2O

EM20
DH20

;REGISTER FARILING

S78583543

OWm

N LWhr-=0OW

i
e i e e e e e e
LT pa..—p.-.-p—.—;..hho

; CONTENTS OF FHER]

O0l4ge
001424

§ OF RHDS!

RPC, TSTNM ER1,ER2,ER3,AS,DS!

,0,0,0,0,0

;#1TEM2]

IETERRUPT FRILING

001432
001434

00143¢

PTEST
NO
ICONTENTS OF RHCS!
:CONTENTS OF RHAS
:CONTENTS OF RHDSI
: SERRPC, TSTNM, CS1,RS,DS1
:0,0,0,0,0
ERROR IN DRIVE PRESENT LOOKING
AT RHAS AND RHCS2-NED(BITslz)

DRIVES PRESENT DO _NOT AGREE
NOTE:

0C1440

001442
001444

ON DURL PORT SYSTEM

DRIVE ON_OTHER PORT NILL NOT GIVE NEC
gENCE THERE WILL BEA MISSMATCH
,

; TEST NO

iRHAS UNIT (RHER1 BITS S ET)
iRHCS2 UNIT ( NED’ BIT T EST)
SESRPC TSTNM

MACY1l 30(1046)
08-NOV-77
08:54
ERROR POINTER TRBLE
; #ITEM23

0000

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

CZRJIGB. P11

PAGE

;NO LONGER USED DUE _TO SPECIAL

'TEST TABLE TYPE OUT ROUTINE

;*ITEM 24

EM2Y4

SECQ 0Ce0

'NED’

LOOK AHEAD REGISTER AT THE

EEGégNING OF A SECTOR IS IN

DHeY4

001462
0014eH4

0&7522

70120

DT24
DFe4

001466

0B0E34

;*ITEM 25
EM2S

001470

op4S4e

DH24

001472
001474

0??522

DT24
DF

00iN7e

CS7e2S

001500

De472s

07CieC

; *ITEM26

EC
SECTOR CLOCK

‘

{ $ERRPC DT, SB0DAT, STHP 1, STHPZ, STHE3

; LOOK AHEAD REGISTER IS

; IN ERROR

EM11

DH2&

CONTENTS OF RHER!
BERPPC PCJSR, SBDADR, CS1,CS2,0S1 ,ER]

!''

0O01S0€e

0S7484

001E10

Oec130

;4 ITEM27

EMI

;ERROR IN READING OR WRITING HARDWARE REGISTER

DH2?

c
’
s' PC OF JSR
TEST
NUMBER
’
(FRIL ING REuISTER
|

GOOD DRTA
.

EZRJGBO RPQY-S & DSKLS CTRLRI
-NOV=77 08:30
P11
09

= ODONNCNLEWN—-0OW [+1] ~

(0 (D (D €D (D €D (D 0D 0D €O (D €D O €D €D O

nn—uu—>u-u——u-kqjcu352

8Cc4
80S

MACY1) 30(1046)
08-NOV-77
08:54
ERROR POINTER TABLE
v’

D127

067564
C70137

060674
085273

;#1TEM30

102

PAGE 19

SEG CCe!l

;RECEIVEDC DATA

; SERRPC ,PCJSR, TSTNM, REGRDR , SGDDAT , SECOAT

DFe?7

: ,0,0.0.0.0

gngg

-ggnnsnr CYLINDER DOES NOT REFLECT DESIREC CYLINDER REG.

:PC OF JSR
REGISTER ADDRESS
:GOOD DAY

:BAD onrn
gglsze
001is24

: SERRPC,

EM31

:ECC GENERATED IS INCORRECT

OF 30
;#ITEM3!

0cisee

DH3Y4

001830

PCJSR, REGADR, SGDDAT, $BODAT

DT30

:0,0,0,0,0

'EVERY WORD IN THIS SECTOR IS GIVEN IN "DATA USEDTM

resr NUMBER
:GOOD ECC1

; GOOD_EC2C
‘WRITTEN ECC!

'WRITTEN ECC2
:DATA USED
001s32

0&7710

DT34

; SERRPC, TSTNM, GECC1,GECC2,WECC
L, WECC2,D1SK

001E34

070204

DF 34

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

001583

Oelivg

;QIYEHBE

EM22

N READ COMMAND AFTER DATA AND ECC HAVE BEEN READ

scc REGISTER OR RHER! IS IN ERROR
onLvatogEgoxx BITS OF PATTERN REGISTER

:THIS SHUOLD MATCH LOWER 11 BITS OF ECC!
001840

Gee4s2

DH3S

TEST NUMBER

:GOOD ECC!
1GOOD ECC2

:PATTERN REGISTER

' RHERI

001842

0e773C

DT3S

: $SERRPC, TSTNM, GECC1,GECC2.EC2,ERL

001544

070eis

DF 35

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

CZRJGBO RPO4-/5-6 DSKLS_CTRLRI
08-NOV-77 08:30
CZR JGB.P11

001S4E
001850

061427
0&6ESS

;#ITEM33

EM33
DH36

PAGE 20

SEG OCezz

géGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS

iPC OF JSR
TES

RHMR

NUMBER

POSI ION REG.
iPATTERN REGISTER

867

868
8e9
g;?

00iSS2

087752

DT36

; SERRPC,PCJSR,
TSTNM, MR, EC1 ,EC2

872

001554

070223

DF 36

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

874
875
87

0C15S&

D&1501

EM34

s ZERO DETECT BIT NOT HIGH WHEN THE
‘35 é;ogcc REGISTER HAS I1TS 21 BITS

;#ITEM34

889
850
891
EEE
833
894
£9c
£3¢&
897
£38

839
90C

301

'ERROR PRINTOUT WILL CONTINUE TILL

001560

DH36

O0OBBBSE

: RHMn
1POSIT

001562

0&77S2

D136

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

00iSe4

070222

DF 36

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

001SEe

0B1S74

EM3S

;POSITION REGISTER OR 11 BITS OF
,PRTTSRN [ G%STER ;NCORRECT

;#1TEM3S

PATTERN REGISTER
BITS OF
11
;LONE
:SHOULD MATCH LOWER 11 BITS OF GOOD ECCl

:DATA ENVELOPE AND N-CODE ZEROS ARE

00!E70

De7CIY

DH37

-0Ww
MW

:PC
; TEST

NUMBER

:GOOD

DRTR

NVELOPE

IN DECIMAL

;ECC POSITION
;GOOS POSITION
; GOO
ECCI

30¢
306

VUIVAIV
AV UG IV

REG

iPAT ERNnzcxéren

904

Bt he Bt Pt Pt P

iPC OF JSR

:TEST NUMBER

02
903

qC7
90e
95

:ZERO DETECT BIT 1S HIGH

;ECC PATTERN

:N-CODE

ZEROS

001872

07770

0137

; SERRPC, TSTNM,ECL1 ,POSITI,GECC1,GECC2,EC2,DRTENY,

0CIS74

070231

DF37

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

:CE
0

878
879
880
881
882
883
884
885
886
887

(’l
(&)

860
861
862
863
864
865
866

-NOV-77
0B:S4
MACY11 30(1046)
ERROR POIN ER TARBLE

001576

062073

001600

06e4S2

08-NOV-27_
08:S4
ERROR POINTER TRBLE
; #*ITEM36

KOe

PAGE 21

EM36
DH3S

SEG 00e2

N A READ COMMAND WITH NON CORRECTABLE

ERROR INSERTED DCK AND ECH SHOULD BE SET

EST NUMBER

CZRJGBO RPO4/S-6 DSKL; CTRLRI
08:30
08-NOV- 7
CZRJGB P11

MACY11 30(40“6)

GOOD ECCI

pos?RREgISTER
C

RHERI

;SERRPC,TSYNH.GECCI,GECCE.ECE.ECI.ERI

070213

DF3S

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

; PGE ERROR

; #ITEM37

ENT

DT11
DF11l

067350
070042
062341

;!ITEH“O

EMH0

067232

DH40

070014
070242

DTH0
DF40

062204
06217%

DT3S

SEEE

067730

CONTENT
SERRPC $TSTNM, $BDADR,CS1,CS2,0S1 ,ERL

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

= 0 AFTER A READ OR
RHWC DID NOT

gRITE HERDER AND DATA
' TEST
*CONTEN r§ HWC
3snnpc srun $BODAT

; #RH11/RH70 REGISTERS

: #WORD COUNT REGISTER (RHWC)

:%EACH BIT IS CALLED BY BIT NUMBER

: #BUS ADDRESS REGISTER (RHBA)

:%EACH BIT 15CALLED BY axegnunecn

; #CONTROL AND STATUS REGISTER 2 (RHCS2)
000001
000002
000004
000C10

usl=

=
ug
US4=
BAl=

(BIT %0)

LECT
s UN r
LECT (gxr #1)
TUN
uuxr SELECT (BIT #2)

;
'BUS ADDRESS INCREMENT INHIBIT (SIT #3)

6 DSKL ; CTRLR]
08-NOV- 7 08:30

000020

Z8o888
a8 83553

800100
808500

N g.—-—o—v—o—-.—v—»—.—w BBRRRgaRoS SESRREEEEETHERRS
iyODgDODDOOODOOQ

PAT=
CLR=

20
48

MXF =
PGE=

1000
2000

OR=
MPE=

LO2

PAGE 22

SEGQ 0024

208
W88

s UNI
;HR%TE CHECK E

;:DATA LATE (BI

; #RPOY4 REGISTERS

o2
SRo8ss
868
888

§§§§§§:

; #CONTROL AND STATUS 1 REGISTER.

GO=
1E=
RDY=
Rlb=
Al7=
PSEL=
VA=
MCPE=
TRE=
SC=

; di
88 8RR
8558§§g8

DFS=
DFF20=

1
@2

GRV=
DLEM=
DEl=

50
0
40

DRY=
DPR=

20
400

DI1GB=

vv=

ool
L=
MOL=
PIP=
=

ETRS

T ENABLE (BIT #
;GaTESAUP
(BIT #7)
(BIT #0)

:READY
;HIGH

UNI

R UNI

RARSFER ERROR
{SPECIAL

(RHDS1)

(#01)

;DR

:Bg
H

5§
H
;

i
9888
50000

100000

(BIT sl
BAND (BIT #2)

#4)
(BIT
#S)

(BIT #10)

)PROGRESS (BIT #i3)

TATTENT
(RHERL)

(BIT #0)

; WR

0000
40000

':ERROR TEGISTER 801

tLF

(#00)

1
100
200
400
1000
2000
4000
20000
40000
10

; #STATUS REGISTER

“282§ g

W=DV NN LW

00
nn
NGO

OR POINTER TABLE

08:54

; ®DATA BUFFER REGISTER (RHDB)
; #EACH BIT IS CALLED BY BIT NUMBER

987

Bt et Pt Pt Pt Bt Pt et Pt Pt Pt Pt Pt et Pt Pt Pt Bt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt

O§ENOV-77

o
00
00

—

MACY11 32&&0“6)

(%0 2)
; ILLEGAL FUNCTION (BIT #0)

CZRJGBO,RPO4/5/6 DSKLS CTRLR!I

CZRIGB.P11

1028
1029

1§£
103

iggg

0B8-NOV-77 08:30

000002
000004

m
%

1838

83883

194
ig;:g

890090
100006

1038
1039

1044
1046
1047
1048
1049
1050
1081
082
1053
1084,
: i%‘

1028

1029
1060
1061
1

1063
1064
106
1

004000
g10000

000001
060002
0004
000010
0020
0040
00
0004900
001000
000001

000002
00004
0001
0602

MACY1l 30(1046)

08-NOV-77

ERROR POINTER TABLE

08:5S4

PRGE 23

ILR=
RMR=

2
4

e s

i!WRITE
PoRmaTCLOCK
ERRORFAIL
(81 gigxzs
§3) o)

RE=

3888

FER=

ég

=
H28 C=

u§§

WE=
pie=

&
o000

ONs=
CK=

40000
188880

s ILLEGAL REGISTER (BIT #1)
'REGISTER
MODIF im‘x.o:)w REFUSED (BIT #2)

:Egfig'gm ‘ (BIT (BIT
oé) ?#7)i
H

:
:

ORORETE RYBREREYERRGR"
(87 413)
LocK ERROR (BIT #11)
HING €
(BIT 812)

I82 ORTWE
UNSAFE CBITafuo) W3
A CHECK ERRSA (afr 15)
.

s ¥MAINTAINABILITY REGISTER (RHMR)(#03)
OHOD
: DIAGINOST
(BIT %0)
Bik=
3
i
RATNIA
L1995
BEk BT w1
MiNX= &
MAINTA
LITY INOEX. (BIT 42)
MSTCK= 10
' MAINTA
CITY Ec‘#on CLOCK (BIT %3}
=
20
' MAINTA
LITY Resp (Bft a)
s
@
i HAINTA
TY WRITE (BIT #5)
QENVL= 200
iDATA ENVELOPE_(BIT #7)
ER=—
400
i 2ERO DETECT (BIT #8)
Ofsy= 1000
'MAINTRINABILITY SYNC DETECTED (BIT #9)
; #ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04)

ATOo
ati=
ATe=

2
4§
|0

AT3=
AT4=

Ats=
ATE=
AT?=

4o
100
0

:DEVICE 0 (BIT #0)

iDEVICE § (BT 31
iDEVICE
2 (BT #2)
! v¥
(BIT #3)
IDEVICE

4 (BIT wd)

iDEVICE § (BIT #5)
i DEV
(BIT #8)
IDEVICE 7 (BIT 97>

1067
1068
107

ig;g

*DESIRED

SECTOR/TRACK

ADDRESS REGISTER

RN BIT TS CALLED BY BIT NUMBER

1074

i83§
i 79
1061

1082
1683

RIVE TYPE REGISTER (RHDT) (806)

zcgncu BIT is Enu.so BY BIT NUMBER
X3

(RHMDST)

(#1)

SEG 0025

N -

SEG 00ce

)eeeLLeeeeLeeeeeeReeeLReDRRDDReRRLDRLLRRDLReeDReDDReDRLl

RSSNRNNAALg0ANNBECANSNRTSBERRNRNBEERnB

Gt S

NO2

Deb=@eAR DMD~~OD~

-R0 0 0N 8 "

sIBIRTRIRISISIBITIRIRIRIRIRIRR

wloau.fi

WOI'&.&I‘III!‘XIXI1!.!.‘111111111110(]ow

; #LOOK-AHEAD REGISTER (RHLR) (#07)

; #RPOY ERROR REGISTER #2 (RHER2)

82 (RHER2)

; #RP0S/6 ERROR REGISTER

(#10)

; #OFFSET REGISTER (RHOF) (#ll)

(#10)

=4 o o o —d

2L2%a

Llailai|ol] T|BMlt

LL
ELLLL £
o

OINTER T RBLE

08:54

BO3

PRAGE 2S

SEQ 0027

{OFFSET gfionfcns }ucfiié (317 $1)
OFFSET

INC

(BIT

%0’

4
58

OF800=

‘OFFSET
‘OFFSET
:OFFSET 400
:OFFSET

OFREV=

HCI=

200

ECI=

2000

FMT22=

4000

sOFFSET
NEGATIVE (REVERSE) (BIT #7)
5nea3§n
gsnpass
INHIK%T (BIT #10)

10000

:FORMAT BIT

*#EACH BIT

MICRC INCHES (SIY 3
MICRO }uc g (BIT #3)
MICRO
INC
(BIT #i4)
MICRO INCHES (BIT #5)

;ERROR CORRECTION CODE INMIBIT (BIT ®il)
(BIT

812

(#12)

IS CALLED BY BIT NUMBER.

; *CURRENT CYLINDER _ADDRESS _(RHCC) (#13)
; #EACH BIT IS CALLEC BY BIT NUMBER

; #*SERIAL _NUMBER REGI STER

(RHSN)

; #*EACH IS CALLED BY BIT NUMBE R

; #ERROR REGISTER

D M)

PSU=

VOF=
UWR=
PRE=
ACL=
100060

L=
SKI=
oCviL=

#03

(RHER3)

(#14)

(#15)

2
IO
20
40

|1
40000
100000

;PACK SPEED UNSAFE

;#ECC POSITION REGISTER (RHEC1)

(81T

#0)

SVELOCITY
UNSAFE (BIT
1}
,
iANY UNSAFE
EXCEPT READ/WRITE (BIT
:DISK_PACK ROTATION ERROR (BIT #4)
iAC LOW
(BIT #S)

:0C LOW (BIT #6)
;SEEK INCOMPLETE (BIT #14)
:OFF CYLINDER (BIT iS)

DD
OO0
niw

25 MICRO

0F100=
OF 200=
OF400=

0 I

-N ov-77

: #DESIRED CYLINDER ADDRESS (RHCA)

“J NN NI
oo oo

Bt Bt Bt 5t B0 Bt Bt Pt Pt Bt Bt Bt Pt et Pt ot Pt Pt et Pt Pt Pt Pt @ et Bt ot Pt ot Pt ot Pt Pt Pt Pt ot Pt Pt P

MACY11 3g(1 04
RROR

3F§3=

et Bt PtPee Bt hr Pt ot Pt Pt Pt Pt B @ Pt Pt Pt Pt

Bt Bt Bt Bt et Bt Bt s e s Bt @ s Bt Bt B @ Pt et Bt Bt Bt B Bt Bt Bt Pt B Bt ot o P Bt ot et ot et Bt ot et s Bt et et P Pt Pt Bt Pt Pt Pt Pt s Pt Pt Pt P

0,RPO4/5/6 DSKL; CTRLR]
P11
08-NOV-77 08:30

»—o.om\:g!mxum-—o.nm\w'm:wmr-é 88

(%16)

;#EACH BIT IS CALLED BY BIT NUMBER

:
#3)

TUMUIUIYs=pepeie

0456 DSKLS_CTRLRI
08-NOV-77 08:30

°3

Cqlsy

CROSS85R 68

R S L T 1"1‘

-NOV-77
MACY11l 30(1046)
08:54
ERROR POINTER TARBLE

TER

CcO3

PRGE 26

(RHECZ2)

RCLE D BY BIT

(817)

NUMBE

EG CCee

CZRJGBO,RPO4/S-6 DSKLS CTRLR1I

CZRJIGB. 511

OB-NOV-?? 08:30

1204

1208

MACY1l 30(1046)

ERROR POINTER TRBLE
.SBTTL

1206

08-NOV-77

08:S4

D03

PAGE 27

SEG 0029

1207

1208
1208

iai?

igis 00162€ 000254

; #*RPOY VECTOR ADDRESS

RPVEC: 254

:RPOY VECTOR ADDRESS

1214

1217
1218
1219

iRPufi/S/S DISK
é/oRS&I;TERS LOCATED gfl THE RH11 ONTROLLER
NOTE T
SE OCRTIONu%LL BE DIF
I
RODR
TINE IS USE

;gs?
4

1222

1223
1224
issg

001630

001632
001634
0Cle36

178722

176702
176704
176710

1558
1229
1230
1231

O00lEN0
001642
gglswfl
1646
001650
ggxsse

176700
176714
176706
176740
176732
176734

1246
1247
ie4e

001670
00i&72
001674

176744
176746
176720

1240
1654
176742
1241
D00i6Se
176716
1242 001660 176724
1243 0016be 176712
1244
00ibk4 176726
124 0016kt 176730

OClE?E

17736

;ggé
i2S2

1284

RHDB:

176722

RHWC :
RHBF :
RHCS2:

;DATA BUFFER SEE NOTE ABOVE

176702
176704
176710

HORDngggg SEE
NOTE RBOVE
EN
CONTROL STRTUS 2 SEE NOTE RBOVE

/0 REGISTERS LOCATED IN THE
DEVICE CONTROL LOGIC (DCL:
;: #*NOTE: I gfiTé
NTS
OF
THESE
LOCATIONS
WILL
DIEFERENT
“CHANGE BRSE
SS ROUTINE 65 gggg.

1234
1235
1239
123
1238
1239

THIS ROUTINE STRRTS AT LOCRTION TRGED “BRSECH“

:lRPOR/S/B DI

isgg

TRIS

RHCS1:
Rl:
A 32:
:
RHOF :
RHCRA:

176700
176714
1727
176740
176732
176734

RHECl:
RHEC2:
RHLA:

176744
176746
176720

OUTINE STARTS AT

; CONTROL
: RROR Il
:
s
;OFF?EE
H
D

176742
RHAS:
176716
RHMR :
176724
RHDS1:
176712
RHDT:
176726
RHSN:
176730
RHER3:

RHCC:

176736

LOCATION

TRGED

CH”

STRYUS 1 SEE NOTE RBOVE
5 s RBOVE
OR/ TRACK
egoRESS SEE NOTE RBOVE
NOTE
NOT
R ggRESS SEE NOTE ABOVE

:RATT
NTI ITY YSE ENOTE
NOTERBOVE
ABOVE
;MRINTRI
;8:
S
RBOVE
:; SERI ?TR
YPE
NOTE
VE
N¥HBE
E NOTE RABOVE
3

;Ecc PO?* ON
SEE NOTE RBOVE
i CC PATTE SEE NOTE RABOVE
; LOOK-AHERD
NOTE RBOVE

CURRENT CYLINDER ADDRESS SEE NOTE RBOVE

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

OCI170g

1767SC

(7&7t2

RHBRE:

RHCS3:

176750

17&7%2

:BUS RADDRESS EXTENSION REGISTER

CONTROL AND STRATUS REGISTER 3

08-NOv-37 08:
3

MACY1l 30(1046)

0B-NOV-77

0B8:54

EOQ3

PAGE 28

SEG 0020

s (s Pt

R
R AR
SRS
L

ety

Y
00

lelg]

0,RPO4/5 & DSKLS CTRLRI

;#THE FOLLOWING LOCATIONS ARE RESERVED FOR Rscxsrsn SAVES

;.nnv TIME THERE IS AN ERROR ALL

]
w

Bt Bt Bt Bt s s ot Bt B

Bt et Bt

funuhunurunr
D

s Bt Bt s Bt Bt Be Bt

s Bt Pt Pt

*ONLY_SOME
MAY BE PRINTEC BUT

ALL

THESE WILL

BE FILLED

WILL BE FILLED TRUE

{#FOR THE TIME JUST AFTER THE "ERROR® ERROR COMMAND
001704
001706
001710
00i712

000000
000000
000000
00000C

DB:
WC:
BA:
csa:

0
0
0
0

;DATA BUFFER
i WORD COUNT
1BUS ADDRESS
;CONTROL AND STATUS 2

001714
001716
001720
001722
001724
001726

00000O
gggooo
000
000000
000000
000000
008888
00

CSl:
ERL:
DST:
ER2:
OF :
CA:
ER3:
AS:

0
0
0
0
0
0
0
0

;CONTROL AND STATUS 1
:
8l
:DESIRED SECTOR/TRACK ADDRESS
.ERROR
82
;
FSE
;DESIRED CYLINDER ADDRESS

001733 888888

DOT:

001744

000000

ECIi:

000000

LA:

001730
001732

001742

000000

001746

000000

001750
001782

0O0000C

EN:

Eca:
cc:

;
ERROR 83
i ATTENTION SUMMARY

vE ?vp

iSERIAL NUMBER

;ECC POSITION

{ECC PATTERN

: CURRENT CYLINDER ADDRESS

: LOOK-AHEAD

¢ <RJGBO,RPO4/5-6 DSKLS_CTRLRI
08-NOV-77 08:30
¢ ZRIGB. P11

e P

IR
?N
Qo3

rururn

.BLKW
.WORD
UNIT:
NOUNIT: .WORD

OB.

NUNIT:

.WORD

SELECT:
.WORD
UNITSL: .WORD
000000

ERFLGS: O

002010

000000

0020ie

000000

08:54

FO3

PAGE 29

SEG CCz!l

INTERNAL PROGRAM CONTROL WORDS

UNITS:

ot Pt Pt Pt
Bt Bt Bt < Bt Bt Bt Bt Bt Pt o
Pt Pt B
s Bt P

WWwwwWwWwwwww
U s 0t Bt Bt e Bt Bt Bt P s
W= ODWO NN LWMN-0OW

et et Bt s Bt Bt Bt Bt Bt Bt Bt et Bt Bt Bt Bt B

(www

30 (1046)
08-NOV-77
R EGISTER RDDRESSES
; #FLAGS 8

o]=St 483 $ER 383

1284
1285
1286
1287
e

MARCY1l

PRESENT
VES
OF
g§
Ufi?*E 2R¥

TO TEST

RESENT

Tg DE%P TRRCK OF UNIT UNDER TEST
ERMINE IF THERE IS MORE

RLL
ONE ¥g£ICRTE UNIT TO BE SELECTED
{UNIT NO. SELECTED
;ERROR FLAG

?. 85%951 IN D%?VE CLERR TEST

TYPE REG

AVSN:

’

SRVE IAL
REGISTER
CLEAR TEST
COMPARISON IN RDRIVE
FOR

-SRVE PC OF JSR WHICH GAVE THE ERRCR

AND RH INIT TEST

00z2C14

000000

PCJSR:

002016
002020

000000
000000

ATTENT: O

;ATTENTION BIT FOR PRESENT UNIT

002022

000000

TMPILL:

; TEMPORARY ILLEGAL FUNCTION

002024

000000

oyaa”

TEST
iWHEN =177777 1T_ISAN ANECCECCTEST

0C202¢e

000000

TOTALAT: ©
4

TESDTE:

i TATAL ATTENTION BITS

;FLAG TO_SAY_IF ECC TEST OR_NOT

iWHEN =0IT IS NOT

;FLAG TO SAY_IF
IVE TIMING ERROR OR NOT
A DTE TEST
= 177777 I?R
HhEN
IT IS NOT A DTE TEST

iWHEN = 0

002C30

00000C

TAGDTE:

TEHPORQRY TAG USED IN DRIVE TIMING

002032

00cooC

TSTNM:

; TEST NUMBER

002034

000000

FIRST:

; IF ZERO WILL TYPE HERDER

002036

0COo000

RPCE:

; IF O PROGRAM WILL TRERT DRIVE RS RPOH4

002040

000C0o0

RH70:

:IF 1 PROGRAM IS RUNNING ON RH70
:IF 0 PROGRAM IS ON AN RH1!l

:ERROR TEST

O
-

R &EEEETEQUOOLLOLE oo

Caty

Ry
220

WWWWWWWwW
I LU Al Al
-0 NN
L Whos-

Bt Bt Bt e et et Bt Bt Bt Bt Bt Bt Pt et Bt Pt Pt Bt Pt Bt Pt P

ale)

08-NOV-77 08:30

MACY1l 30(104& )
OSBNOV-77
RESSES
REGISTER A

Www

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

RP O4/S-6 DSKLS CTRLRI

08:54

GO3

PAGE 30

; ®FUNCTION EQURTES
; #TABLE

002042

%gg:s

%0000

00204¢
0020S0
002052
002054
002056

%ggg
002064

002072
002074
002076

002102
002104

FUTRBL:

FUNCTIONS FOR RHCS1,

THEN "GO"TM

BIT

HWAS

; NO

000006
000010
000012
000030
0000S0

RECALI:
DCLERR:
REkEQS:
SERCH:
WRCHEK:

&
10
12
30
SO

;REC
xmgs
;DRIVE
CLE
;gE%RSE (DUAL-PORT OPERATION)
3
CH_COMMAND
;HR%Y
CHECK DATA

000062

WRIFOR:

ECOM:

UNLORD: @2

000052
000060

WRCHDT:
WRIDAT:

70
72

RERDAT:
REFOR:

000014
000C16

OFSETC:
RETCL:

000020

READIN:

000022
000000

s UNL

S2
&0

;WRIT
;WRITE

70
72

;RE
iR

RATION

(STAND BY)

CI\?CK HEADER AND DATA
DATA

;WRITE HEADER AND DATA (FORMAT;
DATA
HERDER AND DATA

; SEEK_COMMAND

14
16

;OFFg'T‘ COMMAND
; RETURNTO CENTERL INE

;RERD IN

PKACK:

ILLEGL:

.WORD

; PACK ACKNOWLEDGE
; COMPUTED

000422
00Cke2z

WRFROM:
REINTO:

.BLKW
.BLKW

274.
274.

004220

OC4cze

201

Q10
100

002

0e0

200

004

alls}

ATABLE:

.BYTE

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

ILLEGAL FUNCTION

;WRITE FROM_THIS BUFFER
;READ INTO THIS BUFFER

; #TRBLE FOR ATTENTION BITS
; #ATTENTION TARBLE

O04ege2

NOPERA:

0002

; #DATA BUFFERS FOR READ WRITE

002110
003154

SET

SEG 003e

CZRJGBO,RPO4-5-6 DSKLS CTRLRI
CZRJGB.PI11L
08-NOV-T7 08:30

MACY11l 30(1046)
08-NOV-77
REGISTER ADDRESSES

’S

BBNE38 00S037
BABA3:
004240

004244
004244

177777

START:

gss17e
002034

177776
175124

#%#%DIAGNOSTIC CODE##**

.SBTTL

SETUP TESTS

sr&h?

CLR

JWSELECT

J8SELECT

; SELECT UNIT

;DO _NOT SELECT UNIT

; NORMAL RUN

gCEggO
TATUS 10 O
UNTIMELY DRIVE INTERRUPTS
RLI ZE THE _TTY KEYBOARD
IS FIRST IHE ROUND *

oRPVECT JRPVEC

STARTA:

PC aosrkxur
n#
as

1772777

002034

SNDI:

MOV

032777
001403
012737

010000

173546

RH70CK:

BIT

000001

002040

HES 5737
¥
109412

002002
177770

Bide% 884004

e
2T

012737

[=]
o

#-1,

SEG OC 2 3

RESET

00s326

0427186

PAGE 31

.g TTL
.SBTTL
.SBTTL

000137

004S16
oo4s22

001001
000402

BEGINEZ:
BEGIN:

00000sS

004502
004506
sie
SI14

002002

8BS 81873 B8SY

L£LL
NN
0

et ahabe
e ya O
N LW
OO

B o bt Bt Bt

LELSLLLELLS
LS LS L LWWWW

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

W W Wt

s Pt Pt Pt Pt Bt Pt P

BURRZOR-O0B
IRFEEREAEEY o 8283‘
®

3'5
1377

0B:S4

MOV

3%:

RBocT
C

MOV

J8SND1

; SKIP OVERALL PROGRAM HEADER

#-1,38FIRST

;NEXT TIME DO NOT GIVE HERDER

8SW12, ISKR

81,38RH70

;LOOK TO SEE IF USING RH?D
; IF SWle = 0, SKIP NEXT
;IF SWle = 1, CU IS AN RH70

IsSELECT

;200 START?

177770, (SP)

NLY KEEP LAST 3 BITS

(

)laaiungSL

P),asUN

UNit 18 BE TESTES

fffl&(fi&&&él(fi&&‘é&&&fi&&&&l&& Caly
P58 IR LOREE BB NG R LU oo 10 B
M -

Pt Pt Bt s Bt Pt P Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt et Pt P et Pt Pt Pt ii

MACY11l

103

SEG 0024

0B:54__PAGE

PR SOF TUARE SWITOH RECTSTER
#STACK,

;SET UP STACK POINTER

012706

001000

012737

0Se44e

000030

Vggégg ggETgQVED
.REGSG;,QOEHTVEC ERROR

005556

000004

#2$, J8ERRVEC
.g
'RO
. ube Rl

000006

000004

177776

001200

020000

173334

TIMEOUT
;u:R1sngpangnau
REG
TO TEST
NOW HAS ADDR
OF ADDR OF FIRST REG.
;

REG.

18:

J(R1)+,R2

{READ HARDWARE

iBRANCH

c2s:

33
:BRANCH IF 24 DONE
oERRVEC+2 acsnnvtcRssrons TRAP CATCHER
(SP)+,
(SP)+
TACK

-2(R15 srnpx

; COUNT DOWN

IF 24 NOT DONE

AILING REG noon

necxsr R NON EXISTA

aanncn IF

#ADDMOD, - (SP)

;GET RERDY TO TYPE STARTING ADDRESS

oguxa.asua

000204

NHIBI

;nnon annrouv ?
YES

;OF "CHANGE OF BASE RDDRESSTM ROUTINE
;FORCE THE RESTART!

O41314

£
£
W

elg]
.

—

0456 DSKLS_CTRLRI
08-NOV-77 08:30

30(1046)
08-NOV-?7
GET VALUE

4s:

000004

3%:

:GO TO END OF PROGRAM -====-=-==----" >

STRP, 284

J#RHBAE

012737

0Se432

000030

012737

00000e

000004

TRP:
RTN:

(SP)+,

;INITIALIZE VECTOR

nooness RPBRAE (RH11/RH707?)
FOUND AN RH70-SET MASK

SORH70

002040

00eCze

J8SEOP

(SP)+

ss UP THE STACK

osennbn IREMTVEC;RESYOR$ERRORVECTOR
:50 T

REGISTERS ARE SAVED

SERRVEC+2, 98ERRVEC:RESTORE TRAP CATCHER

CZRJGBO,RPO4-S-6 DSKLS CTRLR1

CZRIGB.P11

08-NOV-77 08:30

MACYLll 3?&10‘06)

08-NOV-77

08:S4

JO3

PAGE 33

REFERENCE ERCH REGISTER

1453

fugs

i:gg
1458

1469
1460

006044

012706

001000

006070

013737

010736

006110
006112
00&114
00bl1le

013737
004537

000000
000000
104001
000207

001636
042266

1473
1474
1475

006136
00Bl142
DOel4e

013701
012711
011137

1477
1478
147§
1480

006160
00Bl1E4
0O0E170

005037
010137
104001

1461
1462
1463
iggg

(006076
006104

MOV
0CE!10

MOV

006112

#STACK, SP

;RESET STACK

JWPRCS2+12, a8UN

MOV
JSR

JWRHCS2, N0N+2
RS, asBItST

; TEST BITS IN REGISTER

001656
177777
001126

MOV
MOV
MOV

annung R1
8-1,d
aR1 . 98SBODAT

:R1 HAS ADDRESS OF RHAS
:THIS CLEARS RHAS (SURPRISED!)
:TEST DATA

001124
042284

CLR
MOV
ERROR

#SGDDAT
R1, a8REGADR
|

:GOOD DATA
'FRILING REG. RHAS
:RHAS DOES NOT CLEAR
:BY WRITING ONES IN

UN:

.WORD
.WMORD
ERROR
RTS

O
O
|
PC

:ONLY THESE BITS TESTED FOR READ/WRITE
:ADDRESS OF REG, BEING TESTED
:IN CORRECT DATA RECEIVED
:RETURN TO BLT3 ROUTINE

1466

14€7
1468
1469
1470

Bt
1476

006152

105737

001126

1STB

#$BDDAT

SEG 003S

Pt Pt Pt P

s Pt Pt Pt

ncnuininnin

by
S vt oBENRERERER DO NN LW—-0O 3 ® SRREES

—

n
O

et Bt Pt s Bt Pt et Bt Bt et ot Bt Pt Bt Pt Pt Pt Bt Pt Pt ot Bt Bt Pt Pt Bt Bt Bt Pt et Bt ot Pt Pt Bt Bt s Pt

s Bt Pt Pt it Pt Pt Pt Pt

s Pt Bt

LLELLLLLLELLLLLLLLELLLE

s Pt Pt Pt s

;'4

B SBSRRLOVCEBBIRREER" BE

Sty

GBO,RPO4-5-6 DSKLS CTRLR1

08-NOV-77 08:30

oosSEaE 004737 055172
16
24

2777
1147

020000

013701

001656

MACY1l 30(1046)

172714

18:

oosg;s ooéexa

2% 0013

111137 002020
105037 002021

006610
105711
006612
001402
006614 000137
006626

006630

032777
000137
001402

007166
020000
007524

006634

007162

PC, 8STKINT
ima.asua

MOV

MOV
CLR
MOV
MOV
MOV

gonucsé
52
aa
aonhsnx a4
8-1,aRY

MOVB
LRB

dR1,38TOTALAT
J8TOTALAT+]

BIT
BEQ
JMP

TST8
BEQ
JMP

172312

2%:

S R

gge

SEG 003&

:START WITH AN INIT

(INIT L%Z TTY KEYBORRD

ERROR TYPEOUT?
; gm 1T
:BRANCH IF YES
L

WITH

. OF RHAS

%omucge)

h%
WITH megaggs
% OF 5?'"57
RHCS 80)
;cu.gm
:
;L INITIALIZE
R IDRIaggn UNTERHER1
.
R1 OF urm ADDRESSED

?82" mS“Bo é"?

F 8 NOT DONE

aR1
ag
XE2

i; TES onomc
os
ANY DRIVES
PRESENT
TY
me
MESSAGE
:
GO FILL “UNITS” TRBLE

,(
‘3 wgnfirE’g¥§°" BITS
:c
YTE

; INHIBIT ERROR_TYPE OUT?
cuscx FOR SELECTED UNIT START AND LORD

#SW13, JSWR
SELTST

:TYPE “NO DR VES MESSAGE IF NO

JSEOP

“UNITS" TRBLE WITH DESIRED DRIVE IF SO

000137

041314

IMP

007166

XE2:
012700

000010

2%:

MOV

007176
007202
007264

012723
00S300
001374

177777

3s:

007

12703

001754

108:

0072
007224
387230

1
011}

gxama 001754

007212
3050057
00725
7234

1031

007236
007242
007250

810577
022777
001503

881778

001
001176

001176

172374
024020

4s:
172414

118:

) G

;#SET UP DRIVES PRESENT TRBLE

007166

007172

PARGE 34

JSR
BIT
BNE

4§:

08:S4

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

RESET

&554
S0 ngroa
001636
12
g
12700 000010
13704 001642
006
12714 177777
006600
006604

08-NOV-77

KO3

#8. RO

,ngg
°'urm TABLE COUNTER

MOV
DEC
BNE

s-1, (RD)+
RO
35

pnsser 1ST TABLE BLOCK TO ALL ONES
T DOWN
m:s:r NEXT BLOCK IF 8 NOT DONE

MOV

CLR
CLR

RS
amognn

SUNITS,R3

mmauzs
UNIT NO T0 O
%T?

BCC

MOV

MOV
MOV
ROR
MOV
CHP
BEG

sUNETS, R3

“UNITS” TRBLE POINTER

RELORD THE ma:.: POINTER

8. ,RO
Ri’ 38$TMPO
s$tMPO
fl

oag'ag:. UNTER
aoo
NTO Tsnponmv STORAGE
iSET cnnnv xr
BIT = 1 (UNIT ATTEN.)
HECK NEXT UNIT IF ouc NOT IN BIT O

RS, JRHCS2
824020, JRHDT
es

xnssm UNIT NO. INTO RHCS2 UNIT ADDR.
nsno RHOT - IS IT A oum. PORT RPO4Y ?
iYES...TYPE THE UNIT NO

£
0w

Tl T
o ~J

T T

B Bt Pt Pt Bt Pt Pt Pt

RAER FANAE

s Pt Pt Pt Pt et Pt Pt et Pt P

ot et P Pt

s Pt Pt Pt Pt

0%FoETRE
e
BB VR Lo Obid G

s Pt ot et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt

NNNNINNNTNNININTNINIVTNINIAINUINIUIV

OB S B

DSKLS
e RPOM/S./6
O S o8-Rav
=37 CTRLRI
083

LO3

MACY1l 30(1046)

PAG
1M0B-NOV-77
R DRI 08:54
VEE PRESENT
USING RHAS AND RHCS2

007252
007560

022777
001477

020020

172404

cHP
BEQ

#20020, 9RHDT
6

;READ RHDT - IS IT A SINGLE PORT RPQY *
IYES...TYPE THE UNIT NO.

007262

022777

00147

024021

172374

BEQ

CHP
BEQ

#24021,3RHDT

§20021,9RHOT
6§

;DUAL PORT RPOS ?

IF 50
{1
oRYkPS
P IYPE
RO, OIF &b 7

007310
00731
007320

022777
001463
3797
001457

024022

172354

020022

172344

cHP
BEQ
chp
BEG

824022, 3RHDT
6§
920022, RHOT
b

;READ RHDT - IS IT A DUAL PORT RPOE °
YES.
. TYPE_THE UNIT NO.
SREAD RMDT - 1§
IT A SINGLE PCRT RPOE
IYES...TYPE THE UNIT RO.

007570

007578
007

022777
1467 020021 172364

P YYPE UNIT NO.

;#NO.
.. IT'S NOT_AN RPO4/RPOS/RPO6 DEVICE SO TYPE

837350
7352

010546
10440S

0C74S6

00040

007333

CO74

0177

1l ‘03%

172262

104408
005237

007476
007500
007502

005205
005300
001252

007504

013737

007520

005337

001754

007524

MOV
TYPDS

RS, -(SP)

002000

007€32 00S727
013737 002002
002004 001774

:PUT THE UNIT NUMBER ON STACK
STYPE
IT
,

SRHDT, - (SP)

MOV

RS,

TYPDS
INC

28NOUNIT

S TYP
SINCR

5§:

INC
DEC
BNE

RS
RO
43

; "RHCS2’ UNIT ADDRESS
:DRIVE COUNTER DOWN ONE
:TEST AND DO NEXT UNIT IF 8 NOT DONE

128:

MOV

FBUNITS,@sUNIT

;SET

6S:

001774

TYPE

TYPOC

001776

007S12 013737 oox7§

THE DEVICE

MOV

0
3
007aes
789387
oo1222
0074
010546

0074
007472

; #0UT

SELTST:

TYPE
MOV

ngv

s§

(R3)+
SeRLE
RS, -(SP)

(PUT RH?T ON THE STACK

;TYP; I
:UNIT

NOT AN RPCY/RPOS/RPO6 SO TEST NEXT ONE

TABLE POSITION AND INCR IT
::PUT
%PUNIT
NO. ON THE STACK
’HE ¥u¥r NO.
T
OTAL NG. OF UNITS

UNIT NO. TO FIRST ONE FOUND-OR O

sNOUNI
T, 3sNUNIT' :SAVE NO. OF UNITS

DEC

sNUNIT

TST
MOV

SWSELECT

; IF NUNIT = 8 THEN ONLY ONE UNIT

:IF NUNIT > O THEN MORE THAN ONE UNIT

aoun%$SL.aounxr :STARTING
;guance UNIT ADDRESS
NUMBER 200TO ? SELECTED ONE

SEG 0037

BB ROk B S SRR SRS SRR AT

et Pt Pt P P Pt P Pt Pt Pt Pt
@ Pt Pt Bt Pt Pt P
e Bt Pt Bt et Bt
Bt Bt

1
1

161
%gié
1614

gl
is}

1618
'

1619

08-NOV-77 08:30

MACY1l

B BUT BN

_0B8-NOV-77

08:54

ot
07614 gé%g 002002

007620

PAG

USING RHAS AND RHCS2

T e

B Wy,
?25 5osstcr

001012

TEST FOR DRIVES PRESENT

; #*TEST FOR UNIT

108

LR o Pyl
:Egg uuar"% LecTe TES""G s S
;(;

i IF SO..

; #*INCREMENT THE UNITS TARBL

; #8 DECREMENT THE *NOUNITS

Sé

10 S flRT ”)

0 NEXT DRIVE

(IF ANY)

PRESENT (10 ar ESTED)
.Lono THE UNITS TRBLE POINTER

%;ggg

865;%

001754

?g\{

?%}Is.no

007¢30

oefno

177777

gnz

:-1 (RO)

%&xmfiirfiflrz
ngfiznmkg)
THERE
)]
NTRY PRE .0

amoaNITS

oScnen;NT Ngz qfis
unxr s 0 WONT'T BE TESTED

607642
007e46

8:1110?;37 001774
001776

013

001774

i08:

MOV
DEC
MOV

(83 JWUNIT

JsUNIT,RO

g:r 5085 Tué ONETuuof?e E%q
CONTAINS

:#SET UP THE PROPER DEVICE TYPE FLAG
007652

727

007700

16¢

010077
7

171760
G

9? 020022 171764

S
7

177777

002036

007712

116037

004220

1627

007756

013746

001774

10054

2777

024020

171602

1635

010074

022777

024021

171562

1627

C10104

022777

020021

17.852

007762

MOV
LR
MP

171774

isaa

igg

30(1046)

CZRJGBO,RPO4/S-6 DSKLS CTRLRI

CZRIGB.P11

ESS[+

2$%:

“

RO
s2
agfig‘g’;
5
, SRHDT

ugooaa,anuor

104405

" P08 FLAG

MOVE

ATRBLE(RO),38ATTENT

MOV

SEUNIT, -(SP)

JUNIT NO. TO STACK

CMP

824020, aRHOT

:DUAL PORT RPQOY4 ?

TYPDS

M
5%, wor

i636

BEG

0014

5 sg
'fimtg
ng

;nssune THE NEXT UNIT IS AN RPOY

i3
Biddes Gz
igg 818852
885721 R0 e.
Exoma

: afi'gfis
“cvrxgs
Pree FLAG
TR
3

#-1,d8RP0E

3s:
002016

s:r

CMP
CHP

#24021, JRHDT
820021, RHDT

;SET APPROPRIATE ATTENTION BIT

:TYPE

ORIVE NO.

iLveE GBCIIWEL
our
?vg?'
HE CRESSAGE
oum. PORT RPOS ?

MSG

smcx.s PORT RPOS *

SEG 0C2e

RPOM /

3553839#11

563-3355§7 09:36

iggg

010112

001447

1640
xsué

010114
181 2

022777
M

1233

CTRLR

}0}

oofzao

MACY11 30¢{1046)

024022

171542

020022

171532

TYPE

08:54

NO3
PAGE

SERIAL NUMBER AND
ongz TYPE
X

;s TYPE MSG

CMP
afig

#24022, JRHDT
[

,oun

ggooaa.anuor

§1N
E PORT RPOB ?

’R

S NOT AN RPO4/RPOS/RPO&
Bouv§ *vps
THE RSCII MESSAGE - SO

--su

i&:%

—

o
o

{ggg

PORT RPOG ?
nss

VER HAPPEN AT THIS POINT

ogg03§E cor SICK WHILE TESTING

iggé gigigs 000435
16583 810230 000416
}ggg

SEQ 0039

BEQ

gso

;gsg ARSI . W

-NOV-77

010232

ss'
;

BR
BR

18
18

;sxxp NEXT MESSAGE
;SKIP NEXT

TST

anusu

:READ

MOV

ORHDT| 98SAVDT

;SAVE TO CHECK IF CLR nncsa ax & CLEARS ANY BITS

6%:

0266

777

171374

010304

017737

171354

002010

SERIAL NO. AND DRIVE vp:

C’RJGBO RPO4 /5.6 DSKL

e8.P11

1662

1663

1664
1665

1666

CTRLRI
08-NOV-77 08:30

010322

gou737

010884

001378

010326
010SS0

032713
032713

MARCY1l

30(1046)
T8

042614

010000
010000

18:

BOH

Dg NOV-77
08:
TYPE SERIAL N ER

JSR

PC, 38CLDISK

BNE

BIT
BIT

sMlL, 3R3
mm. 3R3

nno D IVE TYPE

GIVE INITILIZE

iCHECK MOL IN RMDSI
;CHECK MOL IN RHDS:

:BRANCH IF MOL IS HIGH

SEG 004G

2RJGBO,RPON/5.6 DSKLS CTRLR!
3
oe-nov-rr 08:30
c ZRIGB. P11

1667
oo
oo o o
o
L
ot o B I B )
0 =3
uN L Whyso

R
e
Y
o[

16€8

01C70C

004737

o42e!lY

MACY11l 30(1046)
76

cOo4

08-NOV-77 _08:SHO PAGE 29
CHECK MOL TO
.SBTTL

JER

PC,asCLDISK

:GIVE INITIALIZE

SEQG 004!

CZRIGBO,RPO4/S 6 DSKLS CTRLRI

CZRIGB. P11

pe-Nov-77 08:30

MACYIl 30(1046)

T10

0B8-NOV-?7

08:54

DO4

PAGE 40

RHCS1 - CONTROL AND STATUS 1 REGISTER

SEQ CO42

879
1682

1683

iggg

1686

iggg

'
011014

012706

011026

004737

011032

0S2777

001000

MOV

042614

000020

iggg 01i040C 005077 17057&

JSR

1699

815

CLR

011044

0110SC

1900
8110
1701
1705
1706
1707

011137

022737

001126

104200

001126

011074

01374

011100
011104
011110

052719
012637
011237

011122

001403

011124
C11130

010237
104001

042284

1714

011132

011437

001126

000010

001126

1717
1718
1719
1720
1721

DO11i44
0ii1lve
01ils4
011180

001406
012737
Q10437
10%00:

000010
042264

0C1124

17z¢e
1723

#PAT, JRHCS2

JRHER!

5 gn;r "U"SE" AND DEVICE CORRESPONDENCE

(R1-RY)

'PAT’

;SET 'Pnr- TO INVERT PARITY

un"$£
DCL REGISTER USING BRD COMTROL PARITY

011136

Qlliee

022737

001124

aR1, 38SBDDAT

BEQ
MoV

18
:
H IF SC!DVA!RDY=]
R?CSQXEESSE
et
'+ g8° RESS RHCSI

ERROR
18:

1710
1711

i;ié

023737

001774

000120
001124
001126

01il1]l4

i;ig

PU REG

MOV

CMP

109001

1708

1709

NIT AN

:#WITH THIS PARITY ERROR NOTHING WILL BE READ TILL
: #CLERRED

1539 011056 001406
1638 011066 Bini3 busseq ooree
1702
1703
i704

nsser srncx

. #SET FORCED PARITY snnon

170576

1691
{ggg

iges

#STACK, SP

PC,asCLDISK

001126

MOV

JWUNIT, -(SP)

--->

$BDDAT

;(WR9*?
PQ nng
TIN?
Recxsrsn nnc51

iDID
NO
(WITH ’PAT’
iGET UNIT

SC!DVA
BIT nxcn

;$N$ngi PAT AND IR
;PU
AC
:RHCS2 ===>

BEQ

;0K -

au8SGDDAT, a#sBDDAY -conpans
RHC
R2, 98REGADR
1

;
;

SC!

v nas HIGH

cxs sn
n;c STER aucse DID NOT

nou uux

R BITS HIGH

MOV

R4, 28SBDDAT

sPAR, 3#SBODAT

snn

BEG
MOV
MOV
ERROR

33
#PAR, 28$GDDAT
RY, JBREGADR
|

.n o« IT DOES
:GOOD DATA
'FRILING REGISTER RHERI
iPARITY ennop DID NOT
‘SET 'PAR

CMP

RR°¢°°"’““E RHCS1 AFTER PARITY

#PAT!
IR, (SP)
(SP)+, 9hSGDDAT
JR2, 9kSBODAT

MOV
ERROR

:RHCS1

BIS
ov
MOV

CMP

2%:

#SC!DVA!RDY, 3

cwe)

Recxssgn nusax SHOULD

R L]
B R I B I e e e e e

(WrueO WD~
ERUSEENIDY
€8

rd
r

Po P Ps Pt Pt Pt Pt Pt Pt P fl

RPO4/5-6 DSKLS_CTRLR1
1l
08-NOV-77 08:30

MARCYL11 3 ] 1046)
Tl 1

EO4

08-NOV-77_08:S4
PAGE 41
RHCS1 - BIT » 13 - MCPE

SEG 0042

RPO4-S-6 DSKLS_CTRLRI

08-NOV-77 08: 30

MARCY11l 30(104&)
T13

08-NOV-77

0B:5S4

FO4

PAGE 42

RHBA - UNIBUS ADDRESS REGISTER

SEC CO44

)Z]nOJ—](0WEEe2MH8xDT0OIEORNoo@—N—oN-Ioemt_NuOOn0%NI—NALK0OaIWLNb0NTm4wlT-ROM<~I]0OF=Q-EO0)LRTQo4XTVO—FFURL[mo04VIQOaT0[YLLo@OxVOIlR—TOL0=MeMLIMMII=eTEALTO~E0nOIWMe—lITaO(TxNII=mMTi}TulOo0AXrIaOlTLnONwXLa0-E T=*MODo]E0FLTOxRO4A.IOmK40OOr-4oO'I——LoIIOOalbby0NW.lYOe4woTmYUL\VMm~T0oH]TNIRM-IO— OdD-QOaxTVoerI—3SE0doOT0ar~Iyr—0RdOI0EeNTLOO0daII0MVrQoToOVRSH?d0To—a~rBIOOmOM0rdA<rVB~wo—Og0dR~Irr-UMNO0IdB-~a\nrN=E—0RO—=&bdTeoNnoINHW0dmAXOo-NbO0MdERxNobT0OO-LrEdOMM.e—0Io0owZ4RLldp
oz - ) Qo_= -mo )xaxo --

ULJgYxo.OOVTwTWx~o01N5“sOVm(=ZOeTsYwEI-(ZoXrE@WmxM=VwAHy0EC[0aT]oQO-x&a—oSNWv4t]Mm~TaX2weIQ->S—O0BWJ4OATmx—9Ww=oZV—Vu~oSNezO3R2w9Q]V>eaAlUmmwTRo(m4NO«i[2'S0O-—UsWl>XayT0Gwo-QmO2xu[amTOXR0=ILZ]oSkRTVaTOP0N0AUV—-mXZON>Q--T—Hw@oEOl[—=F+DdOYToLXm—U>T]0K-7—=o1XO~N0|ZxO0ObKTS4x-[@-QWQXoA—}~]s“(IzN[(YUM8.=oQmDRLxe-OMa1nty8~]To0=oI-m“X>d—Ont=—(T&EDs>0ZvSYLxaOmtNOTI—NREOLwOMX[—wx-)exNS0T—oRGowAYrUOe-'-IVwT%=oZTnt~3eE0.uaNE0my.tRMn(UUVoZXW=w]L-—N7xwAwmTS.Erm(omx—0—2z-lDZL.--anf~O1V9xS)mTwX“0Nif(N-S0Tmvma-Os&(T0m7-0VC1mN-=eOQl&RNW3oNmsWQ@OomAwS%Q3s1~NmWUXSr—S5V”“sQWmvS-C75(DmOoCwZnTWXF]S0R%[~Owm4—.-—OY]739
unwnununumunumwm TI MTFTFTITTTSSSSSN8 UL

AS L 3 AS ]

Ao NN OB

oxX>xaoww_doo-m>Jw 4eUa o mn-ox [QW<v -No}[+1] Qoax=—aZ Oxo-Ewxxow—WmwoA@WmnWQ.zxxL-ot

NoN083NmNwoNNSN0SN8gN0Ni3¥%N@NN0eN830s81NputeyNQATT%LomDameDo8m3SLeLLLLo0L&8—L3%LiLOetW8le3OLLe3e08oe0L8LLe bb
C2RIGB.P
CZRIGBO RPO4-S-& DSKL $_CTRLRL

*7 08:30

MRCY11
30(1046)
TIY

RAER
NOV-77
OB:EH
PAGE 43
1 - ERROR REGISTER sl

GO4

m-—

SEG 004s

[

CZRJGBO,RPOY
/S & DSKLS CTRLRI
CZRIGB.F11
08-NOV-77 08:30

MACY1l 30(1046)

T1S

08-NOV-?7 0B8:S54 PAGE 44
RHMR - MAINTENANCE REGISTER

1788
1789
——

1781
P

TS3
96

w-1-J -3
OOWOHD
OO0 ]

Do hapsPspa
P pe

1794
795

.-"

SEQ OC4e

OWww-J

ety

'fl'fi

(OOOOOOODOD

?TOH'SfG DSKLS CTRLR1

08-NOV-77 08:30

MACY1l 39{;0”5)

I04
PAGE 45
RHER2 - ERROR REGISTER #2
08-NOV-77

0B:S4

SEG 0047

CZRIGBO,RPO4-S.6 DSKLS CTRLRI

CZRIGB.P11

08-NOV-77 08:30

MACY1l 30(1046)

Tel

08-NOV-?7

08:54

JO4

PAGE 46

RHCA - DESIRED CYLINDER REGISTER

1811
1812
1813
1814
1815

1818

: #%0F THE THENTY necxsrsns (4 IN RH11,

1819

.;cuecxeo IN

1821

icTHE OTHER 7 WHICHARE RHDS!

1820

}Séé

ABOVE

TESTS

16 IN RPO4) ONLY 12 ARE

*TWO ARE RLREQ Y TES ED (SERIRL uo nuo DRIVE TYPE)

RHEC ec RHEC2
:#%ARE READ ONLY REGISTERS. ofis on ano chnuor
BEWRITTtn

SEG OQ4e

CZRIGBC, RPU4/S/6 DSKLS_CTRLRI

CZRIGB.P11
1824
1825
iggg

08-NOV-77 08:30

MRCY11l

30(1046)
Tee

08-NOV-77

08:S4_

KO4

PARGE 47

RHER3 - ERROR REGISTER

SEG 0049

012012

012706

001000

MOV

#STACK,SP

;RESET STACK

012024

004737

042614

JSR

PC,asCLDISK

HSRE g?
SED _TO SETUP HARDWARE~
GI
ER
CORRESPONDENCE

1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
ig:a

012034
012040
012044
012050
012052

012701
012700
012721
005300
001374

184S
1846
1847
1848
1849
1850
1861
iggg

012054
012056
012062
012066
012070
012074
012076
012100

00S012
012700
012701
00S714
032712
00I4IS
005300
001454

1854
1855
1856
1857
1858
iggg

012102
012104
012110
012112
012116
012120

011246
042716
00S216
013703
005203
112713

1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
13;

012124

012612

(SP)+,aR2

;
SS
YTE OF RHCS!
iSET 'TRE' IN nu?sx
i
WITHOUT
SSING DRIVE
:RHCS2
HAS
INCREMENTED UNIT

012126

000757

:TEST FOR NEXT DRIVE

012030

00S037

CLR

JBERFLGS

; *SIMULATED DISK AREA WILL BE USED

; #STORAGE TRABLE FOR DRIVES PRESENT
0S1416
000010
177777

18:

010000

177770

'NED’

#DISK, RI

Lono TRGL

8-1.(R1)+
RO
18

iLL 8
xr -1
: COUNT ooun one CATION
:BRANCH IF 8 NOT DONE

8. RO

aRE

000010
0SIi416

RS
A TEMPORAR
DETERMINED rnon

= 0

022777
001425
2777
1421

1876

022777
ooxu;§

ig;g

012150
812123
0121
Di2iee

POINTER

SELECT xr NO.O (U2'Ul'U0=0)

#8. ,RC
ooxSx R1

SNED, aR2

NON sxx

78:

CHECKOSESUEFS
IF 8 onxs DONE

108:

aR2,-(SP)

;PUT RHCS2 ON THE STACK

(SP)
JBRHCS1,R3

;xngnszsnr
;
Sl

001640

occ? (5P)

R3
#100, 3R3

000100

nrxou counrsn
xnr

23:

1879

012170

024020

167526

020020

167516

oeooao.anuof
8

024022

167506

s?flOEE.flRHDT

022777

020022

167476

022777

024021

1E74EE

001411

IN RHCS2

#OCRTION
COUNTER

iMASK ALL

x R (RHER1)

xr 0 ?

BUT THE UNIT NUMBER
UNIT NUMBER
s;

.uxru *NED’ CLEARED

; #CHECK THE UNIT TYPE AND BUILD "NED’ DERIVED UNITS TARBLE
012130
012136
012140
012146

1874
1875

002006

RE-RHC
R3-R Sl
; R4=RHER]
CLERR ERROR FLAG

3%:

3§H020.8RHOT

lgOOEE.GRHDT

; IS_THIS A DURL PORT RPQOY ?

E; IN TRBLE

ENTER NTfis %FPORT -y
S THIS A_DUAL PORT RPOG ?

;R N TABLE IF SO

SINGL% PORT RPOE *

ENTER IN TRBLE IF S

824021, IRHDT

;IS THIS A DUAL PORT RPQOS *

MACY1l 30(104&)

;NO RPOM FOUND SO CHECK NEXT UNIT

SUB
MOV

#8. -(SP)
RO
tsP)
(SP)+,(R1)+

Lono MAX NO
:‘k
nou PAEE DRIVE
- aa# INC ngLsx%“RS

8s:

012222 00S300

Blscel
Roiee
012230 000716

s bt Bt Bt e

WM
~N

012254
012260

: #COMPARE

043510

4§:

'NED’

JSR
UNITS
DISK

sofcns NTH$HEIVE COUnr

SEEK
RRETE,h © NS oneoreD
1GO TEST IT

DERIVED UNITS TRBLE WITH THAT DERIVED USING RHAS IN T4

RO, 38COMPAR

RESULTS
;nfigs?esun§
Bsnsvzo
DATA
:'NED’ TES
T

:RETURN FOR

138

ERR

:RETURN FOR GOOD COMPARISON (NEXT TEST)

#SPECIAL 'NED'/'RHAS' TABLE TYPE OUT ROUTINE (BYPASSES
*HENCE IGNORES INHIBIT ERROR TYPEOUT SWITCH)
104022

012703
012701

000010
001754

012264
81270;
0Si416
012270
1213
ool124

012274

012237

8{2300

°3f537

020000

166632

giggig fzag 177777 001124

ss:

ERROR

148:

6S:

ems ol RECL
1
1 4é1 2716
812344 600406
12346
104401
062716
815352
104401
062716
012356 104401 0e271E
812352
12270

%
BR
2s

012250 0123?2

Di12252

MOV

DEC

012246

PAGE 4

000732

004037
012236
001754
oxagwo 0S1416

e Bt

08:54

012210

012232

Bt 0t

0B-NOV-?7

CONTROL AND s?n§us 2 (nncg 2) - "NED'
é‘
ENT?
ag
BEQ
CHP
$20021
,
3RHDT
N§L
PORT RPOS 7
BEQ
8%
suren xn TABL

AR
S
et 3# 52 - Let 2

o
Pt Pt
Pt Pt et Bt Pt ot Pt P

LY
0
w

s Bt Pt ot Pt P

CTRLRI

11 08-NOV-;7 08: 30
923
012176 001405
012200 022777 020021 167456
012206 001401
012
012746 000010
81
g;g
60016
1
12621

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

RPOM/S/6 DSKLS

LO4

022737
001409

177777

001126

MOV
MOV

.SERRTYP ANC

MOV
MOV

00, ng
sUNETS RI

sLENGTH OF BOTH UNIT rnaL£§
:
g 8;
RHER1 UNITS

T
#D1SK,
R2
;
”Jg%RHCS2
UNITS
TRBLE
(R1)+,388GDDAT
,%O%‘ 'é N
;?(I;gp‘RT” AND

MOV

(R2)+,3#$BDDAT

;LOAD

ggg

;$Euxax gnon TYPE OUTS ?

che

’

§-1, WSGODAT

i R

13, 3SR

118:

TYPE

TYPE
TYPE

, SPACES
i2s
, SPACEB
'' SPACES
SPACES

12%:

CHP
BEG

8-1,38SBDDAT
93

‘5°The"ifia&"mmxnro “$BDDAT"

:oo§
nuaiA r E Lofi?é&°”u€o"759Le

X
AL

!
: CHECK r ’NED’ UNIT TRBLE
;TRB OVER THE
PC COMUMN
;rgg
OVER
TEE
TEST NO. COLUMN
:TAB
OVER
THE RHAS UNIT COLUMN

:DOES 'NED’ UNIT TABLE LOCATION = - 1 °
'YES...DON'T TYPE IT

SEG 00SO

lelel

228282
NLWwh-- 038!3
§§

D JWO
O

s
s
Pt pa
e Pt P
e
bt
P

GBO,RPO4/5-6 DSKLS _CTRLRI

gla2402

08-NOV-77 08:30
fi;‘m}

MACY1l 30(1046)

001223

S HiE%
v
Cla4l2 062706 000014
glau4ie

0B8-NOV-77

08:54

MO4

PAGE 49

Te3

CONTROL AND STRTUS 2 (RHCS 2) - "NED’

9s:

TEPE

BN
RDD

thRLF

gfi
uEXTs
£$N
N§8£¥ 528%SNTER

Tds

gounT
Bout's Lafes LocaT on Cores
RDJUST STRCK FOR NO “POP”" & RTS FROfl “COMPAR"

#14,5P

138:

;#IN

THE ABOVE

i * F

THE

TEST BITS 0,1,2,
RE

m-'

AND BIT

12 ARE
r

TESTED

9l
gamz
eV TRERnlR
"3
IT12(NED)
uuxr ssn.
ua
T0 2), TR
#IT 1
#DRI

m WHAT WAS

e
RI,
OR RMAS

T POSSI%; BY _PROGRAM TO C%?K IF A NON-EXISTENT
REALLY
STANDING THERE OR

EMNUN.LY LOAD LOCATION “ERUNITTM

WITH A UNIT

NUMBER

:»AND RESTART AT LOCATION “ERSTARTM THIS WILL LOOP FOR
i #EVER DOING EXACTLY RS TEST ON THAT ONE UNIT
T BACK

lRES ART PROGRAM

MAIN DIAGNOSTIC HIT HALT SWITCH AND

IN NCRMAL MANNER

SEQ COS1

3
o—o—u—t—t—o—-o-o—vjo—o-o-go-uo—o-r—o—o—v-o—u-r—o—o—o—o-o-r-fi-o-o--.—
5485 %NR-888
RERRN seeeppRs ¥
Bg

RPO4/5/6 DSKLS CTRLR1

08-NOV-77 08:30

Te3

0B-NOV-77

08:S4

NO4

PAGE SO

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

SEG O0s2

012430
815336
124494
012452
15:22
1
12474
1
1251

wWw
~N

W=D

DD DO D0
D DD LD D

WD~

P11

MACY1l 30(1046)

042614

JSR

002006

CLR

012777
815777
012777

12777

12777
012777
15;77
12777

177777
172777
177777
1570i0
4
1
o;;;;;
6
;g;;;

(=]
W

:CLEAR ANY ERRORS

1672172
157153
16716
167156
167152

MOV
MOV
MOV
BIS
MOV

167196
167142
157133
1671

MOV
MOV
MOV
MOV

MOV
Y
MOV
BIS
MOV
MOV

$177777,9RHDB
'177777'35fl58
8177777,
8157010, 3RHCS2
8147
S
8l
817437
T
8177
R2
816277

'19;7”'2322
817 e
\
#CLR
aR2
anuntt,agg
SRHDB,

;BUS RDDRESS REGISTER GETS 177777
;uononsgggr ngé r;n csr§ 177777
; BUS
55
STER GETS 177777
;
ROL
TATUS 2 GETS 157010
;
CONT
rntgg nsc;;r;n/cers 1476
;
GISTERY
GETS 177777
TOR TRACK
;
£§1§n ]
:
R

;
uEen
RS
R
Ennfu;s
GISTER
:
CLEAR
POSSIBLE BITS
;St
NSTG*EN2N1$
NO.
:RO CONTAINS
ADDR. OF ADDR. OF REG.

; %DATA BUFFER REGISTER

1
12737
177777
815&95
8110
7
642354
012574
(013037 00126

815282

?333

012610

104001

012612

0S2712

001124

MOV

8177777,

001126

ggg

agscooh ;

ERROR

BIS

#CLR, aR2

:SET

MOV

SMUNIT, ARE

;a£1ns%nrs unx% NO.

000040

MOV
MOV

2s:

012616 013712 001774

d
(RO)+

TA FOR ERROR
;
;segn
ADDRESS
ogggom T
T

A chggouxtu TEST DATA

aoonf-

g o&o ngt HAVE ALL ONES

TAFTER A CLR

;g go

_CLEAR

; #ORDC COUNT REGISTER

: ¥8US ADDRESS REGISTER
-

Bo08006800
8.—»—0—0—-—.—0—»—.—-&—
LONOCNLEWNN-0O

:SET REGISTERS AND CLEAR

IsERFLGS

;#FILL ALL POSSIBLE BITS WITH ONES

12516 012777 1
167126
ei
G
U
Ml
812777
1
167112
0125
712
812533 13712
§§994fl0
12556 012700
1630

n
=]

PC, a8CLDISK

; *CONTROL AND STATUS 2 REGISTER

;#CONTROL AND STATUS 1 REGISTER
; #ERROR

2 ggo

IN RHCS2

BECAUSE

nr;flg CLEARING

WILL

JGBO,RPO4
S 6 DSKLS_CTRLRI

JGB.P1!

08-NOv-77 08:30

MACY1l 30(1046)

Ted

0B8-NOV-77

BUS

o? g

CONTROL AND STA

202!
2022
ggga

cnncca) - 'CLR’

; *DESIRED SECTOR/TRACK REGISTER

202S
2026
2027
2028
2029

:
: #OFFSET REGISTER

gggg

; #*DESIRED CYLINDER ADDRESS REGISTER

; $ERROR 2 REGISTER

030

2034
35
2036
2037

; #ERROR 3 REGISTER

gggg

; #ATTENTION SUMMARY REGISTER

2040
2041

013164
013170

013037
012737

2043
2044
goas

013204
013206

051402
004737

001126
000000

001124

2042 013176 123737 001124 001126

158:

MOV
MOV

CMPE
BEQ
JSR

013430

234?
8047

GS
CONTENTS
oo
n ron snnon TYPE OUT

168
PC, 38ERCS2C

annnc xr cooo
:JUMP TO ERROR FOR CLR (BIT S
:IN RHCS2

aotcoonr acsaooar

; ®MMAINTAINABILITY
INTARINABILITY
RE REGISTER
E

2048
53??

: DRIVE STATUS REGISTER

2052

013240

012737

000600

2054
2055

013250
013254

011637
042716

001126
001100

MOV
BIC

2057
gggg

013264
013266

001402
004737

013430

BEG
JSR

2053 gxaaus 013046

20Se 013260 022726 000600

S060

a«ng)+
saoonv

001124

17%:

MOV

CMP
; #

aE385+aogn
(SP)
vV

saoonr
SP)

8600, (pS+

208
PC, 38ERCS2C

ORIVE TYPE

2062

’

2065

582;
2069

)

ECC1 . POSITION

58;5' 4

; #

ECC2 PATTERN

5323
2066

2070

2073
2074
207s
207¢

SERIAL NUMBFR REGISTER
.

; #LOOK-AHEAD REGISTER

o ontn FOR ERROR TYPEOUT

TEST on
iCLERR WV nuo PROG

: COMPARE DAT

{BRANCH IF cooo
{unpZg25“R°“ FOR CLR (BIT S

SEG 00S2

CZRIGBO,RPOM-S-6 DSKLS CTRLRI

CZRIGB.P11
2077

>8
§§§§

08-NOV-77 08:30

013422

005720

208l

MACY1l 30(1046)

TST

268 :

2093

209%

013436

013440

005720

000207

PAGE S2

24$:

e
5§§§

2089 Q13430 ?6:83? 042264

COS

CONTROL AND STATUS 2 (RHCS2) - 'CLR’

258:

oi34
513426

08:54

724

2083 013424 005720
2084

08-NOV-?7

(RO)+

s
00K-AHEAD REG
;a?régenh
PR TTHEF0 8 S CENR
K RE€ PREDICT
PREDICTED

. *CURRENT CYLINDER ADDRESS REGISTER

TST

ERCS2C: MOV
157

RTS

(RO)+

:AS THE CURRENT REG. CANNOT BE PREDICTED |\
'AFTER A INIT IT IS NOT CHECKED

<(RO), JWREGADR érmuua gscxsren ADDRESS
(RO)+

FRE
L g
oS = (RG) FoR Bab
DATA

nsrunn T0 TEST ABOVE

SEG 00SH

CZRJGBO,RPO4/S-6 DSKLS CTRLR1

CZRIGB. P11

RS BBNRRZOREBBYRR
ISR B o0 0 £ w0 BB IPAZoR=03

B
gggs
20

2l
2l

gi
2l

2l
2l
2l
gi
21
gi
21

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

ot Bt Pt Bt Pt Pt Pt

rorerurvnnnrere
oo RN R reroR RO RPN NN

08-NOV-77 08:30

MACY1l

30(1046)

TeM

0B-NOV-77

013444

012706

001000

MOV

#STACK, SP

;RESET STACK

013456

004737

04261Y

JSR

PC,38CLDISK

013462

012777

000001

ngg

013476
013502
013504
01350e

004037
001632
003154
000023

043306

013510

0S2777

00000!

013516

0S2737 000100

013470

013777

002100

166170

MOV

1e6l42

8DMD, SRHMR

MOV

8PKACK, JRHCS1

SEG 00SS

NIT nng

GENERAL

RO,

38SAVER

166122

BIS

8GO, JRHCS
1

003204

B1¢

#CHANGE SAVED

CPU/DEVICE

PONDENC AND UNIT NO.

ORD *PACK RCKNOHLEDGE COMMAND” INTO RHCS1

- #SAVE REGISTERS FOR conpanxson AFTER

SR
RHWC
REINTO
19.

GO’

IS ISSUED

: SAVE
:FROM
110
:NUMBER OF REGISTERS SAVED
: ISSUE

REGISTERS TO

'GO’

TO PACK ACKNOWLEDGE COMMAND

xpecrzo VALUES

#VV, 8REINT0+30 ; SAVED RHDSI

: #AFTER GO MRS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND

ISRVE REGISTERS RGRIN SO THAT COMPARISONS CAN
#BE DONE

013524

013S3C
013532
013534

004037

00i632
002110
000023

043306

JSR

RO, 3¥SAVER

RHWC
WRFROM
19.
2

IO ERAT

R BYT

fiove

013584
013556

00002
013564

002154

013582 002110

043510

JSR

REINT

HRF ROM
19.
1$

Qi3sey

013705

047620

013672

016537

001630

4§

012600

104001

ERROR

Cizecz

000207

RTS

18
28
18:

04226

PACK

UPPER RHAS

RCKNOWLEDGE

COMMAND

; COMPARE

:GOOD

BUFFER

i TEST BUFFER

i
NUMBER
RETURN FOR ERROR

06DS0S

L BE_SAVED AS IS

VAL o ron THE LOWER BYTE

REGISTERS BEFORE

RO, 9%COMPAR

013564
013604

013570

RHARS

aongin$o+agRSou3RSogflks

; *COMPRRE

004037

FROM

OF RHRS
%flNOgE
CHRNGING INA DURAL PORT

;#WITH AFTER GO

013550

;

:%S0 THAT T

01353 113737 003201 002135
013544

;?RVE

;NUMBER OF REGISTERS SAVED

013560
013%e2

47
g
43

PAGE S3

CONTROL AND STATUS 2 (RHCS2) - 'CLR’

40
43

08:S4

i
RETURN FOR GOOD COMPARISON

MOV

ISERWORD, RS

MOV

RHLC=2 (RS ) , 3#REGADRS FAILING REGISTER ADDRESS

ADD

RS, R

;GETTING READY
TO INDEX

WORD

; INPROPER REGISTER CHANGE

AFTER PACK ACKNOWLEDGE COMMAND
{WITH GO_IS GIVEN
RETURN TO COMPARISON

CIRJGBO,RPO4-S-6 DSKLS CTRLRL

CZRIGB. P11
2181

Q013604

08-NOV-77 08:30

MACY1l 30(1046)

Tes

2s:

08-NOV-77

0B: S4

EOS

PAGE S4

PACK ACKNOWLEDGE COMMAND TEST
;CONTINUE WITH THE NEXT TEST

SEG 00se

rurufufururururuiuruu LoDV YNrVNY é‘

OO0
3 rJ
0

GBO,RPO4 /5.6 DSKLS_ CTRLRI

s et Pt Pt Pt Pt Pt Pt Pt

GB.P11

08-NOV-77

08:30

MACY11 39(1045)

08-NOV-77

08:54

FOS

PAGE SS

PACK ACKNOWLEDGE COMMAND TEST

SEG 0CS7?

(013606 012706
001000
b
013620
004737
gqasxu
g;

MOV

:#FILL ALL POSSIBLE nscxsren BITS WITH ONES

JSR

#STACK
PC,
aoctoxsx

MOV
MOV

0177777

&6
01
12777 1777?77
017437 165754
&7
013670
012777
165750
68 gx
76 81 7727
016277 1657494

MOV
MOV

MOV
MOV
MOV

oxu

MOV

. ;guc

s Pt P 6 Pt et

81%%
[
63 0136

rurnerunuruRDVY
RN RN reRRD RN
RNV IV
nrnonn
PO
S e ps bt s e Bt e Pt et Pt Pt Pt Pt Pt Pt et et Pt Pt Pt Pt Pt Pt Pt Pt s Pt Pt Pt Pt Pt Pt Pt

BN
3

01364
oxgggg

012777
81 777

69 013704 012777

001476
177777

BIS

165764
165760

7?7 165740

20
zg Bi%48
013726 B9
012777 bodon:
177 5 iecois
1658724
79
6

77
;g

013734

004037

013742
013744

003154
000021

013790

01374

013784

001632

177777
cs s 177777
Riggf.sTERERGETS

oxsro

cga

g S

.
ox?u;
0177
7’52585“2 .
;orr§ss cx

usen

'ty
E9979§7
JRHMR

fs1er
ENA«CER cxsrsa

nsxnro

T
;nunaea

- #GIVE RESET AND REINSTATE UNIT NUMBER

0047237

0SS172

013762

00S037

003156

063777

8%3

88 01377
51§
013776 0126
ETe)
oxuoos
0127377
9]
01401

001774

RESET
JSR

165654

BIS

PC, 38STKINT

as(NIT, JRHCS2

; INITIALIZE TK

TO EXPECTED VALUES AFTER RESET
srsgz
REG

- #CHANGE Oflé?INflL SAVED

eLR

886774

MOV

JsR

moogp

NTO+1

RHBA

JBUNIT, -(SP)

NUHBER FRO SAVED RHCS2

100
276 003162
00316M

BIS
MOV
MOV
CLR

oifi”(sb)
IR
(SP)+
INT
§n
VES
sDVA!RDY!
,aonexko+ :SA RHCS1
g
INTO+ 1

3 14038
102837 003000
gg
oxuogf oxe737
000400 003202

GR
MOV

Sas{Ne
.uSS aonsf:ro+as gng’g
8
nunn

93 014020
32

014014

%31;0

&65090 003172

Q14044

013746

00
014050 042716
Bé 014084 0S2716

ooa;ow

203

014060

012637

003204

014070

00S027

003214

(&)
N

(CI40e4

005037

MOV

003170

S 177430

TATU
sc srsn 1 CETS 2147¢
nx cers

*BEFORE RESET SAVE Rscxsrsns IN READ INTO BUFFER
RO, 9¥SAVER
: SAVE
HIWC
;rnon

043306

0137S0

013753

LB
MOV

NIT
AND SET UP GENERAL CPU/DEVICE
GISTER CORRESPONDENCE

gfifi

777
177777 166000
15%7 9
i???‘fl
1777
052777
157010 165770

nsszr srnc

CLR

: CHANGE RHDS1 WITHOUT cunucxnc PROG BIT

1767277
0700

003212

aonsxnroién veo nnor

IC
1s

4§:

MOV

CLR

aongznro+3g -(SP)

IfCog
5
P)
(SP)+

.chnro+3o SAVED RHDS1

JRREINTO

asn£1N70+qo

; #AFTER RESET,

gé;naEXPECTED
vznvrnxnc
EXCEPT PROG
BITS - 'DPR', 'DRY' & 'wW'

: SRV
Eg RHEC1
:SAVED

RHEC2

SAVE REGISTERS FOR COMPARISONS TO BE DONE

fufurururururururury fururururury fufururufururururururur
fafururunuuuvrN nufururunn rurururuvrUrVMNrVNY
W
W
rvrurnron
N £ WhorLW DWW IV L WN-0OW

RPO4/S/6 DSKLS

014074
014100
014102
014104

CTRLRI

08-NOV-77 08:230
004037
001632
002110
000021

113737

003201

014114

004037

043510

003154

30(1046)

T26

043306

014106
014120

MA®

GOS

RO, 3¥SAVER

014134
014154

014134

013705

047620

0i14142
014150

016537
104001

001630

PAGE Sb

SEG 0ose

: SAVE
: FROM
70
i NUMBER

: #AS
UPPER BYTE
OF RHAS
CAN BE CHANGING IN A DUAL PORT
! OPE nr%on T
upzss BYTE
OF RHAS WILL BE SAVED RS IS
:#50 THAT
THE
COMPARES ARE
ONLY VALID FOR THE LOWER BYTE

002135

fove

JSREINTO+25, J8WRFROM+25; SAVE UPPER RHAS

. *COMPARE

REINTO

REGISTERS aeron:ozsszt

RO, 98COMPAR

o
18

DI4130
014132

060508

08:54

UNIBUS INIT TEST
JSR
RHWC
WRFROM
17.

314158
DooaaT
014126 014134
014190

08-NOV-?7

042264

MOV

ADD

MOV
ERROR

COMPARE

WITH REGISTERS

:GOOD BUFFER

NGRBER

;
{RETURN FOR GOOD COMPARISON

8ERWORD, RS

RS, R

:GETTING nsggv TO INDEX
-oouaks ER

WORD

RHWUC-2(RS
) , 38REGADR : nxkxnc REGISTER ADDRESS
1
:REGISTER
CONTENTS AFTER
‘A RESET

THAT

IS AN

;unx?ggflzflxranx
C14152
014184

000207

2%:

RTS

AFTER RESET

ERéTBSN FOR ERROR

18
2%

18:

;

CAUSED

AN
OPER REGISTER CHANGE
{RETURN TO COMPARISON
:RETURN TO POINT ON GOOD COMPARISON

CZRJGBO,RPO4
/56 DSKLS CTRLRI
CZRIGB.PL1
08-NOV-77 08:30

MARCY11l 30(1046)
0B-NOV-77 08:S4
126
UNIBUS INIT TEST

§§§2
2239

PAGE S7

SEG 00

.SBTTL SILO TESTS

2240

014156

012706

001000

MOV

JSR

PC, CLotsx

#STACK, SP

;RESET STACK

2244
014212 013749 001774
2245 014216 052716 100100

014206

017700

165416

MOV

JRHDB

.nsno FROM EMPTY SILO

2246
47

48
agwg

014222
814532

004737
8825 ?

042220
001712

JSR
SEP

aouux?
-(spm
#OLT! IR, (SP)

Q
ngon

PC asPUTREG
gb)* ancs2
1
Tf.acsaonon

.snvs REGISTERS
: § DATA LAT axr upP?

:
vsg
:IF NO §ron£Tra1anc
REG.

ggzg

2251
2252

014202

014
8{3333

004727

1403
?698?{

042614

MOV
BIS

001122

gasw

gggg

: 32%7A NO.
IN
LATE BIT AND IR
:55835
gflguL
:DLT AND UNIT NUHBER (BIT 0-2;
-§§L0°T“‘" BITS SHOULD

014242

022737

144200

2257 014250
001403
014252 010137 001122

2258
2259
2e60
226l
2262
2063
2264

014256

104011

014260

012711

2269

014276

001403

2271
2278
2273

014304

104011

040000

001714

SSEP 814590
ojuzkd 822737
DONZI? SOqSSS
D2
ggég
001714
2270

:CLEAR DISK AND LOAD R'S

014300

010137

001122
001774

2279

014306

01374

2278

014230

104011

S576
Diulle4 818537
sseys 8811é5
a0irz
5579 8143

18:

CMP

2s
R1,3#$BDADR

MOV

SR
gnp

#TRE, aR1

‘RHCS1
DID NOT HAVE SC, DVA
T
Y. nrrgn A
:READ
FROM EMPTY SILO ONLY
:THESE BITS SHOULD BE UP
'“LEnST ngfl
go BE O
:CL
;
BITS
BY MOVING

PC.sROY'DVA,
98PUTREG98CS1 e
EE&LOBX RECISTERE
g 3u$ DYCsl
AND DVA SHOULD

BEG

:BRANCH IF YES

ERROR

'AFTER A ONE IN TRE ONL
'READY AND OVA SHOULD as SET IN
IRHCS1

MOV

38:

Yssscan CONDITION, TRANSFER ERROR

BEQ
MOV

ERROR

2%:

#SC! TRE'RDY!DVA, 98CS1 ;

MOV

2P
MOV

ERROR

R1,3%$SBDADR
a-unxr -(SP)

et
3
SEOSBE

Exrtzgg
BRANCH
(IF
STORE FRILING REG

:STORE FRILING nooasss

{RHCS2
SHOULD
83@ §n?
&HAYE
S IR AND UNIT ONLY
nr ERA ONE xn rps ONLY

0,RPON /6.6 DSKLS CTRLRI
P11

08-NOv-77 08:30

I0S
'MACY11 30(1046) 0B-NQV-77 08:54 PAGE S8
©

TYe?

SILO TST |

SEG COes

014334

012706

014364

013749

014360

PC,CLDSK

MOV

JBUNIT, - (SP)

000100
042220
001712

BIS
JSR
CHP

014406

010237

001122

MOV

00S077
012777

165210
177777

DIYN1N
014420

014426

quuau
14436

001403

104011

013737

104468

0I4440
Dl4¥442

00
0137496

014452
Olw4Sp

0047
022637

014446
014462

001774

052759
001403

001636

042220
001712

814472

017700

165132

14476
014s02
014506

017705
022700
ooxuxg
005037

001124

DI4S14

010037

001126

0145826

109001

DiNS30

022705

0i14E3e

012737

O14ESg

104001

014844
01450

010537
013737

001630

177777

001126
001630

és

ERROR

CLR
MOV

JRHDB
#-1, JRHDB

WAT
. WORD

4§:

001124

042264

:SAVE REGISTERS
:IR SHOULD BE SET "OR" RESET

;FAILING REGISTER RHCS2
:RHCS2
S NOT HAVE IR
‘SET, gnx NO. SET AND
{ALL OTHER gfi;s 0

iL
Y

DATA
FER (SILO) WITH O
SILO WITH ALL ONES

:ADDRESS OF RHCS2
‘WAIT TRAP
:
ESS OF RHCS2
:

JSR
CHP

PC, 38PUTREG
(§¢)+.aocsa

:SAVE REGISTER
:IR AND “OR” SHOULD BE SET

ngon

Tf.aosaoaon

; SAVE §ncsa 22°“g FAILING REG.

annog.ao

:SAV

#SGDDAT

: GOOD

MOV

8OR! IR, (SP)

MOV
CMP
BEQ

SRHDB | RS
#0, RO
gs

MOV

RO, 38$BDDAT

ERROR

MOV

cs§:

J8RACS2, 3828

:CLEAR REGISTERS LOARD R'S

INUNIT, -(SP)

BIS

CLR

042264

2, 38$SBDADR

;RESET STACK

OR
MOV

BEG

165126
000000

sIR (2#)
PC, 98PUTREG
(SP)+,auCS2

BEQ

MOV
38:

000300

001122

013737

014436

001774

?635??

014520

165202

18:
2%:

813393

014510

#STACK, SP

JSR

75;
7
022637

014412

guwwuwwwwuu

MOV

001000

042614

81u370
14379
oxuwgg
0144

nrurerunuuRDRDRDRD
RPN NN
(W
TUTUNUNU
RN = 0t 0t 5t et ot et Pt Pt s
N LW~ OWVOIMNLW~-0

004737

CMP

MOV

MOV
oV

ERROR

:IR AND "OR"

;3N2ITTOGETFER H?TH IR AND

3 Lo ggrn SHOULD BE O

:5A
LO
DATA SHOULD BE ALL !
,rgnsr WORD g» XYZ DO MORE TEST
‘BRANCH IF
YES
;BAD DATA

98RHDB, 98REGADR ;guvs nuga FRILING REG.

#-1,RS

8-1. 28SGDDAT

‘"35

DID

NOT HAVE THE FIRST WORD

WHEN “OR"

1SEC

WAS SET

ALL ONES?

RS, 98$BODAT
:BAD DATA
IWRHDB, 98REGADR ;snvg RHDB FRILING REG.
1

:SILO

DID

NOT HAVE THE SECOND

;figsosgg ALL ONES WHEN “OR"

08-NOV-77 08:30

MACY1l 30(1046)
T30

08:54

PRAGE 59

2%:

ErTESge

RUNNNHBFR8E

sg.aoCLoxsx
#66.

; COUN

RO. JRHDB
RO

LOfl? éILO WITH COUNT FROM O TO &S
:NEXT

COUNT

R
2

1S 66 LOADS DONE?
:BRANCH IF NOT.

PCéo TREG

REGISTERS
;SAVE SHOULD
BE SET IR RESET

f
os LO

r?sr
AFTER SILO WAS FULL
0
: COUNT n

aoseonon

48:

: TRBLE POINTER

COENTE R

IF ggg COMPLETELY CLEAR
gRRNCH
;CLEAR ALL

55#)4 Jucs2

3%:

SEG 00e!l

;i CL R# TOTAL TABLE

aounxéfi-(SP)

cs:

“OR"

gavz
nucsa Eon raxanc nsc
N
“OR" WAS NOT SET, IR WAS

annoé (RO)+

ESGDTSIL°

ostOTa.no

:POINTER

#66. RS
SP
), (RO)+
;

snnncu IF 66 NOT DONE

; BRANCH IF GO0D

BRD Dfl
;
J¥RHDOB, 98REGADR
-(R0O), a8$SBDODAT
(SP) , 9#$GDDAT

28
J8ERFLGS

O42264

OL£00NN

( 0)1

195

ogegag0

AIRSN o =)

19:

O
[AT=E
V]

258800080

OG-NOV-??

SILO TEST 2

.SILOTE,RO

012700

o
LO LU= L=t

£
~
o
o

L
s
NNNNNNNNN

N
n

——

L£rs
oo

o—o—v-—nt—o—o—o-o—o—o—o—o—.—.—o-u—o-o—;o—t—o—o—o-o—o—o—o—.—o—u-t—o—;—o—.—v—
EEELELE
AFER8YBr
=0283 143 PREEEA
R

2353
e

00000000000000000000000000000000000000

WWWwWwWwwww
n
0

P11

[

RN
NNNNNNNNN%N
AR EEEELLLELECOGFRECR-E
B ;N
B8

0,RPO4/5.6 DSKLS CTRLRI

JOS

6%:

12
AT
13

ig#ugg
“5857 gaonv

:
;Hgs
;

iON RE

H To
c

nnon CALLS RRE FOR
vOID PRINTING NEXT ERROR
rvps
T.
SILO
ITTENIN.

our AN ERROR WAS

:DETECTED,

THE TOTAL SILO

is IN LOCATION
;
;;géLOTB“ T0 THE NEXT &5
E4S:

2726

(RO)+

ASWR

: INCREMENT (RO)
;ARE_FURTHER COMPARES TO

:BE DONE

necsfin7-suoe (SP};:ONLY KEEP SW? AND SW8

164142
177577
000200
7%:

#SW07, (SP)+
108
(SP)
RS
11

s TEST SWo?
:IF NO MORE COMPARE THEN BRANCH
iNEXT GOOD WORD
i COUNT
iBRANCH IF &6 NOT COMPLETE

C2RIGBO,RPO4/5-6 DSKLS CTRLRI

CZRIGB. P11
2382

O01SCle

08-NOV-77 08:30
00S7ee

MACYLl 30(1046)

_0B-NOV-77_08:S4

T3l

SILO TEST 3

108:

TST

(SPI+

KOS

PAGE &0
; POP STACK

SEC C0ez

DSKLS CTRLR6

o
n 2 ErofR8n
Pen

e P

Pt Pt P

PAGE &l

PC,38CLDISK

;CLEAR DISK REG.

"4:;§
4552
2700 630103

:CLEAR RO

e o p—s

0000000

s foom Bt fme

08-NQV-77_

SILO TEST 3

JSR

1401

000000000

MARCY11 3?(‘0‘46)

LOS

042614

004737

= e eP

;éfififiéfi :

OB-NOV-

Bon b Pt B B

(=)

888Fasoesasgesns-

'S8

08:S4

v
2%:

oou735 42220

it
10237 001122
737

10405;
01
012737

100000

164514

0000

ROY
CMP

ggo

JSR

BIT

001126

ERROR
MOV
MOV

001126
001124
023737
042264
001630
013737
104012

38:

%c.aopuracc

#OLT,3nCS2
B8
R2, 38SBDADR
MOV

001712

001124

R§o67.,aRHDB

CMP
MOV
ERROR

uoaaosaoonr

f§§olsto
7 DONE?
's

IF
aanncn EES

necxsr:ns
snv?

ves
BRIl
rnxLch noon:ss RHCS2

:DATA LATE ?xo NOT SET AT &7TH.
TA
cooo

; INPUT TO SILO

c?
Sosaoonf rthxncAREREG. RHDB
gotcooa
#RHDB, 9BREGADR
ORD IN RHDBCHANGED

nrrsn THE 67TH INPUT.

SEG 00e2

CZRJGBO,RPO4 /56 DSKLS CTRLRI

CZRIGB.P11

C8-NOV-77 08:30

MACY11l

3001046
T32

08-NOV-77
SILO TESTY

08:S4

MOS

PARGE &2

SEG 00e4

2406
240

3
S:w 015166 004737 042614
gfi

7é

1774

220

s.'eos12

02237 001712

015220

104011

gssz

ot Pt

2422

015230

001630

18:

010110

cs:

g1sesz2

38:

)+,98CS2

, 88SBDADR

RIL NG
Rg

JSUNIT -(SP)

A
1

MOV
CLR
MOV

SIRHDB,RO
1
R1,3R0

INC
CMP
BHIS
MOV
WAT
.WORD
OR
JSR

R1
#4,R1
e

VE_IR SET

Th THEN 1

THEN 2 THEN 3

NT DARTA

HRI FOR "ORTM

RHC?E ADDRESS

O
PC,

RH S22

gyus'gta%afmsasz’
NCq

JBRHCS2, 3838

T "OR” CLERRED

d8CLDISK
-(SP)

Hfi&
ON _OR.
;CLR_IN RHCS2

;UNIT NO.

r
se
R
i
g
i
f
i
f
%
@
:

4s§:

888-8

nr—-—gg

e
&

ssflERSET *“0"=0

Hov
MOV
MOV
EET
Q

001124

o
£
o
o

cs:

‘“§S§
33 'R

aJR2,RY

MOV
MOV
MOV
ERROR

#OR.R1
6
#4,RS
23
, 98REGADR
84, 38SGODAT
RS, 98$BDDAT
|

R
cbn
MOV

J—
3. §ogs

CMP
BEQ

[

—

n
£

[

[ttty
e

o pem e
§ ¥ SR.—.‘.—hg S

5t Bt ot s ot Bt ot Bt Bt ot Bt e

5232

CMP
BEQ
MOV
ERROR

gw fi&% 001122

2418

MOV

100

ERROR

d8SBDODAT

ewis

~
O

2414

1?2

;CLEAR DISK

PC,asCLDISK

Pt ot ot e e o Bt

s-us

JSR

N_RHCS2
;IF
OR IS NOT SET BRANCH
;SILO 4 IS NOW COMPARED

13000 DATA6')

2411

AD DATA
o oxo NOT CONTAIN LORD

'§
Xe
et

;SILO SHOLLD BE ZERO

CZRJ

RPOY/5/6

cg.rg‘.]bu
2462
2463
s:su
65
3
sg
246
2470
2471

12410
1154"53
1 "'SS
154
015436
015442

DSKL

cmua

og-uov-§7 6
704
99
3796
1
7 9 é»o 300
126
1124
10437 001126
010237 042264
104001

MACY1l

395
6S:

046)

NOS

a-nov- 08:54 PAGE 63

s? 0 TEST &
BIT
MOV
BIS
MOV
MOV
MOV
ERRCR

msn rr: ouc WORD PUT IN
a; AKEN OUT RS

sn.o S A ocsmucnv: READ

asung
- 3?)
czr UNIT NO
'0R! IR, (SP)
cspn goscgom
nuaogsoon

gooo
n
{RHCS2 ADDRESS
:DATA LATE ERROR

SEG 0065

33
FhsahypypYRYpy
BIIWIALIN 68

G,RPO4/5-6 DSKLS CTRLRI

rururny

2
i EEPRERRRRPRVY
R 8 BIRRLERN 838 @
N

P11

08-NOV-77 08:30

MACY1l 30(1046)

08-NOV-?7

08:54

BO6

733

SILO TEST S

.SBTTL

MORE REGISTER TESTS

PAGE &Y

SEG O0eE

313“?3

127

ou2614

001900

MOV

JSR

PC,CLDISK

#STACK, SP

;RESET

015476

012711

003566

MOV

oasss aR1

MOVB
MOV

(

154

01
81

01551

31? 6

010146
16

MOV
INC

993;33
00000S
11137 001126

§7 7 006766 001.26

1552¢
012737 006766
815534
810137
o4226M
C1SS40 10400
015542

001124

112711 000032
0155
011137
001126
CiSS
022737
006632 001126
015562 012737 006632 001124

015570
010137 042264
015874 104001

18:

STACK

:CLEAR

-(sp)

3(SP)+
AT
a

DISK REG.

RHCS! WITH ANY NUMBER

TTING

RERDY TO onn ooo BYTE
0380 ; RHCS ]

;T vg gfl;A 0

ggg

MOV

MOV
ERROR

02566 VR!RCY, ao

MOVB

832,
3R1
NTO EVEN BYTE
33?
gfisaoonr
"2
5
6n
82432 DVA! RDY, taoanr
nucsx SHOULD HAVE 6632
02H32°Dvn'nov
T :GOOD DATA

MOV
CMP
MOV

MOV
ERROR

VA!ROY, 3

BYTE FOR RHCS1

R1,
38REGADR
|

T -aucaooguoULo HAVE 6766

T
&xnccgggx
TER
HCS1
INTO

328«3RE

S1 GAVE

rnxLxNG
REGISTER RHCSl
:MOVING A NUMBER INTC EVEN
IBYTE OF RHCS! GAVE WRONG
ESULT

CZRIGBO, RPOY/S-6 DSKLS CTRLRI

CZRIGB.P11

08-NOV-77 08:30

MACY1l 30(1046)

T34

08-NOV-77

TEST ODD BYTE

,C06

PAGE

INSTRUCTION ON RHCS1 - RH1l

SEG 00E7

2504

2505

558? 015612
gggg 015616

0127
737

001000
042614

MOV
JSR

o TACK, SP
CL023

:RESET STACK
: ésn gxsx REG.

2510

12711

003566

MOV

oasss

011137

001126

MOV

aR!, 9¥SBODAT

kgngxnc sénov T0rgnnogoog;re
nov;?fi?ooo BYTE FOR RHCS1

CMP

osss-ova-nov d

Eggon

1 .3 3

ggge

MOV

3z-ovn-Y, oscg

ggié §§55
1 1}2
2513 015632 112736 00000S

ggig

015636

?gg
MOVB

R
St
2519 8{2223 ?636 T 042264
16

5&51
5553

0D1Se42

022737

2524

oissgs

5?52 812275

11271%

2527

015706

012737

2529

015720

104001

004766

000032

5437 "uégg 001126

2528 015714 010137 ouaasw
ggg?

001126

001124

18:

CMP

MOV

ERROR

RHCS1

si“
os a(spa‘

WITH ANY NUMBER

K
; §x c?grsn
nucsx

1é igggo

n1 JSREGADR
1

RHCS1 SHOULD HAVE 4766

:
’

nE
3¥ Eficsx
GAVE

s;:gg;
6270 EVEN BYTE

T nncsx SHOULD HAVE 4632
?n

%
kc
RE°n§EER
nucs

sveu

gvre
OF RHCSI cnvs uno~c

& DSKLS CTRLR1
08 NOV-77 08:30

& 552PRRERERR
n

000

T
&R

::g322
£

oo
00
|
o

Lol ond

2 bt Pt Pt Pt P

000000

L adond

00000

ol o d

= e Bt e P Pt B P

00000000

004737

MACY1l 30(1046)
08-NOV-77 0B8:S4__PRGE 66
T3S
TEST ODD BYTE INSTRUCTION ON RHCS1 - RH70

042B14

JSR

PC, 38CLDISK

;GIVE INIT & SETUP REGISTER CORRES

3154 R

333

3177E§55(R2)

TTING RERDY FOR ODD BYTE
ES
nsu "§
Go"
BYrE FoR AHcs2
Skg
0DD BYTE

16
36

052519

TN
CLRB
MOV

001774

oo?igg

35.5&37 %uas
00141

013737

001774

010237
104001

042264

737

000100

01374

001774

712

020000

715

112612

000012

0dli2w

Q
MOV

1%
JSUNIT, J8SGDDAT

MOV
ERROR

R2,
1

sIR,

MOV

JUNIT,

-(SP)

BIS

SUPE | 3R2

BIS

MOVB

sBAI,

MOV

JsuNIt,

011637

0J1124

MOV

(SP)

011237
022637

701126
001126

010227
042264
104001

BIS

DDAT ;GOOD DATA

sUPE! IR!

VE WRONG RESULTS

(SP)

§EP
HPE IN RHCS2
ECT
'9
aes

-(SP)

MOV

aR2, 98$BDDAT

MOV
ERROR

R2,
38REGADR
1

CMP

nov AS IT IS SET

SREGADR :FRILING REGISTER RHCS2
.CLcnaxnc 00D BY TE OF RHCS2

(SP)+,

001774

0c0110

V‘;s

SSM,%%.cSmnSz“
0 SEE T
: “CLRB" oxo CLERR

013746

716

xup¥

as 5. )

BIS

18:

numr -(SP)

353

CMP

001124

(Sa
SP)+

: MOVE xuro EVEN avrs OF RHCS2

63:)

(SP}+, 38SBODAT

T .GO0D DATA

;YEST

DATA

‘fiov: T0 % sntr MOVB DID

rnxanc
nchs ER RHCS2
MOVING A NUMBER INTO EVEN

BYTE OF RHCS2 GAVE WRONG

:RESULTS

SEG 00ee

OO0

<RJGBO,RPO4/5-6 DSKLS_CTRLR1I

ZRJIGB. P11

08-NOV-77 08:30

MACY1l 30(1046)

T36

2569

8279
2572
2573

2STM4

2575

016110
01b611N

001000
83255”

msxg

012714

MOV
JSR

025252

MOV

016140
8}2{32

112736
011437
38?38{

000377
001126
177652

016120

0137

1632

5552 016154 012737 177652 001124
016162
010437
042264

2583
gggg

016166

104001

2586
257

016170
016174

112714
011437

2588
2583

2530
259!

016200
016210

016216
0ied22

022737
012737

010437
104001

000123
001126

177523
177523

042264

001126
001124

PAGE &7

#STACK, SP
PC,CLD}SK

8RHIC,

The

(spy

MOV

18:

EOG

MOV

MOVB
MOV
SEE

001126

(0B:54

TEST ODD BYTE INSTRUCTION ON RHCS2

012706
004737

5278 Bieldg 862;1‘2
016134

eS78
2579
ase?

08-NOV-77

825252, JRY

:RESET
STACK
§SLERR 3x§x REGISTERS

;RY NOW IS

;

WORD COUNT REGISTER

GETIING READY TO FoRM QDD BYTE

8377
J(SP)+
;
v;
77 INTO ODD BYTE OF RHWC
aRY, 38SBODAT
: TES
égrn
r%77ssa,acsaooar;c
R I;ocggg IF MOVB DID OK

-177ssa.g-scooar'?5355

MOV
ERROR

RY,
|

MOVB
MOV

8123
3RY
JRY, 98$BDDAT

CMP
MOV
MOV
ERROR

SEQ 00&9

SREGADR :REGIS gn FAILING RHWC
;g2VIN3RO“EOR2g8L$gTE OF RHWC
5n03§ INTO EVEN BYTE OF RMWC
; TEST
DATA

8177523, 38S8DDAT
8177523, 38SGDDAT ;GOOD DATA
RY,
JSREGADR ;REGISTER FRILING RHWC
|

RRRRRRAR Cety
SBSRRLIN 6B

OO0
J

0,RPO4-S/6 DSKLS _CTRLRlI

TnNLEwn—-0

DRI

fury
oo

Al:22

P11

016226

016240

08-NOV-77 08:30

012706

004737

MACY1l 30(1046)

137

001000

_08-NOV-77

08:S54

FOB

PAGE &8

ODD BYTE TEST ON RHWC

MOV

SEG 0C7C

#STACK, SP

;RESET STACK

eBN

""oag““&s‘%"“‘ss -

042614

JSR

PC CLoisx

1652 ms;°‘°"“'2
000377
12

TR
MOVB
MOV
CMP

"0377 J(SP)+
T :‘’.&2%88“$YTE°'308"°09*"“

§i‘&3 813704 gos323
81
016264
815270
16276

016300
016306
016312

01143

1126

2737 177652 001126
1409

01273
010437
104001

177652
042264

001124

016314
112714
00012S
016320
011437 001126

016324

016334
016342
01e346

2737 177524 001126

012737
010437
104001

177624
042264

BEQ

001124

18:

#$SBODAT

;

okrfssa aosaoonr,
1

nova RESULTS

H ; GOOD

MOV
MOV
ERROR

o177ssa J¥SGDDAT;
DATA
RY
'98REGADR' ; FAILING REGISTER RHBA
1
ho
xugavsrsnggg gggngs

CMP

3179524 98$BDDAT’

MOVB
MOV

MOV
MOV
ERROR

oxas
IRY
4. 9 #SBDDAT

$; TEST
R DATA

8177524, 3#8GDDAT; GOOD DATA
RY,
' d8REGADR ; FRILING ascxsren RHBA
|
,ho
VING INTO EVEN BYTE OF
RHBR GAVE WRONG RESULTS

08:30
09-N0v-§. CTRLRI

0DD BYTe08:INSTRUC?EON ON RHBA
TEST-NQV-77

.SBTTL

DCL COMMAND TESTS

R
e

FOUR

;RE

R4=RHER1 ERR

ool

WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS

BIT #1 (ILLEGAL REGISTER) CANNOT BE TESTED ON POP1l THIS BIT

R
B

Rl=
Rg

* g BE RESERVED FOR HARDWARE
ngrWILL
M
CONTROL
1 SgN
RO QNJ STATUS2

GENERAL

DRI

R3=RHDS1

ATUS 1

REGISTERI

APPROPIATE SAVING MUST BE DONE

ROMGRORORO° o
n
RECRME 0

SEG 0071

?96

MACYI1l 30(1046)

UMY
> pe b
Ll & IV [ B8 |

PON-S6 DSKLS

P RE

00000000000

16352

004737
12777

16402
16406

012700
012705

805037

001000

042614
1

IS FOR PDPIO USE ONLY

MOV

163262

ye
21

18:

8STACK, SP

JSR
MOV

PC, 38CLDISK
#0MD, JRHMR

MOV
MOV

orgr

CLR

JsTMPILL

asssr STACK

LEAR REGISTERS
;se DIAGNOSTIC MODE

:GET READY TO MAKE ILLEGAL FUNCTION

: LORD uucrgou c
: oumin (1 g&o

TABLE START
UNCTIONS)

1e41e
%?;SS ——
28
16420 062727 000002 002022

BN
ADD

23"’““
RO+ YyLR THE B R, “ENXTCT FUNCTION
“CGOE
eTR
82, 38 TMPILL
CODE

16430

DEC

BNE
BIT

2s
#100, a8 TMPILL

16426 000765

3%:

001367
032737

000100

16460

004737

042614

%ooox

163166

16476

012737

016460

001110

16514

001403

1e€22

104011

00000

16432
16434

002022

1644s
013237 002022 002104
16452 862737 000002 002022

O00000000

N
OwoN

m U‘g FRETRR

FREESot AT

163

rurnnn

012706

16364
163

ERROR REGISTER #01 (RHER1) TEST

16464

1472

815777

013711

2104

1520-0
042220
16€10 ooto?g?
005737 001716
16€16

010437

001122

;rEér rexr'?uncnou CODE
: MAKE

ggo: IF

ONS NOT

;bs%

1ST 1
D

:BRANCH IF 16 NOT COMPLETE
;nu. BITS UP TO BIT #5 COMPARED?

R0y
ADD

fimpxu
IWILLEGEsYEST
O - NEWTPSTFUNCTION
THE ILLEGAL
FUNCT ION
mPILL
CODE NEXTT

JSR

PC, 38CLDISK

MOV

JSR
13T

8DMD gnmn

aom’. GL, aR1

s ILLE

mcuosr C MODE

FUNCTION ---> RHCS!

%ERR

hopu REG
-t

: ERROR
n:r

aq 28$BOADR

rqu

BEQ

ERROR

MOV

:SET

.§nv
;

'rfé‘né

N POINT

RSnor a: ANY ERROR YET
1 STILL = O

cxs n aooaess RHER!
LEGAL FUNCTION

o
ESSSns"2HSUL6"§uofi“$§éL
RLL ZE RHERI SHOULD BE

CIRJGBO,RPO4/S-6 DSKLS CTRLRI
CZRJGB.P11
08-NOV-77 08:30

MACY1l 30(1046)
0B8-NOV-77 0B8:S4 PAGE 70
Y1
TEST ILF BIT #0 IN REG. RHERI

3
3
pS2711 000001
5%:
gé?s
Sis§§8
004737
042220
as;§ oigsag ogazar 000061 001716

g&?é
815 45 8164?? po1122
gggo 016550 104011

a??:

—

JSR
gng

3R1
PC,8GO,
98PUTREG
oétr J8ER]

nSv
Sq.aosaonon
ERROR
1!

016562

022726

£S:

140700

MOV
BIC
cCHP

29051, - (5P)
8PROG (SP)

016576

104011

001662

BEG
MOV

001122

ERROR

~g
:?fisv
- C *xnue
a-nuosx 28$BDADR ' ; FAILING REGISTER ADDRESS RHOS!
,5?#hou NYLEET

£213
[ 4

:DEVICE RERDY (BIT 7)
016600

004737
737

0O4SOSH
€

78 :

16604

010237

016622

166
166

Ol1BE3E

032737

040000

JSR

108:

001714

118:

8?613; 001122
104011

PC,28MIDDLE
,J8M

Hey
figgno

R2,3%108

BIT

8TRE,8CS1

MOV

3éé§n?fic
;
iGIVE
A WRIT

EZ:BR%'
R _AND

?
Wénb
“HIDDLEEQCK
*
8" 1RD BuT ergns
178
BS:?"’S&*“?"“E??
ADDRESS OF RHCS2

JSR

PC.J8PUTREG

-snv: REGISTERS

BNE
MOV

éx.ansaonon

z
;sgg!
AILING cx RHCS 1

ERROR

gggg

Cl1eE40

000BEC

138:

S724

Dlegs2

000240

128:

NOP

z72¢<

syggtgxgfi SET

iC
;ngbxflnSITONERROR
LINE (EiT
(BIT 14)
12}

52}5 016616 oou7g9 042220
a;ze

:ATTENTION (BIT 15)

EZO“
§;07
£7308
318BT% 94333 Oueeiz
gg%? 8%3&%5 88?800
71

(BIT

;ocvgg; READY éaxr 7) SHOULD

gggg

5719

LEGAL runcrxon

;GET RHDS1
:MASK PROG
)

eggg
£3g

S;ig

Eein& Exsburgs FE TR Rmce
:COMPOSIT ERROR (BIT 14)

529
016566 001404
2633 016570 013737

91L§nc GISTER ADDRESS RHERI

§t
8§L FU"CT%%“LDFUNQQT

:VOLUME VALID

gzoa
701

:SAVE
REGISTERS
;i#Li F§"$T§SE BIT SHOULD BE SET

onra-tnn'vv-opn-bg¥*é§¢%afl ‘SIT *§)

sgeq
SE

:GO IN RHCS!

XECUTION

5694 016552 013746 001736
2685 016586 Q42716 001000
gggg

BIS

SEG 0072

rnnusrsn ERROE §gxy"§:; RHCS1 - °TRE®

nnEosn ERROR (BIT 13Ax§gcsx -

:GO BACK 8 TEST NEXT FUNCTION CODE

EAREP 5o e P

*TRE

BBURRZEREEBBNS B8

0,RP04/5 6 DSKLS CTRLRI

furururunIrururururuurururY
NN NN NN NI
)

P11l

oe-NOV-77

MACY1l 30(1046)

T4l

08-NOV-7?7

TEST

08:54

106

PAGE
7

ILF BIT #0 IN REG.

nusnx

SEG 0073

016646 012706 001000

MOV

#STACK, SP

;RESET STACK

016660

JSR

PC, 38CLDISK

s INIT AND SET GENERAL REGISTERS

004737

042614

:¥FILL ALL POSSIBLE BITS WITH ONES

016664

016672

016700
016706
016714

0i2777

012777

012777
012777
012777

177777

174;
15;7
7?7

016722
012746 1400
016726 053716 oo 102
016732 012677 162702
016736

012777

000001

016744

004037

043306

016756

0S2777

000001

016750
016782
016754

001632
003154
000021

162740

MOV

8177777,

JRHUC

nsgxsrgn GETS 177777
uono couur

162736
162734
162730

MOV
MOV
MOV

817437333337

‘8ES§E$° sscron rnncx GETS 17437
GISTER GETS 16277
F
:DESIRED CYLINDER GETS 777

162734

162714

MOV

8177777’

o;g;

MOV
BIS

JSREADIN

MOV

#DMD, JRHMR

MOV

SRHBA

STER GETS 177777

onxs'n17 -(SP) :GET BIT 9 AND 8
(SP)+ anflc 1

;FILL READ IN PRESET IN RHCSI
:SET DIAGNOSTIC MODE

. ¥THE REGISTERS WILL BE SAVED IN REINTO BUFFER

RHWC
REINTO
17.

RO, 9¥SAVER

: SAVE

: FROM
110
:NUMBER SAVED

: #GIVE Reno IN PRESET COMMAND

162654

81S

016770 042737 016000 003172

JSREINTO+1

BIS
CLR

SVV,ISREINTO+16 ;SET VV IN SAVED RHOF
JsREINTO+20
:CLEAR SAVED RHCA

016764 00S037 003166
016776
017004

052737
00S037

000100
003174

003172

0, 3RHCS |

: INCLUDE GO TO RERD IN PRESET

#NOW SAVED nzcxsrsns uthaERcuauczo T0 sxpscrso VALUE

BIC

RHDST
SFMT22'HCI'ECI, a‘“5525°$&8:CLEAR
FMT22,HCI,ECI IN

;%AFTER
A READ IN PRESET COMMAND

! #SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
017010
017014
017016

017020

004037

001632
002110

043308

000021

JSR

RHWC
WRFROM

RO, 9#SAVER

17.

Ci7022 113737 002201 00213%

AVE

non

uunaen OF REGISTERS SAVED

A DUAL PORT
cnuogs CHANGING IN
OF
PER BYLE nnng
.ope ATION T
YTE
nuns WILL BE SAVED RS IS
%S0 THAT THE
C
LID FOR THE LOWER EYTE

hove

aonst70¢as aounrnon+es snvs UPPER nnns

; #COMPARE REGISTERS BEFORE READ IN PRESET COMMAND

:%WITH AFTER
017030

004037

017044

C0170EC

017034
Ci703&
017040
Cl17042

002154
00211C
000021
C170S0

043510

JSR

REINTO
WRFROM
17.
18
13

COMMAND

RO, 38COMPAR

$
nunaen or necxsr:ns
nsrunu FOR ERROR
;

SAME

CESBNRREON BS

L] furufuruururururur
~3 i I
I et B et e et L
L
D
fu

0,RPOM /56 osts CTRLR!

P11

08-NOV-77 08:30

017046

017070

017050
017054

013705
060505

MACY1l 30(1046)

01707

000207

08:54

JObB

READ IN PRESET
2s

047620

017056
016537 001630 042264
017064 104001
017066

0B8-NOV-?7?

18:

2%:

PAGE 72

:RETURN FOR GOOD COMPARISON

MOV
ROD

JERWORD, RS
RS, RS

csrrxnc nsnov T0 INDEX
?5ROR WORD

ERROR
RTS

'RETURN FOR FURTHER COMPARISONS

MOV

SEG 0074

nuac-acRS) aaaschoa
ILING REG. RDDRESS
RE“?STE Pgegscecnusso IMPROPER
:NO ERRORS

FERSFRF
SR ZRFNTn 28

B Pt s

NN NNYUNNNNNYNNNNNINYNY

00000000000000000

MARCY1l

30(1046)
42

ISR

PAGE 73

#DMD SerR

MOV

aouo# RA, aR1

MOV

s P

MOV

s Pt

18:

017160

s s e P

cs:

Bt e

ouc
5

MOV

3%:

RO’

- SEG 007S

aa RLL SIBLE BITS

( ITS)

;

N RHCS1

or WHERE SAVED

Rutca-nuuC¢a/a

MOV

S(RO)O (R3)+

MOV
MOV

sonuos*, 3828

DEC
BNE

BIS

ocbaR1

cxsrsns
uor COHPLETE

DRIVE STATUS
RHCS1

.WORD O
DRY

sWARIT FOROPR

.WORD

RD RES

WAT

WART

826RES
DR}VETRTUS RHDS 1
WILL

;EARLIER

RDY

RHCS!

OF RHCSI PUT

MOV

HERE BY AN

iROY WILL BE WAITED ON

;#AFTER A NO_OP

COMMAND

; #SAVE REGISTERS AGAIN SC THAT COMPARES CAN BE DONE

JSR

043306

RO, 98SAVER

RHWC
WRFROM

17.

; SAVE

: FROM
iT0

:NUMBER OF REGISTERS SAVED

UPPER BYTE OF

113737

001733

002135

or nuns 1L#

fiove

snve uP

IBAS+], IBWRFR

%COMPAR

2&R 8RERS

~
n
i
o

[

0000

[
D

S YD

NNNNNSN ~N

0000000

QHITH
043510

JSR
WC
WRFROM
17.

TER

001630

0422684

MOV
ADD

MOV
RTS

FFER

OF REGISTERS

RETURN FOR ERRO
; SAME

s$
4s:

NO OP COMMAND

COMMAND

RO, 38COMPAR

AVED AS IS

nkgg
on rue LOWER BYTE

GISTERS BEFORE

4$
4$

047620

cuaucxnc IN ounL PORT

.opsnn1¥ou THE UP

:#S0 THAT THE COMP 3"

B oy
&

KOB

PC, 98CLDISK

MOV

162546

017170

017204

08-NOV-77
08:S4
RERD IN PRESET

{¥START WITH CLR_IN RHCSE

Wb
a

Bt et Bt Pt

DOBHBHDBBHD

s Pt Pt ot Pt Pt

DO NN LWNN=-0OW

c <RJGBO,RPO4/5-6 DSKLS_CTRLRI
c ZRIGB. P11
08-NOV-77 08:30

iRETURN FOR GOOD COMPARISON
J8ERWORD, RS

;GETTING RE

Y TO INDEX

'REGISTER CHANGE
iRETURN FOR FURTHER COMPARISONS

RS,
RS
:DOUBLE ERROR
WORD
nnac-acnsm aonechon:FAILING REG. ARDDRESS
No

OP cgnnnno CAUSED IMPROPER

BP o

RPO4-5-6 DSKLS

P11l

CTRLRlI

08-NOV-77 08:30

MACY1l 39(50us)

017282

017252

017260

012737

004737

017260

2bi4

001110

BEBBBA

-3:%gm’mmmm_
] BERRSoL83% B 3: REAER FARRESl
DO

nn
n

LO6

PQG$ 7Y

FUNCTION

TEST

148:

SEG 0076

:NO ERRORS

MOV

JSR

MOV

uxug J4SLPERR

kCL oxsx

coho

?er SCOPE

NIT LAS

LOOP _TO 142

RLL zsno TEST

DIAGNOS

; #NOW START WITH ALL ONES IN ALL. POSSIBLE REGISTERS

817878
Bi5708
88637
817
8157
177676
17385 1 799 001774
162322

6%:

813%%2 013711
1391 002042
017320

§i;g§3
17334 01ig%gg 891538
000021
§§7§ws
17333 gxé?
101 001662
17374 017366
§ég§§§

gira Sty
817355
017370 0002
017372
104415
017374 0000
017376

NO OPERATION

og1S4

5%:

017264 012777 000001 162366

8{;332

08-NOV-77

coooo

000200

7%:

108:
118:

MoV
MOV
MOV

eRHecaR
guuc+a/a a“°°§555g2'aeé“§’
TERG
TS TER
0177?76
2
JBUNIT
ga
NSTA Eagg;T DISABLED
R UNDER TEST
INT

352
MOV

2JENOPERA, 3R1

.c
;
T 1F 25.8 xn RHCS1

S(RO)# (R3)+

ROV
MOV
385
MOV

SRC R0’
:
onutcg-nuuc+e/a

DRY
LWORD

RDY

Sonuosx
T "osrcézcbzSTATUS
1,981188108 2
;3§1
’

Sy
L.WORD OST
WAT

or uusne SAVED
cxs

RO
Rluzvg
i mesy
:ggénz
nrus RHDS 1

:
i

5& 55
Y
gg
oF ¥5
1?
PUT HERE BY AN

iWALT F

:RDY WILL BE WAITED ON

; #AFTER
A NO_OP COMMAND

;#SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
004037
C17404 001632
017400
017406

017410

SR
gHHC

043306

002110

HRFROH

000021

RO, 3#SAVER

AY
;
3

NLIGER OF REGISTERS SAVED

OF RHQS CM BE CMNGING INR DUAL PORT
BY.'E
#AS UPPER

lOPE
017412

113737

001733

002135

: #50 THG

fiOVB

THE COHPig

OF RHRS WILL BE_SAVED
ONLY VALI

I8AS+]1, IBWRFROM+25; SAVE UPPER

RHARS

#COMPARE REGISTERS BEFORE NO OP COMMAND

QHITH AFTER COMMAND
017420

01744
0l74ce

4037

00170
002110

O0O43E10

JSR

WC
WRFROM

RO, 3sCOMPAR

; COMPRRE

:GOOD BUFFER
: TEST BUFFER

FOR THE LOWER BYTE

CZRJGBO,RPO4-S-6 DSKLS CTRLRI

CZRIGS. P11
2305
aeog;

910

2911

2912
2913
Sgw
29{2
2917

08-NOV-77 08:30

017430
01??:33

000021
ox;::o

017440

01376r§

047620

017446
017454

016537
104001

001630

Bim&? Bi'msfl
017944

017456
D17480

060S

MACYll

3%(‘50‘06)

08-NOV-77

08:S4

MO6

17.
{es

12%:
042264

000207
13%:

PAGE 7S

NO OPERATION FUNCTION TEST

132

SEG 0077

;NUMBER OF REGISTERS
;RE'T‘EURN FOR ERROR

Eagruau FOR GOOD COMPARISON

MOV

%ERWORD, RS

MOV
ERROR

RHWC-2(RS)
, 38REGADR
;FAILING REG. RDDRESS
|
;
?P 22""“"0 AUSED IMPROPER

RTS

ADD

S, RS

;GETTING gsggv TO INDEX
-oouaks E

WORD

'R g ugr
gm
R
N FOR
FURTHER COMPARISONS
:NO ERRORS

P11

08-NOV-;7 08: 30
CTRLR!

17462 0127
317u7q
06473

1000
ggasxq

MACY1l

3?w3

30(1046)

JSR

1
17514

177777 12122
162116
177777
12777
77?7 1727777 125165

178
1;§uu
017525
0l

12777 6 47;9 1253 g
727
;;u ? 16207
12777
6
797 162066
12777
49;77 162062

1
1

MOV
MOV

SJL

B
&
n£

77
§777

157010
4

MOV
BIS
MOV

1621
153192

MOV
MOV
MOV
MOV

Q17805 015777 G001 165025

017566

#STACK, SP
PC,
asCLDISK

:RESET STACK
Ess?
REGISTERS AND CLEAR

012777

177777

GETS 177777

n GETS 177777
;3330“80'“?S Rfis? TER

817272777
8177227,

8177777,
815701
819

8l
817437
0177;7?
816277

0Ww
WM

:
;
;

RI ;
)
S
R2
;:OFF

TS 1777 7
s: 157010
Gl rsn/csrs 1476

TS 177777

NOv
GISTER
MOV sDMD.
59999 BRAMR
, SRHMR =nn 5
22228 E
REGI

162056

MOV

317sxo 815777 999995 162042

77"33”2“

;

;#THIS SETS BITS FOR ALL PRESENT DRIVES

017616 013700
§i7saa
aoggx

1;253
1;235
1
17640

002020

—

318:

17642

17643

175;3

001774

1
81757
017674

000001

8x7ssu
17660

017700

27%:

157010

002050
000001

001630

555

8TOTALAT,RO

BCC
MOV
INC

318
s-é,aaq
3R

308: ROR

177777

0176

MOV

161770

iga -

RO’

: ngnaxssaPRE

cannv BIT

:ggzflgT }NT CARRY

*
82" ON THIS BIT
xung SHC REGISTER TO SET ATA
UNIT NO.

MOV

s 7oxg (5P)
(5P)+,dR2

.nsxnsrnrs SET BITS
;

MOV
BIS

#DMD
J80CLEARR,
aR1
8GO, 9R 1

:SET

BIS
v

MOV

JBUNIT, - (SP)

sRHOB,

; #DATA BUFFER REGISTER

; #WORC COUNT REGISTER
NN

SEG 0078

;#FILL ALL POSSIBLE BITS WITH ONES

17500 012777

NOG&

opsnnrxon 3uncrxoua$ss?
08-NOV-77

MOV

)

w%g 5&—y5 3
88

RPOY/5/6 DSKLS

; #BUS ADDRESS REGISTER

ch I 8

ONTI

ruxs nourxue

;DRIVglgLEflR
= 10 INTO RHCS!
;

iRO CONTRINS ADDR. OF ADDR. OF REG.

o 5

JGB 0 PPO“/SIS DSKLS_CTRLR1

JGB. P11

08-NOV-77 08:30

MACYIl 39&&0“6)

974
gggg

DE?;NOV—77

E CLEAR

08:54

BO?7

PRGE 77

SEG 0079

; #*CONTROL AND STATUS 2 REGISTER

5357
78

2979
eee?

: #CONTROL AND STATUS 1 REGISTER
020042

020046
2936

RoH 4 Iantontas

2987

005737

001404
368335

020102

6S:

104210

0nO1124

012737

004210

001124

023737
001402

001124

001126

013037
020072
020100

002000

004737

001126

32%:

23§

020564

TST

SSNUNIT

;ARE THERE MORE THAN ONE UNIT

MOV

ouaxo 98SGDDAT

;GOOD DATA

CMP
BEQ

@¥SGDDAT, J#SBODAT; COMPARE _DATA
78
RANCH IF GOOD

BEQ
ggv
MOV

328
: BRANCH IF ONLY ONE UNIT
352uaxo,98SGDDAT; GOOD DATA
RO)+,38SBODAT ; TEST DATA

JSR

PC, 38ERCLFC

; #ERRCR

{ungflggasnnon FOR CLR BIT §

; *DESIRED SECTOR/TRACK REGISTER

; ®ERROR 2 REGISTER

3003

: #OFFSET REGISTER

3009

; #DESIRED CYLINDER ADDRESS REGISTER

3009

; *ERROR 3 REGISTER

5585
5668

21T
38%5
3014

; #ATTENTION SUMMARY REGISTER

02031

3C1s 020§25

13737

002020

3737 002016

301;
020326
013037 001126
3017
020332 683737 001124
3018
3019

5859
3021

020340
020342

1402
004737

1124

15%:

001126

020564

3023
3024

MOV

BIC

MOV
CMPB

BEQ
JSR

TRLRT ao

T;SET ALL BITS OF DRIVE PRESENT

3333“

a<n01+
?b
15
PC, 38ERCLFC

TM
TER
; #MAINTRINABILITY Y REGISTE

: #DRIVE STATUS REGISTER

iGET_RHAS
: COMPARE oarn

{BRANCH IF GOOD
:JUMP TO ERROR FOR CLR (BIT 5) IN RM(CS2

5525
0374 012737 00070C 001124 17%:
302 8504
013046

MOV
MOV

0, J8$
T
305+ cgga

cooo DATA FOR PRINTOUT
ET RHDS!

3029

BIC

#PROS, (SP)

CLEQR PROG BIT

3028 020404 011637 001126
020410

042716

001000

MOV

(sp) absaoonr

IN RHAS

;CLEAR ONLY WORKING DRIVE BIT

EST DATA

CZRJGBO,RPOS /56 DSKLS CTRLR!
08-NOV-77
08:30
CZRJGB P11

020414

022726

MACY11 30(1046)
TYY

0?-NOV-77

DRIVE CLERR

CMP

000700

BB BP s

0B:S4

co?7

PRGE 78

$700, (SP)+

9&8

B2 3uercLrc

; *DRIVE

TYPE

3044

; #ECC2 PATTERN

3046
3047
3048
3048

; #LOOK-AHEAD REGISTER

; #ECC1 POSITION

3045

v
3057

; COMPARE DATA

or DRIVE cLERR
i 90AE Yo TERRBRF

; #*SERIAL NUMBER REGISTER

3039
3040
3041
3042

3053
3054
3058

SEG 0080

0205Se

c48:

00s720

1 ISR SBl
fE PreneT

; *CURRENT CYLINDER ADDRESS REGISTER
020Se0

25%:

00s720

020Se2

(RO)+

MOV

-(RO),

TST

(RO)+

;RS _THE CURRENT CYL REG.

CANNOT BE PREDICTED

{AFTER AN INIT IT IS NOT CHECKED

c6s:

020S64
020570

O4ez2eM

020572
020574
020S7¢

TST

o0sr2s

ERCLFC:

ERROR

RTS

TSY

(RO)+

QJWREGRDR FRI ING

GISTER ADDRES

? ;N RH? 1 DID-

;0CLERRED EXTRR

.UN?O -(R0O) FOR
.Ss URN TO

;

CLERARED

;UNDO -(RO)

PROGRRH

XT A BITS

FOR BRD DRTA

CZRJGBO,RPO4/S/6 DSKLS CTRLR!I

CZRIGB.P11

08-NOV-77 08:30

MACYll 30(1046)

T4Y

08-NOV-77

DRIVE CLEAR

08:S4

PAGE 79

SEG Coel

3069

0614

000

g;s 350555 864739 89 14
307S 0206
£77§
- 012777 000001

MOV

JSR

161020

MOV

3078 °2°"39.
7;;
1“090 160766
fi
35&52 81
746 ?2?828

gLs
n8v

3082

#STACK,

Pé.aoctatsx
#DOMD, aRHMR
!

csi'»cS1 tg'mcfiisrfi
RSSECTonmo
33355
cvunoé comsgfx.zn

3083

ngbbe ING ARE TWO

0656
5737 002036
g“ae% 350552
1416
30qu
% 020670
020664 022726
001456
3091
0014
3092 020672 012737 001456

TST
BEQ
CMP
BEQ

J8RPO6

3095 020702
020710 012737
013777 00I4¥SS
001210 001210
160734 9S:
10§:

MOV

'9§¥

3038
3099 020720
3100 020724
3101 020726

CMP
BEQ

#410.,
(SP)+
128

msaoew

SS DEPENDING

3093

020700

000403

ggg

020716

000415

3094

022726 000632
001404
2737

000632

001210

MOV

118:

MOV

BLOCKS OF C

UPON WHETHER

TO LOAD RHCA WITH THE PROPER

THE DRIVE IS AN RPO& OR RPO4

;MOVE DRIV
LF T0 TEST
118
i T mpsueFLngvg Assfm
#814., (SP)+
IREQT
814, 7
92
! "firmwi&a
2ucns axa

oaw , J8STMPS
asm’s
nfig

G&L

MAKE RHCA =

vro mx% A = 813.

n;ong NDER 814., OR 813.

GIS

msm n: onx

RPOY
mfn
sm:
AS 410. ?
MAKERHCA= 403.

#410.,98STMPS

ST RSHCY ro mx: RHCA= 410.

JeSTHPS, IRHCA

mxs ocsxneo CYLINDER 410..

3{8%
oeonao;g 01273; 000631 001210 12%:
3%32 020744 013777 001210 160700 138:

MOV

gigg

; #SAVE REGISTERS FOR COMPARISON AFTER GO

3108

3109
gun
3}{5

004037 043306

148:

ggv

:RESET STACK

55113 g“mfiggzr P GENERAL REG. CORRES.
:
TIC
MODE BIT
n
: ;gé
ommog
uxmour MOL

JSR

RO, 28SAVER

READY TO MAKE RHCA

: SAVE

020756
07
07

001632
3154
0023

020764

0S2777

000001

160646

81s

8GO, JRHCS1

;GO TO COMMAND

3118

020772

0S2737

00000!

003162

BIS

8GO, ISREINTO+6

snvso RHCS

315?

021006

042737

000200

003204

BIC

REINTO+30

3113

gfig

3“9

3119 021000 052737 020000 003204
3122

3123

3124

RHIWC
ngxmo
19.

ulwq J8STMPS

. %GIVE GO TO COMMAND

: FROM
10
:NUMBER OF REGISTERS SAVED

: #CHANGE SAVED REGISTERS TO EXPECTED VALUES

BIS

o&g#ons NTO+

Eg nuosx

:SAVED

RMDS1

: #AFTER GO HAS BEEN GIVEN FOR SEEK COMMAND

:#SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN

09OR 409.

Caty

mmmmx;mg";o-b-b—o-b—o—o—o-o—wo—o—r—r—v—»—o—-»-o-o—.—o—o—
FHESHESDS SERZOR-EIBYRR BS

0,RPOM/S/6 DSKLS CTRLR1

SRR PR RS A

AA S

Bt Bt B B Bt Pt Bt Bt ot Bt ot ot Pt ot s s Bt et Pt Pt ot et Pt Pt et Pt ot Bt Pt Pt Pt Pt
n
~
nNLw=-=0OWw

£
N

P11

08-NOV-77 08:30

MACY1l 30(1046)

08-NOV-7?7

021020
021022
021024

004037

001632
002110
000023

043306

EO7

SEEK COMMAND TEST
: #BE

021014

08:54

PAGE 80

SEG 00e2

DONE

JSR

RHWC
unrnon

RO, 8SAVER

s %A

R BYTE

; SAVE

: FROM
170
iNUMBER OF REGISTERS SAVED

OF RHAS

CAN

CHANGING

DURL PORT

ofi;fl”iofl THE UPPER ev? o?Ennns NiL% FOR55
SAVED RS 1S
:#S0 THAT THE COMPARES ARE ONLY VALID
THE LOHER BYTE
021026

113737

003201

002135

MOVB

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

:#WITH CONT n*g 5r§sgeconiss§§suso
; #COMPARE REGISTER

021034

021040
021042
021044
02104
021050
021082

004037

003154
002110
000023
021054
021054
021074

043510

021054

0137

047620

021070
021072

COMMAND

JSR

RO, 38COMPAR

MOV

ADD
MOV

2
35 s“SSB
nuac-2(RS), aonechon
.rnxanc nscxsrzn ADDRESS

104001

ERROR

000207

RTS

REINTO
WRFROM
19.
18
18
2%

021060 06 g2
021062 016537 001630 042264

18:

oenuono RS

;#NOW GIVE

021074

0S2712

000040

021104

012777

000001

021100 013712 001774

2s:
160546

BIS

MGV

MOV

; COMPARE

;coog BUFFER
i TES
FER
: NUMBE
{RETURN FOR ERROR
:
{RETURN FOR GOOD COMPARISON

TTING

Y TO INDEX

; IMPROPER REGISTER CHANGE
tAFTER SEEK COMMAND
PWITH GO IS GIVEN
{RETURN TO COMPARISON
INIT

AND GET GO AND PIP DOWN

#CLR, aR

i RH 1~¥ ¥sz

#DMD, 3R

; oéncnogrxc MODE BIT

aountr
GRS

E ATE UNIT NUMBER
HIS

:AND HOLDS

COMMANDS W1THOUT MOL

RHLA FROM MOVING

: #CHANGE REGISTERS TO EXPECTED VALUE

p21112

021120
021126
021134
021142

0427

042727
737
017737
013737

000001

0200
000200
160534
001210

003162

883204
3204
003216
003220

BIC

#GO, J8REINTO+6__;SAVED RHCS1

BIC
BIS
MOV
MOV

sPIP, a
oonv

xu o+ao nvzo RHDS1
9
o RHDS1
NTO42!
RHLA
INTO+44 savso RHCC

;#AFTER

INITILIZE SAVE REGISTERS SO THAT

JSR
RHWC

RO, 38SAVER

! #COMPARES CAN BE DONE
021150
01184

004027
001€32

043306

: SAVE
: FROM

RSRSFRELSRIBTFRIZRD £

WWWWWWWWWWWwWwWwWwWwwWwWww fl

P11

R RDRRRIOR R
HRRRARR
FRZOREE BB VR LW o OO NN EWN—-0O

OO0
'

0, RPO4
/5 /g ost§ CTRLR

021156
021i60

08-NOV-77 08:3

MACY11

3g(§ous) -NOV-77

002110
000023

EEK COMMAND

og
:54

FO7

TEST

PAGE 81

WRFROM
19,

SEG oCe2

;710
:NUMBER OF REGISTERS SAVED

; #AS UPPER BYTE OF RHAS CAN BE CHANGING

IN A DUAL PORT

:#OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED RS IS
1#S0 THAT THE COMPRRES RRE ONLY VALID ron THE LOWER BYTE
021162

113737

003201

002135

MOVB

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

: *COMPARE REGISTERS AFTER

021170

004037

021176
021200

002110
23

021174

003154

043510

JSR

REINTO
WRFROM
19.

021202
021210
021204 021210
021206

021230

021210
021214

013705
060505

021224

104001

RO, 38COMPAR
.

33
33

021216 016537 001630 042264

3s:

MOV
ADD

MOV

ERROR

021226 000207

RTS

021230

004737

042614

021234

012777

000001

p21242

013777

002072

gsxesu
1260
021262
021264

oouogg

0016
003154
000022

043306

021266

0S2777

00000I

02125C 005077 160376

tTES

Rccxsrsns 10 BE

:RETURN POINT FOR GOOD COMPARISON
acsnuono RS
RS

Ruac-a(RS) aonsc

gzrtxnc nsggv
TO INDEX

rnxkx

nzcésren ADDRESS

?é

NTS

GIVING AN

I %xzs FOLLOWING A

;gs.uan TO COMPARISON
;GOOD COMPARISON

JSR

PC, 38CLDISK

160416

MOV

#DMD, JRHMR

180370

MOV

J¥SEECOM, JRHCS]

;

?9 gg;r

SETURN
goxnr FOR ERROR
iS5

43
047620

INITIALIZE

CLR

JRHCA

xn T ang SET

ccuennL REG.

E
oxncuosrxc
MODE BIT
HIS
nggLss COMMANDS WITHOUT MOL

HSL
;

HLA FROM MOVING

COMMAND INTO RHC

;oés?nésCYLINDER ADDRESS

. #SAVE REGISTERS FOR COMPARISON AFTER GO

ISR

RHWC
RE INTO
19.

160344

RO, 9#SAVER

: SAVE

: FROM
170
:NUMBER OF REGISTERS SAVED

- #GIVE GO TO SEEK COMMAND

8IS

8GO, JRHCS1

;GO TO SEEK COMMAND

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

o212

Oci30e

021210

003162

8GO, JSREINTO+6__;SAVED

003204

BIC

sDRY,3sREINTO+30 ;SAVED RMDSI

€737 020000 003204

042737

000200

RHCS!

sPIP, OOSéINTO¢30; SAVED RHDS!

C2RIGBO,

RPO4 /5.6
DSKLS CTRLRI
CZRIGB.P11
08-NOV-77 08:30

MRCY11l

30(1046)
T4YS

3237
3238
3239

08-NOV-77
08:S4
SEEK COMMAND TEST

GO?7

PAGE 82

lRFTER GO _HAS BEEN GIVEN

+
EV

004037
001632
0021
000023

¥
RHWC

043308

SEG 0Ce4

SEEK

COMMAND

REGISTERS AGAIN SO THRT COMPARISONS CAN
RO, 38SAVER

; SAVE

FROH

WRFROM

18.

NUHBER OF REGISTERS SAVED

; #AS_UPPER BYHE RHGS CRN BE CHflNGING IN A DUARL PORT

lOPERQT*ON
THE

113737

003201

fiOVB

002135

UPPER

BYTE OF RHRS WILL
S ARE ONLY

VALID

BE_SAVED RS IS

FOR THE LOWER BYTE

38REINTO+ES aIHRFROH¢25 SAVE UPPER RHRS

#COMPARE REGISTERS BEFORE COMMAND

001830

Ss:
Q42264

gg
6%

zgg

?20?

000040
001774
000001

69:
le0a4H

FER
FER

RETURN FOR ERROR
EE ¥Rfl
FOR 000 COMPARISON

JIERHORD RS

T NG

nuac-acnsx aonscA?
l Ekxucngcé Tgnnsggnss;

RTS

PC
GIVE

BIS

MOV
MOV

HéTH GO IS GI VEN

RETURN TO COMPARISCN

INIT

AND

GET

#CLR ¥n

AND

PIP DOWN

:RH 1N¥ ¥sz

JsUNET, aR2
#DMD, JRHMR

RE*NB A
T NUMBER
IAGNO TIC MODE BIT

S ENABLES COMMANDS WITHOUT MOL

fgum.—
one

Lrrsx

R8RS

HOLDS

000001
020000
000200
16023¢
003e220

003162

00321e

BIC

8GO, J8REINTO+6__;SAVED RHCS!

BIS

SORY '

BIC

sPIP,g nsxuro+gg
JSRE INTO+

MOV

CLR

a-nsxfiro+qu

;#AFTER

_INITIALIZE

00%023?7

04330

JSR

RO, J#SAVER

HLA FROM MOVING

VED RHDSI

AVED RHDS!

SRHLA, 28RE INTO+42: SAVED RHLA
SAVE

; #COMPARES CAN BE DONE
Oecl4E0

INDEX

ESXOR
;#NOW

RO, 3%COMPAR

WRFROM
19.

fiu

0
— U
oL

REINTO

w
N
£

-—

JSR

O43s10

047620

WWw
~o°
ne

RRRRRRRSEES

iHITH CONTENTS AFTER GO IS GIVEN

;SAVED RHCC

REGISTERS SO

: SAVE

THRT

CIRJGBO,RPO4-5.-6 DSKLS CTRLR!I
CZRJGB.P11
08-NOV-77 08:30

3293
gsgg
383

021454
85145
146

MACYl1l 30(1046)
08-NOV-77
0B:S4
T4S
SEEK COMMAND TEST

001632
8886%3

RHWC
WRFROM
19.

3383

004037

ggig

021506

021530

14
1510
3315
851?14

7
858?

3305
051uze 003110
3388 851503 888653
33?3
1
151
17 881283 gsizi
3316

021516

016537

2315
(021526
3320
021830

000207

33%5

021524

104001

043510

001630

RHA

CHANGING

; *COMPARE REGISTERS AFTER

INITALIZE

JSR

COMPARE

NRFRON
19.
?73

047620

IN A D

L PORT

gsgzrfon HE
UPPER 3v$
E OF RHAS WILL é:SAVED RS 1S
0 THAT T
ONLY VALID FOR THE LOWER BYTE
fiova SSRE NTO+25 aounr OM+25; SAVE UPPER RHAS

3302

gg:wro

: FROM
{70
iNUMBER OF REGISTERS SAVED
PER

g 33
3239
338? D21462 113737 003201 00213S
3305

PAGE 83

7%:

042264

es:

RO, 38COMPAR

osnuoao RS
8

snnon

RTS

-$°‘s’? gur”““
'NUMBER OF REGISTERS TO BE
'3:
Egoxnr FOR ERROR
:

:RETURN POINT FOR GOOD COMPARISON

80
M

ING _READY
SsuaLe
ERE“R30 INDEX

nnuc-a(ns> aonschon
rnéL;nc R;E&ST R ADDRESS
PC

GIVING AN

MPARISON
0503RNcongnS?sou

SEG O0es

0,RPO4-5-6 DSKLS _CTRLR1

P11

08-NOV-77 08:30

021532

012706

004737

042614

021550

012777

000001

021544

MACY1ll 30(1046)

T4S

001000

_08-NQV-77

SEEK COMMAND
MOV

160102

O?qu

107

PRGE B4

#STACK, SP

SEG OCee

;RESET STACK

JSR

PC,asCLDISK

5%Tuu“?? SErT»aEs GENERAL REG.

MOV

#DMD, 3RHMR

seroéncnosnc
MODE BIT

S COMMANDS WITHOUT MOL

RNO HOLDS RHLAR FROM MOVING
021556

013777

002044

1600S4

MOV

JSUNLOAD, JRHCS1 ;LOAD UNLOAD COMMAND INTO RH

; #SAVE REGISTERS FOR COMPARISON AFTER GO

021564

004037

043306

021576

0S2777

000001

160034

QIS

021604
02lble
021620

0S2737
052737
042737

000001
020000
000200

003162
003204
003204

QIS
BIS
BIC

OGO RE N 0+6 ; SAVED HCS
sPIP
; SAVED RDS
lDRY 30REINTO+3O i SAVED RHDS1

00S737

001100

TST

J#SPASS

; IS THIS FIRST PASS

157276

BNE
BIT
BNE

MOV

@8UNIT, -(SP)

;UNIT UNDER TEST

021570
021572
021574

021626

001632
003154
000023

021632
021634
021642

0010S3
032777
001047

021754

013746

021760

104405

020000

JSR

RHWC
REINTO
19.

RO, 3#SAVER

; SAVE

; FROM
70
iNUMBER OF REGISTERS SAVED

#GIVE GO _TO_UNLOAD COMMAND

8GO0, JRHCS1

;GO TO UNLOARD COMMAND

#CHANGE SAVED R?G STERS T0O EX

001774

TYPDS

S§
#SW13, ISWR
ss

CTED VALUES

.BRRNC IF_NOT FIRST PASS
; INHIBIT ERROR_PRINT HIGH?
iBRANCH IF SW13 HIGH
,

;#AFTER GO HAS BEEN GIVEN TO UNLOAD COMMAND

; #SAVED REGISTERS AGAIN SO THAT COMPARISONS CRN
; #BE DONE

021762

004037

021?70

002110

021766

0c1?772

001632

043306

c$:

JSR

RHWC

WRFROM

0000e3
113737

003201

00213%

; SAVE

FROH
T0

19.

021774

RO, 38SAVER

NUHBER OF REGISTERS SAVED
R BYTE

OF RHAS CAN

CHANGING IN
A DUAL PORT

10 ERATION T
UPPER BYTE OF RHAS HILL BE_SAVED RS IS
: %S0 THAT TH? $
% N%Y VALID FOR THE LOWER BYTE

fove

JSREIN 0085 SIHRF OM+25; SAVE UPPER RHAS

; #*COMPARE _REGISTERS BEFORE UNLOAD COMMAND

i#WITH AFTER GO
022002

020068
Ce20i0

004037

003154
002110

043Si0

JSR

REINTO
WRFROM

RO, 3sCOMPAR

; COMPRRE

:GO0D BUFFER
i TEST BUFFER

CZRJGBO,RPO4/S/6 DSKLS CTRLRI

CZRJIGB.P11

08-NOV-77 08:30

MACY1l 30(1046)

T4e

0B-NOV-?7

022012

000023

19.

3379
3

02201
02

202
204

13
2%

3381

022014

022022

oaggae

13705

022036

3387
3338

022040

PAGE 85

047620

18:

aossgoso,RS

104001

ERROR

000207

RTS

)

3391 022042 0S2712 000040
2%:
3392 022046 013712 001774
3393 022052 012777 000001 157600
3394
gggg

MOV

! SAME
RET¥RN rg coog
conPnRxson
TTING

snov

nufic-a(RS) aonech83”5?51L1N8
Recxsrsn ADDRESS
xnpnopsn necxsrsn CHANGE
uu%
auo

- ¥NOW cxvs

8IS
MOV
MOV

uxru GO IS cx
:RETURN TO conpnnxson
NIT

AND GET

5 SR
aoun! aR2
#DMD, ahunn

AND PIP DOWN

Rku?°¥
;
é
NSTATE uuxr NUMBER
TIC MODE BIT
;

3397

s ENRBLES COMMANDS WITHOUT MOL
HOLDS RHLA FROM MOVING

- #CHANGE necssr
ns TO EXPECTED anue

339
Doo06e Busryr 000805 Bo3i8S
3900 022074 052737 000200 003204
3:85 022102 017737 157566 003216

RIS
BIS

3403

; ¥AF TER xnxranxzs SAVE REGISTERS SO THAT

QOO
NN LEWN-0O

P [NPPe PPe e SyPRSy EY
Sy

gflgé

3423

: *COMPARES
CAN BE DONE
022110

022114
022116
022120

001632
002110
000023

043306

JSR

RO, 9¥SAVER

RHWC
WRFROM
19.

lOPERRT ON T

022122

113737

003201

022130

3%“037

043510

140

000023

0e2134
8%5136
022142

022144

3427

022150

3428
3429
3430
3431
3432

004037

; SAVE

: FROM
)
iNUMBER OF REGISTERS SAVED

OHPRRE REG STERS AFTER INITIRLIZE
P? HE HRE
CHGNG NG IN
A DUAL PORT

3424

290,
98RpINTOse 1SQVED RECRL
o& 3 %38 328
RHDS1
RHLA d EINTO+HE SAVED RHLA

MOV

3382

3407
3408
3409

:RETURN FOR ERROR

ggg

3390

SEG 00e7

s NUMBER

gaeé 352053 S?E?g? 001630 042264
3385
3386

JO7

UNLORD COMMAND TEST

3377

3378

08:54

022146

022154
0e2elSe
Oc2cled

3154
002110

#50 THAT

002135

UPSSR

THE COMPARES AR

RHRS
L#
BE SRED RS IS

E LOWER BYTE

fiOVB

3.REINTO+25 JBUWRF 0fl¢25 SRVE UPPER RHQS

JSR

RO, 3sCOMPAR

REINTO
WRFROM
19.

; COMPARE

:GOOD
; TEST
'C

BUFFER
BUFFER

RESF REGISTERS TO BE

022150

;RETURN POINT FOR ERROR

022170

;RETURN POINT FOR GOOD COMPRARISON

022150
013705

06e0s0S
016537
104001

047620

001630

38:

042264

MOV

ADD
MOV
ERROR

i S
@ 8ERWORD, RS

GETTING REROY TO INDEX

RS,R
8B%
WORD
RHUC-2(RS)
, OOREGA R
flILING REGISTER ADDRESS
1
IMPROPER REGISTER
CONTENTS AFTER GIVING AN
:UNLOAD COMMAND

KO?

MACY11l 30(1046)
08-NOV-77
08:S4
_PAGE 86
T46
UNLORD COMMAND TEST
4s:

RTS

;RETURN TO COMPARISON
; GOOD COMPARISON

SEG 00es

PEPLPYLYE Wuwgwy ?;Ii!
3
ikt3 flgfl?%??
ALY 8%66#&26%

GB0,RPO4/5/6

DSKLS_CTRLR1

08-NOV-77

08:30

MACY1l 39&&046) gE-NOV-77

2170

032777

000020

156742

001000

GB.P11
3%

2176

2204

1402

LO?

ORD COMMA

6S:

BIT

BEQ

08:¥ESTPRGE 87

.guw,asun

SEG 0089
TEST ron NO OFFSET OR RTC

THE NEXT TWO rsgrs
INOE0WITH
NEXT TWO TESTS

TEPPLY
LEIBIR

—

LYY PPy ¥y
¥
23
x R-Bde Jotul 2dAR
A S 5

—

4737

MOV

042614

JSR

p22224 012777 000001 157426

MOV

022232 0S2777 000004

022240

042777

000004

157420

157412

#STACK, SP

;ncs;r srngg

#DMD, JRHMR

E3%??5
MODE BIT
COMMANDS WITHOUT MOL
nué
os n FROM MOVING

PC,aeCLDISK

017777

157424

022262

012700

000004

022254 013711 002072
022260 005211

157376

022

812777 000011 157364 S§:
12777

000001

022306

004737

042614

022212

012777

000001

022320

013777

002074

0222

022302
022304

022326

00S300
001370

012777

000001

1573Se

157340

157312

157314

BIC

ge2

001632

02234

0S2777

deal

370

042737

2342
2344

003154
3

1S7264
3

8%8886
883534
000200 003204

LERR INDEX

THIS TEST THE POSITIONER HAS TO

TO CENTER LI

MOV

JRHCA

MOV
INC

gssedon,am

:SET DESIRED chxnosn T0 RHCC

;Esscommo
T0 RHCS1
TO0 SEEK COMMAND

. #FOUR sscron CLOCKS ARE GIVEN TO TAKE POSITIONER OFF OFFSET POSITION

fov

;

DEC
BNE

cnsrcx-ono ARHMR
DMD, SRHMR '

RO
33

:RESET SECTOR CLOC

JSR

PC,38CLDISK

;agé n?g 35;335 GENERAL REG.

MOV

#DMD, IRHMR

SE
soxncuosrxcoaggfios
N

MOV

JWOFSETC, IRHCS1

MOV
MOV

MOV

80F 25, JRFHOF

COUNTER

8§T sscron CLOCK

iC
iBRANCH IF NOT COMPLETE

nu3 HSE%ELSHLR FROM MOVING
;LORD AN OFFSET axr

:SET AN OFFSET BIT

GISTERS FOR COMPRRISON AFTER GO

RSo J8SAVER

Rsxnro
19.

000001

T UP GENERAL REG.

INDEX PULSE

.nxux

%BE BROUGHT

.snvz

naaggg 004037 043306

nug

T0 c EAR RHLA BEFORE THE START OF THIS TEST
xnoan"gLse
*GIVE ouc

;#T0 ENABLE L

p22246

: SAVE

,rqon

110
:NUMBER OF REGISTERS SAVED

;*GIVE GO _TO_OFFSET COMMAND

81s

8GO, dRHCS1

é;cunncs

;GO TO OFFSET COMMAND

vso
§§G¥§TERS 10
ExPSHCED VALUES

P, ISREINTO+30";savg

oonv 8REINTO+30 ;SAVED nnosx

;#RFTER GO HAS BEEN GIVEN TO OFFSET COMMAND

C2RJGBO,RPOM/S6 DSKLS CTRLRI

CZRIGB.P11

08-NOV-77 08: 30

MACYLl

30(1046)

T4?

3492

08-NOV-77

08: su

MO?7

OFFSET COMMAND
T

mcs 88

SEG 0090

lSRVE REGISTERS AGAIN SO THAT COMPARISONS CAN

3
33:3“

*BE DONE

R
4
ggl‘;

5::80.1 i

NU"BER OF REGISTERS SAVED

uwsn BYTE uszmsCAN BE cmgr«; I A OuALsoé

§§§§ 022410 113737 003201 002135

iuovg Tm '{‘?8"55 S%u%?gz'ésVe 835THQEOUER BYTE

; SCOMPARE. REGISTERS BEFORE OFFSET COMMAND

gfi 0224le 004037 043510
3511 S%euéfi
ho

ISR RO,34COMPAR
WRF ROM

]

381
24
B4
3
Qoo
Els 02243
43
35}5 022436 013705 047620

gg“é 816§g§
001630 O0O422e4
104001

022454 000207

364

ZRERUORD, RS

ADD

0S2712

Qegues QI

QoI

000040

es:

GETTING READY TO INDEX

MOV
ERROR

Efigfl Hgflg

RH‘IC-Z(RS) a.nsd@g"ts
Rg é TER _RDDRESS
;
GISTER CHANGE
TR
o ISON
PC
; RETURN 78 c

; #NOW GIVE

022456

FOR ERROR
i
TURN FOR GOOD COMPARISON
8

RTS

INIT AND GET ALL GO AND PIP DOWN

gg&e

saontiioes

nov
BIS

SCLR

,RH INITILIZE

OHHRNDS HITHOUT MOL
A FROM MOVING

325%% 042737
02

2i¢ vy oooeed Boieh

3543
3544

18:

1$
18
23
MOV

COMPARE
5*229 % ER

l HANGE

:ggé;imenG
"ggo
RHOF

;s #AFTER

INITIALIZE

SRR
022532
022536

02254

055242

004037
001632

2110

008029

043306

JSR
RHWC

WRFROM

19,

RS 70 E

SIEINSI (v BBl

SAVE REGISTERS SO THAT

AR B SR

RO, J4SAVER

; SAVE
: FROM

:NUMBER OF REGISTERS SAVED

E’RJGBO RPO4/5/6 DSKL ; CTRLR1
08-NOvV- 7 08:30
ZRIGB.P11

MACY11 39 ;0‘05) o?g-flOV-?

NO7

4__PAGE 89
EST

SEQ 008!

BE _CHANGING IN
A DUAL PORT

6L*0§THELOlCag éYTE
Hat"fi?fis*Eo..%0
FoR ThEL
S_UPPER BYTE OF

022544

05228

113737

003201

002135

lCOHPQRSOREGISTE“g AFTER

043510

; TEST 5; FER
3

RE INT
WR#ROM
19.

:gs

38
3%:

047620

001630

o42264

RTS

022610
O22el2

MOV
ADD
MOV
ERROR

4s:

_INITIALIZE

FER

g REGISTERS TO BE

POINT FOR ERROR

:22?5:: POINT FOR GOOD COMPARISON

aosnuono RS

;GETTING RERDY TO INDEX

iRET

nnac-e(RS) acaecABQUS?SIkI TER ADDRESS
FSE ¥r5gcn“"
i gonT mizs
; OFF
0 conPnnxsou

;GOOD COMPARISON

022614
022626

gle7
00473

001000
o426 lY

022632

012777

000001

#11

B08

MACYLl 30(10H6) 0?-NOV-77
08:S4
_PAGE 90
T COMMAND TEST

MOV

157020

#STAC

PC, aoctoxsx
#0MD , SRHMR

.ncssr STACK

;
SET 4 GENERAL REG.
1
SE gNRGNO TIC MODE BIT
THIS

ENRBLES COMMANDS WITHOUT MOL

A FROM MOVING

: #GIVE ONE xuoexH"sLse
T0 c#snn
uLn BEFORE THE START OF THIS TEST

B1S

SMINX

ULSE

022640
022646

0s2777
04777

000004
000004

157012
157004

BIC

sMINX SRHMR

CLERR xuoex

022654

013777

002076

156756

MOV

QWRETCL,3RHCS!

;LOAD RETURN TO CENTER LINE COMMAND INTO RHCSI

022668

+*SAVE

ISR

043306

RHWC

REINTO

022670
022672

REGISTERS FOR COHPQSIEON AFTER GO

0, J8SAVER

19,

000001

; FROM

;10

iNUMBER OF REGISTERS SAVED

%*GIVE GO TO nsrgnu TO CENTER
Légg COMMAND

818

156736

8GO, IRHC

:GO TO

URN TO CENTER COMMAND

%FOUR sccron CLOCKS ARE GIVEN TO TAKE POSITIONER TO CENTER LINE

SS:

fiov

MOV

ggg

cognr
R

cnércx-ono IRHMR !gs

38"0, SRHMR

;RESET

; COUNT

CTOR CLOCK

SECTOR CLOCK

;BRANCH IF NOT COMPLETE

T0 EXPE&EE? VALUES
*C HANGE SRVED REG%STERS

g§§
BIC

aoggé
NTO+ 3§
v: iNTO#gg
§2 3 RHDS
RHOS11

e B

; #AFTER GO HWAS BEEN GIVEN TO RETURN TO CENTER LINE COMMAND

s Bt Bt Bt

'32v

3sn

043306

zgcxsrsns AGAIN
0, 3sSAVER

Bt Bt

unrnon

RRAREER 3

JSR
MoV

SEG 0092

;QNO

RRRG
FREFEEERE
n
DONOCNLEWN-0 3

gy 3

RARN
Jotd¢J B8

RPO4 /56 DSKLS_CTRLR1
08-NOV-77 08:30

ge27e2

113737

003201

0c213<

SO THAT COMPARISONS CAN
; SAVE

rnon
T0

19.

uunaen OF REGISTERS SAVED

UPPER avrs
#AS
¢ope
nr;on

gc NG INA DUAL PORT

%S0 T

fove

o nuns WL?as sn€D RS IS

E LOWER BYTE

JSRE Nro+as aoon+as snvs uppen RHRS

:fi??fiflgE 2 GégTERS BEFORE RETURN TO CENTER LINE COMMAND
Oee2770

004037

043S10

M-

RO, 3sCOMPRR

; COMPARRE

CZRIGB.P11

08-NOV-77 08:30

CZRJGBO, RPON/S-6
DSKLS CTRLR1

5 goR s

*g gfi @ég
301

3%
332&

3636
g

gzg

3006
30

023026

023030
013705

URN TO CEN

MARCY1l 39;60’46) RS?-NOV-77

_
047620

gzg%g? 001630 042264

18:

000207

8000 BETER

MOV

8ERWORD, RS

§§§on

iRETURN FOR GOOD COMPARISON
:GETTING READY TO INDEX

l?ahgg'amsmms mfih‘gnggggrsa
nogness
R:}gm vg CENTER LINE COMMAND
uxm

:RETURN TO COMPARISON

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

B4 02
0S2712
000040
3647
023034
013712
001774
:ggg 023040 012777 000001 156612
3323?
:
gg 023046 042737 000001 003162

2s:

$5 B dow pmy g
003216

ggg oa%% 017737 1

33223

ommo TEST

EWN
FOR ERROR
: SAME

18
FL3

RTS

33233

3658
3659
3660
36l
3662

cos

o?équI

023106

MOV
MOV

ocx.n

i?RSaa
.ono

:RH_IN
12E
ans*n&
iSET
é
I
nooc qumour ey
'nm HOLDS mn:Fnoncnovmc
%CHANGE
REGISTERS T0 E
Bxg
25sanxros XPESVEB m?tg‘

e
MOV

mlfsiiei
ViRD R
A a xn oma
RHLA

:#AFTER
*C
Yok
RHWC
WRFROM

023076 004037 043306
023102
023104

BIS

001632
002110

000023

19,

INITIALIZE SAVE REGISTERS SO THAT
S CAN BE DONE
0, J8SAVER
; SAVE
: FROM
170

:NUMBER OF REGISTERS SAVED

35‘(:5

.ns
UPPERavg p;msCAN BE cmnaxrcc IN s
A ngo

33& 8 02311C 113737 003201 00213S

fiova

?64’9

8' Erm*
T
ozg
ISREINTO+

3670

3671

.conp

3672 023116 004037 043510

$
gHE Ein
ggz 353152 385023
35;7

$§i§

ié 0231

g {%

g§

3186

3681

§§§§ 023136 013705 047620

3685 Do3lva OIEE3% 001630 042264
498

Ahos

REGISTERS

' 5 ,onpng

38:

MOV

AFTER

&"savs
'ZL 5UPPER
k‘ogE
Louen YTE
nun

INITIALIZE

S200
eeren
c
gr REGISTERS TO BE
:RET

POINT FOR ERROR

Egmm POINT FOR GOOD COMPARISON
aoenuono RS

;GETTING_ngnov
TQ_INDEX

RAC-2(RS), aonecAKnB IE NG RECTSTER ADDRESS

SEG 0093

CZRJGBO,RPOM
/S 6 DSKLS CTRLRI

CZRIGB. P11
368S

3686

3689
3690
3681
3632

oe-nov-?r 08:30

D08

MACY1l 30(1046)
0B8-NOV-77
08:S4
PAGE 92
TS0
RETURN TO CENTER LINE COMMAND TEST

023152

104001

ERROR

023154

000207

RTS

023186

4§:

IMPROPER REGISTER

CONTENTS AFTER GIVING AN
éNITéflLI;E FSBLOHING A RETURN TO
RETURN TO COMPARISON
;GOOD COMPARISON

SEG 0C9%4

0,RPO4/5-6 DSKLS_CTRLRI
P11
08-NOV-77 08:30

023160
023172

012706
004737

001000
o42614

023176

012777

000001

MACY1l 30(1046)
TS0

O -NOV=-77

R ETURN

MOV

JSR

MOV

156454

08:
?.24

TO CENTER

EOS

PAGE 93

LINE COMMAND TEST

#STACK, SP

PC, a8CLDISK

#DMD, IRHMR

SEG 0C9S

;RESET STACK

;INIT AND SET Us GENERAL REG.
iA

NUH?E

Sg?
S?RGNOST MODE BIT
THIS ENRBLES COMMANDS WITHOUT MOL
’

QND HOLDS RHLA FROM MOVING

; #GIVE ONE INDEX PULSE TO CLERR RHLA BEFORE THE START OF THIS TEST
052777
042777

000004
000004

156446
156440

BIS

SMINX, 3RHMR

023220

013777

002046

156412

MOV

JSRECALI,JRHCS] ;LOAD RECALIBRATE COMMAND INTC RHCSI

Pt Pt Pt Pt Pt Pt Pt Pt Pt

WWWWwWwwwww

sMINX, JRHMR

BIC

;CLERR INDEX

#SAVE RE&ISTERS
FOR COMPARISON
AFTER GO
; SAVE
RO, 3#SA VER

¥sR

043306

9 NNNNNNNNN
S DONON LW
3721

;SET _INDEX PULSE

023204
023212

19.

:NUMBER OF REGISTERS SAVED

REINTO

170

. ¥GIVE GO TO RECALIBRATE connnna

8GO, RHCS1

BIS

158372

;

RHWC

:GO TO

RECALIBRATE COMMAND

]

hgroun secrgg CLOCKS ARE cxvs¥sgo TAKE POSITIONER TO CYLINDER O

023246
023252

156400
156372

023266
023270

02 3272
023300
02330

Ss:

MOV

onsrcx-ono anunn RESET
SET SECTOR
CLOCK
SECTOR CLOCK

#DMD, JRHMR '

MOV

RO
5§

DEC
BNE

: *CHANGE SAVED
nscxsrsns 10 EXPECTED VALUES

: ED nnosx
s Rgxnto+3o
oPIP

BIS

SREINTO+30 ;SAVED RHDSI

BIC

3sn

043306

HIWC
unrnon
19.

000023

NTO+6__;SAVEDRHCSI

8GO

8IS

000001
020000
000200

,.art
023314
023320
0233ee
023324

NT
cou
'BRANCH IF NOT COMPLETE

HAS BEEN GIVEN TO RECALIBRATE COMMAND

zscxsrsns AGRIN SO THAT COMPARISONS CAN

RO, 38SAVER

: SAVE

: FROM
70
:NUMBER OF REGISTERS SAVED

¥AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
.opsanrxon THE UPPER BYTE OF RHAS WILL BE SAVED RS IS

022326

113737

003201

00213S

0 THAT THE COMPARES RRE

hova

ONLY VALID FOR THE LOWER BYTE

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

; *COMPARE REGISTERS BEFORE RECALIBRATE COMMAND

;#WITH AFTER GO

CZRJGBO, RPO4-5/6 DSKL

CZRIGB.P11
3?99

J'Sl

B
g
B

08-RoV-77
00403?

CTRLRI
08:30

MACY11l

30(1046)
T8l

o43s10

08-NOV-77

08:54

FO8

PAGE 94

RECALIBRATE COMMAND TEST

Srnon
s
18
R

RO, 3#COMPAR

047620

001630

19:

MOV
ADD

MOV

042264

ERROR

023372

RTS

000040
001774
000001

23%:

BIS

MOV
MOV

156248

?? rr
FFERR
RE¥E§N
FOR ERROR
: SAME

:RETURN FOR GOOD COMPARISON
SERWORD, RS
RS, RS

;GETTING ssggv
TO INDEX
OUBLE

Ruac-2(RS), J#REGADR

ILING REGISTER ADDRESS

; IMP

R REGISTER CHANGE

IAFTE
CALIBRATE COMMAN
iWITH GO IS GIVEN
{RETURN TO COMPARISON

;¥NOW GIVE

023374
00

SEC 00%

INIT AND GET

ALL GO AND PIP DOWN

#CLR, JR2

:RH INITILIZE

#0MD, 3RHMR

JsUNET, 9R2

;RE;

TATE gN{T NU
IAGNOSTIC MO

:THIS ENRBLES COMMANDS WITHOUT MOL

:AND HOLDS RHLA FROM MOVING
000901
020000
000200
156234

: *CHANGE REGISTERS TO EXPECTED VALUE

003162
003204
003204
003218

B1C

oco a

INTO+6

MOV

agfiLA aonsxnro+qa2“328
RHLR

;#AFTER

INITIALIZE

SAVE REGISTERS SO THAT

: ¥*COMPARES CAN
DONE
Ysr
RO, 98SAVER

043306

RHWC
WRFROM

19.

.opsnnrxon THE

003201

004037

043510

OF RHAS CAN

UPPER BYTE

REINTO

RO, 98COMPAR

39:

MOV

ADD

MOV

INITIALIZE

$oo

COMPARRE

rrsn

conpnneo

;ggrunn POINT FOR ERROR

C422e4

PORT

FFER
une:n OF REGISTERS TO BE

OCle30

IN A DUAL

JMREINTO+25, J8WRFROM+25; SAVE UPPER RHAS

%¥COMPARE REGISTERS AFTER

yok

047620

CHANGING

RHARS WILL BE SAVED RS IS

SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

hova

002135

WRFROM
19.

018827

; SAVE

; FROM
170

:NUMBER OF REGISTERS SAVED

: #RS UPPER BYTE

113737

snvso nucsx

'RETURN POINT FOR GOOD COMPRRISON

8ERWORD, RS

RS, RS

:GETTING READY TO

:DOUBLE ERROR WORD

INDEX

RHINC-2(RS), aonecboa;FAILING REGISTER ADDRESS

RPO4/S-6 DSKLS CTRLR

GOS8

MACY11 39(1046)
08-NOV-77 08:5SY4 PRGg S5
RECALIBRATE COMMAND TEST
sl

02351é

104001

ERROR

023520

000207

RTS

023s22

48:

; GOOD COMPARISON

SEG 0097

CZRIGBO,RPO4-S-6 DSKLS CTRLRI
CZRJGB. Fll
08-NOV-77 08:30

3812
i3

3815

385

3818
3813

023524
023536

012706
004737

001000
o42614

023542

012777

000001

MARCY11

30(1046)
TS1

HO8

08-NOV-77
08:54
PAGE 96
RECALIBRATE COMMAND TEST

MOV

#STACK, SP

JSR

;RESET STACK

PC,asCLDISK

MOV

1Se110

SEG 00%E

;éNéT RN2N§§T g: GENERAL REG.

sDMD, dRHMR

v? MODE BIT

; THIS ENRBLES COMMANDS WITHOUT MOL

;AND HOLDS RHLA FROM MOVING

0235S0

023570
023576

013777

0020Se

004037
001632
003154
0000e3

043306

0s277?
0se?7?

000001
000001

MOV

156062

igRVE

JSRELEASE,JRHCS]1

RESI%TEQS
FOR COHPQRIEON AFTER

0s2737
017737

,rn

19,

:NUMBER OF REGISTERS SAVED

REINTO

200001
156056

*GIVE co ro nsLsnse COMMAND

a1e

BIS

156042
1S60S4

nonb
SA

: #AF TER co

B1s

MOV

003202
0032186

:GO TO RELEASE COMMAND

{SET DMD TO HOLD RHLA

GISTERS

7 sxpecrso

004037
0c1e32
g0eliil
000023

043306

RHHC
WRFROM
19.

NTo+

aRHLA aonexnro+uésnvso RHLA

RO, 98SAVER

THAT COMPARISONS CAN

; SAVE

; FROM
i T0
iNUMBER OF REGISTERS SAVED

#AS UPPER BYTE OF RHRS CAN

'OPERQTION THE UPPER BYTE

023e32

113737

003201

0 THAT

fiOVB

00z2ic=

THE COMPARES

CHANGING IN A DUAL PORT

RHRAS WILL BE _SAVED AS IS

ONLY VALID FOR THE LOWER BYTE

JSREINTO+2S, JSWRFROM+2S; SAVE UPPER RHRAS

; ®COMPARE REGISTERS BEFORE RELEASE

:#WITH AFTER GO

YoR

043510

REINTO
WRFROM
19.

RO, 28COMPAR

047ec0
OClesc

1%:
Q4zze4

MOV

ADD

MOV

ERROR

COMMAND

; COMPARE

:GOOD BUFFER
1 TES gurrsn
: NUMBE

ngrgnn FOR ERROR

2
823664
2 3bEE
023674

VALUES

N GI NRsLsags COMMAND

;gnvs REGISTERS AGARIN SO

023620
023624
023626
023630

RHHC

: #*CHANGE

023604
023e12

;LOAD RELEASE COMMAND INTO RHCSI

Esrunn FOR GOOD COMPARISCN
aosauono RS

csrrxuc nenvo TO

8a%

naac=2(RS), aoasch a

WORD

INDEX

nxanc REGISTER noonsss

OPER REGISTER CHANGE

nrrsn RELEASE _COMMAND
WITH GO

IS GIVEN

"‘

CZRIJGBO,RPO4-S
6 DSKLS _CTRLR1

CZRIGB. P11
3868
383

Q23676
027700

08-NOV-77 08:30
000207

MACYLl 30(1046)

TSe

2s:

0B8-NOV-77

08:S4

108

PAGE 97

RELERSE COMMAND TEST
RTS

;RETURN TC COMPARISON

SEG 0099

CZRJGBO,RPO4-S-6 DSKLS CTRLR1

CZRIGB.P11

oe-nov-77 0e: 30

MACY1l 30(1046)

182

_08-NOV-77

08:5S4

JO8

PACE 98

RELEASE COMMAND TEST

SEG 0100

3871
3872
3873

370
3876
gg;e

023736

023750

012706

004737

001000

MOV

042614

JSR

3879

ggg? 023754 012777 000025 155662
023762 005077 155664
3883
093766 013777 010000 155654
gggg 023774 013711 002054
3882

3886

MOV
MOV

CLR

3890

nsxnro

024006

:INIT ANC SET UP GENERAL REGISTERS

#21.,9RHDST

SFMT22, JRHOF
JUSERCH, aR1
JRHCA

Rgézcg EEC'SQ’T?“CK REGISTER

:DESIRED CYLINDER =0
95§n5§
BIT=1 (16 BITS PER WORD)
iFILL SEARCH COMMAND IN RHCSI

: ¥NOW SAVE nscxsrsns srnntxnc rnon RHWC IN WRITE rnon aurrsp

ISR

(024004

nsser STACK

*THESE ARE REGULAR SET ups FOR SEARCH COMMAND

fiov

gggg 024000 004037 043306
3889

#STACK, SP

PC,asclDISK

001632

HIWC

003154

38391 0240i0 000023

RO, 38SA

ar BE%STSQS ronscoARISON

grnnr SAVING FROM nuuc

uu¥§c£NTO
OF REINTO
REGISTERS SAVED

19.

3893
3894

s ¥NOW Tng DIAGNOSTIC MODE BIT WILL BE SET

383§

:%AND THE

SEARCH OPERATION

STARTED

3897
gggg

024024

00S037

001200

CLR

J8STMPL

3900

3901 024034 01 33 155534
3902 024040 042703 177400

024030

013700

001660

MOV

3903
33904

812337
12710

94
000001

MOV
MOV

gnuosr
R3
8177400, R3

390
3309
Zi0
39]2
3913
3914
33i§

85571
010
092518
0
gacly SR
0S2710
000014
012710
000001
70
00155

gxc
ggr%x'ggg
£CLEn3£ cros ?LOC
B
eMSTCK,
QO 108 aeogfis ST W
fiE
. PSR
’g*fi FOR
RSSECToé‘
cecron cuoors
BIS
SMINX!MSTCK,
RO
x
MOV
#0MD, IR0
gae
nEzcton
CLOCK
TST
Rguu
gs'”?
BEQ
118
RO REQUIRED

054074
mum
024106
024112
854115
4120

MOV
BIC

33%7

3915
o24122
01;737
001140
881205
18:
3920
024130
017737
155540
1126

2921
3923

024136
024144

017737
023737

155502
001200

001720
001126

180327

053544
001202

001202

3953
024152 001414
3925 Q024184 013737
392¢

024162

s THIS WILL HAVE THE EXPECTED
:VALUE OF RHLA REGISTER

SRHMR,

sNOW RO HAS MAINTENANCE REG. ADDR.

ng as
MD

;gUPLICRYE SECTOR
;

:GET
DESIRED SECTOR/TRACK REG.
iGET SECTOR ONLY

-nrrsa 51
THE
PUgé;
nuLn
HébL ugcxso T0 BE ZERO

hoU'w
%oa ,§
?E
MOV
SRHLA'
I

MOV
CMP

arHDS t aoosr
;sn
ansrnpl,aosaoonr -RHLR

SUB

R3, a8STHP

BEQ
MOV

sge YTES PER SECTOR

sxnso
ggcron TRACK
ounL ro 3: EXTENSION

23
;
W IF G
JUSECTR, 2uSTMP2 cer ssc on

1E§TMP2 NOW Hns pnssenr SECTOR

CZRJGBO,RPO4/S-6 DSKL

08-NOV-

CZRIGB.P11
3927
3928
3929
3930
3931
3932
3933
3934

024166
4172
4176
024202

0127
16371s
012637
104024

CTRLRI
7 08:30

KO8

MACY11l 30(1046)
OB-NOV-77 08:54_ PAGE 99
TS4
LOOK AHEAD REGISTER

283
MOV

001140
001206
001204

ERROR

; #ONE WORD ONLY THAT

024204
024210
024214
024216
Q024222
024226
024232

012702
012705
000404
0S2710
835718
71
042710

024246
(024252
024254

012702
00S305
001360

2%:
38:

#8.

DENT OF

INDEPEN
BMR

IS TWO BYTES

,.R2

:BYTE

BIS

SMSTCK!MCLK, JRO
CTOR nno cLOC
ron CLOCV
3RO ;gtgagEgsc
onsrcx-nng'
#MCLK

BIC
BIS

:BYTES PER WORD

K
4s

co Evrs NOT COMPLETE
:9'
:PRV
,evrz coun1 DOWN

JESTMPY
3§.Ra

TUP ron

cgug BYTE

CLOCK AND CLOCK
? EcxvssscronCOMPLETE

lTHflT
N x%nL % ?
IDENTICOEN
s?nn ang5un?5n$¥
LL usgx
.ren
YTES (2 BYsARE ALREADY GIVEN)
KED

AFT

5325

YTES

.rus" T “ HktE?
3“58E$sHgLLégg COHPLgTED
RHL

2966

398
3969
3970
3971
3972
3973

024266
0127
gg:era

3975

(024302

024256

01270S

000100

024262

012701

000177

276 271
71

;.7? §§5312
ARy
3991 024324 §301
3%€ee

ékggtoaufs IN ERROR

:g.hs

BNE

3964
3965

o997

MOV

DEC
ggg

%éé%

3974

BYTE
NU
REGISTER AT THE BEGINING OF A

ggv

B
BNE

3945
533 ooxage
3950 353242 oosaag

3967

SENT

RTR
o I

3936
3937

3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961

ng ua; a§§£§5H§$¥ss§8£82n

304 WORDS WILL STAR

3935

3938
3939
3340
3941
3942
3943
3944
3945
3946
3947

3 (SP)
Tep
3gg¥nfiq
(SP)+,3kSTHP3

SEG 01C1

000007
000012
00001e
00000
000002
001206

nov

MOV

Ss:

bS:

MOV

gxs
a{g

8&8
BNE
BEQ
DEC

RHL

; L SE
n

RHLA WILL

Y FOR NEXT SECTOR

#64. ,RS

5R§r“§§t KEE?EEgR?K

QQCLKaao
g’srnpu

55%357
Shflfixc KS PER BYTE
;gnnngu F BY Egov COMPLETE

#127. .Rl

;F §§; ! 95 ¢ cgvgégsus
ON r
IELD
H ?cx
BYTE COUNTER
AND CLOCK
CTORR CLOCK
;EE
éTEK'HCLK
K‘HCLK : L; ngfir CLOCK AND CLOCK

108

a&gkcuou
1?608 BYTES DONE
T DOWN NUMBER OF BYTES
TO CHECK EXTENSION FIELD

RPO4 /5 /6 DSKLS CTRLR!I

Bil

08-NOV-77 08:30

024326

MACY1l

30(1046)

TSy

001357

0B8-NOV-77

08:54

LOS8

LOOK RHEAD REGISTER
BNE

PAGE

100

SEG 0102

,annncu IF zxrsusxon FIELD NOT
TO BE CHECKED YET

; #NOW THE EXTENSION rsto OF

:#WILL BE CHECKED

SSwggE

17737 152353 831125

3o8Rse]88333&&

—

737

1200

ADD

MOV

aSHLS 3aéon

MOV

csrnvlaosaoonr

MOV

crnhgcsrnpa

017737

6gsa7u

001720

gg:ags

013737

053544

001202

ggs
L

3737
ININ

1200 001126

gs:arw00 163716
12746 001140
ooxag&
3

024404

012637

024410 104025
024412

001202

024432

MOV
SuB

SUB

MOV

ERROR

060S0S

710
042710

CMP
BEQ

0012

il G
gs::sg

000010
000010

001200

DONON
L

LiL £ Y
8&6 00000
O

£ £
SEEE5568 00
BYRRLE R =

8DST

9 MPY,-(SP)
(SP)

(SP)# aksTMP3

ADD

RS, RS

10S:

ADD

oeg aosrnpx

4S0 005303
BS:usa 001223

$Cx
onsrcx an

gxc
DEC
BNE

R3
13

TCK,
TCK!338

; #NOW T

024470

000010

05271 880002
0492710
0002
005302

833:;3 3253I§ 000012
024500

042710

000012

118:

128:

MOV

EXTENSION

savz oesxaso secron TRACK

-L

cron

SECTOR

NUMBER

xu THE MIDOLE

A secron 1S IN ERROR

Boad
SRR o
S NOT OHPLE§E

;E:Esgsruo xnsrnucrxons GIVE
:
CTOR C

POhEQE
ThRE (RETHEEN35573?b
; sgec;gg fi%x KSECT Y

!2E : Eu D NO OF SECTORS COMPLETE
: nfisu ir NOT

ouxas SECTOR 1S REACHED

: #ONE ssflo
: #DOWN
uenc
012702

r TO THE

csr NEXT STEP TO CHECK EXTENSION FIELD

BIS
BIC

BIE

RHEAD REGISTER

T RHLA FOR COMPARISON

sSTMP

78:

B5du30
099518 000010
024444 042710 000010

024454

THE LOOK

K WIL
k BE GIVEN TO GET SECTOR PULSE
nA

;8 CLOCKS

gxI

onch.gns
sMCLK. 3R

E?E

1e’rcx-ncn.K, 3RO PSET "c*SRaangcfggE

DEC

BIC

; ¥NOW AL

:SET CLOCK
LOCKS

;i CLE

i COUND DOWN

TCK
i MCLK . RO 'CLE

TERS WIL

1#S0 FILL:xgééEo VAL

SECTOR AND CLOCK

NTOEkvss LOCATIONS

100000
316
oaugga 052737
0537
602015
883205

BIS

BIsS

t?sxnro+
?N76+aqL u?fLLSC IN SAVED
OPIATE RHCS!
ATTENTION

0S2737
000001
003202
024S2Ee
052737
003204
02434 013737 001200 00321

BIS

BIS
MOV

SAVED
$ATA
annE
38
357
u
RHDS1
SAVED
eSTHP], aon:xnro+fienove EXPECTED VALUE
SDMD, A4RE INTO+

NTO RHLA SAVED

CZRJGBO,RPO4/5-6 DSKLS CTRLRI

CZRIGB. P11

08-NOV-77 08:30

MRCY11l

30(1046)
TS4

4039

08-NOV-77
08:54
PAGE 101
LOOK RHEAD REGISTER
lRFTfiflnggflfl H
; #SAV

043306

JSR

RHWC

ISTER

SEG 0103

RGRIN SO THAT COMPARES CAN BE DONE

RO, 38SAVER

WRFROM
19.

AVE

ROM

TO
i NUMBER

lRS UPPER BYTE OF RHRS CRN BE CHRNGING

024ss4

113737

003201

RA0 TMAL T8SETEERGS

002135

IN A DURL PORT

S WILL BE_SAVE

AR S R0, EgR, THE LOuER Sire

; *COMPARE REGISTERS BEFORE SEARCH WITH AFTER

043510

JSR
REINTO

RO, 3#COMPAR

WRFROM

; TEST BUFFER

18.
igi

13%:

047620
001630

042264

148%:

.COHPRR
;GO BUFFER

i NUMBER
R TURN FOR ERROR

14§
M g

SIERNORO,RS

¥RN
FOR GOOO COMPARISON
T NG nggY
2 INDEX

gTEOR

zzuc 2(RS) SOREGA8REfi;glgfi EEStSQQBRESS

CZRIGBO,RPO4/S.6 DSKLS CTRLR1

SZRIGB.P11
4071

08-NOV-77 08:30

MACY1l 30(1046)

TSy

08-NOV-7?7

08:54

NOS8

LOOK AHERD REGISTER

PAGE 102

SEG 0104

RPO4-S-6 DSKLS CTRLRLI

0S-NOV-77 08:30

etetetataetatatater
ot ot ot oot ot o

Pastm

ST £ o0 BB IR 2o 223

SLEELESS
LSS EELLELLLLELLLLLS ¥
o o

ERE
R:2583NERERFRR

MACYLl 30(1046)

0B8-NOV-77

0B:S4

BOS

PAGE 103

7SS

MAKE CURRENT CYLINDER = O

SEG 0108

.SBTTL

READ/WRITE ADDRESSING VIR RHMR

024660

012706

001000

MOV

#STACK, SP

:RESET STACK

24672

0l 780

051320

MOV

#SECGAP, RO

POINTER

0246

012701

000460

0247
012720
177777
024706
005301
024710
024712

001374
004737

18:

042614

MOV

#304.

: COUNTER

MOV
DEC

s-1, (hon
Rl

;

JSR

PC,CLDISK

:THIS

BNE

1§

:CLERAR "DISK” AREA TO ALL ONES
IS USED TO SET UP GENERAL

‘REGISTER CORRESPONDENCE

;¥THESE ARE TO SET UP FOR DISKLESS USE ONLY

024716

012737

010000

024724
024730
024734

00S037
005037
0039;:7

0S2640
052642
832544

024752
024754

052636
052646

024740
024746

012737
004537

0400
094022

052636

052676

MOV

SFMT22, IWCYL

;C'oa?nfl& gaaxs BIT WORDS AND

CLR
CLR
CLR

JBWSECTR
ISUKEY]
IBUKEY

mncx-o SECTOR=0
o
g

MOV
JSR

WCYL
GCRC

8256. , 9 8F NWORD
RS, a#lRC

e 6 D
GO ro ancuuns CRC

: ¥THESE ARE REGULAR SETUPS FOR RH11 & “WRFROM" OUTPUT BUFFER

o24

012777 177374
024764
012700
002110
770 gwgg S4640
774
012
0403
012720 010000

025006 005020
005305

025010

0013

005077

154626

025030

013711

002064

025040

012777

010000

0250:2

025034 00S037 002006
025046

00S077

154600

025052 004737 052462

154646

2%:

MOV
MOV
MOV
MOV
MOV

ouna?RofiD RO
RO aauah
8259,
.rmaé,tnon

DATA
S 4 HEADER WORDS
gsg
9
:
eurr;
~uarnon"
H
ER
:FORMAT =16 BIT WORD

CLR
DEC

(RO)+
RS
2%

:CONTINUE IF ALL 259 NOT COMPLETE

MOV

JSWRIFOR, aR1

;GET nsnov FOR WRITE HEADER

SFMT22, IRHOF

'FORMAT BIT=1 16 BIT WORDS

BNE

CLR

154602

8-260. ,IRHWC

JRHDST

CLR

JSERFLGS

CLR

IRHCA

MOV

JSR

PC, 98COMWHD

TRACK=0,KEYS= o ALL DATA=0
§ECTOR=0,
CYLINDER=0.
...50 CLERR ALL “WRFROM"

: TRACK=0, SECTOR=0

;CLE

ag TR WITH 62

ERROR FLAG

:CYLINDER

;mirs

R AND

IN RHCSI

DATA FROM “WRFROM"

:INTO THE
RHMR REGISTER AND BACK INTO
:CORE “DISK" AREA

#IF T THE PR PROGRAM COMES
#IF
?flg BARC K HE:S WITHOUT ERROR
QPRINT QUTS FROM
" ROUTINE THAT MEANS
;#ALL MEADER ON DISK IS_GOOD % . OgBY DATA IS
;#T70 BE CHECKED TO SEE IF IT IS

CZRJGBO,RPO4/S-6 DSKLS_CTRLR1

R 8 L-&&&l&&&&&&-‘&&&&IIL&:&I‘S&IC“&&ILS&J&
E;;;o—;o—o—.—o—u.—wu—o—u—o—o—o—o—
(hin £ oRr O\BB IR LR BbH G5 £ oo D SRR LR EBD §

CZRJGB A1l

OB-NOV-77 08:30

MARCYLl 3?&&0“6)

-aa

oasoss

ox;zgr

85??1?

737
0
88?037
8854?2

85208e 78409
025114

005037

154550

0C1126

WRIT

CcOS

gflsfl
PRGE 104
ara

CKING

5$:

052420

SEU ClCe

AP AND TOLERANC s GAP TO SEE IF THEY

Sc5
AND scca MAY NOT BE 0) AS WELL RS
ERO

nov

gauuc,saoont

: MOVE uo:g °°ESL§§ xnrg ?80
DATA

15T
CLR

senr cs
8

.HAVE

BRBor 33
CLR

aouscca

imk"B KST B RPTER ACWRTTE
ECLESR ANY
ECC ERRORS OCCURED?

FIKP

: ¥REINTO BUFFER IS FILLED WITH EXPECTED DATA OF ALL 0'S

004037

RODBORROD,

120

gguo 7
3154

124

003154

042532

JSR

REFREF £58

}53
0 0 002006
132 00S037

Pt Pt Pt Pt Pt ot Pt Pt Pt

WRITE HERDER
; ¥AND

1
i

=NOvV=-77

e
000207
104010

WORD
CLR

RO, 38CLARER

REINTO

;CLEAR "REINTO"

rno

SEI"Tof(e7a"a’
rx
QRERFLGS
tWITH
é EROS

~nsxuro" BUFFER WITH “DISK* BUFFER
conpnas

D43S10

Jén
REI

0, 38COMPAR

: TEST gurrsn

oxs

-l

4$:

ERROR

A FORA sanon uenoen
W POINT

;
CHECK
.co
BUFFER

LRl
108 feeon B
RETURN 0 _“ComP
WORD
ggsoé T0 256 ARE

.DR

;257 AND 2?8 ARE ECC

; ZEROED OU

02sies

000207

RTS

;259 TO 273 TOLERANCE GARP

BBIRR LNBBBIRRLOR
B IS VA LI SDE% B8

t-.t..

SELLXELLL L LfLLL £iL
nonurvrenirnr roruror nnrn
ORI
0= 0 b ps pt s ee
n~-OwoNCNILWw -0

A
38 QR

Bt 5t Bt Bt et Pt Bt Pt Pt Pt ot ot Bt ot Pt Pt Pt Bt et Pt ot ot Pt Pt s Bt Pt Pt Pt Pt Pt P e

LfLLLLLLLELFLELLLLLLLLLLELLLELLXELEEXLELELELELELE g

OO0

0 RPO4/5/6 DSKLS CTRLRI1
11

08-NOV-77 08:30

MACY11l 30(1046)
TS6

08 NOV-77

08:S4

WRITE HERDER AND DATA
1

025170

012706

C01000

MOV

#STACK, SP

12700
12701
020
00s

051320
000460

MOV
MOV
CLR

OSSCGRP RO

1M
16
20

Q3%

DEC

92%

042614

SEG Q0107

;RESET STACK

; POINTER

i COUNTER
CLERR SIMULATED "DISKTM AREA IN CORE

(RO)+
R

%C,OOCLDISK

;THIS IS USED TO SET GENERAL REGISTERS

;#THESE ARE TO BE SETUP FOR DISKLESS USE ONMLY

025224

012737

010000

052636

MOV

02se32
025240

012737
005037

000001
0Seeue

0S2640

MOV

052676

CLR
MOV

836400
o44022

025256
025262
02Seed

093

PAGE 10S

CLR

JSR

SFMT22, 3sUCYL
81, JSWSECTR

FSUKEY]

IBUKEY
8256. , 9 8FNWORD

RS, a#lRC

FORMAT
SE 16 BIT WORDS AND

$RRCK=O
gECTOR=1
KEY1=0

' KEY2=0
1266 DATA WORDS
:GO TO CALCULATE CRC

; #*THESE ARE REGULAR SETUPS FOR THE RH11 AND "WRFROMTM BUFFER

MOV
MOV

MOV

.uS?Sofi
RO, anuah

025300

025304

010000

MOV

SFMT22, (RO)+

025310

000001

MOV

81,

000400

MOV

Eis
1

154336

CLR
CLR

MOV
DEC

1772777

30
025334

012777

0253S4

013711

025360
025364
0ec37e
025376

00S037
Q12777

005 7?7

004737

002001

154302

154256

BNE
MOV

(RO)+

#256.

RRCK-O

YE-

;BRANCH IF DATA NOT COMPLETE

3
#1,IRHDST

;iTRACK=0 SECTOR=1

fl? FOR HRITE HEQOER ANC
N

gflTR bé
H
LERR

IFSEEE,ORHOF
SR

CYE

ITSl

(16 BIT WORDS)

WRITE HERDER AND DATA INTQO “DISKTM RRER

C, 3sCOMWHD

PflOGRRH
COHE ugnc

WITHOUT ERROR PRINTOUTS

ADER _ON_*DISK"

DRT ISTOHSE
CHECKEDH$OH§EE
IF IT IS
TQ SEE IF
TOLERANCE GAP
DATA

#ALL ONES AND WRITE
#THEY ARE ALL ZEROS,

KEYS=0

TER
C
iMOVE ALL ONES FOR DATA

8-1, (RO)+
R%

J8ERFLGS

SECTOR-1,

K Yi=

,RS

CLR

?83nS?ET‘5311
0RO

CYLI

(RO)+

JSWRIFOR,
aR1

JSR

052462

TWO INSTRUCTIONS GETS
FROH INTO RO AND

(RO)+

MOV
MOV

;figsgflTR WORDS
4 HEADER WORDS

SRHWC

177374
002110
154330

- ECCI RNO ECCE ARE NOT CHECKED.

:ORHHC IS CHECKED TO BE = O
Oetc4le

017737

1S4eg2H4

aoCllze

MOV

, SBODART
ARHWC

;LOAD WORD COUNTER JUST IN CRSE

CZRJGBO,RPO4/S/6 DSKLS_CTRLRI

CZRIGB.P11
4223

“Esg

025410

025412

08-NOV-77 08:30

005037
005037

EOS

08-NOV-77 08:S4
PAGE 106
WRITE HERDER AND DRTA 2

BEQ

ERROR

104040

qa§9 025414 005737 002006
025434
025440

30(1046)
157

001401

4228
4229

MARCY11l

0Se4le
0Se420

£S:

SEG ClCe

SHOULD BE
=

RHHC BO S NOT = 0 AFTERA _WRITE

TST

JsERFLGS

;HRVE ANY ERRORS OCCURRED?

CLR

AMUECC2

{CLEAR ECC

CLR

HERDE

JSUWECC]

D DATA

IS COMPLETED

;CLEAR ECC

:#FILL "REINTOTM BUFFER WITH EXPECTED DATA OF ALL
4233

236
4237

025444

004037

042532

JSR

025456

004037

042532

RO, 38CLAREA
JSR
REINTO+<25Sh. #2>

'FILL REST
: FROM

;DATA

025450

.WORD

RO,

98CLARER

REINTO
REINTO+<255.#2>

REINTO+<272. %2>
4242

025470

005037

CLR

0020086

J8ERFLGS

1'S

;F%LL REINTC BUFFER
:
FROM
;10

:DATA
170

;CLEAR ERROR FLAG

; #NOW COMPARE "DISK"TM BUFFER WITH "REINTO"TM BUFFER IN CORE

gE?NTO

043510

13K
273.

49:

cs:

4$
S$
ERROR
RTS
ERRCR

RO, 3sCOMPAR

7
PC
10

FER

°? BUFFERWORDS CHECKED

RETURN PO NT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
iRE
ERROR 10 NEXT
iRETURN TO COMPARE
iWORD NOS 1 TO 256 ARE
DA A WORDS
WORD NOS 257 AND 258
RRE ECC WHICH HRVE BEEN
: ZEROED

: WORD NOS 259
: IS DATA GAP

RTS

:WORD_NOS 260 TO 273
{ARE TOLERANCE GAP
iRETURN TO COMPARE

OO0

cao RPOH/563 ostg CTRLR
GB.P11
-NOV-77
O
467
qsgg

p25S26

012706

4270

025540

012700

4271
4272

4273
4274

4275
:g;g

MOV

#STACK, SP

;RESET STACK

1320

MOV

#SECGAP, RO

POINTER

DEC
BNE

R1
18

;

127g6
0127

0460
000377

025560

004737

042614

005301
001374

18:

MOV
MOV
JSR

#304. Rl
#8377, RO+

: COUNTER
,Lono SIMULATED "DISK" AREA WITH 377

PC,CLDISK

:THIS IS USED TO SET UP GENERAL
:REGISTER CORRESPONDENCE

:#THESE ARE TO BE SETUP FOR DISKLESS USE ONLY

:Szg
'

:gg?

025564

012737

010000

052636

MOV

SFMT22, ABWCYL

4282
4283

025572
025600

012737
00S037

000401
0S2642

052640

MOV
CLR

4285

025610

012737

000400

052676

8401, ISWSECTR
IRWKEY]
JBWKEY2
#256. , 98FNWORD
RS, aulRC

4284
4287

:ggg

025604

005037

025616

004537

025624

052646

025622

0S2636

052644

044022

CLR

MOV

JSR

WCYL

025626

025634
025640

012700
010077

002110
153770

:ggg

025eM44

012720

010000

012777

177374

153776

MOV

4299
025650 012720 000401
4300 02S6SH 83§oeo

2%:
3s:

4301

025656

5020

4303
4304

oessga
0256
72
749

012720
005305

0S2s2S

012777

000401

4309
4310

025714

013711

002064

4211

4312

025720

00S037

002006

4313

0258724
025732

005077

4308

:gig

02€736

001374

012777
004737

oxoooo
153714

02462

153742

153716

#-260. , JRHWC

:G0 TO CALCULATE CRC

;256 DATA WORDS 4 HEADER WORDS

SWRFROM, RO
RO, 3RHBA

!THESE TWO xnsraucrxons GET
{ADDR. OF WRFROM INTO RO
:AND BUS ADDRESS REGISTER

MOV

#FMT22, (RO)+

EoE?nr-xs BIT WORDS

MOV

CLR

MGV
MOV

#401,
(RO)+
(RQ)4
(RO)+

rnnchE. SECTOR=1, KEYS=0

.KE 1=0
KEY

#25S6. ,RS
8052525, (RO)+

: COUNTER
;MOVE ALTERNATE ONES FOR DATA

DEC

=
33

8401, JRHDST

: TRACK=1 SECTOR=1

MOV

JSURIFOR, aR1

CLR

JSERFLGS

;GET READY FOR WRITE HEADER
Ngagnra WITH B2 IN RHCSI

CLR

JRHCA

ch; R=0

PROGRAM COM s

ncx HERE

BNE

MOV

MOV
JSR

PC, 38COMWHD

;#IF THE

4218

; "oxsx" IS GOOD.

:#FROM

THE “COMWHDTM

,coun

:BRANCH IF DATA NOT COMPLETE

SsFMT22, SRHOF

4316

4317

KEY2=0

;256 DATAWORDS

MOV
MOV

CLR

4302 025660 012705 000400
4389

rnacx-x, SECTOR=1
s KEY1=0

: #*THESE ARE REGULAR SETUPS FOR RH11 AND “WRFROMTM BUFFER

4292

4305

Eog?gggsaaxs BIT WORDS AND

GCRC

:gg?

4293
4254
:ggg

SEG C109

001000

02S54M
025550

025554
025556

FOS

MACYL1 30(;045) 08-NOV-77 08:54 PAGE 107
TS
WRITE HERDER AND DATA 2

RROR FLAG

ronnar BIT-I(IB BIT WORDS
:WRITE HERDER AND DATA INTO “DISKTM CORE

ns THR

WITHOUT ~RROR PRINTOUTS

MEANS M.. HERDER IN

DRTR IS TO BE CHECKED .0 SEE

4219

‘#IF IT 1S ALL 052525 AND qu E DATA GAP AND

4322

:#RHWC IS CHECKED TO BE = O

:ggg

:#TOLERANCE GAP T0O SEE IF THEY RRE ALL ZEROS.

RV -NOV-77 08:30
DSKLS

025742
0257s0
0257Se

017737
00140
10404

CTRLR1

153664

GO39

MACY11 3?;60“6)

WRTTE NEADER
AND DATA 3 '

001126

MOV

BEQ
ERROR

JRHWC , SBDDAT

3
40

;LORD AND TEST FOR ZERO

; RHWC
SHOULD = O
;RHWC
DID NOT = O AFTER A WRITE
;HEADER AND DATA WAS COMPLETED

;#ONLY ECCl AND ECC2 RRE NOT CHECKED
005737

TST

CLR
CLR

JSERFLGS

JsECC]
ISUECC2

;HAVE _ANY ERRORS OCCURED?

s CL EAR ECC
:CLEAR ECC

:#FILL "REINTOTM BUFFER WITH EXPECTED DATA

JSR

REINTO

RO, 38CLAREA

:FILL REINTO BUFFER
: FROM

REINTO+¢255, #2>
.WORD
52525
JsR
RO, 98CLAREA

:T0
:DATA
'FILL REST

nsx;ro+<a 2.%2>
ORD
O
CLR
JSERFLGS

170
;DRTA
; CLEAR ERROR FLAG

REINTO+¢256.#2> ;FROM

; #*NOW COMPARE

JSR

REINTO

RO, 28COMPAR

DISK
273,

104010

RTS

ERROR

BUFFER

WITH "REINTOTM

; CHECK
600D

BUFFER

RETURN POINT FOR ERROR HEADER

'RETURN POINT FOR ERROR DATA
‘READ_ERROR 10 NEXT

'RETURN TO COMPARE

*WORD NOS 1 TO 256 ARE
DATA
WORDS

W OR
AN AND 258
257
;ARE ECC WHICH HAVE BEEN

; ZEROE

;WORD NOS 259
; IS DATA GAP
; WORD NOS 260 TO 273

Czelez

C00zC7

RTS

IN CORE

'TEST
BUFFER
NUMBER OF WORDS CHECKED

5§
ERROR

“DISKTM

'ARE TOLERANCE GAP
'RETURN TO COMPARE

CZRJGBO,RPO4-S-6 DSKLS CTRLRI

CZRJGB.P1L1

08-NOV-77 08:30

MACYLl 30(1046)

T80

:§;§ 026066 012706 001000
437

33§g

035}89

oie;oo

8513&0

4378
852110
81
7 199799
3§3fi
oasiiz
gosaox

18:

4379 855120 oowg 042614
3333

gox

:ggscnzlno

POXNTER

MOV
osg

MOV

439]
:ggg

WCYL
GCRC

026124

6154

6160
026162

012737

883532

3
052646

010000

94022

JSR

026164

026172
026176

012777

012700
010077
012705

177374

002110
153432

153440

4402

026212

005020

4404

026216

00137%

:382
4407

4408

026214

026220
02623&

MOV

MOV
MOV

000403

MOV

::8? 026206 01272C 010000

4403

2%:

005308

005077

183420

013711

002064

4415

026274

000240

052777

000001

4418

026304

004737

042220

4422

02326

104037

4419
4420
4421
4422

4424

026276

(026210
026316
026220
028230

032737
001404
012737

MOV
CLR

DEC

THIS IS USED TO SET GENERAL

REGISTERS

SFMT22, 3MUCYL

EQE?RT aeaxs BITWORDS AND

MKEYS

EYé-S
Egs

'§58- Sornuono

RS, 3#tRC

10 CQLCUL TE CRC

002000

001714

00163¢

001122

8289,

crnraé.cao)4

(RO)+

sscroa-o TRACK=0,KEYS=0, ALL DATA=0
coun

MOV

ISWRIFOR, aR1

CLR
fibC
BIS

JRHDST

:FROM BUFFER “WRFROM*
:IN aus ADDRESS
;R

cef?“oenls BIT WORD

RANCH IF ALL 259 NOT COMPLETE

RACK=0, SECTOR=0

:GET RERDY ron WRITE HEARDER

J8ERFLG
oFHTas.3RHOF
33:8“
HMR
oco.észcsx

8"0
DQESR“I
62 o e,
5snnr ax?
1 15 axv WORDS
gzr‘o?Eangsrxc
MOCE
:GO

BIS

8GO, JRHCS!

:THIS GO SHOULD SET PGE

JSR

PC, a8PUTREG

i SAVE REGISTERS

:PGE DID NOT SET WHEN
A WRITE

NOP

BIT
BEQ
MOV

ERROR
3%:

;256 DATA_WORDS 4 HEADER WORDS

SWRFROM, RO
RO anneh

MOV

153334

#-260. , IRHWC

BNE

CLR

::?3
2
7
4411 8%25:6 8?39;7 005386 153374
::ig
503005 183344
153372
4414 856580
852522 8059;;
777 880001
33{9

33.CLoxsx

ELERR
DISK AREA TO ALL ONES.
;

: #THESE ARE REGULAR SETUPS

:gg;

4399

#-1,(R0O)+

:#THESE ARE TO SET UP FOR DISKLESS USE ONLY

3388
056132 00203, 0es6u4q
4389 026l146 012737 owoo 052676

4397
4398

SEG 0iil

:RESET STACK

MOV

4396

PAGE 109

#STACK, SP

052636

08:S4

MOV

:339
333;

08-NOV-77

WRITE HERDER AND DATA 3

#PLE, a8CS]
PGE SET
33
' BRANCH IF GOOD
F8RHCS2, I8SBDADR "

NQS ATTEMPTED WITH ONE IN PROGRESS

c:n'cao RPO4-S

ZRIGB. P11
4425

§426
4427
4428

4423
4430

4431
4432
4433
4434
4435
443E
4437
4438

442§

<440
S99

S442
4482

& OSKLS_CTRLRI

-NOv=-77 08:30
08

109

MACY1l 30(104&)
08-NOV-77 08:S4_
PAGE
PROGRAM ERROR RHCS2 #10
Tel

110

THESE TESTS ARE THROUGH THE MAINTRINABILITY REGISTER - RHMR

Hs gEC GAP _AND SYN? EYTE ARE ALWAYS READ AS
Z 0
149000 NO Hfl R WHAT IS IN THE SIMULATED DISK ARER
Hs HEADER CONSISTING OF CYLINDER noonzss SECTOR,
RACK AND_THE
KEYS ARE READ_FROM LOCATION

ch SECTOR

E é mS EY2 nuo NOT FROM

HERDER: ON SIMULATED’ DISK

CRC IS RERD FROM SIHULQTED DISK LOCATION WCRC:

HEADER GAP
WHAT IS ON

IS ALWAYS READ AS ZEROS NO MATTER
THE SIMULATED DISK RRER

THE DATA SYNC

IS RERD

ON SIMULATED DISK

FROM HDWSTYN:

ALL DATA IS READ FROM SIMULATED DISK DISK:

SEGC Qliz2

CZRIGBO,RPO4-S-6 DSKLS CTRLRI

CZRIGB. P11

08-NOvV-77 08:30

MACY11

30(1046)
Tl

08-NOV-77

0B:S4

JOS

PROGRAM ERROR RHCS2

PAGE
#10

111

4445
e

Y447

4448

dieS
4450
4451
4452

4453
4454

026332

01270

001000

MOV

#STACK,SP

;RESET STARCK

EG Cl113

LRI
CTR
LS
DSK
/S6
PO4
O,R
IGB
CZR
30
08:
-77
NOV
08S5R1CB.P11

4455
6 p2e”1e 012706 CO1000
445

KOS

54DATAPAG1 E 112
08:
-77
NOV
086)
104
MACY1l 30(
AND
DER
Te2 READ HER
MOV

#STACK,SP

;RESET STACK

SEG O119

CZRIGHO,RPO4/S
6 DSKLS CTRLRL

CZRIGB.A11
4461

Hfliig
b

027302

0B8-NOV-77 08:30

012706

CCI1000

MACY1L 30(1046)

763

08-NOV-77

0854

LOS

PAGE 113

READ HEADER AND DATA 2

MOV

#STACK, SP

;RESET STACK

SEG 0116

ESRIEERITTM SoB-RAVLR, 0858
4467
4468
4463
Y470

4471
4472

MO9S

MOV A oPRG"R¥RBER RR6%Darh
St 1M

SEG 0116

CZRJIGBO, RPOM/S
/6 osxt.; cmuu

CZRIGB.P11

08-NOV-77

w73

::77; 030226
Yy

08:30

4483
waag

4489
4430

Y431
HH

4y
4494
4495
4436
gzg
yuIg

3331[1

WRITE DATA

NOS

PAGE 115

SEG 0117

MOV

#STACK, SP

:RESET STACK

042532

JSR

RO,

;CLEAR SIMULATED DISK

g
- WORD

042532

004152

8CLARER

17?»00

JSR
WORD

RO, 8CLARER
REINTO

CWORD

- WORD

:339
Y488

08:54

001000

%4037
3154

030262

0B8-NOV-77

012706

2
g EO
u;g 3333528 177400

4481
4482

MACYil 30(1046)

:DATA

;CLEAR READ INTO BUFFER
: FROM

INTO+7786

170

:DATA

;#THESE ARE TO SETUP FOR DISKLESS USE ONLY
030264

72
76

012737

105037
112737

030310

047500

83 S04

047502

7503
01
7506

8%335

010000

537
047500
051400

12
7510
4022

047560

SFMT22, ANCYL

;cvn.mo:n 0 16 BITS PER WORD FORMAT

gok

‘KEY?

CLRB
MOVB

CLR

SKEY

CLR

Ccotr+
*
oseco R

: TRACK O
i SEC on 1
KEY

MOV
810., 98DAWORD
A WORDS
CLR
iox
mx; Rsno COMMAND
JSR
S, J8CRC
0 CALCULATE CRC
CYL
WCRC
; #THESE ARE REGULAR SETUPS

137#
ng;gss
127
60 66

MOV
MOV

JSR

PC, 38CL xsx

Ag?

iR
g&f
'"'#o §1=70
i1

112746

4mso7
4509 moaoug ofan? 6?400012% 151242

:6"

:gil
n303u“% oomso”g; 535532
:gis 830450 Boar3s 295908
4515
:ssig
-

EtE
jeR

32%3

-m.
c CKED

4S50S

030362

4504
4506

004737 042614

MOV

4 012777 3154 151256
151282

030366

ooooooé

61 7% 0000

4E10

4518

“555

4523 (030434
4E4 moaowgg
£

n
n
w

:255;
0304
4E27
(030452

005737
880039%

3106

000000

002006
042532

000001

MOV

u? RHBA

;

REGISTERS

xng nogn:OF nsno surrsn
Y E

:83 ornraé-scxanuor' K/ c
xon INHIBIT BECAUSE
MOV

osnr GS

BC, 28COMHD

;

CHECKED

’c
E&n gngn FLAG
'RERD DATA

HERE

:#1F THE PR
K HERE WITHOUT ERROR PRINTOUT
!;}Ron
"conagmgou?neté ?N MEANS
DATA IS TO BE CHECKED

uou THE

TST
fiagnon

m a:no

NTO 'szmo* aumn uxu.

"Fm
'gur?' § ?u.éouu"g'' s'x“SEcm DATA AND CHECKED
8ERFLG
no.aocmnsn

WRFROM+776
0

;s HAVE mv snnons OCCURED?
gLsm

omn

CZRJGBO,RPO4/S/6 DSKLS_CTRLR!
“B11
CZR
08-NOV-77 08:30
0304s4
0304606
030462
030464

004037
0

MACY11l 30(1046)
Teb

08-NOV-77

RERD DATA

JSR

o42s3e

08:54

BlO

PAGE 116

RO, 3#CLARER

SEQ Ol1i8

;FILL EXPECTED DATA

WRFROM
WRFROM+22

: FROM
:T0

:DATA

177400

[ttt

0000

: ¥NOW READ DATA BUFFER IS CHECKED

047620

18:

MOV

SWRFROM,

MOV
MOV

CHP

( )4, (R1)+

-00

BEQ

MOV

SUB

TST

BNE

ERROR
3%:

030S4e

R
ERROR

oasxn 0.R1

,R2
J@SERWORD

-(nx) o

R2,J8ERW

othLcs

43
&S

;5992

;gggursg
;
OR WORD NO

;conrsns gooo WITH READ BUFFER

; BRANCH ; GOOD

;

i ER
.xr
iE

ognrn

RLRS
o NOT TYPE HERDER

D
on RERD

:BRANCH TO avoxo annrxuc NEXT ERROR
:WORD NO 1-10 ARE DATA

;58285223 1-

HAVE NOT BEEN

:
RERD
ER SHOULD BE
:ZERO IF O Hsn THAN ZERO

WRONG NUMBER OF WORDS HAVE
i
:BEEN READ IN THE DISK NOW
:CONTRINS 177400 ALL
256
H
ng ONLY 10
: SHOULD
READ IN

030544
030546
030552
030556
030S64
030cee

150366
177177
000200

4s:

2s:

CMP
MOV

(RO)+, (R1)+
JSWR, - (SP)

DEC
BNE

R2
15

BIC
CMP

8177177, (sp)
#SW07, (5P +

;UNDO -(RO) nng -(R1) FOR ERROR
;GET
ITCH SETTING

:KEEP ONLY SWITCH 7 AND 8
:1S 7 SET AND 8 RESET

:COUNT
:BRANCH IF NOT COMPLETE

GBC,RPU4-S-6 DSKLS CTRLRI

GB.P11

oe-NOV-77 08:30

MACY1l 30(1046)

Teb

457
4571
457
?

4575

4574

i #

4578

‘e

- 2&

030572

012706

001000

1 030604 012701 003154
4582 030610 012721 010000
4585

wsa;

030622

:g&

:ggg

005021

37
Y

030834

000401

?
4235 B3BR38 B1s787

(0306
010021
4594
0306
00026 1
95 ggggse 006100

4593

849

18:

103774

030664
030666

MOV

#STACK, SP

;RESET STACK

f
ornrae13110

sfirxnc Soos2
;Rhluoen
0 FORMAT 16 BIT WORDS

17777e,177775,177773 ETC)

UP ~REINTOTM FOR WHAT IS T0 BE REA

CLR

49§ It (R1)+

JSR

J8CLARER

FsbL “REINTO" BUFFER

NTO+<23.%2>

;710

(a1)+

NTO+<(4%2>

cx:x

SECTOR=1

.WORD

070707

MOV
nov

77776, R
GETT
Asxans(Sq..a>
hx
sr&R?xuS“SooaSssFLOAT
9RERE 177776 GOES

SEC
ROL

MOV

JSR

004152
000000

; H ZERO FLOAT ng FROM RIGHT

(EG.

BCS

B s fpuy o

00
460l

é? WORD

- WOR

4GaZ%S

SEG 0119

ro LEFT

. WO

77776

PAGE 117

o uonos g 9

CLR

070707

Cl0

DATA T BLE

MOV

042532

0B:S4

READ DATA

LISET
MoV
nov

:gsa 838253 865551

08-NOV-77

.WORD
.WORD

R1)+

:DATA
FLOATING
O
; csan
T O ONE BIT LEFT

iBRANCH IF 16 NOT DONE
iF

BRSSO, iEADh
REINTO+?7&
O

THE REST OF BUFFER WITH O

:T0
:DATA

;#SET UP SIMULATED DISK WITH WHAT IS TO BE RERD

030670

1416

:ggg

030700

070707

3289

1464

4610

042532

702
0127
4611 833705
1578?
4el2 030712 010021
4e13
3 714
882236
4614
i
1

77776

:gig

030720

4£17

Elg G378
GRIEX
307 ?§§7$7

042532

4E22

043340

1466

103774
037

:gg?
:253

030734

008737

JSR

2%:

. WOR

- WOR

RO, 38CLAREA

;FILL "DISKTM BUFFER

- WORD

o 707

:DATA

MOV

MOV
MOV
EgcL

xo<xq PED

: FROM

170

TTING
Y TO FLOAT ZEROS
ofixsxo<éo #2> ,R1:g§
# RSDBRES
WHERE 177776 GOES
nove
FLOATING O
;
ARR
RO
ONE BIT LEFT

BCS

JSR

RO,

anaucu IF 16 NOT DONE

38CLAREA

oo DRSCICRETIE
; 777

14 LL THE REST OF BUFFER WITH 1777

JSR

:WRITE CHECK HEARDER AND DATA

- WOR

PC, 38WRCHHD

bR
onrn

:CYLINDER O, TRARCK 1, SECTOR 1

CZRJGBO,RPO4/5-6 DSKLS CTRLR!
08-NOV-77 08:30

CZRIGB. P11

MACY11l

30(1046)
T67

:233

; #*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT

Bis
953

030789
030780

CHP

BEQ
BIT
BEQ

030;62

63 0307

4636

4637

ERROR
BR

030772

4641
<Eal
H4E43
4644

iBET
BTg%g?ns
BUERe0LD BE SET
‘gQ:Safié

1
43

:RHDB CONTAINS FAILING WORD
iRHBA CONTA
nggness+a
MORY FROM
;OFF T

P)+,anCsSe

q
SWCE , aR2
3;

030774

3%:

ERROR

030776
031002

4S:

MOV

SWRFROM

. 01 (RO)+
(RO)+
(RO)+

MOV

MOV
CLR
CLR

031016
031022
031024
031026

JSR

662

031042

4664

031046

4663
56685
4666

-HC

ORRECTLY HRS NOT SET BUT SOME

5
:: x?sHE
T NO. uas se

IF NOTHING GOT DESTROYED

;#FILL "WRFROM” WITH WHAT SHOULD BE IN “REINTOTM THEN CHECK
031006

4661

:
H IF GOOD
(WRIT cu;cxnsnaon HIGH?
:
H 1
OR NOT DUE TO "WCE”

; #NOW CHECK HEHORY T0 SEE

46S1
4652
4653
4654
4655
4659
46S
4658
4689
4660

4650

;;

031012
031014

177776
002170

031040

cs:

031094

RO, 38CLAREA

;STARTING ADDRESS

:CYL INDER

TRRCK 1, SECTOR=1
KEY1=0
xzva-o
sFILL "WRFROM" BUFFER

LWORD

WRFROM+<4#2>

: FROM

MOV

0177775 RO

csrrxuc READY TO FLOAT O

"WORD
.WORD

031030
031034

sFMT22!90)¢

MGV

28!

ROL
BCS
JSR

WRFROM+¢23.%#2>
070707

:T10
:DATA

WRFROM+ <24, #2> ,R1; STARTING ooness WHERE 17777& GOES

no (R1)+

go@:c
N r ORTING O

RO, 38CLARER

;FILL THE REST OF BUFFER WITH O

WRFROM+776
O

170
:DATA

RO
33

'c§
0 nc BIT LEFT
BRANCH IF 16 NOT DONE

0310S0
03{054

004037
00

042532

4&7

031062

00S037

002006

tLR

IsERFLGS

;CLEAR ERROR FLAG

4674
46
467
4E
478
73
4680

031066
0231072
1074
031076
031100
021102
0231108

004037

043510

ISR
WRFROM
REINTO
25k.

RO, 28COMPAR

:
;GOO?
; TES
H

:22;

46E9 8%1068

4670
H&71
4E7

TESTED

;THE DISK THAT DID NOT COHPQRE
,T
AND SC WILL BE SET DUE 710

4E4S
4EHE

4e47
4648
4649

IS TO BE

SrRNILpySPY
PCbo§UTREG

4638

4639
4640

SEQ 0120

;#IF THE PROGRAM COMES BACK HERE THEN WRITE CHECK

4625

4626
w7

v
631
63

08-NOV-77
08:S4
PAGE 118
WRITE CHECK HEADER AND DATA

_WORD

"WORD
WORD

WRFROM+<40.#2>

;FROM

. #NOW THE READ BUFFER WILL BE CHECKED

ES:

rié |

ERRCR

;

N
N

:RERD NE

HECKED
ERROR HERDER
ERROR DRTR

CZRJGBO,RPO4 /56 DSKLS CTRLR1

CZRIGB.AL11
4681
4682
4683

031110
031112

~08-NOV-77 08:30
000207
109008

MACY1l

30(1046)

0B8-NOV-?7

ELO

PAGE 149

Te?

WRITE CHECK HEADER AND DATA

78:

RTS
ERROR

PC
&

Rre

SEG 0121

;RETURN TO_COMPARISON SUBROUTINE
iDATA
n;
NTO_BUFFER GOT
: CHANG D

4685

4686

08:54

CHECK

Qn
T8 COMMAND

{LIORD NO_CONTAING

4687

031114

000207

4683

031ile

000240

RTS
108:

NCP

ORD

INUMBER THAT GOT CHANGED

;RETURN TO COMPARISON SUBROUTINE
;ONLY A BRANCH POINT

08-NOV-77 08:30

MACY1l 30(1046)

Te7

08-NOV-77

08:54

F10

PAGE 120

WRITE CHECK HEADER AND DATA

SEG Cl122

: %DATA TABLE

:%TOTAL OF 3; WORDS CONSISTING OF
.15 WORDS 0O rLonrxnc ONES (EG, 1,

%16 WORDS OF FLOATING 2EROS (EG. 177?76,

10)

17777%)

~
-

o0
r

#
"
5
AANCTEPFTEEIE
vt
8
FRESOCE BE

0,RP04/S
6 DSKLS_CTRLRI

031122

012706

001000

MOV

#STACK, SP

;RESET STACK

;#SET UP "REINTO” FOR WHAT

031134

012700

00009!

oaiigg
831145
031150
031152
031156
031162
831166
031193

81553% 003154
006100
10337S
812700 177776
012701 003214
010021
00e:80
103774

031172

004037

031200
031202

004152
000001

031176

003254

2%:

042532

IS TO BE READ

ngx
ROL
BCC
MOV
MOV
MOV
R
BCS

MOV

oatxnr?;ax
nggrgucnooness WHERE 1 GOES
RO
5NE 3"?LEFT
18
n3 g
8177776 ,R0
cerr*nc
RE Y T0 FLOA
nnexnrot<1s *2 Rno xu rLonTxnc
nooness uusnz 177776 GOES
RO, (
RO
GONEBIT
LEFTDONE
2%
asnncu
16 NOT

JSR

RO, 3*CLAREA

;FILL REST OF BUFFER WITH 1

- WORD
- WORD

nexnro+77s

S [)
‘WITH DATA

"WORD

sGETTING READY TO FLOAT 1

REINTO+<32.%2>

;FROM

:#SET UP SIMULATED DISK WITH WHAT IS TO BE READ
031204

012700

031214
031216

010021
006160

031222

012700

000CO!

031210 012701 O0S14le
031220

oaxegs
0312

012701
)
1

031236
0312490

006100
103774

031242

004037

031250
031252

052514
0G0000

021254

3%:

103375

031234 060251
03id4e

MOV

O0SICle

004737

MOV

MOV
ROL
BCC

17777b

0S14S6

042532

043652

MOV

48 :

ooisx R1

;GETTING READY TO FLOAT 1

:BRANCH IF 16 NOT DONE

0, (RIH+
no
8177776 RO

:STARTING ADDRESS WHERE 1 GOES
iMOVE FLOATING 1
iGET 1| ONE BIT LEFT

;GETTING RERDY TO FLOAT O

MOV
MOV

ooxsx+<ls %2> ,R1’;STARTING RDORESS WHERE 177776 GOES
RO, (R1)
;MOVE FLORTING O

ROL
BCS

JSR

RO, 38CLAREA

"WORD
JWORD

DISK+776
O

JSR

PC, 38WRCHDA

SEC

.WORD

‘SET CARRY

DISK+(32.#2>

‘GET O ONE BIT LEFT
IBRANCH IF 16 NOT DONE
:FILL REST OF BUFFER WITH G

:FROM

:To
‘WITH DATA
:WRITE CHECK DATA

chéugsnsg,
Tnncx 1, SECTOR 1

;#]F THE PROGRAM COMES BACK HERE THEN WRITE CHECK
:#HAS BEEN COMPLETED NOW WRITE CHECK ERROR BXT IS TESTED

31260

31264
31
gx 749

1
31302
1310
31312
31314
031316

013746

83371
737
022637

001407
032737
001402
104017
000401

001774

000100
042220
001712
040000

‘

104017

5%:

JWUNIT, -(SP)

;GET UNIT NUMBER

BEQ
BIT
BEQ
ERROR
BR

X
#ICE, a8CS2
5%
17
X3

iBRANCH IF
‘WRITE CHECK
OR HIGH?
;gnaucu IF ERROR NOT DUE TO "WCE”
: ngg
TA =§ FAILING WORD
R
TR
SS+2

ERROR

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

:ONLY Eé'
2HOULD BE SET
:SAVE
REGISTERS
: COMPRRE RHCS2

1OF T

¥n

MORY FROM

;TSE DISK THAT
DID
NOT COMPARE
T
sgg SC WILL BE SET DUE TO WCE

P WCE

CTLY NOT SET

;?ur SOME BITS OTHER THAN
;TR AND UNIT NO.

WERE SET

: ¥NOW CHECK MEMORY TO SEE IF nuvrgéuc GOT DESTROYED
‘#FILL "WRFROMTM WITH WHAT SHOULD
IN REINTO THEN CHECK

031320
031324

031330
031334

005037
012700

012701
010021

031336 goamo
031340

10337S

031342

012700

031354
03135
031360

000261
006100
103774

031362

004037

031370
031372

003106
000001

031346
031352

031366

012701
010021

002210

002006
000001

002110

6S:

7%:

177776

002150

CLR
MOV

042532

;CL;RR
:GETTING

RROR FLAG
READY TO FLOAT 1

MOV
MOV

SWRFROM, R1
Rg,(nx)l

BCC

:BRANCH IF 16 NOT DONE

#177776,R0

-cerr¥uc READY TO FLOAT O

RO
108

:SET CARRY
‘GET O ONE BIT LEFT
:BRANCH IF CARRY SET

RO, 38CLAREA

;FILL REST OF BUFFER WITH !

WRFROM+776
1

110
‘WITH DATA

ROL

MOV

108:

J8ERFLGS
81, RO

MOV
MOV

SEC
ROL
BCS

JSR

_WORD

"WORD
CWORD

:START
SS WHERE 1 GOES
:MOVE FLOAT n$ 1

‘GET 1 ONE BIT LEFT

SWRFROM4
< 16. %2> ,R]1 ;STARTING ADDRESS WHERE 177776 GOES
RO, (R1)+
:MOVE IN FLOATING O

WRFROM+<32.#2>

:FROM

; ¥NOW THE READ BUFFER WILL BE CHECKED

031374
031400
031402
031404
031406
031410

004037
002110
003154
000400
031414
031420

031414
031416
021420

104004
000207
10400%

0z1s422

000207

043510

JSR
WRFROM
REINTO
256.

RO, 38COMPAR

; CHECK
:GOOD BUFFER
:TEST BUFFER
:NUMBER OF WORDS CHECKED
:RETURN POINT FOR ERRCR HEADER
:RETURN POINT FOR ERROR DATA

ERROR
RTS
ERROR

4
PC
€

:READ NEXT ERROR S
:RETURN TO COMPARISON SUBROUTINE
:DATA IN REINTO BUFFER GOT
e
csg AFTER A WRITE

118
128

118:
12%:

:CHECK
DATA COMMAND
*WORD NO CONTAINS THE WORD

RTS

'NUMBER THAT GOT CHANGED

'RETURN TO COMPARISON SUBROUTINE

PAGE 121

MOV

BIS
JSR
CMP

001712

Gl0O

n
w

MACY1l 30(1046)
08-NOV-77 89:5u
WRITE CHECK DATA
170

04-5-6 DSKLS_CTRLRI
08-NOvV-77 08:30
1

R'uBC RPO4-S.
B
§ DSKLS

;1. Jha ¢Aa
4802

4803
4804

4808

Q3l4av

0
08-NOV-77
000240

uRTTE CHECK DRTA

13%:

NOP

MACYLL 30(104%)

-NOV-77

08:S4

H10
PRGE

l22

:ONLY A BRANCH POINT

4806
4807

:ggg

:54

I10

PAGE 123

976

ug?rs CHECK ngg

.SBTTL

ERROR BIT FUNCTIONAL TESTS

4810

48is
4813

:gig

031430

012706

001000

MOV

#STACK, SP

{RESET STACK

031442

004737

042614

JSR

PC,a8CLDISK

{CLEAR DISK REGISTERS
:BUFFER STARTING FOR 3 ERROR
;necasrgns
;RHER1
STORED IN REINTO

4818
4819
4820

031460

012700

003154

MOV

SREINTO, RO

031464

013720

001642

MOV

J8RHER],

4822
4823
4824
:ggg

031474
031500
031504
031510

013720
012720
013720
0127

001646
000000
001654
000000

MOV
MOV
MOV
MOV

auflusne (RO)+
80, (RO)+
J8RHER3, (RO)+
80, (RO)+

;RHER2 STORED IN REINTO+4
:BITS NOT TO
CHECKED IN RHMER2
:RHER3 STORED IN REINTO0+10
iBITS NOT TO BE CHECKED IN RHER3

013704

001656

MOV

FMRHAS, RY

;R4 HRS

4821

4827

031470

031514

4828
4829

031520
031524

4831

031532

4830

3335

031540

012720

013705
012737
012737

012700

000000

001200

MOV

83, I8STMP]

18:

MOV

;R2 HAS ADDRESS

2%:

BIS
MOV

(RO)+,R2
sBITO
RI

052777
013777

000040
001774

4839

031570

042220

:g:?

031574

120837

4843
4e44
4845

031602

104020

4848

031604

013746

4862

031e22

104020

4842 031600 001401

150056
150050

MOV

MOV
JSR

001732

sREINTC,RO
#CLR, aRHCS2
sUNIT,aRHCS2
PC . 3#PUTREG

CMPB

RS, 3#AS

ERROR

BEQ

:g:g

4849

Q031610

04271

801735

3%:

001100

'RETURN POINT

{ERROR

;REGISTER

TO ERROR

BUFFER POINTER

ERROR REG
iRI WILL HAVE ExrOF UNDER
TEST

CLEAR
s2
ugrar
¥r NO.

:RERD

‘8"#*;;

SAVE

STER

IT IN RS SHOULD BE

ELSOK g nuogx F GOOD

‘WITH THE SETTING OF 0
: ERROR gar ;u AN ERROR
IREGISTER,
THE CORRESPONDING

MOV

28DS1,-(SP)

sVVIPROG, (SP)

;REMOVE WV

ERROR

‘"55" T"? SETTING OF ONE

BIC

CMP
BEQ

‘2 T RHDS1

PROG

#ATA'ERRIDPRIDRY.(SP)+;
THE gxrs PLUS
VV SHOULD BE IN RHDS!
4g
ICHECK' GO’ NEXT,
IF THIS WARS OK

—EE5

ERROR g T

conpg§xr: ERROR

:0R ATTENTYON ACTIVE, OR

485¢

;ous OF THE

:ggg

OTHER

:PERMANENT BITS DID NOT SET

48S8

(031&24

012777

4860
“Bei

023163t
O0O21es0

020112
00141C

48€9

ATA BIT_IN RHAS
LD
SET WITH ERROR

iRHAS BIT'DID NOT SET

4850
021614
022726 140600
4851
031820 001401
:
4853

iRS HAS
: THAT

RHAS

000003

003154

J8ATTENT,RS
828, 98SLPERR

:BITS NOT TO BE CHECKED IN RHER!

001110

031552
031560

36015;

(RO)+

MOV
MOV

4836
4837

031566

80, (RO)+

002016
031552

4534
1544 012002
4835
331545
012701 000001

4838

MOV

031632

4737

000001

042220

1S000E

48:

MOV

JSR

CHP
BEQ

8GO, JRHCS
!

:GIVE

R1,aR2
% 1

:G0 SHOULD NOT CLEAR ERROR
:FURTHER CHECK OF °*GO® FUNCTICNALITY

Pc.goPUTREG

:SAVE

NO-OP

REGISTERS

-NOV-77

(&)

oa—nov-§r 08:3

MACY1l 30(1046)

(=]

CZRIGB. P11

CTRLR

[

C2RJIGBO,RPON-5-6 DSKLS

C’RJGBO RPO4/5.6 osts CTRLRI

CZRIGB.P11

08-NOV-77 08:30

031642

010237

486S

031660

104001

4868

031662

013746

001736

4870
4871

031672
031676

022726
001401

140600

4863

031646

010137

MACY1l

301ous)

04226M

MOV

0COIleM

MOV

4864 031652 013737 001712 001126
:ggg
4869

4872
4873
4874
4875

0311

03i700

042716
104020

:#THIS

031702

006301

78:

4882 031710 001374
:gga

4885

4886

:ggg

031712

031714

031716

031722

005720

005337

001310

108:

4889

4894
4895

ASL

1ST

DEC

031724

004737

042614

031730
031736

012737
012714

031724
177777

031750

oggr;r

042220

001110

118:

JSR

MOV
MOV

ERROR REGISTER
oVV°PhOG'(SP)

1%G0"
WITH NO-OP SHOULD NOT CLEAR
:ATA AND/OR ERR

TESTING CONTROL

LOGIC

csr NEXT BIT TO

x NO%

THE LEFT

T NEX ONE

:IF TO BE TESTED, GO DO IT !

(RO)+

J8STMPL

; ADVANCE RO TO NEXT ERROR REG.

'REGISTER COUNTER

iDO NEXT

ONE,

SETTING ATA IN RHDS!

"1TM

IF 3 NOT COMPLETE

IN RHAS AT THE

; CLEAR

i SAVE

ERROR

ng }ug “1*

4300

031762

104020

001732

PC, 38CLDISK

PC, 98PUTREG

ggga

ann* ENT,3RHAS
oh

:ggg

:WRITE 1 INTO DRIVE BIT POSIiION

: THIS

REGISTERS

SHOULD BE ZERO
INTO RHAS

DRIVE BIT POSITION

:DID NOT CLEAR IT

4904

031764

013746

001736

4906

031774

022726

040700

128:

4905 031770 042716 001000
4909
4910

032000
032002

001401
104020

4914

(032004

022737

022014

104020

4gig
491c
4317

CLERR VV AND PROG

JSR

60133?

4911

;GET RHDS1

;gnnon RETURN
; 57 BIT IN_RHAS AND ATA IN RHOSI

33&;23

4308

AD onr

“GO" WITH NO-OP CHANGED

oxls SLPERR
?a

:Egg

4907

FRILING necxsrea

:¥DRIVE POSITION SHOULD CLERR ATA IN RHDS1

MOV

4901

a.c 2, 98SBDDAT

THE MAIN BIT

489 031742 013777 602015 147706

4897

gnscoonr

; #NOW AFTER

3835
4893

Ra JWREGADR

SEG 0126

#ATA'ERRIDPRIDRY. (SP)+;GO SHOULD NOT cLsnn ANY BITS
7%
:CHECK
'NEXT ERROR BIT IF A-OK

BNE

4830

124

CHP
BEG

001200

PAGE

28DS1,-(SP)

BIC

BNE

000717

(08:54

MOV

ERROR

28;;

4878
4879

MOV

ERROR
5§:

001100

08-NOV-77

ATTENTION WITH ERROR TEST

177777

001716

13%:

MOV

a80S1,-(SP)

CHP

SERR! VV!DPR!DRY,

BIC

#PROG' (SP)

BEQ
ERROR

138
20

CMP

#-1,38ER]

ERROR

RgggcannnaLs
sx sno D HAVE THESE BITS

HECK

HOULD BE CLERRED

cooo
* 3 93

.onx“s 2¥
P sx
:RHER1

xon

THE

1D NOT

SHOU o uor CHANGE

'BY CLEARING
RHAS
{RHERI WRS cunncso BY CLERRINu
{RHAS BY MOVING “1" IN

CIRIGBC,RPO4-S-6 DSKLS CTRLR1I

CZRIGB. P11
4918

08-NOV-77 08:30

MACY1l 30(1046)

171

?g-NOV-??

08:S4

K10

PAGE 125

ATTENTION WITH ERROR TEST

; THE DRIVE BIT POSITION

SEQ 0127

CZRIGBO, RPO4-5./6 DSKL _CTRLRI
CZRIGB. P11
08-NOV-77 08:30

032020

012706

MACY11 39;{0“5)

MOV

o4as3e

JSR

L10

PR?ES#EB

#STACK, SP
no a-CLnRsn

SEG 0128

sRESET STACK
;CLEAR SIMULATED DISK

. WORD

: FROM

JSR

RO, 38CLAREA

;CLEAR READ INTO BUFFER

.WORD
.WORD

REINTO+778
O

170
!DATA

- WORD
.WORD

042532

08:54

ENTION WITH ERROR

001000

638048 Y3500
004037
003154
004152
000000

n??-NOV-77

. WORD

; K+776
177400

110
:DATA

Rsiuro

: FROM

n
~
W
NNN

i () 0

)

047500

MOV

047502

MOVB

047560

CLR
MOV

CLRB

CLR

g$f

SFMT22, ASCYL

93SECOTR+
8l

oseco

an
810.

98DAWORD

RS, 98CRC

chxnocn 0 16 BITS PER WORD FORMAT

;TRACK O
:SECTOR 1
1K v1=
;x

WORDS

rnx; Rsno COMMAND
0 CALCULATE CRC

WCRC

20888

RRURRR

tatd

9!?8’38833?§

;#THESE ARE TO SETUP FOR DISKLESS USE ONLY

FIVE

NN
[
N

5
3N

000001

3
N
N ~N

8
£

oG
NN 3

00000

147464
147460

147450

1474

1
006
047340

147412

JSR

PC, 38CLDISK

MOV

#-10.

MOV

JSRERDAT,

aR1

, JRAWC

c;nznn# REGISTERS
gn

;

MOV
MO

sREINTO, aRHBA
06,-(235

MOV
MOV

(SP)+ anuos SFMT22'ECI,

MOV

CLR

BIS

CLR

JSR

80,

1(SP)

8BAI, aRHCS2

JSERFLGS

PC,d8C

sIN L
;GET

NTO RHCS1=70

rxug no
SS OF READ BUFFER
YTE 357 azc OR 1
x/

K
o&N

IN nuos

Rgu

SESo nn

ol SRR IR

D HERE

ss INHIBIT

owne
OO0

OgO—W
oroOoNN

HEKDGTG
RERD INTO "REINTO"
BUFFER
uG%D

8ie0%e

gYTE

o« xnuxaxr BECAUSE

estate]

nrnn

(=]

LORE
nn
B e
RN
S g NEEIFEYS

; #THESE ARE REGULAR SETUPS

HEHESBUF?HSU&gosgL
éD HI%H
EXPECTED DATA AND CHECKED

CLR
JER

WRFROM

SERFLG
o, BOCL

WRFROM+77¢&

EL
h
AR BUFFER

DQTR

CZRJGBO,RPO4-/S-6 DSKLS CTRLR1

CZRIGB.P11
4980
4981

08-NOV-77 08:30

:9823

032252

4986

260

4389

74
2302

:qesggu

012737

177400

MACYIl 30(1046)

172

002110

835% 814057 oo1124

3% g3s3ie

MOV

SWRFROM,

MOV
Y
CMP

8257
. ) 9SERWORD
(RO)+. (R1)+

MOV

1§:

Dids%r BRsish

43% gfig fi%’ s
4q
4998
332 0004
gg&? 83%33'4 10‘0&

PAGE 127

-t

WO
388“ERROR
kR cooo
uxm READ BUFFER

%oy, aescooar 288%%

SRE
gR OR
BR
ERROR

3 o

‘$5.e2'888°‘" E&ofi“m
‘OS

i 1FEssbnaucu08"NOT YSEHEABER
;ERR
BRRNCH TO RVO
PR NTING NEXT ERRCR
!H NO 1 & Ds

%
NOS
11~
HAVE NOT BEEN
;RERD AND
ER SHOULD BE
;ZERO IF OTHER THAN ERO
;
WRONG Mfi ?
HA
;BEEN RE
N THE
DISK NOW
; CONTRINS 177400 ALL 256
;WORDS
BUT ONLY 10 WORDS
; SHOULD BE READ IN

S010

032336

S0l
S013

032344
032350

042716
726

ggiz

03236C

0Ci34s

S011 032340 gf

S017
cCi8
S0iS
€320

8n? 22

B5%

S08

38:

#RE INTO R1

S001
5002
S003
SO04
S00S
SO0
S007
gmom

S014

SEG 0129

; ¥NOW READ DATA BUFFER 1S CHECKED

110

0127
01 047620
035579 022021
013795
&83“’

0B8:S4

: ¥EXPECTED
DATA IS 177400 IN FIRST LOCATION ONLY
fov
#177400, JSWRFROM
;EXPECTED DATA

4987 8525# 81 8? 882
4989
4990

08-NOV-7?7

BUS ADDRESS INWIBIT

032356

302

146574

177177
000200

4S§:

es:

CMP

MOV
BIC
CMP

DEC
BNE

(RO)+,(R1)+

ISWR -(Sé)

;

-(RO) M?
=(R1) FOR ERROR

;GET SWITCH SETTING

8177177, (SP)
#SW07, (5P)+

;
;IS

;BRANCH IF NOT COMPLETE

;

KEEP
Y SWITCH 7 AND 8
7 SET AND 8 RESET

COUNT

RPO4/5/6 DSKL
;7CTRLR1
Pl
08:30
08-NOV-

CZRJ

?H PRGE 128

INHIB

BUS ADDRESS

RO,

8CLARER

g?sx
x;xwrs

416
32420

177400

SEG 0130

:RESET STACK
:CLEAR
;rngn

SIMULATED DISK

:70
:DATA

ARE TO SETUP FOR DISKLESS USE ONLY
047500

ormae gocvx.

047502

s*@

cot

lSECO R

, 38DAWORD
IX
S, d8CRC

047560

:CYLINDER O,

: TRACK O

16 BITS PER WORD FORMAT

REVLS

;SECTOR 1

NO OF DATA WORDS
THIS IS A RERD COMMAND
GO T0 CALCULATE CRC

ARE REGULAR SETUPS

xsx
okgnokg

OAN0 GISTERS
n
S1=70
ss OF READ BUFFER
qgnaaifgfi@*

1
oms'
7 am

fi)+
.é
ormzé'scxanuor
RHCA

SERFLGS

8BAI, IRHCS2

147042

C, 38COMHD

18:

dR1, 38SBODAT

ON INHIBIT BECAUSE
cc
xs
;

;i&fi%nnon: Emc
:

SS INHIBIT

;

; TEST DATA

001126

#SC!TRE!DVA!ALB!AL?!

001124

fyaafia%n

#SC!TRE!DVA!RDY!

cs:
o

N1O

08-NOV-77

#STACK, SP

012706

(1 046)

—

358S$LE3E205500Ne
s) )

eO
W

032364

MACY11

00ll1ce

xk'
g‘

Y.79 28880097; COMPARE RHCSI1

T ;:GOOD DATA

iRaSNEéé?TRNT
P S

; INCLUDE NEM BRI AND IR

absoon 'YEST DATA
ana
aSGDDAT, nsaoon?: COMPRARE RHCS2

08-NOV-77 08:30

i
017737

~J ~

n!
RN

~
n

32662

rinta
W

OO0

RPOY /S /& DSKL ? CTRLR]

032726

104001

Bll

08:S4
PAGE 129
MACY11 39;5046) nggg Ov-77_
- BIT # 11 - NEM

o426

146736

001126

160000

o00llee

1600
0016

Q0ila4
O422eM

3%:

BEQ
MOV
ERROR

3%
R2,

MOV

JRHBR, 38SBODAT

cmMP
BEQ

MOV
MOV

ERROR

SEQ ClzI

DRESS
MEMORY
NONEXISTANT

38REGRDR

12 e

l&bOODO.DISBDDRT

AN ERROR SHOULD SET NEM
=

" -EOHPRRE RHBR
GOOD

a.%uan.aoascnon ;ngcgs%n
ADDRESS RHBA
'AFTER A NON EXISTANT MEMORY ERROR
160000, 3#$GODAT
;
GOO

:RHBA DOES NOT HAVE

160002

CZRJGBO,RPO4-S/6 DSKLS CTRLRlI

CZRIGB.P11

08-NOV-77 08:30

MACYLi 30(1046)

173

5097
5098

2150
§1§§
sioa
5104

§105

gigg

§}{é

08 S'-O

RHCS2 - BIT #

PAGE 130

NEM

SEQ 0132

Pi
ETOTALEbafi
OE3 88?m§§n§e,
TING OF o w4, 1o
1#16 WORDS OF rLom
0S (EG. 177775 177775)
HE

032730

032742

012706

004737

001000

MOV

042614

JSR

?i%

110

OG-NOV-77

Cll

#STACK, SP

PC,asCLDISK

;RESET STACK

:INIT AND SET UP GENERAL REGISTERS

;%SET UP "REINTO" FOR WHAT IS TO BE READ

032746

032752

012700

oiami

5113 835;23 302?&

00000l

003154

si“ 835783
3 aqa Bis7BY
Ve 77776
eiie
44a2is
§117 032774
010021
sug
811
'éi%?

&%
3
033002

1
1
103774

§122

033004

0DO4037

gi% 833014

MOV

2s:

042532

#1,RO

csnxnc READY TO FLOAT 1

',383

aRtINIC))‘Rl

SCS
MOV

MOV

SEC
BCS

7772
noScs?;
9ANERE 177776 GOES
Asxms#(xs
2,
RTE
s*mrafic
R1)+

ROL

:ér c
T0 orc BIT L;F
:BRANCH IF 16 NOT DONE

JSR

RO aocmnsn

;FILL REST OF BUFFER WITH 1

ROL

:»:828

novs
}ug
nzonssWHERE 1 GOES

Su?'m DATA

giga

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

MOV

gigg 033032 103375

BCC

,’2°3
B
ng
BCS

"?23"312°.a> Rl RSB
$GE3mr“x: A0y
B
SRR’Ss'bflé‘és 177776 GOES
o
9
GE 8Hou; 13 n5§ F1DONE

JSR

RO, 98CLAREA

033016
0127
0000C1
sxg 033022
§1a78?
0S1416

5135
HE 833990
mE oie;o?
sl 6%?522
2139
33090 90’3599:
2{:9 85.'%2
€142

143
144
E{:E

033054

033060
833052
33064

004037

0S1S1E
8884 o
0

042532

§§3§

. WORD
. WO
- WOR

6tsx R1

TTING
25
ARTING

Y T

8 ung 1 coes

gfimén m$DONE

oxéw;z #2>
81K+7

:FILL REST OF BUFFER WITH O

; FROM
: 70
IWITH DATA

:#CHANGE FIFTH WORD TO O ON DISK

€149

033

€1€]

03307e

€160 02307
Ft+

MOV

037

051426

CLR

004737

043eS2

JSR

3830 7 002006

CLR

#DISK+10

;CLEAR FIFTH WORD ON DISK

PC ., a8WRCHDA

:WRITE CHECK DAT

Scen?t.cs

:CLEAR ERROR FL c

:CYLINDER O, mncx 1, SECTOR 1}

MARCY11l

30(1046)
T74

D11

08-NOV-77

WRITE CHECK

08: SH

ERROR

PAGE 131

SEG 0133

;KEYS 0,
;%IF TH

32 WORDS.
N WR Ts

JSR

JBUNIT, ~(

gxr

SUWCE , 98CS2

MOV

13746

BIS

oo1712

002
104017
000401

104017

Ss:

"5 Rao S

n;c

TESTE
.nugnc TR TED BROPER WORS COUNT AND RHBA 1SFOR-AODRESS

FIRINGRER

! ¥HA BEEN0HPLE$

oW ..ggéi.}n.

O g SRR 2o e S R SRR P B RS o otot Yo IS L C TR L AGIRA T ok

nugnununenanenunuicauciaiuuuiunicniniidiviung iy
i
[ V] A L e e e e e e e O S o S e S
ol
et Bt Bt Pt Pt ot s Pt Bt Pt ot Pt ot ot s Pt Pt Pt Pt Pt Pt Bt Pt s Pt g
g
i

0,RPOY/56 DSKLS_CTRLRI1
Bl
08
-NOV-77 08:30

R roR
0O
R
N

C2R

oPg c cgflg RS LD BE SET

xa-oa'uc

;

c cx nnonnxgfiE

ERROR
BROR

17
ig

om
S

' |
m&ésse

ERROR

aéo

1ST

J8RH70

168

:SKIP RH70 C

CMP

8-24. , A8UC

; COMPARE RHWC nrrsn A FORCED

gg flg§xTHAR D?§ENOT
COARE

DUE 70 WCE

HC Oflfié

ST
{38 a0 N1 RoEne
: TEST FOR RH70

AND DO RH11 IF NOT

CONTROLLER

005737
001414

002040

033150

022737

177750

033156
033160

001402
104017

BEQ
ERROR

178
17

SEES‘Ec?ogga xu ERROR AFTERA
:.gnxr§ OUNT

033162

000421

158

:BRANCH TO conrxnus r

033164

022737

CMP

SREINTO+<8.
%2> ,38BA ;COMPARE RHBA AFTER A roacsn

033172
033174

00141
10401

BEQ
ERROR

158
17

;
;

033178

000413

158

:SKIP

RM11 CODE AND CONTINUE WITH TEST

033200

022737

8-27.,38uC

; COMP

RHWC AFTER A FORCED

033206
033210

001402
104017

BEQ
ERROR

148
17

:
CHECK
5£ GOO0D
:WORD COUNT
REGISTER IN

033212

000o40s

033214

022737

033ege2
033ze4

00140!
104017

003174

177745

003186

68:

001706

001710

0C1706

001710

17%:

16%:

148:

BR
-

BEQ

:FORCED

,unx?
:

FORCE

‘WRITE

WRITE

R ON FIFTH WORD

CHECK ERROR IN FIFTH
F
§

WORD

GISTER IN ERROR AFTER

CK ERROR ON FIFTH WORD

CK ERROR

ERROR AFTER A

;annusu TO CONTINUE TEST ON FIFTH WORD
158
SREINTO+(5. %2>, J4BA; COMP
RHBA AFTER FORCED
ENES. .
? HECK ERROR IN FIFTH WORD
ISS

:FORCED

WRITE

CHECK ;nn

CONT NUESg GOOD

FORCEO

; #NOW CHECK MEMORY TO SEE

GISTER IN ERROR ARFTER

?E EHECK ERROR ON FIFTH WCRD

IF ANYTHING GOT DESTROYED

i#FILL "WRFROM” WITH WHAT SHOULD BE IN REINTO THEN CHECK
g33zze

008037

0CzC0e

15%:

CLR

IBERFLGS

; CLEAR ERROR FLAG

——

000001
co2110

177776
002150

000
e
nn
NN
O

08
O

A
s
£
o BEYFREERLEBBVRREOR
S DO NN EW—-0O

CZRJGBO RPO4/S/6 DSKLS_CTRLRI
08-NOV-77 08:30
CZRJGB. A1l

MACY1l 30(1046)
74

08-NOvV-77

MOV
MOV
ROL
BCC
MOV

108:

MOV

PAGE 132

:START ADDRESS WHERE1 GOES
1
'MOVE FLOATING
iGET 1 ONE BIT ;
:BRANCH IF 16 NOT DONE

#177776,R0

csrr;nc READY TO FLOAT O

RO
108

‘GET O ONE BITLEFT
:BRANCH IF CARRY SET

SWRFROM, R1
RO, (R1)4
RO
78

JSR
"WORD

RO, 38CLAREA
WRFROM+¢32.%2>
WRFROM+776
.
1

noonsss WHERE 177776 GOES

ARTING
IN FLOATING O
oOE
:SET CARRY

16. %2>, k
SWRFRO<MY

RO, (R1)+

.WORD
.WORD

:GETTING READY TO FLOAT |

#1,R0

MOV
SEC

ROL
BCS
c42s32

Ell

WRITE CHECK ERROR

MOV

78:

08:54

sFILL REST OF BUFFER WITH 1
;FROM

;70
;WITH DATA

; #NOW THE READ BUFFER WILL BE CHECKED

JSR
WRFROM
REINTO

043510

RO, 38COMPAR"

ORDS CHECKED
W
NUMBER OF

2S6.

RETURN POINT FOR ERROR HERDER
'RETURN POINT FOR ERROR DATA

119
128

033322
033324
03332t

104004
000207
10400s

033330

000207

033332

C0C240

11%:
12%:

ERROR

RTS
ERROR
RTS

13%:

NOP

; CHECK
; GOOD BUFFER
;TEST BUFFER

;READ NEXT ERROR S

PC
S

iRETURN TO COHPQRISON SUBRCUTINE
DQTQ IN REINTO BUFFER GOT

:RETURN TO COMPARISON SUBROUTINE

; CHANGE D AFTER A WRITE
CHECK DATA COMMAND
WORD NO_CONTARINS THE WORD
NUHBER THAT GOT CHANGED
;ONLY R BRANCH POINT

52
Ses3

033336

001000

774

B-NOV-77

Seb0
61

004737

042220

MOV

033724
033734

022737
104020

100020

6%:
0017186

F1ll

WRITE CHECK ERROR

PAGE 133

#STACK, SP

; ®*NOW SEE

033720

08:S4

THAT

FORMAT

;RESET STACK
ERROR

BIT

GOT

SET

JSR

PC,dsPUTREG

; SAVE REGISTERS

CMP
ERROR

SFER!DCK,J%ER]

FORHRT ERROR SHOULD BE SET

HHE
?IT
PER WORD READ WAS ATTEMPTEC
HA

THE FORHRT BIT-O- 18 BITS PER
WAS
READ

COHSLET D BUT ERROR REG

WAS NOT RIGHT
.

;NOTE DCK WILL BE SET BECAUSE

{ECC HAS NOT BEEN GENERATED

W
n

01270&

MACYLL 30(1046)

S08-Rav-Rr

IRLRL

(%]

EERIEERTI

DSKL

CZRIGBO,RPO4/56

CZRJGBO, RPOY-ss osts CTRLR]

CZRIGB.PIL

08-NOV-77 08:30

MACY11

30(1046)
175

08-NOV-77?

08:54

Gll

PAGE 134

ERROR REGISTER #1-BIT 4 -FORMAT ERROR

SEG J136

:¥NOW A WRITE DATA WILL BE ATTEMPTED WITH

: #lJRONG FORMAT BIT
7S

03374C

012706

001000

5278

0337s2

012737

177777

Se80

033760

004037

0425832

O47BIY

FRMAT1:

MOV

#STACK, SP

;RESET STACK

MOV

#-1, 38NOSYNC

:SET FLAG SO THAT DATA SYNC

JSR
LWORD
”8”8

RO aoCLnnen
DISK
EOLcapoxs

:CLEAR SIMULATED DISK
: FROM
:To

CLR
CLRB

anCYL
IuSECOTR+1

sCYL
xuozn 0, FORMAT 18 BIT WORDS
:
TRACK O

CLR
CLR

g.K
SKEY

;
KEYl O
;KEY2 0

MOV

81, 98X

:AND DATA IS NOT READ

:#*THESE ARE SETUP FOR DISKLESS use o
CLRB

MOV

Q47546
047510
5293
5294
5235
5296

034036
034040

2538 03404
Q3uQ42 004037 042532

5299
8300
5301
§302

034050
052
034054

€304
£305
€306
§307
5208
£309
€310

034066
034074
034100
034106
034124
Q34130
034139

002110
002116
126252
004737

2303 034060 012737 1359h

311

§3i2
£313
€314
£3ic
€316
€317
£3lg
€318
€320
g32]
€322
£323
€324
£33
£32€

034140
034144
Q34is0
034152
034156
Quibe
034166
Q34179
034176
(03420C
03+20%

012777
00S077
012777
0123711
Q05037
009737

004737
005737
Q0igH)
012700
012701
Q12702
012737
020021
001424
010037
0141327

002110
1455-4

145547
)
0O2Q0E
047340

RER REGULAR SETUPS

JSR

RO, 38CLARER

;FILL WRITE FROM BUFFER WITH 125252

ggs

:CQBOCLDlSK

“csusnnL REGISTERS
a

CLR
MOV
CLR

SRHDS
SFMT22, IRHOF
JRHCA

MOV

001129
0Clize

:GO TO CALCULATE CRC

;FRO

oua#ngn,aanan

aogness OF WRITE BUFFER
9
:;

98WRIDAT, aR1

;unxns DATAR=60

:TRACK=0 SECTOR=0
116
xr PER WORD FORMAT
1CYL
R 0

LGRS R LA
BESLG,
8
"figggs;HEuECO"SOERQOUT125557
A0 ETNe BYTE * HAVE GONE BY
#AND SYNCS GESE onkrgva DETECTED

;#IF THEPROGRAM cbnss BACK HERE' WITHOUT ERROR PRINTOUTS
. #
::#DATA
IS T0 BE cuecxso

042220
002006

00OCOO
0Si416
00000
00000S

:WRITE DATA

: #THESE

MOV

1458842

:NO OF DATA WORDS

RS, 38CRC

WRF ROM

145544
145840

#4, 98NOWORD

1SECTOR O

JSR

WCYL
GCRC

052636
052646

aosscorn

BNE

MOV
CHP
BEG
MOV
MOY

4,R2’
ns aoenuono
RO,(RI
38’
RO, 38$GDDAT
-(R1),an8BODAT

MOV
047620

18:

a8PUTREG

t LGS

MOV
MOV

ooisx Rl

; SAVE nzcxsrs S

HAS

annncn

Ennons OCCURED?

:GO0D DATA
WRITTEN INTO “DISK"
:DATA

: COUNTER
‘FOR ERROR WORD
: COMPARE cooo DATA WITH DATA ON DISk
: BRANCH x G000
:GOOD DATA
:BAD DRTA

8327

034210

16023”

047620

nunuiL
(WO
nongnien
L

?"5

‘ER“SS“

JSERFLGS
M

:ANY ERRORS

ALREADY THERE”

;ERROR

$ DR}? COMMAND

F v

ON_WR

;HRONG FCRMAT NO DATA

000401
10400S
5721

Uy
e

034224
034226
0342

S0 BREE

5349

:ERROR WORD
NO

RROR

S oeE QU jwoe
g342
S343
S344
S34E
S346
S347
S348

R2, 38ERWORD

75T

58 oolG
o
5330 034222 84884
S331
g33¢
5333
334
335
€336
S§337

SUB

0342s0
034252

C0s302
00134S

Egnon

TST

asun -(SP)

n3v
BIC

CMP

3%:

BEQ
DEC

BNE

022737
104020

000020

001716

u4S:

ERROR
cMP

BRANCH TO

(Rl

~-(R1)

8177177 (sp)

.guo7 (&p)+
R2

:#NOW CHECK

034284
(0342&4

SHO LD BE_WR Tzss
D INE RROR
I GIVE
WORD NO

3”?:suxr$

AVOID PRINTING MEXT ERROR
FOR

BAD

DATA

P ONLY suxrcu 7 AND 8

;éa 7 SET nng 8 RESET.

BRANCH IF YES
i
:IF NOT COUNT 256 WORDS

:BRANCH IF 256 NOT DONE

TO SEE

SFER, 98ER]

THAT FORMAT ERROR BIT GOT SET

ronnar
SHOULD
S
Bata
RRTTe DISK
if RRORgfl
‘A
uggn rgg
A TEHP ED

ugg

BITS Ps 9

Nfl

NRITE

CORRECTLY RB RTED
ERROR REG.

1 WRAS WRONG

176

H1l

08-NOV-77
0B8:54
PQGE 135
ERROR REGISTER #1-BIT
4 -FORMAT ERROR

(&)

08-NOV-77 08:30

30(1046)

[w]

:ZRJuB e11

MACY11l

JGB0,RPOY-5-6 DSKLS CTRLRI

034270

012706

001000

MOV

034320

012700

001652

MOV

034326

052777

000040

034302

€360

034324

5353

034334

5361

ééég

004737

012005

013777

gggg

034342

013777

§368

034350

012777

£370

034368

012777

E3£9

034356

042614

001779

148274

<n0)+ RS

:RS HAS ADDRESS OF REG. UNDER TEST

MOV

8UNIT,aRHCS2

;REINSTATE UNIT NO.

MOV
BIS

#CLR,

RHCS2

.#SET UP FOR AN OPERATION (WRITE HERADER AND DATA)

MOV

SWRIFOR, JRHCS1 '?fi’}ficgE“DER AND DATA=62

177766

145254

MOV

--19

000010

145252

MOV

oeni
anucsa
ornféa IRHOF

002110

03440€

005077

145240

034412

004037

043306

(034420
034422

003154
00001e

001640

18:

2§:

:CLEAR DISK

145270

012777

034416

RESET STACK

PCaocsgxsx

002084

145250

€371
034372 052777 000010
145236
§372 034400 012777
010000 145242
gggg
ggzs
§377
€378
£379
ggg?

#STACK, SP

JSR
145302

PAGE 136

ERROR REGISTER #1-BIT 4 -FORMAT ERROR

6357

§358

I11

MOV

BIS
MOV

SRHUC

Rbfl annan

CLR
JRHC
. ¥SAVE REGISTERS
JSR
RO, 28SAVER
RHCS 1
REINTO

:10 WORD

US ADDRESS
= WRFROM

21RED TRACK=0 . SECTOR=10

aus
ADDRESS xnckensnr INHIBIT
'FORMAT 16 BIT
!CYLINDER =0

; SAVE

FROM

'T0
!NUMBER OF REGISTERS SAVED

€382

; ¥NOW_THE_COMMAND 1S GIVES TQ

gggg

! ¥HRS PASSED

§383
5384

'¥WRITE HEADER AND DATA FOR CYL=0, SECTOR=10
'¥TRACK=0 1T COMES BACK AFTER ONE SECTOR

£387

€388 034424
034432 012777
005277 000001
145202

145226

gggg

034436

012715

177672

£33]

Q34442

0S2737

000001

INC

SOMD, JRHMR
JRHCS
1

003174

BIS

003176
003176
003154

BIC
BIS
BIS

08:3}NT042 :8ET RMR IN SAVED REG. RHERI

3393
€395

034456
034464
Q034472

0942737
052737
052737

000200
040000
000001

MOV

6392 0344S0 0852737 000004 003156
€394

MOV

8177672, 3RS

:SET _DIAGNOSTIC MODE
;GS
TO RHCS1 WITH 62

-T§Y
u:érx?g ALL BITS EXCEPT

,@BREINT0+20’ ;SET DMD

BIS

M RR

nro+ss
;CLEARORY TN RHOS
NTO+
'SET ERR IN RHMDS1
INTO
:SET GO IN SAVED REG. RHCSI

§ggg 034500 042737 000200 003184

BIC

5333

' #SAVE

REGISTERS RAGAIN SO

JSR
RHCS1
uarnon
14

RO, 98SAVER

€398

€401
€402
€403
E:gg

034506
034Sl2
034€14
034Sile

004037
001640
002110
00001E

043206

§40¢

€40

€408

€403 2420 113737 003173 002127
d‘ -

nno?anncxnro

:CLEAR RDY BIT

;#AFTER AN ATTEMPT TO WRITE INTO
A

UPPER BYT

130 ERATION T

IN SAVED REGISTER RHMR

srsn

THAT QoMPRRES CEN BE DONE

: SAVE
!FROM
)
: NUMBER

nung CAN

BE_CHANGING IN
A DUAL PORT

uppen YTE o nuas WILL ae (SAVED A" 1S

#S0 THAT THE COMPARES ARE
ONLY VALID
FOR THE LOWER BYTE

hove | SEREINTO+17, anunrnon‘x? SAVE uppsn RHAS

176

08:54

& ]

08-NOV-77 08:30

_08-NOv-77

CIRIGB.PIL

MACYL1l 30(104&)

C2RJGBO,RPO4/S
-6 DSKLS CTRLRI

'-4‘4

I "

¢ R GBO,RPO4-/5-6 DSKLS_CTRLR1

08-NOV-77 08:30

LL L

UMY 0 s bt st Pt s o s e
- OO
NV LW~

uTnnIiIININIIUI fi

CZRIGB. P11

MACY1l 30(;0“6)

08:54

; *COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH AFTER

JSR NTO
REIN

L L

043510

RO, a#COMPAR

43:

047620
001636

g34s62
034564

042264

PRR
g

aurrsn

WRFROM

TES

49
43
5§
MOV

n:ruan FOR ERROR
: SAM
:RETURN FOR GOOD COMPARISON
csrrznc READY TO INDEX

14.

L LLS

S422
S423

J11

PRAGE
RHER1 - BIT #2 - REG.
HOé?FICflTION REFUSED
02-NOV-7?

ADD

MOV
ERROR
RTS

NUMBER

ERWORD, RS

RS, RS

WORD
BLE ERROR

RHES1-2(RS), acnsénon
REG. ADDRESS
OF REGISTER
tTSLING
|PC
cunu*;o u* H
;AN

07292R§TE
EMP

;:THE FOLLOWING CLEAR MAY se%THE ATA BIT BECAUSE GO 1S HIGH
034568

004737

Q42614

S8:

Ysr

PC,28CLDISK

: CLERR DISK

SECG 0139

CZRJGBO RPO4-5.-6 DSKLS_CTRLR!
211
08-NOV-77 08:30

CZRJES.
S433

S434

S43S

MRCY11l

30(1046)
177

08-NOV-77

RHER1

08:54_

Kll

PAGE 138

- BIT #2 - REG.

MODIFICATION REFUSED

CZRJGBO,RPO4-/S6 DSKLS_CTRLRI

CZRIGB. P11
S439
S4N§0
Su4
1
Su442
443

08-NOV-77 08:30

MACYLl 39(1046)

101

OS’NOV-?7

08:54

ERROR REGLl - BIT

L1l

_PAGE 139

#7 - HERDER COMPARE ERROR

SEC Cidl

C2ZRIGBO,RPO4-5-6 DSKLS CTRLRI

CZRIGB.P1L
SysY

08-NOV-77 08:30

MACYLl 30(1046)

T103

08-NOV-77

08:54

M1l

PAGE 140

ERROR REGl1 - BIT #7 - HEADER COMPARE ERROR

OO0

RPOY-S-6 DSKLS CTRLR1

P11

08-NOV-77 08:30

MACYIl 30(1046)
Tl

_08-NOV-77

08:S4

PAGE 141

ERROR REG.1 - BIT #7 - HERDER COMPARE ERROR

SEG 0143

RLRL0
GE0,11RPOY/6
C2RIGE.A
7 08:3
OV-7S_CT
08-NDSKL

SERI

S4S4
Suss
5436

138ER COMPARE ERROR
4 #7PAGE
71 08:S
08-NROv-7
MACY1l 30(1Q4e)
HEAD
BIT
REG.
ERRO
=

Yi07

SEG 0144

08-NOV-77

RHER]1

- BIT

cle

_PRAG s 143
#8 - CRC E RCR (RERDING)

08:S4

39 ( 1046)
1 10

MACY11

C2RIGBO,RPOM /5.6 DSKLS CTRLRI
CZRIGB.PLL
08-NOV-77 08:30

0,RPO4-5.6
g DSKLS CTRLRL
Pl
08-NOvV-

MACYL1l 39;%?45)

0 -NOV-77_08:54

TST

wn
o]

888 888

gumunmmu

ettt
Sy g

036334

4s:

PAGE 144

RHERl1 - BIT 8 - CRC ERROR (WRITING)

; #SET UP FOR THE

062036

Dle

BEQ
BR
JMP

SEG Cl4e

TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING

ggRPO&; MOVE RPO? FLRg TO ITSELF TO TEST
33

TREAT DRIVE AS RPO4
; TREAT AS RPOB
- DO NEXT "MAKECL"TM
& TEST

a80S1,-(SP)
#PROG . (SP)

:cer RHDS
CLEAR PROG

800G

‘DO SECOND FOLLOWING “MAKECLTM AND TEST

sLST!OPR!DRY! VYV, t€P)+: 18 *LST’ HIGH ?

13
; BRANCH TM IF “GOOD
JWRHDS1, JWREGADR ;FAILING REG. nooness

Q42264

!DRY ;GOOD DATA
' VV, akSGDDAT
LST!DPR

001ile4
001126

98DSi,9#8BODAT ' ;BAD_DAT A’
NOT SET AFTER
LST’ DID
;LAST S%CTOR ON LAST TRACK
SN CYLINDER WRS

‘WRITT

00ie40

036324

Ss:

2WRHCS1.2868

000137

037000

(SET UP "WATTM SUBROUTINE
RMCS1
ADDRESS

es:

036330

PO BT w6 MAY OR MAY NOT BE HIGH
READY

:oon T DO THE RPOY 'LST'

TEST FOLLOWING

CZS}GBO RPO4-5.-6 DSKLS_CTRLRI

GB.P11

W—-OWwoO
NN EWNN~-0O

nunuinuiniuniuniuivinuiv
i
N O A 1 L el
ol el

5439
SS00
SS01
SS502
5503
SSO4
SS0S
SS06
5507
SS08
SS09

08-NOV-77 08:30

MACY1l 30(1046)
Tl

El2

08:54
PAGE 145
R0 -NOV-77
HDS1 (BIT #10) - LAST SECTOR TRANSFERRED,

'LST’

DOG:

036334

4$:

036762

036764

000200

001736

Q42264
00lle4
001128

001640

036774

a8DS1,-(SP)

csr RHDS
1

IS 'LST’ HIGH ?

LEAR PROG BIT

VYV,! tsp)¢
sLST!DOPR!DRY
#PROG . (SP)

5
AIT FOR 'ROY’ IF GOOD
J8RHDS1, AWREGADR' ; FAILING REG. ADDRESS

oLsr'oPh-onv-vv abscoonr ;GOOD DATA

aoosx J#$BODAT ' ;BAD_DATA

:7LST’ DID NOT SET AFTER
,Lnsr SECTOR ON LAST TRACK ON LAST
;CYLINDER WAS WR ITTEN - 'vv' BIT s&
iMAY OR MAY NOT BE HIGH

£%:
e3:

J8RHCS1,adu68

;SET UP "WATTM SUBROUTINE
;RHCS1

RDDRESS

iWAIT FOR 'ROY' BIT

SEG 0147

<RJGBO,RPO4-5/6 DSKLS CTRLR1

CZRIGB.P11
5524
5525

08-NOV-77 08:30

ssag

037000

528
529
8630

8;7 14
037
037024

004737
004037
0S1416

gggg

037030

000000

6527

8631

037002

037026

012706

MARCYLl 3(TJ ( {8’45)
1

CAT:

001000

042614
042532

052442

037032
037036

005737
001404

002036

SS40

037040

037046

000403

012737

011456

047500

543

0370S0

012737

010632

047500

SS46&

037056

112737

047503

SS48

037072

005037

047504

€550
8551
8552

037102
037110
(37116

012737
012737
004537

000400
000001
044022

8547 03706M 112737 333335 047502
5563
EEEE

037122
037124

005037

047500
0S1900

#STACK, SP

nessr STACK

TOLGAP+16

JSR
J5R
.WORD

PC, a8CLDISK
RO’ aoCLnREn
DISK

WORD

NIT AND SET UP GENERAL REG. CORRES.
LEAR SIMULATED DISK
.rOM

:DATA

047506

J8RPOE
108

MOV

#814. 'FMT22, aoch chxngsn 814.,

16 BITS PER WORD

108:

MOV

ouxo.ernrae.aoch-cvk "85“ 410.,

16 BITS PER WORD

11§:

MOVB

#18.,3%SECOTR+1

; TRACK 18.

CLR

821. JWSECOTR

ISKEY ]

IWKEY2

iKEY1 O
:KEYZ O

CLR

047546
047510

MOV
MOV
JSR

cYL
WCRC

;MOVE npos FLAG TO ITSELF TO TEST
TREAT DRIVE AS RPOY IF
= O

118

;YREAT
.

#256. , J8NOWORD
81,k
RS, 2#CRC

DRIVE RS'RPOB
DRIVE ARS'RPOM

;SECTOR 2i.
:NO OF DATA WORDS
'WRITE DATA
:GO T0 CALCULATE CRC

; #THESE ARE REGULAR SETUPS

5568

037126

004037

5560

037134

003110

(37132

8561
5562
5563

837133
71
037144

SSeb

037164

€54
037152
S565 037160

002110

042532

JSR

WRFROM

880377
N737
813777

177272

142460

1127

0022

000001

012777
012746

RO, 38CLARER

WRFROM+ <256 . ¥2>

110
142454
25

037172 012677 142446
€5e7
§§2% 037176 012777 010000

142444

€570

-FILL WRITE BUFFER WITH 377
13
FROM

377
JSR
MOV

PC aoCLoxsx

HIWC

E
ETUP csnennL REGISTERS
3;& ?n A WORDS

MOVR
MOV
MOV

1¢(5
anuogF
gp)t
SFMT22, IRH

Rfl# 18.
2i. TRACK 18.
iSECTOR
116 BITS PER WORD FORMAT

MOV
MOV

'ué

ofignuan
cax -(é

:STARTING
ADDRESS OF WRITE BUFFER
;szcron 21.

:#CHECK TO SEE WHAT TYPE OF DRIVE IS BEING _TESTED

Eg;

:#AND LORD CYLINDER RDDRESS REGISTER WITH THE PROPER NUMBER

€€73
EE74

(037204
037210

gg;g

037230

EE7S
€76
EE77

MOV

1ST
BEQ

EEE?

€569

PAGE 146

‘#AND WILL HANDLE RPO4 OR RPOE DRIVES

6537
gggg

5549

Fle

: #THESE ARE TO SETUP FOR DISKLESS USE ONLY

gggg

Eé:g

08:54

RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, 'LST’

"WORD

5534

Eé:é

08-NOV-77

037512
027220
037222

00S737
001404

015777
0O qo;
012777

002036

001456

142432

000632

142422

2
BEQ

12%:

138

MOV
BR
MOV

J8RPOE ; MOVE FLR?
TO ITSELF TO TEST
12%
AT AS RPOY IF = O

#814. , JRHCA
138§
#410. , JRHCA

chxuoen 814,
: TREAT AS RPOG
:CYLINDER 410.

SEG Ci4e

JGB.P11

08-NOV-77 08:30

iU 1‘

'AN]

RJGBO,RPO4/5.6 DSKLS_CTRLR1

037256
037260
037262

ggqr

037274

001407

(37276

012737

§80

ggé

037242

037246

013711

005037

MACYLl 30(1046)

T116

002062

6§85

CLR

ggg

Q37252

004037

001632
00315
000023

043306

JSR

RHWC
REINTO
19.

5599

S600
5601

gggs
5604

037264
037270

0237304

004737
005737

012737

037312

000406

037314

012737

037322

5609

037330
03733

047340

JSR

002040

177702

003130

177774

012737

003314

0S2737
042737

000200
000100

15T

003154

003i%e
003154

003156

003160
003160

Se10
0373494 osa7g7 140000 003162
8611 037352 012737 001000 003164
Sele 03736C 017737 142260 003166

B8%:

9%:

RO, 38SAVER

PC, 238COMHD

ROE

SEG 0149

:WRITE DATA=60

:CLEAR ERROR FLAG
: SAVE

: FROM
170
:NUMBER SAVED

:WMRITE DATA COMMAND

J8RH70

;CHECK FOR RH70 CONTROLLER

MOV

#-76,I8REINTO

;SAVED RHWC SHOULD BE
= 76 (OCTAL)

037366

037372
85;353
037404
037412
037420
037426

00S737

001404
868585
012737
013737
062737
082737

002036

001457
000633
002016
000001
142000

003174
003174 148:
003200 IS§:
003202
003204

:SKIP RM70 CODE AND DO RH1l IF NOT

SWRFROM+ ( 2#256 . >&<a

)

> , @8REINTO+2
SHOULD BE WRFROM+256+8

-sxx

MOV

8-4, ISREINTO

:SAVED RHWC SHOULD BE
=

MOV

BIS
BIC

BIS
MOV
MOV
TST
BEQ
SSV
MOV
MOV
BIS
BIsS

RH11 CODE

SWREROM+ ( 2%256 . >&<a;55 >, 98RE INTO+2
OR, 38RE INTO+4
oxn gons NTO+4

VED RABA SHOULD BE WRFROM+256+66
;snv D RHCS2

:SAVED RHCS2
c!
)
xnrots
vs R
RHCS1 SHOULD
SHOULD ans
"SC’ & “TRE’
onos FSREINTO+10
HAVE 'AOE"
IRHDST, JIREIN70¢1£hgfl
VED T SHOULD HAVE=

:#AND SET UP CYLINDER

OF DRIVE

IS BEING TESTEC

RESS ACCORDINGLY

28RPO6

;MOVE RP
anc 10
ser T0_TEST
148
0?
ageaso
0
fg§5aonsxnro+ao?snv
D DESIRED chxNosn ADDRESS
#411.,a8REINTO+20;savsogesxnso CYLINDER ADDRESS
AWATTENT,
SRE INTO+ u saveo RHAS SHOULD HAVE APPRO. BIT
sDMD
Rt?nro+as
RHMRSAVED RHDS!
cnrn'enn'Lsr aontxnro¢3o;

:#AFTER
A WRITE DATA COMMAND WITH *ROE’

2253

€632
SE33
§E§2

JSWRIDAT, AR1

IBERFLGS'

;#CHECK TO SEE WHAT TYPE

ggig

€31

147

BEG

MOV

8615

Sc18
€619
gggg
gggg
Se24
8625
ggsg

PAGE

- BIT #9

: #*CHANGE SAVED REGISTERS TO EXPECTED VALUES

5605

Eggg
5608

Gle

;#GIVE WRITE DATA COMMAND

§3§

6596

s:su

;#THE REGISTERS WILL BE SAVED IN REINTO BUFFER

53?
D

ERROR REGIST
MOV

(02006

§33

86
587
ggg

gs
ov-77

ERROR

' #SAVE REGISTERS RGAIN SO THAT COMPARES CAN BE DONE
037434

02744
03744
C237444

004037

goxeaa
021:0
000021

043306

JSR

RHWC
WRFROM
17.

RO, 38SAVER

: SAVE

:FROM
170
=
'NUMBER OF REGISTERS SAVED

08-NOV-77

08:S4

PAGE 148

ERROR REGISTER 1 - BIT #9 ROE

5636

: #AS UPPER BYTE or nnns CAN BE CHANGING IN A DUAL PORT

gggg

:#50 THAT

8637
EE:?

.opsnnr*o HE
027446

113737

003201

002135

MOVB

5642

037454

004037

043510

7.
i$

gggé

03747
03747

37474

5657
gggg

037512

000207

ggg?

037514

00S037

002006

18:

MOV

2%:

ERROR
RTS
CLR

S662

ggfig

S66S

Sebb

8667

037520

037524

004737

012700

042220

000377

Ny
MOV

RO, 38COMPAR

-conpnns

sg
OF nzcxsrsns

RETURN FOR ERROR
2ane

ETURN FOR GOOD COMPARISON

nsauono RS
TTING READY
INDEX
AR
BBUBLE
S“R
uo8
nnfic~2(RS), aonechonrnxL
ADDRESS
PC

ggno: snnon CAUSED IMPROPER
necx
CHANGE
Ng Enuorgn FURTHER COMPARISONS

J8ERFLGS

:CLEAR ERROR FLAG

0375

001424

2273

014 37

037552

010037

001124

83;1 &

83 74
76
037600
037602
037604
037610

%90‘4
0i
10400S
721
017746
0OM271E

SEBE

027622

€30

EEE9

037e2e

037614
027620

022726
0014C2

§E§§ 837855 B833%¢

141330
177177
200

PC, 38PUTREG

nv
CMP

RO,(R1)+

MOV

RO, 38SGDDAT

MOV

BEG
MOV

2678 8375?5 685537
€676
001002 02080
5§77
5678
5679
Se80
681
SeB2

JSR

MOV

012701 0S1416

S671

€83
gggg

THE LOWER BYTE

:#DATA IS TO BE CHECKED HERE

2069
037290 015795 000460 047620 38 ;
70 037546 020021
Se72

FOR

JSREINTO+25, J8WRFROM+25;
SAVE UPPER RHAS

37514

&
79474
7
047620
2627
83000
Db3L0E
SeS5 (037502 016537 001630 042264
SeS6 037510 1G4001

OF nnng NIL% gs SAVED RS IS

ONLY VALID

‘#WITH AFTER COMMAND

?sqa
§3?4§5
558651
8649
037466 037474
S6S0

R BYTE

COMPARES ARE

: *COMPARE REGISTERS BEFORE WRITE DATA COMMAND

2233
S64S

THE

728
BNE

4g
c§

RROR
;Rnon
MOV
BIC
CMP
BEG

£%:

78:

DEC

BIE

8377 RO

ooxsk Rl

:SAVE REGISTERS

:GOOD DATA

onrn WRITTEN INTO "DISK"

.SEE 1. —— Sonp%as
thR coooSnra WITH DATA ON DISK

68’

annncu xr GOO

“hé Sogsgonr

'-0
[
(R1)+
JSWR, -(3P)
21772177 (sp)

s ON i DATA COMMAND NITH FORCED °'ROE’
RANCH TO AVOID PRINTING NEXT ERROR
{WORD NO. cxvga
uono xn ERROR
uno -(R1) F
D DATA
'GET SWITCH
xnc
KEEP ONLY suxrcn 7 AND 8

a.tn?fcs

GOOD

'nu
naong ES
RUREADY THERE?
RRNE

#SW07, (5P)+
73

:1S 7 SET AND B RESET
:BRANCH OUT IF YES ==-=m=-=—emeee—e——- 3

:IF NOT COUNT 256 WORDS

i BRancy TP Bee RoT DORE

n
(&)

T116

(&)

MACYL1l 30(1046)

08-NOV-77 08:30

[

CIRIGBO,RPO4-S-& DSKLS CTRLR!I

C2RJGB.PIL

ol
B PEROEIBARRLEAE

MOV

#STACK, SP

JSR
*GIVE

fiov

000001

BIS

xnosx

BIC

177400
003154
141672

141700

010000

MOV

REGULAR SETUPS

onsxurb RO
RO,JRHB

;256 DATA

MOV

8FMT22, (RO)+

Eofnnr-xs BIT WORDS

RO)+
cno)+

-x Y1=0
ve-o

000400
1772777

ggg

TRfléKESO gscron=0 KEYS=0

#256. ,RS

: COUNTER

‘MOVE ALL ONES FOR DATA

RANCH IF

DATA NOT COMPLETE

MOV

812000, JRHDST

MOV

J8REFOR, aR1

;GET READY FOR WRITE HEARDES ANG

CLR

JRERFLGS

;CLERR ERROR FLAG

MOV
CLR

RACK=20 SECTOR=0

:DATA WITH B2 IN RHCS!

ornraa.anuor
JRHC

*THE

REGISTERS

RHWC
REINTO

WILL

RO, 98SAVER

19.

;#G0

SS REGISTER

: BUS

3;1 (RO)+

BNE

WORDS 4 HEADER WORDS

i THESE TWO Iusrnucrxons GETS
:ADDR, OF WRFROM INTO RO AND

llEOOO,(RO)#

MOV

141620

; CLEAR INDEX

#-256. , IRHWC

CLR
CLR

002070

:SET DIAGNOSTIC MODE

{SET INDEX

MOV
MOV

MOV

141644

LSE

$MINX, JRHMR
ARE

STACK

:CLEAR REGISTERS AND SET UNIT NO.

onxnk JRHMR

; #*THESE

012000

:RESET

PC,ancLDISK

MOV

B1¢
MOV

#CHANGE

MOV
MOV

BI
Bl

BIT=1
=0

SAVED

REINTO

: SAVE

(16 BIT WORDS)
BUFFER

:FROM
1710

:NUMBER SAVED

TO WRITE

MOV
BIS

:FORMAT
-CYLINDE

HERADER AND DATA

J8RHMR, RO

#0OMD, R0
8GO, dRHCS

:NOW RO WAS MAINTENANCE REG.

:SET DIAGNOSTIC MODE
:GO

V$Sz"§
n§ 3§
aohs 5010
RHE
sn

GISTERS

xpecrso anu:

oxs éh?'
EINT+6é
snon RHDST
+é~snv Hns

#0MD
20R£INTO¢2? 3
onra' RR, 98RE INTO430 snvso RHDS|

ARDDR.

(&)

Ile

08-NOV-77
08:S4
PAGE 149
ERROR REGISTER 1 - BIT #9 AOE

MACY11

001000
04eelY

[0 [ [y ==
WM
NNNNNN
Wwwwww
NNNNNN

OO0

08-NOV-77 08:30

wn nununNIIANTNINIVIIvVIivY o
~ SN I INIINININNNN 3=
nPUNUN 0= 8 = 0t bt Pt ot Pt s s [
w N~ OWM NN LW &)

riry

NANEEEReeRRY £
B2

GBO TPOH/S DSKLS_CTRLR1

CZ:}GBO RPO4/5-6 DSKLS_CTRLRI
08-NOV-77 08:30
i
GB.P11

579
5;48
SLQQ
7S0

§7S1
S7
5:53
S7S4
S7SS
£756
5757
7S8B
5759
S760
S761
57
S7
S764
5765
766

S7&7
5768
5765
S77C
S77
g77e
773

S774
E77E
g?>7

€777

040134
040136

040140

004037
2

MARCY1l 3? (1l 046)
12 0

08-NOV-77
08:S4
PAGE 150
ERROR REGISTER
1 - BIT #10 'IRE’
#*SAVE REGISTERS AGAIN SO

3Suc

C43306

RO, I#SAVER

WRFROM
19.

000023

113737

003201

THAT COMPARES CAN BE DONE

ggog

;70
iNUMBER OF REGISTERS SAVED

:#AS UPPER BYTE

(040142

SEQ Cise

OF RHAS CAN BE CHANGING

IN
A DUAL

PORT

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

fove

00z213%

JWREINTO+25, IsWRFROM+25; SAVE UPPER RHAS

; *COMPARE _REGISTERS BEFORE READ IN PRESET COMMAND

040180
040154
040156
040160
0N0162
04014

C43S10

040170
040174
040176
080204

047620

{EWITH RFTER COMMAND

Ysr
REINTO
WRFROM

RO, 98COMPAR

17.

NUM

00le3C

2%:
O422eH4

MOV
ADD

MOV

ERROR
RTS

0D4020e

OF REGISTERS

'RETURN FOR ERROR
: SAME
'RETURN FOR GOOD COMPARISON

23
23
33

040166

; COMPARE
:GOOD BUFFER
TEST surrs

8ERWORD, RS
RS, RS

csrtxuc READY TO INDEX
DOUBLE ERROR WORD

FORLED xne CAUSED IMPROPER
‘REGISTER CHANGE
'RETURN FOR FURTHER COMPARISCNS

nafic 2(RS), annzchon FAILING REG. RDDRESS
:NO ERRORS

0M0e210

o4celY

3%:

JSR

PC,a8CLDISK

:CLEAR GO BIT

c <RI

0, RPON4 /S ® DSKL
CTRLRI
P11
08-NOV-77 086:30

83!!28

¢ <RJ

MRCY1L

3 0« 1 0 46)
Tl e 0

08-NOV-77
O :5
PAGE151
ERROR REGISTE
- BIT #10 'IRE’

Y4
S7
s781
s7
s?
S784

AoV

BIC

MOV

BIS

§?8?

5“91

8733

010000

#DMD, IRHMR

EET ?gggNOSTIC MODE

sMINX. SRHMR

:CLERR INDEX

onxnk JRHMR

G20
OO 3
012777

00002¢e

013711

002064

00S037
012777
00s077

002006
1

£0

-0
Lo

012720

000400
177777

MOV

"253

18:

141312

141266

;ae DATA

MOV

oFHTEE.(RO)#

CLR

RO)4

IKEY]=

ggg

3-1 (RO)+

:MOVE ALL ONES FOR DATA

BNE

MOV

JSWRIFOR, aR1

CLR

JSERFLGS

nunr oflno

MOV

000026

CLR
MOV

g
:

INTO
RO AND

onnnrzés BIT WORDS

IKEY2=
: COUNTER

RANCH IF DATA NOT COMPLETE

822. ,dRHDST

MOV
CLR

WRFROM

noonsss REGISTER

5$zkéx£5. gecron:aa. KEYS=0

(RO)+
#256. ,RS

MOV

4 HEADER WORDS

SE ruo rnucrxons c:rs

oaa. (RO)+

RACK=0 SECTOR=22

SET RER?
TR W
H 5

SFMT22, JRHOF
dRHCA

lflS
EXCSPTION

HRITE HEQDER AND
IN R
FL G

FOR
NogaT-é (16 BIT WORDS)
;CYLI
=

S ASSERTED BEFORE RUN_IS

CHE

.on3?§$£RHW
Rsu$&#s3AS$ oE#EES:SS"fiSONBEnTE DEEQ\S
04330&

< ¥THE

Ysr

nscésrsns WILL

RHER]
REINTO
13.

RO, 98SAVER

SAVED

: SAVE

IN REINTO

BUFFER

: FROM
110
iNUMBER SAVED

; #GC TC WRITE HEARDER AND DATA

O
oo,

806

§§§§§§;:;m:;;:5383§;

INDEX PULSE

MOV

141340

012720

g
@ ® R U
8 RN *
26

;CLEAR REGISTERS AND SET UNIT NO.

; *THESE RRE REGULAR SETUPS

5789

;RESET STACK

PC, aoctgxsx

: #GIVE

578S

S800
S801
802

#STACK

JSR

EG 01S3

MOV

DORHHR RO

shvso
'§§=-§'§?~73¢e
8.N*o’én
chueieg,snvso
B85RHAS

BIS
BB
MOV

A
MOV

BIS

sATAR'ERR, JSREINTO420
;snvso RHDS!

;

140000

OW
RO HAS MAINTENANCE REG.

SET DIAGNOSTIC MODE
;GO

*CHANGE

BIS

SAVE

IsATEN

ISTERS TO

#0MD ont NTO+1$

EXPECTED

véD

VALUE

RCDR.

004037
001642
002110
000015

MRCY11

30(1046)
Tiel

08-NOV-77
08:54
PAGE 652
ERROR REGISTER 1- BIT #10
'IRE’

unéaén
: #AS

0, J8SAVER

UPPER av;E

: #OPE nr;on THE

o40s1e

o40See
O40S30

003171

*50

hova

g0elz2s

¥sR

043510

0"
iNUMBER OF REGISTERS SAVED
nnns nn

UPPER
B

OMPARES an

cuauclnc

REINTO
WRFROM

RO, 38COMPAR

ONLY VALI

Q42264

MOV
ADD

MOV
ERROR

RTS

o40s32

IN PRESET

042el4

3%:

JSR

COMMAND

coog BUFFE
TEST
BUFFER

FOR ERROR

3nsruau FOR GOOD COMPARISON
Sosnuono,RS

TTING nggv
TO INDEX
;
WORD

Rntnx-2(RS), a-nscnon
LING REG. ADDRESS
Eo ne CAUSED IMPROPER

RE
uan ronrug$nsn COMPARISCNS
:NO ERRORS

O40E24

ron HE LOHER BYTE

; COMPARE

;

k13
2s:

PORT

.NUHBE oF REGISTERS

047620

IN
A DUAL

WILL as SAVED AS IS

J8REINTO+15, 98WRFROM+15; SAVE UPPER RHA

13.

001640

: SAVE

.conpan Rscxsrsns BEFORE READ
:#WITH
AFTER
COMMAND

0S0e
O40S04
040S06
040S10

WL
=)
e pe s = VW)
LE00LN

Q40500

113737

288

040466

SEQ Q1S4

#SAVE nscxsrsns AGAIN SO THAT COMPARES CAN BE DONE

¥sR

043306

222
AR

OO0

0,RPO4-5.-6 DSKLS CTRLR]
P11
08-NOV-77 08:30

PC,a8CLDISK

:CLEAR GO BIT

)

; mmmgmmmmmmmmmmmm
S
388 &RotR2& §R
L SR

O,RPO4-S/6 DSKLS CTRLR!1

N LEWh-0O

08-NOV-77 08:30

Q40S42

040554

012706

004737

MACYll

30(1046)

Tial

001000

JSR

s
e Pt
e Bt Bt

08:54

PRGE

#STACK, SP

PC,3uCLDISK

*GIVE IN)EX

Quosee 012777
0ss777 000001 141068

fiO
Bs

Bubess GR5777 BBOOGM 14iBke

153

SEQ ClES

;RESET STARCK

;CLEAR REGISTERS AND SET UNIT NO.

SET DIAGNOSTIC MODE

IELING,

; #*THESE ARE REGULAR SETUPS

0{2;77

177u?8

8382;u 815099 1&1614

141022

040620 012705
000400
012720 177777

040624

82§§32 88?393

gos

n8v

18:

MOV

JURIDAT, 3R

J8RPOE ; MOVE an$ T0 ITSELF TO TEST
4s
REAT
VE RS
RPOY IF FLAG = O

013711

002062

640550 00S037 002006
040664 012777 010000 140756

CLR
MOV

8:8272
76

005737
001404

002036

15T
BEQ

040700

012777

001457

140744

040710

012777

000633

140734

MOV
W4S:

Eggggs gépéecngégflgo Sng

oo..anuosr

040654

#256. ,RS

& ¥eno£nc

MOV

BNE

000000

000403

RO, SRHBA

;;ss oa

5'1 (RD)+

012777

040706

(41002

:—essofianuuc

MOV
ggg

040634

Ecounrgé
.
;MOVE ALL ONES FOR DATA

RANCH IF DATA NOT COMPLETE
RACK=0 SECTOR=0

J8ERFLGS
SFMT22, JRHOF
#815. , JRHCA

gs n?v FOR WRITE

AR “ 60IgcRHC51
osna
BIT:I (16 BIT WORDS)

: TREAT

chx

R = B15

MOV

#411.,3RHCA

‘?nks
:

R = 411 (ONE TOO MANY)
IVE RS RPOM

.as EXCEPTION

iL TCHED RHHC

IS nsssnreo asr

,RHCS1

(ONE TOO MANY)

DRIVE AS RPOG

CANNOT BE

CHECKED

*BEC
RHIW * VARY b£P£ ING UPON cars oEans
#ON DIFFEREN

040712
04072

040724
040726

037 043306

5§:

1642

003154
00001S

¢7u£ REG srens WILL BE SAVED

RHER1

5 5

REINTO
13.

; SAVE

IN REINTO BUFFER

: FROM

170
:NUMBER SAVED

:#G0 TO WRITE HERDER AND DATA

s B
B

n
'y

0B8-NOV-77

ERROR REGISTER 1- BIT #10 'IRE’
MOV

042614

DO
WD D DO DD

I
D

P11

oug;gg

oxg;oo

040746

012737

0740

040784

012737

00533?

830001 140672
002000
00000!

002154
0031%e

noz

28RHMR, RO

ogo 58*851

#CHANGE SAVED REGISTERS

fov

MOV

nxns 8RE INTO

Sgggggs??éN;532NCE
u
REG.

TO EXPECTED VALUE

; SAVED RHER!

,O8REINTO+2; SAVED RHDST

RDDR.

MACY1l 30(1046)

g:ur;s

01 737

002016

883170

Q41004

004037

043306

BRBRROLE00
®
SEE3% 88

RPO4/5/6 DSKLS CTRLR

08-NOV-77 08:3

LW—-0O

W
w

07
040776

—~OWON

PRNRA

FRERESESEs

NINNNNININININININNNINIUININIVNIGY

P11

8:1012

1012
041014

737
737

ooxsus

000001
140000

T122

0B-NOV-77

ERROR REGISTER
MOV

3172
003174

:S4

Nle

PAGE 654

1- BIT #10

'IRE’

JSATTENT ?oasxnto+1w :

BIS
BIS

SEQ 01SE
SAVED RHAS

#OMD, sREINTO+16 ;SAVED RHMR
sATA!ERR, 9sREINTO420 ;SAVED RHDS1

. #SAVE nscxsrens AGAIN SO THAT COMPARES CAN BE DONE

YsR

0, J8SAVER

RHER1

00211
000015

: SAVE

: FROM

WRFROM
13.

70
iNUMBER OF REGISTERS SAVED

; #AS_UPPER BYTE OF RHAS CMOPE CHANGING IN A DUAL PORT

;iOPERRT%ON Tl\% UP&R B‘Y“TQE

041016

113737

003171

ouioau

003923

331333
1
041042

000015
831044
1044
041064

1044

013705

047620

1060

016537
10400

001640

091062

000207

§513§2
1034
1050
1052

110

043510

; & #S0 THRT

002125

COMP

TER COMMAND

RO, 9#COMPAR

§
[
33

MOV

ADD
MOV

ERROR
RTS

;conmnfiFF .

;$28?
EurrER
;ggmgs OF nEcxsrsns

;RETURN FOR ERROR
: SAME
:RETURN FOR GOOD COMPARISON
@8ERWORD, RS

:GETTING
READY TO INDEX
RS,R
:D
aL;
EESOR
WORD
RHER1-2(RS),J8REGADR ;FAILING REG. ADDRESS

;roncgg

:RETURN FOR FURTHER COMPARISONS

'REGISTE

nsflszugso IMPROPER

:NO ERRORS

004737

042614

38:

THE LOWER BYTE

ng; REGISTERS BEFORE READ IN PRESET COMMAND

041064

FOR

; %0

WRFROM
13.

042264

RHAS HBL# SE SAVED AS IS

ONLY VALID

JWREINTO+15, SAWRFROM+15; SAVE UPPER RHAS

gg?uro

2s:

fOVB

-.u??h

THE

JSR

PC,38CLDISK

:CLEAR GO BIT

ELSEES 2

22000 SSEERREERES Sa Jolold

_\DJJ*
-

MACY1l

08-NOV-77 08:30

1195

331100

nnNINININNNININUINIIVY NuINNINIVINININIVIVY
DO
OO0 OO
£
NNN)
ot
W~
0O W

CTRLRI

12737

--1994

’g

30(1046)

T123

17777%

0B8-NOV-??

END OF DRIVE

e tate s

FAGE

155

SEG GlS7

asONIT, -(SP)
%0,PS

;REINSTATE PS T0 O

:GET RERDY TO TYPE UNIT NUMBER

WSERTTL,-(SP)

;GET RERDY TO TYPE NUMBER OF ERRURS

o4ll72
§3{§?3

1094
0 3z§§

oo1112

TYPDS
?ggos

Oansg

833037

00i 102

CLR

J8STSTNM

INSELECT

:STARTING

041230

001413

BEQ

s TEST NEXT onxve

g:xgaa
1236

005237
104401

%NC
YPE

J¥SPASS
NOMG

;;NCRERSE PRSS COUNT
: TYPE END PASS #

Q41246
04125C

109405
104401

1214 éégo

ov12

g4ig4e

041254

041260

737

013

001112

002002

001100

001413

005337

001776

041272
041276

gée7ox
2100

001754

041302

000775

041266 013700 001774
041304

041310

001401

011137

000i37

001774

007540

3s:

IMP

J8TSTS

SENULL

DEC

2%:

; ##HERE

.-on

;

;uIF

; #%#THE

; ##TEST
; #2

THEN

IF NOT

:NO. OF UNITS PRESENT DECREMENTED

$EOP

; BRANCH

SUNITS RI
(R1)+,R0

:
TRBLE
,xs HIS UNIT JUST TESTED

gnNCH _IF NO

MOV

JSUNIT,RO

BEQ

MOV

(R1),@8UNIT

B8R

210 ?

;00 NEXT TESTS ==--o-coomcomccmceeaae )

8NOUNITS

MOV
CMP

18:

FROM

iCONTINUE ON THIS ONE IF SO

J¥SPASS,
- (SP)

BEQ

CLsnn rornL NUHBER OF ERRORS
# 5 ng

MOV

TYPDS
TYPE

041416

007540

Q41264

041300

737

ggxxoo
1421

000137

INSERTTL

TUNIT uuée

Q#L
DRIVES COMPLETE

iBRANCH IF YES

HIS IS NEXT UNIT

IMP

asTsts

. SSTTL
.SBTTL
.SBTTL

##%#SUBROUTINES#*##

:G0 FOR NEXT TESTS ==-=m===eecemeeaaa- >

;§ n o ExPLnxuavxou OF HOW THE LOOP ON ERROR WORKS.

xuc

on ERROR SWITCH IS SET, THE
K TO THE BEGINNING OF THE TEST.

' RAT OlééELgc T %Eécc
LOOP
IS USED T THEN THE THE P POINT

l'll

HOOOOHOOOO

Bl3

MOV

T
..fil‘
Hcg

Pr s s Pt Bt et e e ()

08:54

TNV %

OO0

RPO4/5/6 DSKLS

l‘I'EPO;
H-E
"PROGRAM CAN GO ARE: §
?CONSIDERRTION

AM W L§£

(f‘

HIN THE

WITHIN

T TH S
RCK

TEST I.N)ER

OPERATIO

TOR

TEST UNDER CONSIDERATION

L CT

S LE

; #ECOMES TC THE Em HE TE5 LR CONS;D an

Ioe

uflFTER LOOPING F

CONSIDERQTION

F_LOOP ON

COP LOOP IS USED
OIN

WHEN

OME TIME IF THE LOOP SWITCH IS PUT DOWN THEN

; ##NORMAL OPERRTION WILL CONTINUE.

Fab

&8 44
oo &8

0,RPOM/S-6 DSKLS CTRLRLI

P11l

08-NOV-77 08:30

041436

000000

831448
1440
00S037
§§i < °634
1
13746

MACY1l 30(1046)

08-NOV-7?7

END OF PASS ROUTINE

PAGE 156

177776

002032
001110

OPERSEL :

CLR

?ggoc
MOV
rvpgc
TYP

00 e
10“;12 "
ouaoag §55s§2
§§

R°3CT
§§3cr

042206

012637

MOV

o4e21le

000002

001223

001110

001106

SEG 0ice

;FIRST ADDRESS OF TEST

xs:wga
104401

013746

Cl3

TESTAD: O

831222
1

Q42212

08:54

JNTSTNM, -(SP)
¥SLPERR,-(SP)

;MAKE PROCESSOR STATUS ZERO

GETBE ADY TO TYPE TEST

:GET RERDY TO TYPE LOOP BACK PC

, SCRLF

2, (SP)JWSLPADR ' GET LPADR
#(5#)+
(SP)+, #SLPERR

;GET LPERR

MOV

J#SLPADR, - (SP)

.SBTTL

SAVE REGISTERS ROUTINE

RTI

; #THIS SAVES THE

_CONTENTS OF ALL HRARDWARE REGISTERS

IIN MEMORY LOCATIONS TRGED FROM “WCTM TO "EC2"

0‘0‘8"
(slalalel

NN
W= W0

:gFreERrRas3:Y

05,0
006,89, Creongs g DATA
oo nuunvs
iy s
Locarias
: #ERROR PRINTOUTS FOR GOOD AND
oxrrnsnr
Q45558 8157
0127 1
1632
stegg
1706
o4e2
012702 000023
g42242 013021

Qussue
0013
042256
000207

et MOV
MOV
108:
MOV
BNE
RTS

SRHUC-3 RO
onn¢c-nuuc+a/e néTRRT52 288"523 NE&E
0 R2 SAVED
J(RO)+, (R1)+
shv Hnnounne
ibs
PC

.SBTTL

'35

SOLUTE

2260

000000

MASK :

2264

0000

Q42266

012637

042260

0w2274

0104927

0ow22e4

§saese ggoooo
gw2272

012504

FLOAT 1 AND O

gs AND &

DRESS OF

ZERO THRU
A o;gxcnnrso
nscxsrsa

REG. UNDER

:BITS

LERR:

BITST:

MOV

(RS)+,

MASK

MOV

RY,

REGADR

REGADR:

MOV

TEST IS
I

R TEST

{ERROR HLT ADDRESS
(RSi+.

FETCH DATA MASK

‘GET ADDRESS OF REG. UNDER TEST

079

042300

E076 83;353
O4S310
28%
so;g

010537

0712703
7 I

042262

MOV

900001
53
336

BLTl:

oy
JSR
éEE

BLT2:

AE
COM
MOV

6082

8083 0NN
6084
608S §33eggs §§§;a3
6086
6087
6088

6089

6090
6091

2346
ougasu
042356

0N2362
0Q4236M
042366

777
001411
105737

406

013777

gueaus 042574
001000

JSR

PC, a8STKINT

MOV

R3, 38SGODAT

:STORE GOOD DATA

MOV
COM

(R4),
JWMA

98SBDDAT ; INPUT

BEQ

CHP

gos
18

T, 388800A%;BRANCH
O”E-xs
DATA CORRECT
1F GooD

SRE

ggnue 1,R4

E“S°15L5§p“28$“ TEST RHCS1”

gnz

ggnncsa.nw

iR °§§L‘?F“28$" TEST RHCS2?

MOV

JRY, - (SP)

:GET RHCS2

8IS

(SP)+,388GODAT

SET

001124

giox

042436

835;37
3737
005137
013714

aasg
2260
2260
881124

043737

gggg

5133
335333
E104 042456

001424

6105

2&89

2460

s:gg

1126
2260

BEQ
137242

4§:
001124

001126

ggsggg

€112

042510

E114

042516

£113
B118
2%%9

fggg

1124 001126

001126

MOV

DO1640

0114946

042512

042716

042522
835§§3

4777
388339

332537

001636

gés
2%:

177477

001124

177534

COM
BIC
COM
MOV

838

gigg ggsggg 8353?3 004200 001124
gi}?

i RETURN 10IF NOT
TesT COMPLETE
:COMPLEMENT PATTERN
;SET SC
LOOP
:START WITH AN INIT
:SET UNIT NUMBER UNDER TEST

010337

0114
005137

:BRANCH

SUNIT, JRHCS2

042400

042426
042432

:OUTPUT FLOATING ONE

001774

6094

6099
8100

RE T1
R
#BLT3, JsLAD

R E TSt
UBRTABATTERN
T OVER RTS
:OUTPUT
LOR?ING
ZERO

RESET
MOV

055172

gzaw
2410
2416
Q42422

A3
BLT2
BLT2

:GET ERROR RETURN ADDR.

001103

004737

6095
6096
6097
6038

PC.

LERR

#SWO03
| ISWR
4§
JESERFLG

042374

BLT3:

s
PC.

PAGE 157

BIT
BEG
TST8

gggg

136564

RS,

D13

BIC
3s:
-

£118

Eig?

:LOOPTM ON
:BRANCH IF NO
:ANY ERRORS

;BRANCH 1F NO

‘f§f¥1?35£szfipx~c Lans

J#MASK
:AND MASK WITH PATTERN
I8MASK, ¥SGDDAT
;CLEAR THE REST
SMASK
: RESTORE ' MASK
13
T, (RY)
;ourp¥r 10 R cxsr;a

38MASK , 98SBODAT

(RY) gosgooar

FROM

EQQ%T"“S“"SQ} RECEIVED DATA

5§ov:ova,aoscoonf;sg¥cnov AND DVA
#1C{IRYOR> , (SP)
JLERR

;xsgp 5“ AND OR BIT

JSR
292

PC,
o

.SBTTL

CLEAR MEMORY ROUTINE

. %
‘x
;Q
‘e

THIS CLEARS ANY BLOCK OF MEMORY
FILLING IT WITH ANY DATA

E;gg

‘e

€159

‘e
1 ®

CALL

JeR

RO, CLAREA

OR BITS IF NEEDED

:GO TO REPORT ERROR
5
:REPLACE BY 104420 FOR LOCAL SCOPE LCOOP

gl2e
Elz3
&12'4
£125

El12E

:STARTING ACDRESS OF BLOCK

:DATA TO BE FILLED

FLOAT 1 AND O

0B8:54

(&)

D8-NOV-77 08:30

0B8-NOV-77

[}

CZRIGB.P11

MACY!l 30(1046)

CZRJIGBO,RPOM/S-6 DSKLS CTRLRI

FHEGH-SIBUCREORZE B8

SPY 34
L

e e e e el ol o

e e ey S Sl S Sy SN

ooooooooooocoooooo %%

OO0

O,RPO4/S-6 DSKLS CTRLR1

08-NOV-77 08:30

MACY1l 30(1046)

-NQV-77

CLERR HEHO ¥ ROUTINE
; #R1 WILL

08:54

EL3

PRGE 158

HAVE STARTING ADDRESS OF BLOCK TO BE FILLED

:#R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCRTIONS
:#R3 WILL HAVE DATA TO BE FILLED
1#T0 AVOID DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED
2532
Q42540
Q42542
Quesud
2546
Q42550
guessd

012001
012002
012003
160102
062702
010321

042560

005302

042556

Q42562
042572

005302

001374

000200

CLAREA:

000002

18:

MOV
MOV
MOV
SuB
RDD
MOV

(RO)+,R1
(RO)+,R2
(RO)+.R3
R1,R2
82,R2
R3, (R1)+

DEC

RTS

DEC

BNE

; FROM
$ 70
:DATA
!NO. OF LOCATIONS MINUS TWO
'GET _TWICE NO OF LOCATIONS
:MOVE IN DATA
:BRANCH IF NOT COMPLETE

'RETURN

SEG CI&D

CZRJGBO,RPO4-5.6 DSKLS CTRLRI

CZRIGB. P11

os NOV-77 08:30

8147
g{:g

042574

000000

6150
6151
6152
E}Efi

042576
042604
042606
Ow2el2

032777
001402
013716
000002

MACY1l 30(1046)
LAD:

001000
042574

08-NOV-7?7

LOCAL TRAPS

136334

T.SCOP:
18:

08:54

F13

.SBTTL
0

LOCAL TRAPS

BIT
BEQ
MOV
RTI

#SW09,
It
J8LAD,

PAGE 159

JSWR
(SP)

6155

: *EXAMPLE OF THE USE OF THE ABOVE

5158

8156
£157

:%THISWILL LOOP BETWEEN X: AND SCOP1 PROVIDED THERE IS NO "NEWTST"
TEMOV.
WX,
J8LAD

6159
6160

T
ta

6161

‘e

8162
6163

gigg

042620

042614
2624

013701
013702
013703

001640
001536
001662

6171

042634

012712

000040

8173

C42e44

008Q.
.

£172
E174

-——

SCOP1

.SBTTL

B166
6167
£168

2193

SEG O1&l

042630
042840
Du42e4e

013704

(:3712
000207

001642
00177

CLDISK: MOV
MOV
MOV

MOV

-——
o
—

CLERR DISK ROUTINE

J8RHCS1 ,
JsRHCS2 |
sRHDS! |

QRHER] |

#CLR, aR2

MOV

aauntr ar2

RTS

CLR

aR1

Rl
R2
R3

RY4

;R1 WILL BE CONTROL AND STATUSI
iR2 WILL BE CONTROL AND STATUS2
‘R3 WILL BE DISK STATUS REGISTER!

‘RY WILL BE ERROR REGISTER &1
:CLEAR ALL REG.

:REINSTATE UNIT NO.

:CLEAR FUNCTION BITS

§§§§§§§$$$$K$$$$$$$$$$E%fi%
DD IR £ oD BB IR R LI O.0B SRR £ iotor BB SRR Lo Bva-dotv B

Coty

Ny
00

oorororororororororororor
oo oo o oo oo oo oo
U P 0t Bt B Bt Bt Bt Bt Bt Pt Bt et ot Pt e bt e Bt (s Bt P Bt e Pt e

LA
rnonnn

0,RPO4/S.6 DSKLS_CTRLR!

08-NOV-77 08:20

08-NOV-77
MACYLi 3g 104 6)
EAR DISk ROUTINE

.SBTTL

08:54

Gl3

PAGE 160

SEG Qlez

CHECK DISK STATUS ROUTINES

: #THIS cuzcxs THnT DEVICE AVAILABLE

(DVA) AND READY

(RDY)

IN RHCSi

= 1

:%AND CHECKS
THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDSI = |
1#IT ALSO cuecxs THAT NO OTHER BITS IN'THESE REGISTERS = 1
042650

011637

002014

042662

004737

042220

042654

162737

000004

002014

032737

004000

001714

010137
104026

001122

CHECKT: MOV

SUB

042bbE 022737 004200 001714
042674 001423
2676

042704

001004

042714
042716
g42724

000413
032737
001003

Ov2732

1049026

042706
042712

g42726
042734
2736
0427492

O42744

010137

000403
010137
104028

01374

000200

001714

001122
001122

3%:

2760 uozu§5
Q42762

032737

000400

o42772
042776
043000

010337
1049026
ooowx;

001122

043012

010337

001122

042770

g:aoos
301

043016
043020
Q43022
043026

001004
8827
10

6guoee
0403
010337
104026

043030 000207
043032
43036

0e271&
0C002C?

000200

o001122

00000E

:SAVE REGISTERS
coOn-Rov J8CS1 ;anSéEsgogbe
HAVE DEVICE AVAILABLE
3s
: BRANCH IF GOOD

BIT

#DVA, 98CS1

;BAD SO rEsr DEVICE AVAILABLE

MOV
ERROR

R1,%$BDADR
26

:ADDRESS OF BAD REGISTER (RHCS!)
:RHCS1
DID
NOT unv; 85 ICE

BR
BIT
BNE

3s
SRDY, 3#CS1

001736

48:

5$:

MOV

R1, 3%¥$SBDADR

BR
MOV

3%
R1, 38SBDADR

ERROR

001736

:GET _PC OF JSR

CHMP
BEQ

ERROR

2%:

C. IWPUTREG

;SAVE PC OF JSR+4

JSR

BNE
18:

(SP), a8PCJSR

ou JbPCISR

26
26

MOV

aoosx -<sp\

BEG

BIT

{BRANCH IF

DVA THERE

{AVAILABLE AT

STAR

{BRANCH TO NEXT COMPARE
;rgsr RERDY
1
Y rgsnsasnnncu

: ADDRESS

TEST

:RHCS] DID NOT HAVE READY

'RIGHT AT START OF TEST

'BRANCH TO
: ADDRESS OF

{RHCS1 HRD S

NEXT COMPARE
_
REGISTER (RHCS1)
BITS OTHER

RDY SET
:THAN DVA AND
‘ALL OTHER BITS SHOULD BE O

-cer nuosx

?%
rusv ARE

SDPR, 98DS1

TES DRIVE PRESENT

MOV
ERROR
BR

R3, 38SBDADR
26
78

: ADDRESS OF aao nscxsren (RHCS!
{RHDS1 ooe; NOT HAVE DPR
:BRANCH OU

MOV

R3, 38$BDADR

;noonssg OF ang REGIST
s (RHOS!}

BNE

BIT
BNE

#DRY, A8DS 1

'CONTINUE IF THERE

;TEST
;

IVE RERDY
WAS THERE,

BRANCH IF GOOD

6%:

ERROR
BR
MOV
ERROR

26
b ]
R3, J8SBDADR
26

:RHDSI DOES NOT HAVE
D
:BRANCH
OUT
;Aoonsss F BRD
REGIS rsn (RHDS1)
;§Hos
sRY
BITS o E

7§:

RTS

nsrunn

g% :

ADD
RTS

86, (SP)
PC

$ suofiLo ae 0
AND HALT

:ADJUST STACK TO GET OVER HALT IN TEST
{RETURN TO TEST ANDC CONTINUE TESTING

(3R g80 RPO4/S g DSKLS CTRLRJ
.~ - -UB A1)
823!

MACYLl

H13

30(1046)
08-NOV-77
0B8:S4
PAGE
CHECK( DISK STRTUS ROUTINES

16l

08-NOV-77 08:30

MACYL.

08-NOV-77

SHéOHB)

I13

O ?ISH PAGE 162

SEG Cle

CK DISK STATUS ROU

; #THIS CHECKS THAT DEVICE AVAILABLE

(DVA)

AND READY

(RDY)

IN RHCS1

043154

8RR 528 BR 528
B y:
00
£8
NE 43
RYE 9N 242
—

9333999393 72
Gt thske S

558

oo
rure
LL
wr

-0
=]
W
O
s
n
NN o
wWWWww
NNNN

; #AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDSI = 1

-t

OO0

A geEeeee 35
GULEYCE 68

0,RPO4/S. 6 DSKLS CTRLRI

0C2014

000200

CHECKE:

BIT

001714

(qp)

J¥PCJSR

JkPCJISR
PC aopuraec
srROY, 98CS1

ogcl12e2

BNE
MOV

19
R1,38#$BDADR
26

004000

BR
BIT

ERROR

001714

18:

#DVA,JuCS1
$

0cil22

SX.BISBDRDR

oocz00

4$
SDRY, 48D<1

2t
001738

2%:

BIT

R3, 38$BDADR
2b

ooliee
000400

001736

3%:

001122
000207

062716
C00207?

MOV
suB
JSR

000Coe

BIT
B

4§

lgPR,alDSI

; SAVE PC OF JSR+4

iG
J
ERDs SRVESREGXSTE
,RHCSI SHOULD HAVE DEVICE AVAILABLE

ov2 ROY
szgggssggékb HAVE DEVICE AVAILABLE

ING 21TER
PRI

% I¥R§RV§DVQ RDY

SHOULD HAVE DPR,DRY

ERRQQNG G?gst
RHDS 1
T HAVE DPR,DRY
g H OUT

HDS1 SHOULD HAVE DP
RANCH
og?L
conrxnfis xr THERE
AILING
REGISTER RHDSI

R3, 3#$BOADR
2k

nnosx DOES NOT HAVE DPR DRY

48:

RTS

;RETURN TO TEST AND HALT

cs:

RCD

#6, (SP)
PC

;ADJUST

{RETURN

STACK TO GET OVER HALT IN TEST

TO TEST AND CONTINUE TESTING

ZRJGBO,RPO4-S-6 DSKLS CTRLR1
ZRIGB.P11
08-NOV-77 08:30

J13

MACYll 38(10"05) 08-NOV-77 08:54 PAGE 163
HECK DISK STATUS ROUTINES

B267
6268

s %

8269

e
i*
TM

¥ b
71
Egza
'l

74
6275

o7k
6277
6278
6279
6280
6281

0N316M
043166

043170
043174
043200
043206

016600
010037
162737
012037

043212
043216

012037
Ol

3232

6282
6283

043222
g:aazw

6285
2Bk
6287
288

043240
043242
043246
043250

6284

177777
010046

012600
3737

001021
005337
001371
013737

001204

3164

001202

043164

3264 001007
6290
6291 043266 005337 001202
292
£293
5294
6295

6296
8257
8298

043272
043274
043302
043304

001371
017737
104016
000002

135736

1§:

001202

6289 833355 033777 001200
135676

ONE LOOP OR ONE COUNT = §.15 MICROSEC WITH BIPOLAR MEMORY (MIN;
ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN)
WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN)

001202

135712 3%:

001126
2%:

:WAITING COUNT
: SAVE

RO, - (SP)

ESS OF REG. ADDERSS
:GET
(WAT PC+2 IN STMP3
‘WAT PC FOR TYPEQUT
‘WAIT REGISTER ADDRESS

MOV
MOV
SUB
MOV

S(SP) RO
0, as$TMP3
PR aosrnr;
(RO)+,388TMPO

MOV
MOV

(SP)+.RO
g.r;ncnr 2.

BNE
DEC
BNE
MOV

IF YES
;
2%
: COUNT
J8STMP2
'BRANCH IF NOT TIME UP
18
. TEMPORARY COUNT
JRTIMCNT, 28STMP2

MOV
MOV

001200
0002

1200

WAIT LOOP

TIMCNT: 177777
WAIT.T: MOV

000002
001204
000002
001176

BIT

BNE
DEC

BNE
MOV
ERROR
T1

(n0)+sg.srnpx
RO,2(5P)

sSTMP1,d$TMPO

;ungr ON BIT
‘RESTORE RETURN ON STACK

'RESTORE RO
-;Enponnnv COUNT

;IS REQUIRED BIT THERE

3
JESTMP2

;52 REQUIRED gxr THERE?

‘WATTED ON BIT FAILED TO SET

gcstnpx.ésrnpo

: nnEu IF YE

: COUNT
:BRANCH IF NOT TIME UP
STMPO, 8SBODAT :REGISTER CONTENTS

2333

CALL FOR THE ABOVE WAITLOOP IS

8301
£3

‘e
ta

MOV
-

6303
£205

x
‘e

£206

‘#x$:

€30S

£207
gggg

:
4

SEG CleS

WAT

LWORD

3R, AwxS
-

:A CONTAINS REGISTER ADDRESS
‘MENCE X$ WILL HAVE ABSOLUTE REG. ADR.
:ABSOLUTE REG. ADDRESS UNDER WAIT
'BIT WAITED FOR
: CONTINUE

CZRJGBO,RPO4-5.6 DSKLS CTRLRI

CZRIGB. P11

08-NOV-77 08:30

MACY1l 30(1046)

08-NOV-?7

og1S54

K13

CHECK oxsx STATUS ROUTINES

6310
ggié

.SBTTL

6313

PAGE

164

SEG Cleg

SAVE ROUTINE

: #THI

SUBROUTINE TO SAVE REGISTERS

ggig

r;nHE n:cxs ER TABLE TO ANY LOCATION

6316
8317
6318

,
TO

2353

: #NUMBER OF WORDS SAVED

6321
6322

043306
043314

012001

6324

043320

012003

£328
£329
6330
8331
6332

043336

6323

no aosaven

MOV

(RO)+,R1

: FROM

.TO

MOV
DEC
BNE

(R, (R2)+
R3
18

{SAVE REGISTER CONTENTS
: COUNT
:BRANCH IF NOT DONE

6333

.SBTTL

WRITE CHECK ROUTINE

6335

cruxs IS A SUBROUTINE TC DO WRITE CHECK HERDER AND DATA

Q43322
043324
043326

012002

MOV

(RO)+.R2

8325
6326
6327

043316

SAVER:

013122
005303
001375

18:

000200

RTS

gggg
5338

6339

043340

012737

010000

043362

00S037

047504

g:awao
3404

00S037
0049537

043346
043354

6343

B344

6345
5349

634

Eg:g

112737
112737

aogg

3372 0Ol

awm
3412

047500

000001
000001

047500

047503
047502

7506

830044 047560
7510
w022

5555

Q43414

£354

£35S
&

043420

Q43426
34

232%
2324
E3EE

TRACK1,

;rucss ARE TO

SFMT22,

C.R

ISKEY]

CLR
JSR

X
RS, 28CRC

MOVB
MOVB

CLR

MOV

NUMBER

SECTOR1, KEYS O

SET UP FOR DISKLESS USE ONLY

38CYL

#1,98SECOTR+1
81’ 98SECOTR

ISKEY

oas..Snuono

.c;
LINDER O FORMAT 1& BIT WORDS

;
TRACK=1
:SECTOR=1

iKEY1=0

,x v2=

DATA WORDS

ru1S 1S A READ OPERATION
1GO TO CALCULATE CRC

WCRC
; #THESE ARE REGULAR SETUPS

€329
6360

WRCHHD: MOV

CYL

0S1400

Eggg

£35

(RO)+.R3

CYLINDER O,

6340
341

6342

MOV

004737
012777

042614
177730

012777
112746

003154
000001

3460
3476 005077
013711

13616
00206

1127

000001

136204

136200
0£O00001

25 31597; 6?3655 136170

(043502

004737

0472340

JSR

PC,38CLDISK

MOV

8-40. , IRHWC

MOV

(SP)

MOV
MOV

Hov

sREINTO, 9RHBA
01 -(SP}

:SETY

NERAL

:AND E§525 ISK R cxsrsn
;3sn2n

WORDS 4 HEADER

;

WORDS

;STARTING RDDRESS OF READ BUFFER
:SECTOR=1
K=1

R BYTE

?g%ééegcxannor Tf“:
HE c; .2 3 gonnscrxou NHIBIT BECAUSE

CLR
MOV

gouncuor,anx

$C kog coxsHEADER
oy U
Y.
gniiecsgggx
AND DATA=S2

JSR

PC, 38COMHD

‘WRITE CHECK HERDER AND DATA

<RJGBO,RPO4-S-6 DSKLS_CTRLRI

ZRIGB.P11
sgsg
£367
6368
83e93
8370

08-NOV-77 08:30

MACY1l 30(1046)

08-NOV-77

WRITE CHECK ROUTINE

08:54

L13

PAGE 165

;SAME AS READ HEARDER AND DATAH
043S0t

000207

RTS

;RETURN TO WRITE CHECK TEST

SEG Cle7

CIRJGBC,RPO4-S-6 DSKLS CTRLRI

CZRIGB. P11

08-NOV-77 08:30

MACYLl 30(1046)

8371
637

637

.SBTTL

6374
6375

6378

: Ré

TWO BLOCKS IN MEMORY

THP&

RROR 70 PRINT HEADER

—

DTO PRINT DATA

6382

QRH ONE MORE T

2& 833353 012001

COMPAR:

6383

6386

043524

012002

6389

gzg:n

§ig§§

8388 Ouie38 015037

gggssm mgfi 86353"

nov
MOV

001176

001200

,'.}83
18:

639

141
1124
6398 g:%& gmag;
%ua&

6400 Ou
8300
6401 0435
6383

B40S

OTM

361

u’:g;

004

MOV
MOV

35
7 047620
65354
gasgs
oéaxae
2399395 043554
1426

802860

79; 135366

2%:

S§:

E405
OMI60 §§ e 13315
€408 8&59 5;55 600500
3
3532 8&“"3
g410 36
30
23{1
%332 001394
E:é 8-13550 000200

3s:

OF WORDS TO BE COMPARED

(RO)+,R1

.nooness onm BUFFER

(RO)'S
(RO)+. STMPO

R
; Tum

(RO)+.

ga,n‘o

MOV

-(R1),as

BNE

IstRFLGS
SO0
2s

§n

CHP

(R1)+, (R2)+

CMP

MOV
BEQ

JSR

B0
CMP
Q
'
BNE
RTS

;

5583’&3"”

MOV

135372

SEQ Clee

COMPARE ROUTINE

'lR

6379

g402

PRGE 166

' ;lTHIS S A

6§

)

08:54

6 ;?

0B-NOV-77

WRITE CHECK ROUTINE

ISTMP]

5tPao‘TSR)
u
,tsgn
Y4
R
185
RO
L

mm HERDER

mm DATA

znoor uonos TO ac COMPRRED

(R1)+, (R2)+

PC, 3STMPO

;

;FOR ERROR WORD NO
:COMPARE
GOOD WITH TEST DATA
:BRANCH IF GOOD

RY, 98ERWORD
3s

-(flé)'gog

m
aurrsn

DATA
T g@m:
uuoma

;
RR
ngnsmr THERE
gRR
ALK
:
H ;r YE
iRET

0 PRINT HEADER

;gs

H 78

;

-(R1) nrQ -(R2) FOR ERRORS

iRET

v?x

m*mmc NEXT ERROR

NT DATA

ivEepom
v 8SATTCH
S
: ?
RESE
; n OuT IF YES
coun

:BRANCH IF ALL NOT DEVICE

;RETURN TO MARIN PROGRAM

£l
E417

E41B

mus IS A SUBROUTINE TO DO WRITE CHECK DATA

2:55

;mcse ARE TO SET UP FOR DISKLESS USE ONLY

2253

CYLINDER O, TRACK 1, SECTOR 1, KEYS O

423
7
E453
Duleeh 0127
11373, DbOBST Oure0s

EM25
E42E

0436BE
ON3E7M

112727
037

000001
047504

047502

WRCHDA:

MOV

SFMT2

MOVB
CLR

sl aosscom
IBKEY

OVe

81 DeoeloTNs1

YLINDER O FORMAT 16 BIT WORDS
i TRACKST

secron:x
KEY1=0

CZRJIGBO npoufs/s DSKL

CZRIGB.P11

-NOV-

CTRLRI
08:30

427
6428
g:gg

8:3700
3704
043712

005037
012737
00S037

047506
000040
047510

B431
B432
BY33

043716
833722
3724

004537
7500
1900

o44022

B4 34
B43S
6436

BY437
B438
6439
6440
B44]1
BY442
BY43
[
BYNS
BYY4E
BN4?7
BYN8
6449
BY4SO
£451
B452
g4S3

MACY11l 30(i046)
0B-NOV-77
COMPARE ROUTINE
047560

08:54

N13

PAGE 167

CLR
MOV
CLR

JRKEY2

832., 98DAWORD
X

NO OF DATA WORDS
{THIS IS A nsno OPERATION

JSR

RS, 38CRC

;GO TO CALCULATE CRC

CYL
WCRC

;ITP‘SE ARE

JSR

SEG Cles

KEY2=0

REGULAR SETUPS

PC,38CLDISK

;SET UP_GENERAL REGISTERS
{AND CLEAR DISK REGISTERS

oREfNfOanuan

4 HEADER WORDS
:36 DATA WORDS

043726

004737

042614

37
043740
043746
083
3760
043764

012777
012777
112746
112799
81
012777

177740

043772
044010
044014

00S077
013711
004737

ISWRCHEK , 3R1
PC, a8COMAD

un:
CHECK DATA=50 INTO nucsx
{WRITE CHECK HERDER AND DAT
‘SAME AS READ HEADER AND onrn

044020

000207

:RETURN TO WRITE CHECK TEST

135A72
135666
000001
135656

ox -(SP}

1(SP)

(s#+ JRHDST

SFMT22'ECI, JRH

SRHCA

:STARTING ADDRESS OF READ BUFFER
,sscr =1

Tnncxsx ssg¢§5=1 IN RHDST

; TRACK=1"IN

R BYTE

I
Egg confiscrion
uoa?gIT
CAUSE
YET
CHECKED
* =0

CZRIGBO,RPO4-S/6 DSKLS CTRLRI

CZRIGB.P11

08-NOvV-77 08:30

MACY11

30(1046)

0B-NOV-7?7

08:54

COMPARE ROUTINE

B1yY
PAGE

168

BYSY
£4SS

.SBTTL

£458
B459
B480

#THIS &s A
zggrguz T0 CALCULATE CRC FOR THE FOUR
: #HEADE
TORE THEM IN "WCRCTM AND
*
.
‘#R]
- REGISTER FOR
CRC
ucasnsnrso CRC VALUE IS HERE

E462
g4E3

‘%R3
- TH
(%RY - TH

£zt
B461

1¥R2

CRC GENERATION ROUTINE

- TH

T #83}7 ON 2 VALUE ¢

T POSITION 16 I.E. OUTPUT BIT VALUE B
T POSITION 1S VALUE E

E4Es
E466

-et Y4 TNPS
X
;.zrnps
-7

£Y47

;#FETCH DRTA BIT O

g472

iaC = B XOR 2

' #ROTATE RIGHT ONE POSITION
;%8 GOES TO POSITION 1

EN77

(%€ G

£467
2:&8

R OF BITS PER WOKD == 16
n8$ géc.

(#§TMPY -~ TEMPORARY REG T0O TRANSFER CARRY
; #$TMPS -~ THIS HRS DATA BIT VALUE D

6471

E473

BY7S
BY7

i#8 = D XOR

;.s s

1§

1%C G

xgn

g T0 POSITION 3

10 Pgéxrxou 16

6478
6479

i #REPET
P #CALL

&4 TIMES
J;fl
RS, 98CRC

g:gé

: Y

:PUT CRC

432
6493

g:qwe

B49S
6496
B457
g:g

044110
O4411Y
044116
044120

&S0l

8::1

B49Y

4106

oosoo;

032701

001403
012703
CDO‘OO%
00SO0
063703

04 001176

001210
000001

001210

2?0

1 ‘1’01

2%05

Ov4l4e

0eC30e

6S028

410

001403

6504 g::wo 00S002

100000

65% 8:‘41‘0‘4 032701 0000C2
8S09

0Ou4iSe

012704

100000

(RS)+,R0

MOV

" 3.8?”’0

168:

MOV

158:

ROR

38:

4s:

ROR
BiT

JESTMP
#BITO,RI

MOV
BR
CLR
ADD

8BIT1S,R3
cs
R3
JNSTMPS,R3

BEG

BEQ

18
=4 1

IN WCRC FOR READ GCRC FOR WRITE

MOV

CLR

100000

5500 044124 032701 040000
403

001202
001206

;FIRST LOCATION AT

491

CRC:

012500

itg

g:gg

044022
044024

S
o

E4B83
B484

: %X

BIT

ggv

#BITIY, R1

;GET POINTER TO CYL NO.

:CLERR WORKING LOCATION

i [N]

6480

QUNT
Y WORD STORAGE

;GET '538

T
Y WORD STORAGE
NT

Lot

“C

;GET
“C" _INTO STMPS
; 1S POSITION 1S HIGH

; BRANCH }F POSITION 16 LOK
;GET POSITION 16

;GET POSITION 16
;¥8flc?eElTION 16 WITH D

;1S POSIY?ON S HIGH

: BRANCH %F PO éTION 2 LOuW

: ITIS,R2

;GET POSITION

RDD

R3,Re

;)T((O)RG? HIEH POSITION 2

BEQ

CLR

BIT

MOV

;GET POSITION 2

#BIT1,RI

:!2 PO’S'iT}ON 15 _HI

#BITIS R4

;GET POSITION 15

;BRANCH IF

POSITION 1S LOW

SEG 0170

(] ;‘;

GBO, RPOY/5/6 DSKLS_CTRLRL

08-NOV-77 08:30

044156

000401

4164

042701

30(1046)

08-NOV-77
08:54
CRC GENERATION ROUTINE

SS:
es:
001206

c T POSIT

1ST

.8 T15,R1

;SET B IN POSITION 1

315
TST

O%4232
Ou4

g:“

gggzgz G20000
042701
02

701

]

337

7
:axrxs,nx

ST
BMI
aéc

020000

.S T13,R1

s B oo

!BRANCH IF E=1
:GET E IN POSITION 16

oa¥70 R1

.gsr E IN POSITION 16

Jn§THP2

;BIT COUNTER

'BRANCH IF ES NOT DONE

#STMPO

BNE

: WORD coun

éss

2?§

gaNCH IF

Ré,;(RS)o

T DONE

UT CRC uuen: oesxnao

A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR

;l?Yk

;#TRACK

sGET C IN POSITION 2

i TEST E

138
:axro,R1

DEC

i
TEST C
iBRANCH_IF C=1
iGET C IN posxvxon 3

000001

001202

T ABOVE C INTO Rl

:
CH IF B=1
:SET B IN POSITION 1

R2
118
:axrxa.nx

BMI
agc

000001

ogf 18 13 WITH B
1 Lss in70 “C"*

BMI
agc

042701

RY4

SEG 0171

R3,RY
F8STMPY

Exs

el4

PAGE 169

ADD
ROR
ROR

100000

Cl4

CLR

gfi %%‘8? 100000
12 1 83

RoR

R gE(+3RBI

PER

WORD)

2 1

; #CRC THROUGH THE JSR RS,asCRC

gég

3ee

Y
=8

s Pt Pt P

8:4 76

0000

;%256 WORDS OF 177400

(=]

oo oo oo

P11

MRCYL1l

00S3
001

012701

044332

00S0e22

C44334
O44336

005301
001378

177400

SETDSK:

00400

1416

18:

o000c2!

cs:

;#CALL

JSR

PC, 3¥SE TDSK

MOV

8177400, RO

MOV
MOV
MOV

M 52&'"‘
801SK
R2
RO, (R2)+
R

MOV

CLR

817. Rl

DEC

BNE

;#NOW

(R2)+

2s
SET

.oern IN THE DISK

: COUNTER
:START OF 3¥HULRTOR DISK
: MOVE x
.c uu

;

uov COHPLETE

'¢5La8cc
o$rnGAP AND
;2

ECC u

A GAP

annucu IF NOT COMPLETE
UP

FOR

DISKLESS

USE

6566

6567

6568
? 9
£5°0
657
BS72
BS7T3
BSTY
8575
85T

044340

012737

QOuw44ge

000207

044346
4354
4
43
0O4M376
QYNYOM
QWN4I0
QOwyu4le

112737
112737
12737
12737
013737
4537
047500
0S140C

0Cl0000

000001
."'8
0OC
1
000001
830 00
4022

MOV

CRC GENERATION ROUTINE

047503
H?ESE
7504
047506
047560

MOVE
MOVB
MOV
MOV
MOV
JSR
CyL
WCRC
RTS

Dl4

PAGE 170

OFHTEE asCyL

AWSECOTR+1
.1. #SECOTR
8l,d8KEY]
81 INKEY2
sSQBOOQNORD
PC

CYLINDER 0 (1& BIT WORDS)

TRACK=
S CTOR'I
Yi=l
EYE'I
NO OF DARTA WORDS
iGO TO CALCULATE CRC
;FIRST CRC WORD
;PUT CALCULATED CRC

047500

08:54

08-NOV-77 08:30

08-NOV-77

()

CZRIGB.E11

MACY1l 30(1046)

CIRJGBO,RPO4-S-6 DSKLS CTRLRI

GBO,RPO4-S-6 DSKLS CTRLR1

P11l

08-NOV-77 08:30

MACY1l 30(104

-NOV-77_08:54

ElY

CRC G NERR ION ROUTINE
;#THIS

PAGE 171

SEG C173

IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR

i#(BIT #7) AND CRC ERROR (BIT #8)
; #CALL JSR RO, J#HCCRCE

comM

connnno-ns?oeugnosn AND DATA

CYL*NOER

e
e

]

‘Lgno
COUNT
;RHBA
BUFFER START

' W=1 HEADER CHECK. H=0 CRC CHECK

RO, 38PCJISR

; SAVE_PC OF ISR+

ISR
MOV
MOV

PG \9uCLDT
K
(RO), 988TMPS
(RO)4, 3R1

'INIT AND SETUP GENERAL REG.
;SAVE COMMAND
iC

MOV
MOV

(RO)+,
3RHBA
(RO)+, 38X

MOV

.rntaa~ecx.annor'ég2 BITe

CLR

QUERFLGS

P®

.‘

o44424 010037 002014

044430

Q44436
Q44454
Q44460

162737 000004

004737
011037
01 ;;

042614
001210

Q44462
044466
QwN470
Q44472
O44476
Q44500
044504

Ol
11
105720
112066
105720
012677
012077

000001

O44S20

012777

014000

00S037

002006

002014

135164

P
e o =

MEWNN-ODOWOICNLW-0O

oo
G‘G‘U‘U‘U‘U"U‘ggg
oo

mn
3488 eoe

044532

004737

135140
135122

047390

SUB

MOV
MOVB
TSTBE
MOVBE
TSTB
MOV
MOV

QW4S10
012077 135120
044514 012037 047510
Q44526

HCCRCE: MOV

135122

JeR

;#IF THE

)

=-N.

4, QPCIER

(RO)+. SRHCA
(RO)+.,-(SP)
(RO)+
(RO)+,1(SP)
(RO)+
(SP)+,3RHDST
(RO)+, SRHWC

PC, 38COMHD

!GET_PC OF JSR

; CYLINOER
*SECTOR
:UP DATE RO
! TRACK
+ UPDATE
:TRACK
0
NO.
OF DTA WORDS+4 HEADER

STARTING
ADBREES
OF BUFFER
i X=0 REAQ_HEADER AND DAT
PER WORD

!CLEAR ERROR FLAG
i€

PROGRAM
conssuzncx HERE WITHOUT ERROEgnxnvour:

; #FRUM_THE “COMHD* ROU
; #F IRST_SYNC, HEADER

'%SYNC

1=WRITE DATA 0=READ

THAT MEANS SECTOR
ER CRC HERDER GAP AND

BYTE WAVE GONE BY AND SYNES WERE CORRECTLY

iDE ECTED

#*HEADER AND DATR ARE TO BE CHECKED.

Q44536

(04737

042220

00S737

047510

Q44S4e
O44S4e

00S737
0010234

44ESY

00101S

4SS0

002006

JSR

PC OOPUTREG

TST

OIX

TST
BNE
BNE

; SAVE

_REGISTERS

:ANY ERRORS ALREADY THERE
BRRNCH XF YES
IS TH

NRITE DQ R BRANCH

6626
6627
6628
6629
66
6631
6632
6633
6634
6635
6636

6637

38
B639
6640
4]
42
BE43
6644
6645
BEYE
BENT
BE48
B649
£650
BES]
g652
8653
6654
665E
665E
6657
6658
B659

; ¥NOW THE READ BUFFER

: #WRFROM BUFFER HRS
Q44556
044562
044564
, D445
‘044570

044572
0QW4S74
044876
044600
044602

004037
002110
003154
04

2%:

‘8

WITH EXPECTED DATA

gkonrn

REINTO

i TEST Qggrren

13
23
108
ERROR

;ssruau POINT
FOR ERROR HERDER
'RETURN POINT FOR
ERROR D
: RETURN rgn GOOD COMPARISON
{RERD NEX Ennon ?

14 HEADER as; ?nrn

RTS
ERROR

PC
§

{RETURN TO
COMPARISON SUBROUTINE
"
NO 1 THRU 4 ARE

HEADER uéngg nugsnsucs
AD
NOS.

WRITTEN ON
S ONWARDS

BE RERD AND HENCE

UNCHANGED
TO COMPARISON

044804

000207

RTS

: SHOUL
:RETURN

044606

000414

108

; JUMP OUT

INGomTE
ONOULB
BE BRITTEN
-0
: #REINTO gurrsn
HAS essu FILLED WITH EXPECTED DATA

:#DISK HAS

EE75

DMNEMM

gg;g

DN4E4

043510

3%:

48:
Ss:

10%:

000072

0oiz210

OM4BE2

022737

134762
000200

001126
00llee

Q44E70
0Ow4e?2

ooxw7g
0137

001642

O4c2e4

1417
017737

ug ,

1442

géé“

2737

D446
0O44BEN

BEEN FILLED

WITH

: #WRFROM HAS BEEN FILLED WITH 1252%2

000207
720

880
EEEI

18:

EEN FILLED

: RERD 5nro BUFFER

04MB
QY4B

EE7E
EE77

BE CHECKED

:SHOULD NOT

£671
EE72
EE673

EE74

WILL

: SHOULD
:DISK

044640
104004
000207
104900S

Bbb7
E668
£669
£e70

RO, 9#COMPAR

256.

044602
044640
104004
000207
104005

Q44626
044630
044632
044634

BEES

&ggno

043510

0449576

004037
003154
0S1416
0400
3?33

-1

172

.n5“85§g5583L°
BE onpgg%sgv READ AS WRITTEN
:#REINTO BUFF 23 gsn F:Lfgg u;ru 0

:
044610
044614
Q44616
044620
044622

g6l
B662
6663

PAGE

5
108

e qurren

:TEST BUFFER

RETURN POINT FOR

ERROR uenosn

RETURN POINT FOR ERROR DATA
POINT ron GOOD COMPARISON

ERROR
RTS
ERROR

4
PC
§

R no NEXT ERROR
{RETURN TO conpnnxson SUBROUTINE
HgnosngngnguoL DAT

RTS

ng 9“ TQ

CHP
BEQ

'?§, J8STMPS
18 ruxs n n no COMMAND
gaau
11
;
JRHER], 38$BODAT
SHOULgeggenEconPnns BIT?
SHCE, kSBDDAT

ggg

MOY

CMP

BEG

MOY

égozo

unsgBE HGNGED
BY THE
OMMAND

COMPARISON SUBROUTINE

5
HIS ugsg ON HCE CHECK?

:BRANCH IF GOOD

J8RHER], 98REGADR; REGISTER ADDRESS RHER!

(&}

08-NOv-77 08:30

F1y4

RJGB.P11

-NOV-77
0B:54
CRC censan ION ROUTIN

MACY11l 30(1046)

g%JGBO, RPO4-S-6 DSKLS_CTRLRI

0,RPO4/5-6 DSKLS

QWN700
044706

012737
104027

g::;{g

000460

QYN7i2
Ow4720

017737
022737

Q44726
044730

001451
013737

Q44746

000441

012737
104027

000200

134724
100200

001126
001126

001642

00Ii24

000072

001210

044760

017737

134656

001126

044766

022737

Q44774
044776

nost;
0137

o4S012

104027

O4S004

012737

0DONOC
001642

001124

134620

001126

045024

022737

100400

001126

5032

001407

048042

013737

048080
O4S0S2

104027

100400

001642

12%:

SRHER], 2#$BODAT ;: TEST DATA
#0CK ! HeE , 9#$BDDAY hgflLg
ngs§ COMPARE BIT?

BEG
MOV

7%
:BRANCH
IF GOOD
S8RHER], 38REGADR’ ; REGISTER ADDRESS RHER!

#DCK 'HCE , 3#SGDDAT
:GOOD DATA
27
;AFTER AN ERROR ON THE

B8R

BEQ

129

CHP

;HERDER ONLY HCE SHOULD

O4S0BE

012777

O4S110

0S2777

045074
O4€102

04116
Q€124
04€130

177766

(012777
012777

002110
000010

78
J8RHER], 98REGADR

ERROR

BR
MOV

7%
JRHER1, 9#$BODAT

CMP

#DCK!HCRC, 28SBDDAT; HCRC AND

BEQ

MOV

98RHER], 9BREGADR; FAILING REGISTER RHER!

RTS

#HCRC, 98$BDDART

sHCRC, 9kSGODAT

012777

010000

00S077
012727

000010

13452
00000C!

ADDR = RHERI

'AFTER A CRC ;nnon ONLY CRC

:SHOULD BE SE
;gnnucn ouT
;TEST DATA

DCK SHOULD BE SET

BECAUSE ECC IS NOT READ

{AFTER A CRC ERROR ON A READ
iDCK AND HCRC SHOULD BE SET

:DCK IS SET BECAUSE ECC IS NCT RERD
'RETURN TO MAIN TEST

xg A

TRYS

sganourxus

HEADER AND
TO

GET

TO LEAVE

DATA COMMAND

s;cron

10,

TRACK

AFTER ONE SECTOR

THE
O,

MIDDLE

CYLINDER O

COMMAND 0S JSR PC,asMIDOLE
IS SET

MOV

'G&o’

SRHUC

134520

BIS

sBAt,

IRHCS2

O04SiSe

CLR
MOV

MOV

:REG.

;800D DATA

#DCK
! HCRC , 28$GDDAT; GOOD DATA

13453

134824

;ONLY CRC ERROR SHOULD BE THERE

-gnnncu IF GOOD

ISURIFOR, ARHCS1

MOV
MOV

:TEST DATA

:D8K 1S SET

MOV

13483
134534

;?nanca *r A RERD

BEQ
MOV

:#THE

MIDDLE:

:1S THIS A READ COMMAND?

JRHER1,38$BODAT

:#BAI

134552

iBE SET

872, 388 TMPS

MOV

#IT

002064

T BECAUSE ECC 1S NOT READ

MOV
ERROR

:#BUT COMES OUT

013777

;GOOD DATA
'AFTER AN ERROR ON THE
'HERDER ONLY HCE SHOULD
‘BE SET

: ch&s

‘#A WRITE

S060

SEG C17%

MOV
CMP

ERROR
7%:

173

MOV

042264

PAGE

: #THIS

£054

GlY

$HCE, 9#8GDDAT
27

MOV

001124

000200

og:su

MOV
ERROR

CMP

042264

000400

000416
017737

012737

6%:

001126

045014
04S0le

4E034

042264

100200

og-uov-77

CRC GENERATION ROUTIN

“al

022737

Soxw 4

30(1046)

001124

O0447S0

044756

N LW W0 N L W0

MACY11

08-NOV-77 08:3

044736
O9N7494

m
oo,
SN NN SN NN NN
nnrn POTOTUNU
- 0 et bt hs s et s s Be

CTRLR

;?sx;scgfnoen AND DATA=62
10 WORDS

sWRFROM, dRHBA
810, IRHOST

:BU noon;ss:unrnon
:DESIRED TRACK=0 SECTOR=10

ornfga.anuor

:FORMAT

JRHC
81, 98MID

iBUS

ADDRESS INCREMENT

16 BIT WORDS

:CYL INDER=0
:SECTOR IS SET TO 1

INHIBIT

SO THAT

CIRJGBO,RPO4-S.-6 DSKLS CTRLR!
CZRIGB.P11
08-NOV-77 08:30

MACY1l 30(1046)
08-NOV-77 08:S4
CRC GENERATION ROUTINE

H14

6738

s:ag

>41 04S144
04S136 012777
000001 134514
052777 000001 1344966

g742
6743

045152

004137

745

045184

000207

744

E746

045156

000000

0S3546

MOV

MI1D:

22;3
6781

gzsg

#DMD, JRHMR

PAGE 174

SEG Ci7e

uE CAN GET OUT AT THE
IDDLE
OF AN og;ngrlou

§8? Bxgcugsr?s
8
nacsx WITH &2

BIS
JSR

#GO, 9RHCS1
R1, 38SEARCH

RTS

.SBTTL

JAM CURRENT CYLINDER ROUTINE

LWORD

:SECTOR

:;nxc §gagggrxns “%b 3
NGEETHE
cunnenr chxuoen REGISTER

sfisg

.uuiéu WILL LOEO ?ns unnsn$ CYL?NDER
uxrn rnz6£§xa£o CYLINDER VALUE

B%SE3
§z

J R 130 JWMAKECY
;.x?
;Sshxneo VALUE OF CURRENT CYLINDER

£760

2;2é
032{93 010037 002014
"“KECYL’nov
6763 845174 1529 7 000004 002014
SUB
g;su ousags oxaog; e
583

il
27
"&

770
6771

8772
£773

6774
£775

s R

8:?558 845777
888881 iSuqSS
000240

045236
04524C

242
4

7277

000240
000240
000240

237

17737

eblv

1349420

€776 045260 020537 001126

£777

E264

Egax

Bis
NOP

MOV

5785 8~§384 000200
o

JSR
CMP

BEQ

E;gg
£78e
E7ES

2;30
€792
1

MOV

0019

E;;g
5295 om5
£780 83§§DS
6;7 881@92 o42264

]

NOP
NOP
NOP

001126

S
)L
R *TH

RO #PCISR
PCJSR
énb);hgg
]

- 9%;% 1

80 58HCSI

€

:PC
OF an+q
sn PCOF JSR
GETTING ngnov10 ;1
LL os IRED CYLINDER

,
8
{ALLOW TIME FOR
:

el e

STIC MODE

SEEK
.RLLON rxni F
EEK
TALLOW TIME
FOR SEEK
LOW TIME FOR SEEK

PC
QICBDg
,?EVg 62 AT
anhcc
BODAT
aotaoonr

TO HANG LP
TO HANG UP

TO HANG UP
TO HANG UP

nne CURRENT CYLINDER

Enn
NCH IF GOOD

333
ERROR

nggEcxsrngcgooness
go.hncccgenecnonan
!
ké"?
YLINDER DOES NOT MATCH DESIRED CYLINDER

RTS

.SBTTL

ECC GENERATION AND COMPARISON ROUTINE

n:cxsrsn AFTFR A SEEK AND AN INIT

SUBROUT
RATES AND TESTS ECC
3 ; iggr

s'oBORPO4-S-6
A1)

wa.

D SKLg CTRLR

¢
08-N V-I

00000

MARCY1l

PIEIL
PIE2
PIE3

=10000

PIE7
PIES

=1000
=400

PUb<bepapapatbapepep=pe()
OO0 0 U £ WO
D

ooooooooooroeo

PIEI13
PIELM

=200
=100
=40
=20

=10
=y

=2
=1

PIEI8
PIE1S
PIE20

=40000
=20000
=10000

PIE22
PIE23
PIE2Y

=2000
=1000
=400

PIE2]

=4000
=2000

PIEIS
P El?

PIEL

=100000

=4000

PIESE
PIES?

=100
40

ECDARTA:

P*EEB
P SQ
PIE30
PIE3!L
PIE32

045308

=100000
=40000
=20000

PIEY

P Eq
PIEIO
PIELL
PIEl2

82l

Il4

B:S4_
PAGE 17S
ECC G NERR ION AND COMPARISON ROUTINE

PIES
PIEG

5808

=NOV=-77

30(104

=20
=10
=
=
=

A BIT
FOR_ECC
I

ALL ONES THEN CURRENT BIT IS A ONE

ZERO THEN CURRENT BIT IS A ZERO

2? ORDER ECC WORD TO BE GENERATED HERE

O4E310

caocooc

GECCl:

O4e312

00000C

GECCe:

H ORDER ECC WORD TO BE GENERATED HERE

Q4E314

0C0000

TSECCG:

:677?7? GENERATE AND TEST

BE3ls

NCODE :
NCOUNT:
POSITI:
HARDER:

88859.

£3ce
€324

10041

O
4129.

DO NOT GENERATE AND TEST

ECC FOR THIS BIT

ECC FOR

OMPARRES RRE

THWIS BIT

CZRgGBO RPO4/S-6 DSKLS_CTRLR!
RIGB. P11
08-NOV-77 08:30

6887

£888
|;gg
D

B899
£EB895
6896
£837
6898
6899
£900
£901

£302

£9C3

08-NOV-77
08:S4
PAGE 176
ECC GENERATION AND COMPARISON ROUTINE

045326

(00000

DATENV:

045330

000000

ZCODE::

HR FOR REQ é
LERDING ZEROS ENV LOPE FOR _TYPE OUT

HIS IS SHUT OFF WHEN POSITION COUNTER

iMAX COUNT

045332
0O4S33¢
045336
04S340
045342

000000
000000
000000
000000
000000

045344
€360
S3e4
048370
04E374

013701
013702
005737
001406

ECTEST:

MOV

MOV
TST

RD
RRENY BIT
A ONE
H IF CURRENT DATA D=0

as
as

BEQ

;#IF

010103
052703
005103
010300
000404

CARRY_IS NOT_ZERO

177776

18:

axs
MOV

flOV

S414
098420

010103

042703
010300

177776

S422

045430
(45432

006000
700
1462

0Q4S434
(QuE4
0O4S442
ONEYM4Y

010203
055703
00S103
810337

0484S0

006237

cs:

R3,R0O

38:

IS ZERO

' #X32 BEC OMES RO

fov

BIC
MOV
cLC
ROR
ROR
15T

; #INVERT

ofCszae R3

R3,RO

RO
RO
RO
X2

R2,R3

COM

ASR

ank3

BIS

4E334
HE334

MOV

THEN D=0

R1,R3

MOV

137777

THEN D=1

ooépxsaa.na

COM

;#IF CARRY

g:suxa

1S 38859

; TEMPORARY HARD ERROR COUNT

;#INVERT X32 TO GIVE RO
(0Q4S376
045400
045404
8406
048410

SEG 0178

DRTR ENVELOPE FOR TYPE OUT
MAX FOR
WRIT E IS 096

IN ENARBLED

000241
6892 835424 006000
5893
045426
5891

30(1046)

ZO
OC

6850
£851
6852
6853
6854
6855
6856
595:’
6858
6853
6860
861
6862
6863
6864
6865
6866
6867
6868
686
6870
6871
6872
6873
6874
6875
887
6877
6878
6879
6880
881
6882
6883
6884
£885
6886

MARCY11

ofépxsa R3

R3, AWP3

: #INVERT x11

:BRANCH IF RO=0

CZRJGBO,RPO4/5-6 DSKLS CTRLR!I

CZRIGB. P11
seog

08-NOV-77 08:30

63907

04S4SY

010203

£903
8910

Q45462
S4ed

1
010337

6308

23{5

04545k

8470

733

006237

MACY1l 30(1046)

08:5S4

177737

MOV

R2,R3

COM
MOV

R3
R3,38P12

BIS

045336

ASR

04SY7v

010103

stlPIELL,R3

asP12

63917
6918

045502
045504

10
010337

045476

835703

MOV

R1,R3

COM
MOV

R3
R3, JsP22

173777

BIS

2353 o4SS10 305237 O4S34C

045340

ASR

8921

: #INVERT x23

£923

04SSI4

010103

6925
6926

Q45522
045524

005103
010337

6924
gqag

045516

O4ES30

052703

176777

006237

045342

(QM4SS534
5536
5540

E344

SSES

8947

ousgro

2949

045576

560
S64

O4E574

006002
1
700

045334

0537
0537

045340
045342

322701
0001

s1lPIE23,R3

ask2y

ROR
ROR
BIS

R2
R1
a8P3, RO

CLR

BIS
BIS

BIC

BIS

0DOY04

23§1é'g?£3'szxe
no.sé'
>
- R2
a8P22,R0
J8P24 RO

SPIE22'PIE2Y,RI

ng Rl

124

: #THE PROGRAM COMES HERE IF RO=0

E3E]

R3
R3, asP2Y

gBIS%

002400

6955 83555agg
fi
gqé; 0"5'10 121 7 xogo?o
£95g §3§E1u §6§;§7 ggxg
£8962

COM
MOV

%S0 AFTER ROTATE RO GETS PUT INTO POSITION 1

£954

£9E9

R1,R3

ASR

23:0
ggzé §5§§“~
£54 833709
825335 ?33338

eégi
2325

asP22

: ¥NOW THAT RO FOR POSITION 1
tx
P3 FOR POSITION 3
‘¥
P12 FOR POSITION 12
P22 FOR POSIT%ON 23
ta
P24 FOR POS;T ON 24
:%ARE KNOWN THE ROTATE WILL BE DONE AND
:¥THESE BITS JAMED IN

937
£938
£339

E948

stlPIE21,R3

MOV

BIS

£929
£330
£331
£932
£933
8334
sggg

6945
£346

SEG 0179

; #®INVERT x21

6915

6922

PAGE 177

ECC GENERATION AND COMPARISON ROUTINE

Egii

6916

08-NOV-77

Kl4

ge20

048314

108:

12%

ROR

ROR
535
MOV
18T

R#
3 xegcngc
R gocgccé
’

astSECCG

A cc
;§93E
gcc
;15
DWARE TO
H

‘IF =1777777 TEST

CHECKED

HARDWARE

‘IF = 0 DO NOT TEST HARDWARE

a;g
og

GBO,RPO4/5/6 DSKLS CTRLR

08-NOV-77

gRee
¥yo

:
gy
K8

Sb36 8g2 77

BEQ
0CO0O400

000100

174000

042220

0453ec

37
3S

042220

133304
"
133274

148

: #*CHECK HARDWARE
osue JSWR
BIT
158
BN
#SWE, ISWR
Bl
158
BEQ
BR
148

158:

134C10

35
0?7

23 8853

MOV
BIC
CMP

R1 -(SP)

8174000, (SP)
(SP)+, IRHEC2

9590 snvéasx

133766 13%:

CMP

PC, JsPUTREG

?38

SEG Ole0

;BRANCH IF HARDWARE NOT TO BE CHECKED

;1S SWITCH gussr
SW8 IS SET
{BRANCH_IF
115 SWITCH & SET
NOT SET
: BRANCH é‘ SWb 1S
'§‘
ITCH B IS NOT SET AND

20 NOT @‘M&«Es .

;gggo PA Sn nsgxsrsn

TTEN BITS
gak
:
REGISTER
PATTERN
: COMP
:BRANCH IF GOOD

v?E aEGISTFR IN 11 BITS IN ERROR

.SR

REG

d#POSITI,JRHEC! §OHPQRE°gO£3°60N REGISTER

14?
3

PC,

SWpuTREG

POSiTRS"
REEIgTiR
IN ERROR

UHBER OF CLOCK

A E

PULSES FROM EE é
COMMAND
iTHAT IS THE
CLOCKS IN THE R/W DATA FIELD ENVELOPE

‘"INA WRITE THERE ARE

10000 OCTAL CLOCKS

:IN
A READ THERE RRE 10040 OCTAL CLOCKS

ODE _Z ROS” GIVE THE NUHBER OF CLOCKS
RDING ZEROS FIELD
5
EN F
COUN
IS 113713
OCT

Q4S704
04s710

001432

032777

y oe

5980

04Se24

29 Z

oo oo
AN
000 DD $C‘
9
» }l\l\l\l
bERFF
- 0O0 EERSEEL

P11

L1Y

MACY11 32(104&) -NOV-77 0B8:S4 PRGE 17?
CC GENERATION AND COMPARISON ROUTINE

0D
PO?éTION” GIVES NUMBER OF CLOCKS

R LEADING ZEROS WHICH IS FOR THE DARTAR

COUNT IS 10040 OR 10041 CCTAL

000eC?

14%:

RTS

CIRJGBO,RPO4-S-6 DSKLS CTRLRI

CZRIGB.P11

08-NOV-77 08:30

MACY1l 30(1046)

0B8-NOV-77

08:54

MlY
PAGE

179

ECC GENERATION AND COMPARISON ROUTINE

7006

| SEG 0181

?88;

i #TH1S_SUBROY NE WILL CONTROL THE ECC GENERATION ROUTINE

701
Z 11

-caLL
e

#*FOR ERROR

7013

;oig 045730 000000

? 1 Bzgggg T§B9§§ 88§§6: ovors “ Eaé
i
Rl
3
;ggg g
045762 AN
00S037 045306
CLR
7026

2988 045766 00S737 045322
ous;;s

ooxoo;

7830 B4gcde BBradT

18:

7933 8328?3 383535 045330
7032

046002

046016

6s:

000403

;832 046012 00S237 045322

;037

023737

045730

04S322

7838 Buggse 433845 045332 045322
7040

7945 BuEB3

;833

046042

2s:

31T ooouoo

001016

B BB Ry o

;335
7049

5051 Bd4e0ee 0us7ii 000B0S
;§§§

832825

883;3;

PC, 98ECORR
;EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE

ERPOS: O

7017
7018

7029

CORRECTION PR

045344

#¥:

7085
;839

;POSITION REG. WHEN CORRECTION IS COMPLETE

(nggfggggzpos GSVE;gagigzgzsg quusn CORRECTION IS COMPLETE
Rt
acscbnrn
zcc
oarn xs zz ot

WPOSITI

;

BRe

3ozcooe

8-’35 ?I N-C8BE

zggggnznr°L83235?1V5"0g§§H5L“?1"° ZEROS

INC

WPOSITI

§¥558¥9§5n§"90§777e

BNE

cnps

ghp

a’ncounr

sorruaa: POSITION NON ZERO
n: F N-CODE

Q8ERPOS, 28POSITI;unv: :

S COMPLETE

15 moT comPLETE
s C

ogtggaszn G vzn ro DETECT ERROR

3mnomp awosma""v"t:fiam“nfitn.

ofen aR1

aaaucn IS ZER SEY

hon

SiroWUTEC

SBE SRS, or i

:&‘Etftgfii

Pg JsECTEST

: HECK ZERO

BETECT BIT IN RHMR

iWHEN 21 BITS IN ECC 52 BIT REGISTER IS O

+ RLERR- CLOCK

ESNT?qu"ER“TE AND TEST ECC

;#THIS EXTRA CLOCK IS TO BRING ECH HIGH
;#AFTER THIS CLOCK POSITION REGISTER MAY BE

§§§§ 84878 838711 2886RE

*%:

708l

4§:

04100

ven FOR HARD ERROR

vgzuxaa MORE CLOCKS BEEN GIVEN

"fio savs 5"§u

53"

ETE

etk

3Rt

i ZEeak-CCbok

10040 OR

10041

OCTAL

CTRLR 6
CZRJIGBO, RPO4/5/6 DSKL
CZRIGB. P11
08-NOV-77 08:3
7
2063

096102

MARCY11 32&&0”5)

Nl4

08:S4__PAGE 180

=NOvV-77

GENERATION AND COMPARISON ROUTINE
RTS

000200

SEQ Ole2

7064
c06S

7066

7067

7069

; #THIS SUBROUTINE GENERATES THE ECC FOR WHAT

; #ON LOCATIONS *“DISK+1000" AND *"DISK+l1002"

707
7071
7072

i -~
;875
{20 0050 ;

AR Em
?O;g
8:2140 §1
708
iqq lg
7081 Queiso
7083
7084

705
7087

154
156

Gueies
l?g

708 Gueoi
7090

177777

BOTaE

1357

pby

7094

046236

000207

;895

i
200408

013737

#256. .R2

:COUNTER FOR

RY
118
o-i.aoeconrn

045308

o4
O4S344

335312
831

;CLEAR POSITION

#16. . R3
(R1)%,R4

98:
108:

AWPOSITI
glcECCé
#GECC
#DISK,R1

000020

ol
,

FILLEC:

Q4S3ee2
8:5318

SECDATA

léi:
128:

,O8ECTEST

R
& $

0Sa416
0Se420

IS CN DISK AND INSERTS THEM

iCLEAR GECC1
;i CLEAR
iPOINTER Tgnoarn FOR ECC GENERATION

NUMBER OF DATA WORDS

:COUNTER FOR NUMBER OF BITS PER WORD
;DATA IN RY
gnrn BIT }N CARRY
H s DATA BIT
IS ZERO
DATA BIT IS
A ONE

IGET
:
{ECC
:GO0

TE Ecc

H TO

:ECC

_DATA
GE

S A ZERO
ECC

T
:DECREMENT BIT ?
;
H IF |
TS NOT DONE
COUNT
DECREMENT
;
:BRANCH IF E
WORDS NOT DONE

cc1.a-ox§x+<é 9.na>; NS
CC2.asDISK+<257.

%2>; INSERT

Eccx ON DIS

ECC2 ON DISK

733;

7098
;?99

.SBTTL

s R
; B

7104

;iOS

0137

7lor §§§fllGues d lovcs
o4y

7113

ouesz

pigo)

il
B
0657
7xi§ OHE4YY 62 718
711

D46480

162

BRSECH:

THI

RH BARSE ADDRESS CHANGE ROUTINE

ROU TINE u;L; ALLOW THE CHANGE OF THE BASE

RADDRESS FROM 1 6700

10 ANY TYPED VALUE

- (SP)
@8RH,CS]

;GET RERDY TO TYPE OLD BASE

0ss172

PC,J8STKINT

;INITIALIZE THE TTY KEYBOARD

B .,

$RHDB, RO
'iS' 56

;GET
;

001640

.
9SP,

1640

c2s:

Tz
Al o)
J8RACS1

(SP}
gonucgé JSP

SP,

(RO)+

Tnnrxgg noonsss OF REGISTERS
R OF
REGISTERS

iSET gp TO CHECK NEW RDDRESS
”?
W

IN -SKIP

'ACCESS
THE
{GET THE

{AND PLUG

NEW ADDR ESS
RESS OFFSET

FhELR-SIBIFREOR-EEBVRRELN"So0 Bl

B B A B R S B S RN RN BN B BN RS B B B ) ]
im
B I B
I eT B
R

N L L
= (0~

Per b abah ahn ot hos hs bt Bt Bt s Bt Bt et Bt Bt s Pt Pt et Pt Pt Pt Pt Pt Pt ot Pt Pt s Pt Pt

OO0
r )

RPO4/5/6 DSKLS

CTRLRI

08-NOV-77 08:30

046452
Ous:gg

005301
001375

046634
045;83

ax;
12936

g:é H ?észas 001626
046

8:275“

63345

046710

w02

760
047583

104402
012746

047220

000137

04?7

047224

047302

047304

1044

022626

000137

MACYLl 30(1046)

8e-nov-77

08:54

RH BRSE ADDRESS CHANGE

DEC
BNE

Qegoc

BlS

PAGE 181

Rl
23

;GET RERDY TO TYPE OLD VECTOR ADORESS

(SP)+,@8RPVEC

;SETUP VECTOR ADDRESS

RDOCT
MOV

MOV

J#RHCS1,
- SP)

001626

MOV

JWRPVEC, - (SP)

TYPOC

TYPOC
MOV

000200
004240

TYPOC

ADTIMO:

046240

IMP

CMP

Imp

#RA, - (SP)
J#BEGIN

;0K,

(SP)+,

:RESTORE THE STACK

(SP)+

J8BASECH

:#THIS IS A L:T;%s nourxns THAT
,iTHIaELOOPS HERE
FOR EVE

)

47310

000000

7316

013712

837312

047322
Q47324
047330
047332

047334

804732

005714
022712
00!%0!
000773

000772

us;

*WITH WHAT

0426 14

047310
010000

ERUNIT: O

ONLY IF

IS REALY

PC, 38CLDISK

18:

RY
#NED, 3R2
2%
13

2%:

TST
BIT
BEG
ER

B8R

IsERUNIT, 3R2

NOW START OVER WITH NEW ADDRESS

‘AND DO IT AGAIN.

TESTS NED BIT

IN RHCS2

Héves PRESENT LOOKING AT NED DOES NOT RGREE

ERSTART: JSR

MOV

:DONE ALL OF THEM YET?
:NOT YET, SO DO MORE

J8RPVEC,-(SP)

001626TM

001640

ROUTINE

;UNIT UNDER MANUAL TEST
iSET

:SELECT

ncnn# REG.

UNI

:TEST RHER1
*TEST NED
:BRANCH IF GOOD
*NED NOT SET

*NED SET

SEQ 0182

SBTTL

DISK SIMULATION

lIN azm*YE
%% BeTgNCB?
NO FILL THE FOLLOWING
CTRSHI;H

RACK

gk i kEvd18 Be Gik

l» NHORD'
;!

THE COHMM) THEN XS

TO BE ON DISK

Dg
TO BE HRITTEN ON DISK

R P

R
3 &
T ®

'%IN A uner DATA C

' #CYL=WITH YLINOER T0
: ¥SECOTR= WITH SE

‘aKEYl= WITH xsvé
ro SE

|§EY23
Wi ru KEY,

FILL THE FOLLOWING

r UND ON DISK
pcx TO BE FOUND ON DISK

OUND ON DISK

FOUND ON DISK

!.rue
¥NOW MMANG
x:=5§
F DATA WORDS TO BE WRITTEN
TUE
er PC, COMM
@X=

8
;l

;'I
#

DATA COMMAND FILL THE FOLLOWING

.-»v f= ifrn HE“zéggglg LEGUND_ON ox§
-ss OTR= Wl H
ncx TO BE FOUND ON DISK
:zev
=l ;"
Y eREoF
e rouCHORDS?xik
§“§°gus
efigng
+3'8E
Founo ow DISK
ful

-f
connnno THEN IS JSR PC,COMHD

.§Ev§I=£IHH§g8§8aSNEETRSQKrgflgg ?ouno ON DISK
IN A RERD DflTfl COMMAND FILL THE FOLLOWING

; #KEY2=WITH KEYE T0 BE FOUND ON _DISK

; #DAWORD= WITH :El
i#:X=0

MUST

.?nc COMMAN

ZER

R OF WORDS TO BE FOUND ON DISK

N IS JSR PC,COMMD

Tl R

el IR B

3
y—

08-NOV-77 08:30

ClS

.-.‘.‘t“.

3 BB U
W 2R BB8 SRR 20N S BB NR R 20N B 30 Nat i £ SR

E hur- 0B I AL ot B
+ O

B |

e e e e
A B B I i A I B
I
e e
e
e )eI
e e et It A e e
ee B
b B Bl
B B A b B
U
T e e e e e e o e e o Sy S Ty S S S Sy 5t Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt Pt Pt Pt Pt
i
AU A U W

456 DSKLS CTRLRI]

08-NOV-77 08:30

MARCY1l 30(1046)

08-NOV-77

DISK SIMULATION

08:S4

PRGE 183

SEG Ol

=206
7207
7208

7209
LE!U
221l
7ele

. #WRITE

;gig

:»0R READ

DATA COMMAND

COMMAND 1.E DATA ONLY OR HERDER AND DATA

7eis

7ele

25le
3§§3

. ##THIS SUBROUTINE IS THE FIRST IN A SERIES CF NESTED SUBROUTINES

7eel

;##IT ISSURE DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE

724

;##]T THEN CALL THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER

7eer
7228
rses

s
Pax
LR

;gsg

;#%#°G0’

;ggg

##SUBROUTINES.

7231
7232
7233
7234
7235
7236
7237

047336

2533

047344

7238

BIT

047340

000000

011637

162737

002014

000004

RUNCTR:

002014

COMHD:

THESE ARE:

SEARCH
RDHEAD
WRDRTA

.WORD

suB

#4, JbPCISR

:SAVE PC OF JSR

MOV

(SP),

38PCJISR

:SAVE PC OF JSR + 4

7242 0N7366
047374 012777
055777 000001
000004 13226M
132256

MOV

BIS

#DMD, IRHMR

:SET

7244

BIC

sMINK, JRHMR

sMINX JRHMR

8GO, aRHCS 1

;xsagg "GO’ BIT & STALL 'TILL 'RUN’

7241

DIAGNOSTIC MODE
;EETR§§nc~osrxc
INDEX

7243

0N47902

042777

0S2777

000004

132250

7245
2496

04”410

132222

BIS

047418

012737

000113

047336

RUNWAT: MOV

#7S. ,38RUNCTR

H(F
r;gt CODE ;s 1SSUED BY THE TEST)
:LOAD STALL COUNT = APPROX. 4S0US

7248

087424

00S2337

047336

18:

DEC

28RUNCTR

:COUNT

7251

047432

013746

047502

MOV

SECOTR,

-(SP)

;GET oesxnsg SECTOR/ TRACK

7253

047442

012637

047452

MOV

(SP)+,

'@8TRK

;SAVE

7247

;ggg

047430

7436

7946

001375

oua7x;
004137

256

74E2

7258

(047460

010137

7263

Q47470

010137

7257
7669
7261

7464

Qu74e4
047474

000001

1777490

BIC

053546

IAGNOSTIC INDEX

:FOR #1/50 CPU WITH CORE MEMORY
DOWN ONE

:CONTINUE UNTIL = O

2177740, (5P)

;naxE ONLY

SECTOR

JSR

R1, 985EARCH

.WORD

047512

MOV

R1,an5s¥N

INOP

Q47Ele

MOV

R1.JWHEDSYN

:NOP INTO HEDSYN

01270i

000240

010137

Q47E14

004137

BNE

:CLE

QOwrEse

TRK:

MOV

MOV
ISR

8+NOP,R1

R1 . IsHEDGAP
R1.J8ROHEARD

:1SSUE SECTOR CLOCKS (=====m=memeaeaes)
:GOING TO MOVE NOPS

‘NOP

INTQ SSYN

INTO HEDGRP

w
n

lglg]

riry

J GBG, RP 04-5-6 DSKLS CTRLR!

JGB. P11

D1S

c’n'cao RPOM/S
& DSKLS CTRLRl

GB.P!1

08-NOV-77 08:3

MACY11l 3C(1046)

O0B8-NCV-?7

DISK SIMULATION

2585

;sgg

owrsog

000000

CYL:

L.WORD

7268

0475094

000000

KEYl:

.WORD

7270

0O47S10

000000

CWORD

7273
7er
7e7
7e?
7277

047S12

000240

7269

ZEZ§

ELS
PRGE

184

SEG 0186

: #DUMMY ERROR CALL LOCATIONS FOR THE READ HERDER OPERATION

7266

7267

08:54

047502

(04750

(000000

SECOTR:

000000

KEY2:

SSYN:

.WORD

cvunoen ADDRESS

ss
CTOR/TRACK ADDRESS
KEY1

WORD

xcva WORD
X=1

WRITE COMMAND

-x-o READ COMMAND

NOP

:IF “ERROR 2" znsenrso BY RDHEAD
:SUBROUTINE
THEN
THE FIRST SYNC.
:1S NOT DETECTED.
NO BAD DATA
115 GIVEN ascnuse
SYNC=144000
:CANNOT BE
WORD

TET
zggg

115 "1 BECAUSE THIS IS THE FIRST
:WORD TESTED

7281

7282

O087S14

000240

HEDGAP:

NOP

: IF "ERROR 3"

INSERTED BY

:RDHEAD SUBROUTINE THEN THE

7283

' HEADER

7284

0°'S WERE NOT

‘WRITTEN RIGHT.

7285

:IF "WORD NO” CONTRINS,

SAY

7286

13(8), THEN IT IS THE THIRD

7288
7289
;gg?

:GAP THAT IS WRONG
:*BAD onrn*HEouTnxns WHAT IS
:GOING ON THE
DISK

7287

7292
7233

*WORD'OF

ONM7SiE

000240

HEDSYN:

NOP

A 5 WORD

choen

:IF "ERROR 3" INSERTED BY RDHEAD
;suanouréue T"S" THE HEADER SYNC.

7294
7295
7296

: GENERATED ?V
CE IS WRONG
:OR TflE LAST
BYT
:0F THE
HERDER GAP 0'S IS WRONG

7298
7299

‘RIGHT
BYTE IS HERDER O
‘LEFT BYTE IS SYNC

7297

D IN s*vnen CASE WORC NO=

7300
;301

7385 Q47520 00737 002006

7304

047534

7206

047832

7305

005737

047510

047834

005737

047614

;gié

D47S40

001011

;gig

O47542

004137

7307
7308
7309
7210

7315

Z72le

7317

047826

(00i017

D47S4&

Q47850

0ON7EE2

001410

00000C

000O0QC

000SCH

18T

;ARE ANY ERRORS DETECTED

ouT

BEG

DAREAD

BNE

ouT

PEXIT IF SET =eemmeccccceccccecea- )

JSR

R1,I8URDATA

{WRITE DATA (====mmeeeceeecce—e———- )

TST

NOWORD:

IS GOING

BNE

15T

0S1066

IRERFLGS

:“BAD DATATM HAS WHAT
:ON DISK

.WORD

. WORD

ASNOSYNC

ouT

;§r v;

115 IT

EX
T ------------------- >

A DRTA WRITE ?

‘NO...THEN DO A DATA READ

115 THIS FORCED HERDER ERROR COMMAND
{IF YES
NOSYNC=-1 THEN unxrs OR RERD
115 SHUT OFF SO BRANCH OUT
(IF
uosvnc-o THEN CONTINUE

:NO OF WORDS TO BE WRITTEN

(EXIT =emccccccccccccccccanccaccas -

SANRTE €8

lalyl

GBC, RPON5. & ostg CTRLR!I

08-NOV-77 08:30

D4TSSY

004137

047S62

000000

04780C

000207

Q47560 000000
047564

(CSs4022

MACY1l 30(1046)

oa-uov-77

DISK SIMULATION

DAREAD: JSR

DAWORD: .WORD
ouT:

WORD

RTS

0B:54

F15

R1,J8REDATA

PAGE 185

SEG C1E7

READ DATA

(~===eme=--mmcccccaaano,

no OF uonos T0 BE READ

:EXIT ROUTINE

MARCY11 38%%24&%"U88;N0V-7?
ION

; #*THE D&SK SECTOR I

%19 WORDS

DSKLS CTRLR

08:54

GlS

PAGE 186

DEVIDED AS FOLLOWS

WORD 144000

:#THESE MAKE 39’ BYTES FOR SECTOR GAP AND ONE SYNC. BYTE
6 4400

RSETR:
:

; #S

0
0

WORDS

ONE

_WORD

144000

i#THESE MAKE11 BYTES FOR HERDER GAP AND ONE SYNC. BYTE
:#THESE ARE DCL GENERATED
: #THERE QRE 256 WORDS OF DATA
;#THERE ARE 2 WORDS FOR ECC GENERATED BY DCL

:#15 WORDS OF O FOR DATA GAP AND TOLERANCE GAP

SEG Clee

CZRIGBC,RPO4-S-6 DSKLS CTRLRI
C2RJGB.PLL
08-NOV-77 08:30

MACY11l 3CG(1046)
0B8-NOV-77
DISK SIMULATION

n348
7349
7350

gggg

047614

00000C

7360

047ele

00000C

047622

012137

gggé

PAGE

187

SEG C1E9

: #READ DISK HERDER

zggé
T354
7355
7356
7367

08:S4

047620

000000

NOSYNC:

rggcso Hegosn ERROR
= -

TY:

:ERROR TYPE NO.

ERWORD: 0O

{ERROR WORD NO.

7363

“36e

7366

7367
73

736

0476
Y7

476

7370

047642

7374

047664

7371
7372
7373

047650
047654
047660

012137

137

12137

012137

013700
012705
718

047604

RDHERD:

04760
761

0476l

MOV

(R1)+,

@J#RCYL

MOV

(R1)+,

QSRKEY

MOV

0SO0412

MOV

001660
000002
000001

MOV
MOV
MOV

7376
Qurerq
052;18 8888?5
?37?
7700 835~6q

B1e
EA

710

000010

BIS

7378
047702 012710 000013
7379 047706 04271C 000012

18:

7380 047712 012702 000007
7381
047716 055710 00000
7
Q47722 0427i0 000002
7383
;ggg

047726

o«;;ao

2%:
33:

00S302

7386 D4ro3e 00136

7389
8: ~E
7390 047752
7391

047754

80537;

04776M

004737

7392

04778p

7394

7770

7393

7395
7256

7774
7?76

ev E COUNTER

“
nucu IF avrs NOT COMPLETE

PC,

P HRARCH TR HORD NOT COMPLETE

J#READ :COUNT
cs 90 READ

ngfsv

gvuc BYTE DETECT;E

000001

047820

NE
MOV

001000

7402

CE0034

8537 7

047e0e

0SC410

0S0414

Qs0M14

BNE

JSR

0S0410

4737

:nchkaHCLK 3RO R CLOCETFSanéRS&Ro

;SYNC.

0S04IM

047604

DEOON2

FOR FIRST WORD

FBRSYNC, J8WORD

0137237

7402

T SECTOR

MOV

38271

004737

sMSTEK, IR0

‘RO CONTAINS MARINTANENCE REG.
‘RS IS A COUNTER FOR WORDS
-génc ngos

050410

080022
0S0030

JSRHMR, RO
82
RS
cohg
gno

agg

JSR

7400
7401

QSRKEY

goconpn-s ons conpnns OR NOT

rR2’

Q47602

7339 328838 BAGEF

cron AND TRACK ADDRESS

DEC

013737

§°
0127

(R&)+

sroas CYLINDER RDDRESS

MOV
BIS
BIC

MOV
BIC
BN

737
050414
3

(R1)+,

QWRSETR

2%
Efiflcnss
GIVINGgecron FOR FIRST TIME
SMSTCK!MCLK!DMD,
bno
s;
SECTOR,
CLOC . DIARG. MCDE, RESET INDEX
onsrcx MCLK,aRQ';REQE sscron
LOCK
Re
IS Acoun?sn FOR BYTES
oneLx
arR0
s
LOCK
.HCLK ar0
IRESET CLOCK

DEC

001372

(R1)+,

S§:

JWREAD

arR0

aosnuo

143

MOV

AsRCYL, aouono

MOV

Sohssm Y%WORD

JSR

ISR

JWREA
SRERD

C.asREAD

WORD

RANCH IF svnc os
.e

: BRANCH

serup chxNosn
SETUP SECTOR/TRACK

{REARD

cvso

0S0410

MOV

404

013737

004737

047610
050414

7412

050112

0057;7

0S0412

7414

0S0120

012705

0S1402

7405

aonxsvx JSWORD

;SETUP KEY!

J8COMPA

115 THIS A READ OR WRITE COMMAND

SHEGAP, RS

:POINTER FOR HERDER GAP

aoauono

TEST WRITTEN WORD

MOV
JSR
MOV
JSR
15T
BNE

:REA
aohxev
JBWORD
SETUP
KEY2
g
READ
i RER
a
RC,98WORD :RER
;SETUP CRC
C,an $n
?Eso
.xs
THIS A DRIVE TIMING ERROR
13:
:BRANCH OUT IF YES

7413

BEG

118

050116

001472

050124
050130
050136

012702
012737
004737

00000S
000006
050646

7419
7420

0S0146
050150

001413
160237

0476 o

7422
7923

050160
ggoxss

013737
012737

0S0644
104003

7425

(050176

013725

0S0644

7428

050206

004737

050646

7418 050142 005737 0S0644
7421

7424

7426
7427

050154

050174

050202
050204

6037

005302
001351

001124

JSR

PAGE 188

7406
013737
047612
0S0410
7407
7g
o4 iY
7408 0801
13737 050414
1400 050410
7409
004737
7410
050104
005737 002026
7411
050110 00113%
7415
7416
7417

050054

(08:54

TST

MOV

047620

68:

7%:

0S0220

7435

0S0226

7437
7438

050234
050236

7440
7441

0S0244
050252

7444

050274

000443

050302

00044

7431
7432
7433
7434
7436

7439
7442

7943

7445

7446

7447

080222

0S023C

050242

050260

001426

005737
0014

005737

001420
005037

00040

0137
013737
012737

013733

(12702

00000S

7450

050314

737

0S0414

742

050322

00137

0S03

004737

7483

7484

7485

050320
050324

746

050342

743

0E03s0

74E7

748

0S0344

(0S03E2

302

013737

047602

00S737

047614

001404

032710
O0O0IW1E

DO0W03

0S04914

001000

MOV
EC
NE

BEQ
CLR

001124
00112k

047620

14%:
158:

108:

MOV
MOV
MOV

MOV

B8R

MOV
BR

:NO OF WORDS OF zsaos
ERROR WORD NO
S
:FOR nsno;n

:BRANCH IF cooo THRT IS 0
:WORD NO xn5

J88GOOAT

138

uoao SHOULD BE C

;ano DATA
RROR 2" GOES IN HEDGAP

;BRANCH_bu

S8UWWORD, (RS)+

R
[

:SAVE HEADER GAP

@WURITE ;WRITE HEADER (DATA) GAP SYNC

anhsvnc SWWORD
108

J8NOSYNC

;1S THIS FORCED Hsaosn ERROR COMMAND
:IF YES NOSYNC=-1 THEN x TE OR READ
:1S SHUT OFF SO BRANCH o
:IF NO
NOSYNC=0 THEN CONTINUE

148

;BRANCH IF TRUE ERROR

JSULORD

;

108
asscooar

.a ANCH IF GOOD
;1T SHOULD BE_ZERQ

:BRANCH TO TYPE ERROP

aonsvncgoscoonr
asuuono #$B0DAT
ORD

oxbwooa aoflsosvn
138

J8UWLWORD, (RS)+
138

:GOOD DAT
:BRD onra

s BRANCH OUT

:SAVE DATA SYNC.

*PEAD COMMAND START FROM HERE

i1s:

7449 (0S0310 00SC37 0S0410
7451

TST

0S06H4Y4

0S0304

SWWORD,
$BDDAT
oéoqooa.anueocnp

BEG

001124

7448

MOV
MOV

TST

060266 012737 1049003 047516
050276

7%
R2, 38ERWORD

157

BEG

0S0644

000006

BEQ
SUB

CHP

047614

47602
De44

%S,
R2
86, J8ERWORD
PC.ASWRITE

JSR

7429 0S0212 023737 047602 0S0644

7430

MOV
MOV
JSR

CLR

001126
047514

anRS D

1es
0S0410

MOV

FC,

READ

CLR

uoho

DEC

JSR

BNE

MOV

JSR
IST

BEQ

12%

a-nsvuc J8WORD

'RERD

asNOSYNC

:IF NOT BRANCH
:SYNC WORD

‘READ HEARDER (DATA) SYNC)

168

: IF NOT snnon COMMAND BRANCH

138

:IF Z2ERO BRANCH OUT

BIT

80DTSY, 3RO

17%

BEG

:READ HEADER GAP

:1S S HEADER GAP ZEROS COMPLETE

:SYNC. DETECTED

:IF NOT ZERO BRANCH TC ERROR

(&)

g NOV-77

IMULATION

MACY] 1 30(1042

[

CTRLRl

08:30

o -NOV-77

¢ZRIGBO,RPO4/5/6 DSKL

C2RIGB.PIL

IlS

CZRJGBO, RPO4/5-6 DSKLS CTRLRI

CZRIGB.P11
7460

0S0354

~ 7461
7462

050360
050362

T4ES

0S0404

08-NOV-77 08:30
032710

00101l
012737

MACY1l 30(1046)

DISK SIMULATION

001000

000006

D47620

463 050370 013737
047602 001124
74e4 (0E0376
012737 104002 047516
‘:Eé

0SC40e

000201

08-NOV-77

0B8:54

J15

BIT

#DTSY,

17%:

MOV
MOV

aoksvuc
J#SGDDAT: SYNC WORD
#1049002, 9#HEDSYN'

RTS

138:

1as

WORD

;SYNC.

SEG C1G1

168:

BNE
MOV

PAGE 189
DETECTED?

:BRANCH IF YES
'ERROR WORD NO.

c2 RJGBC,RPO4/5-6 DSKLS_CTRLRI
CZRIGB. P11
08-NOV-77 08:30
469
470
471
TY7Te
7473
7474
7475
7476
74977
7478
7479

7480

7481
7482

050410

050412

MACY11l

000000
000000

o4
30 (1046)
EB NOV-77
D ISK SIMULRTION

; *RERD

ONE

WORD:
COMPA:

0
O

WORD

08:S4

K15

PAGE 190

SEG Clg2

IN "WORD"

7483
7484

0S0612
OSO0ele

000021
O4S31i4

7%:

8s:

4s:

J8ECDATA

ROR

8WORD

MOV
1ST

(SP)+.
&RD
asTselce

BCC
MOV

BEG

PS5

#0MD

43
#MRD!DMD,
C1

&
e
# —~D

b
DO
=

p )

—

CLR

MOV

WE e

#-1,d8ECDATA

SECTOR

ED FOR THIS BIT

EN FOR DATA ENVELOPE
EST ECC

-(SP)

BReRn

045306
0001
0410

MOV

045306

8%
8MRD, 3RO
7

RE IS A ONE

(SP)
THI

DATA
DE AND
G. MODE,
CLEAR CLOCK

—“DO

7523
7824

177277

sMeLK
asTSelce

RSB
Hg-dz-"
§OZ
3-4 -.-4D°-4 Drc R5G

5218
i

7250
7822

BEQ
BIT
BEG

e B

BIS
15T

3s
gnonrsn
C, J8ECTEST

DIAG. nooe

0CK,

751

BEQ
INC
JSR

sTSELC

&R0

MO
X

7Ble ok

TST

SMRD'

A ONE

38:

(SP)+,

MOV

DIOZ

7209 D20e3e

MOV

O4S314

2s:

J8WORD

BCC

ocx DATA IF ANY, SECTOR
NERATE AND TEST ECC

g g Amo
o]
z2g

ososas

000021

ROR

#-1,38ECDATA
68
J8ECDATA
80MD
-(SP)

—

75{0

895301

5§:
BS:

S306

MOV
BR
CLR
MOV

hRo
1S THIS

0S0S24

1
1

045306

6%
#MRD, 3RO
39

_IF DATA HAS ONE

1777227

OHQTCK'HCLK

J8TSECCG

ETEBéT 4

7500
7501
7802
7503
7504
7505
7506
7807

BEQ
BIT
BEQ

000020

SRO
2

CHECK%NG
IF_THERE
IS A ONE
BRANCH

IF NO

ST S

0S0462
osou;u
0S0472

BIS
TST

18
cnRo.

; WORD COUNTERDE

DN
O XM
oTM mo

7497
7498
7499

000012
045314

aRO

I VWS

;:33 oéouse
7436 osougs

19:

#0MD
AsWORD

0SO44M

90020

BCC
BIS
MOV

7483

8§§w;

MOV

MOV
ROR

WL WL R

READ:

000002
320001
0410

?Heg
7489

0S0414
050416
0sS04ee
0S04

m
0D
D

7485
7486
7487

0 GENERATE ECC

R1
CTRL30
GBO,RPO4/S/B
CZRIGB.
OV-7s708:
P11 08-Nost

CZRI

37
525
44
045326
37 0453
0047302
24 0052
050620
2626 0S06
0506 %1341
7627 0506
7528
05
005300
34
(506
2529
0013
36
0S0e
7630
>531 0S0e42 000207

L1S

ov-77 08:54 PAGE 191
oe-nON
MACY1l 30(1
DISK046}SIMULATI

qg:

INC
JSR
DEC
BNE
DEC
BNE
RTS

TENY
JWDA
ECTEST
PC,8
R2
33
RS
1§
PC

DATA ENVELOPE
N FOR
GIVE
KS
CLOC
OF
ER
NUMB
ECC
TEST
AND
nme
csne
TOCOUN
1G0_
TERNE BYTE NOT COMPLETE
E
'BYT
IF_O
NCH
!BRA
COUNTER
{WOR
!BRADNCH IF ONE WORD NOT CCMPLETE

SEG 01932

CZRJGBO,RPO4-5-6 DSKLS CTRLRI

CZRIGB.P11

0B-NOV-77 08:30

MACY1l 30(1046)

0B8-NOV-77

DISK SIMULATION

223
'77239

08:54

PAGE 192

SEG 0194

;#WRITE ONE WORD WHICH COMES BACK IN “WWORD"

2840

5241

2243
2843

7844

7545

0SOb44

000000

WWORD:

2847
2248
7249

7850

(0S0646

7382

0S0e62

7881

080656

012705

000002

012710

000OOI

722 B20e52 Bi8%%

0013

7558 0506

§gzzw 000040

7558 gflfi 1 7% 177777 045306
7889

7560

(50712

WRITE:

MOV

Hov

:WORD COUNTER

3ST Rl mooE oo

’&?%cfiog ANDC

$HiR, 3RO

; cxHunp% BIT IN LOINT. REG.

SEC

g3
J8ECDATA

1SET _CaR

MOV

045306

25:

RO
CLR

Sidwrem

%2, RS

sl 9RO

#-1,38ECDATA

: cC 75 3 5 IS A ONE

L ROVE1 FORMARD
ECE 92“"‘ITIS =0

;Ezg
92873 004737
P %39%
ousaze
7569
e
?'s%
718
=
75 74
9
Bi 177777 ous306
2

re
ISR
§g
MOV
SEC

S
Caosc*gsr
ss
o-x,aozconm

8 HPocks GIVEN FOR DATR ENVELOPE
uscx xr axr IN RHMR
& HTA
BIT1S A ONE
ARRY

7878 E@ gg? 045306

8secoata

ECC DATABIT 1S ZERO

IRV

2275

080774

5s:

BB RE pmm 0
7286 021039
7567 0Eigae
7ée8

Q0s30%

ROK

BRE
DEC
BNE

RS
18

gg uenm
AND TEST ECC

'MOVE 1 FOR WWORD

Nx"eséf.esses*zus“s"
’

nor P 1B END - BRANCH

CouNT FOR_LORD END

YF NOT WORD END BRANCH

0,RFO4/S6 DSKLS CTRLRL

P11~

"08-NOV-77 08:30

0S1042

010337

0S10Se

000207

0S0e4M

MACYLl 30(1046)

0B-NOv-77

DISK SIMULATION

08:54

MOV

R3, 38WWORD

RTS

PAGE 193

;STORE THE WORD

SEG 0198

*RJGBO,RPO4-5-6 DSKLS_CTRLR!
2RIGB

ZRIGB. il
P

08-NOV-77 08:30

MACY11l

30(1046)

0B8-NOV-77

08:54

DISK SIMULATION

Blb
PAGE

194

SEG 019

7595
7596
7899

;#WRITE DATA - PUT DATA

7600
7601

:#ONE WORD AT A TIME

INTO “DISKTM AREA FROM “WWORD"

7602
7603
7604
760S

7608
7609
7610
7611
7612

051060
051062
0S106M
051066
0S1066

000000
000400
000000

011137

051060

;gig

0S1074

012137

0SN412

0Sl1l2

012701

000016

?
7621
7622

051126
051130
051132

00S301
001374
013700

7624

0S1142

7613

7616

7617

7618
7619

7623

7625

051072

0S1116
0Sl1l22

012102

012703
012723

0S1136

087%

osxxgs

163716

COUNTD:
FORMAT:
ZWORDS:
WRDATA:

asxxgs

0127

7631
7632

1179
051200

7
013723

1206

00137,

7637

ggxaxa
1214

1409
737

7639

0S1

ggxx

7633

%1em

7635

051210

7634

7638

a7g;

302

18:

013723

7640

051226

00137

764
7643

1
ggxawo

012701
0047

764

7644

82‘539

1244

7645
7646
7647

ggxggg
1
051264

7643

0S1264

7648

7680

051260

0€1270
-

304

005037

013723

005301
001372
004737

013723
012701

004727

MOV

(R1)+.38COMPA

MOV
MOV

:SAME IN R2

#14.

:NO.

sTOLGAP,R3
#-1, (R3}+

1660

R1
18
S8RHMR,

1060

SUB

J8COUNTD

1062

MOV

051064

MOV

177777

8262‘5

46
0S0644

045314

7%:

2%:

045314

000002
0S0E46

050644

4$:

c§:

D64E

000016

0SOB“E

)

MOV

JSR
MOV

o-*

A8TSECCG

PC, 98WRITE
ASUWORD, (R3)+

EE]

MOV
JSR

MOV

)

:COUNT

I1s nns TO0 GENERATE ECC

THE *

13«“ ARER

INTO "WWORD"
ON SIMULATED DISK

DOWN

JSUWORD, (R3)+

;STORE INTO "DISK"TM

CLR

:WRITE
;gr

*ANY 2EROS TO BE WRITTEN

DEC

BNE

IS THIS
AN ECC TEST ?
H IF NO

4%
PC, 3SWRITE

MOV

:CONTINUE IF ALL WORDS NOT WRITTEN

BEG
JSR

MOV

X3 :

;NO. OF ZERO WORDS TO BE WRITTEN

MOV

DEC
BNE
JSR

0644

:IS 14 COMPLETE
; IF NO BRANCH
{RO CONTARINS MAINTANENCE REG.

;

DEC
3%:

(SP)

(SP), a8ZWORDS

OF TOLERANCE GAP WORDS

:START OF TOLERANCE GAP TABLE
‘MAKE IT 177777

5§¥§é62"
78

TST

050644

I8FORMAT,
- (SP)

OF WORDS TO BE WRITTEN

:COMPARE OR NOT

?8¥
BEQ
NE

0S0646

;STORE NO.

(R1)4,R2

DEC
BNE
MOV

704

°5‘§§3

(R1),38COUNTD

MOV

7629

MOV

0S2424
177777

2259
ggiisu
84
37 002024
7628
051160
0014
7630

O
256
O

JWTSECCG

22,R]
PC.WRITE

:BRANCH IF NONE TO BE WRITTEN
‘WRITE ZEROS INTO "WWORDTM

:NO MORE ECC TO BE

:WRITE

GENERATED

,
ECC1 AND ECC2 ON SIMULATED DISK

ISUWORD, (R3)+

:STORE

PC,WRITE

:WRITE DATA GAP INTO "WWORD"

SWWORD, (R3)+
814,

PC,BWRITE
’

ON WEECI AND WEEC2

:STORE INTO “DISKTM
’

WRITE TOLERANCE ¥GAF &EMU
ZERQOS

coga0!

MOV

0B:54

Cle
PAGE

Qs WWORD, (R3:+

DEC
BNE

Rl
63

RTS

195

;STORE

INTC "DISK"

[}

0S0&4d4

3 0(l 046 )
0B-NOV-77
DISK S 1 MULRTION

[

013723
005301
001372

MACY11

C2RIGBC, RP 04-5-6 DSKLS CTRLRI
08-NOV-77 08:30

CIRJIGB. P11

RJGBO,RPO4.S. & DSKLS CTRLRI

GB.P11

28-NOv-77 08:30

MACYLl 30(1046)

oe
-NOV-77

DISK SIMULATION

08:54

D16

PAGE 136

EG 0198

53
660
Bb1
662
7663

565

-uquTE HEADER AND DATA

7HER
iggg

-rnxs IS THE SIMULATED DISK
.
'#ONLY ONE SECTOR OF SPACE IS ALLOWED

7671

&t'

7674
7675

1320

000023

SECGAP:

.BLKW

0001
000S
000001

£85
g6

051400
051402
0S1414
051416
0Sivieé
052416
0S242C

TBLKW
.BLKW
.BLKW

I
&
1

0DOO400
000001
000001

fignc:
GAP:
HOWSYN:
SILOTB:
DISK:
WECCi:
WECC2:

.BLKW
.BLKW
.BLKW

2Sb.
I
1

zggg

082424

00CO1E

TOLGAP:

.BLKW

IM.

7678
321355
000001
7679
051370
000004

"680
7681
82
683
7684
7687
7£30

0S2422

000001

WSSYNC:
.BLKW
HERDER: .BLKW

DTAGAP:

.BLKW

i9.

1
4

;SECTOR GAP 38_BYTES OF O

;SECTOR
GAP 1 BYTE OF O ONE SYNC BYTE _ «'HEADER
= CYL, SECTOR.TRACK, KEY1, KEY2

: CRC
;HERDER GAP 10 BYTES OF
U
:
‘HERDER GAP 1 BYTE OF O ons SYNC.
:USED IN sx#o TEST AS SILG TABLE
:DATA SPACE
1ECC!
TECC2
‘CATA GAP 2 BYTES
OF

! TOLERANCE GAP 28 BYTES OF O

BYTE

CIRJGBO,RPO4-5.6 DSKLS_CTRLRI

CZRIGB.P11

08-NOV-77 08:30

MACY1l

30(1046 )
08 NOV-77
DISK S IMULATION

0B8:54

PRGE

197

SEG 0199,

7691

‘"

7892
7693
7694
7695
636
7697

:*WRITE HERDER AND DATA

;;8?

; #%THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES

;igg

:-xr 'ssu;s DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE

7704
7708

;##IT

'?'70'8

‘S

330,

THEN CALL

:##SUBROUTINES.

7709
2710

L R
s RE

7711
’rvle

THREE OTHER SUBROUTINES,

THESE RRE:

WHICH

IN TURN CALL

OTHER

WRHERD
WRDATA

7713
771N
7718

7718

0S2460

.WORD

(SP), a#PCJSR
84, JbPCISR

'SAVE PC OF JSR + 4
:SAVE PC OF JSR

127142

MOV

;SET DIAGNOSTIC MODE

000004
000001

127126
127100

BiC
BIS

JRHMR
cnxuk
JRHMR

sMINX' JRHMR
8GO, IRHCS1

CLgnn 1T
:SET
"GO’ BIT & STALL 'TILL ‘RUN’

012727

000113

0S2460

RNWAT1:

MOV

#7S. ,3WRNCTRL

;LOAD STALL

0S2S46
082552

00S337
001375

052460

13:

DEC
BNE

J8RNCTR1
18

:COUNT DOWN | TIME
!CONTINUE UNTIL O

7732

0S2554

01374

052640

MOV

aousscrn -(SP)

;GET DESIRED secron/rnncn

7736
;;g;

0S2570
052574

094137
000000

053546

JSR
.WORD

R1, 38SEARCH
O

; ISSUE SECTOR CLOCKS (============)
:SECTOR NO.

7739

0S257&

0127

000240

MOV

#+NOP,R1

:GOING TO MOVE NOPS

810137

052652

MOY

R1, 98SEGPER

R1.J#FSYNER

INOP

2656

MOV

R1. I#ERCRC

iNOP

INTO ERHERD

INOP

INTO ERCRC

7713
g;g?

0S2462
0S2466

7722
7724
zzgg

000000

RNCTRL:

011637
162737

002014
000004

002014

0S2510

012777

000001

0S2524
052832

042777
0S2777

7727

0S2S40

7729
;;g?

COMWMD:

7723 0S2S16 0S2777 000004 127134

MOV
SuB

BIS

;'RUN’

LINE

STALL

COUNTER

'SET oxncnosvxu INDEX

7728

7733

;;gg 0S2Se4

2716

012637

177740

0S2574

7740 ggsggg 010135 052650
7741

7742

7743
7744
7745

0S2ele

052616

052622
0€2eze

010137

810137
010137
010127

BIC

052654

0S26EQ
0S2ee2

MOV
WTRK:

MOV

MOV
MOV

81777490, LSP)

(SP)+, aburnx

R1.I8ERHEAD

R1. IWERHDGP
R1.J8HDESYN

‘FOR

COUNTER

= APPROX.

4S0US

11,50 CPU WITH CORE MEMORY

,nnxs ONLY SECTOR

:SAVE SECTOR

: NCP fnro SEGAP

‘NOP
:NOP

INTP FSYNER

INTO ERHDGAP
INTO HDESYN

004137
000000

082646

Q00000

)
ES-NOV-??
IMULATION

0Se7?3e2

00000%

0see3e
052636

MARCY1l

g.:mcao RPO4-S.-6 DSKLS CTRLRI
ZRIGB.P1!
08-NOV-77 O g:30

08:S4

R1,J#WRHERD

PAGE 198

SEG 0270

;WRITE

THE HEADER

s CYL INDER
;SgsIOR AND TRACK

(~===--ccecacacao P

;KEY2
; GOOD CRC

; #DUMMY ERROR CALL LOCATIONS FOR THE WRITE HERDER OPERATION
0S26e50

000240

SEGPER:

NOP

; IF "ERROR 6" INSERTEO BY

NRHERD SUBROUTINE THEN
iSECTOR GAP GOING ON DISK
: 1S NOT RIGHT.

; WORD NO.

CONTAINS ¥HILH

;

;FIRST OF TSNTH OR HHR' EVER NO.
:BRD WCRD IS
0S2682

000240

FSYNER:

NOP

GOING ON DISK

; IF “ERROR 6" INSERTED BY

iWRHEAD SUBROUTINE THEN

:THE LAST O BYTE OF SECTOR
’

WORD NO.

CONTAINS 20

RIGHT BYTE IS SECTOR GAP
iLEFT BYTE IS SYNC. BYTE
'g?gK
WORD IS WHAT IS GOING ON
0Szes«

000240

ERMERD:

MNOP

NSERTED BY

; IF “ERROR

:WRHEAD SUB OU INE THEN
HERDE GOING ON DISK
S WRONG.

;WORD

NO é = CYLINDER NO

‘WORD NO 2 = SECTOR/TRACK
HORD NG 3 = KEY!
ORD NO 4 = KEY2

gflg WORD IS WHAT IS GOING ON
0czese

00C2+0

ERCRC:

NOP

; IF “"ERROR B&"

INSERTED BY

:WRHEAD SUBROU TINE THEN CRC WRITTEN
iON DISK IS IN ERR
;GOOD DATA IS WHAT SH U LD BE CON DISK

BRD DATA IS KHAT IS GOING ON DISK
ERHOGP:

NOFP

WORD NC

IS 5.

; IF “"ERROR &°

2C0e40

INSERTED BY

{WRHEAD SUBROUTINE
Lfi

0Szesl

THEN HERDER

RPOY/S6 DSKLS CTRLEL

08-NOV-77

09 NOvV-7?7
S SIMU LATION

MACYLL 30 (1 046 )
ISK K

08:54

Glb

PRGE 199

SEC G20l

;GAP GOING ON DISK

;WORD NO.

IS WRONG.

GIVES WHICH OF

i THE HERDER GAP WORDS

iARE WRONG. FOR EXAMPLE:
NORD NC 1 = F;RST SEQDER

BQD WORD IS WHAT IS GOING ON DISK
0S2eb2

000240

HCESYN:

NCP

: IF "ERROR &"

INSERTED BY

HRHERO SUBROUTINE THEN LRST
HERDER GAP BYTE OR HERDER

SYNC BYTE GOING ON DISK IS WRONG.
ORD NO

BGD DATA IS WHAT IS G gxnc
S HERCE
HER
R
.8N DISK, RIGHT BYTs é
; AP O BYTE, LEFT BYT IS HEADER
SYNC.

0S26e4

0S2670
0S2672

0S267&
g0se?

00S?37

0020C6

004137

0Si3deb

001004
0COCOC

Ccoooae

osergc2
0S27ie

TST

IRERFLGS
0
FOoUT

iIF YES EXIT =cmemmmcmcmcceoeaaae ’

JSR

R1,ISWRDATA

HRITE THE DATR (ssscassssasuswes >

.WORD

RTS

BNE

FNWORD: .WORD

FOUT:
000207

; ARE ANY ERRORS DETECTED

iFORMAT COMMAND NO. OF DATA

C2RJGBO,RPO4S. & DSKLS uTRLR

L:R:Y:S A1l

og Ngs-.-.

MACY11 30(104

*836
7837
>838
7839
7840
7841
842

1#R] = SINULRTED orsx
:#R2 = BYTE
COUNT

784E

‘#R3 = WRITE WORD

7E47

:#RS = WORD COUNT

7848
7843
7850

? sg 052724 000

SKEYl: O

7854
7855

052726
(0S27

000000
000000

7858
7859

052732
Q0527

012137
12137

052720
2722

7861

12137

082726

12137

SKEY2:
SCRC:

O
O

WRHERD:

MOV
MOV

57 g

:
:

MOV

7862

0S2752

012137

052730

MOV

7865

2764

813700

001660

MOV

7865
7866

0527

2770
052774

012701

051320

012710
012705

DO0O0I
000C02

7867 0S3000 052710 000010

786
78

7870

149

71
7

1403

7871
7872

0S3016
82

000261
nosoog

7874

053024

000241

7873

'8 0013

0040

5655 00040

7881
7882

3 7

788
7684

ggao

7886

0S30e4

7885

7887

7888

7889

7890

0000

023044
035r18
oo0a0e
2050
140

3052
0S3054

(S3062

082070

083072

053074

0E307e

MOV

MOV
MOV

18:

40
00024 ]

012710

0QS302

00]3E2

00S30S

001342

S e

2%:

000261
88 00

006003

BIS

MOV

SEC
ROR

;S;E 3?3030 :129?8 00000
7877 ggaoaq

7876
7880

PAGE 200

;%R0 = MAINT,REG.

7844
7845

7863

08:54

: #WRITE HERDER

7843

7860

NOV-7?7

D15K IHULSTION

CLC

535
MOV

BEG

SEC
ROR

c%:

0060CI

£s:

BR
CLC
ROR

MOV

DEC

BNE

DEC

BHE

(R1)+,3%SCYL
(R1)+, IWSSECTR

(R1)+,

(R1)+.

#SKEY

]

JWSKEY2

(R1)+ 2#SCRC

$SECGAP,RI

;SIMULATED DISK INDICATOR

oono 3RC
RS

IAG. MODE
uono COUNTER

JERHMR, RO

onércx 3RO

.R NS HAS MAINT.

2%
Rg

#DMO, IR0

9 3

:fl&'fi"aésf’

c§

a0MD, IR0

aigron

'S CHE K WRITE BT

CLOCK

IN MAI

o;na

CLERR cnnn

"EVE zsfg
K sscgoq
S§8 ?

e”fincu13 TE 5 3BIT IN MAINT.REG
I

T CARR
novs ONE ronuano

;SET DIAG.

; CONTINUE

MODE, RESET INDEX

REG.

ssr CARR
MOVE ONE ronunno

ADCR.

SET secron FOR FIRST BYTE

.HSTCK'HCLK‘DHD 5RG.
#MWR , JR0

REG.

IN RHMR

MODE RGAIN IN RmiR

WWWWWWWW
WWwwwwwww

015702

rnorv

AR
ARRPRARRAR RARARAAN
Www

" U 5t e Bt s ot ot ot s s Bt s ot s s Bt s
NO FORNFROLONE RESIRERO

010321
005703
0?1414

737

0001

1124

MACY1l 30(1046)
08-NOV-?7
DISK SIMULARTION

047820

012737
004737

000022

000024
0S0646

86?3?5 050644
160237

00S037
013737
012737
000554

047620

?3:

10%:

aoi

PAGE 20!

CEQ 0202

'S aognuono

JNSBODAT
JWSEGPER
oqugos

anl?

:BRANCH OUT =====memmeccemcccceeeee,

#18. ,R2

:COUNT NO. OF SECTOR GAP

EEX

ff¥”°“° (R1)+

svone sscron GAP WORD

SUB

R2 aosnuono

IF NOT csr ERROR WORD NO.

DEC

:HAVE 18 WORDS OF ZEROS BEEN WRITTEN ?

MOV

MOV
JSR

CLR
MOV
MOV
gR
118:

001353

CLR
JMP

001126
052650

005302

R3,(R1)+
R3
73

MGV
MOV

047620

001124
0S0644
104006

MOV
TST
BEG
MOV

10337 001126
052650
5&“005
12737
137
3540

08:54

BNE

oeo aoenuono
C, dbURITE

counr 10 cxvs ERROR WORD
WRITE SECTOR GAP

a#8GD
cooo
aouuono aosaoonr BAD Wno
8104006, 98SEGPER; srone "snaon &" IN SEGPER
178
{BRANCH OUT =====m=mccmmcmcmceceean »
108

:IF NoT DO SO

.ar THIS POINT THE SECTOR FOUND FLOP SHOULD

#BE HIGH.

SO THAT

THE HEARDER SYNC BYTE CAN BE GIVEN

#HOWEVER IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE
%15 ABOR]TED - HEADER SYNC BYTE
IS NOT GIVEN

RRRAR RRRRRAR RARAARAR AAR
R
RN forok
wwwwcé Wwwww
~N
Sonesd|=]
FEERE NSE

Ry o

0\00008
BB IR EOM

NNTIINNNIN N -3 SN NI NI
N
DWW
WD WD D DD DD DD 0
TUPUNUNU#—=
0 s ps s pos Bt Be s st
W~ Owm N L W=V

76 DSKLS CTRLR!I
08-NOV-77 08:30

I1l6

00S737

001i47
004737
013711
023721
001414
012737

002026

BNE
JSR
MOV
CMP

050646
050644
047602
0QO0024

BEG
MOV

047620

013737 047602 0O0ll124
014137
012737

001i26
105006

815702

000004

000524

1 70;
012737
004737
013711

022321

052720
000005
0S0E46

128:

047820

0S0e4d

160237

047620

014137

001l2e

012737
00047¢<

00ileY

104006

RWORD

; F §5§
F

178

MOV

ANCH
T READY FOR ERROR

-(R1),ak$BDDAT ? gao
#104006, aorsvnen NSER “snnon B" IN FSYNER
¥4, R2

H OUT ==ccceccmcmce
i ccccccccmeem),

o¥n

R WORDS

:STOR

uax TE uoao

MOV
MOV
JSR

#slyL ,R3
85, I8ERWORD
PC, ISWRITE

PO NTE roa cho R TABLE
snnon u
ORD N E
TWRIT u; WORCS

CMP

(R3)+, (R1)+

:IS IT RIGHT

liORD, (R1)

BEQ

148

SUB

R2, 38ERWO

MOV

-iR1) 28$BODAT

MOV

0S2eS4

;1S THIS A onxvs TIMING ERROR

!BRANCH OUT IF YES
'WRITE ONE SECTO GAP 0 BYTE
:AND
ONE SYNC, BYTE
= 230
§ave 0 BYTE AND svnc BYTE
:IF SYNC. BYTE RIGHT

aons?nc 288GDDAT: GOOD WO

MOV

001412

014337

13%:

178
PC, J8WRITE
JWWORD, (R1
acnsvnc (R1

MOV
MOV
MOV

O0S2652

J8TESDTE

MOV
ER

-(R3), 38$GODAT

.}r GOQD CON x NUE

*IF NOT

.uong NO

.goo
:BAD

GET READY FOR PRINT

DATA

8104006, 98ERHEAD } xnss T "ERROR B
17
{BRANCH OUT ===c=mecceeeccccmeme
e

CZRJGBO,RPO4-S-6 DSKLS CTRLRI
CZRJ GB.P11
08-NOV-77 08:30

MRCY11

30(104
OISK

gIHULgT

NOV-77

0B:S4

J16

PAGE 202

SEG C204

148:

sARE 4 HERD;R WORC= JOME”

S
SB#“‘IE;>
( gbccnc
( 1)

98SBODATA

'IF NOT

'“$6RE QRE

THEM

EéOHPSRE GO0D CRC
gNCH IF GOOD

;BAD CRC WRITTEN

249Gcne auscoonr ;cooo CRC
25,3 5
% WORD NO

001124
047620
052656

bwo 5, a-sncnc NSERT ERROR &

- ——————————
———————
-

0s
0SOe44
047620
Col1g4
001126
104006

;s OR

R2 aoenuono

!ERROR WORD NO

-(R1)

:BAD DAT

as$G0DA
17§

16%:

C, JsWRITE

goauono (R1)

1040Ce

0011ley
0s2eke

ogsvnc (R1)+
17
#S, 98ERWORD

-(R1), a#SBODAT

J8RSYNC, 8SSDOAT
# 1049006 IsHDESYN

0S3S40
JE3c42

aosaoonr

uner HERDER GAP
: IF GOOD BRANCH

GOOD onrn

2104obs J8ERHDGP: STORE "snnon &"

0S2660

047820

NO OF HEADER GAP

snnoa
WORD NO SET

oauoao TE
(R1)+
1ss

00302
0013S

NNWW
WM
[2]
NNNNW—- L

#S,R2

os aosnuono

047620

iBRANCH OUT ======cmemcccccccacaaaan

:ARE § HEADER GAP ZEROS

PIF NOT BRANCH

DONE

GBO,RPO4-S.
6 DSKLS CTRLRI

P11

08-NOvV-77 08:30

MACY1l 30(1046)

oe
-NOV-77

DISK SIMULATION

08:54

K1lB

PAGE 203

SEG C2CS

; #*SERRCH SECTOR

RO=RHMR ADDRESS
R1=PRSSED ARGUMENT

Ra_ssggga
COUNTER rgon R

ka&

;¥

R2=CLOCK COUNT (PER

(

ECTOR SEARCHED FOR)

BYTE)

Ecaeaoasn§'
X NsPEx
'fi”?ug
ggcron CLOCKS ARE GIVEN TO RESET
#SECTOR
gg
CARS
*g SET

: %A

EACH SEC

CLO&%THHEN
EVERY EIGHT

SECTOR CLOCK HAS TO RISE

CLOCKS ONE SECTOR CLOCK IS

;.nunacfi?fik THE sgtggn CLOCKS AS FOLLOWS
;.r:s

OW UL WM

PRTHE

s ps

8000@@0
00000 (=]

‘:?Séur

:#ETC.

CTOR

CLOCK UNDER

NEXT -'2

INDEX - O

s ps

:#THEN THE LRST SECTOR CLOCK IN O
szcron HAS NUMBER - 608
,.rus
XT SECTOR THEN HAS 608 SECTOR CLOCKS

%*THE

NEXT SECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS

:#AND SO ON
0S3S44

000000

3546

012137

Sgassa 013700

3544

166

23276 013778 0350a:
E
Ll
Rt
0S3612
052718
060010
0S36l6
042710
000010
053622

053626
083632
083634

S?xo 000014

81 710
00S703
001461

000001

SECTR:

SERARCH:

MOV

;SECTOR SEARCHED FOR

(R1)+

#SECTR snvs

JBRHMR 20

e
P
BIS
BIC

ENCME
oS
E
sMSTCK
|
ggg
sMSTCK,
QRO

BIS

onINx!nsrcx.aRO ;ISET *

MOV
sDMD,
aRO
TST
R3
aegou ru:’aou e

cron SEARCHED FOR

n§£ ?nrsnnncs REG. ADR.

5‘?’ NOSTTC MODE
a.%éc"*‘c'i’;ce
st‘aazsf
HE
sscron
ocx

RESET nXE Y§$o§ECTog$CLOCKS ARE GIVEN FOF

X1T ANDSTARTS
sscros SLOCK

iR SEE ;ggsx AND SECTOR
CLOCK
i
c
REQUIRED JUMP OUT
§rnnr OF SECTOR ZERC REGUIRED

C2RJGBO,RPOY/S.6 DSKLS CTRLRI

CZRIGB. P11

08-NOV-77 08:30

MRCY11 30(1046)
08-NOV-77
DISK SIMULATION

08:S4

L16

PAGE 204

;#FOR FIRST BYTE
SECTOR CLOCK WILL GO M IGH THEN CLOCK
1 #BOTH HELL co
OWN TOGETHER THEN SE
N CLOCKS WILL
i%;FOR SECOND BYTE
AND ALL OTHER
ILL NEXT SECT
BYTES

8043
8044
8045

804
804
8048
8049

t#WILL BE IDENTICAL WITH ONE CLOCK

£5
g3 052710
noE mu
8053 0S36
000018

18:

80S6

2%:
33:

gggg

80S?7

; ¥ONE WORD ONLY

823622
36

0536;3

710
Oe
052710

042?18

0012

8060

3 gg

053702
053704

001372
012702

83%:

BIS
BIC

#MSTCK!MCLK,
JRO ; srnsecron AND CLOCK
#MSTCKEMCLK,
9RO ;CL
ECTOR AND CLOCK

]

sMCL'C, 3RO

BIS

sMILK,

DEC

BIC

s#CLK,
§

87,

RS
23

QRO

3RO
R2

;ava COUNTER
,8YTES

PER_WORD

iSET 5CCiOR CLOCK

;

CLOCK

; Sancu 0 CLEAR SECTOR AND CLOCK
;SET

CLOCK

:CLEAR CLOCK

;BYTE COUNTER
;

iSETUP

H_IF
F

: 1S WORD g
;ganucn I

053714

01270

8072
8073
8074
8078

053724
053730
0S3734
0S3740

012708
052710
042710
052710

8071 053720 DlE?Oé

gg;g

ggg?qq

g42710

8078

053752

Ofllgsg

053
053762
0S3764
0537
053774
0S3776

00S301
001358
0S27i
0427i0
005303
001317

8332

07
000012
12
0002

000002

4 :

5§:
68:

gg;g fe3ree 001362

7%:

8O3

RNO:
RCOM:

4016

Rl
ng

; WOR
IBYT

IDENTICAL

;ER SECTOR co¥nrsn
R_WORD COUNTER

IBYT

cognrsn (CLOCK COUNTER)

BIC

sMSTCKiMCLK,
RO ;C ;

sscron CLOCK AND CLOCK

BIS

sMETCK
! MCLK, JRO ;

a§s
BIC
DEC
BNE
DEC

sMCLK,
sMCLK,
R2
&%
Ae

DEC

4§

BNE
BIS

00
00CO0iD0

#303.,
o;,

COND BYTE

MOV

BNE

gggg DS:OIH 000201
o
B8093S 824028 000COC
00000C

MOV
MOV

BYTE NOT COMPLETE

ETE?
T COMPLETE
:TO GIVE SECTOR CLOCK AND CLOCK

: ¥NOW 303 WORDS ARE LEFT AND ALL ARE

8070

8097
gcae

sMSTCK, AR

DEC
BNE

8067

BIS

MOV

000007

806g

%8.,

MOV

BNE

2065
8066

808S
gggg

MOV

a&s

000002

e Rih o R
8061
8062

SEG Je2Ce

RO
aRO

Ty
R1

BIC
DEC
BNE

SMSTCK, IR0
sMETCK | ARO
R3
18

RTS

rngsc OR CLOCK AND CLOCK

;g
LOCK
;
ss cL
:
YTE COMPLETE?
:
H IF NOT
COMPLETE
: 3 WORD
ETE”

BRANCH sn NOT

COMPLETE
: nnEu IF NOT
115 SECTOR

; sragsggon
iCLE
CTOR
.
1S REQUIRED NO OF SECTORS COMPLETE
:BRANCH
IF NOT

; #*RERC ONE SECTOR OF DARTA
8

:NO. OF WORDS RERD
;EXTRA STORAGE

CZRJGBO, RPO4 S/6 DSKLS CTRLRI

CZRIGB.P11
8099

8100

0B8-NOV-77 08:30

4022 oxzx 7 054016
goucse
oi3137 Deuose

MACYLl

30(1048)

DISK SIMULATION
REDATA: MOV

8185
8103 824833
0S404

BRpagy
ooeoet
15
9
77777
048314 18:
3%82 0S40S0 oxaroa
402
eig? gg:osg 813 ; figowig
§183
§§ Ve
g
110
1

8106

0S40SM

0127

91k

2%:

8111 0S4074 005737 002024

eff%
14
8114 05:100
82«18% 00101; 333817
8115 0S4ll2 012337 0S0410

Blib
8117
8118
8119
g;gg

8i33

0SYile
0Swi22
0S4l24
0S4126
084130

004737
005302
001372
000201

0S0414

08-NOV-77

MOV

4§:

M1l

PQGE 208

(R1)+, 28RNO

(R1)+ SaROH

ono
R INFORMATION
, Y&aNO,
uonSF
?gS"k
NEORMATToN
:

B
MOV

MOV

ppreee
8-1,I8TSECCG

MOV

#258. ,R2

: “.’r“ NG’
:
T 188gutnar: ECC
.

no;
géc
g~§

;gaszkgagono
n§'
s

ipoNTE

:
RERDY aS&B cgung
:ng
uonos DONE ?
:
NO

ENS
MOV

3215:
.15.,85 G

RO
G og
YE
T
ENERARTED
'oue"82$
ESP
19 ARE
TOLERSNEE
2

JSR
DEC
BNE

PC, a8RERD
R2
3s

:COUNT
:BRANCH IF 14 NOT DONE

RTS

3%:

08:54

MOV

#D15K,R3

8TSECC

(R3)4+ gouono

LATION

: s THI s nu Ecc TEST

Rsngv T0 RERD CONTENTS OF uono

: RETURN

SEQ 0207
‘

GBO,

RPO4 /S 68-3352§7C53¥R

GB.P!I1

Og-NOV-77
MACY11 30(1042)
DISK
IMULRTION

0S4132 125414
612?9;
G00000
o4y

RPVECT:

TYPOC

MOV
HALT

0B:54

BO1

PAGE 206

SRPVECT, JRPVEC

SEG O20e

: TYPE FROM PC
;RESTORE T RAP RPO4 VECTOR
sCHANGE T 0 CONTINUE

gAR

83 6§

RPON /66 DSKL
08-NOV-7

N J¥

ORI,
.SBTTL

COl

P 27

SYSMARC LIBRARY ROUTINES

SEQ 0209

cza:cao RPO4/5/6 DSKLS CTRLRI

CZRJIGB.P11
8131

08-NOV-77 08:30

MACY1l 30(1045)

Y INPUT

og-uov-77

ROUTINE

08:54

DOl

PAGE 208

~
;FROM THE TTY

SEG 0210

TT—DMON(N-x&Wo='o13][bO(WN-a=x4T7)']&--4(=~WmxXN74)bT-(V\NX=4“a1=[ow]3+3o 1woNW4x[&z—71]w1[(m[Nx—=4¥+Y'-1]4b]afi[NO--=4ox71[]p+) (4wN—ma.<z7[)'+"vNQx4<zx][[++OFO—-MNuOn(mvNm=a.N&])p E“k*»BL%e%dxxiBmWWOXLRLB“¢»e**S*xE

1M%—._O[“—LW7]VoTOoNwlm—Wta—.Dloa4MT~o4aTaemm-703w-~U~MDOTTNOU—~~T—zNAmWxB

L)s—15..51
SR

é?%

R DOWN AND UP ROB?INES

6)
08-NOV-77

Pgil U*x

:S4

&w-[+ *W¢W MeA»
o "&

— N

MACY1l 39(1

*x U x

=S-

1=ZRBANdaA0OUZw1A—W4-Dh81OABZwW4Oa10N|3& d4.D|z14.DPlWd4.D|1L.GBADoW107k(081€5(D81A0SIA.51IG.w8RAs1B1A5A1w81AN4D51G0m8RG1GOw—(4DB1GmG1(DA0me1G0wN1(D1A0o1(Dw81GW1(m081G701GTm081@5D5o175Gt08L1GT)m41g3G8517(D5T81G8w1TG1GO01N@9T1a01ACos10eos1ms10Nms1{ers1/ean
.|—9o-QL4-~l]'b =LOWo-&NN. |(OW=——QO-x&B -NN8o] [Q.. -b- owbN=] oQ—W-xvO—N za4-o N=[+ b~1.QwW[-N=t4—kT]. [(w—)Qw—ozo4[>-- -=)oo[]+ ((4weQWX4&- aN==@''}%] (Q—oox=a=NN][ [OW4-QoO4axzx-N=[]+ o£W>H»bXe*B%S»LbX¥%txlTW4OUTF--[+LEBe]xb£BwxR4Ln*®Ed3*xtd
']1W((xo.4=a4-~=]&3'']P vk. ox-ho 44"Q3Q(W—¢X&x-—1''4)[b+=* b*h&o*=W*W%R3l3”dta3 b»h*AkbwW&ERe $eW ** HWW Sh #ek al®lxstt
CZRJGBO RPO4/5/6 DSKLS_CTRLRI
CZRIGB. P11l
08-NOV-77 08:30

EOL
PAGE 209
SEQ 0211

-*®

% 0Sii22 O0S1117
1

EM22:

R2
o
=

fi?fi@g

7440

SR=YAR:

FREOERBRZER

Ll ad od el ol ol ol ol aiadad ad

BHERSP
s

R
R
R
SEYRRLER-E BYRR

s
~g

Y oy Sy Sy Sy oy ey

DONCNLEWN-0O

SRSRORRSSBIRRLO02S

i
R e oo

BTSRRI
Y o B

FOl

6)
08-NOV-77 O?:Sq PAGE 210
R DOWN AND UP ROUTI NES

EM24:

SEQ 0212

.RSCII

/ERROR ON DRIVES PRESENT -/<¢1S><12>

.RSCII

/THE UNIT NO'S FOUND BY SETTING RHAS USING RHERL-/<15><12»

.ASCII

/(T4) DO NOT AGREE WITH THE UNIT NO'S FOUND/<1S><l12>

.RSCII

/BY LOOKING FOR

.RSCII

/NOTE:

.ASCII

/NOT GIVE

.RSCIZ

/HENCE THERE WILL BE AN EXTRA DRIVE~/

.RSCIZ

/LOOK AHERD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR~

'NED'

= 0

IN RHCSZ2

ON DUAL PORT SYSTEM,

°'NED’,

(BIT

sl2)/<1S><12><1S>«<12>

A DRIVE ON OTHER PORT WILL /<15 <12>

BUT WILL GIVE RHARS RESPONSES-/<15><l12»

8%5389#11

563-33&%%9:36

TRLR

guo

O8]

MACY1l 30(1046)

08-NOV-?7

08:54

GOl

80 R DOWN AND UP ROUTINES

PAGE 211

goEs g
§a~«o
D20124
4

862123

8271

8274
8275

061022
061030

047105
042105

8278

D6105)

8280
8281
8282
2t

061
0610
0611
guos

11
12;
lléq
1

061122

116

os“fi

8286

32
3590
829]
{
|

1114

061130

11
061154
11
11
11

85%
B 061
L
ig
8298

8299

Qe 1228

0bl232

0DEl240

.ASCII

/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGISTER/¢1S5><12>

.ASCIZ

/AFTER R SEEK ANC

INIT/

EM31: .ASCII /ECC GENERATED IS INCORRECT/<1S5)<12>

sk g
1

IS IN ERROR/

EM30:

/LOOK AHEAD REGISTER

—

8575 gigfi

.RSCIZ

0o (J)0o
pa e

RO
D

RPOM/

.ASCIZ

/EVERY WORD ON THIS SECTOR IS THAT GIVEN IN "DATA USED"/

111

EM32:

.ASCII ~/ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN RERD,/<15><12>

1
1

B
o R
101
483
315
10€ 041503 01040

043505
0S1522

0S1511

047940

042524

020122

LASCII

/ECC REGISTERS OR RHER! ARE IN ERROR/¢15><12>

SEQ 0213

HO1

MACY11l 30(1046)
08-NOV-77
0B:S4
PAGE 212
POWER DOWN AND UP ROUTINES

SEG 0214

-- -

Qe)xe[aNANOTINENBTO SonozaneogygwAHn.

wMGow

S RS e

AgJ1msEu1mmRm.1l%SmARw1mmE1b%m1amsa1puRmna1%um1mm1mg1Rwm1mm1mw1um%1SmE1tem51m5aa1msmn1m1manms1mRe 1mm"umowqolwmoRomgmoso=lmoalo=mRol¥o=dmet
W W Y]

CZRJGBO,RPO4/5/6 DSKLS CTRLRI
CZRJGB.P11
08-NOV-77 08:30

CAN BE RERD/<«1S5><12>

g 3=

/ONLY LOWER 11 BITS OF PATTERN REG.

/THIS SHOULD MATCH LOWER

BITS OF GOOD ECCl~/

.ASCIZ

/HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/

.RSCIZ

~/ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG.

%= T=M m=

1MONDTNZon-o

FANTTADDT%mflla=it

.ASCIZ

“n.fl.m

HARS 21 ZEROS/

/POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT- <15><i2>

/LOWER 11 BITS OF PATTERN REGISTER SHOULC MATCH LOWER-<15><¢12>

MACY11l

30(1046)
0B8-NOV-77 08:5S4 PAGE 213
’9OWER
DOWN AND UP ROU Tines

83
8380
8381

ls
1
19&

8384
838S
8386

&ss(fl

weaaa

8388
8389

EE%

8395
839%
8397

8398
8399

:3'401

gesen

35&
11

2
e
124

R&
2
PR
SwnZ

151
ell

i KNG
{11

Geees
11

440

030440

122

046

7
114

1
11
1

§% &
a2
g:..m§§§
062370

042523

020054
0201

8'0“?

101
10S

062341

1
7522

032060

:33:02

b @
80 325

30%
310

062316

llgg

o4N7
gg“g

.ASCIZ /0N RERD COMMAND WITH NON-CORRECTABLE ERROR ’'DCK' AND 'ECH' SHOULD BE SE

EM37:

.ASCII

/PROGRAM ERROR BIT #10 IN RHCS2 DID NOT SET/<1S><12>

.ASCIZ

~/IF POSITION REGISTER =10040 OR 10041,

.ASCII

/RHWC DID NOT = O UPON COMPLETION OF RERD-/<1S><12>

.ASCIZ

~/OR WRITE HERDER AND DATR/

?55
76'00

Scid

?ig

231

IT IS GOOD~

0S111?7

030464

8:%'40
2117
0S3S10

020102

QLT

1
0621

/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL~/

EMH40:

£V

IB.:IZ;
8377

046517

116 042522 EM36:

114

.ASCIZ

8375

106

1440

% BRS

8374

117

2101

/11 BITS OF GOOD ECCl/<1S><12>

183

046101

—

8373

0621

.ASCII

161

103

28 28

8372

o
n

8371 oszné

SEQ 0218

N
ON

%85&g?

11?

2% 8272
O

'-g

& e
O

¢
RPO4/S/6 DSKLS_CTRLR
ERRIEE"
P11
08-NOV-77
8-NOv-77 08
08: 30

101

C’RJGBO RPOH/SIE DSKLS CTRLRI
GB.P11
08-NOV-77
08:30
-y

8412
8413
8414

062426
D62434
062442

042101
042116
000101

0s 1105
OM 2040

MACY1l 30(1046)

0B8-NOV-77

08:S4_

JO1

POWER DOWN AND UP ROUTINES

040440
O0s2101

PAGE 214

SEGQ 0216

/FATAL ERROR - SEE DOCUMENT LISTING/<1S5><12>

LASCII 7 7<1S)<12)¢207>¢377>¢377><207><377>¢377>¢<207>¢377>¢377>

.ASCII

/THE CONTROLLER OR DEVICE HRS GONE OFFLINE,

2101

.ASCII

/’READY’, BECOME UNAVAILABLE,

822}%9

.ASCIZ

~/WHICH CANNOT BE CLERRED~/

020040

SPACEB:

LOST/<1S5>¢12>

OR HRS STATUS BITS/<1S><12>

i 6

DHl:

.ASCII

/PC

TEST

REG.

GOOD

RECEIVED/<1S><12>

.RSCIZ

RADDR.

DATA

.ASCII

/PC

TEST

WORD

GOOD

BRD

/<15 < 12>

101
10

DH2:
o

752

5
=
NG

.RSCIZ

0440

3066
3074

.ASCII

SPACE2:

§§8??9

.ASCII

SEQ 0217

838103
104

CPHALT:

1?777;

063014

KO1

MACY1l 30(1046)
0B8-NOV-77
08:54
PAGE 215
POWER DOWN AND UP ROUTINES
4

PP
R Rg 9
SR
SEYERZERBIBYRREDN So®
e0
Bg

CTRLR1
s

cg:cao RPO4/5/6 DSKL C"‘L%

CZRJGB.P11

08-NOV-77

DE i

g:n
77

063146
DB3ISH

08:

MACY11 39(10%)

SEG 0218

112

8;s

D6
LS

:54 PAGE 216

OWER DOWN AND UP ROUTINES

gurs oe3l
gzgl]

08-NOV-77

LOl

DH11:
427

.ASCI1Z

DATA

.RSCII

/PC

TEST

FAILING CONT.

CONT.

REG ADR RHCS1

RHCS2

RHDSI

RHER1/

7¢18>» 12>

)

063210

flg D632 1€
8484

063

aqi&EE :‘km’.
.Q~ : >

séfl

326

C%{-,-

849S
8496
BYS97

06332
063332
D6334C

gg:

063355

8505

0Ok

.RSCI1Z

% 063370
804 DBIC

DH14:

.ASCII

/PC

TEST

FAILING CONT.

CONT.

.ASCI1Z

REG ADR BAD REG RHCSI

RHCS2

RHDSI

RHER1 -

.ASCIZ

/PC

TEST

REG ADR ~

8207 06

e =
BS11

gis

DBvSE

:,-

BSI8
Ces
519
063506
B8S17

063514

g!g 063530
1

I352e

.0&0—

i
*

852s

D6 355

®
;R
&

83e3

DHIS:

/«<15>¢1

RPOY/5/6

DSKLS

CTRLR1I

og—nov-% oa:a&

SRR

E%na.!’g?#u

MACY1l

% Efi

8559
8560

020040

/<18, ¢12>

/PC

TEST

WAIT

BIT

REG

.ASCIZ

WANTED

ADDRESS CONT.

.ASCII

/PC

TEST

CONT.

718 12>

.ASCI1Z -

RHBA

RHOB

RHWC

RHCS1

RHWCS2

.ASCI1 /PC

TEST

CONT

/¢18> (12>

RHERI

RHER2

RHER3

RHAS

RHDSI

i 2

112

3559 gzig

%F‘

REG

.ASCII

06064

856

SEQ 0219

7%?7.
440

£ s

PAGE 217

8SS1 064006

gfl

DHib:

DH17:

8552

BS?7

R DOWN AND UP ROUTINES

8569
8570
8571

MOl

1104

08:S54

3 0

30(1046)

08-NOV-?7

DH20:

0Ob41
0Ob41
0D6Ml

414

OE4eeY
oe4272

Y
4

.RSCIZ

§fl2

7576 DSKLS

¢ 11

CTRLR

08-NOV-§7 08:36

4314
4317

adadds
el S

4371
4376
Y404

—

8244%%
i

.ASCIZ

RHCS1

.ASCII

/PC

TEST

RHRS

.ASCIZ

UNITS

.ASCII

/PC

TEST

RHDST

SECTOR

.RSCIZ

CONT.

CLOCK

.ASCII

/PC

TEST

PC OF

CONT.

7¢15r¢12>

RHCS2/7¢15>¢12»

NOORNOS 3“:

/7¢15>¢12>

—

[oye,

woo
L

WOOD

—

e—

“NNOWw

B b

3 £L£00

[

DH2E:

Adanias SSARRRAERES

CONT

o
L

1=t

s b

o B

TEST

Bt b

NOmnn -

[

—
b

aqu

/PC

Y437

DONCNLEWNN-O

FRRRRRRRRR

RAR
o2

("]

o WOONO0

.ASCII

DH2l:

85352
&:r—
S5

1
144

SEQ 0220

(")

NO1

:S4_
PAGE 218
08-NOV-77
OWER DOWN AND UP ROUTINES

MACY11 30(1046 )

FRILING CONT.

CONT.

7<18>¢1]

CZRJGBC,RPO4/S/6

CTRLR1

O=°NOV-;7 08:30

MACY1l 30(104&)

08-NOV-77

0B:S4

BO2

POWER DOWN AND UP ROUTINES

PAGE 219

SEQ Oezi

KRR
£

£G

CZRIGB.P11

DSKI.S_

.RSCIZ

JSR

REG ADD RHCSLI

RHCS2

RHDS!

RHERL

.RSCII

~PC

TEST

PC OF

FRAILING GGCOD

RECEIVED/<1S><¢12>

JSR

REG

DATA

/PC

TEST

PC OF

REG.

GOOD

BRD

/<15 <12>

".RSCIZ

JSR

RDDRESS DATA

DATA

.ASCII

/PC

TEST

WORD

GOOD

CONT.

86
864

§§
EEE;

5
8661

bS11Y4
bS1
bS1
bS5 1
bS 1
bS1

i
.ASCIZ

.ASCII

8679
§E§§

gggg

o
RRERR
20028

8689

BAD

CONT

718 ¢

CZRJGBO,RPO4/S/6 DSKLS CTRLRI
08-NOV-77 08:30
CZRIGB.P11

coe

08-NOV-77
O?:SH
PRGE 220
MACY11 32(1046 )
OWER DOWN AND UP ROU INES

SEQ Oeee

Bo%

8697

.RSCII

/PC

.RSCIZ

DATA

RHCS1

RHDS1

RHERL

TEST

PC OF

WORD

GOOD

BARD

CONT.

JSR

DATA

RHCS1

RHDS1

RHER1

TEST

PC OF

WORD

GOOD

CONT.

/<182 ¢

DH33:

ERE

P
e
Y Yoy oy

A
85

S310020%89PARRRBASARRRSE

NONE W0

SKANNANARSGERERES

.ASCIZ

03
020040

.ASCII

/PC

§§
90 e
gg
g
8

RPO4/S

08-

D02

SY
PAGE 221
NES

SEQ 0223

.RSCIZ

JSR

DATA

RHDS!

RHERL

.ASCII

/PC

TEST

GOOD

WRITTEN WRITTEN DARTA

/18y

12>

ECCI

ecce

ECCI

TEST

GOOD

PATTERN POSITON GOOD

ECCI

eEcce

REG.REG.

TEST

PC OF

RHMR

POSITON PATTERN ~<1S><12>

n
one

RHCS1

OO0ONNOMN-

DH3S

USED

.ASCII

/PC

POSITON REG.

.ASCIZ

RHER1

3
LN

B
¥

—

KRR
'33333

ECCe

;

.RSCIZ

LEL

wma

B8/ 7D

£ Er0O

8765

DH3Y4:

2‘
Oowno

% olalo

— 00

P11

O
08-NOV-77
OWER DOWN AND UP ROU

MACY11 38(1 46)

150
0S0040

DH3b:

.RSCII

/PC

/7¢15>¢1

g3 5%

RPOY/5/6 DSKLS

P11

CTRLR

08-NOV-77 08:3

fecsoe OEl0%d

MACY11l 30(1046)

EO2

PAGE 222

SEQ D224

Quedlo BEdies

8813
8814

737
794

8815

881?
881
8818

881

.RSCIZ

JSR

CONT.

REG.

REG. 7

.RSCII

/PC

TEST

POSITON POSITON GOOD

GOOD

PATTERN DATA

ECC

ECC2

ECC

8823 %
1

0B8:54

POWER DOWN AND UP ROUTINES

8319

08-NOV-?7

DH37:

N-CODE~

8824 g

8859
8830 gnos
883%

711

gtsa

067116
E;ig

8836

067146

Billg

8837

gxs

15
g&‘:

g;iS‘O

g3 20
89"5 §7Eés

8843

:
o1

88YY 067226

8848

88S2

067274

GOOD

ECC!

0'-0612§

DOO {23 ———

8847 Do7oud g@g
8849

.RSCIZ

0S2l1

|:eooug

&238?33

8853 067302 05381

123
047503

DH40:

0le

119

.EVEN

BBS? 067306 001116 0020
eebY DTl:
8858 067314 001124 0O é&% fiOOOO
gg;gaag

%i { é&

886l
B8e2

067334
0&7342

001116
001124

002032
O00ll2e

/PC

TEST

CONT.7<1S><12>

.ASCI1Z

RHWC /

. WORD

SERRPC, TSTNM, REGARDR, SGDDAT, $BDDAT, 0

0S1040

B885S
mBBSQ

.ARSCII

7620

DT2:

. WORD

SERRPC, TSTNM, ERWORD, SGDDAT, 0

047620
000000

DT3:

.WORD

SERRPC, TSTNM, ERWORD, SGDDAT, $BDDAT, 0

ENVLOPE ZER(OS~/

cg:go RPOH/Sés ogu; crm.gé

CZRJIGB.P11
8863
8864

-NOV-77 08:

067350

1116

0B8-NOV-?7

0B8:54

PAGE 223

.WORD

SERRPC,TSTNM,S$BDADR,CS1,CS2,DS1,ER1,O

2032 %ifi% DTI4:

.WORD

SERRPC, TSTNM, SBDADR, $BODAT,CS1,CS2,0S1,ERL,O

3;? &7-4
&3
En
gg‘ 0577::

?2 8&0&2 8?338 DT1S:
1
001204 DT16:
1
8?‘1’9% uas

.WORD
.WORD

SERRPC,TSTNM,STMP1,0
SERRPC, TSTNM,STMP3,S$TMP1,$TMPO, SBODAT,O
:
:

8878

1%3

{;iu

%& 27?5 i;ég

8869

7904

0674

712

001122

30(1046)

OWER DOWN AND UP ROUTINES
DTil:

8865 os;ass

002032

MACY1l

001736

002032

001710

DT17:

.WORD

SERRPC,TSTNM,BA.DB,WC,CS1,CS2,0

716

DT20:

.WORD

SERRPC,TSTNM,ER1,ER2,ER3,AS,DS1,0

DT21:

.WORD

SERRPC,TSTNM,CS1,RS,DS1,0

1553

Te4:

.WORD

SERRPC,TSTNM,O

ooeg1 ig DT26:

.WORD

SERRPC, TSTNM,PCJSR, $BDADR,CS1,CS2,DS1,ERL,O

5RO R guE o

8878
8879

067460

8881
ggg

0674
gg

817
ooi%g

8884

uxg

flés
L)

8887

001204

e&qm %7550%'3 iiég

8890

067556

§94

1736

nos

BE Rrem
gg §

889

8894

8835

8300
830
aqoé
8303

g
76
7656

aeos“
%
908

067710

gié

77;

ggig

8913 067794
g916

8917

B918

77€

067770

0E7776

116

T22:

SERRPC.TSTNM,DST,S$BDDAT,STMP1,STMP2,STMP3,0

0I4

DT27:

.WORD

SERRPC, TSTNM,PCJSR,REGADN,
SGDDAT, $BODAT,O

DT30:

1126

mu s mmE g
{; 6 1%
7;23 DT31:

.WORD

SERRPC,TSTNM,PCJSR,REGADR,S$GDDAT,$BODAT,D

.WORD

SERRPC, TSTNM,ERWORD, $GDDAT,$BODAT,CS1,DS1,ERL,O

DT32:

.WORD

SERRPC, TSTNM,PCJSR, ERWORD, $GDDAT, $BODAT,CS1,DS1,ERL,O

1;
171

829{3 DT33:
836000
6310
DT34:

.WORD

SERRPC, TSTNM,PCJSR, ERWORD, $GDDAT,CS1,DS1,ERL,O

.WORD

SERRPC,TSTNM,GECC!,GECC2,WECC!,WECC2,DISK,D

33?%9

DT35:

.WORD

SERRPC,TSTNM,GECC1,GECC2,EC2,ECL1,POSITI,ERL,O

88?93‘2

DT36:

.WORD

SERRPC,TSTNM,PCJSR,MR,EC1,EC2,0

001744

DT37:

.WORD

SERRPC,TSTNM,EC1,POSITI,GECCI1,GECC2,EC2,DATENV,ZCODE,
O

%
1
001116
i

s:lzg
1;:1’3
1116

045322

0017

052

1716

1716 000000
002032

04S310

045312

SEG 022%

CZRJGBO, RPO4/5/6 DSKL; CTRLR1

CZRJGB.P11
8919
8920

08-NOV-77 08:30

070004
070012

001746
000000

045326

MACY1l 30(1046)

045330

070128

ggg;
,Jl61
8%8;8{;%
8969

174

888

001 DFe:

.By7€

.BYTE

0,0,1,0

000

001

DF3:

.8y

o0,0,1,0,C

000

000
000

DF11:

.evy7&

o0,0,0,0,0,0,0

000

000
000

DF14:

.8y

o,0,0,0,0,0,0,0

000
000
000
000
000

000
000

DF1S:
DFl6:

.BYTE
.8y¢

0,0,0
0,0,0,0,0

CO0
000

DF17:

.By1¢

o0,0,0,0,0,0,0

000
900

000
000

DF20:

.Byre

o,0,0,0,0,0,0

.8y

0,0,0,0,0

000

888

177
070202
33823;

001
000
000

8974

070212

000

8970
8971
éé;g

0,0,0,0,0

DF1:

§§§ §§

SERRPC,TSTNM, $BDDAT,O

DF21:

000

DF22:

.BYTe

0,0,0,0

0
0

000
000

DFe4:

.evy7e

o0,0,0,0,0,0,0

000

008
00:

DF26:

.By¢

o0,0,0,0,0,0,0,0

000
000

DF27:

.8y

0,0,0,0,0,0

5
G5
33333333453
SHRNRUBSERIRES

ERRRRRRR SERRR

Kg.

.WORD

000

0700

892;

PRGE 224

8928
gggg

000

GO2

288 88

gg%

S885838 BB81888235888888 858881088288 8888

8924

0?:5'4

POWER DOWN FAND UP ROUTINES

%é m M 002032 001126 DT4O:
8925

08-NOV-?77

DF30:

0,0,0,0,0,0

888

886

DF31
F3l:

BYy'e
.BYT

o0,0,1,0,0,0,0,0
1My d U, U, U, W,

209

888

000
888

000 DF32 _ TR eyte

o0,0,0,1,0,0,0,0,0
VeV, 4,0, 0,0, U,

DF33:

§8,0,0,1,0,0.80,0

388

DF34:

.BY¢

0,0,0,0,0,0,0

SEG O2ze

CZRJGBO,RPC4-5/6 DSKLS CTRLR!
CZRJGB.P11
08-NOV-77 08:30

87812

070221

g70226
70231

070234
070237
070242

MRCY11

30(1046)
08-NOV-7?7
08:S4
PAGE 225
POWER DOWN AND UP ROUTINES

DF3S:

.8y

90,0,0,0,0,0,0,0

DF36:

.8y

0,0,0,0,0,0

DF37:

.ey¢

o0,0,0,0,0,0,0,0,0

000
070246

DF40:

.BYTE
.EVEN

0,0,0

000001

.END

l‘l
UU

000
000
000
000
000
000

SEG 0227

CZRJGBO,RPO4/S/6 DSKLS CTRLRI

CZRJGB.#II
RBS

08-NOV-77 08:30

== 000090

AcC

RACU

“)m
RADTI

RS
ATA

RTRBL;

RTTEN

= 100000

.= 001732
)

RTOD

RAT2

= DOOOO4

ATY
ATS

=
=

AT1

= 000002

AT3

= 000010

= 000100

AT
R16

BRI

BRSECH
BEGIN
BEGIN2

BITST

BITD
BITOO
BITOl
BITO2
BIT03
BITON
BITOS
BIT
BIT
BITO8
BITOS
B:Tl

042266

000001
000001
DOOO02
000004
000010
000020
000040
000100
000200
%"‘&
i
000002

3'71“ = 040000

T1S = &)mm

BlTe
BIT3
BIT4
BITS
BITe

=
= 000010
= 000020
=
= 000!

BIT8
=
BITS
=
BLT1
BLTS
BLY
BPTVEC=

000400
001000
045314
042336
042346
000014

0B8:S4

102

PAGE 227

CROSS REFERENCE TABLE -- USER SYMBOLS

SEC Ceee

437
132

}275:
1
o]

2686

2896
4036

4840
4850

4898
4870

8879
1Y)

8882
S744

S834

£9¢28

13078

1586#

1625#*

3015

4033

4828

4896

seeH4

S742

Sg83e

g32e

2739

S049

S06S

2559

4963

S057

S073

€371

6734

1732

1737

1792

1799

1808

1811

1813

13698

10588

ggéé
1625

10598

10608

10618
10628
10638

10648

9718

)

lgl
715

= 000010

o
gx;ig ~ 850000
[

1%20.

10658
9998

=
=
=
=
=
=
=
=
=
=
=
=

08-NOV-77

11318
1134%

= 000200
= 000400

DO%
004230

MACY11l 30(1046)

S10
S09
Si1

1058
1
s
13808

S03s
S03s
5038
S03s
5038
S03s
SO3s
S03s
S03s
S03s
S03s
SC3s

4835

1469

1672

178
17
1782
1783
176%
650

7134
7131

1678

8132

1727

6493

6528

6530

8131
1782

8131

8132

I
3:

E
6S23

65es

Bl132

€03

6495

6502

6509

S03s

S03s
S03s
38
S03s
S03s

S03s
gg;.
6
&
e077
£08S
S03s

6500

6082
6078
e08ts

8131

e084s

esle

6520

60718

JOe

08-NOV-77
08:S4
PRAGE 228
CROSS REFERENCE TABLE -- USER SYMBOLS

MACY11l 30(1046)

CZRJGBO,RPO4/S5-6 DSKL S CTRLRI
08-NOV- 77 08:
CZRIGB.P11

SEG 0229

SS26s

COMWHD
COUNTD
CPHALT

0S24e2
0S1060
DOb2444

CR
CRC

= 00001S
o4M022

CRLF
CSF
CSU
csl

= 000200
= 000002
= 000010
001714

cse

pol1712

cyL

0N47500

DAREARD
DATENY
DRKORD
0B
DCK
=
OCL
=

047554
D45326
D47560
001704
100000
100

DCLERR

32%3{ = 177570
DE1
= 000040
DFF20 = 000002
DF1
0024

OF1ll1

DF 14

70042

C700¢s1

0S0O412
0O43Si0

NILOC

COMPA
COMPAR

2714
8
4470%

65583

6339%

7568%

7583%

6693

6709

H493#

000040
047340

& e W s

CLR

COMHD

v:un»fig

04261M4

CLDISK

g;uw.n
L
88 o

N§(fl £

CKSWR = 104407
042532

N0
W £NWD— N

4228

653
941
893Ss

8925

#
4944

6197

6239

6246

8864

8867

887S

2415

2435

4631

4749

4781

4864

p432

4947

S032*
6567%

S040
6574

726bs

5255+

S285*

S479#

%
6344

e42B*

6572%

7320%

CZRJGBO,RPO4/S/6 DSKLS CTRLR1

MACYLl 30(1046)

DF1S
DF16
DFé?

89388
89398
8941y

CZRIGB.P11

08-NOV-77 08:30

70061
0064
070071

682
693
709.

' g

DFe?7
DF3

80
bee

DF22
gaw
26

070114
g;gl
1

DF30
DFgé
DF
DF33
DF 34
DF3S
DF 36
DF37
DF40

70148
1
1
0701
070204
070213
070223
070231
070242

DFS

DH1
DH11

DH1B

DH17
ggo

DH21
DH22
DH24
DH2B
DH2?7
DH30

DH3Y
DH3S
DH36
DH37

0701
D7

= 000001

062727
063175

&%&

063751
063052
064134
DB4317
OBY437
064542
&H?
Sl
Se73
SBb41
e

D6B4Se
066655
067014

P78
= Booa0a
DISK
1416
DISPLA 001142
DISPRE 000174
DLT
= 100008
DLEM

DMD

= 00002

= 000001

0B:S4

KOe

PAGE 229

CROSS REFER:ZINCE TRBLE -- USER SYMBOLS

B g%
1

08-NOV-77

SEG 0230

745
?
7

8950#
779
Ss

820
S8S
569
5s2
838
857
872
912
950

aeg %
S
bl
e
8972s
929
883
8980%
8984
E

S29
634

B4
93

687

ggEBl

10098

£98
915
11
7eM
740
759
78
7
213
S

643

828
848
863
900

*1858"
0y P

4606
S130
6661
Sous
S04
9830

10138

10468

2957
3601
4035

S8#
629

89524
8929

29533
8975
8978%

BYSls
8480

85468
-8
s
85864
86018
772
86338
B86S6#
BE7YE

86138

87148

6%.
91
880
8821#s

878¢c's
DOt

1e4z7

7
;136
079
132 #
é
245
746

7
360
4072

1900

1914

w14

4611
S143
7092#
Bl3l®

4618
;HH
093%
Bl32x

4619
Sl49%
7630

2396

ZUiE

2467

1770

1986

1749

316
364
4413

3216
3698
€387

7
72
391

42ug

y7ee
§
76848

4351

4728
528l
810

WuSL

4735
320
8908

4736
8479

U4SE

Y4EM

4928
5507

4929
8530

g0es
5667

5026
BS54

2101

2171

2644

2661

2742

2798

2855

2936

3326
3723
43S

3;93
3 68
Cuy

3446
3817
cyysg

3463
3831
5451

3464
3835
€473

4470

3470
3874
5503

Y477

3529
3904
5625

4478

3578
3913
S6S!l

LO2
PAGE 230
. 3%&355 REFERENCE TRBLE -- USER
SYMBOLS
Y

826
SO4

718

4870

4906

4850

3120

4870

s48e
3171
06

s48s
3236
5393

4904
8882

S480
8888

S486
8898

88574

2190
108
OB4#

2ess
187
086#

eee?
191

2486
9246

YHSE

LRSS

4s08e

4959

7509
s 17
17

7526

7569

7584

287

888S

——

oo
NE
nN—Wwe

7460

£20R
O

N N

o £ Db

e e e O
UV 0

wEase

8-S
RILLREEOwSO
e

4868
79

unon
LD
Ll|

SRS
e
RARRRR
8 o eFRECRRRERRRERRE
§ 8R
dREE K88
-1’EgéSBFeRacyRIS

033

e Bt et ot Pt ot o

8036

7876

3% 9%
00000V 000000D000D00O00D0D0D00D0D0D00D
A A A A AAAA
44 ?
3331333 O000000 2 AAAAAAAAAAAAAAA
m
NN L
A n
-4;"‘: P— PENRRELR

08:54

;;34
01

3373

mmmmmmm

08-NOV-77

nese.g..
ns £

(1046)

s ShEreE-nadA

CZRJGBO,RPO4/S-/6 DSKL S CTRLRI
08-NOV- 77 08:30
CZRJIGB.P11

1449

8160

8150s

498*

S00*

CZRJGBO, RPO4/5/6 DSKLS CTRLRI

RIS&

08-NOV-77 08:

CZRIGB.P11

EN3Y

E;g 1

EMY0

062204

817
932

2305

Ense
EM37?

ERGLFC

0B234l

ERCOSC 013930

MACY11l 30(1046)

MO2

PRAGE 231

SEC 0232

gi6es8
8189

344

atmgo

0B8:54

CROSS REFERENCE TRBLE -- USER SYMBOLS

875

3032

08-NOV-77

2 .

8433

o978

2991

2998

2999

3002

5858'

29)3

ggg, ]

2025

2028

203

omn

3040

5043

30%

3060

(B W B S G2 owe ym ue

ERHDGP
ERHEAD

774ze

0S2660
0S5BSu

o Bo
ERUORD Q47850

10
?23

Lrdd

uggl

B35#

B507#

= DOOOOM

11138

4&&.

S260

5347

13gse

1393

3:%;

1271s

10878
10308

8879

8960

e omom e
2842
gggs

8879

XT40 = DOOOY0

FER

479%

zgr'

15748

F bSLsc

001722

794ce

59:2219!:

l
=
XT10 =

42]

77808

001716

ER2
XT

gl
142
%ga

OBRH

gzggl

ER1

EXT4

SRH

8878

B384

3149
S04

3203
4970x

7902%

906 *

S674%

576

B3B3

esew

4118

4179

3264
HE3oe

5858

7928%

eser

10898

e mn -

¥ie RBe WO UR

tuo2e

FMT22= 010000

QST

YHEH

447

448

l
gl

S834

i091s

10928

2034

4195

4508

3314

Y544

3517
3c2%
36

7936#

79%61#

8879

8901

08-NOV- R

O R

CZRJGBO, RPOM/S/6 DSKL

000002

000010

be3de

= DO4000

047504
047506

KIPARD= 175

K{PRR = 172342

K :gé: 172
172346
xgmm: 17§350
dee: 17258

fiee 12

: fi: 1

[4
K

= 17

17231

KIPDRS= 17231
KIPDRE=

172314

e54

IXE

nrur nn
o m o SEssssssssss
Kk kxS

I0TVEC=
IR
= 000100

KEY1
KEY2

2812
oER EvhBoLS

SEG 0233

77678

757

o
7098

3484

gflfl?
8395

3
12 1

i
3

4858

lzé

7952

736

8911
891;
144
;667
127
3259
9?
S8z

S461

6593

908

1:26

48 sY

795;

891
8917
449
352
129
3114
3608
5921

1489
;963
131
3118
3653
6742

1513
5965
7133
3169
3717
5769

1557
6022
8126
3230
3729
7244

1560
6024
813e
3234
3774
7725

1562
6027

3282
3830

1328
039
Ez:g

S4SY
6688

S4s?
6693

703

6703

6712

7423
7494 3%

*
7464

S830

S924

980*

ILF

NO2

78338

BRERER

iySBabase0ts SRS

0vys3lie

7827

(=]

FOUT

FRRATL 033760
FUTABL
GECC1
09E310

[

CZRIGB.P11

NOV-77
NCE TRBL

e224s
5160

2e7s
Se09

2ess
6113

2300

2413

2433

2467

2543

2559

HWY470%

H491%®

H942x

S03S#

S255%

S5288%

S479%

SS507%

S5S48%

b342#

4470%

H492%

H4943=

S03b*

S25S5%

S289%

5479

S5507%

SS549%

6343#

CZRIGBO,RPON/S/6 DSKLS CTRLRI

cg.rg%u

08-NOV-77 03:36

KIPDR7= 632
LA

LST m
RAKECY
166
MASK
MCPE

MHE
MID

= 020000

MIDDLE
MINX

sggmoo
156
=

moL " =

bHikae

13*

%058

]
]

1003

74%
131

71%

sxsg

Bll

Sye

Q45054

Szgeo

5255.

7292

7243

010000

‘8;&:

1664

1665

12768

8914
7491

749

ig43s

3uea

7868

ggea

001734

= 000020
= 000020

MSTCK = 000010

1048%

10508
mgo

10518

€6

462

oF20° = B0005s
ee, : o
=

OPERSE_

ouT

PAR

PAT

PCISR

041440

= w%cacaw::
047564

= 000010

= 0O

002014

11408

3475

60208

B131

11418
e

9758

7304

976

4022

8073

8074

Se98

5699

78S

5786

7455

8131#%

1576%

7020%

7238%

4027
7555

1687

1705

130S8
7719«

6IB4*
7720%

8031

8035

7374

8053

910
376
80S6

STt
1575
S507%

EYSH e
608#*
SSO»

S4YS7%
980#
31S#

SYE1#

7307

7358

7431

342
3228

2430

2446

2467

S160

Se0s

6113

B236*
B691

6237%
8835

H593%
8301

B594#
8305

6762%
8314

6763#%

7019%

901

2382

4026

7879

4027

€876

2535

2300
17

1715

390

7869

2298
3i1

10308

9728

67618

3907

8030

i?ll;:
i?&é:

= 000001

80s8

5691

3912

7571

8029

gREV = MJZOOVEH
OF 160 = ooooowmm
OF2S

101

3906

Sqfl %
§59§'
479%

708

372

Y3sx
&%

1676%

311

g%
1Y470%s

7030%

3583

7521

NOSYNC OH;EIH
NOUNIT
g;sm
NOWORD
46

11438

378

7513

OF200 = 000010

37;

7S04

4073

12918
11878

473

8035

3598

NUNIT
002000
gcvi
= 100000

100

7724

= 004000

7723

$ a4

684YSs

6096

gwg

SEG 0234

1133w
4

NCODE - B4i37e

NCOUNT g-osaeo

2349

80S6

11158
£737%
270

MRD
MSE

BO3

08-NOV-77

cnogg REFERENCE TRBL 22'sER SvhaoLs

LRD

LFRR
L

MACY1l 30(1046)

1718

H185*
©888

7239

CZRJGBO,RPO4-/5/6 DSKLS CTRLR1

CZRIGB.P11
=

MACY1l 30(1046)

£8-NOV-77 08:30

5%80

PIEID
PIEl]l
PIEl2
PIEL13
PIEIN

=
=
=
=
=

68074
s
]
108
l1ls

PIEL1G
PIEL1?
P
lg
P

=
=
=
=

68138
148
1S58
s

=
=
=
H

68178
68188
68198
s

=
=
s
=
=
=

8
38
*
a8
¥
]

PiElS =

Pl
PIE2]
PIEE%
PIESH

PIESS
Pl
P
P
Pl
P}

é.

68278

3%
2381.
68028

PIES =

£80cs

[

=
=

PIRQVE=

ITI

PRE

zé

PROFgggg
PRO

13198

11
11
1
0
010724

11314
pllele

011686

= §E$§§§

nggl

1
EES
18;1.1
16788#
1458
17928

4419

6941

SEQ 0235

6956

6908
6941

6899
6916
6947
6924

6947

6941

6880

6888

3119

3170

3235

3283

3344

3399

3488

3536

7028

7036%

7037

7039

7075%

8911

8917

2200

268S

3029

HEHg

4869

4905

5481

18024x
i é :.
S03s

= 000140

S03s

= 000040
= 000100

PRY

= 000200

11368
6981

3609

3654

S509

6209

16728%

]
1;
1
e
17998

PR]
PR2

PR3

CA
PRCS1
PRCS2

PQGEYfiggLS

68038
68048

:¥s°

CcO3

128

:"Egé .
P E" ==
PIES
P E;
PIE?

08:54

CROSS REFERENCE TARBLE -- USER

PIEl =

08-NOV-77

S03s
S03s

S03s

205S

3730

3775

CZRJGBO,RPO4/S/6 DSKLS CTRLR1
= 000240

RCYL
RDCHR =
RDHERD
RDLIN =
RDOCT =
RDY
=

o4
104410
047622
104411
10441
0002

REARD

0S0O414

READAT
READIN
RECALI
REDATA
REFOR

REGADR

002102

4022
002070
0DO4ecced

2343

7045

#
8
8

1
%
6910
6918

8
32
6911l%
B919

[

68618

901*

6£902%

6939

68648
509:

73318
8131
7261
8l132%

]

QéSI
ie9

#
9 328
s

389

13488
13540
;
Os
319
13498

é:?SI

03#

7
1S

7!
44

REINTS

0Sk442

003154

4953

S046

75%2
e

2488
5523

7403

40S

Hysy

S25S

512;¥

5720

6b68i*

Uess

Boces
6692

§i&§!

585'

égg.

§177'

Sésgl

aég‘al

1%.

92
752-

383Sx

3836%

Sle
5409
Se08#

124
ng
;0 *

4153
HypY
47

B34#%

6E3S

*
32-

118%
4%

10#%
B

5199
ggwa
11%

6660

89#

Q%
1%

185
438
10%
4o*

?ggl
3&!

385

19%

ye
4y
4716

S741#

SBsl

3bees

35#%

4EB%

384

Yo
4y
471

776%
4984

7450

6073%

7409

306qs
98

7;3!

7407

Saar

3480

B4Y41

7109
2190
S065

S954x

3419

5759

e
5435

e2bb4
5479

6946

$5dar#*

;9S

S833#

813;0
ecb
£396

§316

2;71

414
Y45
470

2434

5258

7&85

3189
35S
371

2414

S1l6l

6940
S

sogg
16
;983

)

13;0

3300

2394

7400

401

595:

£927%

4897

699#

A
ggggl
REGSA1

nga

4238
4504
4788

231
flflg
blo#

742%

S914

4o32%

Y
4537
4818

156

351

Y
HO33%

HS:
Y
é
Hg;

Sess
g:gq
0%

§379
gfl 7
beo*

6924%

5925%

S743%

S744x

gxu

S34#

G
4O3S#
3
458

4933

S391#%
461
beY#
758

S926%

2526

e B
=

2301

Hgg

NowWe—un

000200

aaeg

4748

2266

RRRco
oo

6021%

C= 000024
045336
S340

S9k2*

e o o o

1390%

1777
0OM22

1
]
11808
S03s

ettt|

=
s
=

DWown

PUTREG

P2y

= WU

PSEL
PSU
PSW

Pl2
Pee

S03s

SO3s

s ]

SEG 023&

—

PR?

PAGE 235

CROSS REFERENCE TABLE -- USER SYMBOLS

DO3

—

PRG

0B8:5S4

YRR
o3
S8
it
it S
\JNS

PRS

08-NOV-77 08:30

08-NOV-77

£L£r
DUIW

CZRIGB. P11

MACY1l 30(1046)

CZRJGBO,RPO4/5/6 DSKLS

CZRIGB.P11

CTRLR1I

MACY1l 30(1046)

08-NOV-77 08:30

08-NOV-77

08:54

CROSS REFERENCE TRBLE

EOQ3

Pncgyaas

-- USER

SYMBOLS

SEQ 0237

RETCL

2076

RHRS

RHBR

001656

RHBARE
RHCA

001700
D016S2

00167%

RHCS1

0016§O

001634

RHCS2

001636

RHDB

001630

RHDST

001644

RHDS1
RHDT

001662
001664

RHEC2

001672

RHCS3

RHER1
RHER2

001702

001670

00lg4e
001646

oo
B
RHMR
001660

12418

3587

18?7

1?;%
$roke
14y

1977%
oli3e

agggi
o3els

4827

§§3§
OCle

57355
Loks

§957§
V3R,

gégq1
Seer

4193%
WO

429Sx
BRGe

H4398%
TITe

YNS1F
WOY

Y4SB#
W

1811
H412%

ggggl

1924!
HYSIE

ggg;u

2169%
HYSBE

2738%
HYBM®

2934%
4470%

309S%
4S11*

3104
4Y9e2x

3221%
SOS6*

34S7x
S255%

3882%
5307

H119%
53S9

4211#
5373%

12348

537

53 Q%

102#%

2741#%

27S1%

2929%

3079%

3l14%

3220%

Y41b®

4BSHB#*

492

520

673b%

SB827*

S921%

E£106

lqgfli
Slas
1
]
?gzg:

12398
H313%

3230#%

6166

[}

?§§§:

égg;l

12228

égsg

4306%

SS07#
12438

Y40S#

22271
3

gs&é

igag.

153;

1640

12478

2802

}225:

2361
12368
12448

12358
0,

4YO*

1%59.

lzgg

1494
N

e
L
15:2.
%Hs

Eggll

74%

5;?

ggfill

§36 I

1953&

Y4SI®

EB?S:

5395

2981

H4SBE

gg 7%

H4Yyb4E

15837

1S4

gagal
O

Y470%

1544

1657

124?

2861

2;7

SS00#*

;Ha

5903#%

708
116

éZfl?’

Q4%

2308

309

2315

2321

2337%

2351

22891
12

4S07%

6358*
6168

4958

BYYY

p0S2*

6603*

S2SS#

3921

3992

HYill=

Y4204=

1659

1869

1871

1560

1616

1618

1629

1630

1632

| 39
Nl

1939& alsgl 2938!
Filie . SR o TMo

4820
TR,

819
WA

£838
>

5860

5913

5932

*
78%

b3*
gql

572*

b4YY*

cbbl*

§45
¥
70S%

74Ho*

2798*

2855

936

1689%
L

0
216b#*

164

736#%

#
%

1549

6975

LR e
MOl# SR1%
99%!

?Sggc

211

2737%
:ggg:

933%
ggg:

347S#%
S25S%

3883%
S30b®

é 1

2156*

2176

19
25

225
54y
842

243
3565

5861

1805
uusu:

1983#%
zgs :

agagi
2445:

RHEN

OClEBE

12458

é By

1629

1658

109
3407
3737

7§s

1656

xsg

1 é

waas

YoaRx

759

782

S479%
60S1

S507%
6£3S4#

76%

1446#

96
gfl

4396%

SS63%
BY40#
1457

Y451

SS86
6604#
1670

b
3601#*

2360
3880

eYls

g;&

b##

6167

34
24y

1407%

44Yl4=

&ggg:

98*
022

13298

7725%

390S*

6765%

&zgzl

%
6768%

6368B#
6049

7244 %

3830%

6736%

é;gg:

1%
6741%

7e?

3821%

65938#%

572;:

SS03#
gqlq

238

3717%

bH48%

535;'

595
#*
3529%
ggg?;

6362%

lg;Bl

lageo
Yy g:

002040

éZlg:

24
1981#%

1%34:

001650

R=70

6769#%

lfl?é'

g;gl

b767#%

RHOF

00lie3e

; B

2937%
3470%

3769

RHWC

4yO72%

H4SBx

Se3e
S?Jll

241

2b*
2%

3393%
3648*

784#%
243#%

785
371

4413%

Y4p4®

5655

2282

387 %

69345

110
3901

1874

3446H
3698%

1876

1879

34S2%
370b%

1881

3463+
3722%

5479

Y4#

3723%

SHS1x

S473x

7722%

S87S%
7723%

411B%
S5372%

4210%
S479%

4312%
S507%

Y41l
SS68%#

HYS1x
25723

2209

eee9

3316
3638
4066

2889

2734#%

3293
3616
4044

2870

2574

266
359é
3

2868

335
3661
4102%

e9l2
3361
3684
4133

2926 *

S704%

5728

5748

2328

786%
7622

4SO3*

2386

S440%

676b6%*

S370#

SY4Sx

4470

2435!

6733%

S5305%

49S4x

2410

SO47%

€770

2478

S87b%
7724%

S2S5¢

§790%

253t

S877%
7864

2746

3383
3712
4191
%

S303#

S881=*

S023

CZRJGBO,RPO4/S/6 DSKLS

CZRIGB.P11
RH70CK

CTRLR1

08-NOV-77 08:30

00S364

RKEY
RKEY

7610
7612

RNCTR1 0S2460
0S4016

RNO

Egungl 05%5%0
RvEe i
RPO?

RSETR

RTN

38
;:

7368%
7369%

71884s B099x
;i i;. 7729%

1725:
391#
e

7124#

7127

8l127#

#S},;'

;seu

3086

C4hE

6537

047602

73308

7397

7429

7440

7453

047336
047416
002010

72378
72468
12988

Gic
377
4032

328

1447

449

402

§292
ggg-:

1659%

5359
gggi.

2063

13018

1658%

2067

78558
78518

7862#%
7858%

7935

SECOTR

0S1320

047502

4080

4170

SECTR

DS3S44

S4Y79%
3903*%

——

002012

= 100000

SCOP1

SCRC
SCYL

SC1
=
SCl10
=
SC2
=
SCe0
=
4
=
SEARCH

SEECOM

SEGPER
SELECT
SELTST

104413

052730
052720
000100
001000
000200
002000
000400
0S3S46

SERCH

10058

81328

1093s
10968
10948
10978
109Ss
6743

1695

7254

w%.

YYSBE

;7" "

Eigl

S507%
39

12938

1380%

13438

3884

15798

T
276
SILOTB
1416
SKEYl
0S2724
SKEY2
052726
SKI
= 040000

sggg
;
8S3s
78548
11868

5443
2349
7860*
78C1%

SPRCE2

062724

1926

4488

177572
177574
177576
172516

S22
coes
sgao
1

SN
SND1

SPACES

SRO
SRl
SR2
SR3

SSECTR

CEYN

001742
005326

=
=
=
=

PAGE 237

05%16

(52722

047512

STACK = 001000

12798
1397

5i3
3839
1698

4270

NNBYE

SS4b*

220

B98%

3036

5SSO
4095
3040

2255

80248

4374

76778

N47O®

44B9%

;us

6767

SS547%
8022%

909%

H340¥
B024*

5573

5618

5897

7463

7926

7929

3482
S401

5953
€585

3238
5631

3
s§727

5065

S067

5610

5739

4490#

4O4O*¥

4S41x

S033x

HSEB*

SO34#*
6S69%

7251

72678

S5286#*

Se87%

1727

1732

1737

1792

1799

1808

7863

H34l¥
8026

BY24*

1382%

1409

1579

1595

a5y

448
2354

€400
76838

S457

S461

65518

1929

1930

1931

BY47

1456

1672

1678

B42S*

7975

7979

3179
3711
sgls

S25S%

3224
3736
5837

4028

1924

1925

78528

7859%

S03s

1387

7258%

SEG 0228

790M
7406

724B8%

SAVSN

FO3

CROSS REFERENCE TABLE -- USER SYMBOLS

246%

08:54

;ga ¥

006020

RUNCTR
RUNMAT
SAVDT

08-NOV-77

00;235

D47606

RSYNC

4OSs

MACY1l 30(1046)

72738

7398s
1418

1682

CZRIGBO.RPO4/S/6 DSKLS

CTRLRI

SRRO S o8-Ry
=37 08 30

1813
3072

1826
3393

S378
2578

S37
2833

su3S
&5

004244

2TARTA

004966

2R b1 140

1381

13908

000176

54
5011
S04s

=
iEe
2407
=

2038

SWREG

340
3400
340l
2402
3403
2404

=
=
=
=
=
=

DOO0OI
DOOOODI
DOO002
000004
000010
000020

2408

000900

1’ = Booas

2410
2411
2412
2413
2414
24ls
2uz"
245
344
3ws
246
247
4@
248

TAGDTE

=
=
=
=
=
=
=
=
=
=
=
=
=
=

002D
009000
010000
020000
090000
100000
500004
000010
000020
000040
000100
000200
000400
001000

002030

2038
2038
2038
2038
203s
2038

3038

L
B

38
3038
3038
38
2038
e
8038
2038
2038
2038
3038
2038
2038
2038

Q94§

2376

2377

1405
1433

5376

2240
3695

2281
@14

SEQ 0239
2478
3879

2507
3876

2572
4078

259
4078

26M2
4168

2728
9268

Suas
2871

ssl

SuBe

Swel

847

4970

U479

978

9698

140
HI
8131

433
U

1486
Ik

1507
430

1920
4380

2375
B3R

3349
233

3437
313,

4470

4Se3

SOI13

S340

5479

5507

5683

6408

1486

1507

1920

3349

elals

SW3
2893

SWE
©&780

6968
6366

13208

2038

1387%

tiile

p1zas

410"

721

82748

6283

6288

13088
S03s

TRE* = D4
TRK
. D474S2
TRKI
= DOY000

10048
20838
16988

TRKZ
= 010000
TRVS0 = 100000

1099
11028

= 020000

08:54

3437

Sbuis
E343*
1500

TRKG

S0
691

1387

1387¢
920

13008
3

TRK1C = 040000

ul§
52

14N
L9
1404

385

TRPTCL 095454F]
TOLChP
TOTALA
TPVEC =
TRAPVE=

2155
3578

g4e>

38
I3les
188

043164

2097
W43

946

TBITVE=
14
TOF
o=
0
TESOTE
TESTAD
041436
TIMCNT

08-NOV-77

GO3

PAGE 238
28228 e r PRENCY TRaL 28 S UsEREvRBOLS

1811
2320

§352

START

MACY1l 30(1046)

11018
11008

2386
55cis

2648
579

2650%
EBRY*

2655
€3]

2657
SEie

2658+
Sedes

2264

2714

S085

S067

S6l0

1502

2392

3014

5739

U813

49e€

502

sioe

4470
8%

983

4Sel

CIRJGBO,RPO4/S-6 DSKLS CTRLRI

CZRIGB.P11
TRP

08-NOV-77 08:30

762

;RTVEct 88805:
TSEEEG 0953 4
fehiee BBl

1444

SO3s
1362:
oI

TETLSO

796

572

TSTION
ISTi0s

035126
035162

S44S
e
Sud7e

1ST11
15Tii0
TST111
187112
187113
187114
157115
15T116
187117
15712
1ST120
1ST121
T5T122
187183
1871
18714
18715
18716
1117

011012
O3yl
035544
4
780
3
036370
037000
037626
Olll62
037662
040214
Q40540
Q41070
Ligge
011
011336
011824
011570

16818
54SHE
S4608
4738
4788
55038
55068
E5278
8691
17278
56938
57808
Se71
M
17308
17378
17918
17918
17988

rere?

Bis3s

i871:

1€123

012010

18268

013442
xasga

087
é
%

1§T22
TETed

1728
TSTE;

1ere
1513

011794
Qiewle

3154
12G

v
381S#

SE9l*

SE94*

8879

S528#

1638s

S4408
MM

24248

18138
19698

308

145

2097

14718

TET30

Qi4332

2241

2277

2281w

7132
7133

(015020
0l1E144

2328
2366

23868
2403

2409

1€73]

014560

2282

2319

géll
O

3696%

gg?S

034750

121108 03e5iE

Bl O

9505
4B,

8872

157102

187103

7827
AR,

44 gi
SY4O*

43Se
E4374

08:S4

PARGE 239

SEC 0240

14484

449
S43B*®

08-NOV-77

CROSS REFERENCE TABLE ~-- USER SYMBOLS

H4p3%
S43S#

S507%

1271
187101

MACYI1l 30(1046)

2328es

ek gn
SY43#

8882

9131.
L
74%

4E79%
S44YS*

S78l1%

8884

7
TBL

7
TmS

7
M

Tl
3877%
H072%
Hgg *
4Yp99%
SH4YBx

4B14¥
SYS1®

M
SHSYx

8885

8868

8891

SB872%

60e2

8857

7629%
DB

74l
DM

Y4169

4282*

S4S7x

1
SYels

8895

8898

8859

8861

#
NS

+
DB

B
oW

44SO*

4457+«

S473%

E479%

SE03#

8901

8390s

T
4Y373%
8864

8867

8870
8908

CZRJGBO,RPO4 /56 DSKLS

CZRIGB.P11

CTRLRI

08-NOV-77 08:30

MACY11l 30(1046)

ES-NOV—??

CROSS REFERENCE TARBLE

TST34

0154944

2410

2466

24778

TST36
TST37

0158722
O0lbl

a9
2536

g 3
64

25;7
2571

253Ss

£978

£988

TST3S

015602

TSTY
TSTHO
TST41

80617
16224
016350

TST42

9208
3059

3072

2204
007540

4438
1580

15848

3439

3695

851530

TSTS1

TSTS3
ISTSY
JSTSS

TSTSE

(023522

38148

656

TSTS5?7

166

;g}go

3238

3S7Ss

023700
023734
D24be2

8éggé$

40788

4139

4158

41688

4372

5533'

4ese

026064
026330
026714
027300
027664
0302;3
0305

Y
4449s
4451
4458
)
4470
4yse4

15771
1ST72
TST73
TST74
TST7S

031426
032016
032362
032726
033334
33736
D34266

4793
4916
2014
023
5236

4gice
49258
S022
S098s
S2S1s

14198

14578

TET76
1ST77

TINC

010656
1120

= D00le22

1665

Y41
S348

;g‘

IyPDs =

TYPE

10440€S

= 109401

16638

16708

SEG 0241

42684

44568
Y4628
44688

Y4748
4564

16708
46918

4S72s

Sebl
S3568

S27as

1742»
e410s

1795.
527 8

1799%
2507

180S#
25368

18l1s
537;0

18138
25971

827
26438

2098
27294

2156#
27958

224l
c92ls

ccBes
3073%

2328
33248

238648
34448

Y4698

44708

Y4768

45798

4699

4B1l4s

49278

S023#

S106#

S25Ss

S277%

S358s

€S03s

S43Ss

SS07s

1560

1562

1565

35768

§
= 899&?2

SYMBOLS

38748
38768
40728

TSTE1
TSTe2
TST63
TSTEH
TSTES
TST
TSTE

TST1?
TST?70

PRGE 240

-- USER

7958

Degble

023156

TSTS2

4838
S9Ss
4ls

0174
020612

TSTY

TSTSO

1877
2589
ebl3

27288

01707

TSTY
TSTS

5860

016644

TSTH3
TSTY4
TSTNS

2“?9

8:54

103

968

14728

1S58

1485#

38748

158S#

778

40728

4079%

41698

43738

4Y4S0%

Y4578

17378

44638

ggue-

S4S1is

1559

1567

1628

3354

S964

5969

£97

5996

8132

1627
1936

1629
3068

1525
38

5& 3
893

1655
4114

1665
413

1667
4206

1959
4228

1925
4308

1926
4332

1929
4407

1930
4451

1931
4458

S80S

cesl

€963

S965

€974

§977

S996

6022

6024

6026

6027

6030

6363

1399
HHEY

[SERE]

1400

4470

£SS6

1401

1410

4s12

4815

7106

7108

728

1436

4963

7121

144

S0S7

7123

712s

1489

S308

7127

1513

8359

7129

1857

S479

7131

S479%

1732s

S44Ss
S781s

S473s

17278

S4H43s
8

SYbls

16838

S440s

SE9ls
11308

E4YS7s

16788

S438#

cc28s
%112:

S4S4s

16728

S807

7133

§580

8ick

5719

8131

MACY11l

CZRJGBO,RPO4/S-6 DSKLS_CTRLRI1
CZRIGB.P11
08-NOV-77
TYPOC =
TYPON =

001706
= 040000
= 000040
0S1400

WLE

0s2420

42
44

= 004
0S0o410

WRCHDA
WRCHDT
WRCHEK
WRCHHD
WRDATA
WRFROM

043652
002060
0O
043340
051066
002110

WRHEARD
WRIDAT

0S2732
0020€2

1038

SEQ 0242

7107

71ee

7126

7128

7130

glze

8131

g132s

4849

4869

4906

gugp

5485

SS10

Ss13

6209

2877
5178

€880
5192

493
60S0

g521
8875

8132s

4348

SO41

$258

SYS7x

*
SH1E

5479

S507

SSS4

4384%

4391

5293

77488

7408*

7449%

7453%

748Cs

7489%

7502%

7519%

7406*

= 1044185

LTS

= 000002

U -:-S‘gwWwn
W—n
A

020000
000001
000002
000004
000010

WCU
= D0CCO1
WCYL
052636
WECC1
0sSe41e

WECC?2

PAGE 241

1294

SNEesssssSSs

=
=
=
=
=

vu30
= 010000
Vv
= 000100
WRIT.T
D43166

WKEY]
WKEY2

60258

BEE

001754
002004
8320%9

WC
WCE
WCF
WCRC

6023

|odand
8Londand ol
PR
B0 LACRRENOTG
a‘—
BEEEeRegaE
O WM+ L0
o
ok ok a8

UNITS
UNITSL
UNLORD

WAT

JO3

8132s

LLLL L oL~

001774

VUF

0B:54

006110

UNIT

UPE
usl
use
UsH
UWR

08-NOV-77

- CROSS REFERENCE TABLE -- USER SYMBOLS
1629

104402
104404

TYPOS = 63%4 3
T.SCOP
2576

30(1046)

MACY11l 30(1046)

08-NOV-7?7

WRIFOR

M1l

4207

75508

4309

7831

440

763

5366

42B82x

4U3BH#*

7732

77498

TM
7908
HYBYE

7429
7925
Y470*
72708

7436
7938
YNS9Yx
7305

7441
7951
%

7445
7963
S038%

2270%

2277%

2289%

2304*

3%
86

H203%
707%
Olgl
%
49S#»

070%
96

3005#

063%

SO0&S

CZRIGB.P11

0SO&46

79%

= %

11148

WRU

WSECTR

WSSYNC
WSU

WTRK
WWORD

0S2640

0S2574
0SOB4Y4

047810

XE2
Y

007166
S0

ZCODE

3478

10208

4y092%

76788

TM
7651
YYSI®
6429
S0S
73168

0ONS330

68538

$AUTOB OO1r34

72108
S24s
2693!
el
1935

Z2ER

$BDADR

001122

$BODAT 001126

10538

204
24Sex
1%

5335.
D00l1216

0SS146

gcx
0SS460
CMTRG 001100
$CM1
= 000006
gccng
= 000014
= 000006

SCNTLC

= 000006

TBL

0S471

8l31s

SENDCT
SENDMG
SENULL

0413S0
DO41421
041416

€996
5974
€977

(041342
001103

EEY)
S24s

O41314

L
i

79%

H470%

4SM3I®

B193%
634 %
éomu

B199%
b
éo?gl

399%

4BBYE

4993

YU
*

gl
7978%

.:soi

gqe

BOn
857

B
8861

S24n

Bl31s

SEOPCT
SERFLG

132
1387

0S47,

SEOP

813
o2258%
ggél
14
19978

Bl31ls
So4s
Se4s
S24s
S24s

SOBLK

o41402

1%6a%
%
5;‘1‘21
H?;i
i% *

8132

Bl31s

D414l

8917

B131

0S6236

001223

7033%

7042

S24s

SCNT#U

SCRL

1518%

gl
7%

81318

0Sked4

Y4YSB®
07 %

ogmer
7954x

Bl31sx

7643

8l31s

C24g

1565

1936

6026

1814

§981

S99

&088

Bl31#

8l32#

€996
S0S
Y2

SEG 0243

5806

7647

6729

7680

7903

7923

7937

7950

7962

75458
7974
GS255%#

7590

7632

7638

7644

7648

S291%

S479%

S507#

S551%

£345s

2346*

2398%

2417%

2437%

2667

2678+

2400
2SHY»

2402

3023%

S083

Y4SI*
S255%

44EB=

11268

77378
7422

o
;agi

1956235

SCNTLG

1132

41Bl®

3043%

S$BELL

'meg

HYyb4d®E

S$C

PAGE 242

CROSS REFERENCE TRBLE -- USER SYMBOLS

002064

WRITE
WRL

08-NOV-77 08:30

08:54

KO3

CZRJGBO,RPO4/S5/6 DSKLS CTRLRI

S99
S99
€996

8131

8132

6H215%
708
019%
3%

MOl
8867

bB220%
1714#%
2022%

£223%
718
éoas.

b242*
1753%
2028

ebll#

794%
S14#

2314%
esle

30]11%

S07S*

BOGP
8872

2320%
*
[

Y133%

Yo22%

Mon
8885

8891

5076

1*#

b24I*
177S»
2031%
359%

H324%

8835

B25S*
1917#=
2034*
2969*

6260*
1933
37%
73%

S326%

MACY11l 30(1046)

C2RJGBO,RPO4-/5-6 DSKLS CTRLR
CZRIGB.
P11 08-NOV-77 08:

Dobu3s
SERROR
RRPC g‘fus
SERRTB

1226

SERTTL
AP

1112
xag

SFILLC

138
S2us
888S

figg

SGDDAT

O00liev

4ys

Bl32

8
.

5965
67'

'0:

8131

8l32s

0011

SFILLS

131

6703%

H712%

B029*%

6032

7929

S24s

Se4s

4s
8

1387 .

0S6261
0S62S0
(OS4S04

81319
81318
Bxgu

SNWTST= 000001

14188
579%.
8

SOCNT
SOVER

$PASS
CWER

057176
057200
4470

1100
744y
7432

7272

7426

<
SROCHR

7344
1222

SRODEC= s#ssss U

17S0%
026*
319%

Bb93%

001110

001154

1708
o
HE

82%

SLPERR

SNULL

706%
%
O%

8867
8905

B397x

81328
g:o
8

SMAIL = #¥xssx |

698#%
16%
*

8864

bllNs

057436
00113S
001114

SMNEW
SMSWR
SMXCNT

Bl32*
8132

8901

wgl
20‘0 #

SILLUP
SINTRG
SITEMB

%1229
1106

S967%
8131

8861

%
*
go;gn

QY3x

479%

7955#%

485#

7966#%

7979%

8l31#
Bl32x

Bl31
1387%

1387#%
1404

813

14568
7;98
8

8132
1SB4#

2bb3*

eB853#*

14718
s
i

14838
sgo
@

8131

8132

4829*

1584s
;30
18

8131#%

8879
8917

82
8922

8884

Sss %
*
20‘4 *

1774%
2031#%
2360%
2582%
002*
4Y470%

1915%
034 #
4O1#%

%
3005#
YS4yox

922
5337!
02
260b*
3008
4863%

1926
e041%
24S1®
2613%
3011#
4992

1995*
2042
2459
2965%
3014%
S067#%

1
2049%
24e8#
2969#
3015#
S074#

£778%

397%

7421%

7438%

7440%

7463%

S13%

;b?l

6094

2859

8861

8891

Bl31*

8132

16638

1670%
9698
418

1678%
0978
72848

730
4yglcs
gusu

sS4
31 z

3347

£973#

§97S

5996#

8131

8132s

8132

8875
8914

6031*

748
46918
4478

8l132%
So4s
Bl31ls

8872
8911

6024

Y]
45728
Elw o

Bxggc

8870

8908

4894 %

K
35758 *
44748
Y4688
gws.
22400

1328

SEQ 0244

6098
)

6103
8898

6108%

7896#

8901

8l131#

5232'
]
40728
439254
S4S3s

918
gxaau
1328%
8l31s

243

8898

g&sl
*
*

%suao

SLF
SLPRDR

859
C1

*
*
&

SHIOCT

1104

Bidhe
._,.'3;
91

Bi3is 8132
'48‘}
Bl328x

PAGE

cnogg REFERENCE TARBLE -- USER EYHBOLS

1718%
502 %
3lo#%
ssuel
996#
g% ]

Y77%
13%
*

LO3

So4s
2010%
20Se*
o488#*
297 3%
7

)

e
SHD = 000000

1395
132%

B:S4

-NOV-?77

938

2131
132

7808

8132

718

962H

40788
S022s
S4Ses

41688
88
SY60s

16818

S;SSO
Y
42688
SeSlis
S473s

17278

c240s
29208
43728
S27es
S478s

17328

ceBls
3072%
44498
S3S6#s
SS03s

1737%

c328s
33238
H4SES
S43Ss
SS06s

17418

23864
34438
HYESH
S4378
SE27s

SSUR = 169;70

mll

L
1%

STKCNT

TKINT
TK

TKQIN Eggl 4
TKSRV

$STMPO0
$STMP1
sTMP2
’;::3

172
171

B8l31s

158;

1404

8131

8132

S8
seer

S442

leod
S84
S4Y

1418%

S:S;
sse?7
14SE#

DA
%
S44

3503

5%
5383
sS4
SS06

1471%

1483%

15B84#

1485

218e

6092

7108

8131s

B279%

6284
Qe

3993

4007

%
77%

*
78%

6283
4g8*

6490

101#%

103#%

18
8 18

356

553$¢

3
ggllflfl

8l131#

001176
001200

1530%
431#

§§Z§l

001202
00{204

%
*

%
3

?o—

T
TK

.
e
001146
0SS1Se

8132

0SSeue

1531%

1;;

?33-

®
B

;7.

agSS
4HES

2408
;g

Y 7§.
447

§§Z§

1?2fl;

S69l

ee??
3

4078%

40; "

Hg7g
Y4748

4is

Hflflgi
4476

5633

6293

6289

41
uwgo:
4524

5780

150

4158
44s1

4Seu4

e
R

$SS1
SSTUP = 177277
ggxkgo 0S4442

OSHEIH
83011?
=

L2 3

3
SSET

\l&fi

SEERER

[

SSAVRE= #xuxss

1174

1N14

@+ 4= b= = D OOV

1166
1138
1172

§§

SEG Ceu4s

& figi%g%
=

MO3

08-NOV-77 08:S4 PRGE 244
ROSS REFERENCE TABLE -- USER SYMBOLS

MACY11 38( 1046)

0S6ll2

—

SROLIN

PRI0o W

TNOV=-77 08:

CTRL

DSKLS

4268

Se
S473

6289

CZRJGBO,RPO4/5/6 DSKLS CTRLR1

CZRIGB.P11

MACY1l 30(1046)

08-NOV-77 08:30

§TP .
STPFLG

SThap
TRAP2

001152
0011

Oorads
0B7584

TRPRD.
ToThR D01 o996
508

¢
HE
¢

37"
1328

8132
813

STveEc
STYPEX
sTveoC

S5
0221
05

B131s
81318
81328

Y9lb
77
‘.g;.
SsHe

4925
398
4538
SS

4927
gsises
Yey
Sedls

S99

B131%

8132

SOI4
56

]
Seddw

SEG 024&

S0228
§4ase
45

5023
5437e

13608

13618

Blies

8985s

Se3

4608

S7eos

5098
543

5106
4408

5461
781

4738
S871s

13628

1387

5236
54428

54788
8872

S251s
G443

5255
S44Se

14008

1401%

5473
S9%2s

55038

i3k

8135
813ls

8lals

= 070246

PAGE 245

B3I

©S9e8%

056220

STYPON
14
it
0%6
SXTSTR
024246
$SGETY=

NBI4
728
4y
fsgr

8135
8358

STTYIN

o
05406 sr&s Beur
e

08:54

CROSS REFERENCE TRBLE -- USER SYMBOLS

4gl28
He

-NOV-77

NO3

81358
138
g131s
53968

O138.

coms

JeBds

7o85s

Jooes

j7e
idc5s

ad43s
&decs

gag9s
c99a"

s22s

813
BO27s

J6S7s

Seus

S57e
60308
JoBes

12878

JScow
7iols

B13ls

Scew
7ic9w

bdze
7697

JbSTa
7678w

oo
7679

13998

bsss
7680w

joess
7esis

Joere
7eses

JGBO,RPOY/5/6

E }&999“

03«3537 08+ 30

Res

GEes S
COMMEN

RS
RROR

mSG

MACY11

1479

1672

14 -11

30
4310

4
hY:
43ie 483

4
464
use

6683

6699

304

W o
g
N
454

§l

316

So68
2038

2o
B.
qaze"
oG8

oo
P

So3e

GETPRI

CTRLRI

sgas.
Sudes

552;
Buas

d0e8

o
221
o327

>a038 fisog

&3
6518

mc:o

_PAGE

E—

W4B4
4470
4512
M BN 4yowe sy
omoos

4815

4983

1287

A58

737
197

1788

4523

451

q171

3792
eigl

4gq3
siss

4
uges
1%

3988

4gES
S22

4g7z
s

w470
4900
g2

6979

6985

7096

B
16

s"gz

§;3

84l

8300

0356

sef

93
sueo

om
g8
¢
Eggg

6994

eus

1777

2993
H4p4

bews

7798

833

812

%51

5883

RHYDCK

1483

1630

asBb

257

oece

2385

suse

Hams
s4ED

B
Sose

ug;

g?ag

§3¢é

S430

Swis

swis

Sw7

e72s
2478

B34k

6785

8437

BloT

83l

o338

238

2910

S9ST

s9S3

e7e1

6870

7022

s83%

so23

7004

7061

709

7074

737

7322

1741

74eS

S SRR pmopm oo oumose o pmosn s s8N oun g
3
§
39e9
£ 378
oS IZ W- Bby i& M
oo
ome HE76 4879
A0 4693
S 4g14
86
1a%e
1971
1383
reav
Te30
1678
1881
1727
1732
1737
1791
g 303s
1§8§' 1918
1836 e
1815 1ese
1369 2097 2166
2840
2081
23se
2386
2409
7

1732

1737

3944

1474

2520

J428

B é??
BB
456 BB
4965 U9e8 S
Gurq EEE
4873 9e91 4gla

956

1792

D O o oD

737

5057

43718 4372
4q4ge 4449
os@n 0%
Br @
B
WL
b
oL
&
O
o
36 an
§§§|
sl
§gzis g7g
S3SSe s3e
su77e s
5505¢
5506

B008

528

5038

08:5Y

BO4

%
o398

Sile

I
178
LERERBER

2%0(,

DB-NOV-77_

2423

30(1046)

PUSH - oageT

REPORT

7gse

-NOV-

38&025 REFERENCE TRBLE

DSKLS

1483

18@4

1663

1670

1791

5475

753l

g
4427
&
1792

1791

CZRJGBO,RPO4/5/6 DSKLS CTRLRI

CZRIGB.P11
08-NOV-77 08:30
2535
esré
2595

SETPRI

SE;TRG

STARS

5038

8132:

49S

1387

3058

§2£

1;25
1

1
180S

8131

1
1

SO3s

1614
1811

TYPDEC
TYPNAM
T

XRE,

.FLOAT

ee7?

4332

4451

1665

2086

B
18;7
S
A
2

o
1823
£

s
1826
IB;Y
£E g

8131

8132

4458

202s

2028

2031

29%

2999

3002

300S

7131

713e

812s

1935

7123

4470

44s1

7125

71e9

4458

5255

S479

544
8962

2022

1926

332

446

Y464

2013

3008

&
SSSET
SSSKIP
.EOURT

3871

2010

SSCMTHM

780

410

8132

ggs:

§6 3

2386

59%

SO2s

307

2328

WDATAR

gb 1
1580

3920

2282

2016
2978

7120

1670

S0es
S02s
S03s

S03s
S03s
Eggl

1477

4Yees

R NMES

iag;.

TSCLRY
TSCLRS
TYPBIN

Bl32s
S02s

7994

TRP
TSCLR

TJuMP

7993

CcO4

Dg-NOV-77
B:S4
P
CROSS REFERENCE TRBLE
-- MAC

MACY11l 30(1046)

fe = o
Bl3cs
S03s
4874
c0zs

S0
167

1678

oo &
BB
be
43
9433 44 8
flqfig
1483

1584

[

670

s4
S691

S43
5693

S44
§780

S44
5871

1732

1737

1792

1799

i8i1

1813

CZRJGBO,RPO4/5-6 DSKLS CTRLRI

CZRIGB.P11
.HERDE

.KT11

08-NOV-77 08:30

4878

487

ags
78

503
283.

ATC

4878

gg:

CMTR

. SEOP

.
SPOME
.
Sflig
.$SC

. STRAP
.STYPD
.STYPE
.STYPO
.

ABS.

4878

59%%

glgg

4878
4878
487s
4g87s

2132
lgE
8131
B13l

4878
4g8?s
4878
4878

070246

ERRORS DETECTED:

Bl3e
Bl31
8131

B1l32
000

RMO3: czruca CZRIGB, SEG/CRF /SOL
/NL : MC : ME: CND=CZRJGB.P11
RUN-TIME: 3% 30
2 sscono

RUN-TIME RATIO:

CORE USED:

29K

1348/68=19.5

(57 PAGES)

0B8:S54

DO4

PAGE 249

CROSS REFERENCE TABLE -- MACRO NRMES

S0S

4878

08-NOV-77

sae2

‘SRM1
.
5
1

MACY1l 30(1046)

SEQ 0249

EO4