Digital PDFs

AH-B016B-MC

January 1978

164 pages

Original

8.3MB

view download

OCR Version

7.4MB

view download

Document:	CZRMIB0 RM03,02 DRIVE COMPATIBILITY TEST JAN 1978 bw
Order Number:	AH-B016B-MC
Revision:	000
Pages:	164
Original Filename:	CZRMIB0__RM03,02__DRIVE_COMPATIBILITY_TEST__AH-B016B-MC__JAN_1978_bw.pdf

OCR Text

DRIVE COMPATIBILITY TEST

CZRMIBO

'AH-BO16B-MC
COPYRIGHT ©1977

FICHE 1 OF 1

JAN 1978

BOl
EOFICZR
cznnxe Pll

SEQ

Q4000!

00010000

780105

CZRMIBO RM0O3-/2 DR CPT 7197

28-NOV-T7 09:42

1
2
3

.REM

POP10 “411!

MACY11l 30(1046)

HOR1CZRMIBSEQ

28-NOV-77

10:00

PAGE 2

000:0000

78010¢

“

5
b

IDENTIFICATIGCN

PRODUCT CODE:

AC-BO1SB-MC

PRODUCT NARME:

CZRMIBO RMO3/RMO2 ORIVE COMPRTIBILITY TEST

DATE CREATED:

AUGUST 1977

20
Sé

MAINTRINER-

DIAGNOSTIC ENGINEERING

RUTHOR.

ié
1~

23
24
es
26

3l
32

THE INFORMATION IN THIS STRTEMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT
CONSTRUED RS R

ACTUAL DISTRIBUTION OF THE SOFTWARE DESCRIBED

1977 DIGITAL EQUIPMENT CORP.,

COMMITMENT BY DIGITAL. EQUIPMENT

3e
37

MAYNARD,

CORPORATION.

IN THIS

CORPORATION.

DEC ASSUMES NO RESPONSIBI ITY FOR THE USE OR
RELIABILITY OF ITS s WARE ON EQUIPMENT WHICH
NOT SUPPLIED BY DEC
IS FURNISHED

THIS SOFTWARE

-7
“g

SYSTEM, EXCEPYT AS MAY OTHERWISE BE PROVIDED IN WRI
Br DEC.

4E
<€

MRASS.

DOCUMENT HéLL BE SUBJECT TO TERMS ANO CONDITIONS T
BE ANNOUNCED ON SOME FUTURE DRTE BY DIGITRL EQUIPMENT

“C
“]
35

(C)

CHEN

TO PURCHASER UNDER R L ICENSE

TO USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
INCLUSION OF DEC’S COPYRIGHT NGTICE) ONLY FOR usg %?Néucn

30(104%,

28-NOV-77

10:00

COl

PRGE 3

o
O

HARDWARE REQUIREMENTS

PRELIMINARY PROGRAM REQUIREMENTS

U‘U\SWN

GENERAL PROGRAM CONSIDERATIONS
1
SYSMRC
I-K-S.C&.CI

INTRODUCTION

TARBLE OF CONTENTS

XX?P

DU;L RCCESS

MEMORY MANAGEMENT
MEMORY PARITY OPTION

3
S ERECORTON Tine
PROGRAM LOAD MEDIR

PROGRAA 0¢;£$?N RADDRESS
g é gHITCH 850?8 Ea SgTIONS USED
[w]

MACY1l

CoRMIBO RMO3-2 DP CPT_TSTY
CIRMIB.PLL
28-NOGV-77 09-42

RUNNING

THE PROGRAM

TeEL
Ria el R sponrss 200 sranr
’

RLOGUE FOR RDDRESS 22C STRRT

8. pazs 3 BIA-8GLE
9.0

DESCRIPTION OF TESTS
9.1
DESCRIPTION OF PRSS 1 TESTS
9.2
DESCRIPTION OF PRSS 2 TESTS

10.0

PR}gT?UT OF TEST RESULTS
OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS

11.0

ERROR REPgflTéNG
1.}
RRORS
11
ROR
HANDL ING
11.5
ERROR PRINTOUT EXAMPLE

SEG 0Cge

CZRMIBO RMO3-2 DR CPT _TST
CZRMIB.PLI

28-NOV-77 09:42

igg

107

MACY1l 30(1046)

28-NOV-77

10:00

DOl

PRGE Y

TABLE A -~

BRSIC READ/WRITE TEST SECTORS

TABLE B -

WORSE CASE DRTA PATTERN

SEG 00023

Om
—oOunm- i LWwu—-0Oomd

POV

0= pe po s Pt s pos P Pt Pe 00 "~

3
3
5t Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P P P

03-2 DR CPT_TST
28-NOV-77 09:42

MARCYL1

30(1046)

TRBLE

28-NOV-77

10:00

EOL

PAGE S

CYLINDER BLOCK RSSIGNMENT FOR R GIVEN SURFACE

TRBLE D

BRSIC CYLINDER BLOCK LRYOUT EXRMPLE

TARBLE £

OVERWRITE CYLINDERS

TRBLE F

SFLF-TEST CYLINDERS

TRBLE G

PSEUDO-BRiITOUM DMIK PRTTESN

12.C

RMC3 SUFTWARE DRIVER DOCUMENT
Y

SEG 0004

MAC11 30(1046)

28-NOV-?7

10:00

FOL

PARGE &

SEG 000%

1.0

RN AR A A RN

NN
oo
o
- OwvooNTNLEW

INTRODUCTION

THE PURPOSE OF THIS PROGRAM IS TO VERIFY THE COMPRTIBILITY OF UP TO 16
RMO3/RM
DRIVES
WHICH
MAY
RESIDE
ON ONE / MORE RH11(70)/RMO3,RMO2 SUBSYSTEMS.
IS

DEFINED HERE RS THE ABILITY OF A DRIVE TO KWRITE DATA WHICH CAN BE REARD
SUCCESSFULLY BY ALL OTHER DRIVES,
AND ADDITIONALLY THE
RBILITY
OF
A

DRIVE

TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL OTHER DRIVES.

THE PROGRAM IS DESIGNED TO DETECT THE FOLLOWING CONDITIONS WHICH
COMMONLY CRUSE INCOMPRTIBILITY BETWEEN DRIVES:

00 Bt 9t Pt (1t ot Bt ot (et Pt Pt Pt Pt Pt Bt Pt P Pt e Pt 1t e b Pt Bt B @ Pt Pt Pt Pt ot Pt Pt Pt s et Pt s Pt Pt Pt Pt

Dttt A ot bt = it R

s Pont P P P

o e

OO0

0 _RMO3/2 DR CPT_TST
28-NOV-77 09:42

HERD MIS-ALIGNMENT

POSITIONER LATERAL MISALIGNMENT

SPINDLE-CARTRIDGE INTERFACE RUNOUT

IMPROPER LEVELS OF WRITE CURRENT

INCORRECT RDDRESSING OF READ/WRITE HERDS

THE TESTING és oon; {” TWO

PARTTERNS AR

PRSSES.

PASS

MOST

COMPATIBILITY

DATA

TEN BY ALL THE DRIVES UPON rnt SAME DISK CARTRIDGE

AND ruc BASIC READ/WRITE CAPABILITY OF ERCH DRIVE IS DEMONSTRATED.
PRSS
2,

WITH

HERD OF

RBILITY TO

THIS IS COMPARED

MWITH

ERCH

DRIVE’'S

TESTED

“£?§
Euu DATA. IN ARODITION, EQCH DRIVE'S CRPABILITY TO

OVERWRITE DRTA

TEN BY RLL OTHER DRIVES IS

PASS.
(FOR THE REMRINDER
OF THIS SPECIFICATION,
OF THE FIRST AND SECOND PRSS SHALL APPLY).

IN ROTH PRSSES,

UNLORDING

DRIVE,

TESTING

THE COHPQTIBILITY DATA FROM ALL DRIVES IS READ BY ERCH DRIVE,

THE PROGRRH DIRECTS TH? OPERRTOR IN

OF 'DRIVES AND THE MOVEMENT

THROUGH HESSQCES AT THY

ON_

ERCH DRIVE DURING

THE

SECOND

THE ABOVE DEFINITIONS

THE

LORADING

AND

OF THE CRRTRIDGE FROM DRIVE TO

CONSOLE TERMINAL.

AT THE COMPLETION OF

THE SECOND PASS A SUMMARY IS PRINTED OF

COMPATIBILITY YEST RESULTS FOR THAT DRIVE.
WITHIN THE VRRIOUS TESTS OF BOTH PRSSES,

THE CAPABILITY IS PROVIDED TO

LOOP ON CURRENT OPERATIONS, AND SWITCH'REGISTER OPTIONS ARE PROVIDED
ESETISN ZRS}ETY OF LOOPINS, RUNNING, AND REPORTING
MODES
(SEE
UNEXPECTED ERRO
S WILL BE RLPORTED RS THEY
CCCUR.
THE
REPORT
INCLUDE DESCRIPTION AND APPLICARBLE DEVICE REGISTER CONTENTS.

WILL

e )
Mo

SRR

RSt

R R I IR

e R TP RRER DRI iornNLwn

OO0

P11

28-NOV-TT 09:42

0 RMO3-2 DR CPT TST

202
203

204

28-NOV-77

MACYL1 30(1046)

2.0

10:00

GOl

SEG 0006

PRGE 7

HARDWARE REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RMO3 DRIVE COMPATIBILITY

PROGRAM, FOR ERCH SUBSYSTEM WHICH MAY BE PRESENT:

PDP-11,04,

16K MEMORY

105,10 MFG. ONLY), 20,30,34,35,40,45,50,70

CONSOLE TERMINAL
RH11(70) CONTROLLER

70 8 RMO3 DISK DRIVES PER CONTROLLER

A SINGLE RMO3 DISK CARTRIDGE IS REQUIRED WHICH MUST BE
32 SECTOR FORMAT, ON A RELIABLE WELL-ALIGNED(REFERENCE PACK)
UP TO 16 DRIVES)
TR Ib?E H%LL BE MOVED FROM DRIVE TO DRIVE, (ON

JON
D éh
Iv

3.0

THE

TWO PASSES.

PRELIMINRRY PROGRAM REQUIREMENTS

THE R. _3 ORIVE COMPATIBILITY PROGRAM,

SUBSYSTEM(S)

THE

BEFORE RUNNING
R DTRGNOSTICS
UNDER TEST SHOULD BE CAPARBLE OF PASSING THE CONYROLLE
THE
ADDITION,
IN_
.
AND THE DRIVE _DIRGNOSTICS
CARTRIDGE MUST BE FORMATTED IN 32 SECTOR FORMAT USING THE PACK
FORMATTER.

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMAC

206

207

208

2193

THIS PROGRAM USES PORTIONS

211

PACKAGE.

2is

4.2

212
213
214

gi7

2:8
19

THE

XXDP

THIS PROGRAM MAY BE LORDED UNDER XXOP,

ONLY.

DUE

SYSMAC

DIAGNOSTIC

AND MAY BE

RUN

SYSTEM

MACRO

DUMP_

MJOE

TO MANUAL INTERVENTION AND LACK OF END-OF -PASS HOGKS, THE

PROGRAM 1S NOT XXDP CHAINABLE.

CZRMIBO RMD3-2 DR CPT T1ST
CZRMIB.PL1
e8-NOVv-77 09:4¢2

MRCY11l

30(1046)

28-NOV-?7

10:00

HO1

PAGE B

SEG 0007

eel
22l
eee
geg

4.3

S
ggg

THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN
IT IS NOT CHRINRBLE UNDER ACT.

RACT
IN DUMP MODE ONLY.

228

ee9

gg?

4.4

RPT

23e

PROGRAM (DUMP) MODE ONLY. 1IT CANNGT BE RUN IN'APT SCRIPT MODE.
THIS PROGRAM MAY BE LOADED BY THE

533
23s
236

APT

SYSTEM,

BUT

MAY

RUN

Sgg

4.5

DURL-RCCESS

239

240

RLL DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT uHiCH 1S
NOT

IN USE

243
244
S:g

4.6

MEMORY MANAGEMENT

MEMORY

THIS PROGRAM DOES NOT UTILIZE THE DUAL-RCCESS OPTION IN ANY

S:é

g:g

OR LOCKED ON THE PORT BEING TESTED.

MANRGEMENT

INSTALLED,

WAY

NOT

UTILIZED

THIS

IT 1S DISABLED BY THE PROGRAM.

PROGRAM,

250

2s1
Sgg

254

4.7

MEMORY PRARITY OPTION

IF PQRITY MEMORY

INSTALLED,

MEMORY PARITY TRAPS ARE DISABLED BY THE

2S¢t

PROGRAM

258
ggg

4.8

26l
262
263
264
ggg

THE LIST OF BAD SECTORS ON THE CRRTRIDGE IS OBTRINED
FROM
THE
FIRST
DRIVE
TO
BE
TESTED ON THE CURRENT SUBSYST;H ncconoxnc Y0
A SWITCH
REGISTER OPTION (SEE SECTION 6.2)
TH
LIS
TYPED
AT
THE
CONSOLE
AT
THE START OF THE FIRST PRSS.
o ERRORS OCCURING IN
THE PROGRAM ARE IGNORED IF THEY OCCUR IN SECTORS DESIGNATED RS BAD.

Y4
ce8
g;g

4.9

THS

REGUIRES ABOUT
2 MINUTES PER DRIVE,EXCL

25k
257

BRD SECTORS

EXECUTION TIME
T?TQL

ECTLY

R;QUIRED

PRO OR IONAL

70 R?N

TO0

THE

ORIVE

NUMBER

COMPATIBILITY

ORIVES

CING OPERATOR

PROGRRH

BE TESTEL AND

INTERVENTION.

CZRMIBO RMO3.2 DR CPT 1ST

CZRMIB.P11

28-NOV-77"09:42

MACY1l 30(1046)

28-NOV-?7

10:00

I01

PRGE 9

SEG 0Coe

274

gZ’

5.0

27
gg?

THIS PROGRAM CAN BE LOARDED FROM PAPER TAPE USING THE
ABSOLUTE
LOADER
OR FROM THE RCT OR APT SYSTEMS OR FROM ANY MEDIR SUPPORTED BY XXDP.

282
283

PROGRAM LOAD MEDIR

284

6.0

PROGRAM OPTIONS

287
ggg

6.1

STARTING ADDRESSES

285
286

230
291
292
£33

2394

200 - THIS 1S THE STARTING ADDRESS
FOR
DEFQULT
PARAMETERS
AND
RUNNING
OF
“PRSS
1 AND PASS 2 ON
A SINGLE SUBSYSTEM.
THE
PROGRAM WILL USE
DEFRULT
RH11(70)
BASE
ADDRESS,
INTERRUPT

VECTOR RAND PRIORIT

THE PROGRAM WILL nssuns ALL

235

DRIVES TO BE TESTED

ggg

ONLY.

298
299
300

301
302
303

K411(?70)/RMO3

SUBSYSTEM

OTHER

SUBSYSTEMS,

AND THE DRIVE(S) WHILH WILL BE TESTED ON

220 - THIS
IS
THE
STARTING
ARDORESS
TO
RUN
PASS
2
ON
ALL
RH11(70)/RMO3
SUBSYSTEMS
WHICH RESIDE ON THIS PDP-1]1 SYSTEM.
THE PROGRAM WILL ASK FOR THE RH11(70)
BRSE
RDDRESS, INTERRUFT

399

VE
M ~R FOR EACH SUBSYSTEM ON THIS SYSTEM,

210

1T ASKS FOR THE LETTER NAMES (R THRU

311

218

ONE

VECTOR, AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND
IT ASKS FOR THE LETTER NAMES (R THRU M) RSSIGNED TO' ALL

EACH.

306
307
208

gig

204 - THIS
IS
T
TARTING
ADDRESS
TO
RUN
PASS
1
ON
ALL
RH11(70)/RMO
BSYSTEMS
WHICH RESIDE ON THIS PDP-11 SYSTEM.
THE PROGRAM WILL ASK FOR THE RH11(70) BRSE RADDRESS,
INTERRUPT

gg;

312
313
214
3ic

RESIDE

OTHER

EACH.

6.2

SUBSYSTEMS,

AND THE DRIVE(S)

AND

H)' RSSIGNED

ALL

THE

SWITCH

WHICH WILL BE TESTED CN

SWITCH REGISTER OPTIONS USED

THIS PROGRAM xs ossxcmeo TO ALLOW

USE

HARDWARE

321
3e2

CASE
THE FOLLONING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIARTE BITS
ARE SET
T

229

383
324
3¢
32¢
327

3ec8

IF PRESENT

THE

319

THE SYSMAC-SUPPORTED SOF TWARE SWITCH REGISTER

(IF HARDWARE SWR IS Nor PRESENT, OR IS SET 10 ALL ONES)
BIT

———
15

OPTION

ea-la

HALT ON ERROR

LOOP ON CURRENT TEST

IN EITHER

CCRMIBO RMO3-/2 DR CPT_TST

CIRMIB.PLL

28-NOvV-77 09:4¢

MACY11l 30(1046)

28-NOV-77

10:00

JO1

PAGE 10

c€g 0eco9

INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY, ON ERRORS

13
12

11
10
09

UNUSED
BELL ON ERROR
LOOP ON ERROR

06-00

UNUSED

o8
07

APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BAD SECTOR FILES (BSF'S) AT START

-®

7.0

RUNNING THE PROGRAM

(IN

ONCE THE PROGRAM HAS BEEN LORDED INTG CORE

GIVEN

SYSTEM

¥:EREROEESH MULTIPLE SYSTEMS, THE FOLLOWING STEPS MUST BE TAKEN 70 RUN
1.

INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE

PORT SELECTED.

LORD THE DESIRED START ADDRESS.

SET ANY DESIRED BITS IN

PRESENT).

THE

HARDWARE

SWITCH

(IF

START THE PROGRAM.

PROGRAM PERTAINING TO
) NS TYPED BY THE
FOLLOW ALL INSTRUCTIO
REQUIRED, AND THE RLTERNATE USE OF
_IMTERVEN TION
__MANUAL
THC
MULTIPLE SYSTEMS (IF THERE ARE RANY).
]

8.0

OPERATIONAL DIALOGUE

THIS SECTION DESCR%BES THE CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE
IN 1HE SELECTION OF OPTIONS AND_THE
THE OPERATOR
PROGRAM DIRECTS

AND THE MOVEMENT OF THE TEST
LOADING AND UNLORDING OF DRIVES,
CARTRIDGE. THE EXACT DIRLOGUE WHICH 1S USED DEPENDS UPON THE STARTING
ADDRESS WHICH WARS CHOSEN (SEE SECTION 6.1).

PRINTOUT

TEST

RESULTS

IN THE FOLLOWING DISCUSSION AND IN THE
BY R LETTER AND A NUMBER. THE
DRIVES TO BE TESTED WILL BE REFERRED TO (OPERARTOR
AND THE
RSSIGNED)
LETTER IS THE SUBSYSTEM

NUMBER

LETTER

_NAME

THE DRIVE _NUMBER ON THAT SUBSYSTEM.

REFERS TO DRIVE & ON SUBSYSTEM C.

FOR EXAMPLE, DRIVE Cb

CCRMIBO RMO3/2 DR CPT_TST
C ZRMIB.P11
28-NOV-77 09:4¢c

MACYL1l

30(1046)

8.1

28-NOV-77

10:00

KOl

PARGE

SEG 0010

DIRLOGUE FOR ADDRESS 200 START

;Eésség$gglfic ADDRESS MAY BE USED FOR DEFAULTING PRRAMETERS ON ONE

THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS:
CZRMIBO - RMO3/RMO2 DRIVE COMPATIBILITY TEST
THEN,

THE PROGRAM ASKS

THE PROGRAM TYPES THE

DRIVE LIST,

THE DRIVES

TO BE

TESTED.

RS IN THE FOLLOWING EXAMPLE:

DRIVES = 2,5,7<«CR>
THE PROGRAM NOW PROCEEDS WITH PRSS

AND DIRECTS THE OPERATOR

MOUNTING OF THE PACK, RS DESCRIBED IN SECTION B.4.

THE

PLERSE NOTE THAT THERE IS ONLY_ONE SUBSYSTEM ON AN
RDR.
200
STRRTE
AND IT IS NAMED SUBSYSTEM A,
THE DRIVES IN THE ARBOVE EXAMPLE WOULD B8
gsggRgED TO RS R2,AS,R7? IN THE TEST RESULTS PRINTOUT
AT
THE
END
OF

[ VI T S P ey Sy ey e
OwODNTINLW

4l1

8.2

DIALOGUE FOR RDDRESS 204 START

THIS STARTING ADDRESS MUST BE USED ON ERCH SYSTEM,

WHEN THERE

THAN _ONE §ugsvsren
BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE
sUBSYSTEM (TOTAL), TO SPECIFY DRIVES TO TEST AND NON-DEFRULT PARAMETER
VALUES, FOR PRSS |.
THE PROGRAM IDENTIFIES ITSELF RS FOLLOWS:

421

CZRMIBO- RMO3/RMO2 DRIVE COMPARTIBILITY TEST
THEM,

EACH

THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES

7THE

POSSIBLE

FROM SUBSYs R TO
*DRIVE ON ERCH )

SUBSYSTEMS

SUBSYS H.

SUBSYS R DRIVE(S)

NEXT,

TESTED

WITH A

RS IN THE FOLLOWING

= 2,5,7<«CR>

THE PROGRAM THEN VERIFIES THE ORIVE NUMBERS

WILL TEST DRIVE(S)

THEPe COULD BE UP TO B8 SUBSYSTEMS,

E:E OPERRTOR THEN TYPES THE DESIRED DRIVE NUMBERS,
SUBSYS R DRIVE(S)

(STARTING WITH A - THE NAMES RANGE

BY TYPING

2,5,7 ON SUBSYS RA.

THE FROGRAM RASKS THE FOLLOWING QUESTION:

03‘2 DR CPT_TST
28-NOV-77 09:4

MACY11l 30(1046)

28-NOV-77

10:00

LOL

SEG 0011l

PRGE 12

IS THERE ANOTHER SUBSYS (Y OR N <(CR>)?
THE OPERATOR TYPES Y(CR> OR

N<CR).

(IF

JUST

<«CR>

TYPED,

THE

PROGRAM RS E"Sé THAT N<CR) WAS TYPED)
F THE OPERATOR TYPED N, THE
PROGRRH PROC
WITH PASS 1, nuo oxnscrs HE opsnaroa IN THE MOUNTING
THE PRCK
S oescnxeeo IN'SECTION 8.4.
IFY WAS TYPED, THE PROGRAM
nsxs
Hgsng
OF THE DRIVES TO BE TESTED ON THE NEXT SUBSYSTEM
csuesvs 8)

OLLOHS

SUBSYS B DRIVE(S) =

THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE:
SuUBSYS B DRIVE(S)

= 2,3¢«CR)

THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS.

BY TYPING :

WILL TEST DRIVE(S) 2,3 ON SUBSYS B.
NEXT,

THE PRCGRAM WILL RSK :

IS THERE RNOTHER SUBSYS (Y OR N <CR>)?

AND IN THE SAME MANNER,

THE OPERATOR SPECIFIES THE 2? 1 VES ON

THE REMRINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECI

ED.

THE ORDER IN WHICH
ALL SUBSYSTEMS MUST BE TEST D $~

THE

ASSIGNED

LETTERS

ARE

PROGRAM nLLous THE OPERATOR TO ALTER

THRU H)

EARCH

CTOR RDDRESSFOR THIS
THE RHll(?O) BUS noonsss bnannsv
THE
AND<CR>.
IS TYPED,
VALUEVRLUE,
CURRENT
RY TOTHETYPE
;
FOR
SUBSYSTEM.,
PLUS
NEW
R
IN
oppomum
1S cxvzn HE
OPERATOR
IF JUST <CR> xs PED

RHETER ¥s NOT CHANGED.

FOLLOWING EXRMPLE suous R

PRINTOUT

tououmc
CTOR
ADDRESS = 177570
CHANGED:

RMCS!
RMVEC

=
=

000000
000

WHEN THE PROGRAM

VALUES ARE RSSIGNED:
RHll(?D) BUS
FARUL = 240,
(IF 200 START). THE

WHICH BUS RDDRESS AND VECTOR WERE

177670
254

THEN THE PROGRAM PROCEEDS WITH PRSS 1,

AND DIRECTS THE OPERRTOR IN THE

MOUNTING OF THE PACK, RS DESCRIBED IN SECTION 8.4. AT THE COMPLETION
OF PRSS | ON THE SuBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOW

CZRMIBC RMO3-2 DR CPT TST
CZRMIB.PL!
28-NOV-77 09:42
487
488
489

430

4q]
432
433

MACY1l

3001046}

28-NOV-77

TO PERFORM PRSS

10:00

MOl

PRGE

SEQ 00le

THE NEXT SUBSYSTEM.

“

8.3

OIRLOGUE FOR ADDRESS 220 START

THIS STRRTING RDDRESS MUST BE USED ON ERCH SYSTEM,
YSTEM,
BUY
MRY
R
UQeD H

WHEN THERE IS
MORE
N THERE 1
J
T ON

CZRMIBO - RMO3 DRIVE COMPATIBILITY TEST

THE DIALOGUE FOR 2k0 STRRT 1S IDENTICRL TO THE DIALOGUE

mmg;mmmmmmmmmm

(2112314 V] F Y CIENENDINENS U
LY +OW
0 NN
L W D Om

START

523

DESCRIBE
?

HE PRC

DESCRIBED

NOTE THAT

THE

TARTING

L CRTION

8.4

PARSS

204

_STRRTED

THE

BETWEEN

VRARICUS

SECTI

RIQTE

PR?SES?gfl

€

RflE

IN S

VARIOUS

OVING

THE TEST PQCK QND SQVING THE PRINTOUT

DIARLOGUE

AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE
CURRENT
SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICRTES THE START
OF PRSS 1 RS FOLLOWS:

THE PROGRAM SELECTS

(¢

BEURRELR

FROM ERCH PRSS ONtncu PDP 11 SYSTEM INVOLVED.

NEXT,

££
KL

THE

8 FSR capguegvs B?ESTE THE COMPRTIBILITY

EST MAY BE

DISTANT

sueg?; HE"

ne -0

FOR

FO THE SELECTION OF SUBSYSTEM

PQRRflETERS HE PfiCIFICRTION
QLC VES TO BE_ TESTED ON THE
SUBS
RFTER THIS DIALOGUE IS COMPLETED,
THE
PRO?RRH
PROCE S HgTH PRBS fi AN? ENRSCTS THE OPERATOR IN THE MOVEMENT

#% STRARTING PRSS 1

LG VAL
G L T T T TV T T ] n

SECTION 8.2

THE

FIRST

DRIVE

TESTED

THIS

AND INSTRUCTS THE OPERATOR TQO MOUNT THE TEST CARTRIDGE AND
HERDS ON THAT
DRIVE, AS IN THE FOLLOWING EXAMPLE:

MOUNT PACK ON DRIVE A2 AND LORD.
TYPE R<CR>

WriEN

IVE RERDY:

THE OPERATOR PERFORMS

L IGHT IS ON
B CYISN
MOV

THE

THIS TRASK AND TYPES R<CR>

PRCK RS

OLLOWS:

UNLOARD DRIVE A2 AND REMOVE PACK.
TYPE

WHEN THE

DRIVE

YHE PROGRAM PERFORMS PRSS 1 FUNCTIONS ON THIS DRIVE
D THEN INSTRUCTS THE OPERATOR TO UNLOAD THE
DRIVE

R‘CR>

WHEN DONE:

RERDY

(SEE
AND

[

28-NMOV-77 09:42

MACY1l 30(1046)

@28-NOV-77

10:00

PARGE 14

SeEG 0013

n
V

—

£5E5t[N] 08

OO0

RM02/2 CR CPT_TS7

NO1

THE OPERRTOR PERFORMS THESE FUNCTIONS AND TYPES R(CR» AFTER

HRS BEEN REMOVED.

IN THE SAME MANNER,
PACK T
gf} T

4 FEETREE A
Jold Fuind A
mg k5 WBeg S
BIRREDEE By

~dd

AIIINIIILINTLNY

un
[+ ]

PRCK

THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT
T T HE REST OF THE DRIVES ON THE CURRENT

THE PROGRAM DOES ONE _OF
MRS SEEN COMPLETED,
8SY§§H. WHEN THIS
IS S _ONL Y ONE SUBSYSTEM (FROM ADR 200
*F THERE
(1)

T;RE 5

nutunnnvn

THE

&NGPa

(2) _IF THERE
S @ (SEE SECTION 8.5).
OGRAM BEGINS
STRRT) T
THE PROGRAM DIRECTS THE OPERRTOR TO PERFORM
IS ANOTHER SUBSYSTEM,
PASS 1 ON THE NEXT SUBSYS RS FOLLOWS :
STRRTING PRSS 1 ON SUBSYS B

(3) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 _ON ANY

PROGRAM
SECT.

SUBSYS,

THE

DIRECTS THE OPERATOR TO BEGIN PRSS 2 ON THE FIRST SuBSYS (SEE

8.5) RS FOLLOWS

STRRTING PRSS 2 ON SUBSYS A

8.5

PARSS 2 DIRLOGUE

T0 TH$ FIRSY SUBSYSTEM TO PERFORM_PRSS 2 EITHER
THE OPERRTOR RS?
IALOGUE OF THE ADR 200 STRR, OR AFTER THE SELECTION OF
THROUGH THE
Pt 4ETERS f 'D DRIVES HAS BEEN COMPLETED IN ACCORDANCE WITH THE

DIALOGUE

OF THE ADR 220 STRRT (SEE SECTION B8.3).

PROGRAM INDICATES THE STRRT OF PARSS 2 BY TYPING :
#% STARTING PRSS 2

IN EITHER CASE, THE

PROGRAM THEN DIRECTS THE OPERARTOR IN THE UNLORDING, PACK MOVEMENT

THE
AND LOADING OF ALL DRIVES ON TH._ FIRST SUBSYSTEM, IN THE SRME MANNER

RS DESCRIBED FOR PASS 1 (SEE SECTION B8.4).

CTION 9.2) 1S COMPLETED ON_ A
HOMEVER, RFTER PASS 2 TESTING (SEE
THE ENTIRE TEST RESULTS FOR THAT DRIVE ARE TYPED. THE
GIVEN DRIVE,
DETAILS OF THIS PRINTOUT ARE DESCRIBED IN SECTION 10, RFTER THE
DETAILS

OF THE TESTING ARE DESCRIBED.

u;su PASS 2 MRS BEEN combgrsn FOR ALL DRIVES ON THE FIRST

DOES ONE

TWO THINGS:

SUBSYSTEM

(1) IF THERE IS ONLY ONE

SUBSYSTEM (FROM RDR 200 START) OR IF ALL DRIVES ON ALL SUBLYSTEMS HAVE
(FROM ADR 220 START), THE ENTIRE TESTING AND
BEEN TESTEC IN PRSS

REPORTIMG HAVE BEEN COMPLEYED, AND THE PROGRAM TYPES:
## ENC OF YESTING a#

0_RMO3-/2 DR CPT
P11

187

28-NOV-77 09:42

MACY1l

30(1046)

(2)

@28-NOV-77

IF THERE

OPERATOR

10:00

B02
PARGE

IS ANOTHER SUBSYSTEM,

SEQ 0014

HOWEVER,

THE

PROGRAM

DIRECTS

TO PERFORM PRSS 2 ON THE NEXT SUBSYSTEM RS FOLLOWS

STARTING PRSS & ON SUBSYS B

THE

3-2 CR CPT_T1ST
28-NOv-T7 09:42

MACY11 30(1046)

9.0

28-NOV-77

10:00

coe

PAGE 16

SEG 001E

DESCRIFPTION OF TESTS

SIGNED
PROGRAM R
N THE
TES§ 0
Paxnvgu*%
ERROR
IN
l
ricnY?Sf
1
Bb
HS"QbR
3"
SECTIONS
IN
DESCRIBED
ROH;INES
s
o
o
NPgT
REFERS fo TH§OPERATOR
TEST

THE MAIN FUNCTI

€ RSSIGNED BELOW, IN THE
THER sr S s
8.1-8.3. vxo«
TESTING.
2
OF PRSS 1
osscnxp

IN THE FOLLOWING sscvggns

RRE NA
rangg ORIXEE

tvEs

622
3

TRBL ss

£ ROM

AR-G_

TQ0.

ARE_REFERRED

IN_

THESE

FOR xu.usmmxvs PURPOSES RLTHOUGH

1TURTION
AN ACTUARL
ua£7C.IN (SEE
FOLL6uxNG
THE .co,C1,c
ssc110~ a).
2,

AO,RL, RA2,...80, 31 ae

9.1

DESCRIPTION OF PRSS 1 TESTS

In PASS |,
BEMONCTRATED.

IS
80 UR1TE CRPRBILITY OF EACH DORIVE
THE BASIC
AND COMPATIBILITY OATA PRTTERNS ARE WRITTEN BY AL L

DRIVES UFON tHE SAME TEST 8k ¥h10ce

THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE IS RS FOLLOWS:

TEST 1 - MOUNT ING OF TEST CRRTRIDGE FOR PASS 1 - THE
HE PACK ON THIS DRIVE AND MANUALLY LORDS THE
OPERATOR HOQh 8
HERDS, RS CIRECTED BY THE PROGRAM (SEE SECTION 8.4).
M PERFORMS
PRO
DATR T
/WRITE
BRSIC
TEST

CASETM DRTA
E ST DRIVE
83ER9T§3N USINGHTH
HéCK
HS?RE
RN&
Z
(SEE
PRTTE N RT THE
IS
OPERGTION
'HI
ON
A)
TRBLE
DRIVEN ON
RP9§HITH TH€ REPETITIO
HRITEHETTEN
$§:§§20/
TH£ ERn
VERIFY PQT
T0
OF
CTOR 1
PQSSDR%é
228%2 ES ALL SECTORS FOR TH;S
3 - _THE
gg WITHIN
3. DPTIVE
THE LYL NDER BLOCKS SHOWN IN TRBLE C

sunrnces
é

ug£N

INGLE

REFERTED

WORD

THUS,

S WORD 0

gfl uves WORC 7

ESEEOE&k DRIVE 1S UNIQUE.

TABLE

ORIVE

C HRS

GOF THE pnr1enn 1n

USES

THE DAT

BEEN

oersnnrnso

ZONES
ON ERCH
SURFRCE,
% % "URRéNT
IN EQCH OF THE S
BLOCKS.
CYLINDER
QISTINCT
TWO
WITHIN
N
NR;
ORS
SEC
CYLI ERS OF ERCH WRITE CURRENT ZONE
THE FIRST 1

IS THE FIRST S}OCK LUSED FOR WRITE TEST IN PRSS 2. THE LRST
16 CYLINDERS

EACH CURRENT

7 09:4¢

30(1046)

28-NOvV-77

ZONE

Excepr

USED FOR

PAGE 17

SEG 0Cle

uxruxn EACH cunn NT 2

THE Et
5
é ROTATED
F on 20NE T

IS THE SECOND BLOCK

ZONE)

TH;INNERMOST

RERD TEST

TWO BLOCKS ARE IDENTICALLY
Tuggg

T0 EACH DRIVE
?IGNRTED
THE

ARE

DATA APPERRS AT vnnxous RNGULRR POSXTIONS ON THE PACK.

WITHIN ?RCH CYLINDER BLOCH

NOING
éQEP

NUMBER

THE

ARE

SECTORS

WRITTEN

DRIVES BEING TESTED) ON ERCH

CYLINDER

YPICAL

BLOCK

SHOWN

K SHOWN IS THE Rsno TEST BLOCK FOR
ND HAS THE ROTATING
CYLINDER 112

THE

SHOWS THE BLOCK

DRIVES SHOWN ARE

LR%T

FOR THE MISSING DRI VE
THE RBOVE PRTTERN OF

IS
xnsxoe THE BLOCK
0. ERCH NOnesn
TRBLE D
THAT GECTOR.

WHICH WRITES

£§1

CIRMIB.PL1L

MRCY1l

DOe

V)] mv;

CoRMIBO RMOs-2 DR cPT_ TST

10:00

Y ERCH OF 16 DRIVES.

NT.

HOWEYT?,

THE

£SinPLv NOT ' WRITTEN.

SECTOR WRITES

INSURES

IF ANY OF THE

BLOCKS
THAT

RESERVED

DARTA

FROM

Lotk SeR okl Bore ORI e Y ROt
TTEN

NT CYLINDERS 10 DATR FROM

ZONE XNSUREE THRT HRITE TEST AND RERD TEST ARE
VERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT TC
DONE
THE CRRTRIODGE.

TEST 4 - DISMOUNTING OF TEST CARTRIOGE IN PARSS 1 - THE
OPERARTOR UNLOADS THE DORIVE AND DISMOUNTS THE PACK, RS
DIRECTED BY THE PROGRAM (SEE SECTION 8.4), TO PROCEED WITH
THE ABOVE STEPS ON THE NEXT DRIVE.

C2RMIBO RM0O3-/2 DR CPT_7ST
28-NOV-?7 09:4¢
CZRMIB.PLI

MACY11

30(1046)

10:00

28-NOV-77

EO2

SeEG 0017

PRGE 18

69S

9.2

DESCRIPTION OF PARSS 2 TESTS

IN PARSS 2, THE ABILITY OF EACH CRIVE_ TO COMPLETELY OVERWRITE DATA
WRITTEN bY ALL OTHER DRIVES RND TO READ DATA WRITTEN BY ALL OTHER

DRIVES,

IS TESTED.

THE SEQUENCE OF OPERATIONS PERFORMED BY ERCH DRIVE 1S RS FOLLOWS:

ININNNI NN

?Nmmm».—.—»—-»—.-.—.—..p
W= OO IMN LWV~ 0O

72S

TEST 5 - MOUNTING OF TEST CARTRIDGE FOR PRSS 2 - THE
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANURLLY LOARDS THE
HEADS, RS DIRECTED BY THE PROGRAM (SEE SECTION 8.5).

TEST 6 - WRITE TEST

DRIVE'S

THE

NEXT,

OVERWRITE

PROCEEDS

PROGRAM

FIRST,

THE

THIS

DRIVE

PERFORMING

THE

CAPABILITY.

TEST

ru;s

USES

WORD

THEN.

ERCH CYLINDER OVERWRITTEN IS RERD BACK

__ARE
DRIVE
THIS
APPROPRIATE CYLINDERS IN TRBLE E FOR
OVERWRITTEN, ON EACH SURFACE. THE DATA USED IS A REPETITION
DRIVE O
OF R SINGLE WORD OF THE PARTTERN IN TABLE G

USES WORD 7, ETC.

DRIVE 1 USES WORD 1,

ORIVE 7

IN EACH orrsgr oénecrxou (+ AND -). THE PROGRAM SCANS FOR
READ, ~AND "IF_ ONE
RERD ERRORS (DCK, HCRC,ETC.) DURING TH
DARTA HAS NOT
DRIVE'S
WHICH
TERMINES
PROGRAM
TH;
OCCURS
S
1
nEEN CORREC LY OVERWRITTEN, AND A SCORE
LECREMENT 9.

THEN,

TRANSFER

WITH THAT OFFSET VALUE.
OF TH% ABOVE orrsET§ APPL TED
THE CURRE
ORIVE IS KEPT, WHILE
SECTOR,
OF

THE

PRSS

OVERWRITE

ODRIVES ARE CONVERTED AND STORED,

(AS

DESCRIBED

1S C

THE RERD

RAGED OVER

SECLTIO

Ssgcgnaagtgt T0 THE OFFSET IN A GIV

AT THE COMPLETION
SCORES OF ALL THE
OF
END
NG RT THE

.2).

ERCH

SCORE

RECTION BY THE CURRENT

SUCCESSFULLY READING THE DATA IT WROTE OVER ONE OF THE OTHER
THE PRINTOUT REVEALS WHICH DRIVES ARE
THUS,
DRIVE'S DATA.
INVOLVED. IN A SITURTION IN WHICH A DRIVE CANNOT OVERWRITE
ONE OR SEVERAL OTHER DRIVE’S DRTA.
TEST 7 - DRIVE SELF-TEST - THE PROGRAM NEXT EVALUATES THE
DRIVE'S RBILITY TO WRITE AND READ ITS OWN DRTAR, AT VARIOUS
FIRST, ALL SECTORS OF 7
POSITIONS ON THE PACK.
CYLINDERS SHOWN IN TRBLE F FOR THIS DRIVE RRE
APPROPRIATE

PATTERN SHOWN IN TABLE B, FOR ALL
THE DATA
WRITTEN .ux%u THEN,
THE GSECTORS RARE READ WITH OFFSET
SURFACES

IN EACH DIRECTIOA.

THE PROGRAM SCANS FOR READ ERRURS DURING EACH

CGMPUTES

REAC,

AND

A SCORE WHICH 1S PROPORTIONAL TO THE FAICING OFFSET.

FO2

SEG 0018

PRGE 19

IN THIS
SECTORS RERD
ES FNR ALL
UP_ WITH
TO COME
RVERRGED,
HRE
k

OFFSET

ZORE FOR EACH SURFALE FOR EACH

ORIVE

DIRECTION.

1S SAVED FOR LRTER USE, TO BECOME THE STANDARRD FOR

WiH ICH

ARE TO FOLLOMW.

TEST 10(OCTAL) - COMPATIBILITY DARTA READ TEST -~ HAYING ESTABLISHED
THIS DRIVE, THE PROGRAM PROCEEDS TO
F
-TEST SCO
R
READS OF THE PATTERNS WRITTEN
DARTA
TY
PERFORM THE COMPATIBILI
N EARCH CYLINDER BLOCK (ON ERCH SURFRCE).
C

OQOCCURS,

TION.

r¥

IS READ,

N TRBLE

THE

B. .NG RERD Rt THAT

CREMENTED.

THE

THEN,

TOR, WITH THRT OFFSET
1IN ERCH DIRECTION.

KEPT.

WHILE

THEN
BILIYY DATA.
0 REFLECT THE SELF-TESt

CYLINDER

@
<

PARTICULAR
P

—4
TMm
2z

28-NOV-7?7 09:42

13:00

P11

28-NOV-7?7

—

0 RMO3-2 DR CFT_TST

MACY11 30(1046)

ARATELY FOR EACH
N.
THUS,
THE

WHICH

PARRTICULRA

OF ONE OR SEVERAL OTHER DRI VES.

§.

1
Tv

p SITURTION

TEST 11(OCTYAL) - TYPE TEST SCORES AND DISMOUNT PACK IN

THE OVERWRITE
THIS DRIVE RRE

EADING THE DATA

PARSS

AMU COMPATIBILITY DATR RERD TEST STORES FOR
THE_ OPERATOR
THEN,
CONVERTED RND TYPED.

UNLORDS THE DRIVE AND DISMOUNYS THE PACK AS DIRECTED BY THE
?386225#85% EECTION 8.5), TO PROCEED WITH THE ABOVE STEPS ON
VE.

03/2 DR CPT TST
28-N

MRCY!l

30(1046)

10.0
THE

@28-NOV-7?7

10:00

GO2

PARGE 20

’

PRINTOUT OF TEST RESULTS
TEST

RESULTS ARE

PRINTED

THE

TESTED.
THESE
ReSULTS
PERTRIN
COMPATIBILITY DATA READ TEST

10.1

END OF

THE

PRSS 2

ON ERCH DRIVE

OVERWRITE

TEST

AND

BEING

THE

TEST RESULTS
RESULTS OF BOTH THE OVERWRITE AND OF
_PRINTED,REGARD OF DEGREE OF SUCCESS.

THE

COMPRTIBILITY

DRTA

READ

IF THE TEST'1S SUCCESSFUL, THE MESSAGES :
#%

1S PRINTED.
ARE TABULAR

ALL DRIVES ARE

COMPATIBLE

IF THE TEST IS FAILURE,
IN FORM Q5 SHOMWN.

IN THE FOLLOWING EXAMPLE,

gsgusoaefgs AD,AI,R2,B0,

#*##

THE

TEST RESULTS

THERE ARE 2 _SYSTEMS,

AND

BS.

AND

THE

DRIVES

BEING

THE TEST'RESULTS FOR DRIVE Al ARE

SCORES FOR DRIVE Rl
TRACK

DRIVE

NOC.

€0 0D 0 OO 00 (0 MO M 0 D 00 MDD
n
et B
o P Pt Pt Pt et ps - 00
—
DO NN LW Vol

THE
PRE

SEG 0019

THE

RBOVE

DRIVES

RERD

EXRHPLE

OVRWRT

*# 0

% 0

OFST-

REVEALS

AND R2.

OVRWRT

OFST+

POSSIBLE

READ

RERD

OFST~

OFST+

COMPATIBILITY

NOTICE THAT ON TRACK
O, THRT

PROBLEM EXISTS

THE OVERWRITE SCORES

WERE UNRCCEPTABLY LOW (03, AND THE PROGRARM NOTED THESE BRD SCORES

WITH AN ASTERISK 1#).
ALL RCCEPTABLE TEST RESULTS ARE NOT PRINTED.

BETLEEN

c*anigo RMO3-2
PIL

CErRMIB.

DR CPT_TST

28-NOV-77709:42

828
829
830

831

832
833

834

835

MACYLl 30(1046)

28-NOV-77

10:00

11.0

ERROR REPORTING

11.1

COMMON ERRORS

HO2

PAGE 21

WHICH ACCOMPANY ERROR
ERROR MESSAGES
A LIST OF COMMONCOMPATIBILI
THE FOLLOWING IS _THE
TY PROGRAM. THE ERRORS ARE
RMO3 DRIVE

838

TYPEOUTS

838

FROM

SELF-EXPLANATORY.

839

840
841
842
843

ADDRESS PLUG CHANGE BIT SET

g:g

RM11(70) DIDN'T RESPOND TO RDDRESSING

g:g

UNCORRECTRBLE MARSSBUS PARRITY ERROR

850

FATAL MASSBUS PARITY ERROR

ggg

PERSISTENT DEVICE UNSAFE

ggg

OPERATION NOT COMPLETED WITHIN TIME _IMIT

858

DRIVE WENT OFFLINE

858

NO RESPONSE TO PORT REQUEST

ggg

HERDER CRC ERROR

862

DATA CHECK °*DCK® ERROR

WRITE CHECK ERROR - DATA CHECK ’'DCK' SET
WRITE CHCKE ERROR - DATA CHECK ’*DCK’ NOT SET

ggg
866

HEADER READ ERRGR - 'FMT* BIT DROPPEC

gzg
870

HEADER RERD ERROR - HEADER COMPARE 'HCE’ ERROR

872

FORMAT ERROR 'FER’

g;fi
ggg
ggg
gg?

gg%

HEADER COMPARE 'HCE’' ERROR
MISCELLANEOUS DRIVE ERROR
OPERATION INCOMPLETE 'OPI' ERROR
DRIVE TIMING ’'DTE’ ERROUR

PARITY 'PAR' ERROR RFTER OPERATION STARTEC

SEG 0020

CZRMIBO RMO3-2 DR CPT_TST

CIRMIB.PI1 -

28-NOV-7r 09:42

MACY1l 30(1046)

28-NOV-77

10:00

I02

PRGE 22

WRITE CLOCK FAILURE 'WCF’ ERROR

BeY

INVALID ADORESS 'IRE’ ERROR
WRITE LOCK 'WLE’ ERROR
DATA CHECK "GCK’' SET DURING WRITE CHECK COMMANG
RH11(70) OR UNIBUS TRANSFER ERROR

88
896
890
§§é
B9

BUS ADDRESS OR WORD COUNT INCORRECT

CAN'T MATCH DATA READ WITH A PATTERN
ERROR BIT(S) SET,BUT NO ERROR SIGNALED BY THE RH11(70)

DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED

§§§
300

§§é

303
306

ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID

BUS ADDRESS AND WORD COUNT NOT CONSISTENT
SEEK INCOMPLETE 'SKI' ERROR

308

PROGRAM DETECTED POSITIONING ERROR

310

DRIVE UNSAFE ERROR

SEG 0021

=t -t

Pty
p]

D
DWDDDDDDDDODDD
X3
PUITUTU
UMY 0 s b s bt ps bs e
—000m~}
uwummm?
NLVU—~-OVDNoCNEWN O
[V IV IV« IV IV IV o)

M03/2 DR CPT _TST
28-NOV-7"?7 09:42

MRCY1l

30(1046)

11.2

28-NOV-7?7

10:00

JO2
PARGE

SEG

ERROR HANDLING

ERRORS REPORTED BY THE PROGRAM CONSIST OF

COMMON

FAILURES

RESULTING

FROM
ATTEMPTED
SUBSYSTEM FUNCTIONS, RS WELL RS CERTAIN ERRORS UNIGUE
TO PARTICULAR
TESTS.
EACH
ERROR
PRINTOUT
CONSISTS
OF
AN
ERROR

DESCRIPTION AND TEST NUMBER,

HERDINGS,

MEANINGFUL

AND

COLUMNS

POSSIBLY FOLLOKED BY HERDER LINES

OF' REGISTER

DATA

SINGLE DESCRIPTIVE LINE.

OR UNIBUS

TRANSFER ERROR

DRIVE
000001

RMCSI
144250

RMUWC
174400

RMBR
RMDR
00SS030 000431

RMCS2
000100

RMDS
010700

RMER1
000000

RMRS
000C0COC

RMDB
000000

RMMR]
0000SO

RMDT
024024

RMOF
010000

RMDC
000716

RMMR2
011777

RMER2

RMEC]

RMEC2

000000

004066

000000

OCTA

AS”

COLUHN

“MUCH

RHll(?O) REGISTERS)

OTHER ERRNR REPORTS MAY CONSIST

ERROR PRINTOUT EXAMPLE
RH11(70)

IN_

RS POSSIBLE (FOR EXAMPLE

ARE REPORTED IN A GIVEN ERROR.

11.3

CONTENTS

0Cee

CZRMIBO RMO3/2 DR CPT TST

CZRMIB.PL1
952
353
95y
958
956
Q57
958
959
960
¥,
362
gga

28-NOV-77 09:42

MARCY1l 30(1046)

2B8-MOV-77

10:00

KOe

PRGE 24

SEG 0023

TABLE A
| eem————

BASIC REARD/WRITE TEST SECTORS

365

ggg
370
971
2

973

974

975
976
977
978
979
980
981
Q&2
82

RDDRESS OF SECTOR ON ERCH SURFACE
DRIVE
NO

ee=ee

CYLINDER

| eemmeeeee

620

eeeee-

620
620
620
620
620
620
620
620
£20

620

986

620

988
389
a0

14
1S

620
620

987

SECTORS

1
e
3
y
S
6
7
8
9

384

985S

620

1
2
3
Y
S
6
?
8
9

12
14
15

CZRMIBO RMO3-/2 DR CPT_T1ST
CZRMIB.PLI
28-NOV-?77 09:4¢

MRCYL1l

30(1046)

28-NOv-7?

10:00

LO2

PAGE 2S5

SEG 002+

TRBLE B

WORST CRSE DRTR PATTERN

DATR

16 WORDS)

(OCTaL)

)65—N3I5D3T656353%6535%5431

LU4N=M4 oIolTolD—tO~O—UMITNON
ONUMNM OUNMO=M VNI

WORD NO.

YO}T~UMU—~DMOTNDN

aY|LtnYWROVYLOaBNORY(0eY=L=0e44e04L4e0=et L04L04e L0l

1007

(REPERTS EVERY

O— ~ 4t t

.bsa.b653

CZRMIBO RMO3-2 DR CPT TSY
CZRMIB.P11
26-NOv-77 09:42

MARCY11l 30(1046)

28-NOV-?7

1026
10e7”
1028
1029
1030
1031
1032
1033

10:00

MO2

PAGE 26

1034

TRBLE C

{Sgg

CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFACE

=
1039
1040
10:1

igq

ig:g

CURRENT

ZO0NE - RANGE

OVERWRITE CYL
BLK RANGE

104
104

10s0

Y - ggq-gll

SS&-SQ%

FoREE

- CyL 0-127

CvL 0-15

COMPATIBILITY CYL
BLK

RANGE

CyL 1l12-127

496-5S11

¢ ZRMIBO RM0O3-/2 DR CPT_TST
28-NOV-77 09:42
CZRMIB.PI1

3.&.5

TRBLE

BRSIC CYLINDER BLOCK LAYOUT EXAMPLE
CYLINDER

SECTOR NUMBERS

NUMBERS

0
! } ' ]

(o)

| 1

] [}

| [}

]

| ]

[}

\ | | |

] | |

]

! |}

' | | |

—-—TNeDMOMOWC —t—-4NDtTW—TOMIMO—OO

15
|

]

UTNVDMO~ O0—MODOWMNDUTMINUT o5932857x051”21 T0439081N62532 TWNNODNOM—O-WNUML—~N D—MTFTUONTUVN 9YT025384~536017
T
o
—
u
o
O
r
4
t
e
—
OI0~«MNOWU@VNTU —1@I0uW6NT3rN5On4T EH.Q—o.DmJSM.Qsme—HaQ UD=ILNVNOMT-<0O 970245382451350 QO-—UMOIMCVNOTHYN~ MO—TMNWNwE L1V4Ao514]83Vl0215
—
—
—-~— —.-NT—U~ONNWMND

g—t g4-t
19

239

—N~—=.-—————tett——t

— —t

—t o

a
M
I
U
N
N
O
o
c
1
0
6
3
5
4
T
—
-346932957005142
TOWLUeOWONM—-—JON —M—~TSN

V
]
W
1
y
T
3
V
T
V
I
R
Y
T
y
V
T
V
T
L
R
R
R
e
B
P
l
— —4 — t

o=v9mg45)delfot 123%5%789%~1u2M3I%NO%N7o8

2
]

=—~—DNNMNYMOFTUVNOT e=lo=l2=lo=lelo=lvl)i=lo=l9=lo=vl

SEW 0C2¢

L]150 75823964—UT

0 0 ARG

PRGE 27

10:00

28-NOV-77

MACY1]l 30(i046)

—

ot —

o=v¢b2lt

o=g

—y

]

-y

-4

WPO—B~uT MTLTLNONOTO~N MT >| -

o=Qtoa—Yt&-toTotdDocdOoedOooqeodUrndeoteeOugor~deod WNo-I~l ]|>> WOO ewnt

l1AWUDAM1$~UNI1TMAT!1‘2S1l?O&1l?!a1&lm1f—iYc1zM!z1‘c!m1Mz‘Ofi1xWrNdO1mNvTc1m~rUd1MvrDé1O"241Cq-1
]

[+4u]

M]1g| Wm. $ulQwiogST@Ix ]Z ] &

3001046)

28-NOov-77

L
]

-1! ]&) [+

MACY1l

CZRMIB C_RMO3-2 DR CPT_TST
CZRMIB P11
28-NOV-77 09:4e
10:00

BO3
PRGE 28

[}

SEQ 0027

CcO3

PAGE 29

| (Wi

(8] > 4 >
-

[|7T,]

W-0 J't

10:00

(]

28-NOv-77

@ N

30:1046)

SEQ 002e

D D G e PO G AR R D GG

P WP D

TUN—QO~N=OMO Fqrgxysgs ODv0w—90oy12MT

D D WD

oe4dtl=RPTBe)

NO— N T—~UMO N

MTTTYTTIAOLWNUDLIN

MACY1l

-9

P11

372 DR CPT_T1ST
28-NOV-"" 09:42

PUONINY NN 0= b= 0o e b2 0=a bee 1 e — (D O O

IS Joat
R LW OO NN LW OW 8 3 FRZLRCE88Y RRLZON2EBBVRREOR2B
v
~NO

M03/2 DR CPT T7ST
1
e8-NOV-77 09:42

0
-2

p ]

Y RS B Y

NIV RNV
PY NV TUTUTU OO N RO < 00 02 52— 00 5= pc 1o Pt Pt Pt s Dot Pt Pt Pt s et ot
et B Pt Bt Bt Bt Bt e

e et et B @ Pt Pt Pt et Pt P @ Dt Pt Pt Pt Pt Pt Pt P et Pt Bt Pt Pt Pt B0 Dt P Bt Bt Bt Pt Pt Pt Bt ot Pt § @ Pt Pt Pt P Pt Pt Pt Pt P P P® P & et e Pt P P Pt P

MARCY1l

28-NOvV-77

30(1346)

10:00

D03

PRGE 30

SEG 0029

TARBLE G

DATA (OCTAL)

WORD #
0
1
2
3

0o4N1 35S
17+ 070
070414
064531

)
6

0y Tt
114352

8
9
10
11
12
13
19
1S

010031
052336
017310
011347
102367
152567
001246
160073

174473

1e.1

036620

RH70(11)7RMO3 DRIVER

THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH70/RMO3 DRIVER.
1e.e

INITIALIZE THE DRIVER:

JSR

RETURN

PC,RMINIT

UPON RETURN YOU MUST EXAMINE THE “DRVSTRTM TABLE TO DETERMINE
THE DRIVES THART WRE ONLINE FOR TESTING.

THE °'ORVSTA® TRBLE IS

O®

3 & L&Ig&&& £L szgwgtflwwuwgmm —r—

10:00

@28-NOV-77

SEG 0030

PAGE 31
THE STATE OF ERCH DRIVE WILL

LWNU—-DOM

SIGHT BYT?S' ONE BYTE PER DRIVE.
€ INDICATED AS FOLLOWS:

DONTTNLEW -0~

200

NVVNDINVNLD. XX

=0 Pt Pt Pt Pun Pt Pt Pt Pt Pt Pt Prme Pt Pt e

28-NOV-77 09:42

MACY1l 30(1046)

DRVSTR

DRIVE STRTE

>0
=0

ONL INE RMO3
OFFLINE RMO3,

UNSAFE RMG3

DRIVE

IS NOT AN RMO3. OR
NONEXISTENT DRIVE

THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TRBLE TAGGED 'ORVIYP’.
THE TRBLE CONTAINS ONE BYTE FOR ERCH DRIVE AND IS INDEXED BY THE
ENTRIES ARE ENCODED AS FOLLOWS:
DRIVE NUMBER.
CONDITION

DRVTYP

NONEXISTENT DRIVE

-1

NOT AN RMO3

RMQO3

THE 'RMINIT’' ROUTINE WILL DO A RERDIN PRESET AND WILL SET FMT22.

n
[1,]

YR v

s Pt Bt P

RO 00 0 AR AAARAR

s Do Bt Pt
e
e e
Dt

(glg]

.P1l

I LAVLAVIAVI
VY
~ NN
n O OONTNLWU-ODONN
LW

Pt Pt Pt Pt Pt Bt Pt Prne Pt Pt [y e

0 _RM03-2 DR CPT_T1S7

EO3

12.3

AFTER THE DRIVER KRS BEEN INITIALIZED, IT IS CALLED USING THE
FOLLOWING SEQUENCE.
CALL:

RO, RMO3
JSR
PNTDPB
RETURNI
RETURNZ

:MAKE THE CALL
;ADDRESS OF DPB*
;RETURN IF QUEUE IS FULL
:RETURN IF REQUEST IS IN
;QUEUE OR THERE IS AN
;ERROR CONCITION

#DPB

(DATR PRARAMETER BLOCK.

PNTDPB:

: (0) DRIVE NUMBER

.BYTE

.BYTE
WORD
WORD

0
G
0
0

: (3) PSEL AND Al7 AND Al6
s (4) NOR? COUNT (MUST BE NEG.:
; (6) BUFFER RDDRESS OR

.BYYE

: (107 SECTOR ADDRESS OR

.BYTE

WORD
WORD

0
0

.BYTE

; (1) OFFSET VALUE OR FMT22, ECT, RAND HC!I

: (2) COMMAND

;REGISTER TRBLE POINTER
;FIRST REG.

INDE

;LAST REG.

INDEX

:(11) TRACK ADDRESS OR

; (12) CYLINDER RDDRE
; (14) ERROR TRBLE POINTER

:POINTS TO THE FIRST OF TWENTY

;LOCATIONS OF WHERE THE ORIVER
:1S TO STORE THE RHZ0D-RMO3
IF LEFT
;REGISTERS ON AN ERROR.

.ZERO REGJSTERS RARE NOT SAVED.

~ | ]

RMIBO RMO3 2 DR CPT TST
MIB.PI1

28-NOV-?7

10:00

LWORD

P Pnt Pt Pt 0 Pt Pt Pt (ot Por Pt Dt Pt s Pt Pt Pe m B

12.4

304

12.4.1

THE DRIVER PROVIDES A SOF TWRRE 1xn$our CAPABILITY.
YO UTILIZE THIS CAPRBILITY YOU MUST SUPPLY THE "RM TIMERTM ROUTINE
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER:
:16 MILLISECONDS BETWEEN
816.,-(SP)
MOV
:CLOCK TICKS
:CALL THE TIMER ROUTINE
PC,RMTMR
JSR
IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE
CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECONDS.
THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 3C
EXAMPLE - WRITE 1000. WORDS

iS:

Pt P @ Pt P

307
308
309

2s:

Pt Bt Pt De Pt et Pt Dt Bt Pt Pt Pt Pt Pt Pt P Pt Pt Pt (it Pt P

gig
gig
314
31¢
316

JSR
WRTDPB
BR

ggg
BMI

317

WRTOPB: .BYTE

319

"BYTE

BYTE

318

BYTE

320

RO,RMO3

ggrops+1s
ERROR1
S

16!

-1000.
WRTBUF
3
S
400
ERRTBS

321
322
323
324
365
326

WORD
WORD
8YTE
BYTE
.WORD
"WORD

ggg

ALTERNATEZ DPE SETM.°

CWORD

355

WRTOPB: .WORD
"WORD
"WORD

331
332
333

.WORD

0o Bt Pt Pt Pt -

334

.BYTE

335

ggg
238
339

: (16) STATUS/ERROR INDICATOR
:BIT15=1=>ERROR OCCURRED
:B1707=1=)>DONE
‘BITI4-BITO9 AND BIT06-BITO3
:INDICATE TYPE OF ERROR

SECONDS FOR ERROR RECOVERY OPERATIONS.

ggg
382

SEG 0031

PARGE 32

P Pt P

o0 P

264
285
286
o8>
sgg
290
291
Sgg
294
295
Sgg
298
295
300
301

268-MOV-T7 09:42

MACYI1 30(1046)

FO3

12.¢€

S
WRITE
-1000.

WRTBUF
3,5

400,ERRTBS,0
.WORC
RH7C-RMC3 REGISTERS

:CALL THE DRIVER
:DPB_ACUDRESS
'WAIT FOR QUEUE IF FULL

‘WAIT FOR COMMAND TO COMPLETE
: ERROR OCCURRED
-DRIVE 85

*WRITE COMMAND
:
"WORD COUNT
:BUFFER ADDRESS
:SECTOR
: TRACK
:CYLiVOER
"ERROR TRBLE

"STATUS/ERROR INDICATOR

;THIS SETUP RCHIEVED
:EVERYTHING THE
"ABOVE TABLE DID, BUT

"IN A CLERNER FORMAT

[gle]
'S ]

0=t Pt Pt et Pt Pt )
Pt PtWtPt PtG Pt) PtGtPt Pt
Pt Pt Pt Pt Pt Pt Pt Wet PtW)
Pt PtL PtW)
Pt Pt Pt B Pt Pt et et Pt Pt WWWWWWWWWWWWIIWWWLIIWWWW
Pt Pt Pt Pt Pn ot P st P Pt Pt P Pt Pt Pt Pt P Pt Pt P fim
IX
() () )t () ) W
W VW WL
NNNNNNNNUVVN L L L L L LLELEL L
v
I REFHROE
(o
JeeJeslaelvo
BN NNNNNIN
—DOONOCNLW—ODONONLW—0O
Om
LW
RLCIEIBIR un LW~ 0O NN LW ODO NN i

0 RMO3-2 DR CPT_TST
P11

28-NOV-T7 08:42

MACY1l 30(1046)

28-NOV-77

10:00

GO3

MNEMONIC
RMCS1
Rl

INDEX
g
2

RMBA
RMDR
RMCS2

4
b
10

RMER1
RMAS

14
16

RMDS

RMLA
RMDB

20
2

RMMR!

RMDC

RMDT
RMSN
RMOF

RMHR
RMMR2
RMER2
RMEC]
RMEC2

12 6

SEG 0022

PAGE 33

}

26
30
32

36
40
42
44
46

COMMANDS PERFORMED BY THE DRIVER

COMMAND

CODE

COMMAND TYPE

NO OPERATION

101

UNLORD

103

SEEK

105

RECAL IRATE

107

DRIVE CLEAR

111

RELEASE

113

OFFSETY

115

RETURM O CENTER

117

RERDIN PRESET

121

PACK ACKNOWLEDGE

123

SERRCH

131

GET REGISTER(S)

141

SET FORMAT

143

SELECT DRIVE

1§45

CZRMIBC RMO3-2 DR CPT TST
CZRMIB.PI1

28-NOV-77 09:42

MACY1]l 30(1046)

28-NOV-77

10:00

HO3

WRITE CHECK DRTAR

151

WRITE CHECK HERDER

183

WRITE DRTR

lel

WRITE HERDER & DRTA

163

RERD DRTR

171

RERD HERDER & DRTAR

172

AND DATA

[\V]
Pt Pt Bt Pt Pt Pt Bt Pe P
ummm
N Lwo--0

BUERZERS
WN—-O
W

e 9ms 0

P 4
£

3 LEW

0t s $0 Pt P

Pt Pt P P

Pt P

Pt Pt = Pt P

Pt Bt Pt Pt $=8 - 2 Bt ot s Pt -

LLLEXEELLLEEEL
L
L L LKL LLLELEL LS

1209

ZEG 0022

PAGE 34

N = HOUSEKEEPING
P = PO IT ONING

D = DRTA

TRANSFER

S = SPECIAL PROVIDED BY THE DRIVER

12.7

DPB STATUS/ERROR INDICATOR WORD

THIS %NDICR'OR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST.
THIS S ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO
BIT NO

MEANING IF ON R 1"

ERROR OCCURRED
DONE (B1707=0); BITS 14-10 SPECIFIES TYPE
DONE (BITO7=1); BITS 06-03 SPECIFIES TYPE

ILIOW

A REQUEST FOR A FUNCTION TO BE
USER MRDE

PERFORMED ON AN OFFLINE OR UNSRFE DRIVE

13013

A FUNCTION
A REQUEST FOR
USER MADE

le(a)

PERSISTENT UNSAFE CONDITION EXIST.

11(2)

UNCORRECTRBLE PARITY ERROR OCCURRED

2) (4
tocz

AR _WRS
S
TY ERR
BB
X E 0B
oAb
SET TO THE IDLE STRTE

3(3) (4

SOF TWARE TIMEOUT OCCURRED ON THIS DRIVE

g(4)

SOF TWARE TIMEOUT OCCURRED ON ANOTHER DRIVE

DONE

(-3

ERROR OCCURRED DURING RN 1 O OPERRTION

TO BE PERFORMED ON R DRIVE THAT HAS AN
UNLOARD REQUEST IN QUEUE.

QLL pRvACt

P11

28-NOV-77 08:42

MACY1l 30(1046)

28-NOV-77

10:00

I03

PAGE 35S

Pt P

£
o

g o

8 Pt Pt et Pt Pt ot Pt Pt P

SEG 0034
CCURFED DURING AN OPERATION

c2)

ERROR

4(2)

CORRECTABLE UNSAFE CONDITION OCCURRED

32)

DRIVE

PORT REQUEST TIMEOUT.

OTHER

fLELELLELLL
wn
NN
£
NV LW

&)
pop
]
XX
e
D@

C_RM03-2 DR CPT TST

THAN I.0

ERROR OCCURRED THAT (WUSED AN

AUTOMATIC “RECALIBRATETM SEQUENCE

THE DRIVER REQUESTED

THE DRIVE BUT THE OPPOSITE PORT DID NOT

a*‘J‘O*J‘JE; 5 488

RELERSE THE DRIVE WITHIN 20 SECONDS.

NON-EXISTENT DRIVE REQUESTED.

USER MADE

REQUEST WASN'T PUT

(RH70/8%U3

A REQUEST FOR R NCON-EXISTENT DRIVE.

(2)

IN QUEUE.

REGISTERS WERE NOT SARVED)

REQUEST QUEUE HAS BEEN EMPTIED.
THE DRIVER
ISSUED A “DRIVE CLERRTM TO THE DRIVE.
NOTE: ALL RH70/RMO3 REGISTERS ARE SAVED

Pt Pt

L ELLLELELL
~
o
L Wh)r-

st Pt

= Pt Poet

et e

RS PER DPB+l14 BEFORE THE “DRIVE CLERRTM.

l1e.8

(3)

REQUEST QUEUE HRS BEEN EMPTIED.
THE
DRIVER ISSUED A MASSBUS INIT.
ALL
RH70/RMO3 REGISTERS FOR THE DRIVE WERE
SAVED RS PER DPB+14 BEFORE THE INIT.

(4,

A “RECALIBRATETM SHOULD BE
BEFORE ANY OTHER COMMRND.

ISSUED

ERROR CALLS MADE BY THE DRIVER.

THERE RRE A FEW ERRORS THART CAN OCCUR THART CAN NOT BE INDICATED IN A DPB.
WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MRKE
AN ERROR CALL OF THE FORM “ERROR N*, WHERE “N" IS THE ERROR

NUMBER AND THE ERROR WILL BE AN EMT’ INSTRUCTION
N

TYPE

RH70 INTERRUPT

(JC?CJC)C)

OCCURRED

DRTA AVAILABLE

(RHRS=0)

UNEXPECTED ATTENTION

OCCURRED

MASSBUS PRRITY

#R4= RMCS1'S RDDRESS

R1= DRIVE NUMBER

R3= ATA BIY

#RY= RMCS1’'S ADDRESS
RSz (RMRS)
RMERRS
=RMDS
RMERRS+2=RMER]
RMERRS+4=RMER2
RMERRS+6=RMMR2

RD.ADR= ADCRESS OF REG. RERD

CoRMIBO RMD3-2 DR CPT TST

CZRMIB.P1!

iggg
1510
15811
igig
1518
181§
1S16
1817
1518
1518
1520
iggé

28-NOV-77 09:42

28-NOv-7?7

MACY1l 30(1046)

10:00

JO3

SEG 003¢

PARGE 36

ERROR (MCPE=!)
MRSSBUS PARITY
ERROR (PAR=1)

RD.WRD= WORD RERD
WRT.AD= ADDRESS OF REG. WRITTEN
WRT.WD= WORD WRITTEN
RD.WRD= WORD REARD BACK

ADDRESS PLUG CHANGE
317 SET ('OPE’ ERROR)

Ri= DRIVE NUMBER
R3=ATA BIT
#RY= RHCSl S ADDRESS
RS= (RMRS)
RMERRS _=RMDS
RMERRS+2=RMER]
RMERRS+4=RMER2
RMERRS+6=RMMR2

igsa

&2 THIS 1S THE ACTUAL UNIBUS ADDRESS (176700

.82¢

ZRMIBO RM0O3-2 DR CPT TST
28-NOV-77 09:42
CZRMIB.PLL

MACYLl]l

28-NOV-77

30(1046)

10:00

KO3

PRGE 37

15e6
15e~
1528
1529
1530
1531
1532
1833
1534
1535
1536
1837
1538
1539
1840
1541
1542
1543
1544
1545
1546
1847
1548
1549
1550
15581
15852
1883
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
156S
1566
1567
1568
1569
1£20

1772774
1772772
177570
17757¢C

DSWR=
DDISP=

000000

k0=

1872
1573
1574

000
000003
000004

Rlz

; : GENERAL REGISTER

R3=

: 'GENERAL REGISTER

i€7¢
1€77
1578
1879
1680
isei

0000
000007
00000¢
000007

15871

157¢€

slégki

CZRM]

YRIGHT

({)

SEG 303e

ng;/e DR CPT TST

:#DIGITRL EQUIPMENT CORP.
; ®MRYNARD,

MASS.

01754

s @

; #PROGRAM BY C.
]

CHEN

; #THIS PROGRAM WAS ASSEMBLED USING THE POP-11
MRINDEC
; ®PACKAGE (MRINDEC-11-0Z0RC-C3), JAN 19, 1977,

SYSMAC

.SBYTL

OPERATIONAL

P #

SWITCH

emmm—me

‘e

[)

INHIBIT

BELL

LOOP ON TEST IN SWR«7:0>

P ®
S

%
S a

.SBTTL

000001

0000

HALT ON ERROR

LOOP ON TEST

i *

000011
00g0o12
000015
000200
177276

USE
eececececeeeccccccmacceee

i ¢

301100

SWITCH SETTINGS

INHIBIT ;Rnon TYPEOUTS
TRACE TRRP

xmnxasr é’ RATIONS
ON

LOOP ON ERROR
YYPE

BRSIC DEFINITIONS

THE

BRD SECYOR FILE

:#INITIAL ADDRESS OF THE STACK POINTER ### 1100 sse

&rack="

.EQUIV
.EQUIV

1100

EMT ERROR
I0T,SCOPE

. :BASIC DEFINITION OF ERROR CALL

; ;BRSIC DEFINITION OF SCOPE CALL

-lHISCELLTNEOUS DEF INITIONS

.. CODE FOR HORIZONTAL TAB

;;CODE FOR CARRIAGE RETURN

PS=
.EQUIV

177776
PS,PSW

: PROCESSOR STATUS WORD

PIRG=

177772

LF=

CRLF=

200

CR=

: :CODE FOR LIMNE FEED

STKLMT= 177774

177570
177870

. *GENERAL

Re=

RY=

7“4

PURPOSE

::CODE

FOR CARRIAGE RETURN-LINE FEED

:;STARCK LIMIT REGISTER

: PROGRAM INTERRUPT REQUEST REGISTER

: ' HARDWARE SWITCH REGISTER
: ' HARDWARE DISPLAY REGISTER
REGISTER DEF INITIONS

;s GENERAL REGISTER

' GENERAL REGISTER

; ; GENERAL REGISTER

RSz
R6=
R?=

%5
%6
%7

: GENERAL REGISTER
:'GENERAL REGISTER
: 'GENERAL REGISTER

PC=

; ; PROGRAM COUNTER

SP=

: :STRCK

;#PRIORITY LEVEL DEFINITIONS

POINTER

8W18=

)

PAGE 38

;;PR%OR{TY
; s
PRIORITY
+;PRIORITY
:;PRIORITY
;;PR*OR*TY
1 PRIORITY
; i PRIORITY
; s PRIORITY

c 2*SWITCH REGISTERTM

SWITCH DEFINITIONS

000

Skl4=
SWi3=

40000
20000

SWll=
SWi0=
SW09=

4000
2000
1000

SW0B=
SW07=
SW0b=
SWOS=
SW04=
SW03=

SuWie=

10000

400
00
100
40
20
10

SWol=
SWo0=
.EQUIV
.EQUIV
.EQUIV

e
1
SK09,SK9
, Sl
SWO?7,SuW7

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

.
SKO4, SW4
SWO3, SW3
SWO2,SuW2
SWO1,SW.
SWOO0, SW0

.EQUIYV

100000

LO3

0
40
100
140
200
240
300
340

SWile=

000001

10:00

- #DATA BIT DEFINITIONS (BITOO TO BITiS)

81715=

BITi4=
BIT13=
BITl2=
BITil=
BIT10=
BITO9=
81708=
S

107=

[TO06=
BIT0S=

BITO4=
BI103=
BIT02=
BITOl=
BITOO0=
.EQUlIvV
JEQUIV

100000

40000
20000
10000
4000
2000
1000
400

200

100
4O
20
10
M
@2
|
BIT09,Bl
BlT108,B!

SEG 0037
NoOnLwhu—0O

~—

100000

30(1046)
28-NOV-77
BRSIC DEFINITIONS
PRO=
PRl=
PRe=
PR3=
PRY=
PRS=
PRb=
PR?=

09:42

MARCY1l

000000
000040
000100
00014C
000200
000240
000300
000340

[Lalanl
(I
NGO

P11

TS7

CETCRERE g;g;wmc-mmc-cmrmu*c-ma-[ AU AL AL AL A A A A AL AL AL A TV A T TV TV, IO TU R TU S TN A KT A TV TUL TR TT S TV )
mms»—.—»—-»—-»—»«—»—-o—»—ooo
N LW~
DOV NN LW~ 0OND~N)
FRZORCESBIRRLONBIBIRREER

C_RMG3-2 DR CPT

28-NOv-77

¥ = 0 5 0l 1 Bt e Bt B e B Bt Bt e s Bn e e Bt Pt P Bt Do Bt Bt Bt B s Bt (ot B e n Bt et Bm s Bt s § - Bt s Bt Bt s Bt Bt B Pt s s Bt e B B

CZRMIBO RMO3-/2 DR CPT T1ST
CZRNIB.PLI
28-NOV-77 09:4¢2
1638
1639

MACYIl

30(1046'

28-NOV-77

BRSIC DEFINITIONS
.EQUIV

000014

6
8a814

176700
000254

o
o
N

Pt Pt

s Pe Pt Pt

@ Pt Pt Pt Pt Bt Pt P

lai al i al Al alal Al al al sl A
Ll N ATAol
AT A TG IT,
NN L Wh—-0woE
)M

1655

000020
000024
000030
000034
000060
000064

.EQUIV
.EQU]V
. gu \'A
.Eeulv

BIT0S.BITS
104.81T4
103,
Ts
102,871

.EQUIvV

100,B110

0001

000113

898113

000121
000123
000131
00014}
DOOIN3
00014S
000151
000.53
00016}
000163
000171}
000173

C “CPUTM

eSvECs 10

[
O
o
o
Q

TRAP vscron onsgs;
E

stnv )

228 ?TH R ERRORS

LLEGAL INSTRUCTIONS

3@}
E: iw
10TVEC=z 20

::35?
96?fl¢ TRRP (BPT)
P VINPUT/OUTPUT TRAP (101, 2#SCOPE#s

PWRVEC= 24
MTVEC= 3C
RAPVEC=34

. POWER FRIL
,,EHULRTOR TPQP
“TRAP"

60
HY

PIRGVEC=240
ABRSE=176700

(EMT)

##ERROR##

STTY xsvaonno vscron
,,rrv PRINTER ;s ?

: :PROGRAM

INTERRUPT

REQUEST

VECTOR

“VECT1=264

.SBTTL

RMO3 REGISTERS

.SBTTL

RMO3 DRIVER COMMANDS
L2222 22222222 2222222222222

2222222322222

222222212222

{8é

Nfl UPERQT!ON

{97

BEY& BREtk

15?

Sgngfin
TQ CENTER LINE

=
=

1}2

123

143

=
=

145
151

171

=
=
=
=

TRAP
(8}

SEG 003e

TBITVEC 1:

L LI

818é
i

101,

RRVEC=Z 4

TKVEC=
TPVEC=

PARGE 39

Bl706.BIT6

.EQUIV

+ BBRAYG

MO3

BIT07,B177

.EQUIV

. ®

10:00

.=3

183
16!
163

173

CATCHER

: PACK ncxnouLEocs
SELEC
'“RiT

‘WRIT
TWRIT

ECI OR HCI)
cx DRABER & DATA

,NRITE ERDER 8 DATR

,REQB

'REA

DEAOER & DATA

122)

28-NOVv-77 09:42

.P11

s P

.=174

DISPREG: .WORD
.WORD
SWREG:

000174
00017%

000000

000200
000204

000137
000137

003062
oe3c72

000ece0

000220
000137

003102

PAGE 40

SEG 0039

.SBTTL

STARTING_ADDRESS(ES)

JMpP
JMP

.=ce0

.SBTTL

O
O

JMP

: :SOFTWARE DISPLAY REGISTER
; ;SOFTWARE SWITCH REGISTER

S8START ;;JUMP TO STRRTING RDDRESS OF PROGRAM
;CHANGE THE RH11 UNIBUS RDDRESS
S8START!
;AFTER INITIAL START

; SECOND PRSS STARTING ADDRESS

98START2

ACTil HOOKS

HI illlIllI»I!ll!lllllll!lilillllNIlINII.i!lii!!!!llillllilli!i!i*ll!

: HOOKS Rgggggeo BY ACT!1

. SAVE PC

iéggao
"WORD

000046

0000Se
001100

. =§SVPC

.SBTTL

S o BRI

;1 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
::2)SEY LOC.52 TO 40000

40000

'! "RESTORE PC

.=1100

APT PARRMETER BLOCK

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR RPT

001100
000024

.8X=,

. =24

200

i Lt i d e
e s
LOCATION
CURRENT
; s SAVE

N RN R

ettt bbbl bt

; ; SET POMER Ffl%L 70 POINT TO STRRT OF PROGRAM
; ;FOR APT START

; ;POINT 70 APT IN0625C1 RDDRESS PNTR.
. =HY
BLOCK
SAPTHOR ; ;POINT TO APT HEA
;- RESET LOCARTION COUNTER
.=.$X
L ettt s itdttad
T L
T

PORERO3

ey
N e el

e
= = =T

;%§¥gsrggg ggEgHETER BLOCK AS DEFINED IN THE RPT-POP11 DIARGNOSTIC

8868888

SBBLRRELREE DB NRR U

28-NOV-77

TRAP CATCHER

: #SEQUENCE
TO CRTCH ILLEGAL TRAPS RAND INTERRUPTS
; BLOCATION 9 CONTRINS O TO CATCH IMPROPERLY LORDED VECTORS

Pt Yoo Pt rn
s Pt P

et Pt Pt P Pt et Gt Bt P

s Pt Pt Pt Pt Pt o Pt Pt P

Pt P

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

NN NN NN NN N NN NN ANN NN N NN N NN NI NNN I NN NN N NN NN NN N

$oe

MACY1l 3Q(1046)_

NO3

; #ALL UNUSED LOCARTIONS FROM 4 - 776 CONTRIN A .42 HALT"

B o0 rn zun-038SRR20RCE8
38R RE wa

0 RM03-2 DR CPT_T1ST

10:00

$SAPTHD:

SHIBTS:
SMBADR:
§TSTM:
§PASTM:
SUNITM:

.WORD
.WORD
.WORD

.WORD
.WCRD
"WORD

:: TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
O
::ARDDRESS OfF APT MAILBOX (BITS 0-15)
SMAIL
;RUN TIM OF LONGEST TEST
500.
*!RUN TIME IN SECS, OF 1ST PASS ON 1 UNIT (QUICK VER
S00.
TIONAL RUN TIME (SECS) OF R PARSS FOR ERCH ADDI
:
.
2 ;;LENGTH MAILBOX-ETABLE (WORDS)
SETEND-SMAIL

NARL UNIT

COMMON TRAGS

R xR

? LW~
NNNNNN FERER LN 65 FH SRR BRENS ~NorLL

ot P
o

s et
e

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

28-NOV-77

10:00

BO4

SEG 0040

PRGE 4!

COMMON TRGS
LLL L L
IIIRIA
SL 2SR SSLL ISR QLA
ISRTITIRISIT
XY ITIZIYIYIYRRYIIZTT

STHIS 1 6#
E CONTRINS VARIOUS COMMON STORAGE LOCATIONS
:#USED IN THE PROGRAM.

o
00
on

NNNNNNNIN

n
2 LLELLLLEL
NN
B
RN
NRRRARA
N
URGIERIES gdgdpidd SO LWhu—
*mfmw-—o.flm
\)gmxugwgam\m‘m}

Pt Pt Pt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt § b Pomet Pt Pt Pt P Pt ot Pt P Pons Pt Pt P Pt Pt A P Pt Pt Pt Pt Pt Pt Pt Pnstt Pt Pt et Pt Pt Pt Pt ot Pt P P Pt Pt vt Pt Pt P

MACY11l 30(1046)_
.SBTTL

98898 ERReRRERERRERaeRERACREANEERES

res
O

[gle)
NN

C _RMO3-2 DR CPT_TSY
28-NOV-77 09:42
11

0C1114

£0Cc000
000
000
000000
000000
000000
000000
001

SCMTAG:

XY
.=TQB.

WOR

YTE
STSTNM: ..BYT
SERFLG:

.WORD
SICNT:
SLPADR: .WORD

,,C
;

0
8]

.k <D
SGDADR:
RDR: . WORD

.WO
.BYTE
.BYTE
.WORD

T%TEST men
..CONTR,P'g
; s CONTR

SLPERR: .WURD
SERTTL:
SITEMB:
SERMRX:
SERRPC:

;;STRRT OF COMMON TRGS

;,CONTQ

TURN FOR ERRORS

%82%5- *GO0D’ DATR

CONTR

SGDDAT:
SBODAT:

. WORD
.WOKD
.%RD

0
0
8

Ss '890 Dflm
CONTR
; ;
; ; CONTRINS ’GOOD’
;;COMTRINS *'BAD’ Dfl
; ; RESERVED--NOT TO BE USED

SAUTOB:
SINTRG:

.BYTE
.BYTE

0]
8

; ;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

$TKB:
gT;g:

177562
4
17

L:
3
SFILLS:

SY E
YY

TPB:

177566

F LE:
TPFLG:
STIMES:

s
g ?i‘
,.Mg%
STR
s TTY K

SESCAPE : 0

$BELL:

;3 TTY K
s TTY

5 s CONTR
; s CONTA

C
2

.,IN
"T

ASCIZ

(207> (377><«377>

%/
S

$QUES:
SCRLF:

.ARSCIT
.RSCI

‘88TTL

APT MAILBOX-ETABLE

S F:

RSCIZ

NIER

AY REGISTER

TCH REGISTER

FER
STAT

;:;TTY PRINTER BUFFE

YTE
YTE

EEG
G

DRESS
DREbS

N.(# CHARACTER FOR FIL
FILLER CHRRQCTERS REOUIRED
8

A "LINE FEED"
. RFTER
XLh
E” FLRG (BIT«D?>=0=YES!
% VAIL
R OF ITERQATIONS

..E WF ONéRROR RODRESS
s 0%

QRRIQGE RETURN

LIri FEED

12>

unuluuuun"unntuu“nuuuuucuiuuuuuuuf
CERRRRRBRE RN

’kasr ME

PR RN

R RN BB

.EVEN

000300
060000
050000

TERARTION COUNT
é
T ST
ARDDRESS

OTAL ERRORS DETECTEO
,,CONTR
By E
ITEM ngTROL
; ; CONTA
ST
: ;CONTAINS MAX. E
PC OF %ER“OR XNCTRU(.TION
;; CONTR

e
0
1
0

DSWR
.
DCISP
%
DISPLAY:
177560
$TKS:

00000
177607
07?7
0is
000012

Tfl1z§
CONTR

sSHMAIL:
$MSGTY:
$SFATAL:

.WORD
.WORD

STESTN: .WORD

AMSGTY
AFATAL

ATESTN

R R R R AR AR AR

RE R AR R R AR

; ;APT MAILBOX
,,PSSSRGE TYPE CODE
;FRTAL ERROR NUMBER

;;TEST NUMBER

RREREER AR

FIRLBERENDS>

UMM N MVNVINVIVIVN
MY

3 OO NN LW Q0N &5 ZORCE
8N

.WORD
. WOR

888650

0000
0000

000
0oe

288060

10:00

BT
-" WOR
WOR

RENvM ;;ES¥
i ENVIROMIENT
ROGE BITS
suxr§u Rgéggrea
ASWREG

AUS
ACPUOP

TV SRRR
TR W

BY7

.BYT

817s 15-11=2CPU

QHRH;X

AMTYPL

WOR

AMADR]

.BYTE

AMAMS2

IME' CLOCK

:MEM. TV

Ksi

9=FLOATING POINT PROCESSOR
BIT
BzMEMORY MANAGEMENT
BIT
s s
HIGH
S,M.S. BYTE

Mtn. TYPE BYY

FIRBR
TR B

et
Pt Pt
Pomn Pt

T
M.
n Ln

BLK®

zaav7$s THIS WORD ANDLOW OF “TYPE"TM ABOVE

sg gLKoa

..nsn

.%TE

MTYP:

IMEM.TYPE , BLKbY

WORD

HHRENY

AMANS

E éspobm-ooe

AMTYP3

.uoR
:58n8
':820
.WOR

nprung
NNN

AMTYP
AMADR

IGH noonss

ngn

e Somt(HIGH BYTE)

.BYTE

.HORE
‘BYT

e Pe Pt D

P
Pt Pt Pt Pt Pt P
et P

[CININ NININ
(AU o VISRTSRy
o
oo LNO

St Pt ot

TYPE

BIT 12:%&

.BYT

st Pt Pt Pt P

8RRBRRRRREER

NT TABLE

: P USERTMSAITCHE
::CPU TYPE,OPT]

LRY

Envx

117
'86 &1/05
=02, 11,20=03, 11 /40=04, 11/45=0S
z10
11/70=

IBYT

gveg}é "In;ekaupr Sgcfééal
BUSPPRIORI7Y.1
UNDER TEST
nXEEe I:énsg VE o?RES yane *
CRIPTION WORD#
LL
ggixn
oTiON ugagoé
Bsgcn
acgu :2882 8LLER
}s

155700

264

- WOR
-WOR
WORD
WOR
"WOR

177546
100
-1
-1
74

WORD
"WORD

WORC
WORD

YTE

AMADR3
;; H.Lfl Sg SLKI3
AMAONSY
;M

WORD

00000GC

SEQ 0041

gumn EEE;%?QEE
b
NGEH
k sg
nfigng

ORD

888838888888

I BUER
R B BH

PRGE 42

.,Pnss COUNT
APASS
aozvgr
vxce
gouut

-t

000
000

co4

'582
-WOR

"WORD

000000

Pt P

P & 2 Gt Pt Pt et Pt

OOODP®-I~3-)
T
IV I T

Pt Pt P
Pt P
Pt P
Pt Pt Pt P & Pt P

[saleslealerloalealooloolooeediole
Tee]

Pt P

30(*048%L88 8-NOV-7?7
x-ETABLE

000000

RRR

et Pt Pt P
e

00 D (00D D (0D 00 CD OD M

Dt Pt Pt Pt Pt Dt Pt Pt Pt Pt Pat Pt Pt Pt Pt Pt Pt Pt Pt Bt Bt Pt Pt Bt

@ M
i
n—
00 m N

e B

03-2 DR CPT _7ST7
28-NOV-77 09:4¢2

MACY1L

172542
104

172540

D
O

:FIRST ADDRESS OF RH11,RMO3 REGISTERS

:RMO3 VECTOR RDORESS

OR Of KW1l-P srnr¥g REGISTER
R BUFFER
R OF KHII-P
.ngo
:RDDR OF KW11-P VECTOR

‘ADOR OF KWl1l-L svnrus REGISTER
‘ADDR OF KW11-L VECTOR
:*0° IF KWll-P xs ON SYSTEM
Sk é‘ A °t8°
nvnan LE
IF S0 HZ SYSTEM
YSTEM: 62 (8
i79 \8)_IF

"TYPE srnfxsrxcs' INCILARTAR
'ENTRY TO THE TRBLE D

CZRMIBO RMO3-/2 DR CPY TST

28-NOV-77 09:42

CZRMIB.P11

28-NOV-77

MACY1l 30(1046)

APT MAILBOX-ETABLE

10:00

ggxgg:

DRIVE
fi;1¥:

=
.:828

SUNIT
8

1957 061330

%agaoé

'5820

anogsc: .WORD
.WORD
HOUR:

O
O

1333
:

{888
881335
xéég
1860 001336

1861
1862

nggqo
001342

1867

001354

DO4

SEQ 0042

PAGE 43

:DRIVE8 STORAGE: ERRORS 1- s 3 10
'ATTN REG STORAGE: ERRORS 1-5 8 10

Roor oG (2R BRI BY]E
iRBIXE
: STORE Lsar nsnonvsngggségsngfigc
é* P"&E“PRINT AND SCORE RT.
"coz?EOL
Ngngs
.

.WOR O0
CFLAG:
TSTNM: .WORD

7 TRACK
svoaso HERE (nnxxnun - 999_;

éngfls 2 COUNT SREB
COUNT
s
R ROUTINE COUNTER (ron ONE SECOND.
.%NENSSHNT

MINUTE:
SECO
SIXTEE:
CMCNT:

.WOR
- WOR
.WOR
.HOR

0
0
0
8

STARSC:
CMSEC
CMTRK
NULINE:
SECLMT:

.WORD

FAULT:

.WORD

1878

.SBTTL

COMMON PARAMETERS

iggé

.SBTTL

TRBLES, CONSTANTS, AND VARIRBLE LOCRTIONS

1863 001344
1864 %13%
1350
1865
1866 001352
1868
1869
1870
1871
1872

1873
1874

igzg
/

00
0000
000

000000
000000
000000
000000
000037

001374

000000

00137G
001372

CMCEYL

000000

001356
001360
001362
001364
001366

WORD
.WORD
.WORD
TRKLMT: .WORD
CYLIMT: .WORD

000004
001466

187~

1860

chxnoen

1887

ALL DRIVES NCT COMPATIB.E

16 CYLINDERS IN ONE BLOCK, @ BLOCKS IN ONE WRITE-CURRENT

01§

LOGO:

.BYTE

0,15..13.,10..6,!,11..4,12.,13.,9.,14.,2,5.7,8.

:DRIVE C

001

000

0i6

LOGl:

.BYTE

1,0.14.,11..7,2.12.,5,13.,4,10..15.,3,6,8.,9.

ORIVE |

014
004
003

005
012
006

015
017
010

LOG2:

.BYTE

2,1,15.,12.,8.,3,13.,6,14.,5,11.,0,4,7,9.,10.

000

001416

1893
1894
1895
1896
1897

001401
001404
001407
001412
001415

1893

ooxusé

1805
1906
1907
1908

i=1,1F

017

1891
1892 001376

1304

T ACK ADORESS LIMIT
:CYLINDER RDDRESS LIMIT FOR RMO3

: ZONE AND # CURRENT ZONES INR PACK.

iggg

1803

O
O
O
31.
§.
B822.

RDDRESS

TRBLE LI?TED BELOW SPECIFIES THE SECTORS TO BE WRITTEN
ERCH LOGICAL DRIVE WRITES TWO SECTORS IN ONE
A LOGICAL DRIVE.

1885
1886

1900
1901
1902

WORD

:STARTING SECTOR (roa TEST 6.8)
onLTn CYLINDER COUNT
TRACK RDDORESS
< NEW ant FLAG AND COLUMN CTR
RDDRESS %xnxr
SECTOR

!llllllllillilflll’ll!Illllll!i!!lllllll!llii!ll!llllIi!liilii}!i

lgga

1898

WOR

0014
001427
001432
001435

001436
0G1441
001444
001447
0Clu4c2

ole
012
015
002
010

006
004
01l
005

012

007

011

002

014
015
90€
ooY

001

010
00€
012
Gor

001
014
016
007

002

017
003
0lE
000
Cil

:DRIVE 2

SUo—%LNMD%T.NbQT.bO—,obYWLDRS—UN~G(TOa~%y0MI%TSoIAO3&T5?oIY”oT0Q~RT.Io2OoloFT0AaJTYo.TX0TdoTUoq4NTsoD¥.eobTou?gM0=OeoM¥T'qsoOTU0INM9gOo'0MDgH01eMa25M2N31I2041o%54o'6e7¥2o08%ga'96syomo1mgl27g32l4od95sp~l5ead1%spl47esgtlmegtd2getpl5wOoal%1teal2eoq3to
aV—T-oImW—=~O~T0-U8]Nt]M[}—uO8M=bDa0QT0—3Wo)pt(—aO—5NOoyi~D-=bk0O80I~=—ln0—8ONr]Dm~0iO-[Q0No)T>> -Q—¥+p~39Y—n]—3ODbea05—DONQ—TOo~0T=8Qo~—OMV=sl00NoODo+TOl—081oOI—=Tp0M~l0i~8b—[o—-oW9N-O—)TDwO~]3W~4iD=0—UAAOo=D]~8—NTUoVTt—0=~Q3dNIb~0oOsTD]8—NQEoTP0~Uil05tUY&m-ooX>> DlOQRoi])8eC~O0WDUDPIHO0UoNPD8lUMOHP—0f0OOe—U~—A~0OoDD8Tl—0R0)ON~tO—Q0[(-RmWoM.-N7O+8~—U1~4&I]0~DYA3eNOTQ0OD8—0ORUA4~—e-VCN0LMT8=~0R0NOTIo~e——(DT0[oW8.-LN>> 2Q=&~oeLN04]5Doe—0ITVN3MQN0C50eEN~RTOtUoN08~UARN0T:fnNN0QtRfTTU0Le8SM~mow-Q.LWa0toOeQNl5VA0eN8D0TQU2AtIrDNM0D0ieOeM3——D0]Lt8rO0MD0fiWN3rN~T0o(V-.QWL>> -]=)ot8V8]]DNRe0l5KOUOO0—o0~et3NNQ0t2e8O00eQU3elDN0~~o8ONeUt0—7m|O0.oUo-QMoYN~b0RO8o—L0BQVO0Uo~3t—y0NIKD=8~oY—0NQOH0RoIUl~e0NTo3—tLQ~M0UO0Ro|T-o@W.~>> -—otMb&D0T5-PMkl
[-o.-.-.NT——-]ow~Tod1Lt—7MMn[e=]+ -- ---]—wVJ].[——woo ...2T)¢4£[t(n4M7N0wbe]{ --(-w-J[(bwo—.....~T4@tOnM7+]] ----. 73[%-V-Ys- TLToo...—..~5—)w)MtytMq]]- -----.[(TTwo(w—@&..~..TLfMM7@4ytn7n0]b]] -----.o —V(V][wT—wo—.]oT.5]43tty(Mn7[L~n)]-e]\. --(VT[-]w—-wo-.T—~.Tg)+]M=e4MnN[[t]by4V ’--- ----- ["wLo]]..o..gT~3tly)Y¥M—]n[b]+ --[-4—-V[wQoT-——u<....o.Ng2]]1t}MTn0[b[]4y -T[.-(.. -w0—No——o...~¥g47Mt7)n]
cZ RM IBO_RMO3-2 DR CPTM TST
| ZRNIB.P11
28-NOov-77 09:4¢2
MRCY11
30(1046)

TRBLES, CONSTANTS, AND VARIRBLE LOCATIONS

28-NOvV-77
10:00

EQ4
PRGE 44

SEQ 0043

gggp 1
N

=~
4

38 n
& (38 OO0
O DO
oY)
\DsDfl\P\D\DJ\D\D\D\DsD\D
NNNNNNINI
N
BEIRRZCR 00
-0 [Velo
s RN
RESNZE sVels
s g8
R¥To
g BLBs 83 NN LW
OWw

ot Bt Pt Pt Pt et Pt ot Pt P Pt Pt ot Pt Pt Bt ot Pt Pt (o Pt Pat Pt P
0t Pt Bt Pt et P

[a VL e e ey ey Y Y =Y Sy
QwoONOMNLWN-0

[(alaja/elslelélalelalal

e
e

OO0

0_RMO3/2_DR CPT_TST
P11
28-NOV-77 09:42
001701
001704
001707
001712
001715

MACY1l 30(1046)
TABLES,

FOM

28-NOV-77
10:00
_PAGE 45
CONSTANTS, AND VARIABLE L.OCATIONS

SEQ 0O44

001724
001727
001732
001735
001736
001741
001744
001747

006
Q0?
017
016
004
015
007
010
000
017
00s
016
010
011
001

001755
001756
001761
001764
001767
001772
001775

006
017
01l
012
a2
99:
00?

001776

000000

ASNLST:

.WORD

;R BIT SET

IS AN ASSIGNED LOGICAL DRIVE

002000

000000

ASSGN1:

.WORD

;A BIT SET

IS AN ASSIGNED LOGICAL DRIVE FOR PARSS

00200z

000000

ASSGN2:

.WORD

;A BIT SET

IS AN ASSIGNED LOGICAL DRIVE FOR PRSS 2

002004

000020

SYSADR:

.BLKW

16.

:SUB SYSTEM ADDRESS TRBLE

002044

000000

TABLEX:

.WORD

; CURRENT SELECTED SCORE ROARD

001716
001721

001752

000

002
000
005
001

015
010
012
003

014
003

LOGI13:

.BYTE

13.,12.,10.,7,3,14.,8.,1,9.,0,6,11.,15.,2,4,5

901,
006
oc2

0i2
016

01l
013
004

015
004
002
007

013
017
012
014

LOGI4:

.BYTE

14.,13.,11.,8.,4,15.,9.,2,10.,1,7,12.,0.3,5,6

016
00S

014
000

LOGIS:

.BYTE

1S.,14.,12..9.,5,0,10.,3,11.,2,8.,13.,1,4,6,7

010

015

003
003
004

00s
013
006

: SCORE BOARD TABLES
:

TABLE OF OVERWRITE SCCRE,NEGATIVE OFFSET

OvWNO:

.BYTE

0,0.0,0,0,0,0.G,0,0.0,0,0,0,0.0

002046
002051
802054

200
000
000

000
000
000

002062
002065
002066
002071
002074
002077
002102
0C210S
002106
002111
002114
002i17

000
000
000
000
000
000
000
000
000
000
00g
000

000

000
000
000
600
000

000
000
000
000
000

OvWNl:

.BYTE

0,0,0,0,0,0,0,0,0.0,0,0,0,0,0,0

0o
000
000
006

000
000
006G
000

ovWN2:

.BYTE

0,0,0,9,0,0,0,0,0,0,0,0,0.0,0,0

Q57

oc2ize

0008

060G

000

0G0

600

000

SCORE

2 DR CPT_TST
CoRMIBC RMO3

28-NOV-77 09:42

CZRMIB.PILL
2021l

2022

20e3
2024
2025

2028

2029
2030
2031
2032

Sgga

002125

000

002131
002134
002137

000

0021e6

002146

002151
002154
002157
002ike
002165

000

000
000
000

000

000
000
009
000
000

000
000
000
000

MACY11l 30(1046)

2038

002166

000

00217
002174
002177

Sg:g

002205

000

OVWN3:

.BYTE

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

000

Ovwn4:

.BYTE

0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0

000
000
000
000
000
000
000

000
000
000
000

000

000
000
000

000
000
0o0

ovwPO:

.BYTE

ovwPi:

.BYTE

poo

000

g0o0

002226

000

ovwP2:

.BYTE

6,0,0.0,0,0,0,0,0,0,0,0,0,0,0.0

Sggg

002231
34
002237
002242
002245

000

2059

002211
002214
002217

000
goo
000

Sgg?

002225

000

20Se

2053
2054
2055

002222

000
000
000
000
000

000
000
00C

000
000
000
000

000
000
000

000
000
0oe
0co

2060
2061
2062
2063
gggg

002246

002251
002254
002257
002262
002265

000

poo

ovwP3:

.8vTE

0,0,0.0,0.0,0,0,0,0,0,0,0,0,0,0

2066

002266

00cC

000

ovwP4:

.BYTE

0,0,0,0,0,0.0,0,0,0,0,0,0,0,0.0

2067
2068
2069
2070
Sg;é

002271
002274
002277
002302
002305

000
000
000
000
000

00C
000
000
000
0o0

000
000
000
000

000
000
euy
ooc

000
0G0
000
000

000
000
000
000

: TABLE OF READ SCORE,NEGRTIVE OFFSET SCORE

58;3

2275

2076

00230t

0G22il

slole]

CoG

000

o{e]s}

¢ N

0,0,0,0,0,0,0,0,0.0,0,0,0,0,0,0

000

002206

2046
2047
2048

2049

©,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

000

204S

SEQ 0QuS

PRGE 4%

: TABLE OF OVERWRITE SCORE,POSITIVE OFFSET SCORE

2039
2040
2041

2042

10:00

TABLES, CDNSTANTS, AND VARIABLE LOCATIONS

gggg
2037

28-NOV-77

GO4

RONQ:

.8v7e

0,0,0.,0,0,0.0,0.0.0,0.0,0,0.0.0

CZRMIBO RMO3-2 DR CPT 1S7
28-NOv-77 09:42
CZRMIB .P11

gg‘ el
s
(

DONON
EWh—-DO W~ I
LW 3
wwwmmmmmr}:)&mmgv—»—-»——-»—»—-—-—»—r—-ooooooooo
oW
N

TABLES,

10:00 PRGE 47
28-NOV-?7
CONSTANTS, RAND VARIABLE LOCATIONS

RON1:

.BYTE

0.0,0,0,0,0,0,0,0,0,0,0,0,9,C,0

RONZ:

.BYTE

0,0,0,0,0,0.0.0,0,0,0,0,0.0,0.0

RDN3:

.BYTE

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

RDNY:

.BYTE

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

30(1046)

DYV
RN PV
N NV VNYUMUV IV TVNDPVDRDTVIV VTV

RDPO:

BYTE

0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0

RDP1:

.BYTE

o,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

ROP2:

.BYTE

c.0,0 0,0,0,0.0,0,0,0,0,0,0,0,0

RDP3:

.BYTE

0,0,0,0,0,0,0.,0,0,0,0,0,0,0,0,0

RDPY:

.BYTE

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

[

el ol

el o

e Sy

: TRBLE CF READ SCORE,POSITIVE OFFSET SCORE

[

002325
002326

MACY1l

002cet

SEQ 004¢

c:nnxao RMO3 2 DR LP- rsr

JIRMIB. P11
2133
2134
2135
2136

g{gg

002531
002534
002537
002542
00254S

28-NOV-:'7

09:42

000
000
000
000

000

MACYL1 30(1046)

Sigg

2153
2184
2155

5123

002546
002550
002552
002554

002556

000
000
000
000

000

002560
002566

000
005S

0028577

010

002563

002571
002574

006

018
016

SELFO:
SELFi:
SELF2
SELF3

000
000
000
000

SELFY4

000

001
012
014
007
013

002600
002602
002604
002606
002610
002612
002614
002616
002620
002622
002624
002626
002630
002632
002634

002636

037320
037342
037384
037406
037430
037452
037474
037516
037840
037562
037604
037626
037650
037672
037714

037736

2183
2184

2187

2188

0.0

003
017
004
002
011

:BUFTBL :
.IRP
:

aurrsn RLLOCQTION TQBLE ENTRY COUNT
1?
X <0,1,2,3,4,5,6,7,10, 11 12,13, 14

BLKADR: .WORD
-WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
_WORD

DRIVO
DRIVI
DRIV2
DRIV3
DRIVH
DRIVS
DRIVE
DRIV?
DRIVIO
DRIVI1I
DRIVI2
DRIVI3
DRIVIN
DORIVIS
DRIVIE

:ADDRESS OF THE PRRAMETER BLOCK FOR DRIVE O
‘ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 2
BLOCK FOR DRIVE 3
'ADDRESS OF THE PARAMETER
BLOCK FOR DRIVE 4
:ADDRESS OF THE PARAMETER
DORESS OF THE PARAMETER BLOCK FOR DRIVE S
BLOCK FOR DRIVE 6
TER
P
'ADDRESS OF THE
BLOCK FOR DRIVE 7
!ADORESS OF THE PARAMETER
PARAMETER BLOCK FOR DRIVE 10
: ADDRESS OF
!ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 11
:ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 12
DRIVE 13
'ADDRESS OF THE PARAMETER BLOCK
'ADORESS OF THE PARAMETER BLOCK FOR DRIVE 14
;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1S
'ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 16

'NUMBER FOR NEGATIVE OFFSET (DIR = QUT)
'NUMBER FOR POSITIVE OFFSET (DIR = IN)

sENDPGH+(288 #k>'
"WORD
. ENDM

"WORD

DRIV1?

BUFFER bontss or DRIVE X

'ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1

' ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 17

.EVEN

002e4C

000000

218¢<
2186

BYTE

0,0
0.0
0.0
0,0

16 CYLINDERS,2 BLOCKS,TOTAL 32 CYLINDERS IN ONE ZONE
0,1,3,6,10.,15.,5,12.,4,13.,7,2,14.,11.,9.,8.
INDST: .8YTE

gig?

2182

.BYTE
.BYTE
BYTE
BYTE

:THE START LOGICAL DRIVE 8 TO WRITE ON ERCH CYLINDER OF A BLOCK

2160
Sig}?

S};g

SEG 0047

PAGE 48

; TRBLE OF SELF TEST SCORE

2158
2189

2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
cl7€
2177

104

000
000
000
000

2147

g}:g
2150
2151
2152

10:00

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

giag

2141
2142
2143
2144

28-NOV-?7

002e42

OREEEE

OFFCOD: .WORD
.EVEN

STNDAT:

.WORD

0BbELE

:GFFSET CODE TABLE

OO0

L
nnugyunnug¥v @}
38JRRZER B838IRRLON28S B

O RMO3-2 DR CPT_TST

[ )

OW o NN LW

TOPUNUNY
= 0 s gt st e pee pme

rufuruPPRPDND
N
[AAYIAY AV AV AV A VIA VI VT A V1o W] o W)

oo n furnrurviur
oY
n U 0= = 0 Pt $s Pt Pt pe Pt pma e

.Pl1

28-NOV-77

002644
002646
005650
002652
002654
002656
002660

09:4¢2

MACY1!l

30(1046)
TABLES,

28-NOV-77

CONSTANTS,

AND

002664
0020bb
002670
002672
002674
002676
002700
002702
062704

1S5554
133331
6663
155546
133315
066633
155466
133155
066333
154666
131555
063333
146666
115555
033333
04013S
177070

002710
N02712
002714
002716
002720
002722

064531
174473
062422
114352
036620
010031

.WORD
CWORD
.WORD
.WORD
.WORD
.WORD

0B4S3)
174473
0O&24e2
114352
036620
010031

002726
002730
002732
002734
002736
002740

017310
011347
102367
152567
001246
160073

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

017310
011347
102367
152567
001246
160073

724

PSEUDO:

Q70414

. WORD
. WORD
. WOR
.WOR
. WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD

10:00

-WORD

052336

.WORD

JO4

PARGE 49

VARIABLE

SEG 0048

LOCATIONS

155554
133331
066663
155546
133315
0B6633
135466
133155
066333
154666
131555
063333
146666
115555
033333
04013S
177070

070414

052336

222 2222222222222

8222222222222

222222222222 22222222 22222222222

CZRMIBO RM03/2 DR CPT TST
CZRMIB. P11
28-NOV-77 09:42

MACY11

30(1046)
28-NOV-?7
ERROR POINTER TRBLE

10:00

2224

.SBTTL

2226

; #THIS TABLE CONTAINS THE

2227
2228

PAGE

SEG 0043

ERROR POINTER TRBLE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

! #THE *Nronnnrxon Ig ogrnxfieo BY USING THE INDEX NUMGER FOUND_IN
lLOCR ION SITEMS.
THIS NUMBER INDICATES WHICH ITEM IN THE IABLE 1S PERTINENT.

2229

2230

inorsa

2232
2233
2234
2235
2236
2237
2238
2239
2240
g2l

x
tx
S ¥
002742

DO2742
002744
002746
002750

2250
2261
2262
2263
2254

002752
002784
002756
002760

2257

002762
002764
002766
002770

IF SITEMB

IS O THE ONLY PERTINENT DATA

(SERRPC

EACH ITEM IN THE TABLE CONTRINS
4 POINTERS EXPLAINED RS FOLLOWS:
EM
DH
DT
OF

; ;POINTS
{POINTS
: 'POINTS
:!POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HERDER
DARTA
DATA FORMAT

SERRTB:

;ERROR

2243
2244
2245
2246
2247

032274
034722
0353494
035470

2248

EM1
DH1
DTl
DF1

;RH70

INTERRUPT

OCCURRED

(RMAS = O)

EM2
DH2
0T
DF2

: UNEXPECTED ATTENTION OCCURRED

EM3
DH3
DT3

;MASSBUS PARITY ERROR

(MCPE=1)

EMY
BHY
OTY
DFY4

:MASSBUS PARITY ERROR

(PAR=1)

EMS
OH2
DTS
DF
2

:ADDRESS PLUG BIT CHANGED

EME
DHE

;RH11

:ERROR 2
032343
034731
035350
035471

2255

2269
2260
2261

KO4

:ERROR 3
032401
035013
035366
035477

g2be

: ERROR Y4

2264
2265
2266
2267
2268

002772
0027749
002776
003000

2271
2272
2273
2274
2275

003002
003004
003006
003010

2278
2279

003012
003014

032437
035044
035376
035502

2263

:ERROR S

032474
034731
035350
038471

2e7k

; ERROR 6
032530
035106

GIDN'T RESPOND

TO ADDRESSING

0 RMO3-2 DR CPT 1ST

P11l

28-NOV-7709:42

003016
003020

MACY11

30(1046)

28-NOV-77

ERROR POINTER TRBLE

035410
035470

10:00

LOY

PRGE 51

D76
OF1
:ERROR 7

00000C
035117
035414
000C00

0
OH?
D17
0
:ERROR

000000
035170
035430
£00000

0
OH10
DT10
g
:ERROR

000000
035241
035444
000000

000000
035312
035460
000000

s ot Pt Bt Pt Pt Pe

SETUP AND INITIALIZARTION ROUTINE

STARY ADDRESS = 200

RDDRESS TO CHANGE RM11

012737

000400

START:

012737

177777

STARTL:

005037

001332

START2: CLR

000406

RYBR 3

St Pt

DO NN
L Wh—

rrururun LAVIAVIAVIAV
AV QWA Ta VA VT4 )
[SINTAINININININIATN

0
DH12
pT12
0

.SBTYTL

000402

000005

START3:

_SBTYTL

10
14
16
22
24

012706
005026
022706
001374
01270e

001114

012737

023012

11
0
DH11
DT11
0

:ERROR

2
2309
2310

012737

001154

001100

000340

MOV

#400, CHGADR

;200 START ADDRESS FLAG

8-1,

;204 START ADDRESS FLAG

STARY3

srnérg

MOV

UNIBUS ADDRESS = 20M

CHGADR

CHGARD

RESET

;220 START ADDRESS FLAG

:COMMON BRANCH POINT
:CLERR THE BUS

INITIRLIZE THE COMMON TRGS

:SCLEAR THE COMMON TRGS ($SCMTAG) ARER
MOV
CLR
CHP
BNE
MOV

8SCMTRG, Rb
(R6)+
#SWR,RE ; ; DONE?
.=b
#STACK, SP

MOV

$$SCOPE J8IOTVEC

;s INITIALIZE R FEW VECYORS
MOV

;sFIRST LOCATION TO BE CLERRED
: CLEAR MEMORY LOCRTION

: ;LOOP BRCK IF NO
:'SETUP THE STACK POINTER
; ;10T VECTOR FOR SCOPE ROUTINE

8340, antoTvEC+2 ;iLEVEL 7

SEG 0050

CSRMIBO RMO3-/2 DR CPT TST

CZRMIB.P11

2336

28-NOV-77 06:42

0C3i¥4

012737

020016

MACY11l 3C(1046)

28-NOV-77

INITIALIZE

THE

10:00

MO4

COMMON TRGS

PRGE &2

SEG 00S1

000030

MOV

eSERROR, IBEMTVEC

338 gaxgg 818737 BEas%8 BRR83%:
gg:o
31
0{3;3; oaxéga 88885:

:83

nspuflofifiaapunzgc POHER FRILURE VECTOR

83% 093}52 01233; 0003;0 000033

34
883218 815737 17710 017702
2343 993215 88503; 0011;:
qug 0355 23947 BOMAY ooiia
2348

003234

2349 00324

532? %3“ &

012737

020006

000014

§1a;3; 990340 000066

"03
nov

; snr‘vecron FOR ERROR ROUTINE

o3¥ghgstn7vscog
byLgxgpVECTOR FOR TRAP
CRLLS
IMB
DM PALEOENES. (iR
'

MOV
32:867 gE? ::&ET
END-R
-PROGRAM
COUNTER
g s"%gs
énanzzéz
OF ggssngooness
.ROvB . oi §€kma
al
é?SL:
ERROR PER
2R; FEC? e
I gt
e IR,
T*T* BIT
L VECTOR
LTy TO $RTRN
s,
#SRTRN, 98TBITVEC
;:SET
CLR

ngg

{ 257 9885 888818

goz

.gw2 ;grgxrvec+a ;e g;vngRNTo g RTI

nsg 5 SRESVEC

::Eumvo Pgo

5§25 BOised BOE%3E ooserw
3272
5322 §§3§7“ §§§2§§ 000006 020006 6&4S:

RTT

N6v
SSV

8648, - (SP)
§§IT SRTRN

2357

ADD

oneévscoa aonssvtb ;REST RE TRAP cnrcue

2354

003304

062706

5323
203358
SX0 B

BIEH

000010

65S:

2358 003310 012737 000012 000010 668:

3; §§00§4
1122
BEE B

MOV

SLS

::nuo Pe_
SIRTT xs LEGRL--SET SRTRN TO A RTT

;i $
RTT

4 iL

IL EGRL--CLERN OFF

THE STACK

g{i
E * Lé R FOR SCOPE
By chis, (00g,

VR v

236<
::SIZE FOR A 5angubnz SWITCH Rsciéren IF nor FOUND ?RR1T
5383 003336 01374 000004
i EQUAL T8 A 1 Bfi*E’ F?QP? 5,;&3@@‘:&5&&°U:8§8£5 ER.
2365 003342 01273; 003376 000004
MOV
os7s aschnvec Efsegugprsnnon VECTOR

5329 883322 815;37 135338 88%1 Z

n83

5393

BNE

2368

003372

Q22777

001012

177777

175562

gg;é Efigggg gzgzgg 003404
001154

cHP

678:

E$Y

oggs (SP)

68S:

MOV

,,TRY ro
R; Eo n? g
¥

nsour TRA

ru: HARDWARE

SWR

;;E@?"SF } "gagsnigyunn

012737

000176

gg%; 8833é6 HiSZ?Z 888653 001156 69S:

R8¥

.gé? S
eBé&Eb ; sRESTORE ERROR VECTOR

aa;e

003424

00593;

001216

CLR

$PASS

LE§R Pngs COUN

2381

0039:?

012737

001232

MOV

#SSWREG, SWR

NO,USE RPT SWITCH REGISTER

2384

DOouSYH

MOV

8240, J8EMTVEC+2

;CHANGE EMT PRIORITY TC S

e
TYPE

1§
TITLE

46 012737
01373;

000240

gggg;g

830
BueE
263850
2387
003470
104401
gggg

§§§§§§

66?585

040074

390
2331

003510

104401
004737

0O4015S
01707¢

000077

208

000032

)

000036

000041
18:

- ;POINT

occgagso

IS NOT

003404

001154

CISTER

.88?@#
xsanv ;!afio R Hggofinggflgxspfinv &E § &

oq&L JSWR

2374

8323 B84 A3lg; oooeoo oozl

-1

TO SOFTWARE SWR

R apT

Big® JgEToT2E. SENVH ::YEé ugé‘nofiizix“gfi Feh

ngv

.eqo JeTRAPVEC+2 SHGN
TRQP PRIORITY T0 S

a&
nuo nnnosc NUMBER

gnge

6;? FITH

bggoczngn anaxnnoa

TYPE
JSR

LOADRY
PC,STKINT

:CHANGE PACK MESSAGE
:TURN ON THE KEYBOARD INTERRUPT

003514
003S20

022705
001374
012706

005037

NN Lwh—-0

Pt Pt Pt Pt
e Pt bt P

005737

013737
013737
012705
005025

N
£L£
L

OO0
~N

2
£
38 RR20RER
SR EEE

0 _RM03/2 DR CPT_TST
.Pl1
28-NOv-77 09:42

MACYL!

30(1046)

001230

000001

001154

000176

000001

0011S0

001274
001276
001776

023526
023530

10:00_

NO4

SEG 00Se

_PRG
GE S3

GET VALUE FOR SOFTWRARE SWITCH REGISTER

.SBTTL

000042

28-NOv-77

GET VALUE FOR SOF TWARE SHITCH REGISTER
;s ARE

ENNING UNDER XXDP/ACT?

157

as4e

BEQ
CMP

1
SWR, #SWREG

g;sun

5a8

.,cer SOf

;ég:

MOVB

81, SAUTOB

: ;SET RUTO-MODE INDICATOR

MOV

SRMADR, RMADR

SRMVEC . RMVEC
.nguLs1 RS

:Rh11 ADORESS

MOV
EEX

‘RH1! VECTOR RDDRESS
:STRRT OF AREA TO CLEAR

CMP

#INDST,RS

:LOOK_FOR END OF CLEAR ARER

CLR

:CLEAR_THE PROCESSOR STATUS WORD

CLR
CLR

SECOND
CFLAG

NE
CMFB

BNE

002560

BNE
MOV

001100

MOV
CLR
CLR

0013S0

001334

718
ENV, 81

,,ennucu 1
{1 ARE WE gnnNG UNDER APT?

728

' BRANC*

3s
8STACK, SP

HZ,SIXTEE
HOUR
MINUTE

,,eanncn 1

sorruans suxrcu REG SELECTED?

sua SETTINGS

'BR_IF NOT FINISHED
'SETUP THE STACK POINTER

:1760 TH OR 1/50 TH SECOND COUNTER VALUE
:CLEAR THE HOUR’S COUNTER

:CLEAR TnE MINUTE’'S COUNTER
SECOND’S COUNTER
:CLEAR THE
'CLEAR THE "CONTROL C’ FLRAG

:ROUTINE TO DETERMINE BUFFER ARER SIZE

SIZMEM: INC

177777

003700

BNE

031674
031770
001330

001330
160000

160000
005670

001330
001330

18:

2s:
;
:

003706
003712

004737
012737

023466

JSR
MOV
CMP

BLOS
MOV

SuB

8-1

:SEE IF TIME TO SIZE MEMORY

iBR_IF NOT

PC,$S1ZE
SLSTAD,LSTAD
LSTRD, k160000

#160000,LSTRD

¢1500. %2, LSTARD

:SEE HOW MUCH MEMORY ON SYSTEM
‘SAVE THE LAST ADDRESS
ovsa 28K

oon T SET THE NEW LIMIT
HE

snvs XXDP Loaosn AND RBSOLUTE LORDER

SET UP T OTHER SYSTEM DEVICES THRT

THE PROGRAM WILL USE

SETVEC: JSR

MOV

PC, CKCLK

s-1.SAVEFG

:START THE CLOCK

:SET THE SAVE REGISTERS FLAG

;SETUP IF 'XXDP’ OR 'ACT11' OPERATION
003720
003722
003724
003726
003732
003736
003740
003742
003746

00s001
005002
00S003

ge23ee
00S201
022701
002367

MONTR:
002600
016042

000007

18:
2s:

CLR

CLR
CLR
MOV
JSR
CMP
INC
CHP
8GE

R2
R3
BLKADR(R3),R0
PC . CLROPB
(F3)+, (R2)+
Rl
87, Rl
18

;DRIVE

SAVAIL TRBLE INDEX
:DRIVES X 2
;LOARD DPB_ADDRESS
:CLEAR DPB BLOCK
XNCREHENT INDEX
INEXT DRIVE
SALL DRIVE ASSIGN ?
:NO

ASSIGN LOGICAL DRIVES TO BE TEST IN THE PRSS1 AND PRSS 2

MACY11l

BOS

30(1046)
2B8-NOV-77
10:00
PHRGE 54
GET VALUE FOR SOFTWARE SWITCH REGISTER
THRE uonos n

RSNL
nsscu

SEG 0053

IN THE BIT MAPS:

Locxan DRIVES RSSIGNED
Lgc{cat ORIVES WILL BE TESTED
IN PASS].

ASSGN

LOGICAL DRIVES WILL BE TESTEC IN PARSS2.

®e

VI WL

GBI B

BEWI B

I WL

@I WSS

ZRMIBO RMO3.2 DR CPT TST
P11l
28-NOV-77 09:42

015700

012701

005020

020100
101375

001776

002560

012737

000101

005037

0gl222

104401

001272

104401
104401

104401
10440f
104401
109411
012601
106711
001415
004537

016532

156237

023514

000753
005201
105711
001404
122721

005737
00303¢

001332

000761

013701
042701
005301

001272
177780

THE SUB
SBETEHQSQOESSS QNgOANTERRUPT VECTOR ARE STOREED

THE LOCATIONS SYSROR
AND SYSRDR+6 F
sgg

IS THE suB SvsTem

svsaon+e FOR SUB-SYSTEM A, SYSADR+4
ETC, THE FIRST WORD

onsss unxtz THE SECOND WORD 1S THE VECTOR

fHE LOGICARL DRIVES RRE ASSIGNED FROM CONSOLE KEYBOARRD.

#ASNLST, RO

: RDDRESS OF 151 axr MAPS IN RO

18:

CLR

(RO) +

iCLEAR CURRENT POINTED ADDRESS

8'A, $COW2

'TEMP STORATE OF SYS NAME

MOV

MOD21:

2s:

.LRST RODRESSTO CLEAR

R]1,RO
18’

CLR

DRIVE

: TEM STORARGE OF PHYSICAL DRIVE BIT MAP

TYPE

TYPE
TYPE
TYPE
ROL IN
MOV
1518
8EQ
JSR

' §COMWe

‘R

(SP)+,R1
(R1)
oS
RS, CK.OCT

;DRIVES
:COLON
‘READ IN THE DRIVE NUMBERS
:GET THE INPUT LINE ADDRESS
:END OF STRING ?
YES
CHECK TH$ DIGIT MUST O T

BISB

ATABIT(R2),DRIVE’

INC
IsTB
BEQ
CMPB

R}
(R1)
es

TYPE
TYPE

001222

sINDST,R1

cCMP
BHI

MOV

18:

000054

0 H) AND PHYSICAL DRIVE NUMBER

MOV

036604
035517
036664

001342

sron THE SY nhng

HISTORY FILE LABELED DIRV’'Z (220 TO 17)
sgv§ AND SPHYRD IN THE HISTORY FILE

MODOO:

001272

001205
035506

ERCH LOGICAL oa
kocQTxong E

,SCRLF
"MESGI

"LINSP
'MESG2
» COLON

Mob21

(R1)+

BNE

béx

TST
BGT

CHGRDR
MoD22

MOV
BIC
DEC

$COW2, R!
#177780,R1
R1

JALL DONE
INO, THEN annncu BACK

;sug-svsrsn

TO H (ONE OF THEM)

RETURN VALUE

: INCORRECY DRIVE NUMBER snreh AGAIN

IN R2

:SET THE ASSIGNED PHYSICAL onxvs axr
:R2 THE DRIVE NUMBER rnon CK.OCT
P

:NEXT BYTE OF INPUT L
:END OF STRING ?
1YES
;MUST BE A

‘ENTER AGRIN IF NOT
:LOCATE NEXT DRIVE

'START AT 200 7
:BRANCH IF SO

:SYS NAME nscxx FROM A TO H
‘LEFT ONLY
4 BITS
"ADJUST INDEX VALUE

—

2]MIBO RMO3-2 DR CPT TST
28-NOV-77 09:42
ZRMIB.PL1
2504 004112 006301
006301

2505

J04114

2SC7

00412

101

001270

asio

oouiao

005337

001222

CcaS

MACY11 30¢1046) 28-NOV-?7 10:00 PAGE SS
GET VALUE FOR SOFTWRRE SWITCH REGISTER
;2 WORD INDEX VALUE
Rl
ASL
ASL

esog 004113 8ss7g; 002004

RDD

osviaon R1

SYS ADDRESS TABLE RDDRESS

gsg

DRIVE

csggx IF ANY PHYSICAL DRIVE(S) RSSIGNED

g R, (RO)
v C.2(RD

‘NEW RH1}/70 ADDRESS__INTQ TABLE
!NEW VECTOR OF RH11/70 INTC TARBLE
'BRANCH TO NEXT MODULE

MOV

:"5Ys ADDRESS TABLE'S ENTRY TO CDW1

c
MO

3s:

18:
68 0012;8
ggié 8831§2 8?§
001276
88:193 §55§§7 886802
2514
031772
2515 0041SN

gox
MOV
JSR

§§D?IQSQQOR
0} sanvsc
PCBUSAD

MOV

EC:LOARD THE VECTCR
. SYSAOR+2
SRMV

Sggg 004126

0400

MOD23:

013710 001274
2Sle 00160
013760 001276 000002
2617 0041ed
2s:
gg{g Q04172 00CH0?
2520

2521

004174

2622

004'74

013737

2524

4210

000400

2523
2scsS
2526
2527
2528

88”302

001274

13787 0C1e?e

002004

002006

MOD22:

38:
4s:

;

2529

2530
2631

:
:

253¢
2536

001222
5%33 88451&
2540 4212 33? 737

MOD1l:

:
:

2532
Sgga
2537

2641 004220 000137 004374
2642 DOM224 022737 177?777
2543 004232 001457
001776
0137
2544 833 N

2545

Swo

12701 000001

2546
2547

004244
sgg

00S002
100

2549

252

2S48

2550

2651

2s
52
S554

£558

sggg
258
2569

004254

004256

004310
004214

001776 MOD30:

1406

18:

MOV
MOV
BR

MOV
BR

EY 8ooéessTSBLE ENTRY
§2 GQSREE
ruccx TRE ADORESS WITH THE OPERATOR
;LOAC THE SYSTEM ADDRESS TABLE

SRMADR, SYSAOR
MOD11

SCOW2-- RSCII NAME OF SUB SYSTEM (R TO H)

$COWI--ENTRY TO THE SYS nooaess TRBLE
DR %VE--PHYCICRL DRIVES 10 gs SIGNED
THIS SECTION OF CODING USES TH neovs PARAME TERS
T0 SET UP THE BIT MAP OF ASNLST,ASSGNI1,ASSGNZ

TST
BNE
IMP

DRIVE

MOD30
MOD12

;ANY DRIVE ASSIGN
5 H IF ? ANY

CMP
BEQ
MOV

#-1,ASNLST
S$
ASN sr RO

BRRNCH IF NONE
'ALL 16'LOGICAL DRIVES HAS BEEN ASSIGNED ”
xss THEN oon ASSIGN NEW DRIVES LOCATION
fig HE AVAILABLE LOGICAL DRIVE

CLR
81T

R2"
RI,RO

; ALUE
HE Locxan DRIVE AVAILABLE "

MOV

BEQ
cLC

svnn rpon LOGICARL DRIVE O

: ES

006101

ROL

sNEXT LOGICAL DRIVE

798

30D

i Re

: IN R *NOSGUE

103445

7
1

376M

81 7
137
050137
013700

000002

002500

1272 000014

é 7
00
002002
001222

BCS

2s:

BR
MOV

MOVB

81s
Bid
BiS
MOV

: BRANCH xr NONE xs AVRILABLE

10 n

I1CAL s HISTORY FILE
51. onrv:

éLKRDR(R2) ,R4

:GET THE LOGIC

scu1
Rl ' ASSGN2

:SETY Pnss
'GET PASS2 ex

acougvshn(nqi
orRiVE, RO

2
;LOAD THE nsczi CAL
onxve ASSIGN BIT
&

'LOAD THE ASCII PHYSICAL ORIVE

SEG 005+

CTRMIBO RMO3/2 DR CPT TST
28-NOV-77 09:42
CZRMIB.PI1I
2560 004320 012701 000001

2561
2662
2663
2664

004324 005002
004326 030100
100S
004330
0241
884335

ooqggs

2565

2567 004

2569
2670
2571
o572
2573
2674
ngz

2577

gg:g:e

4
004346
004352
004356
004364
0DON3?0
004372

101

605202
000771

110214
062702
110264
112764
040137
001315
000400
022737
104401
104401
005003
012704
37
1417
016305
6§37

177777
036415
035517
00CI0!
001776
002600
000014

5580
2582
2583
2594
2585
25
258
2588
2589

004402
004412
004416
004422
004424
8834
Y4
00443
oouwgs

2682

DOO44EY

1049403

295
259%
2697

004460
0O446M
004466

703
41
006104

003066

0OOM410

001462

23]

2633
2S94

0DO4452

00445p
00M4E?

001222
001332

0DO4400

2630 0044

000060
00001S
000011

00S?37

004374

2SB1

1003

111546

002
000

103401
000756

2601
2602
5283

004500
004504
004510

104401
104401
104401

03€430
035506
001272

005237

001272

2605

004S1M

104401

122737

2606

004620

004530

104401

2E10
21l
2t12
2e13
2E!4
2E1S

004540
00MS42
004544
004550
(O4SE2
QO4ESE

104411
012605
12271€
001002
000137
00S727

2607

2609

004586

004534

103413

104401

000C16

5§
MOD12:

001776 1S:
2s:
3s:
001272

R2
RI,RO
4$

BCS

ROL

INC

MOvB
RDD
MOVE
MOVE
BIC
BNE
BR
TST

BGT

CMP
BEQ
TYPE
TYPE
CLR
MOV
17
£Q
MOV
CMPB

BNE

MOVE
4§ :

000002

0DO4470
(004472
00447TN

4s:

CLR
BI7
BNE
cLe

TYPOS

2538
2539

2600

3s:

03415

2578

2679

DOS

MACY11 30(1045) 28-NOV-?7 10:00 PARGE Sb
CET VALUE FOR SOFTWARE SWITCH REGISTER
O
svnnr rno~ DRIVE
8l,R!
MOV

cg:

036604

000110

000131
003774
0OC133e

£S:

CHGADR

NG BACK

509? THE PHS?I “fDRIVE 8 INTO HISTORY FILE
DRIV
CODE
Sscil
puvgxcau ORIVE NUHBER
‘MaKE UP FOR SCORE TYPE
TRESET THE ASSIGNED DRIVE BIT
:BRANCH JF NOT ALL DONE
:CHECK OTHER SUB SYSTEM

;200 STARY ?

. YES, THEN sxxr

:FuLL HOUSE
8-1,ASNLST
YES, THEN EXIT
X
uXLL TEST
, MESGS
:DRIVES
MESG2
:INDEX TO LOAGICAL DRIVE MISTGRY FILE
R3
:BIT MAP OF ASNLST
81,RY
nssxcuco LOGICAL DRIVE ?
RY.ASNLST
NO
cs’
Lono THE HISTORY FILE ADDRESS
BLKADRR3) ,RS
SSYSNM(RS). SCOW2' ;ON THE SAME SYSTEM

(RS),-(SP)

'TYPE THE PHYSICAL DRIVE #

BCS
BR

S$
3

TYPE
TYPE
TYPE

"LINSP

'MESGE
"MESG]
' §COW?

"BRANCH IF ALL LOGICAL DRIVE'S CHECKED
*BRANCH BACK
: ON
;sue SYSTEM
A TOH

INC

$COW2

: CHECK NEXT SUB SYSTEM

BLO

: YES

ADD
cLC
ROL

TYPE

036434

Re, (RY)
8’0, R2
R2 . $PHYDR (RY)
sHt SGRP (RY)
R1,BRIVE
M0030
MOD12

H IF NO nons DRIVES

NUMBER
caL DRIVE

2
O

TYPE

001205

HIF

.BYTE
BYTE

CMPB

001272

:DRIVE
(1S THE PHYSICRL DRIVE ASSIGNED
:YES, THEN BRAN
THE XTgnxvs
goghrc

ROLIN
MOV
CMPB
BNE
IMP
757

82,R3
RY

8'H,SCOW2
, SCRLF

"MESG?

(SP)+,RS
#’Y, (RS)
ss
MCD23
CHGAOR

: INCREMENT TO NEXT LOGICAL DRIVE
,BIT MAP OF THE MEXT LOGICAL DRIVE

ALL EIGHT SUB SYSTEMS CHECKED®

:ASK FOR orusn SUB SYSTEM

:READ INA LINE
: CHECK THE rxnsr CHARACTER
‘ENTER Y
: BRANCH xr NOT
'SET UP OTHER SUB SYSTEM
!ETART AT 220

SEG 00S<

C RMO3/2 DR CPT_TST
28-NOV-77 09:42
P11
004see

000137
005037
000137

004600
002000
007106

we
@s we
er
@
s
ws

%£fl888%88898298

8
004764

001270
gole7e
016670

18:

EOS

PASS ONE
SCOWI
SCOWe
SDEVM
ASNLST

ASSGN1
RO
R1

Y
. YES, EXECUTE PASS2 ONL

:170 PASS 1

;CLERR THE PASS1 BIT MAP
i BRANCH TO PRSS2

, THE VRARIAVLES RRE ASSIGNED AS FOLLOWS:
ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE
SYSTEM NAME R THROUGH H

CURRENT LOGICAL DRIVE #
ASSIGNED LOGICAL DRIVES
ASSIGNED LOGICAL DRIVES IN THIS PRSS

ADDRESS OF DPB BLOCK FEEDED_INTO DRIVER-HANODLER
TEMP STORAGE OF ADDRESS OF THE LOGICAL BLOCK

RSSGN1
18

1
ENDX
SDE VM
BLKADR, SCOW1

uo%x SRMVEC

JRMVECH2

SYSADR, RMADR

023526
023530

SEG 00Se

_PAGE S 7

#'R, sCOW2

SYSADRY2, RMVEC

01663b

" MESGY
$CDW2

;ANY DRIVE ASSIGNED FOR PRSS!
;BRANCH IF THEY RRE
;END _OF PRSS |

; INDEX OF LOGICAL BLOCK

: ADDRESS OF LOGICAL BLOCK O
:SYS NAME STARTS FROM A
;RESET ALL %NTERRUPT VERTOR
;CLERR THE INTERRUPT LEVEL
;LORD SYS-TEM R INTO
; DIRVER-HANDLER
;R1=ADDRESS OF LOGICAL BLOCK 1
:RESET ALL INTERRUPT VECTOR
;CLERR THE INTERRUPT LEVEL

{R1),DRIVE

;LOAD THE PHYSICAL DRIVE #

(SP)+,R2

;CHECK IF 0.P. RERDY
;LOCATE THE INPUT LINE
:FIRST CHARACTER IS R "RTM 7

(R1).-(5P)

29:

ooglze

10:00_

BEQ
JMP
CLR
JMP

XPASS!:

004760
004762

28-NOV- 77

GET VALUE FOR SOFTWARE SWITCH

004Se4
00NS70
004S?4

00i40e

MRCY1!

30(1046)

I'R,(h?}#

!TYPE THE DRIVE

CZRMIBO anoafa DR CPT TST
CZRNIB.P
28 NOV-77 09:42

2672

004?70

001373

BNE

o673
2674
2675
2676

004772
008779
004776
005002

106712
(00137]
004737
012737

2680

005026

003452

105760
003u44?

023410

005036
005042
0D0S0M6
0CG_JS4
62
005070
76

012700
113710
012760
012760
812750
013760
113760

037760
00le2e
040074
040000
177400
001372
001370

005116

004037

024272

2677

005010

012737

023544
172777
177772

2678 0050 S 013700 0Cl222
2679 aosoé 105760 023400
2681
26
2683
2684
268S
2686
2687
2688
2689
2690
2691
2692

5233

2695

26%
2697
2698
2699
2200
2701

005030
005034

00SI104

FOS

MACYil 30(1046,
28-NOV-77
10:00
PRGE SB
GET VALUE FOR SOFTWARE SWITCH REGISTER

105060

000010

023466
023470

000006
000014
000004
000012
0000i1

005122
00S124
00S126
005132
DOSI3N
00S136

037760
000774
00S73°
001775
100Ci3
062737

008152

106136l

037776
000002

4§
G37770

2706

DOSISY

00S1e0

104401

000137

035657

DRVTYP(RO)
33

:BRANCH IF NOT

'FOLLOW BY (CR> 7
iBRANCH IF NOT
'INITIALIZE THE SUB SYSTEM
snvs RLL RH/RM REGISTERS
T DO IMPLY SEEK

RO
PHYE ?RL ORIVE & OF THE SUB SYSTEM
xisT (AND ONLIN E

MOV
MOVB
MOV
MOV
MOV
MOV
MOVB

o1
nu Rnoa ?
:BRA H IF
N
:SET UP TO RETR EVE THE BRD SPOT FILE
‘FROM THE nsr RACK
8FMTDPB, RC
,DP
ngo
DRIVE, (RO)
L
oaxvs NUMBER
SENDPLENM, SBUF (RO) Loao eu¢rsn ADDRESS
#RM_REG . 14(R0O)
:AREA TO SAVE ALL RH/RMO3 REG'S
3-256., SWRDM (RO} ; WORD COUNT (NEG)
CYLIMT. §CYL (RO) chxmoen 822.
TRKLMT STRK(RO) : TRACK ADDRESS 4.
$SEC (R

SEC O

JSR

RO, RMO3

;CALL THE DRIVER
-HANDLER

$RODAT, SCOHND(R05 “RERD DATA COMMAND

FMTDPB
BR
75T
BEQ
BPL
ADD

3s
FMTDPB+16
4$
68
82, FMTDPB+10

BHI

CMPB

c$:

0OCS464

seexrc

7578
BLE

MOVE
3s:

(R2)
28
PC,RMINIT
s-1,SAVEFG

onxO;
DRVS A(RO)

CLRB

110 112760 000171 000002

00SIN4 122737 000010 037770

5;89

MOV

MOV
TSTB
BLE

5;83

1578
BNE
JSR
MOV

SEG 00S7

TYPE

IMP

#S. FMTDPB+10
MESGLO

ENDX1

2708

: PRRAME
TER RDDRESS
‘LOOPING IF QUEUETM IS NCT SUCCESSFUL
:COMMAND DONE
:BRANCH IF NOT
:BRANCH IF DONE uxruour ERROR
:TRY NEXT SECTCR (0,2

:ALL FIVE SEC/(ORS chECKED g
'NO, THEN TRY RGAIN
:DRIVE

IS NOT RERDY

:STOP THE TEST

2705

:BAD SPOT FILE IS RETRIVED,IS STORED

2711

:FIRST WORD CYLINDER #,SECONC WORD

g;ia

'BY A& -1 IN THE CYLIADER NUMBER

2719

:FROM_ENDPGM+4 TO ENDPGM+256.

2712

2715

:TRK AND SEC NUMBERS rth IS TERHINRTED

271

00S1e4

0l2704

2718

005174

00I4ll

2717

0058170

0ee7id

2719
2720
2721
2722
2723
S;Sg

005176
005202
005204
005210
00S212
005216

022704
101406
004537
000422
0€2704
060764

272e
2727

00S220
00S226

032777
001404

04010M

172777

’S:

041074
GOS3l16

00000
00020C

1737z

B$:

MOV

SENDPGM+10,R4

BEG

CMF

8-1,(RY)

;R4 ADDRESS OF BAD SPOT FILE

END OF BARC SPOT FILE ?
YES

CMP
BLOS
JSR
B8R
ADD
BR

$ENDPGM+1000,RY
8$
RS, SPO~X
10¢
84, RY
73

:'END OF BAD SPOT FILE °
:BRANCH IF IT IS
:CHECK THE CYLINDER POINTED BY (RY,
:BRANCH IF BRDO SPOT IN THE TEST ZONES
'NEXT BAD SPG: HUDRESS
:LOOPING BRCK

BIT
BEG

#BIT7, ASWR
3§

:SWITCH 7 SET 2
:BRANCH IF NOT SET

012700
004737

30(1046)

qs:
000010

173660

800137

10:00

GOS

SEQ 00se

_PRGE SS9

GET VALUE FOR SOFTWARE SWITCH REGISTER

10%:

0os312

28-NOV-77

MOV

037760
015022
0c0o010
000012

PC PRTSho

BNE
MOVB

1as
u;o., $SEC (RO)

1578

§SEC(R

TYPE

1T
EQ

59577 ASKR

JSR
JMP

PC, PRTBAD
xPASS1

TYPE

MOV

037760
015022
004600
00sS0oe

DPB ADDRESS
PRINT THE
BAD SPOT FILE

#FMTDPB, RO

JSR

Inp

,MESG11

SCRLF

HAS BEEN RERD ?

Easng SECTOR 10

BACK
LOOPING
:
:PRCK NOT RCCEPTABLE

DPB RDDORESS

:TYPE THE BAD SPOT FILE
{REGTART PASS 1
:PROCEED TO TEST 1

TST1

CHECK THS CYLINDER

SE»TOR 10

WITCH 7 SET _?
RANCH IF NOT SET

1
sFMTDPB, RO

SUBROUTINE SPOTX

POINTED BY (R4) IS IN THE TESTING ZONES
384-399,512-527, b40- sss 768 783

(0-15, 126-143,256-27!

11e-

3
éfi

wo-2¢6 - 368-38 3. 496-611,624-639,752-7

-160,273-288,4 B1-4916,529-544,657-672, 795-800

ananc seo
RS, SPOTX
JSR

RET
RETE

SPOTX:

00S316

MOV
MOV
MOV
CLR

CLR

00000

Lol ol ol o

RoREon
MUre—=Py
£NN
NOLN Qr-rorn
SO0
Wwh—
W
0OGO=000£
bt 3 C) 0= )

18:

0cogl?7

PO
LWN

062701

000200

—

000017

003416
00s420

38:

-(SP)

:DUMMY PRIR

#17. -(SP)
87, -tsP)
Rl
s1i2.

BLO

87 -(SP)

86, R2

(R4, ,R1

A0D
CMP
BHI

#15.,Rl
(RY).R1
2s

SUB
DEC
BEQ
A0D
BR

#15. Rl
Re
4s
#128. Rl
1%

MOV
MOV

(SP 1+ ,R2
(SP,+,R!

BIS

000002

; SAVE R1 THROUGH PR3

MOV
MOV
MOV

CMP

{ERROR RET

R1,-(SP)
R2,-(5P)
- (5P)
R3,

-5P)
-(5P)

MOV

;R4=POINT TO CYLINDER NUMBER

:NORMAL RET!

CLR
CLR

MOV

[Te

“J\J\Ja\l\l\l\l‘l\l\l\i‘l
EBBUKRLEREDS

LAV IAVIAT LAV I VIV oV g Vg T VIV g V] 5N
11

C RM03/2 DR CPT_TST
.Pl1
28-NOvV-77 09:42

MACY11

#8IT1,R3

:ERROR FLAG

;DUMMY PARIR

; ZONE STARTING ADDRESS
:SEGMENT NUMTMR
:20NE_STARTING ADDRESS
: SEGMENT NUMSER
:R1=ZONE STRRTING RDDRESS
:R2=SEGMENT NUMBER
iCYL IN THE ZONE ?
{BRANCH IF NOQT
:CHECK WITH THE UPPER BOND
:CYL IN THE ZONE
:BRANCH_IF NOT
iSET THE ERROR FLAG
;RESTORE TO_THE LOWER _BOND

OECREHENT THE SEGHENT COUNT
;ALL

SEGMENT

CHECKED

*ADJUST ZONE STARTING ADDRESS
:LCOPING BACK UNTIL ALL SEGMENTS ARE CHECKED
;POP THE NEXT SET CF 2ZONE PRRRAMETERS

CZRMIBO RM03-/2 DR CPT TST
e8-NOv-77 09:42
CZRMIB.PI1I
2784
278s

00S4ee
00S42a4

2789

00S43e

£2

MRCY11

DOSH4Y4%
£OS4S0
00S45SH
005456
00S460
005462

000205

005464
005470
005474
00S476

104401
104401
000000
000137

HOS

_PRGE 60

BNE

é’

annncnpxrnnor

c§:

c:g

égw;,nsao.

on CYLDER 620 *?

000002

X¥

1S
757
BNE
ADD
MOV

$8IT1,R3
R3
4 3
82, RS
(SP)+,R3

sev ERROR FLRG
RNY ERROR ?
YES
no:usv FOR NORMAL RETURN
'RESTORE R3 THROUGH Rl

000002

RTS

JEXIT

ENDX1:

B&BNEH B nor

ARE
GCO1154

:DUMMY PRIR

157

BBed3k L

438

10:00_

GET VALUE FOR SOFTWARE SWITCH REGISTER

00S70e
0013SS

DQSH4Y

28-NOV-77

30(1046)

MOV
MOV

(SP)+ Re
(SP)+,Rl
,SCRLF

TYP

'MESGel

IMP

28200

HALT

;

DRIVE NOT ONLINE OR NOT RSSIGNEC

TEMP HALY FOR DEBUG

:RESTART IF DESIRED

3 AT

= OO JTINLULINV—-O

NNUBHHUNHMMUN
00 0D 0D (DD (M m
@

THE FOIIOWING CODING FOR TEST | THROUGH TEST 4

PRRQHETER IN

oF&ogxan DRIVE BLOCK
Sgggg%gg
0-17

R,LVBT L ron
LOGICAL DRIVE 8

EVM
’0

aSCet :

&vS-NAM

SCDNE DRIVE RRE ONLY CHANGED IN TSTI DU ING PRSS |

:§DEVM, ASSGN1,SCOW] RARE CHANGED BY THE TEST 4

2822

:TST 1:DIRECT OPERATOR TO MOUNT AND LORD PRCKS

CEEERREERERERRS AR

000004

e T B
001270

002e0C

00lie7o
000014

Q01272

t&T1:

SCOPE

nov
MOV

TR
RPN ERERERERERFARRRRRRERERRERARERERRAR

af BHES
-sfncx SP

°NUMBER
'£88011§EE§Q5*
IZE THE STACK POINT
"INITIAL

*ogxch ?vas o)

3gou1,BLKADR

MOV

s§vsnh<ax> scoue’*SEILLEO?TTHE SAME SYSTEM °

£G

ggze

$COW1

‘R1= Locxan DRIVE BLOCK ADDRESS

SEQ 00S9

c<RMIBO RMC3-2 DR CPT_TST
L‘R IB. Pll
28-NOv-77 09:42

116137
012777

2840
2841
2842
2843
o844
284S
46

MACY1l

GET

000014
013560

28-NOV-77

MOVB

18:

TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

"MESG3
'§CRLF

;#%

"MESG]

1SUB-SYSTEM

MOVB
TYPE

{R1),DRIVE
,SCRLF

:LORD THE PHYSICAL DRIVE 8

TYPE
MOVB

$COW2
ORIVE, - (SP)

: SYS-NAME
:THE PHYSICAL DRIVE #

BYTE
.BYTE
TYPE

2
0

TYPE
TYPE

" SCRLF
'MESGS

CMPB

#'R, (RS)+

TYPE

—

NN~ L £ £
oo

el g oy oy
e
lad e

W NNWN

3s:
4s:
TEST 2

"MESGE

STARTING PASS

: ON--

. §COW2
LINSP

‘R

T MESGY

TOH

:MOUNT

LINSP

MESGS8

PACK

THE ORIVE

:AND LOAD

(SP)+,RS

:LOCATE THE READIN LINE

: IF NOT

'CHECK IF 0.P. RERDY ?

BNE

:BRANCH IF NOT

BIC
DEC

#177760,R1
R1

'LEFT ON4 BITS
:ADDJUST THE INDEX VALUE

(RS)

:NOT CORRECT INPUT LINE FORMAT

$CDW2, R1

ggt

MOV

SYSRDR(R1)

'LOCRTE THE SYSTEM RDDRESS TRBLE
‘FOUR WORD INDEX VRLUE
,RMADR

;LOAD THE SYSTEM ADDRESS

MOV
JSR
MOV
MOV
MOV

SYSADR+2(R1),RMVEC’ {LOAD THE SYSTEM INTERRUPT VECTOR
PC, RMINIT
“INYTIALIZE T.'€ SYSTEM
o-l,snvsrc
: SAVE nLL RH/k¥ REGISTER
-1,SEEKFG
!DON’T DO ANY MPLY SEEK
oaxvs RO
‘RO= PHYSICAL DHIVE

BLE
TSTB
BLE
BR

48
DRVTYP(RD)
48
TST2

: BRANCH IF NOT
:AN RM0O3
'BRANCH IF NOT AN RMO3
'ALL DONE PROCEED TO TEST 2

tsT1

:TRY AGAIN

TSTB

0e3410

,SCRLF

BNE

MOVB

0e3400

ooe01le

RDL IN
MOV

1578

023466
023470

;LOAD THE NEW SUB SYSTEM NAME

,kessT THE INTERRUPT VECTOR
iCLEAR THE INTERRUPT LEVEL

TYPE

023526
023530

SSYSNM(R]),$CDWE

SEG 0060

#IDLEX, IRMVEC
SRMVEC+2

TYPOS

2s:

10:00_

MOV
CLR

TYPE

035657

I0S

_PAGE 6l
VALUE FOR SOFTWARE SWITCH REGISTER

30(1046)

TYPE

DRVSTA(RD)

MESGIO

*ON-L INE

:DRIVE NOT REARDY

ansxc READ AND WRITE TEST :ALL LOGICAL DRIVE RCCESS CYLINDER 620
:AND SECTOR RDORESS 1S COORESPONDING TO THE LOGICAL DRIVE &
_
‘EACH LOGICAL ORIVE PERFORM WRITE AND WRITE CHECK ON ALL FIVE SJURFACES(TRKO - TRKY4:

CZRMIBO RMC3/2_DR CPT_TST

CZRMIB. P11
2896

2897
2898

2899
2900
2901
2902
2903
2904
2905
2906
2997
2908

006014

006016

28-NOV-77 09:42

000004

012737

012737
012706
012700
013701
113710
013760
006060 012760

006024
006032
006036
006042

000001

2914

2915

23916

037760

006136

005737

006134

006142

774

001174

000002 001336
00.100
037760
001270
.
001e22
001266 000010
001154 000012
000004

001775

2923

2924

006174

DO6176

000774

037776

006200
006204
0062
006212

005737
001775
012700
004737

006224
006232
006236
006o4d
00646

112760 000161
105260 000011
122760 000005
101330
000407

2937
2938

006254
006260

104401
104401

2939
2940
2941
2942

006264

104401

000000

ys:
S8

037760

013566

005760 000016
006216
006222 100412
006250

000002

037760

2925
2826
2927
2928
2930
2931
29
2933
2934
23935
2936

3s:

037776

2917 006144 012700 037760
2918 006150 004737 013566
2919 006154 D0S57?60 000016
2320 006160 100433
2921 006i62 112760 000151
2922 006170 004037 024272

001205

037171
037152

JO5

000002
000011
68:

SCOPE
MOV

#1,$TIMES

;500 1 _ITERATION

MOV
MOV
MOV
MOV
MOVB
MOV
MOV
MOV
MOV
MOV

:(0AD TEST NUMBER
82’ TSTNM
SINITIAL THE srncx POINTER
sStack,sp
:DPB BLOCK RDDRESS
sFNTOPB, RO
:ADDRESS OF THE LOGICAL DRIVE BLOCK
$COW1, R}
#
'PHYSICAL DRIVE
DRIVE, (RO)
SDEVM. S$SEC (RO) LOQD THE sscron o rnon THE LOGICAL DRIVE NUMBER.
#620. SCYL(RO) ;L chINoeg
8-256. , SWROM(RO) " ;LORD NEG WORD counr
BUFFER ADDRESS
$BUF (RO) :LOARD
uenopcfi
:ADDRESS TO SAVE ALL RH/RMO3 REG'S
8RM.REG’ 14(R0O)

JSR
JSR

PC,FILBUF
RO, RMO3

:BRANCH IF NOT QUEUE SUCCESSFULLY

BEQ

CLRB
MOVB

FMTDPB

157

. 8TART rnon TRACK O COMMAND
STRK (RO}
RITE DATA
ounronf $COMND (R®)
WITH STANDARD PATTERN
SFILL rHt BUFFER
FMTDPB+16

:CALL THE DRIVER

MOV
JSR
157
BMI
MOVB
JSR

:RO=FMTDPB RDDREES
sFMTDPB, RO
:CHECK THE Tsnnxnnrron
PC Pnocess
'ERROR FLAG SET 7
16tRO
'BRANCH IF SO
68
SLWCKD . SCOMND (RO) ' : CHANGE TO THE WRITE CHECK DATA COMMAND
:8LLL THE DRIVER
RO, RMO3

. BRANCH IF NOT DONE

;BRANCH IF NOT QUEU SUCCESSFULLY

I57

1stR0)
68

anc se
ERROR
: BRA %

FMTOPB

TST
BEQ
MOV
JSR

FMTDPB+16
5§
ornrope RO
PROCES

: DONE
aannca IF NOT DONE
PROCESS IF ANY ERROR HAPPENS °

BMI
MOVB
INCB
CMPB
BHI
BR

nunronr sconno<nb) RESE 10 unxrs DATA COMMANG
:INNEREFENT TO THE NEXT TRACK
STRK (RO}
*ALL TRACKS DONE ?
5. STRK(RO)
NO
28
'BRANCH TO NEXT TEST
1513

TYPE
TYPE

"HALTL
"HALTX

TYPE

HALT

,SCRLF

2943

; TEST 3

294¢E

2947

iWRITE & ZONES ron READ TEST IN PRSS2
: SDEVM
GICAL DRIVE
&
noonsss OF LOGICQL DRIVE HISTORY BLOCK FILE
:§COW] -

2953
c9cl

(PACK
iCMCNT

2944

294E

294e
2949

SEG 0061

PAGE &2

!lillll!l{lllllllll!lllillllliIlllllllllllill!lli!!!iliilli§§§i

+472:

012769 177400
012760 040074 000006
006074
0N06102 012760 040000 000014
006132

10:00

GET VALUE FOR SOFTWARE SWITCH REGISTER

105060 000011
2909 006110 112760
000161 000002
2910 006114 004737
015162
006122
2911
2%:
2312 006126 004037 024272
2913

28-NOV-?7

MACY1l 30(1046)

qurE ZONES FOR WRITE TEST IN PASS 2
;SCOWR
:DRIVE

NAME
SYS
PHYSICAL DRIVE # OF THIS LOGICAL DRIVE

ENTRY OF TRBLE-D
ZONE COUNT

0 _RMO3/2 DR CPT_TST
.Pl1
28-NOv-77 09:42

MACYL11l

KOS

30(1046)
28-NOov-?77
10:00_
_PRGE 63
GE T VALUE FOR SOFTWARE SWITCH REGISTER

; CMSEC
RY
;RO

F8222208
8
e (D O
O
NN WU

#1,$TIMES

83 TSTNM
sStacCk,sp
8L 0G0, RY

e s e et Pt s e

WWLN
’—U\ONSO"
W
NOn
— 88 \J; NNNN
o
nwn BRE22EEE 58

£
W
~N

SOEVM. RO

001266

816.,RY
RO

2s:

R4, PACK

000004

002702
000006
000400

18:

000002
000006
000014

39:

i
000012

0c4e272

037776
037760
013566
000C1e

;00 1

ITERRTION

‘Lon THE TEST NUMBER

SINITIAL THE STACK POINTER

: RDORESS OF neLE-D
IVE
*LOGICAL
"BRANCH I Loc.xc L DRIVE O
‘EACH LOGICAL DRIVE TRKES 15 BYTES IN THE TRBLE
:DECREMENT THE DRIVE 8 COUNT
BRQNCH UNTIL THE ENTRY IS LOCATED
TRBLE-D ENTRY

HE FMTDPB BLOCK

IN PACK

nooaess Of FMTDPB
8FMTDPB, RO
PHYSICRL ORIVE NUMBER
DRIVE, (RO)
sWRTDAT, SCOMND
(R
0)
WRITE DATA COMMAND
SENOPGM, SBUF (RO
BUFFER’ ADDRESS
8RM.REG 14 (RO) hoonsss TO SAVE ALL RH/RH03 REG'S
#-256. , SWRDM(RO)
:NEG WORD COUN
:LOGICAL 'DRIVE &
soevn, R1
:WORD INDEX
pssuoo<n1) RY
'LORD THE DATA PATTERN
seur(905,R2
'BUFFER nooasss IN R2
:POS WORD COU
256

RY (Ré)+

SFULL THE BUFFER WITH SIGLE WORD PATTERN

R3’

:DECREMENT THE WORD COU
:BRANCH,UNTIL IT IS FULL

-(SP)
-(SP)
#6 . -(SP)

;DUMY PAIR OF ZONE
C

001360

1004¢€3

DELTR CYLINDER COUN
ENTRY POINTER_OF TQBLE D,CANNOT BE DESTORIED.
RDDRESS OF FMTDPB

000643000 3 033000 36 3 3 36 08 3% 36 06 3% 3 00 3 3 36 08 36 36 3 36 3 3% 30 06 3% 36 36 9% 36 36 3 36 3 3 36 36 3 0 38 3% 30 0 3 30 0 24 2% 0 3% 9 %

tira:

001352

00642

SEG 0062

sli2. 7-(sp)
87CMENT
cméyL
816. . CMSEC

.rnrbpe RO

cncvt SCYL(RO)
$TRK (RO)
(R4)

SSEC(RO)

RO, RAG3

78
FMTOPB+16
8%
8sFMTDPB, RO

PC,PROCES
éetnc

:DUMY STARTING CYLINDER NUHBER
; ZONE_COUNT
iSTARTING CYLINDER NUMBER
;i ZONE COUNT
;STRRTING CYLINDER NUMBER
OELTR CYL INDER NUMBER
DPB RDORESS
NTRY TO TRBLE-D

STR TING CYL INDER
:STARTS FROM TRACK O
:LOAD SECTOR NUHBER FROM TABLE-D
;CALL THE ORIVER
gRQECH

QUEU

IS NOTSUCCESSFUL

iBRANCH IF NOT
; PROCESS

TO CHECK

{ERROR FLAG SET °
:BRANCH IF SO

IF RNY ERROR

CIRMIBO RMO3,2 DR CPY TSY
CJRMIB.PI1
28-NOV-77"09:42
3008

006544

062760

006562

111460

3009
3010

006552
006560

3012
3013
3014
3015

006566
006572
006
QOb6

3011

3016
3017
3018
3019

006606
006bl2
006614
006620

000020

122760
103353

000037

|
8
122760
103343
105060

000011
00000M

005260
005204
005337
001331

3020
3021

oossgg
0066

062760
016037

3023
3024

006642
006644

001304
012637

206650
006654
006660
0066be
006666

012637
005737
001275
005737
001272

3031
3032

006E70
006672

000407
104401

3035
3036
3037

006706

000000

3033
3034

006676
006702

104401
104401

000010

0C0OOLI

000011

000012

000160
000012

000012
001354

001205

9% :

037240
037152

CMCNY

CYLINDER NUMBER
TRBLE-D ENTRY
THE
DELTA CYLINDER COUNT
NOT END OF THIS BLOCK

Incnfnznrrue CYLINDER NUMBER TO NEXT ZONE
THE srnnrxnc CYLINDER IN THE BLGCK

oecnemm on;

MOV
1ST
BNE
TST
BNE

4yg
(5P)+,CMCYL

(SP)+.CMCNT
cMeyL’
M ;
CMCNT
4s

nor sno OF ZONE
Lono NEW PRIR OF STARTING CYLINDER
N?
ONE COUNT
'NO
YET 2
annucu IF NOT
:BRANCH IF NOT END
:LOOPING BACK

BR
TYPE

TSTH
, SCRLF

:BRANCH TO THE NEXT

TYPE
TYPE

HALT

000004
001100
013560
014566

3063

006750
006754

104401
104401

036001
001272

006712

006744

006760

006764
006766
006767
006770
006774

007000

007004
007006
007012

000004

012737
012706
012777
005077

30el
3062
30e2

8112.,8CYL(RO)
$CYL (RD),CMCYL

: INCREMENT
: INCREMENT
;
DEC
NT
:BRANCH
IF

TEST

'HAL
T2
,HALTX

,scoua.onlvs ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TESTI

00720
006726
006732
006740

3060

CYL (RD)
RY
CMSEC
6$

gaggs §e$

:DIRECT THE OPERATOR TO DISMOUNT PACK AND LORD TO OTHER DRIVE

3047
3048
3049
3050

3057
3059

aSEC(RO)

:UPDATE THE PARAMETERS, $CDW1,SDEVM, ASSGNI

006710

3055

Nt
To NEXT TRRCK
Lnsr TRACK ?
:NO, THEN BRANCH
'REST
10 TRACK-0

(RY)

s TEST M4

3045

3054

STRK
LRO)
#4. , STRK(RO)
78
TRK (RO)

BNE
MOV

38:%

3051

INCB
CMPB
BHIS
CLRB

DEC

001352

TWO SECTORS ON ONE CYLINDER

;ALL o«e-ruo SECTORS
ennucu IF
N

ADD
MOV

001354
001352
001354

;WRITE

#31. §SEC(RO)
é

INC
INC
DEC
BNE

001360

#16.,8SEC(RO)

SEG 0063

CMPB
BHIS

MOVB

3833

304

ADD

000010

3038

3043
3044

LOS

30(1046)
28-NOV-77
12 00
PARGE &4
GET VALUE FOR SOFTWARE
SWITCH REGISTER

000010

3022 006636 005337 001352

3025
3026
3027
3028
3023

MACTIL

012737

104401

013746

104403
002
000
104401
104401

012701

005002
020237
COI404

000001

001i74

+&14.

001336

014570

001205

MOV

TYPE
TYPE

'MESGl2
$CO

TYPOS
BYTE
BYTE
TYPE
TYPE

000001

MOV
18:

TIMES

ow STNM
sstack, sp
oxong SRMVEC
SRMVECI2

MOV

036604
036017

IR NN E RN

MOV
MOV
MOV
CLR

TYPE

001222

00126&

SCOPE

CLR
CHP
BEG

, SCRLF

RN EREERRERREERREEERRREEREERER

::D00 1

ITERATION

tono THE TEST NUMBER
:LOAD THE STARCK POINTER
;RESET THE INTERRUPT VECTOR
iCLEAR THE INTERRUPT LEVEL

BRIVE, -(SP)
2
O
,LINSP
MESGL3

ki,
RI

R2
R2, SDEVM
23

:LOCATE THE COORESPONDING BIT MAP
;BRANCH IF LOCATED

CZRMIBO RMO3-/2 DR CPT T1ST

CZRMIB.P11

3064

3065

28-NOV-77 09:42

007014

007016

382?
fig ?

mgi
4 002000

3'“7’7

007056

3080

3878

010237
owngé
01
1227;5

2064 fié?;g

002600 001270
001266

2s )
3s:

y§:

000122

?3‘6

83785
8887 oorioe
007102 000137 005502

5$:

3090
3091

% 007106 005737 002002

;LOCATE NEXT DRIVE

;lzs
é ASSGN1

Ngmgqgugnocxcm.
DRIVE FOR PASS 1
N§ ngfif DR} §§

R2, SDEVM
(SP)+ RS

? u; NEW Locxan ORIVE #
unx g« IE }T x§

3'n (RS) +

BNE

(35)

rznnxmron ?

e
IMP

RBasse
1ST1

ngnfi
¥E2
JUflP T0 rssr 1

:GET NEXT LOGICAL DRIVE »

LOCRT

NPU

LINE

ennucu IF NOT

552
SeORI-

ZE FQR PAS
E
ABBREeL 26, ?fis 3RE~¥ COGICAL DRIVE HISTORY FILE

*ASSGN2
:
:ASNLST :

{RED oé?“kt.
3xvs rga PASS2
Locxan

XPRSS2: TST

RSSGN2

:DRIVE

3095

SEG 0064

cnoe

MOV
ngun
MOV

28855 ;

3092
3093

PRGE 6S

WORD TNDEX
Bb KADR(R2),$COWL"i|RESTORE
' 48R0 THE NEW DPB RDDRESS

3089
385

10:00

$laRc
@
NC
QSL
nek

?s‘.a

1371

ggg

28-NOV-?7

GET VALUE FOR SOFTWARE SWITCH REGISTER

cLC

006101

30;1 Q070
979
BB7B3% D062
BAesd?
007046
%;832
4

30(1046)

00024l

3074

MACY1l

MOS

2 RRENT i
Cos THgguve% 0 TO IS

PHYSICAL DRIVE # or cunnsm RH/RM SYSTEM

s ANYTHING m resr FOR PASS 2

P99
07i1e
oiee
‘
1
2144
35
Bidskd
18:
3101 007124 013737 002600 001270

ONF
CLR
MOV

XEND
SBER
ELKROR, SCOW!

I8
e
fae
1
7is4
01

W
MOV

BEMAen
(LR
SEIE
S Loy
$COWI,R1
:R1=RODRESS
OF LOGICAL BLOCK

3}02

oo;{‘a’e

1{2737

000101

3106

007160

104401

1270
001205

007164

00S037

001374

31%
gi?g

3{{1

007170

000400

001272

;

2039
TYP

TYP

CLR

o;n scOu2

YES, THEN
%W‘
?RSH
LchCRL oRIVEO
RDORESS OF
LOGICRL BLOCK DRIVE O

Lono SYSIEM NAME

S To

DRIVER

"E
RL#

sfi;w. STARTING PQE?

rsrs

“RESSET THE NOT COMPRTIBLE FLAG

:BRANCH TO TEST §

3115

:$COW] :

nooasss
OF CURRENT LOGICAL DRIVE BLOCK,ONLY CHANGED BY TST9

3116
3119

e
Eog?vs E

gggnemowcxcm.
ORIYEeTMs BIT MAP FOR PRSS 2
é?"fil. 3? E

3:19

:IN TEST S omew opsnmon TO CHANGE,LORD THE PACK

3114

3118

:§COW2

TASNLST

YSTEM-NAME

JONLY CHANGED BY TEST S

SIGNED Locxan DRIVE IN THE TEST

—

007172
007174

0072
00721

007214
007222
007226
0072

28-NOV-77 09:42

000004

000001

061174

012777
005077
013701
137

013560
014304
001270
000014

014306

812737 000005 001336
1100
12706

005300
042700

007264
007266

006300
016037

006300

002006
001205
036072

007316
007322
007326

104401
104401
111137

035557
001272
001222

007334

104403

007344
007350

104401
104401

007336
007337
00734C

007354

007360

007362

007364

007370
007372
007374
007376

007402
007410
007416
007422
007426
007430
007434
007436
007442

007446

0074€2

111146

104401

035620

000122

004737

023544

012737
012737
013700
1065760

003405
105760
003402
000137
104401

104401

000647

001272

ASL

023526

023530

i 18:
:
is:

MOV

177777
1777277
001222
023400
001205

03SES?

3s:

::00 1 _ITERATJON

:(0AD THE TEST NUMBER
:LOAD THE STACK POINTER

:RESET THE INTERRUPT VECTOR
!CLERR THE INTERRUPT LEVEL
*ADORESS OF THE HiSTORY FILE
$COWI.R]
. ON Tusn?nng SUB-SYSTEM
S;YSNfi(Rl),SCDHZ
oIDLEX' 3RMVEC

SRMVECS?

1
$CoiW2, RO

§< 1SNM(R1), SCOW2

RO
8177760, R0
RO

s THEN DON’T UPDRTE SYSTEM ADORESS
:LOCRTE SYSTEM ADDRESS TRBLE

:ADJUST FOR INDEX FORM O
:LEFT ON FOUR BITS

: INDEX FOR TWO WORD
RO
YSRDR(RO) ,RMADR ' ; SYSTEM nooa;ss

vSADR+2 (RO) , RMVEL égvsrsn }n ERRUP VECTOR

, SCRLF
"MESG1Y

;RESET THE INTERRUPT VECTOR
'CLERR THE INTERRUPT LEVEL
;START THE PASS 2
:

"MESGY ;MOUNT PACK ON DRIVE
SCOM2 :SYSTEM NRME
:LOCATE THE PHYSICAL DRIVE #
tRI),DRIVE
(R1).-(5P)

.BYTE
‘BYT
TYPE

2
0
CLINSP

TYPE

; TYPE R<CR> WHEN DRIVE IS RERDY
;LOCATE THE RERD IN LINE
(SP)+ . R2

RDL IN

MOV

"MESGB
"SCRLF

;AND LORD

'MESGY

#°R, (R2)+

'FIRST CHAR IS R “R"

BNE
1578
BNE

2s
(R2)
2s

*BRANCH IF NOT
'FOLLOWED BY A TERMINATOR
:BRANCH IF NOT

MOV
MOV
MOV
1578

s-1,SAVEFG
8-1 ) SEEKFG
DRIVE, RO
ORVSTA(RD)

:SAVE ALL RH/RM REGISTERS
:LORD THE PHYSICAL DRIVE NUMBER
'DRIVE EXISTS AND ON-LINE ?

JSR

023470

85’ TSTHM
#5tack, SP

' SCRLF

CHPB

023466

81,STIMES

TYPE

TYPE
TYPE

2s:

RR R RN R R R R RN ERERRRRRBRRRRR B R RS RN R ERRRRERERER R

8IDLEX, ORMVEC
SRMVEC2

MOVB

023410

007454

PAGE bE

MOV
CLR

TYPE
TYPE
MOVB

035605
001205

(22722

001373
106712
001371

BeEQ
MOVB
MOV

TYPOS

036604

012602

MOV
CMPB

001272

001205

062
000
104401

104411

MOV

CLR

002004

104401
104401

007332

MOV
MOV

ASL
MOV

007302
007306

104401

scoPe

MOV

DEC
BI¢

016037

007312

t815.

177760

007274

NOS

GET VALUE FUR SOFTWARE SWITCH REGISTER

012737

007264
007266

10:00

28-Muv-77

e B RABESERER R

1420
00724
007242 116137 000014
007250 013700 001e?2
007262

MACYIl 30(1046)

BLE
1578
8LE
IMP
TYPE

TYPE

PC,RMINIT

3s
DRVTYP(RO)
3s

TST6

,SCRLF

:CCH"T DO IMPLY SEEK

:BRANCH IF NOT
*AN RMO3 ?
INOT AN RMO3
!BRANCH IF IT IS, (NEXT TEST)

MESGI0 ;DRIVE 1S NOT READY

S TRY AGAIN

ts78

R E ORI G S QTR PN B 55 S H £5H 5 2BURRZERBIZVFREORNTS Be

.P1l1

A EORS SR L

W W LWL WV LW WL W W W DWW W Wt W W W I W W WWW W W WW W WW WL W WWWWW WWW WL WWWLWILWIIW gg
¢

0 RMO3/2 DR CPT_TST

SEG 006S

BO6

CEQ 0066

-3

30(1046)
28-NOV~-77
10:00
PARGE &7
GET VALUE FOR SOFTWRRE SWITCH REGISTER

;DRIVE

;SCOWL

;RMRDR

; SOEVM
;SCOWE

Pt et et Pt Pt Pt Pt Ps Pt

5&%%%%%8 Sogass
0oL soRREERREOR

s
e Bt P

MACY11

NINNIN)

WWWwWWwWwWwWwwWwwWwwwww z
I

OO
[&)
0

0 RMN0O3-2 DR CPT TST
.Pl1
28-NOV-77 09:4¢

;RMVEC

; THE ABOVE PAR

PHYSICAL DR
V; NUMEER

DPB BLOCK HIS LOGICAL DRIVE
LOGIC
SUB SY H

TEM ?fl?i
REGIST R QDDRESS
TEM

;RS CANNQY BE MODIF1ED BY THIS TEST

(TSTe)

: THE FOLLOHING 'S ARE RSSIGNED RS:
RO
gg 8; ?PB FEEDED INTO DRIVER HANDLER=FMTDPB
HE HISTORY FILE BLOCK

OF THE LOGICAL DRIVE=SCDW!

Bt P

:R1

WWwwWwWwwwww

Pt Pt s Pt P

:IN TEST b,ERCH LOGICAL DRIVE WRITES ? CYLINDERS ON EARCH SURFRCE WITH

; AN UNIQUE DATA PRTT?RN.
THSSE 7 CYLINDERS HARS BEEN
;WRITTEN
BY OTHER DRIVES IM
PRSS 1.
; THEN, THIS LOGICRL DRIVE EXECUTES “WRITE CHECK DATRTM TO SEE

Pt Pt

W
n

s Pee Pt § o

Pt Pt

RRR AR R
AT Bam VO"U\&(JN’—O8 SRRZER2

Pt 8t Bt P

;Bg{gEEOGICRL DRIVE CAN OVER-WRITE ALL DRTR KRITTEN BY OTHER

; THESE
7 CYLINDERS RRE

SPECIFIED RS SDEVM, SDEVM+128,SOEVM+256

: SOEVM+384, SDEVM+512, SDEVM+640 AND SDEVM+268.
: THE OVER-WRITE

007454

00748k

007464
007472
007476
G07506

007510

000004

012737

012737
012706
012703
12704
3

0000CI

000006
001100
002046
002306

001174

007520

013701

001270

007556
007564
007572
007576
007600

812750
012760
013702
oosggg
016

0674
0000
001266

007604
007610
0076:4
007€1e

016003
012704
010223
00S304

000006
020000

$&T6:

001336

18:

020403

601;75

007524

SCOPE

MOV

IN BOTH DIRECTIONS.

001222

TEST NUM
xn an THE S ncx POINT
0 CLEAR
nsr
2%‘

CHP

RY,R3

nu. LOC

MOV

SCDOM., , nl

HISTORY FILE BLOCK

CLR

002702
2s:

(R3)+

#FMTDPB, RO

£SET

IONS ms CLERRED ?

3nnnnsvsa BLOCK

MOVB

onxvs

MOV
MOV
MOV
ASL
MOV

SENOPGM, $BUF (RO) Eong
THE aurgs RDDRESS
#RM.REG. 14(RO)
;R
SAVE RDDRESS
SDEVM, R2
:LOCATE THE DATR PATTERN
Re
!WORD INDEX
PSEUDO(R2) ,R2
5999125THE DARTA PATTERN POINTED

MOV
MOV
MOV
DEC

$SUF (RO) ,R3
88192, R4
R2, (R3)+
RY

MOV
CLR
MOVE
MOV

000006
000014

oo 1 xrsnnrxon

os,rsrnn
#S*RCK, SP
sOVWNQ' R3
SRONO, RY

MOV

00;230
27
0000 000004
007836
10
007842 li27
06016 000002
007550 013760
1266 000GCle

.S$TIMES

MOV
MOV
MOV
MOV

BHI

012700 037760

113710

IS PERFORMED WITH OFFSETS

cRRERBERABBPPRBERRRBERRBRERBFERRBRERREREERERRERRERRSRRRERSREE
TR ERELY

007512

007514

TEST

H;
PHYSICAL DRIVE #

193 R 98°° WORD COUNT
ss 95
st rngn RK0, SECO
sLRTDA SCOHNO(RO)
TR COMMAND
SOEVM, §CYL(RO) LonbTHE STARTING CYL INDER

'BUFFER ADDRESS
'WORD COUNT
‘FILL THE BUFFER
:DECREMENT WORD CTR

O RHOJ 2 SR CPT TST
NOV-77 09:42

00?620

CO6

BNE

001375

0cu4e7e
037776

BRRNCH IF NOT DONE

SUBIIOSHRUIEC
O ELOREe

3s.

RO,RMO3

4s:

38
F;TOPB#I&
sFMTDPB, RO

037760

Pgtpnocts

8688"2

Re3:%8
070011

i
00001
000200
OCi4i?

SEG 0067

MACYLL 3QL40U
e PR
R) oF Turkl BR1rEAREB
s eR

ces:

amIng T

::{
géeérc
STRK(RO)
S

85, STRK(RO)

3s’

STRK(RO)
#128.,SCYL(RQ)

gocQie
0oocle

5;83» SCYL (RO

SLL TH%OSS 7 ZONES ON ONE PACK)

PQRQHETER BLOCK
:BRANCH IF QUEUE FAIL
IWRIT COHHRNO DONE ?

IF nuv ERROR
PROCEES
;ERROR FLRAG SET 2

.BRANCH IF NOT

; INITIARL THE DRIVE
; NEXT TRACK

;LAST TRACK IS DONE ?
:NO, THEN BRANCH
{RESET TRACK NUMBER
TO NEXT ZONS
iMOVE
;LAST ZONE IS DONE ?
{BRANCH IF NOT
;RESET _THE FMTDP8 BLOCK AND

EX CUTE HRITE CHECK COMMAND
TECT

THE

ANY

OLLOWING

COMPATIBLE PROBLEM

SUBROUTINE RRE CALLED

Ja3

Bnonn

037776
037760

00001e

023466
023470

;SET _NEGATIVE OFFSET DIRECTION FLAG
RT FROM
R?nF"Y

33 52

LOOP2:

33R NUMBER
0, SURFACE O

N&SS ON ONE SURFRCE

?-SGECK DATA COMMAND
;
FER flDORESS
SENDPGM, $BUF (RO)
; ADDRESS TO SRVE RH/RMO3 REG
#RM.REG, 14(R0)
$WCKD,

SCOMND (RQ)

19:

RC, RMO3’

2s:

18
rnrope*xs
2s
$FMTDPB, RO

P,|
PERLHS
?fRO)

817758
023544
127277227
1722777

$SEC (RO

SOEVM, SCYL (RO)

000012
000002
000006
000014

OFFCOD
8FMTOPB, RO

grar

LOOP1L:

o000

[ ¥ =]

£
pd

Pt Gt Pt Pt
P

[o]e]

s Pretcs Pt Pt Pt Pt Pt Pma

00000000000 OSO

888
£e8
888
80
o8 i
R AR

N
~
W
£

:SCORE, OFFST, MAKELP.

pc RMINIT

s-1, SaverG
g;x' SEEKFG
cgssc,svnnsc

CMSEC

S&MFERDSLK RDDRESS

BRQNCH IF QUEUE FRILURE
XF c

1S DONE 7

THt PRRRHETER BLOCK RDDRESS

R8C8$E égflgqyfls
RND ENDING SECTORS

RNY

?RRN?
NITIAL

THE SYSTEH

; NOT UPDATE THE SCORE

'CN THE SAME SECTOR FOR STARTING AND ENDING
!DON’T INCREMENT SCORES
:DECREMENT THE SECTOR RDDRESS

CZRMIBO RMO3.2 DR CPT TST
28-NOY-77 09:42
CIRMIG.PII

3288 010062 004737 010724
3289 010066 005760 000022

D06

290 810 72 001407
010074 116060 000J26 000010
9]
3292 010ioe 016060 000022 000004
ggga 0i0110 000733

3%:
us:

JSR
157

BEQ
MOVB
MOV
B8R

PC, SCORE
SRAMWC (RO)

3295

s THE FOLLOWING CODING TEST THE

:COMPATIBLE PROBLEM IN OFFSET MOOE
: OFFCOD=0, NEGATIVE ;OFFCOD=1 ,POSITIVE

3297
gggg

S§:

MOV

O40074 000006
3303 010130 0127
3304 01013 012760 040000 000014 68:
3305 010144 004537 010354
3306 010153 000443
3307 010152 004737 010606

MOV
MOV

0.0112

012700

037760

3301 010116 012760 160000
3302 0i0iaM 105028 000010

3208

(10156

005737

037776

3311

O01CleM

012700

037760

3317
3318
3319

010212
010220
010226

012737
Gl2737
000414

1777?77
177777

010230 004737
010234 005760
010240 001407

010724
0022

gggg 010162 00177S
3312
3313
3314
3315
3316

3320
3321
3322
3323
3324
3325

010170 004737 013566
010174 004737 011144
010200 005760 000016
010204 100011
010206 004737 023544

0O0COO4

7s:

023466
023470

3328

3331

3332
3333
33349
333
3336
3337
338
3329
3390
2341
g;:g

010256

010260
010266
010274

010276
010302
010310
010314
010322
010324
010330
0106334
010336
010344
10350

000732

062760
022760
xoawo;

000137
013760
105260
122760
101402
000137
00S737
00109
012737
000137
000137

000200
001417

007756
001266
000Gl
000005
007756
002640
000001
007740
01leso

000012
000012

10$:

000012
00001!

11%:

JSR
BR

RS, OFFSt
10¢

JSR
737

BEQ

002e40

MOV
MOV
BR
cMP
BLOS

OEC

JSR
157
BEQ

MOVB
MOV
BR

ADD
CHP
BLO

12%:
13%:

.RESET THE DPB BLOCkK

2-8192. ' SWROM(ROS FULL TRACK WORD COUNT
sRESET TO SECTOR 0,SURFRCE NOT CHANGED
$SEC (ROS

JSR
ISR
15T
BPL
JSR

:
:
:
g3,
CI

sFMTDPB, RO

MOV
CLRB

MOV

000010
3326 010242 116060 000026
3327 016250 016060 000032 000004

3329
3330

: INCREMENT scons

:WORD COUNT =
ennncu ; 9 8COUNT 1SO
33
ARTING SECTOR
uPbA
, $SEC ( 0>
MDA (RO)
SRMWC (RO) | SWROM(RQ) uponrs uono COUNT
. TO RERD THE REST SECTORS
18

3296
3300

SEG 0086e

MACY1l 30(1046) 28-NOV-7? 10:00 PRGE 69
GET VALUE FOR SOF TWARE SWITCH REGISTER

JINP
MOV
INCB
CMPB
BLOS
JMP
75T
BNE
MOV
IMP
IMP

:BUFFER ROORESS
SENDPGM, $BUF (RO)
sRM.REG. 14(RD) ;ADDRESS' 7O SAVE ALL RH/RMO3 REG’S

:CALL OFFSET
!BRANCH TO NEXT »vanoen IF OFFSET FRILS

PC MAKEUP

an% WRITE CHECK IN OFFSET MODE

SFMTDPB, RO

.LORD THE DPB noonsss

FMtDPB+ 16

V4 3

PC,PROCES
PC ' LABRD
16LRO)
83
PC RMINIT

s-1, SAVEFG
-1.SEEKFG
1os
CMSEC, STARSC
qs

CMSEC

PC, SCORE
SRMWC (RO)
108

;

SET WRITE cuccx 1S DONE ?

:BRANCH IF NOT

!REPORT , IF ANY ERR
:LOCARTE STARRTINF AND ENDING SECTORS
:ANY ERROR ?
!BRANCH, IF NONE
SINITIRL rus SYSTEM
:NOT UPDATE THE SCORE

‘STARTING AND ENDING ADDRESSES GC.k °
:BRANCH IF NOT
:EXCLUDING THE BRD SECTOR
'UPDATE THE TEST SCORE
‘WORD CTR = O
xr uoao crn-o BRANCH TO NEXT OP

HE NEW STARTING ADDRESS
;
SRMDA (RO, $SEC((RB) upon
E THE NEW WORD COUNT
SRMWC (RO) . SWRDM(RO)"
A
68

8129, ,8CYL(RO)
87C3. SCYL(RO)

118

LOOP2
$OEVM, SCYL (RD)
STRK(RO)
85, STRK (RO)
124
LOOP2
OFFCOD
138
81, OFFCOD
LOdP1
1577

QOJUST chxnoen RDDRESS TO NEXT ZONE
7 20NES RAVE BEEN TESTED
RQNCH

IF ntL DONE

NEX? WRITE CURRENT ZONE
RESET CYL INDER RDORESS
: INCREMENT TO NEXT SURFACE
"ALL FIVE SURFRCES RRE TESTED
:BRANCH IF ALL DONE
:TO NEXT SURFACE
'FINISHING TEST THE POSITIVE OFFSET °
:BRANCH IF ALL DONE
"SET POSITIVE OFFSET DIRECTION FLAG
'RESTART LOCATION
'BRANCH TO NEXT TEST

09:4

MACYI1

EOE

38é1046)
28-N0vV-77
10:00_
_PAGE 70
VALUE FOR SOFTWARE SWITCH REGISTER

SEG 00e9

:OFFST ROUTINE

iOFFSET THE HERD IN THE DIRECTION TOWARD SPINDLE OR RWAY FROM THE SPINDLE
:OFFCOD
= |
TOWARD SPINDLE (POSITIVE)
:OFFCOD
= 0
AWAY FROM SPINDLE (NEGATIVE)
:DRIVE
PHICAL DRIVE NUMBER
‘RO
DPB ADDRESS
'RETRY 3 TIMES
CRLLING SEQUENCE

Z W)+
~N

e Pt Pt Pt Pt P

OFFST:

000

w;gsfiév 85§8$éé§
CWwhnw
= NNNNN

ASHhE

W
~N

NONN

00000

Pt Pt

8888

MOV

18:

O‘O?

177776

000002

2§:

037776

3s:

000002

0377e2

:SAVE ALL REGISTERS

DRIVE, (RO)
LOAD THt DRIVE NUMBER
8117 QCOHND(RO)RETURN TO CENTER COMMAND

#FMTDPB. RO
;RO DPB nooaess
sconno(hon,-(sp)
AVE THE 1/0 COMMAND
,RMC3

:CALL THE DRIVE HANDLE

;BRANCH IF QUEUE FRILS

TST
BEG
BMI
MOV
MOV
MOV
MOV
MOV
MOV

FMTDPB+16
18
68
8PS, - (SP)
8(5%32.>, asPS
ornrope RO
R,RY
onxvs Rl
R1, RMES2 (RY)

: COMMAND DONE 7
:BRANCH IF NOT
snnncn IF ERROR EXIST
:SAVE THE PSW
.Lono PS S
:0P8 RDDRESS
'MUSS BUS nooness

MOV
MOVB
TST
BNE
MOVB
MOV8
gn?opa

(SP)+,8PS
#BIT7 $FMT(RO)
OFFcod
2s
80, SFMT(RO)
2115, SCOMND(RO)
RO, RMO3

Lbno THE PSW BRACK
Lono THE OFFSET DIRECTION
NEG
annncu NOT
cunnc; TO oruen DIRECTION
;LORD THE OFFSET COMMAND
:CALL THE DRIVE HANCLE

;BRANCH IF GUEUE FAILS

MOVB

(SP,+, rnrope+scomno

MOV

LtSP+, P3

MOV
MOV
MOV
MOV

0e4e7e

Rl,-(SP)

MOVB
MOVB
FMTOPB

037776

OFFSET FAIL RETURN ADDRESS
OFFSET SUCCESSFUL RETURN

R2.-(SP)
R3, -(5P)
RY' -(SP)

024272

RS, OFFST

MOV
MOV
MOV

MOV
MOvB

037760

wo
NELL
L L

00w
WwEN

OO0ONNW
N

REYBEIYE

e
—

[aale Loy

NNNN
(W dalald

@]alale)
[GIV ]I

N L uns—
Uy
NONNO NN

Pt P

AR
a8
i
22RRR

Pt Bt Pt Pt Pt Pt Pt Pt Pt

00000000000

00
WW
ZPZ2Z2222222220
wn
o
BESRR
N RR8E £

Pt Pt Pt Pt Pt P Pt Pt Bt

O000000000000000000000000000000O00000O000000

JSR
RET!
RET2

$s Dt Pone Pt Pt Pt Pt Pt Pt Bt et et Pt P Pt Pt Pt Pt P Pt Pt Pt Pt Pt ee Pt Pt o Pt ot Pt P

Y]]

03EEOR pPT TST

157
BEG
BM]
ADD
MOV

‘DRIVE NUMBER
LOAD THE DRIVE NUMBER INTO CONTROL_ER

SC?L(RO) nnoc<nq$ ;CYLINDER NUMBER
§SEC(RO) 'RMDA(RY) secroa nno TRACK NUMBER
SNRDH(R05 RMWC (R4) " ; WORD COUN
$BUF (RO) ,RMBA(RY) éurren nooness

FMTOPB+16
3%
68
82,RS
(SP)+ R

:OFFSET DONE
:BRANCH IF so
:BRANCH IF ERROR
"ADJUST RETURN ADDRESS
;RESTORE

:RESTORE 'REG

THE

1-0 COMMAND

0 RMO3-2 DR CPT T1S7
P11

010600
010602
010604

28-NOV-77 09:42

10.00

28-NOV-??

MARCY11 30(1046)

FOB

SEG 0070

PAGE 71

GET VALUE FOR SOFTWARE SWITCH REGISTER
(SP)+,R2
(SP)+.RI
RS

MOV
MOV
RTS

012602
12601
006205

JEXIT

:MAKEUP ROUTINE

STHIS nourxnsoéssuss A WRITE CHECK OR READ
-

PIN OFFSET MODE

COMMAND TG THE SELECTEC DRIVE

! DTUW = PHYSICAL DRIVE NUMBER

N LwWwh—0O

WL
£L I?&%?IL

Pt Pt Pt Pt Pt § 0 Pt Pren

{AND SET UP THE FOLLOWING PARAMETERS
TRNSWT

FMTDPB

! DRVACT (DKIVE)
!TIMER

(DRIVE)

= 1
1

SECOND

:CALLING SEQ

Js¢

PC, MAKEUP

A COMMAND WHILE ASSURE THAT
'MAIN PURPOSE OF THIS ROUTINE,TO EXECUTE
i THIS READ OR WRITE-CHECK COMMAND BEING EXEGUTED IN OFFSET MODE.

'ROUTINES USED TD,SC.STO,¢ IN DRIVE HANDLER )

MAKEUP: MOV
MOV
MOV

010606
010610
010612

010146
010246
010446

Ci10626
0i0630

001002
012702

000171

110237

03776

012737
013701
013704
112761

037760
001222
023526
000001

023440

060000

023472

010614
010620
010634

010640

010644

010652
010660
010664
010670

010676
010700
010706

012702
022737
005037

037776

013737 001222

006301
012761
006201

010710
010714

010264
Q12604

010722

006267

010716
016720

0001S!
000010

MOV
CMP

001336
18:

023512

BNE
MOV

CLR

MOVB

16
FuTOPBL

'CLERR THE STATUS WORD

18
sR Bnr R2

"BRANCH IF NOT
'RERD DATA COMMAND IN TEST 8

Re.FMTDPB+SCOMND’ :LORD THE COMMAND INTC PDB

;Acrxgv Saaxssuunesn

ASL
MOV

*WORD INDEX
R1
860000, TIMER(RL)'; ONE SECOND TIMER

MOV
MOV

S
1 (RY)
R2,RMC
(SP)+ R4

: ISSURE WRITE CHECK OR RERD COMMAND
:RESTORE REG 4, I

RTS

JEXIT

MOV
MOV

012602
012601

:WRITE CHECK DATA IN TEST &
:ON TEST 8 °

ORIVE,DTUW

ASR

000000

swWlKD, R2
810, TSTNM

MOV

MOV
MOV
MOV
MOVB

023370

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

RWAY FLAG
SFMTOPB, TRNSWT : TRANSFE
'DRIVE NUMBER
DRIVE,R]
:RH/RM BASE RDDRESS
RMADR ' RY
:ARCTIVE DRIVE FLRG
#1,DRVRCT(RL)
Rl

(5P)+.R2
(§P)+ RI

: SCORE ROUTINE

;ROUTINE TO UPDATE THE TEST SCORE

RDDRESS OF CRRENT SCORE BOARD
) : LEX
; (TAB
;SOEVM: LOGICAL DRIVE #
;DRIVE: PHYSICAL DRIVE NUMBER
:CMSEC: END SECTOR_RDDRESS
:STARSC:

START SECTOR RDORESS

0 RMO3/2 DR CPT TST
Pl
28-NOV-T7 09:42

MACY1}

GO6

30(1045)
28-NOV-77
10:00
PRGE 72
GET VALUE FOR SOF TWARE SWITCH REGISTER
:CALL

'
010724

010724
019726
010730

010732
010734
010742
010744
010752
010784
010760

010446
023737
003473
022737
001011
005737
001403

010766
010770

000413
012703

011002
011004

001403
012703

010762

010774
010776

SCORE:

010146
010246
010346

012703

000410
00S737

001360

001356

000010

001336

002640
002426

SEQ

JSR

PC,SCORE

MOV
MOV
MOV

R1,-(SP)
R2.-(5P)
R3 -(5P)

RET

18:

002640

2s:

002166

:PUSH R4 ON STACK
:LORRECT START AND STOP ADDRESSES
:BRANCH IF NOT
:ON TEST 8
:BRANCH IF NOT (nusr BE TEST &.
INEGRTIVE OFFSE
:BRANCH IF Necarxvs OFFSET

BR
MOV

y$
#RONO, R3

: SCORE BORRD RDDRESS

BEQ
MOV

3s
sOVWPO, R3

BR
157

000462

012703

002046

011016 113702 037771
0110822 005732

3%:

011624
011626

001404
062703

000020

5§ :

BEQ
ADD

68:

BNE
MOV
MOV
MOV

011032

011034
011036
011042
011044

00S302

061374
010337
010301
013702

011050

013703

011066

003403

0110674

000772

011106
011104
011106

023703
002412
108221

002044

001266

001356

0i1054 116204 002560
011060 060304
011062 022704 000017
011070

011076

011110
011112
011114
011120
011122
011126

011130
011132
Cl11132

162704

060401

0OS204
005203
022704
002367
013701
005004

000763
O0l2e04

4s:

000020
001380

MOV

8¢ :

000017

002044
9s:

#ROFO, R3

4§
OFFCOD
4s

: SCORE BOARD ADDRESS

:NEGARTIVE OFFSET

ann~cu IF NEGATIVE OFFSET
CORE BORRD
RDDRESS

S$OVWNO

scone aonno ADDRESS

6$
816.,R3

IBRANCH IF IT IS
sncu
Econs BOARD TAKES 16 BYTES

3
R3, TRBLEX
R3 R
SOE VM R2_

annncu IF NOT
:STORE THE TABLE STARTING ADDRESS
‘RE ASSIGN REGISTERS
:LOGICAL DRIVE #

MOVB
TST

aornro¢a+sray R2'LORD THE SURFRCE NUMBER
R2
6~ SURFACE 0

DEC

MOV

118:

; ;PUSH Rl ON STACK
:1PUSH R2 ON STACK
i iPUSH R3 ON STACK

R4’ -(SP)
CMSEC, STARSC
qs
810, TSTNM
2$
OFFCOD
18

011010

011012

MOV
CMP
BLE
CMP
BNE
TST
BEQ
MOV

002306

SEG 0071

MOVB
ADD
CMP

STARSE, R

xnosvrha> RY
.15 nu

:START SECTOR

SUB

u1s..nq

snrav POINT AT THE SCORE BOARD

BLE

B8R

:LOCATE THE srnnrxnc PRONT FOR SCORF BCARD
:UPDARTE POINTER
SHOULO ADJUST POINTEZR ?
NO

118

;

CMSEC R3
93
(R1)+

"ENDING sscron RERCHED °
:BRANCH IF IT IS
: INCREMENT SCORE AND POINT TO NEXT

INC
INC
CMP
BGE
MOV
CLR

RY
R3
815. R4
g$
TRBLEX.RI
RY

: INCREMENT LOGICAL DRIVE &
: INCREMENT SECTOR COUNT
*TIME 7O RESET TRBLE ~
:BRANCH IF NOT
‘RESET TRBLE RODRESS
'LOGICAL DRIVE O

MOY

(SP1+,RY

::POP STACK

ADD

RY R

CMP
BLY
INCB

B8R

8¢

:LOGICARL DRIVE

:LOOPING BRCK

INTO Ry

C2ZRMIBO RMO3-/2 DR CPT TST
28-NOV-77 09:4¢
CIRMIB.PLI

HOB

MACY1l 30(1046)
@28-NOV-77
10:00 PRGE 73
GET VALUE FOR SOFTWARE SWITCH REGISTER

(SP)+,R3
(SP)+ Re

MOV
MOV

012603
012602

8?)#,R1

E?g

84588

S£y 0072

,,POP 5TACK INTO R3
;POP STRCK INTO R2

POP STACK INTO Rl

; LABRD ROUTINE

:LOCARTE THE START SECTOR AND THE TERMINATE SECTOR OF THE PREVIOUS
openmxon

qrnnrxnc secron

' STARSC :

: CMSEC

;

MDA nropg 3
eronnnrxon rnon
SSEC(FMTDPB) , SWR
.CGLLING SEQ
JSR

PC,LABAD

MOV

RO, - (SP)

MOV

Re§§
RMINATING SECTOR
:CHOP OFF HIGH ORDER BITS IF ANY
8177740, Re
§SEC (ROY,STARSC :STARTING SECTOR ADDRESS

londat
NN
nneEL
L
oL L IHLCNS§280\CNJKJIOGHCI
R

Pt Pt Pt Pt Pt Pt ot Pt Pe Pt Pm
Pt P
e Pt Pt P
Pt Pt Pumn

s Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pmt Pt Pt Pnt Bt Pt Pt P s F s
St

o Bt P

0000000000000 0ONHO0O0N0000D00

RET

LABARD:
037760
00002¢&
177740
000010

R2. -(S5P)

MOV

SRMDA(RY) , R2

TST

18:

000022

0000ee

000004

000010

001360

000037

001360

:TEST

TERHINQTOR AT 0 SECTOR

IfF 3 12

ECR nsnr

SECTOR COUNT

MOVE

031. cnstE

SSEC(RO), cn?gctno SECTOR = START SECTOR
(SP)+,R2
(SPY+ RO

RTS

000227

; HARDWARE

MOV
BR
TST
BEQ
CMP
BNE

MOV
MOV

0i2e02
016600

PUSH R2 ON STACK

;bpg

:ENDING SECTOR ADDRESS
R2,CMSEC
TEXIT
3$
uoao counr z 0
$RMWC (RO)
8 a 1S
3
ao ) counr CHANGED AT ALL °
SRMWC (RO) , SWRCM(RD)
RANCH IF CHANGED
28

ggve

gg:

s iPUSH RO ON STACK

£Q

001360

orhropg RO

MOVB

BIC
MOVB

0013Se

PB) $SEC (FMTDPB)

;END AT SECTOR 31

: :POP SYACK INTO R2
:1POP STACK INTO RO

128X2 ,ETC.
SELF TEST:WRITE CYLINDERS SDEVM+17 SDEVM+17+128, SDEVM+17+
PROBLEM

EN EXE%ETE WR]TE CHECK TO DECTECY ANY DARTA OR HERDER
THE

SELECTED

LOGICAL DRIVE

(@]

SDEVM LOGICAL DRIVE
PHYSICAL DRIVE
DPIVE

ooooeH

R R AR R R R ER R

$477.

SCOPE

RN RS R RSP R R

R R AR R

AR R PR AR RRRRRARRRARRREANR

CZRMIBO RMO3/2 DR CPT_TST
CZRMIB.P11

28-NOV-77"09:42

MACY1l 30(1046)

012737 000001 001174
011262
737 023544
011260
3563
350 Olleed 012737 177277 023466

3568

177777

011312

012702

002546

3576
3577
3578
3579
3580
3581
3582
3583

011320
011324
011326
011332
011340
011346
011352
011356

022702
101374
012700
012760
112760
00S060
113710
013702

002560

3686
3587
3588
3589

011372
011400
011406
011412

012760
012760
004737
004037

040074 000006
040000 000014
015162
2%:
024272

363]

011420

000774

3595
3596
3597
3538
3599
300
3601

011434
011440
0Oll444
011446
011462
011460
011466

004737
005760
100010
004737
012737
012737
105260

Dl11524
011532
011536

112760 0001SI
012702 00254
013703 001266

3e16

011546

010360

313

011562

3621
3e22

011566
011872

0007

3573 011306 012706 0G1100
3575

3584
3585

3590

011316

011362
011366

011416

005022

062702
010260

037760

160000
000161

000010
00i222
001266

18:

000004
000002

00002l
000012

3s:

3692 Q11422 005737 037776
3593 011426 001775
3594 011430 012700 037760

36
3603
3604
3605
3606
3607
308
3293
3611
3c12
2613
3614
3615

3617
3618

3620

322

013566
000016
023544
1727777
177777
000011

023466
023470

000005 0000!1
000010
000200 000012

011472 122760
011500 101344
011502 005060
011506 062760
011514 022760 001440 000012
011522 163333

011542

011552
011586

062703

005037
004037
037760

011564

000774

011E79

012700

005737
00177%

22%:

000002

000021

0000:i2

002640
024272

037776
037760

:SAVE THE RH REG’S

MOV

#StACK, SP

SINITIARL THE STA

MOV

001336

MOV
CLR

CMP
BHI
MOV
MOV
MOVB
CLR
MOVB
MOV
ADD
MOV

MOV
MOV
JSR
JSR

FMTDPB

757
BEQ
MOV

87, tETNM

-sero R2
(R2)+

;LORD TEST uuneen

iCLEAR THE SELF TEST SCORE BOARDS

RLL OONE ?
!BRANCH IF NOT
SET UP DPB
sFMTDPS, RO
$-8192. . SWROM(RO) ;LORD FOLL TRACK WORD COUNT
:WRITE DATA COMMAND
SWRTOAT SCOMND(RO)'

n§ELro+1a R2

$DEVM ' R2

:SECTOR 0, SURFACE O
:LOAD _PHY. DRIVE
!LOCATE THE STARTING CYLINDER

sENDPGM, SBUF (RO
#RM.REG . 14(RO)
PC,FILBUF
RO, RMO3

'RESET BUFFER ADDRESS
' ADDRESS TO SAVE ALL RH/RMO3 REG"S
'FILL THE BUFFER WITH WORSE CASE PATTERN
'CALL DRIVER HANDLER

$SEC (RO}
DRIVE, (RD)

817. R2
R2, $CYL (RO)

FMTOPB+16
3s
SFMTDPB, RO

: CYLINDER RDDRESS

;BRANCH IF QUEUE FAILS

"ALL DONE
"BRANCH IF NOT
!REPORT IF ANY ERROR

PC.PROCES
16RO
aas
PC RMINIT
=1, SAVEFG
u-x ' SEEKFG
STRK(RO)

MOVB
MOV
MOV

SLCKD sconno(RoJ
#SELFO,R
SDEVM,R3

‘ALL FIVE sunrnce ARE DONE 7
N
'BRANCH IF
‘RESET SECTOR nno TRACK
novnucs TO NEXT ZONE
ALL7 ZONES ARE DONE ?
annncu IF NOT
'EXECUTE WRiTE CHECK
;gogegscr ANY DATA OR HERDER
:CHANGE TO WRITE cuecx COMMAND
'R2 POINTS TO SCORE BCARD
:CAN NOT BE DESTORIED
!LORCATE STARTING ADDRESS
:SET NEGATIVE OFFSET FLRG
:CALL DRIVE HANDLER

CMPB
BHI
CLR
ROD
CMP
BHIS

RDD

c§:

s-1 g EKFG

JSR
I57
BPL
JSR
MOV
MOV
INCB

S, STRK (RO)
2%
$SEC(RO)
#128.,8CYL(RD)
#800. . SCYL (RQ)
2s

#17.

:ERROR FLAG SET ?

:BRANCH IF NOT
"INITIAL THE DRIVE
sNEXT SURFACE

CLR
JSR

R3, $¢YL (RO

OFFCOD *
RO, RMO3

:STARTING CYLINDER

;BRANCH IF QUEUE FAILS

MOV

4s:

tnxran THE DRIVE

RMINIT
PC
#-1, SAVEFG

MOV

023470

81 737

12737

7
PRGE

MOV

J3R

811 7

10:00

GET VALUE FOR SOF TWARE SWITCH Rscxsren
| ITERATION
8l STIMES
MOV

357

28-NOV-??

IO&

FMTDPB

757
BEQ
MOV

FMTOPB+16
c§

RO
SFMTDPB,

‘ALL DONE
"BRANCH IF NOT

SEG 0073

c:nnxeo RMO3/2 DR cpr TST
CZRMIB. P11
28-NOV-77
09:42
3624

011600

3628

011614

3635
3626
3627

4737

011604
011610
011612

5?60
100401
605212

011620
011622
011626
011632

000415
004737
005737
001775

011690

004737

3636

011650

32y
3630
3631
3632
3633

3635

011634

011644

004537

013566

0103s4

£3:

010606
037776

78:

037760

005760

000016

3641
3642
3643
3644
3645

011664
011672
011676
011702
011704

012737
000137
105260
005202
122760

000001
011556
000011

002640

00000S

000011

3648

011720

000137

011556

3646

011712

101404

002640

3647 011714 005037 002640
3649
3650
3651
3652
3653

3654
3655
gggg

011724
011730
0117349
011742

00S060
012702
062760
022760

000010
002546
000200
001440

011752
011756
011762

005037
000137
000240

002640
011556

011750

103404

JSR

RS, OFFST

;ANY ERROR
S YES, THEN oon T INCREMENT SCORE
xucksnenr CORE

BR
JSR
157
BEQ

8§’
PC, MAKEUP
FMtDPB+16
7$

BRRNCH IF OFFSET FAILS
sxscurs unxre CHECK IN OFFSET MODE
ALL DONE ~
annncu IF NOT

JSR

PC,PROCES

;REPORT IF ANY ERROR

BMI

‘DON’ T xncnsntur SCORE

16tR0O)

8%:

MOV
IMP
INCB
INC
CMPB

81,0FFCOD
ys
$TRK (RO)
R2
%5, STRK (RO)

JMP

INC

BLOS

CLR
CLR
MOV
ADD
CMP

000012
000012

BLO

CLR
IMP
NOP

11§:

:DRIVE

Jo0E

011764

000004

012737

000001

3671
3672

012002
012006

012706
012702

001100
2306

3676
3677

3878
3679

TRY

THE NEXT SURFACE

sunrace SECTOR O
RESE scohs B80ARD
novnncs 10 NEXT ONE
;ALL 7 ZONES ARE DONE ?

:BRANCH

orrcoo
4s

,IF ALL DONE

‘RESET OFFSET FLAG
:TO NEXT ZONE
:TO NEXT TEST

READ COMPATIBLE TEST
SOEVM+1le,SDEVM+][2+128XN

011766

001174

011774 012737 000010 001336

012012
012014
012020

00S022
022702
101374

012026

012700

012022

012032
(012040

PHYSICAL onrve

22 2222222222222 X222 X222

%68

3673
3674
3675

ALL DNOE

RESET o#rssr oxnscrxon

*THIS TEST SELECT ONE CYLINDER FOR ERCH LOGICAL onxvs FROM

3664

3670

: BRANCH

$SEC(RO)
#SELFO, R2
8128.,$CYL(RO)
oaoo "SCYL(RO)

S20NE 1 TO ZONE &
"§DEVM :
LOGICAL DRIVE

'SET POSITIVE OFFSET FLAG
:POSITIVE OFFSET TEST
: INCREMENT TO NEXT SURFACE
; ADVANCE_SCORE BOARD POINTER
TALL FIVE sunrncss ARE DONE 7

108

IS DONE

P INCREMENT SCORE BOARD POINTER

OFFCOD

3662
3663

3669

: INCREMENT SCOR
'POSITIVE OFFSET
:BRANCH , IF DONE

:TESTIO
TEST 8
*CYLINDERS TESTED

3587

ERROR BIT SET

(R2)
OFFCOD
9s

3658
36E9
3660

3661

FFSET

$FMTDPB, RO

INCB
IsT
BNE

108:

SEG 0074

16RO
69
(R2)

15T

105212
005737
001006

005202

PC PROCES

MOV

011652
011654
011660

011662

JSR

757
BMI
INCB

013566

3637
3638
3639

3640

30(1046)
<ZB-NOV-7?
10:00
PAGE 7S
GET VALUE FOR SOFTWARE SWITCH REGISIER

000016

012?00

100401

MACY11l

JOb

18:

002546

005037

002640

012760
00S060

160000
000010

037760

t4T10:

000004

LOGP3:

SCOPE
MOV

STIMES'

:Du

222X X222

ITERRTION

MOV

010 TSTNM

CLR
CHP
BHI

(R2)+
#ROPY+16. ,R2
18

;ALL DONE
:BRANCH IF NOT

#FMTOPB RO

SET UP DPB BLOCK

MOV
MOV

#STACK, SP
cRoNo R2

(oao TEST NUMBER

*INITRIL THE STACK POINTER
:CLEAR THE SCORE BORRD OF READ TEST

C_R

orrcoo

MOV
CLR

8-8192. sunon<no$
LOAD THE WORD CTR,FULL TRACK
$SEC (ROS
SURFACE O AND SECTGR
O

MOV

:SET NEGRTIVE OFFSET FLRG

Pt P

s P

OO00000C000000O0O000O0O0ODODO0D0

e B

e Bt Dore

e Bt ot B

s Bt P

e P

s Bt Be

000000000000 000000000

~—X

372 DR CPT TST
28-NOV-77 09:42

2044

112760

000171

2060
eo;s
2072

0127
1371
013703

840000
gl222
001266

2106

004037

024272

18:

037776

2s:

20s2

012760

2102 0l

2076

05870

2112
2114
2116

0377
0007
00S737

21249

012700

2122
2130
2139
2140
2144
2146
2162
2160
2166

2170
2174
2200
aeos

001775
004737
004737
005760
100011
004737
012737
012737
000414

004737
005760
001407
116060

040074

MOVB

060014

MOV
MOVB
MOV

#RM. REG. 14(R0)
DRIVE, (RD)
soevn R3

,h
0 SAVE RLL RH/RH03 RDDRESS
LORO HY. DRIVE ARDDRESS
; LOCATE STARTING ch

JSR

RO, RMO3

:CALL THE DRIVE HANDLER

000012

MOV

000160

037760

013566
011144
000016

023544
1777?77
177777

023466
023470

:
3s:
4s:

010724
000022

012700

037760

004537
ooowug
008473
005737
001775
012700
004737
004737
005760
100011
004737
012737
012737
000414

C10354

68 :

850606
7776

78:

Pt Pt ot P

2220

2216
2224

000733

012760

000022

000010

016060

160000

s s P

2232 105060 600010

Pt Bt P

e Pt Bae

2236
o242
2244
2250
2254
2256
2262
2266
2272
2276
2300
2304
2312
2320

023544
177777
177777

023466
023470

;
:

004737
005760

010724
000022

2334
2342
2350

116060
016060
000732

000026
000022

001407

000004

Ss:

8s:
qs:
000010
000004

811

MOV

sFMTDPB, RO

:STARTING CYL ADDRESS
: COMMAND DONE ?

:BRANCH IF NOT

PC, PROCES
PC! LABARD
16tRO)
38
PC,RMINIT
1 SAVEFG
' SEEKFG

;REPORT IF ANY ERRO
:LOACATE START AND srop ADDRESS
: ANY snnon ?
:BRANCH,IF NONE
JINITIRC THE SYSTEM

cgssc, STARSC

o THE SAME SECTOR ARDDRESS

DEC
JSR
157
BEQ
MOVB

CMSEC
oecasnsnr ONE SECTOR COUNT
PC, SCORE
:UPDAT
SCORE
SRMWC (RO)
: WORD ouu = 0
S$
:BRANCH IIFIT IS
SRMDA(RO), $SEC(RY) ;UPDATE THE NEW srnarznc SECTOR

ngs

MOV

037760
013566
011144
000016

2322
2326
2332

000004

R3, SC?L(RO)
FMTOPB+16

BEQ

;LOAD THE READ DATA COMMAND

SsENOPGH, saur<no> hsser e¥rrsn ADORESS

FHMTDPB
BR
75T

JSR
JSR
15T
BPL
JSR
MOV
MOV
;

000026

MOV
ADD

#RDDAT, SCOMND(RO)

SEG 0075

000002

000006

2210

Dt Bt s Pt Dot P

et Pt et Pt Pt

000000

ODNONLWN

e Bt Pt Pt Pt ot Pt B

KO&

MACY11 30(10us)
28-NOV-?77
:00
PAGE 76
GET VALUE FOR SOF TWARE SWITCH REGISTER

MOV

CLRB

JSR
BR
JSR
IST
BEQ
MOV
JSR
JSR
757
BPL
JSR
MOV
MOV
BR
CMP
BLOS

DEC

JSR
157

BEQ

MOVB
MOY
BR

:NOT INCREMENT THE SCORE

SRMWC (RO) . SWROM(RQO) ' : UPDATE WORD COUN
$FMTDPB, RO

,con?xnue

ESE THE DPB BLOCK

8-8192. sunon<no$ ?L#
TRQCK WORD COUN

$SEC(RO}

RS, OFFST
10$
PC ,MRKEUP
FMYOPB+16
78
$FMTDPB, RO
PC, PROCES
PC. LABARD
16¢RO)
8s
PC,RMINIT
1 SAVEFG
SEEKFG
1os
CMSEC, STARSC
9¢

CMSEC

PC, SCORE
snfiucrno)
0s

CTOR O, TRACK NOT CHANGED

anL orrse
'BRANCH IF OFFSET FAILS
'EXECUTE READ DATA IN OFFSET MODE
*OFFSET READ IS DONE
:BRANCH IF NOT
"REPORT IF ANY ERROR

;LOCATE THE START AND STOP ADDRESSES
ANY ERROR
: BRANCH, IF NO £
SINITIRL THE SYSTEM
:NOT UPDATE THE SCORE
:START AND srop SECTOR ADDRESSES IS 0.K

N
:BRANCH IF
'END ECTOR xs ERROR SECTOR
:UPDATE THE SCORE
*WORD COUNT ¥s0
BRANCH IF I

SRMDR(RO) $SEC(RA) ; UPDATE secron nooness
SRMLC (RO) | SWROM(RO) :UPDATE WORD COUN
68
Loofixnc UNTIL cunnenr TRACK IS DONE

CaR

eo RMO3/2 DR CPT

CIRN.3.PII

TST

28-NOV-77"09:42

3736

012352

062760

000200

37
3740
3741

012370
0123794
0124900

80013
013703
7

12106
1266
0160

3743
3744
3745
3746
3747
3748
3749
3750

012410
Ol2414
012422
0lev24
012430
012434
Q012436
Ql2444

105260
122760
101402
000137
005737
001005
012737
0006:37

3737

012360

0227

3738 012366 103v
3742 0124084

g&gé

012450

010

000240

0013?77

MACY1l

000012

012026

28-NOV-77

VALUE FOR sorruna

108$:

000011

012106
002640
000001

GET

118:

000012
0000!1
000005

30(]1046)

128:
002640
13%:

:00

LOG
PRGE

SEG 007&

SWITCH Recxsren

ADD

#128.,8CYL(RO)

;RDJUST chxnoen TO NEXT ZONE

IMP
MOV
ADD

18
soevn R3

;LOCATE STARTING CYLINDER

CMP

#767. . 8CYL(RO)

BLO

118

MOV

INCB
CMPB
BLOS
JMP
IST
BNE
MOV
JIMP
NOP

R3 sc?L(Ron

STRK (RO)
85, STRK (RO)
1§t
1
OFFCOD
138
81, OFFCOD
LobP3

L 6 ZONES ARE DONE ?

s BRANCH ir QLL DONE
:STARTING CYLINDER

:T0
MEXT SURFACE
!ALL S SRUFACE nRE DONE
:BRANCH IF n& ONE
:LOOPING UNTIL CURRENT TRACK IS DONE
:OFFSET CODE = POSITIVE
VIF Eoun% THEN ALL DONE
:SET POSItIVE OFFSET FLAG
:TO NEXT TEST

3753
3754
37565
3756

:TEST1]

g;gg

:DIRECT THE OPERARTOR TO CHANGE PACK AND MOUNT TO OTHER DIRVE

3767

g;g?

;soevn

3762

: BADSEC.

3763

g;gg

3766
3767
3768
3769

37?0

’

012452

000004

3773
3774

012470

012706

001100

3776

012474

005046

3778

012500

3782

012520

012701

3784
3785
3786
3787
3788
3789
3790

012530
012532
012636
012540
Q012544
0l2S4e
012550

101411
012705
111304
062704
110423
00S305
001372

012476

005046

012504

012746

001174

012552

122712

000402

Y4111

002426

0800005

000007
000020
000006

ScoPE

MOV

18:

3%:

; oo

ITERATION

:(OAD THE TEST NUMBER

#STACK, SP

:LORD THE STACK POINTER
ng:u THE RERD COMPATIBLE TEST SCORE

CLR

-(SP)

:DUMMY SCORE BOARD ADDRESSES

MOV

cSELr0+1 -(SP)

,P
§T

#5,R1

;R1=_SURF
nc; (TRACK)

ys'
sl6.,RS
(R3)'RY
86,RY
R4, (R3)+
RS’
33

: BRANCH
INCREHE sno COMPATIBLE SCORE FOR ALL 16 DIRVES
:ADJUST SCORE BY ADDING &

MOV

2s:

STIMES

c11 TSTNM

MOV
CLR

002547

3780 012510 012702 002546
3781 012514 012703 002306

379]

RIVES ARE NOT COMPARTIBLE

TRACK (HERD) NUMBER FOR CONTROLLIfiG THE SCORE TYPING.

W36 33036060 303 063 306 36 3 06 96 30 26 36 30 30 30 06 06 36 36 36 36 36 36 3 6 06 36 36 06 36 36 36 36 36 3 3 3 B X4 4 % £

3772 O0l2462 012737 000011 001336

012524

RLL DRIVES ARE COMPATIBLE

;

000001

3783

BADSEC =

012737

3779

LOGICAL DRIVE 8, SHOULD NOT BE UPDATED BEFORE THE REPORT IS COMPLETED.
RCCEPTANCE FLRG, BRDSEC = O

:CMTRK :

012464

3777

3771

3775

TEST 9

"REPORT THE TEST SCORES

(SP

-(SP)

MOV
MOV

oSELFO
#RONO, ka

CMPB

87, (R2)

MOV

BLOS
MOV
MOVB
ADD
MOVB
DEC
BNE
BR

HE SELF RERD TEST SCORE

,P T

OFFSET

IS TOO LOW

no TEST SCORE ADDRESS

T SCORE

,N
GATIVE OFFSEY Reno TEST SCORE
'NEGRTIVE OFFSET RERD COMPATIBLE TEST SCORE

:SELF RE

NUMBER

;r SCORE IS TOO LOW

s UPDATE SCORE AND POINTS TO NEXT DRIVE
'ALL DRIVES ARE UPDATED
'BRANCH IF NOT

28 10vV-77"09:42

>—

2554

o000 0000

372 DR CPT T1ST
062;03

888883

MO6

4 SLUE gon sorrunAE EEITCH Eec?srsn

30(}0Y4
52:

eP i

5329 8853

MACYI1

Pt P

gg?g 815503
0013SI

2574

28-NOV-77

PAGE

SE¢

RDD

n%shéna

gegir
PaéBgarogesgogs 20“8802282555

MOV
BNE

(§P)+:R3

E§ITN$H£ TH&Y ARE O

388

bcss gae 88né ?

?SLLECS QESE nh8°¢éné RoAEER

001340

CLR

BADSEC

CMTRK

STflRT FROM rnncx

2%
SR
coeo
Sglu
815703
000001
2620 030337 001776

o
MOV

VI
170, R3

Sgu r85
N LOG DRV O
3?9R502
115 THE LOG oav UNDER TEST ~
ERfiNEHv%fl
xcmon
Bt it%aETM

wwimwpertwdupestaiuiututedudast
o

2602

005037

0015:72

2636

001434

001362

CLR

LOOPY:

1364

so58 D9%937 3313k

es:g

SE;S
26

1a§31a

000016

a9 013270

i fz

000Cl6

2664

004537

013270

2672

122762

000014

2670

2700
a;oa

101403

KPATH:

000120
000240

1S:
28:

013270

BIT

R3 ASNLST

gfg
SHPe

L0ORS
SBEVHCRI

cnpg

814., (R2)

BEQ

9585

000001

SPATH

AR pRINT

: BRANCH xr xr 1S

VERWRITE NEG OFFSET

BQQSSV éxcES¥xo~s

5*4.,90.(Ra>

SR RHRITF POS

JSR

RS, PRINT

'REPORT EXECPTIONS

CMPB

#12.,160.(R2)

:RERD NEG

BLOS
Jgn 3

3s
RS, PRINT

§"8

niq.,cna)

ch
UMN PO

OFFSET ¢« 14 2

TION on REPORT

OFFSET ¢ &

:BRANCH IF NOT
:REPORT xcegr gN REPORT

'5253"?05 §8”
PORT EX Eig 6N 3~ REPORT
RSL

agua
013270 000120 1S:
2744 ooogo
1227 000016

oR 0l &S'PRINT
gngg
814.,80. (R2)
BLOS
I
ggt
Sgrnx,nq

22
T xgcprégnon
8 Hfisx$§
fiog OFFSETREPORT
< 14

Lo o o

8"980 #12.,240. (R2)
BLSS
kgoggxnr
680004
’
BR
LOOPS

el e ey e

e e el

§;§§

2752

1§§3é§

000016

SPATH:

101403

o) B
o
86258: 001362

g;se

2793 122764 000006 002546
2776

3000
504

3006
3812
19

3022

101403

004537
000003

013704
02592“
1

101403

2s:

013270

001362
000006

3s:
002547

CMPB

BLOS

JSR
000003

86, SELFO(RY)

RS, PRINT

MOV
st

CMTRK, R4
RY

Bl1 0&

oTot=ES

CMPB

¥5, SELFO+1 (R4

OLUMN POSITION ON REPORT

000002

THE

T ACS PT

57?3 1
000014 000360 3$:
2316
e 013270
5758
883383
2726
D004
i

[l el el ey e

jotetotutetatatadel

BRBEBHG HL5
BBDITNE
o

——

2576

000000000000 0DO0OOOOO0OOOO0O000OOODOO0000000D

TIA

QVEO

ITE NEG OFF ¢ 14

1011
—
bgcnts THE SELF TEST SCORE

SELP 3228NEG OFFSET ¢« & 2
:BRANCH IF NOT
:REPORT

EXCEPTIONS

:LOCATE HE SELF TEST SCORE
ugno )
€0,/

Ran

pos OFFSET

:ERANCH IF NOT

0077

CZRMIBO RMO3-/2 DR CPT T1ST
28-NOV-77 09:42
CZRMIB.P11
4537 01327C
9
3848 81
5201
013032
3850

ggoooq
3849 01
Sl
013034
3851
103
3852 01303
3853

3854
3855
3856
3857
3858
3859
3860
3861

013040

(013042
013046
813050
013054
013060
013062
013066
013070

005202

022701
103264
805237
012702
005001
013703
001404
062702

3862 013074 005303

NO&

000017
001362

LOOPG:

000020

18:

002046
001362

2s:

3873

3874

013122

005737
100402
104401

001340
001205

109401
104401

036001
001272

013746 001222
3880 013184
013160
104403

3983
3884
3r8S
3e86
3887
3888

013163
013164
013170
013172
013174
013200

3692

013210

3881

3e82

3r89
3:30
3891

013162

013202
013204
013206

002

000
104401
104411
012605
122527
001373

10S715
001371
005002
012703

3893

013214

020237

3896

013224

006103

3899

013232

013220

001404

3895 (13222 000241
3300
3901
3302

3902

013226
013230

005202
000771

013236
013240
013244

001412
005237
013702

013250

3897
3898

036017

00e30&

001266

00126€

18:
:
'
'\
DEASG:
,

1S:

’

2s:
¢

BNE

MOV

TYPE

915.,RI
LOOPY
CMTRK
SOVIWNO, R2
Ri
CMTRK,R3
2s
816.,R2

#8170,R3

85, CMTRK

LOOPY
BADSEC
DISMNT
. SCRLF

POI
nRgonnoBASE ADDRESS
QLL xvgs
NOT ALL DONE
,ea
NEXT sunrnce
:RESET SCORE BOARD gnssADDRESS
0
:LOGICAL DRIVE STAR
:LOCRTE THE scongraonno ense ADDRESS
annncu IF ON
FOR ERCH SURFACE, 16 BYTES
QLL SURFACE DONE’
'BRANCH IFNOT
:BIT MAP POSITION FOR DRIVE O
;AT THIS POINT:
Rl-O LOGICAL DRIVE # START FROM O
scons
;ss

OARD BA".E ADDRESS

INDICATE LOGICAL DRIVE O

SURFnces ARE DONE 7
RLL
* CONTINUE
*ACCEPTANCE FLRAG SET *
NO, THEN BRANCH

"MESG1S ;#% ALL DRIVES ARE COMPATIBLE #»

MOV
CLR

SCRLF
JRMVEC
bxoLsx
MVECY2

s CR-L
THE INTERRUPT VECTOR
RESET
!CLEAR THE INTERRUPT VECTOR

MOV

baxvs -(SP)

'PHYSICAL DRIVE NUMBER

.BYTE

TYPOS

0001

040337 002002

DEC

TYPE
TYPE

000122

001266

RDD

cHMP
BHIS
INC
MOV
CLR
MOV
BEQ

OISMNT: TYPE

001205
013126 104401
010370
013560
012777
013132
3876
3877 013140 005077 010366

013144
013150

BHI
TST
BMI

3875

3878
3879

INC

CMPB

3863 013104 122737 00000S 001362
3870 013112 101242
3868

013114
013120

PRINTING
sx ION ron REPORT
DRIVE #
os 10N
1 DRIVE
HE XT

000004
cLC
R3
ROL

3863 013076 001374
3864 013100 012703 000001
3865
3866
3867
3871
3872

SEG 0078

MACYL1 30(10qs) 28-NOV-77 10:00 PRGE 79
GCET VALUE FOR SOFTWARE SWITCH REGISTER
REPORT XCEPTIONS
RS,PRINT
JSR
o
ns;
R1
LOOPS: INC

‘BYTE
TYPE
ROL IN
MOV
CMPB
BNE

nescxa
$CDW2

"MESG13

"UNLOAD AND DISMOUNT MESSRGE
:SYSTEM NAME

: MESSAGE rvpe R(CR> WHEN RERDY

(SP)+,RS
(RS)+ #'R
18

'READ INONE LINE
LOCRTE THE RERD IN LINE
:RERDY
:TRY ncnxn IF NOT

CMP

R2, SOEVM

:IS THE LOGICAL DRIVE UNDER TEST ?

ROL

BIC

R2, RSSGN2

ASL

TSTB
BNE
CLR
MOV

BEQ

cLC

INC
BR

BEQ
INC
MOV

(RS)
18
R2
$B170,R3

R2
18

XEND2
SOEVM
SOEVM, R2

:TERMINATOR ?
:BRANCH IF NOT
'LOGICAL DRIVE NUMBE

MAP OF ASSIGNED
:BRANCH IF IT IS
;81T

X
VE

:SHIFT THE BIT MAP FOR
:NEXT DRIVE

' INCREMENT THE LOGICAL DRIVE #
UNTIL THE LocxcaL DRIVE LOCATED
' LOOP

:CLE

€ RSSIGNED BIT

:BRANCH IF NO MORE DRIVES
' INCREMENT THE LOGICAL DRIVE #
:UPDATE SYSTEM BLOCK ADDRESS

CZRMIBO RMO3-/2 DR CPT TST
CZRMIB.PII
28-NOV-77 09:42

3904
gggg
3907

gggg

013252
013260

016237
000137

002600
007172

013264

000137

017654

BO7

MACY1l 30(1046)
28-NOV-?7?
10:00 PRGE 80
GET VALUE FOR SOFTWARE SWITCH REGISTER

001270

XEND2:

3910

3911
3912
3913
3914

:
H

3918

3353

3921
3922

:
:

3924
3925
3926

:
:
:

3923

3927
3923

5550

013270

3934
3935
393
3937

013270
013272
013274
013276

010146
010246
010346
010446

3339
3940
3941
3942

0133084

190432

3944

013322

3938

013300

3943

013306
013312
013316

3945
3946
3947

013326
013330
013331

3948
3950
3951
3952

013336
013342
01334
0133s2

3956
3957

013376
013400

39€9

BLKADR(R2) , $COW1
:SYSTEM BLOCK ADDRESS
TSTS
;JUMP TO'TEST S FOR OTHER DRIVE

JMP

SEOP

:END OF PRSS

001340

104401
104401
104401

001205
036161
001272

109403
082

013356
013364
013372
013404

013410

104401
104401
1ow481
60%4 ;

012737
01273;
00S7
001045
104401
104401

013746

BADSEC = O

177777
000001
001364
001205
001205

001362

CALLING SEQ:
JSR
RS, PRINT

:
:

R1: LOGICAL DRIVE #
SOEVM: LOGICAL ORIVE UNDER TEST
R3: BIiT POSITION OF LOGICAL DRIVE

IN RI

MOV
MOV
MOV
MOV

R1,-(SP)
R2.-(SP)
R3.-(5P)
R4, -(SP)

;;PUSH
:'PUSH
:1PUSH
; :PUSH

ON
ON
ON
ON

BMI

;?nnncu IF NOT,DON'T HAVE TO PRINT
; TITLE
:CRLF
:SCORES FOR DRIVE --

RET

157

TYPE
TYPE
TYPE

MOV

BAROSEC

, SCRLF
"MESG16
$CDW2

ORIVE,-(SP)

TYPOS
.BYTE
BYTE

2
O

TYPE
TYPE
TYPE
TYPE

"MESG17
" $CRLF
'MESG18
SCRLF

TYPE

001340
0OC1374

NOT FIRST EXCEPTION (DON'T PRINT THE TITLE:

NUMBER

00leee

036204
00120S
885300
1205

A NEW LINE 10 PRINT
COLUNM NUMBER TO PRINT THE EXCEPTION MARK
FIRST EXCEPTION DETECTED

BADSEC = -1

PRINT:

005737

013746

INE = 0
=1 -4

3948 013332 10«535 001205
3953
3954
3955

MOV
JMP

:PRINT ROUTINE
:NAME PRINT
(PRINT ;xcepvxons FOR TEST SCORE
:PARRAMETER USED

3915
gg{g

3931
39
3933

SEQ 0079

MOV
MOV
1ST

BNE
TYPE

TYPE

MOV

, SCRLF

k-1, BRDSEC
81, FAULT
NUL INE
S
" SCRLF

SCRLF

¢MTRK, - (SP)

COLUMN NUMBER

Rl
R2
R3
R4

STACK
STACK
STACK
STRCK

‘FIRST EXCEPTION

'SYSTEM NRME

; TYPE THE PHYSICAL DRIVE s

s CR-LF

'SUB TITLE

:SU8 TITLE 2

;RESET THE ACCEPTANCE FLAG
'NOT COMPATIBLE FLAG
'NEW LINE 7
:BRANCH

IF NOT

: TYPE THE SURFACE NUMBER

EspniBOpo3 2 BR &5 23509 2
CSRM]BO RM0O3-2
3960
3961
3962
963

013414
013416
013417
81
0

3%s

geew

CPT

104403
002
000
104401

3701

1005

TST

MACY11

640

126

013v

104401

3568
3963
3970

Q1344
013444
01244

006301
016137

002600

013476

3972

013456

062737

000014

013476

013474

104401

813343

3371 013u4s4 005501
3373
3374

013464
013y

gg;g

013475

3975

39-

3379

104401
104401

000

036375

403

012504

013520
013522
0l

103412
001405
104401

338S
3986
3387
2988

013530
013534
013536
(013542

005237
000767
(04401
005237

3930

01354

012604

3932

013552

012602

013556

000205

3989

3991

3983

994

299¢g

3938
3933
4000

:ooz

013546

013550
013554

(013560
0]3S62
013Se4

cs:

6S:

036403

001364
(3640S
001364

7$:
8s:

012603

400S

4006

012601

000002

000016

013600

032760

100000

032760

040000

004737
012737

014712
014760
023544
177777

4012
Ol
il
gl
Wik
4013 013634 004737

4014
4C1S

(13640
QOI3e4d4

, SELFX

nsssacs SELF

TYP

LINSP
LINSP

?gggo

0, -

MOV

(R&)+,RY

MOV

02346k

osvn ITSE.F 2

‘RESTO

:LOCATE THE svsrsn NAME AND DRIVE #
;

STYPE THE SYSTEM AND DRIVE

*ADDRESS FOR TYPING MESSAGE

51 NUI INE

.xnoxcnrs PRINTER STOPS AT COULMN 1

CMP

RY, NULINE

:ON THE RIGHT COLUMN 7

INC
BR
TYPE
INC

NUL INE
68
MARK X
NUL INE

8LO
BEQ
YYPE

MOV

:IF LOW NOT PRINT
:BRANCH IF LOCATED
:ADVANCE TO NEXT COLUMN

(SP)+,RY4

; ;POP STACK INTO RY

(5P)+.R2

.,POP STACK INTO R2

SEXIT

(SP)+'R3
(5P)+.RI

(RO), UNIT

$TATUS (RO)

ERPROC

B??
HE

:POP STACK

INTO R3

‘POP STACK

INTO RI

JEXIT

:DRIVE NUMBER FOR ANY ERROR MESSAGES

sg }F onéxsn SIGNALED AN ERROR
‘BR

oaxrxs $RMCS1(RO)

ERR

sss IF 'SC’ SET

o 114, sancsxtnoiaR
€ 0; S%RE’ SET
r'IFESEY

IBITIH SRMDS (RO) '

JS
C, cxsnn
I
JSR
PC. CKBUS

JSR
MOV

: INCREMENT COLUMN CTR
:CHECK AGRIN
:THE EXCEPTION MARK % O
'NEXT COLUMN

sRESET ALL RH VECTOR FOR MOUNT AND DISMOUNT

BIT

‘QSERfEXERTH§13§SIRED COLUMN & FROM

g%
78
TRB

NOP
NOP

18:

ossvsun 833

TST

000032

QgLi CHARACTER

RDD

ASR

PROCES: MOVB
000020

sco

7AB

RTI

005760

013620

: TYP

; PROCESS THE ORDER TERMINATION

:885
of T oog;xo
ON0000 000020
Jo0q gi%kie
BBTs?
4010

TAB

4s
:NEXT
S
R1
LOCQT E é*s HISTORY FILE
SLKRDR(RI),a83$ :LOCAT
vsrsn NAME AND ODRIVE #

RTS
IDLEX:

$0EVM,R1

BR
RSL
MOV

MOV

000240
000240

[00431

MOV

013572

013576

BNE

MOV

wé&g 013S66 111037 001326
4004

2
O

TYPE
Tvp

3%:

333? 013514 020437 001364

3982
3983
3384

2s:

5e0 00se

:00__PR

TYPOS
.BYTE
BYTE
TYP

TYPE

813383 612785 883081 001364 u4S§:
013512

28-NOY-

TYPE

036403

036604
036604

Le PR oROY o F funhf 801 1ER ke R s TER
cMP

396

3967

RE400R

30(1046)

cO7

PC RMINIT
21, sAvEFG

szs IF 'ERR’ SET

*NO ERROR, CHECK ERROR BITS ANYWAY'
i
INO ERROR) CHECK BUS RDDR & WC

*INITIALIZE THE SUB SYSTEM
:CLERR THE SAVE FLAG

CZRMIBO RMO3/2 DR CPT

CZRMIB.P11
4016

:8{5

013652

013660

T1ST

28-NOV-77 09:42
012737

000207

177777

MACY11
023470

38§8
013662

032760

000200

:023

013672

000137

014062

013670

001402

000016

013676
013704

760
1025

4030

013714

ogéggg

4032

013724

001025

010000

000016

4029 013706 032760 004000 000016

MOV

2s:

013?16

002000

000016

013744
013746
0137s4

001025
032760
001025

000004

000016

0137S¢

ERPROC:

:8:2

:osx

013760
013760

013764

104414

000137

032674

BIT

ERPRCI:

013770
013770

013774

:ggg

014004

104414

000137

032576

40£9

4C73

;DONE

BIT SET

PUNSAF:

:PROCESS ERROR WITH ‘DONE’ BIT SET
'ERROR'

'DONE NOT'

014000

104414

000137

03264]

gn;

UcP

BNE

FALPAR'

h xr THERE IS ONE

#BIT11, STRTUS(ROS PRRITY ERROR OCCURRED

881710, STATUS(RO)

IT OID

;FATAL PARITY ERROR?

BIT
BN
81

neIToe STATUS(RUS MEQUT?
SW *n
5
YES
sBIT14'BITOL, sTn?US( 0) ;DRIVE WENT OFFLINE ?

RTS

OFLIN
:BR IF I1T7'DID
oexra STATUS(RD)' ; PORT REQUEST TIME OUT *
TIM
:BR IF 1T DID

IMP

DISPLY

NP
FALPAR:

014034

'ERROR. RETURN

LEM12

bumpP2

,LEMIO

bumP2

MASSBUS PAKITY ERROR OCCURRED
DISPLY

IMP

LEMI1I

dump2

: SOFTWARE TIMEOUT OCCIRRED
014010
014010

014014

104414

000137

032725

SWTIM:

014039

014020
014020
014024

104414
000137

032777
014034

DISPLY

IMP

:DRIVE
-

OFLIN:

BITS

oaxrég $TATUS(RO) ss;
IF onxvs WAS UNSAFE

DISPLY

UCPAR:

gxr
NE

BNE
BIT
BNE

014034

:823

4065
4066
4067
4068

oonc

:*FATAL®
014000

3823

IMP FLAG

;BR_IF ORDER DIDN'T COMPLETE NORMALLY

: UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED

4055

4oe!l
4062

:SET THE NOT

*RETURN

091707 STATUS(RO)

ERPR

BIT

014034

:823
40S6

SEQ 0081

:DRIVE IS PERSISTENTLY UNSRFE

:B:g
4049
4050

BEQ

000267

:835
4043
4044

PAGE 82

8-1,SEEKFG

RTS

4033 013726 032760 001000 000016
4034
013734
001025
4036 013736 032760 040002 00CO16

3833

D07

: PROCESS ORDER COMPLETION WITH

4027
408

4036
4037
4038

10:00

GET VALUE FOR SOFTWARE SWITCH REGISTER

INP

:852

4031

28-NOV-7?

:ORDER TERMINARTED WITH AN ERROR - PROCESS THE ERROR

4021

4022

30(1046)

WENT

LEM13

bumP2

OFFLINE

DISPLY

LEMIM

JMP

UMP2

.PORT REQUEST

TIMEOUT ERROR

CoRMIBO RMO3/2 DR CPT TST
CJRMIB.PLL
28-NOV-77 09:4¢
4072
4073
4079
4075
4076
4077
4078

:ggg

014030
014630
014034
014040
014044
014050
014054

014056

104414
104401
104401
104401

(33022
001205
037303
001205

000137

000200

104401
000000

MARCY11l

PRTIM:
DUMP2:

037182

s PROCESS

4083

0I4

032760

000030

4085

014072

000137

014650

040000

000030

4088
4089

014106
0ivil2

000137
032760

014430
040000

000032

014122

000137

014620

4086
4087

014070

014076
014104

001402

032760
001402

4090

0I4120

4092

014126

032760

014136

000137

40391

4033

014134

4095
409

0l4142
014150

4094

4097

014182

4100

014166

4103
4104

4088
4099

001002

00I402

032760
001402

000137

014156
014164

032760
001402

014172
014200

032760
001402

000400
014460

000020
014500

000200

DISPLY
TYPE
TYPE
TYPE

,EMIS
'$CRLF
"XFATL
"SCRLF
"HALTX

IMP

28200

TYPE
HALT

3835

4084

EQ?7

30(1046)
28-NOv-77
10:00
_PRGE 83
GET VALUE FOR SOFTWARE SWITCH REGISTER

000016

000034

DONE:

ORDER

:CR-LF

'ERROR'

°'DONE'

#BITO4!BITO3,STATUS(RO)

;UNSAFE

IMP

UNSRF

UNSAFE

NP
BIT

WCKER
:WRITE CHECK ERROR
sBIT14, SRMDS(RO) ' ; CHECK 'ERR’

JMP

TRFER

BEQ

. +b

BEQ

BNE

BIT

.+b

:BR IF NOT
:REPORT

: PROCESS

#BIT08, SRMER1 (RO}

; "HCRC’

' TRE’

;BR IF NOT

CKFMT

:CHECK

FORMAT

JMP

CKHCE

:CHECK

'HCE'

000034

BIT
BEQ

:PROCESS

SET?

HCRCER

BIT
BEQ

’HCRC’

$BITO4, SRMER1 (RO} ;: 'FMT’ SET?
. +6
;BR_IF NOT SET

#BITO7,SRMERL
(RO} ; "HCE' SET?
. +6
:BR IF NOT SET

014510

020000

000034

014202
014206

000137
032760

014530
000010

000034

JMP
BIT

OPIER
'REPORT
#6173, SRMERI(RO) '; "PAR’

’'OPI"
SET?

4106
4107

Ol4216
014222

000137
032760

014550
000040

000034

JMP
BIT

PARER
:REPORT
#BITS, SRMERL (RO) ' : "WCF'

'PAR’
SET?

4109

014232

000137

014640

JHP

WCFER

'WCF"

4111

Ol4eyM

00140;

BEQ

. +6

4113
4114

014252
QI4260

4105

4108

4110

4112

014214

014230
014236

0DOI402

00i402

032760

002000

BIT
8EQ

014560

004000

000034

4115
4116

0l426e
014266

000137
032760

014570
O0OG1000

000034

4118

014276

032760

002000

000032

000034

014274

001405

4119

0143084

001401

4121

014310

032760

010000

0C0137

014540

4120

014305

4122

014316

4124
4125
Yigb

(014324
014330
014332

4123

4127

014320

01423

0002

001402

005760
100002
000137

032760

000034

014420

060000

BEQ
BIT

000137

4117

BEQ

000034

014246

032760
001402

BIT
BEQ

000062

IMP

INP
BIT

2$:

ERROR

. +6

:BR IF NOT SET

.+b

:8R IF NOT SET
*REPORT

#B1T10, SRMER1 (RO}
tREER

;'IRE’

SET”?

-8R IF NOT SE

'REPORT

'IRE°

WLEER
‘REPORT
sBIT3, SRMERL (RO) ' ; 'AOE’

'WLE’
SET?

$BIT10,$RMOS(RO) ' 'LST*

SET?

#BIT11,SRMERL
(RO} :'WLE' SET?
. +6
:BR IF NOT SET

;B8R IF NOT SET

BEQ

:BR IF NOT SET

BIT

#8IT12,SRMERL
(RO

RTS
BEQ

S'AOE’

'LST'

:BR'IF NOT

DTEER

BI”

$BITI4!'BIT13, $RMER2(RO)

SRMER1 (RO)
. +6
DCKER

;SEE IF

JMP

ST
8PL
JMP

ERROR

#BIT13, SRMERL (ROY ; "OPI' SET?
.+b
:BR IF NOT SET

BEQ
817

OCCURRED

;BR IF SET

JMP

000034

SET

#BIT14,SRMCS2(ROY
;IS 'WCE’ SET °
. +6
;BRANCH IF NOT SET

000137

4101
4102

BITS

BIT

BIT
BEQ

1S:

COMPLETION WITH

SEG 0082

'REPORT

SET,

'DTE’

SET

'DTE®

ERROR

:*SKI'

:SEE IF "DCK® SET
‘BR IF NOT
: PROCESS *DCK’

EXIT

‘OCYL®

SE”

—p— > — —

P11l

LLL&-CU% SRAZEREEYE

s P P

e bt B

g £ L£LL£L
0D m~ on £WM—0OWw

Bt Pt B

Pt P

Pt B

e Pt P

££ £4 L
£ L PSPPI PPPPPPE PPN

0 RMO3-2 DR CPT 7S7

28-NOV-77 09:42

MACY1l

3011046)

001006

014356
014362

000137
000137

014470
014630

014372

xoquo;

035723

014266

0iN376

014400
014402
014404
014466
014412
014414

014420
014420

014424

104401

10~00

104010
104011
104012
10440f
000000
000137

104414

000137

qs:

TYPE

"SCRLF

IMP
IMP

DRVER
SKIER

TYPE

:PROCESS DARTR

('DCK’)

DCKER:

014660

014430
014430
014436
014440
014450

014484

OO
N NN NINNNYINOoO
T
Wh—-OWwONCNLWU—DODNIN
L (D

ot Bt s Pt Pt Pt Bt b
e Pe Bt Bt Bt B

:REPORT ERROR
:REPORT DRIVE ERRCR

10
11
12
L HALTX

DISPLY

JMP

032760
001004
104414

000137
104414

000137

100000

000034

WCKER:

033203

014660
033130

014660

18:

BIT
BNE
OISPLY

CHECk ERROR

,EM2!

AHumMpP

014460
014460

014464

104414

D00137

033056

HCRCER:

014660

#BIT1S, SRMERL (RGO
18
EH23

IMP

bum

oMP

buM

DISPLY

:REPORT 'HCRC'

LELELEELELLXELXKEL
LKL EEX

"MESG11

98200

00U200

ERROR
ERROR
ERROR
TYPE
HALT
JMP

037152

:WRITE CHECK ERROR PROCESSING

014444

Be et Bt Bt Bt Bt Bt

SES 0083

uexrxs SRNERE(ROS
BAD SPOT 2
4$
: BRANCH ir S0
3s

ERROR

033077

PAGE 84

BIT
BNE

BNE

3%:

001205

10:00

GET VALUE FOR SOFTWARE SWITCH REGISTER

014346 03276C 100000 000062
014354 001004
014344

28-NOV-??

FO7

DISPLY

IMP

EHEE

ERROR
LEM2O

bumpP

:REPORT DRIVE ERROR
014470
DI4470

014474

1084414

000137

033473

LRVER:

014660

DISPLY

IMP

:PROCESS FORMAT
014500
014500

014804

104414

000137

033262

CKFMT:

014660

DISPLY

LEM30

bump

(‘'FER’
,EM2Y

buMP

:PROCESS HEADER COMPARE
014510
014510

0i4€14

104414

100137

033330

Ol14€6D

CKHCE:

ERROR

t'MCE')

oxsva
enas
buM
JMF
:POSSIBLE POSITIONING ERROR

ERROR

:DCK BIT SET 2
'BRANCH IF SET

CIRMIBO RMO3 2 DR CPT _TSTY
P8-NOV-T7 09:42
CZRMIB. P11
41BY

014520

4185

014584

4187
4188
4189

014530
014530
014534

4182

014540

4194

Q14544

4186

:ig?

4193
:igg
4197

4198

(QI4S40

014550

104414

000137
104414

034631

CI4e60
033525

014660
03357

014660
033623

4199

0145584

000137

014660

4202
4303

014560
014560

104414

033742

358?

:ggg

014864

G00137

014570

4216

014574

:S*é

014570

4213

014600

421S

014604

4218

014610

4214

:g};

:ggg

014600

014614

104414

000i3”7
104414

000137
104414

000137

034002

014660

033411

014660
033436

014660

:ggé
[

4223

014620

:sgg

Ol4bed

Yyeo4

014620

104414

000137

(034113

014630

423i

014634

01463C

4234

Ol464D

:ggg

014644

4235

4233

DISPLY

IMP

,EMSI

buMP

,EM3!

bump

:REPORT °*DTE’ ERROR
DTEER:

DISPLY

JMP

LEM32

bump

;REPORT 'PAR’ ERROR
PRRER:

DISPLY

LEM33

JMP

dump

DISPLY

bume

:REPORT *IRE’ ERROR
1REER:

IMP

WLEER:

DISPLY

JMP

,LEM3S

014640

1044]l4

000137
1044i4

000137

034573

014660

033700

014660

LEM3&

bump

: REPORT FORMAT ERROR

FMTER:

DISPLY

EM26

bump

;REPORT HERDER COMPRRE ERROR

HCEER:

DISPLY

JMP

,EM27

bump

. PROCESS CONTROL/INTERFACE TRANSFER ERROR
TRFER:

DISPLY

JMP

:PROCESS "SKI®

4228
4229

:ggg

IMP

.REPORT 'OP1' ERROR

OPIER:

014660

4227

4230

CJSPLY

:REPORT WLE ERROR

4208

4209

POSER:

014680

4206

4207

GO7

MRCV11 30(*045) 28-NOV-77 10:00 PAGE 85
GET VALUE FOR SOFTWARE SWITCH REGISTER

SKIER:

DISPLY

TMP

LEMNO

bump

OR "OCvL'

LENSO

bumP

:REFORT WRITE CLOCK FAILURE
WCFER:

DISPLY

IMP

LEM34

bumP

.REPORT DRIVE UNSAFE EPROR

CORMIBO RMO3 2 DR CPT TST
28-NOV-7T 09:42
CZRMIB.P11
4240

014650

4o42

014654

44l

4243

YouM

014650

4245

014660

434?

Glyebe

4250
4251

0J%670
014674

4a24b
448
4o49

4262
4283

42ty
4285

104414

000137

014660

104007

014664
014666

104011
104012

Q14702
014710

HO?7

UNSREF:

034674

014660
DUMP:

104010

0C4737
012737
012737
000207

177777

023470

4268
4259

4260

4261
4e6e

4263
4oe4

014712

032760

060000

000020

014722

032760

17740C

000030

014720

014730
014732

014736
014740

001012

001006
005760

001003
005760

4265

014744

001404

4267

014752

000137

4266

:Sgg

014746

014756

104414

000207

35;9

034347

5760
1011

000022

:a;g

oisooa

82f333

000024

couse
BIEM OB
B3
0137 014660
4281 018014
4285
4286

015022
015026

104401
104401

3533

4287

015032

104401

4288
4289

015036
015042

016001
016046

4232

016084

005046

4290
4291

4293
4294
4£9c

015046
015050

015066
C1S0E2
0iSDeE

00SH416
066016

012746
004737
00S”1e

ERROR
ERROR

{1
12

BNE
TST

SNE
TST
18:

28:

CKBUS:

:CLEARR THE SUB-SYSTEM

PC,RMINIT
s-1, SAVEFG
8-1.SEEKFG
PC

: YES
:ANY ERROR IN ERI
:YES
'ANY ERROR IN ER2

1§
SRMER1 (RD)
18
$RMER2(RO)

BEQ

:BRANCH }F NO ERKOR

IMP

bump

: TYPE ALL REGISTERS

DISPLY

RTS

,EMHM

001205
037034

001205

000924
000004

000022

000400
OlEl0E

s
2%:

;ugno COUNT = O
‘N

71ST
BNE

?RHNC(RO)
S

CMP

ésp)+.snnan<no;

:°X
NEC
ADD

0163“5 00000
01:;96
:2;4
BRzilk
Biisog
187z
4277 014776 066016 000C06
000207

.CHECK BUS ADDRESS REGISTER AND WORD COUNT REGISTER

81“7 0
4764

015020

ERROR

:CKECK ERROR BITS IN THE RH1l AND RMO3 REGSTERS
:SEE IF 'TRE® OR °"MCPE’
860000, SRMCS 1 (RO)
CKERR: BT
BNE
18
: YES
:ERROR BITS IN CS2 /
8177400, SRMCS2 (RO)
BIT

000062

4573
437

4282

bumpP

MOV
RTS

000034

014660

LEMBO

IMP

JSR
MOV

023466

:e§§
[4-Y4

DISPLY

ERROR

023544
177777

SEG 0085

MACY1l 30(1046) 28-NOV-?7 10:00 PAGE 86
GET VALUE FOR SOFTWARE SWITCH REGISTER

By
JMP
RTS

/ NUMBER OF WORD C COUNT
(SP)
’“R?H(RO)'°
:‘“O$DThENngxrxxs
(
TEhURY
18616
(2f)
$BUF (RO), (SP)

: TYPE ALL REGISTERS

bumMP
PC

“ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR

PRTBAD:

TYPE
TYPE

,SCRLF
"MESG19

MOV
MOV

:PUT THE END ADDRESS INTO Rl
, Rl
RMBA(RO)
) :FIND THE BEGINNING OF THE SECTOR
. -(SP)
WROM(RO

TYPE

SCRLF

NEG
ADD

(SP)
SRMWC (RO), (SP)

MOV
JSR
N

$256.,-(SP)
PC, L IAKDY
(3P

CLR

-(SP)

IGET THE POSITIVE NUMBER OF WORD COUNT
:SUBTRACT THE WORDS NOT TRANSFERED
'MAKE THE UPPER DIVIDEND O

;DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZ
"DIVIDE
!REMANDER = 0 °
w“

CSRMIBC RMO3.2 DR CPT T1ST
CSRMIB. P11
28-NOV-77"09: 42
4296

015070

4298

015074

429T

4299
4300

4301
4302

(015072

BEG

161601

SUB

006316

000402

015104
015110

062706
012702

162701

4303
4304
4305
4306
4307
4308

015114
015120
015132
015126
015130
015134

020160
00141S
104414
012146
004737
022711

4310
4311
4312
4313

015142
015144
015146
015152

005302
001363
104414
000756

430S

4314
3312

4317
4318

015140

015184
018160

4319

015162

4321

015170

4320

4322

4323

DOI405

04474
000297
104412

015164

01600l

015174

0OS4N2

015176

016002
012705

4324

015202

012703

4326

015210

006302

015214

005303

018220
016224
015230
016232
018234

012703
012706
000766
104413
000207

4325 015206 012521
4327

016212

4329

015216

4328

4330
4331
4332
4233
:ggg

107

30(1045)
28-NOV-?7
10:00
PRGE B7
GET VALUE FOR SOFTWARE SWITCH REGISTER

001403

(15076
015100

MACY11

001000

1%:

000004
000007

28:
3%:

000024

036604
015302
177777
001205

001205

c§:
68:
FILBUF:

000006

000004

000020

3%:

1S -

COMPLETE

'FINISH THE SIZING

ADD
MOV

ow SP
Re

sp),

SUB

#1000, R

CMP
BEQ
DISPLY
MOV
JSR
CMP
DEC
BNE
DISPLY
BR

DISPLY
RTS

SAVREG

Rl' $RMBR (RO
cs§’
LINSP
tR1)+, -(SP)
PC,LINOCT
s-1, (RD)

R2
4s
,S$CRLF
is

,SCRLF
AC

MOV

$BUF (RO) ,R1

NEG

SWRDM (RO} , R2

MOV

nsrnogr RS

MOV

0,R3

MOV

(Rs$+ (R1)+

SECTOR TRANSFERED

RESIDUAL SECTOR SI1ZE INTG BYTE COUNT

!SUBTRACT

FROM

' SUBTRACT

FULL

THE END ADDRESS

SECTOR sxzs

FROM END ADOR

;RESTORE THE STACK POINTER
;R2_CONTAINS THE WORDS/LINE COUNT

:PRINTED ALL THE SECTOR
‘BR IF ALL PRINTED
: SPRCES
:PUT THE onTn ON THE STACK
' TYPE THE DATA
JEND OF FILE 7
:BRANCH

DECREHENT THE HORIZONTAL COUNT
:BR 1 NOT AT THE END OF THE LINE
: CRRssrons THE WORDS/L INE COUNT

:PRINT WHRT REMAINS IN THE BUFFER
*
RETURN
; SAVE

THE REGISTERS

:BUFFER ADDRESS

POSITIVE WORD COUNT
PQTTERN ADDRESS

:PATTERN COUN

"MOVE THE PATTERN INTO THE BUFFER

DEC

osc

MOV
MOV
BR
RESREG
RTS

#20,R3
#STADAT, RS
38

Resrone PATTERN COUNT
:RESTORE THE ADDRESS
:CONTINUE DISTRIBUTING THE PATTERN
RESTORE THE REGISTERS
*RETURN

4§

BNE

4s:

BLE

000020
002€E42

convsnr THE

MOV

002642

:BR

(5P)

BEQ

003407

001373

ASL

SEQ 0086

oscnenem THE WORD COUN
5£

'BR

(WORD COUNT = 0)

MENT THE PRTTERN COUNT
i;ORE PATTERN

“336
<3537
:ggg

H ;ll4l>ii!lilliiill!!liilllli!lilililli!llli’lblillillilillilflliiil!

:;:?

HH RBERERRFBRERRERESPBER LB ERRAREFREREREREREREEERFRRERERERRERERERREERERER

4342

;PRINT LINE

.SBTTL

:g:g

S *HH:MM:SS’

4345
4346

015236
015244

032777
001402

002000

4348

016352

032777

020000

4347

4349
43c)

43€]

ERROR MESSRGE GENERATION ROUTINES

01E246

015260
016262

0l1S26E

104401

001403
104414

00040M

001200
001205

OF ERROR MESSAGE:

163710

LINEl:

BIT
BEQ

#SW10, ISWR
18

163674

1S:

BIT

hSWI3, ISWR

TYPE

BEQ
CISPLY

SBELL

2$
. SCRLF

;SWITCH 10
:BR xr NOT

SET

'RING THE BELL

,INHIBIT rvpeour ?

;BR IF NOT
i CR-LF

TEAIT

CZRHIBO RMO3/2 DR CPT_TST
CZRMIB. Pl 1
28-NOV-77 09:4¢
0 5270
) 327
o 1S300

004737
1044 1Y
000207

30(1046)

2s:

JSR

pIsPLY
RTS

38:

e
$t ot Bt B

e oo

00000000

;
:
0c
06
12
16
24
26
30
32

016646
004737
012637
062737
104414
000000
012616

28-NOV-77

000002
017046
015326
000005

10:00

PC,STIME

oMoV
JSR

RE TURN

LINOCT:

MOV

TIME

:PUT THE NUMBER ON THE STACK

-(SP)

:PUT NUMBER

IN PROPER LOCRTION ON STACK

CONVERT THE NUMBER TO OCTA
GET THE ADDRESS OF THE nscxx STRING

LWORD
MOV
RTS

O
(SP)+, (SP)
PC

nooREss
*CORRECT TME STACK
:RETURN

THE

DISPLY

MOV

CONVERT

noonsss THE LAST & ASCII DIGITS
INPUT

YPE

NUMBER

TO DECIMAL

AND

TYPE

IT WITH

NUM, - (SP)

RE TURN

PC, LINDEC

sPUT THE NUMBER ON THE STACK

JSR

LINDEC:

MOV

2(SP),

:SET UP STACK

;

012616
000207

THE

PC sséao
<s¢>+

ADD

0153¢e6

:ROUTINE

350
352

SEQ 0oer

' SPRCES
'RETURN & TYPE DESCRIPTION

NUM, - (SP)
PC,LINOCT
2(SP),

JSR
MOV

18:

000002
017016
0le422

sTYPE

,LINSPO
pC

.EE EI G ZERO SUPRESSION

016646

PRGE

TYPEOUT ROUTINE

000207

334

JO7

ERROR MESSAGE GENERATION ROUTINES

;8EIEL

JSR
JSR
ggg

~-(SP)

PC, $582D
PC. $SUPRS
§5¢" (SP)

IR EE L2222 2222222222222

.SBTTL

GENERAL

FOR convenv

:CONVERT IT TO DECIM
STYPE IT (WITH LEQDING Z2EROS SUPRESSED)
'RESTORE STACK POINTER

2222222222

22222222

2222222222222 222223222

SUPPORT SUBROUTINES

SRR
RN RERRRRRRRRRRREREE RN

;ROUTINE
S4

012737

CKCLK:

4575

e $e

e B

e Be B

e Bt B

m Dt B

OQO0O000000000000

4352
4353
4354
4355
4356
4357

MACYI1

CKCLK1:

TO CHECK FOR KW!l-L OR KWll-P CLOCKS

MoV

81, CLKFLG

;CLEAR CLOCK RVAILABILITY FLAG

CLR
CLR
MOV
MOV
MOV
MOV
ggv

CLKFLG
PCLOCK
SLPVEC,R:
#CLOCK. (R1 s+
8300, (R1)
8-1667.,98LKCSB
.laflk
8L KCSR

:SET CLOCK nvnanexLITv FLAG
*SET xu11 P CLOCK FLAG
TKW11- vccron aoonsss
!SET UP KWI1-P VECTOR
:PSW - PRI &
:LORC COUNTER BUFFER WITH 16.67
iSET CLOCK - CNT UP, 10US, CONT INT

ADD

-ckche IBERRVEC' ;CHANGE ERROR VECTOR TO CHECK FOR KMll-L

MOV

MOV
CLR
TS7T

MOY

8-1 '

PCLOCK

:CLERR KWl1-P CLOCK AVAILABILITY FLAG

ccx¢Lx1 ERRVEC ser UP VECTOR FOR CLOCK CHECK
S8ERRVEL+2
EW PSW
aSLKCSR
checx FOR KWll-

sRESTORE

THE STACK POINTER

CZRMIBO_RMO3/2 DR CPT TST
CZRMIB.P11
28-NOV-77 09:42
4408

QI1S462

005777

Y41l

0IS476

012721

y409
4410

163620

SEG 0088

JSLKS

;LOOK FOR KW1l-L

MOV

ocLocx (R1)+

;SET

005037
013701

001314
Q01310

CLR
MOV

012711
Q12777
12

0003
000100

104401
005737
001400

000004

, (R1)
$100’ a8LKS
CKCLK3

4416 015522
4437 015526
4418 015532

062706

MOV
MOV
BR

036613
000042

TYPE
1ST
BEQ

NEDCLK
42
18

:'P OR L CLOCK MUST BE ON SYSTEM'
;UNDER MONITOR CONTROL 2
iBR IF NOT

4420
w421

000137
Q12737

003062
000006

START
86, IBERRVEC

; TRY _AGAIN
;RESTORE THE ERROR VECTOR

4412
4413
4414
4415

4419

442
4423
4424

015466
Oisuze

KO?

MACY11l 30(1046)
28-NOV-77
10:00
PAGE 89
GENERAL SUPPORT SUBROUTINES

015502
Q158506
015514
015516

015534

Q015636
Q015542

015550

006207

015650

163572
CKCLW2:

18:

000004

::gg
015552

005737

001314

4429

015560

104401

001208

017016
016332

001344
017016
016332

015556

4430 0155p4

001033

015570
015574

015600

737
004537
000082

4435
4436
4437
w438

015606
015612
01Sb16
015622

01374
004737
004537
g2

w441
4442
4443

015634
015640
015644

4439

JMp
CKCLK3: MOV

RTS

015602

01Sb24

STIME:

Q13746 001342

w31
4432
4433
4434

104401

036664

104401

036664

004737
004537
000002

017016
016332

OlSe4e

4449
44s0
4451

4452

4483
4454
44E5
445p
4457
4458
4453
4460
4461

w4be

Y4E3

CLKFLG

MOV

TYPE

UOUR- - (SP)

.WORD

TYPE

KWll-L VECTOR

;PSW - PRI &
;SET KW1l-L INTERRUPT

;RESTORE THE STACK POINTER

PHALT

18:

PC, $5820
RS, REPLZ
COLON

;CLOCK OM_THE SYSTEM

:BR IF NOT

; CR-LF

:PUT *HOURS' ON THE STACK
,CONVERT TO DECIMAL
YPE IT

rvps 2 DIGITS

AINUTE, - (SP)
PC, $582D
RS, REPLZ
2

'POT 'MINUTES’ ON THE STACK
CONVERT TO DECIM
:TYPE IT
rvpc 2 DIGITS

JSR
JSR
.WORD

PC, $582D
RS, REPLZ
2

convsnr TO DECIMAL
i TYPE IT
; TYPE 2 DIGITS

TYPE

000207

13,

MOV
JSR
JSR
WORD

MOV

446
4448

TST

BNE

JSR
JER

4440 015630 013746 001346

4443

HAL T

4, SP

;SET CLOCK FLRAG
iKWl1-L VECTOR ADDRESS

sROUTINE TO TYPE THE TIME

4427

4428

ADD

CLKFLG
SLLVEC,R!

RTS

OLON

QECOND -(SP)

UT SECONDS ON THE STRCK

;CLOCK MANDLER ROUTINE
015650

015654
016656
015664

015670

00S337

001033
013737
005237

022737

015676
015700
016704
01€710
015716
016720
015724
015730

001022
00S037
005237
022737
001012
005037
005237
022737

015740

005037

015736

015744

103002

012746

001350

001316
001346

CLOCK:

001350

000074

001346

001346
001344
000074

001344

001342
001747
001342

000021

001342

DEC

SIXTEE

; INCREMENT

CHP

#60. , SECOND

JAT MAXIMUM ?

BNE
MOV
INC

THE

1,60 SECOND COUNTER

:BR_IF A SECOND NQOT COUNTED
RESTORE THE VALUE
: COUNT THE SECOND

BNE
CLR
INC
cHP
BNE
CLR
INC
CMP

1§
SECOND
MINUTE
#60. ,MINUTE
18
MINUTE
HOUR
#9993, ,HOUR

:BR_IF NOT
;CLEAR THE SECOND'S COUNTER
:COUNT THE MINUTE
i AT MAXINUM 2
:BR_IF NOT
;CLEAR THE MINUTE'S COUNTER
: CCUNT THE HOURS
‘AT MAXIMUM

CLR

HOUR

iCLEAR THE HOURS

BHIS

1%:

1§
HZ,SIXTEE
SECOND

MOV

1§

#l7.,-(SP)

;BR_IF

NOT

1? MS ON THE STRCk

CZRMIBO RMO3-/2 DR CPT TST
CZRMIB.PILI
28-NOV-7709:42
Y464

::gg

015750

01S~S4

004?37

000002

MACY11l

02774C

LO7

30(1046)
28-NOV-7?7
10:00
PAGE 90
GENERAL SUPPORT SUBROUTINES
JSR

2s:

RTI

PC,RPTMR

::gg

EOE"“”O DECODE ROUTINE

4469

MOV

#-1,CFLAG

447
447

;
:

JSR
RETURNI

PC,KSR

KSR:

SAVREG

44T

;

”333
4475

w76
4477
4478
4479

4480
4481
4482

4483
4489

44B8S

:
0i5756

015760
015766
015772
015776

016002
016006
016010
016012
016014

020240
104413

001334

062716

000002

016026

062777

000100

016N22

4488

016034

::gg

005737
001002
000240

000200
001334
015552
163160

016016

yyge

4487

10441

012737
00S037
0047237
00S???

016040

005777

005037

000207

163134
177776

449

443y
016042

4438
4499
4600
4501

016042
016044
01604
016050

010146
010346
010446
010546

4503

016054

062704

016052

010004
012703

000020

4506
4507

016066
016072

162703
001374

000002

016064

4508
4509
4510
4511

016674
016076
016100
016102

4514

016106

4E17?

0lelle

4§15
4516

4E18
4£19

ADD

016104

00504

RE TURN

104412

QlE€110
016119

O0I660S
005004

0l6le2
Dl6icE

016603
00S00C

016602

000030

000032

LINKDV:

THE

RETURN

xnc§£n$nr THE nsrunn ADDRESS

#81706, ISTKS

:RESTORE

TTY

HE TTY BUFFER
INTERRUPT

ENRBLE

ssr PRIORITY BACK TO ZERO

' RETURN
THE DPB FOR

THE RSSIGNED DRIVE

::PUSH
11PUSH
:;PUSH
:'PUSH

RDD

(RY)

PC,CLRDPB

R1
R3
R4
RS

ON
ON
ON
ON

STACK
STACK
STACK
STACK

RO, RY

:GET THE DPB ADDRE

MOV

sSEMTAB-2,R3

!NUMBER OF LOCATIONS TO CLEAR

SUB
8NE

#2,R3
18

CLR

SAVREG

(SP)+,RS
(SP)+.RY
(5P)+.R3
(5P)+ R1

:ADDRESS OF

FIRST

:CLEAR

THE

STORAGE

: ;POP
::pOP

STACK
STACK

::POP STACK
:'POP STACK

INTO
INTO
INTO
INTO

: STORE

:DECREMENT THE
'LOOPING BRCK

(RET

LOCN

BYTE

TQ as

CLERRED

LOCATION
COUNT

RS
R4
R3
Rl

MOV
CLR

26(5P),RS
RY

:DIVISOR
:OTHER DIVISOR WORD

MOV
CLR

32(5P ) .R3
RO

‘_OWER DIVIDEND WORD
*CLERR OTHER DIVIDEND REGISTERS

MOV

TTY

THE
R§Gx§rsns

R}, -(SP)
R3, -(SP)
R4, ~-(SP)
RS, -(SP)

SET

:SET PRIOR
:CLERR THE *CONTROL C' FLAG
STYPE THE TIME
:CLEAR ANY GARBAGE IN THE TTY BUFFER

MOV
MOV
MOV
MOV

RTS
00002e

:SAVE

:DPB ADDRESS

MOV
MOV
MOV
MOV

000207

:SYSTEM BUSY

8DPB, RO

JSR

MOV

012605
012604
012603
012601

IS NORMALLY

*ROUTINE IN INTERRUPT MODE

82, (SP)

TO CLERR

:"CFLAG'

:CHECK THE CONTROL C FLAG
(EXIT IF "CONTROL C’ EN*E ED
:DUMP CODING FOR LATER USE 3/8/77

MOV

TIMER ROUTINE

CFLRG
[

CLR

18:

8PRY PS
CFLAS
PC_STINE
astks

Jstka

RTS

:ORIVER

:RETURN AFTER KEYBORRD SERVICEC

TST

BIS

000002

016060

:gig

NOP
RESREG

16314

CLRDPB:

4S04

4S0S

187
BNE
NOP

78:

Q49E

4502

;CALL:

4433

4487

MOV
CLR
JSR
YST

:ROUTINE

4492

4496

177776

RE TURN2

SEG 0089

30(SP),R2

*UPPER DIVIDEND WORD

SERVICE

REFRERS

CZRMIBO RMO3/2 DR CPT TST
CZRMIB.PI1
e8-NOv-77 09:42
4520
4Ssel
wsag
Y

4258
1258

00SQul
004737

MRCY11l

CLR

JSR

016154

MOV

012616
000207

1- Ra 3=p

2FndEREL

oo
o

s s Pt Pt PPt Pt Pt Pt et s Pt Pt Pt Pt Pt Pt o Pt P Pt Pt

e P

Pt Pme

000040

MIE
e
R

M.DPN0O:

2(SP)

ROL
ROL
ROL

R
RI
RO

ADe
ADC
M.DPY41:

RDC
15T

BCS

000010

M.DP44:

"CRQR(“
xfloxgn ELSE SJUBTRACT
ELsafl
us EERnESENTRE
e

5‘5”’Rl
ase

RO’

ROR

062706

asppql
DB

ADO
ADC
RDD
cLC
ROL
ADD

RS, R1

SpP

4 RO

JsP

asp

L +4
R3
6(SP)
M.DP40

INITIAL SUBTRACTION

: IF CARRY THEN OVERFLOW HRS OCCURRED
:THIS IS A LONGER LRSTING CARRY BIT

RDC

BEQ
INC
DEC
8GT

000006

M.DPSO
5(5P)

oe oxvxson TO THE STACK

:PERFORM THE

4(SP) no ‘M. DPY2

988
M.DP42:

TER FSR DIVISION CYCLES

:FORM
NE
vsnsxon or rus DIVISOR

RDD
BR
ADD

Lou

2(SP)

RDD

N
BER

(SP)

2(5p)
JSP

9SP,R1

BCS
SBE

PC,M

RS’ -(3P)
L=

RDD

ADC

000004

Vggggg N

040,-(§P)

SBC

000002

£
O
—n

Lo
nNoo

Bra R FIREIRRE
LS
no

MOV

000002

005203
005366

NEG
NEG

0oooo2

00S046

ENTE
MOV

000002

Pt et Pt

——

Bt Bn Dt Bt Bt Dt Bt Bt Pt Pt ot Pt G § < Bt Pt (s Pt

4542
4S43

4541

!MOVE RETURN UP THE STACK

SRR i,
gvms

4540

“‘"?L”R
R ok THEE STACK
tAHRTORE RS- TRE

aw-R§=D]

4538
4539

:GO TO THE DIVIDE ROUTINE

(SP)+, (SP)

RTS

SEG 0090

oxv SION g?lL%TY
SUBROUT INE

0000000000000 CLO000O0O00ODOOOOOOO0OOOO0O0O0D0

ono

Hov
“5 308
RESREG |

s 386832

4359
4830

4534
453S

MO7

28-NOV-77
10:00
PAGE 91
GENERRAL SUPPORT SUBROUTINES

30(1046)

;1
s (=

=)
Pl
¢~

.
VISOR)
29 8&
:ADD +(DIVISOR)

!SET “CARRY"

:SET * SARRY*

:TEST THE uponrs

xnorcnroa

"I1F ZERO FORGEY IT
*NO CARRY POSSIBLE HERE
:DECREMENT COUNTER
'BRANCH IF MORE TO DO

M. DPYY
ns,R1
RD
]4, RO

410, 5P

:ADJUST

STACK

4 WORDS

CZRMIBO RMO3/2 DR CPT_TST
28-NOV-77 09:42
CZRMIB.PIL1
4s?6

016316

000242

4578

016222

062706

4577
4579

4580

4282

016320

016326

016330

000207
000262

NO7

SEG 0091

MACY1l 30(1046) 28-NOV-77 10:00 PAGE 92
GENERF- SUPPORT SUBROUTINES
cLV

RTS

M.DPSO: ADD

000006

SEV

000207

46, 5P

:gga

QSEII“E 10 REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPARCES

4585

4586
:ggg
4589

:
:

016332

010046

4S30
4591
4592
4593

016334
016340
(16342
DIi634

012746
162516
016600
122710

000012

4595
4536
4597

016354
016360
(016362

112710
005200
000771

000040

4594

4538
4600
4599

4601

4602
4603
4604

460S
4606
4607

:ggg

016352

016364
016366
016370
016372

016376
016404
016410

0l64l2
016414
0l6416

016420

001004

105710
005300

000006

2s:

001003

112710

016637
062637
104401

000060

000006

016412

000000
012600
012616

woel

422
423

; CALL

RO, -(SP)

:*N' 1S NUMBER OF DIGITS TO BE TYPED
;SAVE RO

MOV
suB
MOV
cCMPB

810. ,=(5P)
(RS)$, (SP)
6(5P) RO
2’0, (RO)

‘MAXIMUM NUMBER OF DIGITS TO BE TYPED
SUBTRCT DIGITS TO ronn INDEX
ADDRESS OF NUMBER TO RO
sounL TO ASCII '0°
avr;

MOVB
INC
BR

840, (RO)
RO
18

ksns H§
NT

BNE

TST8
DEC

(RO)
RO

MOV

s(gfi),qs

BNE

MOVB

ADD
TYPE
.WORD
MOV

#°'0, (RO)

ERO HITH n SPACE
BYTE RDDRESS
LOOK FOR nons LERDING ZEROS

see F z;no avrs TERMINATOR
encxgp ErnxncPOINTER
PUT

ZER

T_ADDRESS IN LOCRTION FOR TYPEOUT

(SP)+.48
O
(SP)+,R0

aecxnnxnc OF SIGNIFICANT DIGITS
PTYPE THE NUMBER
!ADDRESS OF NUMBER
:RESTORE RO

'RETUR

(5P)+. (SP)

nove asruau ADDRESS

016422

016424

010046

016600

000004

122729

000060

005300
010037

016452

016430
016432

105710
0014C3

016440

001773

016434

O0l6442
016444

:252

016460

016486

104414
000000
012600

012616

000207

MOV

SNUMADR, - (SP)

;FIRST ADDRESS OF ARSCIZ STRING

RO, -(SP)

JSR

PC, SSUPRS

$SUPRS: MOV

MOV

q(sp) RO

; SAVE RO
THE POINTER
,chxup

CMPB

8'0, (RO)+

.xs

RO
RO, 38

:BRCup
i SAV r

;

016450
016452
016484

4£30

MOV

:ADDRESS OF NUMBER (IN RSCII)

. TYPE NUMERICAL RSCIZ STRING SUPRESS LERDING ZEROS

4po4
4625
4626

4627

ys:

000205

:gig

4620

3§:

RS REPLZ

RTS

qe12

4618
4619

016412

$ADR, - (SP)

JSR
. WORD

MOV

46123

4616

18:

000060

:g}?

4617

REPLZ:

MOV

18:

2s:
3s:

1STB
BEQ
BEG

DEC
MOV

DISPLY
.WORD
MOV

MOV

RTS

(RD)
2$
18

O
(SP)+,R0

(5P)+. (SP)

;ROUTI'IE TO TYPE AT PRIORITY Y

,TERH oa
;BR *
.a

HIS nn RSCII 'O’ *

v ']’
TYPING

:G0_PRIN
{ASCIZ POINTER GOES HERE
:RESTORE RO

;RE?TORE THE STACK
‘RETURN

OO0

3.2 DR CPT 1ST
28-NOV-77 09:42
462

4
474

S00
SOoY
S06

01374

12737
012537

004737
000000

177776

000200
016504

MACY1l

BO8

30(1046)
@28-NOV-?7
10:00
PAGE 93
GENERAL SUPPORT SUBROUTINES

177776

0203s2

000205

TYPRIM:

MOV

AWPS, - (SP)

18:

JSR
LWORD

PC,STYPE
0

MOV
MOV

:SAVE

8200’ 98PS
(RSY4, 18

RTS

SEQ 0092
THE

PRESENT

STATUS

:CHANGE THE PRIORITY TO v
; MESSAGE RDDRESS

: TYPE THE MESSAGE
nEssncs ADDRESS GOES HERE

‘EQEII"E TO TYPE ERKORS
;

DISPLY

RETURN

S10

032777

020000

520

000137

020352

516
824

001002
062716

000002

162436

BIT

#BIT13, ASWR

18:

ADD

IMP

$TYPE

000002

ROUTINE

oocooocooo

e Pt P

Pt Pt Pt

QO0O000000

000060

S40

121127

000067

5c0
S64

042702
00S72S

177770

S44
S4%

5§56

101004
111102

000205

RE TURN|
RE TURN2

CK.OCT:

CMPB
BLO

MOV

e
e
Pt Pt et Be B
P

oo,

00000000

S72

101004

Seb

8724
S76
602
604

121127

111102
042702
00572¢
00020¢€

000060

CHECK

s§

CH€CK

ARSCII

CHRRACTER

HE CHARRCTER

:CHARACTER IS NOT aerussn 0-7

;LESS THAN zsnov
YES
-- BRANCH

(R1),8'7

caenrsn THAN SEVEN?

8¢C7 R2
(RG34

s RIP AWAY THE ASCII
*ADJUST FOR RETURN

18
(R1),Re

ES
BRANCH
7 THE CHARACTER

RS
IS

USED

:
CHECK

RETURN

AN RSCII

cuanncrsn

; RDDRES

or nscxr

IS A DIGIT BETWEEN O AND
9

8ADR, R]

CHARRCTER

:
:
:

JSR
RS, CK.DEC
RETURN]
RE TURN2

'CHECK THE CHRRACTER
'NOT BETWEEN 0 AND 9
"BETWEEN O AND 9

CK.DEC:

CMPB
BLO

(R1),8'0
i$

;LESS THAN ZERO?
Eé
BRANCH

BMI

121127
1034067

: RETURN

(R1),8'0
18

RTS

:TYPE THE MESSAGE

:CHARACTER IS IN R2 AS
A
'0CTAL DIGIT

BIC
TST

ROUTINE

000071

CMPB

000060
18:
: THIS

MOVB
BIC
TS7
RTS

ROUTINE

..NCREHENT THE RETURN

RS,CK.OCT

BHI
MOVB

;QQELDETERHIHE

TARBLE

IS A DIGIY BETWEEN O RND 7.

SADR,

JSR

MPe

:THIS

560
Se4

IS USED

MOV

18:

‘BR IF YES

82, (SP)

:
:

'TRAP'

Inuxexr ERROR TYPEOUT

CHRRACTER

;

121127
103407

BNE
RTI

gscxx

: QDDRESS OF MESSRGE

SDSPLY:

: THIS

32
536

sMUST CEFINED

ME SADR

(R1),8'9

(R1),R2
80 R2
(RSY+

RS
WILL

CHECK

iR2 =

DIGIT

cn ATER THAN NINE?
YES -- BRANCH

GET THE
CHARACTER
:STRIP AWAY THE ASCII
QDJUST FOR RETURN
:RETU
AN ASCII

CHRRACTER

cznnxeo RHOB 2 DR CPT vSY
. 28-NOV-77 09:42
CORMIB.PL1
4688

cO8

2B-NOV-77
10:00 PAGE 94
Res
"2leré0t
QEARAR) EBADRY

MACY11 30(1046)

:DETERMINE WHART

IT IS.

;

“223
463]
4692

CALL
:
:

MOV
ADR,ck.éup
R
ggn
RS
TURN ADRI

4695

RETURN

4633
4699

:
:

4696
4637

:
:

:ggg
4700

:
016606

105711

4702
Dieels 121187 oooosw
4785 812215 651413
4704
470S

016620
016624

121127
001407

:;gg

8{6626

004537

4709

016640

005725

CK.CHR:

000056

4708 012235 839259 016532
4210
4711
4712

016642
Ol166WN
01664

005725
005725
005725

4714
4715
:;ig

016682
016654
016656

005201
011505
000205

4713

016650

005725

;AD
F ?E&
ASCII CHARACTER
HE
§H8
NouN cn RACTER

RETURN
RETURN

RADR2
RADR3

cnnnxncz RETURN # (R1)=RDR+]
.Sonnn M cng>=no +1

RETURN
RETURN

RADRS
RDRG

‘DIGIT BETWEEN
O AND
7
‘S§°IT
TWEEN 8 AND 9.

TSTB

ShPs

ADRY

'PERIOD
'RZ

(R1)

= DIGIT # (R1)=ADR+1

:“CARRIAGE RETURN"?

28 '

{YES
e
;YES -- BRANCH

Jgn

gs.cx.osc

;;8xcxr~vRNCH

18T

(RE)+

?sn

(AL, W

1)=qon¢1

gco

CHPB
BEQ

016560

SEG 009

(R1), 8.
18

1 *PERIOD"TM?
:YES -- BRANCH

Rg CK.OCT

:0CT

:DIGIT BETWEEN 8-%

18:
28

15T
157
157

(RG)+
(RE)+
(RG)+

:DIGIT BETWEEN 0-7
{PERIOD
,connn

ys:

INC
MOV
RTS

R1
(RS), RS
RS

novs P NTER TO NEXT CHARACTER
: UNKNOWN CHARACTER
RETURN

157

(RS)+

nc;

3;§o
421

339c?ER§NSN8H58Rns EEanLVALUE SRNkEY NUMBER IN R2.

4721

;

4726

4722
4723
4724
472S
4727

4728

:;gg
47

166¢

4734

016666

4737
4738

016674
016700

473s
473

4739

4740

474l
4742
4742

1044

815572
016672

005003
005004

016702

017002

016704

016706
CIE710
0le712

004537
016774
016774

016776
016714
OlE?'M

016606

MOV

:ADDRESS OF ASCIZ STRING

ADR3

IEkEGRL
Hanncrsn
gn INPUT TOO LARGE -- R2="

MOV
JSR
RETURN
RETUXN

sNUM| R2
RS, CK.DIG
ADRI
ADR2

RETURN

ADRY

RETURN

CK.DIG:

MOV

RY,
-

CLR

JSR
68

RS, CK.CHR

ADRG

‘“PERIUD” -- R2 = NUMBER

oMOVVI R2,-(5P)
-2 L
CLR
CLR

R3
RY

TMAX . nncn* goe OF INPUT NUMBER
:CHECK DIGiT
1=CR” ONLY EN TERED -- R2=0
:~PERIOD" ONLY ENTERED -- R2=0

1= COMMATM -- RE = NUHBER

RDRS

RETURN

GAL

8ADR, R

:
;
:
:

4735
Bieeed BiB3d
4733 016bb4 010246

KS AN RSCII STRING F

(SP)

i:SAVE
23vE R3
THE MAX. SIZE ON THE STACK
AVE

:START WITH O

; CHECK ONE CHARACTER
.;
LLEGAL CHRRACTER

; CARRIAGE RETURN

78
13
i3

el
:0I1GIT 0-7
:DIGIT B-9

18:

2s:

; STEP _RETURN POINTER PAST "CRTM 8 “PERIOD” RETURNS

-(SP)

i #8

('2)4(18) = #10
UPDRTE THE INPUT NUMBER

(SP)+,R3
R2,R3

016606

CHg:gRTE;ER
gags?sae
e

RS,CK.CHR

;DIGIT 0-7
:DIGIT 8;ooei A “CRTM FOLLOW THE “PERIOD"
IF noT
:BR
: INCREMENT THE RETURN
.mcggrim
THE
RETURN

(R1)
8%
(R4)+
(R9)+

P INC

(RY)+
R3, (SP)
98

1ST

(R
(R

£O

rgn

RE TURN

: CHECK
MAGNITUDE OF THE NUMBER
:BR IF ENTERED NUMBER TOO LARGE

'B§PRSS #?CE?finn PAST INVALID RETURN

)+
)+

;SETUP RETURN POINTER
:ENTERED
V
:CLEAN MAX, SIZE OFF OF STACK

R Y, RS
R 3 R2
( S Prs
( P)+ R3
g
P
)+, RY

MOV

SEC 0094

gNPET
NUMBER #2

776

o
e b

IH RS

ASL

—

303
3
03
060203
004537

000004

—

2839

008

28-NOV-7?7
10:00
PAGE 95
GENERAL SUPPORT SUBROUTINES

30(1046)

06270S
0

MRCY11l

NaleoloSTogy
AANN

—

28
R2R8
PN SEERE gmfig}}}\l
NNNNNNNN
THEF
1585 RERERS

NNNNNNNOOC
O LU0 a0 Ll
000
NN NNNNN

al a0 a0 58 ok an e ol o10 a1+ o1 ol o o1 e o1

Pt o Pt Bt s Pt Pt Pt Pt Pt Pt Pt P i P Pt Pt Pt ot Pt Pt Pt P P e Pt P P P Pt P

4Ty

4745
4746

0000000000 000000000000000000000

>—
[

c:nflxeo RMO3/2 DR CPT TST
CIRMIB.P
28-NOV-77 09:4

i RESTORE R3
'RESTORE
R

iGET RETURN ADDRESS
;RETURN

(RS),RS
g

ROUTINE WILL CONVERT R 16 BIT UNSIGNED BINARY NUMBER TO AN
ggSIGNED DECIMAL RSCIZ NUMBER
; THIS

MOV

016637
01274¢
004737
012666
000207
000000

000002
0.704e
De2e47e
000002
000000

017042

NUMBER,

- (SP)

JSR

RE TURM

PC, §582D

INOTE:

THE

PROGRAM REQUIRES

§5B82D:

THE

SYSMAC

MOV

2.SP),

JSR

pC, 40820

MOV

18:
!

THIS

LIBRARY,

RTS

. WORD

ROUTINE

;PUT
THE NUMBER ON THE STACK

ADORESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

818 -tsp)
(s¢)¢ 2(SP)

00
WILL

CONVERT
R

THIS FORM OF 1$SB20°,

REV

UNEIGNED OCTAL RSCIZ NUMBER.

AND

LATE

NOT THE VERSION ON

;SAVE_THE BINARY NUMBER

!SET THE POINTER
‘CALL THE DOUBLE LENGTH CONVERT
iPICKUP THE POINTER

:RETURN
16-BIT

UNSIGNED BINRRY NUMBER

TO AN

O
o
l

MOV

JSR

RE TURN

NUMBER,

- (SP)

PC, 85820

;ggELTHE

NUMBER

THE

STRCK

ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

CZRHIBO ?HOS-2 DR CPT TST
28-NOV-7 7 09:4¢
ZRMIB.P
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
§4812
4813
4814
4g818%
4816

MACY11l

017072

000000

017126
000240
162044
000100

000060
000062

18:

. WORD

MOV
JSR
MOV
RTS

’'$SB20°',

REV C AND LATER

818, -15P)
pC, $0820
(5#)4 2(SP)

NOT THE VERSION ON

:SAVE THE axnnev NUMBER

:SET THE POINTER
:CALL THE DOUBLE LENGTH CONVERT
:PICKUP THE POINTER
SRETURN

;

RETURN

JSR

PC, STKINT

STKINT:

MOV

$STKSRV, TKVEC

MOV
TST
MOV
RTS

#PRS . TKVEC+2
J9STKB
881706, 9$TKS
PC

;SETUP VECTOR

'PRIORITY TO s
:CLERR THE BUFFER
SSET INTERRUPT ENABLE
* RETURN

\I\I\JVVV\J\J\J\J\JQV\J\JVVV\J\JVV\]\I
EBY¥R=EN BNFRIB 2N

000003

RDCHR

MOovB
cMP
BNE

(SP)+,5S
s§, 83’
18’

TYPE

" §CNTLC

TYPE

MOV

CLR
TYPE

001334

TYPE

T
HAL

000e00
001154

0ocize

01727¢

000007

18:

0"0’\8

000002
000000

017272

b- CFLAG

,uR LF
“1c°

'SET THE ’*CONTROL C' FLAG

:CLEAR THE TTY INTERRUPT

"HALTX

:HALT THE PROGRAM

SCRLF

98200

SWR, #SWREG

;

! SOF TWARE SWITCH REGISTER IN USE °

‘BR IFNOT

‘BR IF NOT

TYPE
MOV

828 -(SP)
93TKS
SSTSUR
néoo JSTKS

DTG’
:PUT THE STATUS WGRD ON THE STACK

2s:

MOV
CLR
NP
ESV

'§CNTLG
$5 - (SP)

:RETURN RDDRESS
:CLEAR THE TTY INTERRUPT ENABLE
:GET THE SWITCH REGISTER ENTRY
EN?BLE TTY KEYBOARD INTERRUPT

38:
:
4§

TYPE
RT1

,G§

: ECHO THE CHRRACTER
'RETURN

cs:

LMORD

s ENTERED CHRRACTER

BNE

CMP

5§, 87

TYPE

$CRLF

BNE

022353
177776
017254
161710
161676

JMP

CMP

, SCRLF

;RERD _THE KEYBORRD

!GET THE CHARACTER
i "CONTROL C* 7
:BR IF NOT

001205

n nnn
o
£
££
£0

Pt Pt Pt Pt Pt Pt o Pt P
Dt Pt Pt Pt Pt Pt Pt Pt it Pt Pt P

$TKSRY:

Prmat Pt

ENTER VIR INTERRUPT

— et

4831
4832
4833

2(SP),1$

THE SYSMRC LIBRARY,

;KEZEOQRD INTERRUPT SERVICE ROUTINE

00000000000 00000000000000

4829

MOV

162034

4820

4830

§5B20:

4818
4819

4828

THE PROGRAM REQUIRES THIS FORM OF

SEQ 009c

‘éEEEOQRD INTERRUPT INITIALIZATION ROUTINE

4817

4821
4822
4823
%824
4825
4826
4827

.NOTE:
:

000002
017072
022672
000002

EO8

PAGE 96
10:00
28-NOV-77
GENERAL SUPPORT SUBROUTINES

30(1046)

; THIS ROUTINE WILL

;CALL:

:"CONTROL G*®

' CR-LF

INPUT A STRING FROM THE TTY

CZRMIBC RMO3-2 DR CPT 7187

CZRMIB.PI11
4856

28-NOV-T7 08:42

MACY1l 3C(1046)

28-NOV-7?7

RETURN HERE

:ggg
ugsd

01?274

017276
817300
017304

4864
4865

017310
017312

4867
4868
4869

017316
(17322
017324

4866
4870

4871

4872

48?3

4874
4876
4876

48”7

4878

4879

uggl

4881

4882
4883

017314

101467
104410

112613

00177

112737

000134

012716

177777

001007

017336

604401

017346
017350
017384

005303
020327
1U3NNS

017552

104401

017550

017342

017356
017362

017366

017370
017372

017374
017402

111337

000746
001406

112737

104401

005016

4886
48?7

017414
NI7416

001003
104401

4888
4889

4830
489]
48392

4e93
4994
4835

4896
4897

017422
017424

017430
Q017432
017440

017444
0179446

017550

6S:

122713

000726
122713

001006
012737
104401

000427
122713

017550

108:

000003
001334

es:

000012

001011

017456

104401

001205

108013

d ¥

0175652

4300

(017462
(017466
017470

104401

O0OCl204

4§ :

4902

017476

111337

017550

3s:

122723

000C1S

105063

177777

48398
4899

4301

4303

4904

490

017474

017502

017506

017512

4306

017614

4308
4909
4913
<481.

017524
017526
017€30
0i7€32

4907

017520

000701
104401

001274
104401

005726
012603
Ol164E
Olb6Eee

017580

000004

R3,-(SP)

;SAVE R3

#S$TTYIN R3

:GET RADDRESS

-(5p)

#STTYINY10.,R3

:CLEAR THE RUBOUT KEY

;BUFFER

FULL”?

;BR IF YES
:GO _RERD ONE

CMPB
TST

BNE

2177, R3)
(SP3

MOVB

:1S IT A |UBOUT
‘BR IF NO
'1S THIS THE FIRST RUBOUT?

TYPE

8'\,9%

:TYPE A BACK SLASH

b-1, (sP)

:SET THE RUBOUT KEY

(R3),9%

!GETUP TO TYPEOUT THE DELETED CHAR.

:GO RERD ANOTHER CHAR.

BEQ

TYPE

tse)

:CLEAR THE RUBOUT KEY

108
§CNTLU

:BR IF NO
:TYPE A CONTROL "U*

MOV
DEC
cMP
BLO

TST

CLR

(SP)+, (R3)

R3
R3, sSTTYIN
4§
qs

:BACKUP BY ONE
:STACK EMPTY?
:BR IF YES
:GO0 TYPE

$°\,9%

:TYPE A BACK SLASH

BR
CMPB

is
83, (R3)
8s

BNE
MOV
TYPE

'BR_IF NO

:RUBOUT KEY SET?

825, (R3)

BNE
TYPE

CHARACTER FROM THE TTY
:GET CHARACTER

(SP)

CMPB

#-1,CFLAG

$CNTLC

‘BR IF NO

:1S CHARACTER A CTRL 17

:GO START QVER
:1S CHARACTER A CTRL C °

:BR IF NOT
:SET CNTRL C FLAG
‘ECHO IT

118
#12, (R3)

JEXIT
: IS CHARACTER A “LF"?

(R3)

:CLEAR THE CHARACTER

§TTYIN
$
SGUES

:TYPE THE INPUT STRING
!GO PICKUP ANOTHER CHRCTER
:TYPE R '?°

MGVB

(R3),9%

:ECHO THE CHRRACTER

CMPB

k15, (R3,+

:CHECK FOR RETURN

-1(R3)

:CLEAR RETURN (THE 15)

B8R
cmMpPg
BNE

TYPE

, SCRLF

TYPE
BR
TYPE

TYPE

CLRB

118:

: ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

STERMINATOR WILL BE A BYTE OF ALL 0°S

BNE

001206

s - INPUT A STRING FROM THE TTY

CLRB

104401
000706

SEQ CO9%

PRGE 97

BLOS
RDC

MOVB

017550

02346

017576

CMP

TYPE

000025

177?77

MOV

MOVB
cs:

Q1745¢

017464

017550

017550
000134

CLR

MOVB

005716

017406
017410

29 :

017564

ox73§s

0173

18:

0175Se

122713
001022
005716

4884

488S

SROLIN: MOV

010346

005046
012703
022703

FO8

GENERAL SUPPORT SUBROUTINES
ROL IN
:

4wgS?

486l
4862
4863

10:00

TYPE

157
MOV
MOV
Y

SLF

1P+
(8P, +,R3
(5P, = (SP)
4ieP). 2188,

*BRANCH IF NG

:TYPE A “CRTM 8 “LF"

:CLERR THE BUFFER AND LOOP
:LOOP IF NOT RETURN
:TYPE A LINE FEED

:CLEAN RUBOUT KEY FROM THE STACK
_
‘RESTORE R3
"ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI1 CHARRACTER ON IT
:

]

P ..,

c.O

03-2 DR CPT_TST

28-NOvV-77 09:42

LLLL£L£L £k

DSOHODOOD

7840

7846
~550
7851

7552
7§76

012766

00e
000
000

00002
041536

017552

MACY1l 30(1046)

2B-NOV-?7

0000CY

MOV

000

[
S e

COOO0O0O0O000000

005737
001006

7616

104401

7612

7622

7626
7632
7636
7642
7646

7650

001374

104401

00120S

104401

036120

104401
104401
104401
1044C1
00000C

00013~

RTI
.BYTE
BYTE

SSTTYIN,4(SP)

: RETURN
!STORAGE FOR ASCII CHAR. TO TYFE
; TERHINATOR

O
0
20.

!RESERVE 20 BYTES FOR TTY INPUT

FINISH: TST
BNE

FRULT
18

: COMPATIBLE ?
!BRANCH IF NOT

TYPE

' $CRLF

STTYIN: .BLKB
SCNTLC:

.RSCIZ

SEQ 0097

PRGE 98

/*C/<CR><LF>

!CONTROL *C*

.EVEN

017604

~604
7610

GOS8

GENERAL SUPPORT SUBROUTINES

9s:
005015

10:00

TYPE

001205
1§

001205
001205
037060
001208

TYPE

TYPE
TYPE
TYPE
TYPE
T
HAL

IMP

000200
.SBTTL

,SCRLF

'MESG1S

.MESSAGE: ALL DRIVE COMPATIBLE

33200

;BRANCH TO 200 START IF DESIRED

,SCRLF
"SCRLF
' MESG20
'§CRLF

END OF PASS ROUTINE

-llllllllll{illilllllllll}lllllili!lillllll!iill!f!iililllilfi!i

£ INCREMENT THE PRSS NUMBER (SPRSS)
#IF SWig=1 INHMIBIT TRACE_TRAP

00000000

00000000 D00O00DO000

:#IF THERES A MONITOR GO TO IT
:#IF THERE ISN'T JUMP TO FINISH

7654

7?6564

000240

7656
7662
7666
7672
7700

005037
005037
005237
042737
00S327

7704

003022

7702

7706

7710
7712

0001
017702

7722
7724
7730

005046
012746
000426

7732

7736

7740
7742
7744
77486

001414

013700

001405

00000%
004710
000240
000S4E

001216
SEOPCT:

012737

013700

7732

001116
001174
091216
100000

000001

7714

7720

SEOP:

SENDCT:

NOP

CLR
CLR
INC
BIC
DEC

$TSTNM
STIMES
$PASS
8100000, SPRSS
(PC3+

. :2ERO THE TEST NUMBER
::2ERO THE NUMBER OF ITERATIONS
P PINCREMENT THE PASS NUMBER
::DON'T ALLOW R NEG. NUMBER
:1LOOP?

BGT

SDORGN

.WORD
$EOPCT

: :RESTORE COUNTER

.WORD

MOV

000042

§GETH2: MOV

017732

CLR
MOV
BR

0000N2

BEQ

SCLR.1:

MOV

BEQ

RESET
SENDRD: JSR
NOP
NOP

(PC)+,3(PCs+

J842,. RO

SDOAGN

-(SP)
#SCLR.T,-(SP)
SRTAN

w42, RO

SDOARGN

PC, \RO)

:: YES

. :GET MONITOR RDORESS

P:BRANCH IF NO MONITOR

! INSURE THE “T* BIT IS CLEAR
::SETUP FOR AN RTI OR RTT
G0 DO AN RTI OR RTT TQ LOAD THE PSW

:'WITH A CLEARED "T" BIT

. : INSURE RO CONTARINS THE MONITCRS

: 'RETURN RDCRESS

:'CLERR THE WORLD
11GO TO MONITOR
: 'SAVE ROOM
::FOR

CIRMIBO RMO3-2 DR CPT TST

28-NOV-T7 09:42

CZRMIB.P11
4968

017750

000240

4570
F

017762

104s00

4974

Q017770

005137

4369

017752

MACY1l 30(1046)

28-NOV-?7

END OF PRSS ROUTINE
SDOAGN:

CoM

$TBIT

HOV

sSLO0P - (SP)

BM]
B15

4977

4378
4379
4980

020002

020006

4981

020010

4383

020012

4382

4384

019746
000002

020010

000137

020014

0G0C0D

000020

020010

$RTRN:
$LOOP:

017604

$RTNAD:

$TBIT:

RTI

..*T* BIT STATE INDICATOR

FINISH

ERROR HANDLER ROUTINE

R RN

RR R R SRS

'THIS ROUTINE WILL INCREMENT THE ERROR FLRG AND THE ERROR COUNT,

! #CALL

4398

P
020016

020016
020020
020024
020026

104407
105237
001775
013777

SERROR:

001117

001116

2005 0200 032777 002000

2005
DSooaq bocags
TBad%2 01200
2008 0o09ey
BB1ege
5009 020054 Olie37 00138

161122

161110

1s:

2013 059104
g20
?815
858110 094997
18#4 1 88156?
020114

£019

050159

050114
020122

122737
001007

020136
000137

000
090

113737

000001

GQO1230C

001130

020136

§020 0e0132 004737 020652
080140

000777

ERROR

208:

22%:

. . ERROR=EMT AND N=ERROR ITEM NUMBER
_

.. TEST FOR CHANGE I SNFT-SWR
SERFLG
' SET THE ERROR FLAG
7¢
' 'DON’'T LET THE FLAG GO TO ZERG
STSTNM, aDISPLAY . DISPLAY TEST NUMBER AND ERRGR FLAG

SRS
INC

s2RYYL

HOVB
BIT

aitgspc
§17EMB ;:STRIP
AND SAVE THE ERROR ITEM CODE
881733, 4SuR
':3K1P TYPEOUT IF SET
B8
¢crrTvP
.263LF

vi K IE TR OU T ReOR ROUTINE

CMPE
BNE

BAPTENV,SENV
3

;:RUNNING IN APT MODE
' 'NO,SK]P APT
ERROR REPORT

BYTE
‘BYTE

O
0

ook
4YPE
HOVE

z18:

EKSWR
INCB
BEG
MOV

BIT

2011
3288?2 i 032757
757 020000
Deoaqs 881138
2012 05004
161052
5016

ERROR ITEM NUMBER AND THE RDDRESS OF THE ERROR CALL

'#AND GO
YO SERRTYP ON
ER
' #THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
¥SWIS=]
HALT ON”ERROR
' e2u13=1
INHIBIT
ERROR TYPEOUTS
' #5W10=1
BELL ON ERROR
#0921
LOGP ON ERROR

4997

€002

'JUMP TO START OF TEST

' 'RETURN=-THIS IS CHANGED TO
PIAN TRTT* IF “RTTTM 15 A LEGAL
! L INSTRUCTION

{sSAVE THE

€021
€0z

:'BR IF NO
' 'SET TRACE TRAP

.WORD

4930

2017
€018

'116 IT TIME FOR TRACE TRAP

. :RETURN

I REEEE RN

S001
5002
€003
2004

'18R'MON IFWI1TH
TRACE HoaeNO

(PC)+

.WORD

4988

SO00

tET+
{2 deur
18

;; ;PUSH_OLD
PSM
AND
PC ON STACK
;
[1] [ 1]

_SBTTL

4991
4932
4993
4993
4995
4996

<p,

1S
820, (SP3

4988

4989

SEQ 0098

. ACT1L
.

4375
4976

020014

PRGE 99

TRAP

Bi§
BNE

100402
0S2716

HO8

NOP

aazl
Rizopd
038748
QROBBS8 161iee
4373
017766
001005
017779
017776

10:00

TSR

¥8TT10’ JSWR
(5P, SERRPC

1TEMB, 218

PC,§ATYY4
22%

' 'BELL ON ERROR?

BELL NUMBER OF ERRORS
P%G
CSUNTOYRE

' 1GET ADDRESS OF ERROR INSTRUCTION

FIcE4 TTEM NJMBER RS EPROR NUMBER

: 'REPORT FATAL ERROR TO APT

. ;APT ERROR LOOP

0057?27
2

MACYI1

28-NOv-77
10:00
ERROR HANDLER ROUTINE

30(1046)

2s:

161006

s b

R
£L
Trnorid ISEREKS o

[o]w)

RRRRRRRRRRIR
nr
00000000 00

CZRHIBO RMO3/2 DR CPT_T1ST
CoR MIB. Pl
28-NOV-77 09:42

160772

3s:

001000

4s:

013716

001176

022737
001001
000000

017742

s P

00lle
001176

oooagu2
6S.

000002

.SBTTL

TST
BPL
HALT
CKSWR

dSWR
3

BEQ

BIT

108
PAGE

.00

SEQ 0099

; HALT ON ERROR
; SKIP IF CONTINUE

..HQLT ON ERROR!

TEST FOR CHRANGE

IN SOFT-SWR

881709, JSKR

,,LOOP ON ERROR SWITCH SET?

SLPERR, (SP)

,,FUOGE RETURN FOR LOOPING

BEQ
MOV

3]
SESCAPE, (SP)

'BR_IF NONE
,,FUDGE RETURN QDDRESS FOR ESCAPE

CMP
BNE

$SENDRD, 9842
5%

..QCT 11 AUTO-RCCEPT?
;BRANCH IF NO

MOV
TST

HALT

SESCAPE

RTI

R IF NO

;CHECK FOR AN ESCAPE RDDRESS

,;YES

; ; RETURN

ERROR MESSRARGE TYPEOUT ROUTINE

B 00000000 0000 00 00 00 00 0000 000000000 00000000 00 00 0000 0

30000 0 000 0000

iTHIS ROUTINE USES THE “ITEM CONTROL BYTETM (SITEMB) TO DETERMINE WHICH
;#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TRBLE” (SERRTB,

: #AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR
020216
020216
020222
020224
020226
020232

104401
010046
00S000
153700
001004

020234

013746

020240
020242

104402
000426

001205

SERRTYP:

TYP

MOV

CLR
BISB
BNE

001130

MOV

001132

TYPOC

18:

R
OEC
ASL

:'PICKUP THE ITEM INDEX
IF ITEM NUMBER 1S ZERO,

TYPE THE PC OF THE ERROR
,,snvs SERRPC FOR TYPEOUT

JUST

:ERROR ADDRESS

::G0 TYPE--OCTRL ASCII(ALL DIGITS)

,,ronn TABLE POINTER

PICKUP “ERROR MESSAGE” POINTER

sxxp TYPEQUT IF NO POINTER

“ERROR MESSAGE” POINTER GOES HERE

ys:

cs:

MOV

{RO), RO

6S:

MOV

TYPE

FEED"

#SERRTB, RO

(RO)+, 28

WORD

: 'SAVE RO

.,cer out
:ADJUST THE INDEX SO THAT IT WILL
2
WORK FOR THE ERROR TRBLE

MOV
TYPE

: ;*CARRIAGE RETURNTM & "LINE

X
RO
RO

TYPE
MOV
BEQ
TYPE
WORD

3s:

020230

SERRPC, - (SP)

RO
R0

BEG

00l20s

RO
JuSITEMB,
RO
18

ASL
ASL

ADD

2s:

SCRLF

RO, -(SP)

SCRLF
IRO)+, 48
cs
SCRLF

BNE

TYPE
RTS

$CRLF
bC

(SP)+,RO

YPE

THE

RROR MESSAGETM

'cnnnxn
RETURN” 8 "L INE FEED"”
PICKUP “DATR HEADER" POINTER

; sxxp TYPEOUT IF 0

:'TYPE THE “DATR HEADER"
:'“DATA HERDER" POINTER GOES HERE

: *CARRIARGE RETURN"

& "LINE FEED"

,.pxcxup *DRTR TRBLE" POINTER
:GO TYPE THE DRT

'RESTORE RO

,;"cnnnxncs RETURN" 8 “LINE FEES"
P 'RETURN

CZRMIBO RMO3-/2 DR CPT 71ST

CZRMIB.PI11
5080
5081
5082
5083

5084
5085
5086

5087

28-NOV-77 09:42

020330
020332
020334
020336

020340
020344
020346

5088

013046
104402
005710
001770

104401
000771

020040

020352

MACY1l 30(1046)

28-NOV-77

10:00

JO8

PAGE 101

ERROR MESSAGE TYPEOUT ROUTINE
MOV
TYPOC
157
BEQ

020346
000

8s:

gggg

.SBTTL

S091

TYPE
BR

JRSCIZ
.EVEN

J(RO)+,-(SP)
(RO)
6$

8s
rd 3
/

: ;SAVE J(RO)+ FOR TYPEOUT
G0 TYPE--OCTAL RSCII(ALL DIGITS,
;i1S THERE ANOTHER NUMBER?
IF NO

,,rvpe TWO(2) SPACES
:LOOP
::TWO(2) SPACES

TYPE ROUTINE

lll!!l!lli!llllllllll!lllll{Iillilll!!llilil!l!ili!lll{{lililli

5092
5093
5094

inour:ns TO TYPE ASCI2 nsssacs MESSAGE MUST TERMINATE HITH 0 avre
:#THE ROUTINE WILL INSERT
R NUMBER OF NULL CHRRACTERS AFTERA LINE FEED.
P #NOTEL:
SNULL CONTAINS THE CHARACTER TO BE USED RS THE FILLER CHARACTER.

5836

: #NOTE3:

5095

:¥NOTEe:

: #CALL

5099

cx]) usxuc A TRAP INSTRUCTION

€100

5101

; %OR

102

P¥

5103

5109
110

111
§112
113
S114
6115
5116
§117
S118
5119
120

;

020352
020356
020360

020362
020364

020366
020372
020400
020402
020410
020412
020416

105737
100002
000000

000430
010046

017600
652737
1011
132737
0063°§
010037
004737

020422
020M24
020432

000000
132737
001003

5122
123
124

020436
020440
020442

001005
005726
012600

5126

000002

6121

€125

020434
(020M¥M

€127

020482

5129

020460

5128

€130

€131
€132
£133

€134
€13c

sriLLC CONTARINS THE CHRRACTER TO FILL RFTER.

;I'

5098

6106
5107
S108

SFILLS CONTRINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

000040

122716

000011

122716

000200

001006

020472

001205

005726
109401
105037
0007¢S

18:

001230
001231

001231

61%:
62S:

2s:
000002

020464

020474
(020500

000002
000001
000100
020422
020642

062716

001430

STYPE:

, MESADR

: sMESADR IS FIRST ADDRESS OF WN ASCIZ STRING

BPL

STPFLG 18

BR
MOV

3$
RO, -(SP)

;1S THERE A TERMINAL?
:iBR IF YES
D'HALT HERE IF NO TERMINAL

TYPE

MESADR

TSTB

HAL T

112046

020456

020466
020470

001173

YPE

608 :

3s:
4s:

MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

_WORD
BITB
BNE

MOVB

BNE
TST
MOV

ADD
RTI

CMPB

O
#APTCSUP, SENVM
6CS

: 'MESSAGE RDDRESS
,,in CONS e SUPPRESSED
YES,SKIP TYPE OUT

4$
(SP)+
(SP)+,RO

::B ;
§ *T THE TERMINATOR
,,xr nnxua OR POP IT OFF THE STACk
EST ons RO

SHT, (SP)

: 'BRANCH IF (HT>

8CRLF, (SP)

: sBRANCH IF NOT <CRLF:

(SP)+

::POP
(CR><LF> EQUIV
i TYPE A CR AND LF

§CHARCNT
2%

: s CLERR CHARACTER COUNT
:'GET NEXT CHARACTER

(RO)+,-(SP)

82, (S5P)

BNE

TST
TYPE

020630

aetsp),ao
*GET ADORESS OF ASCIZ STRING
SAPTENY, SENV
,,RUNNING IN APT MODE
62%
NO, GO CHECK ron npr CONSOLE
8APTSPOOL
, SENVM ; :SPOOL MESSAGET
628
,,NO GO CHECK FOR conso 3
RG,618
:SEtuUP MESSAGE RDDRESS FOR RPT
PC.SATY3
:1SPOOL MESSAGE TO APT

BEQ

CMPB

$CRLF

CLRB
BR

,,Lsnvs
E RO

Push cunancrsn TO BE TYPED ONTO STACK

,.RDJUST RETURN PC
RETURN

SEQ 0100

00N737
123726

0041350
013746

020564
001172

30(1046)
28-NOV-77
TYPE ROUTINE

cs:
68:

001170

JSR
CMPB

PC,

4 ¥

TRB PROCESSOR

;HORIZONTAL

s et Pt Pt Pt et

s P P
sP

000002
00001S

MovB
JSR

o
NNNNNOCOT
T

s Bt Pt B Bt Bt Bt e Bt Pt Pt

on
LN
ow
wN

SROBEREEEee = 80—-»—020740

o000
0o0~-0

NN NN

e Pt 9t Be Pn

D ODDVODDDODMDMED

e e s e Bn Bt Dt Bt Bt Dt

18:

AL e

$ATY]:

MOVB
Move

000001

021100

SATYY:
SATYC:

MOovB

SATY3:

021076

000004
000002
001210

000004

001224

18
2%:

;3 1S CHRRACTER A CARRIAGE RETURN?
; s BRANCH IF NO

;;YE?;-CLEQR CHRARACTER COUNT

;s EX
;:; 1S CHRRACTER R LINE FEED?
; ;BRANCH IF YES
; ;COUNT THE CHRRACTER
; ; CHARACTER COUNT STORAGE

YPEX
8LF,2(SP)

STYPEX
(PC)+

RPT COMMUNICATIONS ROUTINE

021100
021076

001231

;;LORD CHAR TO BE TYPED INTO DATA REG.

g HARCNT

B
cMPB

000001
0oco01

000100

; s POP SPACE OFF STACK
;
3GET _NEXTM CHARACTER
;s WRIT UNTIL PRINTER IS RERDY

rgn,alsp)

.SBTTL

001230

;3 TAB STOP

9$TPS
STYPEC
2(SP), 38TPB

INCB
SCHARCNT
: . WORD
STYPEX: RTS

000001

; BRANCH [F NOT AT

87 . SCHARCNT
qg
(SP)+
2%

160366
000002

ocouoe

; s REPLACE TAB WITH SPACE
1 TYPE R SPRCE

(SP)

Pc,$TYPEC

STYPEC:

020630
0ooo1le

i
CHAR.
;;D0ES R NULL NEED TO BE TYPED?
; iBR
IF NO--GO POP THE NULL OfFF OF STACK
;:G0
TYPE A NULL
;;08 NOT COUNT AS A COUNT

PC,STYPEC

020630

SEQ 0101
HARACTER
FILLER CHRRS.”?
XT CHAR.
CHAR
CHRRS. NEEDED

;cfinacnr

gs:
9s:

10e

STYPEC

1(SP)
6%

DECB

160374

PRGE

2%
SNULL, -(SP)

020564
020630

000040
020564
000007

KO8

sFilLc, (sP+

MOV

000001

10:00

NCJ\D(D\JU‘U\Iwg’—gmm\lc‘l}LNNMD\DG)\)U‘\B£U$H8\D$U‘
A
SERLOKCE
5B SFhESH 53898 oo

N1
0
v 3o 4

e Pt Pt Pt 0t 0t Pt Pt Pe b0 Pt Best Pt Pt Pt Pt s

020502
020506

MACY11

nnT i

0 RMO3-2 DR (PT _TST
P11
28-NOvV-77 09:4¢

2 TR R

8l,S$FFLG
8], SMFLG

R Y YR S

A R

RS IR

;70 REPORT FRTAL ERROR
;70 TYPE A MESSRGE

satyC

8l,SFFLG

;;TO ONLY REPORT FATAL ERROR

MOV
MOV
TS18

- (SP)
RO,
R -(SP}

; PUSH RO ON STACK
;s PUSH R1 ON STACK
s+ SHOULD TYES A MESSAGE~?

TST
7578

SMFLG

5$
SAPTENV, SENV
33
8APTSPOOL
. SENVM
38
34(SP), RO

82, 4(SP)
SMEGTYPE

18
RO, SMSGAD

(ROY+

LRy

IF NOT:
;3

: :OPERATING UNDER RPT?
;3
IF NOT:
BR
: 1 SHOULD SPOOL MESSAGES?
;;IF NOT:
BR
! 'GET MESSAGE ADDR.
: -BUMP RETURN RDDR.

. sSEE IF'OONE W/ LAST XMISSION?
'1F NOT:

WAIT

gEPUT ADDR IN MAILBOX
::FIND END OF MESSAGE

i Z‘

[ele]
~ L)

RMIBO RMO3/2 DR CPT TST
NIB.P11
28-NOV-77"09: 42

MARCY1l

192
193
194
196

020742
020746
02070
020754

163700
oosggo
010037
012737

001224
001226
000004

001210

197

020768

017637

000004

021010

196

198
199
200

020762

020772
02l
021004

00041;

062766
013746
004737

5201
202
5203
504
5205
5206

021010
021012
851012
1016
021020
021024

000000

6208
5209

021032
021034

001375
017637

S2le
S213
G214
6215
6216
6217
5218
5219
6220
6221

021054
021060
021064
021070
021072
0210794
021076
021077
021100

105037
105037
105037
012601
012600
000207

5207
8210
6211

021026

021042
021050

5222

105737
001416
005737
00 “59

062?39
00S2

000002
177776
020352

000004

SUB
ASR
MOV
MOV

3%:

9s:
cs:
108

021100
001230

001210
0O

000002
001210

118:;
ool2le

000004

021100
021077
021076

128:

$MFLG:
SLFLG:
SFFLG:

000
0
021102

000200

5223
5224
gggg

LOS8

30(1046)
28-NOV-7?
10:00
APT COMMUNICATIONS ROUTINE

.SBTTL

5229

5239
€240
241

021120
851155
11
021126
021130

010146
810246
10346
010446
010546

021136
021142

(10637
012737

6234
5235
8236
6237
6238

€242
§s:3

021132

021150
021152

012737
012737
01004

017746
000000
000776

021254
000340

000024
000026

012737

; ;PUT MSG ADDR IN JSR LINKAGE

RDD
MOV
JSR

82.9(5P)
177776, - (SP)
PC,STYPE

4§

. . BUMP RETURN RDDRESS
s iPUSH 177276 ON STACK
:1CALL TYPE MACRO

LWORD

1578
BEQ
TST
BEQ

SFFLG
12%
SENV
12%

: : SHOULD REPORT FATAL ERROR?
:1IF NOT:
BR
: 'RUNNING UNDER ARPT?
: IF NOT:
oR

BNE
MOV

118
d4(SP),SFATAL

S IF NOT:
MWRIT
:;GET ERROR #

CLRB
CLRB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE
.BYTE
.EVEN

$FFLG
SLFLG
SMFLG
(SPY+,R1
(SP)+ RO
PC
O
O
O

:'CLERR FATAL FLAG
::CLEAR LOG FLAG
; s CLERR _MESSAGE FLAG
: 1 POP STACK INTO Rl
1:POP STACK INTO RO
: 'RE TURN
: 1MESSG. FLAG
::L0G FLAG
" 'FATAL FLAG

TST

RDD
INC

$MSGTYPE

82,49(5P)
SMSGTYPE

: FINISHED LAST MESSAGE?

. .
. TELL APt

BUMP RETURN ADDR.
1O TAKE ERROR

160016

021260
0211S4

021gS4

POWER DOWN AND UP ROUTINES

MOV

MOV
MOV

000024

000GCes

RN R RN R R R

RRRR RN R RN R AR RRRRS

:POWER DOWN ROUTINE
$PWRDN: MOV
#SILLUP, J8PWRVEC ;:SET FOR FAST UP
MOV
8340, 98PURVEC+2 ;:PRIO:?
MOV
RO, -tSP)
;;PUSH RO ON STACK

HALT
BR

O2l11S4

J4(SP)

MOV
MOV
MOV
MOV
MOV

€245

Eede
€247

: :SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
:1PUT LENGTH IN MAILBOX
: :TELL APT TO TAKE MSG.

APTENV=001
APTSPOOL=100
APTCSUP=040

2527

021102
021110
021116

SEQ 0102

$MSGRD, RO
RO
RO, SMSGLGT
#4, SMSGTYPE

MOV

103

APTSIZE=200

000001
000100
000040

8230
6231
§232
6233

PAGE

RI,-(SP)
R2,-(5P)
R3.-(SP)
RY,-(SP)
RS’ -(SP)

; ;PUSH
: s
PUSH
::PUSH
: PUSH
: :PUSH

Rl
Rg
R3
R4
RS

-2

: s HANG UP

ON
ON
ON
ON
ON

STACK
STACK
STACK
STARCK
STACK

JSWR, - (SP)
: PUSH @SWR ON STRCK
SP, $5AVRE
: 'SAVE SP
8SPURUP, 98PWRVEC' :;SET UP VECTOR

AR AR

BB S R BN IR R R AR AR R R R AR R R R AR AR

: POWER 1P ROUTINE
$PWRUP: MOV
8SILLUP, Q8PWRVEC ;;SET FOR FRST DOWN

RN RS

CZRMIBO RMO3-/2 DR CPT TST

MO8

30(1046)
28-NOV-7?7
10:00
POWER DOWN AND UP ROUTINES

MOV

18:

I T

R Bo8h SRS 208

000!

§SAVRE'

MOV

(SP)+.RS

MOV
MOV
MOV

MOV
MOV
MOV
MOV

000024
000026

000002

TYPE

SPWRMG:

.WORD
BIC

CLR

RTI

HALT
BR
O
.ASCIZ

SILLUP:
047520

o42se?

$SAVRG:
SPOWER:

“-

PRGE

104

SEG 01303

;GET_SP

$SAVRE, SP

CLR

INC
8NE
MOV

e P
e Pt P
Pt Pt

LMY
—

ok SRR I X8 zho

s P

et Pt P
et
Dt Pt Pt Bt B

MACYL1]

013706
00503

8*430CNDOCXDO

PR,

[y,

e
Pmn
Pt Pt

e P

5248
5249 -

28-NOV-77 09:42

RRRRRRRRRRRRRRRRRARRRSR

CZIRNIB.PILI

,,un{ EQOP
FOR THE TTY
INC

$SAVRE
13
(5P)+, ISWR

(§P)+,Rw
(SP)+,R3
(SP)+.R2

s78}

820,2(SP)

,.CLE R
~T*
Bl
:CLEAR THE *T* BIT FLRG

-2

TE
Tk pBLER" Doin iRs "CoRPLE
::"’EroS
T THE SP HERE

STACK

INTO aswR

,,POP srncx INTO RS
iP0P

; : POP

; ; POP
,,POP
; POP

FTACK

Tncx
TACK

NTO R2
INTO RI
NTO RO

(SP)+.R
(SP)+ R
g« JSPWRVEC'
ET 0P THE POMER DOWN VECTOR
SsPWRVEC+2
;;
:PRIO:
hspoar THE POWER FAILURE
SPOWER
; ;
POWER FAIL n;ssacs POINTER

(15> ¢12>"POWER"

.EVEN

.SBTTL

BINARY TO OCTAL

(RASCII)

AND TYPE

}Iil}IIllll‘lillli!ll!lllillllllllllilllllil!lllllli!llll}lllll

irHIS ROUTINE IS USED TO cunuce 16-BIT BINARY NUMBER TO
R B-DIG:3

;#0CTAL (ASCIT) NUMBER AND
TYPE

lETYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE
'y

MOV

NUM, - (SP)

e
P

.BYTE
CBYTE

N
M

TYPOS

; sNUMBER TO_BE rvpso

i CALL _FOR

TYPEOUT

P'N=I TO & FOR NI/MBER OF
iiM=1 OR O
;3

DIGITS TO TVPE

1=TYPE_LEADING 2EROS

o SUPPRESS LERDING ZEROS

:'i YPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETFERS RS THE LAST

:#8TvYPOS
; #CALL
:

MOV

TYPON

$TYPOC

NUM, - (SP)

: sNUMBER

TO BE

TYPED

i iCALL FOR TYPEOUT

'.sgzpoc---sursn HERE FOR TYPEOUT OF A 16 BIT NUMBZR

;

MOV

NUM, - (SP)

$TYPOS:

:ov

f(sg;,-(gpy

PéCKUP
THE “ODE }

82, (SP)

017646
1166%;

MS81E

€303

021316

000406
112737

000000

021518

000001

02151S

TYPOC

\'4

n§vs
ADD

STYPOC:

BR
MOVB

; ;sNUMBER TO BE " YPED

P iCALL

FOR

TYPEOUT

H
(g§)+ !8n66&+1 IR
gggfi 9It&rg %oTYPE
(

STYPON
81,SOFILL

AOJUST

RETURN ADDRESS

::SET THE ZERO FILL SWITCH

CZRMIBO THOEI/E DR CPT _TSY

28-NOV-77 09:42

CZRMIB.P11

5304
5305
§306
€307
S

021324
021332
0cl340
021342
gglg:”

112737
118737
01034
810%5
10546

€310

021352

005404

£309

1346

113704

021517
000006
021516
0621515
000012

S311
€312
€313
6314
€315
€316
£§317
318

021354
021360
021364
021370
Q21374
021376
021400
021402

062704
110437
113704
016605
005003
006105
000404
006105

§322
§323

021412
0elv14

006103
105337

S319
6320
£€321

€324
€325
£326

§327
§328
€329
£330
£33]

Q21404
021406
021410

021420
(21422
021426

021430
021432
021434
02143
021442

332
6333
6334

Q02144
021452
021456

€337

Q2l46b

£33c
€336

§338
€339
€340
6341l

€342

021462
021464

021470
Q21472
021474
021476

(°'sp0

€343

021506

345
346
€347
348
5323

Q21512
021513
021514
021515
321516

6344

021510

000006
000005

MACYL1 30%10"06)

005704
001403
005204
0S2703
052703

110337
104401
105337

003347
002402

021517
021514

MOVB
STYPON: MOVB

012616

000002

000
000
000
000
000000

R3,-(5P)
RY.-(SP)
RS, -(SP)

NEG

ROD
MOVB

18:
2s:

3s:

021516
177770

4§

00006
000040

5§

021512
0e2lSie
021514

7s:
68:

000002

PRGE 10S

.:GET LSB OF THIS DIGIT
! TYPE THIS DIGIT?

RY
S

: ' SUPPRESS THIS 0?
:'BR IF YES

8PL
BIC
BNE

3
8177770,R3
4§

TST
BEQ

:'BR IF NO
PGET RID OF JUNK
' TEST FOR O

INC
8IS
B1S

RY
8'0,R3
8’ | R3

' 'DON'T SUPPRESS ANYMORE 0°S
: "MAKE THIS DIGIT ASCI]
:*MAKE RSCII IF NOT ALRERDY

8GT
BLT

2$
68

:'BR If MORE TO DO
1i1BR IF DOME
! L INSURE _LRST DIGIT ISN'T A BLANK

MOVB
TYPE
DECB

2s
(SP)+,RS
:SP)+ RY4

MOV

2(SP) 4(SP)

RTI

BYTE
‘BYTE
.BYTE
8OCNT:
SOFILL: .BYTE
SOMODE: .WORD

FOR TYPING
! 'SAVE
G0 TYPE THIS DIGIT
: ICOUNT BY 1

R3, 8%
gé
$OCNT

B8R
MOV
MOV
MOV

8s:

R3
$OMODE

RS
RS
RS,R3

MOV

000004

12(SP) ' RS
R3
RS
38
RS

: ;SUBTRACT IT FOR MAX. ALLOWED
:GAVE IT FOR USE
I GET THE ZERO FILL SWITCH
:'PICKUP THE INPUT NUMBER
: "CLERR THE OUTPUT WORD
: 'ROTATE MSB INTO “CTM
GO DO _MSB
! 'FORM THIS DIGIT

ROL
ROL
MOV

ROL
DECB

::GET THE NUMBER OF DIGITS TO TYPE

86, RY
RY’ $OMODE

SOFILL,RY

MOV
CLR
ROL
BR
ROL

::SET FOR SIX(b) DIGITS
'!SET THE ITERATION COUNT

: :SAVE R3
' 1SAVE RY
;s SAVE RS

SOMODE+1 , R4

MOVS

INC

000744
012605
012604
016666

NOS8

86, SOMODE +1
85, SOCNT

MOV
MOV
MOV

MOVB

005204

012603

10:00

BINARY TO OCTAL (RSCII) AND TYPE

006105
006105
010503

100016
042703
001002

28-NOv-77

(5P)+.R3

(SP)+. (SP)

O
O
O
G
O

1!GO DO _THE LAST DIGIT
: 'RESTORE RS
: 'RESTORE R4
: 'RESTORE R3

!!GET THE STACK FOR RETURNING

;

:'STORAGE FOR ARSCII DIGIT
: :TERMINATOR FOR TYPE ROUTINE
:0CTAL _DIGIT COUNTER
D126RO FILL SWITCH
: INUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL AND T.PE ROUTINE
HH lllllll&lI!lilllill!ll.liiIl!IIIll!Ililiililllll‘llilll!.llIllil

£?

;.ggtmcso WITH SPRCES.

]

S4
SS
<6
gg

_SBTTL

‘4THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO R S-DIGIT
:#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
: #NUMBER ]S-P sn*vs OR NEGATIVE A SPACE OR R MINUS SIGY WILL BE TYPED
BE

‘#BEFORE THE

FIRSY DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWRYS

SEQ 0104

[i)

OO0
]

C RMU3/2 DR CPT TST
P1l
28-NOV-77 09:42

BOS

MACY11l 30(1046)
28-NOV-?7
10:00
pnc; 106
CONVERT BINARRY TO DECIMAL ANC
TYPE ROUTINE
.
e

1
1822
0215824
1253

010046
010146
010246
81
4e

1832

012746

021536
gglgwa

10546

$TYPDS:

016605
688004

000620

(12723

000OCHO

siate 939% coooss 000001
021554
605000
18:
021556
012703 02i734
021562

021566
021570
21574
021576

002462

021602

000774

021600
021604
03:i606
G2!6iC

021612
0216:4
021616
021620
021622

005720

J
O

002746

100003

116663
105013
012605
012603
012602
012601
012600

604401
016666

021722

000002

021730

177777

012&16
023420
CO17SC
000194

6S:

78:

NUM, - (SP)

: sPUT THE
:1G0 TO THE

MOV
MOV
MOV
MOV

RO, -(SP)
R!'-(5P)
RS, -(SP)
Ra,-(gp)

;;Pugu RO ON STACK
::PUSH R1 ON STACK
i
ON STARCK
:PUSH
R 82
TACK

MOV

cEOago,-(sp)

MOV
BPL

177777

177776

021734
000002

000004

20(SP).RS
18

DIGET Hi
:BR é‘

8 ,(R3)+

DISEY TH$ FIRST CHARACTER TO A BLANK

T 53

NUMBER
05

114C

: ' INCRERSE

ADD
15T
BNE

R1,RS
R2
c§

; sRDD BACK THE CONSTANT
:CHECK IF BCO DIGIT=0
:'FALL THROUGH IF O

TST8
BMI
ASLB

4$
3§

(SP)
7%

(SP)

i Ak }EE vl
AN
Eszens
T
H
E
C
¥nn¥sE§N05x
SSETUP THE OUTPUT POINTER
;;CL;RR HE ecg NUMBER
P:GET
THE CONSTANT
:'FORM THIS BCD DIGIT
:BR IF oon$

THE BCD DIGIT BY !

:STILL DOING LEPDING C°S”
:BR IF YES
: 1MSD?
SiBR IF NO
' 'YES--SET THE SIGN

BCC
MOVB

68
1(SP),-1(R3)

B1S
MOVB

8’
R2,

cHMP

RO, 810

DICHECK T

BGT
MOV

as
RS, R2

::G0 10 EXITY
SIGET THE LSD

TSTB

(5P)+

BIS

B8R

#'0,R2

.R2
(R3)+

(RO +

8PL

TYPE
MOV

., $DBLK
A(SP),4(SP)

MOVvB
CLRB
MOV
MOV
MOV
MOV
MOV

RT1I

10000.
10060.
100.

STACK

TACK

R2
$OTBL (RO),R1
RI,RS

e |

THE

nuxfi;fi;rca AND SIGN

CLR
MOV
SUB

HOYB

MOV
$DTBL:

- 1sp)
RO
’
#SDBLK,R3

BLT

as:

RS, -(S5P)

BINARY NUMBER ON
ROUTINE

NEos
CLR
MOV

1ST

000764

021706
021712
021724
021726

000060

000010

105726

0el1720

00Q000:

(020027

021660

02le6b4Y
021672
0216749
021676
021700
021702
021704

5§

000040

003002
010502

021662

3%:

4g:

ossg
11022

021652
021654

021656

Q¥ ¥

105716
100407
106316
103003
116663

g2leN2

021650

021724

060105
005702
0G1002

052702

Q21644

2s:

005202

021630

021634
021640

B S

005002
016001
160105

MOV
TYPDS

MOV

020200

SEQ 010€

-1(SP),-2(RJ)
(R3)
(SP)+,RS
(SP)+ R3
(5P)+ ' R2
(SP)+ RS
(SP)+ 'R0
(SP+,(SP)

P MAKE THE BCD
D MAKE IT R
SIPUT THIS C

DIGIT RSCII

SPRC

gr NOT ALRERDY A DIGIT
TER IN THE OUTPUT BUFFER

: 1 JUST INCREMENTING

)

THE

men,{s INDEX

DIGIT

1:GO CHANGE TO RSCII

P WAS THE LSD THE FIRST NON-ZERO">

1IBR

IF NO

]

;3 YES--SET _THE SIGN FOR TYPING
iiSET
THE TERMINATOR
:1POP STARCK INTO RS
::POP STACK INTO R3
::PCP STACK INTO °2
:'POP STRCK INTO Rl
:'POP STRCK INTO RO

PINOW TYPE THE NUMBER
! 'ADJUST THE STACK

: sRETURN TO USER

CZRMIBO RMO3/2
ZRMIB.PL1

418
S419

021732
021734

000012
000004

SOBLK:

.SBTTL

g8l
"

G429
S430
€431
G432
6433

SH43M

"ENRBL

021744
021782
021754

021760
851?62

1766

022737
001074
105777
100071
117746

2716

S440
S44]l
S4de
G443
SHuy
g445
S446
S447
448
S449

022010
022014
022020
Q2024
202t
022032
2034
(022036
022042

401
104401
013746
104402
104401
00S046
005946
105777
10037S

022044

117746

5452
S453
S4SY4

azp

S467

c HANGE ROUTINE.
c;grsn

000176

001154

H$
#SERVIC
* #UHEN

$CKSWR: CMP

?2?9

157200

BPL
MOVE

167174
177600
000007
00110

BIC
CMP
BNE

000001

022353
2360
000176

19§:
78:

157116

SWR

5s¥xs
srx;

81C17?7

-(s

¢«

87 (SP5+
15

cnrbc

TYP

MOV

TYPE

CLR

AND WILL

IN sorruaas SWITCH Rscxsrsn TRAP CALL
;1S THE SOFT-SWR SELECTED”?

F_NO

,.BRRNCH

,.CHQR THERE?

snuroe.ux

TYPOC

022371

N TTY anc

CMPB
BEQ

$SGTSWR:

TRAP HQNOL R,

Enrgne

158

MSW

SHREG -(SP)
, SMNEW

-(sp)

IF NO DON T NQIT RROUND

TRIPg;F
THE ASCII

A CONTROL G’
IS IT

10 USE

IN AUTO-MODE”
ARE EE gfiflfl
DL ING
IF YES
. 'BRANCH

CONTROL-G (1G)

RENT CONTENYS
HH
;;SQVE SWREG FOR TYPEOUT
:GO TYPE--OCTARL QSCII(QLL DIGITS,

:PROMPT FOR _NEW SWR

c§n
1578
BPL

33 KS
78

::IF NOT TRY AGAIN

MOVB

a$TKB, - (S

; sPICK UP CHRR

(SP) 825

,,éa
M _CONTROL-U
NOT
RNCH IF
3

BIC

#4C17?7, (SP)

;;MAKE IT 7-BIT ASCII

042716

1627

0000es

gs:

022062

104401

022346
000006

20$:

ADD

bs SP

flidtatintg

000015

108:

CMP
BNE

(SP), 815
168

.,annncu IF NQO

BosR2) BEIBRL

2,28 055058 657
S460
C461l

2963
055700
Dalfos
S4bH
2102 ooégss

c46S
S4ob
S46?
C4e8

022106
022110
022116
(0e2li2e

001403
016677
062706
104401

6470

022134

001003

€471

LSB

022050

£469

TTY INPUT ROUTINE

: #ROUT]

2726
1
12372
001456

€451l

'isorrunas suxrcn

Q0eli?7e
021776
022000
022006

S4S0

.BLKW

1 3.3.] Ililllillliillll'.lllllil‘ll!llllllilllllllll!lil’l I222222222

S43S
S43b
6437
5438
S439

10.

RRRS SR
RER
AR AR RREERRERI
BRSNS RRR RRRE
RER
R R R R RN ERRRR
R RNRRR
CERRRE

g423
G4
5425
S426
S427
c4y28

SEG 010&

N RUSR off V70 oebVABC ARBCFvAR RouTINE

""93

S416
S41?

DR CPT_TST
28-NOV-77 09:42

c0S

025126

022136

000004

157036

123727

000002
000006
00120%
00!1S1

000001

012777

ooo1ioo

157014

NE
TYPE

148

19¢

TST

4(5P)

MOV
ADD

2(SP), aSWR
86, SP

BEQ

118

108
SCNTILU

TYPE
CMPB
BNE

MOV

118

SLRLF
81
$INTAG,
158

#100,38TKS

o -om

)

ECHO CONTROL-U

(tW)

;IS IT A <CR>?
'YES,

1S IT THE FIRST CHRR?

Rnhcu IF YES

ECHO (CR> AND «LF>
.,BRQNCH IF NOT

;RE-ENRBLE TTY KBD INTERRUPTS®

;RE-ENABLE TTr KBD INTERRUPTS

2 DR CPT_TST
c<RMIBO RMO3.
28-NOV-77 09:4¢e
CcRMIB PL1

8472
S473
47y

000002

S476
L Yed

88152

000067

000060
000002

4737

S47%

5478

c4?79

S480

S48l
5482
5483
S4By
548S
S486
5487

MACY!L1

ag-~ov-77
39%#046)
INPUT
ROUTINE
15%:

168:

gseY

380060

JSR

PC,STYPEC

BLTY

189

00000¢
177776

178:

001204

18$:

TST

2(SP)

ASL
ASL

(SP)
(SP)

; s RETURN

: ; ECHO CHQg

;;CHAR <« O
; s BRANCH IF YES
;;CHAR » 77
; ;BRANCH IF YES
; ;STRIP-OFF RSCII
HIS THE FIRST CHAR
;
ANCH IF YES
;
; ;NO, SHIFT PRESENT
CHAR OVER TO MAKE
i
NEW ONE.
ROOM FOR
i
OF CHRR
; ;KEEP COUNT
:3SET IN NEW CHAR
;GET _THE NEXT ONE
;i TYPE ?2<CRYLF)
: s SIMULATE CONTROL-U

179
(SP)

2(SP)
-2(SP), (5P}
7

INC
81S
BR

SQUES
20$

RN EERRRER R

R AR

TYPE

LSB

RN R

SEQ 0107

PHGE 108

(SP), 867
188
860, (SP)+

.DSABL

D09

(SP), 860

cMP

BEQ
ASL

R AR

AR R AR R AR AR RN RN R AR RARRRRRE AR R AN

§THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

:#CALL:

c49¢g

5497

o
n

oQ0
£

?o—-o—-n—§
HOR
own
nw no
£00N
o
£
YAo
BRI ol
NN SPRsESI=R AN

S496

nunun oA
wnyny
[QIN) anunen gy
o oo PO
0= s 0t s 0t 9t pma e
N uniLwn —OWOm NN LW

RTI

CMP
BGT
8IC

02220e

5488
S489
S4aC
c49]
c492
§4493
S494

10:00

0ec37¢

0
0364 40

000004
156716

000002

156712
177600
000004

000004
000004
000023

SRDCHR:

18:

156660
177600
000021
000140

000004

0o0o17s

000040

000004
0G0

000
047040
000040

MOV

000012
Jdedlee
053s0¢<

3s:

4s:

$CNTLU:
§CNTLG:
§MSWR:

SMNEW

(SP),-(SP)

MOV

4(SP),2(sP)

BPL
MO .8

18
JSTKB, 4(SP)

1STB

BNE
TST8
BPL
MOVB

BIC
MP

000004

; ;CHARACTER IS ON THE STRCK
;;WITH PARITY BIT STRIPPED OFF

RETURN HERE

BIC
CMP

156664

;3 INPUT A SINGLE CHARACTER FROM THE TTh

RDCHR

BnE
BR

CMP

BLT

I$TKS

81CC127, 4(SP)
4(SP), 825
33
J$TKS

28
dSTKB,

- (SP)

8tC17? (SP)
(SP)+, k21

2s
18

4(SP).®140
4

CMP
BGY
BIC

4(SP), 8175
4s
g40, 4.SP)

.ARSCIZ
.ASCIZ
.ASCIZ

~/tU/«<1S> <12’
/G /<15 «1&>
SWR =
«15>12>.

ASCIZ

RTI

NEW =

; ; PUSH DOWN THE PC
; ;SAVE THE PS

;;WARIT FOR
; ;A CHARACTER

;;RERD THE TTY
;3 GET RID OF JUNK IF ANY
;1S IT A CONTROL-S?

s
;;NQK%

1
R
1T 7

ITARC
;IS
IF NOT DISCRRD 1T
;3
;; YES, RESUME

: 15 t1 UPPER CASE?

; ;BRANCH IF YES
::1S IT A SPECIAL CHAR"
: 'BRANCH IF YES

:;MAKE 1T
;GO BRCK
;s CONTROL
: ;CONTROL

UPPER CRSE
TO USER
"U”
“*GTM

RMO3-2 DR CPT 7197
28-NOV-77T 09:4¢
11

MAL Y1l

30(1046)
28-NQv-77
TTY INPUT ROUTINE

.SBTTL

10:00

EOS
PARGE

SEG 0108

109

SAVE AND RESTORE R0O-RS ROUTINES

;-l!l!illlli!!llli!l!Gliillfillll!lilllllllllllllllillll!il!f!f&ll

: ¥SAVE RO-RS
:#CALL:

SAVREG
% ]
; #UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
TM

L #TOP--=(+16)
% +2--=(+18)

i %

+4---RG

i# +6---RY
i# +8---R3
i #+10---R2

;#+12---R]
i #4+14---R0
$SAVREG:

MAIN FLOW

Jo0ez
MTMN22
Q0. 022
0CI022

OF MAIN FLOW
RTI
; *RESTORE

%CALL

012666
012666
Dleebbe

022474

01
Bl1260s
012604
012603
012602
01260}
012600

000022
000022
000022

$RESREG:

RO-RS

RESREG
MOV
MOV
MOV

MOV

000022

; ;RESTORE PC OF
: s RESTORE PS OF
; ;RESTORE PC OF
; ;RESTORE PS OF
TRCK 1 NT0
; + POP
STACK
; ; POP
; ; POP STACK
; ; POP STACK
; ; POP STARCK
; :POP STRCK

wuunVVNVILNIUVIWL
TVVVVVVTOVOOVOOO

010046
010146
010246
010346
010446
010546
016646
0lebNe
pleb4e
Dleb4e
000002

MOV
MOV
MOV

000002

.SBTTL

CALL
CALL

MAIN FLOW
MAIN FLOW
RS

DOUBLE LENGTH BINARY TO OECIMAL RSCII CONVERT ROUTINE

;'iii"'.il.i'li‘lii*'i’.!'i"i§'""!lfl.'i"i’il‘*.lil*il**’lil

;‘THIS ROUTINE WILL CONVERT R 32-BIT BINARY NUMBER TO AN UNSIGNED
;lggg§??LE(QSCII)

VE.

. &

MOV

; #CALL
: &

JSR

NUMBER.

SPNTR,

THE SIGN OF THE BINRRY NUMBER MUST BE

- (SP)

PC, aw$0B2D

;: :POINTER

LOW WORD OF BINRRY

NUMBER

CIRMIBO RMO3-2 DR CPT TST
28-NOV-77 09:42
CZRMIB.PLI

5584
$85

FO9

SEG 0109

MACY1l 30(1046) 28-NOV-77 10:00 PAGE 110
DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINE
: THE FIRST ADDRESS OF RSCIZ
RETURN
.
215 ON THE STACK

5586

5587

5588
5589

022476
022500

104412
0lee02

6690
6691
6532
5593
6694
56595
669

(022504
022510
(022614
(022516
022620
(022526
022532

012700
010066
012201
012262
012737
012704
012705

5599
S600

(22542
022544

02
161502

5597
S598

02263
(22540

00S003
161401

$0B20:

000002

022656
000002
000012
022606
022610

022574
18
23

2(SP),R2

CLR
SuB

R3
(RY),R1

. :CLEAR PARTIAL
' 1SUBTRACT TEN POWER

BLT
INC

3s
R3

(R4)+,R1

;:BR IF TEN POWER TO LARGE
::ADD 1 TO PARTIAL
:1L00P
: 'RESTORE SUBTRACTED VALUE

(RS)+’ (RS)+

. sMOVE TO NEXT TEN POWER

MOV
MOV
MOV
MOV
MOV
MOV
MOV
s8¢
SuB

002402
03

SE04

022546
022550
022552
0226554

5607
S608
5609

022562
022664
022570

022525
052703
110320

022674

DOCOGO

4g:

022602
022604
022606

104413
000207
145000

RESREG
RTS
STNFWR: 145000

65601

5603
5605
Sr06

610

611

5612
5613

614
5615
G616

8617

022556
022560

022672

022576
0cob00
022610

005502
062402

005327

001357
10502
036632

::1.0E04

1750

::1.0€03

144

::1.0E02

:;1.0€0L

;3 1.0E00

022636

001750

630

022642

000144

6632

022646

000012

634

022652

0C0O00.

WL
Ve l{URS(el

022654

. 'RESTORE REGISTERS
: 'RETURN
:11.0E09

23420

5628

022656

2765

000017

023420

5635

;:BR_IF NO
. TERMINARTOR

35632

1132

022632

022650

13
(RU)+

_WORD

::1.0E0S

000230

Stob

5633

BNE
CLRB

103240

022620

2644

: 'CHANGE PARTIAL TO ASCII
11SAVE IT
: ' DONE?

103240

000001

5631

#'0 R3
R3,{RO)+
(Pe)+

::1.0E06

002765

022640

BIS
MOVB
DEC

041100

022630

629

R2
(R4)+,R2

041100

022614

022634

ADC
ADD

::1.0E07

022622

cee?

)

113200

See2
5625

R2
(RS),R2

::GET nogaEss OF "SDECVLTM STRING
: 1PUT RDDRESS OF ASCIZ STRING ON STACK
: :PICKUP THE BINARY NUMBER
::SET UP TO DO 10 CONVERSIONS
: 'RODRESS OF TEN PCWER

;;1.0€08

0226le

ADD

$SOECVL , RO
RO, 2(SP)
(R2)+,R1
(R2)+.R2
#10., 48
#STNPUR , RY
RS
sSTNPWR+2

160400

Se20
3

CMP

000060

160400

022612

5621

38:

062401

€618
619

;

000772

: : SAVE REGISTERS
: 1PICKUP THE DATR POINTER

SAVREG
MOV

000000

00C000

000000

$00908

000000

000014

SCECVL: .BLKB
.SBTTL

12.

)

: s RESERVE STORAGE FOR ASCIZ STRING

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

RNO3-2 DR CPT _7ST
28-NOV-7TT 09:4

MACY11

28-NOv-77

GOS
P AGE

DOUBLE LENGTH BINARY 90 OCTAL RSCII CONVERT ROUTINE

30(1046)

10:00

111

SEY 0110

EERRRARBRRRERRR R R ERERRRRERRERRRERR
R R AR
R R AR SRR B RERFER SRR RE RS

iTHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TG AN
-UNSIGNED OCTAL ASCIZ NUMBER.
: #CALL
P ®

NOQ =~ NINO L

HR28E2R2N

oo £

[

2002805

i #

000002
003011
4
00001
177770

MOV

JSR

RETURN

$0B2C:

SRVREG
MOV
MOV
MOV
MOV
MOV

19:

MOVB

#PNTR,

- (SP)

PC, as$0820

! 1 fuE RODDRESS OF THE FIRST ASCIZ CHAR.

:PICKUP THE POINTER TO LOW WORC

nsoc70L+13 ,RS ,.POINTER T0 DATA TABLE
#12.,R
84C7 R3

(RIN4,RO

0 sstsu CHARAC TERS

.,LOHER WORD

(R1)+.R1

"HIGH WORD

..rsnnxnnron

R, - (RS)
RO.R2
RY

11PUT
CHARACTER IN DATA TABLE
.;cer THIS DIGIT
: :COUNT THIS CHARACTER

RS
RS, 2(SP)
PC

sALL DIGITS DONE-RDJUST POINTER FOR FIRSY
2 ASCIZ CHAR. & PUT IT ON THE STACK
:RESTORE ALL REGISTERS
:'RETURN TO USER

::BR IF NOT THE LRST DIGIT
:'BR IF IT IS THE LRST DIGIT

R3
R1

:'POSITION THE MASK FOR THE LAST DIGIT
::POSITION THE BINARY NUMBER FOR
THE NEXT OCTAL DIGIT

R1
RG

R3,R2

000060
00001e

: s MASK OUT ALL JUNK

o' 0,R2

,,nnxc THIS CHRR. RSCII

1GO PUT

SOCTVL:

8
.BLKB

.SBTTL

SCOPE HANDLER ROUTINE

14,

[N THE DATR TARBLE

.,RESERVE DATA TARBLE

CHRRRRRRERERRERBRERERR
R AR RN R AR R RN AR RN RE RN B SIRER AR ERRRE RO DR RS

iTHIS ROUT¥N£ CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
: #AND LOQD HE TEST NUMBER(STSTNM) INTO THE DISPLRY REG.(DISPLRY<T:0>)

:#ANDLORD THE ERROR FLAG (SERFLG) INTQO DISPLAY¢15:08>
P uTHE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
; #SWIY=]
LOOP ON TEST
; #SWl1=1

INHIBIT

LOOP ON TEST IN SWR<«7-0>

; #SW0B8=1

; #CALL

i
104407
032777
001114

$SCOPE:

g4oooc

18:

ITERQTIONS

LOOP ON ERR

; #SW09=1
SCOPE

CKr.SWR

BIT
BNE

IS ON THE STACK

;i SAVE ALL REGISTERS

2(SP)

33
2s
000002

;POINTER TO LOW WORD NF SIiWRY NUMBER

,.,QLL THE ROUTINE

:;SCOPE=IOT

#BIT14, ASWR
SOVER

; ; TEST

FOR CHANGE IN SOFT-SWR

; :LOOP ON PRESENT TEST?
PIYES IF SWIN=]

CTRMIBO RMO3-2 DR CPT T1ST
CZRMIB.P1
28-NOV-7T7 09:42

5696

S69°

023024

MACY11l

30(1046)
28-NOV-7?7
10:00
SCOPE HANDLER ROUTINE

§xTSTR:

oQM 000004
gggoga
701
023040 005737 177960
6702 023044 012637 000004
2703
o9
ogowsa 000004
5§’
?%83 853825
815259
023060

§709

023070

000423

5707
85382%
§~08

032777

000400

156064

E;i?

023?72

651332

156056

001116

€713
714

023106
023110

001421
123737

001131

001117

§3‘9

853

2777

001000

156026

g;xg

023130

013737

001124

001122

€721

023144

005037

001174

004000

00I404

§712 853183 106737 001117

5715

023'16

lew

101015

1404

5750 853138 132039 001117
57

8531gg

8224;;

§724

023160

001011

570

155774

788

§edAfd @g3gd; oeu7w oon2o
023204

012737

000001

001§g3

023224

113 3;

001116

0cC1214

853} %géfi 983235 BRYTIR OOV
5;33

grgg §§§§§§ §$§§§7 ifliigfi

MOV
MOV

TST
gfip
MOV
MOV

BEQ

z;:‘

02327C

003720

§;gq

2s:

SERRVEC,Eg- 8 (SP) "gz
nv? *HETagfi¥éfi?sTor
rue ennoa555?8&
E
?
30177050
ou1 ON Xo
(SP)+, @8ERRVEC ,,RES oas THE ERROR vscron
?SP
¥H€ N$§
K nrrE
R n TIME OUT
P)¢50 SP)+
SERRVEC ::SEE?SREHFHE
SR
ON rue PRESENT

,,gs }Ftyaxcur TEST?

BEQ
CHPB

3s
SERMAX, SERFLG

‘BR IF NO
,,nax ERRORS FOR THIS TEST OCCURRED?

EQT

.gxroe,asun

,,bgop
on ERROR?

SLCESR,SLPQOR

:iSET LOOP ADDRESS TO LAST SCOPE

BH1

7$:

ngv

4§,

gLRB
CLR

B8R

3%:

BIT
BNE

gsnch

iSRFLG
STIMES

#BIT11,dSWR
%3

SICNT

"SV

.lksxgfllTIHES

goviap: TRie
MOVB

uev

"9}/

SMXCNT: 2000.

:1HAS AN Eapon OCCURRED”
R

$LLERS STCNT

RVSRNA’

srsvun STESTN

(58). JLEERR

SWR‘7:0-

IF NO

; ;ZERO THE ERROR FLRAG
,,CLEQR THE NUMBER OF

1
INC

5¢

18:

TESY

SCAPE

ITERATIONS

TO THE NEXT TEST

IF YE

1: P INCREMENT
1F ““?’ PB??
e eRRTIORE
ITERATION COUNT

’

g NITIQEéZSFT

&g ?8; o¢oc88NTER

Beks

ses TEST NUMBER IN APT MAILBOX

::§ vE ESSPE L83F ABRRE22

;

£743

Ce3272

01004

NEDBRES2,

?25 §

TRAP DECODER

¥OF THE os§xnso ROUTINE.

0 TO TH

STRAP:

)

'MRAX. NUMBER OF ITERATIONS

PETHIS RSUT*Nfi ”fhb ngx P THE L8u§ YTE_OF THE
' AN
0
EX
OUGH TH
TABLE FOR

£742

::BH‘?F noRe YOERR 95N RESOTARES MROE

sEschce
EREzggggés
) ERROG On
=+§ng,?gg§Pan E'§I§PLR; L ?SSE
t

TO MAKE

SINHIBIT ITERQTIONS’

‘'BR

ii!billilllll!liilll}llIiillillilllllllilllllllliiiiilli!li !9{

E74
e

€7€7

llee

RUNNING ON THE *XOR" resrsa CHANGE

aguahsrsrnn

?Ega

.SBTTL

éT’HS

SEG 111

CMPB

239 85 1]€ éxi;
1137377 990000
5;32
oollé 00113l
18%&34 SOVER: s
MOV

5740 BS§§2§ 068063

112

ss:;noonlino
OF 8?5
FOR THE XOR fegosnooo
BIT
c
08, aSWR
SPEC. TEST?

22
8$3i§£ B8153; ooiele
€727 023170 005237 001120
5730

PARGE

snnn.srnnr OF cogs FOR THE XOR TE?TERn.n..

000416

gsge
1374
5?03 853853 81373
S706

HOS

MOV

UTINE.

RO, - (SP)

"TRAP" INSTRUCTION
THE STARTING RDDRESS

THEN usxnc THE ADDRESS OBTRINED

: ;SAVE RO

1T WI
L

C:RHIBO RMO3-2 DR CPT TST
CZRMIB.PI11
28-NOV-77"09:4

5>
6763
S7S4

023274
023300
023302

6765

023204

gggg

023312

723306

016600
00S740
111000

000002

016000

023326

006300

000200

MARCY1l

30.1046)
@28-NOV-7?
TRAP DECODER

MOV
15T
MOVB

§759

6762

5763

g;gg

:THIS

023314

023316
023324

01164

016666

000002

000CO4

000002

STRAPZ:

PARGE

113

SEG Olle

:;GET TRAP ADDRESS
.,ancxup BY 2

;GET RIGHT BYTE OF TRAP

ASL

1POSI TION FOR INDEX ING

RTS

:GO TO ROUTINE

$TRPARD(RO) , RO

USE

MOV

.SBTTL

TRAP

;#THIS

TRBLE

HANDLE

(SP),

MOV

THE

: INDEX TO TABLE

“GETPRI”

-(SP)

4(sP},2(sP)

RTI

2729

109

2(SP),RO
= (RO)
(RO),
RO

MOY

g;gg

10:00

MARCRO

:MOVE THE PC DOWN

.,novs THE PSW DOWN
:'RESTORE THE PSW

TABLE

(

§768

EZ?S

CONTRINS

i#BY THE “TRAP®

THE

STARTING ADDRESSES OF

INSTRUCTION.

THE ROUTINES CALLED

EZ;é

ROUTINE

TZHIITE

6773

023326

023314

5774
5775

023330
33

020352
021316

§777

g;;g

023336

02334C

021332

021520

g;g?

023342

782
5783
€704
5785

€787
gzgg

§776

786

$TRPAD:

.WORD

STRAP2

STYPOS

,,CRLL TYPOS

;;CALL=TYPE
::CALL=TYPOC

TRAP+1 (104401)
TRAP+2
( 104402)

$TYPDS

::CALL=TYPON

:CALL=TYPDS

TRAP+4
( 1044049)

TRAP+5( 104405)

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LERDING ZEROS)
TYPE OCTAL NUMBER (NO LEARDING ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN;

022014

SGTSWR

;; CALL=GTSWR

TRAP+6 ( 104406)

GET SOFT-SWR SETTING

023344
023346
N332€0
3352

021744
022226
017374
022402

SCKSWR
; ; CALL=CKSWR
SRDCHR
,,CRLL-RDCHR
SROLIN
;;CALL=ROLIN
SSHVREG ; : CRLL-5AY

TRAP+7( 104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHRRACTER RCUTINE
TTY TYPEIN STRING ROUTINE

023356

06510
000032

023334

023354

02127

022440

STYPE
§TYPOC

STYPON

SRESREG ,,CQLL RESREG

SOSPLY
$TERM=. -§TRPAD

;:CALL=DISPLY

TRAP+3( 104403)

TRAP+13(104413)

TRAP+14(10441%)

SAVE RO-RS ROUTINE

RESTORE

RU-Ru ROUTINC

ROUTINE TGO TYPE ERROR MESSAGES

g;g?

€792
§793

£794

£79¢

; ;lli!illill!ll{lllllllIIllil{lI»lll'll!lill!liililiiii!ll'l(!t!iill

.SBTTL

SINGLE.DUAL PORT RH70/RM0O3 DRIVER (REV

:NEW DRIVE

TYPE

€798

:COPYRIGHT

(C)

£800

nuruoa(S) JIM 01754
LACEY/CHUCK HESS/C. CHEN

MAYNAR

§;g§
=

£799

gggé

2883
€80¢

S80o

ID FOR RMO2 ##xhsksssh

.1)-24-RUG-"7

10-AUG-77 #uExEassiss

oxcxrn

1977

EOUIPH;NT CORP.

HH RERERERBRERBREREERRLEERNRBREREREREREERERERREFRERRRRERRAERRERDEERERRE S

; STORAGE ron RMDS, Rnegé RMER2, AND RMMR2 ON AN ERROR “2*
RMERRS

RMERRS#E

RMER]

ZRHIBO RH03 2 DR CPT_TST

CZRMIB.P

28-NOV-77 09-42

MRCY11 30(1046>

02336C

023366

000000

023370
023371
023372
023373
023374
02337S
023376
023377

000
00
000
000
000
000
000
000

000000

RMERRS:

023400
023401l
023402
023403
023404
02340S
02340t
0234CTM

000
000
000
000
000
000
000
003g

DRVACT:

DRVSTAR:

.BYTE
.8YTE
BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE

O
O
O
O
O
O
O
O

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

O
1
@2
3
4
S
&
7

.BYTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE

O
O
O
O
O
O
O
O

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

O
1
2
3
M
S
&
7

;DRVIYP=0 IF DRIVE 1S NONEXISTENT (DRVSTR=0, RLSO)

5844
5845
gg:g

;ORVTYP=S IF DRIVE
IS RMO2 ##%¥%x
;ORVTYP=4 IF DRIVE IS RMO3
;DRVTYP=-1 IF NOT RMOJ3
023410
Q23411
Q23412
3413
023414
02341S
3416
023417

000
8]818
000
000
000

DRVTYP:

Co0
000
000

5857
£ess

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
O
O
O
D
O
O
O

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

O
1
2
3
4
S
&
7

; TRBLE OF DURL PORT INITIALIZATION INDICRTORS
;DPINT=0 IF INITIRLIZRT¥ON IS NOT ACTIVE ON THE ORIVE

gggg
s8el
5862
§8e3

0,0,0,0

:TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)

5843

S8S3
5854
gggg

.WORD

;:TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
;DRVSTR=0 IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>Q IF DRIVE IS ONLINE
;DRVSTA«O IF DRIVE IS UNSRFE

5842

sg48
5849
5850
5851
5852

SEQ 0113

; TRBLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
;DRVACT=0 IF DRIVE IS IDLE
;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND
;DRVRCT«0O IF DRIVE 1S ACTIVE WITH AN ERROR RECOVERY OPERATION

5828
5829
5830
gggé
5833
S834
5835
5836
5837
5838
5839
%g:?

PRGE 114

;RMERRS+6 = RMMRZ

5814
SB1S
S81e
ggig
S819
S8e0
5821
5822
5823
S824
S8eS
ggsg

JO9

;RMERRS+Y = RMER2

gg?g
gg}g

10:00

SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-RUG-77

5808

S81]

28-NOV=-77

:DPINT<0 IF INITIALIZATION IS IN PROGRESS

023420
02342!
0e234ee

000
0og
goc

DPINT:

.BYTE
.BYTE
.BYTE

O
O
O

;ORIVE O
;ORIVE |
;DRIVE 2

CZRHIBO RMO3-2 DR CPT_TSTY
CZRNIB.P11
e8-NOV-77 09:4¢2
S864

5865
5866
S867
gggg

023423

0234eM
02342S
023426
023427

KOS

MACYL1l 30(1046)
2B8-NOV-77
10:00 PAGE 115
SINGLE“DURL PORT RH70/RMO3 DRIVER (REV S.1)-e4-AUG-77

000

BYTE

030
00Q
000
000

5870

.BYTE
.BYT
.8vT
BYTE

iDPRQ@S<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT CRIVE

5874
$875
$876
€e8>?

023430
023431
023432
023433

000
000
000
000

5879
5880
gggé

02343S
023436
023437

0ao
000
000

023434

DPRQS:

000

5883

gggg
023440

000000

BYTE
BYTE
BYTE

O
O
O

;ORIVE §
;ORIVE &
;DRIVE 7

(TRNSWT=1

WORD)

:“DPB” OF THE 1/0 OPERATION
TRNSWT:

.WORD

O
1
2
3

;DRIVE M4

; THIS IS A_ONE WORD GQUEUE.

IT WILL CONTAIN THE ADDRESS OF

O
(SRCHWT=1

WORD)

HIS IS
A ONE
WORD QUEUE THAT WILL CONTARIN
R KEY FOR_EACH OF

5891
5892
ggga

THE DRIVES THAT ARE PERFORMING R SERRCH COMMAND FOR THE I-0
IREQUEST THRT IS AT THE TOP OF THEIR REQUEST QUEUE.
‘EACH DRIVE 1S RSSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O.
023442

000000

s$e9z

SRCHWT:

.WORD

; RMO3 DRIVER RCTIVE FLAG (RCTDRvV=1 BYTE)

898

;ACTORV=0 IF DRIVER IS INACTIVE

gggg

iACTORV>0 IF DRIVER IS ACTIVE
023444

000

5303
S04

RCTORV:

.BYTE

: SOF TWARE TIHER ROUTINE ACTIVE FLAG (ACTSTR=]1 BYTE)
;ACTSTR=0 IF SOF TWARE TIMER ROUTINE IS INACTIVE

2382

!ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE

023448

000

€309

ACTSTR:

.BYTE

;UNLORD FLAG

£910
£sll

O
(ULDFLG=8 BYTES)

;ULDFLG=0 IF NO UNLORD COMMAND
;ULDFLG>Q IF UNLOAD COMMAND IN PROGRESS

ég{g
S914
5915
5916
917
5918
€919

;DRIVE
;ORIVE
;DRIVE
;ORIVE

: SERRCH NRIT KEYS

$830

gggg

O
O
O
O

.BYTE

5889

2901

.BYTE
.BYTE
.8YTE
.8YTE

; TRANSFER_WAIT FLAG

5884

gggz

iDRIVE 4
DRIVE S
;DRIVE
&
iDRIVE 7

; OPR@S=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THART DRIVE

gg;g

gggg

;ORIVE 3

O
0
0
O

; TRBLE OF PENDING DURL PORT REQUESTS

S871

5878

;ULDFLG<O IF UNLCAD COMMAND IN WARIT QUEUE
023446
023447
023450
023451
0234<e
023483

000
000
000
000
000
00G

ULDFLG:

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTe

O
O
O
0
O
O

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

O
1
2
3
4
S

SEQ 0114

w0
O DL
v
wn
W~

3 mmmmmmmgmmmmmmm
ZOREE BENK ?mmmfi

023454
023458

MARCY1l

LO9

30(1046)
@28-NOV-77
10:00
PAGE 116
SINGLE/DUAL PORT RH70/RMO3 DRiIVER (REV 5.1)-24-RUG-77

000
000

.BYTE
.BYTE

O
O

SEQ 0115

;ORIVE &
;ORIVE 7

; LOOK QHERO COUNT (LACNT=8
BYTES)
;LRCNT WILL INDICATE
THE NUMBER OF LOOK AMEADS PERFORMED

02345
02345
023460

000
000
000

023462

000

023461

023463
02346M
02346S

LACNT:

00oc

.BYTE
.BYTE
.BYTE

O
O
O

;DRIVE O
;ORIVE 1
;ORIVE 2

.BYTE

;DRIVE H

.BYTE

000
000
000

.BYTE
.BYTE
.BYTE

;ORIVE 3

O
O
O

;DRIVE S
;DRIVE &
;DRIVE 7

; SAVE REGISTERS FLRAG (SAVEFG =1 WORD)
.SQVEFG <0 IF SAVE THE RH70/RMO3 REGISYERS WHEN THE
;OPERATION IS COMPLETED RS PER (DPB+1Y4

iSAVEFG=0 IF SAVE THE RH70/RMO3 REGISTERS RS PER

1 (OPB+14), AFTER AN ERROR.
023466

000000

SAVEFG:

.WORD

:SEEK FLRG

(SEEKFG=]

WORD)

SE FG 0_IF _WHEN THE DISK RDDRESS ISN’T IN THE WINDCW
A DATA
TRANSFER START
A SEARCH COMMAND

SEEKFG<0 IF DATA TRANSFER WILL DO IMPLIED SEEKS,
:DISREGARD THE WINDOW
023470

177777

SEEKFG:
TIHEOUT

023472
Q23474
023476
023500

177777
177777
177777
177777

023504
023506
023510

177777
177777
177777

023502

SRR RRRRRRE

wn £ WN-ODONNLEW

C _RM03-2 DR CPT_TST
.P11
28-NOV-77 09:42

TIMER:

177777

.WORD
TRBLE

-1
(TIMER=8_WORDS

HIS TABLE CONTRINS THE TIME ALLOWED FOR AN OPERATION

.WORD
.WORD
.WORD
.WORD

-]
-1
-1
-1

.WORD
.WORD
.WORD

-1
-1
-1

.WORD

-1

:DRIVE O
:DRIVE 1
:DRIVE 2
:DRIVE 3

;DRIVE 4

:DRIVE S
:DRIVE b
;DRIVE 7

;DARTA TRQNSFER UNDERWRY I NDICATOR (DTUW=] uono)
;DTUW<O IF NO DRTR TRANSFER UNDERWA

:DTUW=+N (WHERE N=0 TO ?) IMPLIES ORYR TRANSFER UNDERWRY ON DRIVE N

0235i2

177777

DTUW:

.WORD

-1

:ATTENTION BITS TRBLE (ATRBIT=8 BYTES)
STHIS TRBLE CONTARINS THE CORRESPONDING BIT

'ATTENTION BIT

023514

023t 1€
023E1E

001

602
004

ATABIT:

.BYTE

‘BYTE
‘BYTE

2
4

:DRIVE O
'DRIVE 1
!DRIVE 2

TO ERCH DRIVES

CZRMIBO RMO3-/2 DR CPT

CZRMIB.P11

28-NOV-77 09:42

5976
€977

023517
023520

010
830

ggg?

023523

200

2378 Rsesl

TST

@28-NOV-7?

10:00

MO9S
PAGE

.BYTE
.az;s

10
30

.BYTE

200

023524

000003

:DRIVE 3
;02135 4

:BRIVEZ

'ORIVE 7

:FSRMO3 YO RH70

“MASSBUS CONTROL BUS PARITY ERRORS”TM

MCPEMX:

.WORD

:STORRGE FOR RMADR

gggg

(THE FIRST ADDRESS

023526
023530

176700
000254

000240

RMADR:
RMVEC:

.WORD
.WORD

ALLOWED BEFORE

OF THE RH70/RMO3)

176700
254,5#32.

:MAXIMUM NUMBER OF LOOK AHERADS ALLOWED IS 4

(MXLACT=1 WORD)

(MXDLTR=1

WORD)

(MNDLTR=1

WORD)

§995
gggé

(23534

00000M

MXLACT: .WORD
4
:MAXIMUM DELTR DELAY

5998

023536

001000

MXDLTR: .WORD

6001
aoog

023540

000200

MNDLTR: .WORD
2%b4
sMAXIMUM SERRCH FOR 1/0 WINDOW

2883

D27>2

00000S

MXWNDW:

soog

.WORD

IS 8 SECTORS

8. %6M,

:MINIMUM DELTA DELAY

1S 2 SECTORS

IS S SECTORS

000000

RMCS1=0

6010
6011

000004
000006

RMBA=Y
RMDR= B

£913
gois

000016

000002

(MXWNDW=1

WORD)

:DEFINITIONS OF THE RH70-RMO3 RDDRESS

6008

5819

(776700)

(MCPE)

"RMVEC (THE VECTOR RDDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)3.

ggg&

6009

SEQ 0116

(REV S.1)-24-RAUG-77

SCALLING IT rRTAL (MFPEMX=1 WORD)

5987

2333

117

SINGLE /DURL PORT RH70/RMO3 DRIVER

BYiE

ggga

§990
gggé

30(1046)

)

5982
gees

MACY1l

: CONTROL

RMWC=2

INDEXES
RND srnrgg REGISTER 8!

‘WORD COUNT REGISTER (NOT
;

RIpg=12,
s:ag15

nggngs

(DRIVE REG.

A DRIVE REG)

00)

ISTER (NOT R DRIVE REG)
aogazgs REGISTER (DRIVE REG

Emio’aiz
E’is i (anE“&e
)
SATTENTION SUMMARY 4
ggovgs isT En?goarvz REG. O4)

6018

888852
000024

RMMR1 =24

BS?R
Efif?fia“fi?é?s ER (NOT nnfigivg REG.)
nn*nrn*nng ké ngxsgs (DRIVE REG. 03)

€021
6022

833333
006034

AMOF
=38
RHDC 34

8Fr§2$
gg"?ggsn ( DRESS
I
Rgg.
i
:DESIRED cv
REGISTER (DRIVE REG. 12}

£02S
£026

000042
000044

RMER2=42
RMEC [ =44

'ERROR REGISTER #2 (DRIVE REG. 15)
'ECC POSITION REGISTER (DRIVE REG.

2813

£023
£024

gggg
£029
6030

£021

000026

000036
000040
000046

RM 9252

RHDT 26

:DRIVE

PMHR= 36
RMMR2=40

cxsg

(vtxsgchegsilo‘

: DUMMY noo EG STER (DRIVE REG. 13)
nnxuremnncs GISTER #2

RMEC2=46

'ECC PATTERN REGISTER (DRIVE REG.

;RH70/RMO3 ORIVER INITIALIZATION CODE
:THIS ROUTINE u;EL DETERMINE WHICH RMO3 DRIVES ARE

‘AvATLABLE FOR

TESTING AND SET THE DRVSTA INDICATOR

16)

177

0S)

CZRMIBC RMO3/2 DR CFT 187
28-NOV-77"09: 42
CZRMIB.P11

NOS

o:og PAGE &19
MACY1l 30(1046) 28-NOV-77
SINGLE /DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-RAUG-77

6032
6033

;

6034

:TO THE PROPER STATE FOR EACH DRIVE.
INOTE: THIS ROUTINE CALLS DRVINT

;CALL

603S

6036

JSR

PC,RMINIT

6037

28:?

!NOTE: THE 'P’ OR 'L’ CLOCK MUST BE STRRTED
:SAVE RO - RS
RMINIT: SAVREG
:SAVE THE PRESENT PROCESSOR STATUS
8PS, -(SP)
MOV

2832

60M2
6043

023544
023546

104412
013746

023552
023560
023564

012737
004737
012701

6048
6049
6050
6051

023574
023576
023600
023602

005021
020102
103775
812702

6064

023614

6044
6045
6046

1?7776

000240
031406
023360

177776

6047 023570 012702 023470
6052
6053

6065

6056
6057
6058

6059

023606
0236le

012721
020102

101774

023400

023636

013703

3530

023664

DOS00L

853&22
3626
023632

oosog;
0050
005037

2s:

177777

005037

023616

MOV
JSR
MOV

18:

ngas1a

023402
023404
023406

004037
000401

023756

3s:

6067 GC23674 000402
6062 023676 105061 023400
023702
023704
023710
023712
023716
023722
023726
0c3730

005201
042701
001366
012701
005037
105761
00140§
004737

4s:

6069
6070
6071
6072
6073
6074
60
6076

6077

6078
6079
6080
6081
£082
Egga
6085

6086
€087

023734

023740
023742
023744
0237
023752
023764

105761

001375
005301
100366
012637
104413
000207

177770
000007
177776
023420,
:
031042

023420

000010

c§:

6S:

78:
8s:

177776

MOV
CMP

8<S#32.> . d#PS
PC, CLRQUE
SRMERRS, R1

:CHANGE THE PRIORITY T0 §
:CLEAR ALL REQUEST QUEUES
'FIRST ADDRESS 10 BE CLERRED

(RI)+
R1,R2
18
sDTUW,R2

:CLEAR
:ARE WE DONE?
:BRANCH IF NO
:LAST RADDRESS

8GEEKFG . R2

8-1,(R1)+
Ri,R2
2$

RVSTA

:LAST ADDRESS TO BE CLEARED
SINITIALIZE
:DONE?

:LOOP IF NO

!SET ALL DRIVES TO OFFLINE

CLR
CLR
CLR

RVSTA+2
DRVSTAR+Y
DRVSTR+6

MOV
MOV
MOV
MOV

$ISR_(RI)+
RMVEL+2 (R3)
;FIRST RADDRESS OF RH70/RMO3
RMADR, R
sBITOS,RMCS2(R4)’ ;MASSBUS INIT

MOV

023666
03672

6065
6066

6064

CLR
CHP
BLO
Y

CLR

N12723
013713
013704
012764

023642
02364
023652
023656

MOV

BLOS

356
023532
023526
000040

6060
6061
6062
6063

RE TURN

CLR

JSR
BR

RMVEC,R3

;SETUP THE RM70/RMO3 VECTOR

;SYART WITH DRIVE O

RO, DRVINT
4s

SINIT THC DRIVE
1'DVA’ NOT SET OR PARITY ERRCR

R1
$1C7,R1
3s
87, R}
Jufs
DPINT(RI)
8s
PC,SET. IE

:GO TO NEXT DRIVE
ED BITS
:MASK OUT
DRIVES TO GO
:BR_IF MORE
:START WITH DRIVE 7
:CLEAR THF PROCESSOR STATUS
"WMATTING FOR DRIVE TO SWITCH PORTS ?
:BR_NOT_WAITING
'SET INTERRUPT

78
Rl
6$
(SP)+,a8PS

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

BR
CLRB

1
DRVSTAR(R1)

1578

OPINT(RI)

INC
81C
BNE
MOV
CLR
1S1B
BEQ
JSR

BNE
GEC
BPL
MOV
RESREG

:DRIVE INITILIZRTION ROUTINE

: NORMAL eETURN
STATUS TO OFFLINE
'SET DRIVE

:DRIVE

SWITCHED PORTS *

. THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
'aN AMO3. IF IT IS, A "READ-IN PRESET" IS ISSUED AND FMT22

SEQ 0117

c:nnxao nnoa 2 DR CPT 7187

28-NOV-T7"09.42

ZRMIB.P

MACY1]l 30(1046)

6092

6097
6098

6096

6109
6110
6111
6112

0237S&

0}0SHE

023770

605061

023760
023768

023774
024000
024006
024014
024016
2

024024
024030

105061
105061

02340C
023410

010164
112764
(32764
001~o;

000013
000Iil1
010000

883237

031042

1GS061
764

023400
004000

17
004037

Bl14
6115
6116
6:17
6118
£119
6120
6121

024046
G40S0
024052
024060
024064
024066
024072
024074

024266
012605
112761
c705
1420
2705
001415
655; 1

6:23
%
5125
6126

024106
924110
024114
024116

oo$407
8% 705
1404
112761

024025

000121

6la2

6127

0240

035102

024124

000446

6128

024126

0le?46

6136
6131

024136
024140

000000
266

£:.3
6134
6135

024146
024152
024154

004037
000032
024266

02Nibe
024led

03001c
024286

6129

6132

6136

6137
6138

6139
6140

024132

(024142

024156

Q24ibb
06294170

004037

012746

004037

CULP:

020025
177777

£143

024200
024204

004037
000014

:UN1BUS
£SS OF RH70-RMD3 (RMCS].
:CALLED 8Y A JSR

,ERR

OCCURRED (PRRITY)

: NORMAL RETURN

RE TURN2

CLR8
CLRB

:DRIVE ngggs 0 RI

83 -(SP)

IVE NOT nvnanaLe
REQD THE DRIVE TYPE REG

023410

8s
MOV
MOVB
CMP
8EQ
CMP
BEQ
MOVB

(SP)4,RS
84, CRYTYP(R1)
s20024, RS
2
824024, RS
ag
s onvrvp(nx)

;snaoa RETURN ADDRESS
:PUT DRIVE TYPE IN RS
;SET RMO3 INDICATCR
:SINGLE PORT RMO3 7
;gn IF v*;
:0UAL P
RMO3 ?
:BrR IF YES
;sfr
Pénoxcnron

023410

BEQ
¢
BEQ
MOVB

23
s woas.as
2s
#-1,DRVTYP(R1)

;
H &r S0
: BuAL PO'T RMO2 °
:BRANCH iF SO
:SET INODICATOR TO 'OTHER®

MOV

#121,-(SP)

:DC R “RERD-IN PRESET"

oexrxa —(sp)

:SET FMT22=1

JSR

RO,RD.RM

;RERD RMDS

MOV
8PL

(SP)+,RS
48

nno SAVE xr IN RS
ANCH IF
ATA=0

RO, RD.RM

FIND OUT WHY ATA=1

18:

CLRB
BIT
RMDT

023410

010000

030352

CHP

2s:

JSR

RMCS!
8s

MOV

JSR
RMOF
8s
RMDS
8s

MOVE
JSR

RMER!

0§rn(n1)
ORvYIYP(R1)

gngs

DULP
RO RD.RM

000000

030532

030352

RETURN]

#CRVNUM, R1

RMADR, RY
RO, DRV INT

BEQ
JSK

0QO0NOO
000010

030532

012605
100015

MOV
JSR

CLRB

024024
000005

MOV

MOV
MOVE
BIT
BEQ
JSR
BR

030352
000004
020024

DRY “AND VV ARE CHECKED TG

T
STATUS RS OFFLINE
CLERR HE
IVE TYPE INDICATOR
LDFLG{RI)
E
THE
OAD FLRG
1. RMCS2(RY)
s LECT
vs
#111 RMCS1(RY) DO
A
LEAR COMMAND (& SEIZE DRIVE)
881712, RMCS2 (RY) ' NONEXI rsnr oaxv
18
ho---§an~c
uxruour A -, e
35 ig
PC,SET.IE
68’
Len
T
TINE

G141 024172 116164 023514 000016
€142

PAGE 119

: INSURE THEY RREA
NR *1%. AND DEPENDING ON rHEIR STATE,
'DRVSTA IS SET TO THE pnopen CONDITION.

DRVINT: MOV

023446

024036
024040

6113

UHL

:
:

6095

6103
6104
6105
6106
6107
6108

6093
60

6102

B10O

;1S SET TC
A ~1". rucn HOL‘ DPR,

6089
ggg?

6i00
6101

10:00

SINGLE /DUAL PORT RH?0/RMO3 DRIVER (REV S.1)- aq AUG~77

6088

6099

28-NOV-?7

ODRVSTA(R1)
srnrus TO OFFLINE
sBITI1I, RHCSI(RH) s;; DRIVE AVAILABLE

82002

RO, WRT.RM
RC,

SINGLE

T RMO2

TEXIT

ATABIT(R1), nnnsrkq) .CLERR qrrenrron BIT

SEQ 0118

WAL )

6l44
6145

024206
0e2vell

024266
0061§s

£
@®

i
IV
gede22
Q24eceu

00gN0?7

—

giud B251E 1199 1

ROL

023 167077
el
eied BSisR
3%
61

blge

O24g3

6186

024

6104
6155

Bl
6188
6159
6160
€161
6162
6163
6164
6165
6166
6167

gzs

Oou4

E
024260
024o66
024270

?6]

T UNSRFE?

oRF E INCICATOR
P&k moL OPR, DRY, AND WV
:SET uns

RSL

177777

023420

MOVB

8-1 DP%NT(RI)

8s:

;

-¢c<91712'91708-65107-91796
6$
AVSTACR
R¢Ngsxx "Qbf DPR osvOR VV 1S CLEARR

EsX

81C
BNE

023472

Egg

éfio?+ S
\

(

)

§$EP ovs Eaaoe Ss¥unn
;c

INDEX TO

RDDRESS WORDS

a?oooo,rxnsn<ax) Réérfii s Ee ? 22

Rop"' °

257
PORT %nxranxzs INIDICATOR

EXIT

:REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

:CALL

6170
6171
6172
6173
BI74
6175
6176

024272
Oouo76
024304
024312
Qeu3ld

01374
013737
112737
109412
ofiods

177776
023532
000001

£179
6180
6181
£182
6183
blgi

024324
0243
0ou3
024336
024342
Qoudd

013704
261
14
105761
001036
106761

023526
083400

ez 3543s8 095369

42300

024366

105761

000460
122762
00100
iig276i
105761
001CM3

gg?non 0,
RETURNS

RMO3:

MOV

Rng)knéq
onvgrh(nx)

023420

1518

000103

BNE

gsge

177777
023370

000002
023448

ggga

ggze
2s:

8PS, - (SP)

:838
TST8

gE;

18:

98RA03

?g¥a

023430

J8RM

SAVREG

023446

Bl3e Oou3rd OIboEy
000010
£135
BSi30d 849457 BR0EAS
04404
Q024406
024419
Uewwit
Qgudg4
024430

RO,

:
;
23444

eige 854323 B85 gasvse
o
16 85473 4337584
£194
£195
6195
blY7
6198
£194

’

&8-1,DRVSTR(RL)
:

060000

2761

£ie8

6190

Bfvs
ove
28

2§¥B

0000C!

01
112761
015606
000200

023400

(ip)o

023400 68:

1
201

1772727

Cl0

MACY11 3Ei§8LE DUSE ggér gn?é n983 BQ?EE& ?REV S.1)-24-AUG-77
Y

MOVB

15718

BNE

(R?§é§2

ULDFLG(RI)
DPINT(R])

,CRLLIHe AmO3 OR

,:gg ngr ? NTER
onxves PARAME TER BLOCK
I
RE {F RBYEESTS1EYSN oueue or TheRe
- 1S nu ERROR CONDITION

:SAVE THE CALLING STATUS

Y-mfl%&egsss;vzmezamws

3&% ?R*UE/ERROR INDICATOR

PARAMETER BLOCK. POINTER

H%NC oni
E %anusRMCS1

connano IN QUEUE”?

eannc

rgvtpcEg xnxr THE DRIVE

33
DRVINT
ys'

Ego
NIT. THE DRIVE
;ERROR RE TURN

DPRAS (RL)

ursranoxnc PORT REQUEST FOR THE CRIVE °

Egvsrn<nx)

Rb.ancea

R],RMCS2(RY)

5203 2(R2)
ULDFLG(R1)

onvhcrtnx)
83

;

ngxSTsrnrus ONL INE?

Sf»s..,s"sesuzsfi I ouEE

52
THIS REO ron AN UNLORD?
ssr THE “UNLOAD IN QUEUE" FLRAG

.15 THIS DRIVE ARCTIVE"
:BR IF YES

SEQ 0119

CZRMIBO RMO3-2 DR CPT T1ST
28-NOV-77 09:42
CZRMIB.PI1
6200 024432 004737 024564
6201

sagg

024436

440

Y46

000440

868:

120000

025644

Q24450
6205 024454
85::23
6207
6208 85:“93
Y
6209
6210 024472
6ell 04476
bele 024500
6213
6214

737
31
037
000431
032714
1 ;
?
000420
1058761
002412
012762

000100
031042

024532

O0l276c

110000

D10

MACY11 30(1046) 28-NOV-7?7 10:00 PAGE 121
SINGLE-DURL PORT RI470/RMO3 onxven (REV S 1)-24-RUG-77
:CALL THE OPTIMIZER
PC OPT
JSR

000016

104;13
02:%:3
2559
383w51
454y
6222
6203 024546 104413

beo4
6226
6226
gggg

024550
024552
024556
024Sk2

S$:

023400

6S:

000016

6231

78$:

8s:

:CALL

gggg
024564

104412

177776
023514

024
0245672

013746
146137

6240
be4]l
ge42
go43
B244
6245
6246
6247
6248
6249
5250

024610
024612
0P4614
024620
024626
024634
024636
De4e42
Ooue4d
(024650
024656

005702
001472
010164 000010
012764 000111
882754 004000
1446
105761 023400
003014
004737 031602
140006
012762
105761 02340C

105061 023430
6238 024600 004737
031560
6239

Aor.

023442

00000C
000000

108:

00001&
62€] 024662 1000S3
000016 s
6252
000447 110000
853&35 0l27e2
ggga 024664
g£2cc

MOV

JSR
B8R
JSR
BR
BIT
BNE
JSR
8R
TSTB
BLT

MOV

1518
MOV
BR
MOV

PC,C17
gs’
RO, DRVQUE
q$
881706, (RY)
8
PC,SET. IE

THE “UNLORD IN GUEUETM ERRGR FLAG

GO MANDLE THE PARITY ERROR
:PUT REQUEST IN QUEUE

"QUEUE IS FuLL
xe 8IT SET
YES
SET THE INTERRUFT
RETUR
‘SEE IF DRIVE OFFLINE OR UNSHFE
onvsrn(a1)
g F UNSAFE
4
:SET OFFLINE ERROR INDICATOR
8BITIS!BITIN, 15(& )

SEE torerns OR NONEXISTENT
)
DRVTYP(R1
:BR IF OFFLINE
8s
REPORT DRIVE NONEXISTENT
#B8IT15'BITO!L, xs(he)
Go ¢ EXIT
gs
sBITIS!BIT12, 1s(ha>

(RQ)
$E$REG 10?
B8RESREG
157
CLRB
MOV
RTS

S EX t :SET

13 16(R2)

8-21715-311

(RO)+
ACTORV
(SP)+, a#PS
RO

D xvs xs unsnrs

RE TURN
bflgoaN RnnL
EXIT
HEN
?in?gu
:RESTORE Rb -

:CORRECT THE RETURN ADDRESS
:CLERR “ACTIVE DRIVER" FLAG
'RETURN "PS* TO USER LEVEL
'RETURN TO CALLER

: OPTIMIZER-CALLED FOR R PARTICULAR DRIVE

6232

6236
6237

BNE

9s:
108:

005720
1058037 023444
012637 177776
000200

gsgg

6235

ys:

031504

140000 000016
023410
105761
024514
6215
b2lb 024520 001007
024522 012762 100002 000016
6217
6218 024530 000403
6219

3§:

MOV

8DRVNUM, R

:DRIVE NUMBER TO Rl

'SETUF R COMMAND

JSR

PC,OPT

SAvREG

:SAVE PROC. STQTUS
8PS, - (SP)
s A SEACH FLAG
arneirtnx),sacuuf
#x#s

MOV
BICB

:SAVE RO - RS

CLRB
JSR

gpnos<n1)
TREQ

BPL
MOV
BR

157
BEG
MOV
MOV
BIT
BEG
1578
BGT
JSR
MOV
1518
MOV

ORT EQ OFFLAG
rfis POINTER
RE?ET“pPR"TM
REQUEST

xs THERE R REQUEST IN QUEUE?
:NO--BRANCH TO EXIT
s
'LORD THE ORIVE RDDRESS #%zxss#
R1 ,RMCS2(RY)
'CLEAR THE DRIVE
sil1 RMCS1(R4)
gvn SET °
88IT11,RMCSI1( q)
.70 PROT'REQUEST , IF NOT
cs
:1S DRIVE ONLINE”?
DRVSTA(RL)
: YES--BRANCH
xs
'NO--REMOVE REQUEST FROM QUEUE
PQUE
SET OFFLINE STATUS/ERROR INDICATOR
xq 15(&2)
setrxs'axr
UNSAFE ?
ohxvs
IS
DRVSTA(RI)
BR o XIT IF NOT
7 unsnrs STATUS/ERROR INDICATOR
88IT15'BITI2, xs(ha)
RNCH T0 EXIT
8$
sill,-(SP)

:LORD COMMAND ONTQ THE STRCk

SEG 0120

C2RMIBO RMO3 2 DR CPT T1SY
CZRMIB.PI1
28-NOV-T7"09: 42

MACYL1

ELO

30(1046)
28-NOV-77
10:00
PRGE 122
SINGLE /DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

6256

6260
6261

£257
6258
6259

:
:
:
029674

122762

000150

004737

025230

6262

024702

002403

6234
bobS
bebb
6267

024710
024712
024716
024720

000440
005737
002012
005737

6269
6270
6271
272

024726
024732
024734
024736

004037
000427
000403
004737

6263

6268

6273
6ET4

024704

024724

024742
024744

100404

000423
004737

6275
6276
6277
6278

024750
024782
0eN?
0247b2

000420
112761
010103
006303

6281

024772
024774

000402
004737

6283
84
6285
6286

025004
025006
025012
025016

6279

6282

gggg

024764

025620

012762

001002
004737
012637
104413

vss--gn CH

BR
757
BGE
TST

8$
DTUW
qs
SEEKFG

:BRANCH TO EXIT
:DATA TRANSFER unosnunvv
'YES--GO STARTA SERRCH
oo IHPLIED sesxsv

JSR
BR
BR
JSR

RO, LA
8s
4$
PC,CI!

NO--DO LOO nus AD
RETURN chs ON R PARITY ERROR
:GO STRRT SEARCH
'STARTA DATA TRANSFER

SS:

BR
MOVB
MOV
ASL

8s
#-1,DPRQS(R1)
R1,R3
R3

:G0 TO THE EXIT
:SET PORT REQUEST INDICATOR
:SET UP TQ RADDRESS
WORDS
,CONVERT T0 WORD INDEX

68:

BR
JSR

ekrr
"PROCESS THE PARITY ERROR

8s:

BNE
JSR
MOV
RESREG

gs
PC,SET. IE
(SPY+,d8PS

‘BR IF SET
'SET "I1ETM WITHOUTA “TRE"
:RESTORE PROC. STATUS
*RESTORE RO - RS

JSR

2s:

BMI

025022

3%:

025130

ys:

177777

023430

060000

D223472

PC,CIY

8s
PC,CI3

oaaooo TIMER(R3)'

oeiros (RY)

:COMMAND INITIATOR
:
:CALL
:
MOV
-oavnun Rl
:
MOV
$0PB

629
6297
Esgg

:
:
:

6295

025022

004737

6301
6302
€303
6304
6305

025026
025032
025034
025040
025044

010237
010203
013704
010164
062703

€307
£308
€309
€310

025084
025056
025060
026062

Cla324
012324
012346
004037

€311

BIT

RTS

6294

£306

BR
JSR

MOV

000207

6289
6290
£29]
6292
6293

6300

9s
8150, 2(R2}

BLY

026202

031042
177776

BEQ
CMPB

025050

D250t

062704

000O0E

031602

023440

LORD THE REGISTER

#8IT11, (RY)

023470

025644

RO, WRT.RM

REGIST R INCREMENT
:ERROR RETURN ADDORESS
onxv;
nvnanaLs ”

000002

023512

032714 000100

JSR

RMCS1
68
BIT

CIl:

JSR

PC, »t*

aaa;
(1S
THE Rcoussr FOR
:CALL

THE COMMAND

1/0?

INITIATOR

YES---BRA

:START
A SEARCH

;START

10 SEC TIMER

‘SEE IF '15' ALREARDY SET

:DRIVE NUMBER
:ADORESS OF DPB

,cxvz CI1,C13, OR CIM
i W

,cxlzonrn TRANSFER
:C12=SERRCH REQUESTED BY DATA XFER
:C14=NOT DATA TRANSFER
JSR

PC, POPQUE

REHOVE REQUEST FROM “DRIVES WAIT"

023526
000010
000004

MOV
MOV
MOV
MOV
ADD

RS, TRNSWT
Re R3
RMADR , R4
R1,RMES2(RY)
%4 R3

T REG. IN TRANSFER WAIT QUEUE
DPB ADDRESS TO R3
:RMCS1 nooasss
"SELECT DRIVE
ossxnso WORD COUNT

030832

MOV
MOV
MOV
JSR

(R3)+, (R4
+
(R3)+. (RY4)+
(R3)+ -(SP)
RO, WRY.RM

LORD
'LORD
'LORD
:CALL

000002

SEG 0121

ADD

RMOR

82 R4

RMWC RDDRESS

WORD COUN
BUFFER noonsss
SECTOR AND TRACK
THE LOAD(WRITE) ROUTINE

: INDEX OF REGISTER TO _ORD

GUEUE

CoRMIBO RMO3.2 DR CPT_TST

28-NOV-77 09:42

CZRMIB.PL1

6312
6313

6314

025070
025072

025074

025644
012346

004037

000034
8essuw

025100
025102

6318

025110

883835 030532

0261

180137

6319
6320

6321

6322
6323
6324
6325
6326

6327
6328

6329
6330

025104

025119
oasxég

0Ibede
44

000137
010164
016246

025130

025124
026134
025140

013704

025144

025150
025152

004037
000034
025644

025154

116203

025606
023526
000010
000012

CI3:

000010

6336

025174

004037

030532

0252

012746

000131

6341
6342

025214
026216

000000
025644

6344

(025226

6346
6347
6348

026234
025240
025244

6337
6338

6339

6340

025202

025210

177740

116266 000011

0000
025644

004037

023514

025230

013704

023526

6349

025250

001007

6351

025266

004037

6345

6350
6362
6363

6354
6355

£356

0256320

025262

025262
025264

(025266
025270

Fre

000567

010164
116203
122703
016246

000034
02564
000546

#32. ,R3

ls:

004037

R3, -lsP)
8127790, (SP)

:COMBINE THE ADJUSTED SECTOR WITH
'CHOP OF ALL EXENTED BITS ,IF ANY

JSR

RO, WRT . RM

'LOAD DESIRED TRACK & SECTOR

MOV8

MOV

CIN:

8131,-(SP)

'THE DESIRED TRACK
.START A SERARCH

RC, WRT.RM

B1s8

ATABIT(R1),SRCHWT

MOV

RMADR , RY

C1S

:SET “SERRCH WRIT" KEY

:RMCS! ADDRESS

"SELECT DRIVE
'PICKUP THE REQUESTED COMMAND
*15 IT A SEARCH COMMANG?®

MOV
MOVB
CMPB

R1,PMES2(RY)
2(R2),R3
#131,R3

MOV
JSR

10(R2), - (SP)

RO, WRT . RM

'LORD DESIRED TRACK & SECTOR

BR
CMPB

2s
$105,R3

MOV

:GO LOAD CYLINDER
'1S IT A SEEK COMMAND
:BRANCH IF NO
!LORD DESIRED CYLINDER

BNE

030532

11(R2), 1 (SP)

JSR

RMCS1
CI?

023442

MOV
BIC

RMDA
Cl?

000010

030532

BGE

RMDA
&

BNE

JSR

RMDC
C17
BR

3¢

12(R2).-(SP

RO, WRT . RM
cle

:BRANCH IF NO

122703

000115

025322
025326

004037
000032

030352

JSR
RMOF

RO, RD.RM

15 IT AN “OFFSET" COMMAND?
A
‘BR IF NO
‘MERGE THE OFFSET VRALUE INTO RMOF
!BUT DON'T CHANGE THE JPPER

025332

1lEcle

000001

Move

1(R21,15F

:BYTE WHEN LORDING THE

£362

025314

£364
£3eS

£3e?

£3c65

RDD

2s:

025306
310
025312

6363

000001

:RMCS1 ADDRESS

:SELECT DRIVE
:DESIRED CYLINDER ADDRESS

000012

£359
£360
636]

6302

:SET "DATA TRANSFER UNDERWAY"

cié
RMADR , R4
R1,RMES2 (RY)
12tR2), - (SP)

:PICKUP SECTOR ADDRESS
!BACKUP BY MAX. SEARCH FOR I O WINDOW

00010S

0lbe4e

R1,DTUW

JNP
MOV
MOV
MOV

10(R2),R3
MXWNOW . R3

18-

025276

MOV

MOVB
SuB

03
122703

1007

RO, WRY.RM

:LORD "COMMAND+GO”, “Al78ALETM, AND "PSEL"

025644

£357
6358

000010
000002
000131

JSR

2(R2),-(SP)

RO, WRT'RM

030532

156137

6343

MOV

RMOC
CI?

6335 025166

RO, WRY.RM

JSR

030532

010346
042716

SEG Olee

PRGE 123

JSR

RMCS1
c17

025160
025162

F10

;ERROR RETURN ADDRESS
:LORD CYLINDER ADDRESS

RMDC
&4

000002

6333
334

10:00

(R3)+. -(SP)

c1?
MOV

6331

6332

28-NOV-?7

SINGLE /DURL PORT RH70/RMO3 DRIVER (REV 5.1)-24-RUG-77

030S32

6315
5319

6317

MACY1l 30(1046)

0256330

061013
02564944

3s:

CMPB
BNE

c17

#!15,R3

032 DR CPT_1ST

MACY1l

28-NOV-7709:42

5336

§342
S344

025346
025350
025364
025356
028362
02534
0

025372
025400
025404
g25412

037

032

000530
122703
001525
122703
001522
122703
001016

112761
105061
112761
010346

004037

Q25424
025426
025432
G25434
025440

008207
122703
001014
004037
000032

000000
(025644

030532

JSR

RMOF

C17

000107

4s:

000117
000103

000001
023400
000001

023370

022446

030532

JSR

RMCS1
c17

000143

s§:

030352

025644

0254s2

004037

030532

122703

000141

BS:
7s:

116266

000001

025456
025460
025462

000032
02564
000436

025470
025472

001023
016203

000006

025476
025504

116237
116205

000010
0000]
1

025464

025510

004037

000000

025520

012623

023705

025514

025530

062737

00000z

G25516

025522

025536
025540
025844
025546
025550

025554
025556
025560

025564
028872

061414

000764
122733
001405
010346
DO4C37

000000
02Se4Y
004737

052762
005737

)

93 :

000200
023466

025604

000207

0eSti0

0l127el

00E301

06000C

PAGE

124

SEQ 0123

118:
128:

138:

CIE::

Clb
#107,R3
cle
8117,R3
cle
#103,R3
s§

;GO START THE COMMAND
;1S 1T A_“RECALIBRATETM COMMAND”
:BRANCH IF YES
1S IT A_RETURN TO CENTER?
iBRANCH IF YES
:1S IT AN _"UNLORD"” COMMAND”
:BRANCH_IF NO

81,0RVACT(R1)
DRUYSTA(R])
#1,ULDFLG(RL)
R3,-(SP)
RO, WRT.RM

;RETURN TQ USER
;13 IT A “SET FORMAT" COMMAND
;BRANCH IF NO
READ THE OFFSET REGISTER

1(R2),1(SP)

;COMBINE “FMT22",“ECI”,

BNE
MOV

108
6(R2),R3

MOVB
MOVB

10(R2:,98
11(R2),RS

JSR

RMCS1
cI?

BR
(P8
BEQ
MOV
R

RO, RD.RM

(GP2L. R+

3¢

RS’

82,98

8s
#145,R3
-(sp)
WRT.RM

RMCS1
cl?
JSR

PC , POPQUE

BPL
JSR

i35
PE T SVRH70

ASL

BIS
157

RTS
MOov

AND “HCI"

{LOAD "FMT22", "ECITM, AND/OR "HCI".
;1S IT A “GET REGISTERTM COMMAND”
:BRANCH IF NQ
POINTS TO 1ST ADORESS OF WHERE

:70 PUT_THE REGISTER(S)

SINIT. THE INDEX FOR_THE FIRST REG.
:INDEX OF LAST REG.
TO MOVE

READ RH70/RMO3_REGISTER

; INDEX OF REG.

TO READ

;GET_THE CONTENTS OF RH70.-RMO3 REG.

iLAST REG

BEEN RERD?

iGET OUT IF¥
: INCRERSE THE

INDEX BY 2

LOOP--HORE To READ
IS ITA “SELECT ORIVETM COMMAND"
;BRANCH IF YES
{LORD THE COMMAND
;REMOVE REQ.

FROM QUEUE

oB!TO? 16(R2)
SAVEFG'

iSET_THE “DONE" BIT
:SAVE THE RH70/RMO3 REGISTERS"

'RETURN 10 USER

860000, TIMER(R1)

iSET THE DRIVE ACTIVE INDICATOR
{PUT DRIVE STATUS TO OFFL INE
iSET_“UNLORD IN PROGRESS" FLAG
;START THE "UNLORDTM COMMAND

PC
8]43,R3
6$
RG,RD.RM

8I41,R3

ADD

108:

;REGISTER (RMOF)

CMPB

RMOF
cl7
BR

BEQ

025514

Q223472

G10

RO, WRT.RM

RO, WRY.
R

CHP

000016

_10:00

JSR

MOV

030532

025576 100002
025600 004737 030724
025606

8s:

00014S

031602

ove

025514

025644

RTS
CMPB
BNE
JSR
RMOF
cl7

000001

030352

825514

BR
CMPB
BEQ
CMPB
BEQ
CMPB
BNE

MOVB .
CLRB =
MOVE
MOV

025442

025444

2B-NOV-77

SINGLE-DUAL PORT RH70/RMO3 DRIVER (REV §.1)-24-AUG-77

025644

025414

g25420
025422

30(1046)

;BRANCH_TF _NO
YES--GO_SAVE THE REGISTERS

;SET R ONE SECOND TIMER

CSRMIBO

RMO3-/

TST

Efnn¥g9pxx 3 aagengv-rr 09: 42
b4y
6425

i
b4
6429

6430

gudh
6433

g4l
£1%
gads

6439
440
44]

6442
b443

025616
025620

025636
64
¥
1

006201
fiégfig

C00001

03
000000

305832

010000

Ciaeh

H10

PQ? &
MARCY11 32; 1046)
60 08
B-NQV-77
(REV S.1)-24-AUG-77
NGL -DURL PORT RH?0/RMO3 DRIVER
R1

81 ,0RVACT(RI])

023370
Clb:

02sese

702

025654

00100%

;82 104000

0co010

CI?:

58.-k59)

RO, WRT.RM

:SET

THE DR%VE fiCTst
T0

:ESABR¢HE connnnBE

lézTIE.RHCSE(RH) ;: DRIVE NON-EXISTENT ?
NY*HINE IN QUEUE *
cf7a
C

is.

¢
R

2s:

g
STHE Wl E
sBIT1S'BITLL, 15(&
ET *PARITY” ERROR INDICATOR

t178:

léll -(BP)

RQNS g

000016

Rezpss U B

SEG Ol24

PC,

SVRHZ0

UTVE

THERE

gnvs THE RH70/RMO3 REGISTERS

-oo

RIVE

CLEAR”

025676

cs:

183521 824488
105061
105061
020237

00100S
00S037?
012737
000207
Q4412
32764

Bs272s 362883

DSQSS(RI)
oC

EMPTYQ

ULDFLG(RY)

023446
023370
023440

‘DRIVE 1S ID
1IF THIS DRIVE HRD AN 1/0 REGUEST

"IN PROGRESS

R1.DTUW

:1F

THIS DRIVE HAD AN

0235l1e

TRNSWT
s-1,0TUN

010000

000010

:SAVE RO - RS
#BITI2,RMCS2(RY) " ;IS "NED® SET

:BR IF YES

023370

RRVACT(R])
T

025764
025766

001003
10S761

023430

s
DPRQS(R1)

%&J‘l@%

0e3s1ie

031560

ggéq 3
764

010000

000010

865“85

180002

000016

026036

012762

102000

0000C1e

?S:

026044

012763

177777

023472

02E0E2

020137

QJ23sli2

023440

1926e] 88333

¥
44

2s:

I1-0 REQUEST

CLEAR ALL OF THE FLRGS

023440
177777

105761

322055

LERR TfiE 885¥EPEOUEST FLAG

CLERR THE unkono IN QUEUE FLRG

DRVACT(R])
R2, TRNSWT

825760

G872 874702
1370

MPTY T

NSWT,R2

g ,DTUW

PC,GETREQ

gfién& jyN

RANCH
IF IN RCTIVE
:PORT REQUEST

IE R

HE “TRANSFER WRIT" QUEUE

B&S
THI ofiévs HAVE AN I1-G IN PROGRESS”
HE DPB POINTER

ogsgg
ENTRY FOR DRIVE °

BR IF NOT

331712 RMCS2(RY)

'NED’ SET ?

o§1715°exro116(#8) SEE 'DRIVE NON-EXISTENT® INDICATOR

.91115'91710 15(&2) ser “NON-CLERRABLE PRRITY" ERROR INDICATOR

PC, SVRH 8

vs RH?O/RHES REGISTERS

DRVACT(R1)
DPRGS(R1)

ssr WDRIVE ACTIVES 10 IDLE
:CLERR POR
QUEST FLAG

s-1 TIMER(R3)

R1,DTUW

;1S THIS DRIVE SETUF FOR R TRANSFER

CoRMIBO RMO3-2 DR CPT_TST
e8-NOV-77 09:42
CoRMIB. Pl1

e
s Pt
e Pt P
e Pt B

00Se01l
062703

30(1046)

000010

28-NOV=-7?7

BNE
MOV
cs:

CLR

CLRB

BIT

BNE

Il0
PAGE

126

000010

6S:
78:

{RESET THE INDICATOR

TRNéuT

:CLEAR THE TRANSFER QUEUE
CLEQR UNLOQO FLRG
ULDFLG(R
ED SET
sBIT12, RHCSE(RH)

:BR

BIC

217 RI1

MOV

8-1,0TUW

CLR

;BR _IF NOT

DTUW

BNE

023512

INC

ADD

000002
172770

031464
023400
023410
031042

10:00

SINGLE-DUAL PORT RH?0/RMO3 DRIVER (REV 5.1)-24-RUG-77

023812

177777
023440
031406
000040

Y~
—e D

Brnehe
fr R 8RNe £

00100S
012737
005037
05061
32764

PR
D
ialiales 0”0"0"0"30‘0‘0‘
S555555

6480
6481
6482
6483
b48Y
648S

MRCY11l

IF YES

*MOVE TO THE NEXT DRIVE

82 ,R3

; BRANCH IF MORE DRIVES

iNO _DATA TRANSFERS UNDERWAY
{CLEAR THE 'TRANSFER WAIT' GUEUE
CLEQR ALL OF THE REOUEST QUEUES

TRNQuT

ESV

JSR

sgtros RMCS2 (RY) CO HQSSBUS INIT

JSR

PC,EMPTYQ

CLRB

DRVTYP(RI
PC,SET. IE

SET DRIVE TO OFFLINE
CLEQR THE DRIVE TYPE INDICATCR
1SET “IE" WITHOUT “TRE"

; RETURN

CLRB
JSR
RESREG
RTS

LRQUE

ERR THE DRIVE'S QUEUE

DRVSTA(R])

:RESTORE RO - RS

:LOOKk RHERD ROUTINE

:CARLL

:
:

MOV
MOV

:
:

RETURN1
RE TURN2

Py iy by iy
[

oooo oo,
i

DO NN LW

023526
000010
0303s2

RETURN3

LA:

MOV

023456
023456

RQDS

BIC

CMP

17?2776

Jce2le

00041<
162803

RMADR

;GET _RMCS1°'S RDDRESS

RO,RD.RM

{READ DRIVE STATUS

R1, RHCSB(RH)
#1CUCTETC,

8200, (5P¢

(57

;SELECT DRIVE

: ERROR RETURN RADDRESS

;AN CYl INDER

gép
=0,DRY= 1?

BGT
MOVE
SWAB
ASR
ASR
MOV

R3
R3

' LOOK AHEAD REGISTER

JSR

RO,RD.RM

‘READ LOOK AHERD REGISTER

CMP
8EQ

(SP),RMLA(RY)
73

T¢T

V& 3

:ERROR RETURN
;START Q SEARCH
A DATA TRANSFER
:START

3$
LACNT(R1)

RMLA
4$

000020

:POINT TO DPB
;GO CHECK THE WINDOW

RO, LA

BNE
INCB

CMPB

023534

0oo010

00C340
0303Se

MOV

JSR

157577
000200

6520

JSR

; DRIVE NUMBER

SDRVNUM, R1
s0PB, R2

SuB

cnsnsur rus LOOK AHERD COUNT
JIN
LRCNT(R1),MXLACT’ : EXCEED
M
: BRANCH xr ES
2$
csr OESIRED SECTOR nooness AND
10(R2),R3
MULT.

R3
8340, 98PS
-

BY b4--ALIGN
WI~

:PRIORITY LEVEL "?"

;CORRECT LA NUMBER °
YES

(GP,+

NO CLERR STRCK

\SP1+,R3

;CALCULATE THE DELTA

SEQ J12S

CSRMIBO RMO3-2 DR CPT TST
CZRMIB.PI1
28-NOV-77 09:42
6536
6537

026314
026316

0020
062703

026330

023703

6543

026342

005720

6545
6E46
2535

026346
026350
026354

000402
004737
100200

6532
6539

026322
026326

6541
842

026334
026336

6540

6544

026344

023703
002406

002003
105061

MACY11

004000

023536

18:

023456

005720

025644

026356
026364

112737
104412

026366
026372
026376
026400
026404
026406
(026412

013704
2313701
2102403
004737
000402
004737
104413

gggé

026420

000002

026414

026427

6567
6568
6569
6E70

026434
026436
026444
026446

6572

026456

6575
6576
6577
6578

6579
6580

Eggé

6583
6584

3s:

15T

157

BR
JSR
RTS

105037

000001

023444

ISR:

023526
023512
026422
026572

18:
2%

023444

MOVB
SAVREG

MOV
MOV
BLY
JSR
BR
JSR
RESREG

CLRB

RTI

TRANSFER DONE

565

6573
6574

3$
LACNT(R1)

ys:
c§:

2223

6571

2s:

BGE
CLRB

MNDL TR, R3

(RO)+
(RO)+

;MAKE

THE DELTA Posxrxvs

'CHECK THE DELTR TO SEE
(IF IT 1S WITHIN THE
:WINDOW---1F

YES,

ZERO

:THE LOOK AHERD COUNT
:AND TAKE THE 1,0 EXIT
:ADJUST

5§
PC,C17
RO

SEQ 012&

THE

RETURN ADDRESS

TEXIT
Pnocess THE ERROR
:RETURN

: INTERRUPT SERVICE ROUTINE

6583
6564
6555
6556
6557
6558
6559

6566

18
#¢32.%64.> ,R3

MxDLTA,R3
3s

cHP

-2

6660

BGE
ADD

CMP
BLY

023540

2223
6551
6552

JlD

30(1046)
28-NOV-7?7
10:00
PAGE
127
SINGLE/DURL PORT RH70/RMO3 onxvsn (REV S.1)-24-AUG-77

02b4et

105061

012737

006301
012761
006201
013702

023370

17?7777

023512

177777

023472

023440

026452

005037

023440

026464
026470

010164
004037

000010
030352

026474
026476
026500
026502

026504
026510

852§};

026516
026522

0S2762

0O0G00
025644
006126
100417

005737
100002

004737

004737
005702

000200

000016

031560

026524
026526
026532

001403
004737
000417

024564

689

6E80

026534

012714

000!13

£S9i

026E40

026t42

0527ec

100100

FLAG

:ADDRESS OF RHSCS!
'GET “DATA TRANSFER UNDERWAY" INDICATOR
:BRANCH IF NO DRTA TRANSFER UNDERWA'Y
CQLL TRANSFER DONE
JEXIT
:CALL spscan CONDITIONS
'RESTORE RO
- R

:CLERR "ACTIVE DRIVER" FLRG

ROUTINE

Rl
8-1,TIMER(RL)
Rl
TRNSWT, R2

8Is

881707,

TSt
BPL

;SET "ACTIVE DRIVER"
:SAVE RO
- RS

*RETURN

ASL
MOV
ASR
MOV

MOV
JSR

ARCTDRV

DRVACT (R1)

RMCS|
cl?
RO
BM]

030724

RMADR , RY
DTUW,R1
18
PC,TD
2$
PC,SC

CLRB

MOV

CLR

023466

6585
6586
6587
£588

00041Y

10:

#1,ACTDRV

#-1,0TUM

TRNSWT’

16(R2)

:SET

DRIVE

ACTIVE

INDICATOR

NO DATAR TRANSFERS UNDERWAY
;CANCEL

IDLE

TIMEOUT

:GET "DPB" ADDRESS FROM THE

TRRNSFER WARIT QUEUE--CLERR GQUEUE
ET DONE

R1,RMCS2(R4)
RO.RD.RM

SELECT THE DRIVE
: TRANSFER ERROR(TRE=1)"

(SP)+
38

:BR

YES

JSR

SAVEFG
18

PC,SVRH70

:SAVE THE nu7oxnn03 REGISTERS?
'BRANCH IF
N

JSR
187

PC,GETREQ
R2

:GET DPB POINTER
:ENTRY FOR DRIVE

#113, (RY)

;RELEASE THE
D

: YES~-SAVE THE REGISTERS
?

BEQ
28
'BR IF NOT
JSR
PC,OPT
:CALL OPTIMIZER
BR
s¢’
:CHECK OTHER DRIVES
THE RELEASE DRIVE COMMAND IS FORECD TO ENTER ron DUAL PORT OPERATION

O0O00CiE

bg.

MOV

3%:

BIS

CHECK FOR ornsq oaxvss

.81T15'BITO&.-6(§2); SET DATR ERROR FLAG

CoRMIBO RMO3-2 DR CPT TST
CZRMIB.P11
28-NOV-77 09:42
6592
6593

026550
ggsssw

6595

026564

6594

gggg

004737
004737

031464
030724

012714

000113

6560

0l2714

026570

000400

MRCY11l

040111

6603
6604

026572

026576
026600

026626
106126
10040S

6611

026620

104001

6617
6618

6619
6620

6621
6622

6623

6bod
6625

026604

116403

001014
004037

026606
Gebbl0
026612

6612
6613
6614
6615
6616

026614

6622
026626
026630
026632
026634

026640
026642

026644
02664

026676

B633
6634
6635
6636
£637
6638
6639

031042

001402
000137

105761

001402

SC3:

SCY:

023420

SCS:

027602

023430

18:

026710
026712
026716
0267
026724
0c6730

003025
105761
003422
004737
004737
004737

031560
030724
027540

105761

023400

032737
001002

040000

013705

023362

3%:

023370

c§:

026704

026734

105761

bb43

026752

000137

(02b742
026750
026756

0267B2
02676M
026770

000SO4
105761
001033

MOVB

BNE
JSR

RMCS1
cl8
18
ROLB
BMI

90111,

(RY)

;EMPTY THE “DRIVE'S WAIT" QUEUE
; ave THE RH?O/RHO
REGISTERS

; s A “DRIVE CLERR

i1 SSUEA RELEASE T0 THE DRIVE
:CHECK FOR OTHER DRIVES

027602

023400

2s:

023446

027430

:READ "RMAS"

(SP)+
It

CEXIT IF FRIL TO RERD
(IS "1E"=
:YES.
"NO onrves TO CHECK

!BRANCH IF ANY 'ATR’ BITS SET
!READ CONTROL AND STATUS REGISTER

RO, ES. SAV

SAVvE THE ADDRESS IN ’S$SESCAPE’

JSR
RTS
CLR
MOVB
MOV

PC,SET.IE
pC
-(SP)
R3, (SP)
81.R3

‘SET INTERRUPT ENRBLE
‘RETU
PROCESS ALL DRIVES THAT HAVE
‘AN
=1

BNE
INC

SCS
RI

CLR
BIT

Rl
R3,

(SP)

"REPORT AN

ILLEGAL

INTERRUPT

:ATA=1?

: YES--BRANC
'MOVE T0 THE NEXT DRIVE

ASLB
BNE

R3
SC3

:BRANCH

RTS
1578

PC
DPINT(RI)

;RETURN "TQ USER
"INITIARLIZING THE DRIVE

DPRQAS(R1)

PORT REQUEST OUTSTANDING 2

BEQ
InP

IST8

(SP)+

1S
SC13

BEw

Is18

DRVSTA(R])

JMP

IF noas TO cnecxv

ICLEAN OFF THE
S

:BR IF NOT
:PROCESS THE DRIVE
R

IF
NOT

SC13

srnnr T

BGT
TSTB
BLE
JSR
JSR
JSR

cs
ULDFLG(R1)
Ss
PC,GETREQ
PC| SVRH?0
pC.SCle

1578

DRVSTA(R])

*BRANCH IF ONL INE
*UNLORD IN PROGRESS?
:BRANCH IF NOT
:GET DPB POINTER
'SAVE THE RH70/RMO3 REGISTERS
:SAVE RMDS, RMER1, RMER2, AND RMMR2
*ALSO DO A'DRIVE INIT (DARVINT)
oxo DRIVE COME ONLINE?

BIT
SNE

$BIT14,RMERRS
3%

'WAS THERE AN ERROR?
:BR IF ERROR

BLE

023360

RMAS (RY) ,R3

2s
RO, RD.RM

JSR

Yo7

000137

003416

6645
b4
6647

000001

026700

026740

bb44

1S:
2s

005726

640

6641
642

8113, (RY)

ERROR

001005
005201

000207
105761

026672

004737
000207
005046
110316
012703

00S001
030316

SC:

030352

031650

026656

026654

6629

6631

MOV

000016

004037

106303
001373

026664
026

6630

00000C

026650
&2

6626
6627

6628

PC,EMPTYQ
PC svna7g

SEG 0127

:SPECIAL CONDITION ROUTINE

6605
6606
6607
bo08
6609

6610

JSR
Jgn

MOV

6538
6599
228?
6602

K10

30(1046)
28-NOV-7?7
10:00
PAGE 126
SINGLE /DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

IMP

MOV

BR
7578
BNE

SCl1l

RMERRS+2, RS

SCER
DRVACT(R1)
SCh

:CHECK THE

oursrnnolnc COMMAND

DRIVE

STARTUS

NO-~--BRANCH

NO ERROR

YES -- P;cxup RMER!

AND

co PRCCZSSTHE ERROR
:DRIVE ACTIVE NITH COMMAND OR ERROR RECOVERY °
'BR IF EITHER

cznnxao RMO3/2 DR CPT

CZRMIB.PLI

TSY

28-NOV-77"09:42

gg:g

026772

004737

6651

6656
6657

027002
027004
7010
02?055
?

001321
105761
100412
032737
001013

027022

012746

6659
6660
6bbl

027032
027034
027036

000000
027400
011605

MACY!1

027540

6650 026776 105761 023420

665
6654
6655

027026

66b2
6663

027040
027044

6665
bbbb

027050
027050

6664

02704

004037

004037
104002

020000

031650

6671 027053 006201

177777

6672

027072

004737

031560

6674
6675
6676
6677
6678

027102
027106
027112
027114
027116

000137
004037
000012
027900
0i1605

027430
030352

087122
027124
027130

100467
105761
003137

6680
6681
6682

6683

027132

6684
6685
6686
6687
6688

027140
027142
02714
027150
027152

6692
6693
6694

027120
027i72
027174

6697

027202

6689
6690
6691

6695
669%

010164

78:

8s:

023472

SCh:

052762

027?184
027160
027164

004737
012746
004037

027176
027200

100406
0057

027212
027214
027220
027222

000000
027400
006105

000010

€703

027224

MOV
MOV

023370

100210

000016

030352

PAGE &a

1S:

ScY
DRVSTA(RL)
[
8BIT13, RMERRS+Y
gs

ea IF YES cuecx ON MORE DRIVES
: CHE K ON ORIVE’S STATUS
:BR
UNSAF
nooness PLUG CHANGED *
‘BR IF YES

RO,WRT.RM

‘WRITE

8113,-(SP)
#111.-(SP)

(SP),

JSR

RO,ES.SAV

ERROR
BR
ASL
MOV

ScY

§
5CY
R
8-1, TIMER(R1)

:RELEASE
:DRIVE

AND RMMR2

COMMAND
CLERR

THE COMMAND INTO RMCS!

:REGISTER INDEX
;PARITY EXIT RDORESS
:PICKUP (RMAS) BEFORE

:SAVE THE
'REFPORT

THE ERROR CALL

RDORESS IN ’'SESCAPE’
THE UNEXPECTED nrrsn*xon

:GO "HECK FOR MORE
R
:SAVE

THE

RDDRESS

’SESCAPE’

'REPORT THE ADDRESS PLUG CHANGE
:CHECK FOR MORE DRIVES
'SETUP TO RDDRESS WORDS
;STOP THE TIMER

MOV

R1 RMCSE (RY)

:SELECT DRIVE

PC, GETREG

RMER2,

THE DRIVE ?

‘RESTORE THE DRIVE ADDRESS

!GET THE DPB POINTER FROM THE

JMP
JSR
RMDS
SC8
MOV

scl}
RO,RD.RM

(SP),RS

sAND PUT

BMI
7578
BGY

18
DRVACT(R1)
SCll

‘BR _IF ERR
;cuecx ORIVE’S SIATE
BR IF DRIVE RCTIVE WITH ORCE

BR
JSR
RMER]
sC8
MOV

SC?
RO, RD.RM

:READ ERROR REGISTER

(SP)+ RS

:AND SAVE

(spHd

PC, SVRH?Z0D
slll, -(SP)
RO, WRT.RM

00144

BEQ

SC7

000443
004037
000012
027400

BR
JSR
RMDS
5C8

BMI
TST

BIS
MoV

QUEUE

:PROCESS THE SEARCH
:READ THE RM0O3'S STATUS REG.

IN
R

:WRS THERE AN ERROR?

OBITIS!BITO?'BITfia 16(R2)

18:

h ?NR
10

ASR

JSR
MOV
JSR

SC6AR:

RO,ES. SAv
2

B8R

SEG 0128

(REV S.1)-24-RUG-77

sngs Rgos
nnsax

RMCS!
SC8
ROL

011605

L10

PC,SC12

JSR
ERROR

BIS

030724
00011}
030532

030352

6 8

DPINT(RY)

RMCS!
sc8
MOV

ROL

6638 057204 052762 100240 0000l&
6699
67200
€701
6702

1578

BNE
1578
BMI
8IT
BNE

JSR

006126

000470
004037
000014
027400
012605

JSR

000677

[04005
73
006301
012761

027120

;

031650

004037

6679

023364

030532

027054
027056
027060
Q02
027076

68:

00011}

8-NOV-77

SINGLE/DURL PORT RH7?0/RMB3 DRIVER

023400

6667
6668
6669
6670
6673

30(10w2)

; INFORM USER OF EPROR RECOVER COMPLETION

IN RS

:SAVE RM7?0/RMO3 REGISTERS
:1SSUE A DRIVE CLEAR
:WAS "UNSAFETM CONDITION =17

18
R2

:BRANCH IF YES
RNYTHING IN QUEUE ?

SC?
RO,RD.RM

;RERD DRIVE STATUS REG.

«SP),RS

; SAVE RMDS

IF NOT

-91715'91707-91765 16(R2)

: INFORM USER OF ERROR

IN RS

CZRMIBO Rfl03/2 OR CPT

CIRMIB.P
6704
6705
67

67
67

T1ST

28-NOV-77 09:42

027226
0272
7

7
7

006126
100011
;

7
?

77777

808“

2710 OQ;ESS oS 723 010000

MACY1l

000016

0272

6716
6217
6718

027306
027310
02731M

6715 037358

2;19

575?
6722

027322

023446

7340

108061

023446

1883 ]

023400

7394

6727

6728

023370

105761

6726

105061

026646
100220

7332

027336

5753

1 072460 023472
000016

7326 004737 031602

6723

1
883137
762

3002

116164

023514

000016

7372

7900

6738
6739

;

000402

s;:x

027420

004737

27
67

°3§33“
4
7u33 ?oawOf
18382; 353373

o740

1S:

;

853353 9825 1 853%4

6747 027446 136137

6748
6749

0274s4
74

0010}2
4737

£756

027510

146137

SCII:

000016

6;53 0233;" 1°°9°$
%735 857503 955124 838514 000016 2$:
023514

023442

E;
g gsggég 8?538% 177777 023472
€79 027526 00620l

(REV S.1)-24-RUG-77

-'ERR"-l’
B
"H"E?‘E CLERRED
vas 18
UNSRAFE

Pg § ?
3 VE RH
I 1s18iT12, 16(R2)

/RMO3 REGISTERS
NFGRM USER OF UNSAFE ERROR

A aep—

81, DRVSTA(RL)
} NE
Rs
s oooo.,rxnzn(nx) :START 30 SECOND TIMER

CLga

gavngg§$1)

1578

ULOFLG(RI)

LRB

MOVE

1518

MOV

18:
023514 023442
c

BMI

18:

oesggs

}30

MOVB
RSL
MOV

529

SC8:

85;:?3 8837 Y4 83 44
02741&
27420

%1T12,RS

SC7:

28 :

PRGE

g?r

g?n
S

3$:

8533“3

M10

(SP)+
2s
8-1 onvsra<n1)

ASR
JHP
8IS

10:00

ROL
BPL
MOVB

G7Y

6750
Gorieq o003 D38LLl
6731 857390 883000

6732

28-NOV-?7

SINGLE-DURL PORT RH70/RMO3 DRIVER

023400

IR
R
TR
5713 8575?8 115721 600001 023420
6214

30(1046)

R1
scw
#81Ti5'BITO78ITOU,

P 'Eopoue
18

RVSTAR(R])

8113,-(SP)

RO AT B

IMP

SCY

fgn

PEIS??

JSR

PC,CI1?7

{sre

ULDFLG(RlJ

1578

Jgg

.uuLono IN nnocnsss OR QUEUE?

R IF NOT
L

nrnexr(nx),RnQS(hq

DRVACT(R1)

284°179

: INFORM USER OF ERROR

:BgnovzHfiueusuE

ULDFLG(RI)

T2k
RMCS1
SC8

16(R2)

,okégsyls 10L

'é

UNLORD FLRG

.CLERR RTTENTION BIT

THE ?RIVE UNSAFE ?

‘B8R

IF 1Y

:RELERSE COMMAND

HORITE $h “@ofifiSflo"?NTo RPCS1
REGIETE INOE
H

o STV OEX
x"oggons§

VES

Ssocg HéPSRITY ERROR
Pnocsss THE

gaogzss
THE

PARITY ERROR

UNCORRECTRBLE PARITY ERROR

UEL
IN Bnéciéss"v

Bt%
LR

BITB

(R1)
naoa?ct{ oRo
FLRG
H
E?(nxz
f§E§
IB
LE
QTRBIT(RI),SRCHuf :DOING R SERRCH OPERATION FOR

BNE

?Pk
MOVB

8IcB

gASRb

AN 1/0 COMMAND?
:BRANCH IF YES

PC,P PQUE

s EFG

i SAVE

tr 7, 16(R2)

REMOV

;g T

THE RE

T FROM QUEUE

STERS?

P
BERNCHVE A OF THE RH?O/RMOB REG'S
?haxr(n1) anQS(hq) gfssnk#rsnrxN BIT

ATABIT(RL). SRCHWT

gil.TIHER(RI)
R1

CLERR IMPLIED SEEK SET

S?Og
EgEK
{RESTORE R1

SEQ 0129

0 RMO3/2 DR CPT T1ST
28-NOV-77 09:42
P11l
027530 004737 024564

026b46
880019
00le
0GSOIN
000042
000040

N10O

MACY1]l 30(1046) 2B-NOV-77 10:00 PAGE 131
SINGLE /DURL PORT RH?0/RMO3 DRIVER (REV S.1)-24-RUG-77
:STARTA REQUEST
PC,OPT
JSR

027534
gs 40
cu4
027652
02
027666

000137
8101 9
016437
016437
016437
016437

027574
027576
027600
027602
027604
027612
027614
027620
027626
027632

000207
005726
000677
006301
012761 177777 023472
006201
010164 000010
116164 023514 000016
105761 023420
001424

027644
027646
s2

000240
1057261
003014

023360

023362
023364
023366

sCl2:

JMP
MOV
MOV
MOV
MOV
MOV

' CHECK ron none DRIVES
5C4
SELEC
R1,RMCS2(RY)
RMOS (RY) , RMERRS snv rue FOJR REGISTERS THAT
“WILL TELL US SOMETHING
RMERL (R4}, RMERRS
RMER2 (R4) | RMERRT oq
RMMR2 (R4) |Rnenns,s

RTS
75T
BR
RSL
MOV
ASR
MOV
MOVB
TST8
BEQ

{RETURN
PC
:POP PC OFF OF THE STACK
(SP)+
:PROCESS THE PARITY ERROR
sC8
'SETUP TO ADDRESS WORDS
R1
srop THE TIMER
8-1, TIMER(R1)
Rl
'SELECT THE DRIVE
R1,RMCS2(RY)
CLEAR THE ATTENTION BIT
ARTABIT(RL), Rnns<hq)
THE DRIVE ?
ALIZING
i
IN
.
DPINT(R1)
-en xr NOT
2s

NOP
1578
BGT

JSR
BR

;
:

18:
SC13:

18:

RO, DRVINT'
18’

SINIT. THE srars OF THE DRIVE
: TAKE ERROR EXIT

OPINT(R1)

:CLEAR THE

DRVSTA(RI)

:DUMMY
:DRIVE ONLINE 7
;BR_IF YES -- START ORDER

INIT xnoxcnron

627640 034037 023756

CLRB

005702
001426
004737 031560
140000
0527
004737 030724
004737 031602

000016

TST
8EQ
JSR
8IS
SR
SR
R

‘QUEUE ENTRY FOR THE DRIVE
R2
:BR IF NOT
3s
SGET DP8_ADDRESS
C.GETREQ
NFORM usen THAT DRIVE OFFLINE
lH 15(&2)
OBiTlS'BIT
AVE' THE REGISTERS
PC, SVRH70
EHPTY THE REQUEST QUEUE
PC,EHPTYQ
'REMOVE THE QUEUE
PC. POPQUE

032764

004000

000000

BIT

027716

012761

060000

023472

BNE
ASL

.DVA SET
#BIT11,RMCSI(RY)
CALL opr
;SET rus&
4s
R1

027730

004737

024564

ASR
BR

R1
3$

027634

027654
027656
027660
027664
027672
027676
027702

027704

105061

000414

001006
027712
027714 006301
027724
027726

027734

006201
000402

000137

023420

JSR

023400

;

2$:

MOV

JSR

4s:

IMP

38:

026646

RO, DRVINT
2s

3s’

860000, TIMER(R1)

PC,OPT

sC4

;62E83 TIMER ROUTINE

;

027740

027744
02774
027754
027786
027760

027762

027766
027770
027776

005737

001027
112737
104412
005001

0050063

005763

002406
166663
003002

RPTMR:

023444

000001

023445
18:

023472

000002

023472

THE DRIV
:GO INITPRRITY
snnoa RETURN

:START THE PENDING REQUEST

"PROCESS OTHER DRIVES

JSR

8TIME, -(SP)

PC,RPTMR

;ELASPED TIME IN MILLISECONDS ON THE STACk

TST

ACTDRY

:CHECK “RCTDRY8 ACTSTR"

CLR

MOV

gre
ndvg
SAVREG
CLR
757

BLT
Sug
BGT

:CALL RMO3 TIME ROUTINE

ys
#1,ACTSTR
R}

:IF NON ;znoEXIT
:SET =AcTS
:SAVE RO- RS
:START WITH DRIVE O

TIMER(R3)

:1S THE TIMER RUNNING?

:BRANCH IF NO
2$
2(5P), TIMER(R3) :COUNT THE INTERVAL
'BR IF NO SOFTWARE TIMEOUT
23

c£G 0130

0 RN03/8 DR CPT ST
.Pl
e8-N. .-77 09:4

004?3T

030030

MRCY11l

es:

000C10
023445

Bll

10:00
PARGE 132
28-Nov-77
SINGLE /DURL PCRTM RHM70/RMO3 DRIVER (REV 5.1)-24-RUG-77

30(1046)

38:
58

JER
INC

PC,sT0
R}

cMP
8GT

$8.,R!
s

1ST

RESREG
CLRB
MOV

(RI)+

ACTSTR

(SP)+, (SP)
PC

SEQ 0131

;CALL SOF TWRRE TIHEOUT RUUTINE

iMOVE T0 NEXT DRIVE
;0UT OF DRIVES”?

:BRANCH IF NO
:RESTORE RO - RS
; ZERO ACTIVE SOFTHQRE TIMEOUT ROUTIME FLAG
QOJB%T THE STAC

; SOFTWARE TIMEOUT ROUTINE
NOTE:

THIS ROUTINE MUST BE ENTEREC RT PRIORITY &
OR GRERTER

;CALL:
:
:
;

STO
MOV
JSR
RETURN

8DRVNUM, R1
PC,STO

;DRIVE NUMBER
:CALL

STO

MOV
MOV
MOV
MOV

R1,-(SP)
R2.-(5P)
R3.-(SP}
RY’ -(5P)

:SAVE
:SAVE
:SQVE
_save

MOV
MOV
JSR

RMDS
ST05

$109

RRSGY

gQS:

e e e N

ONONO
£
wornnoeeo

—

S8 oRer
e o Re&o

mm.—» Pt P Pt .t Pt Pt Pt Pt

(W
[a)e]

COOONO0000

Sl statetatals B8

e I el

28R STEREEEY BRENET

BRRRER

) o)

[

8RessResR
LARPRRS

~N
o

Ts78

023420

023370
23446
3440
12272727
800016
23514

Ce3429
02343n

QonsssQF “RMCS1”
SELEC THE DRIVE
'READ “DRIVE STATUS REG"

(SP)+

;1S “DRY~=1?

sT02

:BR IF YES

I1STB
BNE
7578
BNE
MOV
CMP
BEQ

OPINT(R1)
$702
DPRQS (R1)
$702
TRNSWT, R2
R1,DTu
18

TRYING TO INTIALIZE THE DRIVE ?
:BR
oursrnfiornc PORT REQUEST FOR THE DRIVE 2
IBR IF
Y
P CK
rnnusr R UQIT GUEUE
ER
unv ON THIS DRIVE"
annucu

JSR

BIS

PC, GETREQ

JSR

MOV
CLRS

PC, SVRH?0

CL38B

ULDFLG(RL)

MOV

8-1.DTUW

Ue23440
023512
031560
101000
030724

RMADR , RY
Ri,RMLS2(RY)
RO.RD.RM

sv0l-

023430

030340

BMI

Rl
Re
R3
RY

InP

CLR

€T02:

ST09

sovusn DRIVES

ce‘rxs!exroe,xs(h )i

ZROR_FLAGS

nnlgxnnoa REGISTERS

881705 RMCS2(RY)’ -"XN T
Mass BuS
DRVACTLRL)
;ORIVE
1S IDLE
TRNSWT

;CLE

THE UNCORD FLRG

Eaa

ngontss
T

FER DRIVE

BR
MOVS
8178

108
RMAS (RY) , RS
ATASIT(RI) RS

R
OTHER DRIVES
,R no nrr
NTION REG
;1S _ATTENTION FOR THIS DRIVE LP ?

7578

DPINT(RI)

STRYING TO INTIALIZE THE DRIVE ?

7578

DPRAS (R )

:OUTSTANDING PORT REQUEST FOR THE DRIVE °

BNE

BNE
BNE

ST03

5706
S1C7

: YES--BRANCH

iBR IF YES - DRIVE NOT ONLINE

'BR IF YES - NG RESPONSE TUO REQUEST

('t(v

an78%983 BRYEeA SRy 5. 1)-24-aU6-77

$703:

023420
023430

177777

023472

025744
023420
023400

77777

31560

18
ST0S:

ST06:

BR
és B

STC9
?SXNT(RI)

sts

DPRQS (R}

E‘S

6é

EERB
CLRB

BP?NT(RL)
DRVSTA(R])

JSR

MOV
JSR

023472

15T

140000

go001e

65777?
3430
031560

023472

ST0?:

MOV

JSR
JSR

MOV
MOV
RTS

;CALL

13737

023524

030520

Be303 8533%

030378

11646

013727

812 823238
000010
010000

C30440

0
022620

173074
Ge0oo0o0

000002

ET?P THE TIMER

GO MANOLE THE PARITY ERROR
CLERR THE INITIALIZE INDICRTOR

QGSP T:i D&BRDORESS
UNIT OFFLINE
N QUEUE

~°

S{R
op&b

MOV
MOV
:ROUTINE

FREQUEST PENDING
7

MOV

CLRB
BEQ

ST09:

s-x Y‘HER(RB)

oa??xs'sxrxw 1s(h?R gangoan THE USER DRIVE NOT RVAILABLE

157

ST08:

PC c1e

;OTHER WISE EXIT

Ezg
JSR

0o00l1&

%Toqrxnsncaa)

SEQ 0132

TIHER(RB)

STSP THE

TIMER

LEAR PORT REQUEST INDICKHTOR
T DPB RODRESS

0004SH4

Cll

8-NQv=?77
L PORT

0 RH03/2 DR CPT_T1ST
28-NOv-77 09: 42

Pc,csrneo

REYF ENTRY FOR DRIVE ?
INFORM USER OF PCRY REQUEST ERRCR
cexr1s-exra 1scné)
,&Ekfl "‘928?
FOR THE DRIVE
,g
PC
sY09

SYERS

Rge
VE

vnn7

(SPY+,RY

(SP)+.R3

RE%;O

'RESTORE Rl
i RETURN

(SP)+,Ra
(SP)+

TO RERD A RH7?0/RMO3 REGISTER

Jan .

RO,RD.RM

ISTER
.g RE?D A RE

288RESS--Pgogsss ERROR STARTING
:sifion
:AT THIS ADDRESS

;

éRSEOR

RE TURN

RD.RM:

MOV

MEPEMX RD.

HQX sSTRga gthHED

MOV
RDD

RHQD R 83
(RO)+ 'R

T e > Tnoe
LEE RO
ug“"uc
.2§§8€S *giissgg
REE&EYER OF THE RMO3

O
no.uno.e<gpn

;

RD.RM}:
RO.ADK:
RO.WRD:

nov

MOV
.WORD
.WORD
MOV
MOV

ADD
BIY

BNE
MOV
BIT
BNE
CHP

:CONTENTS OF REG. IS ON THE STACK

T&ES 8 RM2

8(PC)+ (PC)+

CONTENTS PUT HERE
THE USER

RMADR . = (SP)

#3MCS2, (5P)

#BIT12,d(SP)+

RD.RM3
JRMADR, - (SP)
osxvxa (SP)
13
LSP)+, (RO)+

THE

'BR IF DRIVE NON-EXISTENT
:READ RMCS

SET”
'DID MCPE
'BRANCH IF YES
ADJUST FOR RETURN

030442
030444

000432

031650

e
i

0e23s1e

28-NOv-?77

30(1046)

18:

040000

03047¢
0304786

023526
030S14

030218
14

39
RD.RM2:

. WORD
DE
n

RD.RMY:

RTS

n
P o)

[

030e46
030es0

—OBCR-ZRO88RL 82000
QNDOO.K
—-mgo*w
[NINT
Y S e [N
ST Y NS NTN]
o—»—wmgu—goou
£ LN
0o0N NN
L \)'—\JU’ISU’\I\J

RETURN

gO.Es.SQV

ERVSRTHE
R DRESS

DTUNW
23
8BIT1Y, (SP)
23
(SP)#

DQTQ TRSgSF R UNDERWAY?

RMADR,
39
33
éSPJ*,a(PC)+

(PC)+

(8PJ+ (SP)

E RROR

*SESCAPE’

:
ANCH
;YES--?HEQN OFF THE STACK AND
FRTAL ERROR EXIT

;CLERR “MCPETM BY SENDING
R 1" TO "TRE"

POSIT ON BEFORE WRITING
ORM

SS OF MIGH BYTE

;WRITE
THE HIGH BYTE OF RMCSI

: ADDRESS

STORAGE

;EXCEEDED MAX. RETRYS
; BRANCH 1F NO
:FATAL

ERROR EXIT

A REGISTER

DATA, -(SP)

RO, WRT.RM

;0ATA TO BE LOADED ON THE STACK

;CALL THE ROUTINE TO LOAD(WRITE) THE REG.
:INDEX OF THE REGISTER TO BE LOARDED
; ADDRESS 10
TURN 7O ON AN ERROR
ERROR FREE
TURN
nnx RETRYS ALLOKED
SAVE
HORO TO WRITE

WRT.RM:

RDJUST

HE STAC

iGET INDEX OF REGISTER TO BE WRITTEN

030622
000150

SEG 0133

(REV S.1)-24-RUG-77

JEXIT

7O WRITE

: CALL

030710
030620

134

RD.RMY

RD.RM]
(ROY,RO

RD.RM3:

:ROUTINE

023524
000002

PRGE

IgITIH (SP)

030S14

030524
030526
030530

D1l

RD.RM3

cs:

0305
030516
030520
030522

10:00

SINGLE "DURL PORT RH70/RMO3 DRIVER

040000

O 0000
[a]elelelel
]
o
o]
) OQOW
o of—n
WoOOnNW
~ OCOONNNOO
NN
NWNOO L NOOOON

6928
6929

MACYL11

[N]

CZRMIBO RMO3/2 DR CPT TST
C<IRMIB.PLL
e8-NOv-77 09:42

;YES-BRANCHON'T
éSHggg?
PSRI
TR TRANSFERS”
GET
THE
D
16 8 fll? 3 PSEL
iNO---COMBINE A163A17
PSEL WIT

030620

: THE COMMAND BEFORE SENDING 17 TU

03035e

: THE RH70/RMO3
177270
030621
023526

023526
200010
01000
03C 352

030e22

18:
WRT.R]:
WRT.WD:
WRT.AD:

RADD

;FCRM THE ADODRESS OF THE DISk

;L(AD THE DESIRED REG,
{WOAD TO WRITE GOES HERE

: ADDRESS 1S5 FORMED HE
;PUT THE ADDRESS ON THE STACK
;FORM THE RODRE SS OF RMCSe
JCHECK THE 'NED’ BIT
iBR_IF DRIVE NON-ENISTENT

REG.

'CHECK FOR PARITY ERRCGR ON WRITE

CoRMIBO RMO3-/2 DR CPT T1ST

CZRMIB.P11
984

030652

28-NOV-77 09:4¢
032726

016037
0300 86#837
BI0e
5939 838222
6988
6989
6990
6991
6932
6993
6994
6995
699
6997
6938
gggg

030672
030678
030676
030702
030704
030706
030710
030712
030714
030716
030720
030722

000000
030714
004037
104004
005726
005327
0006003
002341
011000
000401
005720

MARCY11l 30(1046)

10:00

E1l

PRGE 135

SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77
BIT

000010

177776 030672

30382

28-NOV-77

RGY

JSR
. WORD

18:

WRT.R3

031650

JSR
ERROR

15T
DEC
WRT.R2: .WORD
BGE
WRT.R3: MOV
B8R
WRT.RY: TST

000200

WRT.RS:

RTS

caxroa (SP)+

“amm
-

0
RO, ES.SAV
Y
(SP)+
(PC)+
3
WRT.R1
RO),RO
WRT. RS
(RO)+

BRNGE The TNDEX.
:RERD
THE EE
REG INDE

RETURN TO THIS ADDRESS ON ERROR

s VE THE RDDRESS IN 'SESCAPE"
:REPORT THE PARITY ON WRITE ERROR

:CLEAR OFF THE STACK
:DECREMENT THE ERROR COUNT
:RETRY COUNTER
'TRY AGAIN IF NOT FINISHED
TQKE THE “PARITY ON KRITETM ERROR EXIT
CEXIT
!ADJUST FOR ERROR FREE EXIT

zggé

:ROUTINE TO SAVE THE RH70D/RPO4/S/RMO3 REGISTERS RS PER DPB+14

{

7003

:CALL

7004

7007

030724

7008
7009

MOV

SVRH70:

SAVREG

JSR

;

;882
104412

7610

030726
030730

030732

005702
001442
013704

023526

7Jle
7013
014
015

030742
03074
030750
030784

016203
001433
005037
023727

000014

031004
031004

000022

7017

030768

032764

000200

000010

7016

03076c

001006

7018

030772

7020
7021
7022
7023
7Ce4
>
7026

030776
031000
031004
031006
031010
031012
031020

000405
004037
000000
031032
012623
023727
001406

7028
7029

031030
031032

000751
004737

;ggé

031040

7019

7027
7030

0307?74

031022
031036

001002

104413

000207

R2
68

MOV
BEQ
CLR
CMP

14(R2),R
68
3
38, sRMDB

BIT

8BITO”, RMCS2(RY)

MOVB
1S:

BNE

005023

062737

TST
BEQ
MOV

70011 030736 lll2ed 000010

2s:
33

031004

000046

000002

031004

025644

+%:

6S:

(R2) kncsa(nq)

:SAVE RO
- RS

'QUEUE ENTRY FOR THE DRIVE °
!BR IF NONE

:SELECT DRIVE

'GET THE ERRCR TABLE POINTER
TEXIT IF NO noonss
:COUNTER 8 POINTER
:RERCHED THE BUFFER REGISTER °
:

F NOT

-'on-

SET 2

;BRIF SET

BR
JSR
LWORD
c§
MOV
CMP
BEG

ys
RO,RD.RM
O

BR
JSR

82,33

: CONTINU
:RERD THE SELECTED REGISTER
"REGISTER INDEX
'ERROR RETURN RDDRESS
iSTORE THE REGISTER CONTENTS
'REACHED THE END
7
:BR IF YES

]
PC,C17

: INCREMENT THE REGISTER INDEX

RTS

*RETURN

ADD

cs:

RMADR

.DPB POINTER TO R2

:SAVE THE DRIVES REG'S

BNE

CLR

030352

8DPBNUM, R2

PC, SVRH?0

RESREG

(R3)+

(SP)I+ (R3)+
38, sRMEC?
£S

STORE RHOB RS ZEROES

:CONTINUE REARDING THE REGISTERS
!PROCESS THE UNCORRECTABLE PARITY ERRCR
:RESTORE RO - RS

;833

;ggulxns TO SET THE INTERRUPT WITHOUT GETTING R “TRE"

7025

_7,8‘_4_

;

703€

7029

;
021042

0l04M4e

SET.IE:

MOV

JSR

PC,SET. tE

8DRVNUM, R1

:DRIVE NUMBER TO R!

MOV

RY.-(SP)

:SAVE RY

RETURN

(SET <I1E”

SEG 0134

CZRMIBO RMO3-/2 DR CPT 187
28-NOV-77709:42
CoRMIB.PIL
~040

031044

013704

70M1
042
~043

031050
031084
031056

010164
011446
052716

~046

031070

038764

70468

031100

005726

7650

031104

112664

;ggg

031112

000207

70585
7

031114
031118

000
000

~0el
;ggg

031122
031123

Q44

~045

7047

7049

051
I'4

~0S4

7057
7068
7089
7060

031062

Q031064

031076
031102

00C316

112714

001002

000402

031110 012604

031116
031117
031120
03112l

031126

031142

18:

2s:

(SP)+, 1 (RY)

:CLEAR "TRE”

RTS

:RETURN TO CRALLER

MOVS

MOV

. QUEUE COUNT

OCNT:

(SP)+ . RY

'RESTORE R4

BYTE
BYTE

O
O

:DRIVE O
‘DRIVE 1

'BYTE
BYTE

O
O

:DRIVE 6
‘DRIVE 7

'BYTE
BYTE
BYTE
BYTE

O
O
O
O

. QUEUE OUTPUT POINTERS
QODRVO
QOUTPT: .WORD

031206

7080
7081
7082

031152
031184
031156

031266
031306
031326

031146
031150

031160
031162

031226
031246

031164

03120

7088
7089

031170
031172

031246
031266

031166
021174

031176

(031200
031202
C31204

QINPT:

031226

031306

.WORD

.WORD
.WORD

0831346
03136

7086

7€93
7094

000001

031366

031144

2032

TST

:ADJUST FOR DATO

'SET “IE"

B8R

QDRVZ2
QDRV3
QDRVY4
QDRVS
QDRVS&

031226

;8;2
7077

7091

sBITi2.RMCS2(RY) ;IS "NED”=1"
18
:YES--CLERR "TRE"
:CLEAN OFF THE STACK
(SP)+

BNE

.WORD
_WORD
.WORD
-WORD
.WORD

031130
031132
031134
031136
021140

7090

00CO10

(SP)

8sBIT06, (RY)

031246
031266
031306
031326
031346

7068
7069
700
7071
~072

7087

BIT

SWRB

MOVB

@DRVO

031206

010006

:PICKUP ADDRESS OF RMCSI

:SELECT DRIVE
:READ RMCS|
‘SET THE “TRE” BIT OF THE WORD READ

R1,RMES2 (RY)
(R4), ~(SP)
#8IT1v, (5P

.WORD

031124

7083
388;

000100

RMADR , RY

MOV
MOV
BIS

:DRIVE
:DRIVE
:DRIVE
:DRIVE

2
3
4
S

. QUEUE INPUT POINTERS

7066

7078
7079

000010
040000

00C
000

38;3

MOV

023526

000
000
000
0oc

gggg
7067

F11

MACY1l 30(1046) 28-NOV-77 10:00 PAGE 136
SINGLE /DUAL PORT RH70-/RMO3 DRIVER (REV S.1)-24-AUG-77

GSTART:

GSTOP:

QORV?

QORV!
QDRVZ2

:DRIVE O

:DRIVE
‘ORIVE
‘DRIVE
:DRIVE
‘DRIVE
‘DRIVE

1
2
3
©
S
b

:ORIVE 7

:DRIVE O

!ORIVE 1
'DRIVE 2

.WORD
WORD
WORD
.WORD

QDRV3
QDRVH
QDRVS

_WORD

QDRVE
QDRV?

:ORIVE 3
‘DRIVE Y
‘DRIVE S

.WORD

QDRVO

WORD
WORD

QDRVI

WORD

QDRV2
QDRV3

‘DRIVE O STOP ADDRESS & DRIVE 1 START ACORESS

QDRVM

:STOP DRIVE 3--START DRIVE Y

WORD

QDRVE

:8T0P DRIVE S--START DRIVE b

.WORD

031326

WORD

031366
0O3140€

_WORD
.WORD

031346

QDRV]

QDRVS
QDRV?
QTERM

‘DRIVE &
:DRIVE ?

:DRIVE O START ADDRESS

:STOP DRIVE 1--START DRIVE 2
:ST0P DRIVE 2--START DRIVE 3
'STOP DRIVE 4--START DRIVE S
:STOP DRIVE 6--START DRIVE 7
:STOP DRIVE 7

SEQ 013

JSRMIBO RMO3 2 DR CPT 18T
ICRMIB.PLL
28-NOV-"""09:42

MACY1l

Gll

30(1046)
28-NOV-7?7
10:00
PAGE 137
SINGLE “DUAL PORT RH70/RMO3 DRIVER (REV 5.1 -24-RUG-77

:8g§

:DRIVE REQUEST QUEUES

098
~C99
7100

031206
031226
03124

000010
0000i0
000010

QDRVO:
QDRVI:
QDRvV2:

.BLKW
.BLKW
.BLkW

T104
7105

031346
031366

000010
000010

QDRVE:
QDRV?:

.BLKW
.BLKW

2183

:ROUTINE

TO CLERR ALL

~118
Ziié

:CALL
:

219 03136
290010
3185 ogxaes 888810

SoRva: etk
QORVS: .BLKW

ngQ

QTERM=.

T113

114
7118

031406

104412

031410
031414

012702
00SC22

~117
T118

031420
031422

005022
005022

7120
7121

031430
031434

012701
012122

7116
~119

031416

031424

012703

031436
031440
031442

005303
001375
012703

7127
7128
7129

031454
031466
031460

005303
001375
1049413

;ig?

031446
031452

031462

CLRGQUE:

031114

005022

7122
7ié3
~124

7128
7126

012701
012122

0000:0

031164

18:

000010

031164

2s:

000207

10
10
10
10

CALL

7135

z;gg

(R2)+
(R2)+

:DRIVES 4 8 S
‘DRIVES & 8 7

80StRRT RI
(R1)+, (R2)+

:ADDRESS OF THE QUEUE INTO
:THE QUEUE INPUT POINTER

MGV

#8.

,R3

DEC
BNE
MOV

R3
18
#8.

,R3

DEC
BNE
RESREG

R3
2s

MOV
MOV

:2ERO_THE QUEUE COUNTS
:DRIVES O & |

(R2)+

8QStRRT RI
(R1)+, (R2)+

:DRIVES 2

:MOVE

THE

STARTING

:MOVE

THE STRRTING RDDRESS

:0F THE QUEUE INTO THE
: QUEUE OUTPUT POINTER
:RESTORE

:
031464

031470

031472
031500
031502

105061

006301

Qlbl6l
006201
000207

031114

031124

EMPTYQ:

031144

MOV

JSR

CLRB

ASL

MOV
ASR
RTS

DRVNUM, R

:DRIVE NUMBER TG R}

QCNT(R1)

:CLEAR NUMBER OF

PC,EMPYYQ
R

QINPT(R]1),Q0UTPT(R]1
R1

7148

MOV

RE TURN|

:
:
.

JSR

RE TURNZ

ITEMS

IN QUEUE

;SET OUTPUT GUEUE POINTER=INPLT POINTER

:CALL

71¢€;

:SAVE

CLR
CLR

7146

7183

QUEUES

8QCNT . R2
(R2)+

:ROUTINE TO PUT R REQUEST

7149

REGUEST

PC, CLRQUE

z;::

7147

THE

:EMPTY THE QUEUE SPECIFIED BY Rl

7134

7140
714
;izg

SAVREG

10
10
10

MOV
CLR

RTS

(VY

7139

JSR

CLR

z;gg

T138

SEQ J13&

SsDRVNUM, R1
sDPB, R2

RO, CRVOUE

IN QUEUE

:DRIVE NUMBER

: ADDRESS OF PARAMETER BLOCK

:GO PUT REQUEST IN QUEUE

:RETURN HERE

IF QUEUE

IS FULL

;RETURN HERE IF REQUEST IS IN JutJt

CIRTMMIBC RMO3 2 DR CPT TST

CCRMIB.PIL
162

T183

28-NOV-T7 09:42

031504

122761

000010

MR ool
gee ABRshi
2
122 B3iedd
187 031522 010271
031124

MACY11l 30(1046)
DRVQUE:

[

~158

31253

189
7120
T161

831 42

~163
gigg

031554
03158¢

~162

(31
1844

031552

0berbl

026161
B?éo 3
161
006201

000002

031124
031164

008720
000200

2s:

;1S QUEUE FULL?

hAY
coroe hd
Rcken

Hwa
&

CMP
MOV

QINPT(R1),QSTOP(R]) ;TIME TO RESET THE POINTER
&g
-Ban CH gr ng
TART(R1),GINPTERL) ; YES--RESET POINTER

BNE
1s:

#10,QCNT(R1)

8%
At

MOV
ADD

031124

031166
031124

CMPB

10:00

H1l

PAGE 138
SINGLE /DUAL PORT RH70/RMO3 DRIVER (REV 5.1)-24-AUG-77

031114

28-NOV-?7

ASR

T?T
rYs

R2,JQINPT(RI)
82, QINPT(R])

(RO +
RO

;

;PUT THIS REQUEST IN QUEUE
:UPDRTE
THE QUEUE POINTER

: TARKE RE TURN
:RETURN TO USER

;igg

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

”168

:CALL

170

;

~169

Titl
Zi;%
=174

T17S
7176

=177

(G31560

005002

031870

006301

031576

006201

031562
03156

7178

G31572

;ig?

031600

=179

105761
001404

031114

017182

031144

000207

MOV

8DRVNUM, R

:
:

JSR

RETURN

PC.GETREQ

GETREQ:

CLR

18:

ASL

2s:

1578
BEQ

MOV

ASR

RTS

:DRIVE NUMBER TO Rl

:GO GET THE REQUEST

:R2="DPB" ADDRESS OF THE REQUEST
:R2=0 IF NO REQUEST IN QUEJE

QCNT(R1)
2s

1S THERE ANY REQUEST IN GUELE"
NO---BRANCH

JQOUTPT(R1),R2

;PICKUP “DPB” POINTER FOR THIS ODRIVE

:RETURN TO USER

;;gg

:ROUTINE TO “POP" THE REQUEST FROM QUEUE

;

7185

=184

:CALL

7186
gigg
7189

:
:
031602

7190

031606

7192
7183

031614
031620

7191

031610

7194

Q031626

2196

1636

7195

7197

;132

nga 9
031ew4

031646

105361

031114

917102

031144

006301

823971
61

026lbl

80é023

QI6I61

006201

000207

031144
000002

031144

0311e4

POPQUE:

JSR
RETURN

PC, POPQUE

SDRVNUM, R1

:DRIVE NUMBER TO Rl

DECB

QCNT(R1)

:DECREMENT QUEUE COUNT

MOV

JO0UTPT(RLJ,R2

;GET THE “DPB" POINTER

RSL

cbn
ABD

031144

031166

031144

MOV

CMP

18:

dQOUTPT(R1)
82, QOUTPT(RI)
33

ASR

RTS

:ROUTINE TO SAVE THE CONTENTS OF
:REPORTS AN ERROR DIRECTLY.

7203

fCALL

7295

72%¢

JSR

ERROR

RE TURN

RO,ES.SAV

NO--BRANCH 72 Exxr

TART(R1),Q0UTPY(R1) ; YES--RESET THE POINTER

7200
zggé
7204

‘RS"RVE ?pg nogngsg FROM THE QUEJE
:UPDATE
YHE QUEUE
POINTER

QOUTPT(R1),aSTOPIR1) ;TIME TO RESET THE POINTER”

BNE

MOV

'CALL TO REMOVE REQUEST
:R2=ADDRESS OF DPB REMOVED

:RETURN TO USER

°'S$ESCAPE'

WHEN THE DRIVER

.. THE ERROR CALL

:tHE RETURN IS PRST “HE ERRCR CALL

SEG 0137

CoRMIBO RMO3/2 DR CPT_TST
CIRMIB. Pll
28-NOV-77 09:42

0316 S0
03i6
031660
031664
031666
031672

012037

000200

MARCY1l

031664
C0I1T6
001178

30(1046)

28-NOv-77

10:00

I11

PRGE

139

SINGLE “DUAL PORT RHW70/RMO3 DRIVER

ES.SAV:

(RO)+,

MOV

DATA,

R RN

.SBTTL

:GET THE ERROR CALL

:SAVE THE RDDRESS IN ’S$ESCAPE’

$ESCRPE
O
(SP)+,$ESCAPE
RO

ARERRRRR RS RE R

.SBTTL

SESCAPE,-(SP)

CLR
.WORD
MOV
RTS

18:

001176

MOV

RN RRR R

CONTROL,
R

:CLERR THE ESCAPE RETURN
:THE ERROR CALL IS MOVED HERE
:RESTORE THE ESCRPE RDORESS
*RETURN

AR RN RERRR AR SRR

AR RAR R AR R AR

RRERE S

8 STATUS BLOCKS

RN R R AR

ROUTINE

SEQ 0138

(REV 5.1)-24-RUG-77

RN RL AR AR R AR AR R

SR RA LR NG SR B RRRR R RN

TO SIZE MEMORY

;iil!ilililililiilllllllll!llliilillll*lli!iiiii!llllliiiilitiifi
H

JSR

PC,$SIZE

RETURN

SSIZE:

MOV
MOV

RO, -(SP)
R1 -(SP)

: ;SAVE RO ON THE STACK
::SAVE Rl ON THE STACK

MOV

SP, RO

. . GAVE

(SP)+, 98ERRVEC+2

s sPUSH OLD PSW AND PC ON STACK
. :SAVE THE PSW IN @8ERRVEC+2

W
~N

88¥30Cfl3h
00000
O;—..—.—o Pt
e Pt Pt P
OON'\JONN
P Nal NN SQKNNU"DHWUJ
NNNNNNO
L

e
Bt e Pt Bt Pt
e (ot s

00000000

s Pt s P
Pt
Pt Bt

orFRERF FERERRB TR o628

Bon 5o Be o Bt

NANNNNNNNNNNNNNN N

000000000000
0000
WWWWWWLWWWWWLWWWWWW

O NNNO
NN
oL

00000
WWwWwWww

:#SLSTAD WILL CONTRIN THE LAST AVAILABLE MEMORY LOCATICN

207

MOV
MOV

000004
000006

98ERRVEC , -(SP)
::SAVE PRESENT ERROR VECTOR PS 8 PC
J8ERRVECY2,-(SP)

. ;SET THE ERRVEC PS TO THE PRESENY PS
000006
031740
020000

000002

TRAP
MOV

000004

18:

MOV
MOV

828, JRERRVEC
$20000, R1

157

(R1)+

TST

BR
SuB
MOV

2s:

MOV

000006
000004
031770

THE STACK POINTER

;;SET FOR’ TIMEOUT
: 'FIRST ADDRESS

(R1)

P1TEST THIS RDDRESS

18
#2,R]
RO SP

P TRY ANOTHER
: DROP BACK
: 'RESTORE THE STACK

:'STEP

TO NEXT RDDRESS

(SP)+, IERRVEC+2’ : ; RESTORE ERROR VECTOR

MOV

(SP)+ ' J8ERRVEC

MOV
MOV

R1,SLSTAD
(SPY+ Rl

: :LAST RDDRESS
:RESTCRE RI

SLETAD:

.WORD

; ;CONTRINS THE LAST ARDDRESS

.SBTTL

BUSROR -

Egg

; THIS ROUTINE

;OF

THE RH1]l

é%P)#,RO

; ;RESTORE RO

GEY BUS ADORESS AND VECTOR RDDRESS FOR RH1l

USED

INSURE

THE

BUS

RDDRESS

IS SETUP FOR THE PROPER RDDRESS.

;1T WILL ALSO RERD THE ADDRESS FROM THE TTY IF

; REQUIRED.
;ggIE: THIS ROUTINE

§
10441c

JSR

RETURN

BUSADR:

SRAVREG

DESTROYS RO-RY4

PC,BUSRDR
;SAVE

ALL

REG

CZRMIBO RMO3-2 DR CPT_TST
28-NOV-77 09:4¢2
CZRMIB.PL1
012700
104401
011046

032164

o o 0n

051503
000
0S3110

——

3%:
000004

000040

O
n
=]
-0
~
n

tRO), -(SP)

PRESE?; RMCS1 ACDORESS

TYPE
RDLIN

,LINSP

;2_SPRCES

MRMCS
|

MOV
JSR

(SP)+,R1
RS, CK. NUM

MOV

csnnvsc RO

TYPE

MOV

HVEC

¢,LINSP

MOV
JSR

(SP)+,RI]
RS, CK. NUM

MOV

#SRMADR, RO

STYPE 1T

2 SPACES
{READ THE ENTRY
'ASCII TEXT RDDRESS

28’

ENT ER AND STORE NEW RDDRESS
;ERR OR EXIT
:FIR ST RADDRESS OF NEW PRRAMETERS

MOV
MOV
MOV
TST

#RMADR, R1
J8ERRVEC, RS
848, 9SERRVEC
JSRMADR

iFIR ST RADORESS OF WHERE TO PUT THEM
: SAV E ERROR_VECTOR
:LOAD NEW VECTOR RDDRESS
?
iLEG AL 1,0 _RDORESS

MOV
MOV

(ROY+, (R1)+
(RD)+ (R1)+

LOQ

RS, 98ERRVEC

68
#SS, (SP)

ERROR
MOV

b
RS, 38ERRVEC

RESREG
RTS

0200861

MRMCS1:

.ASCIZ

JRMCSI

04150S

MRHVEC:

.ASCIZ

SRHVEC = 3

cs:

iGET THE ENTRY
:ADDRESS OF ASCII TEXT
:ENTER AND _STORE THE NEW RDDRESS
{ERROR EXIT
VECTOR RODRESS
; "RHVEC="
E
'PRESENT RH11 VECTOR RDORESS ON THE STACK

lRO) -(SP)

TYPE

BR
MOV

4s:

0207

140

MOV

032126

PAGE

FIRS%IQDDRESS

ROL
I

001274

J11

#SRMADR, RO

TYPE

TYPO

036604

o4esSe2

-0

2s:

001276
032153

10:00

MOV

TYPOC

032164

023Seb
00000+
032120
147166
000004

28-NOV-?7

BUSRDR - GET BUS RDDRESS RAND VECTOR ADDRESS FOR RH1}

036604

00000

2e
036440

30(1046)

i8:

001274
032142

W~ NOR

o= NN

U= O

e e 0= R O 0= O )

Ottt

= (O 0= ) 0= 0= e () 0000
4 e gt e
- Q00
O-808000
O
t= 00O NEEE
808
£N DIONONNs
L L£
NOONLO00OUNNNNNNNWN
nNwnn 28 L LLOLNNNNOC
(@]

031774
032000
032004

MACYLLl

RTI

:YES bl F NOT TRARP TO TIMEOUT

THE BUS RDDRESS

LORD VECTOR RDDRESS

COHHON EXIT
{SET _RETURN RDDRESS
'RETRUN FROM TIME OUT TRAP
iNO RESPONSE FROM RMADR
'RESTORE THE TIME OUT TRAP

: TRY AGARIN

{RESTORE ALL REG

= 3

CK. NUM - CHECK NUMBER (OCTA
.SBTTL
:THIS ROUTINE CH CKS RN Q SCIZ STRING FOR LEGAL CHARACTERS

:AND FORMS AN OCTAL NUMBE R
:CALL:

IN R2

#8ADR, Rl

: ERR

032164
032166

032204

—0O—00000

P
s P
s ot Poct
e o
St

VNN LW

N NNNNNNNN
WHWWWWWWLIW

7310

¢ . NUM:
000006
18:

DCO0eD

; ADDRESS OF ASCIZ STR.NG

:RS CHANGED
krr
NOR%QL
Re, -(sp)’
snvs R2
:SAVE R3
R3 -(SP)
:SAVE RY
R4, -(SP)
'MAX OCTAL DIGITS IN THE NUMBER
86,'R3
:FINAL OCTAL VALUE
RS’
:GET CURRENT POINTED BYTE
(R1,+,R4
:BRANCH, IF TERMINRTOR DETECTED
3 3
‘SMALLER THAN ASCII-Q *°
R4,%’0

RS, CK. NUM

SEQG 0139

AV Vo V)

CZRHIBO RMO3-/2 DR CPT TST
CZRMIB. P11
28-NOV-77 09:4¢

032
032

MRCY!1

30(1046)
CK.NUM -

K11

28-NOvV-?7
10:00
PAGE
CHECK NUMBER (OCTARL)
8LO
cMPB
BHI

000067

AT A

ASL

B8CS

BCS

ASL

BCS
BIC

RDD

DEC
BEQ
R

2s:

MOovB
BNE
TST
BEG
MOV

38:
4s:

1ST

ce.

032270
032272

AR EE X2 22222

.SBTTL
R

032274

o44122

:YES ERROR EXIT

:LARGER THAN nscxl 7
'YES,ERROR EXIT
:SHIFT LEFT

R2
3
R2
3
8177770, RN
RY,R2
R3
2s
1$

: ONE
;
:0CTAL DIGIT
'ERROR If CARRY BIT SET
:CHOP OFF MIGHER BITS
:APPENDING CURRENT DIGIT
:DECREMENT BYTE COUNT
;BRANCH, IF LAST BYTE
:LOGPT
ACK

Ss
R2
oS
R2, (RO)
(RE)+

'ERROR EXIT
SFINAL VALU
E g
YES TAKE ERROR EXIT
REPLACE THE ORIGINAL VALUE
QOJUST FOR NORMAL RETURN

(R1)+,RY

:CHECK

(SP)+,R
(SP)+. R3
(SP)+.R2
RS

MOV
MOV
MOV
RTS

SEG 0140

RY,8'7
cs
Re
c$

ASL

1772770

5§

141

TG NUMBER

TE nxunron

'RESTORE R
:RESTORE R3
RESTURE R
TEXIT

2222222222232 3222223222322 3222223222223 222222222322 232 3

ERROR MESSAGES

222222222222

.NLIST

BEX

222222222222 2222232222222 2222222222222 222

030067

0304S0

EML:

.RSCIZ

/RH70(11)

032343

1258 042516

050130

EM2:

.RSC12

/UNEXPECTED RTTZNTION OCCURRED~

032401

115

0S1s0!

041123

EM3:

.RSC1Z

/MASSBUS PARITY ERROR

(MCPE=1)~/

032437

118

0S1501

o41123

EMY:

.RSCI2

/MASSBUS PARITY ERROR

(PAR=1)/

032474

042101

0S1104

051508

EMS:

.ASCI2

/RODRESS PLUG CHANGE BIT SET/

032530

044122

030461

033450

EMG:

.RSC1Z

/RH11(70)

032S76

o471es

047503

0silee

EMI0:

.RSCIZ

/UNCORRECTRBLE

032641

106

052101

o4e10l

gEMll:

.RSCIZ

/FATAL

032674

042520

0osisee

0sis11

EMl2:

.RSCIZ

/PERSISTENT

032725

117

042520

o40s22

EM13:

.RSCI2

/0PERRTION

032777

104

O4u4See

o42526

EMIN:

.RSCI2

/DRIVE WENT OFFLINE-

0330e2

047Sle

0S1i040

05150s

EMIS:

.RSCIZ

‘NO RESPUNSE

INTERRUPT

OCCURRED

DIDN'T RESPOND

(RMARS
= 0)~/

TO RDDRESSING~/

MARSSBUS PARITY ERROR~/

MASSBUS PRRITY ERROR~/
DEVICE
NOT

UNSAFE~

COMPLETED

TC PORT

WITHIN

REQUEST-

TIME

LIMIT~

0 RMO3-2 DR CPT_TST
P11
28-NOV-77 09:42

MRCY1l

30(1046)
28-NOV-77
ERROR MESSAGES

10:00

L1l

PRGE

142

SEQ 0141

0330Se

042510

042101

O0S110S

EMeO0:

.ASCIZ

/HERDER CRC ERROR/

033077

104

052101

0201061

EM2!l:

.RSCIZ

/DATA CHECK

033130

0S1127

0S2111

020105

EM2e:

.RSCIZ

/WRITE CHECK ERROR - DRTR CHECK

(’'DCK')

SET/

033203

127

0MM522

042524

EM23:

.RSCIZ

/WRITE CHECK ERROR - DATR CHECK

(’'DCK’')

NOT SET/

033262

042510

042101

0S110S

EM24:

.ASCIZ

/HERDER READ ERRCR -

033330

042510

042101

051105

EMeS:

.ASCIZ

/HERDER RERD ERROR - HERDER COMPARE

03341}

106

051117

O040S1S

EM@6:

.ASCIZ

/FORMAT ERROR

033436

042510

042101

051105

EM27:

.RSCIZ

/HERDER COMPARRE

033473

115

0SIS11

042503

EM30:

.RSCIZ

/MISCELLANEOUS DRIVE ERROR/

033s2S

117

042520

0OM0S22

EM3L:

.ASCIZ

/OPERATION

033570

0S1104

0S3111

020105

EM32:

.RSCIZ

/DRIVE TIMING

033623

120

0S1101

0S2111

EM33:

.ASCIZ

/PARITY

033700

0S1127

0S2111

020105

EM3Y4:

.ARSCIZ

/WRITE CLOCK FAILURE

033742

047111

040526

OM4SI4

EM3S:

.RSCIZ

/INVALID RDDRESS

03400C

0S1127

0S2111

020105

EM36:

.RSCIZ

/WRITE LOCK

('WLE')

ERROR/

034031

104

0S2101

020101

EM37:

.RSCIZ

/DATA CHECK

(’'DCK’)

SET DURING WRITE CHECK

034113

122

030510

02406l

EM40:

.ARSCIZ

/RH11(70)

034155

102

0S152S

040440

EMML:

.ASCIZ

/BUS RADDRESS OR WORD COUNT

034ez2l

104

0S2101

020101

EM42:

.ASCIZ

/DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED-

034302

040503

023516

O0cdl24

EMM3:

.RSCIZ

/CAN'T MRTCH DATA REARD WITH A PATTERN/

034347

106

0S1122

O0S1117

EMNM:

.ASCJZ

/ERROR BIT(S)

034433

10S

041503

046040

EMMS:

.RASC1Z

/ECC 1.0GIC FRILURE

034521

102

0S1S2S

O0O4OM40

EMMG:

.ASC1Z

/BUS RDDRESS AND WORD COUNT NOT CONSISTENT~

034573

123

042505

020113

EMSO:

.ASCIZ

/SEEK

034631

120

047522

051107

EMS!:

.ASCIZ

/PROGRAM DETECTED POSITIONING ERROR~

034674

0S1104

O0S3111

020105

EMGO:

.ASCIZ, /DRIVE UNSAFE ERROR-

034717

0'0

000040

.RSC1Z2

234722

0OveS2z

051501

EME]:
EVEN

LARSCIZ

/RMAS

020040

DM1:

(’'DCK’)

ERROR~/

’'FMT'

BIT DROPPED/
(°'HCE')

ERROR/

(’FER’')/
('HCE')

INCOMPLETE

('DTE’)

('PAR’)

ERROR~/

(’'OPI’')

ERROR~

ERROR/

ERROR AFTER OPERRTION STARTED~/
(’WCF')

(’IRE’)

ERROR/

COMMAND.

OR UNIBUS TRANSFER ERROR~/

SET,

INCOMPLETE

INCORRECT~

BUT NO ERROR SIGNARLED BY THE RHl1l~

- POSITION REGISTER VALUE NOT VARLID

('SKI’')

ERROR/

CSRMIBO RMO3-/2 DR CPT "ST
CIRNIB.PILL
e8-NOv-77 09:42
104

ou4s22

o44s22

MACYLl

Q42526
2?26

gic3
Ges

020062

30(1046)

28-NOV-77

ERROR MESSAGES
DH2:
DH3:

.ASCI2
.RSCI1Z

.R
.ASCI

10:
DH1L:
DHle:

.928}

.A c*
.RSC

.ASCIZ
.EVEN

10:00

/DRIVE
DRIV
/ aav
D
/
/ovas

M1l

PRGE

143

RMDS
RMER1
REG ADR
DATA
GOOD
REG ARDR
/
RMWC
RMCS1

Rno§
RMD

/RMC
/RMMR!I

RMEC1

/RMER2

RMER!I
RMOF

RMEC2

SEG 0Ol4e

@~
RMER2
/

RMMRe

RMAS

BAD

RMDA

RMBA

RMDB
RMMR2

RMAS
RMDC
/

/
/

LIST

BEX

OT!:
pTe:

.WORD

DRIVE,RMERRS,RMERRS+2, RMERRS+4, RMERRS+6,RTTN, O

030400

DT3:

.WORD

DRIVE,RD.ADR,RD.WRD,0

030620

DTyY:

.WORD

DRIVE,WRT.RD,WRT.WD,RD.WRD,0

DT6:
DT7:

.WORD

DRIVE,RM.REG,RM.REG+2,RM.REG+4,RM.REG+6,0

DT10:

.WORD

RM.REG+10,RM.REG+12,RM.REG+14,RM.REG+1b,RM.REG+22,0

DT11:

.WORD

RM.REG+24,RM.REG+26,RM.REG+32,RM.REG+34,RM.REG+40,0

pT12:

.WORD

RM.REG+42,RM.REG+44,RM.REG+46,0

.BYTE

8:8:8.0

023362
001324

035470
035471
035474

ATIN.O

RMADR,0

BYTE 0,0,0,0,0,0

35477
35502
35508

,0,

EVEN

03ele0
03&1€!

N Lormtere)
—W
£ O NI
OOWO

.1:8

PR22R2RZ
RO AR

@]
un
n
£

oo~

O L
—
O

AEERPZEZZRARZR

0= 0t e ([0

e () 0—

2
oy
REODIRRONCTAD 't

BEX

RSCIZ
ASC
.ASC
.ASC
.ASC

/SUBSYS
/DRIVE(S) /
/%% STARTING PRSS | ##.,
/MOUNT PRCK ON DRIVE
~
/AND LORD. 7
/TYPE R<CR> WHEN DRIVE RERDY : /
/DRIVE gs N?T RERDY,
TEST 1S ABORTED~/

.ASC
RSCII
RSC 5

/UNLOAD DRIVE ~
~/
AND REMOVE PACK, <CR><(LF>
/TYPE R«CRY Whel UONE : 7

R C’%
ASC

-RSC

RSC

"RSCIZ
.ASCI2

/PACK 15

NOT

RCCEPTABLE, CHANGE PRCK ,TRY AGRIN

4% STARTING PASS 2 #a.

~ ## ALL DRIVES RRE COMPRTIBLE
~SCORES FOR DRIVE
~

28-NOV- 77
MARCY11l 30(1046)
ERROR MESSRGES
020113
020040
O4610S
060

020114

»—8
LretNNN
e po
J
OO

042510

040440
051440
0S0040
046106
w711l
00Q
o46047

ge0i2e

MESGL1?:
MESG1B:
ELFX:
AB:
MARKX :

COMMRA:

MESGS:
MESGH:
MESG7:
NOTRM:
NOTSAF:
NOTPRS:
UNTOFF:
UNTON:
LINYSP:
LINSP:
RMO3R:
NEDCLK:
COLON:

0se2101

046101

RSCI%

RSCT
.RSC.Z
.RSCI%
.RSCI
.RSCIZ
.RSCIZ
.ASCIZ
.RSCIZ
.RSCII
_RSCI
.RSCI
.RSCI
.RSCIZ

ENTDRY:
BRDENT :
ENTADR:
SLASH:
QUES:
UNTMSG:
LINSPO:
STATUS:
MESG!9:
MESG20:
MESG2Ll:

.RSCIZ2
.RSCI%
.ASCI
.RSCI%
.RSCI
.RSCIZ
.RSCIZ
.RECI%
.RSCI
.RSCIZ
.RSCII

HAL T2
XFATL

.RASCIZ
.ASCIZ
.ASC12

HRLTX:
HALT1

037303

.ARSCI
.RSCI
L.RSCII
.BYT?
.RSCII
.BYTE

/TRACK
;NOéELF

51‘00/

N1l

PRGE 144

DRIVE
READ

SEQ 0143

OVRWRT
OFST-

OVRUWRT
OFST+

RERD
JFST-

READ/
OFST+-

; THE SEQUENCE OF SELFX,TRB MUST BE NOT REVERSED.

11,0

/. ./

/WILL TEST /

/0N

/1S THERE RANOTHER SuUB-SYSTEM (Y OR N<CR>) 7/

SNOT AN RMO3/RMO2V
NNNNNN

CZRMIBO RMO3-2 DR CPT 7ST
28-NOV-77
CZRMIB.F11

10:00

NOT SAFE/
NOT PRESENT/
QFFLINE/
0NL£NE/
/

/RM03/

;CR><LF>/ ‘L' OR 'P’' CLOCK REQUIRED ON SYSTEM/(CR><LF>
</

7ENTER 1.0. FOR DRIVE &/

/7 INVALID ENTRY/
gffifgfl BAD TRK/SEC ADDREES FOR DRV #3
7%/

/DRIVE/
/

/DRIVE

s #%

STRTUS/

BAD SPOT FILE

ENC

TEST

%%/

/DRIVE NOT ON-LINE OR NOT ASSIGNED/<CR><LF>
LF>
.RSCIZ /PROGRAM MHALT/<CR>
/DRIVE FRILS OGN BASIC REARD 8 WRITE TEST/
/DRIVE FR'LLS ON WRITE TEST (TEST 43/
/FRATAL ERROR~/

EVEN

LLIST

BEX

R 1S5 LOG{CRL DRIVES: (0-17)

=
=

SFMT+)
FMT+2
SFMT+3
SFMT+S
SFMT+7

=
=
=
=

SFMT+1]
SFMT+13
SFMT+ 1Y
S-MT+1S

=
=

000022

SEMTRB

SFMT*10

§GAP+4

; COMMAND CODE
;PROT SELECT AND Al6.AL!7

; WORD COUNT

;sBUFFER RADDRESS

; SECTOR RDDORES
; TRRCK RDDRESS

:CYLINDER ARDDRESS
;SUB SYSTEM RA-H

; PHYSICAL DRIVE CODE (ASCII
:LEFT TWO NULL BYTES

;END OF HISTORY TABLE

CIRMIBO RMO3.2 OR CPT IS

CZRMIBIPI

28-NOV-77 09:42

MACY11l 30(1046)

28-NQV-77

10:00

ERROR MESSRAGES

Ble

PRGE 145

SEQ D14y

;3%

Q37

0028

000

ORIVO:

.Ezzg
7800 na-gAHISTORY BLOCK OF LOGICAL DRIVE O

Z:gg
;382
4%
';:gg
74D

d37364 X 85%
g37aC
063
034
004
Q37ese
005
LI7aiy
oge

0co
000
000
000
000

DRIV2:
LRIV3:
DRIVY:
DRIVS:
DRIVE:

:EET
. YTE
. YTk
| YTE
Zsz;

000

DRIV1O: .BYT 7&I§h9 GHISTORY BLOCK OF LOGICAL DRIVE 10

00z

000

et g;a«s

7412 037516

007

;:;5

g0l

7aly 937540
037562

z:ig g:boy

7420 037606 nnugég

000

003

000

DRIVL: . I

DRIV7:

g, HIS?ORY BLOCK OF LOGICAL DRIVE 1

? o
“RTSTORY BLOCK OF LOGICAL DRIVE 2
78 o
“RISTORY BLOCK OF LOGICAL DRIVE 3
784 8o e ’éfixs?onv BLOCK OF LOGICAL DRIVE 4
7890 ’cms?omr BLOCK OF LOGICAL DRIVE S
788,0.
“RTSYORY BLOCK OF LOGICAL DRIVE b

Igz;a 73 gY“e -s;agonv BLOCK OF LOGICAL DRIVE 7

DRIV1L: ZEZ;

7&‘éh?

:HISTORY BLOCK OF LOGICAL DRIVE 11l

oRIvi2: (BVTE 78120 “RTSLORY BLOCK OF LOGICAL DRIVE 12

000

DRIV13: ISZ; 7az§)’ngs?onv BLOCK OF LOGICAL DRIVE 13

742 037650

:623

7423

037b7e

0os

000

DRIVIS: Zev;s

748

03773t

907

0co

DRIV1Z:

Iavrs 847

HISTORY BLOCK OF LOGICAL DRIVE 17

7433

037760

000

FMTDPB:

.BYTE

SR}V R PARAMETER BLOCK,

7435

0377

000

BYTE

,PSEL. R

SENDPCM

:BUFFER ADDRESS

| (YL INOER ADDRESS

;353 Q3771 o3
7423 037790 000020

000
000

DRIVIY: :EZI 78*g Qe u?g?onv BLOCK OF LOGICAL DRIVE 14
HISTORY BLOCK OF LOGICAL DRIVE 1S

DRIV1G: '§E;§ 7sxshone séSfifiSORY BLOCK OF LOGICAL DRIVE 16
-BLK

£4Tng-sLOMD

7434

0337761

743t 037763
7437
7438

7439

237764

000

BYTE

7343
4

7445

7446
7447
7448

7449

7450
7461
7452
743

WORD

BYTE

(027774

080000

HORD

BM.REG

040000

0D0000Q

037766

037770

000000

040G7Y

WORD

744l 037775 0ooba0
7442

BYIE

037776

Q4O0ON
04

04001

(40012
040014
CMC0le
040Ge0

WORD

000000

009000
000000
600000

RM.REG:

WORD

.WORD
WORD

WCRD

WORD

00000C
00000C

WCRD
WCRD

200000
60

WORD
WORD

SET FNI16,HCI ECI

; WORD ' COUNT
}SECTOR

ADDAESE
s RMCS¢

; RMUC
: RMBA

O
O

: RMDS
; RMER1

0
0

: RMOA

: RMCS2

: RMAS
i RMLA

A1?7

(NEG)

_RODRESS

TG SAVE ALL RMI1-RMO3 REG'S

: STATUS WORD

O
O

DRIVE

<RMIBC RMO3/2 DR CPT_TST

ZRHIS.PH
T464
7485
74
74

04002¢
040024

7
7489

Q40034

7461

090040

7460
7462
THEI

7464

28-NOV-77 09:42

-NOV-77
Efl&gfl HCSSRGES

MACYL11 30Q(1046)

0
0

WORD
WORD
.WOR
.HOR
.

WOR
WORD

WORD

040036

040042

WORD

040046

WORD

O4004M

WORD

10:00

Cle

;RMDB
;RMMRL
;RMDT
s RMSN
R
sRMCA

:RMDC

;RMERS

:RMMRE

; Rgc é

;RMEC

: INDEX OF STATUS AND REGISTER WORDS RELATIVE TO FMTDPB

::Eg
000016
£00020
000022

$TRATUS
isHCSl
MWC

=
=
z

16
ig

7476
79477
2478

000034
DO0036
000040

=
=
=

+2
1+2
RMAS+2

7480

00004

7463
“470
P!

=
SRMEA
SRMDA - =
SRMCSE =
=
SRMDS

00
000026
000030
000032

H.
79473
747
478
T479

7481
74ap
7483
7484
74es
7486
487
7488

7489

RML

000042

SRMOB

000046
0009S0
0G0052
198 810, -1
0000S6
000060
000062
000064

T
RMSN

7492

040050

7493

0‘00028

748

040066

7494

7496

7497

0400

040070

7498

000000

177776

000000

040000

000000

CYLDER:

000062

040074

NLIST

00S01S

055103

046522

040322 047101

020104

04es22

OM0074

GENDPB:

TITLE:

SRMLR+2

.WORD

0,0,-2,CYLDER

. WORD

0,0,RM.REG,O0

.BLKMW

SNOPGH
£X

142
R
RMDT+
MSN+
RMOF +2
SRMDC+2
SRMHR+2
SRMMR2+2
SRMERZ2+2

RMERE
RMEC1

SRMEC2

000000

040070

MCS142
SRMWC +2
SRMBR+2
SRMOAR+2
SRMCS2+2

=
=
=
=
=
=
=
=

$RMDC
SRMHR
2
SR

7490

7491

SEQ Q14

PRGE 146

SRMEC]+2

;LAST LOCATION OF PROGRRAM+e

.ASCII

<«CR><LF>/CZRMIBO/(CR><LF>

"ASC1Z

/AND RESTART THE PROGRAM- <CR><LF

LF>
CRY <
Y 0. s<CR>«LF
onLF>DRIVE
xbb40, ‘BRck
TESIRcCRi
LIZY
CONORTIBI
DRIVE
Z
>«¢
¢
L
HE-ASCIZ BRMO3.RNO
Qgzded
Q30115
Tle2
Duo107
<CR>
LOCATION
nEnbnv
cu»:gh
PACK
ANOTHER
. EH /WITH
8: éw owgé; 83 éfi 858

7493

7500

goeoe:

.END

CSRMIBO RM0O3-2 DR CPT TSTY

CCRMIB.PLL

28-NOV-77 09:42

RBRSE = 176700

RCOW] = 000000
ACDWe =
00
z 000123
ACK
00
ACPUQ '=

RCTOF¢

RCTMC R

0234944
023445

ADDMWO = 000000
ADDW]1 = 000000
ADDM 10= 000000
ROOM1
1= 000000
RDDM12= 000000
RDOW 13= 000000
ADDM 1 4=

ADDW 15=
RODW2
ADDK3
RDOWN
ADDWS
ADDWG
ADDW?
ADDWB

=
=
=
=
=
=
=

ADDW9 =
ADEVCT=
ADEVM =
HENV
=
AENVM =
AFATAL=

RAMADR ] =

000000
000000
000000
000000
0000
000000
000000
000000

000000

D000

000000

AMRDRZ2=
AMADR3=
RMADRY=
AMAMS
1=

000000
000000
000000
000000

amarMs3=
AMArMSY=
AMSGAD=
AMSGLG=

000000
000000
000000
000000

16608

MACYL1Ll 30(1046)
1792

1835
- 1836
_

£907s

6808#%

1792
1792
1792
1792
1792
1792
1792

1307

6174

1792
1792

1792
1792
1792
1792

1792
1792
1792
1782
1792

6SS1#

S1861

c223s

6820#

6560+

6806

1820

1824
1827
1830
1814

1792

1794

1792
1792
1792
1792
1792
1792

1792

1825
1828
1800
1801
1818
1823

1826

AMTYPY= 000000
APRSS = 0000

1792
1792

1829
1797

#PTLSU= 000040

119

5225

PT2Po= 000100

RPTENV= 000001

65225

1795

AMSGTY= 000000

000000

1833

1798
1834
1803
1804

1822

~#PRIOR=

SEQ Ol4e

PARGE 148

1792

17292

AMTYP3=

D12

1792
1792
1792
1792
1782
1792
1792

AmMaMS2= 000000

AMTYPl= 000000
&MTYP2= DOO0O0O0

10:00

CROSS REFERENCE TRBLE -- USER SYMBOLS

1792
179
16798
1792

§901s

28-NOV-?7

1792

€017

Slie

HSNLST

001776

19
19898

e40s

seaus
2470

2542

2544

2556 #

25890

2586

3808

ATABIT

023514

2491

59738

bl4l

6237

5343

6725

6747

675S

6756

RTTN

0C13e24

18Su4s

7353

7354

ASSGN]

002C0C

~TESTN= 000000

19918
1792

285"
2557
1796

eb18+#

e637

3068+

3081

£776

6866

CcRMIBO RMQO3-2 OR CPT_TSTY
CJRMIB.PILI
28-NOv-77 09:42
e e

OONOCUVNLWN

000004

000010
000020
000040
000100
000200
400

£Nn NN
oo OO
Qe £O0—0
oO
o
n
O
N

oL
o
[Velab) LN
O
® o WO NN~ WO

no—oooooo N

100006

020000
040000

g;.oa'o"\lg;
WO

st
O

oo
Nt
=—unin
00O

BIRRZORE
N—0O
LW

010000

[eeJealoslosleadguleotoelon]
[
ST 1o T T EU Y
KAA44A4-4—

oom

LR
]

ol ol el

dAAt——
At~ 44—~
44

OWODOODOODDOODODODm

Il o]

BITO

BPTVEC=

SEG 0147

AUSKR
AVECT]
RVECT@=

m
T

Elc

30(1046)
28-NOV-77
10:00
PAGE 149
CROSS REFERENCE TRBLE -- USER SYMBOLS

0"0"0‘0‘0‘0‘0‘0‘@&30‘\3 ~

RUNITY

MACv11

6208
641?

7045

6e8e
6572

6698

6718

8751

7017

6857
6474
ba4y
6132

6438
6150

6792
6219

6252

6432

6455

6470

B4BY

6202

6654
4127

6925
5694

b3l%

- 6249

6641

6787

6887

62lY
6787

6217
6857

6219
6887

6249
6894

62se

6438

6472

B474

283s

3072

310!

3904

3970

4891
#
2578

261s

6328
E432s

6338
6546

6366

6370

e384

4089

e34e
6576

-3

288 § 2888z =

RAELS 8 £ &
g
~
gwuw:
3 hHelell
[N N4,7] SERRGERTE
\J\Jghbfl'

)+
oL
L
cCwune—ono
LN
OO0
o
NoO

O 00
[ Lok
TM

[

——t—

xrr (@}

o—

g og 2%

[alelelelelslsia BNelal
~ XXX
R X
x
I
N |®
O
I3

03-2 DR CPT

TST

MACY1l
4100

S001
4700%

41798

5027

Fl2

10:00
PAGE 150
3? (1046)
28-NOov-77
ROSS REFERENCE TRBLE -- USER SYMBOLS

S693

4737
4706

47S1

7280
46608

73128
4708
4398%
Y4488

4393+

71138

3022#%
2996
3018«
3838

STB8e

YYO9#

4439

3025+
3021+
3467
3844

73818

3026
3542#
3859

3548»
3869

4917

g1s8

7381

7498

cle8

SEQ 0148

3550+
3959

2367
7373
73748

73Sis

2375#%

4062
4198
4314

4073
420

4146
H4ely

41
4218

4156
Yea4

4180
4266

6077
6238+
o4l x

6158+
652765
2510
7359

6650
e47’8%
2573#
3368

6777
6628
2b55#
3377

6779%
6850
2678
3434

66881+

7357

6625
e46e
2559
3217

305M

$EDDDDD

SO04Y+#

4056
4193
43le

3148%

4353

4366

57873

2878
3880

CCRMIBO RMO3/2 DR CPT TST
CZRMIB.P1I
28-NOV-77 09:42

MACY11

DRIVIS
DRIVIE
DRIVI?
DRIVe
DRIV3
DRIVM
DRIVS
DRIVE
DRIV?

2176
elz?
2178
2l6S
2169
216
2168
2les
el70
3438+
6734
16748
4131
6065

74248
e l-{-1
74288
74028
749048
74068
74088
79100
74l1cs
S819s
b74bs

2679

2879

DRVRCT

0Q37&72
037714
037736
037364
037406
0374
0374Se
037474
037516
023370

DRVCLR= 000111
DRVER
014470
DRVINY
0237S6

DRVQ¥E

DRVSTR

031504

023400

DRVTIYP
023410
DSWR
= 77570~
DYEER
014540

6193

41678
60998

6206

blib#

blels

b1ob#

621S

6497+

59678

6051

6265

6321#

bYS2#

H46S

6479

64Bl#x

6490

BS54

6566+

6853

73548

4163

4169

417S

4i8l

4194

4199

4204

4210

4063

4069

40?48

4219

73571

4185

40sS1

EMPTYQ
EMTVEC=
EM!
EMIO
EM1L
EM12
Em13
EMIY

D31464
000030
032274
032576
032641
032674
03272S
032777

HHYY
165Ss
2243
40s0
40S6
404y
4062
4068

6495
2336#
73S1s
73S1s
72351
73Sl
73518
7351

EM2

032343

2250

73518

0330727

4l46

gEM2L

033056

EMee
EM23

033130
033203

EMeE
EM26
EM27
ETM3
gM3C

033330
033411
233436
C3e4C!
23472

EMeSH

033262

Ylee

4157
4225

4231

6592
2337

589S
2383+

40S?

7351

7351s

4156
4164

7351
73S1s

4180
4214
N218
ces?
4le8

7351s
73518
73S1s
73S1s
T3Sis

%174

3167

73S

73S1s

EM20

Bi52s
6726

6101%

4els

4073

6l47s
6713+

S848s

73598
73618
7362H
6111

033022

6109+«
6706

3169
2366

2266
2280
2e8?
61008

ETM]1S

6719#

6100+
6652

035376
035410
035414
023760

4045

E7lcH

6068#
6639

CT4
CY6
DY?
OULP

D14034

6681

6058#
6631

73538
73648
73668
73684
2273

puMeP2

b4t

60S57»

£3832

4147

656Ss

E4S6#

224S
2294
2301
230
2252

01466C

b477x

6379+

035344
035430
03S44Y
035460
035350

o1V o

6459

6056+

5863+

2259

6780

715838

BHY 7%

6055%

D1
D110
D11l
DT1e
DT2

35S

6186

6425

5833

023512

013

378+

6860#%

6246

6188
688cox
. 2881
1768
41928

3439

6198

SEG C1v49

gele

6180
6782
2681
15668
4123

DTuul
.

Gle

30(1046)
28-NOV-77
10:00
PRGE 151
CROSS REFERENCE TRBLE -- USER SYMBOLS

~.
:

6250

4236

71388

424Sa

CCRMIBO RMO3-2 DR CPY 197
CcRMIB.PLI
28-NOV-77 09:42

M3l

Bd3253

Hg3
M34

M3S

4189

EM36
EM37

034000
034031

nal

g3qisd

Emve
EM43
EMuy
EMYS

03422l
034302
034347
034433

EMYE

73518

7351

4209
7351s

73518

488

Feels

032474
034573

2271
4230

73S1s
72351

EM6
EME0
EME1
ENDPGM=

032530
034674
034c1?
Q40079

2278
Yeul
7351
2687

73Sis
7351s

0367
036666
(13676
(013662

73818
73818
4022
4005

ENDX1

ENTRDR
ENTDRY
ERPRC]1
ERPROC

ERRVEC=

£S.SAv

034631

YiB8yY

00S46eH

2639

DO000M

;ng.

031650

FALPAR

6610

0144000

FRULY
;%;BUF

4032

001374
01;165

187Ss
5911

FHTBES 8579£0
FMTER

sasesw

g
= 104406
HaLTX
037158
HALTL
03717}

HALTZ
HCEER

HCRCER

HGUR
HT

014600

GENDPB
040050
GETREG= 000191
GETREQ
031560
N

egsg »

037240
0l4610
Q14460

73Sis

EMS
EMSO

EMS]

73S1s

2716

2706

40278
4009

2719

280!s

1697

2399
2338
2937
3033
42188

4011

;Ss

6662

6666

6930

3108+%
agee

3954+
43198

%923

(XY

40SSs

esgg

2696

omomn

;

Yye

3710

6467

€774

57808
3034
7381s
73818

4395+

4396+

6990

7208

7e45s

7284

3269

3303

3586

3681

7438

7497

4407

Hy2la

S699

S700+

5702+

570S»

723!

2913

291%

2917

29g3

2925

3621

3623

3631

3633

377

§786

578?

2738

2901

3590

3592

3594

3619

OEE

736

4077

4133

4834

738ls

4HS9s

44E0

44B2

3049
3492

3les

387&

24ios

18508

2572

M430

1316

15588

2411

4450

5127
2841
2471

5168

7287

e7es

672

5776

7285+

2702

6635

S??

41618

4202w
2euB
2407

3222

6583

18628

2
3
Os

37%

4094

560

2974

4021

gggq

1342

= 00001]

2907

4213

749928
16818
6239

SEQ 01580

]

4203

73518

30¢(1046)
28-NOV-?7
10:00
PAGE 152
CROSS REFERENCE TRBLE -- USER SYMBOLS

7351

73518
73518
4266
73S!s

034521}

MRCY11l

§77?7

§778

¥R
£786

5780

3998s

7294+#

£8SE

BBEY

§78¢2

5783

BBl

5784

®.
7i7Mm

§78s

BRI
_

CoRMIBO RMQO3-2 OR CPY TST
coRMIB.P11
28-NOV-"7 09:42

MACYL1l

IOTVEC= 000020

2334+

16538

ISR

026356

KPATH
KSR

012640
015756

3813
N47Ss

D234se

25760

KIPARO=

LRCN
LACNT

LINDEC
LINE]

ssasns

= 000012

6060
’ee?

6269

15598

(015334
015236

4378¢
434Ss

LINSP

036604

;;ge

LINSPO
LINYSP
LORDRYV
LOGC
LOG!
LOG10

03701S
036600
(040]15S
001376
001416
001636

4353
738ls
2390
1892
1898s
19528

LOGl2
LOG13
LOG1H
LOGlS
LOG2
LOG3

001676
001716
001736
001756
001436
p0145e

19648
19708
19768
19828
19048
1910s

LOGS
LOGE

001516
001536

+00P3

001576
001616
007740
D0?756
012026

19228
19288
19348
19408
19468
32648
3c68s
36778

LOOPS
LOOPG

013032
013050

3809
3856

LINOCT D1e38s

LOGI1]

L OG+
LOG?

L0G8
LOGS
LOOP}

LOOP2

~0O0PY

LSTRD

0C1656

0014786
D01SS¢

012620

001330

MAKEUP
MERK X
MCPEMX
MESGI

010606
836405
(023524
035506

MESG1]
MESG1Z2
MESG13
MESGLIY
MESGIS
MESGLE

035723
03600}
0360:7
036072
036120
03€161

MESGE

03cci?

MESGIO0

MESGL7?
4ESGIB8
MESGLI3

4307

6SS1s

eSles

Basde *

18408

4362
2600

)

Boalt

Bodze

cle8

7381

7498

ebel

2664

2849

2858

3058

4917

5162

74988
2963

1916

3341
3332

3337

3808+«

3855

3870
3829

3847

38S0s

18S7#

a4ees

2423

24csSe

24chb#

3307
3987
59858
2480

34eSs
7381ls
6sle
2602

2734
3052
3059
3144
4927
3942

4134
3878
3884
7381s
7381
7381»

035657

2705%

036204
036300
037034

3949
3951
4286

2483

2884

7381
7381»
7381w

2583

3183

3973

3974

4305

1958s

3826

SEQ 0151

2335+

73818

3750

I12

30(1046)
28-NOVv-?7
10:00
PRGE 1S53
CROSS REFERENCE TABLE -- USER SYMBOLS

3630
6360

2847

3173

7381
7381s
7381

7381

3715

7381

73818

7268

7ev7

CoRMIBO RM03-2 DR CPT TST
CIRMIB.PLL
28-NOv-T7" 09-42

MESG20
MESGEl
MESG3

037060
037107
036531

4930
e80e
2651

7381%
73818
2844

036415

2s8e

73818

MESGHY

B35557

MESGH

036430

MESGS

MESG?

MACY1l

036434

26583

28se

7381

3154
3156

7381¢s

ebbl
2663

28s9
2861

MNOLTR

023Sv)

6COls

6540

MOD1]
MODi2
MOD21
MOD22
MODe3
MOD30
MONTR

govele
004374
003774
004174
004130
004224
003720

MRMCS1
MXDLTA
MXLACT
MXWNDW

032142
3536
023534
023542
O0Il61S4
(01l62l¢
Q0lb24e
016256
016310

2518
2541
24788
2s00
2508
2540
24368
7274
7265
59988
§99Ss
650048
4521
4S46s
4551
4557
4569

4535
4567
4558
4SECH
45724y

(036542
036507
036530
001364

73818
73818
73818
1871#

3810%

MODOI2

MRHVEC

0037.,0

(032153

M.DPID
M.DPY40
M.DP4]

M.DPY2
M.DPY4
M.DPSO
NEDCLK
NOTPRS
NCTRM
NOTSRF
NULINE

016322
036613

OFFCOD

002640

OFFSET=
OFFST
OFLIN
OPlER
oPT
OVWND

18638

o470

YOYY
4416

g;g 8

OVWNL

000115
010354
014020
014530
024564
002046
002066

20108

OVWN3
OVINY

21
002146

c0ees
20c8s

OviP ]

002206

20458

OvWP3
OvWPY
PACK
PARER
PCLOCY

002246
002266
001322
01450
001312

2059
206k
1852s
41 (0]
1848»

OvMWNg

002106

OvuWPO

002166

OviWP2

002226

177772

3146

2846

2609

03560¢
03562(

0O013%w

73818

2601

MESGS
MESGS

MINUTE

J12

30(1046)
28-NOv-77
10:00
PRGE 164
CROSS REFERENCE TRBLE -- USER SYMBOLS

16768
3308
4036
4103
6200
20048

2413

4435

eSeM
es?
2490
252l
eS10s
2542

2539s
2578
497

3818
7381

4455+«

4456

Y4SB8+«

ebl4

73018

72998
6538
6521

45788
73818

ggsgi

3355

3978*

3338

3340

3628

3713

6586
3481

6760
3806

3981

3385

3359s
40679
41878
62358
3210

3479

2052

7381s

2574

20164

20388

SEQ 01582

2969+
4197n
4334+

299¢%
4393+

6798
3857

3985+

3471

3988+

3477

3617%

3638

3641+

3647

3654+

36762

CZRMIBO RMO3/2 DR CPT_TST
CZRMIB.PI1
28-NOV-77 09:42
PIRQVE= 000240

16598

Kla

MACY1l 30(1046) 28-NOV-77
10:00
PRGE 155
CROSS REFERENCE TRBLE -- USER SYMBOLS

POPQUE

031602

G248

6300

416

6721

B7S0

6790

7189

PRINT
PROCES

013270
013566

38is
2918

3819
2928

3823
3005

3827
3242

3832
3277

383k
3312

3842
3895

Q140

4038

4072

POSER

014520

PRTBAD

PRTIN

015022

PRO

= 00

PR2

= 000100

PRI

41848

2729

15828

DOOOHO0

=
=
=
=
=

0ODINO
0O
DO02YO
000300
000340

PSEUDO
P&W
=
PUNSAF

002702
177776
013760

22048
15638
4028

QDRVO
QDRV1
QORV2
QOKRV3
QORVY
QORVS

031206
031226
031246
031266
031306
031326
031346
031366
031124
031144
(031164
031166
031406

7066
7067
7068
7069
7070
7071
7072
7073
70668
70778
70868
20878
7094
73818
4825
16688
1689

PR3
PRY
PRS
PR6
PR?

177776

PWRVEC= 000024
QCNT
031114

QORV?
QINPT
QOUTPT
QSTART
QSTOP
QTERM =
QUES
037005
ROCHR = 104410
ROOAT = 00017i
HD
= 000173

ROLIN =

104411

2739

4285w

SEG 0153

3848
3824

3933
3634

3693

3719

40028
.

1583

15848

15858
15868
15878
15888
15898

15628
6073+

16548
70558

2485

4476
4816

1563
b0Bl®
2979

4043

2340e
2114

2410%
Bl72

3373
bl73%

3374%
b226*

3383%
6236

4476%
6285%

448B*
65274

4632

234l¥
7138%

5231%
7153

S232%
7155

S241x
7175

S247#
7189

5259%

S260%

3226

7077
7078
7079
7080
7081
7082
7083
72084
7140
7140%
7120
7159
71068

2086
7087
7088
7089
7090
7091
7092
7083
7157%
7178
7125
7194

4865
2683

57838
3431

3680

2610

2669

2862

7357
6364

RONO
RONI
FON2
RON3
RONY
ROPO
ROPI
POP2
RGP3
ROPY
RC.ADR
RC.RM

002306
002326
D02346
002366
002406
002426
002446
002466
002506
002526
030376
030352

20788
20818
20874
2093w
2093
21088
21148
21208
21268
21328
69144
6112

3473

3779

3674
B91S*
6i38

3178
6i¥2

RD.RM1
RO.RM2
RL.RM3

030374
030520
030E24

69168
6912¢
6923

6346
634Ss
6937

6947

6842

3211

69lee

3476

6967

7098w
70998
71008
710is
7102
7103
7104w
7105s
715B%
7131
7161

3e72

6381

4633+

4843

BOM3

BON4s

.
6675

66BS

.
6700

7159
7132+
7196

71b1#
7193+

7194

719#

_
3075

31S?

3885

5784

7269

7278

6388

E402

6514

B528

6574

6604

3781

6387

F02I

L12

CoRMIBO RMO3-/2 DR CPT TST
CIRMIB.PLI
28-NOV-77 09:42
RD.RM4
RO.WRD
READIN=
RECAL =
RELSE =
REPLZ

0305
030400
000121
000107
000113
016332

RESREG= 104413

RESVEC= 000010
RMADR
RMRS

RMCS1

023526

= 0000!6
= 000004
= DO0OO0OC

RMCS2 = D000I0

RMDA

MRACYLll 30 1046)
28-NOV-?7
10:00
PRGE 1Sb
CROSS REFERENCE TRBLE -- USER SYMBOLS

6928
6918
16788
1673
16758
Y432

69498
6919

7357

7359

4437

4442

4S89

7030

7129

7296

4333

16498

e403
eSie

3378%

60128

X LY

6575

e ET-6

S6l4

5664

578648

6082

6223

6499

6559

287 3#
6840

3103+
6914

3139%
£920

3376
6924

7040

6323

6865

6062
£977

6303

6776#%

3437
6940

7283

7361

6104

6110

6130

be43s

payy

B34l

6403

b41Y

6429

6103x

6105

61Sc#

b24cH

6324+
6921

6432

6455
7017

7041

2358#

6602

6605

6063%

6725#

6659

6755#

6692

6731

6b73#

6762%

6792

7011#%

6345

6470

6513#

6573+

3380#%

60118

6311

6337

6352

= 000012

60138

6137

631S
6S15

6327
6676

£359
6701

6763

6843

023360

cglis

6046

6641

bb4Y4

6654

67632

B764+%

6765+

6766¢

7354

60258

6765

3163
6531

3248

3281

3316

3569

3598

3697

3723

4014

4250

6042

RMDT
RMEC]1
oMECe

=
=
=

000026
000044
000046

RMER!

= 0000IM

60148

60238
Y4

000042

36
(023544

RMINIT
RMLA
= 000020

60178
3379+

60198
602648
60278

7015
60228

6113

702s

6bl43

287s
6529

5686

£764

6382

6775%

6821

6493

= DO0OD0B

933:

000022
DOOO3Y

RwR2

YyS#a
6553

blYl#
6010
6008»

=
=

RMERRS

35S

60158
3382#
344

RMDB8
MDC

RMDS

4484

SEG 0154

RMMR] = 000024
RMMR2 = 000040

60168
60188
60048

6766

RMSN
PMVEC

000030
023530

6020#
N4

6134

6365

6369

6389

6393

2643

2644 #

2646#

2648*

2649%

)
2841

3049+

3050

3104x

J128»

3381+
;gsg

60098
;383

2842+
6173

2874+

RMUC
= 000002
RM.REG
0ON0000

6061

2975

3e23

3270

3304

3587

3682

7362

7364

7366

7368

7942

2sl2

292¢e

2999

3236

3271

3367

3389

3589

3618

3687

61728

31b4#

3246

3282

3317»

3570%

3599+

3698+

3724%»

401S#»

H42S1#

S785%

6042

6175

6235

BYSH

65852

6808

7007

6733

6742

6761

6799

RMOF

= 000032

RMO3

SAVEFG

3129%

3140

g24e7e

2695

027740
000117

Y464
16778

68068

EQtiss

6418

RMO3A
036606
RNOP
= 000101
RPTMR
R7C

6021l

73818
16718

3876%

023466

2432

2b76b#

28764

SAVREG=

104412

;?ig

026572

SC1!
SCle
€C3

SCORE

€Cl13
€Cu

3877%

64991y

;ggg

6579

4Si4

6752
5588

S649

6558

6587

6590

6596

6602

827430
027540

6643
6637

6674
6648

6682
67628

67438

026642

66188

ekee

6664

6668

010724

027602

DceeEqE

22088

6627

66208

3323

6630
6651

34628

3704

6059

3730

67728
67i?7

Mle

sCS
SCh
SCen

8ARCH=
CLNT

SECOND
SEEK

SEEKFG

026660
7060
027174

7q§81
001

OCist

= %

e B3oane

6619
6647
664S

2§SR
16808
18728

21ART
START1
START2
START3
STATIN

sTarus

STKLMT=
2INGRT
810
ST01
S102
5103
8106
S106
8107
S108
8109

003100
1

003072
003102
003106
00132

03701
60

4
002642
030030
030064
030160
030210
030034
030042
030300
030330
030355

SWREG
000176
SWTIM
014010
SW0~
= 000001
SWO0
= 0DOOOI
SW0l
= 000002

67198

B%43'

732

er3e

6771

Y4EY¥

gE7%¢

2877e

3leSe

3247¢

3283¢

33UBr

I571s

3600s

3699

1882

73814
3574

3576

36l2

3650

3778

3780

3840

3846

e107

210

284

6498

6612

70398

3wz

6747

2900

3127

6878

6880

E3®

STACK

RIZT
[

4452

031042

ATk Seeaie
Rt 833318

883

6705

445 #

T.1€

0013
003642
014630
037001

8837

6639

4440

2i4ls
S143e
51438

SIXTEE
SIZMEM
SKIER
SLASH

66258
66638
£bads

2414s

rd<

002546
002550
002552
002554
0028

SEG 0155

18648

SELFO
SELCFI
SELF2
SELF3
SELFY4

MACY11 30(1046)
28-NOV-77
10:00
PAGE 157\
CROSS REFERENCE TABLE -- USER SYMBOLS

CZRMIBOQ RMO3/2 DR CPT TST
CIRMIB.P11
28-NOV-77 09:42

3725s

4Oles

u252s

309

373

W71

6886

BBI3

]
HBI7N

B49

ShEee

sbad

S7os

Si0

5949

S144s
31458

18658
24198
4132
73818

38ie
o5ty

24il®

44SOs

42298

39304
E238F

Iss3s

1701
1702
1706
2320
155l

23198
2321s
2323
2322

18688

44uBx

§909
g

goy

342

B75s

23258

ég‘i.
1888
8816
68488
6847
6867
68798
6869
6671
boud
6846

4323
68368

433l

6849
68738

6851

6B86SH

68818
£229a
608958
6855

6864

6872

6876

sz’

Soos

Sore’

Boad

Bhes

10938
4034
16178
16078
16068

2374
4061w

2397

4837

5429

1617
1616

5239
5442

Bafew

sIe

CZRMIBO RM0O3-2 DR CPT _TST
28-NOv-77 09:4¢2
CZRMIB.PI1IL
Swi2

= 00000Y

16058

Nle

MRCY1! 30(1046) 28-NOV-77 10:00 PARGE 158
CROSS REFERENCE TRBLE -- USER SYMBOLS
1615

Sw03
SW04
SW35
SWwDb
SW07
SWO8
SW09

=
=
=
=
=
=
=

000010
000020
DOGONO
000100
000200
DOOY4
001

160498
16038
16028
16018
16008
15998
15988

1619
1613
1612
1611
1610
1609
1608

SWi0

= 002000

15378

4345

15958
15948

4348

19958

2506

SWwi_

SWil

SWl2
SWH13
SWl4
SWiS
SW2~
SW3
Sw4
SWs
SWub
SW;
SW8
5W3

SYSAOR

= 00

= 004000

= 010000
00
=

=
=
=
=
=
=
=
=
=
=

040000
100000
DODOOY
10
DOCC20
DOROYO
000100
000200
DOO400
DO1000

002004

036403

TABLEX

002044

TRB, XY=z 001114
TBITVE= 000014
0
026422

TIMER

023478

TITLE
TKVEC

040074
= 000060

TPVEC

00006

TRAPVE= 003034
TRFER_

16168

15968

15930
1532
16158
16148
16138
16128
16118
16108
16098
16088

3963

19978

17908
16508
6556

74388
4815

u4Bl6#

16588

16568

2338

18738

2691

1876
1817

TYPDS

TYPE

Q07172
=

00744
011250
1044QS

= 104401

3103

3104

3139

3140

6279%

B423%

BY7E¥

6568

6670

6715#%

67584+

6773

679S5*

3384

7381s

6BB3*

6889F

6448

B4S1¥

BYEH

B4B2¢

BHIL

6570

6571%

6852

6862*

18608

2833%

2899%

2961#

3047¢

3126%

3208%

3429

3469

3572%

3670%

3772#

36688
37708
2883
2935
3031

2897
2959
3045w

3i24s

3174

3905

330

2479

2480

2482

2483

011764
Q012452
006014
006266
006710

1878

2874

6301%

TST10
TST11
7572°
1573
1574

005502

2873

8878

001336

1571

2646

2384

iSTNM

000014

2645

2339%

3935

TRTVEC=

BA77®

2523%

2349

2387
16578

023940

001370

3507

B1SHE¥

4031

TRNSWT

1747
234B%
65658

3977

63548

014620

TRKLMT

367

3488

2522%

39490%

Z814¢

SEG 0156

16518

274

3109
3171
3342

57784

2387

2603
5705
2852
3081
3165

4223

2831s

32068
35678

2608
o734
o853
3082
3186

2885

2609
o735
2858
3083
3172

308M

2650
2801
o853
3058
3173

2481

2651
o802
2860
3059
3873

2852
2843
2861
3106
3875

2653
28494
2884
3143
3878

248

2654
284S
2936
3184
3879

2601
2663
2843
3033
3183
3943

6812

2602
2664
28s1
3C34
3154
3948

CoRMIBO RM03-2 DR CPT TST
CZRMIB.PLL
28-NOV-77 09:42

MRCYL]

3951

3949
3984

4416

4878
4929

001326

185Ss

16878
6% 38
gb?g

030616
030710

6974s
6960#

wRT.R]
MRT.R2

WRT.R3

030714

16868

6969

WRY.RY
WRT.RS
WRY . WD

720
030722
C

985S
6997
6961

XFATL
XPRSS 1
xXPRSSe
$APTHD
SRSTAT=

037303
007106
001100
nessas

4075
ebl?
2619
1727
6203

SATY1
$ATY3
SATYY
$AUTOB

020634
020642
020652
00.150

517
€117
5620
17658

$80AOF
SCOODAT
SBELL
$8UF
=

001136
001142
001230
000COe

1760
17628
1780%
2687
#

SCOM!

00:270
a0ie?

$27YC

$BARSE

013264

020660

001264

3099

Si74

57758

7267

7276

2855

3056

3150

3881

3945

t18e

6197%

53808

E446¥

6483

428

3611

2973

3220

3580

6314
8658

6318
6691

6326
6730

5389

69968

63758

7359

5015

049

S066

444

3974
4286

3975
4287

4900

“84e
4926

4849
4927

5457

7265

7268

5077

3977

sosy

6724

6743

674Se

686l

6358

6368

6382

6392

=
.

00013
(030622
030532

000161

5443

5007

4133
4830

Ye40oe

e
L

ARTHO =
WRT AC
WRT.RM

WRTDAT=

4898

Suul

7369

4088
16858
4118

4897

S4q0

RE3ERERRET 53

16848

WCKER
014430
WCKHD = DOULISI
WLEER
014570

4832

3963

407
4829

6336
6360

6340

6351

0001S1

7381ls
738ls
4109

395

407
4604

SEG 0157

OOWW e

(036557
036570
014640

408S
7381s

LX
X

014650
(037007

4030
S914s

LhNE
—0oN
nrw

013770
(023446

3957

407
4439

VL
O

WCKD

2592
46328

oo
DL—-0H

UNTMSG
UNTOFF
UNTON
WCFER

104403
(016462

=)
~N
—NWw

UCPAR
ULDFLG
UNIT

SO;?
S777%

N(flg_\
U=
WN) W WO
£
— N NO

TYPOS =
TYPRIN

3555
7e?

395

4074
434
4887
4931

S409

S437

5527

S007
c974s

3380

3222¢

3228

3269

3303¢

338¢

3566+

36812

N277?7

4320

73898
1835s

2907
2507+

es1e

2e41%

2647

2835

2837

2302

3072+#

3101+#

3108

3130

3216

18368

c475#

248}
c8ee
gisl

2601

2555

2589

2603

ob4es
3879

23838

2840

5165w

2606
3147

2654

SieD®

2605+
3134

18338

3904+
2648

£
W
4
N

TYPOC = 104402
TYPON = 104404

B1l3

10:00 PAGE is9
3? (1046)
ge-Nov-77
ROSS REF RENCE TRABLE -- USER SYMBOLS

2853
Eluys

5040

S063

Si02¢

3131

3:33

3943

CZRM]BO

RM03/2 DR CPT TSTY

SCKSHR
SCLR.T

02174y
017732

S4298
49S8

5782
496!8

SkeRD
235>

L338%

yeaz
S44

ctani8991:
SCNTAG

gant
c"

SCNTLG
|9

SCNTLL

$COMND:=
SCPUOP

egfinov-77 09:42

114

02239

001236

SCRLF

00120€

17468

4éw§

4gg?

2693e
Jlle

= 000012

SDBLK
$DB2D
$0B20

021734
J2247&
Q22672

SDEVH

001266

SDOAGN

017752

$OSPLY
$OTBL

016510
021724

SEMTAB= 000022
SENDRD
SENOCT
SENV
SENVM
SEOP

017742
017710
D0123C
}231
17654

SERFLG
SERMAX

001117
001131

SEOPCT

017702

2327

Bug?

30«

F236s

10s

233k

2342

2343

2344

2331

29733

3220%

32084

3304

336b#

388e¢

7429

2339

401

5405

7405

7407

7409

=411

)

3397¢
7413

3433

3680

741§

7417

7488

7427

17828

2479

2608

2650

2652

252

2735

2901

2643

2851

2860

3§58

4074

4C7?

91353

4e8S

84287

94312

w319

<4350

4429

3953

2926

32°6

2843

k@29

4833

3016+

3020%

302!

3651*

3662

322i¢

3252%

3253

3zbb#

3737

3742%

3329%

3330

3323s

2977

3062

3074+

3501%

3902

3100+

3221

3224

3266

3333

3490

7407

7409

7411

7413

741S

7417

7419

7208

5742

6930

6990

7200

T209

7392

T393

T39M

7395

3033
1

3051

3106

gegg

3143

2353

4926

3146

4828

)

3165

4829

3172
493]

3873

601

SO40

2630

2905

299*

8376
4788
4805

5403
55888
5E&49s

B417w

18348

2640%

2904

294

3951

4956

4963

49698

7352

7401

7927

7429

2402

7405

017
114

s112
5119

S181
§183

5205

S6B3
5737%

5712
5742

5”1

5011

5040

50SS

603l

5033

SO40

5736¢

6610

6662

6666

i7gs
13
168

g20
16

S212¢+

52208

7395

73858
7396

7386

7387

7388

7389

7390

7391

3375

3683

4e45s
6378

Q804

742
171
2342
18038

342¢

3505

3614

5787
G413w

739%s

495hs

435Y

2 79
- NE

SESCAP

001176

47798

SE"RBL
SETEND
SFaTAl
FLG
ILL
SFILLS

001230
001274
001212
881192
11
001171

18028
1739
17368
6j7es
12708
177¢s

000016
001134
001140
Li?71u

3572«
17598
17618
4955

Tres | ]
%

3384e

20084[ ]

g3we

18378
S209*

3387+

3606

3684

7425
SO

2063

2328

3605¢

7423
49658
4953s
23

17588
2238s

SGAP
=
SGOADR
SCO0RY
$CETY2

232l%

SEG G158

7523

TERRee
OAITis
11
SERRTE
002742

= 00000!

EE3!

10:00

7wzl

1807w

SpD2%
234S#

sFMT

P328

-NOV-77

Cl3

PAGE
|
gaégs REFESENCE TABLE -- USER
vnggLs

way7s
ss§2u

17S1s
17578

SERTTL 0B1cse
i

30(]046)

41§

3835
$CY.

MACY1]

5S040
G714
5010

5040

3740

36i6*

3811

3893

3686¥

3736«

3964

3941

SQ49

3948

Sps8

5073

73392

3952

SG77

§88888888

wL X

]

Yes

sses

e e e s st st Bt Bt et [

&8 -

(Df’- ~D
M N D@D @
ruM— :flumm 5

n e LAUNUYUI) 0= U 0o e 0 0= 10 b e VUV
n NNoOWoe
~N WO OO
O
WNWRNN
- £.0
a NMNO—N0 L— D0 W — L o P

| nd el

imo
~F§u SR gge dRew b
8888888888
3
§§§§§§§§§Fdng

SHAMSY

2RRERERERERREBE3883838088S
* RORRM
[ e Y A Ll
AV L
ey o e o el el el ot ol Y ooy =Y 28
o N
b b
Y0
»—»-u.—ru.-g.R N WRNNWO»
e U
MN—
O3
VIV
*‘NNU\‘JU\8'—
NNNNE
£
» NOWN
— UV
"L
L KROLHE Lo L L£000N—UNr g‘-—ymwwgmm:&-—
0
LOL£00 FR&EVS

]

A At By

g
SARAASSS
'3‘
atfl

—

372 DR CPT TS~
28-NOVv-77 09:42

022014
= Q000000

MRCY1l
30(1046)

GH4l
s
s780

CROSS REFERENCE TABLE -- USER SYMBOLS

24?7

§7c7%

5195+

28-NOv-77

§73Cs

1793

2378

S2lys

s2l8s

5207

sle8

10:00

239S

5323+
57388

4984

487

D13
PAGE

572S

161

S349s

5742

SEG 0159

S741

50se

5192

Sell#

5017
5ii2
5733

320Ss
3566%
36678
3769

MACY1]l 30(1046)

CoRMIBO RMO3/2 DR CPT _TST

SROLIN

SRDOCT=

017274
saansa

S$RDSZ = 000001
022440
SRESRE

881274

SRMBA = 000024
SRMCSi= 000020
SRMCS2= 000030

48608
§78S

cGe2ls
SS6es

2513

25l1é

£See

4278
4006
4086

4288
4008
4260

4303
4258
74748

74728
74708
7478

7473
7471

74798
74848

7480
748¢

7N778

SRMEC2= 000066

3707

4C10

4ces

4118

74758

7476

74898

;8;;

4098

4101

4104

4129

4eeH

74878

7488

2404

2514

eS17

2523

2355

4959

49788

74818
74888

;S;g

SRMER2 -

vi27

SRMVEC

0000S6
000040
4
000060
Se
0000SO

001276

SRMWC = 000022

SRTNAD

020012

3733

3536

SRMER1= 000034
SRMHR =
SRMLA =
SRMMR 1=
$SRMMR2=
SRMOF =
SRMSN =

478

3326

SRMDS = 000032
SRMOT = 000046
SRMEC
1= 000064

S786

;4 3

3291

]

74853
74784
74808
74868
74838
74828

l84¢es

;ggg

4983s

7482
7489

7486
7479
7481
7487
7484
7483

3292

3324

]

3327

3544

SRTRN

020006

2348

2350%

$SAVRE
$SB2D

(0c2l26e0
01701¢

S240#
4379

5248
4431

So49#
4436

S250#%
H4yy4]

S26B8s
4786

$SEC = 000010
$SETUP= 000137

2692%
3380
23lis

2730
3528
2333

2732
3548
2334

2904+
3581+
2336

2998+
3604+
2338

72298

= #ansss |
SRCA
SSAVRE
022402
$5820
$SCOPE

017046
023012

787
SS46 s

4363
2334

5001

§78S

48038
56928

s0e?

$SIZE

031674

a4el

SSUPRS
$SYLAD

016422
023220

4380
§703

46168
5732s

15268
2343
3771
S0eu4

1637
344
4339
5028

180Ss

2381

SSTUP = 177727
$SvPC = 0002e4

SSWR

SSWREG

= 177600
001232

SSWRMK= 000000

2311s
17]11n

§71¢
1548

$SYSNM= 000CiY
$TATUS= 000016

2555+
4004

STEPM = Q00032

57e8s

$TBIY

020014

EL13

SEQ 30180

PAGE 162

5784

18418

SRMDA = 000026

SRMDEB = 00004e
SRMOC = O000SM

10:00

CROSS REFERENCE TRBLE -- USER SYMBOLS

28-NOV-?7 09:4¢2

CIRMIB.PI1

@28-NOV-77

2359

1716

6713
1549

2589
402l

4q7u4s

S03S

SeeH4

S4eY

7286

7264

7ese

7473

7474

4107

4110

4113

4116

4121

4124

4182

Y262

3546

3708

3731

3734

4272

4291

74Tl

3008#
3649%
2340

3009
3679+
2342

30)11#
3707
2343

3712%

3219#
2344

3265#
3733+
2346

739Cs

3291 #
2360

3302+
2392

33264
4945

177
3207
4996
5706

1779
3568
S00S
s708

780
3669
Saie2
5709

7273

gcse?

5693

154]
2346
4946
5S040
S71l4
5688

2838
40e?

43848

1542
2360
495?
5263

g§7¢cl

5689

2840
4029

Scb4s

1543
2361
4970
cESY

5722
g71C

313!
4031

1544
2832

4384

6723
3133
4033

1545
2898
4392
S686

1546
2960
4993
Se87

1847
3046
4994
5688

1548
312S
4395
Co94

3972
4035

7393s
403?

4083

ALTRT]

§73S

5738

g74]

CoRMIRO RMO3-2 DR CPT TST
CRMIB.PLI
28-NOV-"7 09:4¢2

S$TESTN

0Cl2lv

STIMES

001179

STIME

015582

$TKB

STRINT
$TkS
$TKSRVY

STN

00l1ee

STNPUR
$7P8
S$TPFLG
$TPS
S TRAP

$TRAPZ
$TRKk
=

17968

4352

é;ggi

1771»

$TYPDS
STYPE
STYPEC
STYPEX
STYPOC
STYPON
$TYPOS
SUNIT
SUNITM
SUSKR

021520
0203Se
(20564
020632
021316
021332
Q021272
001222
001110
00le34

€363
4635
S136
S161
5303s
5302
52988
17998
17388
1806»

SVECY]
SVECTe

$KWRDM =

D0O001S

s#asss

001260
001262
000004

SXTSTR
(023024
$SGETH= 00000}
SOFILL
02151¢€
SHOCAT=

sansnse

040354

g779

18318
1832
2689
3734s
S697s
49578
S299

3568+

4479

4486

4817

Suyee

§433

S4S0

sS04

§610

48lo+

4832

484S#H

4847

S4yee

S431

2830

c83cs

2896

2898s

2958

360ix
g;ggl

c93cH
3602
S?76s

2933
3643x
-Yoad |

2997+
J64S
S778s

3012#
I743
5779

§773s

5788

4945#
4863

5004
4875

SO40
4898

5683
4912

5710
4916

S106s
5180
Slebs

S200
S1SSs

S766
S1%6

774
S4?

sesses

= 001100

1837

6773
2909+

-Yard
Yeu4?
S143
5163
ST?5
630Ss
§?76
1853

3568
S6l6s
Si68
S168
Sle8

3667

4962
5303

S313

c348s

16978

170Ss

1711

4108

4111

4ll4

71008
;Hg;l

7101
7409

46938

17478

€173

17238

Sp94

1784

6eN3

5176

1728

Y9462

S44?

SY71s

§S02

Sc08

29608

3044

30460

3123

3125

3295

3013
3744
§780

3015+
73918
S781s

3248+

3249

3251+

3334

3335

§782

57838

S784s

S78Cs

S786s

§732#

5733

5738

S742

37718

§721s

432l

501

3769

3771+«

4289

4ery

36698

3669+

S777

2376+

3207

2906#

ceeln

.SAHETAZ

3125%

022606
001166
001173
001164
023272

023326
001104
0OCLl116
017552

STYPEBN=

3046

3566
55936
Si1S7%
S106
5185
S7S18s

023314
000011

2960#

®,

SEQ 016l

.
2898+

32078
559%
1773s
17778
17728
2338

15268

4478

Egg?i

4815Ss
4487 %
48258

000012

F13

30(1046)
28-NOV-?7
10:00
PRAGE
163
CROSS REFERENCE TRBLE -- USER SYMBOLS

E;g?l

2391
17708
4815

STRPAC
$TSTM
$STSTNM
STTYIN

G733

Y4yo7 e

Q017076
001160
(Q}7126

57628
26Sls
3482
g;ggl
]
§756
17368
17SCs
4862

$TRF

MACYll

3218

3292

3301+#

3327+«

3381

3546

3579+

3678»

3708»

3711

1712

17148

17168

17178

1723

17248

17268

1728

1740

7388%

199Ss

33l

2360

36l

4084

5267

S4l17s

S42e

S5e?

S6e36#

7102
7411s

Yy12e

71038
74138

4125

71048
741S»

4564
7105%
TYLTH

4087

4093

S676#

741

49l68

49198

7106
74198

7351
74218

409S6

4099

Hlflg

410S

S742

§?88

2099.

40990

4984

498S

7381w
74238

7399
742Ss

S040

e 14§
TY278

SO8”s
14038
429s

§188

LHOSI
436

CIRMIBO RMO3-2 DR CPT TST

28-NOV-77 09:42

CZRMIB.PI11L

15268

4737

47581

523338

éggg.

6610

6662

g£sC
GETPR

16608
]
1

1880y
ig&gs

4970

1erde

72
2583

16608

3462

1228.

2831

CKCHR

CKDIG
CRNUM
COMMEN

ERROR

SETELG
:8€$Tn
PJSH

RRD30
.

s%ggsx

15268
15268
16608

4246

4a4?

4248

4249

6611

6663

6667

3532

3933

4497

5176

5178

5199

Se33

5239

5363

SS47

3045

§78S

5786

§787

16608

2326

G784

3770

€783

3668

§782

3567

§780

3206

5778

S776

2959

g77S

2897

iggg.

1669

1709

1720

1722

1729

1743

1784

1787

18683

ee2e

283C

15648

ool
)

16608
16608

4135

1839

s792

3123
5245

3208
527S

TRMTRP

57668

5788

TYPDEC

16608

TYPOCT

16608

TYPBIN
TYPNAM
TYPNUM
TYPQCS
TYPTXT

SSCMRE
SSCMTH

§§§EE¢

72¢c3
16608
16608

16608
16608
16608

16608

17418
17418

iggg.

SSSET

57668

SSSK1IP

16608

SSSETM
SSSETU

EQUAT
. HERDE
.SETUP
. SWRH]
.SWRLO

.SACT]
.$APTB

.SAPTH
. SAPTY
$CATC
SCMTH

6390

4138

Sk 1P
SLASH

CROSS

63929

57668

ggggg

SEQ 0162

5665

SETTRA
SETUP

Gl3
PRGE 165
28-NOV-77 10:00
MACY11 30(1046)REFERENC
E TABLE -- MRCRO NAMES

2378¢
23468

15268
1526
15268
15264
15268
15268
16268
15268
15268
1S2en
iS2ts

7345
2362

4136

3566
6353

7349

4137

5777

3667
gyel

3769
(LYl

4336
€49e

4384
-1-Ydrd

4340
8631

4388
Se40

4937
5680

4988
g745

S043
5790

693!

6991

7293

2896

2958
-

3944

5171
721%

5091
5803
-

S05S

5079

o442

283C

289¢

2958

§77%
1550
1527
231!l
1837
16498
1707
178Ss
1718
€169
169!
1741

S776

3044

778

3123

€780

3205

g782

3566

5783

3667

§784

3769

S785

S78¢e

578"

5223
7213

CIRMIBO RMO3-2 DR CPT

CIRMIB.PLL
15268

15068

$SCOP
iégg

MACY1l

30(1046)

28-NOV77 09:42

.
.
R
.SERR
. SPOWE
. SRERD
. $SAVE

TST

1
s
15268
15268
1526
15268

iseg:
{22}
-

TYPC

15268

ABS.

(0403Sv

ERRORS DETECTED:

28-NOV-??

10:00

H13
PRGE

166

CROSS REFERENCE TRBLE -- MACRO NAMES

7
u

4986
SOoMl
geer
5419
5529

;678
2L

-~
- -

000
O

RMD3: CZRMIB, RMO3: CZRMIB. SEQ/NL: MD: MC:CND: TOC /LI : ME -DOC/SOL - CRF=RMO3: RMDRVS . P11,RMO3: CZRMIB. P11

RUN-TIME: 30 20 2 SECONDS
RUN-TIME RATIC:
CORE USED:

WYIK

DOCUMENT PAGES:

SEG 0163

B820/52=15.5
(B%f

163

PRGES)