Digital PDFs

AH-9192B-MC

January 1978

116 pages

Original

58MB

view download

OCR Version

85MB

view download

Document:	CZRJCB0 RP04-5-6 HEAD ALIGNMENT JAN 1978 bw
Order Number:	AH-9192B-MC
Revision:	000
Pages:	116
Original Filename:	CZRJCB0__RP04-5-6__HEAD_ALIGNMENT__AH-9192B-MC__JAN_1978_gray.pdf

OCR Text

RP04/5/6

CzRICBO

prlslepio
N

__FICHE10OF1

IN USA
MADE

BO1
EOF ICZRPBBSEA411

00010000

780105

IDENTRDRECOTS0N

PRODUCT CODE:

AC-91908B-MC

PRODUCT NAME:

CZRJCBO RP04/S5/6 HEAD ALIGNMENT PROGRAM

PRODUCT DATE:

DECEMBER 1977

MAINTAINER:

DIAGNOSTIC ENGINEERING

The

information

1n_

this

assumes

nc_

document

subject

1tc

change

without
notice
and should not be construed as a commiiment
quipment
Digital
Corporation,
Equipment
Dl’lill
b,

Cgrpor tion

may

appaar

this manual.

responsibility for

any errors that

The software described in this document is furnished to
the
purchaser
undar
8
license
for
wuse
on a single computer

system

and

can_

copied

(with

inclusion

Dt’x!al:

axcepl

233 may

Digital Equipment Corporalior assumes nc rccponsxkilit*
the

wse

reliabil:

not supplied by ngxtnY.
Copyright

(C)

1974,

its

software on equipment

that

1977 Digital Equipment Corporation

for

HOR1CZRJCBSEQ

00010000

CZRICBO,

MACY11 30(1046) 0O4-NOV-77
TABLE OF CONTENTS

RPO4/S-6 HEAD ALNMT
0“-"0\!-77 12:49

CZRICB.P1i

SRRNION S

0 W

eo
RROEE S AR NS8eyt 5

563
34

COl

?H&'gfi SETTINGS

4832

()
wr

17:31

ITERS

TING RDDRESS = 200

Ewfi%gifiu’i:fgz
RH

SS 8 VECTOR LOCATIONS

XNIT

IZRTION ROUTINES

ISTER

CH
IN%TIN.I F SWTM SH for
?ia(
gl
flLLRLIGHHENT CYLNDERS
‘IDS RTT
“‘2(%l(
2&5’1‘1’&“"}0
w;gnvfi%ngNTRgLLED HEAD ALIGNMENT

SWT'?
MACRO ROUTI

TO THE

/7576 DRI

S“%E '?

o
o2
CGNEfl xm T0DEC%MLRN) TYPE ROUTINE
OUT

NPU

TRAP
TRAP T

S‘I‘

DIV ?

ORE

ROUTINE

NERATOR ROUTINE
TINE

RO-RS ROUTINES

T RHII/RPO"VS/B DRIVER (REV 1.0)

TER_BLOCK

SE?
OF
F CODE*LRBLES

BUSQDR GET BUS ADDRESS AND VECTOR ADDRESS FOR RHil
CK.NUM - CHECK NUMBER (OCTAL)

SEG 00Ce

RPO4/5./6 MERD ALNMT
O4-NOV-77 12:49

DI i £ whor DD oA LD §
BB PN LR B D@0 ! LW

MACY1l 30(1046)

0O4-NOV-77

17:31

PRGE 3

CONTENTS

ABSTRACT
REQUIREMENTS

LIHINRRY PROGRAMS

LORDING PROCEDURES

STARTING PROCEDURES
4.1
q'g

CZRICBO,

CZRICB.P11

STARTING
PROGRAM &

SSES
RATOR ACTION

3 RRIIC-RHPG
UMD
DRESSES
4.5 oruén UNIBUS n&ggéss S
3

SWITCH REGISTER SETTINGS
ERRORS

6.1
6.2
6.3

TEST ERRORS
ENTRY ERRORS
SUBSYSTEM/DEVICE ERROR MESSAGES

RESTRICTIONS

PROGRAM DESCRIPTION

8.1

8.2
8.3

vsnxr:cnrxon MODE
RPO4/5 OPERATION
8.1.1
RPO& OPERATION
8. 1.2
RALIGNMENT MODE
RANDOM SEEK UTILITY

PROGRAM LISTING

SEQ 0003

§§

fszs HEAD

L£ELEL LW
MNLWN-0OWw

B Bt Bt Bt s Bt B

D4-NOV-77 12:49

MACY1l 30(1046)

04-NOV-77

ABSTRACT

2.1

EQUIPMENT

17:31

EOL

PAGE 4

nél
PROCESSOR

TELETIRe
DEVICE
xuxx ofi
KHII-P CLOCK
'bn RH70 W
04°S
2.2

Fa e

RPOS'S,

OR RPOB'S

PREL IMINARY PROGRAMS

THE RPO4/S5/6_DISK SUBSYSTEM MUST BE OPERATION AND ALL OTHER

PROGRAMS IN THE SET FOR THE SUBSYSTEM MUST RUN SUCESSFULLY.

BB UFREOR-BBBYRR n RN EE S

Bt Bt Bt Bt Bt et Bt ot Bt Bt Bt Bt B0 Pt Bt Bt et $t Bt Pt Bt Bt Bt Pt et ot Pt et P Pt

UMMV 0= e ps s e
Pt Bt Pt Pt Bt Pt Bt s e
e oh- 5 B8 IR AR 88 SRAL88 §

CZRICB.P11

ALNMT

LORDING PROCEDURE
THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE
LORADER OR IT MAY
LORDED FROM THE APPROPRIATE 'XXDP' MEDIA
?3120';;5PQSEOC§R ED LORADER.
THE PROGRAM MAY NOT BE INCLUDED

STARTING PROCEDURES

4.1

STARTING ADDRESSES

THE PROGRAM IS STARTED FROM LOCATION 200(8)

IF THE ADDRESS

THE_PROGRAM

IF THE ADDRESS

THE RH11 OR RH70 WILL NOT BE CHANGED.
IS

OF THE RHil OR

STARTED FROM LOCATION 204(8)

RH70 IS TCU BE CHANGED FROM THE PRELOADED VALLUE.

(SEE SECTION 4.4)

SEG 0004

MACY11 30(1046)

O4-NOV-77

17:31

FOl

PRGE S

SEG 000S

Lg
g

S Lty
neEw KUB35%%
83
m

PROGRAM & OPERATION ACTION
l.

LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3)

LORD ADDRESS 200 OR 204.

SET THE SWITCHES AND PRESS °'START'®

g%?cg.‘mma&x NT
?*?npfiécw& DRIVE TO BE CHECKED AND

CYCL;

“f
T0 STABILIZE.

FOR THE

VE *
T0
C&CKED

FICIENT TIME

0 _REACH OPERR
EMPERATURE AND
REFER TO WPLICMLE HRINTEM!CE PROCEDURES

REQUIRED RMOUNT
OF TIME.

SEL;CT
THE
?HVE TO BE CHECKED IN RESPONSE "0 THE TYPEOUT
PROGRAM WI LL RSK

[BoRrrt

HE MODE OF OPERATION:

1o 8 e S

SEEK UT LITY IS 70

y:m'n'IS
PROGRAM
'&
W
N

ENTER AN 'R’

eG [

ns?onggroTHE PROGRAM MODE MESSAGE
TION
IVE T0
ALIGNMENT CYL INDER:
apgg

PROGRAM WILL

DDV

4.2

goeh £5o gOM

n»-w;o—-o-v—o—-v—b—»—wr-s—»-h—u—o—-t—»—-o—s—b-v-»-o—

BURR LSR8 BRJRR2ER LR R AR PR WA SR A A A

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

A
© SV
S L

(;?O

0456 HERD_ALNMT
D4-NOV=-77 12:49

BEING RUN

VERIFICRTION' megE AND SW<02>

oo
8 616,80
RORWILL
REBREEEE
< >.~%«.
; ALl il Lo3r
cméoLTI
HEAD
BE CHECKED.

10.

N THE OPERATOR

COMPLET

PRESENT DR IVE,

CYCLE THE

DRIVE
THE ?257'50)(
AL IGNMENTPACK
PACKHASTO
THE5‘&«
NEXT nfi nmgrsn
cwscxzo
HEN HE ALIGNMENT
STABIL IZED,

me nsu ve

sc ECTED.

IT IS NOT NECESSARY

DRIVE SELECTION
NTER
A DRIVE NU'GER IN RESPONSE TO THE 'ENTER DRIVE NUMBER:"*
YPEOUT FROM TI-%
AM.
ONLY VALID DRIVE
NUMBERS (0 - 7)

WILL BE RCCEPTE ?Y
HE PROGRQH
( TEST B

NOTE THAT

BEEN COHPLETED BEFORE Q DRIVE IS SELECTED.
RH11

THE DRIVE SETUP

IGNMENT PACK STABILIZATION)

- RH70 UNIBUS RDDRESSES

MUST HAVE

O4-NOV-77

17:31

GOl

PAGE 6

SEC 0C0e

o B
e
g
?fisnu11/2u7oaoogiss ?E'J'sggngsTO THE REQUEST fggn HE "csnn.
OTHER UNIBUS RDDRESSES

Loc

TARG

CONTENTS

1146
1158

KS
irxa
TIPS

157269
177564

1250

PKB

1144

1182
1299
1246
128
1284
1286

FUNCTION
ITY KEYBOARD
STATUS
REGISTER
1Ty
KEYBOARD
BUFFER
cx;rsa
RE
TTY PRINTER
GIS

S§TPB
PKV
PKCS

177566
104
172540

TTY PRINTER
BUFFER RECISTER
KW11-P CLOCK VECTOR ADORESS
KW11-P CONTROL
REGISTER

172544
10
177546

KW11-P COUNTER REGISTER
KWi1-L CLOCK VECTOR
ADORESS
KWll-L STATUS REGISTER

172542

PKC
LKV
LKS

KW11-P COUNT

SET REGISTER

’=l...
>:
...xm
a?"oa TYPEOUTS

Su<l

x aL

CIFIED HERD

ou A SWITCHLESS PROCESSOR (I.E. AN 11/34)

¥ ngggm gfié

ua%ums %x CH REGI?TER 1S

r ’ suxlcu

GISTER.

)ue -

L]
ro
D
0
o

ONTROLLED THROUGH A KE
a "CONTROL
G’.
THE PROGRAM WILL
m nm TIME EXCEP
uu?u THE PROGRAM
x

'sorrume su
¥
nour
uu cu

)s 1 Wi

>81...

30(1046)

N-fl‘
O

un funruuuu
Cat
oY
VRN NY
v
I\'NNNNN{R
D
()
I\INSNNNBNNNNN
PUNUNUN)
== 4 o hes ps Bt B Pt Pt B[
L
r
NN LW x: =
OWO NN LW D BUYRREOR-ED BUSRE W
OWM NN LW 0 BURATON
¢OO0

lalgl

MACY1l

:mmséfi%
3"
W’gésu"mmmgs iN ne”gponse
rommgomr rS'é'nn-»‘f'E
SWITCH ENTRY
ROUTINE:
'SWR =

sncu Tllt SW Tcu

NEW =’

muc ms smeneo

USED TO CORRECT T

ENT
ommc“ogu‘frcu

ON PROCESSORS WITH HARDWARE

POSITION

THE ENTI RE SW

NG ZEROS ARE

IF THE

SWITCH REGISTERS

THE

ISTE
BOUT‘

"SOFTWARE®

SWITCH

PROGRAM FINDS ALL 16 SNITCHES IN THE

WITCH REGISTER REFERENCES WILL BE TO THE

'SOF TWARE’ RE&ISTER AND THE PROCEDURES DESCRIBED RBOVE MUST

AND

CZRJCBC, RPO4-S-6 HERD ALNMT
CZRICB.P11
O4-NOV-77 12:49

MACY11l 30(1046)

O0O4-NOV-77

17:31

PRGE 7

SEG 0007

BE FOLLOWED.

Sgg
260

Ssx

ERRORS

6.1

TEST ERRORS

esa

25522

------

RPO4/S:

269
270

THE
CHECKS THAT
FROM THE rnncxogsnrsaL

2
74
278

O
AL Ton;flgvkTR
s
R
R
ACTUAL
THE
SW<00>=1,
'(%F
"§$§§°
N
va
gg#n
TH?
D ouT; HERDS out OF TOLERANCE
ACH HEAD WILL BF
AL IGNMENT

MICRO-INCHES

gze

FOR

CYL

ERCH HERD IS WITHIN + OR - 150 MICRO-INCHES
FOR CYLINDER
nugass WITHIN + OR - 350
4 AND 400.

IF A

;s FOUND THAT IS

WILL NOT BE IDENTIFIED.)

S5t
gg;

"EIELflggngxneb
out: PEaBY
5t OFCTOLERARCE
)
Q&LE 551BgIIEENTlgfng

Sg?
282
283
284
ggg

AD IS

KS THAT

MICRO-INCHES

WITHIN + OR - 7S

"%5?"'2a8§58£n75
fHEYLINSER ue% AND 1S ur?uzn + OR - 175
us;
R 8 AND sggfi IF A usng ;s FOUND THAT IS
"gHE
s AN E
MESSAGE 1S TYPED. TITION
HE ERROR
CYLéfiOER HEAD, AND THE ACTUAL
OF

£.2

ENTRY ERRORS

231

292
293

PROGRAM ux
"V“ké
;
:

ggg

; nog?cg§sg cnsnrsgTHAN 18 (DECIHQL)
c;nocnng WILL gorsaccsPHEAD

299
38?

ROUTINE

298

IF
ENTERED
N
RESP
T0
THE
DRIVE
WILL rv&s A ’?°; THE OPERATOR MAY

abfis
“zg'SN
2LHS xnofg o& HERD AD 2 ?sENTE%ED THE
Pnocnnn WILL REJECT THE ENTR AND RETURN TO THE DRIVE SELECTION
THE PROGRAM WILL NOT ALLOW A DRIVE TO BE RSSIGNED IF IT IS NOT
WRITE PROTECTED’.
IF THIS IS ATTEMPTED, THE OPERATOR WILL

302
303

ggg

BE NOTIFIED.

onxv:s nssxcuzo ARE CHECKED TO ENSURE THRT THE DRIVE ASSIGNED

306

OR RPO6.

THE Pnocnnn WILL

1S PRESENT, ONLINE,
ASSIGNMENTS 'FOR DRIVES WHICH nns fior PRESENT OR AREN
REJECT
AND IS AN RPOY,

W
WWW
(S ST S = . |
W=D

EPT DRIVE NUMBERS GREATER THAN 7.

6.3

RPOS,

SUBSYSTEM/DEVICE ERROR MESSAGES

°RHil INTERRUPT OCCURRED (RPAS=0) - AN INTERRUPT

RPO4/5-6 HE

O4-NOV- 7 l2:49

MACY1l 30(1046)

O4-NOV-77

17:31

OCCURRED,

RPt s bt s ps s

Wh—-OwoNnNe

()

&R Bl

ALNMT

2.
3.
4.

S.
6.

101

SEG 00ce

BUT NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION.

MXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE INTERRUPTED,
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE.
'MASSBUS

(MCPE=1)'

- A CONTROL BUS PARITY ERROR

WAS DETECTED BY

HE RH11 WHEN THE INDICATED REGISTER WAS READ.

'MAS

ERROR

PARITY

ocC

WHEN

(PAR=1)'

- A CONTROL BUS PMITY ERROR

INDICATED REGISTER WAS WRITTEN

81T SET FOR THE
INGICATED
DRIVE.
'RHl1l
- THE PROGRAM ACCESSED THE
RH11
R? DI ?N x%?cg'?o T0m@e SSING'
AND RECEIVED
NO RESPONSE.
S

= THE PROGRAM FOUND THE

HITHV%'?
INJICR ED ERROR COM'?

(.:DRI\I’$IWE ERROR’

'HEAD OUT OF ALIGNMENT'

10.

- THE 1

11.

12.

XCQTED WIVE COMPLETED AN OPERATICON

- THE INDICATED DRIVE SIGNALED AN UNSAFE
- THE INDICATED HEAD OF NOT WITHIN TOLERANCE.

'HERD TOO FAR OUT OF ALIGNMENT'

- THE INDICATED '-ERD IS TOO

THAT HERD.

TWARE TIMEOUT® - THE INDICATED DID NOT COMPLETE THE
RATION WITH 1 SECOND.

na.s

PARITY

RROR' - THE PROGRAM ATTEMPTED

b'EgRRSRH PROGRAM
mm
TED 3 SUCESSIVE
MASSBUS PARITY
RTTEH’ D T
"PAR’ ERROR IN THE
AND A

13.

'OPE’

FAR gUT OF ALIGNMENT FOR THE PROGRAM TO FIND THE TRACK
CENTERLINE FOR

PAGE
B

ITY ERROR OCCUR

'DRIVE gg UNRVRILREL = THE INDICATED DRIVE HARS GONE OFFLINE
BECOME NON-EXISITENT.
OR HAS

RESTRICTIONS

BECAUSE AN ALIGNMENT DISK PACK IS USED ON DRIVES TESTED BY THIS
PROGRAM, NO DATA TRANSFER OPERATIONS ARE PERFORMED.

PROGRAM DESCRIPTION

8.1

VERIFICATION MODE

8.1.1

RPO4/S OPERATIONS

CZRICBO,

RPO4/S-/6 HE AD_ALNMT

CZRICB.P11

O4-NOV-=77 12:49

MACY11l 30(1046)

370

04-NOV-77

17:31

JO1

PAGE 9

SEC 0009

HE PROGRAM
C&KS
lfim H.IGN%NT
AT CYLII'DER 2"03‘ EMS -

371
372
373
374
375

fonma RE% EDuonruI:o
-1 no& ?55«
ch %
AMOUNT. IF AN
ouTbr'fl Sv
n&

HERD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER:

FRE BRSASES
N 3328&?9—%
OO

33‘5

Wiy

3t
3

OFFSET THE POSITIONER TO +1200 MICRO-INCHES.

STORE THE SIGN CHANGE BIT.

POSIT R IN THE OPPOSITE DIRECTION
INg&PENTSLéNTHE SIGN CHANGE BIT CHANGES VALUE. STORE THE

gé‘f T&POSITIGER TO -1200 MICRO-INCHES AND REPEAT STEPS

HICRO-INCH

gF%;EVfl.LES Mog REPORT IF THE

WWww

- 1
SyYLINIR 245 OR + ORTHAN_+
- 350 MICRO-INCHES FOR

% fi‘b %805 AT CYLINDER 245 AND FOR
%%grOT%mTSS%fiRS
TF%N?PERRTM MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A
"CONTROL C'.

8.1.2

RPO6 OPERATIONS

Pnocmn c

m ch

usno

IGNHENT flT CYLINMR 496,

AND

HERDS 0 - 18

AND RE-VERF {ES

N''?ER?
cvqrx OF nucufisnn;
BE NOTIFIED
SPECIFIEDWILLAMOUNT.
THE OPéRhTOR
THANfue
BY nons e
usno 1S OUT

Pe Bt

s Bt Bt Bt Bt B

LEL LLLLrrLLrLrrissx

NLwWwheNNNNR’g
OO NN
L WO

HERD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER:
1.

OFFSET THE POSITIONER TO +600 MICRO-INCHES.

STORE THE SIGN CHANGE BIT.

HOVSET!-E POSITIONER IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH
STORE THE
‘kflT L THE SIGN CHANGE BIT CHANGES VALUE.
MENTS

OFFSET THE POSITIONER TO -600 MICRO-INCHES AND REPEAT STEPS

2 AND 3 ABOVE.

AVERAGE THE

TWO SIGN CHANGE OFFSET VflLUES AND REPORT IF THE

HERD IS
SELECTED
MICRO-INCHES FOR

75
+ 0
T
MISALIGNED BY MORE
CYLINDER 496 OR
+
OR - 175 flICRO-INCHES FOR

CYLINDERS 8 AND 800.

REPERT THE ABOVE SEQUENCE FOR ALL HEADS AT CYLINDER 4396 AND FOR

MRCY11l 30(1046)

O4-NOV-77
HERDS O,

17:31
10,

KOl

17,

PAGE 10

SEC 0010

18 AT CYLINDERS B AND 800.

!éfi%f‘"” MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A

A
ioesutno
sen.scnou WHICH IS NOT
SENT‘
IN nc PgtT
n:

e.a

THE OPERATOR MAY TERMINATE THE OPERATION AT AY TIME BY TYPING A

*CONTROL C’.

RANDOM SEEK UTILITY
HE PROGRAM CONTRI%UTILITY ROUTII'E WHICH PERFORMS 5,000 (10)

RN
U S e 8y S

ATKR
ol

BELENERS BT DD TR DRLRe e
o

8.3

%
:':‘

NMT
RPO4/S-6 HE
CZRICB.P11
O4-NOV- 7 12 49

CIRICBO,

'E‘ON(T”;SR“EOR MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A

PROGRAM LISTING

/6 HE
=NOvV-

MACY1l 30(1046)

O04-NOV-77

17:31

LO1

PRGE 11

SEC 0011

464

465
00l

[slas)

RPO"O/S/G HEAD ALNMT > ,.TITLE

P'é9751977
IFéfl%ii
;
IIF (CZRJC

CZRJCBO, RPO4/S/6 HEAD ALNMT

EQCIG <C. HESS>,;*PROGRAM BY C. HESS
lTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
; #PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.
5 ES

000001

3114 ;#R-:us, "
“ *r- E
22"98
S

’

“1IF

s
¥
g§1;¢

.Exr ;2
- }r NE

NE 01

001

.IF

002

IFF
AF NB O

gDO
001

H SETTIMNAS

USE

SWITCH

;¥

.HALT ON ERROR, LOOP ON TEST, INMIBIT ERROR TYPOUT

s¥

"ENDC

$SWR

Tiw

NHIBIT ERROR TYPEOUTS

INHIBIT TRACE TRAP

OOD3SSWR, ; *
[T € guionons
CIIF NE

.CIFF
IF NB O

HALT ON ERROR
ON TEST
nfoop

15
14

INHIBIT ITERATIONS

11
BELL ON ERROR

'ENDC

-ENDC

.IF NE 0010003$SWR
nundnununanunauunyien

s0?
Bt Pt et Pt Pt Pt et ot Pt Pt

W NN L WO

”r

LOOP ON ERROR

;¥

LOOP ON ERROR

?OC
.ENDC
F S'fi 0004003 $SKR

"f} T NDF SSWRMK, SSWRMK=0
a
«SSWRMK3377),
;f?
IF EQ (SSWRMK g??»-éoo;¥

IN SWR(7:0>
TEST ON
LOOP ON LOOP
TEST IN SWR<B:0>

11F EQ <SSWRMKE377>-340,
;

LOOP ON TEST IN SkR<H4:0>

-1IF EQ

;#
<SSWRMK8377>-300,

LOOP ON TEST IN SWR<5:0>

CZRJCBO,

RPO4/S/6 HEAD ALNMT

CZRJCB. hl

DY4-NOV~-77 12:49

s20

857

28
é?

OPERATIONAL SWITCH SET?INGS

op2

:ir N8B O o

000

001

<5075, ;%

E83F
8N TEST N EHB<%:®:
LOOP ON TEST IN SWR<«OD>
{@:

<
Y, ¥
<S03,
;#
<
>, %

4
3
e

S03
S0e2

. ;%

«S0S>

:& g

24e

248

:():‘tEK ONLY THE

<>,:

.IIF

(),

JIIF

fir
g ),
;%
.11F
O, &

s52

SS?.

. | F

Egz

:! F

.1IF

’

IIF

267

: 8

:I).bbl: ON T'§ CURRENT HEARD>,
;#

OLis

), ;%

Egg

JIIF NB Ol

LOOP ON THE CURRENT HEARD

'mn?x

ENTER VALUES>,
;%

.IF r?
;
élIN IAL ADDRESS OF THE STACK POINTER *#x» . Epe

ST&;
NIT If-l.

SS OF T THE STRACK
TACK POINTER ### ‘1100 T

.EQUIV

7€

; *MISCELLANEOUS DEFINITICNS

L.EQUIV

Y THE SPECIFIED

s%rn BRSI &#INIT ONg
001

CHECK

)

O, ;%

&E
g o'ia
S1IF NB <T

562

JIIF NB O

288

CIFIED HERD>,
;%

1IF NG Ol
Ol

ggoi

:
7
)
Y

Ifir g @is

E;?‘

s I
m O, %
.IIF
O, #
LIIF NB O, ;%

0016:

LOOP ON TEST IN SWR<3:D»

S07,S06,S0S SOH.SOS,SOE.‘ZG;.SOO

‘11F
N8 <200, %

SE8

S
S40
SY1

238

SEG 0012

.1IF
.1IF
.1IF

ces

PAGE 12

" ENDC

533
S34
S35

‘g'go9

MOl

.igfi
Eg ;amta928,
1%
.IF;
Sm&377>-376,.l

S32

Sb
2¢

17:31

O4-NOV-77

.1IF EQ (SW&377) -360, ;l

gg
§§

MARCY11l 30(1046) )

EMT, ERROR

IOT SCOPE

; ;BASIC DEFINITION OF ERROR CALL

; sBASIC DEFINITION OF SCOPE CALL

TYPE ALL TRACK CENTER VA

oo,

HT=

LF=

17:31

NO1

PRAGE 13

SEQ 0013

1é

:
cstfs 2‘99775
SE&II
éTKLHT: 1 B34
80 = 17757

URN-LINE FEED
iEE smg
; $ zfilf
STACK nm ?TGEST REGISTER
;,

%0
kogsrc
%1
Rl=

T$3

IRQ=

ISP=

17777

17757

RAL PURPOSE REGISTER

58
33
i3
1
35

%.e
%3
74
%5
%6

Re=
R3=
RY4=
RS=
Rb=
R?=

PC=

srTERR

NI
h
RAL

RAL
RAL
RAL
RAL
RAL

R%o

TER
TER
TER
TER
TER
TER

OUNTER

: #PR

DEFINITI
.-.IMIOTY LEVEL
’
;?fi{g TY L zsL 0

PRl=
PRe=

L 2
TY
; ;PRIORITY LEVEL 2

;PR

200
40

; iPRIORITY L VEL &

; ;PRIORITY LEVEL 7

100

PR4==
PRb=

PR7=
"gHITCH

400

SWo9

1000

; ;PRIORITY LEVEL &

GISTERTM SWITCH DEFINITIONS

(=]

sl
gfl{b

i DRIORTTY LEVEL d

Bee

e 0t Bt B

e Pt Bt

s B

oo oo

¢
% DN
“EBeRE5% i
N EW—-0 389

BRER
28SRR L0028BEEERTER

e %%S&F?:ITIONS

o-«-»-oo-oco-flllillilfl““ll“llllnul'

12: ‘09
gfifl?¥x /3‘1fi?

-NOV-77

EQUIV

, SW9

.EQUIV
.EQUIV
.EQUIV

, SWE
SWOS, SWS
SWOM, SK4

'
‘EQUTY 8107 2uP
v

ALNMT
RPON/S/B
JCB.P11
ON-NOV 7 12:49
JCBO,

£E3

bBY4
EE8S
e

PAGE

SEG 001v

DEFINITIONS (BITOD TO BITIS)

BIT
1
1

KL< LLLL LS <HNnNunnnNnnunnnnn

a01

100

20
10
v]

s 10918479

17T09,BI79

¥T§§'§ |
106
108
104

81T
BIT
BITH

T ,§°73

T :giro
lighi

Tulelelelsle]

OoOnNntiNoONNRO

000G30
000034
000060
000064
000240
000

GO0004
000012
000014
000014
000014
000020

000
001

I
1

.
.
o
.
.

bb2
=1]

66S
bbE
67
668
6%
£70
671
£7e
£72
E74
B7¢c
£76
e77
£78
679
e80
6Bl

000001

[

000002

000100
000040
000020
000010

10 )

001

£S8
659
6€0
bbl
ee4

»«né
GEEEREPoPeeS=REZRRIS3o- TRivs

16000

65¢<
656
657

100000

=MMMMMMMTITIMIT
L

BS54

001

=
e TOVODBB
—~OVXDIE

64C
641
b4e
B43
44
84S
646
b47
E4E
E49
esC
651
652
BS3

B02

§§E<§3

6
6
634
535
)

637
£38
£33

T bt

17:31

CPU” TRAP VEC"OR flDDRE

10
14
14

i
Iv1

B0
64
240

gE S;

OTHER ERRORS

ILLEGAL INSTRUCTIONS

,,?zsaxpgunr TRAP (BPT
i

,POHER

TPUT TRAP

l’w
3
Eflgkg
o |

(IOT)

*¥SCOPEx#

RAP (EMT) #%ERROR#%#*

TRAP

' 17TV KEYBORRD VECTOR
,rrv

INTER VECTOR

PROGRAM INTERRUPT REQUEST VECTOR

cRBERRRRRRERREREEERREREEERERRERERERERFZERRRRRRE
R AR RERRERRERRR S 2R
F

N%IST
.LIST

CZRICBO

RPO4-S “6 HERD ALNMT

OY-NOV-77 12:49

coz2
PAGE

SEQ 0015

llll!!lilill.lllllillfQllllllllllliillil!I!Ilill..lll!!l’lliill

000

tx
.SBTTL

001

RH11 REGISTERS

JIF B

H cRERBRERR”

% {3

2222122222222 2222222222222 222222222 222222222222 2227

NLIST
RE
I1ST

lll!iilllliilll!lli!.llllllliill.llllllllllillill!’lIl!lli’l!*l

'kL
LIST
.ENDC

2R88888

;CONTROL AND STATUS REGISTER 1 (RPCS1)

8
8 888383

NN
NN NNNNINYNY NN

OWONCMNL W0

L) 0= Bt e bt Bt ot ot Pt e s

17:31

'flL

BBERE ERCB

8RR PR28
22EE

CZRICB. P11

MACY11 38510“6)
-NOv-77
SIC DEFINITIONS

1E=
RDY=

Alb=
Al17=

TRE=
;SC=

100

INTERRUPT ENABLE (BIT #6)
T #7)

4
1

)

100000

; (EACH qu 15 CALLED BVBIT NUMBER)
; WORD COUNT

7el

;BUS ADDRESS REGISTER (RPBR)

; (ERCH BIT IS CALLED BY BIT NUMBER)

; CONTROL AND STATUS REGISTER 2 (RPCS2)

UsSl=

U&k
USH=

Bal:
=

CLR=
IR=
=

H§E =

MXF

PGE=
10000C

NEM=
NED=
UPE=
WCE=
DLT=

;UNIT
;UNIT

40
100
500

D0C

éDOO

4000
10000
28000
40000
100000

U |
;ggg

