Digital PDFs

AH-9192B-MC

January 1978

116 pages

Original

5.9MB

view download

OCR Version

5.3MB

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

OCR Text

RP04/5/6

CzRICBO

prlslepio
N

__FICHE10OF1

IN USA
MADE

BOl
£ Of 1 ZRPBBSEA1 !

00010000

780105

IDENTRDREQTION

..............

PRODUCT CODE:

AC-91908B-MC

PRODUCT NR“E:

CZRJCBO RPO4/S5/6 HERD RLIGNMENT PROGRAM

PRODUCY DRTE:

DECEMBER 1977

MRINTRINER:

DIAGNOSTIC ENGINEERING

The

stnformation

without

notice

Digits!
ty
Corporaticn
may

appear

1n_

this

document

and should not

system

and

change

Equipment
Drigital
Corporation.
Equipment
assumes
nc
responsibility fof any errors that
this

manuasl.

The software described 1n this document
purchaser
under
8
license
for
wuse
copyright
ctherwise

subject

be construed as a commitiment

can

copied

(with

13
on

furnished to
the
8 single computer

inclusion

notice) only for use 1n such s'stcn.
be provided in writing by Digital

ODigitals

sxcept

23 may

Cigital Equipment Corporatlior assumes nc rcsponsxbxlxtg
the

rot

wuse

supplied

reliabils

Digital.

(L)

1974,

1ts

software

(977 Digital

equipment

thatl

Equipment Corporation

for

RDR1CZRJICBSEQ

06010000

788%85000_

CoRICBO, RPOY S 6 HERD ALNMT
O4-NOV-77 12:49
ISRICB.PLL

MACY!1 30(1046) 0O4-NOV-77
TABLE OF CONTENTS

17:31

COl

OPERATIONAL SWITCH SETTINGS
TRAP CATCHE

BQSICRQEFINITIONS
REGISTERS
RH11
04/5/6 REGISTERS

= 200
PROGRAM STARTING ADDRESS
COHHON TRGS

RDDRESS & VECTOR LOCRTIONS
IN?/S

Ofl/spg?RVERQE
INITIQLIZQTION ROUTINES

INITIQLIZE THE COHHON AGS

GET VALUE FOR SOF TWARE SWITCH REGISTER
SETUP TO CHECK ONLY THE SPECIFIED HERD
HEQDS QT ALL ALIGHMENT CYLNDERS
HQIN ROUTINE - CHECK ALL
ROUTINE TO FIND THE TRACK CENTE

288¥{ns T8 EEbESRHHgflgoo RRRBS SNTROLLED HEAD AL IGNMENT

OMMON ENTRY TO THE RPO4/S/6 DRIVER

suanou*rnfs
MACRO ROUTINES
ERROR HANDLER ROUTINE
§R90R rtfi:u TYPEOUT ROUTINE
YPE ROUTINE

i
w W
o hE 2T
LS -OONWN
v (W WUND~
) D
(0 £ N0 TuRtIMN~ i

2591

337

BINARY TO OCTAL (RSCII) AND TYPE
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

nv INPUT ROUTINE

RANDOM

IN&%GER

SAVE

GSNERQTOR ROUTINE

IVIDE

RAND RESTORE RO-RS5 ROUTINES

TRAP DCCODER
TRAP TABLE

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

DATA PRRRHETE BLOCK
HEAD CODE TABLE
OEFSETEgODE TRBLES
SSAG

BUSADR - GET BUS ADDRESS AND VECTOR RADORESS FOR RHil
Cv.NUM - CHECK NUMBER

"GCTAL)

SEG 00Ce

CIRICBO,

RPO4-/5.6 HERD ALNMT
D4~-NOV-77 12:49

CIRICB.P1:

MACYL1l

30(1046)

0O4-NOV-77

17:31

PAGE 3

CONTENTS
ABSTRACT

REQUIREMENTS

2.1
2.2

EQUIPMENT
PRELIMINARY PROGRAMS

LORDING PROCEDURES

~I~

Jdotd NN
LW
)O(0

STRRTING PROCEDURES
Y.1
4.2
4.3
4.4
4.5

STARTING RDORESSES
PROGRAM 8 OPERARTOR ACTION
DRIVE SELECTION
RH1l - RH70 UNIBUS RDDRESSES
OTHER UNIBUS RDDRESSES

SWITCH REGISTER SETTINGS
ERRORS

6.1
6.2
6.3

TEST ERRORS
ENTRY ERRORS

SUBSYSTEM/DEVICE ERROR MESSRGES

RESTRICTIONS
PROGRAM DESCRIPTION

8.1
8.2
8.3

VERIFICARTION MODE
RPO4/S OPERATION
8.1.1
RPO& OPERRTION
8.1.2
ALIGNMENT MODE
RANDOM SEEK UTILITY

PROGRAM LISTING

SEQ 0003

RPOM §.6 HERL ALNMT
cB8 c
CB. A1
04-NOV-77 12:49

M ISRHESSBYRE

MWW

NININUTUN)

RLY O

0 b-epspsepape
s ps pe

—~ 0000000000

NN L W~ O W0 NN L WU--O0m-~)

[V 2V

0
9i
32
93
Eh
95
9%

MACY11l

30(1046)
1.

O4-NOV~77

17:31

EOL

PAGE 4

SEG 0004

RBSTRACT
THE

RPO4/S/6

HERD

ALIGNMENT

VERIFICRTION

PROGRAM CHECKS RPOH

OR_RPO6 _DISK DRIVE HERD ALLIGNMENT OR ALLOWS THE OPERATOR 10’

RPQOS,

AL IGN HERDS uITH THE APPROPRIATE DRIVE'S TEST BOX.
THE PROGRAM
RALSO CONTAINS
R UTILITY RQUTINE WHICH PERFORMS S,000 RANDOM SEEKS

WITHOUT DATA TRANSFERS.

THE RANDOM SEEK UTILITY'ALLOWS THE OPERATOR

TO EXERCISE THE DRIVE WITH THE ALIGNMENT PACK
RE-VERIFY HERD ALIGNMENT.

IN PLACE AND

THEN

REQUIREMENTS

EQUIPMENT
POP-11

PROCESSOR

8K MEMORY

TELETYPE
PROGRAM LORD DEVICE
KW1l-L OR KWll-P CLOCK
RH11 OR RHZ0 HITH RPO4'S,

AL IGNMENT PACK
*ODU’

*PERCH’

’'DEDU’

('CE' PACK)

RPOS'S,

OR RPO&’S

ron RPO4'S

FOR RPDS/6'S

PRELIMINARRY PROGRAMS
THE RPO4/S/6 _DISK SUBSYSTEM MUST BE OPERATION AND ALL OTHER
PROGRAMS IN THE SET FOR THE SUBSYSTEM MUST RUN SUCESSFULLY.

LORDING PRCCEDURE
THE

PROGRRM MAY BE LOADED

FROM PAPER

TAPE

USING

THE ABSOLUTE

LOADER OR 1T MAY BE LOADED FROM THE APPROPRIATE *'XXDP’ MEDIA
?EIQG';QSPQSESS§QTED LOADER.
THE PROGRAM MAY NOT Bt INCLUDED

STARTING PROCEDURES
STARTING ARDDRESSES
THE

THE

_PROGRAM

THE RM11

_PROGRAM

THE RHil

(SEE

STARTED FROM LOCRTION 200(8)

THE

RDDRESS

STARTED

THE

ADDRESS

OR RH?0 WILL NOT BE CHRNGED.
OR RH70

SECTION 4.4,

FROM LOCATION 204(8)

IS TG BE CHANGED FROM

THE PRELOACEC VALUE.

CoRICBO,

RPOM S-b HERD ALNMT

CZRJICB. P11
146
i:g

O4-NOV-77 [2:49

MRACY1l 30(1046)

4.2

O4-NOV-77

17:31

FO1

PRGE S

SEG 000S

PROGRAM & OPERATION ACTION

igg

LORD THE PROGRAM INTO MEMORY

igé

LORD RDDRESS 200 OR 20M4.

183
igg

SET THE SWITCHES RND PRESS

156

PLACE AN ALIGNMENT DISK PACK ON THE DRIVE TO BE CHECKED AND

189
189
1€1
igg

CYCLE UP THE DRIVE TO BE CHECKED.
ALLOW SUFSICIENT TIME
FOR THE ALIGNMENT PACK TO REACH OPERATING TEMPERATURE AND
YO STRBILIZE.
REFER TO APPLICABLE MAINTENARNCE PROCEDURES
FOR THE REGUIRED AMOUNT OF TIME.

164
igg

SELECT THE DRIVE TO BE CHECKED IN RESPONSE
ON THE TELETYPE.

167
168
169
i;g

THE PROGRAM WILL RSK FOR THE MODE OF OPERATION:
ENTER AN 'A’
IF THE PROGRAM IS TO BE USED FOR HERD AL IGNMENT; ENTER A °V*
IF HEAD ALIGNMENT IS TO BE CHECKED; OR ENTER AN’ °‘E° IF THE
RANDOM SEEK UTILITY IS TO BE RUN.

172

igg

173

174

BIRR LN L83 BIRR2TRLB
I

TUIILIE 4 5 5t 0 .0 Bt Do e Bt 90 Bt Dt Pos s Pt Pt Bt it Bns $t et Pt Pt Pt

IF AN

'R’

'O THE

TYPEOUT

IS ENTERED IN RESPONSE TO THE PROGRAM MODE MESSAGE

THE PROGRAM WILL POSITION THE DRIVE YO THE ALIGNMENT CYLINDER:
RPO6 - CYLINDER 496.

THEN RSK FOR A HERD RODRESS.

[RIQ TV
L STV

'START®

SET THE DRIVE IN WRITE PROTECT MOOE.

RPO4/S - CYLINDER 245:

175

(SEE SELTION 3)

THE PROGRAM WILL

THE HEAD ENTERED WILL BE SELECTED

AND THE PROGRAM WILL REQUEST ANOTHER HEAD .

ADDRESS

IS ENTERED,

SELECTED.

goaggngOL

TIL
A NEW HEAD
UNTIL
THE LAST ENTERED HERD ADDRESS WILL REMAIN

THE ALIGNMENT SEQUENCE MAY BE TERMINATED BY TYPING

C';

THE PROGRAM WILL RETURN TO THE DRIVE SELECTION

IF THE PROGRAM IS BEING RUN IN 'VERIFICRTION’ MODE AND SW<02»
IS SET,
THE PROGRAM WILL ASK FOR HERD AND CYLINDER RDDRESSES.

(HERD AND CYLINDER ADDRESSES ARE ENTERED IN DECIMAL.)

SW<O02>,
10.

WHEN THE OPERATOR HAS COMPLETED THE PRESENT DRIVE,

TO RESTART
DRIVE

THE NEW DRIVE CAN BE SELECTED.

THE PROGRRM.

TYPEOUYT

FROM

THE

PROGRAM.

ONLY VALID

WILL BE RCCEPTED BY THE PROGRAM.
(TEST

BOX CONNECTION AND AL IGNMENT

BEEN COMPLETED BEFORE R DRIVE
RH11l

IS NOT NECESSARY

SELECTION

ENTER R DRIVE NUMBER IN RESPONSE TO THE

CYCLE THE

DRIVE DOWN, AND TRANSFER THE TEST BOX AND ALIGNMENT PACK TG
THE NEXT DRIVE TO BE CHECKED.
WHEN THE ALIGNMENT PACK HAS
STRBILIZED,

4.3

WITH

ONLY THE ALIGNMENT OF THE SPECIFIED HERD WILL BE CHECKED.

RH70

UNIBUS

ADDRESSES

NOTE

'ENTER DRIVE NUMBER:®

DRIVE

PACK

THAT

NUMBERS

STABILIZRTION)

IS SELECTED.

THE DRIVE SETUP
MUST

HRVE

)

et
PUTUIN)
= 025 @ s bt 4o b e b $2 () OO0
MO IO LW~ ODD TN

nIvfufUIVDT
RN IVIVIVTIVIVIUTUIVIVTUIY

ge3

MACYL11

30(1048)

O4-NOV-77

17:31

GOl

PAGE b

THE

_PROGRAM ASSUMES

THAT

THE

RH11/RH?0 ADDRESS

SES 0COe
THE

RH11

OR RH70 ADDRESSES

START

176700 AND THAT THE VECTOR RDDRESS IS 254.
THESE ADDRESSES MAY
BE CHANGED WHEN THE PROGRAM IS STARTED FROM LOCATION 204.
ENTER
IN RESPONSE

THE

REQUEST

FROM

THE

PROGRAM.

OTHER UNIBUS RDDRESSES
LOC

TRG

CONTENTS

1144
1146
1150
1152
1244
1246
1250
1ese
1254
1256

$TKS
$TK8
$TPS
$TPB
PKV
PKCS
PKB
PKC
LKV
LKS

177560
177562
177564
177566
104
172540
17254e
172544
100
177546

FUNCTION

TTY KEYBORRD STATUS REGISTER
TTy KEYBORRD BUFFER REGISTER
TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
KWll-P CLOCK VECTOR ADDRESS
Kidl]-P CONTROL REGISTER
KW11-P COUNT SEYT REGISTER
KWll-P COUNTER REGISTER
KWll-t CLOCK VECTOR ARDDRESS
KWll-L STATUS REGISTER

SW1S>=1...HALT ON ERROR
SK«13>=1...INHIBIT ERROR TYPEOUTS
SW«09=1...LO0P ON ERRO
SW«02>=1...CHECK RLIGNHENT OF THE SPECIFIED HERD
SW«Q1>=1...L00P ON THE CURRENT HERD
SW«00>=1...TYPEOUT ALL TRACK CENTER VALUES
IF _THE PROGRAM IS BEING RUN ON R SWITCHLESS PROCESSOR

THE PROGRAM HNbL
ETERHINE
NOT PRESENT A

24l

(I.E.

THAT THE HARDWARE SWITCH REGISTER
'SOFTWARE'®' SWITCH REGISTER.
THE

AN 11/34,
IS

' SOF TWARE ' SHITCH REGISTEQ IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF
T
"SOFTWRRE® SWITCHES ARE CONTROLLED THROUGH
A KEYBOARD
ROUTINE WHICH IS CflLLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE 'CONTROL G’ AT ANY TIME EXCEPT WHEN THE PROGRRH
IS AT A HIGHER PRIORITY PROCESSING AN RPQY/S/6 INTERRUPT.
THE
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS A OCTAL NUMBER IN RESPONSE
TO

THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

"SWR = NNNNNN

NEW =’

ERCH TIME SWITCH SETTING ARE ENTERED,

THE ENTIRE SWITCH REGISTER

IMAGE MUST BE ENTERED. LEADING
ZEROS ARE NOT REQUIRED.,
’RUBOUT' AND
"CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS

DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

"POSITION,

THE

°*SOFTWRARE®

SWITCH

_IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE

ALL SWITCH REGISTER REFERENCES WILL BE TO THE

*SOF TWARE® RELISTER AND THE PROCEDURES DESCRIBED ABOVE MUST

CIRICBC, RPOY S £ HERD ALNMY

RJCB P11

O4-NOV-T7 12:49

MARCY11l 30(1046)

0O4-NOV-?7

17:31

PRGE 7

SEG 00G7

BE FOLLOWED.

ggg

260
261

262

ERRORS

265

6.1

TEST ERRORS

263
(]
266

emeees

sgg

RPO4/5:

269
27d

THE PROGRAM CHECKS THAT EACH HEAD IS WITHIN + OR - 150 MICRO-INCHES
FROM THE TRACK CENTERL INE roa vaxnoea eus AND IS WITHIN + OR - 3€0

272

NOT WITHIN THESE TOLERANCES,

MICRO-INCHES FOR CYLINDERS ANO 400,

negsngs IDENT ers

273

Hgvtéfigg

THE ERROR

Eno AND THS crua#POSITION OF

D RELATIV
724 OUT;
(IF HERDS
SW<O0> out OFHE TOLERANCE
ACTUAL
OF EACH Hsno WILL BF RLTYPED
AL IGNMENT

27c
gzg
‘¢

IF A HERD IS FOUND THMAT IS

AN ERIOR MESSAGE IS TYPED.

WILL NOT BE IDENTIFIED.)

szg

RPO6:

gao
81
282
283

THE PROGRAM CHECKS THAT EACH HEQD IS WITHIN + OR - 7S5 MICRG-xncnes
FROM THE TRACK CENTERLINE FOR vanoen 496 n~o 1S WITHIN + OR - 17
HICRO-%NCHE? FOR CYLINDERS 8 AND 800.
IF
A HERD IS FOUND THRT zs
NOT WITHIN THESE TOLERANCES, AN ERROR MESSAGE IS TYPED.
THE ERROR

286

ALIGNMENT
OF EACH HERD WILL BE TYPED OUT; HEADS ouf OF TOLERANCE
WILL NOT BE IDENTIFIED.)

284
285

MESSAGE IDENTIFIES THE CYLINDER, HMEAD, AND THE QCTURL POSITION OF
THE HERD RELATIVE TO THE CENTERCINE.' (IF SW<00>=1,
THE ACTUAL

Sgg

ggg

6.2

ENTRY ERRORS

291
292
292

THE PROGRAM WILL NOT ACCEPT DRIVE NUMBERS GRERTER THAN
7. IF
AN INVALID DRIVE NUMBER IS ENTERED IN RESPONSE T0 THE DRIVE
NUMBER REQUEST, THE PROGRAM WILL TYPE
A ’7?°'; THE OPERATOR MAY

297

om R THAN
onchsuosn G?PRESSES

ggg
29

ENTER A VARLID NUMBER.
THE PROGRAM WILL NOT RCCEPY HERD RDDRESSES GREATER THAN 19 lDECIHQLJ

298

NVALIO

4
245( ém FOR RPO4/5'S OR

CYLINDER OR

HERD ADDRESS IS ENTERED

299

PROGRQH WILL REJECT THE ENTRY AND RETURN TO THE DRIVE SELECTION

302
303

THE PROGRAM WILL NOT ALLOW R DRIVE TO BE ASSIGNED IF IT IS NOT
"WRITE PROTECTED’.
1IF THIS IS ATTEMPTED, THE OPERARTOR WILL

gg?

THE

ROUTINE.

ggg

BE NOTIFIED.

306
307

onxves RSSIGNED RRE CHECKED TO ENSURE THRT rus DRIVE RSSIGNED
1S PRESENT, ONLINE, AND IS AN RPO4, RPOS, OR RPOB._
THE PROGRAM WILL

gs:;cg ASSYGNMENTS 'FOR DRIVES WHICH ARE fiOT PRESENT OR RRE NOT

ggg
z10

%ié

312

£.3

SUBSYSTEM/DEVICE ERROR MESSAGES

°RHI! INTERRUPT OCCURRED (RPAS=0) - AN INTERPUPT

PPOM4.5.6 HERD ALNMT

P11

Q4-NOV-77 12:49

MACY11l

30(1046)

(WW
W)
UMY I pepapspare

00
—ets
)

rity

DO4-NOV-77

17:31

OCCURRED,

I01

PAGE 8

SES 0008

BUT NOTHING ON THE MASSBUS

INDICATING AN ATTENTION.

'UNEXPECTED ATTENTION OCCURRED® - THE INDICATED DRIVE INTERRUPTED,
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICARTED DRIVE.

'MASSBUS PRRITY ERROR (MCPE=1)' WAS DETECTED BY THE RH11 WHEN THE

6.
7.

'MASSBUS PARITY

ERROR

PARITY

ERROR

°'RADDRESS PLUG CHANGE BIT SET' - THE PROGRAM FOUND THE
BIT SET FOR THE INDICRTED DRIVE.

'OPE’

OCCURRED WHEN THE

'RH11

RH11

(PAR=1)'

A CONTROL BUS PARITY ERROR
INDICATED REGISTER WAS READ.
A

CONTROL

DIDN’T RESPOND TO ADDRESSING'

'DRIVE

THE

WITH THE

BUS

INDICRTED REGISTER WAS WRITTEN.

- THE PROGRAM ACCESSED THE

INDICATED RUDRESS AND RECEIVED NO RESPONSE.

DRTR ERROR’'

THE

INDICRTED

DRIVE

INDICARTED ERROR CONDITIONS SET.

THE

COMPLETED

AN OPERATICN

'DRIVE UNSAFE ERROR’'
CONDITION.

’'HERD OUT OF ALIGNMENT'

10.

'HERD TOO FAR OUT OF ALIGNMENT’ - THE INDICRTED HEARD IS TOO
FAR OUT OF ALIGNMENT FOR THE PROGRAM TC FIND THE TRACK

INDICATED DRIVE SIGNALED AN UNSAFE
THE

INDICRTED HERD OF NOT WITHIN TOLERANCE.

CENTERLINE FOR THRT HERD.
11.

°'SOFTWARE TIMEOUT' - THE
OPERATION WITH 1 SECOND.

le.

'UNCORRECTRBLE MASSBUS PARITY ERROR’ - THE PROGRAM ATTEMPTED
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY
ERRORS OR THE PROGRAM ATTEMPTED TO CLERR
A 'PAR’ ERROR IN THE
DRIVE AND
A PARITY ERROR OCCURRED.

13.

'DRIVE

IS UNAVAILABLE'

INDICARTED CID NOT COMPLETE THE

THE

OFR HARS BECOME NON-EXISITENT.

INDICATED DRIVE HRS GONE CFFLINE

RESTRICTIONS

BECRUSE AN AL IGNMENT DISK PACK
PROGRAM,

NO DATA

TRANSFER

PROGRAM DESCRIPTION

8.1

VERIFICRTION MODE

g.1.1

RPO4/5 OPERATIONS

IS USED ON DRIVES TESTED BY THIS

OPERATIONS

ARE

PERFORMED.

CoRJCBO,

RPOM-/S-b HERD ALNMT

CZRICB. P11

D4-NOV-77 12:49

MACY11l 30(1046)

370

0O4-NCV-77

17:31

JO1

PAGE 9

SEG 0009

THE PROGRAM CHECKS Hsno anansnr AT CYLINDER 245,

AT CYLINDERS 400 AND4, HERDS O AND

372

373

HERADS 0 - 18,

AND REVERFIES ALIGNMENT AT

CYLINDER 245, HEADS O - 18. THE opsnn?on WILL BE NOTIFIED IF ANY

gzg
%‘f_:g

HERD 1S OUT OF ALIGNMENT BY MORE THAN THE SPECIFIED AMOUNT.
HERD ALIGNMENT IS CHECKEU IN THE FOLLOWING MANNER

OFFSET THE POSITIONER TO +1200 MICRO-INCHES.

gg?

STORE THE SIGN CHANGE BIT.

3e2

MOVE THE POSITIONER IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH

gég
3683
ggg

INCREMENTS UNTIL THE SIGN CHANGE BIT CHANGES VALUE.

OFFSET VALUE.

STORE THE

386

OFFSET THE POSITIONER TO -1200 MICRO-INCHES AND REPERT STEPS

389
390
391

AVERAGE THE TWO SIGN CHANGE OFFSEY VALUES AND REPORT IF THE
SELECTED HERD IS MISALIGNED BY MORE THAN + OR - 150
nxcno-xucucs FOR CYLINDER 245 OR + OR - 350 MICRO-INCHES FOR

394

REPEAT THE RBOVE SEQUENCE roa ALL HEADS AT CYLINDER 245 AND FOR

397

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

ggg

325

CYLINDERS
4 AND 400.

332

HERDS O AND 18 AT CYLINDERS
4 AND 400.

ggg

:8?

402

2 AND 3 RBOVE.

"CONTROL C°'.

8.1.2

RPO& OPERATIONS

THE PROGRAM CHECKS HERD ALIGNMENT AT CYLINDER 496,

HERADS O - 18

403
404
382

AT CYLINDERS 800 AND8, HERDS
i
AND18, AND RE-VERFLES
ALIGNMENT
AT
CYLINDER
fiqs
HEADS
0'18.
tHE
OPERATOR WILL BE NOTIFIED
IF A HEARD IS OUT OF ALIGNMENT BY MORE THAN THE SPECIFIED AMOUNT

3gg

HEAD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER:

:?g

OFFSET THE POSITIONER TO +600 MICRO-INCHES.

:ié

STORE THE SIGN CHANGE RIT.

413

MOVE THE POSITIONER IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH

414

:i%

INCREMENTS UNTIL THE SIGN CHANGE BIT CHANGES VALUE.

OFFSET VALUE.

STORE THE

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

417

420
4El
422
:53

42g

REPERT THE ABOVE SEQUENCE FOR ALL HERDS AT CYLINDER 496 AND FOR

:ig

2 AND 3 RBOVE.

AVERRGE THE TWO SIGN CHANGE OFFSET VALUES AND REPORT IF THE
SELECTED HERD IS MISALIGNED BY MORE THAN + OR
- 7S
MICRO-INCHES FOR CYLINDER 436 OR + OR - 175 MICRO-INCHES FOR
CYLINDERS 8 AND 800.

CZRICBO,

RPOM 5.6 HERD ALNMT

CZRICB.P1I

D4-NOV-77 12:49

MACY1l

30(10M6)

OQ4-NOV-77

PAGE

SEG 0010

428

THE opennron MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A

432

17,

HEADS O,

431

10,

KOl

:gg

1::31

18 AT CYLINDERS 8 AND 800.

*CONTROL C'

8.2

433

AL IGNMENT MODE

THE PROGRAM MAY ALSO BE USED TO PROVIDE HEARD SELECTXON ron DoU

CONTROLLED HERD AL IGNMENT
.

MODE

434

PROGRAM WILL PERFORM

436

437

USING THE ALIGNMENT METER ON

:gg

PRESENT IN THE DOU.

440

THE

4235

HERD 1S SELECTED IN THE DCL.

kea
UESTED

THE ncrunL ancnnenr nusr BE PERFORMED

THE
D

DEDU,

OR PERCH.

WHEN USED

THE ALIGNMENT MODE, THE PROGRAM Pnovtoes tho SELECTION WHICH IS NOT

33%

::g

1S SELECT

NO ancnnenv c CKING -

OPERATOR MAY

*CONTROL C°’.

8.3

Yu4s

TERMINATE

THE

OPERATION AT AY TIME BY

TYPING A

RANDOM SEEK UTILITY

THE PROGRAM CONTRINS A UTILITY ROUTINE WHICH PERFORMS 5,000 (10)

446

RANDOM SEEK OPERATIONS ON THE DRIVE BEING CHECKED.

::g

HEAD ALIGNMENT HAS BEEN PERFORMED.

447

THI& UTILITY

ALLOWS THE OPERATOR TO EXERCISE THE HEAD RSSEMBLY ON THE DRIVE AFTER

450
45]
452
453

THE UTILITY ROUTINE IS NORMALLY USED AFTER HEADS HAVE BEEN AL IGNED:
THE RANDOM SEEK UTILITY IS CALLED AND HEAD AL IGNMENT IS RE-VERIFIED
AT THE COMPLETION OF THE RANDOM SEEKS.
USE OF THIS ROUTINE DOES
NOT REQUIRE CYCLING DOWN THE DRIVE AND REPLACING THE AL IGNMENT

456

THE OPERATOR MAY TERMINATE

:gg

457
458
459
460
461
6

PACK WITH A SCRATCH PACK FOR THE HERD SHAKE DON.
*CONTROL

C’.

PROGRAM LISTING
et ma e

THE OPERATION AT ANY

TIME BY TYPING A

’-‘1’

POM-S-6 HERD QLNHT

O4-NOV-77 12:49

MACY11l 30(1046)

O4-NOV-77

001

.11F NB <CZRJCBO,

17:31

LO1

PRGE 1!

SEG 0C11

RPO4/5/6 HEAD ALNMT »>,.TITLE

977>
CIF N8 <1976 é
: #COPYRIGHT tC) 1976,1977
:#DIGITAL EQUIPMENT CORP.

CZRJCBO, RPO4/S/6 HEAD ALNMT

;nnvnnao MASS. 017SM

ooc

E NDC

xxr NB <C. HESS),;#PROGRAM BY C.

HESS

;rnxs PROGRAM WAS ASSEMBLED USING THE POP- 11 MA INDEC SYSMAC
:PRCKQGE (MAINDEC-11-DZQRC-C3), JAN 19, 1977
"1IF NOF
, $HD=0
"1IF NDF $TN’ SHD=SHD!

000001

J1IF nor ssuk suo:suo-a

C1IF NE
S
g
HALT ON ERROR, LOOP ON TEST, INHIBIT ERRGR TYPGUT
160000
J1IF NE snose sun.§BTTL OPERATTONAL SWITCH SETTIAS
;:

001
002

001

002
OO NN EW—-O

g
e
s Pt B
e Bt
e

IF NB O
¥

"ENDC

-If NE 002C008$SWR

000

001

JIF NE o1oooosssua

‘frr

TENDC

001

;¥
"11F NE 100000SSSWR,
; ¥
.IIF NE OYOCOOBSSUR,
:#
"1IF NE 02000088SuWR,

002

wnunanunangdnanaunun

SWITCH

001

660

0C!

;#
"IIF NE DO400088SWR,

P¥

"IFF
“IF NB O
. %

"ENDC

USE

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

15
14
13

INHIBIT TRACE TRAP

INHIBIT ITERATIONS

BELL OM ERROR

-ENOC

.xr NE 00100088SWR

LOOP ON ERROR

xr NB <LOOP ON ERROR>
9

LOOP ON ERROR

enoc

.ENDC

.IF NE 0OO4008$SWR

CNLIST

E{ngor SSWRMK,SSWRMK=0

IIF EQ <«$SWRMK3377>,

1IF EQ <ssunnxsa77>-éoo,,

1IF EQ <SSWRMK8377>-300, ;%
)%
IIF EQ <SSWRMK3377>-340,

8
8

LOOP ON TEST IN SWR(7:0>

LOOP ON TEST IN SWR<6:0>

LOOP ON TEST IN SWR<5:0LOOP ON TEST IN SwR<4:0°

CZRJCBO,

RPO4-S-6 HERAD ALNMT

CZRICB.PI11

D4-NOV-T7 12:49

520

g8l
§27
528
529

30(1046)

O4-NOV-?7

17:31

.1IF EQ

<SSWRMK8377>-360,
;#*

)

ooe

.IIF
.1IF
.IIF
.IIF
CIIF

(S0&>,
;%
(S0S>,;#
<SO%,
;%
<S03,
;%
<S02>
. ;%

0C!
000

£3g

-%"P"

JIIF N8B <507)>,
;#

£36
£37

NB
N8B
NB
N8
NB

.IIF NB
.IIF NB

. SWRLY

CIIF
IIF
IIF
LIIF
HF

545

IIFNB

g47

IIF NB

(O, ;%

CIIF N

E49

JitF

S46

N O,
#
NB O,
NB O,
#
N8 O,
x
gg (), %

1
0

LOOP ON TEST

S0}
S00

EcY
£5¢
€5t
€57
gEg
659
560
56

IIF NB O, ;@
.x*r ng Ol ie
J1IF
s
CIIF NB O 3w
IIF NB O Lin
.IIF NB ¢,
%
CIIF N O
CIIFNB Olie

0
7
5
S
4
3
]
1

.1IF NB <TYPE ALL TRACK CENTER VALUES>.;*

.SBTTL
001

BRSIC DEFINITIONS

LOOP ON THE CURRENT HERD

.IF NB

-#INITIAL ADDRESS OF THE STACK POINTER ##® #sx

$TACK=

€eg

.1FF

001100

alalal

-#INITIAL ADDRESS OF THE STACK POINTER ### 1100 ##a

§TACK="

1100

-EQUIV

EMT,ERROR

.ENDC

.EQUIV

10OT,SCOPE

CHECK ONLY THE SPECIFIEC

ST1IF N8 <LOOP ON THE CURRENT MEAD,,;#

§53

S06
S0S
504
503
502

ggg

IN SWR<«O>

S07

LIIF NB (>,

WR<2:0

7
6
S
Y4
3

552

See

IN SWR<3:O»

t82F 8N TEat iN auf:%:8;

561

g7¢c

6
S
q
3
2

fir Ng O, %

gzg

LOOP ON TEST

<CHECK ONLY THE SPECIFIED HERD>,
;#

CJIF NB O,

€S0

€72

S07,506,535,504,503,502,5C1,S00

(SOL>,
;%
<S00),;#

£39
£40
S4]
542
543

€71

SEG 0Cl2

€31
€32
£33
€3y
€35

€70

JIF N8B O
;8
.SWRLO

£E3

.§é§ EG (SSWRMK3377>-376,
;%

€30

PRGE

OPERATIONAL SWITCH SETTINGS

TENDC
.ENDC
.MACRO

Sec

MOl

-44F BR 3=HRAREd90; 2308
i%

gga

525
526

MARCY1l

: sBASIC DEFINITION OF ERROR CALL

: :BASIC DEFINITION OF SCOPE CRALL

; #*MISCELLANEGUS DEFINITICNS

TYPE ALL TRACK CENTER VA

RPO4-'S/6 HERD ALNMT
¢ ZRJ LBO
C ZRICB. P11
O4-NOV-77 12:49
576

000011

578
579
580
S8l
S82
€83
584
585
58k
§87
588

000015
000200
177776

g577

onmoe
Wy
OO0

689
g99
591
592
€33
594
595
€36
3k
598
£99
600
601
602
603
60
605
606
607
608
609
£10
E1]
gl2
£i3
614
£15
£15
617
£18
619
620
62l
6e2
623
&o4
62S
626
627
628

000012

17277724
177772
177570
177570
0000G0
000001
0000062
000003
000004
000005
000006
000007
0006006
000007
000000
000040
000100
000140
000260
060240
000300
000340
100000
040000
020000
010000
004000
002000

061000
000406
000200
000100
000040
000020
000016
060004
000002
000001

MACY1l

O4-NOV-77
BRSIC DEFINITIONS

30(1046)

HT=
LF=
CR=
CRLF=

11
12
15
200

.EQUIV

PS,PSW

PIRG=
DSWR=
DDISP=

177772
177570
177570

PS=

177776

STKLMT= 172774

17:31

NO1

PAGE 13

; ;CODE
; ;CODE
; : CODE
ODE

FOR
FOR
FOR
FOR

SEQ 0013

onxzonrn; TRS
LINE FEED
cnnnxncs RETUR
CRRRIAGE RETURN LINE FEED

,,PROCESSOR STATUS WORD
,,svncx LIMIT REG;?T

PROGRRH INTERRUPT
REQUEST REGISTER
HARDWARE SWITCH REGISTER
HARDWARE DISPLAY REGISTER

#GENERAL PURPOSE REGISTER DEF INITIONS

AG=

s GENERAL REGISTER

Rl=

.,GENERnL REGISTER

R3=

: 'GENERAL REGISTER

R2=

: 1GENERAL REGISTER

RY=

; s GENERAL REGISTER

R6=
R7=

%6
%7

: 'GENERAL REGISTER
+; GENERAL REGISTER

yA)

RS=

%b
%7

SP=
PC=

; ; GENERAL REGISTER

;;STRCK POINTER
PROGRAM COUNTER
: '

. #PRIORITY LEVEL DEFINITIONS

PRO=

PR1=

PR2=
PR3=
PRY=
PRS=
PRb=

PR7=
%

100
140
200
240
300

340

SWITCH REGISTER"

812

suxqSWi3=
Sule=
SWiiz
Swi0=
Sw09=
SWoB=
SWo7=
SWob=
SW05=
SWOM=
SWo3=
SuWh2=
Suil=

SUW00=

100060

' !PRIORITY
: 'PRIORITY
;PRIORITY
PIPRIORITY
:'PRIORITY

SWITCH DEFINITIONS

SWOY.SW4

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

2
3
d
S
&

:'PRIORITY LEVEL 7

qoooo
20000
10000
4060
2000
1000
400
200
100
40
e0
10
&

CEQUIV SW09, SWS
SW08,Sw8
.EQUIV
SW0?7.Su7
-EQuUIV
JEQUIV
SW06
. SWe
SW0S. SWS
"EQUIV

JEQUIV

;. sPRIORITY LEVEL O

::PRIORITY LEVEL 1

CoRJCBO,

RPOM 5.6 HEAD ALNMT

CZRICB.P11

D4-NOV =7 12:49

MGCY1i 30(1046)

O4-NOV-?7

BRSIC DEFINITION

632

.EQUIV

634
£35
ggg

.EQUIV SWOl.SKI
.EQUIV
SW00.SWG
IFB O

633

£38

£33

£42
641
E42
EN3
644
£45
B46
E47
E48
649
£S0
651

653
654

65¢c

656
657
658
659
660
661
662
663
£64
66S

ggg

666

17:31

BO2

PRGE 1M

SEG 0014

SWO03,SW3

JEQUIV éuoe,gua

0c1

100000

. #DATA BIT DEFINITIONS (BITON TO BITIS;

8I1T15=

040008
020000
016000
004000
002000
001000
000400
000200
000100
000040
000020

BITi4=
BIti3=
BITi2=
BITII=
BITi0=
BITOS=
BITO8=
BIT0?=
B8IT06=
BIT0S=
BITO4=

000004

BITG2=

000010
000002
000001

000

001

B8IT03=

100000

40000
20000
10090
4000
2000
1000
400
200
100
40
20
10

BIT0I=
BITOO=

2
|

.EQUIV
-EQuliv
-EQUIV
"EQUIV
.EQUIv
.EQUIV
.EQUIV
.EQUIV
"EQUIV
.ENDC

BIT08.BIT8
81107.8117
BITO6,BITH
gIT
'BITS
BITO4.BITH
BIT03.BIT3
BITC2,BIT2
BITOI.BITI
BITO0.BITO

.EQUIV

BITD9,BITS

JIFB O
. ¥BASIC “CPU” TRAP VECTOR RADDRESSES

£6S

600004

ERRVEC= 4

;;TIME OUT AND OTHER ERRORS

671
£72

000014
000014

TBITVEC=14
TRTVEC= 14

JieTTM B
: ' TRACE TRAP

E75

000020

679

£723
67¢S
£7

£77
€78
679

£8C
66]

€82
Eg..i
I

€S

)
£E7

000010

RESVEC= 10

:iRES RV$D AND ILLEGAL INSTRUCTIONS

000014

BPFTVEC= 14

000024

PWRVEC= 24

: POMWER FAIL

000034
000060
000064

TRAPVEC=34
TKVEC=
60
TPVEC=
&4

: :“TRAP* TRAP
2 TTY KEYBOARD VECTOR
:1TTv PRINTER VECTOR

000G30

000240
0oc
a01

ICTVEC= 20

EMTVEC= 30

PIRGVEC=240
.ENDC

: 'BREAKPOINT TRAP (BPT)

* PINPUT/OUTPUT TRAP (I0T) #%SCOPE»#

*'EMULATOR TRAP

(EMT)

#2ERROR#%#¥

' 'PROGRAM INTERRUPT REQUEST VECTOR

JIF B
H il!lii*lllillf!iiI'I'lwlill‘lilillflll!iliflll‘ll{!li!iIiilllll!i!i!lfllf!l
FF

CNLIST
.REPT
.LIsT

MRCY11

30(1046)
O4-NOV-?77
BRSIC DEFINITIONS

17:31

coe
PAGE

SEQ 001S

ll’lllilil’lilil‘llll!i’ + 2R RRRREREEREERRERRLE
AR RRSRERIRERARERERRRS

"l cT
.

o w

030
.SBTTL
001

RHll

.IF B

cRERERRER

REGISTERS
‘2222222222222
2LITRLZ ARSI S22 22222222 24

8(13

-NLIST
.REPT

LISTY

Hl;;ll‘lilllill!liilliiili!l!i!liil!lllill‘lllillll!!llll{llllill
L

00C

.ENDR
LIST
.ENDC

:CONTROL RND STATUS REGISTER 1

Alb=
R17=

100

R?QDY (SéT

400

HIGH OR
BUS RDDRESS BIT
HIGH ORDER BUS ADDRESS BIT

"SEre
%0
TRE=
40000
;SC=

(RPCSL)

; INTERRUPT ENQBLE \BIT #6)

200
Q
o
o

1E=

ROY=

000100
000230
000400
001000
002000
020000
oM40000

[EoRY
SELECT TRIT 10T 011
: TRANSFER ERROR (BIT #14)

100000

(BIT 8.
(BIT 29,
3

:SPECIAL CONDITION (BIT #15;

WORD COUNT REGISTER (RPLC)
; (ERCK BIT IS CALLED BY BIT NUMBER)

POV

NN CINSNE PN

0 e 82 4t p 4 s pe 0e 1 (DD

Q Q Qo0 @]

M= {300 NN
L W O O0m [+l )N £W e

INININ NI NN -~ LR D 2k 2k i Ik LA eal Al AL AL AR AL

$0‘80‘
2888 9RREDRN28
2838
&

CZRJbBU
RPO4.5 & HERD QLNHT
CZRIC B.811
OY4-NOV-77 12:+

:BUS ADDRESS REGISTER

722

; (EARCH BIT

(RPBR)

IS CALLED BY BIT NUMBER)

; CONTROL AND STATUS REGISTER 2
000091
4

Usl=
Use=

1
e

(RPCS2)

;UNIT SELECY
;UNIT SELECT

(BIT s0)
(BIT #1)

=z
U%?z
AT=

?U
F48)

MPE=
MxF=

400
100C

Hflgg 8U§ PflRéTY ERROR
:MISSE
RANSFER ERROR

100000

;DATR LATE

CLR=
IR=
OR=

PGE=
NEM=
NED=
UPE=
WCE=
DLY=

40
100
200

2000
4000
100C0
27000
<0000

Bl (B!
;gSIT SEkEgT
(sé;E;E&T
INHIBIT
;Hflgsggg(BIT
SQ%I*Y
TEST
(BIT
%)
#S)
;

;CLEAR
;s INPUT READY (BIT #6)
;OUTPUT RERDY (BIT u7)

(BIT
(BIT

#8)
»9)

PROGRRN ERROR (BIT #10)
NON EXISTENT MEMORY (BIT #ll)
NON EXISTENT DRIVE (BIT #12)
UNIBUS PRRITY ERROR (BIiT #13)
‘WRITE CHECK ERROR (EIT (LY
(BIT

815

<RJICBO,

RPOY S-6 HERD ALNMT

CoRJICB. P11

O4-NOV-77

MRCY11l

30(1046)
O4-NOV-?7
RH11 REGISTERS

17:31

D02
PRGE

SEQ 0016

;DRTR BUFFER REGISTER

(RPDB)

: (EARCH BIT 1S CALLED BY BIT NUMBER)
001

JIF B

: i;;lllili!!illiil!'l‘lllll'liilli!lliililiilfllil!!llil!illliiliiif!i

CNLIST

fil;;;fililIiilllll!lllllll‘!illl’lfilllllllilli!ilfllfi!i!lill’iif!!if

000

"ENDR
SLIST
TENDC

.SBTTL

001

RPO4/5/6 REGISTERS

.IF B

: t;llliIilii‘llllilliiil!lll!!lil‘l!iilil!illlflfll{i}{fi!lQiiiiiili

:NLIST
.hi;;;fltINI‘II'l‘llllllliiill’l!lliiilliilllllll!illiiilii*liIiiiiif!'
L
ENDR

LIST
ENDC

:CONTROL AND STATUS

00000}

GO=
Fi=

1
2

F4=

OVA=

4000

Fo=
F3=

004000

FS=

.DFS=

(8GO)
:GO BIT (BIT 80)
:FUNCTION CODE BIT

9
10

SFUNCTION CODE BIT
SFUNCTION CODE BIT

#2
3
:FUNCTION COOE BIT sH4
'FUNCTION CODE BIT S
:DEVICE AVRILABLE (BIT

:DRIVE STATUS REGISTER
000002

(RPDS!)

wil)

(#01)

DRIVE FORWARD S"/SEC.

CIGB=
GRV=
DLEY=
DEl=

H
10
20
40

:DRIVE TO INNER GUARD BAND (BIT #2)
:GO REVERSE (BIT #3)
:DIFFERENCE LESS THAN B4 (BIT #4)
‘DIFFERENCE EQUALS 1 (BIT #5)

DRY=
OPR=
PGM=
LST=

200
400
1000
2000

;oaxxg READY (BIT #7)
:DRIVE
PRESENT (BIT #8)
:PROGRAMARBLE (BIT #9)
:LRST SECTOR TRANSFERRED

PIP=

20000

OFF20=

vV=

WRL =
MOL =

100

4000
16000

:DRIVE FORHRRD 20TM/SEC.

:VOLUME

VALID

(BIT

()

(BIT s1)

#&)

'WRITE LOCK (BIT #11)
‘MEDIUM ON-LINE (BIT »1

"POSITIONING

(BIT

OPERATION

(BIT #10)

IN PROGRESS

(BIT

#:3:

CoRJCBO,

RPOM.S-8 HERD ALNMT

800

40000

CZRICB. P11

ggé

O4-NOV-77 12:49

10000C

RPO4/5/6 REGISTERS

ERR=

RTAR=

40000

100000

00000,
000002
000004
000010

ILF=
ILR=
RMR=
PAR=

gl4
gls
216

001000
002000
004000

RQE=
IRE=
WLE=

1000
2000
4000

DCK=

100000

000100
000200
000400

010000
020000
040000

100000

ECH=
HCE =
HCRC=

DTE=
OPI=
UNS=

10000
20000
40000

824
825
826
82?
828

000001
000002
000004
000010
000020

DMD=
MCLK=
MINX=
MSTCK=
MRD=

1
2
4
10
c0

gg?

000200

DTSY=

200

000040

:FORMAT ERROR (BIT 8Y4)
{WRITE CLOCK FAIL (BIT #S)

:ADDRESS OVERFLOW ERROR (BIT 89)
: INVALID ADDRESS ERROR (BIT #10.
:WRITE LOCK ERROR (BIT #11)

;ORIVE TIMING ERROR (BIT ule)
;OPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)

:DATA CHECK ERROR (BIT 15)

MWR=

.
;OIAGINOSTIC MODE (BIT #0)
;MARINTAINABILITY CLOCK (BIT =1)
;MAINTRINABILITY INDEX (BIT #2)
;MAINTAINABILITY SECTOR CLOCK (BIT #3.
;MRINTQINRBILITY RERD (BIT s4)

;MAINTAINABILITY WRITE (BIT &5)

"MAINTAINRBILITY SYNC DETECTED (BIT 87)

ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (804)

gg%
e34
gac
£36
837
828
B39
g40
g:é

;ATTENTION ACTIVE (BIT #1S,

;MRINTRINABILITY REGISTER (RPMR)(#03)

ggg

829

;COMPOSITE ERROR (BIT 814

;ECC HARD ERROR (BIT #6)
;HERDER COMPARE ERROR_ (BIT #7)
;HEADER CRC ERROR (BIT #8)

e0
40

SEG 0017

100
200
400

FER=
WCF =

SS?

PRGE 17

; ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT &1,
;REGISTER MODIFICATION REFUSED (BIT #2,
;PARITY ERROR (BIT #3)

000020
000040

817
g18
819

EO2

1
e
4
10

809
gi0

8ll
8le
813

17:31

:ERROR REGISTER #01 (RPER1) (#02)

883

805
806
80!
808

04-NOV-77

MACY11l 30(1046)

000001
000002
000004
000010
000020
000040
000100
000200

AT0=
AT1=
ATe=
RT3=
ATY=
ATS=
ATe=
AT?=

1
e
4
10
c0

40
100

200

O
1
2
3
4
;DEVICE S
;DEVICE 6
;DEVICE 7

;DEVICE
;DEVICE
;DEVICE
;OEVICE
;DEVICE

#0)
#l)
s2)
#3)
#4)
(BIT S,
(BIT 6.
(BIT #7)

(BIT
(BIT
(BIT
(BIT
(BIT

843
S:g

DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA)

g:g

;DRIVE TYPE REGISTER (RPOT) (8063

gug

843
eso
8S1
BSe
8E3
gc4
8ce

(ERCH BIT IS CALLED BY BIT NUMBER

000001

000002
000004
000010
000020
000040
000100
00Ce0C

DT00=

D10i=
DI02=
DY03=
DT04=
D10S=
DT0E=
DT0?=

@
4
10
20
40
100
20C

(%05,

;ORIVE TYPE NUMBER BIT |

;DRIVE
;DRIVE
;ORIVE
;DRIVE
;DRIVE
;:DRIVE
;ORIVE

TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMRER
NUMBER

BIT
BIT
BIT
BIT
BIT
BIT
BIT

2
3
4
S
&
7
8

B0, RPOY 5-b HEAD RALNMT
B.P11
D4-NOV-77 12:49

856

85
858
859
860

000400

004000
020000
040C00
100000

1
2

9
=g

876
,

000001
000002
000004
000310
000020
060040
00C100
006200

001000

002000
004000

010000
020000
040000
100000

400

4000
20000
40000
100000

100
200
400

5C20=
TRK1=

2000
4000

:SECTOR COUNT FIELD 4 (BIT 810}
*TRACK FIELD 1 (BIT #11)

§Cio=

TRK2=
TRK4=
TRK10=
TRK20=

1000

10000
20000
4000G
100000

000001

WCU=

TUF=
FEN=
WRU=
MHS=
NHS=
IXE=
vu3D=
PLU=
RCU=

100
200
400
1000
2000
4000
10000
20000
100060

(#10)

*CURRENT SINK FAILURE (BIT sl)
SWRITE SELECT UNSAFE (BIT s2)
{CURRENT SWITCH UNSAFE (BIT #3;

:TRANSITIONS UNSRFE (BIT #6)
:FRILSAFE ENRBLED (BIT #7)
‘WRTTE RERDY UNSAFE (BIT #8)
;nULLéPLE HERD SELECT (BIT #9
:NO
HERD SELECTION (BIT #10)
: INDEX ERROR (BIT #il)
:30VOLT UNSAFE (BIT 812,
!PLO UNSAFE (BIT #13)
'AC UNSAFE (BIT #15)

;RPOS/6 ERROR REGISTER #02 (RPER2)

000001

000002
000004
000010
000020
000040
000100
000200
000400
001008
002600

WCU=

CSF=
WSU=
cSu=
RAW=
TDF =
TUF=
RBS=
WRU=
MHS =
NHS=

#12)
#13)
siY4y
#15)

:MOTOR SEQUENCE ERROR (BIT 84)
*TRANSITIONS DETECTOR FAILURE (BIT #S

060100
000200
000400
001000
062000
004009
010000
020000
100008

£99

(BIT
(BIT
(BIT
(BIT

20
4G

883
£9C
R
23z
3
894
g9c
896
897

MSE =
TOF =

:TRACK FIELD 2
STRACK FIELD 3
:TRACK FIELD 4
:TRACK FIELD S

sWRITE CURRENT UNSAFE (BIT 80)

2
4
10

000020
000040

:SECTOR COUNT FIELD 3 (BIT #9

CSF=
WSU=
CSuU=

302
353
90N
ge
S0t
"ok
30e
409
3
i

:DRIVE TYPE NUMBER BIT 9

'DRIVE REQUEST REQUIREC (BIT #1l
"MOVING HERD (BIT -13
:TAPE BLOCK
DRIVE noonssseo
(BIT w14 (BIT #1E;
:NOT
{EXTENSION | (BIT #0)
'EXTENSION 2 (BIT #1)
SEXTENSION 3 (BIT #2)
SEXTENSION 4 (BIT #3)
SEXTENSION S (BIT s4)
"EXTENSION & (BIT #5)
:SECTOR COUNT FIELD O (BIT &,
:SECTOR COUNT FIE'.D 1 (BIT 87,
:SECTOR COUNT FIELD 2 (BIT #8:

|
2
4§
10
20
40

0000062
000004
000010

901

SEG 0018

EXTi=
ExTe=
EXTH=
EXT10=
EXT20=
EXT40=
SCl=
§Ce=
2S5C4=

ges
885
886

g8?
888

PAGE 18

;RPO4 ERROR REGISTER 82 (RPER2)

g8]

£83

DT08=

DRG=
MOH=
TAP=
NBA=

FO2

: LOOK-AHEAD REGISTER (RFLA) (807

Bbe

864
c
866
86:
868
BES

MACY1l 30(1046) 04-NOV-77
RPO4/S/6 REGISTERS

17:31

2
4
10
20
40
100
200
400
10C0
2000

(#10)

:WRITE CURRENT UNSRFE (BIT 80)

:CURRENT SINK FRILURE (BIT sl)
‘WRITE SELECT UNSRFE (BIT #2)
:CURRENT SWITCH UNSAFE (BIT #3)
‘READ AND WRITE (BIT a4}
"TRANSITIONS DETECTOR FAILURE (BIT #S
TRRNSITIONS UNSRFE (BIT #6:
:ABNORMAL STOP (BIT #7)
'WRITE READY UNSAFE (BIT 88
'MUTLTIPLE MEAD SELECT (8IT #3;
!NO HEAD SELECTION (BIT siC.

O4-NOV-77 12:49
004000
020000

MACY1l

30(104&)
Q4-NOV-77
RPO4/S/6 REGISTERS

IXE=

PLU=

17°31

PAGE 19

SEC 0OCIS

: INDEX ERROR (BIT #!l)

4000

;PLO UNSRFE (BIT si2.

(#ll)

OF2S=

;OFFSET 25 MICRO INCHES (BIT 80)

OF100=
0F200=
OF400=
0F800=
OFREvV=
HCI-

N
10
20
40
200
2000

;OFFSET
;OFFSET
;OFFSET
;OFFSET
,OFFSET
HEADER

QOFS0=

010000

GO2

20000

:OFFSET REGISTER (RPOF)

£ ~
ruru

[l ZRY ST S STy Y =Y o

N+
O WM - I LW

OO D OO D DD

OO0

RPOH S.6 HERD _ALNMT

E
FMi22=

:OFFSET SO MICRO INCHES (BIT #1)

100 MICRO INCHES (BIT s2
200 MICRO INCHES (BIT 3
400 MICRO INCHES (BIT s4
800 MICRO INCHES (BIT #S
NEGATIVE (REVERSE) (BIT
COMPARE INHIBIT (BIT %10

:ERROR CORRECTION CODE INHIBIT (¢
'FORMAT BIT (BIT #12

4000
10000

;DESIRED CYL INDER ADDRESS (RPCR)

(#12)

: (EACH BIT IS CALLED BY BIT NUMBER)

; CURRENT CYLINDER RDORESS (RPCC) (#13)
; (ERCH BIT IS CALLED BY BIT NUMBER)
SERIRL NUMBER REGISTER (RPSN) (#14)
(EACH IS CALLED BY BIT NUMBER)
;RPOH ERROR REGISTER #03 (RPER3)
000004

100000

PSU=

VYUF=
UWR=
ACL=

DCL=
SKI=
OCyL=

c
10
40

0o
40000
100000

(&1S)

; PACK SPEED UNSAFE (BIT IG)

IVELOCITY UNSAFE (BIT
:ANY UNSAFE _EXCEPT REQO/NRITE
iAC LOW (BIT 8S)

:0C LOW (BIT #6)
{SEEK INCOMPLETE (BIT sl14)
:0FF CYLINDER (BIT #15)

;RP0S/6 ERROR REGISTER #03 (RPER3)
0000C!

100000

OCu=

WAC=
ACL=
DCL.=
QOPE=
SK1=
oCyL=

e
40
100
20000
40000
100000

(815)

;DC _UNSAFE (BIT 80)

IWRITE AND OFFSET (BIT #l1)
:AC LOW (BIT #5)
‘0C LOW (BIT #6)
:OPERATOR PLUG ERROR (BIT #13)
iSEEK INCOMPLETE (BIT s]d
:0FF CYLINDER ERROR (BIT #15)

;ECC POSITION REGISTER (RPEC1)

(#16)

;ECC PATTERN REGISTER (RPEC2)

(#17)

: (EACH BIT IS CALLED BY BIT NUMBER

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

TRAP CATCHER
=0

A .42, HALT"
:#ALL UNUSED LOCATIONS FROM4 - 776 CONTAIN

: #SEQUENCE 1O CATCH ILLEGAL TRAPS AND INTERRUPTS

(BIT

a2.

CSRJCBO,

RPO4 S & HERD ALNMY

9%8
969
470

000174
000000

CZRICB.P1L

ggé

00CIT4

000176

93
97y
gzg

378
gg?

s?nsca (WORD

000

SEG 0020

.ENDC

.SBTTL

001460
0014S0

P 1EOF TWARE SWITCH REGISTER

svnnrxnc ADDRESS (ES)
IMP
a8
.- JUMP TO STARTING ADORESS OF PRGGRAM

PROGRAM STARTING ADDRESS = 200
. =200

STHRTI
START

CR
LF

.MACRO
=
=

38E
3g7
388

ORIVE:
ATIN:
$HERD:

.WORD
.WORD
. WORD

MORETAGS
15
12
O

O
O
0

‘DRIVE NUM STORAGE FOR DRIVER ERR CALLS
'ATTENTION REGISTER STORAGE FOR ERROR MESSAGES
Hgngsngoness
STORED FOR ERROR MESSRGES

ggo

orfiofinz .5050

,NecNorzggr pns; 1¥0R

389

000137
000137

PAGE 20

mp
IMP

gg2
383
984
385

0pC200
0C0304

17:31

;#LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=17y
DISPREG: .WORD
O
. s SOFTWARE DISPLAY REGISTER

00088?

000200

0O4-NOV-77

TRAP CATCHER

SBTTL

977
3-8

O4-NOV-77 12:49

MACYL1l 30(1046)

DRVSEL:

OPLN:

.WORD

.START THE PROGRAM, USE THE DEFAULT RH1l ADDRESS
'START THE PROGRAM, CHANGE THE RHIl ADCRESS

nooasss OF ?ELECTED DRIVE

ADER’

INDIC

INDLCATOR

giNéNE: .uSR

EiSNS& Bi 278525

394

INREG:

{CONTAING THE “VALUE READ FROM THE REGISTER

933

93¢

94af

997
958
999
1600

PLUS:

.WORD

TOLER:

.WORD

MAXCYL: .WORD

:STORE

THE POS SIGN cunucs

LIGNHENT TOLERANCE FOR PRESENT CYLINCER

'CONTAING THE MAXIMUM CYLINDER ADORESS

.WORD
.WORD
.WORD

O
O
O

! OF va
*CONTAING
'CONTAINS
conraxn

1002

MIDTOL: .WORD

' CONTA

1004

MIDCYL:

.WORD

KV
PKCS
PKB
PKC

TWORD
JWORD
WOR
" WOR

LKS:

JWORD

1501

1002

100¢
1006
1007
1008
1009

:0i0
101
1012
1013

MAXPOS:
MAXNEG:
MAXOFF:
OUTTOL:

.WORD

INCYL:

.WORD

.WORD
.WORC
.WORD
_WORD
.WORD

O
O
O
O
O

JWORD

100,102

OUTCYL:
TABLEL:
TABLE2:
SEKCNT:
CHGADR:

1014

LKV:

igig

STARS

;éég

.SBT'L

iggé

STARS

;0232

$RPADR: .WCRD

ig;g

. UDLE

UNDER ng
MAXIMUM POSITIVE OFFSET
MAXIMUM NEGATIVE OFFSET
NUMBER OF OFFSET POSITIONS

°”T“iN§
TOLERANCE

FOR

LERANCE FOR

INNER chxnoen ADDRESS

INNER AND OUTER CYL INDERS

THE AL IGNMENT CYLINDER

AL IGNMENT chauoen
ADDRESS

oursn CYL INDE
DRESS
o
CONTR{N? gsno
TRBLE ADDRESS FOR 'INCYL® 8 "GUTIrL:
! CONTAIN
onss
orrssr CODE TABLE
con7n1~s SEEK
C
: CHANG: é# gus
nooness FLAG

104,106
1722840
175242
17

'KWl1RESS
'KW1l-P CONTROL nno STATUS REG.
'KW11-P COUNT SET BUFFER
'KW11-P COUNTE

1778486

'KWll-L STATUS REGISTER

‘KW11-L VECTOR ADDRESS

FRH11/RPO4/5/6 ADORESS & VECTOR LOCATIONS

176700

:RH11.RPO4/S & UNIBUS ADDRESS

-0

oty

o
wwwwgwwwwwmmw*
OONONLWN—-0DODD-INE (ald)
OO

()OO000000D0000

Bt Bt Bt s Pt Bt Pt 0 1 $=0 Pt Bt Pt Pt 000
Pt s Pt fl

PO4 S 6 HERD ALNMT
O4-NOV=-T7 1 2:49

MACY1l

30 (1046)

Y-NOV=-77

i0e

1 ! . 31
PAGE 21
P
ROGRAM STARTING ROD R ES S = 200
RPVEC:

.WORD

254

.ENDM_
MOREL'TRGS
MACRO
SSCMREG A,B
REG'R: .WORD
O
NLIST
CM1=$CMl+]

SEG 021

;RH11./RPO4-/S/6 VECTOR ADDRESS

; ;CONTRINS

((SREGRD)+°B.

CM2=8$CM2+2
LIST
.ENDM
SSCMREG
NLI
CMY=SCMY+1

LIST
ENDM

SSCMTMP

: :USER DEFINED

RP0H-5-6 HERD ALNMT
D4-NOV-77 12:49

04-NOV-77
COMMON TAGS

30(1046)

.SBTTL

001

17:31

PAGE 22

SEG 0022

COMMON TRGS

.IF B

< 00000 4 6 06 08 06 30 36 06 06 38 36 26 6 00 36 36 36 3 36 36 36 38 36 36 36 96 06 36 36 3 36 38 36 3 S 6 06 0k 96 3 9 36 36 3 3 3% o 30 40 20 06 0 3 3 3% 00 3 2 %

9 (13

SNLIST
.REPT
SLIST

R I

"ALIST

001100

001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
(001144
001146
0B011S0
001152
001154
00155
0011S6
CO11E7

008

001
000000
000
000
0
000000
000000
0000
000000
000
001
000000

000000
0000
000000
000250
Ro0000
000000
00
00
0000NG
177570
177570
177560
177562
177564
177568
000
002

Olée
alals]
Gol

.1F NB
.IFF

’

ENDC

; ; START OF COMMON TRGS

SCMTAG:

.IF NB
.IFF

§PASS
. ENDC
§TSTNM:
SERFLG:
SICNT:
SLPRDR:
SLPERR:
SERTTL
SITEMB
SERMAX
SERRPC
GDADR:
$BDADR:
$GODAT:
800A

SAUTOB:
SINTAG:
:
DISPLAY
TKS:
$TKB:
$TPS:
$TPB:
SNULL
:
SFILLS:

$FILLE:
STPFLG:
IF B

-WORD
. WORD

.BYTE
.BYTE
. WORD

001100

:¥THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
' $USED IN THE PROGRAM.

001

ISL L2222 222222222 2 222t

.ENDR
LIST
"EN DC

;s s CONTRINS PRSS COUNT

; s CONTARINS THE TEST NUMBER

ERROR FLAG _
SUBTFST ITERHTION COUNT
SCOPE LOOP_ADDRESS

SCOPE RETURN FOR ERRORS

7OTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
RODRESS OF ’'GOOC’ DATA
S ADDRESS OF ’'BAD’ DATA
'GO0D* DATA
'BRD’ DRTA

; ;RUTOMATIC MODE INDICRTOR
; ; INTERRUPT MODE INDICRTOR
E
P

000

IYYYTRIIZIIZISS SIS

1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
10683
104
1085
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1069
1090
109]
1092
1083
1084
108E

MACY11l

Q0000000000000
00000

C 2RICBO,

C ZRICB.#11

DISP

; ; ADDRESS OF SWITCH REGISTER
; ; ADDRESS OF DISPLAY REGISTER

$ITTY KBD STATUS

;;TTY KBD BUFFER
::TTY PRINTER STATUS REG.
::TTY_PRINYER BUFFER REG.

ADDRESS
ADDRESS

: 'CONTRINS HULL CHARACTER FOR FILLS
:'CONTRINS 8 OF FILLER CHARACTERS REQUIRED

! PINSERT FILL CHARS.

AFTER A “LINE FEED"

:P“TERMINAL AVAILABLE" FLAG

(BIT<07>=0=YES}

CIRJCBO,

RPOM-S.6 HERD FLNMT

CZRJICB. P11
1096
1097
1098
1099
1100
1101
1102
1103
110+
1108
1106
1137
1108
1109
1110

000
001

30(1046)

oee
001

1117
1118
1119
1120
1121

000
001

1122
1123
1124
1125
1126

000
001

1127

.IFF
-NLIST
§CM3=
LLIST
-ENDC
-IF NE $CM3
$SREGRD: .WORD

.ENDC
“IF NB
NLIST
$CM4=0
LLIST
REPT

17:31

KOe

PAGE 23

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

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

SSCMTMP \SCMY
.ENDR
-ENDC
_
.IF NE $SWR3<L00
§TIMES: O

.ENDC
-IF NE 10008$SWR
$ESCAPE:0
.ENDC
.IF NE 20008%SWR

§BELL:

SEG 0023 «

.ASCIZ

: :MAX.

NUMBER OF

ITERATIONS

: ;ESCAPE ON ERROR RDDRESS

<207>¢377>¢377,»

;;CODE FOR BELL

1136
1137
1138
1139

_END
$QUES:
.ARSCII
7/
; ;QUESTION MARK
§CRLF:
.RSCII
<15
: :CARRIAGE RETURN
$LF:
JARSCIZ
<12
:'LINE FEED
CIIF NE 187,
.EVEN
'IF B
H iiiiilili!li!liliiiii!illii!i!i!li&lllillii!i&ililliilliliiillli
‘4FF
TNLIST
.REPT
LIsT
HH REERRERBREREERRERRRDERERREEREEREREREEEEBRREREEERRERERER RS ERREEERRER RS

1141
1142

.ENDR
LIST

001160
00116l
00lle2

000
07?
015
00CO12

0O4-NOV-77

COMMON TRGS

NLIST
$CM1=0
§CM2=0
LIST

1111
1112
1113
J11%
1118
1116

1128
1129
1130
1131
1132
1133
iig"s‘

D4-NOV-?77 12:49

MA( Y1l

001

1140
1143

11uy

11yg
114€

‘ALIST

00s

aci

1147
1148
1149
1183
11€;

ENDC

"IF

CNLIST
"MCALL

.LIST
000
001
000G 1S

.ENDC
-IF NB
¢R

.SAPTBLS

.$SAPTBLES
‘MORETAGS
=
1

)

NenLow

Dt Pt et Dt Pt Pt Pt Pt Pt Pt Pt Pt Pt 8 Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Dt Pt Pt Pt Pt s Pt e Pt Pt Pt Pt Pt Pt e Pt s P s Pt Pt P Pt Pt Pt Pt P

Q0000 (&)
NNNNNNN'\‘S;;HF"—O*HFMHHHHo—r—-w»—-v——wwr—»—-»—-»—-»—»»—v—»—w—v—»—-v—-»—-»—-»—-»»«»—-b—-r—-»—-’-—»—»—w»—
Coly
O 0 W0 WD W 00 00 00
(D D I(JNHS\DO
M OO0 00 N N 3 N
8b—8\00 \lglfl-fiwNNO\Dm
o
\Jm‘!\l\lVVU‘U‘U‘U‘U‘U”O"%U‘U‘U\&U‘U\U\U‘U\K}
OO
LWV—0OVONOCNLZWN—-0OWDNTCNLW
[ea]0:]

RPO4-S-6 HEAD RALNMT
P11
O4-NOV-77 12:49

00ile4
00i166
001170
001172
001174
001176
001200
001202
001204
00i206
001210
001212

000012

000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000

001250

172540

001244

000000
00010M

001252
001284
001256

172542
17544
000100

001262

177546

002

000106
000102

17:31

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

O
O
O
O
O
O
O
O
O
DO
O
O

MAXPOS:
MAXNEG:
MAXOFF:
OUTTOL:
MIDTOL:
INCYL:
MIDCYL:
OUTCYL:
TABLEL:
TABLE2:
SEKCNY:
CHGADR:

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

O
O
0O
O
O
O
O
O
©
O
O
O

PKCS:

.WORD

172840

JWORD

177846

DRVSEL:
ORIVE:
RTIN:
SHERD:
TOPLN:
OFFDIR:
BITIND:
SINCNG:
PLUS
INREG:
TOLER:
MAXCYL:

00
000000
000000
000000
000000
000000

001214
001216
001220
00le22
001224
001226
001230
001232
001234
001236
001240
001242

04-NOV-77
MARCYL1 30(1046)
COMMON TARGS

PKV:

PKB:
PKC:
LKV:

LKS:

.WORD

.WORD
. WORD
-WORD

LO2

PRGE a4

104,106

:ADDRESS OF SELECTED DRIVE
‘DRIVE NUM STORAGE FOR DRIVER ERR CALLS
:ATTENTION REGISTER STORAGE FOR ERROR MESSAGES
:HEAD ACORESS STORED FOR ERROR MESSAGES
:*TYPE THE HEARDER® INDICATOR
‘NEG OFFSET PASS IND
:SIGN CHANGE BIT STORED INDICATOR
:SIGN cunncs BIT STORA
'STORE THE POS SIGN CHANGE CODE
:CONTRINS THE VALUE READ FROM THE REGISTER
‘AL IGNMENT TOLERANCE FOR PRESENT CYL INDER
:CONTRINS a:gennxxnun CYLINDER RDORFSS
R TEST
:OF DRIVE
;conrnxng MAXIMUM POSITIVE OFFSETY
:CONTAINS MAXIMUM MNEGATIVE OFFSET
:CONTAINS NUMBER OF OFFSET POSITIONS
:CONTRINS TOLERRNCE FOR INNER AND OUTER CYLINDERS
:CONTAINS TOLERANCE FOR THE ALIGNMENT CYLINDER
: INNER CYLINDER RDDRESS
:ALIGNMENT CYLINOER ADDRESS
:OUTER CYLINDER RDDRESS
:CONTAINS HERD TRBLE RDDRESS FOR 'INCYL' 3 °*OUTCYL®
'CONTRINS RDDRESS OF OFFSET CODE THBLE
"CONTAINS SEEK COUNT
:C
RH1l BUS HDDRESS FLAG
‘KW11-P VECTOR RDDRESS

172642
172544
100,102

'KW11-P COUNT SET BUFFER
;KWl1-P COUNTER
'KW1l-L VECTOR ADODRESS

'KW11-P CONTROL AND STRTUS REG.
‘KWli-L STATUS REGISTER

IF B

H i:;ililllll'lill!i!!lllilllllliiil!liliiillil!!iiil!iil!iiilli{!l

CNLIST

CgeT

001

;&Ii!lliiiiii!ilill!*i!!iillli!lliii!!i!llliliilli!liiiiiil!!ilif
"ALIST
.ENDR
-LIST

.ENDC

.SBTTL
002

RH11/RPO4/5/6 ADDRESS & VECTOR LOCRTIONS

IF B
; i;;lillllfi&fiiliiiiiiiliil!l»l!lIlli!l!iiillilll!lllillliiilllllli
-NLIST

;f-‘ill»?iiii!il&iiliiililliii!l'*iillliililiiilil!iii!lllllilliiiilo
"ALIS
.ENDR

SEG 0024

CZRICBO,

RPO4/S5-6 HERD ALNMY

CZRICB.P11

O4-NOV-77 12:49

1208
ig?g

001
4

1767

MACYL!

30(1046)

17:31

MO2

PRAGE 25

RH11/RPO4.-5/6 ADDRESS 8 VECTOR LOCATIONS
LLIST
.ENDC

sl gpigey 42aieg

RPRDR:

1214

.ENOC

000

0O4-NOV-?77

SEG 0C2S

)
.WOR

oY R

76700

;RH117RPO4/5/6

ADDR

Ri1/RERY/E/8 RLROR BBRESE

CZRJCBO,

RPO4/S-6 HERD RLNMT

CZRICB. P11

04-NOV-77 12:49

MRCY1l 30(1046)

04-NOV-77

ERROR POINTER TRBLE

17:31

NO2

PRAGE 26

SEG 0026

ERROR POINTER TRBLE

igig

.SBTTL

1217

;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THRT CAN OCCUR.

1220
igSé

!NOTEE

1218
1219

; #THE %NFORFQTION IS OBTAINED BY USIN$ THE INDEX_NUMBER FOUND IN
!LOCQ ION SITEMB. THIS NUMBER INDICA ES WHICH ITEM IN THE
TQBLE IS PERTINENT.
DATA 1S (SERRPC

1223
leeY
1225
1226
1ee?
1228

1229

1230

;¥
i
2
P®
001270

1234
1235
1236

1237

1241
1242
1243
124~

001270
001272
001274
001276

020506

021237
021626
021740

1248
1249
1250
1251
1252

1255

1266
1267
1258

1259

1263
264
1265
1266
1267
lee8

1263

1270

TO
TO
TO
70

THE ERROR MESSAGE
THE DQTG HERDER
THE DAY
THE DQTR FORMAT

;RH11 INTERRUPT OCCURRED (RHARS=0)

EM2

; UNEXPECTED ATTENTION OCCURRED

; ERROR 2

001300
001302
001304
001306

020547
Q021le44
021632
021741

DH2
D12
DFe

;ERROR 3

001310

020605

EM3

; MASSBUS PARITY ERROR (MCPE=1)

001320

020643

EMY

;MRSSBUS PARITY ERROR (PAR=1)

EMS

; ADDRESS PLUG CHRNGE BIT SET

001312
001314
001316

001322
001324
001326

igg?

1262

EMI

DH1
DTl
DF1

ig:g

1247

; sFIINTS
; sPOINTS
; ;POINTS
; ;POINTS

;ERROR 1

iggg

1240

EM
DH
DT
OF

SERRTB

%ggé

1233

IF SITEMB IS O THE ONLY PERTINENT
EACH ITEM IN THE TRBLE CONTRINS
4 POINTERS EXPLRINED AS FOLLOWS:

02132l
021650
021747

DH3
pT3
DF3

0el347
021660
0e17se

DHY
DTY
DF4

001330

001332
00i334
001336

;ERROR S

020700

0c2la44
021632
021741

DHe
DTe
DFe

.
;ERROR 6

001340

0C!242

020734

0ci40e

EME
OHE

;RH11 DIDN'T RESPOND TO RDORESSING

e TR e g BRI Rt
QQVVV\JJE
N LW~ OO0 NN LWN—-OODN

PPOS.S-& KFapL ALNMT

P11

NNN
W~

Cety
OO

N
T Yn

[FUNININININININISINISTNIATN] W
W W
PURV RO PR N b e e e e bt ot et Se e | 200

001344
001346

O4-NOV-77 12:49

MACY11

30(1046)

OM-NOV-77

ERROR POINTER TRBLE

021672
021740

17:3]1

BO3

PRGE 27

SkG 0027

D16
DF1
;ERROR 7

001350
001
001354
0C13Se6

000000
000000
000000
000000

0
0
0
0

: UNUSED

:ERROR :0
001360
001362
001364
001366

020776
0elvel
02ib76
021756

EMIO
DH10
DT10
DF10

;DRIVE OR DRTA ERROR

;ERROR 11}
001370
001372
001274
001376

Q21022
021421
021675
021756

EMI]
DH10
pT10
OF10

;DRIVE UNSAFE ERROR

;ERROR 12
00I400
DC1402
001404
0Ci406

021045
0eis07
021716
021785

gMie
DHl2
prie
DFle

sHERD OUT OF AL IGNMENT

;ERROR 13
001410
001412
DO14i4
001416

021073
021600
021726
021770

EMI3
DH13
DT13
DF13

+HEAD TOO FRR OUT OF ALIGNMENT

;ERROR 14
001420
00l-c2
OCl<4ed
U0idee

021131
0eivel
021676
0217se

EMIY
DH10
DT10
OF10

:SOFTWARE TIMEOUT

;ERROR 1€
00I430
001432
001434
0C1436

0Oz11S2
000000
000000
000000

EMIS

s UNCORRECTARBLE MASSBUS PARITY ERROR

:ERROR 16
DOl440
OCi442

QOgl21c
O0Zlel?

EMlE
DH.t

;DRIVE

IS UNAVAILABLE

CSRICBO,

RPOY S.
6 HERD ALNMTY

CZRICB. P11
1327
1328
1329

1330

iggé

001444
00144

DN-NOV-77 12:49

MRCY11l 30(1046)

1337

.thgr

i3fl?

000

ig:g
3

1344
igwg

B RERRER RN

1348
1349

RN RN R

SRR

1352

.ENDR

"ALIST

RN RN R

13583
iggg

000

LIST
.ENDC

13
1328
13Se

280153
00010S

10}

RNOP=

ONCOAD=
184
SEEK=
10S

;NC

136]
1362

888115
000115

ROFFSET=
EL =
115
115

ERELE
sg
;OFFSET

1365
136g

200131
000143

1362
1364
13€5

13€9
1270

;SELECT DRIVE
;HWRIT g EK DRTR

WCHKHD= 163

008173

RDHD=

1377
1276

0cl

13€z

OPERATION

SELDRvV= 145
WCHKD=
lgl

3§ZE
1360
1€

AR AR

:; SEEK
Uk 8RB

000145
0001S]

2ETREC:
131
sErrn?: 143

WRTDAT= 161

1279

R RE R R AR R RSRI IR ARSI RARLESS

;RETBRN T CENTER LINE
;RERD
IN PRESET
; PRCK RACKNOWLEDGE

000161}

¥4

TC=
1%?
PRESET= 121l
CK=
123

000153

R RN R R R AR R R AR AR

00C117
00g12l
00C1e3

1271

137¢

.IF B
;i;ll!li!ll.li!illiilii5!!l{iilll!lilllllllill!liiiQiilf!il{i(!ii

1350

1381

RPO4/S/6 DRIVER COMMANDS

.IFF
.NLIST
.REPT
LIST

.
1347

RN R

.EN
LIST
.ENDC

.SBTTL
001

SEG 00cB

JIF B

LNLISTY
.REPT
LISt

1 gg
1

PRGE 28

;i;;!Ol!lli{l!lQli!i!!ii!!llll!i!!liiil!ll}l*t!iiili!!*lliiiil&fl

1332
1334
1335
1336

17:31

DTle
OF1

021734
021740
001

0O4-NOV-77_

ERROR POINTER TABLE

CO3

JIF B

173

DR AR ARG RS SR AN SRR AR

{13

.NL1ST
.REPT

2E
REGISTERS
ESETT rsangr
(8 ECI OR HCI)
JWRIT

;WRITE

HECK HERDER & DRTA

DATA

:REAB FEADER 8 DATA
RN AR AR R RS A RIS AR RN ERERRRARRRRERRRRARIAIIR

CZRJICBO,

RPOY-S-6 HERD ALNMT

CZRICB. P11

O4-NOV-77 12:49

MACY1l

30(1046)
.LIST

1385

‘ALIST
000

.SBTTL

1392

001

lgga

1397

1399

"ALIST

1398

i:gg

000
012737

177777

1406

00146C

005037

001242

001464

00000S

001242

00I%6
00iN72
0014749
00IS00

N12706
005026
022706
001374
000
001

001502

012706
000

143¢
143E

1437

143g

MOV

8-1,

CHGADR

START2

;FINISH

CHGRADR

:SET CHANGE RH11

ADDRESS FiRAG

:CLEAR RH11 CHANGE ADDRESS FLAG

-1F DF SCMTAG
: ;CLERR THE COMMON TRGS (SCMTAG) RRER
MOV
#SCMTAG, RE
,,rxnsr LOCATION TO BE CLERRED
CLR
(RE) +
CLERR MEAMORY LOCATION
CHP
#SWR,RE ; ; DONE?
BNE
-6
;;LOOP JACK IF NO
.ENDC
CIF NB
FF
MOV
,SP
: :SETUP THE STACK POINTER

001100

001140

001100

.ENDC
"IIF NDF

MOV

#STACK, SP

;;SETUP T4E STACK POINTER

SSETUP,SSETUP= O

-11F NE SSETUPBLZ.: .eranxze A FEW VECTORS
IF NE SSETUPR] ;. Btfo

MOV
&tscops J8I0TVEC ;;I0T VECTOR FOR SCOPE ROUTINE
8340, aotorvsc+a :(EV
EL
.11IF NDF SCMTAG,
tfs
;s INITIALIZE THE TEST NUMBER

000

00106

001

012737

-ENDC

004412

000030

1430 001514 012737 000340 000032

1433
1434

SRR EEEEEE

MOV

j427?
1431
1430

START:

START!: CLR

001

1424
1425
142¢€

RE NN R RN RE TR R RN R EEEEE RN

START2: RESET
:CLERR THE BUS
.SBTTL
INITIRLIZE THE COMMON TARLS

001

1422
1423

1429

000402

-ENDC

001YS0

001456

INITIALIZARTION ROUTINES

"ENDR
.LIST

1404

1428

PROGRAM START AND

SRR EETNEE RN

1800
1401

L BB AR EBERERSEERE
RS

: iINIIli!'lIIvllllIllI»INIl'lllililll!llll{llli{illilllllill!illili!lli

FF
NLIST
REPT
LIST

1419
1420
142]

SEG 0029

.IF B

1
1395
1396

1409
1410
1411
1412
1413
1414
1418
1416
i:ig

PAGE 29

.ENDR
.LIST
-ENDC

}gg?

1407
1408

DC3

RREREREEREREEBERREERREREEARRERERRRRRREBRERERCRE

1386
1387
iggg

1405

17:31

RPO4-S/6 DRIVER COMMANDS

1383

13684

0O4-NOV-7?7

001522
001830

000
001

012737
012737
000
001

007452
000340

000034
000036

“IF NE SSETUP&B

nov

.ENDC
JIF NE sserupaq

.ENDC
.IF

nov
SSETUP8IO

MOV
MOV

.BI101

4$ERROR,JREMTVEC ;;EMT vecron FOR ERROR ROUTINE

8340, S8EMTVEC+2 ..LEv
..BIT0R

k4 TRAP, 3 TRAPVEC
;:TRAP VECTOR FOR TRAP CAL.S
8340, JbTRAPVEC+2; (EvEL
7
103

#$PWRON ébpunvec : ;POWER_FAILURE VECTOR
8340, 98PWRVEC+2 ;:[EVEL 7

CIRICBO,

RPO4 5.6 HERD fiLNHT

CSRICB. P

04-NOV-77 12:49

MACY11

30(1046)

04-NOV-7?7

000
001

.ENDC
.IF NE SSETUP220

1443

000

.ENDC

1442

1444

1445
i::g

001536
001544

001

012737
012687

1448
1449
1450

001
GO

1452
14E3
1454
1455

00!
000
001

145}

1456

-11IF NDF SCMTRG,
176543
123456

007132
007134

1457

.IF NE

ENDC

MOV

S$SETUPZ4D

MOV
MOV

SENDCT,SEOPCT
;:BITOS

ol?sswa SHINUM
8123956, SLONUM

1465

CLR

SERTTL

SESCAPE

THE “END-OF -PASS”

MOV

1468
1469

1470

MOV

1472
1473
i:gg

MOY
RYT
ggv

1471

Ne:

N2 fionssvzc
#N1,~(SP)

:Rrr SRTRN

RDD

MOV

1479
1480
1481
1482
1463

.ENDM

0cl
000
001

SSSETUP
SSSETUP

.ENDC
-ENDC
-IF NE SSETUP3!

i:gg

200

.égg NE 10008SSWR,

1488

1489

1490
1481
1482
1483

i494

:'TRY TO DOA RTT

:IDUMMY PS

P1AND PC
;:TRY THE RTT
PIRTT IS LEGRL--SET SRTRN T0O A RTT

CLR

STBIT

0D01SS2

013746

000004

022777

177777

001556
001864
0Q1E72

012737
012737
012737

OCle0e

00101z

001600

00l6l2
17757C
177570

000004
001140
001142
177332

TO
R

MOV

MOV
MOV
MOV
CMP

BNE

ILLEGAL--CLERN OFF THE STACK

,,cté
R “T" BIT SWITCH

MOV

' , SLPADR

' SLPERR

;;SIZE FOR
A HARDWARE SWITCH REGISTER
P'EQUAL

cnsévsc+a asassvtc RESTORE TRAP CATCHER

-1IF NE $SWR340000,

1487

THEN LORD LOCRTION "SRTAN*,

WITH
R “RTI" OR
°

RTT

N3:

1484

CLERR THE ERROR COUNT

: 'ALLOW ONE ERROR PER TEST

ROUTINE,

~-(SP)

1477
1478

: ;CLERR THE ERROR FLAG

8340, ahvsxrvsu+a PLLEVEL
$RTI,
SRTRN
..SE
SRTRN 108 RTI

CLR

Ni:

ITERATION COUNTER

,,CLEQR THE ESCAPE ON ERROR ADDRESE

TRAP VECTOR.

(SEOP)

INITIALIZE THE

s INITIALIZE NUMBER OF Enn IONS

sSRTRN 98TBITVEC ;.SET “T“ BIT vscroa TO $RTRN

MOV
MOV

1476

;;PRIME THE RANDOM NUMBER GENERATOR
::BOTH HIGH AND LOW WORDS

SERFLG

;;BITOl

,,xnxranxzs THE “T-BIT*

1467

CLERR THE PASS COUNT

;;SETUP END-or-Pkbcnnn COUNTER

CLRB

STIMES

MOVB
81, SERMAX
ENDC
.ENGC
"IF NE sserupsao
: :BITOY
-IF NE 100008%S
-MACRG
SSSETUP °~1 N2, 7N3

1466

$PASS

.ENDC
-ENDC
.IF NE SSETUP82
-11F NOF SCMTARG

-11F NOF SCMTRG,

00.
000
001
062

SEG 0030

81,SICNT

CLR

1459
1460
1461
1462
1463
1464

. . BITOM

-IF NE 10008$SWR

1458

PAGE 30

.IF NE S$SETUP31 ;;BITOO
.1F NE $SWR34000
.11F NDF SCMTAG,
MOV

CLR

002

EO3

INITIRLIZE THE COMMON TRGS

1439
1440

1491

17:31

"-i",

:; INITIALIZE THE LOOP ADDRESS FOR SCOPE

::SETUP THE ERROR LOOP RDDRESS

IF NOT FOUND OR 17 IS

SETUP FOR
A SOFTWRRE SWITCH REGISTER

JbERRVEC, -(SP)

~;;SAVE ERROR VECTOR

#-1,aSUR

' TRY TO REFERENCE HARDWARE SR

8648, ISERRVES
#0SWR, SWR
800ISP,DISPLAY

668’

P iSET UP ERROR VECTOR
serup FOR
A HARDWARE SWICH REGISTER
;:AND
A HARDWARE DISPLAY REGISTER

: 'BRANCH IF NO TIMEOUT TRAP OCCLRRED

CIRICBO,

RPON S b HERD_ALNMT

CoRICB.PLL

J4-NOV-=T 12:49

1495
1496
1497

D01610
00l6le

000403
0lervle

001e20

1499

001620

012737

000176

i498

1500
iggé

001616

001626
001634

1603
1504

000Q02

012737
012637

000174
000004

MACY11 30(1046)

001140

0CGli42

001

X1 Y

BR
MOV

6£S%:

MOV

668 :

1508

1509
1€10

$ARG]:
.ENDM

1S13

001640

005227

1616

001652

104401

1514
1615

001644
001646

00l16bb

005737

001£72

1524

1635
1636
1837
iggg

001e74
001702
001704
001706
001710
001716
001716

001722
001724
001730
001736

177777

001

001006

.IF NE
.SBYTL

000042

001184C

000176

000001

001134

000
00S227

177777

001010
004737
013737
013737

022U00
001264
001266

&7%:
668
:
.ENDC

:GET

ig:g

1644

001744

012716

1SS0

001774

00OM410

091750
001754
001760
00176M
001770

00S037
005037
004727
104401
004737

001100

177776
00)174
00S&04
01754
004270

#SSWREG, SWR

*NO, USE APT SWITCH REGISTER

YES, USE NON-RPT SWITCH

:FIRST START ?

TYPE,
JSR

$CRLF
PC, STKINT

cn LF
:TURN ON THE TTY KEYBORRD INTERRUPTY

TST

du42

DOU

SSETUPR10Q
csr VALUE FOR SOF TWARE

TYPE

'DDU’'

SETUP MESSAGE

suxrcn REGISTER

ARE WE RUNNING UNDER XXDP-ACT?

67%

..ennucu IF YES

BEQ

678

SENV, 81

. ;ARE WE RUNNING UNDER APT?

cMP
BNE
GTSWR
BR
MOVB

SWR, ¥SWREG
£8%

,,sorrunne SWITCH REG SELECTECS?
::BRANCH IF NO
::GET SOFT-SWR SETTINGS

INC

8-1

BNE
JSR
MOV
MGV

007704
007706

,,TEST USER SIZE unoen APT

‘B8R IF NOT
rvps PROGRAM TITLE

CMPB

.ENDC

:CLEAR PASS COUNT

8APTS1ZE, SENVM

18
JTITLE

.IF DF SMAIL

00}
023727
001005
104406
000403
112737

7$ARG1

8-l

BNE

002

,,chnr TO SOF TWARE S4R

SSSETMRIL

TYPE

18;

:AND THE HARDWARE sun IS NCT = -1
,.BRQNCH IF NO TIMEOU
(iSET UP FOR TRAP nsrupn

S$SSETMAIL

INC

016644

15490
1641

1€45
164¢
1647
1€4g
1E43

$ARGI

MOV

00llbl
00Se0+

1521

1525
1626
1627
1628
1£29
1€30
1831
1832
1833
1§35

BEQ

016546

04401
0047237

1623

SPASS

BNE
TVPE

001686
001662

1822

CLR

001006
104401

1617
1618

1819
1820

.ENDC

SEG 0031

#DISPREG, DISPLAY
(SPY+, 98ERRVEC ;;RESTORE ERROR VECTOR

.1IF DF SMAIL
.MACRO
SSSETMAIL

1807

PAGE 31

#SWREG, SWR

MOV
MOV

gITe

000

FO3

65%
8658, (SP)

RTI

183¢

15811

17:31

INITIALIZE THE COMMON TARGS

1508

1812

O4-NOV-77

688
$1,SAUTOB

INIT
PC, BUSADR
SRPADR, RPADR
SRPVECL RPVEC

D iBRANCH

YES

:sSET AUTO-MODE
:FIRST START

INDICATOR

'BR IF NOT
:CHECK THE RH11 ADDRESS
‘MOVE RM1] ADDRESS TO DRIVER
:VECTOR ADDRRESS

THE DRIVE NUMBER FROM THE OPEMQTOR AND SETUP THE VARIABLE LOCATION

:FOR

RPO4/S

INIT:

MOV

CLR
CLR
JSR
YYPE
JSR

RPOB'S

8STACK, (SP)

PS
TOPLN
PC, STKINT
eNTERD
AC, GETNUM
1%

;SETUP THE STACK ADDRESS

:SET PROCESSOR PRIORITY TO ZERG
:CLERR HEADER INDICATOR
SINITIALIZE THE TTY KEYBOARRD
:ASK FOR DRIVE ASSIGNMENT
csr DRIVE NUMBER
“CR*

ENTERED

0, RPO4 S 6 HERD ALNMT
Pl
D4-NCV-77 12:49

001776

002002
002006
0C2014
002016

oy
G

BEIRRLOR
28 BBIRRRBRI8

A
o] o] SV Sy Siy Ay Ny Uy Py Sy iy Gy iy D GON
O
O
e O
S
el T e
R
ey e
ey e
ey e e

000010

012737
113700

177777
016120

MOV
MOVB

8-1 SAVEFG
DPB’ RO

:SAVE DRIVE REGISTERS
:USE DRIVE NUMBER RS AN INCEx

BGT

:BRANCH IF IT IS

105760

177727

007646

007556

7STB

10401

017514

132760
001442

000003

007566

012737

000536

001222

012737

0006c0

001226

.37

001744

000113

TYPE

MOV
MOV
MOV
MOV

000257

001222

MOV

MS:

#350.,0UTTOL

1C€ETUP 4 8 400 TOLERANCES

MOV

8400,

S INNER ALIGNMENT CYLINDER

MOV

8OF TBLY TARBLE?2 ,orr§er TQSLE RODRESS

INCYL

sy, oUtCYL
8245. MIDCYL
#HERDYS, TABLE1

8411, MAXCYL
s-1200. MAXNEG
£1200. MAXPOS
837 MAXOFF

BR
MOV

3
$175.,0UTTOL

MOV

#800°,

INCYL

$-600.

,MAXNEG

:LAST CYLINDER + 1
:MAXIMUM NEGATIVE OFFSET VALUE
:MuaXIMUM POSITIVE OFFSET VALUE
:NUMBER OF OFFSET POSITIONS

SCONTINUE WITH THE SETUP
' TOLERANCE
AT CYLINDERS B & 830

012737
012737
012737
012737
012737

0000.0
000760
016260
016324
001457

001232
001230
001234
001236
00i2i2

MOV
MOV
MOV
MOV
MOV

88, OUTCYL
#4996, MIDCYL
sHERDS, TRBLE]
sOF 1BLb, TRBLE?2
#815. , MAXCYL

{OUTER RL%GNHENT CYL INDER
;AL
IGNMENT CYL INDER
:HERD ADODRESS TABLE
FSET CODE TRBLE
‘MAXIMUM CYLIM .ER RDDRESS + 1

012737
012737
004537

001130
000061
003736

001214
001220

MOV
MOV
JSR

#600. . MAXPOS
849 AAXOFT
RS DRIVER

:MAXIMUM POSITIVE OFFSET VALUE
"NUMBER OF OFFSET POSITIONS
*RECAL IBRATE

:BRIF WRITE LOCKED

012737

176650

000107
032737

002326

104401

017574

104401

017751

002342

012637

002442

002354
00235
002364
00c366
002372
002400

001422
022737
001002
000137
022737
001004

001003

002332

000e04

002340

104410

122737

004000

001226

001216

MOV

c$:

0l&l1S2

_WMORD
BIT

BNE

TYPE

63 :

000126

002442

000101

002442

003530
O00CIDE

002442

TYPE

ROCHR
MOV

CMPB

7§:

BEG
CMP
BNE
JMP
CHP
BNE

875, . MIDTOL

:OUTER ALIGNMENT CYLINOER
:ALIGNMENT CYLINDER
:HEARD RADDRESS TABLE

001224

001440

MOV

:TOLERANCE AT CYLINDER 245

000113

012737

002314
002316

002346

STRY IT AGRIN

MOV
MOV
MOV

001212
001216
001214
001220

002334

: "DRIVE NOT AVRILABLE'

NIT

001232
001230
001234

000633
175520
002260
000141

002274
002302
062310

:SEE IF DRIVE AVAILABLE

875 .. MIDTOL

012737
012737
012737
012737

0022
002236
002244
0022
0C2260

NODRYV

'SET SEEK ALLOW FLAG

MOV

002154
002162
002170
002176

012737

DRVSTA(RD)

;INITiQLiiE THE
LOCK
SINITIAL
THE DRIVER

001224

002146 012737 016405 001236

002214

s-1, SEEKFG

:BR é‘ DRIVE NUMBER OK
:TYPE QUESTION MARK

s81700!BI1T01,DRVYYP(RD) :RPO4/S 2
ys
:BR_IF NOT

000004
000365
016310

3%:

JMP

2s
$QUES

BITB
BEG

012737
012737
012737

00044
012737

MOV

007644

002124
002132
002140

002324

:TRY AGAIN

PC,ST.CLK
PC RPINIT

012737

INIT

JSR
JSR

0021:0

002222

:DRIVE NUMBER

‘DRIVE NUMBER TO PAR BLOCK
:CHECK DRIVE NUMBER

2%:

002
002206

(SP) , DRVSEL

(SP)4 DPB
DRVSEL , 8.

004114
007722

002766

002116

MOVB
CHP

004737
004737

003004

002102

MOV

BLO
TYPE

002060

002072
002100

O0lbkleo
001164

18:

012737

002062

001164

001160

002034

002054

GO3

30(1046)
04-NOV-77
17:31
PAGE 32
GET VALUE FOR SOFTWARE SWITCH REGISTER

103403
104401

000750

062042
002050

a oo o iAo v
nnyn
Q00000
SNNNNNNNN INTE
TN Lwn—o0
DO N
L WU O

112637
023727

00e022

002024
002030

011637

MACY1l

P TOLERANCE

AT ALIGNMENT CYLINDER

R ALIGNMENT CYL INDER

:MAXIMUM NEGR) [VE OFFSET VA_UE

RELAL
'DRIVER CALL
8BIT11,REG+RPDSL’
:SEE IF WRITE LOCK SET
WLOCK

'REPORT NOT WRITE LOCKED

INIT

:TRY IT RGAIN

, MODE
(SP)+.

:SEE
108

s'v, 108

q3
$'R, 108
7%
DOUALN
8°E, 108
8%

IF ALIGN,

:GET THE ENTRY

:SAVE

VERIFY,

OR EXERCISE

THE ENTRY

‘WAS R 'V' ENTERED 7

:BRIF IT WAS
"WAS AN 'A’ ENTERED °
'BR_IF NOT
"HERDS TO BE ALIGNED WITH DDL
‘SEE IF EXERCI
:BR IF "E' NOT ENTERED

CIRICBO,

RPON S B HERD ALNMT

CIRJICB.PIY

) o
N ey e
Y O
Ry O
e
R
e
Y
LR

[oalaala i ualoaloals alogte glagle g¥ o g T e o T o}
(WA N QTG TG
I
T IT, I 4
M+ O
NN LS W
00w

le4e

[asten

o0 o
(o]
n
£

00242
0024ee

000137
104401

003640
OOEHHE

104401
032777

02001
000004

O4-NOV-?7
17:31
PRGE 33
VALUE FOR SOFTWRRE SWITCH REGISTER

3001046)

GET

8s:

383134 BBIASS

176504

BB Bl

9g:

108:

IMP

RANDOM

TYPE

s?vss

TYPE

VERIFY

TYPE

JMP

BI7
BEG
JMP

. WORD

SEG 0032

co 10 EXERCISE ROUT INE

, 108

,co

:TYPE

kSu2, ISWR
CYLDER
8~euo

anbxo
cnnpncrep

WAY ancx TO DRIVE ENTRY

'VERIFY®

:SWITCH @ SET 2
:BR IF NOT SET - CHECK ALL HERDS
8ES 8NLY THE Ecxrésg HERD
PERATOR ENTRY

JIF B

ool

; i;;lllllllil*l!lillI!ll§liiliiliiiilllfllillll!iiililiiliiiil!!Qli

-NLIST
fii;g;il!!iillli!itl!ili!liliifillliiiiliilii‘liIlf!iil!iilfii!lii{

.ENDR

LIST
ENDC

00cC

.SBTTL

SETUP

TO CHECK ONLY

THE SPECIFIED HERD

JIF

(s]s)}

; ;llE‘lii}lllll*illli'lll'lllliiillliil!l*fillilliii{lflli*li}iililf{’i

8013
NLIST

ReeT

.hl;;;llIviiiili!!{ll'liiilllil!l{li!IIliill!i!l!l!fiif(i{iili‘lf{lf
L

.ENDR

-LIST
.ENDC

104401

0203SS

000427
2637
3?7
3?7

016132
00l22¢c
001232

002450
002454
002456
002462
002470

£
~
W

002444

ONEWD:

TYPE

ENTCYL

;:ASK FOR CYLINDER ARDDRESS

JSR
BR

AC, GETNUM
18’

:GET THE CYLINDER RDDRESS
:'CR* ENTERED

0ol21c
016132

MOV
ggz

ouTTOo(, TOLER
ogrch"DPB+CYL

szv INITIAL ALIGNMENT TOLERANCE
a Ierou;gR CYL INDER

C01ieeb

0le132

00l224
001230

001210
016132

CHP
BEG
MGY
CMP
BEQ

INCYL .OPB+CYL
1
MIDTOL, TOLER
MIOCYL .DPB+CYL
33

;SEE IF xnusn CYL INDER
:BR IF IT IS
: CHANGE TOLZRANCE
:SEE IF ALIGNMENT CYLINDER
:BR IF YES

BR
CMP
BEG
TYPE
BR
TYPE
MCY

ONEHD
MAXCYL, s411.
2%
CYLN496
k] ;
CrLays
MIDCYL.DPB+CrL

STRY 1T AGRIN
IRPO4/S ?
:BR IF YES

004270

04401

020437

002534

(023727

O00l212

DO2EN4

10440!

0e0lse

002“2
OC2cce

104401
012727

020lle
0OCle3l

=}
N
£
£

1645
le46

002402

s bt Poe pe B2

ot Pt Pt Pt e Pt et Pt Bt Pt Dt Pt Pt Pt Pt st Pt Bt P Pt e Pt Pt Dt Pt Pt Pt Bt P PiPss [

[oaload
cat e pdoooomooroococoocroem
oooooocooocooro ooy o
££LL £ WWIW
W I
v PUNUNY
W
= 4 ps ps s Pt s Pt P
Lwhye- OO0 U L W OO NN LW+ (IO
U
L W+

OB e

1607

O4-NOV-77 12:49

MACY11

MOV

TYPE

000632

Clel32

1S:

23 :
3§

<sp)+ DPB+CYL

BADC YL

:MOVE

TO PARAMETER BLOCK

REPORT xnanxo CYLINDER

:CYLINDER 496 DEFAULT MESSRGE
*CONTINUE
:CYLINDER 245 DEFAULT MESSAGE
:CYLINDER ADDRESS

QYR EOROS
BB 0L D00 DLVDDOBDDODDE
I INININNINCCOTORT O
DD

s Bt Bt $t Be s e B Pt Bt Pt s s Bt et Bt Pt Bt e e
bo Bt Bt B Bt Bt Bt Bt Bt Bt ot Bt D Bt 0 Bt Pt Bt B (ot Bt ot Bt Pt et Pt Pt ot Bt Pt s Bt B
b
BB

RPO4 S & HERD ALNMT

NANNNNNNNNANNNNNNNNNN
OO
TN
S
S
[alalalalalalalala
N NN
00
NN L Wh—-0OWw
LW
OODOICN LWMNH-=-ODO NN LWNH—ODONNEW

rity
TT
et

002Se4

D4-NOV-77 12:49
104401

002570

004737

002602

022737

000022

002610
002612

002616
002620
002624
002630

002634
002636

002642

000411
012637

002007
104401

000762

001172

020054
001172
003736

004737

003032

00010S

000137

4$:

TYPE

JSR
BR
MOV

CMP

001172

020410

104401
005037
004537

Q4-NOV-77

17:3]

PAGE 34

SETUP TO CHECK ONLY THE SPECIFIED HERD

020336

004270

062574
002576

MACY1l 30(1046)

c§:
6%:

3
(SP)+, SHERD

:"CR’ ENTERED
‘SAVE THE HEAD ADDRESS

*ADDRESS VALID ?

:TRY AGAIN

TYPE
CLR
JSR

HDZERO
HERD
RS, DRIVER

_WORD

:GET THE HEAD ADDRESS

818.,8HERD

6%
BADTRK

001

+ASK FOR THE HERD ADDRESS

BGE
TYPE

JSR

001744

ENTHD

AC, GE TNUM

:BR IF YES
:INVALID HERD ADDRESS MESSAGE

:MERD DEFAULT MESSAGE
:CLERR HEAD STORAGE
:SEEK TO THE SPECIFIED CvLINDER

SEEK

:SEEK CODE

INtT

'GET THE NEXT DRIVE/HEAD

PC, CHECK

.
0034
SEQ

:CHECK THE HERD

.F B

: i;;!l!lllliiilliiilll}iiiiifiiiillliiii{!l'lilllliiiilll!!ililii!l
NLIST

L5eT

;hlll?illiliiiiiliiil!lllliliiiltillil}iillll!liliif!lf!iffi!ii}ii
‘ALIS

.ENDR
.LIST

0oC

.ENDC

_SBTTL
0c1

MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGHMENT CYLNDERS

JIF B

: i:;iillll{lflv!illiliiiliiillllliiillllliliililllii!iiiilllillfli
-NL]ST
;h!ll;ll’lliiiiIvilllllillllillii{lliili!l!!!Iiiliiilili!i!llfiif!
"NLIS
.ENDR
.. IST

000

"ENDC

002646
002654

013737
013737

001230
001224

002670
002674

012704
004737

016210
003014

00010S
013704
004737

001234
003014

002662
666
2700
002706
002714

002720
002722
002726

002732
002740
0C2744

004537
000105
013737
013737
004537
013737
004527
00010

C£03736
001226
001222
003736
001232
00373€

016132
001210

016132
G012i0

0lelaz

CYLDER: MOV
MOV

JSR
_WORD

MOV
JSR

MOV
MOV
JSR

_WORD
MOV
JSR

MO\
JSR
"WORD

MIDCYL,DPB+CYL
MIDTOL . TOLER

;START AT THE ALIGNMENT CYLINDER
:ALIGNMENT CHECK TOLERANCE

RS, DRIVER
SEEK

:SEEK 70 THE ALIGNMENT CYLINER
:DRIVER SEEK CODE

INCYL ,0PB+CYL
ouTTO(, TOLER
RS, DRIVER

;CHANGE TO INNER' CYL INDER
: CHANGE TOLERANCE VALUE
:SEEK TO INNER CYLINDER

SHEAD1,RY
PC,1$

'ADDRESS OF AL IGNMENT HEAD SELECTION TABLE
:CHECK RLIGNMENT, ALL HEADS, AT THE ALIGNMENT CYLINDER

SEEK
TRBLE!,RY
PC, 1S

:DRIVER SEEK CODE
:CHANGE
HEAD TABLE RDDRESS
:CHECK RLIGNMENT AT INNER CYLINDER

RS.0 RIVER

:'SEEK

outCvL,oPB+CYL
SEE¥

:CHANGE CYLINDER TQ OUTER CYLIMDER
TO OUTER CYL INDER
:DRIVER SEEK CODE

RPOM.5.6 HEAD ALNMT

A1l

O4-NOV-77 [2:49

002746

004737

003014

002760
002766
062772
002774
003000

013737
004537
060105
012709
004737

001224
003736

003010
003014
003020
003022
003026
003030

0137
012437
100403
004737
000772
006207

3004

001744
001172

04-NOV-77

17:31

JO3

PAGE 3S

RIN ROUTINE - CHECK ALL HERDS AT ALL ALIGHMENT CYLNDERS
JSR

MOV

001210

MOV
JSR
_WORD
MOV
JSR

104401 020472

IYPE

18:

003032
2s:

IMP
MOV
BMI
JSR
BR
RTS

SEG 0035

;CHECK RLIGNMENT AT OUTER CYLINDER

nxbch DPB+CYL :GO BACK TO THE ALIGNMENT CYLINDER

MIDTOL| TOLER
RS, DRIVER
SEEK
DHERDI RY
18

cunncs ALIGNMENT TOLERANCE
'S
onxven SEEK CODE
:ADDRESS OF 0O - 18 HEAD ADDRESS TABLE
:RECHECK ALIGNMENT AT ALIGNMENT CYLINDER

INIT
(R4)+, SHERD
2$
PC, CHECK
1$
PC

'GET NEXT DRIVE OR HEAD
:MOVE HERD noonsss FROM TABLE
'BR IF END OF TRBLE
:CHECK THE AL IGNMENT
SGET NEXT HEAD VALUE
: RETURN

Ehonsc

:TYPE *DONE’

IF B

H iF;!l‘lii!il’llii{illlill{ililiil‘liliilliillil!!{*iilf!lili!il!ll

U U

CNLIST
filifillllliliill!liillll!illl EEZEXRRRRRERREREEE R

I TCT

000

€% R E %% %% EEEER

ENDR
.LIST
-ENDC

.SBTTL

g;mc\mmmmmmmm

30(1045)

016210
003014

001

T i
S
N
Y e ey e A S
Y
el et ey
el e e e
el

MACY11

002752 013737 001230 016132

e Bt Bt Bt Bt Pt

s e Pt Pt s Bt

e Pos Pt ot Pt

NNNNNNNNNNNNNNYN NN NNNNNYN SN NN NN NN NI NN N IN N 3TN
TIN N NNINNINNIN
I
NNNNNCooooTo
QI PPPP
P PANIA W W W W WL W W
NN
NN
N —
LW—OO0ONCNLW
—OWwD NI LW = W0 NEU L W= OO~
LW
OO NN LW
00

Caty
OO

(aTe)

riry
00

001

ROUTINE

TO FIND THE TRACK CENTER

.IF B

; i;;iillililiiiill!ii!liliilllilili!l!!ili!!il!li&i!!illiilili!fi

NLIST

N5t

,hliiiil!lilfll!li!i!*llill!iilll!il'l!liil!ll!lii!!!ll!ililliliii*l

LIST
ENOR
.LIST
-ENDC

000

003032

005037

001176

003042

013702

001214

000316
004037

015012

003036

003046
003052
003056

003062
003064

003070
003072
003074
003100

002104

00210e
0031i2

005037

013703
013701
013746

001200

CHECK:

CLR

MOV

001220
001236
001172

MOV
MOV
MOV

SWAB
JSR

000006
001744
112137
16z702

0lel2l
000031

18:

114137
0€270z

O0lel2l
000031

2%:

000404

CLR

RPDA
INIT
MOVB
SuB

B8R

MOVB
ADC

OFFDIR

;CLERR THE OFFSET olnscrxon

MAXPOS, R2

sMAXIMUM POSITIVE OFFSET VALUE

(SP)
RO, WRT.RP

'SWITCH FOR RPDR LO D
:LOAD RPDR WITH HERD ADDRESS

BITIND

MAXOFF| R3
TRBLE2,R1
sueao 2(5P)

INDICATOR

:CLERR THE SIGN BIT INDICATOR

:MAXIMUM NUMBER OF OFFSETS
:OFFSET CODE TQBLE noonsss
:HERD VALUE TO STA

'REGISTER RDDRESS
:UNCORRECTABLE PARITY ERROR RETURN

(R1)+,0PB+CODE
825, ,R2

;OFFSET VALUE TO PRRQHETER BLOCK
'DECREMENT OFFSET VALUE

-(R1),DPB+CODE
825, ,R2

:;REVERSE OFFSET VALUE TO PAR BLOCK
*INCREMENT OFFSET VALUE

'BYPRSS REVERSE DIRECTION SETUP

CoRJCBO,

RPO4-5.-& HERD ALNMT

CZRICB. P11
1776

003116

1777
1778
1779
1782
1783

1776

1780
1781

004537

003736

003124
003130
003132

005737
001011
005137

001200

003152
003154

000407
332737

003122

00313
003144

1784
1785
1786
1787
1788

003162
003170
003172
003174
003176

1790
1791
1792

003206
003210
003212

1789

1792

1794
1795

1796
i;gg

1799
189?
_

D4-NOV-77 12:49
000115

042737
013737

3737
0010494
005303
001036
032777

063204

001002

003216

001005

003220
003224

003232
003232

003236

003240

001200

D0Dlei72
001202

077727

016172

0Olel?72
000001

104401
012737

017657
177?77

013746

001172

6S:

1806
1807
1808
1809

003264
0Q
003270
003272

001506
000000
000504
005737

1811

003300

1813
i814
1815
1816
1817
1818
1819
1820
1821
1822

003306
003310
003314
3
003324
003330
003334
003340
003344
003346

001017
010237
013702
013703
013701
063701
005137
005037
000660
063702

1824
1825
1826
1827
1828

003354
DO3360
002362
003364
003366

010237
005702
100001
00S402
032777

001204

1820

00327¢

02270z

001210

1812

1823

003276

001676

003302

005737

003352

003374

000702

006202

001161

00I00S

BR
BIC

X3
81CBIT1S, REG+RPOF

CHP
BNE
DEC
BNE
BIT

BNE

TYPDS

001176

8%:

:BR

SET

'REPORT OUT OF LIMIT CONDITION
'SEE IF LOOP ON ERROR
TYPE THE anoxuc LINE ?

HE+. ER
k-1, T0PLN

TYPE THE ADER
'SET THE avpnss SWITCH

SHEAD, - (SP)

; ;SAVE SHERD FOR

DPB+CYL,-(SP)

::SAVE DPB+CYL

TOLRG

GO TYPEL_DECIMAL ASCII WITH SIGN
Asno OUT OF LIMIT

138
OFFDIR
18

:BR IF NOT
'HEAD JUST TYPED OUT OF TOLERANCE
:CHECK FOR LOOP
:SEE WHICH DIRECTION
:BRANCH IF FORWARD

CRLF

hsuxs JSWR

TYPEOUT

: 5 GO TYPEL-DECIMAL ASCII WITH SIGN
FOR TYPEOUT

CR-LF

HQLT IF ERROR ?

B8R

9% :

BNE
MOV
MOV
MOV
MOV
RDD
COM
CLR
BR
ADD

9¢
R2, PLUS
MAXNEG, R2
MAXOFF| R3
MAXOFF| R1
TneLEe,nl
OFFDIR
BITIND
2$
PLUS, R2

:BRANCH IF YES
snvg THENEIGN CHANGE VRLUE
MUM
cnrrvs OFFSET VALUE
NUHBER OF OFFSE
NUMBER OF OFFSET s
aec NNING OF REVERSE DIRECTION anues
:SET REVERSE DIRECTION INDICATO
'RESET SIGN BIT INDICATOR
:START REVERSE OFFSETS
noo THE TWO SIGN CHANGE VALUES

10$:

MOV
1ST
BPL
NEG
BIT

Re,PLUS
Re
108
R2
#SW0, ISKR

snve THE RESUL
:SEE IF VALUE NEGRTIVE
"BRANCH IF POSITIVE
'RECOMPLEMENT THE VALUE
,sss IF SWRO SET

CMP

TOLER,R2

001204
001216
001220
001220
001236
001176
001200

175544

BEG
HALT
BR
TS7
BEQ

THE SIGN VALJE

13
138
1PN

[

TYPDS
TYPE

KEEP ONLY

REG+RPOF
| SINCNG ; SIGN CHANGED ?
gs
annncu IF IT DID
R3
'DECREMENT THE OFFSET ATTEMPT COUNTER
78
:BRANCH IF OFFSETS NOT COMPLETED
#5W0, ISWR
;cnccx SWRO

ERROR
BR
157

:OFFSET OP CODE

84CBIT15,REG+RPOF~
:LEAVE THE SIGN BIT
REG+RPOF
. SINCNG ;STORE THE SIGN CHANGE BIT

BNE

TYPE

7$:

000001

SINITIAL SIGN VALUE STORED 2
iBR_IF STORED
:SET THE SIGN BIT xnoxchoa

BIT

001176

SEG 0026

8ITIND
4$
BITIND

OFFSET

017633

7sT
BNE
COM

IF NE MOV

001204

PRGE

;OFFSET THE DRIVE

17§:
IF NE MOV

1805 005256 032777 100000 175654

iEl0

KO3

RS, DRIVER

.WORD

TYPE
MOV

104405
104401
i04401

4S:

175734

001174

17:31

JSR

BIC
MOV

016132

003244
003246

003252

001202

O4-NOV-77

UTINE TO FIND THE TRACK CENTER

1802
1803
1804

5§ :

001174

104405

3s:

077777
016172

104013
000534
00S737

013746

MACY11

75T

ASR

BNE

OFFDIR

118

;REVERSE DIRECTION

:FINISHED WITH REVERSE

'DIVIDE’

'BRANCH

BY 2

{SEE IF TRACK CENTERLINE WITHIN

TOLERAMCE

ety

£L£L :uuuguwu%w
OO0
WM~
OOV NN LW
mm

MOO@OOOOMOOMOEMOE

rity

RPO4-S-6 HERD ALNMT

003402

003404
003406
063410
003412
003416
003420
883:33

04-NOV-77 12:49
002043

104012
000435
010246
005737 001174
00100S
104401 017657
012737 177?77 001174

002432 012746 001172
003436

003440

10440S

013746

nzw

A mg

PAR

n
N

@
oo
(L

003460
003464
003466
003474
003476
003500
003502
003510
003512
003520
003522
003S2¢

023726
002012
032777
001406
000000
000404
032777
001004
032777
001402
000137
000207
001

O4-NOV~-?77_

MACY1] 30(10%6)

016132

175444

001000
000002
003032

175430
175420

PRAGE 37

11} NG MOV

$SHEAD, - (SP)

:REPORT THE ERR
:CHECK FOR LOOP on ERROR
'SAVE TRACK CENTER VALUE
:TYPE HEADER ?
:BR IF NOT
:TYPE THE HEADER
:CLEAR THE INDICATOR

LIF NE n9v

DOPB+CYL,-(SP)

::SAVE DP3+CYL FOR TYPEOUT

125

ERROR
B8R
MOV
15T
BNE
TYPE
MOV
<)

TYPDS
<

TYPDS
IF N ngv
4
.
TYPDS
TYPE,

100000

LO3

12
138
R2,-(SP)
TOPLN
es
HERDER
k-1, TOPLN

118:

001210

17:31

13%:
14S:
15$:
168:

CMP
BGE
BIT
BEQ
HALT
BR
BIT
BNE
BIT
BEQ
JNP
RTS

PLUS, - (SP)
SCRLF
TOLER (SP)+
14§
osuxs JSWR
qs
148

8SW9, ISWR
158
#Sid1, ASWR
168
CHECK
PC

: sSAVE SHEAD FOR TYPEOUT

;GO TYPEL-DECIMAL ASCII WITH SIGN
0 TYPEL-DECIMAL ASCII WITH SIGN
,,snvs PLUS FOR TYPEOUT

.GO TYPEL-DECIMAL ASCII WITH SIGN

C LF
'SEE_IF HEAD IN TOLERANCE
BR xr IN TOLERQNCE
HALT IF ERR
an IF NOT
HERO JUST TYPED OUT OF TOLERANCE
CHECK FOR SWITCH 1
ses IF SWITCH 9 SET
:BR If SET
suxvcn { SET
NOT SET
oo THE HERD AGRIN
"RETUR

IF B

t:_:Qil!iiililiiiillilfiiiliiliill!lliiilliliilillifiiiiililviiiiii
CNLIST

Ci6T

hl;g:!!l!il{llif!iIltiiiitlll'l'llllliillill!lilllilli!liiiilillit
L

0co

"ENDR
SLIST
.ENDC

.SBTTL

(o eleals
[oaadvaled)
[N UPFSAL
Ul =)

BBRY

00!

SEG 0037

ROUTINE TO FIND THE TRACK CENTER
;BRANCH IF anue ox
148
BGE

003444 10440S
003446 013746 001204
003452 10440S
0034S4 104401 00116]

e Bt
Pt Pt Pt Pt Pt Pt Pt
s Dt o Bt Pt Pt Pt Pt Dt B0 Pt Dt Pt Pt Pt Pract Dt Pt Pnt Pt Pt P
s Do 5t Pt et Pt

OO0

ROUTINE TO SELECT HERD FOR DDU CONTROLLED HEAD ALIGNMENT

8
ll!iiiiillilliiliiiilllif!ill!lliililllliil{i!iilliii
!ilil!liil

.LIsT

hlIli!ii{iiifiiiiilliiltlll 'SIIIXIIZETTITRRTITLILITLILIIZRT SIS S22 L 2 22 4
LISY

CZIRJCBO,

RPO4-S-6 HERD RLNMT
CZRICB.P11
O4-NOV-77 12:49

1887
1888
1889

000

RRZER= &R Taa0n

Wy
Y
Y

golele

DDUALN:

020270
0le132

101403
104401
0075

1163
000316
004037
800
]

MO3

(0O4-NOV-77
17:31
P4GE 38
TO SELECT HERD FOR DDU CONTROLLED HEAD AL IGNMENT

18:
2s:

TYPE

ALIGN

b4I1., MAXCYL

SEG 0028

iBR_IF ES
'Posxrxoneo AT 496’

TYPE
MOV
JSR

ALN2YS
MIDCYL, DPB+CYL
Ré DRIVER

83
gv
8

CMP

0011860

4§:

BLOS
TYPE

001172

c3:

MOV
SWAB

JSR

(5P), SHERD
(SP)

RO, WRT.RP

015012

i$820 5§,ce?~un
S £¥H

INIT

000755
00!

TRPOY/E

1s
égLnues

gga

000022

-TYPE LALIGN’

£Q
E;PE

3% ’

864278

DD D

O
Y

(SP), 818.
$QUES

MESSAGE

?
cngn
CYLINDER

§§9 ng“fineagggg
NTRY CAN'T

ATER THAN

R IF LESS OSEESRSL

YPE
A

TRY cnx

iHEAD NUMBER FOR TYPEOUT
PUT HEAD NUMBER INTO UPPER BYTE

el s
CTABLE

PARITY ERROR RETURN

unxr FOR NEXT HERD ENTR

.IF B

;i:;iill!{l!ltiiaiilil{lili!lilil!illll!llll!iillillill!l!liii!i!

CNLIST
,h:;lil!llllll!liiiilllil{lii!il!lllllil!ll!llli!l!lll!i!lilil!li

xrnununnuayunnunnun)

Pt P ot Bt Pt Dt Pt Brne Pt Bt Bt Gt et Pt et Pt Pt e L g

P VA ROV N VL IV TEL IV IV IV BV IV IV ) DO DAL
WD W0 O W00 O WD O DD D DL D DD
£ £Wit
P20t bt pet Be s pa = = = OO D)
nN—-OWO NN LW
DO
NN L W00
NN LW
000 N

30(1046)
ROUTINE

.ENDC

020027
000633

183°

Bt Bt Bt 5t Bt Bt Dt Bt Bom Pt Pt it e Bem

MARCY1l

.ENDR
LIST
ENDC

o/als

.SBTTL
001

ROUTINE

TO PERFORM 5,000 RANDOM SEEKS

IF B

'1F:illliliiIi!ill!iiliilll*iiil!lili!!lll&lililllllllli!li!iil!i

SNLIST

CTET

,fit;§¥§§llillillllii!lliil{lli}lllil!liillillii!lliii!lililllllii

-ENDR

-LIST
-ENDC

000

co3e40
DO3644

003662

104401
012737
004737
01374¢
00Ego4e

20040
11610
007034
007132

001240

RANDOM:

18:

TYPE

MOV
JSR
MOV
CLR

bsooo SEKCNT

PC, SRAND
sHinun Z(SP)
-(§

: TYPE

'EXERCISE’

;NUMBER OF SEEKS

'CYCLE THE RANDOM NUMBER GENERATOR
'PUT UPPER RANDOM NUMBER ON THE STACK
{UPPER DIVIDEND
‘

¢ ZR JCBO,

QLNHTq
RPO4/S/6 HERD
04-NOV-7 7 le:4

1343
1944
1945
1346
1947

013746
004737

C ZR JCB. A1l

NO3

°CRAGE 39
17:31
MARCY11l 30(1046)
04-NOV-77
ROUTINE TC PERFORM S, 000 RRNDOH SEEKS
MAXCYL , - (SP)

goiale
007136
016132

'GET THE REHRINOER (RANDOM CYL INDER _RDORESC)
;SEE_IF SAME RANDGM CYLINDER AS LAST

#4,5P

;ADJUST THE STACK POINTER

18’

(SP)+ DPB+CYL

2s:

0lel3e

003736

RS DRIVER

001240

SEKCNT
)
INIT

SEEK

001744

IF 8
R

"RLIST

;BR IF DIFFERENT CYLINOER

: TRY AGAIN
{PUT CYL ADDR_IN THE DPB

:CORRECT THE STACK POINTER
:D0 THE SEEK
:SEEK _CODE
:DECREMENT THE SEEK COUNT
:BR_IF NOT DONE
;RETURN TO COMMAND ROUTINE
IS

IIII2I IS

.LIST

; PUT DIVISOR ON STACK

PC,SDIV
(SP), DPB+CYL

000004

SEG 0039

S22

L L)

S22 2 S 2 R &)
IZISIIISE
SRS
XTI IR ISLIIIIISIIZIIILIL

000

0ol

.LIST

0 6 T 620t 6 6 36 0606 06 06 36 00 06 St 36 36 06 3 3 30 3 3 3 3 3 3 3 3 3 O 0 3 3 3 30 30 3% 30 3 36 30 9 36 36 3 o 3 £

S SRS

hLIST

oo4014

001024
032737
001022
032737

0lel3e

060006

0lel36

010000

0lel3e

00&e000

Olelse
.
Ll

OPB
BR
TST

MU ©

000200

MOV
JSR

CHODDD @©
- Zre—4X m

00
032737
004002
004004
004012

DRIVER:
19:

012537

003736

OoOoOD
—Zr4
2

L ot

N
Ty
Y
Y
S
[

Vo JVe IV IV IVo IV o Vo RV IV IV o TN o N2 DN 4 TV o}
DO
D
NP

000

(RS )+, DPB+COMND

RG, RPOY

18
DPB+STATUS
2s

; COMMAND CODE

:DRIVER ENTRY
:DATA_PARAMETER BLOCK ACORESS
{REQUEST NOT ACCEPTED
:SEE_IF ORDER COMPLETE
:BR IF NOT COMPLETE
:BRANCH IF ERROR

'RETURN

#8177 ,DPB+STATUS'

-DID THE ORDER TERMINATE °

BRANCH IF IT DID

BR IF IT IS

BIT01 DPB+ST9TUS ;ORIVE OFFLINE OR
$BITIY! BIT13'BIT02'
; NON E
xsTENT
uBITlZ, DPB+STRTU§ ; ORIVE
UNSRFE ?
IF UNSAFE

-BR’
4|
#BI1T11'8IT10,DPB4STATUS

;UNCORRECTABLE PARITY ERROR ?

CIRJCBO,

RPOMY-S5/6 HERD ALNMT

CZRIZB.PI1L
1999

O4-NOV-?77 12:49

004022

5800 88:853
1

2002

2003
2004

200S

2006

2007

004034

194010

001000

162705

000006

000743

004102
004106
004110

162705
(00725
000137

2023

00120C

17sn4C

TIMEOUT ON THIS DRIVE 2

EPORT DRIVE OR CATA ERROR

ESOP

108

CHECK FOR LOOP

109

qs:
108

BR
ERROR
BIT

105

CHECK FOR LOOP
: SOF TWARE TIHEOUT
85“09 JSWR; LOOP ON ERROR
7

118:

SuB
BR
JMP

#6,RS
33
INIT

000006
001744

Col

gggé

'SHOQ,DSNR

gn 1F ved

001403

IF YES

OBITOQ'BI108 OPB‘STRTUS
R T

8s:

20le
2C17
ggig

Q04100

SEQ O0M40

10401S

000401
104014
(032777

PRGE 40

ERROR

004066
004070
Q004072

ROY

SuB

20le
2013
2014

17:31

BEQ

10401}

000403

201S

BI1T

ERROR

004062
004064

ERROR

6S:

2010
2011

cs:

175074

BNE

o4016

004056

004060

BNE

BIY

1016

032777

Q4-NCV-77

COMMNN ENTRY TO THE RPO4/S/6 DRIVER

737 001400 016136

2008

2009

30(1C46) _

001820

001746

O0u

MACYL11

ERROR

BEQ

#6,RS
lé

ORSECT RS FOR LOOP

REPORT DRIVE UNAVRILABLE

; REPORT SSRSISTENT UNSAFE

;UNCORRECTABLE PARITY ERROR

119

;CHEC
K F

;B8R

nbOO

IF NOT

CORRECT RS FOR LOOP
RE URN
RETURN 10 USER

IF B

;i;iicliiiiiiliil}iilliii}&iii};:iiiliiillifliiilfiilli{i;i;f:;t.

2023
2024

.NLISY
.REFT

20esS

LIST

202?

‘LISt

2026

BRERERERFRRERREERNE
2 R R R R AR R R R R R ERRRREERRRE R R REREER RS R RN RS

c0e8
2029
2030

.ENDR
.LISY
.ENDC

00C

gggé

2033

2034
5832

001

SBTY L SUBRCUTINES

.IF B
;i;:lll’!llllllllliiiiiliifiil!lllilil!liiliilil!iiiiiilliiiii’(li

203”7

CNLIST

2038
2039
2040

.REPT
LIST
ERARERREERFRARERERRR
R ERR R R
RN R
AR RN R AR E R AR SRR LR E

2041

‘ALIST

2042
2043

58::

-ENDR
LLIST

slals]

.ENDC

2046

; THIS ROUTINE WILL DETERMINE

IF THERE

IS A CLOCK ON THE SYSTEM

Sg:g

ggELIF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK.

Sggg

;

2051

euSe

2053

004 114

01014

iz2

01l14¢

(0O4iie

012701

O0COGOE

ST.CLK:

gETURN

PC,d857.CLK

MOV

Rl,-(SP)

MOV

(R1),-(SP}

MOV

sEARVEC+2, R

:SAVE Rl

'SAVE AND SETUP TIMEOUT VECTGR

CZRJCBO,

RPOM.S-6 HERD ALNMT

CZRICB. P11
2055

D4-NOV-77 [2:49

004124

oo~1§§

§8§e 8831

005011l

MACY11

CLR

qgv

004200

737
o911
022626
012711

c\Lo

2066
2067

004166
004170

022626
012621

58;9

004176

000207

sfxB

T ¥

18:

004166

gge3
Qguisd 3772 éés£g§
Ssee BoaiER 885ddT
2072

0ou

“c3C

2s:
38:

012621
012601

12272

004222

012777

000115

gg;g

Ooo4230

000207

2079

2081

004246
004254

000277

20849

0042Se

(01274¢

4588 81 777
0538 172835
0042I4 012777 000001 175030

2075
2076

7?77

208S
Sggg

004262
004266

01277/

004737
000002

009

175016

000100

175006

000020

O0141.0

2088

ST.PCLK:

175020

2080 884538 8 S 38»%38 17?813
gggg

ST.LCLK:

sggg

2090
2091

004270

0l1646

2095
20396
2097
2098

004272
004274
004276
004302

104411
012600
010037
105710

2100
2101
2105

004306
004310
004312

005046
112001
ooxqsx

2105
2106
2107
c108
2103
€110

00432
004326
004330
004332
004334
004238

122701
002420
00631E
Q01l64€
00e2!E
OCDEZLE

2103
2104

5& £s
\

PC,ST.PCLK
3¢’
(SP)¢ (SP)+
(R1)

MOV
MOV

(SP)+ (R1)+
(SP)+.R1

MOV

’

(SP)+, (SP)+
(SP)+. (R1)+

MOV
MOV

8SRVCLK

RTS

MOV

, 9PKV

go l.'tPt’(
sl a#xa
8115, 9PKCS

?8 THE&!

N TIMEQUT

KWll-

svnar THE Ku11-p
!GO0 TO
E
:CLEAN UP THE STACK
i IF TIMEOUT GO TO 2§

I?q;?gruc
xu?i'CLh
FBXIT
,

:CLEAN UP THE STACK
'RESTORE THE TIMEOUT VECTOR

sRESTORE Rl
*RETURN

:SETUP THE KW11-P VECTOR

s COUNT ONE TICK

:* INT EN, " COUNT ooun" “MODE ! (REPEAT,TM,
: né FREQTM, AND*
;nsru

;SETUP THE KWll-L VECTOR

8100, ILKS

:START THE KWll-L

816.,-(SP)

:TIME PER TICK

300 5LkV¢

RTS

JSR
RTI

:LEVEL O

8SRVCLK, aLKV

MOV
MOV

SEG 0041

PC, ShRPTMR

:RETURN

IN HILLISECONDS

"COUNT THE ELASPED TIME
:RETURN AFTER INTERRUPT

:ROUTINE TO GET DECIMAL KEYBOARD ENTRIES

*CALL

2099

(R1)

nggr
LCLK
A’

cMP
MOV

PAGE 4!

-(Rl)h-(SP)

}s;

MOV
SRVCLK:

COM4

MOV

2089

cnp
MOV

RTS

207
2074

17:31

SUBROUTINES

83:140
144
oowlwg
3831§

004172
004174

(0O4-NOV-77

01wéws

ggsq
60
206
2062

2068
2069

30C1046)

(004304

004314
004320

:
:

JSR
RE TURN]

PC, GETNUM

GETNUM:

MOV

(SP), -(SP)

18:

004376

001440

(22761
003016

RE TURN2

00006C
9200071

:NUMBER

ENTERED

ENTERED,

CONVERTED NUMBER ON THE STACK

:PROVIDE SPACE FOR FIRST CHAR

ROLIN
MOV
MOV
1518

(SP)+,RO
RO, 68’
(RO)

"RERD AN RSCIZ LINE
' ADDRESS OF 1sr CHAR
snvs IN CASE OF ano INPUT
&RST
CHARACTER
A 'CR’ ?

CLR
MOVB
BEQ

-(tp)
(RO)+,R!
4

CLERR DATA WORD
:PICKUP_ THIS cnnnnc.sn
SGET OUT IF ZERO

cMPB
BLT
RSL
MOV
ASL
ASL

#'9,R]
1S
(5P
(SP s, -(SP)
(SP)
.SP)

Y
:SAVE FOR LATER

BEG

2% :

:"CR’

CHPB
B8GT

%’0,R]
4s

IT IS

nnxs SURE THAT THIS CHARACTER
:1SA DIGIT BETWEEN O & 9

e
ie2.

CZRJCBC,

RPO4-5-6

CZRICB.PI1L
2111

004340

HERD

O4-NOV-77 12:49

004342
004344

10eMle
042701

2115

0043

102406

2116

’gaa

0043S4

0116

0007SS

2117
2118
2119
ele0
2l2l
2122
2123
2124

004356
004362
004366
004370
004372
004374
004376
004400

012666
062716
000410
005726
108010
104401
000000
104401

Sisg

004410

000207

2125
2i26

2122
glg?

004404
004406

000732
012616
001

30(1046)

ooe

O0O4-NOV-77

SUBROUTINES

ADD

BVS
BIC

000060
000002
000002

4s:
5§

00!160

68:
7%:

8% :

17:31

DO4
PRGE

(SP)+, (SP)

1
#60 R1

LOOP

MOV
RDD
B8R
To71
CLRB
TYPE
.WMORD
TYPE

BR
MOV
RTS

(SP)+,2(5P)
82, (SP)
as
(SP)+
(RD)
O

SQUES
is
(SP)+, (SP)

ERROR HANDLER ROUTINE

21EE

RETURN

ROUTINES

.IF B
t
; iuuu*uuniuunufluuiuuufuuuunuunununiuu

REERERERREER

.ENDR

000

001

gigg

21ES

;

‘AL1ST

2153

21El
2le2
21e2
21E4

savs THE RESUL
P INCREMENT THE RETURN ADDRESS
Eng
;CLEAN PARTIAL NUMBER FROM STACK
:SETR TERMINATOR
:TYPE THE INPUT UP TO BARD CHAR
'POINTER coes HERE
1Y Ry
STRY RGAIN
RES'ORE THE PC

NLIST
REFY
.LIST
H FEREAERRERREERERRERERERRERRERERERERRAREREERERAERER AR

21582

gigg

SN’ r ALLOWED

.SBTTL

2i€s
2156

.NLIST
.REPT
.LIST
;hilliiiillillll**ili!I»ll'l!}i!iINI}!l!lll!iillltiiiiiiii!iiiiii!il’
LI
.ENDR
-LIST
.ENDC

gigg

clty

ov RrLou

IF 8
H -t!:_l»I"llill}ilfll*lli{lll»Iill!liilliilill!iilliiliiiii}liiii!iiii

MACROC

2148
2149
2150
2151

%10.

ovsanou ISN’T ALLOWED
:CL nn THE UPPER BITS

:AD

5§

.SBTTL

oc!

SEG 00OM2

R, lspP)

Sizé

2145
S}::i?:

A0D

BVS

2132
2133
2124
gigé
2137
2138
2139
2140

MACY11l

062616

2112
2113

2114

RLNMT

.LIST

-ENDC
;#THIS ROUTINE WILL

INCREMENT

THE ERROR FLAG AND THE ERROR COUNT,

f?QEE;EHS
ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CRLL

}éf NE aooooassun,,nnno TYPE OUT THE PC OF THE ERROR INSTRUCTION
000

:#AND GO TO SERRTYP ON ERROR
"ENDC
.1IF NE 123000&ssun,,;rue SWITCH OPTIONS PROVIDED BY THIS ROUTINE RRE:
.IIF NE 1000008S$SWR,; #SW]15=1
HALT ON ERROR

.1IF NE 2000088%SWR,;5su13=1
.1IF NE 20008$SKR,
: #SW10=1

INHIBIT ERROR TYPEOUTS

BELL ON ERROR

CZRJCBO,

RPON-S5-B6 HERC RKRLNMT

CZRICB. P11

D4-NOV-77 12:49

MACY1l 30(1046)

.11F NE 10008$SWR

2168

: #CALL

gigg

2171
2172
2173
2174
2175

004M12
004412

2177
2178
2179

004424
DO4430
004432

001775
013777

Sigé

004440

005237

2180

0OM419
004420

00}

3186

2188
2189

2190
2191

2192

2193
2194
219¢
2196

004444
004450

004456
DON4B4

004472

000

011637
162737

117737
001

032777
001004

ERROR

PRGE 43

:%SW0S=1

001103

7s:

001102

.ENDC

174502

001112

.IF EQ

IFF

18:
001116
000002

174434

020000

.ENDC

001116

001114

174446

.IF NE

2198

R3,ATTN))

:; TEST FOR CHANGE IN SOFT-SWR

SERFLG
7s
$TSTNM, DISPLAY

:;SET THE ERROR FLAG
:'DON’T LET THE FLARG GO TO ZERO
;:DISPLAY TEST NUMBER AND ERROR FLAG

INC

SERTTL

. s INC THE ERROR COUNT

BIT
BEQ
TYPE

#B1T10, ISR
18
$BELL

20008S8SWR

:SW10

: ;BELL ON ERROR?
1ING - SKIP
:'RING BELL

INC

$ERTTL

P1COUNT THE NUMBER OF ERRORS

MOV
SUB

(SP), SERRPC
82, SERRPC

: ;GET ADDRESS OF ERROR INSTRUCTION

MOVE

aSERRPC,SITEMB

;;STRIP AND SAVE THE ERROR ITEM CODE

881713, asUR

:;SKIP TYPEQUT IF SET

(SP), 81002

::1IF RETURN PC LESS THAN 1002

200008S$SWR

BIT
BNE

CMP

2197

LOOP ON ERROR

INCB
BEQ
MOV

CIFTF
.1F DF S40CAT

0o2

SEG 0043

; ; ERROR=EMT AND N=ERROR ITEM NUMBER

001166
001170

2183
2184
2185
2187

EOQ4

SERROR:
.IIF NE S$SETUP8100,
CKSWR
.IF NB MOV
R1,DRIVE>,
MOV
MOV
R1,DRIVE
MOV
R3,ATTIN

104407

00l
010137
010337
000
105237

17:31

ERROR HANDLER ROUTINE

2167

2176

Q4-NOV-?7

-SWi3

208

BHI

12%

MOV

4(SP),

: 1SKIP TYPEOUTS

: 'ERROR IS ILLEGAL TRRP

. ; PROCESS UNEXPECTED TRAP OR INTERRUPT

2199

2200
2201
2202

SERRPC

;:GET PC AT TIME OF FALSE TRAP

Sus
TYPE
TYPOCT

82, SERRPC
108
$ERRPC

2204
2208
2206

SuB
MOV
TYPOCT

b4, (sP)
(SP) : SERRPC
SERRPC

: :GET FALSE TRAP VECTOR ADOR

2208

CMP

1SP)+, (SP+

; :POP FALSE TRAP VECTOR PC3RAODR

2203

TYPE

2297

2209
2210
2211
2212
2213
2214
2218
2216

2el1?
2218
£e19
2220

222}

gee2

TYPE

10$:
118:

004474

001
002
004737

001

002
oel

12%:
004520

.IF NB

.ENDC

BR
.ASCIZ
JRSCIZ
-EVEN

SCRLF

20%
<200>'PC= °’
'
UMEXPECTED TRAP

LENDC
SERRTYP
IeR
PC,SERRTYP

JIFT
-1IF B SERRIYP
TYPE
.ENDC

118

TYPOCT

P TADJUST PC
: ' TYPE HERDER
::TYPE PC AT TIME OF ERROR

§CRLF

;GO TO USER ERROR ROUTINE

$ERRPC, <ERROR ADDRESS>

ZRJICBO

ZRICB.P1
2223
2224
2eeS
22eb

?POH 5.6 HEAD ALNMT

0C4S00
00u4s0o4

D4-NGY-77 12:49
104401
ooc

O00llel

17:31
Q4-NOV-?7
MACY!1 30(1046)
ERROR HANDLER ROUTINE
TYPE

E;oc

IF DF SMAIL
CMP
BNE
MOVE

00!

218:

DO4S04
004510
po4s1e
004514

000
00l
005777
100002
000000
104407
o2

228:

.ENDC

174430

002

BIT

38:

cs
§ESCAPE, (SP)

OC4cle

$ESCAPE

. 509

$BIT09, 3SR

:;LOOP ON ERROR SWITCH SET?
F NO
;:B
' 'FUDGE RETURN FOR LOOPING

: 'CHECK FOR AN ESCAPE RDDRESS

"BR_IF NONE
' '!FUDGE RETURN RDDRESS FOR ESCAPE

: ;LOOP ON ERROR?

IF NO
PiBR
: :FUDGE RETURN FOR LOOPING

BEQ

::BR_IF NONE

MOV

.IF NE SSETUP320

cHP

.IFF

":;TEST FOR CHANGE IN SOFT-SWR

39
$LPERR, (SP)

187

HALY
O

::SEYTITEM NUMBER AS ERROR NUMBER

: 'REPORT FATAL ERROR TO APT

BEQ
MOV

BNE
coo
00!
0000Ce

CKSWR
- SW09

881709, ISKR

SESCAPE

SESCAPE, (SP)

. IFF
es:
.ENDC
-ENDC

es:
.ENDC
IFB

IN APT MODE

:SW15

BEQ
MOV

BIT

; ;RUNNING

*NO,SKIP APT ERROR REPORT

: ;APT ERROR LOOP

ys
SLPERR, (SF)

-IF NE SSWR31000

2s:

SEG 0044

3¢

IFF
3%:
"ENDC
IFF

0G!

BEQG
MOV

15T

3s:

001

22%

.1IF NE SSETUP8100,
.IF NE $SWRE1000

0ol

B8R

.IF NE $SWRS 100000
JSWR
TST
2s:

4g:

[alsl 191 )

SAPTENV, SENV
2
SITEMB, 218

PC,SATYY

HALT

PRGE 44

,SCRLF

JSR

_BYTE
BYTE

FOH

11CHECK FOR AN ESCAPE ADDRESS
: 'FUDGE RETURN ADDRESS FOR ESCAPE

.BITC4--(.SEOP)

#SENDAD, 9842

Y ]

RTI

::ACT-11 AUTO-ACCEPT?
; :BRANCH IF NO
;s

YES

; ; RETURN

.IRP LASTIN, >
000

.ENOM
-ENDC

LASTIN

"IIF NOF SERTTL,SERTTL:

"1IF EG .-SERTTL,SERTTL:

LWORD

: ;ERROR COUNT

SRICBO,

RPOM 5.6 HERD ALNMT

ZRICB.P11

Q4-NOV-+7 12:49

2279

MACYI1

30(1046)

O4-NOV-77

17:31

GO4

ERROR HANDLER ROUTINE

PRGE 4S

.IIF NDF STSTNM, é STSTNM:

2280
2281
2282
2283
2284

“1IF EQ .-$TSTNM, STSTNM:
"1IF NOF SERFLG,$ERFLG:
"1IF EQ .-SERFLS, SERFLG:
S1IF NE .81, .EVEN
-IF NE $SWRS1000; SWO9

001

2285

2286
2287
2288

0oe

2290

001

2293
2294

ooc

2289
2291
2292

-11F NOF SESCRPE . SESCRPE:

"1IF EQ .-SESCRPE, SESCAPE:

JENDC
"I1IF NDF SERRPC,SERRPC:

.RSCIZ

2295
229
2297
2298
2299
2300
2301

"1IF EQ .-SITEMB, SITEMB:
-1IF NDF SQUES, SQUES:
C1IF EQ .-$QUES,SQUES:
.ASCII
.11F NOF SCRLF,4CRLF:
"11F EQ .-SCRLF,SCRLF:
.RSCII
.11F NOF SLF,SLF:
J1IF EQ .-SLF SLF:
LRSCIZ

gggg

.SBTTL

2302

“1IF NE

230S
5389

001

18.

:: TEST NUMBER

.BYTE

: ;ERROR FLAG

. sESCAPE ON ERROR RDDRESS

: sLAST ERROR INSTRUCTION EXECUTE

LWORD

-IF NE $SWRE2000:SW10

"ENCC
"TIF NOF SITEMB,SITEMB:

.BYTE

.WORD

"11F EG .-SERRPL, SERRPC :
-11F NDF SBELL,SBELL:
S1IF EQ .-SBELL,$BELL-

SEG 0QME

. EVEN

«207,<377:¢377, ;;ASCII CODE FOR BELL
LWORZ
)
*=*

:;ITEM BYTE

: ;QUESTION MARK

‘15>

: : CARRRIGE RETURN

12>

. : LINEFEED

ERROR MESSAGE TYPEOUT ROUTINE

IF B
: ii!iiillll»l'iil'ilii!!iiil»lliilliilllI’l{!lilil!liililil*il*i!l!if{
{3

2308
2309
2310
2311

CNLIST
-REPT
.LIsT
HIH [ Y 2222222222222

2213
2314
2315
221E
2317

_ENDR
SLIST
-ENDC
:#THIS ROUTINE JSES THE “ITEM CONTROL BYTETM (SITEMB) TO DETERMINE WHICH
'%ERROR 15 TO BE REPORTED. IT THEN OBTRINS,
FROM THE "ERROR TABLE" (SERRTB),

2312

"ALIST

000

sgig

004520
004520

2223
2324
2325

004526
004830
004534

00S00C
163700
001004

001114

004E3¢

013746

0G1l1le

0CH4E42

104402

2326

2327

£328
2329
2230
233]
€332
2323
2324

XXX 222X

'#AND REPORTS THE APPROPRIATE INFORMATION LONCERNING THE ERROR.

2320
232]

23c2

X222

004524

CO4E44

104401

010046

061

000MME

oot

00116l

SERFTYP:

TYPE

MOV

CLR
BIsB
BNE

SCRLF

RO, -(SP)

RO
JsSITEMB,RO
1
- (SP)

.IFF
LENDC

: "SAVE

P:PICKUP THE

::IF

ITEM

_ITEM NUMBER

INDEX

}
iS ZERO,

!1TYPE THE PC OF THE ERROR

MOV

$ERRPC,

. GET OUT

10$

. :GET

.1IF NB <ERROR ADDRESS}.
TrPOC

JIFB

;s "CARRIAGE RETURN“ 3 "LINE FEEC"

: :SAVE SERRPC FOR

TYPEOUT

JUST

. . ERROR RADDRESS
::G0 TYPE--OCTAL ASCII(ALL DIGITS)
CUT

RPO4 S & HERD RLNMT

P11l

004S46
004550

006300
006300

004See
004S6b

012037
001404

rfurururV
PO MUV
TV
W
WD W)W
I W W W W
[oale aleale AR TUATUATNATV
VAT
Wh—-Owm-IcNL
W

004570
004572
004574

004600
004604
004606
004610
004612

0627

104401
000000
104401

012037
001404
104401
000000
104381
1

MRCY11l 30(1046)

001270

004610

0011e1l

4g:
)

004632

004634

104402

004636

00C402

004640

013146

004640

004642

o=761
001403

0046SH

000764

004656

004E60

004662
004EEE
GC4E70

104401

104401
000207
02004C
O04E7Y
als

001161
000

SCRLF
AC

,,"cnnnxnce RETURN"” 8 “LINE FEi:RETURN

157
£Q

(RC)
6%

;315
THERE ANOTHER NUMBER®
R IF NO

JASC1Z

10§ :

118:
.ENDC

L.SBTTL

"SCRLF

(RO), RO

(SP)+,RC

Q(RO)+

8s
’s

MOV

R1,-(SP)

BEQ

B MOV
>

TYPOC

::"DATA HERDER“ POINTER GOES HERE

:1*CARRIAGE RETURN" 8 “LINE FEEC”
: 'RESTORE RO
,,rvp

AN OCTAL NUMBER

,,TYPE TWO(2) SPACES
:LOOP

P 1M0(2) SPACES

(ROHI+RI

&
¥ cxgp"oqrn TRBLE" POINTER

\RO)+, RO
(RO)+
78

chxup "onrn FORMAT" POINTER
:*0CTALTM OR “DECIMAL"
..aR IF DECIMAL

d(R1)+, -(SP)
1

ATAR TO BE TYPED

:SAVE J(R1)+ ron TYPEGUT

..co TYPi-0CTAL ASCIT(ALL DIGITS,

JR1)+,-(SP)

::SAVE @(R1)+ FOR TYPEOUT

15T
BEG

(R1)
9s

THERE ANOTHER NUMBER?
,.13
IF NO

: 1 LOOP

MOV

(SP,+,R1

,,RESTORE Rl

TYPE
RTS
LRSC1Z2

SCRLF

,,"cnnaxnce RETURNTM & "LINE FEED"
:RETURN
:1TWO(2) SPACES

“)

TrPDS

TYPE

9%:

; iPICKUP “DATA HERDERTM POINTER
::SKIP TYPEOUT IF O
;;T PE THE “DATAHEARDERTM

TYPE
RTS

1IF NG MOV

0O4&70

; ;PICKUP_“DATA TQBLE" PGINTEF
:GO TYPE THE DAT

MOV
1578
BNE

8s:

012601

012600

$CRLF

tRG)+.4s

::TYPE THE “ERROR MESSAGE"
,;“ERROR MESSAGE” POINTER GOES HERE
,;"cnnnxncs RETURN” 8 "LINE FEED"

10V

7%:

104405

OONE4Y
004646

004€50

'PICKUP “ERROR MESSAGETM PCINTER
.,sxxp TYPEOUT IF NO POINTER

MOV
BNE

"EVEN

6%:

(RO)+, 2%
3s

TYPE
BR

. IFF

RG
RO

.WORD

TYPOCT

c§:

C13146

:FORM TABLE POINTER

MOV

8s:

0i20C]
0OCI%IE
C1200C
105720
0010C3

#SERRTB, RO

ey TYPE

7s:

004620
004€22
004624
004626
004630

RDD

MOV
BEQ
TYPE

SEG 0O4&

; ;ADJUST THE INDEX SO _THAT IT WILL
.
WORK FOR THE ERROR TABLE

TYPE
LWORD
TYPE

2%:

5§

OICINE

PAGE 4

RO
RO

MOV
BEQ

O04ele

17:31

DEC
ASL

ASL
ASL

004572
00116l

0O4-NOV-77

ERROR MESSAGE TYPEOUT ROUTINE
18:

005300
006300

004552
004554

004556

nyronafunefuufD
e
(WI W W W LW WD WD
W
OO0
EMEOOQED "IN~
Lo NN £ Whv— O

ON-NOV-77 12:49

HO4

MOV

TEVEN

118

(5P
+ RO

TYPE ROUTINE

: ;GO TYPEL-DECIMAL ASCII WITH SIGN
..TYPE TWO(2) SPACES
:RESTORE RO

CoRICBO,

RPOY S-6 HERD GLNMT

CSRICB.P1L
2391

2392
5333

O4-NOV-77 12:49
001

MACYL1l 30(1046)

04-NOV-77

TYPE ROUTINE

17:31

.IF B
H Y 1113222222212z

104

PRGE 47

222zx3121222 2222222222222 222222 222222 2

CNLIST
REPT
.LIST

2395
2396
2397
gggg

fi‘liil!l}!lI!INI'llllll}llllli!!ililililil!lliI!illiiliiiiilfilfiii

2400
2401
2402

.ENDR
.LIST
.ENDC

000

2403

:#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE NITH A O BYT

A LINE FEED.
!#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER
*¥NOTE]:
SNULL CONTAINS THE CHARRACTER TO BE USED RS THE FILLER CHARACTER.
: ¥NOTE2:
SFILLS CONTRINS THE NUMBER OF FILLER CHARACTERS REGUIRED.

2404
2405
2406

5385

i #NOTE3:

SFILLC CONTRINS THE CHRRACTER TO FILL RFTER.

2409
2410
g:ié

:#CALL:
38) usxncA TRAP INSTRUCTION
, MESADR
TYPE
"on

2413
2414

P
‘¥

i #*

2417
2418

0DO4679
00470C

2420
24cl

004704
004706

2419
2422
2423

004702
004710

2424
2425

105737
100002

0G1157

000000
000407
010046

017e20
001

000002

0OO471M

243t

004720

2439

2440

2441

004716
004722

BR
MOV

3%
RO, -(SP)

MOV

.IF DF SMAIL

.ENDC

112046

2%:

00I00E

005726
012600

062716

000002

004732

j22716

000011

122716

000200

004730

000002

004736

001430

DO4744

00100€

0047E2

0O0llEel

004740

2444
2445

004746
00470

g44t

600

004724

2442
2442

18:

619:
62%:

2434

5438

STPFLG
1§

71STB

005726
109401

608:

o2tsPy, RO
$APTENV, SENV
629

: 1S THERE A TERMINAL?
IF YES

,,HQLT HERE IF NO TERMINAL
,,Lsnvs
:SAVE R

JiGET nooness OF ASCIZ STRING
,,RUNNING IN APT MODE
GO CHECK ron QPT CONSOLE

BITB
MOV

SAPTSPOOL , SENVM ,,SPbOL
MESSAGE TOAsoLE
GO CHECK FOR CON
Efup MESSAGE noonsss FOR APT
RO,61$

BNE

608

'1YES,SKIP TYPE ouT

(RO)+.-(SP)

; s PUSH cunnncren T0 BE TYPED ONTO STACK

(SP)+

::IF TERMINATOR POP 1T OFF THE STACK
,.noJusr RETURN PC

BEQ

2432

2437

BPL

CMPB
BNE

2430
2431
2435

TYPE
MESADR

HALT

2426
2427
2428
2429
2433

$TYPE:

. :MESADR IS FIRST ADDRESS OF AN RSCIZ STRING

JSR
_WORD
BI78
MOVB
BNE

TST

MOV

62%

PC. SATY3
O
SAPTCSUP, SENVM
4g

(§P)+ . RO

SPOOL MESSAGE TO
A
' MESSAGE RDDRESS
,,npr CONSOLE SUPPRESSED

'BR IF IT ISN’T THE JERMINATCR

: 'RESTORE RQ

A0D

82, (5P)

4§:

CMPB

SHT, (SP)

.,annncn IF <(HD>

#CRLF, (SP)

: sBRANCH IF NOT <CRLF>

(SP,+

. sPOP
<CR><LF> EQUIY
*:TYPE A CR AND LF

RTI

BEQ

BNE

CMPB
757
TYPE

$CRLF

'RETURN

SEG 0047

CZRJCBO,

RPO4-5.6 HERD ALNMT

CZRICB.P11

D4-NOV-?7 12:49

2447
2448
2449

0Q047S4
004760
004762

10S037
000755
004737

2461
2462
2453
2454
2465
2456

004772
004774

001350
013746

00S000
005004
00500

105266
002770
004737

g:gg

005016

000770

2450

2457

004766

0050l

123726

105337

MACY11l 30(1046)

TYPE ROUTINE

005110
5§:

00SO4H4

£%:

0011Se
001154

000001

7%:

00SO44

00S020

112716

000040

2464
2465
2466
2467
2468

005030
005036
005040
005042
005044

132737
001372
005726
000724
105777

000007

2470

005052

116677

2472
2473
2474
2475

005066
005070
005074
005076

001003
105037
000406
122766

2477
2478

005106
005110

105227
000000

2471

2476
g:go

2481
2482
2483

2484

2485

2486

17:31

2%
SNULL , - (SP)

2 IF NO GO GET NEXT CHAR.
SiGET 8 OF FILLER CHARS. NEEDED
:'AND THE NULL CHAR.
:DOES A NULL NEED TO BE TYPED?
'!BR IF NO--GO POP THE NULL OFF OF STACK
2:G0 TYPE A NULL
D0 NOT COUNT AS A COUNT
: 1 LOOP

CMPB

sFilLC, (SP)+

DECB
BLY
JSR

1(SP)
6%
PC, STYPEC

BNE
MOV

SCHARCNT
7s

005024

005050

005

005104
00S112

004737

10037S

122766

001402
000207

005044

8%:

:21S IT TIME FOR FILLER CHARS.?

005110

BITB
BNE
TST
BR
$TYPEC: TSTB

87, SCHARCNT
qs
(SP)+
28
98 TPS

: sREPLACE TAB WITH SPACE
J'TYPE A SPACE
::BRANCH IF NOT AT
1:7aB8 STOP
: 'POP SPACE OFF STACK
:1GET_MEXT CHARACTER
DWAIT UNTIL PRINTER IS RERDY

174072

MOVB

2(SP) . a$TPB

::LOAD CHAR TO BE TYPED INTQ DATA REG.

18
§CHARCNT
$TYPEX
SLF,2(SP)

: 'BRANCH IF NO
:'YES--CLEAR CHARACTER COUNT

000002

BNE
CLRB
BR
cMPB

174100
000002

000015

JSR

BPL

000002

CMPB

005110
000012

MOVB

1S:

STYPEC

#CR, 2t 5P)

BEQ

STYPEX

RTS

INCB
$CHARCNT: .WORD
§TYPEX:

8’ . (SP)

pc,$TYPEC

(PC)+
O

IIF NDF HT,HT= 11
1IF NOF LF.LF= 12
I1IF NOF CR,CR= 1S

1 1S CHARACTER A CARRIAGE RETURN?

DIEXTT

IS CHARACTER A LINE FEED”
:'BRANCH IF YES
: 'COUNT THE CHARACTER
: 'CHARRACTER COUNT STORAGE

. :CODE FOR HORIZONTAL TAB
::CODE FOR LINE FELD
:'CODE FOR CARRIAGE RETURN

:sCGDE FOR CARRIAGE RETURMN-LINE FEED

1IF NOF

CRLF,CRLF=

200

1IF EQ

.-$TPS, STPS

.WORD

177564

:;TTY PRINTER STATUS REG. ADDRESS

1IF EQ

.-STPB,STPB

.WORD

177566

. s TTY PRINTER BUFFER REG. RDDRESS

1IF NOF STPS.STPS:

2489

11F NOF SNULL,SNULL:

2500
2E0]
2502

SEG 0O4E

: ;CLERR CHARACTER COUNT
P1GET NEXT CHARACTER
::GO TYPE THIS CHARACTER

11IF NOF sTPB.$TPB

2430
2481
2482
2493
2494
2495
2436
2497
2498
2499

PAGE 48

SCHARCNT
2$
PC, STYPEC

2487

2488

JO4

:HORIZONTAL TRB PROCESSOR

2462

2469

CLRB
BR
JSR

DECB

005110

g:gg

2463

04-NOV-77

1IF EQ .-SNULL,SNULL: .BYTE
11IF NOF SFILLS. SFILLS:
1IF EQ .-SFILLS,SFILLS:
11F NOF SFILLC,$FILLC:
I1IF €Q .-?F;LLC ?FILLC:
11F NOF STPFLG, $TPFLG:
1IF EQ .-STPFLL,STPFLG:
11F NOF SQUES, SOUES:
1IF EQ .-SGUES, SQUES: .ASCII
11F NDF SCRLF,$CRLF:
I1IF EQ .-SCRLF SCRLF:
11F NOF SLF,SLF:
1IF €0 .-SLF SLF:

O
.BYTE
.BYTE
.BYTE
2~

12
O

; ;CONTRINS NULL CHRRACTER FOR FILLS
;s CONTRINS 8 OF FILLER CHRRRCTER
;s INSERT FILL CHARS. AFTER A “LI
;3" TERMINAL AVAILABLETM FLAG (BIT
: ;QUESTION MARK

.ASCII

: : CARRAIGE RETURN

.RSCIZ

12/

: : LINEFEED

CcRJCBO,

RPOY/S-B HERD RLNMT

CZRICB.PI1

04-NOV-77 [2:49

MARCY1l

2503

30(1046)

TYPE ROUTINE
.I1IF NE

sggg

.SBTTL

2506

001

gégg

18.

17:31

2513

"ALIST

2512

.EVEN

HH (T2

Y YT IR X2 XSRS Y X2 2222222222 X2 REX2 222X

000

2528
2529
2530

: #§TYPON----ENTER HERE
: #§TYPOS OR STYPOC
: #CALL:

‘¥

Ségg

NUM, - (SP)
N
M

MOV

TYPON

; sNUMBER TO BE TYPED
:ICALL FOR TYPEOUT
:'N=I 10 6 FOR NUMBER OF DIGITS TO TYPE
;+3M=1 OR O
;:1=TYPE LEAGING Z2EROS
;1 0=SUPPRESS LERDING ZEROS

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, - (SP)

: ;NUMBER TO BE TYPED
s 'CALL FOR

TYPEOUT

2634
2535
2636

: #§TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
: #CALL:
Sx
MOV
NUM, - (SP)
; ;NUMBER TO BE TYPED

sg%g

2639
2540
2541

00S1I4
005120
005126

2544
2545
2546
2547
2S48
2549

005140
005146
00S1S4
005162
005164
005166

112737
0103496
010446
010546

005174
005176
005202

005404
062704
110437

005212
005216
005220
00S222

016605
005003
O0O0E10E
000404

2565
2556
26€7
2SSE

MOV
TYPOS
.BYTE
.BYTE

263!

2564

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;lfos---snrsn HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
tx
‘¥
ta
#
e
et

2551
2652
2563

SEG 0049

BINARRY TO OCTAL (ASCII) AND TYPE

2521
2522
2523
2524
2825
ggse

2650

PRGE 49

; iF;lll!llililliliiiilllllllllllNlI'll»lI'lli{i!!iiill!!ll!liliiiliii

-NLIST
.REPT
LIsT

2542
2643

KO4

.IF B

2509
2510
o511

oc14
2515
2516
2517
2518
gggg

0O4-NOV-77

005132
005136

005170
005206

017646
116637
112637

000000
000001
005341

005337

112737
112737

000001
000006
00000S

005337
005341
00S336

113704

00S341

062716
000406

113704

‘x

TYPC?

$TYPOS:

MOV
MOVB
MOVB

000002

$TYPOC:
STYPON:

005337

; ;PICKUP THE MODE
::LORD Z2ERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

MOVB
MOVB
MOVB
MOV
MOV
MOV

#1,80FILL
86, SOMODE +1
85, SOCNT
R3,-(SP)
R4’ -(SP)
RS, -(5P)

:sSET THE ZERO FILL SWITCH
::SET FOR SIX(&) DIGITS
::SET THE ITERATION COUNT
::GAVE R3
::SAVE RY
: 1SAVE RS

NEG
AOD
MOVB

RY
86, RY
R4 $OMODE

s sSUBTRACT IT FOR MAX.
:'SAVE IT FOR USE

MOV
CLR
ROL
BR

12(SP) RS
R3
RS
3%

RDD
BR

MOVB

000012
18:

TYPEOUT

3(SP),~(SP)
1(SP) | SOFILL
(SP)+'SOMODE+1

MOVB

000006
00S340

:CALL FOR

82, (SP)
STYPON

SOMODE+1,R4

SOFILL,RY

: 'ADJUST RETURN ADDRESS

:'GET THE NUMBER OF DIGITS TG TYPE
ALLOWED

PGET THE 2ERQ FILL SWITCH

: ;PICKUP _THE INPUT NUMBER
*'CLERR THE OUTPUT WORD
1 ROTATE MSB INTO “C”
; ;GO DO MsB

RPOq

S/6

HERD RALNMT

O4-NOV-77

12:49

MRCY11

LO4Y

38(1046)
04-NOV-?7
17:31
PRGE 50
ARY TO OCTAL (RASCII) KAND TYPE

2$:

ROL
ROL

005340

RS
RS,R3

DECB

SOMODE

BPL
B1C

cs:

320
005322
30
005332
00s334
005335
005336
005337
005340

012603
016666
012616
000002
000
000
000
000
000000

000002

X
RY

MOVB
TYPE
DECB

R3,88
8
$OCNT

SAVE FOR TYPING
1160 TYPE THIS DIGIT
. COUNT BY

INC

,,xnsune LAST DIGIT ISN'T A BLANK

MOV

(SP)+,RS

: 'RESTORE

SOCNT:
$OFILL:
SOMODE:

,,nnxs RSCII IF NOT ALREACY

i iBRIF none 10 DO
‘BR IF DONE

.BYTE
.BYTE
.WORD

"SBTTL.

'R3

2s
68

MOV
MOV
MOV
MOV
RTI
.BYTE
BYTE

8s:

;BR IF YES
i ;DON’T_SUPPRESS ANYMORE 0°S
*MAKE THIS DIGIT ASCII

$'0,R3

000004

R O

,,suppnsss THIS 0

BEQ
INC
BIS

BGT
BLT

6%:

TES

BIs

78:

;BR_IF NO
GET nxo OF JUNK

4§

TST

000060
000040
00S334
00S334
005336

sGET LSB OF THIS DIGIT

,,TYPE THIS DIGIT?

78
8177770,R3

BNE
4§:

. sFORM THIS DIGIT

ROL
MOV

ROL

1772770

RS
RS

SEG 00<0

?o
THE LRST DIGIT

(SP)+.RY
(SP)+.R3
2(SP) | 4(SP)
(SP)+! (SP)

:
*

,,RESTORE R4
1IRESTORE R3
::SET THE STACK FOR RETURNING
s :RET
:'STORAGE FOR ASCII DIGIT
' TERMINATOR FOR TYPE ROUTINE
::0CTAL DIGIT COUNTER
.,ZERO FILL SWITCH
UMBER OF DIGITS TO TYPE

O
O
0
O
O

CONVERT BINARY TO DECIMAL'AND TYPE ROUTINE

001
trF
NLIST

:CYeT

Hfil‘;;:li!ililill}iililliilillwl!IHII»lliillllilillitlllliiliiiiiiiil

L
-ENDR

noc

ngT

; #THIS

:#SIGNED
i ¥NUMBER

ROUTINE

; #BEFORE

USED

1S POSITIVE

THE

FIRST

00cS34e
00s342

G1004e

$TYPDS:

16-BIT

BINARY

NUMBER

5-DIGIT

OR NEGATIVE R SPACE OR A MINUS SIGN WILL BE

DIGIT

:gsEaneo WITH SPACES.
;.

CHANGE

DECIMAL (aécxx) NUMBER AND TYPE 1T. DEPENDING ON WHETHER THE
OF

THE

NUMBER.

LEADING

ZEROS

WILL

ALWAYS

TYPED
BE

MOV

NUM, - (SP)

::PUT _THE BINARY NUMBER ON THE STRCK

Mov

RO, ~-(SP)

; +PUSH RO ON STRCK

TYPDS

::G0

THE

ROUTINE

RPO4/S5/6 HERD RALNMT
O4-NOV=-77 12:49
CZRJICB. A1l
CZRJICBO,

MACY1l

30(1046)

000001

38:

MOV
BPL
NEG
MOVB
CLR
MOV

26(sP)|
18
RS
-,1(SP)
8’
RO
8SOBLK, R3

2
$OTBL (ROJ,R1
,
4$
R2

gs RS

Ré'

BMI

§§

ASLB
BCC
MOVB
BIS
g1s

638:
78:

08(30'—000
PO
= O
b s ee

005556
000002

T THE CONSTAN

,,FORH THIS BCD DIGIT

::?Nc££n88"§ue BCD DIGIT BY 1

| CHBCRYE 8ch BICTIG

FALL THROU

..lekk egéNG 'FRDING 0’s?

.’

A DIGIT
! 'MAKE xr A SPACE IF NOT_ALREADY
i ;PUT_THIS CHQRACTER IN THE OUTPUT BUFFER
; ,Jggf INCREMENTING

,,HSK-~ ES 3§GNGIT RSCII

(SP)+

TO ASCII
.,co CHANGE
SI;HEOLSD THE FIRST NON-ZERQ?

-1(SP),-2(R3)

;;v ?

(SP)+.R]
(SP)+ RO
$DBLK

PGP STACK INTO R2
::POP STACK INTO Rl
:'POP STACK INTO RO
{iNOW TYPE THE NUMBER
: "ADJUST THE STRCK

9§

(Rg)
(SP)+,RS
(5P)+.R3
(5P)+.R2

MOV

::8EER£H§HEI§86gngggfiTER T0 A BLANK

.,co TO EXIT

d(SPY,4(SP)
(SPs+. (SP )

H?Y

.IF

T“E 33N§¥ ? ?NDEX ’
:IZER
UP THE OUTPUT POINTER

1(8P) -1(R3)

RS, R2

MOV
MOV
TYPE

.SBTTL

HE BINARY Nunagnfiggs

CLR
MOV
MOV
MOV

$CBLK:

.,BR xr INPUT IS
P

: nnx

BGT

MOV

$01BL:

,,EET ?h?fl?NgU¥TCH
QNg SIGN

,,nso

es’

TS78

000004

TACK

TQCK
TACK

(SP)

(RG)+

BPL

c601

RO, 810

,,PU%

cHP

MOV

177776

;PUSH R1 ON STACK

,,PUSH R

R2 tR3)+

BLT
8%:

SEG 00!

MOVB
TST

000010

1777277

PRGE S1

5L (R3S

gn
TE?

cs:

177777

MO4

820200, ~(SP)

cL
MOV
suB
L7
NC

4§
:

00060
0000N0

R1,-(SP)
R2, -(SP)
R3.-(5P)
-(3P)
RS’

MOYB

cs:

00ss4e

0000)

MOV
MOV
MOV
MOV

MOV

00SSSe
000040

17:31

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

020200
000020
0000sS

O4-NOV-77

17000.
1000.
100.
1.
. BL BLKUW

TTY

4
INPUY ROUTINE

INDEX
CHECK THE TQBL
;i
GO DO THE NEXT DIGIT

iiGET THE LS?

T THE sch FOR TYPING

TERMINATOR
P svncx INTO RS

''pOP STACK INTO R3

;;RETURN TO USER

CZRJCBO,

RPOM-5.6 HERD RLNHT

CZRICB. P11

O4-NOV-77 12:4

MACYL1 39(1046)
TY
<

04-NOV-77

17:31

INPUT ROUTINE

'irF

0 0 0

NO4

PAGE S2

SEG 00<e
RN RN R RRRARRRARRRCRR SRR

-NLIST

fii;!glillllllll!llllllllll!llllll A5 33 3 3 3 3 3 3 3 3 3 3% 3% 3 % 3 9 % 3 3 % % % % 3% 3 % % %
LIS

-ENDR

2680

.LIST
-ENDC

oco

-TIIF NOF STKS,STKS:

“1IF EQ .-STK5,8TKS:
-1IF NOF sTkB,4TKB:
“1IF EQ .-STKB,STKB:

€87
c688
2689
2690
2691
2632
2693
2634

|4V g TaANTANT AR LaNTaNT oW g R lgVTg¥]atl,aV)
NNNNNNNNNNN
Rt e Do Pt Pt st Pt Bt e pn
OOVODNTCN LW

2693s
2696
2697
2698
2699
2700
2701
2702
€703
2704
270S
2706
2707
2708
€709

00SS66
005570
005572
005574

.ENABL
_LSB
.IF NB 7

001
000000
000000
000000
000007

S$TKCNT: .WORD
§TKQIN: .WORD
$TKQOUT: ".WORD
;

.WORD
.WORD

; #TK

;s TTY KBD STATUS
:;TTY KBD BUFFER

s sNUMBER OF ITEMS IN QUEUE
INPUT POINTER
:IOUTPUT POINTER
2:TTY KEYBOARD QUEUE

O
O
O

STKQEN
.1IF NE <.81>,.EVEN

005603
00S604

177560
177562

INITIALIZE ROUTINE

T#THIS ROUTINE WILL INITIAL1ZE YMF TTY KEYBOARD INPUT QUEUE
‘#SETUP THE INTERRUPT VECTOR AND URN ON THE KEYBORRD INTERRUPT

,iCQLL’
‘¥
L x

005604
005610
005616
005624
00Se32
005640
00Se44
00SeS2

005037
012737
013737
012737
012737
005777
012777
000207

005566
005574
005570
00S6SH
000200
173302
000100

00S570
00ss7e
000060
000062

JSR
RETURN

: s CLERR_COUNT OF ITEMS IN ousus
$TKCN
osrxosnr STKQIN ‘MOVE THE STARTING ADDRESSOF THE
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
STKQIN, StKGOUT

$TKINT: CLR
MOV
MOV

#STKSRY, Q4TKVEC ,,INITIRLIZE THE KEYBOARD VECTOR

MOV

MOV
TST
MOV
RTS

173272
; #TK

PC, STKINT

8200, antKVEC+e
ISTKB

#100, a$TKS
PC

,,“BR“LEVEL
4
:CLEAR DONE FLAG
:ENABLE TTY xsvaonno INTERRUPT
,,RETURN T0 CALLER

SERVICE ROUTINE

:#THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:#BY READING THE CHARACTER FROM THE INPUT BUFFER RAND PUTTING
PHIT IN THE QUEUE.

“IF NB

002

A “CONTROL-CTM (1C) STKINT IS CALLED AND
TO THE "CONTROL-C* RESTART ADDRESS (START!.
MADE
S
EUS%N RETURN EXIT I
; RIF

ool

2721

00S654
005660

117746
042562

173266
177600

2723
2724
2725
2726

00S6e4
005670
005672
00Se7e

021627
001007
104401
004737

000003
006773
00Se04

THE

CHRRQCTE

. sPICKUP THE CHARACTER

BIC

JSTKB,- (SP)

ofc17? SP)

:'STRIP THE JUNK

CHP
BNE

(SP), 43
18

;;IS IT A CONTROL c?
N
; 1BRANCH IF

JSR

AC, STKINT

P INIT THE KEYBOARD

§TKSRY: MOVE
.IF NB START!

TPE

§CNTLC

-C
*ITYPE A CONTROL

(1O)

ety

}\PQ
538 ARARR
VSQhIGJ &rdéflxflflu
OO
Lad
mx:(nm

nnn g U
NNNNNY

I )
00

OO0

RPOM-5-6 Heno ALNMT

005702
065704

005710
00S7i4
005716
0057

D4-NOV-77 12:49
005726
000137

001460

1627

000007

001

001004
022737
001500

000176

MACY1l 30(1046)

TTY INPUT ROUTINE
ST
IMP

i§:
0011i4C

001

.ENDC

022737
0C1004
104401

000007

005746
005752
005754
005760
00S7?62
00S766
005770

021627
001021
005077
005726
105777
100375
117746

000023

006000

022627

000021

012777

000100

005237

00SSbE

006008

006006
006014

00E016
006022

006026
006030
006034
006036

005726
000451

042716

001366

855327
0s
021627

00SSeEs

00607C

PRGE 83

(SP)+
START!

CMP
BNE
CMP
BEQ

SEG JCS2

: ;CLEAN UP STRCK
; ;iCONTROL C RESTRRT

(SP), 87

R _CONTROL G”
IF NO
FT-SKR SEL cCTED?
SilR CHARNGE

2
SSWREG, SWR
68

173164
173156

318:

173152

1ST
B8R

cMP
BNE
CLR
TST
1518
BPL
MOVB

BIC

177600

CMP

BNE

173130

MOV

32%:

000140
000175

000040

005237
023727
001003
012737

005570
005570

005603

00S574

00SS70

001
062

CMP
BNE
TYPE

3s:

042716

000002
00C

.1IF EQ $SETUP8100,1$:

006767

006042 112677 177522
006046
006052
006060
006062

BOS

.11F NE SSETUP3100,2$:

005726
005734
005736

00S774

17:31

.ENDC
CIF NE SSETUPS100

005726

005742
005744

O4-NOV-77

4s:
S:
"ENDC

RTI

87 STKCNT
3s
$BELL

{sPy+
c$

(SP), 823
328
3$TKS
(SP)+
987KS
318
d$TKB, - (SP)

#4C17?, (SP)
(SP)Y+, b21

,:1S THE QUEUE FuLL"
! IBRANCH IF _NO

'!RING THE TTY BELL
; CLEAN CHARRCTER OFF OF STACK
JEX

O IT A CONTROL-S”

' 'BRANCH IF
: 1DISABLE 1Yk YBOARD INTERRUPTS
,,CL BN CHAR OFF STAC
unn FOR
A CHA

LOOP UNTIL ng E:ERE
CHARA
H;

--HRKE

318

7-BIT ASCII

T A _CONTROL-Q?

8100,
38 TKS

INC

STKCNT

BLT
CHP
BGT
BIC

4$
(5P), 8175
48
240,
(SP)

INC
CMP
BNE
MOV

DQTE THE POINTER
$TKQI
STKQIN, $STKQEND 11G0 OFF THE END”
; sBRANCH_IF NO
5
#$TKQSRT, STKQIN ,,RESET THE POINTER

CMP

MOVB
RTI

(SP), 8140

(SP5+ ISTKQIN

;;

UPPER CRSE3
RANCH

_IF YES

E IT UPPER CQSE

,,RND T_IT IN QUEUE

; s RETURN

.IF NE SSETUP3100
JIF B

2222222222223
222232 2232222222 2222222222222 222222222 22y

{13

.NL]IST
REPT

-LISsY

CHRERERERESER AR SRR

hL1ST
001
00¢

ENDR
LIST
ENDC
IF NB 7

G EERRRA R R R LR AR AR ERE R R REERRRRRRAER R

AR R AR RRRR

CZRJCBO,

RPOY 56 HERD ALNMT

CZRICB. P11

ON-NOV-77 12:49

MARCY11L

2783

2784
2785
57
?

0O4-NQV-77

TY INPUT ROUTINE

17:31

COS

006072

022737

000176

006110

117746

173032

2792

NO61I4

042716

szeq

006124

001300

173036

001140

?Ngs
BPL

5S¥xs
§

gIcC

81C177

MOVB

177600

CMP

BNE

asrxg

(SP), o’

[

2797
S;gs

0c3

P'MAKE IT

7-BIT RSCII

.,xs IT A CONTROL-G?
55 "0;1 PUT

IN THE

TTY QUEUE

FF
CNLIST

805

RBBRAERREERFEEERRR R E SRR ERERERERRERETRE RN EEREEREEREEESEE

2804

hLIST

2805
2806
2807
2808

.ENDR
LIST
Ng
NTROL

002

2809
2810
2811
2812

006126
006134

123727
001674

001134

2814
26815

006140
006144

004737
005077

005604
172774

006136

006150

005726
112737

00000!I

2818
2819

000001

IS PASSED TO THIS POINT rnon EITHER THE TTY

INTERRUPT SERVICE

;Rourgue
OR FROM Tng gorrunng ENéTCH GISTER TRAF cn%% A RESULT OF A
%CONT
esxnc TY e
HE
SOFT
e SwITCH REGISTER BEING SELECTED.
bS:
CMPB
RRE WE RUNNING IN AUTC-MODE
BEQ
as
,,enaucu IF
YES

TST

JER
CLR

00!:3%

MOVB

(5pP)r+

PC,STKINT
astks

s1,$INTARG

:CLERR CONTROL-G OFF STACK

SFLUSH THE TTY INPUT QUEUE
..gx RBLE TTY KEYBOARD INTERRUPTS

;5T

.IFF
: #SOF TWARE SWITCH REGISTER CHANGE

2820
2821
2822
2823

INTERRUPT MODE INDICATOR

ROUTINE.

;Rou7§ié S ENTERED FROM THE TRAP HANDLER, AND WILL
'#SERVICE
THE TEST FOR CHANGE IN SOF TWARE SWITCH REGIST;R TRAP CALL
: #WHEN OPERATING IN TTY FLARG MODE.
$CKSWR: CHP
#SWREG, SWR
;1S THE SOFT-SWR SELECTED”?

2824
2825
2826

BNE
TsT8
BPL

158
asrxs
15§

2827
2828
2829

MOVB
BIC
CMP

a$TKB, - (SP)
8$tC17? (SP)
o? (SPY+

2831

cCMPB

$AUTOB, 8!

TYPE

2830

BNE

283t
gggg

::YES

.IF B
illlll!ilill!lilli!ilil!!ilillll!llll!illlfllli!lllllil!lillliliii

9
2800

26833
234
2835

"EXIY
Hflg anxrxnc’
::f? No$
1

279%

ggig

SEG 00%S4

lROHTINE ¥s ENTERED FROM THE TRAP HANDLER, AND WILL
:#SERVICE
THErsgr FOR CHANGE IN sorruans SUITCH REuISTER TRAP
:#CALL WHEN OP
fxwf IN TTY NTERRgPT
M g
$CKSHR: CMP
$SWREG, SWR
FT-SWR SELECTED

2793 006120 021627 000007

2813

PRAGE SY4

; #SOF TWARE SWITCH REGISTER cnnncs ROUTINE.

2;88 ooeice
57
882185 f“%;;
108121
2791

(1046)

BEG
006I1SE

0DElE2
00tiee

104401

10440!
01374

00700%

007012
00017€

CIFTF

SGTSWR: TYPE
IF NB MOV

P BRANCH IF
NO
,,cnnp THERE
?
¥
Hgon
T WAIT AROUND

nvE t
: :STRIP-OFF rus ASCII
;1S IT R CONTROL G?

i iNQ,

158

: 'BRANCH IF YES

scanc

: ;ECHO THE CONTROL-G

' §MSLR
LAREG, - 1SP)

"RETURN TO USER

‘ARE WE

RUNNING IN AUTO-MODE"
(4G)

::TYPE CURRENT CONTENTS
:;SAVE SWREG FOR TYPEOUT

CZRICBO,

RPOM S.6 HERD ALNMT

CZRICB. P11
2839
28490
2841
2842
2843
gg:g

006172
006174
006200
00b20e
00620N
006210

2846

006212

O4-NOV-77 12:49
108402
104401
005046
005046
106777
100375
11?2746

006216

042716

2850
2851
2852

006222
00be26
006230

021627
00101S
104401

2855
2856

46
006250

gg:g
2849

2853
o854
2857
2858

2859
2860

2861
2862
2863

2864

5322

2867

2868
2869

006234
006290
006256

006262
006266
006270

003

osgros
123727
001003
012777

006773

000001

000100

172666

021627
001005
104401

000023

9s:

ADD
CHPB

ke oP
SINTAG, 81

;;C%EAN UP ?TACK
' 'REENABLE TTY KEYBOARD INTERRUPTS?

INF

sTARt1

1 CONTROL-C RESTART

CMP
BNE
TYPE

(SP), 825
108
SCNTLU

::1S IT A CONTROL-U”?
:'BRANCH IF NOT
:1YES, ECHO CONTROL-U (tU)

BNE
MOV

8s
2100, 98TKS

: BRANCH IF NO
ALLOW TTY KEYBOARD INTERRUPTS

ke SP

: IGNORE PREVIOUS INPUT

006302
006306

021627
001022

00001S

108:

CMP
BNE

(SP), #1E
16%

215 IT R (CR>?
P IBRANCH IF _NO

006300

000737

006314

006330
006334

001403

104401
123727

006342
006344
006352
006354

001003
012777
000002
004737

006364

002420

006360
00636k

021627

006372
006374

003015
042726

g
68?7
2888
2889

00404
006406
006410
00412

001403
006316
006316
006316

2894

0O0e432

289C
289!
2892
2893

::1S IT A CONTROL-C?
TBRANCH IF NOT
:1YES, ECHO CONTROL-C (1)

ADD

000002
000006

2885

(§P),n3
3
§CNTLC

SMAKE 1T 7-BIT RSCII

208 :

016677
062706

2883
2884

"ENDC

007000

006316
006324

2682

:;PICK UP CHAR

€1C17%. (5P)

000006

2872
2873

2881

dSTKB, - (SP)

062706

000004

2680

MOVB

006274

005766

2876
2877
2878
2879

8%:

PAGE SS

::G0 TYPE--OCTAL RSCII(ALL DIGITS,
: PROMPT FOR NEW SWR
'CLEAR COUNTER
' THE MNEW SWR
' 'CHAR THERE"”
::IF NOT TRY AGRIN

CMP
BNE
TYPE

000006
001135

DOS

, SMNEW
1(sP)
-(SP)
9$TKS
78

.IF NB START]

000003

17:31

TYPOC
TYPE
CLR
CLR
7578
BPL

BIC

177600

006310

2874
2875

78:

172730

26870

2871

19%:

172734

O0CI460

O4-NOV-77

TTY INPUT ROUTINE

007023

000137
002

MARCYI1l 30(1046)

006400

00e414
006420
006424
(0e42e

00S76E

00S266
O0S6EIE
000667
104401

000720

172614

00116l
001135

000001

000100

172572

005044

0000&0

19¢

:ILET’S TRY IT AGRIN

IS IT THE FIRST CHAR”

TST

4(SP)

'IYES,

118:

MOV
ADD

2(SP), 3SR
86 SP

1 SAVE NEW SWR
: 'CLERR UP STRCK

15§:
168:

BNE
MOV
RTI
JSR

158
#100, 38 TKS

PC,STYPEC

: 'BRANCH IF NOT
: 'RE-ENABLE TTY KBD INTERRUPTS
: 'RETURN
: 'ECHO CHAR

BLTY

18%

BGT
BIC

18%
860, (SP)+

BEQ

148

000067

TYPE
CMPB

CMP

CHP

000060

000002

000002
17777€

17§:

0OC11EC

188 :

118

SLRLF
$INTAG, 81

::CHAR < 07

(SP), 467

PICHAR > 77

2(5P)

INC
BIS
BR
TYPE

2(SP)
-2(SP), (SPs
7S
$QUES

P 1ECHO <CR> AND <LF>
":RE-ENRBLE TTY KBD INTERRUPTS?

(SP), 860

75T

BEG
RSL
ASL
ASL

: 'BRANCH IF YES

: BRANCH IF YES
: 'BRANCH IF YES
:'STRIP-OFF RSCII

;115 THIS THE FIRST CHAR

178
(SP)
(SP)
(SP)

: 'BRANCH IF YES
:'NO, SHIFT PRESENT
::"CHAR OVER TO MAKE
!}
ROOM FOR NEW ONE.

20¢

: 'SIMULATE CONTROL-U

:'KEEP COUNT OF CHAR
:'GET IN NEW CHAR
“1GET THE NEXT ONE
SITYPE "<CR><LF)>

CZRJCBO,
RPO4 S-6 HERD ALNMT
CZRJICB
8.1l
J4-NOV-77 12:49

2895
9%

MRCY11

30(10%6)

O4-NQV-77

TTY INPUT ROUTINE

00!
000

.ENDC
-ENDC
.DSARBL

001

17:31

EOS

PAGE Sb
SEG 00Se

LSB

.IF B

;i;;llll!l}!lllll!iiil*l!lliilllliiii!iliil!ll{l!lili!iliilllliii

CNLIST
,fit;l’lliilliiilil!llllililil!iliilill!illiil!!li*l*llll!ill!iiii

.ENDR
.LIST
-ENDC
.%g FB -

Y] VLYY
D DO O DDHODO
n s o Pt Pest P Pt st Pt
o OONOCN LW

000
001

:ggrs ROUTINE WILL

IFT

xrr

RDCHR

:;GET A CHARACTER FROM THE QUEUE

xrrr

RDCHR

: s INPUT A SINGLE CHARACTER FROM THE

RETURN HERE

: : CHARRACTER

JIFT
$RDCHR:

MOV

006434

011646

0Cb444
006450

00S066
002
00S046

00e4S2
ggg:gg

001
012746
006002

006460
006464
006
006472
0065

005727
001775
005337
117766
005237

gge512

501003

006436 O0l6666 000004 000002

006504
006E14
00eS22

023727

012737
006002

CO000H

00S566

005566
1727074
005572

MOV

(SP)

*'WITH

utspi, SP)

IS ON THE

PARITY

BIT

STACK

STRIPPED

: :PUSH DOWN THE PC AND

:1GET READY FOR A CHARACTER

’

MOV

%0, -(SP)

; ;PUT NEW PS ON STARCK

bus

MOV
RTI

#64$, - (SP)

;;PUT NEW PC ON
STACK
1:POP NEW PC AND PS

1ST
BEQ
DEC
MOVB
INC

$TKCNT
18
§TKCN
aSTxoour 4(SP)
$TKQOUT

;;WAIT ON A CHARACTER

18:

000004

005572

005603

cMP

00SS74

005572

MOV
RTI

a?ér

$RDCHR: MOV
MOV
18:

1578
BPL

MOVE

; ;PUT NEW PS ON STACK

: s DECREMENT THE COUNTER
,.GET ONE CHRRACTER
uponrs THE POINTER

$TKQOUT, ISTKQEND

-0ID IT GO OFF OF THE ENC”
RANCH IF NO

BSTKGSRT, $TKGOUT' : RESET THE POINTER
,,k

(SP),~(SP)
4(SPY,2(sP)

,,PUSH oouN THE PC
,,sn € THE PS

JETKB,H(SP)

: iREAD THE TTY

J$TKS
18

OFF

P THE PS

CLR
4(5P)
.IF IDN (%0>, 80
IFF
CLR
-(SP)
.ENDC

006460

INPUT A SINGLE CHARACTER FROM THE TTY

,, RIT FOR
. 'R CHARACTER

TTY

RPO
Bl 1

S 6 HEQQ’GLNHT

-NOV~DH

MACY1l

30(1046)
TY

INPUT

O4-NOV-7??
ROUTINE

BIC

CMP

2s.

FOS

PAGE S7

SEG 0057

#1C<177>,4(SP)

4(SP), 823

;;GET RID OF JUNK

IF ANY

..IS IT A CONTROL-S?

BNE
7578
BPL

33
S TKS
2%

BIC
CMP
BNE

8¢C177, (SP)
(SP)+, k21
28

i iMAKE 1T 7-BIT ASCII
11S IT A CONTROL-Q?
:11F NOT DISCARD IT

cMP

Y(SP), 8140

115 }T UPPER CRSE?

cHP

4(SP), 8175

BIC

#40,4(SP)

MOVB

3%:

17:31

BLTY
BGT

ys:
RTI
.ENDC
IF NB 7
. IFF
.NLIST

dSTKB,

: 'BRANCH IF NO
:'WAIT FOR A CHARACTER
21 00P UNTIL ITS THERE

-(SP)

:1GET CHRRACTER

;i YES,

RESUME

,.ennncn IF YES

: "BRANCH IF YES

*1S

IT A SPECIAL CHAR?

:'MAKE

IT UPPER CRASE

160 BACK

TO USER

$RDS2=8.
LLIST
-ENDC
.%g GT SRDSZ-1

0co
oci
00e

H i;;Illliliiil’ilifilfililiil!llfll!!iiii!ii}l}}ii*!iiilfl*ii!!i!!iii

CNLIST

fil;i!illlllillvlll!lflll!iiiliiliifllQQlllliiiiiiliiii§§§§l§§§§§§i [ X 2 3

ENDR
LIST
"ENDC

ool

,;ngs ROUTINE

i
‘s

00eSe4
00esSee
00ec30

006534
00esH40
00esH4e
0044

01034¢
gge
00SsG46
001
012703
0Ce

006760

00&7e7

RDL IN

RETURN

WILL

INPUT

STRING

HERE

FROM

THE

TTY

: s INPUTA STRING FROM THE

: ADDRESS OF
P TERMINATOR

SROLIN: MOV
LIF NB «X>
ENoC
cL

R3, -(SP)
-(SP)

)
: ;CLEAR THE RUBOUT KEY

lfr 8

#STTYIN,R3

: : GET ADDRESS

7 MOV

; ; SAVE R3

afrr

CMP

sSTTYIN+8.
,R3

;;BUFFER FULL”

agaoc

cMP

8STTYIN+7 ,R3

; ;BUFFER FULL?

BLOS

MOYVB

(SP,+, (R3)

ROCHR
JIFB 7?7
.IF NB STRRTI

TTY

FIRST cnnnacrea WILL BE ON
WILL BE
R BYTE OF ALL 0'S

:BR

IF YES

,,co READ ONE CHARACTER FROM THE “Tv

' 'GET CHARRCTER

THE

STACK

Lr& R2(BO
-~

RJC B

S & HERD ALNMT
RPO4.

fil

Q4-NOV--7 12:49

MRCYii

CMPB
BNE

3007
3008

TYPE

.IIF NB X,
MOV

006546

.ENDC
-ENDC

108:

0001?77

LIF

006esse

006756

006756
006756

cs:
000134
006756

006756

000025

8s:

000022

006676
006702

.ENDC
4s:

001i60

38:

006756
006756
00001S

BNE
MOVB

6%
$'\,98

;;BR _IF NO
;s TYPE A BRCK SLRASH

MOV

k-1, (sP)

TYPE
BR

ooe7e?

R3
R3, #STTYIN
4s
(R3),9%
q¢
s

;3 SET THE RUBOUT KEY
; ; BRCKUP BY ONE

;3 BR IF YES

;;SETUP TO TYPEOUT THE DELETED CHAR.
:;G0 TYPE

;G0 RERD ANCTHER CHAR.

; s RUBQUT KEY SET?
;sBR_IF NO

;; TYPE A BACK SLASH

CLR
CHMPB

tsp)
825, (R3)

: ; CLEA
:11S CHARACTER A CTRL U”

BNE

CMPB

BNE
CLRB

R_THE_RUBOUT KEY

;:BR _IF NO
;; TYPE R CONTROL *U”

SCNTLU

; ;G0 START OVER
;1S CHARACTER R “tRTM”?
; s BRANCH IF NO
; ;CLEAR THE CHRARACTE

822, (R3)

3¢
(R3)

,SCRLF

:: TYPE

STTYIN

THE

INPUT

STRING

; ;GO PICKUP ANOTHER CHACTER

BNE

:;SKIP IF NOT

TYPE

B8R

MOVB
TYPE

TYPE

;;JTYPE A

$QUES

"7’

; sCLEAR _THE BUFFER RAND LOOF

(R3),9%

; ;ECHO THE CHARRCTER

bisS, (R3)+

; ;CHECK FOR RETURN
:;LOOP IF NOT RETURN
;;CLERR RETURN (THE 15)

2$
-1(R3)
SL

.IIF NB X/,

tst

MOV

(§P),

93 :

;: 15 THIS THE FIRST RUBGCUT?

(SP)

(SP)
78
8’\ 9%

CMPB

000002
000004

; :GOTO CONTROL-C RESTART

TST
BEQ
MOVB

MOV

000004
00e?7eC

: ;RESTORE ' R3

;:BR IF NO

DEC
CMP
BLO
cve

(1()

:; CLEAN RUBOUT KEY OFF OF THE STACK

BNE
CLRB

177777
0ol1iee

::TYPE A CONTROL-C

BNE

TYPE

CIFF

(SP)+ R3

(SP)+

;1S IT A RUBOUT

TYPE

0o6E74

SCNTLC

#177, (R3)

TYPE

007000

;1S IT A CONTROL-C”?
; s BRANCH IF NO

(R3)

t5Y

SEG O0ce

CMPB

TYPE

78:

PARGE S8

sTARTY

TYPE

6S:

006760

83,
10

GOS

JMP

TST

000134
006756
177777

17:31

04-NOV-77
3 0(1046)
TTY INPUT ROUTINE

(SP)+,R3

(SP+

2 (SP)

MCV
gg¥

4ispy . 2(sP,
sSTTYIN GicP,

BYTE
.BTTE

O
8}

;s TYPE A LINE FEED

- s CLEAN RUBOUT KEY FROM THE STARCk

; ;RESTORE 'R3

: ;ADJUST THE STACK AND PUT RDORESS OF THE
..

[

FIRST ASCII

; s RETURN

CHARACTER ON

; ;STORAGE FOR ASCII CHAR.

;s TERMINATOR

TGO TrPE

';Eo

RPOY 8 & HEAD

SIRICB AL
3063
gggg
3066

306-

00”60

3069
307G
30r1
3C:
3073

klehe!

3077

3078

ole}|

006767

20T

00C

3083
3084
3085
3086
308"
gggg

007000
007005
007012
007020
007323
067030

308!
3092
2093

3084

8 BYTES FOR

TTY

INPUT

§TTYIN:

; ;RESERVE

7 BYTES FOR TTY

INPUT

.BLKB

I11IF NDF SQUES, SGUES:

11F EQ .-SQUES,SQUES:
1IF NOF SCRLF,$CRLF:
1IF EQ .-SCRLF,SCRLF:
1IF NOF SLF,SLF:
J1IF EQ .-SLF SLF:

JENDC

IF NB 7
11F NDF S$BELL,SBELL:

000

.I1IF €EQ .-SBEL(,SBELL:

ENDC
IF

: ;QUESTION MARK

.ASCII

<1S»

: CARRIAGE RETURN

.RSCIZ

: :LINE FEED

.ASCIZ

<207>¢377>¢377>

'é§5c5° .-SCNTLL SCNTLC:

.RSC1Z

0S2536
136
00S0iS
020075
040
oaesgo

005015
006507
053523
000
047040
0G0040

000
o0000I2
020122

SCNTLU:
S$CNTLG:
SMSWR:

.ASCIZ
.ASCIZ
.RSCIZ

/tU- <1512,
/t6/<15>¢1d>
<15>¢12>/SWR

: s CONTROL
: 1 CONTROL

053505

SMNEW:
IF NE

.RSCIZ
SSETUP

001

;;CODE FOR BELL

N8 START}

NEW =

.1IF EG .-SAUTOB, SAUTOB:
.1IF NOF SINTRG tgnrnc:
C1IF EQ .-SINTARG, SINTAG:

-ENDC

-IIF NE

/#Cr/«15>¢12,

: ;CONTROL "C"

"U”
"G*

S11F no? Enurog iguroa:

.BYTE

: ;AUTO MODE FLAG

.BYTE

: : INTERRUPT MODE FLAG

18.,.EVEN

RANDOM NUMBER GENERATOR ROUTINE

.IF B

; i4riiilliiiiii¢§lilQil'li}l*iiiill!ll»!!il’lli!ilifiibiilliiliiiili

"YcF

2101
3102
3103
3108

CN_IST
.REPT
LIST
PR
RRR

z10e
3107
210€
3109

.ENDR
SLIST
JENCC
:#THIS ROUTINE

3108

‘ALIST

200

g%i?

‘*Eélt A

- o

2112
2113

3118
3%*2

Z1le

000012

‘

3117

.ASCII

1IF NDF SCNTLC,SCNTLC:

.SBTTL

:33?38

SEG OC

006503

gggg
2098

PAGE S9

: ;RESERVE

.ENDC

177777

HOS

688

0ocC

3C9s

ROUTINE

17:31

001

00e"7

INPUT

O4-NOV-77

IF B <
s;;;rn: .BLKB

001

3885

3930

000007

30(1046)

000

3079

308C

12:49

MACY1l

oo2

3068

3075
3076

4 SNOV-+7

ALNMT

e
T e

GC7034
OC?839

01004

$RAND:

RANGE

RN R A RAR AP F R AR AR AR R R R

FRR AR AR AR R AR R ERRARRRRE S

R
IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

TG0

2(+33)-1.

JSR
RETURN

FC, $RAND

MOV

RC.-(SP)

:;CALL THE ROUTINE
: 'RETURN HERE THE RANDGM
" 'NUMBER WIL. BE
: * §HINUM, SLONUM

: ;PUSH RO ON STACK

Cat,
OO

BO,

VY -

007036
007040

010146
010246

2
3

00704
007052

013701
012702

S
€

007060
7062

R R RV

)

W W ) W W W

LfLfLricrfw W)
() W
P

007042

007056

007064

013700
006300

001374

007066
007072
007074

063700
005501
063701

2
3

007104
007106

005501
062701

007116

010137

007124

012601

8
§
0
1
g

Y
E

007100
007112

007122
007126
007130
007132
007134

MACY11l

30(1046)

062700

010037

012602
012600
000207
176543
123456
001

007134

O L o

7
g
g
1

2
3

18:

SHINUM,RI
$-7,R2

ROL
INC

SEC DOEC

::PUSH Rl ON STACK
:1PUSH R2 ON STACK

SLONUM, RO

PISET RO WITH LOW

J:SHIFT

$'SET RI WITH HIGH
:1SET SHIFT
COUNT

R1
R2

RO LEFT

AND

: 'ROTATE CARRY INTO Rl
: 'CHECK FOR DONE

AND
129

: :CONTINUE SHIFT LOOP

007132

ADD
ADC
ADD

$LONUM, RO
RI
SHINUM, R

P ADD NUMBER TO MAKE X
: :PROPOGRTE CRRRY
:'ADD NUMBER TO MAKE X

047401

ADC
ADD

R1
847401,

: : PROPOGATE CARRY
::ADD HIGH CONSTANT

00132

MOV

R1.

MOV

(SP)+.R1]

001057

ADD

007134

#1057, R0

MOV

SHINUM:
SLONUM:
.SBTTL

:'ADD LOW CONSTANT

RO, SLONUM

MOV

129

: { SAVE RO

SHINUM

:'SAVE Rl

(SP)+,R2

:'POP STACK INTG R2

MOV
(5P)+ RO
RTS
PC
.WORD
176543
.WORD
123456
INTEGER DIVIDE ROUTINE

: 'POP STRCK INTO RI

:'pOP STACK
. *"RETURN

INTO RO

IF B
H i;;lllill‘lilflllilll!il!llil&iililii!ililllliilll!liliiiiiiiiiiifl
REPT

FREBEEREEEREER S BEBLEAR IS

JENDR
000

SLIST
.ENDC

:#THIS ROUTINE WILL DIVIDE A 32-BIT TWO’S COMPLEMENT

INTEGER

:«DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING

‘%A 16-BIT TWO’S COMPLEMENT INTEGER QGUOTIENT AND A
‘#DIVISION WILL BE PERFORMED SO THRT THE REMRINDER
='§EKE SIGN RS THE DIVIDEND.

;¥
i

MOV
JSR

PC,S$DIV

“v*z0

IMPLIES NO ERROR

RETURN

‘e

“v*=]

g
g

tx
e

1
3

e
e

STACK

TOP

16-BIT REMAINDER.
IS OF THE

;;THE HIGH DIVIDEND MUST BE

HIGH DIVIDEND, -(SP);

MOV

LOW DIVIDEND,-(SP)

MOV

NNNNND LAy A AL

MOV
MOV

BNE

R1,-(SP)
R2. -(SP)

RSL

007134

PRGE 3 &0

.LisT
;&l;é?iil!lil}llll!ll!iiiliflifi*lf

2
g

I0S

NLIST

9
?

17:31

MOV
MOV

MOV

007132
177771

04-NOV-77

RANDOM NUMBER GENERATOR ROUTINE

006101
005202

8
9
0

G T TO TV TOTT TG T T T, I o

e et Pt Pt B

NRTAUN NN TR IN AN AINIRINIRTRIRTRTRTRTRTNTARTRTNY LI W L) Wi W ) W W W

O4-NOV-77 12:49

9
0

0B Pt Pt Pt Bt Dt P Dt b Bt ot Bt bt Bt Dt Pt Bt Bt Pt s Pt Bt e ot Pt e Be

(W W W W W W o W

B.PLI

00§t Bt 50 Bt Bt Pt B Bt Bt Bt =0 Dt Pt Bt Do et -t it Bt et Bt o

RPOY S.6 HERD ALNMT

RS LARGE RS THE DIVISOR

DIVISOR, -(SP)

~ DIVIDE OVERFLOW OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

eeeees

NO ERROR
mceceeee

REMAINCER

1.2

: ;QUOTIENT & REMAINDER ARE ON THE STACK

IMPLIES ERROR OCCURRED

“c»=0
»C»=]

CVERFLOW
mesecssca

ALL

ZEROS

|||

UIVIDE BY ZERO
mececccecccecee--

ALL

ONES

MACY11l

04-NOY-77
17:31
INTEGER DIVIDE ROUTINE

30(1046)
R

VoIV e 1V}

s ;STRIP AKAY CONDITION CODES
:1PUSH RC ON STACK
:PUSH Rl ON STACK

000021
000024
000022

000003

18:

000020
000003
177777

;s SAVE A PLACE FOR SIGNS
;3SETUP THE ITERATION COGUNTER
; ;PICKUP THE DIVIDEND
;;CHECK _THE SIGN

; s KEEP TRACK OF THE SIGN
; ;AND NEGATE THE ORIGINAL
; s NUMBER
OIVIGOR

SIGN
01 S A NO-NO

000014

0oco0e

; ;KEEP TRACK OF DIVISORS SIGN

39:

; sNEGATE THE ORIGINAL NUMBER
: :CLERR “C*

S%:

3212

;i EX

29:
4%

6%:

6
RO
RO,R3
R2,R3
69
R3,R0O
R1
(SP)

:'START FORMING QUOTIENT

R1
8%
#2, 14(5P)
R
R1

s s OVERFLOW?
HH
IF NO
PISET VTM IN RETURN STATUS WORD
:SET REMAINDER TO ALL ZEROS
:1COPY REMARINDER INTO QUOTIENT

1'POSITION MSB’ S
: 1 COPY
DEND
>

0100ee

000020
0000l1Ee

10¢%:

: 'CLERR COUNTER FROM STACK

: 'NEGATE REMAINDER

-t

; ;CLERR SIGN
:BUT DON’T FORGET QUOTIENT
;;SEOI}ENg SIGN CORRECTION NEEDED?

N
; iNEGRTE QUOTIENT
i

(1%
A

“RS"?}"RER SIGN CORRECTION NEEDED?

000001

J+
)

g¢:

000014

000002

DO V= —~~—=DLOH~—~
~—~ X
Or—-— VN ~OMUINOO
WKV OV
i)
—n
-0

007334

STARCK

005600

ALL ONES

;3 SAVE THE PSW IN

.ENDC

wnn v 020 DWW NI
WARAOO—0O~mL

00000
& 88’-009
o.-»-.-B.-»—.—.—;
nNNOOOOoON
pe
&
C
O VDU’}).—O NO
FRES
o
g oo
N

FRALROF
£S5

Pt P

Pms

NNNNNNINNNN

st P

0400

SEQ 006!l

; ;PUSH OLD PSW AND PC ON STRCK

.IF NB

000017

PAGE &1
ALL ZEROS

QUOTIENT

SOIvV:

228823888

DDVDOMWEOMMMDMMO
I

KRR
S
REOREE \Dg\lgiflfw}g'—O\D(DVC‘U"IUNHO\DQ\IU‘U‘ o

Celyy

Nty
00

NIRRT WWWWWWILWWWWWWWWWWWWWWWWWW
WAYAAY)Bt 0t Pt Pt s Pt s Pt P et Pt Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P

RPO4-/5.6 HERD ALNMT
04-NOV-77 12:49

P11

W)Wt
LIty
[AV1aVIaV
T4 VIV T V1o Y]

OO0

; sRETURN QUOTIENT AND
; ;REMARINDER TO USER

RPO4/5/6 HERD ALNMT

P11

007340
007342
007344
007346
007350
007354

D4-NOV-77 12:49
012603
012602
012601
012600
012666
000002

MRCY11l

30(1046)

17:31

KOS

INTEGER DIVIDE ROUTINE

000002

.SBTTL

001

0O4-NOV-77_

MOV
MOV
MOV
MOV
MOV
RTI

PRGE &2

(SP)+,R3
(SP)+.R2
(SP)+ R}
(SP)+.RO
(SP)+.2(SP)

SEG 0082

; ;POP STACK INTO R3
::POP STACK INTO R2
::poP STACK INTO R
1:pOP STARCK INTO RO
:SETUP TO RETURN CONDITION CODES
:
*RETUR

SAVE AND RESTORE RO-RS ROUTINES

.IF B

; i;;!lil!li}llifi!lllllllllilil!lllllli!!l!l!llllll!ll’ll!iilllii

CNLIST

56T

E&l}»;#illlillI»I»l!!ll»!l»lvIllllfll!il!!lil!liiiil!!lllillillllllllli!i
"L

-ENDR
SLIST
ENDC

000

; #SAVE RO-RS
; #CALL
:
% ]
SAVREG

;:UPON RETURN FROM SSAVRIEG THE STACK WILL LOOK LIKE:

P #TOP---(+16)

;% +2---(+18)

‘%
‘%

44---RS
+6---RY

;# +8---R3
s #+10---R2
t#+12---R]
s #+14--~R0O

007356
007356
007360
007362
007364
007366
007370

010046
010146
010246
010346
010446
010546

007376
007402
007406
067412

016646
016646
016646
000002

007372

016646

$SAVREG:

000022

MO
MOV
MOV
MOV
MOV
MOV

MOY

000022
000022
000022

MOY
MOV
MOV
RTI
. $RESTORE

007414

007436

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3, -(5P)
R4’ -(SP)
RS -(SP)

: ;PUSH
::PUSH
:1PUSH
:1PUSH
:PUSH
*1PUSH

22(5P) | -(SP)
22(SP) ! -(5P)
22(5P) ) - (5P}

: SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
1:SAVE PC OF CALL

22lsP), -(SP)

RO
Rl
R2
R3
R4
RS

ON
ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK
STACK

P'SAVE PS OF MAIN FLOW

RO-RS

P gCALL: e cRrEG

666

000022

666

0000ce

$RESREG:

MOV

SP)
gg;

MOV

SP)

; ;RESTORE PC OF CALL

; ;RESTORE PS OF CALL
:IRESTORE PC OF MAIN FLOW
*IRESTORE PS OF MAIN FLOW
:POP STACK INTO RS
'POP STRCK INTO R%

CZRJCBO

RPO4/5-6 HERD RALNMT

CIRICB. P11
3287
3588
3289
3290
3291
3292
3293
3294
3295
32
3297
3898
3299
3300
3301
3302
3303
3304
330¢%
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317

007440
007442
007444
007446
007450

O4-NOV-77 12:49
012603
012602
012601
012600
000002

30(1046)
SAVE AND

LOS

0O4-NOV-77
17:31
PRAGE 63
RESTORE RO- RS ROUTINES
MOV

MOV
MOV
QOY
.SBTTL

001

IF B
s

“YFF

(SP)+,R3

(5P)+.R2
(5P)+ RI
(SP)+ RO

SEG 00e3

; ;POP STACK

INTO R3

*1pOP STACK
:1pOP STACK

INTO RI
INTO RO

::POP STACK

INTO R2

TRAP DECODER

2222222222222

222322222222 22222 22222222222 222

222222222

222

CNLIST
REPT

SLIST

(23332223243

‘hL1sT
.ENDR
LIST
.EN DC

000

; ¥THIS

ROUTINE

2222223 22 Q2222222222222

WILL

PICKUP

THE

322222222222 222322232222222¢2 %)

LOWER BYTE

THE

“TRAPTM

INSTRUCTION

;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;%0F THE DESIRED ROUTINE. THEN USING THE ADORESS OBTAINED IT WILL
;#G0 TO THAT ROUTINE.
0074s2

001
010046

IF B
sgnap

§TRAP:

23{2 007454 015288 000002

3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
333¢
3337

MACY11

007460
007462

005740
111000
001

.IF NB

STRAPI:
.ENDC
IF NB

000
0CI

007464
007466
007472

000
006300
016000
(000200

18:
.ENDC

.ENDC
007506

MOV

RO, - (SP)

; ; SAVE RO

MOV

2(SP),-(SP)

: ;RSSUME THE STATUS OF

MOV

RO, - (SP)

:.SETVE THE
NEW STATUS
RO

MOV
TST
MOVB

E(SP) RO
-(R0)
(RO),RO

BPL
BIC
JMP
WORD

STRAP]
#1C177 RO
(PC)

CMP
BGT
HALTY
BR

#STERM,
RO
.+6

; HANGUP

RSL
MOV
RTS

RO
$TRPAD(RO)
RO
RO

,,POSITION FOR INDEXING
;s INDEX TO TRBLE
;3GO TO ROUTINE

gIC
MOV

RTI

820, (5P)
818 -(SP)

THslgflLLERg-DO NOT ALLOW

.,GET TRRP RADDRESS
; BACKUP BY 2

;3GET RIGHT BYTE OF TRAP
; ; NON-USER

TRAP aELou 200

:ISTRIP AWAYTHE JUN

; ;USER_TRAP, RBOVE

0llede

STRAP2:

MOV

(SP),-(SP)

GO TO

,,CSE?K SOR OUT OF BOUNDS

:;0UT _OF BOUNDS

;s THIS IS USE TO HANDLE THE “GETPRITM MRCRO
OC7474

177

) USER TRAP HANDLER-'

; sMOVE

THE

DOWN

CZRJCBO,

RPOY-S-6 HEAD ALNMT

CZRICB. P11
3343
334;

007476
007504

O4-NOV-77 12:49
016666
000002

000004

MACYil

30(1046)

0O4-NOV-77

TRAP DECODER

000002

MOV
RTI

17:31

MOS

PAGE 64

4(SP),2(SP)

| SEG 00&H

s :MOVE THE PSW DOWN
: iRESTORE THE PSW

ggsz

.MACRO

?ETTIRAP
5 AB \<?nnp+srnp> \$TRP, (MSG>

3349
3350
335]
3362
3353
gggg

§TRP=§TRP+]
LIST
snon
SETTRAP
"MACRO
$SSET
R,B,C,D,COMNT
-IF EQ STRP-1
'SBTTL
TRAP TABLE

3356
3387
33S8
3359
3360

iTHIS TRBLE
CONTARINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
#BY THE “TRAPTM INSTRUCTION.
;
ROUTINE
Tt

3361

$TRPAD:

3362
3363
3364
3365
3366
33e”
3368
3369
3370
3371
3372

061
002

gg;g
3375

.WORD

sar L

.TH1§ TRB%E gonrn NS THE STARTING ADDRESSES OF

; #BY

gg;e

ROUTINE

$TRPAD:

.WORD

3381
3382
3383
3384
3385

TRAP+D(C)

00750e
007510

ggg;

007474

001
004674
000
001
oc2

COMNT

TRAP TRBLE

gg;g

3380

$TRAP2

.ENDC
.I1IF NDF GNS,.NLIST
A=
.IIF NDF GNS,.LIST
. :CALL=A
. ENOM
as;r
" MACRO
MIRP
§TERM=. -$TRPRD
_ENDM = TRMTRP
xr DF $TYPE
; STRP-1

THE

.ENDC

“TRAP*

STYPE
.ENDC
JIF DF srvpoc
.IF EQ STRP-1

1SBTTL

INSTRUCTION.

THE ROUTINES CALLED

STRAP2
;;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

TRRP TABLE

3388

lTHIS TRBLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

339]
3392

:
!

gggg

#BY THE *TRAPTM

3293

3394
ggqs
q

0c7s12

001
005640
0e

$TRPAD:
.ENDC

.IF

ROUTINE
ememe-

.WORD

$T1POC
EQ STRP-

"8BTYL

INSTRUCTION.

S$TRAP2
;;CALL=TYPOC

TRAP TABLE

TRAP+2(104402)

TYPE OCTAL NUMBER

(WITH LEADING ZEROS:

RPO4/S.6 HEAD QLNHTq
ZRJCBO,
"Bl
O4-NOV-77 l2:H4
<

MACY11 30(1046)

O4-NOV-77

RAP TARBLE

17:31

NOS

PARGE 65

SEG 00&S

; #THIS TRBLE CONTRINS THE STRRTING RDDRESSES OF THE ROUTINES CALLED

;#BY THE “TRAPTM INSTRUCTION.

007514

001
00S1iM4
00e

ROUTINE

traggo:

.WORD

STRAP2

$TYPOS

;;CALL=TYPOS

.IF _EQ STRP.SBTTL
TRAP TABLE

TRAP+3(104403)

TYPE OCTAL NUMBER (NG LEADING ZEROS)

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

007516

3421

001
005]1tS4
0oo
00l
00e

ROUTINE

tgspno: .WORD

STYPON

’

STRAP2

;;CALL=TYPON

TRAP+4(104404)

TYPE OCTAL NUMBER (RS PER LAST CALL:

.IF DF STYPDS
.IF _EQ STR

.SBT L

TRRP TRBLF

%THIS Yooz CONTRINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

iBY THE ”TRQP“ INSTRUCTION.
;

000
001
0oe

$TRPAD: .WORD
.ENDC

ENDC

$TYPDS

STRAP2
;;CALL=TYPDS

TRAP+5(104405)

TYPE DECIMAL NUMBER (WITH SIGN)

.IF DF STYPBN
SETTRAP TYPBN,STYPBN, t/TYPE BINARY (RSCII) NUMBER/
ENDC
.IF DF $GTSWR
-IF EQ STRP-1
.SBTTL
TRAP TABLE

;#THIS TRBLE CONTRINS THE STRRTING ADORESSES OF THE ROUTINES CALLED

‘#BY THE “TRAP* INSTRUCTION.
;

007522

00!
GOOblbe
ooo
g0l
002

ROUTINE

$TRPAD:

.WORD

STRAP2

ENDC

$GTSWR

;;CALL=GTSUR

END

TRAP+6 (1044063

GET SOFT-SWR SETTING

.IF DF SCKSWR
.IF _EQ
G STRP- 1
.SBTTL
TRAP TABLE

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

“w

007c20

001
005342
000
00!

ROUITINE

W WWWwww W
L L L L L L L£

8»—»—-.—»—-»—-0—-»—DONON
LW

:#BY THE “TRAPTM INSTRUCTION.

CoaRJCBO,

RPOY S b HERD ALNMT

C2RICB. P11

O4-NOV-77 12:49

MACY11 30(1046)

O4-NOV-?7

TRAP TABLE

17:3.

BO6

PAGE 6B

3455

;#BY THE "TRAP" INSTRUCTION.

3457

;

3456

3u4sg
3489
3460

6]l

3462

007524

3463

001

006072

3464
g:gg

ROUTINE

I
$TRPAD: .WORD
.ENDC

000

.ENDC

002

.1F EQ
.SBTTL

0901

SEG 0066

.IF DF

STRAP2

SCKSWR

; ; CRLL=CKSWR

TRAP+7 (1C4407)

)

TEST FOR CHANCE IN SOFT-SWR

$RDCHR

STRP-1
TRAP TABLE

N67

;ruxs TRBLE CONTARINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

3470
3471

;
P

g:gg

#BY THE “TRAPTM INSTRUCTION.

3472
3473

34749

3475
3476
3477

007S26

g:;g

001

00BN434

000
001
062

ROUTINE
eccemen

$TRPAD: .WORD
.ENDC

SROCHR

.ENDC
.IF DF SRDLIN
-IF EQ STRP-1

.SBTTL

TRRP

S$TRAPZ
; ; CALL=RDCHR

TRAP+10(104410) TTY TYPEIN CHARACTER ROUY INE

TRBLE

3480

.rnxs TABLE CONTRINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

3482
3483
3484

;
ROUTINE
At

3481

#BY THE “TRAPTM

3485
3486

3487

3488
3485

007530

3480

346;

3432

001

006524

3434
3495
3496

gggg

.ENDC

SROLIN

000
001

.ENDC
.IF DF SRDOCT

809G

.ENDC

000
00]
00z

.ENDC
"IF DF $SAVREG
-IF EQ STRP-!

001

3493

$TRPAD: .WORD

INSTRUCTION.

STRAP2
;;CALL=ROLIN

)

TRAP+11(1044i1) TTY TYPEIN STRING ROUTINE

SETTRAP RDOCT,SRDOCT, t /REAC AN OCTAL NUMBER FROM TTY/

.IF DF SRDDEC

SETTRAP RDDEC, SRDDEC, t/RERD R DECIMAL NUMBER FROM TTY/

.SBTTL

TRAP TRBLE

3499

:#THIS YABLE CONTRINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

2602
3503

;
i

328?

:#BY THE "TRAP® INSTRUCTION.

3504

3505

3506

3507
gggg

2510

007532

001

007356
002

ROUT INE
TZE_ TR

$TRPAL: .WORD
.ENDC

STRAP2

$SAVREG ; ;CALL=SAVREG

.IF EQ STRP-1
.SBTTL
TRAP TARBLE

TRAP+12(104412) SAVE RO-RS ROUTINE

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

17:31

MARCY11 30(1g46)8 EH-NOV-77

CO6

PRAGE &7

[Ral-1'

; #BY

THE “TRWPTM

;

INSTRUCTION.

ROUTINE

§Z§S§°’ "WORD _ S$TRAP2
007834

rufufy
[N TT o8 OO
NL W

JRRARRIAR §

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

Coo

3524
35

-ENDC

SRESREG ;;CALL=RESREG

IF OF

$R2A

eroc

SETTRAP RZAZ%.S$R2AZQ

TRAP+13(104413) RESTORE RO-RS ROUTINE

SETTRAP R2AZ, SR2AZ
SETTRAP R2AZ.,SR2AZ,

ERRCAL
'MACRO
-YFCDF sEScAPE

N,M

RO,ES.SAV

;SAVE THE ADDRESS IN ’SESCAPE’

’

ERROR

;'M

.SBTTL

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

.ENDM

ERRCAL

: COPYRIGHT (? é

B Pn NT CORP.
DIGIARsau

auvuon<é) an LQCEY/CHUCK HESS
IF B

,t;;ill{lliillillilliiililiililiiillillQliilili!if!!lllllfi*l{lii*

-NLIST

h!;;lllliiilliillillllliiliiliiillilliliilili!iii!l!l!iiil*§i|!i
LIST
JENDR
LIST
-ENDC

000

;STORAGE FOR RPDSI, RPERl, RPER2, AND RPER3 ON AN ERROR "2*
RPERRS _ = RPDS!

RPERRS+2 = RPER]
:RPERRG+4 = RPER2
‘RPERRS+6 = RPER3
007536
007544

000000

000GGCTC

RPERRS:

.WORD

0,0,0,0

TABLE OF DRIVE RCTIVE INDICATORS (DRVRCT=8 BYTES:
;ORVARCT=0

IF DRIVE

IDLE

A COMMAND
;DRVACT>0 IF DRIVE IS ACTIVE WITH

:DRVACT<0 IF DRIVE IS RCTIVE WITH AN ERROR RECOVERY OPERRTION

01818
Gco

DRVACT:

.BYTE

O
0

;DRIVE O
:DRIVE |

CSRICBO,

RPO4/5.6 HERD ALNMT

MACY1! 30(1046)

04-NOV-77

CZRICB.PI1

GN4-NOV-77 12:49

3567

007550

000

.BYTE

3569
3570

007552
007553

000
00G

BYTE
‘BYTE

O
O

00755s

008

‘BYTE

3568
3571

3572

007551

007554

3679
3580
3581
3583
3584
3585
3586

007556
007557
007560
007561
007%62
007563
007564
007565

000
000
000
GO0
00G
000
000
000

DO7S6E

007567

007570
007571
(007572
007573
007574
007575

000

DRVSTR:

DRVTYP:

000
00G
000
000
000
000

i QRIVE &

BRIV

.BYTE
‘BYTE
BYTE
BYTE
BYTE
BYTE
‘BYTE
‘BYTE

O
O
G
O
O
O
O
O

:DRIVE
:DRIVE
!DRIVE
'DRIVE
DRIVE
!DRIVE
DRIVE
'DRIVE

O
1
2
3
4
S
b
7
ALSO)

.BYTE

:DRIVE ©

‘BYTE
‘BYTE
‘BYTE
‘BYTE
‘BYTE
‘BYTE

O
O
O
G
O
G

'DRIVE
!DRIVE
!DRIVE
!DRIVE
‘DRIVE
!DRIVE

‘BYTE

'DRIVE I

2
3
4
S
b
7

. TABLE OF DUAL PORT INITIALIZATION INDICATORS
iDPINT=0"IF INITIALIZATION I NOT ACTIVE ON THE DRIVE

3606

'DPINT<O IF INITIALIZATION IS IN PROGRESS

3608
3609
3610
3€1l
3612
3613

00757&
007577
007€00
007601
007602
007603

315

007e05

007604

000
000
000
0Ge
900
000
000
6c0

3€17

OPINT:

.BYTE
‘BYTE
‘BYTE
‘BYTE
‘BYTE
‘BYTE
‘BYTE

‘BYTE

O
O
O
O
O
O
0
O

.DRIVE
!DRIVE
!DRIVE
!DRIVE
!DRIVE
:DRIVE
!DRIVE
'DRIVE

0O
1
2
3
4
S
&

;TABLE OF PENDING DUAL PORT REQUESTS

3E18

.DPRGS=0 IF THAT
A DUAL PORT REQUEST IS NOT PENDING FOR_THAT DRIVE

319
3621
3622

DRIVE 4
:DRIVE 6

'DRVTYP=4 IF DRIVE 15 RPOG
'DRVTYP=-1" IF NOT RPQO4.5/6

3604
3608

3E14

;ORIVE 2

‘ORIVE
3

. TABLE OF DRIVE TYPES (DRVTYP=8 BYTE
DRVTYP=0 1F DRIVE IS NONEXISTENT (DRVSTA=0,
{ORVIYP=1 IF ORIVE IS RPO4
!DRVTYP=2 IF DRIVE IS RPQS

3632
3533
3897
3598
3599
3600
3101
3602

‘BYTE

SEG 0068

; TRBLE OF DRIVE STATUS INDICATORS (DRVSTR=8 BYTES)
:DRVSTA=0 IF DRIVE 1S OFFLINE OR NONEXSITENT
!DRVSTA>D IF DRIVE IS ONLINE
!DRVSTR<O IF DRIVE IS UNSAFE

3696

‘BYTE

000

3588
3589
3530
389]

3595

PAGE 68

SINGLE/DURL PORT RH11/RP04/S/6 DRIVER (REV 1.0,

000

357
3575
3576
377

17:31

DOS

'DPRG5<0 IF THATA DUAL PORT REQUEST IS PENDING FOR THAT DRIVE
007606
0OC7EC?

000
606

DPRGS:

.BYTE
‘BYTE

O
O

;DRIVE O
IDRIVE 1

RPO4/S-6 HERD RLNMT
CoRICBO,
CZRJCB. A1l
04-NOV-77 12:48

MRCYLl 30(1046)

0O4-NOV-77

17:31

EOB

PRGE 69

SINGLE /DURL PORT RM11/RP04,5/6 DRIVER (REV 1.0)
.BYTE

;DRIVE 2

BYTE
BYTE

O
O

DRIVE 3
'DRIVE

BYTE

!DRIVE 7

‘BYTE
‘BYTE

DRIVE S
!DRIVE 6

; TRANSFER_WAIT FLQG (TRNSWT=1 WORD)

s THIS IS
A ONE WORD QUEUE.

IT WILL CONTARIN THE RDDRESS OF

;“DPB" OF THE 1/0 OPERATION.
007616

slsfsielo]u

TRNSWT:

.WORD

; SERRCH WARIT KEYS (SRCHWT=] WORD)

;

THIS IS
A ONE WORD QUEUE THRT NILL CONTAIN
A KEY FOR_EARCH OF

:THE DRIVES THAT ARE PERFORMINGR SERARCH COMMAND FOR THE 1/C

'REQUEST THART IS AT THE TOP OF THEIR REQUEST QUELE.
{EACH DRIVE IS RSSIGNED ONE BIT, STRRTING AT BITOO FOR DRIVE C.
007620

000000

SRCHWT:

.WORD

;RPO4/5/6 DRIVER RCTIVE FLAG (RCTDRV=1 BYTE)
;ACTDRV=0 IF DRIVER IS INRCTIVE

:ACTORV>0 IF DRIVER IS ACTIVE
povez2e

coo

ACTDRV:

.BYTE

:SOFTWARE TIMER ROUTINE ACTIVE FLRAG (ACTSTR=1 BYTE)
;ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INARCTIVE
;ACTSTR)O IF SOFTWARE TIMER ROUTINE IS RCTIVE
DO?822

0co

ACTSTR:

.BYTE

;UNLORD FLAG (ULDFLG=8 BYTES)

;ULDFLG=0 IF ND UNLORD COMMAND

‘ULDFLG>0 IF UNLORD COMMAND IN PROGRESS

;ULDFLG«0O IF UNLORD COMMAND IN WRIT QUEUE

007624
00762%

ULDFLG:

007e33

.BYTE

.8Y7TE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTé

O
O
O
O
O
O
O

;ORIVE O

;DRIVE
;DRIVE
;+DRIVE
;ORIVE
,DRIVE
;ORIVE
;DRIVE

1
2
3
4
5
&
7

;LOOK AHEAD COUNT (LACNT=8 BYTES)

:LACNT WILL INDICRTE THE NUMBER OF LOOK AHEADS PERFCRMED

007634
007635
007636
007637
C07e40
007e41

LACNT:

.BYTE
‘BYTE
‘BYTE
‘BYTE
BYTE
BYTE

O
O
O
0
O

;DRIVE O

'DRIVE
!DRIVE
!DRIVE
'DRIVE
!ORIVE

1
2
3
4
S

SEG 0069

C2RJCBO,

RPOM-S-6& HERD ALNMT
CZRICB. P11
OM-NOV-77 12:49

007642
007643

MACY1l

FOb

30(1046)

O4-NOV-77
17:31
PAGE 70
SINGLE/DURL PORT RH11/RP04/5/6 DRIVER

000
000

.BYTE

(REV

1.0)

SEC 0070

; DRIVE 6

iORIVE
7

:SAVE REGISTERS FLAG (SflVEF? =1 WORD
;SAVEFG <0 IF SAVE
THE RHII/RPOH/S/S REGISTERS WHEN THE

;OPERATION 1S COMPLETED RS PER (DPB+14
:SAVEFG=0 IF SAVE THE RH11/RP04/S/6 REGISTERS RS PER
; (DPB+14), AFTER AN ERROR.

007644

sisleie]ale]

SAVEFG:

.WORD

; SEEK FLAG

(SEEKFG=

WORD

: SEEKFG=0 IF WHEN THE DISK RDDRESS ISN'T

IN THE WINDOW

;FOR A DQTR TRANSFEK START
A SERRCH COMMAND

:SEEKFG<0 IF DATA TRANSFER WILL 00 IMPLIED SEEKS,
;DISREGARD THE WINDGW
0C7e4e

000000

SEEKFG:

.WORD

; TIMEOUT

TRBLE (TIMER=8 WORDS)
; THIS TABLE CONTRINS THE

’

027650

TIMER:

007666
DTN LWwhur-

Pt Dot Bt $e Dt Pt Pt Pt Pt

WL
WwW
~N NN NNINSNINN S

371C

.WORD

.WORD
WORD
WORD
WORD
WORD
WORD
WORD

-1

;DRIVE

-1
-1
-1
-1
-1
-I
-1

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;ORIVE

;ORTA TRANSFER UNDERWAY

TIME

ALLOWEC

FOR AN OPERATION

1
2
3
4
S
&
7

INDICATOR

(DTUW=l

NORD)

;DTUWO IF NO DATR TRANSFER UNDERW
;DTUW=+N (WHERE N=0 TO0 7) IMPLIES DRTQ TRANSFER UNDERWAY ON ORIVE N

007870

DTUN:

.WORD

-1

;RTTENTION BITS TRBLE (ATABIT=8 BYTES)
; THIS TABLE CONTQINS THE CORRESPONDING BIT

;ATTENTION BIT

ATABIT:

007701

.BYTE
.BYTE
.BYTE
.BYIE
.BYTE
.BYTE
.BYTE
.BYTE

;RPO4/E/6

i
¢
M4
10
20
M0

100
200

TO RH11

;DRIVE
;ORIVE
;DRIVE
;DRIVE
;DRIVE
;ORIVE
;DRIVE
;ORIVE

O
1
2
3
H
5
&
7

"MASSBUS CONTROL BUS PARITY ERRORSTM

:CALLING IT FATAL (MCPEMX=1 WORD)
307702

000003

MCPEMX:

.WORD

TO ERCH DRIVES

(MCPE)

ALLOWED BEFORE

;:STORAGE FOR RPADR

(THE FIRST RODDRESS

776700)

OF THE RH11/RPO4-S.&.,

als

NPy
00

RPON S-6& HERD ALNMY

O4-NOV-77 12:49

MACY11 30(xoqs)

O4-NOV-77

17:31

GOB

PRGE 71

:RPVEC (THE VECTOR RDDRESS (254)),

007704
00770e

176700
000254

000240

SEG 0071

SINGLE /DURL PORT RH11/RPO4/S/6 DRIVER (REV 1.0)
RPADR:
RPVEC:

.WORD
.WORD

AND RPVEC+2 (THE BR LEVEL

(S,;.

176700
254,5#32.

:MAXIMUM NUMBER OF LOOK AHERDS ALLOWED IS 4 (MXLACT=1 WORD)
007712

000004

MXLACT: .WORD
:MAXIMUM DELTA DELQY IS 8 SECTORS (MXDLTAR=1 WORD)

00TTiN

001000

MXDLTR: .WORD
8.#64
“MINIMUM DELTR DELRY IS 2 SECTORS (MNDLTA=1 WORD)

0Cc7Tie

000200

MNDLTA: .WORD
2#64
;MAXIMUM SEARCH FOR I1/0 WINDOW IS S SECTORS (MXWNDW=1 WORD)

007720

00000S

MXWNDW:

.WORD

;DEFINITIONS OF THE RHI1/khP04.5/6 ADDRESS INDEXES

000000

000002 o
000004
000006
000010
000012

"WORD COUNT REGISTEP (NOT A DRIVE REG)
P UNIBUS RODRE S5 REG.STER (NOT A DRIVE REG
'DESIRED SECTCR/TRACK ADDRESS REGISTER (DRIVE REG. 0S)
:CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
:DRIVE STATUS REGISTER (DRIVE REG O1)

RPLA=20

:DATA BUFFER R?GI%TER(NOT R DRIVE REG.

RPSN=30
RPOF =32
RPCA=34
RPCC=36
RPER2=40
RPER3=42
RPEC1=44

'S RIR# NUMBER REGISTER (DRIVE REG. 10)
:OFFSET REGISTER (DRIVE REG. I1)

RPERL=14
RPRS= 16

0006022

RPDB=22
RPMR=2M
RPDT=26

000024

000626
000030
000032

900034
000036

DG0040
000042
000044

'ERROR REGISTER #1 (DRIVE REG. 02)
CATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04
:LOOK AHEAD REGISTER (onxvs REG. 07

x Y REGISTER (DRIVE REG. 03}
;nnxnrnxnnng
‘DRIVE TYPE REGISTER (DRIVE REG. 06)

‘DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. l2J
: CURRENT CYL%NOER ADDRESS REGISTER :ORIVE REG. 13

"ERROR REGISTER #2 (DRIVE REG. 14
"ERROR REGISTER #3 (DRIVE REG. 15)
*ECC POSITION REGISTER (ORIVE REG. 16&)

'ECC PATTERN REGISTER (DRIVE REG.

RPEC2:=46

050046

auxxfnpoq/s/s DRIVER INITIALIZATION CODE
HIS ROUTINE WILL DETERMINE WHICH RPO4.5-/6 DRIVES ARE

nvnaneLs FOR TESTING AND SET THE DRVSTR INDICATOR
YO THE PROPER STRTE FOR EACH DRIVE.
INOTE: THIS ROUTINE CALLS DRVINT

:CALL

:
;

JSR

RETURN

PC,RPINIT

INGTE: THE P’ OR '_° CLOCK MUST BE STRRTED

007722

aC77e4

.ON4L e

13746

17777¢

RPWC=2
RPBA=Y
RPDR=6
RPCS2=10
RPDSI=1¢2

000014
000016

000020

:CONTROL AND STATUS REGISTER #1 (DRIVE REG.

RPCS1=0

RPINIT: SAVRESG

MOY

JPS, - (SP)

:SAVE RO - RS

:SAVE THE PRESENT PROCESSOR STRTUS

17)

2IRICBO, RPOY4 S & HERD ALNMT
CSRICB.P1I
O4-NOV-?77 12:49

3791
3
3793
3794
3795
3796
3797

3798

3793
3800
80
&3
2803
380%
3805

007730
00736
007742
2746
007762
007754
0077%e

012737

3813
3s§:

0100S0
oioosg

ggxg

oiogse

3820
3821
3822

010674
010100
010104

000040

3912 Big8ug

3515 818820

3819 Big3s

3822
3824
3825

3826
3827
3828

2629
30

3e3!
3832
3833
2834
3835
383¢
3837
2838
3639
3e40

0eod1o

010106
010112
010116

PAGE

;rzn§r ADDRESS TO BE CLEFARED

CLR
cHP
BLOS

(R1)+
R1,R2
18

2%:

MOV

#-1, (R1)+

3s:

00755e

y
si:

01013C
0i0132

‘LRSY

sDTUW,R2

SINITIALIZE

R8. DRVINT

P N3 e BRYVE

DAVSTARD)
Bx

O
B TNy Us To oFFLINE
235 T N¥§T onxvg

u? Rl

5879&7 u??fi anvE 7

1578
BEQ
JSR

DPINT(R1)
33
PC,SET. IE

"WAITING FOR DRIVE TO SWITCH PORTS
:BR NOT WRITING
:SET INTERRUPT

BNE
DEC
BPL
MOV

24
R1
X
(SP)«=,d#PS

:SETUP THE RH11/RP0O4/S/6 VECTOR

MOV
MOV
MOV
Moy

#ISR, tR3)+
RPVBS+S (R3)
RPA
4
:FIRST ADDRESS OF RH1!/RPCY
aaxroé.npcsataq) jhRsseus INIT

Be
?Nc
CLR

TE18

:’DVAR’

Jnbs

384e
ki-Uk!

3644

C:10139

Cloesg

NOT SET OR PARIT-

ERROF

:CLEAR THE PROCESSOR STATUS

oPINT(R1)

‘DRIVE SWITCHED PORTS *

:BR IF NOT
:GO TO THE NEXT DRIVE
:CHECK NEXT ORIVE
;ngrons THE PROCESSOR STATUS
‘RESTORE
RO - RS
:BYE-BYE

INIT}%IZRT%?N ROUT INE

; THIS
ROUTINE DETERMINES IF A DRIVE EXIST AND
;AN RPO4/5/6. 1
T 1S, A "READ-IN PRESETTM IS

;IS SET TO A 1”.

:
:

70 BE CLEARED

:LRST RADDRESS

THEN MOL, DPR,

{INSURE THEY ARE ALL ON R
;CALL
:

ADDRESS

; CLERR
:ARE WE DONE?
:BRANCH IF NC

: DONE
?
:LOOP IF NO
:SET ALL DRIVES TO OFFLINE

RESR:G
RTS

;ORIVE

THE PRIGRITY 70 S

:CLEAR ALL REQUEST QUEJES

R1,R2
83
VSTA
DRVSTA+2
DRVSTA+Y
gavgrn+
pPvEC R

MOV

es:

SEG 0072

sRPERRS,R
8SEEKFG.R

CMP
gLas
C
CLR
CLR
CLR
MOV

1.0)

;CHANGE

MOV

(REV

#<5%#32.),38PS

PC; CLRQUE

18:

010120
Qig0la2
010124

17:31

JSR

MOV

6%:

3841

3845
384e

MOV

010134

172770

0O4-NOV-77

SINGLE/DUAL PORT RH!!/RPO4-/5-6 DRIVER

887536
7646

07764
007770
2772
5774
010000
010004
010010

010614
010020
010024
oxoogo
0100 2
0

3011046

177776

057760

3806
3807
3838
3809
53‘0
1i

‘U

000240
015662

MARCY11

DRY,

IF IT IS
ISSUED AND FMT22

BND VV ARE CHECKED
TC

*1TM. AND DEPENDING ON THEIR STRTE,

;ORVSTAR 1S SET TGO THE PROPER CONDITION.
MOV

MOV
JSR

RE TLRN]

;

RE TURNZ

DRVINT:

MOY

$DRVNUM,R1

RPADR, R4
RO, DRVINT

:DRIVE NUMBER

:ERROR OCCURRED

; NORMAL RETURN
RS, -(SP)

TO Rl

'UNIBUS RDDRESS OF RHL1 RPO4 5'6 .RFCS!
:CALLED BY A JSR

:SAVE

(PARITY)

ICBO,

RPOY S & HEAD ALNMT

RJLB P11l
3847

3848
3849
3850
385]
3852
3863
3864
3885
3856
3857
3858

010136

O4-NOV-77 12:49
105061

010142
010146
01015
010166
010i64
010172
010174
010200
010202
010206
010214

105061
105061
01014
112764
032764
001403
004737
000520
10S061
032764
001514

010222
010224

000026
010466

3859

(010216

3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872

010226
010230
010236
010242
010244
010250
010252
010260
010264
010266
010272

012605
112761
022705
001431
022705
001426
112761
022705
001420
022705
001415

3874
3875
3876
3877
3878
2879
3880
3881

010302
010306
010310
010314
010316
010324
010326
010332

022705
00I407
022706
00I40%
112761
000446
012746
004037

3860
3861

3873

010279

004037

112761

3882
3883
3884
3885
3886
3887
3888
3889
3830
3891
892

010336
010340
010342
010346
010352
0103%4
010356
010362
010364
010366
010370

000000
010466
012746
004037
000032
010466
004037
000012
010466
O01260€
100016

2894

010400

004037

MACY1l

30(1046)

007556

007566
007624
000C!0
O000Iil
010000

CLRB

000000
0GCOI0

015316
007SS6
004000

00JGCO0

18:

014636

000001
0620020

007S6E

007566

024021
000004

020022

007566

000121
015012

2s:

39C2

010404
010406
(10410
0i0412
010414
010422
010424

0]042e

000014
010466
006126
100004
1127€1
000407
0OE10¢E
04270S

010000
015012
014636

1&7C77

RO, RD.RP

:READ THE DRIVE TYPE REG.

MOV
MOVB
CHP
BEQ
CHP
BEQ
MOVB
CMP
BEQ
CHP
BEQ

(SP)+ RS
81 DRVTYP(R1)
820020, RS
2s
$24020, RS
2s
82 onvrvp<nx>
#2002
2s
824021, RS
2$

!PUT DRIVE TYPE IN RS
:SET npoq INDICATOR
:1S ITA SINGLE PORT RPO4”
:BRANCH IF YES
:1S IT A DUAL PORT RPO4°
:BR IF YES
:SET RPOS INDICATOR
SINGLE PORT RPOS ~
:BR IF YES
: DUAL PORT RPOS 7
'BR IF YES

CHP
BEQ
CHP
BEQ
MOVB
BR
MOV
JSR

s20022
2s
s24022,RS
2s
#-1,DRVTYP(R])
&$
8121 —(SP)
0, WRT,

:SINGLE PORT RPOB ?
‘BR IF YES
:DURL PORT RPOB ?
'BR IF YES
:SET INDICATOR TO 'OTHER®
SEXIT
:00 A “READ-IN PRESET"

lBITlE -lSPJ
RO, WRT

:GET FMT22=1

RO,RC.RP

:RERD RPDS!

MOV
BPL

(SP)+,RS
4§

nno SAVE IT IN RS
RANCH IF ATA=0

JSR

RO, RC.RF

FIND OUT WHY ATAR=

MOVB

O14€3e

177777

JSR

RPCS1
8$
MOV
JSR
RPOF
6%
JSR
RPDS|

3893 010372 116164 007672 000ClE

3895
3896
3897
3898
2899
900
3901

PRGE 73

:START DRIVE STATUS AS GFFLINE

MOVE

024022

177777

17:31

DRVSTA(RL)

CLRB
CLRB
MOY
MOVB
BIT
BEQ
JSR
BR
CLRB
817
BEQ
RPDT
8s

024020

000002
020021

0O4-NOV-77

SINGLE/DUAL PORT RHll/RPOH/S/& ORIVER (REV 1.0)

007Sce

RPERI
8s
ROL
BPL
MOVB
BR
CoM
BIC

DRVTYP(R1)
:CLEAR THE DRIVE TYPE INOICATGR
ULDFLG(R1)
:CLERR THE UNLORD FLAG
RI,RPCS2(RY)
SELECT DRIVE
8111, RPCS1(RY) :D0A DRIVE CLEAR COMMAND (8 SEIZE CRIVE.,
#BIT12, RPCS2(R4) ' ; NONEXISTENT DRIVE?
1
ho---anan
PC.SET.IE
:GO SET “xs“ ux.nour A “TRE”
X
'LEAVE THIS ROUTINE
DRVSTA(R])
'SET DRIVE STATUS TO OFFLINE
oexrxx RPCS1(R4)' ~:SEE IF DRIVE AVAILABLE
7%
eé IF DRIVE NOT AVAILABLE

4 DRVTYP(RI)

: ERROR RETURN ADDRESS

:SET RPO6

INDICATOR

ATABIT(RI), npns<k4) . CLEAR ntrsurzon BIT
(SP)+
;1S IT UNSRFE?
4$
;B8R IF NOT
#-1,DRVSTA(R])
:SET UNSAFE INDICATOR
68
JEXTT
RS
:CHECK MOL,
DPR, DRY. AND WV
stC«BITl2!'BITOB! 81757181706 ,RS’

CSRJCBO,

RPO4 5.6 HERD ALNMT

CZRICB. P11
3902

010432

A4-NOV-77 12-49
001003

MACY11

3304
3905
3306
39C7
3908

010434
010442
010444
010446
010450

112761
005720
000410
006301
012761

000ND:

507556

003720

0076S0

3910

010460

105161

007576

3313

010470

3309 010456 006201
3311
3912

010464
010466

005720
012605

30(1046)

0Q4-NOV-7?

JOb

PAGE 74

SINGLE/DUAL PORT RH11/RP0O4,5/6 DRIVER (REV 1.0)
BNE

6%:
7%:

MOVB
TST
BR
ASL
MOV

8s:

01 DRVSTA(R1)
b)+

157
MOV

(RO)
+
(SP)+,RS

RTS

:BRANCH IF MOL,

opx~7<n1)
RO

3353
3325
Q10472
013746

177776

3926
39¢7
3328
3929
3930
3931
3932

010476
0ilsCe
010512
Q10514
010516
010522
010524

013737
115737
104412
011002
005062
111201
013704

3934
3935
3336
3937
2938

010534
010536
010542
010844
010550

003014
i05761
001036
105761
001042

3940
3941
3942
3943
3944
3945
394
3947
2948
3949
3950

010556
010560
010%64
01066
010572
010574
010600
010604
010606
010614
010616

000434
10S761
003445
105761
00103
010164
004037
000460
122762
001003
112761

3962
3953

010630
010632

00:043
004737

010764

3955

010640

0l2762

120000

3933

3939

010530

010552

105761

004637

007710
000001

2956
3957
29Se

010636
010646
01066S0
0I0eS4

000440

000434
004727
0OO431

RPO4:

MOV

000016
007704

007556

007576
010134

007606

1§:

000010
015760
000103

000002

177777

007624

012074

0000le

2s:
3%:

4§ :

:CALL THE RPO4/5/6 DRIVER

:ADDRESS OF POINTER OF DRIVES PRRAMETER BLOCK
:RETURN HERE IF QUEUE IS FULL
'RETURN HERE IF REQUEST IS IN QUEUE GR THERE

1S AN ERROR CONDITION
3PS, - (SP)

(901 R2
16(R2)
(R2) .RI
RPADR , RY

BGT
TS18
BNE
1578
BNE

18
ULDFLG(R1)
3s
DPINT(R1)
3

:BRANCH IF ONLINE
: UNLORD connnuo IN QUEUE”
:BRANCH IF YES
STRYING TO INIT THE DRIVE
BR IF YES

BR
1518
BLE
7578
8NE
nCY
JSR
BR
cMPB
BNE
MOVB

4$
DRVSTA(RL)
69
DPRGS(R1)
33
R1, RPCSE(RH)
RO DRVQUE
ag’
#103,2(R2)
es
ULOFLG(R1)

snao RE TURN
:IS DRIVE STATUS ONLINE?
'BR_IF NOT
oursrnnoxnc PORT REQUEST FOR THE DRIVE ~
BR
YES
SELECT THE DRIVE
:PUT THIS REQUEST IN QUEUE
‘QUEUE 1S FULL
:1S THIS REQ. FOR AN UNLORG?
'BR IF NO
:SET THE “UNLORD IN QUEUETM FLAG

BNE
JSR

8%
PC,OPT

'BR IF YES
{CALL THE OPTIMIZER

MOV

#BIT15'BIT13,16(R2)

1578

B8R

BR
JSR

PVEL+2 JNPS
TDRV

snve THE CALLING STATUS

:DON'T ALLOW ANY RPO4/S5/6 INTERRUPTS
:SET “ACTIVE DRIVERTM FLAG
'SAVE RO
- RS
chxup THE DRIVE PARAMETER BLOCK POINTER
'CLEne T STRTU§/ERROP INDICATOR
'PICKUP THE DRIVE
nuiiBE®
TUNIBUS nooness OF RPCET

JSR

007556

RO, 38RPOM

MOV
MOVS
SAVREG
oV
CLR
MOVB
MOV

1518

007624

39€] 010624 10S76! 007546
3954

177776
007822

PNTADR
RETURN!
RE TURN2

OR YV 1S CLEAR

;RESTORE RS
JEXIT

3919

JSR

DRY,

:SET PORT INITIALIZE INIDICATOR

:REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

:
:
:

DPR,

Rtsr£ Rl

ggig

3920
3921
3922

SEG 0074

;SET DRIVE STAtUS TO ONLINE
'STEP OVER THE ERROR RETURN
JEXIT
a
i CHANGE INDEX TO ADDRESS WORDS
oaooo. TIMER(RL)' :START 2 SEC TIMER

ASR

cOMB

000200

17:31

DRVSTA(RL)

RO, DRVINT

onvhcrtnz)
8%’

3
PC,C17
8%

:CHECK DRIVES STATUS

INIT.

THE DRIVE

:1S THIS DRIVE ACTIVE?
;SET

THE

“UNLORD

IN QUEUE"

JEx1t
:GO HANDLE THE PARITY ERROR

ERROR FLAG

CZRICBO,

RPON/S/B HERD ALNMT

CZRJICB. P11
3959

3960
3961

3%2
3963

3964

3965

010656

010662
010664
010670
010672

010676

010700

04-NOV-77 12:49
004N37

000+31
032714

105761

007556

010704
010706

002412
012762

3969
3370
3971
3972
3973
3974
3975
3976
3977
3978
3979
gggg

010720
010722
010730
010732
010740
010742
010744
010746
010?50
010752
010756
010762

001007
012762
000403
0i2762
104413
005720
000N40!
1044:3
005720
105037
012637
000200

010714

10S?6!

30(1046)

140000

007566

S§:

63:
000016

100002

000016

110000

000016

17:31

KO&

JSR

RO, DRVQUE

BNE
JSR

8s
PC,SET. IE

TSTB

DRVSTAR(R])

BR
BIT
BR

BLT
MOV

TSTB

7$:
8%:
93
108:

007622
177776

O4-NOV-77

PRGE

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

000100
015316

3966
3367

3968

015760

001023
004737

000420

MACY1l

BNE
MOV
BR
MOV
RESREG
TST
R
RESREG
TST
CLRB
MOV
RTS

s PUT REQUEST

oueue
?
118 IE' ss ALRERDY 7

gs’

:RETURN, REQUEST IN QUEUE

PBR IF IT IS
:SET INTERRUPT

iSEE_IF 'DRIVE OFFLINE OR UNSAFE

7S
:BR
nerr1s'axrxq 16(R2)

DRVTYP(R])

IF UNSAFE
:SET OFFLINE ERROR INDICATOR

: SEE Gorerne OR NONEXISTENT

8s
:BR IF OFFLINE
#BIT1S!BITOL, 16(R2)
-REPORT DRIVE NONEXISTENT
8$
GO T
EXIT
#BIT1IS!BITI2, 15(&2)
DRIVE IS UNSRFE
RESTORE
RO
- RS
(RO)+
:SETUP FOR NORMAL RETURN
108
:FINISH UP, THEN EXIT
IRESTORE RO
- RS
(RO)+
:CORRECT THE RETURN ADDRESS
RCTDRV
:CLEAR "ACTIVE DRIVER" FLAG
(SP)+, 8PS
:RETURN "PS“ TO USER LEVEL
0
:RETURN TO CALLER

gggg

:OPTIMIZER-CALLED FOR A PARTICULAR DRIVE

3384
3385

:CALL
:

3339
3988 010764

;

JSR

3989
3930

010766
010772

104412
013746
146137

3992

011004

005702

3394

011010

032764

004000

000000

gIT

3996

011020

032764

000100

000012

BIT

177776
007672

3391 011006 004737 016034
3993

011006

1505

3995 011016 001407

3997
3938
3399
4000
4001

011026
011030
(011034
011036
0l1042
011044

004737

0i60S6

4004

011056

10S761

007556

4007
4008

011072
011074

000460
012746

00011}

4013
“0l4

(011114
0lllle

00127
122762

4002

001003
004037
000470
10S761
003014

bpT:

MOV

007620

108:

011100
011104
Ql110e
011110

004037
000000
OlielE
032714

0ic0l12

004000
000150

000002

DVR SET?

QR IF IT IS
‘SEE IF DRIVE STILL ONLINE ?
:PARITY OR 'OVA’ NOT SET
‘1S DRIVE ONLINE?
: YES—-BRANCH

T1STB

DRYSTR(R1)

BR
MOV

g$
0111

BEG
CMPB

c§
8150, 2(R2)

BPL

4003
4C10
4011
40l2

o--annncu T0 EXIT

108
RO, DRVINT

4005

MOV

18:

cexrxx,npcsxtnq)

BNE
JSR
BR
TST8
BGY
JSR

4006 011064 0]2762 110000 000016

"opé" POINTER OF REQUEST

xs THERE
R REQUEST IN QUEUE?

BRQNCH tr NOT

MOV

100064

PC,GETREQ
1

4003 011050 O0l2762 140000 000016
011062

; DRIVE NUHBER T0 Rl

T5T

BEG

007556

'SETUPA COMMAND

:SAVE RO
- RS
JWPS, - (SP}
: SAVE PROC srnr
nrnaiv(nx),sncnu?
R “SEARCH WARIT" KEY

BEQ

9§ :

#DRVNUM, R1

PC,OPT

SAVREG
MOV
BICB

JSR

010134

IN QUEUE

qs
#BITO6, (RY)

JSR
RPCSI
X
8IT

#8176,RPDS1(RY)

DRVSTA(RL)
1s
PQUE

':IS
VWV

:NO--REMOVE

oeitxs'sxtxq 1s(h2>

0, WRT.

#BIT11, (R4}

REQUEST FROM QUEUE

SET OFFLINE STATUS/ERROR INDICARTOR

S DRIVE UNSAFE ?

sBITIS!BITI2, 15(&2)
-(SPJ

GET
2

EXIT

NOY

-SET uusare STRTUS/ERROR INDICATOR

RANCH TO
E
Lono connnuo onro THE STACK

:LOAD THE REGISTER
'REGISTER INCREMENT
‘ERROR RETURN ADORESS
‘DRIVE AVAILARBLE °

'BR IF NOT
:1S THE REQUEST FOR 1-0”

SEG 007%

RPOY/S/
6 HEAD ALNMT

011124

O4-NOV-77 12:49
002403

011126
011132
011134

004737
000440
005737

011142

00S737

011140

0111;8

0111
011154
01115
011160

011164
011166

011172
011179
011202
011204
011206
gl1el4
011216

0062012
100404

004037
000427
000403
004737

000423
004737

000420
112761
010103
006303
012763
DOON02
004737
001002

011234
011240

012637
104413

011230
011242

004737

30(1046)

O4-NOV-77

007670
007646
012430

2s:

011244

3%:

011352

4s:

023420

007650

015316

177776

BGE

JSR
BR
7571

PRGE
7

6S:

oo IMPLIED SEEKS?

JSR
BR
BR
JSR

RC,LA
gs
4§
PC,CI1

NO--DO LOOK AHERD
' RETURN HERE on n PARITY ERROR
GO srnar SEAR
:START A DATA TRQNSFER

BR
MOVB
MOV
ASL
MOV
BR
JSR

gs’
:GO TO THE EXIT
8-1 DPRQS(R1)
:SET PORT REQUEST INDICATOR
R1,R3
szr UP TO ADDRESS WORDS
R3’
CONVERT TO WORD INDEX
#10000. rxnen(nai
START 10 SEC TIMER
s
Exi
'PROCESS THE PARITY ERROR

BNE

;BR IF SET

MOV
RESREG

(SPY+, 3PS

'RESTORE PROC. STATUS
!RESTORE RO - RS

JSR

000207

RTS

: COMMAND

gs
PC,CI3

oatros (R4)

PC,SET.IE
PC

MOV
JSR

.oavnun Rl

8DPB, R2
PC,Ct”

:
:
004737

011264

010203

011250

010237

011256
0ll262
011266
011272

013704
010164
062703
062704

011300

012324

011276
011302
011304
011310

012324
012346
004037
0000626

011312
011314

012074
012346

011322
011324
0i1326

000034
01074
O0lez2ve

011316

004037

016056

007616
007704
00001C
000004
000002
015012
015012
000C0e

CIl:

YES---BRANCH

;START A sznncu

SEE xr '1E' ALRERDY SET

:SET "IE”
WITHOUT
R

R
"TRE

;DRIVE NUMBER

nooness OF DPB
CI?= CI1,C13, OR CIM
N ERE:

‘CI1=DATA TRANSFER

Ol1244

YES--GO START A SEARRCH

INITIATOR

s CALL

:
:
:

: YES-~BRANCH

SEEKFG

BIT

8s:

SEG 0076

:CALL THE connnuo INITIARTOR
'BRANCH T0 EXIT
onra TRANSFER UNDERWAY?

BR
JSR

S$:

(REV 1.0)

PC,CIN
8s
OTUW

BMI

007606

012074

BLT

TST

177?77

17:31

SINGLE /DURL PORT RH11/RP0O4/5/6 onxvsa

011460

011222 032714 000100
011226

MACY1l

LO6

:C12=SERRCH REQUESTED B DATA XFER
:CI4=NOT DATR TRANSFER

JSR

PC, POPQUE

MOV

R2. TRNSWT

MOV
MOV
RDD
RDD

Rphon RY
R1,RPLS2(RY)
84’ R3
82 RY

MOV

(R3)+,(RH)+

MOV

R2. R3

:REMOVE

REQUEST FROM “"DRIVES WAIT"

'PUT REQ. IN TRANSFER WAIT QUEUE
:DPB ADDRESS TO R3

;RPCS1_RDORESS
"SELECT ORIVE
‘DESIRED WORD COUNT
:RPWC
RDDRE

(R3)+, (RY4)+

;LORD WORD C

MOV
JSR
RPDA

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

:LOAD SECTOR AND TRACK
:CALL THE LORO(NRITE) ROUTINE
PINDEX OF REGISTER TO LORD

JSR

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

cl17
MOV

RPCA
c17
MOV

2(R2),-(SP;

QLELE

:LORD BUFFER ADDRESS

'ERROR RETURN ADDRESS
:LORD CYLINDER ADDRESS
:LOAD "COMMAND+GOTM,

“Al78AL1ETM.,

AND “PSE._"

CZRICBO,

RPO4/S/6 HERD ALNMT

CZRICB. P11
40?1

4072
473
4074

4878

O4-NOV-77 12:49

011332

011336
Oll
011

011

004037

000000
12074
137

137

MACY1l

JSR

807370

012036

4079
4080

011366
011372

004037
000034

015012

4082
4083

011376
011402

3
163703

000010
007720

4084

gxxgrw

U'-OC%

408s

01141

wogg

012074

1{412

163496

4089
4090
4091

0114
011432
011434

0006
012074
012746

4093
40949

011444
011446

00
012074

4096
4097

0114
(011460

7
013704

011470

(162

000026

8% 8ilils dites gomsy
Y

40392

4095

114

011440

011422

4098

011464

4100

011474

4099

004037

000131

41C5
4106

QOLISIN
011516

Q12074
03

4107
4108

4109

4110

4111

.512

2%:

011556

000034

012074
O000S46
122703

4118
4119

011560
011862

012074
116216

4121
4ig2

011572
011574

000032
012074

4led

011600

122703

011866

C11578
01104

011606

8008

004037

000530
00152€

122703

10(R2),R3
MXWNOW | R3

12’

822.

Razfit?P) )

:PICKUP SECTOR ADDRESS
:BACKUP BY MAX. SERRCH FOR

1/0 WINDOW

‘?2"96"5 ;HE gggusrso SECTOR WITH

#131,-(SP)

:START

BR
MOV

MOV

ATABIT(R1), SRCHWT
cIS
RPADR , R4

:SET "SEARCH WAIT"

:RPCS!

ADDRESS

Rl RPCSB(RH)

:SELEFRY onxvg

#131,R3

:1S IT A SERRCH COMMAND?

2(R2)

19
< 10(R2),-(SP)
RO, WRT.RP

KE'

'PICK © THE

REQUESTED COMMAND

'BRANCH IF NO
:LOAD DESIRED

TRACK &

SECTOR

RPDA

000012

011536

RO, WRT.RP

BNE
MOV
JSR

015012

Olee4e

:SET “DATA TRANSFER UNDERWAY"

JSR

MOVB

000010
015012

DTUW

:
[oho"BEATRED
SERG secroe

CMPB

004037

4117

4l2e

011532

001013
004037

4125

CIN:

cis

MREAST

BIsB

18:

011850
011652

4yi23

007620

RO, WRT.RP

RPCS1
c1?

000105

0115826

:ova
RPDR
cl7
MOV

122703
001007

011540
011542
011544

4120

18:

SEG 0077

RUARRMBd
gy, iBECEL, ABRRESS
xélae>,-<sp>
;Ssgfaso CYLINDER RDDRESS

011520
011524

4112
4113
4114

4115
4116

007704

122703

001007
O0le246
004037

€

007672

PAGE 77

MOV
MOV

MOVB
SuB

MO6

JMP

c1?

00000

17:31

RPCS|
cl?
MOV

JSR
RPCA

00013}

000010

011500
0! 502
0 .506

CI3:

01is0l12

010183

4101
4102
4103

4104

04-NOV-77

SINGLE/DURL PORT RH11/RP0O4/5/6 DRIVER (REV 1.0)

015012

w07 i3 A0 995479
4078 811323 12§qs 888812
4081

30(1046)

c17
BR

CMPB
BNE

MOV

JSR

;GO LOAD CYLINDER

8105,R3
s

*1S IT A SEEK
:BRANCH IF NO

12(R2),-(SP)

RO, WRT.RP

:LORD DESIRED CYLINDER

RPCA

000115

3s:

014636

c17
BR
CMPB

BNE
JSR

RPOF

cl17
MOVB

0C0O0O!

01502

JSR

RPOF
cl7

000107
000!17

4s:

COMMAND

]
{3
8115,R3
4§
RO,RD.RP

1(R2),

(SP)

RO, WRY.RP

;IS

‘BR IF
:MERGE

AN “OFFSETTM

NO
THE OFFSET

COMMAND?

VALUE

:BYTE WHEN LOADING

*REGISTER

(RPOF)

:GO START THE COMMAND

PEG

cle

{BRANCH

cHPB

#117,R3

:1S

‘IS

1T A “RECALIBRATE"TM
IF

YES

RPOF

THE

cle

#107,R3

INTO

'BUT DON'T CHANGE THE UPPER

CMPB

COMMAND?

IT A RETURN TO CENTER"

O
G

R SISO R
£ £ G
W
£
£ 5
L
A PR
U O
O
0
O
R
S
DD 1

(ele]

Ny
00
ffrrsrerrriLrirrrrrrL
i
LrLrLrrLLrrLscrrrsLLL
L L LErL L L

RPOM-S/6 HERAD ALNMT

P11

011612

011614
011620
011622
011630
011634
011642
011644
011650
011652

011654
011656

011662
011664
011670
011672

011674

O4-NOV-77 12:49
001522

122703
001016
112761
105061
11276}
010346

004037
000000
012074

000207
122703

000103
00000!
007556
00000!

116266

000001

011782 004037 015012
011706
011710
011712

000032
012074
000436

011720
011722

001023
016203

011726
011734

116237
116205

011714

122703

Gl11740
011744

004037
000000

011750

012623

011746

023705
001414
062737
000764
122782
0OOIu4
010346

012004
012006

000000
012074

012014
012022
012626
012030
012034
012036

0S2762
005
100002
004737
000207
0

012010

8{2040

012050

012056
012060
012062
012066
012070

JSR
RPCS1
c17

c§:

000006

78:

011744

014636

011744
000002

8s:
98

011744

00014S
015012

(L4737

016056

000200
00764t

108:
118:
000016

015200
001750

0O076S0

(12761

000001

0O0754&

015012

17:31

NO6

PAGE 78

SEG 0078

12%:

138:
c1S:

;BRANCH IF YES

#103,R3
S$
81 ,DRVACT(R1)
DRYSTAR(R1)
#1,ULDFLG(RL)
R3)-(SP)

:1S IT AN "UNLOAD” COMMAND?
'BRANCH IF NO
;SET THE DRIVE ACTIVE INDICATOR
*PUT DRIVE STATUS TO OFFLINE
:SET “UNLOAD IN PROGRESS” FLAG
*START THE “UNLORD® COMMAND

PC
$143,R3

RETURN TO USER
IS IT A “SET FORMAT" COMMAND?

1(R2) 1(sp)

RO, WRT.RP

6%
RO, RD.RP

BRRNCH IF "NO
‘READ THE OFFSET REGISTER
:COMBINE "FMT22",”ECI",

AND "HCI"

RO, WRY.R

'LORD “FMT22", “ECI”, ANC/OR "HCI".

CMPB

#$141,R3

128

1S IT A "GET REGISTERTM COMMAND?

RPOF
c1?
BR

BNE
MOV

10%
6(R2),R3

"BRANCH IF NO
'POINTS TO 1ST ADDRESS OF WHERE

MOVB
MOVB

10(R2),9%
11(R2) RS

SINIT. THE INDEX FOR THE FIRST REG.
; INDEX_OF LAST REG. TO MOVE

JSR
RPCS1

RO,RD.RP

MOV

(sp)+ (R3)+

c17

CMP
BEG
ADD
BR
cMPB
BEG
MOV

170 PUT THE REGISTER(S)

"READ RPO4/5/6 REGISTER
SINDEX OF REG. TO RERD

:GET THE CONTENTS OF RH11/RPO4/5/6 REG.

JSR

RS
1et
82,98
gs’
#145,R3
12¢
R3 -(SP)

RO, WRT.RP

:LAST REG. BEEN RERD”
:GET OUT IF YES
: INCRERSE THE INDEX BY 2
:LGGF--MORE _TO RERD
1IS ITA “SELECT DRIVE” COMMAND?
'BRANCH IF YES
:LORD THE COMMAND

JSR

PC, POPQUE

:REMOVE REQ. FROM QUEUE

8IS
TST
BPL
JSR
RTS
ASL
ggx

MOVB

cl6:

cle

JSR

RPCS1

012761

000000
012074

BNE
JSR

MOVB

000001

6%:

0G00I0
000011

R1S
CMPB
RPOF
c17

000141

004037

000207
010346
004037

cMPB
BNE
MOVB
CLRB
MOVE
MOV

007S46
007624

012074

011782
011756
011760
011766
011770
011779
011776
012000

BEQ

000143

014636

0O4-NOV-7?7

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

01s012

001014
004037

000032
012074

MACY1l 30(1046)

RTS
MOV
JSR

RPCS1
c17

281707, 16(R2)
SAVEFG
13%
PC,SVRH11
PC
R1

aiooo.,rrnen(nl>
#1,DRVACT(R1)

pc’
R3, -(SP)
RO, WRT.RP

;SET _THE “DONETM BIT
'SAVE THE RHll/RPDH/S/& REGISTERS?
:BRANCH IF
N
: YES--GO snv: THE REGISTERS
:RETURN TO USER
:SET A ONE SECOND TIMER
;SET THE DRIVE ACTIVE

RETURN 1O THE USER
Lono THE COMMAND

CZRJCBO,

RPO4/S-6 HERD ALNMT

C2RICB.P11

O4-NOV-77 12:49

4183

012072

000761

4185
4186
4187
4188
4189
4190
419.

012102
815182
012l
0i2i{10
012113
Ql2122
0l2126

001034
?
1N
0l2
737
012746
037

4184

4192
4193

4194

4195

4196

012074

032764

012132
012134

012174

012142

012136
01214

10506!

007546

020137

4193

Q012160

005037

4200
€201

4ehe

4203

012164
0lel7e2

012174

001005

012737
000207

109412

012176

032764

4205
4206

012206
0i2210

005001
005003

420t
4209
4210
4211

012216
012220
012224
012230

001443
013702
020137
001402

4213

012236

005702

421€
4216

012242
012250

882754
1904

4204
420~

4212
4214

4217
4218
4219
4220
42el
4222
4223
4224

4225

012204

012212

012232
012240

012262
012262
012276
012274
012260

012302
012306
0ie312

012318

001002
105761

004737

001415

012737

4e28
4229
4230

012332
012340
012342

032764
001021
005201

4232

012350

042701

4234
4235
423b

012366
012364
012370

4238

0l2402

4233

012344

0i2354

CI7:

0000!6

CI?B:

062703

00i316

012737
005037
004737

BNE
TST
BEQ
MOV
JSR
MOV
JSR

cl8
;BR IF YES
R2
TANYTHING IN QUEUE *
cI7B
:BR IF NOT
oaxr1s'91711,15(k2)
:SET "PARITY” ERROR INDICATOR
PC,SVRHI1
;G0 snvs THE RH]11/RPO4,5/6 REGISTERS
8111, -(SP)
:00R *DRIVE CLEARTM
RO, WRT.RP

JSR

#81712,RPCS2(RY)

;EMPTY THE QUEUE

DRVACT (R1)

‘DRIVE IS IDLE

007670

cHP

R1.DTUMW

CLRB

BNE

177777

097670

01000

000010

007546

CLR

£18:

007616
007670
016034
010000

2%:
000010

007S46
007670

177777

010003

007670
000010

000002

177777
007616
015662

BIT

#BIT12,RPCS2(RY)’

CLR
CLR

R1
R3

BEQ
MOV
CHP
8EQ

c$
TRNSWT.R2
R1,DTUN
2$

:BRANCK IF NO
'GET THE “TRANSFER WAITTM QUEUE
:0ID THIS DRIVE HAVE AN I/0 IN PROGRESS?
'BRANCH IF YES

757

rRe'

'QUEUE ENTRY FOR DRIVE 2

SAVREG

()

JSR
BEQ
8IT
BEQ

MOV
BR
MOV
JSR
MOV

007670

DRVACT(R])

PC,GETREQ
4s

#B1T12,RPCS2 (RY)
3$

:SAVE RO - RS
;IS

'NED’

;BR IF YES

SET °

:DRIVE ACTIVE?

:GET THE DPB POINTER

‘BR IF NOT

--neo' SET 7
IF NCT

#BIT1S!'BITOL, 1sgh2) ser 'DRIVE NON-EXISTENT' INDICATOR
%
oexrxs-exrxo 15(#2) ET “NON-CLERRABLE PARITY" ERROR INDICARTOR
SVRH1 1
Save RHll/RPOH/S/B REGISTERS
.—1 TIHER(RS) srop THE TIMER
4

CLRB
CHP
BNE

DRVACT(R1)
R1,DTUW
ss

BIT
BNE
INC

$81712,RPCS2(RY)’ :"NED’ SET
7
68
;BR IF YES
R1
:MOVE TO THE NEXT ORIVE

BIC

atl7,R1

CLR
CLRB

RDD

177770

TRNSWT

!IF THIS DRIVE hAD AN 10 REQUEST

:IN PROGRESS CLEAR ALL OF THE FLAGS

8-1,0TUW
PC

MOV
c§:

:CLEAR THE UNLOAD IN QUEUE FLAG

MOV
RTS

BNE
18:

;:DRIVE NON-EXISTENT 2

PC,EMPTYQ

ULDFLG(R1)

007616

PRGE 79

c1s

BIT

CLRB

4237 012374 0l27eM 000040 0CS010
00040e

BO7

RPCS1
clé

012762 100002 COOClE
ooowgg
0127
02000 0000i6 J3%:
004737 015200
012763 177777 007650 H§:
105061
020137
001005

17:31

007e24

4326
012322 005037 0076l6
4227 012326 105061 DO7624
4231

000010

015012
015740

Q12152

012156

104000
015200
000111}

O4-NOV-77

SINGLE/DUARL PORT RH11/RPO4/S-/6 DRIVER (REV 1.0°

18:

737

4197

4198

010000

MACYLl 30(1046)

BNE

MOV
CLR
JSR

MOV
BF

DTUW

rnnéur
ULDFLG(R])
82

:SET “DRIVE RCTIVETM TO IDLE
1S THIS DRIVE SETUP FOR A TRANSFER
:BR IF NOT

'RESET THE INDICATOR

'CLEAR
THE TRANSFER QUEUE
:CLERR UNLORD FLAG

$-1.DTUW
rnuéur
RQUE

:BRANCH

1F MORE DRIVES

!NO DATA TRANSFERS UNDERWAY
*CLEAR THE ’TRANSFER WAIT' QUEUE
CLEQR ALL OF THE REQUEST QUELES

seiros,npcse<RqJ D0A MASSBUS INIT.
7%

tonrINUE

SEG 0079

CZRICBO,

RPON S.6 HERD ALNMT

S3rIco by

A4-NOV-77 12:49

MACY1l 30(1046)

Q12404 OC 737
740
4340 gxeqxo
10:081 86?556

6S:

4543 815459 104413
012426

17:31

ca?z

PRGE 80

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

4239

:g:g

O4-NOV-77

JSR
CLRB

gésnsc

000207

RTS

PC,EMPTYQ

osvgrnfaxx
PC

’

4246

:LOOK AHERD ROUTINE

4248

s CALL

4250

w247

CELS

4252

MOV

8DRVNUM, R

;on§v

JSR

RO, LA

:GO CHECK THE WINDOW

:
:

MOV
PETURN

sOPB, R2

RETURN
RE TURN3

JSR
RPCC

’
Ré,nc.gs

4ebl

CHP

(SP)+,12(R2)

4270

Olo44e

012560

012454

001037

012450
012456
012462
012470
012472

012476
012500
012502

105261
126137

003026
116203

000303
3
006203

4271

012504

012737

4273
4274

012516
012820

000020
012560

4272

012512

:S;s

giesaa

4278

012532

004037

poooie2
007634
007634
000CIC

000340

014636

4279
4280

4281

482
4283
4egd
4285

4286
:ggg

023703

007714

012536
012540

002406
023703

012546
012552
012554

|
1
005720
005720

007634

004737
000200

012074

oxsgwu

012556

012560
012564

ogggga
000402

18:

007716
2s:
3s:
ys:
5§

:ggg

:ERROR RETURN ADDRESS

*1S CURRENT CYLINDER=DESIRED

JSR

RO,RD.RP

ggs

R3
R3

SMULT. BY BY4--ALIGN WITH
1LOOK AHERD REGISTER

#340, 38PS

:PRIORITY LEVEL *7°

igp>+,n3

s CALCULATE THE DELTA

:READ LOOK RAHEAD REGISTER

9(22.#64.>
,R3

;MAKE THE DELTA POSITIVE

BLY
CHP

3s
MNDL TR, R3

PIF IT 1S WITHIN THE
' WINDOW---IF YES,
ZERO

CLRB
157
15T

LACNT(R])
(RO)
+
(RO)+

JSR
RTS

PC,C17
RO

CMP

BGE
BR

MxDL TR, R3

5§

SCHECK THE DELTA TO SEE

:THE #oox ARHERD LOUNT
'AND

TRKE THE 1,0 EXIT

:ADJUST THE RETURN ACDRESS
TEXIT

:PROCESS THE ERROR
RETURN

: INTERRUPT SERVICE ROUTINE

429]
4292

012566
012E74

4294

CleeGe

w293

;EEEE cuggéN§ CYLINDER

RPLA
4s

427? 015252 825985 002600

;;Rngn RETERN

ASR

MOV

162603

TO DPB

INCB
CMPB
BGT
MOVB

SWEB
ASR
177776

NUMBER

:CYLINDER?
SEXIT IF NO
LACNT(R1)
: INCREMENT THE LOOK AHEAD COUNT
LACNT(R1),MXLACT' : EXCEED MAX?
23
:BRANCH IF YES
10(R2),R3
!GET DESIRED SECTOR ADDRESS AND

BNE

007712

:POINT

¥ 3RT A SEARCH
!S1ART R DATA TRANSFER

4258
8124*0
064637
014636
4259
(12444
000036

4268
4269

: RETURN

42S3
:sgg

4262
4263
4264
4265
4266
4267

EaESYO&E RO - 32

4249

4260

:CLEAR T
GUEUE
;§E$
DRIcE ?oRIVE'S
OFFLINE

(01267e

112737
104412

©£00001

012701

007670

013704

007704

007622

ISR:

MOVB
SAVREG
MOV

MOV

81,ACTORV
RPADR , R4

DTUW, R}

:SET “ACTIVE DRIVER" FLAG
:SAVE RO - RS

*RDDRESS OF RHSCS1

!GET “DATA TRANSFER UNDERWA
1" INCICATOR

SEG 0080

RPOY S-6 HERD ALNMT

SZRICB. P11
4295

429
4297
4298
4299
4300
3385

012606

012610
012614
012616
012622
012624
012630

04-NOV-77 12:49
002403

004737
000402
004737
104413
105037
000002

MACY11l

4396

4307

4308
4309
4310

4311
4312
4312
4314

BLT

012772

oxsggg

012644

012646
012654
012656

0l2662
012666
012674
012700

605051
007546

12737

?777

007670

012761
01
013702

177777

007650

006301

00S037
052762
010164
004037

012704
012706
012710
012712

000000
012074
006126
100413

3355

612722

oowggz

012714
012720

00S737
100002

10:

0000i6e

007644

015200

IF NG

1FF
012726
012732

004737
000
000417

is:
.ENDC

000113

2s:

012739
012740
0l2742
012750
012754

012714
000414
0S2762
004737
004737

015200

4332

(012764

O0l2714

000113

434y

434

012760
012770

012714
000400
ocl

100100
015740

0O000le

3%:

040111

IF NO DATA TRANSFER UNDERWA'Y

CQLL TRANSFER DONE
CEXIT
:CALL SPECIAL CONDITIONS
'RESTORE RQ
- RS
'CLEAR "ACTIVE DRIVER" FLAG
{RETURN

8~1, TIMER(R1)
Rl
TRNSWT, R2

:SET DRIVE ACTIVE

INDICATOR TO

:NO DATA TRANSFERS UNDERWAY

ICLE

;CANCEL TIMEOUT

GET “DPB" ADDRESS FROM THE

(SP)+
38

:BR

JSR

PC,SVRHI11

'YES--SAVE THE REGISTERS

JSR

PC, WC

:SEE IF WRITE CHECK TO BE PLT IN G.EJE

JSR

PC,OPT

TST
BPL

SAVEFG
18

YES

:SAVE THE RH11/RPC4,S/6 REGISTERS?
:BRANCH IF NO

PC.GETREQ
R2
2s

:GET DPB POINTER
'ENTRY FOR DRIVE ?
‘BR IF NOT

JSR

PC,OPT

:CALL

: CHECK

8490111, (RY)

.xssus “DRIVE CLEARR"

:CHECK FOR OTHER DRIVES

{CALL OPTIMIZER
OPTIMIZER

ornsn DRIVES

MOV
BR
8IS
JSR
JSR

8113, (RY)
*RELERSETHE DRIVE
SC
:CHECK FOR oruen onxvss
caxrls-axros 16(R2) ser DATA ERROR FLAG
PC,EMPTYQ
;EMPYY THE “DRIVE'S unrr" QUEUE
PC SVRHI!
SAVE rus wax/npou/s/s REGISTERS

MOV

8113, (RY)

BR
.IF

8-1,0TUM

TRRNSFER WARIT QUEUE--CLEAR QUEUE
:SET DONE
*SELECT THE DRIVE
! TRANSFER ERROR(TRE=1)"

MOV

: 1SSUEA RELERSE ro THE DRIVE

:FORCED WRITE CHECK ROUTINE

We:

:g:g
4L 5L
WG
N
L
[V}

sBRANCH

SEG 008l

TRNSWT'
881707, 16(R2)
R1,RPCE2(RY)
RO,RD.RP

JSR
157
BEQ

010764

4332
4333
4334
4335
433€

4234]

ACTDRY

RPCS1
C1?
ROL
BMI

:ggg

3%3%

RSL

CLR
gIs
MOV
JSR

:gag

PAGE Bl

PC,TD
2s
PC,SC

DRVACT(R1)

MOV

007616

007616
000200
0000I0
014636

4324
4325
432¢

4337

D07

CLRB
MOV
RSR
MOV

4322

4329
4330
433]

JSR
BR
JSR
RESREG
CLRB
RTI

18:
28

007622

17:31

: TRANSFER DONE ROUT INE

4315
4316
4317
4318

4319
4320

0O4-NOV-77

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

012632

3383

4305

30(1046)

1ST

AUTOCK

CMPB
BEG
CMPB

:E.SCOOE(RE)
S
5%,SCODE(R21

ILAST opznngéou WRITE DATR 2
iBR_IF IT
LSSIFOPEgflTION WRITE HERDER & DRTR ?

JSR

RO, DRVGUE

!PUT THE OPERATION IN THE GQUEUE

BEQ

m
Z
m

CSRICBO,

nuvonnrxc WRITE CHECKS °

:BR

IF NOT

CZRJICBO,

RPOY-/5.6 Hsao _ALNMT

C3RICB. P11

O4-NOV-~7

[2:49

MACY11

30(1046)

O4-NOV-77

17:31

EQ?7

PAGE 82

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

435]
4352

BR
C.R

2%
I6(R2)

oueue
EAR

SEG 0082

1S FULL
"DONE’ BIT

4353

MOVB

$RPCS1(R2) spnevb< 2)

4355

4356

MOV

4357

BICB

§SEC(RE) ' $PREVA(R2)

BICB

82, SCODELR2)

AND TRACK ADDRESSES
cunnce WRITsecron CHECK

gis8
RTS

820, SCOMND (R2) : CHANGE oaxvsn cooe TO WRITE CHECK

210, SCOMND(R2)
PC

FINISH CHANGING CODE
(EXIT

42354

MOV

4358
4359

2%:

4360

4361
:ggg
4364
4365
436b
4367

4368
4369

4370
4371

000
012772
012776
013000

013004

013006
013010

013012

4372

4373
4374
4375
4376
4377
4378

4379
4380
438]
4382
4383

43849

4385

4386

4387
4388

4389
4390

4339]

43392

4393

4394

4395

4396
4397

4388
4399

013014
013016
013022
013024
013026

013030
013034
013036
013040

013042
013044

01304

013050

013052
013054

116403
001012
004037

000000

000207
105761

001402

105761

013074

000137

013104

003025

013114
013120

105761

105761
003422

004737
004737

4400

013124

004737

4402
4403

012130
013139

105761
003416

4405

012154

001002

4401

4404

406

013136

Di214&

RPCS1

cI18
ROLB

.IF

032737

000127

.ENDC

015316

1$:
2%:

00000!
5C3:
5CH:

001373

Q013072

013106
Q13112

MOVB
BNE
JSR

014636

BMT
SESCAPE

TO WRITE CHECK

007576

5CS:

013750

007606

18:

013750

007556

2s:

007624

016034
015200

RPAS (R4) ,R3
2%
RO, RD.RP

(SP)+

JSR

RO,ES.SAV

;SAVE THE ADDORESS

ERROR
JSR
RTS
CLR
MOVB
MOV
CLR
BIT
BNE
INC

|
PC,SET.IE
PC
-("P)
R3 (5P

'R3
R
na (SP)
scé
RI

;REPORT AN ILLEGAL INTERRUPT
:SET INTERRUPT ENRBLE
*RETURN
PROCESS RLL DRIVES THAT HAVE
AN

RSLB

(SP)+

RTS
1578

BEQ
JMP

1518

SC3

PC
DPINT(RJ)

1%
5C13

:ATA=17?
. YES--BRANCH

"MOVE

:BRANCH

THE

'CLEAN OFF

CHECK

CHECK?

THE STACK

TRETURN TO USER
INI:IRLIZING THE

R IF NOT
' PROCESS THE DRIVE

DRIVE

PORT REQUEST OUTSTANDING ?

SC13

'START THE oursrnno:nc COMMAND

'BRANCH IF ONLINE

DRVSTA(R1)

7578
BLE

ULDFLG(R1)
33

SUNLORD IN PROGRESS?
:BRANCH IF NOT
'GET DPB POINTER

:SAVE

BGTY

PC,GETREQ
PC SVRHI
I

PC.SC12

007556

1578
BLE

DRVSTA(R]
£%

ENE

3¢

BIT

JMP

DPRGS(RYL)

I578

JHP

'$ESCAPE’

DRIVE

JSR

013610

NO DRIVES

BEG

JSR
JSR

00753t

;1S "IE"=1?

:YES,

013700

040000

:READ "RPAS"
'BRANCH IF ANY 'ATA’ BITS SET
"RERD CONTROL AND STATUS REGISTER

BNE

005726

001402
000137

013100

5C:

106302

013060
01302

013066

000016

100403
001

012703
005001
030316
001305
00S20)

snvs CYL INDER

.ENDC
;SPECIAL CONDITION ROUTINE

O0l2174
106126

000
104001
004737
000207
005046
110316

SCYL(R2), SPREVA+2(R2)

IN OPB

SAVE WRITE OPERATICN COOE

$BITI4.RPERRS

SC1l

IF NOT

:CHECK

:SAVE

THE

DRIVE

STATUS

THE RM11/RPO4/S/6 REGISTERS

RPDS1,

RPERI,

RPER2,

AND

*ALSO DO
A
bnxvr xfixr (DRVINT)

oro onxvs COME
NO---BRANCH

| LAS

ONL INE?

THERE AN ERROR?

‘BRTMIF

ERROR

!NO ERROR

RPER3

4418
4416
4417
4418
4419
4420
442l

4422
4423
4424

¢]

kRl Dobul
REBNFRPRN FISHR

4411
4412
4413
4414

O0C000
»
L
T ST S

4407
4408
4408
4410

PO4 S-6 HERD RALNMT
04~-NOV-77 12:49

00000000000
o e e
e

¢80
CB.

3%:

007546

c§:

4445
H4Y4E
H4N7
4448
{449
4450

4451

44co

4463

44cH4

4455

<445%
4457
4458
4-4£9

44E3
“4E
]

“4ee

:BR _IF UNSAFE

RO, WRT.RF
RO,ES.SAV

:SAVE THE ADDRESS IN ’SESCAPE’

ERROR

s Pt Pt Pt
s Pt

ITE THE COMMAND INTO RPCS1

:REPORT THE uuexpscrso ATTENTIGON

GO CHECK FOR MORE ATA’S

JSR

RO,ES.SAY

:SAVE THE ADDRESS IN ’SESCAPE

ERROR

ASL
MOV
ASR

RI
#-1,TIMER(R1)
Rl

BMI

TsT8

8CY

:REPORT THE ADDRESS PLUG CHANGE

!CHECK FOR MORE DRIVES

'SETUP TO nooaess WORDS
:CTOP THE TIMER
"RESTORE THE DRIVE ADDRESS

nx,npcselnq)

:GET THE DPB POINTER FROM THE JUEUE
"SELECT DRIVE
'READ THE RPO4’S STATUS REG.

(SP),RS

:AND PUT IT IN RS

1§

'BR_IF ERR

PC,GETREG
RO.RO.RP
(SP)+

DRVACT(R1)

: WAS THERE nn ERROR?

cuscx onxve S STATE

R IF_ORIVE ACTIVE WITH ORDER

BGT

gés

gg;TlS'BITO?'BXTO3 16(R2) ; INFORM USER OF ERROR RECGVER COMP_ETICN

JSR

RO,RD RP

RPER1
SC8

MOV

SCll

(SP)+,RS

:READ ERROR REGISTER #!
:AND SAVE IT IN RS

PC,SVRHI1
s1ll 'lSP)
RO, WRT.

*SAVE Rnxx/npoq/sxs REGISTERS
:1SSUEA DRIVE CLEAR

ROL

;WRS “UNSAFE” CONDITION =17

757

JSR
MOV
SR

gggsx

SsCeR:

REL;

SCY

MOV

015200
000111
olsgie

$113,-(SP

JSR

RPDS1
sC8

18:

;cuscx ON DRIVE’S STATUS

(SP),RS

RPCS1
SC8
MOV

ROL

0i4636

RPERL, RPER2, AND RPER3
:ALSO DO A bnvx

OMMAND
'REGISTER INDEX
'PARITY EXIT ADDRESS
!PICKUP (RPARS) BEFORE THE ERROF CALL

JSR
SR

100210

:SAVE RPDS1,

#BIT13,RPERRS+H noonsss PLUG CHANGED

JSR

MOV

D07546

DRVSTA(RL)
es

B8R

016034
000010
014636

PC,sC12

BNE

177777

RIRRRR
ROFFRO
£ 5 ERBRRLBRNC R8s 2N

4444

BMI

[TIAIATOINTNINTIAIATNINTRININTAININTN
W W WLWLHI WWW W WIWWWWWWWW

4439
4440
4441
Y4y
4443

4437

4438

:TRYING TO INIT THE DRIVE
:BR_IF YES, CHECK ON MORE onxves

_1F DF SESCRPE

B o Pt Be Pt Pt et Pt Pt Pt Pt et Pet et Pt c Pt Pt (et Pt Pt Pt Pt P

4436

YES -- PICKUP RPER]1 AND

DPINT(R1)
ScY

SESCAPE

ENDC

RPERRS+2, RS

1518
BNE

.IF DF

ENDC

OOO00CO0000000000000000000D0000D

4435

SEG 0083

co PROCESS THE ERROR
oaxvs ACTIVE WITH COMMAND OR ERROR RECOVERY 2
‘B8R IF EITHER

MOV
79:

4431

PAGE 83

SCER
DRVACT(R])
SCe

BIT

000113
gis0le

4429
4430

MOV

TST8

020000

4428

4432

6S:

0075Sse

442¢

17:31

BR
7578
BNE
JSR

013700
007576

O0O4-NOV-77

SINGLE/DUAL PORT RH1i/RP0O4,/S/6 DRIVER (REV 1.0)

007540

4426
4427

4433
4434

MACY11 30(1046)

FO7

BMI

BEG

SC?7

"BRANCH IF YES

SANYTHING IN QUEUE *

:BR IF NOT

CIRICBO,

RPOM.S.6 HERD ALNMT

C5RICR. A1
4463

Y464

4465

013364

0S2762

100240

013379

004037

014636

013372

4466
4467
4468

013400
013402
013404

9470

013410

4469
4471
4472

O4-NOV-77 12:49

013w08

000443

800012
013560
011605

MACY1l

30(1046)

100011

11276l
004737

013432

0004e3

17?777
015200

000016

8IS

18:

4475
4476
4477

013434
013440
013442

032705
001015
112761

4479
4480

Q013456
013460

006301
012761

4478

4481

4482
4483

4484
4485

Y486
4487

4488
4489
4490

4491

w432

4483

4494
4495
4486
4497

4498

013460

013466

013470
013474

013502
(13506

013512
013516

4509

00?545
015740

01274

CO0113

013536

013644

013550
(013662
013584

(013560

013564

100406

004037

000000
(013560
000137
105761

0014

000137
1057?6%f

013042
007624

G136l6

105061

DO7B24

013622

013626

003402

105061

136137

4€10 013634 001012

000016

3%.

8C7:

1§:

2%:
SC8:

012122

007546

067672

4€1]1

013636

004737

016056

4€13

013650

005737

007644

013656

004737

015200

013670
013e74

004737
000127

010764
013042

1$:

2%
SCil

007e20

18:

4512 013642 052762 000200 0000le
4E14

4E1€

013654

100002

4E1E 013662 Llblb4 007672 0OOOClE 2%:
4€1?7
€18

NP
BIS

CLRB
JSR

1578
BGT
CLRB
MOVB
1518

DRIVE

| “ERR"=17
:BR

sl,ORVSTA(RL)

IF No--unsnrs CLEARED

: INFORM USER OF UNSAFE ERROR

:ONLINE

;START

SCY
#BIT1S!'BITO7!BITOM,

ULBFLG(R])
1S

,
RECOVER

SECOND

16(R2)

:DRIVE IS IDLE
'DUMP THE QUEUE

TIMER

: INFORM USER

JSR

RO, WRT.RP

1578

SCY
DRVACT(R.)

JSR
JSR
BR

PC,GETREG
PC.CI7
2s

csr DPB POINTER
:PROCESS THE PARITY ERROR
: CONTINUE

nP
Is18

SC4
ULDFLG(R1)

:CHECK MORE DRIVES
P“UNLORD IN PROGRESSTM?

CLRB

ULDFLG(RYL)

'CLEAR UNLOARD FLAG

BEQ

JSR

BLE

8113, -(SP)

PC,CI7B
18

CLRB

DRVRCT(R1)

BNE

8ITB
JSR

Bls
757

BPL

JSR

MOVB
JSK
THP

_
ERROR

:UNLORD IN PROGRESS OR QUEUE?
‘BR IF NOT
ULDFLG(RI)
:CLERR UNLORD FLRG
nrnexr<nx>,npns<hq
CLEAR ATTENTION BIT
DRVSTA(R])
,xs
THE DRIVE UNSAFE

RPCS1
SC8
NP

ERRCR

IN RS

S”"MOLTM = ] 7
:BR IF YES
;ACTIVE ERROR

R1
830000., TIMER(RL)

DRVACT (R1)
PC EHPTYQ

REG.

:DRIVE IS UNSAFE
'SAVE RH11/RPO4/5/6 REGISTERS

oeivxs'axrxe 16(R3)

sBIT12,RS
3s
#-1, DRVACT(R1)

STATUS

USER

BMI

MOV

013042
007546

(013604
013610
013614

ASR

J1801%

016034
012074

004737

sC?

MOVB

007624

004737
004737
000402

013600

B8R

000016

007556

#-1,DRVSTA(R1)
PC, SVRH]

013042
100220

013S40

453t

4508

10S06]
004737

;SAVE RPDSI

007650

00762
007672
007556

4503
4€09
4507

000137
062762

(SP),RS

072460

013520
013524
013832

(013566
013572
013576

<505

006201

(SP) 4+

MOVB
JSR

SEG 0084
; INFORM

ROL

BIS

2s:

#BITIS!BITO?!BITOS, 16(R2)

SC?7

:READ

ASL
MOV

00000!

PAGE 84

RO,RD.RP

007546

177777

GO7

JSR

RPDS1
SC8
MOV

BIT
BNE
MOVB

105761
003002
10SO6!
116164
105761

4499
4500
4SOl

4502

112761

010000

BPL

007556

4473 013424 0S2762 110000 000016
4474

17:31

SINGLE ‘DURL PORT RH11/RP0O4/5/6 DRIVER (REV 1.0)

006126

013412
013420

O4-NOV-?7

‘BR

‘WRITE

-81707
16(R2)
SAVEFG'
es

MAND

HE connnuo INTO RPCS!

xs DRIVE IDLE?
YES--BRANCH

!PROCESS THE UNCORRECTRBLE PARITY ERRCR

:BRANCH

IF
NO

:SET DRIVE IDLE

ooxnc R SEARCH OPERATION FOR
1/0 COMMAND?

BRANCH IF YES
; REMOVE REOUEST FROM QUEUE

,ssr*DONETM BIT

‘SAVE THE REGISTERS?

'BRANCH

IF NO

:YES--SAVE ALL OF THE RHll RPOY S & REG'S

nrhexr<nx) ans<hq)
PC,GP
sCY

"REGISTER IN
'PARITY EXIT noonsss
:CMECK FOR MORE DRIVES

ATABIT(RL) , SRCHWt
PQUE

RELER

CLERR ATTENTION BIT

sTaRt
A REQUEST
LHEVK FOR MCRE DRIVES

& HERD

ESRIER
e 170 B4
-.q

v-/77

ALNMT

12:49

38601

000014
000040
000042
010134

MACT1L

007536
007540
0Q7S4e
007544

1772777
0090;0
001006
006301
012781l

006201
000433
105761

384605
023420

007650

scl2:

SC13:

000016

007650

18:

007556

p7e

o0M?7 37
000404
105061
004737
000137

200

740

2¢:

00 606
01 764
013042

3%:

311, TIMER(R1)

MOV
MOVB
BIT

R1,RPCS2(RY)
SELECT THE DRIVE
ATABITCRL) RPAS(AG) . CLEAR THE_RTTENTION BIT
sex 11, (R4}
DRIVE VAILABLE

RSL

MOV

#10000., TIMER(RL)

ASR

NOP
1518

DRVSTA(RL)

15T

ASL

s
s
Bt

£ £ WWWMNINY
#= s o
oMo
LeIo

Dt Bt e Bt Pt Pt P

et
gen B

o
o GV
Rl

e Dt e

Pt Pt B

OF GF o

Qo000 COoO00

:
0057327
001030
112737

005763
002407
16E66E23
003003

RPTMR:

gCc7e2e
00ocol

0078650
000C0e

007eE0

33
DPINT(R1)
2%
DPINT(RI)
RO, DRVINT

:SETUP

RDDRESS

srop THE TIMER

WORDS

:BR IF AVAILABLE
;START

10 SEC

TIMER AGRIN

JEXIT
SINITIRLIZING THE ORIVE *
'BR IF NOT
:CLEAR THE INIT INDICATOR
:GO INIT THE DRIVE

:DUMMY PARITY ERROR RETURN
'DRIVE ONLINE *

:BR IF YES -- START CRDER

oueue ENTRY FOR THE DRIVE

3%
PC, GETREQ

JSR

ggn

PC,SVRHI1

S§ EMPTYGQ

;SAVE_THE REGISTERS

CLRB
JSR
IMP

DPRQS(R1)
PC, OPT
5CY%

:CLERR THE PORY REQUEST xnoxcnvop
:START THE PENDING REQUES
:PRCCESS OTHER DRIVES

‘BR IF NOT
‘GET DPB noonsss

B8iTiSIBITIY, 16(R2)

:INF M USER THRT DRIVE OFF_INE

‘EMPTY THE REQUEST QUEUE

TIMER ROUTINE

MOV

JSR

PC,RPtMR

8TIME, -(SF)

:ELASPED TIME

TST
BNE

ACTDRV
4§

: CHECK "ARCTDRV & ACTSTRTM
:IF NON ;Eno EXIT

SAVREG
gtg

Eé

: SAVE RO RS
!START WITH DRIVE O

TIMER(R3)

1S THE rxnen RUNNING?

MOVB

007623

BEG
JSR

;gzeq/s/s
;

THE FOUR REGISTERS THAT
SWILL TECL US SOMETHING

gg;

g1s

000016

;SELECT onsz

RPOS1(RY), RPERRS’
RPERI( q>' RPERRS +2
RPER2 (R4) | RPERRS+4

RPER3(RY),RPERRS+&
RO, DRVINT’
SINIT. THE STRTE OF THE DRIVE
18
: TAKE ERROR EXIT
PC
: RE TURN
(SP)+
1POP PC orr OF THE STACK
sC8
Pnocss§ PARITY ERROR

BGT

WON

oSy

034
000

é RPC a(Rq)

SEG OoesS

MOV
JSR
BR
RTS
TsT
BR

BR
1518
BEQ
CLRB
JSR

D07576
010134

0l
14
gl
01

MoV

MOV
MOV
MOV

BNE

007576

HO7

NuLE/DUQL PORT Rflxx/hgéq/S/s og?vsn (REV 1.0)

1§:
752

Q4-NQV=-77

39(LQH

757

BLT
sug
BGT

#1,ARCTSTR

IN MILLISECONDS ON THE STACK

:CALL RPOY4-S/w TIME ROUTINE

ISET "R

2
*BRANCH IF 10
2.SP,, TIMER'R3) :COUNT THE INTERVAL
2%
'BR IF NO SOFTWARE TIMEOUY

SIRICBO,

RPOM-5.6 cho ALNMT

CIRICB.P1I

D4-NOV--7

12:49

014202

4575

014150

004737

4577

014156

005201

4576

4578
4879

014159

000405

014160
Ql4lee

005723
022701

014170
014172

104413
105037

4680 014166 00336!

4581
4582

4583
:ESZ

0I4i76
014200

012616
000207

MACY11l 30(1046)

000010

4588

3%:

4§:

4590

:CALL:

4Eq]

SEG 008E

JSR

PC,STO

s CALL sorrunne TIMEOUT ROUTINE

INC

‘MOVE TO NEXT DRIVE

BGT

1St
cHP

RESREG
CLRB

MOV
RTS

(R3)+
#8. ,R!

ACTSTR

(SP)+, (SP)
PC

160 TO THE EXIT

;0UT OF DRIVES?

:BRANCH IF NO

- RS
'RESTORE RO
:ZERO ACTIVE sorrunns TIMEOUT ROUTINE FLAG

'ADJUST THE STACK
:RETURN

OR GREATER

STO
JSR

$DRVNUM, R1

PC,STO

:DRIVE NUMBER

MOV
MOV
MOV

Ri,~-(SP)
R3 -<sp)
RPADR

s SAVE Rl
:SAVE R3
*GET ADDRESS OF “RPCS1”

JSR

RG.RD.RP

'RERD “DRIVE STATUS REG

4592

MOV

:ggg

RE TURN

ST0:

4543

4535
4597
4538

Q014202
Q014204
014206

010146
010346
013704

007704

4600
4601

014216

014636

4e02

014222

004037

014224

014524

4599 Ql42le 010164 000010
0l4e26

000012

MOV

RPDS1

S705

Is7B

105726

4604
4605
4606
4607
4608
4609
4£10
Se11

014230
014232
014236
014240
0Ol4244
O0l4246
014252
014256

100477
106761
001074
105761
001071
013702
020137
001402

4£17

014310

105061

007576

sT0l:

007606
007616
007670

4613 014260
0l4eb4 004737
0S2762 016034
101000 000016 18:
4€14 014272 004737 015200
014276 012764 000040 000010
4E15
4616 014304 10S06! 007546
<£18

014314

005001

4620

014320

0049037

4€l9

PARGE 86

'NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY &

45pq

4E1Z2

107

; SOF TWARE TIMEOUT ROUTINE

:ggg

4603

17:31

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

2%:

007623

0O4-NOV-?7

014316

005003

4e21
4ec2
4623
we24
4625
4E2H
4E2?

014324
014326
014332
014334
Q14340
014344
014346

000477
105761
001414
013702
023701
001402
004737

“E3C

Cl43e4

10SCE!

014352 0S2762
4628
w293 (14360 10S0el

007624
010134

007546
007616
007670
016034
100400
007S4€
007&24

2s:

4§ :

(SP)+

!SELECT THE DRIVE

;1S “DRY”=1?

BM]
1578
BNE
TSTB
BNE
MOV
CMP
BEQ

5702
OPINT(RI)
§702
DPRGS(R1)
ST02
TRNSWT,RE
R1,DTUN
s

'BR IF YES
'TRYING TO INTIALIZE THE DRIVE
:BR IF YES
'OUTSTANDING PORT REQUEST FOR THE ORIVE °
:BR IF YES
:PICKUP TRANSFER WAIT QUELE
: TRANSFER UNDERWAY ON THIS DRIVE?
'BRANCH IF YES

CLRB
CLR

DRVACTIR1)
RI

:CLEAR THE UNLOARD FLAG

JSR

BIS
JSR
MOV

CLRB

CLR

JSR

REQ
GET DPB RDDRESS
sBiTlS'BITOQ.ls(QE)
SET THE ERROR FLAGS
avé “RH11/RPO4.5-6 REGISTERS
SVRH11
oairos RPCSB(RH) “INIT" THE MARSS BUS

ULDFLG(R1)

RO, DRVINT

0RIVE IS IDLE
!START WITH DRIVE O
sINIT. THIS DRIVE

BR
YST8

sTHS
DRVACT(R1)

'PARITY ERROR RETURN
onxvs IDLE BEFORE THE INIT

MOV
CHP
BEQ
JSR

TRNSWT , R2
DTUW, R}
3s
TREQ

'GET TRANSFER WAIT QUEUE
' WAS THERE x/o ON THIS DRIVE?
ves--a
‘GET THE opa POINTER FROM GUEUE

CLRB

ULDFLG(R1)

*NO UNLORD

BEQ

000016 3S:

R1, RPCSE(RH)

*CALL

8IS
CLRB

YES--BRANCH

INFORM USER OF INIT
xs(ha).
seirls'exroa.
.SET'DRIVE ARCTIVE TO IDLE
DRVACT(R1)

[ 1)

012763

£
o
v

45y
456

[l ® L 13 Tt T2 [

127727
007615
015662

Ja7

PRGE 87
17:3]1
04-NOV-?7
SINGLE DURL PORT RH11/RP0O4/S/6 DRIVER

30(1046)

007650

MOV

TST
INC

cMP

BGT

007670

.
STUZ:

000016
007672
007576

007606

FRASEEF
T ERREY[No—»—g
VI4,V

WWWININY
=
L0 LOND

177777

007eS0

18:

oe.,nx

s1d1
RO, RD.RP

:BR IF NO
'YES--CHECK “RDY"

BPL

TSTB
BNE
TST8
BEQ
MOV
BR

(SP)+

xnxrranzxmc THE DRIVE ”
'BR IF INIT PENDING
:PORT REQUEST PENDING ?
:BR IF NOT
:STOP THE TIMER
TEXIT
:CLERR THE

nnzs7e

ST06:

CLRB

DPINT(R])

1772777
007606
016034

007650

ST07:

CLRB
MOV
JSR
157

DRVSTA(R])
#-1, TIMER(R3)
pc,BETREQ

BIS

BEQ

ST09

BR
MOV

CLRB

s oe

DPRéS(Rl)

15T
BEQ

RE
ST09

JSR

000016

sT08:
5T09:

000207
:ROUTINE

;CALL
:

;

MOV
JER
JSR

MOV
MOV
RTS

:BR IF "RDY"

DPINT(R1)
18
DPRQS(R1)
ST09
#-1 . TIMER(R3)
S704

ggnge

000016

:DATA TRANSFER UNDERWAY FOR THIS DRIVE

s701

%gn

140000

NO--L0OP

R1,DTUW

STOS:
007650

TIMER

LQST DRIVE BEEN CHECKED?

012174
007556
177777
016034

THE

‘UPDATE THE INDEX
: INCREMENT THE DRIVE NUMBER

BNE
JSR

7ST8

007606

;STOP

SEC 0087

NO DATA TRANSFERS UNDERWAY
:CLEAR TRANSFER WRIT QUEUE
:CLEAR ALL REQUEST QUEUES
SEXIT
:RERD ATTENTION REG
!IS nrrenvxon FOR THIS DRIVE UP ~
YES--BRANCH
:TRYING TO INTIALIZE THE DRIVE ?
:BR IF YES - DRIVE NOT ONLINE
TOUTSTANDING PORT REQUEST FOR THE OCRIVE ?
:BR IF YES - NO RESPONSE TO REGUEST

5705

ST03:

TIMER(R3)

(R je

1.0)

s-1 DTUW
TRNSUT
PC, CLRQUE
ST09
RPAS(RY) RS
ATABIT(RI),RS
5703
DPINT(R1)
ST06
DPRQS(R1)
ST07

RPCS1

00757¢

#-1,

(REV

MOV
CLR
JSR
BR
MOVB
BIT8
BNE
Ts18
BNE
TsT8
BNE

cCMP

007670
014636

464

Ll
e

17727772

MACY11l

000010

LLLLLLrEL5 L5
L
oI o

ol ot St wrwr et wi eywtwtwtwtetotetotetetet
et etttPt Ot Bt Pt Pt Pt Pt Pt Pt o

Pt P Pt P P

LfLELrLfLfLiL5rc5£L
£

[ )

00000000000 0000000C 00000000 OOOO0O0D0000D00DO000O00CO00D

h'd

PO4 S-6 HERD QLNHT9
04-NOV-77 le:4

GO HANDLE THE PARITY ERROR

sBIT1S!BITIH, 15(&2)
TIMER(R3)

PC,GETREQ

INCEX

INDICATOR

IF NOT

INFORM THE USER DRIVE NOT AVARILABLE

rxuxé
;STOP THE TIMER

CLERR PORT REQUEST INDICRTOR
GET DPB ADDRESS

ousue ENTRY FOR DRIVE ?
:BR IF
NONE

#8IT15!'BIT2, 16(Ré)
INFORM USER OF PORT REQUEST ERROR
PC,EMPTYQ
LEAR THE QUEUE FOR THE DRIVE
PC SVRHI1
snv;
THE Rscxsrans
(SPY+,R3
'RESTORE
(sp)+ R1
RESTORE Rl
PC
*RETURN

TO REARD A RH11/RPO4.5./6

JSR

INITIALIZE

:SET UNIT OFFLINE
STOP THE TIMER
£7 THE DPR QDDRESS
REQUEST IN QUEUE

RO,RD.RP

;GO READ
A REGISTER

'REG. INDEX FROM BASE

CoRJCBO,

RPOY S & HERD ALNMTY
O4-NOV-77
-NOV-77 12:49
l2:

CIRJICB.®]
ZRIC
1

MACY1l

KQO7

30(1046)
O0O4-NOV-77
17:31
PRAGE 88
SINGLE/DURL PORT RH11/RP0O4,5/6
DRIVER
/57

(REY 1.0)

SEG 00se

:ggg

;

ERRADR

Efiagalgoonsssggpnocsss ERROR

3233

RE TURN

'CONTENTS OF REG.

RD.RP:

MOV

ncpsnx RD.RP2

;MAX. RETRYS ALLOWED

ADD

(RO)+.RD.ROR

:USING THE BARSE AND THE IN

469]

014636

013737

007702

4694

014654

062037

014662

4698

014666

013766

4701

014704

§32736

0I4716

032716

4692

014644

011646

015000

4693 0l4e46 013737 007704 014662

4636
Diuees DOBORO
4697 014664
000
4699
4200

014674
014700

4702
4703

014710
0l4712

4705

014722

4704

4706
4707

4708

+709

014724
0l4726

014730

:3{?
4712

:;ig

4716

013746
06271€

00103S
017746
001002

014664

007704
000010

014730

014740

172766

020000

104503

ENDC

040000

013737

4718 Q14798 BogwiE
4750 DBlares Bogaie 0vo0O
4725

4726

8{:;;3

014776

015000

005237

xxasgg

es:
-

RD.RP3:

000200

RD.RPY4:

015006

012616

015010

014774

011000

4729
:;g?

014774

8IT

BEQ

RD.RP2:

00232

015004

007704

4732

:ROUTINE

4733
4734

;
JCALL

4736

4735

4737

4738
:;33
4741

4742

013737

016637
166

007702

000002

JSR

53}

005327

015002

4728

RPADR , - (SP)
8RPCS2, (SP)

#BIT12.3(SP)+

ERROR

0000G3

4727

RD.WRD, 2(SP)

BNE

BIT

:SAVE RO FOR RETURN

:FORM THE DESIRED ADDRESS

B(PCIR.(PC+
iREBD
THE DESIRED REGISTER OF THE RPOS
O
EREG. CONTENTS PUT HERE

RD.RP3
ORPADR,- (SP)

.If DF SESCARPE

032716

014760

Rpaok RD. noR

IS ON THE STACK

IBITIB,(SP)

'RETURN

CHECK

THE

USER

:PUT THE RDDRESS ON THE STACK
ronn rus ADDRESS OF RPCS2
°*NED’

BIT

en IF DRIVE NON-EXISTENT
:RERD RPCS]

:DID MCPE SET?

:BRANCH IF YES

(SP)+, (RO)+
RD. RPY%

*ADJUST FOR RETURN
TEXIT

RO,ES.SAY

:SAVE THE ADDRESS IN

18:

007670

4721

-lspP)

BNE
MOV

CMF
BR

?ggzgg
001402

3;33

MOV
ADD

BIT

ool

014744

014766

MOV

010000

000

8%:;35

MOV

RO-RPL:
MOV,
RD.WRD: .WORD

022620
000430

4716

4722

000002

MOV

STARTING

015162

015100
O0iS!

g;uw
sBIT1Y, (SP)

B2
Blg

RDRP3
MBITIN.SP)

INC

MOV

"ngo

DEC

.WORD

8GE

MOV

RTS

RPADR, 3%

; REPORT “MCPE*

’SESCAPE’

ERROR

ogrnegnngsrsa UNDERWAY ?
NO--"TRE®=1"?

NO--BRANCH

¥EE§'$hE“?g?SE EREOR. Ex1T MO
CLEAR HCPET
BY SENDING A "1 TO “TRE
:FORM RDDRESS OF HIGH BYTE

éSP)+,a(PC)+

ggézgsgnngéggsavre OF RPCSI

(PC)+

:EXCEEDED MRX. RETRYS

RD.RP1

s BRANCH

(RO), RO

(SP)$, (SP)

"FATAL ERROR EXIT

TO WRITE A REGISTER

MOV

;

INDEX

JSR

:
:

ERRADR
RE TURN

WRT.RP:

MOV

DATA -zsp>

RO, WRT.R

;:DATA TO BE LOADED ON THE STACK

‘CALL THE ROUTINE TO LORD(WRITE) THE REG.

:INDEX OF THE REGISTER TO BE LGORDED
*ADDRESS TO RETURN TG ON AN snaon
:ERROR FREE RETURN

MCPEMX,WRT.R2

P),UWRT.
2(SP)
,lRT.WD

;MAX

RETRYS

ALLOWED

'S AVE THE
THE
W WORD TO W WRITE

P p.e]

~N NNOCOOO - YN

WOV
£
~N NONW~-0O0 £NO
W(W W=
= O (D
Lr—
L) +—

BoR-9808BRLRoS
]
8'\)

885 mmmmwmgwmm
000
Brces
g&w £ K28R

FRFSERBRNE o208t

s Pt it P

30(1046)

000150

MOV
MOV
BNE

015100

014636

18:

WRT.R1:
WRT.WD:
WRT.RD:

s Pt Pt e P

000010

WRT.R4:
WRT.RS:

;CALL
:

SVRH11:

885
Q0000~-0
NOO+
LO T Ll el
h

Pt Bt Pt Pt ot Pt Pt Pt et

U‘U\U\U‘anw
RN LY

RPADR, WRT.RD

;FORM THE RDDRESS OF

#RPCS2, (SP)

‘FORM THE flDDRESS OF RPCS2
{CHECK THE 'NED’ BIT

BIT
BNE
JSR

88IT12,9(SP)+
WRT.R3
RO,RD.RP

BIT
BEQ

oa¥703 (SP)+

JSR

RO, RD.RP

TST
RTS

TO SAVE
MOV

JSR
SAVREG

TST

MOV

MOV
BEG
CLR
CHP

ON'T GET THE OLD nxs 3 n17

NO---COMBINE R168RA17

PSEL WITH

THE COMMAND BEFORE stnornc IT 10

& PSEL

(SP)

(SP)4, WRT.WD+1

(PC)+.3(PC)+
O
O
RPADR, - (SP)

MOVB
18:

THE STACK

:GET INDEX OF REGISTER TO BE WRITTEN
!BRANCH IF NOT RPCS1
xs THS
connnno FOR DARTR TRANSFERS?
:THE RHI11/RPOM

MOV
.WORD
.WORD
MOY

BEQ

007704
000Q10
000014

;ADJUST

SEG 0oes

ADD

MOVB

uono
WRT.R3
.1F DF SESCAPE
JSR
.ENDC
ERROR
DEC
WRT.R2:
.WORD
BGE
LE
WRT.R3: MOV

nnnnnnn

18:

(SP)+, (SP)
(RO)+,WRT.RD
18

(REV 1.0)

(SP)
#1C7,

MOV

gis1se

;ROUTINE

QOO0000000

PRAGE 89

SWAB
BIC

RPER]
WRT.R3

014636

0000ee

LD?

#150, WRT.WD
18
RO,RD.RP

RDD

010000

0is2e0
giceel

17:31

CMPB
BLT
JSR

RPCS|
WRT.R3

015102

177776
014636

04-NOV-77

SINGLE /DURL PORT RHll/RPOH/S/s DRIVER

015102

)

Pt Bt

s Pt Pt
o
s Bt frin Bt it Pt Bt B
00 Pt

ettt ettt

0002000000

04-NOV-?77 12:4

MRCYL}

FERNOF TGS

ot Pt Pt Pt ot Pt P

s Pt P

Pt Pre

0O00000000OOO0000000000000OV00D

PO4 S5-6 HERD RLNMT9

-2(R0O),

RO,ES.SAV
4
(PC)+
3
WRT.R1
(SP)+
(RO),RO

WRT.RS
(RO)+
RO

THE DISK REG.

:LOAD THE DESVRED REG.
{WORD TO WRITE GOES HERE
RODR?SS
IS FORMED HERE

DRESS ON THE STACK

iBR_IF DRIVE NOM-EXISTENT
iCHECK FOR PARIT¢ ERROR ON WRITE
; BRANCH IF "PAR=0"

:PICKUP THE INDEX
!READ THE REG.
iREG. INDEX
{RETURN TO THIS ADDRESS UN ERROR
; SAVE THE ADDRESS IN

'SESCRPE’

;REPORT THE PARITY ON WRITE ERROR

:DECREMENT THE ERROR COUNT
{RETRY COUNTER
:TRY RGAIN IF NOT FINISHED

:CLEAN OFF THE STACK
FEXIT

:TAKE THE “PARITY ON WRITETM ERROR EXIT
:ADJUST FOR ERROR FREE EXIT

THE RH11/RP0O4/5/6 REGISTERS RS PER DPB+14
$DPBNUM, R2

PC,SVRHI1
R2

(R) chsa(Ru)

14(R2),R3

68
38
3§, sPPOB

;OPB_POINTER TO R2

:SAVE THE DRIVES REG'S
;SAVE RO
- RS

:QUEUE ENTRY FOR THE DRIVE °
:BR IF NONE
; SELECT DRIVE

iGET THE ERROR TABLE POINTER
JEXIT_IF NO ADDRESS
:COUNTER & POINTER
'REACHED THE BUFFER REGISTER °

CZRJCBO,

RPO4/S-6 HERD ALNMT

CZRJICB.P11
4799

O4-NOV-77 12:49

Q15236

001006

3§§§ §gg§§§

g§

:eoo

4804

0.5240

000200

037

014636

(015254

4805

813522

4807

015268

4806

032764

015266
gxgsrw

023727
001409

4811
4g12
4813

015304
015306
015312

0006751
004737
104413

:ng

018376

015314

062737

30(1046)

3s:

000046

000002

015260

012074

WS:

§E3)+

:c$AE
3503 RS ZEROES

JSR

RO,RD.RP

(SP)+, (R3)+

srons T

_WORD

MOV

CHP
BEQ

38, sRPEC2
68’

BR
JSR
RESREG

18
PC,C17

RTS

82,38

4818
4819

;
;

D0IS316

010446

iBod 81%%30
D123aq 811445
oidiee 387R%s
4825

:eee

015336
015340

oisaqu

000316
112714

032764

000100

010000

483? 81?3?5 -fiéggi
:SS% 015323 ??0223 000001
:eae
4837

4838

4839
4840
4g4]
4g42
4843
4844

3832

18366

207

812370

000

01837}
015372
015373
015374
(018375
(015376

0152377

060
060
000
000
000
0C0

4849
48S8

4851
4852
48E3
4854

THS

015404
0iS40e
(Q1E416C

016412

015462
015502

gxssee
015542
01552
0O1S602

RESS

Rencneo HE END
7
R IF s;
NCREMENT

THE REGISTER

INTERRUPT WITHOUT GETTING A "TRE”

RETURN

SET.IE:

MOV

R4,

; SAVE R4

MOV
BIS

&4) -(S
oaxrlw (sp)

000010

MoV

18
2s:
.

2"“82¢§2m~n

"éE““”
BRTvE > O RPCst

25
HE "TRE“ BIT OF THE WORD RERD

(SP
oaxroa (RY)

noJusr FOR DATO
ss “1E”

gs
ggva

<§P)+
?sp) (RY)

CLEQN bir THE gracx
AR TRE

RTS

MOV

- QUEUE COUNT

4CNT:

-(SP)

SWAB
MOVB

egr

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

BYTE
QINPT:

.WORD
.WORD

INDEX

conrxnue RERDING THE REGISTERS
:PROCESS THE UNCORRECTABLE PARITY ERROR
RE?TORE RO - RS

:91712"RPCS2(RY)’ xs "gso"-ngR

(§PJ+ Y
+

SEE

[

;DRIVE O

O
O
O

:ORIVE
:DRIVE
:DRIVE
‘DRIVE

1
2
3
Y

O
O

:ORIVE
:ORIVE

S
6

:DRIVE
‘DRIVE

O
1

QDRVO
QDRV|

[

RETURN ro CALLER

:DRIVE 7

: GUEUE INPUT POINTERS
(0IS400
01402

?EBECTED REGISTER

303 SE

;DRIVE NUMBER TO RI
SET “I1E"

000

:g:g

SET ?

SDRVNUM R1
PC,SET. {E

uggg §1§3&4 86%6 Y

IF NOT

:'OR’

MOV
JSR

4826 015332 052716 040000

4827
4828

SES 0080

;BR

;ggEEINE TO SET THE

4822

PAGE 90

#8I1T0? ,RPCS2(R4)’

:gig

385?

MO?7

ADD

cs:
68:

000207

17:31

BNE

egr

28:

015260

O4-NOV-7?7

SINGLE/DURL PORT RH11/RP0O4/S-& DRIVER (REV 1.0)

000010

012623

4808
4809
4810

MACY1l

WOR
WOR
WORD

QORY
QDRYV
QDRVH

‘DRIVE 2
'ORIVE 3
‘DRIVE §

WORD

QDRVS

:DRIVE

RPO4,S5/6 HERD ALNMT

CZRICB. P11

4832
4833
4894
4895

DRIVE B
DRIVE 7

.WORD
WORD

QCV?
QTERM

VE 2
1--START D
2--START D R1 VE 3
--START DRI VE 4

--STRRT

RI VE S
RI VE B
D RI VE 7

GDORVY4
QDRVS
QDRVE

vE
Vv
v
v
v
v
v

—

WORD
WORD
. WORD

S TART ADDRESS
IVE
S TOP RDDRESS 31 DRIV

D
x

QDRVOD
QDRV}
QDRVE
QDRV3

QORV3
QDRVM
QDRVS
QDRVH
QDRV?

-y

.WORD
WORD
WORD
WORD

. WORD
. WORD
WORD
WORD
WORD

|
v

QSTART:
QSTOP:

QDRVO

QDRV
]
QDRvVe

\IU‘({‘IU

015446
015460
015452
015454
016456
015460

015462
015502
015522
(15542
015562
015602
(018622
016642
015662

.WORD

WORD
WORD

mmmmmm

015440
018442
015444

QOUTPT:

NOCOMILW~—O

015432
015434
015436

015462
015502
015522
015542
015568
015602
015622
015642

015430

;DRIVE REQUEST QUEUES
015462
015502
015522
015542

UlSSe2
015602

015622
015642

000010
000010
000010
DOO0IS

QDRVO:
GDRV]:

.BLKW
.BLKW

10
10

QDRV3:

.BLKMW

QORVE:

QDRVY

000010
000010

QDRVS
QDRVE
QDRV?

000010
000010
015662
§

QTERM=

01E714

4908

0iS722

104412
012702
00S022
005022
005022
005022
012703
012701
012122

(15712

005303

015716

012703

015726
O01€730

001375

012701

012122
005303

BULKW

.BLKMW
.BLKW
.BLKW
.BLKW

10
10
10

;ROUTINE TO CLERR ALL OF THE REQUEST QUEUES

:CALL

4905

4903
4310

QDRVE
QDRV?

K<<
mmmmmmmm

015420
015422
015424
015426

015662
015664
015670
Q15672
015674
015676
015700
015704
015710

4907

. WORD
. WORD

015622
015642

SEG 0091

; QUEUE OUTPUT POINTERS

4896
4897
4838
4899
4900
4301
4902
4903
4304

43905

PRGE 91

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

et 5t Pt 5t 0t 0

4877
4878
4879
4880
48]
4882
4883
4884
4565
4886
4887
4888
4889
4896
489]

NO7

VOVIVVVVUC
mm
jolelelalelele]
DDVDBDDD0O00

4872
4873
4874
4875
4876

17:3}

OO0 00D0D

48s?

4858
4859
4860
486!
4862
4863
4864
4865
4866
4867
4868
4863
4870
4871

(Q1S414
015416

0O4-NOV-77

ewswme

4855
4856

O4-NOV-77 12:49

MACY11l 30(1046)

uvnLYNNOOD

CZRICBO,

015370

0000'0
015440

JSR

PC, CLRQUE

CLRQUE:

SAVREG
MOV
CLR
CLR
CLR
CLR
MOV

oocnr R2
(R2)+
(R2)+
(R2)+
(Ra)

18:

MOV

os?nnt R1

DEC

BNE
MOV

000010

015440

MOV

2s:

MOV

DEC

(R1)+, (R2)+

#8. . R3

#GStART, RI

(R1)+, (R2)+

; SRVE RO

:ZERO_THE QUEUE COUNTS
iORIVES 0 8 1
;DRIVES 2 3 3
iDRIVES
4 8 §
iDRIVES & 8 7
iMOVE THE STARTING

'ADDRESS OF THE QUEUE INTO
:THE QUEUE INPUT POINTER

;MOVE THE STARTING RDDRESS

{0F THE QUEUE INTO THE
:QUEUE OUTPUT POINTER

_TART ADDRESS

O®

P11

04-/S-6 HEAD ALNMY

015732
016734
01573¢

ON-NOV-77 12:49

MACY1l

30(1046)

0O4-NOV-77

17:31

B08

PAGE 92

SINGLE/DUAL PORT RHII/RPOH/S/S DRIVER (REV 1.0)

001375
104M413
000207

BNE
RESREG
RTS

SEG 0092

:RESTORE RO - RS

:EMPTY THE QUEUE SPECIFIED BY Rl

OOV

LW~

D OLDODIOLOHOD
00 D br 2 Pt et Gt Pt e e

L ELELEL L L L g

OO0
r
]
e[
() ()

s CALL
:

015740
015744
015746
015754
01578

105061
006301
0lblbl
006201
000207

015370

015400

015420

:ROUTINE

015766
015770

122761

001421
105261

015774
015776

006301
010271

016016

001003

016026
Oitold”

006201
005720

016002

062761

000CI0

015370

0000C2

QCNT(R1)
:CLERR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1),Q0UTPT(RL) ;SET OUTPUT QUEUE POINTER=INPUT PGINTER
R1
PC

MOV

:
:

RETURN1
RE TURN2

DRVGUE:

JSR

CMPB

BEQ
INCB

ASL
MOV

015400

ADD

:DRIVE NUMBER

PC,EMPYQ

TO PUT A REQUEST

MOV

015370
015400

CLRB
ASL
MOV
ASR
RTS

015760

DRVNUM, R1

JSR

EMPTYQ:

; CALL
:

MOV

TO Rl

IN GUEUE

cDRVNUM R1

; DRIVE NUMBER

sDPB

:ADDRESS OF PARAMETER BLOCK

RO, ohvous

1GO PUT REQUEST IN QUEUE

'RETURN HERE IF QLEUE IS
F
'RETURN HERE IF REQUEST xs IN GUEUE

#10,QCNT(R])

2$
0CNT(R1)

: 1S QUEUE FULL?

:BR IF YES-TAKE RETURN1
: INCREMENT QUEUE COUNT

Rl
R2,3QINPT(R])

PUT THIS REQUEST

-BRANCH

R1
(RO)+

: TAKE RETURN
2

82, GINPT(R])

IN oueue

PDRTE THE QUEUE POINTER

016010 02616l O0ISH400 015442

CMP

016020

MOV

QSTART(R1),QINPTIR]) ves--nsssr POINTER

RTS

016032

01bi61

D0IS440

000200

015400

BNE
18:

2s:
;ROUTINE

MOV

RE TURN

GETREQ:

CLR
TSTB
8EQ
ASL
MOV
ASR
RTS

;
005002
10S761
001404
006301
017102
00e201
000207

015370
0is420

TO GET

s CARLL
:

:
016034
016036
016042
016044
016046
016052
016084

ASR
15T

18:

2s:
;ROUTINE

JSR

oxfipr<n1) osrop(k1> rxne TO RESET THE POINTER
IF NO

:RETURN TO USER

THE “DPB"

ARDDRESS OF NEXT REQUEST

#DRVNUM, R1

PC,GETREG

;DRIVE NUMBER

IN GUEUE

TO R}

160 GET THE REQUEST

na-"oPe“ ADDRESS OF THE REQUEST
R2=0 IF NO REQUEST IN QUEUE

R2
GCNT(R1)
2s
R1
JQOUTPT(RL),R2
Rl
PC

TO "POP”

THE

REQUEST

rs THERE ANY REQUEST
NO--~BRANCH
;chxup “DPB"

POINTER FOR THIS DRIVE

;RETURN TO USER
FROM QUEUE

IN QUEUE”

C2R¢»80

RPO4 S 6 HERD RALNMT

SRICB.PIIL

O4-NOV-77 12:49

MACY1l 30(1046)

4367

s CARLL

016056

4974

Q016064

497
4976
4977

016062

0i6070
016076
(016104

108361

(015370

017102

015420

006301

062761
026161
001003

000002
015420

:gg?
4382

4383

glglle

(C00207
00!

&éwnn

POPQUE:

DECB

QCNT(Rl)

; DECREMENT QUEUE COUNT

MOV

QQOUTPT(RIJ R2

;GET THE "DPB” POINTEP

MOV

QSTQRT(RI) QOUTPf(Rl) ; YES--RESET THE POINTER

ASL

RDD
CHP
BNE
18:

ASR

RTS

4586

82, QOUTPT(R})
SUPDATE THE QUEUE POINTER
QOUTPT(R1), QSTOPIRI) TIME TO RESET THE PCINTER”?
18
. NO--BRANCH 70 EXIT
;RETURN TO USER

.IF DF SESCAPE

;ROUTINE TO SAVE THE CONTENTS OF 'SESCAPE' WHEN THE DRIVER

.CQLL

4987
4988

;
;

JSR
ERROR

RO,ES. SRV
N

499]

€S.SAV:

MOV

4934
499%5
4996

18:

gEECRRE -(SP)

RE TURN

:ggg

4992
4993

. WORD
MOV
RYS

(SP)# SESCRPE
RO

THE ERROR CALL IS HOVED HERE
RESTORE THE ESCAPE RDDRESS
,RETU

R SRR R AR RN

R RN AR RN R I AR R

.ENDC

5000

00!

.IF B

.LIST

067

"ALIST

AR REERE R

5006

0co

€017

c€lls.

§8ég
80c1
t0ec

RN R AR

SRR R AN R

RN SRR

FERRRLRD

J0!

R R RN

R R AR R RN R AR R AR AR RARAR SR I AR R

R AR R RRRES

ENDR
.LIST
.ENDC

SBTTL

Egig
5814

AR R R R

.REPT

€00s

goig

SRVE
THE ADDRESS RIN 'SESCQPE'
CLERR THE ESCARPE

NLIST

SOoQ4

S00e
€009
égi?

MOV
CLR

“tFF

5003

THE ERROR CALL

;GET THE ERROR CALL

0co

€002

*HE RETURN 1S PAST THE ERROR CAL.L

(RO)+

4997

S001

32 5008555 8F DPE gEnoveo

REPORTS AN ERROR DIRECTLY.

:ggg

499¢
4399

;DRIVE NUMB%RT0 R Q

;gRggggogl

015420
01s442

015440 01i84e0
016161
016106
4378
497
016114
(006201

SEQ 0092

H/S/& DR VER (REV 1.0

HO;

;

332?

43973

CDB

17: 86

SINGLEDUAL PORT RH11/R

:gbg
4972

0O4-NOV-77

DATRA PRRAMETER BLOCK

,Iiiblililiiiliil!iiiiil{llliiillIi.iliiii!liiiiil’eil}Ql!liiii{f
.IFF

LNLIST

REP;

Li:iilil{iliiiiifi*.ifillllllil!lliili{liiliii,iliititfi!iiiiiii
"ALIST
.ENOR

CIP'LBC

RPCY S & HERD ALNMT

JRICB.PII
5023
S0e4
5025
S026

O4-NOV-T7 12:49
000

MRCYL1

30(1046)

0O4-NGV-77

DATA PARAMETER BLOCY

016120
0ibklel

000
000

S030

O0leled

000000

016130

000

.BYTE O

016131

000

.BYTE O

SG39
So40
5041
5042
SO43
SO44

016132
0161234

0000Ce
Cl6INC

-WORD 0
.WORD REG

0OlEl136

000CO0

.WORD O

S250
5051
S0Se2
5053
SO0S4
S05S
50S6
S0S?
0S8
S059
S0e0
SOei
cCee
€282

016140
0li6ive
0le144
0lei4e
016150
016152
016154
016156
216160
0i6ie2
0lele4
0l6l66
0iel?C
O0Olel?2

000000
00000C
000000
000000
000000
Q00000
000000
0000
000000
000000
000000
000300
00C220
0000CC

S031
S03e
S033
S034
SO03S
5036
SC37
S038

S04S
S046
5047
gg:g

Qielee
016123
Olbice

D08

PAGE 94

SEG 0094

.LIST
.ENDC

5027

S0e8
S029

17:31

OPB:

000
00

.8YTE O
.BYTE O

}VE NUMBER
FFSET VRLUE OR FMT22,

.BYTE O
.BYTE O

COH
PSEL RND A17 AND R1E

WORD INREG

BUFFER RDDRESS 0O
;REGJSTER TABLE POINTER
;SECTOR RDDRESS OR
:FIRST REGISTER INDEX
; TRACK_ADDRESS OR

WORD O

001206

REG:

.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD
.WORGC

WORD COUNT

ECI,

AND HCI

(HUST BE NEG)

LAST
REGISTER INDEX
,CYLIND R_RDDRESS
OR_TABLE POINTER

{POINTS TO THE FIRST OF TWENTY
:LOCATIONS WHERE THE DRIVER IS
;70 STORE THE RH11/RPO4 REGISTER
;ON AN ERROR.
IF ZERO, REGISTERS

:ARE_NOT SAVED.
iSTATUS/ERROR INDICATOR

;BIT1S = 1 => ERROR OCCURREC
;BITO? = 1 => DONE
;BIT 14 - BITIO AND BITO6 - BITQO3
; INDICRTE TYPE OF ERROR
O
O
O
O
O
O
O
O
O
O
O
O
O
O

,STORE RPOY REGISTERS HERE
; RPW
; RPBR
; RPDA
; RPCS2
; RPDS1
; RPERI]
; RPAS
+RPLR
:RPDB
; RPMR
; RPOT
; RPSN
; RPOF

CIRJCBO,

RPO4-5-6 HEAD ALNMT

CZRICB. P11
Soes
8065

3i6l74
C1&1T&

O4-NOV-77 12:49

000000
000000

MARCY1! 3 0l 84%&
DRT

04-NQV-77

RAMETER BLOCK
.WORD
.WORD

O
O

17:31

EOS

PAGE 95

SEG 009S
; RPCA
; RPCC

CcRJCBO,

RPOY-S-6 HERD RLNMT

CZRICB. P11
G066
S0e”
S068
§8§8

016200
0Dle2Ce2
016204
0le206

O4-NOV-77 12:49

MACY11l

30(1046)

04-NOV-77

DATR PARAMETER BLOCK

000000
000007
000000
000000

. WORD
. WORD
WORD
WORD

000001
000002

CODE=1
COMND=2

17:31

FO8
PAGE

0
0
0
0

SEG 009t
; RPER2
;RPER3
:RPEC
;RPEC2

S071
g07e

Sor
0Ty
5G7S
S07e

0006
000010
000011
0000.e

5078
5079

001

sgr7

1
€082
S083
SCBY

STARTUS=16

IF B

;ii;iioi;!;lii;:ii:iciiiiif;ii}iibii9&;41iiifii;i;iiif!liiiif;if{;

.IFF
.NL]IST
.REPT
LLISY

S08S

S087
€088
5089
S03C
8091
€0s2
5083

.ENDR
LLISY
.ENDC

5086

.SBTTL
00!

gggg

AR RSN RN R

HERD CODE

£106

5%83

0oo
0i62l10
0le2le
0le2l4
0lecleé
016220
016222
Qle224
0leeeet
016230
016232
0le234
016236
01e240
Qle24e
Qle244
0le24e
0lees0

000000
00000}
(00002
000003
000004
00000S
000006
000007
000010
00001}
000012
000013
000014
00001&
DODOIE
0000617
000020

R R AR AR

NP A

AR RS

ER AR

ERE

SRR AAER RS RS

TARBLE

‘ALIST

£10}
S10e

RN AR PR R

;iiil§i§§liiillilbtliiif!!illllilllllill!lll!li!llllliill!liiiiif

.IFF
CNLIST
.REPT
LIST
L RRRE RS

5096
5097
5098
5039

€105
ci0e
5107
€i08
€109
€110
€111
Sile
€113
£i14
£11S
£lle
€117
SllB
€119
Si¢D
£l2i

REERER

‘ALIST
00C

INDEX EQUATES

BUF
=
EC=10
Rk=l]
crL=le

000016

gggo

;OPB

R RS

R R RN

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

0
1
e
3
Y
s
&
7
10
11
le
13
I4
1S
16
17
20

R RS R R SRR R AP RN R AR R RN R R R R

R R RRRRRERRERRR RN

.ENDR
LIST

.ENOC

HEADL:

sHERD RDORESSES FOR CYLINDERS 24E 8 H49¢&

Loty

ot NWWNLLLLLL
L85 LWWW WWWw
nfyrprfunn
OO
NN
NO \J\IV\I\J\JU‘U‘U‘U‘U‘U‘G‘%
N LW
OO0 NN LW
=000 NN LW~ O WO NN
L WN—-OVO NN LW R8BS
NN LW mg
o

riry
polo]

T T TR T TR I T a 10104 o
e e P bt ot Pt Do Pt Pt B he Pt s P
T

T G T

T TV T T

ot B B B Bt Bt s P Bt B -6 Bt P B Bme s e Bt Pt e § = B e

TG LG T

016252

T
T

HERD_ALNMT

O4=NOV-77
0022
100006

016260
016262
016264
016266
016270
016272
016274
016276
016300

000000
000001
000012
000021
000022
100006
000000
000001
000012

016302
016304
016306

000021
000022
10000C

016310
016312
016314
0l&3i6
016320
016322

000000
090022
100000
000000
000022
100000

016324

01€324
016323
01632¢

C1E327
01e23C

12:49

MACY!]l

30(1046)

HERD CODE

000021

016254
016256

b Dt Bt et ot P

T T T
QI

G TG

U G T U TG U T TG T T

0 B B0 0 5t Pt e Pt m Pn Bt Bt $ Pt §

[lg]

RPOY

oo!

O4-NOV-7?7

TRBLE

.WORD

. WORD
.WORD
MEADG:

.WORD
. WORD
-WORD
. WORD
_WORD
-WORD
WORD
CWORD
WORD

WORD
.WORD
"WORD
HERDYS:

.WORD
_WORD
.WORD
WORD
-WORD
-WORD

17:31

GOS8
PAGE

SEG 0097

2c
100000
O
1
10.
17.
18.
100000
O
|
10.
17.
18.
100000

O
18.
100000
O
18.
100000

: TRBLE

TERMINATGR

;HERD ADDRESSES FOR CYLS 800 & 008

: TERMINATOR
:HERD RDDRESSES FOR CYLINDERS 400 &

: TERMINATOR

IF B

; i;Fl_liillIl'ill!'lll’ll"liiiililll’ill!l!ll’llllllil}llltlll!illiliiifl

'NLIST

Ef‘:;;:il’lill'Qliliiifiil!lilfilil‘l!’ll’llil’I’liil‘ll’!lllll‘li!iiilIlil!i

000

.ENDR
LIST
TENDC
.SBTTL

001

OFFSET CODE

TABLES

IF B

: i:;ilili{liiI'lii’llilillliiill’llililllI'I'Qliiiiiliii!*lliii!l’!‘lii

CNLIST
;&i';glll'fI'I'lIfli’il.illllll’l‘ll.lillililll’.ililiiilli’i..!!i!‘lilii
L

ENDR

000

030
0e?
03¢

6ec
Ged

-LIST
.ENDC

OF TBLG:

.« TE
.B'TE
BYIE
.BY1TE
.B1TE

30
27
2B

&8
24

;OFFSET TRBLE FOR CYLINDER 49&

CIRICBO, RPOM S & HERD ALNMT
CZRICB.PILI
04-NOV-TT 12:49

MRCYLL 30(1046)
0O4-NOV-77
OFFSET CODE TRBLES

Py
1
gi-§
Bibilt

.BYY

Sieé

§i6§§4

0?9

‘§¥¥E

i8S
cige
5187
5188

016337
016340
016341
016342
016343

Dl4
013
gie
011

.BYTE
.BYTE
.BYTE
.BYTE

S190
Sisl

016345
0le34e

007
006

.BYT
.BYTE

S180

eigs
Sig84Y

SIS

016333

Biedk

OlE34M

gal

BlC
01S

016347
016350
016351
016352
01353
016354
0163SS
016356
016357
016360
016361
016362
(i6363
016364
016365
016366
016367

005
0o
003
00e
001l
000
20l
202
203
204
205
206
e9?
cl0
e2ll
cle
213

5210
21l
Scle
S213
5214

016371
016372
016373
016374
016375

cls
ele
2l?
220
eel

016377

016370

5215

01637¢

S2l17
c218
5219

016400
O0Olo401
0le40e

5216

Se20
§§Sé

€223

5224
€eceS
teeb
£227
cc2B8
€229
€230
€22l
€232
€e3Z

Qle403
016404

01le40S

0le40S
0le40e
01e407
016410
0le4ll
0le4le
016413
0le4ly
QlEH]S
Cledie

BE
.BYTE

010

S192
€193
S194
€195
S19¢
S197
1,198
3199
200
S201
Se
S203
20
c20S
5206
5207
se08

5209

.BYTE

.BY7Y

14
13
12
11

;0
&
§
M4

.BYT
.BYTE
BYTE
.BYTE
.BYTE

els
2lb
217
ee0
22l

223

.BYTE

@223

ec?
230

.BYTE
.BYTE

227
230

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

&0
57
Sb
S5
Su4
53
Se
Sl
SO
47

cee2

BYTE

ce4
ees
=

cel
gs7
0ce
gse
0S4
gs2
gce
gel
geg
CN?

.BYTE
.BYTE
.BY7

OF TBLY:

SEG O09e

I
1S

3
e
)
O
20!
20e
203
204
205
206
207
210
211
212
213

.BY7Y

PAGE 98

.BYTE
.BYTE
.BYT
BYY
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
B¥TE
.BYTE
.BYTE
.BYIE

21y

17:31

ely

ee2
2e4
¢S
eeb

;OFFSET TRBLE FOR CYLINDER 245

CZRJCBO,

RPON §.6 HEAD ALNMT

CZRICB.PIL
5234
5235
5236
5237
5238
5233
5240
£241
8242
5243
8244
5245
5246
5247
5248
5249
8250
5251
5282
8253
G254
5285

016417
016420
Dig42l
016422
016423

Qle42Y
Q16425
016426
016427
016430
Q16431
016432
016433
01434
016435
0i6436
Q16437
016440
0lBY4]
016442
D1E4M43

5262
5263
8564

016444
016445
016446
016447
016450
016451
016452
016483
Q16454
016485

5266
5267
5268
£269
5270
5271
€272
8273
E274
5275
€276
£277
5276
£279
€280
£28]
S282
€285
€284
5285
€286
€287
€288

016457
016460
016461
0I6462
016463
016464
01E46S
0lb46b
QlEY6?
01E470
016471
01€472
01E473
016474
QOIEN7S
016476
016477
016500
016501
01€502
016503
016504
01650S

5256

5257
5258

5259
5260
8261

5265

€269

016456

OleSCE

D4-NOV-77 12:49
046
045
044
043
042

MACYLl 30(1046)

Q4-NOV-77

OFFSET CODE TRBLES
BYTE
BYTE
BYTE
BYTE
BYTE

041
040
037
036
035
034
033
032
03]
030
027
026
025
024
023
022
021

BYTE
BYTE
BYTE
8YTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE

017

BYTE

020
016

BYTE
.BYTE

018
014
013

BYTE
BYTE
BYTE

00?7

BYIE

012
011
610

006
00S
004
003
002
001
000
201
2
203
264
20¢
20
207
210
21}
212
213
214
2ic
2lE
217
20
el

BYTE
BYTE
BYTE

BYIE
'BYTE
BYTE
BYTE
BYIE
BYTE
.BYTE
BYTE
.BYTE
BYTE
-BYTE
BYTE
BYTE
BYTE
'BYTE
‘BYTE
BYTE
'BYTE
.B/TE
'BYTE
BYTE
BYTE
BYTE
BvYTE

46
45
44
43
42

4l
40
37
36
35
34
33
32
31
30
27
26
25
24
23
22
21

IS
14
13
12
.
IL

&
S
&
3
2
|
0
201
202
203
204
205
206
207
210
21l
212
213
214
215
216
217
220
22l

17:31

108

PAGE 99

SEG 0099

CcRJICBO,

RPOY.-5-6 HERD ALNMT

CIRICB.PIL
5290
§291
S292
5293
Se94
5295
5236
5297
se
5299
S300
S301
S302

016807
016510
016511
016512
016513
016SiM4
016515
016516
016517
016520
01ieSel
016522
016523

S304
S30S
5306
5307
5308
5309
S310
S311
S312
5313

016525
016526
016527
016530
016531
016532
016533
016534
016535
016536

5303

016524

DN-NOV-77 12-49

c2s4

.BYTE

254

ess
25¢

g3¢il

S3ce
323

g%g:
£32¢

5326
5327
£3cE
5329
€330
8331

2335
<
£33
-

S336
£337
gggg
€340
€34l
E34¢

g3423

€24+
E34E

016E4S

.BYTE
.BYTE
.BYTE
.BYTE

25?7

.BYTE

2e0

oc!

000

.BYTE

.EVEN

PAGE

100

SEG 0100

252
253

2SS
256

257

260

.IF B

;iliiilliiflililifllllili{ll!iiii!illiiiliiilliliiilf!iiiiiiiiiii
.IF

.NLIST
.REPT
.LIST
AR
AR
CNLIST
.ENDR

R AR R R

E R R RN R

SRR R R SRR

R AR

SRR

RERAS

-L

.SBTTL

0cl

JO8

236
237

240
24}
242
243
244
@45
246
24?
250
2SI

016542
016543

016544

.BYTE
.BYIE

17:31

222
223
224
22§
22b
227
230
231
232
233
234
235

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

£317
8318

§320

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

240
24l
e4e
243
o4
24S
246
247
eso
esl

ese
253

5319

0OM-NOV-77

OFFSET CODE TRBLES

23?7

016537
016540

016541

300(1046)

222
]
eaM
2es
cee
ee?
230
23l
23e
233
234
235
c¢36

5314
S315

€316

MACYL1l

MESSRGES

.IF B
;i;;lililiiillilliiiIifliilil{l!ll’liiiiif!i!ltiiiiil!!Qiiilfil’i
.NLIST
.REPT
.LIST

ALIST
.ENDR

R AR SRR AR R

R RN R R R R R RN AR AR R R R AR AR R RN R AR PR

R AR AR

CcRJICBO,

RPOM 5-6 HERD RLNMT

CZRICB.P1L
S34E

ES“S

04-NOV-77 [2:49

MARCYl1

SSAGES

O4-NOV-77

17:31

KO8

PRGE 101

SEQ 0101

.LIST

000

3gé10‘46)

.ENDC

6343

(016546

005015

0SS132

041455

6362
6363
€364
5355
6356
6357
6358
gggg

016564
016572
016600
016606
016614
016622
01663C
016636

0S0122
033057
020104
046516
042526
040503
050046
046501

032060
044040
046101
047105
044522
044524
047522
00S01S

032457
040505
043511
020124
(044506
Q47117
051107
000012

6361
6362
363
6364
€365
€366
6367
5368
6369
§370

016644
016652
016660
016666
016674
016702
016710
016716
016724
016732

047504
051440
020124
020105
020114
040440
042515
051505
020130
08

047040
046106
051109
047125
042510
044514
0S2116
020124
040SI0
047105

0S2117
041505
053111
044524
042101
047107
052040
047502
020123
Q41440

6373
6374
5375
5376
6377
5378
5379
6380

016752
016760
016766
016774
017002
017010
017016
017024

047040
(020040
0S2040
044514
0S21ie
020113
042624
Q47117

(.2117
044527
042510
047107
0S0040
0947515
026104
0S2123

035105
044124
040440
042515
041501
Q47125
041440
047101

.RSCII

<CR><LF>/22-CZRIC-B/(CR>
<L F>

LASCIZ

aJRPO4/S5/6 HEAD ALIGNMENT VERIFICATION PROGRAM@<CR- <(LF>‘LF,

.ASCII

/DO NOT SELECT DRIVE

LASCI1

~ NOTE:

238e Cl706a Ooeace CMB93 O51IES
§386
017065
040
044124
051505

LRSCII

THESE

23% 17168 Oooags 020403 DHOSIS
€337
017163
40
047516
020124

LASCII

NOT OCCUR WITH SOME ALIGNMENT PACKS.

6381
§2~>
E3cs

017032
017040
017046

020124
020130
051522

047111
051105
096440

042504
Q47522
054501

§387
5388
€389
€330
€391
€332
€333
€334

017672
017100
(017106
017114
Q017122
017130
(017136
(017144

020i05
020136
0S1S22
0919490
020104
042510
047107
050040

047111
051105
090440
052501
05402
040545
042515
O4IS01

092504
047522
042822
042523
052040
0O944SI4
0S2116
020113

€398
€339
400
€4C1

017170
QI7176
017204
D0l17212

041517
044527
046517
043511

0628M3
044124
020105
DO4ESIE

020122
0SI1440
0946101
0O4710%

TITLE:

DDU:

UNTIL HERD ALIGNMENT

WITH THE ALIGNMENT PACK MOUNTED,

INDEX ERRORS ARE CAUSED BY

TEST BOX HAS BEEN CONNECTED/‘C

CONSTANT

INDEX ERRORS MA&Y

OCCU

THE ALIGNMENT PACK AND MAY-/CR><LF>

INHIBIT

THE A_IGNMENT PACK

«<C

CIRICBO,

RPOM S5/6 HEWD ALNMT

CZRICB.P11
S402
6403
404
6405
6406

017220
017226
017234
Ql7242
017250

5409 of7§91

O4-NOV-?7 12:49
020124
027123
044440
052111

080440

040520
020040
049116
052040
044514

MACY1l

040 ggesae o40S14

04252
0425
047522
047522
044124
O961I4

0104
020130
026122
047125
020105
063517

047111
051105
043440
020104
047506
047111

5418
S419
G420
G421
S422
S423
S4o4
g:gg

017353
017360
017366
017374
017402
017410
017416
8};353

O40
0S1040
050040

020040
030120
047111
032460
052506
047117
047120
023622

020040
035064
040440
041516
023940
042504
006451

427
S428
5429
5430
6431
6432
6433

017433
017440
017446
017454
017462
017470
017476

020040
030120
020040
030/04
024040
044524
044455

020040
027465
044520
051064
052506
047117
042116

080461

O40
044524
052053
ouag?g

g:gg

017812

040
0S1040
03
(020116
03446]
041516
023440
0SY410S
000012

€437
438
6439
€440

E:flé

017514
017822
017530
017536

017544

G443
Y44
S44c
g::g

17:31

LO8
PRGE

102

SEC 0102

047107

0172”6
017304
0173]2
017320
017326
017334

017504

MESSAGES

O4-NOV-77

045503
047524
041111
042510

5410
411
S4l2
6413
S414
G415

434

30(1046)

.RSCII1 ~/ RELATED INDEX ERROR, GROUND THE FOLLOWING PINS:/‘CR.<LF,

.ASCII

RPOM:

PIN ALAOS08

LASCIZ

RPOS/6:

(FUNCTION

'+TPNDEXER')/(CR»<LF>

034060

PIN DOMRIS

(FUNCTION

’-INDEX' 1@<CR*<LF><LF>

O02444?

005015

00S01S
020108
053101
046102

0S1104
047516
044501
006505

0S3111
020124
040514
00S012

NODRV:

.ASCIZ

<CR><LF>/DRIVE NOT AVAILABLE/<CR> (LF,<LF>

017545
017552
017560
017566

015
061105
042526
042502

042412
042040
047040
035122

0S2116
044522
046525
000040

ENTERD:

.RSCIZ

<CR><LF>/ENTER DRIVE NUMBER:

G448
449
€450
G451
E4S2
g:ga

017574
017602
(017610
017616
017624
017632

005053
0201
0S1127
051120
042524
060

831104
7Sle
0s21il
052117
00€S04

053111
020124
020105
041505
005012

WLOCK:

.RSCIZ

<CR><LF>/DRIVE NOT WRITE PROTECTED~ <CR><LF><LF

€45
S4Sec
€4€7

017633
(I7eN40
(QI7e46

040
020I04
043117

044040
052517
OSI0N0

040505
020124
047101

TOLRG:

.ARSCIZ

000

HERG OUT OF

RANGE~

CZRJCBC,

RPO4.5-6 HERD RLNMT
CZRICB. P11
04-NOV-77 12:49

017657
§i§§;4

464

017706

017751
017756
01776M
017772
020000
020006
020014

103

SEC 0103

MODE:

.RSC1Z

JA(LIGN), V(ERIFY), OR E(XERCISE) ? /

TRK CENTER/<CR>
<LF>

043111
000

VERIFY:

.RSC12Z

/VERIFY/7<CRY<LF><LF>

047107

ALIGN:

.RSCIZ

7ALIGN/<CR><LF><LF>

044503
oocoie

EXER:

.RSCIZ

/EXERCISE/<CR> <LF><LF>

HDZERO:

.RSCIZ

/HERD O SELECTED BY DEFAULT/<CR><LF><LF>

CyL2a4s:

.RSCIZ

/CYLINDER 245

CYL4S6:

.RSCI2

/CYLINDER 496 SELECTED BY DEFRULT/<CR> <LF><LF>

020222
020230
020236
De0244
(O202c2

O——-woo

R2RET wREFO£ nRZR2 BR RT RA

020172
020200
020206
020214

ALNEHS:

LRSCIZ

/DISK

HERD

CYL

(IN U INCHES)/<CR><LF><LF>

044503
020077

30040
1505
4502

052S01
000012
5116
32464

SELECTED BY DEFRULT/<«CR><LF><LF>

41505

054502

020134
020142
020150

2205 853188

504
€505
€506
EEQ7
€508
£509
EE10
€511
6612
€513

PRGE

.RSCIZ

0C001e

——U—TUN)
TLENOW

wWOoOory

020054
020062
020070
(020076
020104

[y =TT

020040
020046

82 8R
; ZRZZ BR
8= 85 6o

(020027
020034

020015
0022

RARZRE

017734
017742
017750

RO
RA
hiiflwnCC)

817?52

5439 020126
E498
€499
£500

MO8

(CR><LF)»/

oiggxa

a‘»——?
&f‘ [NWwo
@ ST
Sy SN
2;—

17:31

1 08

E46

S468
6469
8470
E471
E472
5473
S474
S475
8476
§477
S4?8
§479
E4g0
Eu8]
Eug2
€483
§484
§485
S486
€487
5488
G489
E490
g4g1
§482
£493

C4-NOV-?77

.RSCI1

HERDER:

? BZR202
BZ n
vwoo

g:ss

30(1046)
MESSAGES

000

NUY

gws

042507
Q
L
n

017654

5458
E489
€460
§u6]

MACY11l

ON4440
Q44523
Q42105
054503
0c110S

IS POSITIONED AT CYLINDER 245./<CR,<LF><LF-

CZRJICBO,

6 HERD RLNMT
RPOM S.

CZRICB.A11 ~ BY-NOV-77 I2.49
SSIN4

MACY11 30(1046)

MESSACES

O4-NOV-77

17:31

NOS

PAGE 104

SEQ 0104

EE}E

0e0266

020260

031040

032464

SS17

020270

Q44SOM4

g% S23
047520
047117
Q020124
042116
033071

0Q44S23
042105
054503
051105
005015

044440

ALN4Ib:

.ASCIZ

/DISK IS POSITIONED AT CYLINDER 49b/<CR><LF><LF>

5625

020336

00S01S

047105

042524

ENTHD:

.ASCIZ

<(CR><LF>/ENTER HERD:

5529

0203SS

0203
020370
020376
020404

0S110S
047111
042101
035123

015

042412

0O41440
042504
0S1104
000040

052116

046131
0e0lee
0S1S0S

ENTCYL:

.ASCIZ

<CR><LF>/ENTER CYLINDER ADDRESS: /

5535

020410

047111

020104
Q40440
0S1523

040526

042510
Q42104
005015

Q44514

BRDTRK:

.RSCIZ

/INVALID HERD ADDRESS/<CR><LF>

111

5618
5519
5520
5s21
5522

5526
gggg
5530
6531
5532
SS33

020276
020304
02031
0203
020326

020344
020352

000012

020123
Q44524
Q40440
O44S14
032040

020122
020072

042510
000

005015

042101

5536
6537
gggg

020416
0204
020432

SS40

020437

020444
020452
020460
020466

042111
047111
042101
00eS23

063116

Q41440
04esO4
0S1104
000012

046101

BRDCYL:

.ASCIZ

/INVALID CYLINDER RDDRESS/<CR><LF>

SS46

020472

00S01S

042012

047117

ENDMSG:

.RSCIZ

S541
5542
SS43
gg:g

S547
5548
5549

020500

ggg?

0C6S0S

005012

042101
04eSee
000

Q46131
0ellee
0S1S0S

000

020S06

.EVEN

EMI:

.ASCIZ

/RH1! INTERRUPT OCCURRED (RPRS=0)~

0S0130

EM2:

.ARSCIZ

/UNEXPECTED RTTENTION OCCURRED~/

041123

EM3:

.ASCIZ

,MASSBUS PARITY ERROR (MCPE=1)/

€552
S
6553
5554

020506
020514
020522

Q44122
052116
0Se2120

0S1105
047440

030461

044440

556
Eggg

020536
020544

051050
024460

036523

€559

020547

042516

115

051501

€560
SS61
5563
gégg

020554
0S6e
020570
020576
020604

SSeb

020605

£Se7
€Se8
S5e9

0e20ble
0zJ620
0e20et2e

041S0S
052101
047511
052503
000
0S1S2S
0211l
047c22

Q4ese4
042
020112
0Si122

050040
020131
(020122

052522
041503

020104
gselie
Q41517
042108

051101
051105
046450

RPOY4. 56 HERD ALNMT

(021022
(21030
(021036
021044

021152
021160
021166
021174
021202
021210

RNRRARR n2l 8IIRS KESE
5

021045
021052
021060
021066

Qgel2lc

021073
021100
021106
02111M
021122
021130
02113}
021136
021144

30(1046)
MESSAGES

O4-NOV-77

17:3]1

BOS
PAGE

10S
SEG 010S

oL
181
EMN

.QsCIZ

/MRSSBUS

EMS:

.RSCIZ

7/ADDRESS PLUG CHANGE BIT SET~

EMG:

.RSCIZ

/RH11

EMIO:

.RSCIZ

/DRIVE OR DRTR ERROR/

EM11:

.RSCIZ

/DRIVE

EMI2:

.ASCIZ

/HERD OUT OF ALIGNMENT~/

020104
040506
020124
D44514
0s2116

EML3:

.RSCIZ

/HERD

053524
O44S2Y
0001ieH

EMIN:

.RSCIZ

/SOF TWARE

EMLIS:

.RSCIZ

/UNCORRECTRBLE

EM1G:

.RSCIZ

/DRIVE UNAVAILRBLE~

;

PARITY ERROR

DIDN’T

RESPOND

(PAR=z],/

RDDRESSING/

——
QL»N~

Q
N

W O%

RIZR BF2RR

—

02077
(021004
(021012
021020

—

020734
(020742
(20750
(020756
020764
(20772

—

020700
020706
020714
020722
7

RZR
W

020656
(020664
020672

Q
£

687
8576
6€77
5578
S€79
6580
c881
5682
6583
5584
6585
586
6587
5588
6589
5530
£59]
6532
6633
6594
6595
5596
€597
6538
6599
S60C
5601
5602
5603
S604
5605
5606
5607
5608
5609
Sel0
Seil
Sel12
5613
Sel4
€61
5616
€617
Sb18
5619
5620
Se2!
ce22
Se23
Se24
Se2S

036505

Uhe—

2275
o206y
2273 383843

0S0iG3
0

8ike NoTe Sgg e OREN2 2Rs *n 8

020634
020642

12:49

MARCYL1l

047522
02010S
042506
0s1117?

SST0
€571

O4-NOV-77

278297 PRIRI FIR R
238 8RRR
ors 329%35 %92»2 :fl~

22 RICB.P11

ZZRE
2%
o:fifEGfi- {XE

RJCBO

—

UNSRFE

ERROR/

TOO FRAR OUT

OF RLIGNMENT/

TIMEOUT~/

MASSBUS

0sS1117
L
L 1y-F)

o42see

PRRITY

ERROR~

RPOM. 5.6 HERD ALNMT

04-NOV-77 12:49

PRGE

DHI1:

.ASCIZ

/RPRS~/

DHe:

.RSCIZ

/DRIVE

RPDS!

e
o400
3

0S0le22
020838

0S110S
0s0iee

104

Q44522

042526

DH3:

.RSCIZ

/DRIVE

REG ADR

042526

DHY:

.ARSCIZ

sORIVE

REG RDR

£
n

040440
051523

042104
000

DHb:

.ASCIZ

/RH RADDRESS/

Q42Ses

DHIO:

.ASCIZ

/DRIVE

DHL2:

JASCII

.RSCIZ

HERD

CYL

HERD

cvLs

O0O41440
006522
02
020040
020114
0e0l2s

047105
0

0S1S05

0000S1

J20040
0201C4
o4elzl

Q44040
020040
coo

(O40S0S
041440

RPER1

RPER2

OH13:

.ASC12Z

SEQ ClCe

RPER3

RPARS/

RPER1

RPER2

DRATA/

GOOD

RPCS2

BAD/

RPDS!

TRK CENTER/<CR><LF>

——

[

—

0200
044450
o
£
~N

o
o
£
|»]

ce
046522
042524
040
p42101
0SH4503
020116

020040

p2oo4g

084103

RPCS!

106

j=]
n

fu
n

v
W

28 R
O
e[
£
KR o

£
[

—

O
W

R2
&

0315ee

922 8 QUROD
3
3
n

—

U
n

O44le2
04e2see2

020040

043505
020040
Q4eail?
040S0e

0S1040

043505
020040
000

3
o
o
~N

;: 57

051040
0S1104

3 Z
2

[

un
o

R
22R

o40440
oS04

Z
R

020105

n
n

Q40526
0O42S1d4

040516
C41101

0S3111

;\J

Cc0S

1104

2
K228
7

0O
£N

o g

17:31

£
o

Sap e

b ht h pa et et Pt pt

Bt Pt et bt s

e bt pa et e

e Pt b pra b

Pt Pt Pt Pt

s Pt P Bt Pt Gt P
[NTN]

RIFER

Rt PRRLRIIL RLBLL
oBbll Rl Rl
mmE
o
N
WL
L
W
WWw
--00
O
K
£
4:.&.:’.5
.f& LWWWw
£
£
N
]
FESRE
L
REITHA
V)

O2le4d

MESSAGES

O4-NOV-77

000123

ety

0S2440
Oflfiééé

n
W
~

BRR

rrofv

JcB.# 1

MACY1l 30(1046)

(IN U INCHES)/

RPER3/

RPO4 S B HERD _ALNMMT
CoRJCBO,
CZRJICB Al
Qu-NOvV-77 12:49

104

000

C44See

MRCY11

42526

30(1046)
0O4-NOV-77
MESSAGES

DH16:

ev
NN NN NN NN NN IN S
nr N._.’_.p-.p..p—’.....;.....
N OWm NN £ Whr(W WWWW
NO
LW

D09
PAGE

107

SEG 0107

/DRIVE/

.EVEN

021626

5710

.RSCIZ

17:31

OTl:

. WORD

RATTN,O

007540
001170

DTe:

. WORD

DRIVE,RPERRS, RPERRS+2,RPERRS+4,RPERRS+6,ATTN,O

014662

Ol4ebH4

DT3:

. WORD

DRIVE,RD.ADR,RD.WRD,0

001166
014664

0is5102
000000

0is100

OTy:

. WORD

DRIVE,WRT.HD,h "7.WD,RD.WRD,0

021872

001264

000000

DT6:

. WORD

O
SRPADR,

021676
021704
0elzie

00] 164
016152
016202

016140
0i6154
000000

CT10:

.WORD

DRVSEL ,REG,REG+RPCS2, REG+RPDS! ,REG+RPER] ,REG+RPER2,REG+RPER3,
0

021716
021724

001172
000000

0i6l3e

oTi2:

. WORD

SHERD,DPB+CYL ,PLUS,GC

0ecl72¢

001172

016132

DT13:

. WORD

SHERD,DPB+CYL,
0

Del734

0011ev4

000000

DT16:

. WORD

DRVSEL
,0

02174C

000

OF1:

.BYTE

021741
0217494

00g
000

000
300

000
000

DFe:

.BYTE

o,0,0,0,0,0

021747

Ccog

000

DF 3:

.BYTE

0,0,0

0217se
02175¢

000
ooe

000

DFY:

.BYTE

0,0,0,0

021756
0217¢&1
Gel764

20C
goc
coe

000
000

.BYTE

o,6,0.0,0,0,0

021765

o001

001

.BYTE

021772

001

00!

001170

000000

001166
007542
000006

007536
007544

001166
000000

000000

.BYTE

T BUS ADORESS RAND VECTOR ADORESS FOR RHI11I
ED TO INSURE THE BUS ADDRESS
UP FOR THE PROPER_RODRESS.
THE

RODDRESS

FROM

THE

TTY

CZRJCBO,

RPOM 5.6 HEAD ALNMT

CZRJCB. A1l

04-NOV-77

l2: 49

MACY11l

3g(1046)

04-NOV-77?

17:31

EOS

PRGE 108

SADR - GET BUS RDDRESS AND VECTOR ADDRESS FOR RH11

sREQUIRED.

ggrs THIS ROUTINE DESTROYS RO-RY

177700
000776
000000
005737

JSR
RETURN

HIAD:
HIVEC:
LIMIT:

.WORD 177700
.WORD 776
.WORD

BUSADR:

oole42
0gliave
00leeY4
0ce2ee0

021774

2s:
39:

ORFHOS ZREFR

tRO)
+, - (SP)

PRESEhT RPCS1 ADDRESS

MRPCS|

,LINSP

ROL IN
MOV
MOV

(SP)+ ,RI
HIRD,LIMIT

MOV

,R2

JSR

RS, Ck . NUM

F Ng

02177¢

Oeceeu4e

R2,-2(R0O)
MRHVEC
kSRPVEC RO
(RO)+,-1tSP)

TYPE

LLINSS

(SP)+,R1
HIVEC,LIMIT

MOV

,R2

JSR

RS, CK . NUM

17777¢
000004
Oeecele
187100

4$
00Co0o4

MOV

R2,-2(RO)
ERRVEC,R1

TET

JSRPACR

MOV

i TYPE_IT
a SPACES

:GET THE ENT
:ADDRESS OF nscxx TEXT
'SET UP RDDRESS-MAX
: CHECK THE NUMBER

:CRRRIAGE RETURN ONLY ENTERED
‘PERIOD ONLY FNTE )
S ILLEGAL INPU
'TERMINATED uxru n CARRIAGE RETURN
R
i TERMINATED WITH
' TERMINATED WITH A ~!*
; SAVE NEW RPCS1
;
'GET THE DEFAULT VECTOR ADDRESS
PRESENT RH11 VECTOR RODDRESS ON THE STACK
,TY E I

'READ THE ENTRY
:ASCII TEXT ADDRESS
'SET UP THE VECTOR-MAX

:UPPER LIMIT OF INPUT

33
4$

Sl=

2 SPACES

RDL IN
MOV
MOV

7%
78

YES--CLEAR THE REQUEST FLAG

:UPPER LIMIT OF INPUT

18
2%
i
4
MOY
TYPE
MOV
MOV

TVPOC

ENDC

FIRST ADDRESS

CHGADR

Ocee42

csRPnoR RO

00l2ee

MOV

TYPE

022246

177776
Ocee3l

nanpruun
rrororoo
o

NO--BR NCH

TYPOC
TYPE

021776

: INPUT FROM TTY REQUESTED”

CHGADR

MOV

ENDC
022044
022050
022052
022054
022056

TST

BEQ
CLR

022e4e
021772

PC,BUSADR

:
:

#8$, ERRVEC

:CHECK THE NUMBER

: CARRIAGE RETURN ONLY ENTERED
:PERIOD ONLY ENTERED

:ILLEGAL INPUT
:TERMINATED WITH A cnnaxncs RETURN
: TERMINATED WITH A *
"
TERHINRTEO WITH R
AVE INPUT
VECTOR
ERROR
: SAVE THE
FOR TRAP

:SETUP

:CHECK FOR RHI]

SEG OlICe

RPO4.5 & HERD ARLNMT
04-NCOV-77 1e: 49
B.P11
000004
COleeH
007704

MOV

R1,ERRVEC

MOV
RTS

(RO)#,(R1)+
PC

CMP

(SPY+, (SP)+

MOV
MOV
MOV
8s:

000004

#SRPADR, RO
8RPRDR, R1
(RO)+, LRI+

MOV

RI,ERRVEC

ERROR

051503
00:
053110
000040
000

020061

MRPCS1:

.ARSCIZ

QRPCSI

041505

MRHVEC:

.RSCIZ

&QRHVEC =

LINSP:

.RSCIZ

SEQ 0109

;RESTORE ERROR VECTOR
FIRST ADDRESS OF NEW PARAMETERS
;FIRST ADDRESS OF WHERE TO PUT THEM
; BUS_RDDRESS
VECTOR RDDRESS
RETU

RESTORE ERROR VECTOR
:CLEAN OFF THE STACK
'REPORT THE ERROR
!ASK FOR BUS ADDRESS

= 3

vy
iy
3 (D 00 000D aD (D 00 D (D (b 0O AN D
FORUMUNINY
b=t be b he poe e pme
N.CLWNU—OWDm N L Wwhu—

.EVEN

CK.NUM - CHECK NUMB ER (O CTAL
G FOR LEGRL CHRRACTERS
: THIS ROUTINE CHECKS AN RSC 12 ST RIN
:AND FORMS AN OCTAL NUMBER IN R2
.SBTTL

C LL:

8ADR,R1
#NUM ' R2

Rsh?k NUM
—4

c
b
Z

po
m

R4 -(SP)

R3,-(SP}

-{SP)
RE

R3
Re
RS,.CK.CHR

MA* -- R2_= NUMBER

; SAVE R4

SRVE R3
: SAVE
RETURN POINTER

:START NUHBER AT ZERO
:STORE RESUL
:CHECK ONE CHRRQCTER
' ILLEGAL CHARACTER
CRRRIQGE RETURN
:0IGIT 0-7
:0IGIT 8-9

s INCREMENT RETURN PAST *“CR"TM AND "PERIODTM ONLY RETURNS

:FOR THE OCTAL NUMBER IN R3
{DON’T LET IT GET TO BIG

X
0

DeoueH

“CR” ONLY ENTERED -- Re = 0

{“PERIOD” -- R2 = NUMBER

000004

Ny
1)

Oc24eH4

nouv
MOV
MoV
CLR
CLR
CLR

VDO DD DD DO — 3o [
WVNOOUNOUVONDNNRNIAN [92]
20NN nro
pol

CK.NUM:

GO FORM THE NUMBER

; *C

RETURN

010446
010346

RODRESS OF RSCIZ STRING
MAX SIZE OF INPUT NUMBER

“PERIOD" ONLY ENTERED -- Re2
= O
SILLEGAL CHARACTER IN THE INPUT STRING
'”CR” ENTER ED_-- R2 = NUMBER

po]
[(a]

5798
5799

FOS9

PAGE 109
30(1048)
04-NOV-77
17:31
BU SADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RM11l

[y
o}
W

5-97

MRCY11l

VDO DD De
UNNIRWRWWW L

T
795
7%

NWONNOO
O NN=+——0O

RJICBO

;CHECK ONE CHRRRCTER

SILLEGAL CHRRACTER

RPOM 5.6 HERD

SRJICB.PIL

O4-Nov-,?
0ee3s4
0e23se

6864
6855
5856

(22342
(22344
022

022372
105711
001011

5857 Q22
5858
5859
£§860
§86)
6862
€863
5864
5865

€867
5868
5869
:ezx
ot

022306

005724

(022352
022354
022356
022362
022364
022366
022370
022372
022374

005724
005724
023703
101003
00040}
005725
005725
060405
01030

022400
022402

0126C3
012604

022376
022404

022406

02177&

O4-NOV=-77

GOS

_NUM - CHECK NUMBER (OCTF

022340

O
n

5853

MACY11 30(1045)

n
(7]
L

5852

022332
022334
(223

5850
5851

ALNMT

@M LU
VAR AR

CZRJLBO

|7 : 31
.

PQGE

110
; CARRIAGE RETURN

;

‘DIGIT 0-7

3%:

7518
BNE

(R1)
8%

,oxcxr 8-9
:DOES A 'cn" FOLLOW THE “PERIGD"
‘BR IF NO

4§
c§-

137
157
CMP
BHI
BR
TST
157
ADD
MOV

(RY)+
(RY)+
LIMIT,R3
es
78
(RS)+
(RS)+
RY, RS
R3 R2

: INCREMENT THE RETURN INDEX
P INCREMENT THE RETURN INDEX
: INPUT anus TO00 LARGE 7
‘BR IF x xs
N
iBR IF
,xucqencnr THE RETURN ADDRESS
: INCREMENT THE RETURN ADCRESS
*SETUP FOR PROPER RETURN
:LOAD ENTERED VALUE

MOV
MOV

(SP)+,R3
(5P)+ R4

,RESTORE R3
'RESTORE RY

6%
4 3
8%

757

TST

00572t

MOV

011505

RTS

000205

(R4 )+

(SP)+

(RS, ,RS

: INCREMENT THE RETURN

:CLEAN OFF THE STACK

iGET RETURN ADDRESS
:RETURN

€873
g8

587

: THIS ROUTINE IS USED TO CHECK IF

nsEEx CHARACTER IS A DIGIT esvussn o AND 7.

gggg
-h

£879
£880
5881
gggg
€884
£88E

5886
5887
€888
£889
€890
éggé

;
:
:
:
022410
Q022414

022416
(022422
022424
Q0224e&
022432
022434

121127
103407

121127
101004
111102
042702
005725
06N20E

000060

000087

18:

#ADR,R1

:ADDRESS OF ASCII CHRRACTER

(R1),8°0
13

;LESS THAN ZERO?
YES-- BRANCH

JSR
RS, Ck.OCT
RE TURN1
RE TURN2

Ck.OCT: CMPB
BLO

177770

£893

MOV

CMPB
BHI
MOVB
BIC
75T
RTS

(R1),8'7
13
(R1),R2
#1C7 RS
(RS, +
RS

:CHECK THE CHARACTER
'CHARACTER IS NOT BETNEEN 0-7
:CHARACTER I8 IN R2 RS
A
:0CTAL DIGIT
cnenrsn THQN SEVEN?
'YES -- BRANCH
:GET THE CHARACTER
:STRIP AWAY THE ASCII
'ADJUST FOR RETURN
: RETURN

:THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER

ggg:

ggo DETERMINE IF IT IS w DIGIT BETWEEN O AND 9.

€96

MOV

JSR
RS, Ck.CEC
RETURN}
RE TURN2

8ADR, R1

'CHECK THE CHn ACTER
:NOT BETWEENO AND 9
ezruesn 0 AND 9
‘R2= DIGIT

CK.DEC:

CMPB
BLO

(R1,.8'0
18

;LESS THAN ZERO?
YES
-- BRANCH

£gg7
£g9g
5899
gggg
€902
€903

6904
€90

:
:
:
:
(22436
Qgcw42

Q2ovd<
Dgo<en

121127
103407

121127
101004

000060

000C71

CMPB
BHI

(R1,,8°9
13

nooness OF ASCII CHRRACTER

cnsnren THAN NINE®
‘YES -- BRANCH

SEG 0110

RPOY

E o280
DO
)

n MUY Y+ > ——
w - QWO ICNL WO

O4-NOV-77 [2:49

MACYILl

30(1046)

022462

Q4-NOV-77

17:31

Byee

000205

18:

?é?

RTS

(Rl)hga

(Rgi+

8’

: THIS POUTINE WILL
;oelERnxns WHRT IT

:
:

:
:
X
:
:

MOV

JgR

RETURN

RETURN
RETURN
RETURN
RETURN
RETURN

CHECK
IS.

8RDR, R}

RS, CK.CHR

ADAI

ADR2
ADR3
ADRY
ADRS
ADRE

022464
022466
oeeu;H

105711
GGIv1?
621527

Ck.CHR:
0000SH

022504
022510
022512
022516
022520
022522
022524
022526
022830
022532
02283+

7
004537
000410
004537
005725
005726
00575¢E
005725
0PS725
00E20]1
011505
000205

20cca!

PAGE

TSTB
BEQ

gnge

02243¢

022410

18:
23
38:
4§:

111}

SEG 0111

;Gggx;ng87

gcxx
;EoJusr FOR) R$ach
R£$URN
;

:RETURN
AN ASCII

CHARACTER

;

BEG
JSR
B8R
JSR
IST
1871
134
15T
157
INC
MOV
RTS

.ENC

(R1)
3s

éRlJ,l',

(31),-'.

18
RS, CK.DEC
4$
RS, Ck.OCT
(RE )+
(RS )+
(RS )+
(RS)+
(RS )+
Ri
‘RS, RS
RS

ADDRESS

OF ASCII CHARACTER

;cugcx 8HQRAC§E£

; UNKNOWN CHARACTER

;CRRRIRGE RETURN # (Rl ,)=fDR+1
:COMMA # (R])=ADR+]
‘PERIOD * (R1)=ADR+1
;DIGIT BETWEEN O AND 7.
;DIGIT BETWEEN 8 AND 9.
;R2

cgpe

85 476 1911§§ 000056
022502
00140
1

HO9

CK.NUM - CHECK NUMBER (OCTAL)

4S8y
855“?
2 65110
022460 oogrgg2 Co0060

O L O DD
0D

n
I
NIV N

DD D DD DDDD
D

ALl

S & HERD ALNMT

DIGIT

(Rl

zADR+1

; “CARRIAGE
RETURN"?
:YES -- BRANCH

‘;CO""Q"7R9NCH

;
;"Sénx
oofiv

:YES -- BRANCH
iDIGIT"?
iNO -- BRANCH
:0CTAL 7
;DIGIT BETWEEN B-9
:01GIT BETWEEN 0-7
:PERIOD
: COMMR
; CARRIAGE RETURN
;MOVE POINTER TO NEXT
{UNKNOWN CHARAC TER
:RETURN

.
A
CHARAZTER

CZRJCBO, RPOM-5.6 HERD ALNM
CoRICB.PLL
D4-NOV-=7 12:49

ABS
= 000200
RCk
= 000123
ACL
= 000040
ACTORV 007622
ACTSTR 007623
ACU~
= 100000
ARLIGN
(020027
ALN2YS 020222
ALN4S6 020270
ROE
= 001000
ARTA
= 100000
ATRBIT 007672
ATTN
001170
AT0
= 0OD0Q0!
ATl
= 000002
AT2
= 00000
RY3
= 000010
AT9
= 000020
ATS
= 000040
R76
= 000100
RY?
= 000200
Ale
= 000400
= 001000
1?7
BADCYL 020437
BAOTRK 020410
BRI
= 000010
BITINO 001200
BITO = 00000!
BIT00 = 000001
IT0]l = 000802
eIT62 = 000004
BIT03 = 000010
BITO4 = 000020
8IT0S = 0CO04C
BIT06 = 000100
BIT07 = 000200
BIT08 = 000400
BIT09 = 001CO0
BIT1 = DO0002
eitio = 002000
BITI1 = 004000
BITi2 = 010000
BITi3 = 020000
BITIN = 040000

BITic = 100000
eive”
BIT3
1YY
EITe
BITe
EIv7
BITe
EIS

=
=
=
=
=
=
=
=

000004
000010
000620
0000NG
000100
006200
000400
OCIOGO

BPTVEC=
BUF
=
BUSADR
CHECK
CHGRDR

Q00014
000006
022060
003032
001242

CIl
€13

011244
011352

c1s
€16

012036
012060

CI4

ciz

011960
012074

c178
pi121e2
c1s
012174
CKSWR = 104407

CK.CHR (022464
CK.DEC 022436
CK.NUM (022246
CK.OCT 022410
LR
= 000040
CLRQUE 015662
CODE = D00O0O0!
COMND = 000002
= 000015
CR
CRLF = 000200
CSF
= 000062
¢SUu
= 000010
¢yL
= 000012
CYLDER 002646
CvyLeys 020112
CyL496 020156
CK
= 100006
OCL
= 000100
U
= 000001
DDISP = 177570
OU
016644
DDUALN 003530
€1
= 000040
OFF20 = 000002
1
021740
DF10
021756
OFie
021765
OF13
021770
OF2
021741
OF3
021747

OF Y

orl
DH10
DHl2
OM13
DH16
OH2
OH3
OHY

17:31

MACY1l 30(1046) OQ4-NOV-77
SYMBOL TRBLE

n3175¢e

021237
021421
021567
021600
021617
021244
02132l
021347

109

DHE
021406
DIGB = 000004
DISPLA 001142
ODISPRE 000174
OLT
= 100000
OLed = 000020
OMO
= 000001
0P8
016120
OPINT
007576
PR
= 000400
DPRQS
007606
ORIVE
001166
DRIVER 003736
DRG
= 004000
ORVACT 007546
ORVCLR= 000111
ORVINT 010134
DRVQUE 015760
DRVSEL 001164
DRVSTA 007556
DRVTIYP 007566
DRY
= 000200
OSWR = 177570
DTE
= 010000
0TSY = 000200
OTUW
007670
DTOC = 0000601
DT01 = 000002
0102 = 000004
0703 = 000010
0704 = 000020
0705 = 000040
0706 = 000100
0707 = 000200
0708 = 000400
021626
0Tl
6710
021676
0712
021716
0713
021726
D116
021734
D12
021632
013
021650
DTy
021660
OTe
071672

OVA

= 004000

ECH
=
ECI
=
EMPTYQ
EMTVEC=
EMI
EMIO
EMI]
EML2

000100
004000
015740
000030
020506
020776
021022
021045

PAGE 113

EML3
EMIY
EMIS
EM1E
EM2

021073
021131
021152
021215
020547

EMS

020700

ENTCYL

020355

EM3
EMY

EME
ENDMSG

020605
020643

LA
LACNT

020734
020472

LIMIT
LINSP

ENTERD 017545
ENTHD
020336
ERR
= 040000

ERRVEC= 000004
EXER
020040
EXT1 = 000001
EXT10 = 000010
EXTe = 000002
EXT20 = 000020
EXTY = 000004
EXTYO = 000040
= 000200
FEN
FER
= 000020
FMT22 = 010000
Fl
= 000002
F2
= 000004
F3
= 000010
FY
= 000020
F
= 000040
GETNUM 004270
GETREG= 000141
GETREQ 016034
0
= 000001
GRV
= 000010
GTSWR = 104406
HCE
= 000200
HCI
= 002000
HCRC = 000400
HOZERO 020054
HEADER 017657
HEADI
016210
HEADYS 016310
HEADG
016260

021772

HIAD

HIVEC
HT
IRE
I
ILF
ILR
INCYL
INIT

=
=
=
=
=

INREG
001206
I0TVEC= 000020
iR
= 000160
ISR
012566
IXE
= 004000

021774
000011
002000
000100
000001
000002
001226
001744

012430
007634

= 000012

LKS

06126e

021776
022242

LKY
001256
LST
= 002000
MAXCYL 001212

MAXNEG 001216
MaXOFF 001220
MAXPOS 001219
MCLK = 000002
MCPE = 020000
MCPEMX 007702
HS
= 001000
MIDCYL 001224
001230
MIGTOL
MINX = 000004
MNDLTA 007716
MODE
017751
MOH
= 020000
MOL
= 010000
MPE
= 000400
MRO
= 000020
MRHVEC 022231
MRPCSI 022220
MSE
= 000020
MSTCK = 000010
WR
= 000040
MXOLTR 007714
MXF
= 001000
MXLARCT 007712
MXWNOW 007720
N
= 000261
NBA
= 100000
NED
= 010000
NEM
= 004000
NHS
= 002080

NODRV

017514

oCyL = 100000
OFFDIR 001176
OFFSET= 000115
OFREV = 000200
OFTBLY 016405
OFTBLe 016324
OF100 = 000GCH
OF200 = 0C0010

CoRJCBO,

-6 HERD RALNMT
RPOM.S-

CZRICB.#11

OF25 = 00000i
QF400 = 0C3020
OFSO_ = 000002
QF800 = 000040
ONEHD
002444
OPE
= 020000
OP1
= 020000
oPY
010764
OR
= 000200
oUTCYL 0Cl232
OUTTOL 00jz222
PAR
= 000010
PAT
= 000C2C
PGE
= 002000
P3M
= 00.000
PIP
=
020000
PIRQ = 177277
PIRGVE= 000240
PKB
001252
Pk
001254
PKCS
001250
Pk v
001244
FLJ
= 020000
PLUS
001204
POPQUE 016056
PRESET= 000121
PRC
= 000000
PRI
= 000040
PrRe
= 000100
PR3
= 000140
PRY
= 000200
PRE
= D0O240
PRe
= 000300
PR?
= 000340
PS
= 177776
PSEL = 002000
PSU
= 00000l
PSW
= 17777¢
PWRVEC= 000024
@CNT
015370
@DRVO
015462
QDRV]
Q15502
QORve
015522
QORV3
015542
GDRV4
015562
QORYS
015602
GDRYE
0ISkee
GORY?7
015642
GINPT
015400
QOJTPT QlEN20
GETARY 0IS440
QSTOP
DIEu42
WTERM = Clteee

04-NOV-77 12:49

MACY11 30(1046)

RANDOM 003640
RAW
= 000020
RDCHR = 104410
RODAT = 000171
ROHD = 000173
ROLIN = 104411
RDY
= 000200
RD.ADR 014662
RD.RP
014636
RD.RP1 014660
RD.RP2 015000
RO.RP3 015004
RD.RPY4 (015010
D.WRD 0Ol4664
RECAL = 000107
REG
016140
RE
= 000113
RESREG= 104413
RESVEC= 060010
RMR
= 000004
RNOP = 000101
RPADR
00?704
RPAS = 000016
RPBR = 000004
RPCA = 000034
RPCC = 000036
RPCS1 = 000000
RPCS2 = 000010
RPDA = 000006
RPDB = 000022
RPDS1 = 000012
RPOT = 000026
RPEC1 = 000044
RPEC2 = 000046
RPERRS 007546
RPER] = 000014
RPER2 = 000040
RPER3 = 000042
RPINIT 007722
KPLA = 000020
RPMR = 000024
RPOF = 000032
RPSN = 000030
RPTMR
014110
RPVEC
007706
RPWC = 000002
RPO4
010472
RTC
= 000117
RE
=%000006
R?
=%000007?
SAVEFG 007644
SAVREG= J04412
sC
012772

0O4-NOV-77

SYMBOL TRBLE

17:31

JO9

SCl1
= 000100
SC10 = 001000
SCl1l
013610
Scle
013700
SC13
013750
sce
= 000200
SCe0 = 002000
SC3
013036
SCH
013042
SCS
013054
Sce
g13a4M
SCeR
013354
SC?
013502
scs
013560
SERRCH= 000131
SEC
= 000010
SEEK = 000105
SEEKFG 007646
SEKCNT 001240
SELDRV= 00Q14S
SETFMT= 000143
SET.IE 01S316
SINCNG 001202
= 040000
SRCHWT 007620
SRVCLK 004256
STACK = 001100
STARY
001450
START1 001460
START2 00l4b4
STATUS= 0000i6
STKLMT= 177774
ST10
014202
S101
014232
5702
C14430
S703
014500
ST10S
0l4SeY4
ST06
Q1453e
S107
Q14570
<708
014620
ST09
014630
ST.CLK 004114
ST.LCL 004232
ST.PCL 0N4200
SVRH11 015200
WR
001140
SWREG
000176
SWg_
= 000001
SWoo = 000001
SWol = 000002
S4d02 = 000004
SWi03 = 000010
SWO4 = 000020

PRGE 114

SEG 0113
SWOS
SWoe
SWO7
swog
SW09
SW1
SW10
SWi1l
SWie
SW13
SWi4
SK1S
SWe
SW3
SW4
SWS

= 000040
= 000100
= 000200
= 000400
= 001000
= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020
= 000040
Swe
= 000100
SW7
= 000200
SW8
= 000400
SW9
= 001000
TABLEl 001234
TABLE2 001226
= 040CJ0
TBITVE= 00001Y
012632
TOF
= 000040
TIMER
007650
TITLE
016546
TKVEC = 000060
TOLER
001210
JOLRG
017633
TOPLN
001174
TPVEC = 000064
TRAPVE= Q00034
TRE
= 040000
TRK
= 000011
TRK1 = 004000
TRK10 = Q40000
TRK2 = 010000
TRK20 = 100000
TRKM = 020000
TRNSWT 007616
TRTVEC= 00Q01H4
TUF
= 000100
TYPDS = 10Q440S
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
ULCFLG 007624
UNLORDO= 000103
UNS
= 040000
UPE
= 020000

usl
= 000001
use
= 000002
us4
= 0000CH4
WR
= 000010
VERIFY 020015
VUF
= 000002
vu3o = 610000
Vv
= 000100
WRO
= CO000e
WCE
= 040000
WCF
= 000040
WCHKD = 000151
WCHKHD= 000153
WCU
= 00000l
WLE
= 004000
WLOCK
017574
WRL
= 004000
WRTDAT= 000l6]

WRTHD = 000163
WRT.AD
WRT.RP
WRT.R1
WRT.R2

015102
015012
015076
015162

WRT.R3

Q0I1S170

SCNTLC

006773

WRT.R4 0IS174
WRT.RS 015176
WRT.WO Q015100
WRU
= 000400
WSU__
= 000004
$AUTOB 001134
$BDADR 0Q0lle2e
SBOOAT 001126
$BELL
006767
SCHARC
S110
SCKSWR 006072
$CMTRG 001100
$CM3 = 000000

SCNTLG
SCNTLU
SCRLF
$DBLK
$OIv
$DTBL
SERFLG
SERMAX
SERROR
SERRPC
SERRTB
SERRTY
SERTTL
SFILLC
$FILLS

007005
007000
00lisel
005556
007136
00SSH46
001103
001115
0QQ4d412
001116
001270
(004520
(001112
0QO0liCEs
001155

CIRICBO,

RPOM.5.6 HERD ALNMT

CIRJICB.PIL
$GDADR
§GODAT
$GTSWR
SHD
=
SHERD
SHINUM
SICNT
SINTAG
SITEMB
LF

001120
001124
006162
000001
001172
007132
001104
00113S
(0G1114
001162

SLONUM
SLPROR

007134
001106

022536

ABS

04-NOV-77 12:49

ERRORS DETECTED:

SLPERR
SMNEW
$MSWR
SNULL
$OCNT
$OMODE
$PASS
$QUES
$RAND
SROCHR

FACY11 30(1046)

O4-NOV-?7

SYMBOL TABLE

001110
007023
007012
001154
005336
005340
001100
001160
007034
006434

SROLIN
006524
$RDSZ = 000067

SRESRE
$RPADR
SRPVEC
§SAVRE
$SETUP=
SSTUP =
SWR
=
§7KB
$TKCNT
STKINT

17:31

007414
001264
001266
007356
0001496
177777
120000
001146
005566

005604
$TKQEN= 005603
$§TKQIN
005570

00c

RMO3: CZRJCB, CZRICB. SEQ/SOL /L1: ME-NL : MC=RPO456.011,CZRICB.
P11

RUN-TIME: 2§ 15 .& SECONDS

RUN-TIME RATIO:
CORE USED:
34K

§2-37:2.4
(67 PAGES)

KOS
PRGE

11S

SEG Cll+
$TKQOU
$TKQSR
§TKS
$TKSRV
N~
=
$TPB
STPFLG
§TPS
TRAP

005572
005574
001 144
005654
00000l
001152
001157
001150
007482
0067474

§TRAP2
$TRP
= 00001Y
$TRPAD
007506

$TSTNM
$TTYIN
$TvPDS
$TYPE
STYPEC
STYPEX
$TYPOC
$T'PON
$TYPOS
$OFILL
)

00102
006760
005342
004674
00SO44
005112
005140
005154
0OE114
005337

- 023€3¢

LOS