CT (BIT #0)
SELECT (BIT #1)

(357 02&7 NHIBIT (BIT %3}
ADORESS x*v
?Eg? (BiT )

;CLEAR (BIT #S)
Y (agr %6)
INPUT
:

(BIT #8)
B Pfl; %vxtn37)
oS gu7nnns}£n
Enxg
Enags (Sfr og)
;

: NON Exxs

RROR (BIT #10)

NT MEMORY (BIT #11)

:NON
EXISTENT DRIVE (BIT #12)
ERROR tgxr 813)
ITY
;UNIBUS
#14)
CHECK ERROR (BIT
PWR
:DATA LATE (BIT #15)

CZRJICBO,

RPO4-S/6 HERD ALNMT

CZRICB.P11

D4-NOV-77 12:49

7494

;gg

0O4-NOV-77

RH11 REGISTERS

17:31

D02

PRGE 16

;:DATA BUFFER REGISTER (RPDB)

;:E

247
748

MACY11l 30(1046)

: (ERCH BIT

001

IS CALLED BY BIT NUMBER)

IF B

2 ;;llllii!l!ll’llll!lllilllliillillllllll!illllillll!l!illiiilil

751

CNLIST

;gg

;x;;:ll!lllll!lllllllllllllllll}ll!lll!l!llllfllfill!l!‘lilllll!illi

7%5

'E?éi

756

7587
zgg

.ENDR

000

;g?
762

Zga

001

-B56T

;i{;;;iililllllll»llllllli!llIlii!iillllilllllllillllil!!lillliilfll

770

-ENDR

000

774

?778

IF B

g i;F!illlll!illllllllllllllllilll!l!lll!l!lllilili{lll!!llli!i!li
.

788

RP0O4/5/6 REGISTERS

CNLIST

;gg

;;g

-ENDC

.SBTTL

765

771

-LIST

1
890092
000004

LIST

-ENDC

;CONTROL AND STATUS | REGISTER.

(#00)

GO
Fl=
Fo=

291

:GO BIT (BIT 80)
2ruuc¥{ou
E00EOBIT
a1
:FUNCTION CODE
BIT #2

;FUNCTION C

779

00001

Fa=

781

8890“

FS=

780

;gg

000

;gg
786

787

T 84

:DEVICE AVAILABLE (BIT #il)

:DRIVE STATUS REGISTER (RPDS1)

(#01)

:DFS5=

DRIVE F

4
10

IDRIVE
:GO

: DIFFERENG t

DRY=

200

;on§

PGM=

100

vv=

001000

DPR=

798
795

010000
020600

MOL =
PIP=

00
00

bgz:=

100

;851

§"/SEC.

16B=
GRV=

735

79E
797

IT %S

gggggo

100

794

SFUNCTION C

792
793

4000

;r 83

grr 0=

000004
000010

790

DVA=

:FUNCTION €

000002

768
789

781

Fy=

20" /SEC.

T
REVE

(BIT 1)

R GUARD BAND
(BIT #3)

iDIFF sguc

;

(BIT s0)

VOLUME %I

(BIT #2)

ESS THAN &4 (BIT a4)

(BIT

Y (BIT

; 1 (BIT #5)
#6)

#7)

400

;DR

10000
20000

IMEDIUM ON-LINE (BIT #12)
:POSITIONING OPERATION IN PROGRESS (BIT #13)

2oo§
400

;PR

NT (?IT *8)
(W)

L
SEC
T
ERRED (BIT #10)
‘WRITE LOCK (BIT #11)

SEG 0016

1 17 Batnov-27
EERIEE

SRR ERRIRYBOEE88@00@0@0@00@0BRRZEN

800
801

040000
100000

MACY11

-NOV-77

30(104%)

33964/§/s Szcx TERS
ERR=
ATA=

000002
000002
000004

ILF=
ILR=

17:31

EO2

PRAGE 17

:ATTENTION ACTIVE (BIT #15)

100000

(RPER1)

(#02)

;gzugan ;Eucr¥on (BIT %0)
R (BIT #
G
: IL

1
2

RMR= 4
8
40

WCF =

ECH=

Hekc=
=
IRE=
WLE=
DTE=
vie
DCK=

SEQ 0017

:COMPOSITE ERROR (BIT #14)

40000 -

:ERROR REGISTER #01

803

U 0= s Pt ot s Bt Bt e e = (D) O
N~ OV L£WN~-0O0o

ALNMT
12:49

: k g@tnnggé F?CRT?ON né
R (B1T £
FoRRDT
Eunérs c osx FAIL (gxr %5)

éoo

900
00
003
4000
10000
0000
100000

(

26)

ER Ol (g%;%}
f@g%
(BIT
:
(BIT
ERROR
stnsks
3
;WRINVAL
#ocx ERROR (BIT #11)
;ong 35 IMING ERROR (BIT sl
hmereE BT atus
O CHECK
15)
(BIT T
an¥n

sMAINTRINABILITY REGISTER (RPMR)(#03)

:DIAGINOSTIC

;n&xu*n
:MAINTA
EAnAL
:MAINTA

DMD=

MCLK= é4
MINX=
1o
i
40
MWR=
DTSY=

*MAINTRINRBILITY SYNC DETEC

200

:ATTENTION SUMMARY PSEUDO-REGISTER (RPAS)

s
AT2=
AT3=
AT4=
ATS=
ATE=
AT7=

4
S
&
7

:DEVICE
:DEVICE
:DEVICE
:DEVICE

20
40
100
200
BIT

(#04)

8 (81T D
BEVICE
82)
5(517
DEVIC
:DEVICE 3 (BIT #3)

410

;oEsxnsg ;ecron/rnncx ADDRESS
:(ERCH

#0)

MODE (BIT
CLOCK (BIT
L%TY
LITY INDEX (BIT
e
I
LITY WRITE (BIT

IS CALLED BY BI

(gxt )
(BIT #5)
(BIT #6)

(BIT #7)

:DRIVE TYPE REGISTER (RPDT) (%06}

NUMBER BIT 1

;DRIVE

102=
103=
DTO4=
DT0S=
DT0E=
pT07=

4
10
20
40
100
200

TYPE NUMBER BIT 3
‘821
&
msn BIT
T
{
:
R BIT S
:DRIVE T
NUMBER BIT &
TYPE
:DRIVE
R BIT 7
:DRIVE TYPE
:DRIVE TYPE NUMBER BIT 8

DT01=

000z00

DTOO0

IDRIVE

TYPE

NUMBER BIT 2

BIT 83)
(BIT

#7)

RPOM./S

Eg.‘;gg‘?fiu

NMT

’3,‘3,,35,- “&a:ue

MACY11l

30¢

)

-NOV-77

W/s gzcx TERS

:8830
BRoegoo
;gg:
Neh= 180000

856
857
858
820

899000
020000
033833

Bee
866

833802
000004
w

XTzég

869
870

%ouo
100

XT40=
Cl=

490
éoo

TRK1=
TRK2=

S000
10000

:asé

867

868

375
874
875
876

a—
001000
002000
004000
010000

A
100000
3;3
P;Sé

XT20=

10000

ggg
8499

100000

s
803

00000
800002
000004

90€
807

000040
000100

313
a1]

891009
002000

30e

000200

#3)
4 (BIT

#4)
S (BIT

;EXTENSION & (BIT #5)
COUNT ELgo (BIT #6)
:SECTOR

i,
1
TRK20= S

(BIT #15)
r} LB S3 T
TRACK i
:T

(BIT #0)
URRENT
:
#1)
S R FAICURE (BIT
N
TWRIT
ECT UNSAFE (BIT #2)
£
QA
FAILURE (BIT #S)
:

’

F ELS é (g T s11)
:
(BIT 812)
:TRACK FIEL

;RPOY ERROR REGISTER #2 (RPER2) (#10)

005000

e9¢&

TEXTENSION

I 2ECTOR Soum
COUNT FIELD
2 (BIT
#8)
#9)
(BIT
3
ring
:SECTOR
4 (BIT #iQ)
:SECTOR _COUNT FIELD

IEXTENSION

e &|
&Cio=
§C20=

we:
e
|
o
40
TOF=

oooé%mo
000400

:DRIVE
TYPE
R BIT 9
(BIT #11)
REEOUIRED
REQUEST
iDRIVE
;Qovxngn £ ((B; .'.‘,‘,”
T BLOLK AOBRESSED (BIT #15)

.EXTENSION 1 (BIT %0)
r $1)
Extgméte'
:EXTENSION 3 (BIT #2)

T
4
Xtes
XT4= 4

399002
000004
:

889
£3c
891

PARGE 18

; LOOK-AHEAD REGISTER (RPLA) (807)

804
885
=
1”369

17:31

FOe

TUF=
FEN=
WRU=

ness

00
00
400

IT87)#6)
IT #8)

5550-

4000

PLU=

TDF=

10000

ACU=
100000
;RPOS/6 ERROR REGISTER %02 (RPER2) (#10)
:WMRITE CURRENT UNSRFE (BIT #0)
(BIT 81)
CURRENT_STNK FRILURE
i
4
wez
E (BIT #2)
'WRIT gtucr
4
Weu=

TUF =

100

ABS=

200

NHS=

2000

Mhe:

1080

;|
S

TIONS DETEC OR FRILURE (BIT #5)

(BIT #6)
(81 " 87)
;neugnmt“3 oPUNSAFE

#9)
(81T T
S IRCEMEAD SECEC
!NO HEAD SELECTION (BIT #i0)

SEG 0018

L il
el 2.1
9 ]

ALNMT

gu-nov- 7 12:49
004000
020000

MACY11l

30¢

)

-NOV-77

17:31

33?69)8/5 chx TERS

00000

OF2S=

: INDEX ERROR (BIT #!1)
:PLO UNSAFE (BIT #12)
(#11)

804000
010000

:OFFSET

MICRO xncnss (BIT #0)

casr 81)
nxcngoxnc
INCHES (BIT #2)
MICRO
MICRO INCHES (BIT #3)

OFS0=
OF100=
=
8;

2
4
58

iOFFSET
:OFFSET
iOFFSET

OF800=
OFREV=
HCI=
ECI=
FMT22=

MICRO INCHES (BIT #5)
iOFFSET
:OFFSET NEGATIVE (REVERSE) (BIT #S)
INHIBIT (BIT #10)
:HERDER COMP
CORRECTION CODE INHIBIT (BIT #11)
:ERROR
:FORMAT BIT (BIT 12

400=

gggggg

PAGE 19

4000
20000

IXE=
PLU=

;OFFSET REGISTER (RPOF)

;gF

4000
10000

;DE IRED gv&xnocn noonssg (RPCA)
:

DD WD

ea2
RS AR 2R RBo RS
S an 83

DO DO DD D DD 445
‘-aé

RPOY/S 6 HEAD

P11

GOe

(ERCH BIT

IS CALLED BY

MICRO

m"g (BIT s4)

(#12)

BIT NUMBER)

(RPCC) (#13)

(EARCH BIT &§ caLLngas 317 NUMBER)
:: CURRENT
CYL

INDER

; SERIAL NUMBER nsg:srsa (
:(EACH IS CALLED

)

BY BIT NUMBER)

(81%)

;RPOY ERROR REGISTER #03 (RPER3)

000001
000002
000010
000040
000100
040000
100000

VUF=
UWR=

PSU=

ACL=
DCL=
SKI=
OCyL=

é10

40
100
40000
100000

(#15)

UNSAFE (BIT %0)
ED
(axg 81)
uugzre
;vsLocf#e
:ANY UNSAFE EXCEPT RERD/WRITE (BIT #3)

; PACK

:AC LOW (BIT #5)
:DC LOW (BIT #6)
ETE (BIT #14)
;gsgx INC
CYLINDER (BIT #15)
:

:RP0S/6 ERROR REGISTER #03 (RPER3)

0000C!

000002
000040
1
0000
040000
100000

=
ACL=
DCU=

DCL=
OPE=

SKI=
OCYL=

291

1
20000
48800
100000

(#15)

(BIT #0)
:DC
(BIT 1)
OFFSET
;un1¥£55k5
iAC LOW (sxr #S)

:DC LOW (BIT #6)
:OPERATOR PLUG ERROR (BIT #13)
: SEEK xnconpkzrs (BIT #14)
:OFF CYLINDER ERROR (BIT #15)

:ECC POSITION REGISTER (RPEC1) (#16)
: (EACH BIT IS CALLED BY BIT NUMBER)
:ECC PATTERN REGISTER (RPEC2)

(%17)

: (EACH BIT IS CALLED BY BIT NUMBER)
.SBTTL
000000

TRAP CATCHER
.=0

:#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *.+2, HALT"

; #SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

SEG 0C19

CZRJCBO,

RPO4/S5/6 HERD ALNMT

*9539

%867"

CZRICB.P11

04-NOV-77 12:49

;é %8175 00

§70

97
974

g;g
q7
978
979

eeé

383
38%

17:31

8 8

1 m:c

PAGE 20

5;38;75235 glJ?TEH Rsc%?es
:SOF

PLAY RE

%am.smmnc
ADDRESS ::JUMP
(ES) TO STARTING ADDRESS OF PROGRAM
InP
as

000200
000137 001460

000137

0O4-NOV-77

TRAP CATCHER

oLocmxon o CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000

000200
000204

MACY11l 30(1046)

.ENDC
.SBTTL

001450
cg

"“238“" STARTING ADDRESS = 200
i
.=
np
START1
;START THE PROGRAM, USE THE DEFAULT RH11 ADDRESS
i,
START
:START THE PROGRAM, CHANGE THE RHI1 ADDRESS

.MACRO MORETAGS

Z
VSEL: .

&
:933

S
93¢

e ey ¢
i
BfiaNR:
-HoRR
@O
PLUS:
.WORD

com xus r

ggt?:

OLEg:; % §

MAXCYL:

%300?
1005

3“MIDTOL%(?E;: 'uong
:uon 88

c&': T
F v;
S:nmsgmgarsn CYL INDERS
Tg%g ALIGNMENT CYL INDER

1008

8
0

98;

100

1004
100¢
1006
1007
1009
i0i0

AT go

ggxpos: % 0
INCYL:

.WORD

MIDCYL: 5838
OUTCYL:
TABLEL:
mtzé “:.8%

SEKCN

HGADR:
V:

.
:

0
0

0
104, 106

GISTER STORAGE ron ERRO& gessnr.ss

ne REGISTER
messm
CYL INDER

mxnx:”r CYLINDER ADDRESS

8Founi mx x;xvs OFFSE

xmen c INDER

c
.ou R x
:CONTA
:CONTA

:CONTR
:C
‘KWll-P

1014

LKV:

"WORD

f%ég

.SBTTL

RH11/RPO4/5/6 ADDRESS & VECTOR LOCATIONS

iggé

STARS

1023

$RPADR:

igig

LKS:

- WOR

"WORD

175 4y

100,102

1778546

SS FLAG

55%{-9 com;oc. tTNBJ
smrus REG.

TKWIL-: E&m“'153‘

‘KWll-L VECTOR ADDRESS

‘KW1l-L STATUS REGISTER

'
.WORD

176700

mag wgg FOR '"INCYL® & "OQUTCYL®
CODE TABLE
K
T

gfic&

PKC:

}32532

ioil

1813

.5020

;
SS OF
TE
ISR
FALIPRUS
o con o
'“‘ “S“f 3"® e
i?%&’""“‘““

:RH11/RPO4/5/6 UNIBUS ADDRESS

SEGQ 0020

a
ERERTRNHNY

ALNMT

OO0000
Wt
DO~

Bt e Bt Pt Bt Bt Pt e 5 Pt Pt Bt Bt Pt Pt Pt Pt

OO0

gofixOt oy
-NOV=77 12:49

PACYLL 3BbCRRA sgza??v 7300#eé
SRPVEC:

.WORD

. MACRO

.ENDM__
MORETAGS
$SCMREG R,B
.WORD
O

SEter

254

102

PA
= 20

el
;RH11/RPO4/5/6 VECTOR ADDRESS

; sCONTRINS ((SREGRD)+’'B)

SCHI:;EH1+1

- MACRO

SSCMREG
SSCMTMP A

§TMP’A: .WORD
O
.NLIST
SCH4$SCHH¢X
.LIS
. ENDM
SSCMTMP

; sUSER DEFINED

SEC 0021

CZRICBO, RPCO4/S/6 D'ERD ALNMT
O4-NOV-77 12: 49
CZRJCB. P11
1040
1041

1042

001

1043
1044
1045
1046

000

ms:9E

001100

1053
1054
ios

001100

000
o

001100

1863
o011
1068 001103
1069

001104

1071

00111

omu%

ggilis
i
i @il
001116

000000

e
008

000000

m;;

0011

1080
1081
1083
1084

001130
%ug
001138
080
811% o&

1085
1%
1

1%
1

D011
0011

000000

001140
001142
001144

177570
177570
177860

177864

%11

1095
iiss
1093 Ooiies
1095

PAGE 22

SEG OOz2

]

ll!llllilflllllil.illl!lllll!llllllllllllllill!!ll‘lllii!lll!lll!‘l

177562

Bis

o6
0c1

I T

; ¥THIS TRBLE CONTRINS VARIOUS COMMON STORAGE LOCATIONS
; #USED IN THE PROGRAM
JOF N8

IFF

’

.=1100

; ;START OF COMMON TAGS

§CMTAG:
.IF NB

. WORD

sgnss. . WORD

i
sxcn!fc‘ WORD
-S4

1052

18
1 ;g

COMMON TRGS

1051

107s

.SBTTL

o
-

1050

1070

17:31

,h:Iilllll.lillll.ciiil*lll!lIilll!!Olllllliililll!li!lllllllfill

1047

1064
1065

0O4-NOV-77

COMMON TAGS

NL;?T

1048

1060
{%

MACY1l 30(1046)_

: ; CONTAINS PRSS COUNT

NUMBER
Eé%EST
: :CONTR*#?

conTa

ERRORS
w"‘ESS
;f:
sscomn;
ERRORS DETECTED
: ;CONTA

P§ : Zw 8O

'ré- WORD
: .SYT
amx. BYT

0
1

-tm

%: Igvr
SINTRG: .BYT

0
3

;;goma

m
..c
,,sonm

RRPC:: ..MORD O0
:% §
.

- WORD

DISPLAY: uggg
177
$TKS:
177562
$TKB:
177564
§TPS:
177;; 3
§TPB:
.sv
:
SNULL
SFILLS: .BYT
$FILLC: .BYT
S}F LG: .BYT

x EH

omaoc.

:naon 'usmucnon
DATA
or -ano DATA
TEST

::coumo--uor T002°
BE USE
;;wromn
: ; INTERRUP noos x

; ; ADDRESS OF

ggun

ISP

/'
0
2
12
0

ST ITERATION1 COUNT

ICATOR
ICATOR

SWITCH REGISTER

E%H'“Y REGISTER
S
HH
TA
;3 7TY K
FE
i3 TTY K
PRINTER STRATUS REG. ADDRESS
iITTY
::TTY PRINTER BUFFER REG. ADDRESS
TER FOR FILLS
c
;;comnxng
# OF FILLER cumncrsns REQUIRED
tCONTAINS
A "LINE FE
: : INSERT |rn.’s CHARS. AFTER
:ISTERMINAL AVAILABLE" FLAG (BIT<07>=0=YES)

OO0

RPOY/S/6 HERD FALNMT

P11

D4-NOV-77 12:49

:§NSC
saEGSS
NLIST. ’°E%no
-

icnx=

tlhtlhthqggflga“z R B BBVER EOR B0 o £ w68 Q
~

LLIST

et Bt Bt Bt Bt B

CMe=

0oo
001

382
001
38?
001160

001161
001162

.ENDC

]

: ; CONTRINS(SREGO)
THE ADDRESS
FROM
PIWHICH
WAS OBTRINED

,
.REPT
S$CM3
$SCMREG \SCM1,\SCM2
.ENDR

JIF
-NLIS
SCM4=0
.Lxgr

§SCMTMP \SCMY

A —

§¥1n2§:
:EFE: 1
$SWR
;ESCEEE:SDD'
Zf?ufie 20008 $SWR

:;MAX. NUMBER OF ITERATIONS
: ;ESCAPE ON ERROR ADDRESS

—

sgfiékz

.ASCIZ

«207>¢377>¢377>

;;CODE FOR BELL

077

.nsc§{

/%7

; ;QUESTION MARK

015
000012
-,

CRLF:
.ARSC
S&F:
.RSCIZ
- }r NE 18.,

15>
<ée>
.EVEN

: :CARRIAGE RETURN
: 'LINE FEED

;i:;lllllllil!!ll!lillfilll!l!iilllillllliiilllli!iiI!!llllllillll

-NLIST

i
Ez:;g:llllllliiliil!llilliill!iili!iillilillll!illlli!lllliiiiil}

-ENDR

2
3
E
g
&

£LrLrs

Bt e Bt Bt Bt Bt Dt Bt B

PRAGE 23

000
0c1

K02

.NLIST

Pt Pt e Bt Bt

Bt et Bt Bt Bt Bt Bt Bt Bt s Bt Bt et Bt Bt Bt Bt Bt Bt Bt et Pt B8 et Bt Pt Pt ot Pt s s Bt Pt -t Pt Pt

COMMON TARGS

17:31

SCFI!3:

00
e
§§

04-NOV-77

.IFF

$t e Bt Bt ot Pt Bt et Pt Pt s Pt Bt e Bt Bt Pt Pt Pt et Pt Pt Pt e Pt ot ot Pt Pt s

Pt Pt s Pt Pt Pt Pt P Pt Pt P Pt P [T
T Ty

096

MACY1l 30(1046)

{

-LIST
.iNDC
IF ug
"NLIS
-MCALL
-LIST

000
001

000C18

.SAPTBLS

.ENDC
"IF NB ¢MORETRGS>
¢R

SEQ 0023 «

LO2

PAGE 24

SEG 0024

17:31

gfl 106

75
3%
72544
00,
102
77846

000102

CR OR

I'O:CQTM

;

;AL

RERD

FROM

THE REGISTER

o LS

TRE gereEr

e e e b = D) OO000000000

000106

,fi

b
pur}

OO0O0OOODOOOO0D

g
S
G S
VS W
Y U
A

£
;?
;g 00
80
88
81 00
g2
00
gg 00
75

S U

= %fi%fiizmz
INSFE

MACY11 %(IM)T“(Q.;-NOV-??

§§

ALNMT
12:49

Y W

Hhfi;hfl—hfl‘hfl—Ffl—hfl—hfl-hfl—hfl—hflflhfl-hfl—hfl—hfl—hfl-hfl—hfl—hfi-hn—kfl—hfl—hfl-MWflo

;1,1

gé N'ER N’O OUTER CYL INDERS
HE ALIGNMENT CYLINDER

ESS

1 28
e
S FOR *INCYL’ & *OUTCYL®
CODE TABLE
:C
1*
:%asss FLAG
(KW11- vsg
;
;iKW1l-P
xi:; gourT«
ER> REG
C
ssn
TKWll-L
v?c'r‘ ADDRESS
:KWll-L STATUS REGISTER
588;1‘;2

£z

JIF
lllllllllIlllIliilll!l{!l.lilllllllllillilllllilll
,;::l!!lilll!l!

89
gé

:NL£§T

-REST
illllil!!llll!lllIlilllilll!lll!ll!illiiliiillli!ll
,fitillilil!lll

9c
36

88 N

Bt Bt Bt Bt Bt s Bt B

et s

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

s B

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

ot ot ot s

Pt Pt Pt Pt Pt e

li
nggrfil?mlafls

gg?

202

001

angc
.SBTTL

002

RH11/RP0O4/S/6 ADDRESS & VECTOR LOCATIONS

IF B

;i;;l!llllilll!llllli!llilll!llllliillllllIllliilllillliillliilli

‘

sgg

REPT'
,fizlillllllliilllllili!!iil!il.l!liliIlii!iillliililllllllliilii’

207

.ENDR

203

204

LIST

CZRJCBO,

RPO4/S/6 HERD ALNMT

CZRICB.P11
1208
igti.\g

O4-NOV-77 12:49
001

MACY1l 30(1046)

O0O4-NOV-77

LIST
-ENDC

I T

BEOT MR

1214

.ENDC

000

17:31

PRAGE 25

RH11/RP04/S5/6 RDDRESS & VECTOR LOCATIONS
( ;

MYTMRUASBUER Wi S

SEG OCes

RPOM/5/6 HEAD ALNMT

NO2

30(1046)

04-NOV-?7

iz{s

.SBTTL

ERROR POINTER TRBLE

}§é§

.Lgnhou sné ?un.%g

c%gg)fiu

-NOV-77

12:49

MACY1l

{gig

#THIS T

11554
1224
1225
1529
1229

1230

001270

1234
1235
igg;

N 9&
coumfig ggxmgs gcnnmco AS FOLLOWS:
A HEADER
;;m*m
n
T
;POINTSTOTOTO 1'
:; ;POINTS
THE DATA FORMAT

EM1

;RH11 INTERRUPT OCCURRED (RHAS=0)

EM2

; UNEXPECTED ATTENTION OCCURRED

157‘5 oe“xai%
gxan 021
1276 0:.»19?«:;E

DH1
DTl
DF1

001300

020547

BYe
BFS

i a‘“:2«5

001310

020605

EM3

1249

ooxgw

021650

DT3

%251

iaagag

001312

001316

021321

DH3

021747

020643

EMY

1268
1289

001326

021752

DFY4

gxaaa
1324

ig&:

1
1264

021347
021660

D01
001334

1294
021632

001342

021406

;MASSBUS PARITY ERROR (PAR=1)

;ERROR S

EMS

gsomo

iass ooxgsa 021741
{26;
1asiEaa DO1340 020734
1270

DH4
DTH

’

xggg

;MASSBUS PARITY ERROR (MCPE=1)

ERROR 4

.
001320

1525

OF3

1255

1256
1267

mon MESSAGE

;ERROR 3

1247
1250

TO
T

;ERROR 2

851632
1543 i;&m
igg
D01
851941
1248

;;POINTS

;ERROR 1

{g%

1;:0

"?ssmmm?‘
CH
er."m
TABLE IS PERTINENT.

SERRTB:

iggé

1233

SEQ 0026

cog't‘nius
THE INFORMA xn
sncn ERROR THAT CAN occua

,mo :
"
"e DFBuT

1223
122
1228

32&50& POINTER TRBLE

17:31 PAGE 26

DH2
pT2

;ERROR &

; ADDRESS PLUG CHANGE BIT SET

DF2
EME

DHE

;RH11 DIDN’T RESPOND TO RDDRESSING

xEs- iSW£ix 3g:x 238Bm .23x &sx s":x;@;@

Uguwes3smes=PBEiRUD2%wNoCwRS8ammmmv
[xx>+ (—&x1)

N(g1\TIY1V\)x11—Bv&y-M8401Esv1RN0—1o11dSe8O1edaMedm3T1ody891yo1—goO81dNwVe1tNi8N2—411!vS8GNq‘N36o1A8BeNg"1.SB8gO&uAo1lST8JoFNE‘v11—S3R8Oq1NN8=438gT1Y8-11B48M1op8td—1d1Rig81y8—t
xo0vg3i w1[wg—mFOe0as¥w2exlppley]o(gev.l—xNFroy:e=[x—|v4E=00e30ro-xot0F0r0ge0a-x@4 3xNooo
gi 29 a :v g 2
E 5839#11

00144
00144

HESS
s

o el
1

MACY1l

32RR0R POINTER TRBLE
(1046)

04-NOV-77_

17:31

BO3
PRGE 27

SEQ 0027

x[+
4 o[
4

Wiy

001

Cco3

PRGE 28

SEG 0OOze

DTi6
DF1

021734

021740

JIF B

;i:;lli!llll!li!IlIill!ii!l!lilil!li!!llllil!ill!llll!!!lll§§l§Q§

A
LISt

;&tl!¥|lll!l!lllIll!i!llliil!llll!l!ill!llllllll!llQiliiiiiiiii&l

E
000

.SBTTL
001

RP0O4/S5/6 DRIVER COMMANDS

.IF B
e REEERERRERERR AR

E R

R AR R AR R AR R AR RRERRRR

-RE
.LIST
ss s
222222222t 2
2222
222222222222
P Y 12 it it 22 222222 22222222

OFFSET=

e
e e
e e B

ROHD=

e
e
B
B
B p

SELDRV=
HKD=
HKHD=
TDAT=
uan):

TREG=
gfrrn?:

s B

RTC=

e P

SEE'&.’
Lgms;

e B

UNL ORD

‘i\flrUNHU”RJLC&"UN’-&-&»—C*RCID
[N
TN T, [N RN ]

.LIST

-ENDC

001944

00144&

Y
Yy
Ly o4
r ROFSREE
.nurwc@*:um nN—-0w S A
LW—-0O

;—.—-;.—p.—wo—p—o—u—.—o—v—b—-o—no—o—o—o—-o-b-o-o—»—»—o—nww.—o—.—wo—o—o—r—p—o—.—o—.—p—o—o—o-v-oco—v-'-b-w
NNN &
SRRHENRE

328

1327

D4-NOV-77 12:49

04-NOV-77_
17:31
MACY1l 30(1046 )
ERR OR POINTER TRBLE

'Q\NPU\RU%RJLCGNUNM—r-hu—C%RCXD
W= == L=YUV~
W

CZRICB.P11

=
o

CZRICBO,

RPOY-S/6 HERD ALNMT

5
161

:NO 828"‘“”"

P UNL

IBRAT

BECA §LE|as
'Ezgg
o

1OFFSET

;SET

NT gnggg;ifl LINE

; PACK écKNOWL DGE
:GET
T fi ECI OR HCI)
F ISTE
iSET
;c DRIVE
;

K DATA
{WR
K HERDER 3 DATA
PWR
;WRIT
i WRITE Dfigoen 8 DATA

;3528 HERDER & DATA

.IF B
;i;;iliiiiillil!illllli!l!lllli!llliil!lill’!ll!iii!bi!lililll’*l

I~L1§1
-REP

CZRJCBO,

RPOY4-S-6 HERD ALNMT

CZRICB.P11
1383

O4-NOV-77 12:49

MACY1l 30(1046)

O4-NOV-?7

17:31

RPOY/S/6 DRIVER COMMANDS
.LIST

138‘0

PAGE 29

SEG 0029

CRFERRBEBRERRFERERRERRRERERREREERERRERRRRER VLI FRREER PR

1385
1386
1387
iaeaq

‘lL1sT
.ENDR
.LIST
-ENDC

000

i 30

.SBTTL

1392

001

i393

PROGRAM START AND

RS R IR ERRRES

INITIALIZATION ROUTINES

IF B

Ht:llllllllllllI!!lllllllll!lllllllli‘lll!illl’lil!lill!!ll!llilll

1395“
{3'37E
i339899

nusr
'RE
$fi:ll!ill!llllll!ll!lii!!llllllllllllll!lilllllill!llll!ililillii

1900
1401

usr

1493
1404

1405

0014S0

001456

012737

000402

177777

1406 00146C 00S037 001242
1407
001464
00000S
1408
1409

1410

001

1411

%1%5

12706

001100

1413
1414

DO1474
001500

022706
001374

001140

1412
1415
1416

mg
i:ég

001242

1472 gosozs

1421

1422
1423

maggg

—
.

001100

00}

1432
1433

013535

001S22

012737

001

:SET CHANGE RH11 ADDRESS FLAG

tscnmc

RRER

CLR

CHP
BNE

csun Rs ; ;DONE?
'
. =6
;;LOOP 3ACK IF NO

MOV
MOV

8,SP
#STACK, SP

(RE)+

,,rxnsr LOCATION TO BE CLEARED

CLEAR MEMORY LOCATION

;;SETUP THE STACK POINTER
; ;SETUP THE STACK POINTER

sser

.x NE § Sf#?i ? T?nuzz A FEW VECTORS
.x NE SSE

000

001814

#-1, CHGADR

START

MOV

.IIF NOF $

1429 DO01S0e 012737 004412 000030

i:?i?

grmr: cua
cncnos
c;.Em
RHll cumc: ADDRESS FLAG
s;
sgr& ,é"%IALIZE THE CCOMMON mbs

.fnoc
“IF N8B

001

14924
1425
142;
142
1428

MOV

: ;CLERR THE COMMON mcs

001502

START:

000340

000032

007452

000034

MOV
no
: éxr NDF $C
-ENDC
“IF NE s wna

goxorvsc ;3107 v;cron FOR SCOPE ROUTINE
astor
(
;s INITIALIZE THE TEST NUMBER

gs aoenrvsc ; E"T v;cron FOR ERROR ROUTINE

8340, acemvsc+

“IF NE sssrupw p exme

bg 8TRAPVEC

;:TRAP VECTOR FOR TRAP CALLS

i:gg 001530 9125 7 000340 000036

has

1436
1437
143g

IF NE SSETUPS10
MOV
#SPWRDN bbpunvsc ; Pouen FAILURE VECTOR
MOV
8340, 98PWRVEC+ ,.Lev

001

40, 3k TRAPVEC+2; (EvEL 7

CZRJCBO,

RPOY4-/S-6 HERD ALNMT

CZRICB.P11
1439

O4-NOV-77 12:49

MACY11 3?'(&?46)

IALIZE

1440

831

§::§

1441

1944

1448

oxeggg

MOV

007134

001

i3§3
145]

1462
14€3
1454
i:gg

MOV

sides

MOV

oxa uss
;;BITOO

:CLEAR THE PASS COUNT

: ;PRIME THE RANDOM NUMBER GENERATOR

::BOTH HIGH AND LOW WORDS

001
000
001
o

.ENDC
.gnoc
.IF _NE SSETUP32 ;;BITOI
.%}FNEDE
MTAG
CLRB

SERFLG

.11F NOF SCMTRG,

SERT

cfs

"$TIMES

001
000
001
002

.ENDC
-ENDC
JIF
IF

.MACR

1465

MOVB
SSET
1

i3 INIT RL

1466
1467

SESCAPE

1470

1473

RTT

1472

n 1LIZE THE ITERATION COUNTER

;s INITIALIZE NUMBER

CLR

Enn ONS

; ;CLEAR THE ERROR FLAG
LEAR THE ERROR COUNT

.,CLsnn THE sscnbt on ERROR ADORESS
:;ALLOW ONE ERROR PER TEST

#’'m*'m;‘
HE

MOV

CLR

#1,SICNT

; ;BITOY

MOV
MOV

1471

MOV

81, SERMAX

ranp vscron

;3 THE egg-or-ms
v

1468
1469

MOV

THEN LOAD Locnrron “$RTRN",

TINE,
WITH A
“RTI” OR "RTT
r xrve
..se “T* BIT VECTOR TO $RTRN

oab ax VEC+2
c

()

#N1,-(SP)

::TRY

T0 DO A RTT

i 1 DUMMY PS
PC

PITRY THE RTT

NI:

ggv

.grr, SRTRN

1477

1476

Ne:

MOV

ADD

on£9v5c+a annesvec ;RESTORE _TRAP CATCHER

1479
1480
1481

.ENDM

1478

001

1485

837

{:gg

1484

$TE

.,cttR “T* BIT SWITCH

nov

é
r NE 1000&:

i:gg
00265
.
149] D?}EEE
001564 8%3;39
012737 ?9525

000004
001140

1463
1494

17733

1482 001572 8557 7 17787

177777

ooxxus

,,nrr IS LEGAL-~SET SRTRN TO A RTT
T ILLEGAL--CLEAN OFF THE STACK

ims
sguas

1488

777
001012

SSETUP
SSETUP

.ENDC

1487

001600
0Cl1e0e

CLR

VEL 7
"$§ gnrnn T0 A RTI

i:;g

N3:

, SLPADR

' SLPERR

SWITCH REGISTER.

: INITIALIZE THE LOOP ADDRESS FOR SCOPE

::SETUP THE ERROR LOOP ADDRESS
FOUND OR IT IS

.,23u5L ?Rw'zg”'ggtuv
FOR Ag&?runae SW] cun;cx TER.

nov
MOV

us
RRnaon
VECTOR SWICH nscxsren
>
'
§gizhnvs
..gir Sn
Hnsouane

CHP
BNE

#-1,aSUR
668’

MOV

SEG 0030

;;SETUP END-OF -PROCRAM COUNTER

'%?r"fio?s” g?EED

CLR

1464

$PASS

.frNE SSETUPSMO BITOS
S

1458
1459

"SENDCT,SEOPCT

.IF NE SSETUP31

1457
1460
1461
1462
1463

PRAGE 30

;BITOM

.1IF NOF SCMTRG,
123456

EO3

THE COMMON TAGS

.frNE SSETUP320

001

001544

17:31

)

1445 DO1S36 012737 176543 007132
i::g

4-NOV-77

oxs#oxsrunv

unno DISPLAY REGISTE

,,rnv T0 REFERENCE HARDWARE sun
:'BRANCH IF NO TIMEOUT TRAP OCCURRED

IC
S/
uchgo
P11RPOY3-4
NOV-77ALNMT
12:49

MACY11

FO3

30(1046)
-NOV-77 17:31 PAGE 31
finf?x&ngq
THE COMMON TAGS

%333
161
i:w %{212
703 001620
84S :
iugg %{6&3 } 737 °°8};3 88{{33 £SS:
igsga:i 001253 815537 DO000M
66S:
UL

1803

001

fsosEC
1506
1507
1508

JIF gr sm&

1509

SARG]:

1514
1818
1516

1€17

LENDM

001640
00164
oom-sog
0016

001656

00S227

01654
016644

001662

oougg:;

005604

1822

001666

001672

005737

000042

1523
isas

1524

001006

001702
001704
1705
i;ig

1837
iggg

00730
001736

1836

%1715
1722
001724

#-1

;FIRST START ?

TYPE,

$CRL

iCR-LF

aNE

678

..anmcu IF

678

: :BRANCH IF YES

18
,TITLE
oo

iBR IF NOT
:TYPE
PROGRAM TITLE
T
'DDU’ SETUP MESSAGE

FIGH

;ARE WE

RUNNING UNDER XXDP/ACT?

YES

002
—

.IF DF SMAI
cmfi
.BEQ

1005
104406
oogwg;
1127
000
00S227
001010

BNE
GTSWR
BR
MOVB

688
81,SAUTOB

;r NO
..csr SOFT-SWR SETTINGS
; ;SET AUTO-MODE INDICATOR

INC
BNE
JSR

8-1
INIT
PC eusaoa

rxnsr smm »
IF
HECK ms RH11 ADDRESS

004737

813737
013737

000001
177777
022000
001264
001266

1840
184}

001134

CMP

ES&
.ENDC

007704
007706

MOV
MOV

SENV, 81

SWR, #SWREG
688

agaagn
snpv RPV

; ;ARE WE RUNNING UNDER APT?

.,sormme SWITCH REG SELECTED?

nov RH11 ADDRESS TO DRIVER
:VECTOR ADDRRESS

;GET THE DRIVE NUMBER FROM THE OPERATOR AND SETUP THE VARIABLE LOCATION

igzg

:FOR RP04/5 OR RPOB’S

1544
1845
184
1247
1848

001794
001750
001754
1750
00176M

012716
005037
4737
Y4 ;

18e0

001774

000410

1843

INC

xgTM sJR b1 Dgcsnum
:TURN ON THE TTY KEYBORRD INTERRUPT
-SBTTL czr VALUE FOR SOFTWARE SWITCH nscxsrea

152?EEE 001674 353727 001140 000176

1828
1529
1830
iggé
1833
1834
1835

SSSETMAIL
SSSETMAIL

Y
TY

001161

{gig
1520
1521

.ENDC

177777

1
104401
104401

104401

65
anmcu
Ntol o> .
osgs.(sm
::ser
uP FonN?m;"Ee?um
:gugspc gun SPLQY"POINT TO SOF TWARE SWR
(sé,., otg EC ;;RESTORE ERROR VECTOR

frme— 3’n rmns.P
EAR PASS coum
'ha
mfigxzs
SENVM
E‘Esr
uss unosn
npr
Q
$ARG1
T SWITC
MOV
#SSWREG
fise RPT suncn Rscxsrsn

1810
1811

1515
1813

BR
ggx{
583
MOV

001770

004737

00
17%92
001174
;sou
17545
004270

INIT:

MOV
CLR
CLR
JSR
TYPE

#STACK, (SP)
TOPLN
PC ;mmr
ENTERD

TACK ADDRE
ADER INDICATOR
;1 "P‘k 55 THE TTY xsvaonno
iASK FO
IVE RSSIGNMENT

:"CR'

JSR

AC, GE TNUM

SET mo&sgon anonxrv TO ZERO

‘GET DRIVE NUMBER
ENTERED

SEG 0031

SRIRaRSmwmwa38aeamwmwmmwmmm5mmmmmmmma23a78aZMhRmgwm3m37m5
lSYeAwnReosGiO)mmaSolmE2B"wIS:lOIgTBm3R‘CmBEwA8$m.REP“Nvemo.Nm_WT.oru.m1ey,m1okl‘Ee1R%B&1=A82NS5ogsy]TinHgrAoapogRmsaonA2eSZt8NR)oN.MuXmo3.Sm.RmKB3NMRNWENI:..lBt”.lSM.EOEI.SaM-N2S&Rtm
12 Tue
B4onov-37

g .

0000

Psa.
o8iySS38g-B8L9i8Ue5eg5e38eAS 5LLNko83RL0OLo8Ne3LRL8Ae3ELLR3PLoS8LD8SDR3DRSDO53DCa8NDRk3L3RSD3Re3E8DS5DLDESeDoReEe3D3e°ER8sLRD3e|82LL8e§D8g8 gB L38iR
yu-winEaot.syEtMoGV8elBvLeQ275g0wUomlvTwa0I>Z3>E32323235a3>33>3>3m3o,vvms&@2ewvaAsRmE3omlmS”»LEfEiemYIa%B.oV5m3WE8
oggozf-Ug EgxS WaGBhREl8r BAOMUWCRGaB.PaebceBsS Dfg8af27e70x §YU.S0oF 0 Beed:yx
RPOY/
11

MACYLL 304
eO 0
oR bor
0
Tua
8
ke BhrTen Redisten

GO3

RY:&F

TR%T

SEG 0032

CZRJCBO,

RPO4/S/6 HERD ALNMT

CZRJICB.P11

04-NOV-77 12:49

1607
1

002402
002406

000137
lDfl:Ol

1611
1612

ee
002426

104401
32777

B8 Gl

MACY11l

003640
002442

Rl
02001S
000004

176504

ey gosue poory
1616
s

1617
1618
i6198
1620
162
1622
1623
1624
162

001

17:31

PAGE 33

SEG 0033

JMP

RANDOM

;GO TO EXERCISE ROUTINE
NVQBNDHSQRRQCTER

9§

TYPE
gés

VERIFY
bsugtasua

: TYPE 'vsng
Y’
suxrcu E

108:

JMP

Woro OHD

Y BACK TO DRIVE ENTRY

THE
Sfifiar%sum
éoES, xrHEEE Hsno

.IF B

,1l!lliilQlll!!{llilil!!lllillllllblll!illiIllllllllllllllllllii!

-NLIST
lllli..l!iillilltlllliilliil!!l*li!illilllill!lil!llilli{illili

’fiL

Itugc

%23?
1632

.SBTTL

001

SETUP TO CHECK ONLY THE SPECIFIED HERD

i RERREEEEREREEER R

1£33
1634

1e%

RRRRRRR RS R R RN AR R R R AR ERERRRRERR AR

LR RERERFRRERR

!ll!llil.ililllllI!liliiiil!li!lilllliiiliiili.iiifllil}{il!ili

hL ST

1638
1639

NDR
-LIST
-ENDC

1638
e
i?zg 002444 10440
035S
1644
00473 869235

ONEHD:

1645
1646

012637

i 00275

Go%

1683

- OM-NOV-77

GET VALUE FOR SOFTWARE SWITCH REGISTER

.REPT
LIST

1628
1629

1650
1651
16582

30(1046)

002516

3737

5;5;

3737

65 G Goo7dy

TYPE

ENTCYL

;ASK FOR CYLINDER ADDRESS

18
(SP)+,DPB+CYL

:"CR’ f"’?
;nove
T T0 PARAMETER BLOCK

BEQ
CHP
BEG
MOV

INCYL ,DPB+CYL
=3
MIDTOL, TOLER

iBR IF
IT
IS
;SEE }r *
R CYLINDER
iBRIF
IT
I
: CHANGE ~ TOLERANCE

BEQ

:BR

ONEHD

iTRY IT AGAIN

JSR

PC, GETNUM

MOV
CMP

ouTTOoL,TOLER
o¥rch'DPB+CYL

BR
MOV

016132

001226
001224

CMP

001230

TYPE

16
16S8
1659

002S42
002S44

727
001403
104401

001212

leee

O002SSE

0123737

00l1e3c

18:

gfl

Clel32

2%:
3%:

BADCYL

;gET INITIAL ALIGNMENT TOLERANCE
;SEE }r
TER CYLINDER

;sse IF ALIGNMENT CYLINDER
IF YES

:REPORT

INVALID CYLINDER

MP
BEQ

MAXCYL, s411.
23

:RPO4/S ?
iBRIF YES

BR
TYPE
MOV

is
CyL24S
MIDCYL,DPB+CYL

: CON xnus
:CYLINDER 245 DEFAULT MESSAGE
:CYLINDER ADDRESS

TYPE

020156

MIDCYL. DPB+CYL

;GET THE CY 5 R RDDRESS

CYL496

CYL%NDER 496 DEFAULT MESSAGE

§§§§§§§E

ST
T
ol e

Yo
1
1
1

ALNMT

12:49

004537
00010S
004737
000137

(1046)

1172
003736

-NOV=77

7-3

hozRo
T §Etonxven
Jfigflo

s:
6%:

BBIRRZORCB
DB SRR L0283 DBl Lwn 233 S Jotul2

el ol ol

oo
NN
Whe-

g
0026
002634
002636
002642

103

o 30SETUP TO CHECK om.v épsc??ieaflHERD
4s:
TYPE
sm
;
ron THE HERD ADDRESS
I5R
b
c?
) m‘s& ADDRESS
gy 864278
MOV
(ssm SHEARD
:
ADDRESS
) 1722 001172
cgg
Bua..tueno
:
ssvm“g ?
E;PE énomx
*nv%g ueao RDDRESS MESSAGE
020410

EZRJCBO
RPOY/ /6 HE
~-NOVZRICB A1l

JSR
‘559

003032
001744

C , CHECK

mt‘r:

SEQ 0034
a

nessace CYLINDER
inERpT0Befur
THE spscxrxeo
§§§"
:C

iGET THE MXTngfi!VE/PiflO

,;E;Ellll!l!illlliilllllllllllllll!lllllllllllllllililillillltl!l

00!

%xsr

Zsugc

sls]s}

NNNNNNNNNNNNNNNNN
NN
oo o o o o o o o

0 (0

,“zgé;lillllliillllll!llll!lll!lllillll!l{llllil!!li!iilillilllil
MAIN ROUTINE - CHECK ALL HERDS AT ALL ALIGHMENT CYLNODERS

_SBTTL

.IilEllllillill!lllli!lllllilllilllilllllllQllllll!lllll!llli!!lt

T ey S

0c1

xsr

8888 88882 888
oS Yor
FRzE BT KIS

'Ugsgghn—
‘QS
h

Of£fWw
NN

FERRRSTRBE

[
N

ONOMNLEWN~-0O

SRR

o
S
e
O
L
T T
L
D

RYYYZRYLYYER NN

36?5?5 S 28‘6
JSR

Vii

e ol

.Euo

,:Egiiliilill!lllll!!ll!l!lliiillilllll!llllill‘ll!llil!l!llilill

Sésxaa
e
2
noiN

MOV
JSR

;START AT THE ALIGNMENT CYLINDER

YL,DPB+CYL
CHECK TOLERANCE
Egumm
- %Esrca - ;oss
R%B%
K ;o m:K gt.oégmcm CYLINER
gs ER VER

.é 1,R4

3%555
ALI NT HEAD SELECTION TABLE
CHECK agf GNMENT, ALL HEADS, AT THE ALIGNMENT CYLINDER

émsn CYL INDER
MOV N$ opa+cv|. :
CrLT
O o TORRER
oég iDRIVER
N
SEEK ?
as
. WORD
ADDRESS
: g&: AD
L 1,RY
MOV
noe og
fcvLoER®sovL FEEER
CHENG T“évf”%?n70
OUTER CYLINDER
OUTER CYLINDER
TN
. WORD

:DRIVER SEEK CODE

RPO4/S/6 HERD

OM-NOV-77 12:49

Sp ek Big ann
737

1 7§;

003000

004737

30;;

66301"

165333

001172

ggaoas
3030

ooorr;
00C20

1744

003352 004737 003032
001

PAGE

4335

18:

Eflv

2s:

BR
RTS

I
MOV
JIMP

:s&

+CYL

ALL ALIGHMENT CYLNDERS

K
AL cuneur cv INDER
EESNIEAE
;CHECK ALIGNMENT AT OUTER CYLINDER

ouéaox.nu

PC, 1S

;

iNI

(RY)+, SHEAD

Ecc'rzusx
Eggvir

i
P

, CHECK

SSSSF 0 - 1; HEAD ADDRESS TABLE

‘ea_seex cooe

5§£cu£9x

IGNMENT

AT ALIGNMENT CYLINDER

IVE OR HERD

flS 89°¥§§EEF”°" TABLE

:CHECK THE ALIGNMENT
iGET NEXT HEAD VALUE
:RETURN

IF B

tllll!IllIllllllilllllillllll!illllilllllil!!llllililllllll!llll

;r
,h:!llilll!llilllilll!Illilib!!!lllliiiiitllllll!ll!lllillillilll

NDR
.LIST
-ENDC

000

.SBTTL
001

ROUTINE TO FIND THE TRACK CENTER

IF B

,!lilillllilli!llllll!ll!lllllilillllilll!lllll!lilllllll!l!l!l!!

JSELFTTAR

JO3

MOV

774 01 535pos 016210oo
1

17:31

JSR

16132

O4-NOV-77

MAIN ROUTINE - cuscx ALL MEADS AT

—

MACY11 30(xows)

%&?‘
,k:lllli&lll!llllllllll!llllll!lllllllillllllll!!lllliliilllll*il

wn
~N

NNNYN
NNNNNNNNY
NNNN
o
—
LWN-0OW

Bt Bt Bt Pt s Bt Pt s Pt Pt (ot Pt s Pt Pt Bt Pt Pt Pt Pt Bt s Pt ot Pt Pt Bt Pt Pt otPt 5t Bt Bt e Bt Bt ot Bt Bt e ot P

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

NNNNNNINNIYN SNNNNYN SINNNNNNNNINY
LELLLELW
APO fl‘fig}:rifl
BboSF NEWN-0OWw
BURRZLR-ED BUCR LS 0

P11

ALNMT

LIST
-ENDC

000

003032

00S037

001176

00304

’Exexu

MOV

013701

001236

MOV

003036 005037 001200
1

13746

003072

001744

003100

162702

003074

002104
003106

0031i2

CHECK:

CLR

BITIND

MOV

MAXOFF | R

001172

MOV

SHEARD, - (SP)

015012

%339

RO,

001220

INIT

112137

016121

18:

MOVB

000404
114137

016121

2%:

BR
MOVB

062702

OFFDIR

CLR

000031

SUB

ADD

CLERR THE OFFSET

nnxpos,ng

iMAXIMUM POST &

TABLE2.R1

:OFFSET

(SP)

1SWITCH

WRT.RP

(R1)+,DPB+CODE

DIRE crxon xuoxcnron

.CLERR THE sxcn x?INDICAT

: MAX

;ucng vn#gs 10
;oA

; UNC

ggga

OFF
gzr
anus

ABLE RADDRE

STACK

xruss AD ADDRESS

CTRBLE PARITY ERROR RETURN

;OFFSET VALUE

PRRAMETER BLOCK

#25. ,R2

; DECREMENT

#25. ,R2

: INCREMENT OFFSET VALUE

33
-(R1),DPB+CODE

OFFSET VALUE

!BYPRSS REVERSE
DIRECTION SETUP
;REVERSE OFFSET
VALUE TO PAR BLOCK

SEG 003%

CZRJ

RPON/S/6 li

gjgoP11
1775

17;9
i?

ALNMT

12:49

MACY1l

003736

30(1046)

3gou INE TO FIND THE *méx
CENT n
3s:

001200

im;;g
{

?&599
617
16172 861205

6172

IR BUE

1
1

000001

4S:

5§

175734

001174

1794
{ns

017657
1;;?77 001174 ek

0440S

iweml % 6137% 016132

ieos

017633
1161
1

78:

1814
1815

001176
1 289
815

8s:

001204

1319
181
1818
1819
1330
1821

0012
-,D01
001 |
001200

1824

001204

1825
1
1

igae

000001

1830

001210

10S:

Y THE SIGN VALUE

#SW0,

;
,cr:?x

ISWR

MENT

o-;

FSET ATTEMPT COUNTER

IF OFFSETS NOT COMPLETED

BNE

138

;§z

HE HUER
b-x.’fopzLN

m THE
R
.ser THE 3#225 SWITCH

15T

gm'
3
MOV
TYPDS

73385
TYPE

g
F

Igf' N

,romg
c

Sfl

HALT

15, ISWR

?gz

é DIR

ST
ROy
MOV

as
rfik&gsag

4FDIR

or LIMIT CONDITION

ON ERROR

nsnomc LINE 2

; ;SAVE SHEAD FOR TYPEOUT

..ggvs

vss-

ASCII WITH SIGN

xr mon ?

TYPEOUT

wg-- cI
ASCII WITH SIGN
Agmcou
o?EL
5f
qf

% rggo OUT OF TOLERANCE

’:FIN

;. MAX

RECTION

x HTNREVEe ?
ré NT&vg
SET VALUE

MOV
MOV
ROD
COM
CLR
BR

MAXOFF
)R
MAXOFF | R1
mgga,m
OFFDIR
TIND

:
OF OFFSETS
:
R OF
T
; ? NNI
n%uomecnou VALUES
:
REVE
o*
T
INDICATOR
;n;gt ;écn
og_noxcmon
;
T
REVE
rgns

MOV

R2,PLUS

: VE ?E

Nfi

CMP

TOLER,R2

:sss xr TRACK CENTERLINE WITHIN

mnoo

TST
BPL
175544

DPB+CYL,-(SP)

175654

: r§r oP cooé

; mI}}T?g’:
VALUE STORED ?

RERARRTgEL 1

S om r(sc)w

sOFFSET THE DRIVE

#1CB

SEG 0026

..cs'?
apodsrofif
oE1, [HETHESIGN:s?cnBIT 1NOICATOR
nsw Rfucnc
CHANGE BIT

SHEAD, - (SP)

001176

feams

VER

8?gfi

xx;’ - nov”

imxo
1 1§
igi

6S:

17% 8&25 013746 001172
1802
1803
zg

. (31
WORD

ERROR

i;%

1799

JSR

S
anv

1791

K03

04-NOV-77

gue

LUS, R2

hgo,asun

300xv} T

IGN CHANGE VALUES

;
;

r; TIVE
ITIVE

;

RECOMPLEMENT THE VALUE

sgs

TOLERANCE

RPOY/S/6 HE

-NOV-

CZRIC
cchg%u

ALNMT
12:49

LO3

T Wik B
SRS
13°
fon 2
;RS FreB
2
5&-(9)
v
;
T

oL R

18
1
1

e
i3
ieaa

118:

001174

61273;

oma;?
177777

001174

001172

1845

“y

104405

%33% 6137
1846
47
18

1848

1E4S
1850

185
54

128:

MOV
TYPDS

IIF NB O

1YPDS

MOV
LIIF NB O
rvfigs
CMP

001204

00 1216
100000

ngv

MOV

DO116

iesx

TST

.1IF N8 O

016132

Ems B
B
1860 % 2 0051
1867

003510

001

i“’é

003526

000207

1863

1864
1865

001

001000

003032

b-x“?‘om«

175444

HALT
BR

175430

138:

175420

148:

15%:
168:

DPB+CYL,-(SP)

;;SAVE

PLUS, -(SP)

BIT

CHECK
PC

RTS

: CLEAR nt"?%?cmon

; ;SAVE SHEAD FOR TYPEOUT

148
#SW9,

gt;
I

SHERD, - (SP)

e I6CER
og , (SP)+
Ex:i :suxs, 3SWR

iass

SEG 0037

158
rgux.asun

22 vgg-oem

+CYL F

nscu uxm SIGN

YPEOUT

ASCII WITH SIGN
oam

SAVE PLUS
rvpt--oecxm ASCII WITH SIGN
IN rm.smucs
E ;rHERD

2:
HA mqfié

OUT OF TOLERANCE
w;o
'r ;u
Ens%‘(:
:
17CH 9 ser

scr
CH I SET ?

rg HERD AGAIN
.oo
:RETURN

B
li!lllll!llilllllllllll!lilllll.!iillllll!illl!!lllif{
lll!lllll

iT
RE ai

1866

.NL

1868
1869
1870
1871

fi:llll‘ll!illlllill!llllllil.iil'llllllll!lllll'llIilllllliill!l

1867

i%;%
74

18
1875
1876
1877

1878

&®

1879
1880
1881
1882
1883
1884
i?fi:

000
00!

L ST
.ENDC

.SBTTL

ROUTINE TO SELECT HEAD FOR DDU CONTROLLED HERD ALIGNMENT

Illillllll.lll!lillillliIilllilllll!lliiilllll!llilllllllii!ili

N.g?
LIST

iiuuuuuuunuuununnuunuuuniufluuuuuu

'hL

CZRJCBO,

RPO4/S/6 HEAD ALNMT

CZRICB.P11
ig;
1889
ifi

feqs

1,S%

O4-NOV-77 12:49
000

003530
m

ig;;
189€

10440
fz

gggger
33

MACY11l 30(1046)

001212

i
ig
1 001160
1§ w W 001172
1907

%8 003636
@ o
0007SS

ig{?

1912

igia

DDUALN: TYPE

"18:

fi;fifi 016132 g: .

17:31

MO3

PAHGE 38

ROUTINE TO SELECT HERD FOR DDU ¢ ONTROLLED HEAD AL IGNMENT
.ENDC

i
Gew B
i% @m W 000022
1

O4-NOV-77

3s:

4§ :
5%:

1915

é,a"""'*"

MOV

h“kcvbgmwvu E

&_np

SWAB

(5P)

JSR
TYPE

Jgn

te0s

1794

001

mvgs

TYPE

INIT

N24s

EER
NT

e
), 818.

{
5
(&),susno

RO, WRT.RP

;

o AT 496’ MESSAGE

;
a
:

vuuosn

R
;EE%ffimm THAN 18

:
!

.PUTHEAD

npga

FOR TYPEOUT

NUMBER INTO UPPER BYTE

{ECTaTER
posese
:WAIT FOR NEXT HEARD ENTR
CTRBLE

mr ERROR RETURN

IF B

H i;;!lill!lll!lliillilI'IlIiillllllilllillll!li!llllilillliillli!l

CNLIST

1313

‘CTeT

igig

,"tllllllll!llilllllIll'l!lllll!!li!lllil!l!liili!lllll!ililiillli

ig%?

LI T

igaag

.SBTTL

1926

001

3tIlllllllilIlillilIi!illll&llllllllilll!lllllllllllllll!!llillil

B34

ig3g

,“I.»lilillllillllllllllllliilll!lll!Illiill!illillllilillliillilll

000

MO
1044
004
135 ggw
étx)s?g;
§z1518
001240

1335 -‘- 862038

;

ROUTINE TO PERFORM 5,000 RANDOM SEEKS

1
{5

1338
{%

SEQ 00z2e

ng,xcu'

BRYSE
MOV

015012

ALIGN

,Hll..MXCYL

’

£08

Isugc

RANDOM: TYPE

MOV

CLR

55050 SEKCNT

'E
NU;EE
55

ugpeswfvxoe"g

ALNMT

MACY11

c%gjggo’e 8u2u85“97 12:49

123
iews

@RE
0ib132

1333
1

Pat.

-NOV-77

il
H

003736

1§§§

isss

001744

YR Ko o s soonese)
; x}oiggiag izééuozn AS LAST

W
MP

ERECCT
é§b>.099+ch

?3
JSR

“flgns¥ncx“$oop?£n
;+'°Pa - :'BanS*H
f DRIVER
:

. WORD

DEC

001240

iqsw

PAGE

32 NE TO PERFORM S, 008 ggsxs

000004

ié:z

17:31

NO3

-(SP)

:a,sp
4

£K
KCNT

fuxr

;

1v1

g JUST HE S ncx
l

;

rus SEEK COUNT

;

ggruau"?o
COMMAND ROUTINE

iqsqsg

tllgllll!llllllllllllllllilllllilllll!lilllllllllllll‘lll!illllll

1960

TNL

1963

: lllllllllllIl!llllll!l!!llllllllllllilIllillllll!il!!llllllllli

1959

iggé

{32
1966

-2%5*
.LIST

{957

000

iggg

.SBTTL

1971

001

H lgllllllllilillillllI'II'llllll!llllllllll!llllll!llfllllill *
i

i::;g

-ENDC

IF B

1974
1375

$ llll!illl!llililllllllll!!illllll{lllllllll!l!lllllilliillllii!

iii
1

1
1
1
1
1
1
1

"hoé
LIST

000

§§§;q

0l
§o§3

-ENDC

016122

DRIVER: MOV

151%2 e

5S5
1

SSRREER
LGRS REEREE

1378
1
1

-NLIST
a PT

}377;
1

COMMON ENTRY TO THE RPO4/5/6 DRIVER

_—

016136 ag::

535

%8,
BEQ

g?
Blé

(RS)+,DPB+COMND ;

RO, RPOq

6gaosrnrus

;: *XER ENTRYTER BLOCK ADDRESS
ETE
: guiiT e CORPL

i;BR

IF HNOT
onSLETE
IF ERROR

.BIT? DPB#STRTUS :DT DH"? 0+0§R TERMINRTE ?
l

US ;DRIVE OFFLINE OR

016136

5?5

'BI 0
BBIT141BIT13!BITbe18

004004 3§§§§ 010000 016136
004014 032737 006000 016136.

gfie
BIT

; 1112 opa+sraru$an, IVE AFE ?
#BIT11!BITIO, opalsrnrus : UNCORRECTABLE PARITY ERROR ?

au;

1BR

SEQG 0039

CZRJICBO,

RPOM/S5/6 HERD

CZRICB.P11

-NOV-77

ALNMT

12:49

MACY!1 38(1cws)

9%9 001400 016136
000006

fié

gg{é
14

001000

2015

001403

se;gg

000006

gg}g

000137

001744

2029

001

gg§g

%é

175040

17:31

Pngs 38

/576

1T09!BI708, oreé rn* rxncout ON THIS DRIVE ?
:

YE&g&aOR DATA ERROR

5g.ns

CT ns FOR LOOP

8s:

a§R°R

10§:

iSs

§snon fés
ios

RROR 14

;

118

aanaLs

;c R r srsnr UNSAFE
;

Pnnxrv ERROR

'Tuane Txnsour

#SW09,
ISWR; LOOP ON

BEQ

118:

SEG 0040

OR iuoe.asun
|

§§“°“

9s:

DRIVER

EH‘

6S:

78:

5813

gg;

5§:

001000 175074

200

-NGV=-77

OMMON ENTRY TO THE

;BR

F NO

52.RS

iC 8

gr RS FOR LOOP

IMP

INIT

{RETURN YO USER

3’IIlllllllllllll!l!llllllll!llill!lllll!il!l!llltlllll!ililill!i

2023

-NLIST

5655
%

,'ll’llllllllll!llllillillli!lllll'llilillllllllll!il!llllilllillii}

'E%gi

2028

Ngn

250

000

%gé
2033

2034
20&5

Bl
.SBTTL

001

SUBROUTINES

FB
4tl!l!llllil!llll!llllliiiiliiililllllill’llllllfllillllllli!l!llll

2037

-NLIST

gg:?

,fitlll!llilil!Illlllllflllil!illllIi!llllllllllliillilil#lilillliil

‘RT6T

2042
2043

gg:g

LIST

000

-ENDC

204

228:2

ru S ROU

2049

58??
2062

2053

WILL

DETERM

F_THERE

IS A CLOCK ON THE

SYSTEM

3 né& é '!T WILL .y?ug THE VECTOR AND START THE CLOCK.

:
004 114

004116
122

010146

012701
011146

00OCOE

ST.CLK:

JSR

PC,a8ST.CLK

MOV

Rl -(SP)

RE TURN
MOV
MOY

SERRVEC+2, Rl
(R1),-(SP}

:SAVE Rl

:SAVE AND SETUP TIMEOUT VECTOR

RPOY/S/6 HE

cO4

MACYLL 38 i8Ro0T IS

p9at

0V
gga

818,

(R1)
LSADT
,ST.PCLK

MEQUT
g0
Tous
o
Timegy
zonnr T"i KWll-P

CMP
MOV
TST

2;)+,(R1)(SP)+

STACK
;i
T1
t"Eo
0 2s
:1s
THERE
A xuxx L’

(SP)+,(SP)+

;cLs
AN UP THE STACK

ALNMT
12:49

00S011l
1M

737
11

004200

18:

172163

004e3e

28:

38:

~NOV=77

000100
000020
014110

SR%

e
S

gi._

8805368

MOV

(SP)+. (R1)+

CHP

MOV

Hov
T.LCLK:

MOV
RTS

SRVCLK: MOV

JSR
RTI

(5P)+, (R1)+

(SP)+.R1
PC

ST.PCLK: MOV

ST LK

PAGE 41

3ifi'ST.LCLK

.
¥

hgkava
V42

:ilgkggxcs
'

RTS
b

W E]

1
000115

17:31

&Efl

MOV
RTS

MOV

LKV

B3O8 BLkeS

SEQG 0041

,ExiMT THE KWll-L

:RESTORE THE TIMEOUT VECTOR
;RESTORE Rl
:RETURN

;SETUP THE KMW11-P VECTOR

oMY
EN,
= COUNT
NT OQUN=, “MODE :i (REPEAT)" '
1
y«t‘[-‘ksag. QKN
;SETUP THE KW1l-L VECTOR

oxoo.aLxs

:START THE KWll-L
:RETURN

#16.,-(SP)

TIHE PER rxcx IN MILLISECONDS

PC, 3bRPTMR

nerunu

g; E SPED TIME
TER INTERRUPT

;ROUTINE TO GET DECIMAL KEYBORRD ENTRIES
:CALL
PC, GETNUM
M

GETNUM:
18:

004376

000060

——

200071

(SP),~(SP)

(SP)+,RO
RO, 6%

(RO)

2%:

7S
-(SP)

(RO)+,RI1

#’'0,R1

“g

#'9,R1
S
(SP)

(gPJ,-(SP)
(SP)
(SP)

PROVIDE SPACE FOR FIRST CHAR

et
Fo
éfii&
TER 'CR’ ?
CLE

‘

sgazeg.g':g §§§§§

—

004270

99._.,

NOMBER ENTERED, CONVERTED NUMBER ON THE STACK

2B8IRRZERS
(=)

B Bt Bt Pt et Pt Pt ot ot

[

nervnrR

s
~d

B34 344 3420 3B A A ER LRI 1o oo L

20SS

O4-NOV-

333 ggo8sseseseammes|
THE SINSPILIRH
FA TN

CZRICB. P11

(&)
OO0
m
wwon

CZRICBO,

S
{6
"8§
; MAK

CWQCTER

THIS CHARACTER

; IS
A DIGIT fiflEEN 089

;SaVE FOR LATER
; #8.

CZRJCBO,

RPO4/S/6 HEARD ALNMT

CZRICB.P11
O4-NOV-77 12:49
2111
g:g 062616
eli2

i
HE

[f)5 g

117

13 %%oa:E

§ixg

e e
Sxew
153

21
gi%

2129

Sig?

004406
004410

s
683401
732
012616
000207

001

2132

MACY1l 30(1046)

0O4-NOV-77

SUBROUTINES
ADD
BVS

4s:

g
7$:
8s:

PAGE 42

(SP)+, (SP)

%10.

.ovsmgu ISN’T “e‘

B
gxg

E0m,
g

SESRE
.oRF
T ALLOWED

MOV

noon

5i,tsh

(SP)+,2(SP)

Eikr

Y v e e st

TYPE
BR

goues

:
'CR’
mv AGAIN

001160

17:31

MOV
RTS

(SP)+, (SP)
PC

: ugstn:m“;g'newnn ADDRESS

RESTORE THE PC
i RETURN

.1F 8

t;;IIlllllll!!lllllllllilillilllllll!iliillll!!’!!Ifllliilllllllll

-NLIST

5133

‘LTSt

gi%

Hh:l!llllllllilil!illll!!lil!lil!llil!lillllllil!ll!ilfil!lliiilli

2137

-ENDR

3{338
2180

000

rL:rx«sxT:
3

Si:fi

.SBTTL

MACRO ROUTINES

5&:3

.SBTTL

ERROR HANDLER ROUTINE

2145
gi:’.g

001

.IF B
3 i;;llllllllll!llllilllli!il!li!iiillil!lilililllllili!fllllliillll

2148

Itu'fr

gigé

,“tllllllillllliiil!liIlflllilllll'lillIlillillll.llllllliili{lil!!i

Sie0

giga
2igg
2156

-BEET

000

s{gg

ngé

gigg
2163

it~

2165
21lEk

LIST

-ENDC
i¥THIS aourms uxu. INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
ngnvs T

eOR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

fNg
zooooassun.,.mo TYPE OUT THE PC OF THE ERROR INSTRUCTION
muo GO TO SERRTYP ON ERROR

m*: suxrcu OPTIONS PROVIDED BY THIS ROUTINE ARE:

58%3 é““"

§{
"E aooooaéun.'bs
J1IF aoooassun,.&suxo-

HALT

ON ERROR
muxa?r
Enngn TYPEOUTS
BELL ON ERROR

SEG 0042

OO0

ZRICBO,

ZRICB.P11
5157
168
2169
el
2171
2172
2173
21749
2175
21;;

MACY1l

RPON/S-

2188

2189
2190
2191
2192
2193
2194
219¢
2196
2187
2198
2199
2200
2201
2202
2203
2204
22
a2
2207
22
2209
221
2211
2212
2213
2214
2215
2216
2el?
2218
2219
2e20
2eel
2222

7:31

gt -NOV-??

ER ROUT

PAGE 43

NE lOOO&SSHR,.ISHOQIéF
8

ERROR

.IF NB <<MOV
nov

004414
00Y4

.ENDC
78:
174502

INCB
Q

.IF EQ

MOV

;

BIT

nov

xrr

004440

MOV

Yyay

4450
004456

1116
002
179434

001116
001114

DOY4EM
004472

020000

174446

CKSWR

;s TEST FOR CHANGE IN SOFT-SWR

R3,ATTN)>

SERFLG
78

33 SET THE snaon LAG
:DON’T LET THE anc GO TO ZERO

AT u

TSTNM, 3DISPLAY ,,oxsanv TEST NUMBER AND ERROR FLAG

INC

:SW10

ogxtxo.asun

gffi$¥Se L

;s INC THE ERROR COUNT

s sBELL ON ennon»

RING BELL
::couura$H§
NUMBER OF ERRORS

; ;GET ADDRESS OF ERROR INSTRUCTION

3£Pc
sxrsna : ;STRIP AND SAVE THE ERROR ITEM CODE

S 9 oaxr 3, aéua

JIFTF
.IF DF S4OCAT

LOOP ON ERROR

Rl onxvs> <MOV
5

oooassua

lgéoc e
INC

SEG 0043

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

ERROR
LIIF NE SSETUP&IOD

N12
¥ig

Doaua0
$176
£178 0432

2180
2181
2182
2183
2184
2185
2186
2187

30(1096

CMP
BHI

(SP), #1002

MOV
suB

4(SP),
82, SE

; ;SKIP TYPEOUT IF SET
:1SKIP TYPEOUTS

E
TURN PC LESS THAN 1002
IS ILLEGAL TRAP
nno

; ; PROCESS UNEXPECTED TRAP OR xurth
SERRPC

TYPE
¥¥$2°'

ébs
(3 ngpc

,,TYPE HERDER
PITYPE PC AT TIME OF ERROR

suB

k4,(sP

::GET FALSE TRAP VECTOR ADDR

ég:)+ (SP)+

; ;POP FALSE TRAP VECTOR PC3ADDR

scx%
Eggx

<200>'PC= '
*"
UMEXPECTED TRAP TO

RPC
;zggcr s§'

MOV

108:
118:
12%:

Oflé

DOY474

00473T
0oe

ool

004s20

.IF NB

suoc

T Pg AT TIME OF FALSE TRAP
PC

.ENDC
SERRTYP

JIFT
IF B senn;vp

)

sennpc

PC,SERRTYP

::G0 TO USER ERROR ROUTINE

TYPOCT SERRPC ¢ERROR ADDRESS>

SERIERCp
PO BUSNER
S, 2 e
BBYERLZER=EBBNRR

fururunn

2223
eeY

004S00
00O4S04

104401

000

00116l

001

O4-NOV=77 Né7=31
MACY1l 3gé£ows)
OR HANDLER ROUTI
TYPE
.ENDC
208:
.IF DF sng$§

aaasc

000

vor

00S777

174430

c
BNE

SAPTENV, SENV
2s

Jgn

PC,SATYY

SITEMB, 218

.BYTE
-BYTE

0
g

.ir NE s§unaxooooo

JSWR
ST
3s
BPL
HALT
.1IF NE SSETUP3100,

2s:

.IF NE SSWR81000

3s:
4§
i
oc4s1e

00!
002

BIT

000

; ;APT ERROR LOOP

OR
;;HALT ON
::SKIP IF CONTINUE
:HALT ON ERROR!
:; TEST FOR CHANGE IN SOFT-SWR

:;LOOP ON ERROR SWITCH SET?

i’

“?Roéz NONE

TST

MOV

SESCAPE

ESCAPE, (SP)

BIT

BEQG
MOV

18T

BEQ

MOV

. SWO9

#BIT09, ISUR
PERR, (SP)
4$

SCAPE

SESCAPE, (SP)

BNE
HALT

: ICHECK FOR AN ESCAPE ADDRESS
:iFU

RETURN ADDRESS FOR ESCAPE

; ;LOOP_ON ERROR?

;;PR IF NO
: :FUDGE RETURN FOR LOOPING

:CHECK FOR AN ESCAPE ARDDRESS

:'BR _IF NONE

: 'FUDGE RETURN ADDRESS FOR ESCAPE

.BITO4--(.SEOP)

#SENDAD, d#42

RTI

.IFF
.IRP LASTIN, O
.ENDM
ENDC

: iREPORT FATAL ERROR TO ARPT

BEQ

cCHP

O04Ele

- SW09

;;ssfogrsn NUMBER AS ERROR NUMBER

;;gfl IF NO
'FUDGE RETURN FOR LOOPING
:

.IF NE SSETUP320

6%:
.ENDC
F B O

CKSWR

; ;RUNNING IN_APT MODE
:INO,SKIP APT ERROR REPORT

b)
SLPERR, (SP)

. IFF
e3:
.ENDC
-ENDC

coc
001
00000e

SEC 0044

BEQ
MOV

-IF NE SSWR31000

:SW1S

#BIT09, A5UR

. IFF
39:
.ENDC
CIFF

2s:

PRGE 44

, SCRLF

MOVE

218:

FOu4

;;ACT-11 AUTO-ACCEPT?
: 'BRANCH IF NO
;3 YES

; s RETURN

Lastin

"IIF NDF SERTTL,SERTTL:

"11F EG .-SERTT(,SERTTL:

LWORD

: ;ERROR COUNT

CZRICBO,

RPOY/S

ALNMT

CERICBBIT O BU=NOV-F7 TB- 49
2279
2280
2281

2282

g
2286

ggg;

gggg

Q4-NOV-77

ERAORHANDLER ROUTINE

GO4

PAGE 4§

E NOF STSTMM, STSTMI:
fi
mlu n?

.BYTE

mgc
L

?'x?cwr

SITEMB:

H; %.

%éé: .RSCII "7~

LL:

HF F&r =

ggg‘g

gggg
2301

ZHF %r'
Zgr ;:2

gggg

.SBTTL

2302

S11F

004

.BYTE

2§lrIE'%F
'fxr m’
J11F EQ

ggg

ggg“?

17:31

. C !iigc
I
ECRSE

-l

2294

30(1046)

000

2289
553?

MACY1l

is,

.ASCIZ

$1TEMB:

t‘sc LF:
# SLF:

.EVEN

LWORD

; ; TEST NUMBER

; ;ESCAPE ON ERROR ADDRESS

:;LAST ERROR INSTRUCTION EXECUTE

; ;ERROR FLAG

<207>¢377:¢<377> ;:;ASCII CODE FOR BELL
.WORD

.ARSCII
.RSCIZ

SEG 00ME

<15
U2

:; ITEM BYTE

: ;GUESTION MARK

: : CARRAIGE RETURN
: ; LINEFEED

ERROR MESSAGE TYPEOUT ROUTINE

; ;E;elllillliililllliilililll!llllllillilllillll!il!llliiliilii!i

'u.x T

ggié

,h:llllillllillIllllillillilliiilllfil!lllfiilllll!l!llilillillli!l

2213

Sgig

000

2216

Erl&

(¥THIS nouv NE us S THE

2317

iERROR

gg{g

2320 004520

#AND aepoms

%3355

004520

604401

001161

2324

004530

153700

001114

2223

afi

004534

001004

SERRTYP:

"ITEM CONTROL BYTETM

PORTED. IT THEN OBTAINS,

*scn%gp

BISB

aosn:na RO

BNE

TO DETERMINE WHICH

ue APPROPRIATE INFORMATION CONCERNING THE ERROR.

;gcc

CLR

(SITEMB)

FROM THE “ERROR TABLETM (SERRTB),

.,"cmmce RETURN" 8 "LINE FEED"

;gcmp THE ITEM INDEX

;r pET?' Ngnecn %s zeno JusT

5327 OO4S3& 013746 001116
2328
gggg 0O4SH2 magng

.1IF NB <snnon RDDRESS! ,

MOV
e YPOC

SERRPC, - (SP)

:'SAVE SERRPC FOR TV our
RROR ADDRESS
; ;G0 TYPE--OCTAL ascmm’.i DIGITS)

gggé

.xrr

:;GET OUT

)

108

::GET OUT

23323
2334

(004S44

00044E

oog

.ENDC

CZRJCBO,

RPO4-S/6 HERD ALNMT

CZRICB.P11L

ON-NOV-77 12:49

MACY11 30(1046)
18:

5 g

B E R
1

oo.er
S&E?g
2341 oousg§ ooxugu
55‘33 8327
53-04
574 6@306
ug; usé
345 fig&o ééeo

345
aawg

D046 1

04401
%&?8
600006
gaw 004612 muggi 001161

gggé

2353

28:

3s:

5§

59
gaage

78:

55325

8s:

5380

2363

2364

004616

. IFF

01014

5§:

§362 DBouess BATaT:
368
Oouese 105730
2369 004630
1003

68 <

23;0 004632 8?31»5
gg;é oousg mwg
2374 oo%“uo ggg

DO4EM0

013146

004642

10440S

g%&
804646 D014
380 0046
104401
5:348

004654 000764

2383

004S&

2384
2385
2389
ggeee
2263
2390

DO4660
004
004E
0046

:
78:
.

012601

012600
104401
000207
gggg;g
~

000

S
MOV
gsg
uo§o
TYPE
MOV
oo

8:
9%:

001161

000

PAGE 46

R
R

35 gte
on 4g
la

108:

118:
JENDC

"SBTTL

SEG OOYe

X SO THAT IT WILL
Hleh
PO: ;ADJUST THE HORENERER

s
KUP Snos E * POINTER
::P
?( TYPEOUT F NO POINTER
NETE:E GOES che
'
ii%
5 cx
u&
NE
F
xmsn
age
1

::"oS?n
590%-'
PB?'QER
GOES HE
CARRIAGE
8 "LINE reso"

MOV

;gm,RO

;;Escxu’~9amrogz.c" POINTER

;}rgs

pscuru.lf

,."cmmcc RETURN" & "LINE FEED"

noE vE

(SP)+ R0

TYPOCT Q(RO)+
,‘,§°’
25

S
.geg’x‘z ’

MOV

By
e
BNE

MOV
;;koc

S oo r(sc):v

004670

17:31

4s:o & TYPE
LWORD O,SCRLF
6S:

gggg

04-NOV-77

ERROR MESSAGE TYPEOUT ROUTINE

TvPDS

B8
YPE

: 'RESTORE RO

,,T
uelgEunaem
1é"rcnec&o“#

"I*"‘ SIS p—

::TWO(2) SPACES

R1,-(SP)

; ;SAVE Rl

3(R1)+,-(SP)
-

::SAVE A(RI)+ FOR TYPEOUT
::G0 TYPEi-0CTAL ASCII(ALL DIGITS)

(R1)+,-(SP)

;;SAVE @(R1)+ FOR TYPEOUT

0N
(RO
78

éfi“

;iR kP o OBATR TOBE TYPED|
{iEICKUP_
"pATA FORMAT: POINTER
:IBR IF DECIMAL

.,co TYPEL-DECIMAL ASCII WITH SIGN

PR RN-

;,rvpc TWO(2) SPACES

: 1 LOOP

MOV

(SP)+,R]

,,RES ORE
R

MOV
TYPE
RTS
23&3‘2

(5P)+ RO
SCRLF
PC
i

TYPE ROUTINE

..nss ORE RO
“CARRIAGE RETURN" 8 "LINE FEED"
! RE TURN
,,moca) SPACES

RPO4-S/6 HERD_ALNMT
P11l
04-NOV-77 12:49

0
IV TV Ia W g Y] ;‘
TERPYYoy Py PP PP PP YRR e U P LAV LAV IV IV
A
Rt
D
OO0
£ Wwh—-0
F eyt Aory
BB B
Ve
R B BD NN £ WO 25RR2BR008ESRREEE
SO

258R9999990
00
QO
£L

OO0

n
£
pe
o«

17:31

104

PAGE 47

SEG 0047

0ol

lll!lllllll!llllill!!lill.llllllllliI!lili!ll}ililllii!l!lllllf

NLIST

Ill!li’l!llll!Il'llllIll!lllllllllllllll!ll!l!l!llllllllillil!i
T

.%g

LIST
.ENDC

00c

; #ROUTINE
TO TYPE RSCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

lTH$ROUTINE WILL INSERT A NUH?ER OF NUL# CHARACTERS AFTER A LINE FEED.
ngLL CONTAINS THE CHARACTER TO BE USED RS THE FILLER CHARACTER.
E
;iNOT 2:
ILLS CONTRINS THE NUMBER OF FILLER CHARACTERS REGUIRED.
; *NOTE3:

SFILLC CONTRAINS THE CHRRACTER TO FILL AFTER.

:
#CALLUSING
s;#1)
A TRAP INSTRUCTION

;lOR
"
001157

2
e4e3
e4

000002

’

; sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

s¥

MESRDR

STYPE:

TSTB
BPL

STPFLG
18

;31S THERE A TERMINAL?
;3BR IF YES

18:

MOV

33 -(SPnn

GVE
; ik

FEE I

61%:

——

a\l FERRBERS
RO
3
oL

NNNNNNNNNN

628:

746

000002
000011

000200

608:

38:

4s:

.,HRL

HERE IF NO TERMINAL

..csr aooness OF ASCIZ STRING

géaa

SAPTENV,
:.58"23 cxron'cc§ CONSOLE
628
m:rspou. SENVM

MOV

2A¥

SENV

04-NOV-77
MACY11l 3 (IEHSOUTI

JSR
. WORD

BITB

onnooaess
consE OR APT

SED

cous

onprcsup SENVM

S, SKIP
CHARAC

BNE
MOVB

608
(RO)+,~(SP)
“§

(SP)+

(5P)+,RO

8258

u2, (SP)

ng,(SP)

usT neURN PC
..sg%
:IBRANCH IF <HT>

cnga

ggRLF,(SP)

; ;BRANCH IF NOT <CRLF>

BNE

TST

MOV

?sr

TYPE

SCRLF

(SP)+

rvpeo ONTO STACK

r 17 x rue 1: MINATOR

ERHNaroa POP IT OFF THE STACK

,.nss onc

:;POP_ <CR><LF> EQUIV

PITYPE A CR AND LF

CZRJCBO
CZRICB.
#u Sw-nov 7ALNMT
12:49
2447

5338

762

MACY11l 30(

Ag‘ ?..-NOV-77

005110

00S044

5§:

17:31

ClfiRB

gcmcm

%wu,-(sm

?sn

::332 A NUL
krtso70 BE TYPED?
Wil Wr @ s
[ AB
A b AS
5920
::ES NOT
COUNT
couw
;00

g:su %gggg 6825
000001
00SO4M4
H oosommxg 004737
005110
1053%
a*os“?
s:gg 00S01&6 0007

78:

DECB
?gfa
DECB

aa:g?

:HORIZONTAL TRB PROCESSOR

2462
112716 000040
5044
5323 ggggza-a oowg;
%oow
1327
<
1372
2465 005036

8s:
9§:

005110

MOVB
JSR
BiTe
BNE

Si63 00SOus ios;?'
000754 174100
gR
$TYPEC: ggza
RovB
174072
D0S052 116677
CMPB
g% DOS06C 652542,; 000015 000002
éfl'fia
70 méom 005110
223;4
2478
glzag

Sige
2483

005110
005112

0000

000207

$CHARCNT : . WORD
STYPEX: RTS

aSTPB
B(LP)
#CR, 21SP)
To;gg)c(m

,;gmtsn CARRIAGE RETU

-HE
Zgr NoF IE-iiz
R’ CR= ik
1§
R

'37

ggg

1 ;

gg;

Z* ; %.;*T

;?T 5:

1';

L&, STPFLG:

g:gg
g:g?
g:gg
ggg
2'42(7:

gggg
gggg
2502

1000 REXT
CHARACTER
PRINTER IS RERDY
UNTIL
:WAIT

; 1LOAD CHAR TO BE TYPED INTO DATA REG.
sv§s--c AR CHARACTER COUNT

::Bgmrsgsn LINE FEED?
# i COUNT HE CHRRACTER
: :CHARACTER

.WORD

COUNT STORAGE

i1: :CODE
GOBE FOR
ZoNre-RETURN
T8
FOR’..‘?"
CARRIAGE

: ;CODE FOR CARRIAGE RETURN-LINE FEED

200

. F sflgr .-ST g'r’gel_
WORD
:‘;F EQ . ;2"‘-& ts BYTE
S ; ) #} .L.ts 'ftlés
e‘,} t c:
t’F

;

; ; LOOP

;;,TYPE
sREPLACE
_TRB WITH SPACE
A SPACE
uosr NOT AT
gn
HHF@ T

;%FpE;(SP)
(PC)+

cnga
INCB

Eizss 000012 000002 1S:
gqu %%3 t13%23
24;9 005106 wsag;

1iGET uTn'_‘orMLL'E'Smgmns NEEDED

8’ ,(SP)
Pc,azsc
CNT
.7,
33

2
ag;ggc

z%g

COUNT
;.cu;m cmgacrsn

1(SP)
TYPEC
;cA&acr&

gzza

MOV

SEG 004e

.;co ’x‘s
T Imxg
5
?
OR ;;uéfimcmns
;;}g

£S:

001154

PRGE 48

PC,STYPEC
FiLLC, (SP)+

gg %;93 észgg‘s 001156

guse 004774 013

JO4

177584

177566
O
.BYTE 2
.BYTE 12
.BYTE

szgétugé: LASCII TM7~

; EQ oS &schr LASCII <15
1IF EQ .-u# $LF:
LRSCIZ &

:; TTY PRINTER STATUS REG. ADDRESS

;s TTY PRINTER BUFFER REG. ADDRESS
: ;CONTAINS NULL CHARACTER FOR FILLS
; ;CONTAINS # OF FILLER CHRRACTER
: s INSERT FILL CHARS. AFTER A "LI
; ;" TERMINAL. AVAILABLE" FLAG (BIT

: sQUESTION MARK

; ;CARRAIGE RETURN
: ; LINEFEED

CZRICBO,

RPO4/S/6 HERAD ALNMT

CZRICB.P11

DN4-NOV-77 12:49

MACY1l 30(1046)

04-NOV-77

TYPE ROUTINE

2503

.I1IF NE 18.

sggg

.SBTTL

2506

001

17:31

KO4

PAGE 49

SEG 0049

.EVEN

BINARY TO OCTAL (ASCII) AND TYPE

JIF B

6 i;;lllllllllil!ll.!lllllllllllillll!llllll!lillllll!ll’illlllll!

2509

:NL;?Y

ggi?
gsSig

;i{l;g;ll!li!!lllllll!lllllll!l&llfillllllll!!!llllll!l!lill!lillli

'E§ST

2514
2515
zsx;
251
2518
2519

-ENDR
.LIST
-ENDC
;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
:#0CTAL (ASCII) NUMBER AND TYPE IT.
;:g‘r{tos---smsa HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

000

2521

2522
2523

‘¥
ta

" mov

TYPOS
.BYTE

; sNUMBER TO BE TYPED

:iCALL_FOR TYPEOUT
iiN=I T0 3 FOR NUMBER OF DIGITS TO TYPE

g25d
esag

es_)a'saea“a

;:g;ggg-aa-grgggcuens TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

2530
2531
222335
2534

: #CALL:
TE
MOV
NUM, - (SP)
: sNUMBER TO BE TYPED
*
TYPON
::CALL FOR TYPEOUT
;:g&_vpocl_ ---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

g537
2639

114

gué

%153

0176

2540 %és 115539 %833? 005337
12637

5245
13
0864
2544 %133 115;37
2545

146

112737

ggg;

%{ss;

6{&;37

2548

00S16M

gxows

gs
25
53
£

i?u
1

..83
704
110437
137

254

10546

é&

2cce

0004049

£225 D02558

OoeioE

NUM, - (SP)

0006

00534

005336

R TO BE TYPED

MOVB

3(SP),-(SP)

1( ):2

ZERO FILL SWITCH

S5 ¢PoN
#1,S0FIL

RONRIUS
;3SET T

ST o
ERO FILL SWITCH

TERATION COUNT

STYPON: ggga

MOV

(

"p OMODE + 1

86,

33. ?gg)

1iSET F

\r'E TR

IX(b) DIGITS

gghoo +1,RY
86, RY
RY SOMODE
SOfgbL,RH

::GET THE
NUMBER OF DIGITS TO TYPE
: ;SUBTRACT IT FOR MAX. ALLOWED
1iSAVE IT FOR USE
”3?7 THE z&;ao FILL SWITCH

e
HEB INTO mCorD

MOV

52‘

;;%mgn 82 oacns T0 TYPE

: :SAVE RY

RS -(Em

::CALL FOR TYPEOUT
: sPICKUP THE MODE

R4, -(SP)

MOV

ngxa
ADD
MOVB
MOVB

18:

EADING ZERO

NUM, -(SP)

MOVB

00S341
8880""
340
Bgs 37

§56=s$§nkss LEADING %EROS

‘¥
TYPOC
$TYPOS: MOV

BR
1 005337 S$TYPOC: noxg

00000S

) .RS

: :SAVE R

¥ cggp THE

::GO DO MSB

INPUT NUMBER

sgzg

AT BanOv-F
g

0052 >

MOV IARRY

177770

gg
g?fl
§7s
g278

334

l?
TS

4
A4

o£7777o.n3

&
(SP)+,RS
MOV
(gs)t,flfl
MOV
(SP)+,R3

000004

MOV

gg\xf

aggm,uégm
(SP)+, (SP)

;3GET
LSB OFDIGIT?
THIS DIGIT
gg?spgjnss

;Egr
n;oon?
OF JUNK
¥
T

s;iMAKE
ign I%THslfémi
ANYMORE 0°’S
? D ?T ASCI]
: MAK ngs Y; NOT ALREADY
i¥ ROV fiv
Pe THIS BIGIT
1 8 1F % o
i

L
;6 §T
s
T
H

;3SET

A -n;r

HIS 0?

ST RICh ol
R4
R3

’

THE STRCK FOR RETURNING

: ¥¥
8
;E'fls xmr&mr§c¥$£xg&nns
o, BT ¢
SETAL
BIETL, S
SOHOPE: GONVERT BINARY TO DECIMAL'
AND TYPE ROUTINE '© ''TE
001

JIF

3 ;;:!Illlllll!l!l’llllllllilllilllil.llllll!illlllliillllillllill
:NLI?‘T

'figr

; o 36 3 30 36 45 36 36 36 3 36 36 4 45 36 3 36 3 3 36 3% 3 48 35 36 3 36 3 45 3% 3 3 6 3% 3 36 36 3 36 36 3% 3 36 36 30 46 3% 3 36 36 4 3% 36 3% 36 46 4 3 % 3% 3 % B

2603
2604
g?os
506

noo

2607

¢
; #THIS ROUTINE IS
; #S]
E
cl
(
tx
9? r;

52'33

#BEF

"
e
005342

D0S342

010046

D TO CHANGE R x?-an gmmv NUMBER TO A 5-DIGIT
)
R _AND
va
. DEPENDING ON WHETHER THE
VE A
SPAC
A nxng ogxc« WILL BE TYPED

é IT

NUM, - (SP)

;;PgT m;
1:G60 TO

RO, -(SP)

:;PUSH RO ON STACK

;'Cn&ncso WITH

2610
%E{é
2614

S§’"’
;gnoos

MOV

6S:

000002

RoL

aEN?:
]#'0,R
515
BIS
*'R
bga 2RatésNT
§§r sgc

78:

p—

: ;FORM THIS DIGIT

DECB

5§

005336

' gg

000060

2613

3s:;

005340

257
;é

1070 TAL (Ascils Ano TrPE "

2s:

[]

LO4

$TYPDS:

MOV

THE m&n.

ADING 2

WILL ALWAYS BE

INARY NUMBER ON THE STACK
ROUTINE

CZRICBO, RPO4/S/6 HEAD ALNMT
CZRICB.P11
ON-NOV-77 12:49

MACY11 30(1046)

010146
1

2615
!

gfi

553
gzé
gg

1
11

16001 0OSS46
105

2628

8F Bt o

o B

es:

.
3s:

1 0

Eé

M
46

0004
00

gé

515555 883002 000004

PRAGE SI

:
B
‘gou.x R3
Hou
& , (R3)+
moye
oL

MOV
sug

SOTBL(RO),RI
RiRS

N B

BETPRE. st
o
.
457 000010

1
1

MO4

MOV
nov

gg? fi i 5 1772777 177776 o
@ égg
-~

2655

17:31

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

S —
o
005556
000040

O4-NOV-7?7

§§§° ?(8”—
Rove a&ué“
é? R0. 810

1S g s1on
o
Bk
g g B wen 2o
§ G THE Ot £UT INTER
TER TO A BLANK
HH J’f'Ex
i

THE CONSTAN
.,rom Yh1€%820 DIcIT

ME BCD DIGIT BY 1

s=§ .,* e de e

%{flzjfi"rASCII
O1SCRARRCTER TN THEGUTPUT BUFFER
5‘%‘:‘? Im'%%”¥ X

has
0_RSC

%L;; : (;;) -2(R3) "g;IP,‘MLs;T:?:Iz :::;:Ro,
gbv fé3;+,ns
;;iTik N*O Rga
’

MOVv (gp)+IR1
(SR

gmcxgmo
]
tipOP
2TACK INTO RR

MOV
MOV

(SP)+,R
(SP)+,

; ;POP
; ;POP

MOV

2(SP),4(SP)

::ROJUSTP%'E'ETRCK

RYT
SPMe,
SDTBL: méoo.

SDBLK:
$1.
ROUTINE
SOBYSE +7V%NeuT
.IF
B

;iPUSH R1 ON STACK
g g}ncx
i

::G0

‘68’

STACK
STACK

INTO 23
INTO

:RETURN TO USER
ohe

SEG 00S1

CZRJCBO,

RPO4/5/6 !C@ ALNMT

CZRJ cB.P11

O4-NOV-77 7 12:49

MACY11 Q(IO‘OB)

04-NOV-77

TY INPUT ROUTINE

17:31

NO4

PRAGE S2

SEG 00S2

g;é

I!!lll!l!llll!llllllll!llllllll!lllllllllll!l!llill!llllflll!lll’

£
26779

w
H'llllllillllllllllllllllllllllllll*llllillll!lllll!l!llilllllllll

5279
79
ggeo

-E
.LIST

000

2681

sggg

grEQ

aseues
g&a&7
566 001
D000
(0578 oonom3
e3‘1’ 005574
gg
005572

sms srxs

rxéfir
.-

.WORD

sgnce $TKB:
rxcu : .
e
.BLKB 7
.IXEE{S<.81>,.EVEN

(000000

177560

;;TTY KBD STATUS

.MORD 177582

;;TTY KBD BUFFER
or xrsns IN QUEUE
eBImtch
INeT
i
EYBOARD QUEUE

..ogwur POIN ER

e ae
ggs?

KEY“'"'Evsomo ?usrsnnupr
TTYON
ALIZE
flfi gngrmi'és
zsnoTHE"URN
TOR
HE INTEW iuxr

£699
€700

e
i®

173272

;

6033%
012777
2
1

;,%

002572

12737

715

TST

"?s

%9063 oh(VEC+2
T® 8TKS

& ,
éoo

VE T

fl?ORESS OF
TARTING
YU -3 03 EUT POINTERS.
0 ;g .I(
"]

YBOARD 1 INTERRUPT
h
; 508
TURN TO Cfl.
LER

ur ig
“CONTROL-C*
(4C) STKINTRESTART
IS CALLED
AND (START1)
ADDRESS
TO THE "CONTROL-C*
URN Ex s Amoz

002

%;% %2:‘;50

MOV
MO

00006

“Hb "Sl.NT OF ITEMS IN UE

ofrx STKO*N

'nnxg fi
RVICEéfi rnon
THE THE
TTY KEYBOARD
INTERRUPT
AND PUTTING
INPUT aur}sn
"§ux Emzsc
3&'
-wv

2716
g;ié

MOV

000060
2

g;ia
720

- gnTURN PC, STKINT

70 $TKINT: cLRv

i
o

EEREER

2708
g708 00SeM4
006
g%i?
712

;lcm :

2698

2701

11774

173266

eng 177600

g7e3 Doseed 021

000003

g;g oossrg 104401 006773

005676 004737 005604

"trksnv: MOVB

" sg‘x.gn
CHP

?35:

JSR

aSTKB,

- (SP)

ucng,(sm
(5P), 43

PC,STKINT
SCNTLC

;PICKUP THE cmnncrsn

:. *nxp THE J

1T R CONTROL C?
éz

YP orme-c (1C)
33INIT
TPE KEYBOARD

SSIRARRRRN vy 3

EERIEe11

\PQ}
HES

% ROR

C4-NOV-

MACY1l 3?(1046)

ALNMT
12:49

04-NOV-77

TY INPUT ROUTINE
TST

001460

.E NDC

001140
.ENDC

BEQ

17:31

BOS

PRGE S3

(?P)o

START]

EF NE SSETUP&IOO

000007
000176

JMP

343

RPO4/S/6 HE

), 87

G, SWR

SEG 0CS3

..Cbfl UP _STACK

sCONTROL C RESTART

;

..és
IT 2] EONTROL G?
Gg §0FSNSHR
SEtECTED’

IIF NE

TUPS1
xfr EQ igrwsxgfi
‘KCNT
8§

000007
006767

TST

3s:

000023
173164

318:

173156

17%152

BNE
?g"
T

1518

Rov
MOV
BIC

000100

2R
CMP

328:

570

005603

00SS74

00ss7C

Ss:

.ENDC

823

I.c’L(l-x:T cmmc'rgsGFF OF STACK
iRI

i3IS

TKS

(SP)+

TKS

iK;’-(g)
(SP)
';';Sl

:(’1 )+, k21

INC
CMP
BLY

STKCNT
(SP), 8140
4

BGT

énc
MP

; o{fi
TKQIN osrxosuo

CMP

4s:

5
(SP),

cCMP

295vi

173130

{tspr+

YHE OUEUE FuLL®

MCVB
BIC

Rov
MOV
RTI

oxao.asms
(

H
::

),0175

IT A (SONTROL-S?
NO

X og‘%v oggm INTERRUPTS

TI.NT;L szrTfa‘“
T'iz 81T ngcp
fongroL-d
é TTY KEYBOARD INTERRUPTS

l@"w&flcmmgrsn

£ YE AL CHAR?

( $+asrxom

HE POINTER
9% TKQSRT, STKQIN;ggSET
RETURN

%F sE SSETUPS100
.lll'l!lll!il*llllliiiIllilllll!llll!iII!'*!IG!!'*!!I!'!!!’*!!l

NLIST
R PT
Illliililiil!.l.lllliillliIlil!Ill!iliilliillllllill{iilil!llil

'!«.

CZRJCBO,
CZRJCB.

RPO4-S/6 HEAD ALNMT
O4-NOV-77 12:49

MACY1l 39(xous)
04-NOV-?7
TY INPUT ROUTINE

0
N

Jbee
)

o3 <

88
83 -

Efi‘é’s’fii@g

173036
177;Eg§
60000

COS

PAGE S4

SEQG 00S4

BIPIERSR avo

fi: u*:cCMPu"faesg
000176 001140 va
o
9”59
noba
BIC
CMP

xnTTY xms i
%gg:
P SELECTED
S[
E
T-SWR

g#xs
asrx
oe¢19?

i A gunn unxrxuc’
e,
BT
";SKE
IT
7-BIT RSCII
..xsIT A CONTROL-G?

x
g tr PUT IT IN THE TTY QUEUE

IF B

oe3

iafl

17:31

;i:;lllll!l.!Illl!illlll!llllli!lllli!!l!lllllllllll!l'lllllil!li

2799

g;v

IlllllllIll!lllllill!lllillllli!!l!llllllllllllli!llllll!*llill

'fiL

Lrer

'c
001134

000001

TROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

TAGL-G 6E THG %cfi“““?é“&o?”&’iuircu
REcf2tEn B8sha"seLEcreo.”
iLE

606001 001135
:n T

BRD RN
N RN

S?NTRG
sl,

AUTO-MODE?

-G OF F STRCK

ERRLPTMJIC‘QTOR

E;$"“§°E§"" v

I:Ee §

839u2§XN SOF T

]

WILL

Qu?#gu 3£cxsrsn TRAP CALL

,Eg Tlf‘ ?gf'r‘asun SELECTED”?

5853
BIC
CMP
QQSB
nm

BEQ
——

rronn
R
K ~

ron

HbVB

R?fl
S

00700S

087012
000176

VIFTF

TYPE

$GTSWR: TYPE
i MOV

? (s )
09C197
P)
07‘(5P54
izuroe.ox

gs NO ;Eou'r WAIT AROUND
::srxfpF ¥h£ RSCI1
;1S IT ?gfifi:}%OL
29
1
55
ING IN ARUTO-MODE?

SCNTLG

; ;ECHO fis CONTROL-G ($G)

&LUREG, - (SP)

158

-2

; s CHAR

THERE

: iBRANCH IF YES

,.rvpg CURRENT CONTENTS

suaec FOR TYPEOUT

CZRICBO,

RPOM/S/6 HERD ALNMT

CZRICB.P11
2839

g:;
ge
9

i
8
%
%

ees“csa
Eé
aesi

2863
2864
2865

O4-NOV-77 12:49

i;‘;

:8?

MACY1l 30(1046)

0O4-NOV-?7

17:31

mggc

TTY INPUT ROUTINE

198:
78:

172734

CLS
Egra
L

MOVB
BIC

&ms 172730
2716 17;500

oo
iect
04401 006773
1 :29 11 000001
000100 172666
3.2899;
% 001460
%i 7 000025

623 1 007000
000006
000737

.IF NB STARTI

gr’woc

;
9s:

12'5;;
gfixs

asrxg -(SP)
$1C177, (5P)

gzg

{3;"'35

;;gmzéflnlgo%?ou.-u»

208:

TYPE
ADD
ER

)

cMP

SCNTLU
SP
ke,
194

118
ot 148:

%
RLF
rzs é(gpsg.asun

172572 —

gg}/

aeg
aeeé

000001

168:

S&
S{%
2868
2689

2890

178:

et2

18%:

2859
s

;s PICK CHAR ASCII
(IMAKE IT 7-BIT

o
)
;Eaanu‘gal.sjrv KEYBOARD INTERRUPTS?
INTERRUPTS
tALLOW 7¥v %vgomo
:: :CONTROL-C
RESTART

g%é
2874
ggg

Esz AR E TE
iiC NOTHERE?
TRY AGARIN
IF
;3

I
SCNTLC
gfi?:c.n
#100, 3STKS
sTARt!

108:

2870

: ;60 m;s;_agcmh 238”‘“"“ DIGITS)

A
TYPE
gfiga
MOV
JMP

286

PAGE SS

sgi

JSR

CHP
BLTY
Cg’;

(SP), 815

168

4isP)

f rgmc,u

£100, 3STKS

pgksrvpec
(SP), 860
123

iB ), 867

1iYE A“slc”r,oo gggzno:.-c (1C)

:IYES cugsc mosi-u (tu)
P vi"ous NPUT
;;mubnE
::LET’S TRY IT AGAIN

Is 11 8 <CR>?

:: 18

:BRANCHIs IF1T _NO
THE FIRST CHAR?

\E'Em"“
AND <LF>
<5>f STACK
HHi%i “8
'T‘s}r KBD INTERRUPTS?
RE-ENR
i

;LERN'QBL: TTY KBD INTERRUPTS

EEE HO CHAR

: :CHAR < ??
::BRANCH IF YES
,,CHN? .)" 7F',' .

I1C
ASL
ASL
ASL
INC

osa (SP)+
(SP)
(5P)
(5P)
2(SP)

;;g?gx‘g-olr nggu
:iNO, SH 51 SENT
i: Soon
mfi OVER
TO MAKE
FOR
NEW
ONE.
;;ggp COUNT OF CHAR

?vps
BR

QUES
208

>
?(CR><LF
PITYPE
CONTROL-U
: :SIMULATE

a'xas

;i(SP).(SP)

iSET
%fie"‘.é&?“‘éfie
ii

SEG 00SS

CZRJCBO,

RPO4/S/6 HERD ALNMT

CZRICB.P11

U4-NOV-77 12:49

MACY11 3?(10“6)
O4-NOV-77
TY INPUT ROUTINE

001
00c

Isnoc

00!l

.DSRBL

17:31

EOS

PAGE S6
SEG 00cSe

LSB

lll!illll!Illl!ilil!illlllillllilllill!lllllll!l!llli!lllil!!ii

-NLIST

-ENDR

.LIST
-ENDC

00C
001

JEe

:Efifs ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

"IFT

Pt Bt Pt Pt P

DD DO

DD
D

s Pt Pt Pt Pt

i¥Bt:nnxnnunnuarunnu

OO NN LW~
0w

fitéllllii!!llllliillll&lll!Ill!!ll!lill!!lllll!llll!llll!lllll!!

294

2943
290

‘?rr

RDCHR

;;GET A CHARACTER FROM THE QUEUE

E;rrr

RDCHR

:; INPUT A SINGLE CHARACTER FROM THE TTY

RETURN HERE

; ;CHARACTER IS ON THE STA

JIFT
§RDCHR:

MOV

011646
016666
S066
00e
00s046e

000004
COoooCH

000002

(SP),~(SP)

4(SP},2(sP)

CLR
4(SP)
.IF IDN <%0>,s0
i
CLR
-(SP)

.ENDC
g

MOV

%0, -(SP)

RTI

MOV

8648, -(SP)

18:

gga

$TKCNT

DEC

000004
00s603
0oss7e

MOV

agér
$RDCHR:
18:

§TKCNT

$PWITH PARITY BIT

srnxppeo

: ;PUSH DOWN THE PC AND

PITHE

:1GET

RERDY FOR A CHARACTER

; ;PUT NEW PS ON STACK

; ;PUT NEW PS ON STACK
;;PUT NEW PC ON

STACK

::POP NEW PC AND PS

;;WAIT ON A CHARACTER

;s DECREMENT THE COUNTER

MOVB

9STKQOUT,4(SP)

8STKQSRT, STKQOUT:R;SET fe's
HE POINTER
8

MOV
RTI

MOV

;;GET

ONE CHARACTER

KQOUT
$
;UPDATE THE POINTER
TKGOUT, #STKGEND'; ;010 IT
GO OFF OF THE END*

(SP),~(SP)

PUSH

DOWN THE PC

MOV

4(sP},2(sP)

,,snvs

MOVE

d$TKB,4(SP)

{'READ THE TTY

TSTB
BPL

OFF

JSTKS
18

HE 23

i i WAIT FOR
;A CHARACTER

6 HE Rg?RLNHT

EERIER .17 B4=-NOV295}
952
2353

MACY11 39(1045)
04-NOV-7?7
TY INPUT ROUTINE

BIC

CMP

BNE
TSTB

2s:

8325

L
MOVB

BIC
CHP
NE
R

3%:

PAGE 57
SEQ 0057

CfC(l??) 4(SP)

;;GET RID OF JUNK IF ANY

33
g TKS

9STKB, -(SP)

53
HOAF NO
;;uaa; FOR
A
CHARACTER
::LOOP
UNTIL
ITS THERE
1 :GET CHARACTER

::IF

4(SP), 823

8¢C177, (5P)
(SP)+, h21
1

“52 IT A CONTROL-S?

i
f 17 7-a¥r RASCII
Y ? T A CONTROL-Q?
::YES,

NOT

4(SP), #140

i:1S I

CHP

4(SP), %175

::1S IT

BGT
sxc

.ENDC
IF NB 7
- IFF
.NLI%T
$RDSZ=8
.LIST
-ENDC

FOS

CMP

BLTY

4§ :

17:31

4§

45
#40, 4(SP)

DISCARD IT

CASE?

.;annugu IF vs?

A SPECIAL CHAR?

,;aanncn IF YES
:IMAKE IT UPPER CASE

::GO BACK TO USER

'%F g $SRDSZ-1

; t;;llllllllliii!l!!li!Illlillllll!iilfllilllilll!l!lli!lll!lll!l!l

"NLIST

‘UTeT

sdlllllllll!!lll!l!l!lIiililllillll'lllillflllillil!l!il!liilii!l!i

ENDR

EIST

001

:gg&s ROUTINE WILL INPUT A STRING FROM THE TTY

TURN HERE

‘¥
01034&
02
00S046

012703
002

00&e760

006767

;3 INPUT A STRING FROM THE TTY

SS OF FIRST CHARACTER WILL

SRDLIN: MOV
LIF NB <X>
S
CLR

R3,-(SP)

: ;SAVE R3

-(SP)

: ;CLEAR THE RUBOUT KEY

.fé g O

$STTYIN,R3

; ;GET ADDRESS

é?ér

#STTYIN+B.,R3

;;BUFFER FULL?

égfioc

CMP

#STTYIN+7,R3

;;aurrsn FULL?

BLOS

ROCHR

R MOVB
IF

NB START!

(SP)+, (R3)

as on THE

,,TERHINRTOR WILL BE A BYTE OF ALL
O

fienoESonz CHARACTER FROM THE TTY

..cer CHARACTER

STACK

RPO4 /S

855388"3§
3007

NMT

-nov 7“&2:49

MACYii

?vpe

33882

.11F NB éfi\’/'

%ié
3013
g

%éo %2% 1127 'i' %o%aq 006756
weé 0065

3023 m
3024

612715 1797759
ggggg;

096E0e ig?aq
3056 &93
331
746
00661
.

3035

756
756

1 6%
57 1 0001
006

605015

68?7

-ENDC
(gr)wa
1??:Na
;
zgi

rrseg

6S:

006760

z 3

3023

JMP

;

%ig 006546 1227 000177
%ié %‘“’555 1%2

006756

5§:

000025

78:

%ix 000022

Pil
eess 128l GRUES
3043 006674 ooon%

gas oowég 104;01 007000

%% ooss::i 5

3040 % 1

mao%
3047
3048

0O4-NOV-?7

cn&pa

3010

30
3033

30(1046)

Qoee7e
0067

10440)
7

30-08 %;% i 131

001160

%‘x’ 00575 60 725 000015
3052 0067

17:31

3?Tv INPUT ROUTINE

MOV

GOS

:égma)

CNTLC

‘{g;” Ra(SP)#

#177, (R3)
5
E‘,%P’

;1S IT A RUBOUT
:;BR IF NO
¥ és mxao THE FIRST RUBOUT?

k-1, (sP)

..se THE RUBOUT KEY

(ng).es
q
2%

gsr
i3i TO m'sour THE DELETED CHAR.
momgg CHAR.
:1GO

#'\,98
t”

::%Pé
A BACK SLASH

o;a;.qs

EEE

;

CLR

(1C)
Ps:n comnou.-c
ému RUBOUT KEY OFF OF THE STACK

CONTROL-C RESTART
;;co?o

R3
5 ,4STTYIN

MO
TY

ég xrnnxgo%m.-c'

sTART!

DEC
grcg

MOVE
TYPE
BR

PAGE S8

)

SP)

A BACK SLASH

acxw
BY ONE
ncx smrvv

,,RUBOUTKEY SE

..cu:m

KEY

CHPB

ass,ma)

?3
Pz rzn CTRL u

8s:

g:ffips

ga,ma)

mmg Eo A “tR"?

1
BF

TYPE
BR

'snoc

?'fpe
CLRB

BNE

rrlev

CNTLU

(R3)

..a.gem nc CHARACTER

1P ICKUP
Dot
Srang
cuncrsn
ANOTHER
::co

:;SKIP IF NOT

QUES

(R3),9%

kiS, (R3)+

LBYTE

BNE

ngomnoL .

i TYPE A_*?7’
: :CLEAR THE aurren AND LOOP

E.zcuo THE CHARACTER
u:cx ron n:rum
LOOP

T RETURN

] Bere
1B T
%fm Sueour KEY FROM THE STACK
<X, t i (SP)+ iRl
LIIF NB L
7,
7
305?
oos;au
{u;% 000004 000002
583
f§p§ i(gm
!Z%?us
THE STACK
AND
PUT ADDRESS
OF THE
fie oosm&
%733 16666
MOV
4(sP},
2(SP)
i
FIRST
RSCII
CHARACTER
ON
IT
;
sSTTYIN, S(SP)
29\{
27% 006760 000004
3059
3E0t>E x: rmf;C
CE7'
30e2

00e7€7

000

9§:

‘BYTE

:STORAGE FOR ASCII CHAR. TO TYPE

: ,,rsnnmmon

SEG 0ose

SESJ'EBOM
1 Bq-nov
3063
3064

MACY1l 39{1046

00e760C

sr;gxn:

.BLKB

ié;gén- .BLKB

000CQ07
G031

I IF

17:31

UT ROUTINE
(P

IF B

002

04-NOV-77

NOF

HOS

PRAGE S9

: ;RESERVE 8 BYTES FOR TTY INPUT

; ;RESERVE 7 BYTES FOR TTY INPUT

SQUES:

g; figr
126535soucs- .RSCIT "7~

: ;QUESTION MARK

IF EQ .-SLF,SLF:

: :LINE FEED

" fF figr’ggnkf
sanr- LASCII <15
000
001
006767

885

177777

000

001

006773

oooo1i2

007008 O°°13¢ 802882
007012

1
0z2012e

00?023
7030

00S01S
Oe!

0833

036440
00l

o K
.11F

053523
000
047040
000040

0S3s0S

.RSCIZ

ART]

SNT Cc

CNTLL,

i
N
C "?c

T#C:

SCNTLC:

/7¢1S>¢1 )

CNTg Rgclf/f /7¢18>¢]

SMNEW:

JIF

RSCIZ

(lS)(lE)/sun =

.RSCIZ

up
o SA0T
os &Sflxoa

b-o-o—v—-o—-b—-o-v—o—-o—s—-»—v—-o—.-r—o—-o—v—og
8 8
L e e S Y Y S YS @ |
O LW
OWwBURR OO0

WWHWW WD

WO WD WD LW W DWW

3097

001

szrcsg ?36 ixnrgc
5 | x NE |

LASCIZ

/1C/<15>¢12>

; ;CONTROL "U”

: ;CONTROL "C*

..CONTROL "G

NEW
= 7/

.xxg EQ -snu ‘
[s]sls]

12>

; CARRIAGE RETURN

fiF E .E&LC.’?&LL: .ASCIZ <«207»¢<377>¢377> ;;CODE FOR BELL
JIF

006503

SEG 0Cs9

.BYTE

: ;AUTO MODE FLAG

: : INTERRUPT MODE FLAG

EVEN

"SBTTL aubon NUMBER GENERATOR ROUTINE

JIF

;;::?lli!llllilllliiii!!ll!ll!llli!iilliilli!llllil.l!!liiliiliii
CN_IST

-REPT
-LIST

Al i

‘AL1ST

2 i 3212222222222
2222222222222 22 2222222222222 22

-ENDR
slsls]

;.rH;s

E:E£Lt.

‘¥

‘e

TIgE 5; A

g JER

RETURN

DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
YO 2(+33)-1.

PC, SRAND

$RAND:

i IRE

HERE

THE RANDOM

; sNUMBER WILL BE

: $ SHINUM, SLONUM

i *
0i004e

;;CALL THE ROUTINE

MOV

RC,-(SP)

; sPUSH RO ON STRACK

JCBO,

RPOY/S/6 HE

OO0

fg.rca P11

num

’3..-,.,0V“97

MACY11 30(10%)

O4-NOV-7?7

09?;32

3153 %’
hddd.
i
s007064 el
3127
oogm

giaag

7093 06

ocln

007134

3123

0071

005501

asggm

047401

3139
3140
3141

gizg

g;:g
3147
gi:g
gié?
B

007124
007126

007130
007132
007139

012601
012600

000207
176543
123456

&ouun,no

;;%

ADC

1IPR

Hov
MOV

n?2.4?#3'.1
SP)+,R

;;

RTS
.
.WORD

PC
17
23 ss

SHINUM, R1
81057, R0

SHINUM:
SLONUM:

.SBTTL

:ADD HIGH cousmm

::POP STACK INTO R2

(SP)+ m
(SP)+.RO

INTEGER

. 0 che X 129

EEAoo
R 10 mxs X 129
::ADD LOW cousr

#47401,R1

MOV
MOV

Hi2ETeT
RO LEPT AND
Ho,
W
§Ecm$x
?c%r LOCP

ggc

ADD

ON STACK

EEgr R1 uim HI*‘H

W18

AD
AD!

SEG 00ed

;;PUSH Rl

iu;ngg
R1

hel
B
aug

313
0071l 010137 09713
3136 7123 §12533

3137
3138

)

MOV

3130 :;87-4 os: ";8 00713
3131 %7100
751‘) 00105

3132

PAGE &0

ANDOM NUMBER GENERATOR ROUTINE
MOV

gxsé

I0S

17:31

::POP STACK INTO RI
:;POP STACK INTO RO

: 'RETURN

DIVIDE ROUTINE

3;E:e!lllllilillill!!llll!iil!ll!ll»l!lll!lii!l!llllfll!lliflili!ifi
Im.x;r
'figr
:“:nuuunuuuununuuunouuununnuuunuihn

3182

3188

gi‘s’g

316l

CET

T Tuo

MENT INTEGER

;:ggtf SIGN AS THE DIVIDEND.

gigz

2187

2169

‘e

3170

IRy
s esall S, el HE Iipe
clele e,
;mxv?s ON WILL BE Pskr%tn
REMAINDER %s OF THE

2162

2168

ROUT

" MoV

LOW ogvx

MOV

y =]
”

ND,-(SP) ;3 THE HIGH DIVIDEND MUST BE ¢ 1.2

HIGH o&" g’w -(SP);

nszugn
-

”;L

RS L

AS THE DIVISOR

mofl;;ouonem 8 REMAINDER ARE ON THE STACK

*HPLIE? gg R_OCCURRED

sce=0
“C*=]

;

IVIDE ovzmou occunneo

ATTEMPTED TO DIVIDE
BY ZERO

3};3

STACK

NO ERROR

OVERFLOW

DIVIDE BY ZERO

2174

TOP

REMAINDER

ALL ZEROS

ALL ONES

83883

007334

mmm:mw

807

O *

88 —
104400
00

0100ee&
000016

—>

.IF NB

¥[

oeo - [t W 3 -

MACY11 3? (1 046 )
17:31
04-NOV-77
NTEGER DIVIDE ROUTINE

EuN NvbWo e3-[=] -L o(&)w5

|14
-4

o wnp
4

g s

g(5T=] (g5T=]
LRUFAYINT9T

2=OTOeo[¥m0g4[+(EoLv=]y8cmRyhgzmo d)QvlEm"pHswl-GsonmS—gs.wB(-o.2=l]n.5v[T)] A*—mWS-=4I.3I2I4C2E2Si= [

|
T
T
T
y
T
T
T
T
y
T
o
g
T
T
o
g
o
o
T
T
o
g
T
T
T
o
g
T
T
o
o
T
o
T
T
o
g
T
t
L
o
L
a
e
mw mg g m g

—sSG—~I-Rn—CthTsL1oQm5W2GaSV-a~mTn-(a1S]l(%3z9>“][lwmm0~at“(8wmi0N)meaoWR0PMOR.FSPallNOR-)aJR0Oon—>2RSaa2?[a—u--2)Eaw.>E2Sn2>l9_|eJ80q009u0!0-0e00o0>aN8o-NtwD4T2>-S S

QAOW£omwTI3F,EN£-+TNC5FNgISTuGleLFouLWzEeATsi—tALagayLnfRE:LiL,gE-R2F'3SIzR.I,KRIR9Ii-ERetFIO5RLIn.RI0mJRIuRIFE-AIaRFU-s'aOeRnSE-WfR8iN.gLD§¥1Al8~TWwLx41Wa.%RSL~rpoWLfEnB1Llt.LW%mhEwLKlUFiewlRaY2WlTiXo23)KnELwihT8LnrHisaeiNWwaGaBsYyiBWnEodwiYna—eWseiLnWEuoihYormDiLe—nIdi0REaLomilLe05N-mlioNi&aB.2TioAtaRintFiIabPekl
RPO4/5-6 HERD_ALNMT
CZRJCBO
CZRJICB. P11
O4-NOV-77 12:49

JOS
PAGE 61

SEG 0Ce!l

(O]

w [ xQ x

[

ORIR &
[N
!88#38%83! Wkfifl

T W"aa

6 HERD _ALNMT
-NOV-77 12:49

i 000002
=808803
"?ggo

MOV
MOV

MOV
MOV
no

000

TACK NTO Rl

TGCK

.SBTTL RTI
SRVE AND RESTORE RO-RS R60R§NES

NTO RO
RETURN CONDITION CODES

48154
-ENDC

; ¥SAVE RO-RS

XCALL:

353

lUPON RERURNFROM SSAVREG THE STACK WILL LOOK LIKE:
;rop---(+1s)

1H 42--=(+18)
(%

+4---RS

1% +b---RY

3528

l +8---R3

i#+10---R2
i #412---R]

3860
3861
3562

n+14---RO

007
3¢s 00735

368

D034

$SAVREG:

@2 A
Q07364

MOV

oY
Hov

00741

RO, -(SP)

R
R3'(2p)
‘

MOV
MOV

Rw,-(gg)
RS, -(SP)

MOV
MOV
MOV

(S5P)
) -(SP)
acsp),-(gp>
22(5P)
.
-(5P)

MOV

2 B fok R
3565

P)¢ R
P)¢ R
(SP)+ 2(SP)

; sPOP STACK INTO R3
,,POP
TQCK NTO Re

lll!lllllllllllllll!illilllllllll!lllll*lllillllIillllllllilill

3584
3885
3528
3587

328c

(2P)¢R
P+

SEG 00ee

358

3861
3583

PAGE 62

3549
3550

378

KOS

&3?’

354
3547

3578

17:31

llllllll!!!llIllli!!llll!l.illlllllll.lllll!illlllllllllllllll!

i
354s

3875

0O4-NOV-77

INTEGER DIVIDE ROUTINE

oo1

3540
3841

MACY1l 30(1046)

RTI

Slsp),-(sp)

;;PUSH RO ON STACK
; ;PUSH R1
ON S;gg&

55333“ R 8“ 37ncx

;;PUSH
;;PUSH
5s
;;SAVE
;;SAVE
;:SAVE

R4
RS
Pg
PC
PS
PC

ON
ON
OF
OF
OF
OF

STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

; $RESTORE RO-RS

;

00741 012666
Qo7usd
Qiseee

‘¥

$RESREG:

005

Q074 §f + B

007436

012604

#CALL:

RESREG

MOV
MOV

MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+.22(5P)
(SP)+.22(5P)
(SP)+.22(5P)
(SP)+,RS
(SP)+.RY

s
T
PC OF CALL
¥
T
PS OF CALL
¥
TORE
PC 8; HR%N FLOW
i
TORE
PS
MRIN FLOW
; ;POP STACK INTO RS
; s POP STACK INTO R4

ci:jgg"Px?’m’ SNV oag
329?

%;:gsb

3294

11 06

MRCYLL 39LL2%R%0 ResTORER&Z Adurin

=8v

§;)¢
Rl
)+ RO

SEG 0063

::POP
13&( mg R1
iPOP
STACK INTO RO

- .SBTTL m&» DECODER

001

32%3295

l.tJEi

3tl!!Illllllll!l!llll!lll'llllll!lllllllllllllllillllililll!l!!!i

§r

3539

gamaol

5&ll{lll!ill!lllllll!lllllllllll!!lllllllllll!llllllll!lllllllil

3303
3304
3305

.LIST
.E
nu 3 nounng
uxu. PI x THE Lougn‘gv

3302

nog

000

ggg;

u"gz o& Rg

THE “TRAP* INSTRUCTION

E FOR

THE STARTING ADDRESS

:% ;o Tm

nong
D

33?3
001
gié 007452 010046

s*mg MOV

RO, -(SP)

; ;SAVE RO

3313

srnnp-

a(sm -(SP)

; ;ASSUME THE STATUS OF

Bie
3316
::gié
2319

Hk
007454

3320 007460

gaaé
3323

016600

740

000002

MOV

2(SP),RO

MOVB

-(35)

(RO),RO
STRAP

$1c177,R0

1iGET nxcm BYTE OF TRAP
map BELOH 200

i OR TPRaYT

oggsnn.ao

SR”“,’# SKon OUT OF BOUNDS

000

gaac.l

001

33:34&

agg

BIE

000
8;%4
466 8012300“ 007506
007472

(PC)

gSC 2

,.us: mnp naov

007474

.ENDC

-IF NB

.ENDC

000200

0lleMe

é;’ GO TO

STRAP1:
gcng

R
:
L

RTS

MOV

"M s

$TRPAD(RO) ,RO

FOR

0 TABL

INDEXING

o ROUT INE

Wwww
W
W
£
-0

3%333

TST

JHP

i3 THE I kaps o NoT ALLOW

::ggr *& NEW STATUS

RO, -(SP)

;

899,

MOV

3385

3%
3433

BIc

RTI

xg':m

“138?

3354

MOV

HEN USING THE ADDRESS OBTAINED IT WILL

;3 THIS

IS USE

STRAP2:

MOV

TO HANDLE

THE "GETPRI" MACRO

(SP),-(SP)

; sMOVE THE PC DOWN

CZIRJCBO,

RPO4-S-/6 HEAD ALNMT

CZRICB.P11

3343
3344

007476

007504

0N-NOV-77 12:49

016666

000004

000002

MACY1l 30(1046)

000002

ggsz

MOV

§TRP=STRP+1
LIST
Euon

343

3361

PAGE &4

4(SP),2(SP)

RTI

| SEG 00BM

; ;MOVE THE PSW DOWN

; jRESTORE THE PSW

TTRAP

A,8,C,D,COMNT

BTTC STRAP TABLE

17:31

':CRO figfim B Q%?RQNSTRP),\STRP,(HSG)

3349
3350
1
3352

3359

O0O4-NOV-77

TRAP DECODER

:gvlfiéw’wgfl'fsgflguclfi
STARTING ADDRESSES OF THE ROUTINES CALLED

bt TR s SR

3355363
3365
3369
3363
3371

T R

;

ROUTINE

T R

L e

$§TRPAD: .WORD

STRAP2

??cuorcns..m.‘x:sr

.1IF NDF GNS,.LIST

sgfi

s em:

001

; ;CALL=A

g‘ g
TRP-1

002

TIL

TRAP TABLE

: #THI

gg;g
3333? 007506

;
ROUTINE
§TRPAD: .WORD
STRAPZ

THE
STRARTING ADDRESSES OF THE ROUTINES CALLED
BBONTA
AR
o

00747?

ggg 007510 004853

3385
39

.EEN)CI
-

001

.IF

g
0C7s12
9
3337

TRAP+1(104401) TTY TYPEOUT ROUTINE

TRAP TABLE

nqrs
comn NS THE STARTING ADDRESSES OF THE ROUTINES CALLED

" ROUT
ROUTINE

TRUCTION.

trzsgoz

; #THI

; #BY

005632

;;CALL=TYPE

EQ STRP-1

.SBTTL

3333

STYPE

-IF DF $TYPOC

002

392

3391
3335

COMNT

-ST
s mo

3384

TRAP+D(C)

.WORD

STRAP2

_I, ‘ rvpoc ; s CALL=TYPOC
BTTL mnP TABLE

TRAP+2(104402)

TYPE OCTAL NUMBER (WITH LERDING ZEROS:

Cg.} CBO, RPO4/5/6 0'597ALNMT
O4-NO
12:49
cB. P11

17:31

NOS

PAGE 65

S50 00LE

:gvl WS&WT%N‘SL‘CI‘?
STARTING ADDRESSES OF THE ROUTINES CALLED

00
1

;

007514

00S

Rzo

ROUTINE

007S16

; ;CALL=TYPOS

.g go S$TRP-1
T
TRAP TABLE

001
00S 154
000
001
002

STRAP2

tz:zsgo. .MORD

ONTARINS

TRAP+3(104403)

STARTING ADDRESSES OF THE ROUTINES CALLED

R TRE TRUC TON,
T

ignmm "WORD _ STRAP2
STYPON

TYPE OCTAL NUMBER (NO LEADING ZEROS)

;:CALL=TYPON

:5725 STRPoT
TRAP TABLF
: %TH

CONTRINS

TRAP+4(104404)

TYPE OCTAL NUMBER (RS PER LAST CALL)

.
THE STARTING ADDRESSES OF THE ROUTINES CALLED

»a\rxT Eas INeTRUCT
ROUTINE

;

007520

001

00S 342
000
001

§TRPAD: .WORD

STYPDS

STRAP2
;;CALL=TYPDS

TRAP+5(104405)

TYPE DECIMAL NUMBER (WITH SIGN)

Yl
;:o?
SSETTRAP
TYPBN,STYPBN, t/TYPE BINARY (RSCII) NUMBER/

5 R0

lTHI? fl#s CONTAINS
; #BY

THE

AP*

THE

STARTING ADDRESSES OF THE ROUTINES CALLED

INSTRUCTION.

ROUTINE

tmpgo. .MORD

$GTSWR

’

1=
TTL

STRAP2

; ; CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TRRP TABLE

;#THIS TABLE CONTRINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

B
Y YR P S
&L
B BB ITN £ OB SHR LR SB® SO LRBDD TN £
ODD ICRE

MACY11 3?&0“?) g.-NOV-??

ALNMT

P11 . -NOV 7 12:49
chce
CZRICBO

MACY11 3?&%34?&8L8H-N0V-77
. #BY THE “TRAP"

;
007524

00607

17:31

BO6

PAGE &6

SEG 0066

INSTRUCTION.

§E@’ TWORD STRAP2
'

SCKSWR

T me
SBTTC

;.rnx

;;CALL=CKSWR

TRAP+7(1C4407)

TEST FOR CHANGE IN SOFT-SuR

“TRAP TABLE

CONTAINS

THE STARTING ADDRESSES OF THE ROUTINES CALLED

B e By Rase INSTRUCTION,
ig&mz "WMORD _ STRAP2
-

SROCHR

ée

;;CALL=RDCHR

TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE

IN
OF oL
0 STRP-1

TTL

jaTuis 1

TRAP TRBLE

CONTAINS

STARTING ADDRESSES OF THE ROUTINES CALLED

RS TR

000
001

000
001
000
001
00z

tg&m: .MORD

STRAP2

;;CALL=ROLIN

SROLIN

TRAP+11(104411) TTY TYPEIN STRING ROUTINE

2?&'
-OF "m??nnp RDOCT, SRDOCT, ¢ /REARC AN OCTAL NUMBER FROM TTY/
.IF DF
’gggsflflP RDDEC, SRDDEC, tREAD A DECIMAL NUMBER FROM TTY/
€
m

007530 DOSSgH
001

SAVREG

.SBTTL

TRAP TABLE

.IF
;0
g RP; #THI

CONTRINS

THE STARTING ADDRESSES OF THE ROUTINES CALLED

; #BY §HEQG#SRP“ INSTEUCTION.
3

007532

001!
007356
002

ROUTINE

iE%go: _MORD _ STRAP2
.xr " ;?S‘S‘”}EG :;CALL=SAVREG
.SBTTL

TRAP+12(104412) SAVE RO-RS ROUTINE

TRAP TRBLE

;#THIS TABLE CONTARINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

AR RARRRR AR

001
007414
000
001

Goo

; #BY THE "TRAPTM

INSTRUCTION.

§TRPAD: .WORD

STRAP2

SRESREG ;;CALL=RESREG

¥l

TRAP+13(104413) RESTORE RO-RS ROUTINE

Ai
RO ES.SAvV

ENDC

; SAVE THE ADDRESS IN 'SESCAPE’
oM

.SBTTL

SINGLE/DUAL PORT RH11/RP04/S5/6 DRIVER (REV 1.0)

(Cf‘ P%q’sCORP
mGHT

nuruon(s)an Lacsv/cuucx HESS

001

B
lllil.lll.ll.lllllllllIlill!!’ifililliilliilillil!!lllllli!ll!l!

NL;?T

fi:ligilllillliillllilillili!lillIlIllllil!illllil!l!l!iliil*iill

ZEN53

0oc

.LIST

-ENDC

nPosx Psg{. RPER2, AND RPER3 ON AN ERROR "2
: STORAGE zgg

e
- el
=

RRS+6 =

867235 86868 °°°°°

RPERRS:

.uono

0,0,0,0

; TRBLE OF osgg; ncrévs Icoxcnrons {DRVACT=8 BYTES)

A COMMAND
jrIF nivVv ig?VE u{
:§§vngr>§
TH AN ERROR RECOVERY OPERATION
:DRVRCT<0
=

007S4E
00747

DRVACT

.aer

BYT

O
;DRIVE

1
:DRIVE

PAGE &7

CO6

RAR RARRRR

DO NN LWn

RMAAB5® ikFhEDRrOBB
U
ARFAHRRIS?_‘

007834

O4-NOV-77 12: 49

17:31

RPOM.S/6 HERD ALNM

Qo0
Q0
oo

CZRJCBO,

CZRICB.P1L

MACY11 QW?MS“-NOV-??

888888
RO

CZRJCBO, RPO4/S/6 HEAD ALNMT
O4-NOV-77 12:49
CZRJCB. b 11

8 538

O4-NOV=-77

17:31

D06

PAGE 68

SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0)

SEG 00ee

=M TN

MACY11 30(1046)

SEEEEEEE
PLLLLLLY

; TRBLE

O—=uMITNON

ALSO)

ES )
1 STENT (DRVSTR=0,

RRE:PR

faadann

PORT INfT}flL

RT*ON

=0 IF INITIALIZATION

007&06e

000
0cOo

DPRQS:

.BYTE

0000

INITIALIZATION

0000000
0sroLLLLy
t b b 0 bt B

ND IC?TORS
ACTIVE ON THE DRIVE
S
S IN PROGRESS

o O—uMITUnNON

IS NOT PENDING FOR_THAT DRIVE
is P ENDING FOR THAT DRIVE

C%:JCBO

RPO4/S/6 HERD

ALNMT

O4-NOV-77 12:49
JCB.P11
gsa 007610
007611

3625 772{5

7sx~o
%S?
3628 007615
33233

830
000

0‘42)
GL

04-NOV-77

17:31

PAGE039

IVER (REV 1.0)

/DURAL PORT RH11/RPO4/5/6

YTE
.ens

g
0

"BYTE

;DRIVE 2
:DRIVE 3
:DRIVE 4

:Eigz
7
‘DRIVE

8O
:EYTE
‘BYTE

(TRNSWT=1 WORD)
: TRANSFER WAIT FLAG
A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF
sTHIS IS

{=DPB" OF THE 1/0 OPERATION.

gg
007616

000000

3636
3637
3638
3639

TRNSWT:

.WORD

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
;n'gs S A ONE uo& HF THAT WILL CONTAIN A KEY FOR EACH OF
ORMING A SEARCH COMMAND FOR THE 1/0
IVES THAT
T
'REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUELE.

'EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O.

332:?

gzg

008

3631

33233;

MACY11l 30

EOB

007620

000000

3e44

SRCHWT:

.WORD

:RP04/5/6 DRIVER ACTIVE FLAG_(ACTDRV=1 BYTE)

3645

:ACTDRV= {rIF DRIVER
DRIVER IS
IS INACTIVE
ACTIVE

‘ACTDRV>0

332:9

33238 007622

3650

000

3651

ACTDRY: .BYTE

s SOFTWARE TIMER ROUTINE acugge FLAG mcrsmsf BYTE)
:ACTSTR=0

IF SOFT

TIMER ROUTINE

332?; 0076232
3656
3657

0co

3658

ACTSTR: .BYTE O
:UNLORD FLAG (ULDFLG=8 BYTES)
sULDFLG=0 IF NJ UNLOAD COMMAND

;u1.orn.c>8 }r UNLOAD COMM
comgzg i"N PROGRESS
WRIT GUEUE
IF UNLORD

'ULDFLG<O

3‘3623

3661 007624
3662 007625
3663 007626
3664 007627
3665 007630

000
000
GO
000
00

ULDFLG: .BYTE
‘BYTE
‘BYTE
‘BYTE
‘BYTE

O
0
O
O
O

:DRIVE O
‘DRIVE 1
:DRIVE 2
DRIVE 3
;onxvs g

: 007633

000

YTE

:DRIVE 7

3666
%67

007631
007632

3670

000
000

332;5

‘BYTE
gvr

O
0

‘DRIVE S
;anvz 3

:LOOK AHEAD COUNT (LACNT=8 BYTES)

:LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

3673

007634

000

375
%76
3677
3678

007636
007637
007640
007e41

000
000
000
000

3674

IS INACTIVE

'ACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIV

33223

7635

000

LACNT:

.BYTE

:DRIVE O

BYTE
BYTE
‘BYTE
‘BYTE

O
O
O
O

'DRIVE
‘DRIVE
‘DRIVE
‘DRIVE

BYT

;BRP'E 1

2
3
4
S

SEG 0069

CZRJCBO,

RPOY~/5/6 HERD RLNHT9

CZRICB.P11
3679
3680
3681
3682
3683
2684
gges

O4-NOV-77 12:4

007642
007643

MACY11l

F’E]E:

04 -NOV-77
36
?
SINGLE/DURL PORT RHII/R
4/5/6 DRIVER (REV 1.0)

30(104 &)

000
000

SEG 0070

BRI8

: SAVE Recggvskg
Fh“? ‘gfifl

ng
anx
ug
xxnpousgéslnscxsvsns WHE
N THE

.OPERQTI N_IS CO

5&33 007644 000000

3689
3630

(
SAVEFG:

+1H)

.WORD

AI/RPOH/S/B REGISTERS,

R RN

RRO

AS PER

3691

; SEEK FLRG
(S;EKFGsé
HHEN THE DISK RODRESS ISN’ Tglg THE WINDOW

32337 007646 000000
369

SEEKFG:

3692
3693
3694

3638
3699

3700

3701
3735
37

3704
3705

3706
3707
708

3709
3710
3711
3712
3713
3714
3718
3716
3717
3718

SEEREERQDIFHE“TR
$RRNSFERHILL08 xfigf?sg SEEKS,

007650
007652
007654

007656
007660

007
007664

007666

3728
3729
3730

TIHEOUT TRBLE (TIMER=8 WORDS)
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION

TIMER:

177777
177777

.uogg

-1

. WO
. WORD
.WORD
.uonB

'5850
CWORD

177777

;DRIVE

-1
-1
-1
-1

:DR
1
;DR
g
:DRIVE
:DRIVE 4

-i
-1

;82§v 8
;DRI 9

:DATA rannsrsn UNDERWAY xno;cnron (DTUW=] WORD)
87 0 IF NO
=+N

007670

3;53 007672
3721
3722
3723
3724
3725

177777
177777
177777

.WORD

007673
007674
D0767S
007676
007677

177777

001

002
004
0iC
020
040

3335 007702 000003
3733

DTUM:

.WORD

(WHERE

DATA

TRANSFER UNDERWAY

N=0 TO 7)

IMPLIES DATA

TRANSFER UNDERWAY ON DRIVE N

-1

;ATTENTION
BITS TABLE (A flBIT=B BYTES)
; TH
T
LE CON RINS THE CORRESPONDING BIT TC ERCH DRIVES
:ATTENTION BIT

ATABIT:

.BYTE

.BYTE
.BYTE
.BYT
BYTE
.BYTE

.BYTE
.BYTE

¢
M4
18
2
M40

100
200

;DRIVE O

;DRIVE
;DRIVE
;gRIVE
DRIVE
;ORIVE

1
2
3
4
S
;DRIVE &
;DRIVE 7

;RPO4/S/6 TO RH11 “MASSBUS CONTROL BUS PARITY ERRORS"

iCALLING IT FATAL (MCPEMX=1 WORD)
MCPEMX:

.WORD

(MCPE)

ALLOWED BEFORE

:STORAGE FOR RPADR

(THE FIRST ADDRESS

(776700)

OF THE RH11~/RPO4-/5-&i,

CZRJC

RPOY-/5/6 HEAD

cfvg:cs%u
3;

3737

007704

ALNMT

-nov'397 12:49
176700

MACY1l

-NOV=-77

30(1046)

RPADR:

RPVEC:

.WORD

76700

:MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD)
n

000004

MXLACT:

3745

007714

001000

MXDL TA: Bgng

Dg.»su.

3748

007716

000200

MNDLTR:

.WORD

glfiq.

3;_%

007720

0O0000S

MXWNDW:

.WORD

;23

;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD)
;MINIMUM

DELTA

:MAXIMUM SEARCH

DELAY IS 2 SECTORS (MNDLTA=1 WORD)

FOR 1/0 WINDOW IS S SECTORS (MXWNDW=1 WORD)

;DEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES

%"7'23

534755

%oooo
0002

3787
3758

TM=
00000
%os

g;“
3763
3764

20081 ¢

3759
780

3769

%s“
=6

000022

ngz

mTo

Ssazi'r

(NO?RA DRIVE REG)

gs Rec'x‘gren
(DRIVE REG)
REG. 0S)
o&( T A DRIVE
GIST
(DRIVE
REG O1)

A PoEU
gc.
%!)!07)(DRIVE REG. 4 O4)
ésnf'n
(DRIVE
Ség
(NOT A °8é"‘ REG.)
I

hécv R xs".égtla (Dséc gc);. 03)

-3

RPCA=3Y4

;

;
;

RPCC=36
RPER2=40

o42
000044
000046

"x“?? m(:g(x);rgn s% véonflég REG. 00)
/7
TAT
REGISTER

RPnEgi’H
RPanés
=22

000034

3778
3773
g;;g

;; CONT

RPCS2=10
RPDSI=12

000036
000040

3770
3771

spcsx;o
PHG=

10
000012

000024

3;22

RPER3=42
sgsc =44
C2=46

:
:
;

R m&gss
'cfsren (DRIVE
(DRIVE REG.
REG. 13)
12)
S5 REGISTER

-gcn
E

(

G. 14)

R 83 (
REG. IS)
ns? ;r R (DRIVE REG. 16&)
REGISTER (DRIVE REG. 17)

33;9
3778
277

‘R"“'RPO‘T'QE/"R%
‘I'ER
5"”"‘
fgf: oygzrWHICH
RPO4/5/6moxcnson
DRIVES ARE
:AVAILABL
rga
*;gr?cm
%ue
DRVSTA
:T0 THE PROPER
STATE FOR EACH DRIVE.

3782

g;:as
3;{332

:
néwnn
4
INOTE: THE 'P’ OR '.' CLOCK MUST BE STARTED

:NOTE: THIS ROUTINE CALLS DRVINT

g;g?

37839
2790

SEG 0071

S4,5%32.

007712

3;:9

PAGE 7

;RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (S)).

3742

g;:g

GO6

ngcx.?/oug: PORT nuu/figé-vs/s onfv:n (REV 1.0)

007706 000254 000240

;:?

007722

0OC7724

104412

Cl374€

17777&

RPINIT: SAVREG
MOV

8PS, ~(SP)

:SAVE RO - RS

:SAVE THE PRESENT PROCESSOR STATUS

CZRJCBO, RPOY4/S/6 HERD ALNMT
CZRJCB.P11
O4-NOV-77 12:49

3791

007730

0?0240

30(1046)

177776

E%§8E§25§3

szg;TR
10 a cLE ARE

o
MOV

figruu R2
a-xhéhx)+

‘Bn
T o 1 28
Ezg?T;BE?zE

0075Se

gig

177770

s s Bt s e

177776

6S:

7§

8s:’

PR
BR

HANGE THE anonxrv 10 &

vsra
rn+a
TQ+H
m+
§
!R )+

IF N

;?8? ALL onges T0 OFFLINE
sSETUP THE RH11/RP04/S/6 VECTOR

tna)

oex osnpcsatnu) nassaus NIT

FIRST noonzss OF RH11/RPOY

Rd.osviwr
4§’

§R98T
rHe e 004 E
:"DVA’ NOT SET OR PARITY ERROR

5'C7'R1
3.m
auPs

Rn&IF "?'r‘fi B‘éi"E
s TO GO
3
gnn THE
PROC sson TUS

5§

: NOR!

RTVSYR(RI)

rsga

DPINT(R1)

ua TING

BEG
BPL
MOV

A
sf
(SP)+, 8PS

128
16 YO8
NexT DRIVE
Eguscx
NE
TNSRIVE
:
§TSEE THE PRgCESSOR STATUS

gfig
R
CLR

ggra

n SREG

DEIRT (RIS

35 "§k£§§ 3313? TO OFFLINE

on VE TO suxrcu PORTS 2

§ }:zflssxguzo PORTS ?

‘REST
iBYE-BYE

;ORIVE IN;TI=P§:T§?
QE§gén

nines I

010134

gnn

ghga

e e B

0000000000

8
R8RSR
28 2

[eretetwtetwietwtetwtotets

3s:

Bb323¢

MOV

010134

SEG 0072

eEkiag
#SEEKFG. R

MOV

000007
177776
007576

PAGE 72

;(5!33.) 8PS

gtgs
CLR
CLR
CLR
Vv
MOV
000010

17:31

?ov

B
MOV
2s:

197579

0O4-NOV-77

SINGLE/DUAL PORT RH1l/RP04/6/6 DRIVER (REV 1.0)

0000000000000 0O0O00000000000D

BOBOY
2URES

GSS

n_u
NS
0

3?95

012737

MACY1l

- R

RBRINEEEERT-MR
{E

lin Bn0 FirT22

IReDRE TheYZAE-aEL"SN"z‘nQ’%B"oeP‘:‘RSm B rERRERaE,

;DRVSTA 18-2ET To THe PROPER GONDITIO

:
;
:
:

MOV

MOV
RPADR,R4
JSR
RO, DRYVINT
RE TURN1
RE TURNZ

#DRVNUM, R1

{UNIBUS RDDRESS OF RH11/RP04/5/6 (RPCS1)
:CALLED BY A JSR
{ERROR OCCURRED (PARITY)
:NORMAL RE TURN

:DRIVE NUMBER TO Rl

DRVINT:

MOV

RS, -(SP)

:SAVE RS

¥
&8
sy
EEEREEERERLEL L RRRRR S
ErRe R5
&
&
B
R

RPO4 /S

MACY1l

8i§{?.3

81101i*g

Eigi%

30(1

1?7

106

38 EZE/ouStnuu/h%-vsEEDR?VER (REV 1.0)

380010
0

igxn

-?77

CLR

ch§

DRVSTA(R]1)

Hou.
MOVB

ggn

RICRPCSS(RW)
5
(RY)

,SET.IE

BRVIYR(AI)

TART
TATUS as or
§L
AR ?‘g"&?
¥
tiY6a

gg oé“la, ésam-n'mxxgvggnvgOMMAND (8 SEIZE DRIVE)
:g
" ux'rT A “TRE”

1{02?3
000000 18:
i%xs
igees
GiuEs
10230
11
000001 007566
218535
5;8&
020020
10242
1431

CLRB
slz
;axv§m(nn
11,RPCS1(RY) :
£x
'o
nnrom.me
aeu.e
gfs,gT Ra,no.np
S‘éab 55132
88
yens
OB
CTUM soREcs
MOVB
#1,0RYTYP(R1)
T RPOM noxcmon
CMP 29 ,RS
?: ITHA IF ;i YE E PORT RPOY?
BEQ

oxggg

MOVB

8{3523

mgzgg

12761

024020

000002 007566

e R
Qigste
Goe7ts ozve 007566
01

ioaiu

§iggés
1
gfifi
1

10342

183-052

ioasu

010356

fmswuu ——

2s:

§1§$“
10422
010424

0i042e

015012

0O0S10S

042705

014636

167077

PORT RPO4?

RPEE w&cmon

; rxa
xr

MOV

8121, -(SP)
Ro.uhr.ap

:D0O A "READ-IN PRESET"

%3851
JSR

RO, WRT.RP

oam;.-(sm

:SET FMT22=1

JSR

RO, RD.RP

;RERD RPDS1

-SS""-

: BRANCH.

goos!
BAL
MOVB

agémmnpnsmu) : CLEAR nnzmxow BIT

B
MOVB

g
TR
#-1,DRVSTA(R]) :ggr unsnrs INDICATOR

coM

JSR

RPER1

4§ :

RPOB ?

SEE
g%“——
:enIF YESnpos ,
ggve g;x.onvamn :Eflrxwlcmon TO 'OTHER'
6%

014636

1204 3; 177777 0075Se

820022, RS

MOV

{2 peis
18398
106618
1037
1513; 007672 000016

82, DRVTYP(R1)

;

gem

010000

10466

guoao.ns

G FEk T pmnh
P
Bwees
(DpoR Noxcmon
eos
MOVB
Y
TYP(R1)
:ss

ggooaC
Ne

12761 177777 007566
121
18012

Se"g

BIC

TF ATARD

IND OUT WHY ATR=1

,sxn

: CHECK MOL

opn

$1C<BIT12'BITO8!BITO7!BITOE>,

DRY.

AND WV

SEG 0073

RP0OY/5/6 HEAD
ALNMT
1
D4=NOV=-77 12:49

MACY1l 30(1046)
04-NOV-77
36%
AGE 74
SINGLE/DURL PORT RHII/R
/S/6 DRIVER (REV 1.0)

00000000000

10434 11 sx
000001 007556
}Ezs
28
10446

183

2761

003720

1
10464
10466

105161
005720
012605

007576

0076S0

78:

MOVB
TST

81, DRVSTA(R])
égbn

BRANCH IF MOL, DPR, DRY, OR ¥V 1S CLEAR
ser
onxvs ;mfus
16ONLINE
x
HE ERROR nevunu

RSL

MOV
ASR

8s:

10470 800200

cCOMB
TST
MOV

RTS

#2000., TIMER(R1)'

opxmuu)
(gmo,RS

INDEX TO ADDRESS WORDS

:START 2 SEC TIMER

;RESTORE

iSET PORT INITIALIZE INIDICATOR
;RESTORE RS

TEXIT

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST
;CALL

:
:

JSR
PNTADR

RETURN2

RPOY:

MOV

W=DV

;

10472

013746

177776

10512
10514
10516
10522
10524
10830

109412
011002
000016
éueox
013704 007704
105761 007556

10476
013737 007710 177776
i0SC4 112737 000001 007622

0000000000000000000000000000000000

v v

)

NCNLWNN-0O

2 333393995
&3S LS
42SR

10432

SEG 0074

15&

003914

RETURN!

MOV
MOVB

STB

ULDFLG(RI1)

?s"‘fa
BNE

010134

10564

ooag«s

17 i

007606

1
1
000460
}“‘?& 652"’5

015760
000103

007546

010764

737

012074

10574

18:

010164 000010

1&15 1
1

JSR

105761 007556

000002

1 177777 007624

943;

2%:

i&fi

18335 120000 000016 38:

10E84

000431

10650

4s:

aoPs -(SP)

RPVEL
+g JNPS
#1,ACTDRY
(20) .R2
16(R2)
(R2) Rl
RPADR, R4
DRVSTA(R1)

xggm
6857“
007576
10550
104

1STB

?L;

STB

noY

S
o

INT(R1)

,DRVINT

DRVSTA(R])
831:

e GS(R1)

1,RPCS2(RY)

gga
CMPB

ng,onvou:
9
goa,ama)

TST

DRVACT(RI)

ano'IvE

sCALL THE RPO4/5/6 DRIVER
:ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK

: RETURN

CONDITION

THE CALLING STATUS

iR Tgn

SAVREG
AoV
CLR
MOVB
MOV
1518
gcr

iosua 53?03:1; 007624

RO, 38RPO4

otE 1S FULL

ST 1S m QUEUE OR THERE

2SonE'T
ofi"km
RPO‘US/B INTERRUPTS
;sev ~nc
DRIVER® FLAG

;a
: co&p ga%g TER BLOCK POINTER
.c:.. fus STATUS/ERROR moxCATOR
iPT KUP
3‘m.‘
; HégUS
;C
"S,._
rmus

.anmc

;

ommo m QUELE?

: RY NG o xrm THE DRIVE

;
: gfl
r me DRIVE
:

OR %T

;

F NOT

;
;

OUT ;

L cT

g'r"n'rus ONLINE?

xm PORT REQUEST FOR THE DRIVE ?

:
TH g ouesr IN QUEUE
.ouz#:
FULL
: 1S THIS REO FOR AN UNLORD?

8-1 bg#oncmu :ggr mg ng. ¥N
QUEUETM FLAG
:

28"

ggms-ama 15(::8(”551 THE “UNLORD IN QUEUETM ERROR FLAG

8s’

.Btgn
JSR

s(s: OPT

PC,C17

iBR
I

IVE AC

BNE

.cnu. r

opnnxzsn

:GO HANDLE THE PARITY ERROR

CZRICBO,

RPOY/5/6 usag ALNMT

CZRICB.P11

O4-NOV-77 12:49

3959
21

7
714
£}

0106
i8
4

§§S4

;g;?

3365

3975
3976

3977

gg;g
399113

3'382“E
399#“
5

015760
oo 100

S§:

015316

007556

100002

000016

01
27
1
738
16-44‘5
gxme 005720

110000

000016

n.é 6093&
Y 000016
385

010744
010746

00O40)
104413

010782

1050

010750

010756
010762

0057§9
012637
000200

3989

01l

ggg

3990

399-03993
3995
ggg;

3998
3999
4000

4001

010

013746

%; 7

ii§?8
01101

011
011036

011042

177776

105761

39 Y

6527

105761
00064

4008

011

4009
4010
381
1

401

4014

mg
0111
xuos
1111

11118

O0ll1lle

:
:

177776

7672

16034

bpT:
007620

000012

007556

/s/s DRIVER (REV 1.0)

RO, DRVQUE
#BITO06, (RY)

Egv

agmszenm.m

MOV
RESREG
TST

sBIT1S!'BIT12, 16(
;
(RO)+
:

BE;B

SEQ 007%

;PUT REQUEST IN QUEUE
;RIS
E Tses_,
RERDY ?

?§
ga

2 ,SET.IE

svsmmn

n*m‘up
' oR
3r QUEUE

;

FLINE OR UNSAFE

MOV
#BITIS'BITIN, 'L
16( SE } ogf%ré ERROR
CATOR
TST8
8gvrv§(gu
x%“?
BNE
S
:BR
I
FLINE
BR
RESREG
TST

CLRB

108

;
8 DRIVE NONEXISTENT

IVE
OR

E
RETURN

;
SH UP, THEN EXIT
RESTORE RO - RS

(RO)+

ACTDRY

(SP)+,3%PS
RO

»5 RETURN ADDRESS

;

T v; DRIVER” FLAG

:RETURN "PS"*
TO USER LEVEL
{RETURN TO CALLER

016056
40000

7556

004000

122762

0001SC

8DRVNUM, R1
PC,OPT

MOV

aosg -(SP)

:g,

§§?Q

.1 IT11,RPCSL(RY)’$NO'm‘i's'u8¥
oyEsg’
; BRANCH

5 ,DRVINT

SAVREG
18T

9§

E,‘,E

STB

000016

18:

#BIT6,RPDS1(RY)
STA(R])

MOV

'3’8"

MOV

JSR
RPCS1
3
1T

000002

TREG

TSTB
BPL

CMPB

;on%tsNUMBER TO R1
:
COMMAND

sn
gaoc

AT Génnn.sncuut

gcr

110000 000016

MOV
JSR

BICB

108:

111

427

JSR
o17

MOV
RTS

15012
16

17:n%u

; OPTIMIZER-CALLED FOR A PARTICULAR DRIVE
:CALL

010134

011
011

flgé

8%:
108:

007622

000100

4004
4005

gggg

7$:

4 004000 000000

0il

6%:

9§:

3985
3986

mm 010764 104412

KUE:

O4-NOV-77

SINGLE/DUAL PORT RH11/

1
%
10714
3%
107
3972
397
3974

MACY1l 30(1042)

A m

';IS \rrv

: ns
;

’

#111,-(SP)
#BIT11, (RY)

#150,2(R2)

REOEST
oueue"

STILL ONLINE ?
NOT SET

ST FROM QUEUE

nu mhf)

RO, WRT.RP

mc WAIT" KEY

,STATUS/ERROR INDICATOR

XIT

3 ITI1S!'BITI2, 16(

.
IF nor

;Sowénrxns STATUS/ERROR INDICATOR
EL

;
;
;
:

iBR

gommo ONTO THE STACK

rfi necggsa

r& INC
NT
T
ADDRESS

nxv; AVAILABLE

NOT

:1S THE REQUEST FOR 1/0?

cfirc&’#u
-NOV-77
0111
1S
fii;
Siii§
7
CZRJIC

RP0O4Y/5/6 HERD

12:49
011460

ALNMT

S
B 007646
oo
uoa? B
ifi:g
:8%

111

4025

fii g

sg
4031
:g%

{}5073 &i 7
011
fi
06

:8&

3859

ifi;s

-NOV-77

s ?aB

177777 007606 5§:
023420 007650

:838
ASL
¥v

o-x gmosmn :§§¥ &aagggt
INDICATOR
RT TO
oéoooo, TIMER(R3}:C ''§mr
10 '
SE
: 8 *men

9?::

8s:

:&g

; COMMAND INITIATOR

4044

i CALL

4045
»40&9
ms

:
:

404
4053

:::

4060

011

406

11
11

01
00925155
oM

11
11

3
:&s
uos;

fi ‘g
1131
11314
1131

015012

4070

01132¢

000002

406

B
i roemer
1335138120

PC,CIl

015012

CIl:

lmsu

11H g l%
7 865?0074
38% 11Haau 16423 553 s

11294
ii

INITIATOR

46:33;
4039

uosausa
4054

SEG 0076

3%:

011244

‘T

“051

17:

?55

720 0113s2

m guau

LO6

’2x~a8/ou23 PORT nnu/n%ws/son?vzn (REV 1.0)
YES-s
T
gg.a
38 CIv
. ?'.'.;
30(1046)

SEEKFG
2 ,LA

012430

MACY1l

SR
%_;

c c13

:sr

,smTu
‘7'

J
g§§

PC,POPQ
s%.;mstfi

#DRVNUM, R1
)&

: srgéPROog
’z

MOV

.5 RY

(R3)+, (R4)+

mgn.mm
(R3)+ -(SP)

I1,C13,

OR CIN

r FROM "DRIVES WAIT" QUEUE
sn WAIT QUEUE

;gé

R1,RPES2(RY)
84 R3

ggP

T8 mm
'cié'm
srSFER
D BY DATA XFER
T oma

MOV
MOV
%g

JSR
c17u“
MOV

musrsn

oopgR2'

MOV
MOV

T nom

a PARITY ERROR

35noc§§’E'HE PARITY
:§s
ALREADYERROR
SET
:
WITHOUT n -'ms"

MOV
JSR

MOV

iRET RNr:

ogi?o& (RY)
SET.I

MOV s (SPY+, 3w
553“

:«8

:
:

ik
;

JSR

RO, WRY.
(R3)+,-(SP)

RO, WRt.RP

§%§§ z
mgr;)
nounnc
:
:Lono cvn.xuoen nooazss

MOV

2(R2),-(SP)

:LORD "COMMAND+GOTM, “Al78Al6TM, AND “PSEL"

g%fics.#u
CBO,

RPOM

/34'-’"0'5997“%3?49

4071

011332

Y4 ;'4

407

h-. e
uog
4080

004037

015012

oy.

B B
1M
4090

41
HSE? HHELS
3{83

4110

i
fi

aiie giigs

MOV

Ri soruu

s
"03
v
JSR
RPCA

"03
ggve
CMPB

%
"

18:

2s:

&
RY
EP
PES2(RY)
xétaaa.-tsm
RO, WRT.RP

%3&

(R2), - (SP)
,WRT.RP

4121

48 Ehes 2%87,!23

Hzé fi%&
41

011572
11674

7355? ofi&

RPOF

CMPB

;sersssem

CH WAIT" KEY

;:RPCS1
;iPICK
tscr“fi?f
P
QUESTED COMMAND
;15 n“a Fs_cmacu COMMAND?

: aLOAD osgxn's‘s TRACK & SECTOR

;GO
5!3 LOAD
an CYLINDER
EK COMMAND

; LORD osgms"g CYLINDER
.

T: U ]

.
Bemothapepiine
v

ORI
SR YR
:BYT
N LOADING THE
&t‘ffit’flfgg’
;gscfsrs (RPOF)

c17

BEQ

:START A SEARCH

g}genmn,sncmr

B
5
?23“

e =

S‘
2%
g:e
810S,R3

MOV

DRBRITRE R s secron

o i (R2),~(SP)
fir'w

#117,R3

cle

i BACKUP BYCTOR
MaX. ADDRESS
SCARCH FOR 1/0 WINDOM
;COMBINE THE go:usrso SECTOR WITH

363137(3:’

RY
w&
2(R2) 25 (RY)
8131,R3

SEG 0077

: RPC
:figw 5
;
CYLINDER ADDRESS

it gl

i e
4118 o11
:353 flg

;SET “DATA TRANSFER UNDERWAY

PAGE 77

234
BUB° D’ A3
% 3 a;ggi,

n&nSl
3
E&SB

11
i1

RO, WRT.RP

?ov

007620

17:31

JSR

c17

11434

0% O114ee
383
“"93
4100 fizn

¥l
41

18:

011432

5% 11aeg
409
Hm
:gg 8“332

04-NOV-77

gpgsx

i
“
11

3% Hi
sg iim

MO6&

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

MACY11l 30(1046)

igg ?runl;ne:ggt. BRATETM COMMAND?
:

! BRANC
:1S
IT A RETURN TO CENTER?

i
1

i
}
1
1

1
i

SHEBR83
P

———

s Pt e Pt

s et

Pt Pt Pt Pt Pt Pt Pt
P

s Pt
s ot

s P
s

giua.na
8&: RO,RD.RP
5$: 533:

s Pt

s
s
s

sP
s Pt
s P Pt Pt Pt

Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt

Pt
s et s ot Pt

s Pt Pt

c17

fexe

———

R2),1(SP)
ulaé.finffng

g"‘*fi
dis A
o L

* COMMAND

COMMAND?
FORMAT*
T
sESE
WR
?g
:READ 1 orrser REGISTER
“FMT22","ECI”, AND "HCI”
“gcI”, Anc/on "MCI”.
% gmaa“
;:COMBINE

11
7
§ 7g
mm

000006

6S:

14636

gg:

000141

000010 011744
gooou

§ 77;8 i
011744
gBE BE oo 011744

LG(Rl)

"
né
'WR .RP

MOV

gr Sl

509

31, DRVACT(RL)

JSR

007624

78:

s Pt

i1
i8

s Pt ot

015012

28&

% 007546

E% 703 000143
014636

s Pt ot

§ 7
s Pt ot Pt Pt Pt Pt Pt Pt Pt Pt Pt

f
1

4e
4y

8 71

s Pt Pt Pt Pt

1
1
1
1

s ot Pt Pt Bt ot

1
1
1
1
1
1
1
1
1
1

Bt Bt P

&&t&&t&&S&&SS&&S&:t&&&:&SC&S&S&&S&&&&3&&&83&5&8&&&8&885'&_

Rr83a33c 2N S0E WG HELRZESE SRR ELR B 58 S H ESH 8 38YEREEREBBY

ERICR
AP0V BLENDED, Al MACYIL 3R R oAl PNt Ru1l JkBby B L DRIVER (REV 1.0)
g iHxF"I.ll.O‘W" COMMAND?
?fia .£83 R3
000103
1

000145

118:

015012
16056

-5200

—

001750 007650
000001 007546
015012

108:
128:

£?§=

Cl6:

S'PEB

MOV

MOVB
MOVB

i{?gsx

(R2),R3

10(R2),9$
)RS
%(n
,RD.RP

gCMP3
AD
2

(SP)+, (R3)+
3;'9’
| :

MOV

ng,-u,;m

&nga

'.{Ps:;s1
Cl

9§, RS

:é:s,na

RO, WRT.RP

JSR

PC, POPQUE

?xf
zrs

ng'\'r
ggsga
MOV
JSR

RPCS1
17

fgéer%.xsma)
C, SVRH11

“GET REGISTERTM COMMAND?
ITHR
i ég

:8 oxrnggasssorm:ne
IN

;; rm nc x

FIRST REG.
uzMOVE

cgRSR

sGET
T coumgtor RH11/RP0O4/5/6 REG.
n;
"'f.o ng BY 2
ol

-53 17 n ~setscr DRIVETM COMMAND?
LOARD me COMMAND

;REMOVE REQ. FROM QUEUE

§EVET:T‘%F
u/ngows/s REGISTERS?
RANC

: YES--GO savs THE REGISTERS

:RETURN TO USER

;SET A ONE SECOND TIMER
31000..nnenmu
%.onvncnm) agr THE onmE ncrsve
R3,-(§P)
oasmommg
RO, WRT.RP

SEG 0078

JCBO

/b I-Q

SRIGB AT
OSu
M

0151
121

000016

ies
ais

Bisti
8isi
121

151

4195

0le2l

is oist
4% ol ‘é
4199
-

12l

012160

a0l pisize

2 g
“§§ i
é%
i
isii gl

35%

421

usig
4sie
4518

O
o1
O

ugel

4553

4sie

4220

4559
423

353

4238

gis740
667878

18:

cize:

TSR

MOV4

7?
v;flaxmmfla)

18:
e

= ERROR_I
NDICATO
§:-155304/5
/5 nécx
srsRS R

sozws..csw-

I,
ENE

PSS e
N PROGRESS CLEAR ALL OF THE FLAGS

CLRB

Sovase

m QUELE ?

ETRY

vn; (R1)

#-1.DTuM

BAVREG | ©

o remees
$%s
T(R1)
CHP R1,DTUM
CLR
3

g€Q
L

"é

;SAVE RO"NED’- RSSET ?

0L Y
; DRIVE ACTIVE?
010 TH frofié HAVE

(R4)' ;IS

,GETREQ

iGET

INTER

-gglfi NIRY FOR DRIVE
.
NOT

BR
MOV

007650

88,39

o-l TIMER(R3)

;ST

BNE

SS’

BIT

AR _UNL
%ma RPCS2(RY)’oy
vs?

01
01

353;3

012402

u4S:

oogoi0 ¢

s
000010

xvs
I% HAD AN I/0 REQUEST
F THIS SDRI

.0Tuu

000016 3s:

0000

e
Moy
afllc

RPCS1

SEG 0079

?na.flPCSE(R‘” Re

000010

:'.S%
43 |ol
452k

15615

(REV 1.0)

= 8
q

e
1

BU?

QN-NOV<7Z
1 7idhy /576
OEE DRIVE
21
T RHL1Z
R

SINGLE /DUAL POR :

010000 000010 C17:

{ i

12:49

MACY11 30¢( 104%)

4165

419
4187

ALNMT

I1712,RPCS2(RY)’ 5NED" SET 7

1715181701, 16(AB) |:SET *DRIVE NON-EXISTENT’ INDICATOR
4
N By ~NON-CLE
PARITY" ERROR INDICATOR
sRITIRGITIO, ““; g 148 n’ RRABLE
76 REGISTERS
;"E

m?“
?TE

LG(R])

TIVE" TO IOLE
creR

I IR
e

BIC

#8187, R1

SSV

CL AR ALL Afi?.
OF
S:ouesv QUELES
oahos RPCS2 (R4)’e
o A8 RassausT

#2,R3

HOV
§-1,07uM
CLR
TANSWT

!MOVE TO THE NEXT DRIVE
:

Ro-0aTA T-"g R:IRE:E?*T‘?QUELE
<

czn:cao

cO?7

e %i#&qgmfiooxvzmuns&/s?og?ven (REV 1.0)

RPON/S/6 HERD ALNMT

ce. b1

DN-NOV-77 12:49

en T
4244

6s:

78:

o i
&éfl
8rec

RTS

0Oleues

SET.IE

SEG 0080

RRS
; SN‘Egl

; LOOK AHEAD ROUTINE

F CALL

Bg 555g

y
£

[

XSRR

= e e Sy =t etetalwladwiwiwt
et ul ety wiywd e wted

B87E3 007712
000010

81%23¢

JSR

"03
gga
4§

000012

0000000000000 000000000000

007704

177776

007716

007634

012074

spnggénqtnq)
nfi:no.as

:stanr

rn rnansren

T RPCS1’S ADDRESS
v;
cY

NT CYLINDER

;
1

N ch?: R=DESIRED

NT THE LOOK AHEAD COUNT
)
LACNT(RI
NT(RI) MXLACT'
xg(nz) R3
géSIRED noonsss AND
T8R é?
S
;PRIORITY
L
oguo
aoPs
REGISTER
;READ LOOK sthD

y+,R3

SEP

MXDL TR, R3

CHP

MNOLTR,R3

2
T

#¢22.%64.> ,R3

;CALCULATE THE DELTA

; MAKE THE DELTR POSITIVE

(RO)+

PC,C17

;Snocsss THE ERROR

LACNT(RD

3s:

15T
BR

(RO)+
11

RTS

CHE---&E
¥1Su?gL
HIN THESEE
ZERO
L?
8EQIT
afiS #32% T

Clhe
1ST

E xIT

2s:
c§:

WINDOW

NGB
gggg
MOVB
AoR°
ASR
JSR

N§:

i BoINY T
ir
:

cuscx
.co

(SP)+,12(R2)

MOV

18:

,R1

CMP

RPLA

002600
007714

s0PB

Engxusr THE RETURN ARDDRESS
RETURN

7 3;

£50001

704
701

007704
00770

[

R 2
O

et
b
e

; INTERRUPT SERVICE ROUTINE
0000

[

L£EL

nnn
NNN

000000

;

=8v

007622

ISR:

MOVB

SAVREG
MOV

MOV

#1,ACTDRY
RPADR, RY

DTUW,R1

;SET “RCTIVE DRIVER" FLAG

iS5AV

QDD ESS OFHSCS1

GET “DATA TRANSFER UNDERWAY"TM INDICARTOR

CZRJCBO,

RPO4-S/6 HERD ALNMT

CZRICB.P11
4

:aea

qa!’

:ggé

O4-NOV-77 12:49

0 31

MACY1l 30(1046)

BLT

012632

012772

égz

; 007622

’

iggg;

% 39;§79 007670

“333

12646

4310

:gix

4315
4314

4315
4319
431
4318
4319

4320

:555

}

101

Q0127
12
1271
012712
012714

012720

012722

177777

10:

015200

:gga

325

4326

:337

nnucn IF NO DATA TRANSFER UNDERWAY

g,ro

rnnusrsa DONE

22“&50 Sc.sc

CIAL couoxrxous

c*ge

ACTDRV

CLRB

DRVACT(R1)

RTI

CE
nn “ACTIVE onxvsn* FLAG

géx

35 08 5v§nnusz'ss uuée

8-1,TIMER(R1)

;CANCEL TIMEOUT

g%g

oax

RPCS1
c17
ROL
BMI
TST

(SP)+
3
SAVEFG

JSR

PC, SVRH11

vss--snvs THE REGISTERS

is:

ggg

;E'Egrneo

s IF WRITE cuecx TO BE PUT IN QUEUE

C,O0PT

CRLL OPTIMIZER

MOV

MOV
JSR

% 0

BPL

15TQ

r R2

stna)

R2’
gs

;GET “DPB* ADDRESS FROM THE

: TRANSFER WAIT OUEUE-—CLERR QUEUE

§5L55$
§u£ DRIVE
RANSFER ERROR(TRE=1)?

IF YES
VE T"f RH11/RPO4/5/6 REGISTERS?

F NO

NTRN?
Pon6R

4355 012726 004737 010764

is:

JSR

PC,OPT

;CALL OPTIMIZER

433 01573 019714 000113

25:

Hov

8513, (RW)

Ss""‘ésg"‘" BRIVE:

040111 (RY)
8113, (RY)

i 198
1158

4330

009

.ENDC

:333
oi8127502 oou7gb 015740
100100 000016 33.’
4335
4336 012754 004737 015200
4337
4338

3333
4241

:g:

4344

4345

4346
4347
4348
4343

4350

012760
012764
012770

012714
012714

000400
0C1

cnron T0 IDLE

311. TUM
a

oouggz

ASR

10164 014636
1 o~
007644

Jgn

SEG 008l

MOV

0040

123
10041
737

PAGE
8

007650

007616

DO?7

: TRANSFER DONE ROUTINE

17:31

SINGLE/DUAL PORT RH11/RP04/5/6 onxven (REV 1.0)

qan

3§§;

0O4-NOV-77

04011l
000113

S?s
JSR
JSR

MOV
MOV
BR

lBITlS'BITOS 16( hg
ssst°RH§T“ER
IVES QUEUE
PC,EMPTYQ
u2“~oax
S
PC' SVRH11
AVE ru: RH ;,xsoq,s,sREGISTERS
sC

R LER

:CHECK FOR OTHER

CLEAR
0 THE DRIVE
DRIVES

.IF NB

:FORCED WRITE CHECK ROUTINE
WC:

18:

1ST

AUTOCK

nuronarxc WRITE CHECKS

JSR

RO, DRVGUE

iPUT THE OPERATION IN THE QUELE

CMPB
BEQ
CMPB
ENE

82,
SCODE (R2)
1
og.scoocrna)
2

F NOT

BEQ

RS
op;nnrxou WRITE DATA ?
'BR ¥r°$
WARS
;Lns
Nsnnrxon WRITE HEADER & DATA ?
‘BR
_IF
NOT

CZRICBO,

RPOY/S/6 HEAD ALNMT

CZRICB.P11
4351
4362

04-NOV-77 12:49

EO?
stcLE/DUAL PORT Ruu/ngfiu/smDgfvsn (REV 1.0)

MACY11 30(1046)

BR
CLR

4353
4254

MOV

4358

29%:

4361

000

3325

4366

012772

81 ?
01

116403

%1'01

037

i B toode
4369

4370

4371
3;4';5
4374
4375
4376

4377
437

4379
4380

813010
013012

013014
013016
013022

81
1

0130
013034

438

8130

:3333

oimm

:g%

uzaé
4385

4388

4389
4390

:gex

12703
00S001

014636

pres

ROLB

BMI

.IF DF SESCAPE
S
JSR
015316

18:

28:
000001

005201

SCY:

13 3
7

oiaoasn

007576

SC5:

013750

007606

18:

13750
7556
105761 007624
34

2s:

wgg

oxgx

683751

007556

4404
4405
4406

0131
013154
01314

032737
001002
000127

040000

0131

419

013610

ERROR
J§R

RTS

ma:

007536

RPAS(RY),R3

RO,RD.RP

-SAv: CYL INDER
xs ?ECT

AND TRACK ADDRESSES

;
ITE
TO CHECK
;CHANGE DRIVER CODE TO WRITE CHECK

iFINISH CHANGING CODE TO WRITE CHECK

:EXIT

(SP)+

;SAVE THE ADDRESS IN 'SESCAPE’

|
PC.SET.IE
PC

REPORT AN ILLEGAL INTERRUPT
ser xmennupr ENABLE
IRET

aa (SP)

cxagfe

1S “I1E”=1?

RO,ES. SAV

gn:

:READ CONTROL AND STATUS REGISTER

'YES,

-(5P)
na(gm

MOV
CLR

;READ “RPAS"

:BRANCH IF ANY 'ATA’ BITS SET

CLR
MOVB

gcs

NO onxvss T0 CHECK

PROCESS ALL DRIVES THAT HAVE
(AN *
=]

:ATA=1?

: YES--BRANCH

né

iMOVE

;;T;

;gpu

TSTE

DPINT(RI1)

JHP

gcxa

JHP

gcxa

TSTB

ukorLc(nu

2R
ISR

P!
SEmRed
PC.5C12

TSTBE

DRVSTA(RL)

3
BNE
JMP

8BITI4,RPERRS
3%
8C11

:WAS mens AN ERROR?
!BR IF ERROR
:NO ERROR

an;

BEQ

ggra

gge
BL

4398
013150 %37735 B1eg3s
4400 313153
7 813500
4403

MOVB

BNE

JSR

SC3:

05761

4397 oxgua

SC:

363

439 §1§7~4
43953
% 013106

000016

001

00S046
610315

)

; SPECIAL CONDITION ROUTINE

100403

1
1
%37
7

BISB

RTS

cgnz u‘ ré ogp&mon CODE

.ENDC

106126

°‘fi

4334 oigig

4401

VA +s(

VA(R2)

BicB
a*ca

:ggg

4364

spngunz mvb<§§>

MOV

4356
4357

SEG 0082

;QUEUE 1S FULL
CLEARR ’

MOVB

4355

4365

04-NOV-77

SC3

sgvsmmn

r MORE TO CHECK?

A ugrtSTACK
NI ;n.x

:nosuu)

TO THE NEXT DRIVE

ING THE DRIVE ?

Eg ug

a*: T oursmnomc ?

a&v
r ggrsmuomc COMMAND

"Sr«c

%o‘go
{u PROGRESS"
:
H

RVETEE

IF NOT

L1PRPOM/S/6 REGISTERS
2935 %31
5?: EE AND RPER3
;ALSO DO

xvs xfm wm'/

onesvs
COME

---BRANCH

CZRICBO,

RPO4-/S/6 HERD ALNMT

O4-=NOV=-77 12:49

CZRJ ¢8.P11

MACY11l 30(1046)

04-NOV-77

17:31

FO7

PRGE 83

SEG 0083

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

Y407 013152 0137
007540
w408 013156 ogg«
1%; 007546
::?3 oi 169

3s:
5§:

MOV
§n
STB

RPERRS+2, RS
SCBA
ggzncnan

YES -- PICKUP nmu AND
co PROCE s THE ;
uz WITH COMMAND OR ERROR RECOVERY ?
,§§xv§

Y413
01 xgs 635 11 007576
Y4148
0131

BNE

1578

gpnmnn
cY

;‘r‘kv
ngorg
9UE
x¥
ms“ DRIVES
”
:
F YE

::ié 813125 gfl 7 013700

;ms
T

i
1

x%g 007556
éo
020000 007544

Y422

0132

013560

4427

013234

104002

wis o135l 59-14; 000113
813553 %%0 015612
EE]
w4421 oxaagg

001

177777

149636

4438 0011
4439

013254

:::cli

ugfl

13274

3 §$oow
6034
0164

oos;o;

:mg 31

:339 §i
wsg
w43

4ds
§i
wsg 1
<45

4y4Sg

oxaggg
013

2
iR
Wbl 013360
4462

013362

gcw

:REPORT T

JSR

RO,ES.SAV

:SAVE THE ADDRESS IN ’'SESCAPE’

SCh:

BASLOr 31
2cy
MOV
8-1, TIMER(R])

RROR

uzg

100210

3 014636

000016

3736

005702
001447

RO.RD.

5C8

<g>‘ns

nno PUT r“x‘nsasm’

gggm
SC8

hoY
JSR

RPCSI

"’°'"s"‘
ORE BRTvESC CHANGE
§amsgauosos

gggsx

MOV

BO0ITI

XPECTED ATTENTION

GO cuecx"iog' 'noSEE nin-s

SS
POXNTER
FROM
THE QUEUE
“Sc ap

gés

18:

:RE % TER uoex
:PICKUP (RPRS) BEFORE THE ERROR CALL
:SAVE THE ADDRESS IN ’SESCAPE’
:PARITY EXIT ADDRESS

PC,GETREQ
né,apcggcm)
Rl

%ote

364039 018012
13560

JSR
MOV

ASR

sTB
BGT

13560
egg;

i CHE g ON %{, 'S STAT
gnvsm(nn
oixna RPERRS+6 ;
SS PLUG CHANGED ?

‘mé yE?
é% INTO RPCS1
fi!

73; 007546
d44e 01013304
@59
01331

4446
Y447

007650

1 mm RPER2, AND RPER2

13,-(SP)
39
Ré

.IF DF SESCAPE

4439 0i3o4s
bO0EF?
4435
01
oog;ox
Y436
013246
012761
4437

ROy
Jgfl

::aeg 8%335«:33 000701
4430

;ars
ax*

¢,sC12

RPCS1
SC8
7?& - ’Eggm (SP),RS
RO,ES.SAV
.euoc JSR

::ga 013232 mu;asom
a
:3555

3335

?'é%

BRscx*VACT(RI)

cu: K
135 gc
gn g
oax
nvs uxm ORDER

RO, RD.RP

:READ ERROR REGISTER #1

(SP)+,RS

;AND SAVE IT IN RS

ggx 15181707817

2?1?”’3?.%.‘»,
RO,WRT.R

0%
TsT
H

BEG

04'S STATUS REG.

sC7

é’%n
(R2)

;INFORM USER OF ERROR RECOVER COMPLETION

T
L L By, s TR
g
Rl
conprTIoN -1
'ANYTHING IN QUEUE ?
:BR IF NOT

CZRICB
RPO4/36 ",‘,“97“‘1-2"19
CZRICBO,
.A11
0N4-NO
10;12‘00
w463

013364

44Es 013374

052762

3 01463

332‘2 giig
::673
4zs

i 1
0Of

483

01347y

Y486
4487

01351
0116

dags Ol

Wgs 81 Y4
44
94

4%
44%

1
003

7672 000016 1S:

70031377

012122
Biavas

18
28

4209 013610 109981 007624
§1:6w
02

408

13652

OI%sE

136137

e
e 123
gidE Qg02
4€13

4els
ib

0136

O13cc
e Oov W
BN

007624

oo7ere

sCil

ooze2o

‘%

5 G238 ooooie

007644

‘17
Q178
BOVS7 Biose
a
4E1g 0136
74 000137
013042

CRE

)--UNS

40000 ., TIMERC(RL) ;START 30 SECOND TIM

.s.axn;;egnn?eanggk%eé ) o
1

MP T
UE
;{DUUNLORD
N PROGRES
S OR QUEUE”

ATABI
T(RI)
VSTA(R1),

RIYTM,g

;
F
ADELGRL) consASSE
AR

’ -(S
. P)

M1i3,-(P

]Is1B

scy
BVACT (R1)

SS
ok

éC

YSéa

CLRB

pe' &7TREG

:
Bt
cieacnss
K

DFLG(RI)

VACT(R1)

G o 817
ve FLA
ina
s

?Rfs

HNAMA
ND ND INTO RPCS1
;'REGéngTER
s% OCO
OM
P“x

tRRT

‘P,‘E KYF X ;oa

Y8 _OR DRIVE

I1D
D LE?

; IS

Ex-"ir'fes

!; 2§§PROCESS THE 'é PARITY ERROR

N L oge
ORRECTRBLE PARITY ERROR
e
CK
RO
RE
DR
E
!SUNLORD IN PROGR veaNEC

ESSTM?
;gngfiu&‘{ii e

;st

1OLE

DNETTRD

it
%7

Sgt';
o;mfgma) i{SET
M % o,
SAverd’
SAVE “DONET
THE REGISTE
RS? e,

Nove
nove

JHP

srcwut
;

; DOTNG ncgémcu?opcnnnou FOR
H

;BRANCH

ATAB
ATABYTCA
b3 .CLEAR
IT(RL
LEAAT
I),RPAS(RY)
R TE
ATTENTION BI1

eca
sC

INFORM USER OF ER

u§ LG(RD)

sgg

BRL

’

wiml

BGT

7278

o13042

£ Wt

§ama.ns
joHOLS =1
321 DRVACT(RI) RET vE ERROR RECOVER
1,BRVSTARL) iONLI
.

DRVACT(RL)

00DLIP

.
§ce:

;READ DRIVE STATUS REG. #1

RAF
D
%—1 DRVSTA(R1) :&I%M?gl% SEEZ
/EL;:Z:STEQS
:c;g?s‘éfna.xs(fia)vs ; INFORM USER OF UNSAFE ERROR

cLhs

RPCS1

016034

RG RD.RP

MoV
v

1801¢&
2

;

Qopu13

23y 81327
288
1:;5.00357E
4203 013604
4506

E?r
o
MOVE

{ 0 8¢

013S6M
14
4499 0132
66 Bou7

4505

338

MOVE
TSTB

4498

GO?7

Rov 141
ggl\.’fl

%7555

013550

Q13
Ese
QL3554

2s:

SC7:

2,%“51

ROL

000016 38:

g
o1 553 11616
wa‘?
813
{
5""

4431
da
Oio1

18:

087826
007650

4483 Biies
44

:31

PAGE
—res 3‘5’{&8&30;;&_" 982{175.41{%36«/5/5
Dg?VER (REV 1.0)
i
BIS
BIT1S!BITO7!BITOS, 16(R2)
; INFORM USER OF ERROR

007556
——

4473 §‘§
476 o1
a4 4 giffig
473

-NOV-

i 2HECK FOR MORE DRIVES

;

RH11-RP0O4/5/6

REG'S

SE G 00e4

EERTER
s PO BUENGER

HO?7

MACYLL 3QLLRNE)
o Rl POKT Amil ARy
EDE ORTVER (REV 1.0)

"%3 §i§;g

nSv

néga
33a&s S

MOV

RPR <m;,mans+

‘%S"
AS

4521
4522

01371
3137

4524

013734

4523
4535
4E

b4258

333?

O
§xi§§

- ]

3*”22

xani

:gg;

014002

014000

001006

014004

012761

177777

007650

oo
sc13:

<E-E
4847

omgg;
014

ooo;zo
63§o 1

4549
4S50

gxm
01

705
1»57

4SE1

4552
45
£s;

455

:ssgg

014042

014050

014054
{:07
N

14074
14100
14104

0047

000137

023420

007556

VINT

3;1, TIMER(R1)

016034

7905

013042

4569 3”153

2s:

JPL
;

3S;C1' i:i
7
007650
4e73 8141% 88343;
(14140

Q01414

166662

003003

000002

007650

,ngun

{PROCESS
pfivs"é%n
95E>%0"TH2§
DRECS
MO

s OP THE
T

an xr nvnxman.s

?sra
gfga
JSR

ogmmm
ngmm
RO, DRVINT

RPTMR:

.8
Pa

:START 10 SEC TIMER AGARIN

:innm.xgmc THE DRIVE ?
:CLE
A 'r‘o NIT INDICATOR
:c mxr"fl}. &axve

NOP
1518

DRVSTA(R])

i
i

TST
e

R;
3

:83‘% ENTRY FOR THE DRIVE
;
nor

g&zggmu
c,O0PT

C#Sn PORT
ngoggsr g‘mxcmon
P NDIN

9
3ng

cgge
J
JMP

Jgn

xv;

iBR_IF

mi"ERROR RETURN
NE
*
YES

-- START ORDER

c:r DPB

ogtngflamu xs(
n THAT DRIVE OFFLINE
m Yel
THE
ST QUEUE
£MPTYQ
sC4%

;RPO4/S/6 TIMER ROUTINE

“S6
gwus
1159
000001 007623
45
Gl4124
1049412

THE smre OF THE DRIVE

: TAKE ERROR EXIT

uoooo.,rxnenmn

JSR

3s:

:s@s om%g 885737 0c7622

(WILL TELL US SOMETHI

s INIT.

MOV

BGT

4ees
@:é

474

1(RY)) RP RRS+2
(RY)|

BNE

18:

10764

AVE THE FOUR nscxsrsns THAT

ECT DRIV

nxIT(RL)
sgnpnsmu)LECT
:CLETals ?n
HE ATTENTION BIT
e
Y

007650

4560

473

ngg

(RY

ASL

4
000016
704
1
B0 Gl

;

MOV
MOVB

006301

4842 014016 105761 007576
“533
oiwoaa 2B2aE! 007576
:Zws 31385‘) 60%“83* 010134
4548

MOV
MOV
JSR

4532
0137
ou ioE x!sc-oY 000010
Y
:
767
EH B Mol gige
o 16
4S35

MOV

STIME,-(SP)
Pc,gstm

paocess

R DRIVE

ASPED TIME IN MIL
ONDS ON THE STACK
Eh. Egm/s/a nné késfi

Efl

Qgronv

; CHECK mcromzr 11; ACTSTR"

CLR

:START WITH onxve 0

MOVB
81,ACTSTR
SAVREG
%g
BLT

$3nenm31
ai

BGT

SUB

égr“n”
as

THE T nsn RUNNING?
égmcu I

2(SP), TIMER(R3) ;COUNT THE x TERVAL

'BR IF NO SOFTWARE TIMEOUT

SEG 008S

PO A
B N
a0, PyAA

5201
55
Tyl

4S7S

4277
273

014150

004737

Oluize 808201
1

523

aggg
gi:i
e §“"73g gg*i

107

MRCYHL gSING
RLE/ ouRl! PORT RH1l/APO4/E76 ORIVER (REV 1.0)
ok

014202

as:

.
182057 007623

4283
Oluize Oizele
4S84
01

4s:

sgcgz

iNOTE:

[

4200

000207

;

M
4833

LIe S
o)

RESREG -

460
46 5 Swg
014236
014

;

RET

MoV
MOV

R1,
-(3
zg
oisP)
e)

iiGE
20VT_A
E R3DDRESS OF "RPCS! i

RPDS1

—
702 R1)

T
+PRvINR
G O INTIALIZE THE DRIVE °:

useq
000016 1S:
:g}s §}.,§33
3
46
1 °i=§19
]
B
e46
s
465s
Qiuzs
e
%&
1
0075
M izg
1
Bt
% 14
33701 007670
B
B
e o
000010

007624

;AD
JUST THE STACK
s RETURN

s
14

108061

"z‘E%“é‘cr'x‘SE SOFTWARE TIMEOUT ROUTINE FLAG
;DRIVE NUMBER

ISR
. PC,STO

MOV
TeR

1
BNl
1STB
BNE

Q14272
4

sQuT OF ?E‘XES’

THIS ROUTINE MUST BE EN TERED AT

TSTB

sl ol
%i
é B1

: SOvEOT
ek e
Drrve

SDRVNUM, R1

STO01:

@ glisg

ROUTINE

Rov

sTo:i

14202

014364

gL
R

s8R

STO

Gl
e
4603 Olusse

4630

TIMEOUT

014216

4614

8
e

SEG 0086

iCALL:

;

459 81"020"
4233 Biusie
400
4e04

3§’

; SOFTWARE TIMEOU
T ROUTINE

459

5
:2"5

éa

CALL SOFTWARE

PCSZ(R"”
né:no.np
INT(
02
oo

Jweuree

;DRI

;SELECI THE Dfl%xgus REGTM
;READ “DRIVE S

; 1%1’

BR_IF Y

F Y

X 112081109, 16 (RSK
} SET THE

1
CLRB
GR
B
:
RoY
§;"§
CLRB
CLRB

€0

NG PORT REGUES T FOR THE ORIVE ?

iloe e urr gk
:

:GET

T QUEUE

CTSTERS
gg,?"""‘#csa;nu)‘?e\ffi Tt nasERROs RBuFRE
s
gLDFLG‘R“
'g%fm WITH DRI
R
\IN
RO, DRVINT
VE
s IT. INIT. TWIS DRI
RE
TURN
Bew byo e
.
$-é
¢
5§33u;lna
;és THERE
170 ON THIS BRIVE?
; J
;gfi';é‘“‘”‘POINTEFROM
R
GUEUE
Bl
N
DAVACTIRI)

;ORIVE

;

LE o
AR IS IO
UNL

WAIT

JCBO,

RPO4-/S/6 HEAD ALNMT

ICE.P11

O4-NOV-77 12:49

= 8{:385
iy B 000010
143

763

177777

MACY1l 30(1046)

4635

Oiuul
{3323

007650

ST02:

11:;7 007670

451

014472

ST03:

:‘659 1450e 153%2213 007606
ue’.a? 8}:’@5

737

177777 007650 1S§:

012174

STOS:

-«,azE Di¥53c 10S0E1 NN7576
4663

4664
4665

0145

01454
0145

16034

STOB:
007650

67 §{‘§.a?‘ 7.3 é‘x’e’.o" “aq atogs 1
0Ol

3
fign
478
01461

4676 omses
4677

4678

4679

81%

014632

12762

77777

100004

000016

759 015740
737

12603

012601

60 014634 000207

015200

frabTM

T
RNITERS \POERaY
{CLEAR ALL REQUEST QUEUES

zéa
1518
BNE

T(x)znnn
S(R1)
sro?

: En \rxF i xnmxu. zgo THEou??IVE ”
:
ORT REQUEST FOR THE DRIVE ?
'33 F YES - NO RESPONSE TO REQUEST

?saE

30.50.::9

' YES--CHECK "ROY"

T07:

ST08:
5T09:

;STOP THE

, RS
;
ATTENTION REG
BITB n;oRS(RY)
IT(RI),RS
:IS ATTEN
xgn FOR THIS DRIVE UP ?

BE
T8

518

SSV

a#boruu

g
DPINT(RI)

gs(R1)

gTxnflum:n

3“7‘1‘,7,'38"5"“ UNDERWAY FOR THIS DRIVE

8.1
“ngrec
553’*}“&%%"&,T,o"ENER”E ”

;58"*,-"‘"8‘7"57 PENDING ?

E;?é THE TIMER
5

ggn

Ptf-nge

CLRB

DRVSTA(RI)

B0
§§s

8
i BROTFNoT T OUEUE
g%?xs-amu 16( Agi"
sar"-gom THE USER DRIVE NOT AVAILABLE

1y
MOV

' n 1BIT2, 16(R2)

CLRB

gpxmmu

§-1,TIMER(R3)
Pc, BETREQ

FeRe B’c“ iRed
MOV

JER

TIMER(R3)

E ng

:GO HANDLE THE PARITY ERROR

;CLEAR THE INITIALIZE INDICATOR

%P UNIT

;5T0P
TGET T

’ég"B A0 §suso —

QR
g FoR onnee ¢
;INFORM USER OF PORT REQUEST ERROR

sCLEAR

THE QUEUE FOR THE DRIVE

JSR

3° svnu 1

sa
THE nccxsrens

RTS

:RETURN

MOV

+,R

44 'Rl

RE rone m

:ROUTINE TO READ A RH11/RPO4/S/6 REGISTER

4684

YELE

OFFLINE

ME
PR QDDRESS

:ilj"g
:

TIMER

MOVB

MOV
JSR

M §iu"§5“ 001425
%%53 ui qs%flszs
?5 140000 000016
4670

PC ,CLROUE

ST0

£ Hun il
migg §}=§§
61 007576

mjagg §{§§g &3

POk

npch

i
N
ghn:_;_L
VE BEEN CHECKED?

CMP

014636

gxwrg

e
52..&1

ISR

fiiq §xn36 60035031 007576
4645 {wso
1751 007606
4646 gstu 68?0&&
4649 01446M

PRGE 87

ggg

4e40
0144
ggx
w‘g 15%2;- %75“7216

4650

JO?7

#-1, TIMER(R3)

MOV

éS;F
¢ gty
15662

@:g giwg

17:31

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

*gg

4638

04-NOV-?7

iCALL

INDEX

Ro,RD.RP

;GO READA REGISTER

‘REG. INDEX FROM BASE

SEG 0087

CZRJCBO,

RPO4/5/6 HEAD ALNM

CZRJICB. P11

04-NOV-77 12: 49

MACY1l 30(1046)

469
4633
4694
%gg

;
14636
14644
014646
014654
i

007702
807704
14662

4697 014664
4698
Oluess
4700 gwm

4708 Ol47io
014712
4704 81475
4705

0147

4708

014730

4706
4707

4709
:;i?
4712

014730

014732

4715

019

4714

014;33

4716 014744

4717
4718

015000
014662

ow;-sos
019

3;53 8}:%

RETURN

MOV
MOV
MOV
ADD
53'%55 MOV

NE
BIT

MOV

]

18:

c
BR

.IF DF ssscm:
il
SR

005737

00405
16

1'403

7
00041

007670

13;74

4728
4729

015004
015006

011000
012616

PRGE 88

RROR

7704 014774

:;as o*ugs 00532
47, 815002 %2003325

RBABRC:TSED’
cnpg , (5P)
RBIRpS ISPt
SRPADR, -

ogxna:(s )

(SP)

013737

016637

007702
000002

oisiez

015100

TER

ANCH IF YES

OR RETURN

; REPORT -ncps ERROR

NO--"TRE":I"

2s:

géS

(SP)+
RD.RP3

?ggm,tsp)

mxe

no“xgo

ml)ag

MOV
INC

RPADR,
3%
3gp

)+,3(PC)+

no'npa DEC
e éc:E

(PC)+
So.nm

RD.RPY4:

RTS

(RO),RO
(SP)4, (SP)

MOV
JSR
INDEX
ERRADR

gam -(SP)
0, WRT.RP

RETURN

WRT.RP: MOV

MOV

: NO--BRANCH

gégfl

2(SP),WRT. WD

HE STACK AND
snaon exu

% n “1* T0 "TRE"

moég

mcu svrs

umu BYTE OF RPCSI

EXCE o?.o
MAX. RETRYS
H IF NO

FATRL ERROR EXIT

;:DATA TO BE LOADED ON THE STACK
;CALL THE ROUTINE TO LORD(WRITE) THE REG.
: INDEX OF msenscxsrsn TO BE LORDED
;noggg g T0
RETURN TO ON AN ERRO
;ER

MCPEMX,WRT.R2

THE RPO4

K TRTVE NON-EXISTENT
:RERD RPCS
:gD MC é:v

gmu,:sp)

gé‘s‘B

: REG. ?,3“} NTS fmy HERE
BT
THE AODRESECONTHE
STACK
:FORM THE
§s_OF RPCS2

015020

;SAVE THE ADDRESS IN ’'SESCAPE’

:CALL
:
:
:
:
0150 12

no?m:ss
ug‘

RO,ES.SAV

4734
4735
4736
4737
4738
4742

gnu

no:ggsr

;ROUTINE TO WRITE A REGISTER

4741

-mx
mv
;
; onn fl:
;USING THE
;
THE
;

523 IS ON THE STACK

(SP)+, (RO)+
RD.RP4

:;gg

:;33

!comsN?s

:DATA_ TRANSFER UNDERWAY?

RD.RP3: MOV
MOV

000200

MCPEMX gg.ma
(SP),-tSP)
RPADR, RD. ADR
(ngu RD.ADR
(PC)$, (PC)+

§5--PROCESS ERROR STARTING

DTUM

014774

; vTan%xnoo

SEG 00ee

040000

;; 040000

4721 mr%
014 01 37
015010

RD.RP:

,
&m‘fig

4722
:o';ga

:;g?

727

014724
014726

4713

KO?7

ERRADR

RD.WRD: .W
84756y
000002
Pov
803368
nog

4703

17:31

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

4687

:ng

04-NOV-77

REE RETURN

;MAX RETRYS ALLOWED

iSAVE THE WORD TO WRITE

(

EERTCR
e IOV BUENGV P, e
4794
:;\05

4rug

4748
ues

012030
{

0001S0 015100

BOf

rabbetiBorammdt &Y
15101

e Bigt
377“:;
;Ei
476
181

o1eies

#BIT03, (SP)+

WRT.R2: ORD 3
WRT.R3:

WRT.RY: ToT
TST

WRT.RY:
.Rs:

BEFORESENDING ITT

ffigi‘go
‘(‘20355
(R

;FORM

THE DISK REG.
] 3 g&“

;0:2
T

BDORES
S
13
"'E
%
crack
L FORN THE
£85 0F RPCSZ

e
eON WRITE
{GHECK
POR PARITY ERROR
o

U e el DEX

.gamcu

F_"PAR=0"

,%?um Y0 THIS ADDRESS ON ERROR

;SAVE THE ADDRESS IN *SESCAPE’
PORT THE PARITY

WRITE ERROR
,o (7:25""7 THE ERRON
ORC
1

NQT FINISHED

.cbs(m0""9&1?\«
ON WRITETM ERROR EXIT
sofusr FOR ERROR FREE EXIT

;ROUTINE TO SAVE THE RH11/RP04/6/6 REGISTERS AS PER DPB+1

018176

{CALL
:
;

018230

WRT
|

-D0e BEeoR Yocr
: e

:;;’é i
3;6;%
4% BigsT oii’? 4 000l
4752 isaéw 00t03? pisz60
4798

(PCI4,A(PEI®

il ’523”2 RO,ES.SAV

15156

$ W%C

1/RPOY
;HTHE Ry

fBdny
Eéoe
:gfgg?kg
!
JSR
’ .
T

18:

;Y
S--'Trfsmyt‘nw D&Régit g%;h »

(SPOR.RT.D41

RPAOR’

RO, ,RD.
RD-RP

478e
n4
4787

4730

Hove

i
s'fi
Is

) (o)

014636

]
igi;%
470 D0i8i7e
4781
015174

=;§

AD,Ro.RP

007704

177776 015152

4773 HER

0850.

WRT:AD: s
WORDS §P- < Tyt

000010

4769 QISice

4782

Ak
WRT.R3

1100

12064

e Qieiso
BIEG B
4761

¢ -

014636

“%
12}
4788 Qiel

47
MEE

LO?7

-NOV=-77

AT FBNELE ouRL PORT Rma 1 TAPGw ETE og?vsn (REV 1.0)
Hov
(RO)*.WRT.RD
|
N "‘o?
grsn
REG iTO L
BE WRITTEN b
015102
mov
(Ro
o

sm i

4764

)

023727

0iS260

ARl

s
PRPRU
RNSR2

18:

INTER DRIVES
TQ R2REG'S
.
{QRVE
THE

Egmfingn?n';sron THE DRIVE ?

°§3 RSADR Ry
'
ol WTM SEE‘fnnon TABLE POINTER
H §§ “RPDB
REEE‘&STHECBUFFER REGISTER *
M

000022

]

CMP

SEG 0089

CZRJCBO,

RPOY/5/6 HEAD ALNMT

czn:ca.fixx

O4-NOV-77 12:49

4799

Q15236

001006

4804

(015254

MACY11l 30(1046)

§§§;

DO NN LW

e
Pt Pt Pt Pt P

DD DBDHDDHDD

Pt Pt Pt s

:aaa
qgog

15264
f
} 76

8{?3?%
81?314

014636

BNE

eg:
38:

Eg:
>

010446

i3
piES M
g
-.Sg 1?3?3 11846

091107 RPCS2(RY)’ o'on-

R
afi«s s

;

MOV
CHP

(SP)+, (R3)+
gifon#eca
82,38

:
THE :59
REGI
CONTENTS
: '7 2
: INC
THE
REG%&EESEE?Dsé:
UNCORRECTRBLE PARITY ERROR
'&?t&ifls

ggono

?gnncc fig,cxr
“‘Eg
PC

RETURN

PC,SET. {E

SET.IE:

MOV

-csm

crso REGISTER

;

éc

§L§33?
15375

4gde Oie3d
15374
o B

B0F
000

4g4s

015377

000

4es0

DISH00
015402

015462
015S02

4854

018412

018602

i Bisine
Bitess
1841
1

; SA

g‘x’r

rx'r?g.npcsamm' o"su

N
g“va

igulq
(SP)
,

?’ )+, 1(RY)

(Hfg?ssssmml

E
§"TRS“gn OF THE WORD READ
:
A BS

RTS
~$v

(53310

§t§
Ne RS
T0 CALLER

E
g
BYT

i BRIVE§
iDRIVE 3

YIE
B

.BYT

BYTE

iDRIVE 7

.WORD
.WORD

GQDRVO
QDRV]

;DRIVE
O
;DRIVE
1

: GUEUE INPUT POINTERS
QINPT:

iSET "1E"

EWde.
54 SSP

oueLe cop

8
X

;DRIVE NUMBER TO Rl

1S
%

ffi @én 8?8688
!

SDRVNUM, R1

JSR

i BiER
‘
b

SEQ 0090

RO, RD.RP

MOV

Eisaaz 0527}2 040000
1
4

£% BleE B
Jl
12668 000001

PAGE 90

JSR

:
:

01S316

MO?7

ggHmE TO SET THE INTERRUPT WITHOUT GETTING R "TRE"

;‘g

BIT

015260 000046 4S:
000002 015260

7
;35 012074
;

17:31

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

:aoo 0.5240 032764 000200 000010

O04-NOV-77

i0R8 SoR3
RVY

- W0

-WORD

QDRVS

i BRIVE 4
B0

IBRIVE34

:DRIVE

:DRIVE
S

ALNMT

RPOY/5/6 HE

CZRICB.P11

-NOV- 7 12:49

MACY11 30(10‘02)

. WOR

M 8%%«‘“2 812285
487
154944
12522
1554
:;S
El
"“:_'I?é
487
15
15
1

12452

i'-OS‘I

4873 012468

1 7%2
4910

1872

157%

15662

QTERM

gon ., Lfifi
00R39§=. .BLKW

io
10

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1sr

\'
CLRQUE : ggvnsc

CLR
8
CLR

e, cLROUE
—_—

(3:
(nax

B
DEC

cs:

MO
MOV
DEC

MOV

MOVV
BNE

—

iCALL

2 %

1§

=
Mre

i?ggg

ve:

2
e

489

QDRV3:

10
10

4894

015622
015642

489

Olceos

[Ty

Kid

GDRVO:

—

4891

018

ggSVé:

15§§§

“-4

4889
4890

;DRIVE REQUEST QUEUES

3563 Eiés
4887
4888

- 79

ugee

QSTOP: . Egg
QSTART:

Oicees

4878

NenEwS

5 LR Bige

1
15602

154
15432

QOUTPT:

4E8eY
4865

i)
E% Et{2258
£
4ee3 of

4881

iDRIVE 7

15462

:DRIVE &

3833?

BIDDDDBOO NCNLWR—O
e

154

::75

SEQ 0091

; QUEUE OUTPUT POINTERS

4860

4874

S/6 DRIVER (REV 1.0)

(7))

4829

NO?7

17:36“,PGE
9

/DUAL PORT RH11/RP

sgse Oisile 8i88%

48s

O4-NOV=77

—

CZRJICBO,

1 START ADDRESS

usng ALNMT

O4-NOV-77 12:49

MACY1l 30(1042)
04-NOV-77

BOB

n%u f

SINGLE/DUAL PORT RM11/

001373

/5/6 DRIVER (REV 1.0)

;

1044}
000207

SREG
RTS

SEQ 0092

;RESTORE RO - RS

:EMPTY THE QUEUE SPECIFIED BY Rl

:CALL
;

683%{

JSR

PC,EMPYQ

DRVNUM, R1

;DRIVE NUMBER TO Rl

EMPTYQ: ng’

gcmmn

:CLEAR NUMBER OF ITEMS IN QUEUE

015370

1513} 015400 015420

MOV

000207

RTS

3§mnnn.oourmm) ;SET OUTPUT QUEUE POINTER=INPUT POINTER

;ROUTINE TO PUT A REQUEST

:CALL

—

(=]

BERBEESRR

-;
:1
122761

000C10

{

015370

10271

015400

1(1185

01S400

001421

015370

DRVQUE:

,R1

:ga
MOV
PSA 2
RETunny
'rumé O DRVEUE

MOV

CMPB

?EO

#10,QCNT(R1)

ncha

NT(R1)

MOV

015400

015442

1515{ 015440 015400 7
fi%
2s:’

IN GUEUE

ADD
g@

Rng;
15T
RTS

;1S QUEUE FULL?

?a & YES-TAKE RETURN1
NCREMENT

annu
o

§ PARAMETER BLOCK
TURN :Eg
RERECTF
M
&TLRN
fr
ST1S ISFULL
IN QUEUE

R1)

QUEUE COUNT

mx;

; o-;

uu) osromh
.T

ST IN QUEUE

& P?INTER
T

THE POINTER

mnmu) oxmrlnnvs --RESET POINTER
mcm
: TAKE RET
: RETURN rflsén

BRe2ass

[yetweretete

0000000

;ROUTINE TO GET THE “DPB" RDDRESS OF NEXT REQUEST IN QUEUE

005002

i CALL MOV
SDRVNUM, R1
faguau PC, GETREQ
:j

108761

015370

017102

015420

000205

GETREQ: CLR

TSTE

;

2s:

;ROUTINE

gox

RTS

onVE
%R
10 m
' "oPF uotggougsrOF INTHEQUEUE
REQUEST
RS-

QCNT(R1)

xs mcns mv REQUEST

g?ourpnau.na

,chxup “DPB" POINTER FOR THIS DRIVE

TO "POP"

;RETURN TO USER

THE REQUEST FROM QUEUE

IN QUEUE?

097
12: 49

RPON/S‘6 HE
04-NO VCZRICB.P11

CZRJCBO

cos

MACYLL SZENGLE oull! PORT R 1 7ABby £7E 0RTveR (Rev 1.0)

2R3

10S361

POPQUE:

15370

Pt Pt Pt P

&%
82

Pt Pt Pt Pt Pt Pt P

000000000

; CALL

015420
015442

1
)

015420

T ORORE
gcnrtnx)

DECB

; DECREMENT QUEUE COUNT

osa?°¥<n1)osropt 1) gxns

¥usPOINTER?

égrnnr(nx) oourpf(nx) vss--ncssrTHE POINTER

MOV

R7S

.IF DF SESCAPE

DIRECTLY.

ERROR

;RETURN TO USER

THE CONTENTS OF 'SESCAPE’ WHEN THE DRIVER

‘“°$5£"§ 10 ga
:REPORTS

éouTPT(RI) §50n "EPSGEE§;NTER

MOV
no

cng
’ BNE
1

RO RO

SEQ 0092

’

;CALL

:
:

ggg

RETURN

ES.SAV: 533

RO,ES.SAV
N

; :THE_ERROR CALL

(RO)+ 1’-(59)

;GET _THE ERROR CAL s Sppmanat

fuz RETURN IS PAST THE ERROR CALL

Re
B rus“tgcng
B
s
ADDRESS
(SP)+,eSESCAPE nggrsne
MOV

0co

.ENDC

00l

.IF B
Yt

‘{FF

2 2R

ISR R IZZZ2I2 2222222232222 22222 222 2 22 %4

NLxgr

Faia
Attt At

n
O
v[ A
e O O e el Tl S Sy SEY
n = OWo NN LW
DWW

RTS

.LIST

lllllliill!llllIlllllil!lllllillillll!llliilillI!lil{iillll!lll

"AL1s

ENDR
0co

4813

.SBTTL
001

.IF

B
Rt

DATA PARAMETER BLOCK
2 2 2

ISR 2SRRI I22 222222222222 222 £ 2 222l d

fil;;:llilillli!llliiiiili!l!l!l!l!iliillllllllllliiiiliil.’iiiiQ
L

.ENDR

CZRICBO, RPOM/S.6 HERD ALNMT
CZRICB.P11
ON-NOV-77 12:49

3
161

016130

000

016131

000

DPB:

WORD O

.WORD REG

8039

ééso 016140

8051
gggg
8054

0l6iv2
016144
016146
0161

5056
5057
sosg
505
8060
€061
E062
€063

016154
15123
161
16162
016164
0161
01617
ODlE172

5055

8161

.BYT

BYTE O

5040

016136

BYT 8
“BYIE 0
"WORD
O
"WORD INREG
.BYTE O

2039
016132 000000
8038 016124 016140

5041
5042
8043
S044
5045
5046
8047
soqg

D08

PAGE 94

SEG 0094

.LIST

§§§2 §151§?
888
2053 016155
900
8030
§1sxsg
00
8031 0161
385506

soag
8033
5034
6035

MACY1l 30(1046) O4-NOV-77 17:31
DATA PARAMETER BLOCY

000000

.WORD O

REG:

.WORD

;gglgir VALUE OR FMT22, ECI, AND HCI
$GOFTADND 17
A
:: BUF g T (Hug?
aé NEG)
SS OR
:

:
8‘ TER
;
:F
:
TRACK

‘t¢51~3§2
EERkOR
:POINTS

;gfocm

NDEX

HOEX

POINTER

uflE

IRST OF TWENTY

RE Trspgngsn 1

:STORE RPOY REGISTERS HERE

O
O
O
O

: RPWC
: RPBA
RPDA
{RPCS2

WORD
WORD
WORD
"WORD
'WORD
"WORD
"WORD
'WORD

O
O
O
O
O
O
O
O

RPERI
:RPAS
:RPLA
'RPDB
:RPMR
:RPDT
RPSN
:RPOF

INTER

:T0 STORE
THE nuéx/
REGISTERS
;ON AN ERROR.
“IF
ZERO, REGISTERS
:ARE NOT
SAVED.
:STATUS/ERROR
INDICATOR
‘B§76§ = 1 =
ERROR OCCURRED
iBITO7
= 1 =
,
:BIT 14
BIT10 AND BITO& - BITO3
:INDICATE
TYPE OF ERROR

"WORD
‘WORD
'WMORD
"WORD

- WO

NUMBER

:RPDS

cg:cso mwg‘/'s HERD_ALNMT ~ MACY1l 38(*0"3) 04-NOV-77 17:31
ATA PARAMETER BLOCK
~NOV-77 12:49
CZRICB.P11
S0eS
€0es

016174
016176

000000
0000OC

.WORD
.WORD

O
O

EOS

PAGE 95

SEG 0095
;RPCA
‘RPCC

1046)
04-NOV-77
17:31
DATR PARAMETER BLOCK
.WORD
.WORD

O
O

. W0

- WO

PAGE S&

SEG 00%
; RPER2
; RPER3

iRPEC]

; RPEC2

CODE=1
COMND= 2
UF =6
C=10

;DOPB INDEX EQUATES

CYh:lé

STRATUS=16
JIF B

;i;;ll.l!ll!llililllllllQ!lllIlliii’llill‘.lllllilillliiil!liill!

;?T

LIST

3332

"‘kéa

000

2222

s 2222222222222
22222222222 %

ILxsr

.ENDC

.SBTTL

HERD CODE TABLE

-'llllliiii!Ill!ibil!l!llli.iiilililliliililllllillilIil’ll!l!llf

‘{FF

NL1§T
ST

Ilillil!llillillllllliill!liilllfilillllliiiiIlillliill!filliiil

'hL18T

ZWwn—-0O

1o 0t pt e e e e YO

.WORD

HERDL:

LWV~ O

:Crer
-ENDC

0000

[
N
ONMN LW

£LNNO

CRERR
FERESRERARER
n
o

for

e Bt Bt s Bt B

Be Bt Bt e Bt Bt Bm Bt B

O00000000000000000

B Ba

=OWwWOoNCNEWN-0O

0= 0t 5t 1t Pt s B Bt et e

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

bt et Pt s

Pt Bt

nundnuunununenunaaiuauianaiuneion

IBIRRZER8
3B

5096
509

;HERD ADDRESSES FOR CYLINDERS 24E & H4S&

OO0

RPOY4-5/6 HEAD

fEch?fixx

ALNMT

3~-N0v997 12:49

MACY1l 30(104)

HE*S Eooe TRBLE

016256

215?

gxgg

S130

16264

S131
132

01627
016274

S136
gigg

016304
016306

2
100000

139

016310

000000

018316
016320
D16322

000000
000022
100000

S140
3141
142
143
gi:g

016312
016314

S146
gi:;

HEADG:

lgs

HE e
£135 12332

‘ HoR

100000

001

GOS8

PRAGE 97

SEG 0097

.WORD

100000

: TRBLE TERMINATOR

.WO

.WOR

;HEAD ADDRESSES FOR CYLS 800 &

. WO

10.
17.

. WORD

o
1

000022
100000

17:31

.WOR

2185 Biesaq B80%s:
gisg

O04-NOV-77

18.

. WOR
. WOR

100000
0

.WORD
.WORD

18.
100000

: TERMINATOR

;HEAD ADDRESSES FOR CYLINDERS 400 & 4

18.
100000

: TERMINATOR

08
"WORD

HEADYS:

. WOR
. WORD
-WORD
. WOR
.WOR

g
17.

18.
600000

JIF B
: i;;lillll!llll!llllllll!lllIilllli!lllllllil!l!!iilllil!!lliiiil

€149

-NLIST

gigg

E;:;g;!nuuuluunuun"uuuuuinuuuunnuuuun

E1E4

.ENDR

€155
gigg

000

§§§S

.LIST
.ENDC

.SBTTL

€10
gigé

001

OFFSET CODE TABLES

IF B
;i::llil!lillIl!!ill*l!llillllil!iilllllllllliitlil!!lllilliil!il

€163

ZuLx§T

Eigg

sht;;?illilil!lllil.lillilliiilliiiillllililliliiiib.liillili!iii

€1e8

-ENDR

£1e9
gi;?

000

€172

016324

€174

016323

€177

018230

£173 81u324
<]

ogg
0

024

.LIST
.ENDC

OF TBLG:

— -8 TE

B'TE

BYTE

.OFFSET TABLE

FOR

CYLINDER 49

—

ePib]
OF TBLY:

gIMNUIN—INOININIDTNITNINOEN

0yUUUURSUUU0U0URUAUUCUOU0UULUULO(MU~TDU=\=ot=t4=UttU

(
.
.
I
S
NL
N
D
L
W
D
U
W
L
N
D
o¥VL)VT]NVTYGSVG]UVU)TV(eNYVOU]VIY)VI)=VT)GV=L]T)tGVTeVI=)ItoI)VUtoYLOeIl)VIUeV)o)]So)S)ooS)o)o)eooo)ool el

SNnTEI0O0oZRNIASC- s

s0g123“.5%%70123“S57 SB

AATATSRoBRRABBB
RPO4-S-/6 HERD ALNMT
caRJCBO,
04-NOV-77 12:49
CZRICB. ,5 11
MACY11l 30(1046)
04-NOV-77
OFFSET CODE TRBLES

17:31

HO8
PAGE 98
SEC 00%€

e0s

;OFFSET TABLE FOR CYLINDER 24S

TM —~ODOION TMQ—~DODA T Q~YMDO Q—um D

—ODTUMOWD—~0IOVTVYOOMU~TDN-—OFVUTDNOBVY~IU—~OTDU

TRLASRNRSNIRNUCNNPSSPWW%RW%RWWRWWWS%WHWew%7RHEB3RHA2H0A8R
18] (S

eBSRo =IFTWYTTDrTT])TTFTYTTY

-7

MACY1l 30(1046)

OF}SE? C08£ TABLES

04-NOV-77
17:31

108
PAGE 99
SEQG 0099

CZRJCBO,

RPDO4/5/6 PE@ ALNMT

ZRICB.P11
J
S290
Se9l
gggg

-NOV-77 -77 12:49

MACY11 30(}0'4?)
OFFSET

04-NOV-77

C ODE

016507
016510
1521

ee2
eel
Ssg

.BYT
.BYT
.BYT

g2 g
1651;

.BYTY

34
23S
239

.BYT
.BYT
.BYT

2554

52%

ggse
99
S300
S301

Qleel

1651
016
016521
01652

35
3

.BYT
.BYT

1652
16524
81(:525
016526

e3
240
e4l

.8yY
.BYT
.BYT

S30
308

1653
81 bS31

4
244

.BYT
.BYT

S309

310

S311
S3le
S313

S314

81!:5%
01653

01!;2..!3
016534
0ib6
016536
016537

S31S
S316
317

016540
016541
016542

S319
§320

016544
01654S

S318

S3¢ei

S3ee

323
Sgg

016543

ewg

37
40
41
S

4
4y

.BYT
.BYT
.BYT

4?7
es0
esl

253
254
ess

BYT
BYT
YT

sS4
SS

257
260

YT
YT

.BYT

256

VEN

S7
60

.IF B

: i#uunuuuiuuu:uuiuuunu&uuuuuunuunnuu

.NLI?T

:List

;E;;:!l!!llllllilillll!!ll!illlllllllfilllilllIl!lllllliillllliil

001

.ENDR

ENDC

.SBTTL

.IF B

MESSRGES

; i:;unuuuuuuuun"nuunuuuunuuunnunnnu

.NLIST

c34E

.ENDR

Eg:g

535
36

47
250
esl
ese

000

€340

2335
S334
ggg

.BYT

2358
g;:gg
£33S

PAGE 100

eee
eel
4

§326
ggxax

.BYT

246

oc!

JO8

i
531

S30§
S30
S304
S30S

53(?

TRBLES

17:31

:L16T

;i‘t;g:uunuuluuuuuuinuuuuunuunnnnuuiun

SEG 0100

CZRJCBO,
RPOY/5/6 HE
CZRJCB. P11
O4-NOV

MARCY11l 30(1046)

MESSAGES

04-NOV-77

17:31

KO8
PAGE

101

SEQ 0101

ARlal.H-lo omB=moi l\a=l\mme R—MOITwNn
vo—x =voxl -vodte —vox woex

.tIST
.ENDC

S:iagg

TITLE:

sFotn0NoO.«&%%nmmsa%%flffilf@fiiO%Wf&Wifi%fimfifimrlNmeIyOI—ANR

0s Sl ?S
o4 15

o40o0oeteoeeoe)eel0eot04o0oe0eo0oe0e0eO0oo0e0oo0e)0oo0oo0ot80T8I.&Iol;lo.l.lo.lal.
11

.ASCIZ

<CR><LF>/2Z-CZRIC-B/(CR>
<LF>

QaRPO4/S5/6 HEAD ALIGNMENT VERIFICATION PROGRAMa<CR><LF><LF>

/DO NOT SELECT DRIVE UNTIL HERD ALIGNMENT TEST BOX HAS BEEN CONNECTED/<C

z o - —“

THESE

7/ NOT

WITH THE ALIGNMENT PACK MOUNTED,

CONSTANT INDEX ERRORS MAY OCCU

INDEX ERRORS ARE CAUSED BY THE ALIGNMENT PACK AND MAY~<CR>:<LF>

OCCUR WITH SOME

ALIGNMENT PACKS.

INHIBIT

THE ALIGNMENT PRCK-<C

CZRJCBO,

RPO4/S/6 HEAD ALNMT

C%sJCB.P11

3“ -NOV-77 12:49

88 17,
Bireso
S
fires

MACY1l 30(1046)

MESSAGES

2408
g“

017564
i 7{

19
9%'14

swxé
841

1
17

6413

017

8415

7111

s:éo

i’

gqaa

1741

B
s;:

ug
33

17454

c4c

et wd etuspu

e B

et ud et wd e

= {ww{wgy

iz
53%

17946

5““9
m

;
g
3%
18l

860

7238 020104

746

RPO4:

PIN ALAOS08

.ASCIZ

RPOS/6:

(FUNCTION

'+TPNDEXER')/<CR>
<LF>

{'m

[EUSTS

.ASCI1

0174

wte
e

064

£2
ann
M

3
42
339
£
i

yod4

SEG 0102

506

§33

PRGE 102

.ASCII / RELATED INDEX ERROR, GROUND THE FOLLOWING PINS:/<CR><LF>

040

043117

PIN DOYRIS (FUNCTION *-INDEX' )@<CR><LF> <LF>

3 Qosoie

gou
o8
BiEEl

xg NODRV: .ASCIZ <CR><LF>/DRIVE NOT AVRILABLE/<CR><LF><LF>
lw
gagsl:
ENTERD: .ASCIZ

<CR><LF>/ENTER DRIVE NUMBER: /

WLOCK:

.RASCIZ

<CR><LF>/DRIVE NOT WRITE PROTECTED/<CR><LF><LF>

TOLRG:

.RSCI1Z

%
L
i

s-ug

LO8

uog
b
104

S414

17:31

se83v

§u§

O0O4-NOV-77

glb

111

1 8.2.01 )

O0S10N0

047101

HERD OUT OF RANGE~

RPOY-S-6 HERD ALNMT

O4-NOV-77 12:49

g:gg

017654

S460

0{7553

464

0Ol

:g?

177
177

s:gg
(¥

[N, T

e
b
e

GERRSBAESS

s482
S:gg

.ASCII

<CR><LF»>/

.ASCIZ

HERDER:

226

i 1
4

PAGE 103

SEC 01023

CYL (IN U INCHES)/<CR><LF><LF>

.ASCIZ /A(LIGN), V(ERIFY), OR E(XERCISE) ? /

NWO--

LTM

HEAD

TRK CENTER/<CR>
<LF>

%SU

17:31

B
2
81778
17751
0
35
MODE :
BTE cif) RAOR GNM
—

020040

0177

i
Fy ¥y

2
53
47%
73

O0O4-NOV-77

042507

g1
S4es

MACY11l 30(1046)

MESSAGES

CZRICBO,

CZRICB.P11

VERIFY: .RASCIZ /VERIFY/<CR><LF><LF>
ALIGN:

.ASCIZ

/ALIGN/<CR><LF><LPF>

EXER:

.RSCIZ

/EXERCISE/<CR><LF><LF>

MDZERO:

.ASCIZ

/HEARD O SELECTED BY DEFRULT/<CR><LF><LF>

CYL24S:

.ASCIZ

/CYLINDER 245 SELECTED BY DEFAULT/<CR><LF><LF>

CYL496:

.ASCIZ

/CYLINDER 496 SELECTED BY DEFAULT/<CR><LF><LF>

ALN24S:

.ASCIZ

/DISK IS POSITIONED AT CYLINDER 245/<CR><LF><LF>

[N
0T

031040

.RSCIZ

/DISK IS POSITIONED AT CYLINDER 496/<CR><LF><LF>

ENTHD:

.ASCIZ

<CR><LF>/ENTER HERD:

ENTCYL:

.ASCIZ

<CR><LF>/ENTER CYLINDER ADDRESS:

BRDTRK:

.ASCIZ

/INVALID HERD ADDRESS/<CR><LF>

:
BRDCYL

.RSCIZ

7/INVALID CYLINDER RDDRESS/<CR><LF>

ENDMSG:

.ASCIZ

CCR><LF><LF>/DONE/<CR><LF><LF>

00SOLS

4529

PAGE 104

ALNYSG:

032464

)

SEG 0104

£
W

0ne

——

mmmm
e
RRaaS
B5aSFHE b &dikH
R

020260

NOS8

neddades

MACY11 30(

BamNov-77%12:49
R ICE
EER

17:31

04-NOV-77

NMT

.EVEN

éé?

ALl

EML:

.ASCIZ

/RH11 INTERRUPT OCCURRED (RPRS=0)~/

EM2:

.ASCIZ

ZUNEXPECTED ATTENTION OCCURRED/

EM3:

.ASCIZ

/MASSBUS PARITY ERROR (MCPE=1)~/

EERICE 1L O BaoNOY- 97 BT

PRAGE 10S
SEC 010S

024461

1123
1101
1

EMY:

.ASCIZ

/MASSBUS PARITY ERROR

EMS:

.ASCIZ

/ADDRESS PLUG CHANGE BIT SET~/

EMB:

.RSCIZ

/RH11

EMIO:

.ASCIZ

/DRIVE OR DATR ERROR/

EM1L:

.ASCIZ

)DRIVE UNSRFE ERROR/

EMi2:

.RSCIZ

/HERD OUT OF ALIGNMENT~/

EM13:

.RSCIZ

/HERD

EMIM:

.ASCIZ

/SOF TWARE

EMIS:

.ASCIZ

/UNCORRECTABLE

EMIG:

.RSCIZ

/DRIVE UNAVAILABLE~

DIDN’T RESPOND

(PAR=1)/

TO RADDRESSING/

—

BOS

—

)
nENS

TOO FAR

OUT

ALIGNMENT~/

TIMEOUT/

MASSBUS PARITY ERROR~

L0
=N
=
NIwn

g Tt

17:31

Ll ol

[

RNSES? =P
B85RF

N §§Oim

2282 2
& N6
8]
2R
Pl
—-E

PERE oRER BS
[

[

—

el
el

= ER £

oY SR

STGG

BY£ 2eS

R RPRl Rl Rk B
$n e s Gt et B pn
et Bt Pt Bt et Pt s

NN
E WO

114]

;

A A an
ALFEREERRRRYAadasisas M
BESRRELLLR38&R2

Poms

— .-§.— NQ RIS

036505

0so

£
N
N
N

AN
PAER

858234

MARCY11 30(§UHS£
O4-NOV-77
MESSAGES

T
49

M
w
m
f
i
%
@
%
f
i
w
&
m mm mmm m m fim m 9B 9% R AR E BAE LRALE

0OM0S20

000123

DH1:

RSCIZ

/RPRS/

5§§

.ASCIZ

/DRIVE

RPDS1

.ASCIZ

/DRIVE

REG RDR

8WGyo33SNo)8oNeNS)NvS)Yo o3HBoNooNoloYoSoYolommmm%8edo3dBcdeYde3deUdeYdod Sdeyd

SEG ClCe

RPER1

RPER2

RPER3

RPAS/

DARTR/

a14Q>].[(m&aN)\]+ (wo4>[ &e')

RS
R
B
R
B
O
L
R
B
L
2
NN
gtDIPPL
T BTGBL 2E

PRGE 106

122

Readitds

04-NOV-77

&
1

38
E

021237

17:31

CcOS

MACY1l 30(1046)

(-QNb)] NvsQN NvOsN
wet w —W
[37] o

090§59

042104
000

DHb:

DH10:

oI,
— oF wo

.RSCII

[+
4 Q. Q

()]

(=) x - &

a]2Q -— ~N ¥aaQ=)

x Qo (=]

@()](o—e

'
4 Q. w x —

TRK CENTER/<CR><LF>

Lo z o - z O x w n

N
<O>

DH12:

mp4o'

'4o

Q [¥Y]

~
o»-

BRBRRRRY

ho..

4 ()
'
& Q. W'

'3 Q W[+
& TM -

CZRJCBO,

RPO4-S/6 HERD ALNMT

CZRICB.P11

04-NOV-77 12:49
688

32167

CY4S22

MACY1l 30(1046)
0O4-NOV-77
MESSAGES
042526

DHIb:

021626
021626

S690

1638

552%

1646

SbM

001170

17:31
5

D09

PAGE 107

SEG 0107

/DRIVE/

.ASCIZ

.EVEN
000000

OTl:

.WORD

ATTN,O

7236

DO7S40

DT2:

.WORD

DRIVE,RPERRS,RPERRS+2,RPERRS+4,RPERRS+6,ATTN,O

£2 Bl R
56% 021660 001166 015102 015100 DTY:

014662

0l4eb4

DT3:

.WORD

DRIVE,RD.ARDR,RD.WRD,0

Ssgg

021666

0Ol4e64

000000

.WORD

DRIVE,WRT.AD,W"7.WD,RD.WRD,0

g;oo?

021672

001264

000000

DT6:

.WORD

SRPADR,O

5783

021976

?11 4

8151‘00

816150

OT10:

WORD

DRVSEL,REG,REG+RPCS2,REG+RPDS1,REG+RPER] ,REG+RPER2,REG+RPER3,0

5706

021716

001172

016132

001204

DTie:

.WORD

SHEAD,DPB+CYL,PLUS,C

g;?g

Oz2172e

001172

016132

000000

DT13:

.WORD

SHERD,DPB+CYL,0

E;ié

021734

001le4

000000

DTi6:

.WORD

DRVSEL,O

g;.};

021740

000

DF1:

.BYTE

71
§;{g

1741
19e4

888

‘

DF2 :

.BYT
BYTE

,0,0,0,0,0
0,0,0,0

g;g?

021747

coo

000

DOF3:

.BYTE

0,0,0

572

g;as 851755

17Se

000

DF4:

.BYTe

0,0,0,0

£7

821761

1756

000

DF10:

.8y

o0,0,0.0,0,0,0

021765

001

DFle:

.BYTE

,1,1

021770

001

DF13:

1,1

.SBTTL

S691 glb

Y4
g;g

£713
5714

£728

;gg

§?3

£
£734
£
573
£737

021704
021712

% DO7S44 00117

O0lb6l
0le202

16154
000000

016200

GET

RESS _AND VECTOR

ST oclYTHE" 5 SELLOYS SRO0ESS, O

ADDRESS FOR RH11l

ECToR
00

;OF
THE
RH11 1
Ss UP
FOR THE
PROPER RDDRESS.
; IT WILL ALSO
READ
THE ADDRESS FROM THE TTY IF

CZRJCBO, RPO4-/5/6 Hsag RLNHT
CZRICB.P11
O4-NOV-77 12:49

EOS

MACY11 30(1046) 04-NOV-77 57:31 PQGE 402
BUS
- GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11
s REQUIRED.
THIS ROUTINE DESTROYS RO-RY
INOTE:

s?
g;:o

i CALL
:

g74

§743

57494

747

021772

E;gg

2000

r;:g

g;gs

5784

i;?fl

£755

5252
5769

177700

000776

g 604401 022520
aoag

§771

§772 gg

£773

£§775

oegxi%

022114

§7

5759

5782

-;ga

1044

2110

77776

2s:

38:

1266

02 {

78S
s;g;
E%gx1

;

000

§§§§§§

7§

021774

021776

022246

5788
0221
7
4
5789 gs
275
Dss! 13795 829%% ooocoou
€793 022160 005777 157100
€790

’

.ENDC

77776

cgcaon

ggpurFROM TTY REGUESTED?

#SRPADR, RO
MRPCS1
tRO) +,-(SP)

,LI'YSP

(SP)+,R1

HIRD,LIMIT
,R2

RS, =
CK.NUM

MOV

TYPE

R2, -2(RO)

TYPOC

,LINSP

4§15

MOV
MOV
MOV

MRHVEC

5snpvec
RO
(RO)+,-tSP)

nn THE REQUEST FLAG

RPCSI ADDRESS

nscxx rsxr

ssr up noonesS-MA

sfiCHECK”!f'
THE B
ENTERED
CARRIAGE RETURN
WITH AA ".~
' g"m

TH ".»
u
u THAR

,
.

RPCS1

: r Nu; gs VECTOR
ADDRESS
ON THE STACK
TOR RDDRESS

s TYPE

‘S ag
; :ag

(SP)+,Rl

‘ngg 1 TEXT

gsn

337

RS, CK.NUM

CRRRso Rggnac
°"bY P

MOV

R2 $(RO)

ES%VESQCéc
JSRPADR

E
8iru n “ln
PPN e
TERM unr
'§?¥59
#%ER°"ecron
:CHECK FOR nux;

3
48
Hov
TST

,R2

ADDRESS

HIVEC.LIMIT

MOV

iSET

;nrnv

MOV

THE VECTOR-MAX

;UPPER LIMIT OF INPUT

4§:

53--0

;UPPER LIMIT OF INPUT

JSR
;g
21

ROL IN

MOV

rvpg

104411

TYPE

o an MOV

85 104 104401 022242
g22112

MOV

104401 égaaax

74 81Ol 700

022100

£77
g7

CLR

ROL IN

5764
765 %g% g‘% 022246
2765 8% S 2064
855013
5768
2012

5769 gg
§770

TYPOC

012601

'"058

Tvpi

p22242
1&5301
411
1

(022034

.WORD ;77700

18:

01264

HIAD:

BUSADR: 352

01242

PC, BUSADR

RETURN

"ffi??’

1420 001242

JSR

g;g? 022036 oxaggz 021772 021776

€774

SEG 0108

SM.

TH n

ARRIAGE

RETURN

RGORS
S794

164

5;%

174

e Rn

2R
Eeoo Sg%

S
S
ee3l

S808
Eg?g

022236
Oc2ee4e

S8i11l

bek fi
0Ol ; 7

{ 7 i

0S3110
000040
000

8s:

£
18

s ASK FOR BUS ADDRESS

(SP)+, (SP)+

020061

MRPCS1:

.RSCIZ

QRPCS1 = @

O41505

MRHVEC:

.ASCIZ

QRHVEC = 3

LINSP:

.ASCIZ

:
:
:
:
:
:

CTOR

:E “ES
T

R ( 0CTAL
sc ZS T RING FOR LEGAL CHARACTERS

022230

JSR

RS, CK. NUM

TURN
TURN
TURN
TURN
TURN
TURN

CLR
CLR
J%R

[
8%
95

SNUM

ADR

Y
S
RDRE

RY, ~(SP)

R3,-(SP)
R2,-(SP)
RY

R3
ng
RS, CK.CHR

;
OF RSC Z STRING

T_NUMBER

N ENTERED
R=ONLY

- R2

RED --

aghac$£R IN THE INPUT STRING

kE ENTERE

- NUHBER
“PERIOO“ --852

nunae

EfE

TURN POINTERT ZERO

HARACTER
ACTER

£ e
e
Sg4
5322 éga
3e4

OGDR,Sé

MOV
MOV
CLR

gg%i cebb Sgbb "
e

MOV

CK.NUM: MOV

gm0

848

ssnoa

CMP

nuo ronns AN OCTAL NUMBER IN R2

el gy et

29“3

RTS

NUM - Hg
xs nouvxue CHECK

£821

£839

R1,ERRVEC

MOV

SECQ 0109

.EVEN

S81S
SBlé
S817
Sels
SBl19
820

S8ee
5823
5024
825

MOV

022246

Sele
SB13
SB81Y

MOV

DRES3
AND VECTOR ADDRESS FOR RH11
R1,ERRVEC
.ri ?R§8§RR°R
SECNEN PARAMETERS
#$RPADR, RO
n?
“E?? OF LEERE 70 BU THEM
#RPADR, R1
(RO)+, LR1)+
-V T
(RO)+, (R1)+

MOV

10137 000004

122
036440
020040

FOS

04-NOV=77
BUSADR - GET BUS AD

MARCY11l 30(1046)

02237z

000004

022464

18:
2%:

3
RDD
ASL
BCS
RS
BC
RS
BC

#4,RS
R3
X
R3
X
R3
ss

RE.CK.CHR

aog

g.ea

CR" AND “PERIOD"TM ONLY RETURNS
R3

;CHECK ONE CHARACTER

: ILLEGAL CHARACTER

RPOM/S/6 HERD

ety

ALNMT

Su-uovegr 12:49

MARCY11 38&{2“6) 84°NOV
-77

;

g g poE

E%?
sesg

énn

4§:

1§7

(RY)+

: INC

2060
as“?
5155868
2830
gg;‘%

gesu

?gé:

687
5874

Lrp

: INC

(3~m

‘g:%# R3

Eux
R

B
TST
MOV
nov
RTS

R’
RS
(g)o
(5P)+,R3
(RE)ae"
rRs '’

Eé&it

i8
?’fi

SEG 0110

Yo e

3%:

2860
5861
s%

HECK NUMBE

GO9S

A?igét‘tecf 110

;;

nflagw FOLLOW THE “PERIOD"

NT T

runu }"SE"

00 LARGE ?
"Tfit

TURN ADDRESS
;: R§ :§ 5%ng"
ADDRESS

BovALSTACK
e U
HE
f
§ sn?a
::REST
R3
i RET

:RETURN

RETURN ADDRESS

g;?
?
55373
£880

: THIS
ROUTINE I
TO CHECK IF AN
BETWEEN O AND 7.
cmancrsg ?2‘2 DIGIT
;ngf?x
OF ASCII CHARACTER
$ROR, R1
MOV
?n-iHARACTER
CHECK
:i; ADDRESS
CK.OCT
RS,
JSR
::
NOT BETWEEN 0-7
CHARACT
EET“R"

ZEE3
ggx{g iggég 000060
L

y
CK.OCT: &nga

srs%
6887

2416

022422

xsu 7 0000&7

101004

288 855“52 6-105
2890
seeé Osou3e
022434 QO0c7ee
00020¢ 70
2894
§§3§
3g

(R1),8'?7

€901
€

121127

000060

2303
Docaus 1ba4n7
E904 022444 151157 000071
022480

101004

g
THANQ,Z,E”"
;ngs

msn mm SEVEN?

MOVB (R1),R
; T mnncrs
94
the )4
2DIUGT
nis
RS
:fi&m FOR RETURN.
mmcrsn
c
D 10 C
S ROUTINE
,mé o R R F VT 1R R 1 Be TN 6 AND
11 CHARACTER
v
:;
JR }m ns.ck.éec
%
E
figa
é
ng Iggrsu
3

€900

€90c

CMPB

BHI

(R1),8'N

CK.DEC: CMPB

BLO
CMPB

BHI

1(R1),8'0
s
(R1),#'9
13

;LESS mm zsnov

i VEe.

casmsn man ume
YES -- BRANCH

ph
n BB

ZRICBOMaa /8.8 HEAD
a%ggzq
6 02

373

111102

MACY11 38(1045)

§§§§23 @gggg oo
be
2

911

nE"3v§553c£7(331
PAGE 111
MOVB

18:

?{?

RTS

(R1) RZ

'nEs

c;; ;ug cnn¥n rs

8:’sr FOR RETURR- 1!
TURN

i THIS_ROUTINE WILL CHECK AN nscxx CHARACTER TO

sgig

:ggrsMINE

Is.

EE;E

z§¥

82°§«?é~a

nagnzsg 2; R§E£1 CHARACTER

ngé

Eg;ggg

§§§§

8553“?‘(2‘7”“"
- (R1)=R0R+1

S3ce
§32y

§32¢

;

357un~

RDRE

CK.CHR:

Iste

CMPB

(R1),w’,

:
VAT

oaaw;e

121127

0000SH

i§330 oaasgif
e
u 004537 022436

233} §§5§13 §§§359 022410
2333 Ooses
4
S gt pote
3
s
3%
201
€939
02263
011505
000208

[

O
O

wn
D
X

£4yz

2
022534

|&)

2340

R
ISR
és.cx.oec

9er
S

RS, CK.OCT
1
B
S
INC
R}

MOV
RTS

P
O

£921

(RS),RS
RS

Sltoa
t 8l
;E
flf

8 2285

ne = DIGIT # (RI1)=ADR+]
Egaa ngsnzgrunnnv

5§c17~§R

n#
§’°nSER‘EEN 8-

novcggfnnfn
TO NEXT CHARACTER

; UNKNOWN CHARACTER
' RETURN

Q->OuMWY»39oNyNTMLn®DV-OZ¥mia

T~—ob\(U=i\O—OTnm&mwmamnmsumamqmm
1i8Su—ODoTWg07nO—hnM7Et0oONm&fT2EOr1W00QE0enNJmOIn1“uO0_xdoOwu?Wm-—uOV%Nr0D2_nw.5-n3bSW-0>D@M“lPOe1uNN0*1DLli6mNOe'2POtwb4PleEN0P“l3Le0-P62XmoelPI30&gneXluau-6ILDen=xOLtl_ZXnDmOe6nlTflAUiowKfl0iOys~elmLm*C6Oflnluum0Im'mOn0euHIu6Qf0nBq.l00Dm8TD-0LJO-Rb3l—K1-e=QRDO30w==U.mCSRX“=O8&0b[5"NT8”mIR-AbTAwtAT7TWm8—”IAnTQS0mN“LYIA-Tl805fQMAGIEf]iwI3OtFLORiwT3-lcuSywLoN8OuDLO"z08m—C2L0nNmL5xam8BLT—IaLlE3N%?=LNH;mT82#WL"0fSHlMe"Zl0Q-5mfo?qM—=ll8oo("OTuMn0i’o*mv..VMl0di"vw%TbM3nb§l0w(rEHOdOoi]vL?no8H—wT>a7]t}
IETL-ILTIERE £583JRsR,3aS53o8lYpadTyomanan
TS B Ty
rSet=t8etNe]E85888585958283o1138m80878181818m8m388AT88 3SR
a

0(€A1/DNV0)1/
o >

moTnN=y,PeRSoaRE
O—uMmTW|n

—FuT NANNNUTFTIUNDNM T

C2RJ CBO,

RPOM/S~ 6 HERD_ALNMT
12:49
o4
CZRICB.P11

—NOV997

MACYLl 32(10“6) 98:2N0v-77
YMBOL T

17:31

109
PAGE 113
SEQ 0112

SSEPrT075oTE -LS 833383a348

e e (Y N)

=l
—=3

Pt bt o

SWS
We

-S

1000

=
=

400

use
usH

00000

VUF

4
vV

VERIFY

vu3g

WARO
WC

HCS

FILLS

=
=

WCHKD =
WCHKHD=

Et X" 17574
000
WRTDAT=

usli

o oo

188
r

040

—

=
=

NN
Nt =0 L
OO
NIWo

o0
00
b
e L e e

Ll
o I L N [ [l T ]
OQOOOOOOOOOOOOO
(A1 Ve
e
O
whu—-oO

&333338 503

<1§

NO?
SW0

s s

guos

i
e NJ e b be O L et SR S G F i F Sy

—r——

RmARmES8555383

KCN

17:31

S 2 ONO—
[t ontand 'ALA" Lol &hhflgm»
-Gég838ow—wm2880
oo B

333

MACY1l 30(1046)
04-NOV-77
MBOL TABLE

N
L
e

-—

i
3

._mm ~
oSE

L 28e80 i8 3,382._=i
485

§
X88%
BEY

e Lo|

RPO4/S/6 HEAD ALNMT
04-NOV-77 12:49
ZRICB. %11

W
-3
o

b b
-0

SREE22399
g
000001
000020

gy
ASBRS REpous

00000000000
000
el e
e
e e e e e
N @ RN|

RPUIEE
:
00
©

VUVTVOVD

CZRJCBO,

PRAGE 114
SEQ 0113

001

2
0004
10

=
=
5
6

CZRICBO,

RPOY-/5/6 HEAD ALNMT

CZRICB. #u

O4-NOV-77 12:49

162

7o§§

INTRG

NGB

001104

001135

QUE

oo BRliid
§t8232 80 136
.

ABS.

022536

ERRORS DETECTED:

04-NOV-?7

17:31

SYMBOL TARBLE

ar B

a0 %fi%

xcnr

MACY1l 30(1046)

T
2§°L£= 008067

SR
KE

IKINT 832264
ThaEn: 832893

RMO3: CZRJCB, CZRJCB. SEQ/SOL
/L1 : ME/NL:MC=RPO4S6.011,CZRICB.P11

RUN-TIME RATIO: 92/37=2.
CORE USED:
34K
(&7 PAGES)

PRGE 115

pE E

000

RUN-TIME: 21 IS .& sscouos

KOS

SEG 0114
TKOOU

00SS72

557:

TKQSR

TK8RY
TN

ngLG

11 5
1gs

TRRPZ g;

TRPRD

07506

LOS