Digital PDFs

AH-S074A-MC

June 1980

238 pages

Original

11MB

view download

OCR Version

9.9MB

view download

Document:	CZRMVA0 RM05-3-2 RM05-3-2 EXTD DR TS JUN 1980 bw
Order Number:	AH-S074A-MC
Revision:	000
Pages:	238
Original Filename:	CZRMVA0__RM05-3-2__RM05-3-2_EXTD_DR_TS__AH-S074A-MC__JUN_1980_bw.pdf

OCR Text

RN05/3/2

CZRMVAO

RMOS5/3/2

FICHE 1 OF 2

EXT’'D DR TS AH-S074A-MC

worinves

ER{EiHRE
ol

RM05/3/2

C
RMO5/3/2 EXT’D DR TS AH-S074A-M 2

CZRMVAO

FICHE 2 OF

—

T
COPYRIGH
L

CIRMVAQ RMO05/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

15:01:20 PAGE

.REM 3

NO VS WA

PUIRDNININO
N e d —d od h ol o o e

= OO0 ~NO

N L

SEQ 0001

VNS WA= OV

IDENTIFICATION

PRODUCT

CODE:

A(=-SO072A-M(

PRODUCT

NAME:

(ZRMVAO RM05/3/2 EXT'D DR

DATE:

APRIL

MAINTAINER:

AUTHOR:

MIKE LEAVITT

TST

1980

DIAGNOSTIC

ENGINEERING

THE INFORMATION
IN THIS DOCUMENT 1S SUBJECT TO CHANGE W]THOUT NOTICE
AND
SHOULD
MOT BE
CONSTRUED AS A
COMMITMENT
BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS
MAY OTHERWISE
BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT
8?61$EtIA81LITY OF

(C)

CORPORATION ASSUMES
NO RESPONSIBILITY FOR THE USE
ITS
SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY

1980 DIGITAL EQUIPMENT CORPORATION

MACRO v03.01

1
¢
11-APR-80 15:01:20 PAGE 2

—

CZRMVAQ RMOS/3/2 EXT'D DR TST

SEQ 0002

CONTENTS

ABSTRACT

2O 000N

REQUIREMENTS

s ed

2.1
2.2
2.3

EQUIPMENT
PRELIMINARY PROGRAMS
MEDIA

o e e

LOADING PROCEDURE

b aed b e

NO WV

STARTING PROCEDURE

~NOWVNE WA

AN N AN N N NN NI N PO PO NI NI AU NI N

2OV

6.1
4.2
6.3

STARTING ADDRESSES
OPERATOR ACT]ON
PROGRAM ACTION
4&.3.1
CONTROL SWITCH SELECTION
4.3.2
RH11 - RH70 ADDRESS SELECTIO
4.3.3
DRIVE AND PARAMETER SELECTIO

OPERATING PROCEDURE

5.1
5.2

OPERATIONAL SWITCH SETTINGS
CONTROL SWITCH SETTINGS

2OV

ERRORS

6.1
6.2

ERROR TYPES
ERROR RECOVERY

RESTRICTIONS

MISCELLANEOUS

EXECUTION TIME
STACK POINTER
TIMING TEST (TESTS 12 END OF TEST
PROGRAM DESCRIPTION

10.

PROGRAM LISTING

15)

PRINTOUTS

MACRO v03.01

SEQ 0003

THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WiLL VERIFY THAT
THE DISK 15 CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMF,
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTUR ADDRESSING
CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND
RETRIEVAL CAPABILITIES ARE FUNCTIONING.

REQUIREMENTS

2.1

NN PO PO NI PNONIN) — =t b

EQUIPMENT
PDP-11 PROCESSOR
16K MEMORY
TELETYPE

PROGRAM LOADING DEVICE
KWil-L OR KW11-P (THE KW11=-P

NS WN
VNE NN 2OV

N N NN NN

11-APR-80 15:01:20 PAGE 3

ABSTRACT

b b e o e e

NO NS WA = OO0~

NP —

CZRMVAQ RM0S/3/2 EXT'D DR TST

2.2

70 8 DISK DRIVES

PRELIMINARY

(ANY

IS REQUIRED FOR THE TIMING TESTS)
COMBINATION OF RMOS5'S, RM03'S NR RM02'S)

PROGRAMS

RM05/3/2 DISKLESS CONTROLLER TEST,

PART

RM05/3/2 FUNCTIONAL CONTROLLER TEST,

2.3

& 2

PART

2 & 3

TO BE

TESTED HAS A FORMATTED

MEDIA
THE

PROGRAM REQUIRES

DISK PACK.

MODE,

THAT

EACH DRIVE

THE PACK MAY BE

DEPENDING ON THE

FORMAITED

IN EITHER

TESTING REQUIREMENTS.

gi%tsNOT TEST A MIXTURE OF

DRIVES WITH BOTH

16-BIT OR

NOTE

16 AND

THAT

18-BIT

THE

PROGRAM

18 BIT MODE

LOADING PROCEDURE
THE PROGRAM MAY BE LOADED FROM PAPER

TAPE USING THE

OR 1T MAY BE LOADED FROM THE APPROPRIATE ‘'XXDP'
ASSOCAITED LOADER.
THE PROGRAM MAY BE INCLUDED
IF THE PROGRAM IS BEING RUN ON A PROCESSOR WITH
LOADER WILL NOT BE PRESERVED.
THE PROGRAM MUST
WITH 20K OR MORE TO PRESERVE THE 'XXCP' LOADER.
WILL BE PRESERVED IN A 16K SYSTEM, HCOWEVER.

STARTING PROCEDURE

ABSOLUTE LOADER

MEDIA USING THE
IN AN °'XXDP' CHAIN.
16K, THE ‘'XXDP'
BE RUN ON A SYSTEM
THE 'ABSOLUTE® LOADER

CZRMVAQ RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

15:01:20 PAGE 3-1

SEQ 0004

¢
59
g?

|
4.1

eeceescacccccccce-STARTING ADDRESSES

62
63

200
204

NORMAL STARTING ADDRESS
SELECT OPERATING PARAMETERS

214

COMBINATION OF 204 AND 210

67
68

NOTE:
STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE
PROGRAM IS INITIALLY STARTED; THESE STARTING ADDRESSES ARE

210

?g
;5

RH11-RH70 ADDRESSES

TREATED AS ADDRESSES 200 OR éOk RESPECTIVELY ON RESTARTS.,

4.2

73
74
75
76
77
78
79
80
81
82
83
gg

SELECT

OPERATOR ACTION
1.
2.
3.
4.
5.
6.
7.

6.3

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)
LOAD A FORMATTED PACK INTO DRIVE(S) TO BE TESTED
BRING DRIVE(S) TO ONLINE STATE, WRITE ENABLED,
AND LOCKED ON PORT.
LOAD ADDRESS 200.
SET SWITCHES (SEE SECTION 5.)
PRESS START,
THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO
THE SELECTED MASSBUS SUBSYSTEM.
TO INHIBIT THIS TYPEOUT, DO NOT
RESTART THE PROGRAM FROM ANY OfF THE STARTING ADDRESSES: INSTEAD
TYPE A 'CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO
COMMAND ENTRY MODE.

PROGRAM ACTION

88
89
g?

IN AN EFFORT 10O ALLOW CONVERSATION WITH A PROGRAM FOR THE
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING
CONSTRUCTIONS HAVE BEEN ADOPTED.

92
32

NOTEY:

NOTEZ2:

<.><(CR>

100
101
102
103
104
105
}8g

114

THE CARRRIAGE RETURN TYPED 8Y THE USER

<CR> AND WILL BE ECHOED AS A

'CARRJAGE

INDICATED BY

RETURN-LINE

FEED'.

PERIOD
A STATEMENT TERMINATOR: WHEN TYPED AT THE
END OF A LINE (LEGAL ON ALL LINES) IT TELLS
THE PARAMETER STRING INTERPRETER (PSI) THIS IS
THE END OF CHANGES TO THE CURRENT PARAMETER
STRING.

<..><CR>

108
109
}}?

}}%

IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE
NOT TYPED BY THE USER.

PERIOD PER]IOD

THE °"PERIOD PERITMTM' TERMINATOR IS TYPED TO INDICATE
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL
THE START OF TEST EXECUTION.

< O<URY

COMMA
THE

COMMA

!
]S USED AS A SEPARATOR BETWEEN DRIVE

NUMBERS

CZRMVAQ RMO5/3/2 EXT'D DR TST

MACRO v03.01

F
1
15:01:20 PAGE 3-2

11-APR-80

AND TEST NUMBERS.

PR e Xo Yo Yo Yo Yo Yo Yo Yo Yo XV VIV IV IV SV LV IV IV LV . P oB 2l 2 2 I o o SO 3 QR VAV TV TV IOV IOV OO 1 V- TV ] T, N7, VY VY, VT, VT, U1 VT GY U P
P
- OOWNO VNS WA 2OV
NS NN 2OV
NOWNE W
2OV
N
NS WA =OV00 NO VNS NA) = OO0~
N

SEQ 0005

SLASH

d e

</>

D e

A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST
NUMBER, THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER
MODIFICATION.
CONTROL=~-U

<UD

D e

DELETE THE PRESENT INPUT STRING AND START A NEW
LINE. TYPED BY DEPRESSING THE ''CONTROL KEY'
(CTRL) AND THEN STRIKING THE '‘U'’.

D od

<\>

RUBOUT

6.3.1

i e

o el

DELETE THE LAST CHARACTER FROM THE INPUT STRING.
TYPED BY STRIKING THE ''RUBOUT'' KEY. WHICH WILL
BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE
CHARACTER DELETED.

CONTROL SWITCH SELECTION

STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES
WITH SW<07>=1 WILL RESULT IN ENTERING THE "'CONTROL SWITCH

o e

SETTING'' MODE. THUS, ALLOWING THE OPERATOR TO SPECIFY THE
DESIRED STATE OF ''C.SWR',

CONTROL

D e

EXAMPLE #1

)

SET SW<07>=0
C.SWR=000000 / 400..

il el

EXAMPLE #2

SET Sw<07>=0
C.SWR=000000 7/ 220.
C.SWR=000000 /7 220..

i
D o
)
D
sl wanil)
D el e
el el
il i
D
—

SWITCH SELECTION EXAMPLES:

4.3.2

RH11

- RH70 ADDRESS SELECTION

STARTING THE PROGRAM AT 200 WILL RESULT
SELECT OF

THE DEFAULT VALUES OF

IN AUTOMATIC

BUS ADDRESS

(RM(CS1),

VECTOR ADDRESS, AND PRIORITY LEVEL OF THE RH11-RH70.
IF THE DEFAULT VAULE OF THE BUS ADDRESS DOES NOT RESPCWD

(TIMES OUT) WHEN ADDRESSED, AN ERROR IS REPORTED.
AFTER THE ERROR IS REPORTED ONE OF TWO COURSES OF

WILL BE TAKEN:

ACTION

THERE

IS A MONITOR -~ RETURN TO THE MONITOR

THERE

ISN'T A MONITOR -- ASK FOR NEW ADDRESSES

i
D
D
)
i A
il ol
i
D el
D il
)
)
i
el
)
i
el wd cld
D e
) ol el

MACRO v03.01

11-APR-80

1
G
15:01:20 PAGE 3-3

SEQ 0006

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR

TO CHANGE
ADDRESS.
\

THE

ADDRESS OF

THE

RH11

OR RH70 AND THE

VECTOR

ADDRESS SELECTION EXAMPLES

EXAMPLE M1
RMCS1=17670C / 177200.
EXAMPLE #2
RMCS1=176700 / 176300<CR>
RMVEC=254 / 260<(R>
RMPRIO=S5 / 6.

EXAMPLE #3
RMCS1=176700<CR>
RMVEC=254 / 260.
EXAMPLE #4

OO O O O O
O CONP N

—

0O OO V000O00C0 000000000000~ N ~NN~N~N~V~
WA —=2O 0O NO NS NN = OO0~
NS (N

CZRMVAQ RM05/3/2 EXT'D DR TST

RH/RM FAILED TO RESPOND TO ADDRESSING
RMCS1
ERR PC
176300
XXXXXX
RMCS1=176300 /7 176700.

%8(1)

EXAMPLE #5

202
203
204

RMCS1=176700 / 1776\67\6300<CR>
RMVEC=254<CR>
RMPR10=5<CR>

582

RMCS1=176300.

%8;

4.3.3

DRIVE AND PARAMETER SELECTION

209

STARTING THE PROGRAM AT 200 OR 210 WILL RESULT

212
213

STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXECUTED,

g}?

S}g

216
217
218
219
220
221
222
552
ssg
sgg

IN AUTOMATIC

SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN.

AND THE PARAMETERS 1O USE.
n

EACH TEST CONTAINS TWO SETS OF TRACK LIMIT PARAMETERS.
PARAMETERS
LTV, VT OAND ''IT'' ARE USED BY RMO3/2 DRIVES AND PARAMETERS “'LT'',
FT'T AND ''IT''' ARE USED BY RMOS DRIVES. THE PROGRAM DETERMINES WHICH
DRIVE IS BEING TESTED AND SELECTS THE CORRECY SET OF TRACK LIMIT
VALUES.
1F THE PROGRAM IS BEING USED TO TEST A SUBSYSTEM WHICH
CONTAINS BOTH RM03/2 AND RMOS DRIVES, THE OPERATOR MUST CHANGE
BOTH SETS OF TRACK LIMITS IF THE TESTS ARE TO BE MODIFIED FOR
ALL DRIVES TESTED.
4.3.3.1

DRIVE AND PARAMETER SELECTION DESCRIPTION
THE

FOLLOWING

IS A TABLE OF

TERMS USED BY

THE

PSI

CZRMVAQ RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

15:01:20 PAGE 3-4
SEQ 0007

“R"
PO
“LC''
“IC
“FT"'
“LT"
“IT'*
“FT'''
“LI'"
“IT''"
“FS'"
VLS

[p3 1,919 1,9

P ol ol o o
W
—O

229
230
231
232
233
234
235
236
237
238
239

REPEATS (ITERATIONS)
FIRST CYLINDER ADDRESS
LAST CYLINDER ADDRESS
INCREMENT CYLINDER
FIRST_TRACK ADDRESS
LAST TRACK_ADDRESS
INCREMENT TRACK
FIRST TRACK ADDRESS ~
LAST TRACK_ADDRESS
INCREMENT TRACK
FIRST SECTOR ADDRESS
LAST SECTOR ADDRESS

;RMOS PARAMETER
:RMOS PARAME TER
:RMO5 PARAMETER

“PAT"'
"WDX''

PATTERN (USED FOR DATA TEST)
WORD OF PATTERN O WHERE X 1S 1

244
245
246
247
g:g

LI
L
LA
«''D"’
e

ALL
ALL
ALL
THE
THE

%g?

* USED BY THE OPERATOR TO SELECT TEST GROUPS

252
2y3

NOTE:

%g?

SPECIAL CASES OF

Sgg

VW
= OO

NN
N
Lo
ot ol ool

258

266

267
268
269
270
3;1

%;é
275
376

277
278

553

gg}

283
284

TO 16

SEEK TESTS (TESTS 0 - 10)
TIMING TESTS (TeSTS 12 - 195)
ADDRESS TESTS (TESTS 16 = 17)
DATA TEST (TEST 20)
EXERCISEF (TEST 21)

ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN
(PAT) AND WORDS (WDX) SELECTION.
''PAT' WILL BE SELECTED BY
A BIT

(I.e.

001000¢8)=PATTERN 9)

AND ''WDX'' WILL BE

IN OCTAL.

CONTROL CHARACTERS

IF <..> 1S TYPED WHILE A TEST IS OPEN FOR MODIFICATION
(</>) AND OTHER TESTS IN THE ''TEST COMMAND'' STRING

ARE

TO BE MODIFIED,

THE

REMAINING TESTS WILL BE

WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 210,

12-20 WILL BE RUN USING ALL AVAILABLE, ONLINE DRIVES.

WISHES TO SELECT

THE DRIVES TO BE

OR THE PARAMETERS TO BE USED,

TESTED,

THE

UNCHANGED.

TESTS 0-10,

THE OPERATOR

TESTS TO BE PERFORMED,

THE CONVERSATION MODE MAY BE ENTERED

BY TYPING A 'CONTROL C' OR BY STARTING THE PROGRAM FROM EITHER
LOCATION 204 OR 214.
THE PROGRAM WILL THEN RESPOND WITH:

DRIVE(S)=
THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR 1S TO TEST
DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE

THE PARAMETERS (INITIAL CYLINDER ADDRESS. FINAL CYLINDER ADDRESS, ETC.).
THE USER WOULD TYPE '3<CR>' WHICH SAYS 'TMIS 1S THE END OF DRIVE ENTRY®.

THE PROGRAM WILL THEN REQUEST TEST NUMBERS.

THE TRANSACTION APPEARS AS FOLLOWS:

DRIVE (S)=3<CR>
TEST=

CIRMVAQ RMOS5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

15:01:20 PAGE 3-5

SEQ 0008

THE OPERATOR MAY NOW ENTER DESI?E D TEST NUMBERS.
IN THE EXAMPLE,
HE WANTS TESTS 2 THRU 7 AND TES
11 gg HE TYPES 2-7<,> (THE ‘COMMA’
SEPARATES ENTRIES), 11<.><CR> ('P
! ER L
' '"CARRJAGE RETURN' END OF CHANGES, START TEST EXECUT 10
)

IT NOW LOOXS LIKE THIS

DRIVE(S)=3<CR>

TEST=2-7,11.<(R>

IN THE NEXT EXAMPLE, 1T IS ASSUMED THAT THE OPERATOR WISHES TO TEST
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS
FOR TESTS 3 AND 10.
THE

TRANSACTIiON WOULD BE

FOLLOWS:

DRIVE(S)=4<(R>
TEST=
THE

OPERATOR NOW ENTERS

GIVEN BELOW:

TEST

NUMBERS.

THE

TRANSACTION

NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>;
SELECT TESTS &~7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST
11, END OF INPUT <.>.
PARAMETERS FOR TEST

THE

PROGRAM SCANS

TESTS WILL NOT

THE

TEST

3 AND

ALTERED.

NUMBER

TEST

INPUT

10 ARE

AND

TO BE

DETERMINES

CHANGED.

THAT

THE

THE OTHER

(THE

ENTIRE

TRANSACTION

IS REPEATED FOR

CLARITY)

DRIVE(S)=4<CR>
TEST=1,3/4-7,10/11<CR>

b, W

~no NOIN) =

b od el ed

NI () —

DRIVE (S)=4<(CR>
TEST=1,3/4-7,10/11<(R>

OO0 ~NO

LA L U LN N NN N N N

310

THE

TEST 3
R=X

;WHERE

ITERATION

THE NEW VALUE FOR 'R' MAY BE ENTERED. TERMINATING THE ENTRY WITH
A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A

000 ~NO NS N

NN
NN N NN
N
L U L i

<CR>

TERMINATING

THE

ENTRY

TO MOVE

TO THE NEXT

PARAMETER.

DRIVE(S)=4<CR>
TEST=1,3/4-7,10/11<CR>
TEST 3
R=1 /7 <(R>
FC=N /

WITH

<CR>

WILL

CAUSE

THE

PROGRAM

;D0 NOT ALTER-BUT CONTINUE
SWHERE °'N' IS FIRST CYLINDER ADDRESS

THE OPERATOR DOES NOT WISH TO CHANGE

'FC',

THE

OLLOWING OCCURS:

DRIVE(S)=4<{R>
TEST=1,3/4-7,10/11.<CR>
TEST 3
R=1 / <(R>
;DO NOT ALTER THIS LINE BUT

CONTINUE

CZRMVAO RMO5/3/2 EXT'D DR TST
343
344
345

MACRO v03.01

1
J
11~APR-80 15:01:20 PAGE 3-6

SEQ 0009

FC=0 / <CR>

;00 NOT ALTER THIS LINE 3UT CONTINUE

LC=822 /
THE

PROGRAM RESPONDS WITH THE

CYLINDER ADDRESS

WHAT

THE OPERATOR

PREVIOUSLY
ASSIGNED PARAMETER FOR LAST
0
IN THIS CASE USING 822 AS THE EXAMPLE.
THIS IS
INTENDED

TO MODIFY

! AND IS WHY TEST IS3 WAS
TYPED

OPENED.
TO CHANGE THE VALUE TO '20°', THE NEW VALUE
FOLLOWED BY A 'PERIOD' TERMINATOR (<.><(R>),
THE

TOTAL

TRANSACTION AND

RESPONSE:

DRIVF(S)=4<CR>
TEST=1,3/4-7,10/11<CR>
TEST 3
R=1 /7 <(R>
FC=0 /7 <CR>

LC= 822 / 20.<CR>

TEST 10
R-1 /

THE PROGRAM HAS LOADED
PROGRAM IS WAITING FOR

TEST 3 WITH ITS NEW PARAMETERS AND
CHANGES TO TEST 1G'S PARAMETERS.

THE

DRIVE(S)=4<(R>
TEST=1,3/4-7,10/11<CR>
TEST 3
R=1 / <(R>
FC=0 / <CR>

LC= 822 / 20.<CR>

TEST

R=1

THE

OPERATOR

WITH A

TYPES

'PERIOD'

10.<CR>
THE

NEW VALUE

(10)

°'CARRIAGE RETURN'.

AND

TERMINATES

THE

ENTRY

THE PROGRAM NOW L.OADS TEST 10 WITH THE NEW PARAMETERS (TEST
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH:

RETAINS

DRIVE(S)=

SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A

'PERIOD PERIOD',

THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE
CHANGES. THAT IS TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION, A

<,><CR> WILL

CAUSE

THE

TEST

MESSAGE

TO BE

REPEATED

AND

FURTHER

CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE
THE PROGRAM, A 'PERIOD PERIOD' MUST BE TYPED.

IF A SINGLE

'PERIOD'

IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING

CHANGE MODE

TO GO TO EXECUTION.

ENTERED, THE PROGRAM WiLL START EXECUTION IMMEDIATELY.
A °'PERIOD
PERIOD' MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER

4.3.3.2 DRIVE AND PARAMETER SELECTION EXAMPLES

EXAMPLE #1

CZRMVAQ RM05/3/2 EXT'D DR TST
400

402
403
604
405
406
407
408
409
610
3]
612
613
31
615
616

418
619
620

621
622
623
624
625
426
627
628
429

430
431
632
433
634
435

636
637
638
439
440
4461
642
443

MACRO v03.01

11-APR-8B0

K
1
15:01:20 PAGE 3-7

DRIVE=4.<CR>

EXAMPLE #?

;SELECT DRIVE #0 AND MAKE “CHANGES '',"’
;RUN TEST 1 THRU 5 ONLY, USE DEFAULT

;PARAMETERS AND TERMINATE AND EXECUTE.'’

DRIVE=2<CR>

TEST=1=5,6/7/10/<CR>
TEST 6
R=1 / <(CR>
FC=0 7 Y0.<(R>

TEST 7
R=1 /7 S0<CR>
FC=0 / <CR>
LC=822 / 50..<CR>

DRIVE=0<CR>

TEST=S,E.<CR>

651

@53
656
655

656

sSELECT DRIVE #2 AND MAKE CHANGES '',*
;RUN TEST 1-5 WITH DEFAULT PARAMETERS, OPEN
;TEST 6,7 AND 10 FOR CHANGES

;LEAVE 'R' AS IS AND MOVE TO NEXT PARAMETER
:$(E)TTé§(T:.6CYUNDER ADDRESS TO 10, END CHANGES

;50 ITERATIONS, MOVE TO NEXT PARAMETER

;D0 NOT

CHANGE

'FC'

CYLINDER ADDRESS BUT

;TEST 10 IS STILL PENDING AND WILL BE
;RETAIN ITS PRESENT PARAMETERS.

CONTINUE

;SELECT DRIVE #0 AND MAKE CHANGES
sRUN ALL SEEK TESTS AND THE EXERCISER

EXAMPLE #5
DRIVE=1<(R>

TEST=S/D<CR>

TEST O
R=10 7/ <CR>
FC=0 /7 10..<CR>

645

647
448
449
450

;SELECT DRIVE W4, TERMINATE AND
;BEGIN EXECUTION USING PREVIOUSLY ASSIGNED

;PARAMETERS

444

646

SEQ 0010

;RUN ALL SEEK

:THE DATA TEST

TESTS

(OPEN FOR CHANGES)

AND

(WITH DEFAULT PARAMETERS).

;RUN WITH 10 ITERATIONS
s CHANGE FIRST CYLINDER ADDRESS
;AND START EXECUTION
;TESTS 1 = 10 WILL RETAIN THEIR PREVIOUSLY
;ASSIGNED PARAMETERS.

EXAMPLE #6

£
S

;OPEN THE SEEK TESTS (TESTS 0-10)

RZ10./ 100.<CR>

;CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST

R=100 / 1000, <CR>

;CHANGE 'R' TO 1000 ITERATIONS, MOVE TO NEXT TEST

CIRMVAD RMO5/3/2 EXT'D DR TST
457
458
459
460
461
462
663
L64
465
466

467

4«68
469
470

472
(73
676
675
676
77
678
479
480
481
482
483
484
485
486
487
488
489
490
49N
692
693
494
695
696
497
498
499

500
501
502
503
504
505

MACRO v03.01

11-APR-80

15:01:20 PAGE 3-8

R=1 /7 10<CR>
FC=0_/ 50<CR>

TE§$=§22 / 51.<CR>
TE§;1£<CR>
R=1..<CR>

SEQ 0011
;CHANGE
;CHANGE

:CHANGE
;MOVE
;USE

°'R' TO 10 ITERATIONS, GO TO NEXT PARAMETER
'FC*' 10 50, GO TO NEXT PARAMETCR

'LC'

TO 51, GO TO THE NEXT TEST

TO NEXT

TEST

TEST 4°'S PARAMETERS AND START

PROGRAM EXECUTION

EXAMPLE #7
DRIVE=1<(R>

TE?;;?/§6R>

JSELECT AND OPEN THE

1 /7 1000<CP>
FC=0 /7 10<CR>

LC=822 / 10<(R>
1C=64 7/ 0<CR>

DATA TEST

;D0 1000 ITERATION OF TEST PATTERN
;#8 ON CYLINDER 10, TRACK 2, SECTOR &

FT1=0 /7 2<C(R>

LT=4 / 2<CR>
1T=1 /7 <(R>

FT'=0 /7 2<CR>

LT'=18 / 2<i®>
1T'=1 /7 <(R>
FS=0 / &4<CR>

LS=22 / 4<(CR>

;RM0S5 PARAMETER

:RM0S5 PARAMETER
:RMOS PARAMETER

PAT=177777 7 400..<CR>

;RUN WITH PATTERN #8

EXAMPLE #8
DRIVE=1<(R>

;USE

TE?E;?/38R>

;#7,

R=1000 /7 <CR>
FC=10 /7 <CR>
LC=10 /7 <CR>
1C=0 /7 <CR>
FT=2 / <CR>
LT=2 /7 <CR>
1T=1 /7 <CR>
FT1'=0 /7 2<CR>
LT =18 / 2<(R>
1T'=1 /7 <(R>
FS=4 /

<CR>

THE SAME PARAMETERS AS

BUT

IN EXAMPLE

ALSO SPECIFY A DATA PATTERN

(PAT

#0).

:RM05 PARAMETER

;RMOS PARAMETER

LS=4 / <CR>
PAT=000400 /7 401<CR> :RUN WITH PATTERNS #8 & #0 (0O=OPERATOR INPUT)
WD1=165555 / 125252<CR> :FIRST WORD OF PATTERN 0O
WD2=133333 / 52525..<CR> ;SECOND WORD OF PATTERN O

;€<..> START EXECUTION

EXAMPLE #9
DRIVE=0,1,4<CR>

re§g§?-8/<ca>

;TEST DRIVES 0,1, AND 4 IN SEQUENCE

:CHANGE TEST §

CZRMVAQ RMO5/3/2 EXT'D DR TSTY

MACRO v03.01

M
11-APR-80 15:01:20 PAGE 3-9

OO NO VNS

NN~ OOV

NO NS W

2O 000 ~NO N~

WA ANASAINNAA NN NN N UDAOWA WNWUYWNA AN VWA
WA
L AN L L AN AN AN WM AN NI NV PO PO NI NI PO NI NN b b et e et s

SEQ 0012

1..<CR>

5.1

WITH SW<15:0>=0 THE PROGRAM WILL PRINT OUT ON
ERRORS AND CONTINUE IN TEST.
THE

N‘ D000
- JON S L) —

oo (o R ALY LY IV IV IV IV IV LV

SWITCH SETTINGS ARE:

SW<i5>=1...HALT ON ERROR
SW<16>=1...L.O0OP ON TEST

SW<13>=1,..INHIBIT ERROR TYPEOUTS
SW<12>=1,
.. TYPE TEST NUMBER

SW<T1>=1,.
. INHIBIT ITERATIONS
SW<10>=1...RING BELL ON ERROR
SW<09>=1...L00P ON ERROR
SW<08>=1...PRINT ERROR MESSAGE ON LINE PRINTER

SW<07>=1...READ 'C.SWR' SETTINGS FROM TTY
SW<06>=1...INHIBIT TIME REPORTS (TESTS 12-15)
SW<05>=1,. .REPORT ONE ERROR PER SECTOR (TESTS 16 & 17)
SW<04>=1,..INHIBIT WRITES (TEST 20)
SW<03>=1...INHIBIT WRITE CHECKS (TEST 20)
SW<02>=1,..INHIBIT READ AND SOF TWARE COMPARES (TEST 20)
SW<01>=1..
. INHIBIT SOF TWARE COMPARES (TEST 20)
SW<00>=1...PERFORM READ AFTER WRITE CHECK ERROR (TEST 20)
IF

NN[V IV IV IV TV IV TV IV, IV, IV ]

OPERATIONAL SWITCH SETTINGS

THE

563

; CHANGE LAST CYLINDER FROM 822 T0
sSTART PROGRAM EXECUTION.

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11/34)
PROGRAM WILL DETERMINE

THAT

THE

HARDWARE

SWITCH REGISTER

NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER.
THE
'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF THE "SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM

IS AT A HIGHER PRIORITY PROCESSING AN RM05/3/2 INTERRUPT.
'SOFTWARE'

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER

TO THE PROMPT

FROM THE SWITCH ENTRY ROUTINE:

'SWR = NNNNNN

THE

IN RESPONSE

NEW ='

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
JMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT'
' ONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY,

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE
REGISTER MAY BE USED.

THE PROGRAM FINDS ALL

'SOFTWARE'

16 SWITCHES

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
égO:SUAgEéDREGISYER AND THE PROCEDURES DESCRIBED ABOVE MUST
LL

AND

SWITCH

IN THE

OO NN
NN —

VIV IV IV IV IV IV IV 1V }
NNNWNNNNN~

CIRMVAN 5MO5/3/2 EXT'D DR TST

MACRO v03.01

5.2

11-APR-80

N
1
15:01:20 PAGE 3-10

SEQ 0013

CONTROL SWITCH SETTINGS
THE

CONTROL SWITCH SETTINGS ARE

ENTERED THROUGH THE KEYBOARD.

TO ENTER THE CONTROL SWITCH SETTING MODE PLACE

SW<07>=1

BEFORE PRESSING START.

THEN UPON STARTING THE PROGRAM [T

STRING MUST CONSIST OF

WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER
(C.SWR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT
AND A CARRIAGE RETURN.
THE

TO 6 OCTAL DIGITS,

TwO PERIODS

(..),

C.SWR SETTINGS ARE:

L.SWR<15>=0...WRITE PACK BEFORE TESTING (TEST16)
=1...INHIBIT WRITE PACK BEFORE

TESTING

C.SWR<14>=0...NO STALL BETWEEN DRIVE FUNCTIONS

(TEST16)

=1...STALL AFTER EVERY DRIVE FUNCTION

(.SWR<13>=0...USE SPECIFIC STALL TIMES
=1...USE RANDOM STALL TIMES

C.SWR<12>=0...NO INCREMENTING STALLS IN TEST 4

=1...PERFORM INCREMENTING STALLS IN TEST &

C.SWR<08>=0...D0 IMPLIED SEEKS WITH DATA TRANSFERS

=1...00 EXPLICIT SEEKS BEFORE DATA 1RANSFERS

C.SWR<(7>=0...00 READ HEADER AND

DATA COMMANDS IN TESTS 0-7

=1...00 EXPLICIT SEEX COMMANDS IN TESTS 0-7

C.SWR<06>=0...60 HI POWER SOURCE
=1...50 HZ POWER SOURCE

(.SWR<05>=0...ALLOW SOF TWARE TIMEOUTS(ENABLE WATCHDOG TIMER)
=1...INHIBIT

SOFTWARE TIMEOUTS(DISABLE WATCHDOG TIMER)

C.SWR<00>=0...0PERATE IN 32.
=1...0PERATE IN 30.
THE

DEFAULT

CONDITION OF

REFER TO 4.3.1

C.SWR<15:00>=0.

FOR C.SWR SELECTION

P
)
L1,V1,V].§1,
W1 .§}|\ P
O N
) — (o1
ENT. RV PaiV
1 V]

ERRORS

o000 coooococoocoo

627

SECTOR (16 BIT) MODE
SECTOR (18 BIT) MODE

THERE ARE ANUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM.
WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE

1S MADE AND IF

SW<13> IS NOT SET, AN ERROR MESSAGE PERTAINING

TO THE ERROR WILL BE
THE FOLLOWING:

2.
3.

TYPED.

EACH ERROR TYPEOUT WILL

AN ERROR MESSAGE

A DATA HEADER
A DATA STRING

REFER TO THE FOLLOWING SECTION FOR
THAT CAN OCCUR.

6.1

CONTAIN

ERROR TYPES

THE DIFFERENT

ERRORS

CIRMVAO RM0S/3/2 EXT'D DR TST

MACRO vO3. 01

B 2
11-APR-80 15:01:20 PAGE 3-11

THE ERRORS THAT OCCUR

(3)

IN THIS PROGRAM FALL

SEQ 0014
INTO THREE

CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS:

DRIVER ERROR
THESE ERRORS WILL BE DETECTED BY THE RH/RM DRIVER.
THERE ARE TWO CLASSES OF DRIVER ERRORS; THOSE THAT
CAN NOT BE IDENTIFIED IN A MANNER THAT ALLOWS THE

INFORMATION TO BE RETURNED TO A ''DATA PARAMETER BLOCK''

(DPB) AND THOSE THAT CAN. THE FIRST CLASS WILL BE
REPORTED BY ERROR CALLS (EMT'S) 1-5 WITHIN THE DRIVER.
THE SECOND CLASS WILL PASS THE ERROR CODES TO THE
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB.

1.2

NON-FATAL ERRORS

THESE ERRORS WILL BE DUE TO ''DISK'' OR ''DATA'' FAILURES
WHICH WILL BE REPORTED AS THEY OCCUR.
AFTER REPORTING
THE ERROR THE PROGRAM WILL CONTINUE TESTING.

1.3

FATAL ERRORS
THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND
OF ERROR THAT INHWIBITS THE PROGRAM FROM TESTING THE DISK.
THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE
Wil ABORT THE TEST AND GO TO THE END OF PROGRAM,

PROGRAM

ERROR RECOVERY

2.1

FRLTEST

-OR

WAEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED.
THEN DEPENDING
ON nW T4C PROGRAM WAS STARTED IT WILL ASK FOR THE DRiVES AND
ADDRESSES “O%
ESTING OR RETURN TO MONITIR.

.2.2

NON-FATAL EPROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED ANC
THE PROGRAM WILL (ONTINUE IN TEST.

2.3

FATAL ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED.
THE
PROGRAM WILL ABORT THE TEST AND GU TO THE END OF PROGRAM,

RESTRICTIONS

THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 BIT MODE OR IN 18

BIT MODE DEPENDING ON THE SETTING OF 'S.SWR<00>'.
IF 'C.SWR<00>’
1S 0, ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE; IF 'C.SWR<00>
IS 1, ALL OF THE DRIVES WILL BE TESTED IN 18 BIT MODE.
THE PROGRAM

CZRMVAO RMO05/37/2 EXT'D DR TST

MACRO v03.01

¢c

11-APR-80

15:01:20 PAGE 3-12

SEQ 0015

HAS NO PROVISIONS FOR TESTING DRIVES WITH

INTERMIXED PACKS OR TESTING

BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEM,
ACT11

AUTOMATIC MODE ASSUMES 16 BIT MODE.

BEFORE THE PROGRAM 1S STARTED, PROPERLY FORMATTED PACKS MUST BE MOUNTED
ON THE DRIVES WHICH WILL BE TESTED.
THE PROGRAM ASSUMES A
PROPERLY

FORMATTED PACK.

BY THE PROGRAM,

THE

FORMAT

THE

PACK

IS NOT ALTERED

MISCELLANEOUS

8.1

EXECUTION TIME
THE _PROGRAM REQUIRES APPROXIMATELY

15 MINUTES TO MAKE

ONE

PASS WITH

RMO3/2 DRIVES AND APPROXIMATELY 16.5 MINUTES TO A PASS WITH RMOS
DRIVES.
THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-10, 12-20)
AND DEFAULT

8.2

il
el
el
el
)
gl
il

O 00~
W
NP

NNNNNNN~N

8.3

PARAMETERS.

STACK POINTER
THE

TEST

STACK POINTER

TIMING TESTS

(TESTS

INITIALLY
12-15)

SET

1100.

PRINTOUTS

AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL OF THE
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BC TYPED ON
THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE
MAYIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM
TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE
SAME LINE AS THE AVERAGE.

NOTE:

8.3.1

THE PROGRAM STALLS FOR 2 MILLISECONDS BETWEEN SEEK ORDERS,

THIS STALL TIME 1S NOT INCLUDED IN THE CALCULATED SEEK TIMES.
THE SEEK TIMES SPECIFIED ARE POSITIONER MOVEMENT TIMES ONLY
AND ARE NOT A MEASUREMENT OF EFFECTIVE SEEK TIME.

TIMING TOLERANCES

TEST

12 -- ROTATIONAL SPEED TIMES

--TIMES FOR RM05/3 DRIVES--

60 HZ
MINIMUM=16340 US
MAX1MUM=17000 US
NOMINAL=16670 US

50 HZ
MINIMUM=16250 US
MAXIMUM=17090 US
NOMINAL=16670 US

CIZRMVAD RM05/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80 15:01:20 PAGE 3-13

7642
743
744
745
7646
747

SEQ 0016

==TIMES FOR RMO2 DRIVES=--

60 Kl

MINIMUM=24500 US
MAX1MUM=25500 US
NOMINAL=25000 US

50 W2

MINIMUM=24370 US
MAXIMUM=25630 US
NOMINAL=25000 US

TEST 13 == ONE CYLINDER SEEK TIMES
MAX1MUM=7000 US
NOMINAL=6000 US

TEST

14 ==~ ACCESS TIME MEASUREMENT

MAXIMUM=32000 US
NOMINAL=30000 US
4.

TEST

15 == MAXIMUM SEEK

TIMES

MAXIMUM=57000 US
NOMINAL=55000 ULS

8.3.2.

TIMING TESTS PRINTOUT

EXAMPLES

EXAMPLE M
ROTATIONAL SPEED TIMES

MIN=16670 US

AVG=16680 US

10 SEEKS TIMED

ONE CYLINDER SEEK
* FORWARD

MIN=5350 US
MAX=6920 US

TIMES

AV6=5550 US

821

MIN=5140 US
MAX=5960 US
AVG=5430 US

822 SEEKS TIMED

* REVERSE

SEEKS TIMED

ACCESS TIME MEASUREMENTS
* FORWARD

MIN=27770 US
MAX=28640 US
AVG6=28230 US
* REVERSE

MIN=27990 US
MAX=28550 US

128 SEEKXS TIMED

CIRMVAQ RM05/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

15:01:20 PAGE

3-14

SEQ 0017
AVG=28220 US
MAXIMUM SEEK
* FORWARD

i e

[V Yo RNTo SV, P JVIT, S P

TIMES

MIN=69990 US
MAX=51980 US
AVG=51010 US

128 SEEKS TIMED

MIN=48120 US
MAX=50650 US
AVG=49340 US

128 SEEKS TIMED

+ REVERSE

EXAMPLE #2

d ol aid el e

[o Lo To To Yo Yo To To To. ]

128 SEEKS TIMED

ROTATIONAL

SPEED

MIN=16670 US
MAX=16690 US
AVG=16680 US

TIMES

10 SEEKS TIMED

ONE CYLINDER SEEK TIMES
* FORWARD
MIN=5470 US
MAX=7940 US
3 ABOVE THE MAXIMUM OF
AVG6=5830 US
821 SEEKS TIMED

821

7000 US

* REVERSE

MIN=5040 US
MAX=5970 US
AV6=5330 US 822 SEEKS TIMED
ACCESS TIME MEASURMENTS
* FORWARD
MIN=29730 US

MAX=32620 US
AVG=30320 US
* REVERSE

MIN=28620
MAX=32230 US

AVG=32800 US

MAXIMUM SEEKX
* FORWARD

32000 US

128 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

32000 US

TIMES

MIN=57510 US
MAX=57240 US
AV6=57020 US

128 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

57000 uS

MIN=57050 US
MAX=57550 US
AV6=57210 US

128 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

57000 US

* REVERSE

8.4

73 ABOVE THE MAXIMUM OF
128 SEEKS TIMED

END OF

TEST

WITH ALL SWITCHES ON A ''0'" AN ''END OF PASS'' MESSAGE wiLL BE
TYPED AT THE COMPLETION OF

TESTING A DRIVE AND THE ''END OF

TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED.

TEST"

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

F
15:01:20 PAGE

2
3-15

SEQ 0018

856
857
858
859
860

863
864
865
866
867
868
869
870
871
872
873
g;g

PROGRAM DESCRIPTION

THIS PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL.
TESTS 0-7 & 11 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION
FROM THE HEADER, USING A '"'READ MEADER AND DATA'' COMMAND, AND
THEN CHECK THE INFORMATION FOR VALIDITY. THUS, INSURING
THE SEEXK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL MEASURE
THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE ACCESS TIME,
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE
TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND
TRACK ADORESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES
THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL.
AND TEST 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO
SYSTEMS.

876
877
878
879
880
881
882
883
884

THE PROGRAM WILL START BY IDENTIFING ITSELF AND DETERMINING ALL
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH
THE LOWEST NUMBERICAL DRIVE AND PROCEEDING IN SEQUENTIAL ORDER.
ALL OF THE DRIVES WILL BE TESTED. ONE PASS THROUGH THE TEST
SEQUENCE (TESTS 0-10,12-20) WILL BE PERFORMED ON EACH DRIVE BEFORE
MOVING TO THE NEXT DRIVE IN SEQUENCE.
DRIVE TO BE
TESTED WILL BE TYPED AT THE BEGINNING OF EACH PASS, AN '‘END
OF PASS'' MESSAGE WILL BE TYPED AT THE COMPLETION OfF EACH PASS,
AND AN ''END OF TEST'' MESSAGE WILL BE TYPED AFTER TESTING ALL

887
ggg

REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS
OF EACH TEST.

ggg

gg?

DRIVES.

9.1

TEST 0 = RECAL/SEEK TEST

892
893
894

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE
COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER ''LC''.
A1
THE COMPLETION OF BOTH COMMANDS, STATUS INDICATIONS ARE

ggg

THE PARAMETERS USED BY

ggg

CHECKED TO ENSURE NO ERRORS OCCURRED.
THE

TEST ARE

899
900
901

R
LC
FT

200
822
0

903
904

902

382

907
908

909
g}?

F1°*

9.2

TEST

- SEEX/SEEKX

GIVEN BELOW:

TEST

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK
CYCLE TO '"LC'', "LT', ""LS'" FOLLOWED BY A REVERSE SEEK CYCLE

ECT, CPTY, 'FS''.
AT THE COMPLETION OF EACH SEEK, THE PROPER
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

711-APR-80

9.3

TEST

3-16

PARAMETERS USED BY

2 -

SEQ 0019

THE

TEST

ARE

GIVEN BELOW:

100
0

NNt
bt =YY

256

OCOOOOO0O

THE

15:01:20 PAGE

N N N N

)
il
cad
i
el
—

MACRO v03.01

OO0
~NO N

LelielVelVello
Vo Vo)

CIRMVAQ RMOS5/3/72 EXT'D DR TST

INCREMENTAL SEEK

TEST

THIS TEST WILL COMMAND FORWARD SEEK

CYCLES

WHEN THE RESULTANT

(NC)

CYLINDER ADDRESS FROM ''FC'' TO "'LC'' BY THE
CYLINDER ADDRESS

TO ADVANCE

THE

INCREMENT ‘'IC''.

EXCEEDS

“LC"" REVERSE SEEK CYCLES ARE INITIATED, STARTING
AT THE LAST LEGAL ''NC'' AND DECREMENTING BY '‘I1C''

UNTIL *'NC'' IS LESS THAN ''FC''. AT THE COMPLETION OF
SEEK COMMAND THE PROPER INDICATORS ARE
ENSURE PROPER OPERATION.
THE

PARAMETERS USED BY

R
FC

9.4

TEST

822

GIVEN BELOW:

1
0

TEST 3 - STEPPING SEEK TEST
THIS

TEST

WILL

COMMAND SEEK

8,16,32,64,128,256 AND 512.
COMMAND THE PROPER
OPERATION.
THE

R
FC

1C
F1
F1°
FS

TEST

CYCLES

THE

TO CYLINDER O . '2l‘l

AT THE COMPLETION O F

INDICATORS ARE

PARAMETERS USED BY

9.5

ARE

EACH

1
0

1C
F1

F1°*

THE

EXAMINED TO

TEST

EACH SEEKX
EXAMINED TO VE Rl FY PROPER

ARE

GIVEN BELOW:

8
0

512

1
0
0
0

& - OSCILLATING SEEK

TEST

THIS TEST WILL COMMAND SEEK CYCLES FROM "'F('' TO ''NC'' AND BACK
T0 "'FC''.
"'NC'" STARTS AT "'FC'' AND INCREMENTS BY ''IC'' UP TO CYLINDER

“LC'', THEN 1S DECREMENTED BY ''IC'* BACK TO CYLINDER “'F(C''.
COMPLETION OF

EVERY

SEEX COMMAND THE PROPER

INDICATORS ARE

AT THE

CZRMVAO RM0S/3/2 EXT'D DR TST

]

MACRO v03.01 11-APR=80 15:01:20 PAGE 3<17

970
9N
972
973
974
975

SEQ 0020

EXAMINED TO ENSURE PROPER OPERATION.
THE

FOLLOWING PARAMETERS ARE
R

IC
F1
F1°
)

9.6

USED BY

THE

TEST:

822

1
0
0
0

TEST

5 - CONVERGING/DIVERGING SEEK TEST

THIS

TEST WILL

CAUSE

THE

DRIVE

TO EXECUTE

FORWARD AND REVERSE

SEEKS FROM “'NC1'' AND ''NC2'' RESPECTIVELY, 'NC1' WILL BE INCREMENTED
BY "'IC'' AND ''NC2'' WILL BE DECREMENTED BY “'IC'' UNTIL "NC1''
IS
GREATER THAN THE INITIAL VALUE OF ''NC2'' AND ''NC2'' IS
LESS THAN THE INITIAL VALUE OF ''NC1''.
AT THE COMPLETION OF
EACH SEEX COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.
'NC1'' AND ‘'NC2'' DEFAULT TO
“FC"' AND "'LC'" RESPECTIVELY.
THE

FOLLOWING PARAMETERS ARE
R
FC

LC
IC

9.7

TEST

THE

TEST:

1
0

F1°*

USED BY

822
1

6 = SERVO ADDRESSING LOGIC

NOISE

GENERATOR

TEST

IN THIS TEST A SEEK 1S DONE TO CYL ''NC'' THEN A SEEK TO
NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5.
NOW ''NC'' IS UPDATED
EXCEEDED BY ANY OF

1S "FC"'.

PROPER

9.8

INITIAL VALUE OF

7 - RANDOM SEEK

THE

PROPER OPERATION.
TEST:

TEST

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS

'LC'.

°"'NC'’

OCOO—NO
—

= (YOO

FOLLOWING PARAMETERS ARE USED BY

TEST

THE

INDICATORS ARE EXAMINED TO ENSURE

TV
"D

THE

THE ABOVE VALUES.

AT THE COMPLETION OF EACH SEEK COMMAND THE

PORNINONINININ)
=t =t et et et el b ek b s OO (=}
OB WN—=OOVONO
WV WN=-=O0 oo

e
i
e
D el
i e
aeh
e
i
D
i e
e
e
s
e
—

[eo]eleldlelolelelolelelelelelalelale
o]

BY ''IC'" AND THE ABOVE SEQUENCE IS REPEATED UNITL "'LC'" IS

AFTER EACH SEEK, THE POSITION OF

THE DRIVE

°‘FC’

IS VERIFIED BY

READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRA(K.
THE

TRACK ADDRESS

INCREMENTED FOR EACH SEEK

SO THAT

VERIFICATION

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

1
2
15:01:20 PAGE 3-18

027
853

OF POSITIONING OCCURS USING EACH HEAD.
BETWEEN PARAMTERS °*FT' AND 'LT'.

TRACK ADDRESSES ARE

8%?

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:

INTREMENTED

R
FC
LC
FY
Ly

5000
0
822
0
4

038
039
040
0461
042
0
044
045
046
047

037

F1°*

9.9

~
W

049

10 - SERVO SETTLE DOWN TEST

WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK=-AHEAD
REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING
INTO
POSITION.
THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND
FOR THAT SECTOR. ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM

051
052
053
822

MAY NOT BE ADJUSTED CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR
THAT A PACK WITH MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.

056
057

THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW
HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS.
THE NECESSARY TIME

823

ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE.

058

DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY

THE FOLLOWING PARAMETERS ARE USED BY THE

D
e
e
e
o
i
el
i e
D
D
el el
e
e e
i
e e

RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS °'NC1°' AND 'NC1+]C°
(*NC1" STARTS AT VALUE °'FC').
AT THE COMPLETION OF 1000 (10) SEEKS,
'NC1' IS INCREMENTED BY VALUE 'IC' AND THE SEQUENCE IS REPEATED.
THE TEST IS COMPLETED WHEN °'NC1' HAS BEEN INCREMENTED BEYOND 'LC°.

82}

063
064
065
066
067
068
069

8;?

072
8;2

R
FC
LC
1C
FY
F1°

9.10

TEST 11 - ALL SEEXS TEST

—

“[57-

1
0
822
100
0
0

THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER
TO ALL OTHER CYLINDERS.

075
076
077
078
ggg

BEGINNING WITH CYLINDER 'FC', THE TEST SEEKS TO EACH CYLINDER
BETWEEN "FC' AND ‘'LC' FROM CYINDER 'FC'.,
THE BEGINNING CYLINDER
ADDRESS 1S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER
ADDRESS AND ALL CYLINDERS BETWEEN °'FC' AND 'LC'.
THE SEQUENCE
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.

8%}

THE FOLLOWING PARAMETERS ARE USED BY THIS TEST:

TEST

THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT
THE DRIVE 1S ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.

i
e
s
el
i
e
D
D o
e
e
el
e
e
D e
i
D e
e
e
B s
b il
il
D et

032
033
034
035
036

D i

SEQ 0021

083

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

15:01:20 PAGE 3-19
SEQ 0022

1084
1085
1086
1087
1088

LC
1C
F1

F1°
)

9.1

TEST

822
1

0
0

12 - ROTATIONAL SPEED TIMING TEST

THIS TEST WILL START

A SEARCH TO CYLINDER

CHECKED TO ENSURE

IS WITHIN TOLERANCE:

'FC',

TRACK

'FT°,

RM0S5/3:

OO0OO0OO—

B
I

TEST:

13 - ONE CYLINDER SEEK TIMING TEST

il
b =
il i

CYLINDER

'LC', THEN REVERSE SEEK TO CYLINDER

THE

USES

°'FC'.

THE

TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE 1T DOES NOT
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.
THE TIME MUST BE LESS THAN 10MS.

) =l
) )

£S5 WU AN N L

THE

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE
CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE

= i cnd ) el
) D ol S e
) cod wad =
) = and e
) e
) D el il il el
il e amd
) ) )
il
i
—
—

) ) =l
il el D
=l
D
D e
D il
D e
D e

TEST

]

FOLLOWING PARAMETERS ARE USED BY
TN

THE

25.00 MS/REV ¢+ OR - 2% IF 60HZ
25.00 MS/REV ¢ OR - 2.5% IF SOHZ.

D el i
D d il

RMO2:

16.67 MS/REV + OR - 2% 1F 60KHZ
16.67 MS/REV ¢+ OR = 2.5% IF SOHZ.

(7B
P T

i
s i = add wd
el o
) D el e

N AN AN NN N NI NI NI NI NINININ) b et ol ik e e e o et 2 O O O O O OO OO0
- JO VS LW =2O OB NO VS WMN=O OO NO VWA =0
OVW~NON
N — OV

SECTOR 'FS'. AS SOON AS THE INTERRUPT OCCURS, THE GC BIT IS
SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 1S
REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED AND

TEST

R
FC

LC
9.13

THE

FOLLOWING PARAMETERS:

|
0

822

TEST

14 - ACCESS TIME MEASUREMENT

THIS

TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER

CYLINDER

°'LC',

CYLINDER 'FC'.

THEN A REVERSEK FROM CYLINDER

'LC'

°'FC'

BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY

ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT.

THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL
OF 256 SEEKS).
THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MsS,
THE

TEST

USES THE

FOLLOWING PARAMETERS:

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80 15:01:20 PAGE 3-20

NNNIWAWVMWVWNMAWNWNES S SO

FROM CYLINDER

°FC'

CYLINDER 'LC', THEN A REVERSE SEEX FROM CYLINDER 'LC' TO
CYLINDER 'FC'.
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE
THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK
TIME.

THIS SEQUENCE

A TOTAL OF

54 MS,
THE

TEST

USES THE

128 TIMES

(FOR

THE MAXIMUM SEEK TIME MUST BE LESS THAN

FOLLOWING PARAMETERS:

LC
TEST

IS REPEATED

256 SEEKS).

R
FC

1
0

822

16 - SECTOR ADDRESSING TEST

THIS TEST WRITES DATA

INTO ALL

SECTORS OF

THIS REWRITE AND WRITE

CHECK PROCEDURE

TRACK ''FT''.

THE

DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR
BEING WRITTEN.
A WRITE CHECK IS PERFORMED, THE BUFFER IS
CLEARED (TO 177400) AND THE DATA IS READ AND COMPARED.
THEN SECTOR 0
IS REWRITTEN AND SECTORS O - 31 ARE WRITE CHECKED.
THEN
SECTOR 1 IS REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED.

9.16

IS CONTINUED UP THROUGH

AND WRITE CHECK SECTORS 0-31.

THE

FOLLOWING PARAMETERS:

USES

TEST

THE

C
1
1

TEST

OO
—

REWRITE SECTOR 31

"N
D

17 = TRACK ADDRESSING TEST

THIS TEST WILL WRITE DATA IN THE

FORM OF

TRACK ADDRESSES

IN CYLINDER ''FC'' SECTOR ''FS'' OF EVERY TRACK WITH EACH TRACK

GETTING ITS OWN TRACK ADDRESS.

A WRITE

CHECK

THEN PERFORMED ON EACH TRACK

INSURE

THE DATA IS VALID.
THEN TRACK 0 IS REWRITTEN AND TRACK 1
THROUGH LAST TRACK 1S WRITE CHECKED.
THEN TRACK 1 IS
REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED.
THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING NEXT TO
LAST TARCK AND WRITE CHECKING LAST TRACK.
THE

TEST

USES THE
balasl
-]

NOWNH NN = OV

OOV OVOV OO VOO

15 - MAXIMUM SEEK TIMING TEST

O 000 N0 VNS NN = O 000 NN NS (NN = OO 00 NO NI

N NNNNNNNNNOOCOCOCOTO OO

)
i
D il el il il il
) e e
il el el
il
i

TEST

255

THIS TEST WILL COMMAND A FORWARD SEEK

AOIOO

NO VNI W~ D00 NN

S
D il ol
)
D e
D i D i
D el D D

D i o
D e e

il ) i Bl D
il el i D el

il
D

D ol
D e

D ol D
D ) i

D D el
D il e

D ) e
D i e

D D
D i

D
D

D i
D s

9.15

D i
il e

P o

NN —

LC
9.14

— d el ol il el
— e e
s i e

|
0

D il il il il sl e
D o el e i oD s

SEQ 0023

C
S

9.17

FOLLOWING PARAMETERS:

TEST 20 - DATA TEST

0
0

weMQJlleeNelloeeOllleeeollOelaoOollleoollloeOalleleoallleeOaollleeelooOell0ololalelooOellleeoellloNOesll]Oeell)seON)]RWbI|l-—l—VIRVLvNOrIVoW—OVIIOVOOYArVIV[rTAV—OoINIO[arWVO—NNaOlaAr0A—~lNrNVmAIO—NmIIrAN0lOVNAlI~0ANlAI1|A1N€-l -v— —ab3- o<-—W-|s9+-o2—a(yo_V-oOY

6OOOIee—lOM0erOYlTeVOOleOe0lMOerOl0eOeO9lte7lM0o]08lrOeM9ole—OO00lNosM1lIraO0T2olaOO3oMleM0o4lOOre5l06||G[N A==718BON0OO9T1o00NdO01X0OO01e2VAQr3NO0e14CeOm5N1o0rA6Oo—Nm7M2ITr8A0NNO9d2I00AeN0M1Ot2VA2r’tIM03N2eN4I|1I|5A0A2=6IJ7J~V3I8UD-oU—9I~3L0MX1EO—w3eO2NkNwWI3>3iOOe4—536XW—roa mF7‘~Oe84OguMD>wI=4SoB.Xa0—48E—a4X9DYw4E)04

NoORVLOI]aNalNlOAM"OaMaOl0OR1aOaaNMOll0R'aWOMMalODla0lA2aMOO1l"a0DAlOYNOaOOlaAa1OlNYa0MORlaOi1MVaClSaaOOlOlvMsaMlNaNODaOaAl—l’eaNMlaRIlOOaOKV|[§|lO0eoKlBNMOOaMIYUlOWAaQN0NLMAOoMNl0ITNaOMOaW0WlOoNVaNl0IMaCUlNINOoTaM0lMWIIOaUlMNNOaCISOl—ODTMIWaAlMaONNIClSIOlLMa—VeNMNeIOVIALANeB11I1€WO1ILoi—J"dow%wl[u+owapE—WOw<oT=ItOXxDTWwaAWWwOXWYDZOUeIlDUIoLWy[)D~DNY—V(]IV—Y—V.

YRoOO{=NANelWVMl=NDOPAAe]L0=MVllN—ONAaeeYAllMOroDaAa—N0llVMY=RONeoOYWolMD—N=lAoNRelM0VS—lOaAAgOYelMlAeNOgalVM~lSaOOAoGNeYlNMVle—AOeIolVeMNeRTOoG]lVYOMeiAI—MRe]J=RNYdNMGOvi—NeOVNGlOM—eRV¢sOMlOBNGOYeMWRl]N)[§)|1|G|)BW—=<(qsA——SV4OOONAt—].MWlgodVNOAOa—YROkN—lYMMooNRGAaAIO0MNkV—SNgMrNYOM—RAaVLNIaNOSo(OVAON—MolMdRYMgVRrNlOOgoa—VNMoMAO—YNMdlVaC_OoMlIN—alOaVMOoLN0lGtNdOaD—OOdagaNlNLMNMaeOoYtoMaAOMAllOerOoNeMlAtNlelBIIOI1P1||[O—g[l<glGWOwaX1)Pvixw<wye&IO-(e-Vu0vWaPaZcCxxO.—D42uGO[gSI«OioaWwBreOPow—aRsMnwXO=cE]wGnV[adw&x~al0WegYPVY>o«4WUoXSN-4o[L<V>=OWLr—OoIGA-—O)WoJX.P«a=Jb+0L"o<W)XOZADXx—.Y_rPw—I]w>4t—o[—[«o
\12222222222222222222222222 e—QA|NoBl.T=-rp—OrMI~—rOk-—mIrT—Nr—LasReonlt’a[la<OAl-a"lllaa’ao«lll’loa EoN*BaOd[1eELXdli—eZawl7tl]WdIe>OWAReaeYZedO|IBQvVM-OWMINTMNUP0tO0OV0OOOC O“.1NWL—GODZeAwMIOAw4VNXNIMX0OIMTOO|ECW41NM’MOONM.0NMNM, A8NOIr—ARow1vMWwWNa«JwMmAS[4uIXMN0M<i1OT-.V—-,n=NXAO_—|AI-XNo=IRTuTA—MIMA=IEL ADwIONI€O|W<DVXN>NINiLUVVINAN OAMYa-I|NMW1RVCON.~ICSVC RAOI7|LxFNN-oNAMRwAMR—MoAMO
ot|«L~&wXxwWwMoOaE DTWENxWilaExoVu-.

MACRO v03.01
N =APR-80
15:01:20 PAGE

[Wgv)L&IaVySvT=4[Y,eVi17r4de]al O+LE—>r—«TwWw x«<EXx1LZIr—X-}4rx—B_wWOwrOivym

)QeX « . X,

CZRMVAO RM05/3/2 EXT'D DR TST
3-21

2
SEQ 0024

-OwrX—xI«a [=LKQMo]W

vP=

—

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

M2
11-APR-80 15:01:20 PAGE 3-22

— OO0 00~ O

THE

TEST USES THE
-

IC
F1
LT
IT

N
N I

9.18

TEST 21

FOLLOWING PARAMETERS:
1
0

F1°*

FS
LS
PAT

LT
1T

822

64
0
4
1

18
1

1
0
177777

-~ RANDOM ADDRESS AND RANDOM PATTERN TEST

STARTING AT "'FC'' AND GOING THROUGH "‘LC'' THE DISK PACK

NN = OO 00~

R
FC

NN = O OO0~

1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR
FOR THAT SECTOR.
THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ''R'' TIMES

"R'* DEFAULTS TO 20,000.
1)

O NS

D e

cud

D A

D e

el el e

)

-l

il il

D e

oD il

D ol o

DSOS DS
1, 1, T,F1,NT,87 Y, N7, N1,V1 N1, N1, VT V1, N7, ¥1, U7, N7 N1, ST, V] VT, ST,N7,81,87 . ¥1. N1 V)
O0OOCO OO0 NN NN NNNNNNOCOCOCOOTOOOO
NN

SEQ 0025

GENERATE A RANDOM ADDRESS

WRITE A RANDOM PATTERN AT THE ADDRESS
GENERATED IN 1.
GENERATE A RANDOM ADDRESS
READ

THE

SECTOR AT

GENERATED IN 3.

THE

DO A SOFTWARE CHECK OF

ADDRESS

THE DATA READ

6)
7)
8)

%32

THE TEST USES THE FOLLOWING PARAMETERS:

D el

)

288
289
290
291
292

10)

el wedd ol Sl el

i el el

%gz

—

) e

el S

297
298
%gg
%85
303
304
305

gg?
ggg
310
m

DO A WRITE CHECK OF THE DATA WRITTEN IN 2

R
FC
LC
9.19

IN 4.

D0 A WRITE CHECK OF THE DATA WRITTEN IN 2
GENERATE A RANDOM ADDRRESS
READ THE SECTOR AT THE ADDRESS
GENERATED IM 7,
DO A SOFTWARE CHECK OF THE DATA READ IN 8

20000
0
822

TEST 22 = ACCESS TIME ADJUSTMENT TEST
THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 255 TO ALLOW THE
OPERATOR TO ADJUST THE ACCESS TIME ON AN RM05/3/2 USING THE
DDU.
THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS

SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED.
THE

TEST USES THE FOLLOWING PARAMETERS:

R
tC

5000
0

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80

N
2
15:01:20 PAGE 3-23

NS (0
0D~ O

e
e

il e

il
el

el
el

i
ol

el
—

—

N AN AN NN NN

SEQ 0026
LC

10.

PROGRAM LISTING

255

CZRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80 15:01:20 PAGE &

3
SEQ 0027

‘2

;PROGRAM REVISION #001

JTITLE

CZRMVAQ RM05/3/2 EXT'D DR TST

;*COPYRIGHT (C) 1980
;*DIGITAL EQUIPMENT (ORP.
: *MAYNARD, MASS.

01754

; *PROGRAM BY MIKE

LEAVITT

* %

;*TH]IS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
; *PACKAGE (MAINDEC-11-DZQAC-C4), 1980.
1R

.SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

.
;e
o
v
o
.

15
14
13
12
10
9

.SBTTL

USE

eg
e
——

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
TYPE TEST NUMBER
BELL ON ERROR
LOOP ON ERROR

OPERATIONAL SWITCH SETTINGS

48
49
50
51
52

53
54

gz
gg

SWITCH

200

eweeeems

o
o
o
i*
i
i

15
14
13
10
9
8

o
*

4
3
2
1

o
or
o
o
o

USE

S eeoecocoseooneoeocaweossss

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
PRINT ERROR MESSAGE ON LINE PRINTER

7
6
5

.
.SBTTL

200

READ 'C.SWR® SETTINGS FROM TTY
INHIBIT TIME REPORTS (TESTS 12-15)
REPORT ONE ERROR PER SECTOR (TESTS
INHIBIT WRITES (TEST 20)
INHIBIT WRITE CHECKS (TEST 20)

16 8 17)

INHIBIT READ AND SOF TWARE COMPARES (TEST 20)
INHIBIT SOF TWARE COMPARES (TEST 20)

PERFORM READ AFTER WRITE CHECK ERROR (TEST 20)

(CONTROL SWITCH SETTINGS

SWITCH
s eoeronn

Soeon

61
62
63

I
I
o

0
1
0

WRITE PACK BEFORE TESTING (TEST 21)
INHIBIT WRITING PACK BEFORE TESTING (TEST 21)
NO STALL BETWEEN DRIVE FUNCTIONS

65
66
67
68
69
70

i
r
o
*
o
o

0
1
0
1
0
1

USE SPECIFIC STALL TIME
USE RANDOM STALL
NO INCREMENTING STALL IN TEST 4
DO INCREMENTING STALL IN TEST &
DO IMPLIED SEEKS WITH DATA TRANSFERS
DO EXPLICIT SEEKS BEFORE DATA TRANSFERS

71
72

o*
v

12
8
7

STATE

0
1

292020

SOen

oo One

USE

STALL AFTER EVERY DRIVE

e oo

. e

FUNCTION

DO ''READ HEADER AND DATA'' IN TESTS 0-11
DO EXPLICIT SEEKS IN TESTS 0-11

CIRMVAO RMOS/ 3/2 EXT'D DR TST

CONTROL SWITC HS ETTINGS

MACRO v03.01

11-APR-80

o
.
LSBTTL

104000

000004
000011

SEQ 0028

A
o
M
A

001100

15:01:20 PAGE &-1

0
1
0
1

0
1

60 Wl
50 42
RUN WATCHDOG TIMER
INHIBIT WATCHDOG TIMER

TEST DRIVE(S) IN 32. SECTOR (16 BIT) MODE
TEST DRIVE(S) IN 30. SECTOR (18 BIT) MODE

BASIC DEFINITIONS

J*INITIAL ADDRESS OF THE STACK POINTER #++ 1100 wev

STACK
ERROR
SCOPE

= 1100
= EMT
= ]oO7

:;BASIC DEFINITION OF
;sBASIC DEFINITION OF

J*MISCELLANEOUS DEFINITIONS

(R
CRLF

=15
= 200

Sgu ps

=
=

:.;CODE

FOR HORIZONTAL TAB

;;CODE FOR LINE

FEED

177776

; ;PROCESSOR STATUS WORD

::;CODE FOR CARRIAGE RETURN
;;CODE FOR CARRJAGE RETURN=-LINE FEED

STKLMT

= 177774

;s STACK LIMIT REGISTER

ODISP

= 177570

s s HARDWARE DISPLAY REGISTER

PIRQ
DSWR

= 177772
= 177570

;;PROGRAM INTERRUPT REQUEST REGISTER
; sHARDWARE SWITCH REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

000004
000005
V00006

000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000
040000

020000
010000
004000
002000
001000
000400

ERROR CALL
SCOPE CALL

RO
R1
R2
R3
R&
R5
Ré

R7
SP
PC

=
=
=
=
=
=
=
3
=
=

X0
X1
X2
X3
X%
X5
16

¥4
%6
X7

; sGENERAL
: sGENERAL
: sGENERAL
: sGENERAL

REGISTER
REGISTER
REGISTER
REGISTER
:1GENERAL REGISTER
s ;GENERAL REGISTER
;sGENERAL REGISTER
s sGENERAL REGISTER
;:STACK POINTER
; ;PROGRAM COUNTER

J*PRIORITY LEVEL DEFINITIONS

PRO
PR

=0
= 40

;:PRIORITY LEVEL O
;:PRIORITY LEVEL 1

PR3

= 140

;:PRIORITY LEVEL 3

PR?2

PR&
PRS
PR6

PR7

= 100

= 200
= 240
= 300

= 340

se"'SWITCH
SW15
=
SWi4
=
SW13
=
Swie
=
SWi
=
SW10
=
Sw09
=
Sw08
=

:sPRIORITY LEVEL 2

::PRIORITY LEVEL &
::PRIORITY LEVEL S
;:PRIORITY LEVEL 6

:;PRIORITY LEVEL

=P 2N =N
OOOOCO
(=l

00000

e e R R

]

O=NINSITWVOVOOVOOOOOOOOOO
= —
oo
UBUBUBIBIUE =21, VIV P RV, Te B NT.~IVe T P VIVVY V)
DOomDOWOmDoDD®

20000

10000
4000
2000
1000
400

I
W
W
N

W
)

[
)

eR R

BPTVEC
10TVEC

200
100

OOOOOOOOOO N
O =N NS N0 YOO O

e
Y T
] e o
]

T
]

X
]

e e R

Y
)

)

e e R e R e R R

Dot St B
et Bt B
) Bt B

TBITVEC
TRTVEC

' PU'" TRAP VECTOR ADDRESSES
4

;s TIME

14
14

;s TRACE TRAP
: :BREAKPOINT TRAP

J;EMULATOR TRAP (EMT) ~eERRQORee

PWRVE(

20
26

TRAPVEC

EMTVEC

(BITOO 70 BIT15)

40000

e R eR

D (O (O~

Pt Bt Dt Pt st Gt Pt T

DATA BIT DEFINITIONS

000004
000010
000014
000014
000014
000020
000u2¢4
000030
000034

SEQ 0029

SW0=Sw00

Pt Pt et

040000
020000
610000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

SW3=5w03
SW2=SW02
SW1=5w01

100000

15:01:20 PAGE 4-?

SW4=SW04

000400
000200
000100
000040
000020
000010
000004
000002
000001

g G

001000

11-APR-80

Swo7
SW06
SW05
SW04
Sw03
Sw0?
SWO1
SW00
SW9=5w09
SWw8=SW08
SW7=Sw07
SW6=5w06
SW5=SW05

0 0o GO GO O 0O G0 GO G0 T T Co O T GO CO Lo GO D O O T0 T

000200
000100
000040
000020
000010
000004
000002
000001

St Dot tp

BASIC DEFiINITIONS

MACRO v03.01

D M.
MmO
=
w [0 )
o< < »
mmou

CIRMVAOQ RM05/3/2 EXT'D DR TST

OUT

AND OTHER ERRORS

s sRESERVED AND ILLEGAL

(BPT)

INSTRUCTIONS

;s INPUT/0UTPUT TRAP (10T)
; POWER FAIL
;i TRAP'' TRAP

««SCOPE®«

CIRMVAQ RM05/3/2 EXT'D DR TST

BASIC DEFINITIONS

81
82
83
84
85
86
87
88
89
90
91
92
93
94
99

96
97
98
99
100
101
102
103
104
105

106

107
108
109
110
13}
112
113
114
115
116
117
118
119
120
12°
122

123
124
125
126
127

128
129
130
131
132
133
134

000060
000064
000240

MACRO v03.01

11-APR-B0

TKVEC
= 60
TPVEC
= 64
PIRQVEC = 240

.SBTTL

000100
000200
000400
001000
002000
020000
040000

15:01:20 PAGE &-3

SEQ 0030

::T1Y KEYBOARD VECTOR
5 TTY PRINTER VECTOR

; ;PROGRAM INTERRUPT REQUEST VECTOR

RH11/RH70 REGISTERS

:CONTROL AND STATUS REGISTER 1

(RM(CS1)

1€

= 100

; INTERRUPT ENABLE

34
PSEL

= 1000
= 2000

:HIGH ORDER BUS ADDRESS BIT
;PORT SELECT (BIT #10)

RDY
Al6

MCPE
TRE

:SC

= 200
= 400

= 20000
= 40000

= 100000

(BIT #6)

;READY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT

(BIT #8)

(BIT #9)

;MASSBUSS PARITY ERROR (BIT #13)
: TRANSFER ERROR (BIT #14)

:SPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RMW(C)
;(EACH BIT IS CALLED BY BIT NUMBER)
:BUS ADDRESS REGISTER (RMBA)
s (EACH BIT IS CALLED BY BIT NUMBER)

;CONTROL AND STATUS REGISTER 2 (RM(S2)
000001
000002
000004

000010

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

us1
us?
US4

=1
=2
= 4

JUNIT SELECT
SUNIT SELECT
SUNIT SELECT

= 20
= 40

;MASSBUS PARITY TEST
:CLEAR (BIT #5)

= 400
= 1000
= 2000
= 4000
= 10000

sMASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
;NON EXISTENT MEMORY (BIT #11)
;NON EXISTENT DRIVE (BIT #12)

BAl

=10

IR
OR

= 100
= 200

UPE
WCE
OLT

= 20000
= 40000
= 100000

. PAT
CLR

MPE
MXF
PGE
NEM
NED

(BIT #0)
(BT #1)
(BIT #2)

:BUS ADDRESS INCREMEN T

INHIBIT
(BIT #4)

: INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)

;UNIBUS PARITY ERROR (BIT #13)
:UR%TE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)

sDATA BUFFER REGISTER (RMDB)
s (EACH BIT IS CALLED BY BIT NUMBER)
.SBTTL

RM REGISTERS

;CONTROL AND STATUS 1 REGISTER. (#00)
000001

000002
000004
000010
000020
000u40
004000

60
F1
F2
F3

=1
=2
=4
=10

;60 BIT (BIT #0)
;FUNCTION CODE BIT #1
;FUNCTION CODE BIT #2
;FUNCTION CODE BIT #3

= 40

;FUNCTION CODE BIT

Fé&

DVA

= 20

= 4000

;FUNCTION CODE BIT W4
;DEVICE AVAILABLE

(BIT 1)

(BIT

#3)

CZRMVAQ RMO5/3/2 EXT'D DR TST

000001
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

oM
vV
DRY
DPF.
PGM
LST
WRL
MOL
PIP
ERR
ATA

=1
= 100
= 200
= 400
= 1000
= 2000
= 4000
= 10000
= 20000

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002009
004000
010000
020000
040000
100000

ILF
ILR
RMR
PAR
FER
WCF
ECH
HCE
HCRC
AOE
1AE
WLE
DTE
0P}
UNS
DCK

000001
000002

000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

ikl i el e

100000

— ol el

000v01
000002
000004

DMD
LSIT
;LS
WD
EECC
w(
CONT

PHA
PDA
ECRC
PLFS
ESRC
REX
EBL
occ

= 100000

.R/G

(FMER1)

(#02)
;JLLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)
;REGISTER MODIFICATION REFUSED (BIT #2)
;PARITY ERROR (BIT #3)
;FORMAT ERROR (BIT #4)
;WRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BT #7)
;HEADER CRC ERROR (BIT #8)
:ADDRESS OVERFLOW ERROR (BIT #9)
: INVALID ADDRESS ERROR (BIT #10)
SWRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)

= 100000

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

;DATA CHECK ERROR
REGISTER #01

(RMMR1)(#03)

(BIT

15)

- READ ONLY BITS

;DIAGNOSTIC MODE

= 40000

—»

SMAINTAINABILITY REGISTER #01

OMD
MSC
Ml

(#01)

;COMPOSITE ERROR (BIT #14)
SATTENTION ACTIVE (BIT #15)

=1
=2
= 4
=10
= 20
= 40
= 100
= 200
= 400
= 1000
= 2000
= 4000
= 10000
= 20000
= 40000

JMAINTAINABILITY

SEQ 0031

;OFFSET MODE
;VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
:DRIVE PRESENT (BIT #8)
:PROGRAMABLE (BIT #9)
;LAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK (BIT M1)
;MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)

= 40000
= 100000

~ N

D Al
) el
i i) il
D i
el il
) o
el
D e
— el
D el
)
D
D
D
i
)
)
el
i
el

MACRO v03.01 11-APR-80 15:01:20 PAGE 64

¢ERROR REGISTER #01

D el

;DRIVE STATUS REGISTER (RMDS)

il i

i e

D e

i el e

il i

VOO0
NN NN NNNNNNOOOCOOTOCOC OO NN NNINUNANNAL S IS 00000 B NN N AN
= OOV NO NS NN 2OV
NO NS W
2O VOOV
WWNNI 2OV
NN
NN = OO0 NO NS WA= O 000 ~NO N

RM REGISTERS

(RMMR1)

(#03)

- WRITE

;DIAGNOSTIC MODE BIT

ONLY BITS

CZRMVAD RM05/3/2 EXT'D DR TST

RM REGISTERS

192
193
194
195
196

197
198
199
200
201
202

203
ggg

000010
000020
000040
000100
000200

000400
001000
002000
004000
010000
020000

040000
100000

%8?

208
209
210
21
212
213
214
%}2

222
223
224
225
226
227
228
229
230
231
232
233
Sgg

000001
000002
000004
000010
000020
000040
000100
000200

239
240
241

PLY:

543
44

245

MWP
DTG
MS

MDF
MSER
MoC
MUR
MRD

MCLK
MSEN
D10
OBEN
08CK

=10
= 20
= 40
= 100
= 200
= 400
= 1000
= 2000

=
=
=
=
=

4000
10000
20000
40000
100000

ATO
AT1
AT2
AT3
ATé
ATS
AT6
AT?7

=1
=2
= 4
=10
= 20
= 40
= 100
= 200

(RMAS)

;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

000001
000002
000004
000010
000020
000040
000100
000200
000400
004000
020000
040000
100000

0700
DTON
D702
D103
DT04
D105
DT06
0707
D708
DRQ
MOH
TAP
NBA

=1
=2
=4
=10
= 20
= 40
= 100
= 200
= 400
= 4000
= 20000
= 40000
= 100000

: LOOK-AHEAD REGISTER
000100
000200
000400

0
1
2
3
&
5
6
7

(#04)

(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT

(RMDA)

#0)
#1)
#2)
#3)
#4)
#5)
#6)
#7)
(#05)

;DRIVE TYPE REGISTER (RIDT) (#06)

;DRIVE TYPE NUMBER BIT 1
;DRIVE TYPE NUMBER BIT 2
:DRIVE TYPE NUMBER BIT 3
:DRIVE TYPE NUMBER BIT 4
;DRIVE TYPE NUMBER BIT 5
;DRIVE TYPE NUMBER BIT 6
;DRIVE TYPE NUMBER BIT 7
;DRIVE TYPE NUMBER BIT 8
;DRIVE TYPE NUMBER BIT 9
;DRIVE REQUEST REQUIRED (BIT #11)
;MOVING HEAD (BIT #13)
;TAPE DRIVE (BIT #14)
:NOT BLOCK ADDRESSED (BIT #15)

(RMLA)

(#07)

SCO
SC1
SCe

=100
= 200
= 400

+SECTOR COUNT FIELD O (BIT #6)
;SECTOR COUNT FIELD 1 (BIT #7)
;SECTOR COUNY FIELD 2 (BIT #8)

:SCé

= 2000

;SECTOR COUNT FIELD &

:SC3

= 1000

%4?

;RM MAINTAINABILITY REGISTER #2

248

:RM ERROR REGISTER #02 (RMMRZ2)

SEQ

;DESIRED SECTOR/TRACK ADDRESS REGISTER
;(EACH BIT IS CALLED BY BIT NUMBER)

236

;ATTENTION SUMMARY PSEUDO-REGISTER

217
g}g

%S?

MACRO v03.01 11-APR-80 15:01:20 PAGE 425

;SECTOR COUNT FIELD 3 (BIT #9)

(RMMR?2)

(#10)

(BIT #10)

0032

CZRMVAD RMO5/3/2 EXT'D DR TST

RM REGISTERS

249

%g?

252
253
254
%22

000200
002000
004000
010000

MACRO v03.01

11-APR-80

H
2
15:01:20 PAGE &4-6

;OFFSET REGISTER (RMOF) (#11)

OFD
HCI
ECI
FMT16

=
=
=
=

200
2000
4000
10000

SEQ 0033

;OFFSET DIRECTION (BIT #07)
;HEADER COMPARE INMIBIT (BIT #10)
;ERROR CORRECTION CODE INHIRIT (BIT 11,
;FORMAT BIT (BIT #12)

257

:DESIRED CYLINDER ADDRESS (RMDC)

(#12)

260

;CURRENT CYLINDER ADDRESS (RMHR)

(#13)

263

;SERIAL NUMBER REGISTER

(RMSN)

(#14)

266
sgg

:RM ERROR REGISTER #02

(RMER2)

(#15)

;(EACH BIT IS CALLED BY BIT NUMBER)

%28
%2;

; (EACH BJT IS CALLED BY BIT NUMBER)

ggg

269

g;?

;(EACH 1S CALLED BY BIT NUMBER)

020000

040000

572

OPE

SK 1]

= 20000

;OPERATOR PLUG ERROR

= 40000

(BIT #13)

;SEEK INCOMPLETE (BIT #15)

;ECC POSITION REGISTER (RMEC1) (#16)

5;2

;(EACH BIT IS CALLED BY BIT NUMBER)

275

;ECC PATTERN REGISTER

278

,';'.tttttttttttt"'ttt"t"t"tttnttttttltttt'tt'.tt'tt't.tt"t!t

279

287
288
289
290
2N
292
293
294
295
296
297
298
299
gg?

000101
000103
000105
000107
000111
000113
000115
000117
000121
000123
000131
000151
000153
000161
000163
000171
000173
000141
000143
000145

ggg

304

(#17)

;(EACH BIT IS CALLED BY BIT NUMBER)

5;9

280
281
282
283
284
285
286

(RMEC2)

;OP CODE DEFINITIONS
NCOP
= 101
UNLOAD
= 103
SEEK
= 105
RECAL
= 107
DRVCLR
= 111
RELEASE = 113
OFFSET
= 115
RTC
= 117
READIN
= 121
PACK
= 123
SEARCH = 131
WRCKD
= 151
WRCKHD = 153
WRITE
= 161
WRTHD
= 163
READ
= 17N
READHD
= 173
GETREG = 141
SETFORM = 143
SELDRY
= 145
:OTHER EQUATES

177400

SCTRWC

= =256.

;WORD COUNT FOR SECTOR

CZRMVAQ RMO5/3/2 EXT'D DR TST

RM REGISTERS

307

308

MACRO v03.01

.SBTTL

000000

000174
000176

11-APR-80

15:01:20 PAGE &-7

SEQ 0034

TRAP (CATCHER

.=0

s*ALL UNUSED LOCATIONS

FROM &

776 CONTAIN A ', 42 HALT

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCAT10N19‘C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS
e

000174
000000
000000

DISPREG:
SWREG:
.SBTTL

.WORD
.WORD

0
0

::SOF TWARE DISPLAY REGISTER
::SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

40 000200

000137

004570

JMP

ANSTART)

310 000204

000137

004612

JMP

AFSTART2

;SELECT OPERATING PARAMETERS

g}g 000210

000137

004560

JMP

a¥STARTS

;SELECT RH/RM ADDRESSES

314 000214

000137

004602

JMP

aFSTARTSG

;COMBINATION OF 204 AND 210

316

.SBTTL

ACT11

::JUMP TO STARTING ADDRESS OF

PROGRAM

HOOKS

""""."'..."""".""t""".'.'t'i"t..t.."..."'.t"""'

G17

000046

000220
000046
021244

000052

020000

318
319

:HOOKS REQUIRED BY

$SVPC=.
.46
$ENDAD

_WORD

000220

001100

- =$5VPC

.=1100
"SBTTL

ACT11

:SAVE PC
;:1)SET LOC.46 TO ADDRESS OF

20000

SENDAD

.S$EOP

::2)SET LOC.52 TO 20000
*:

"RESTORE P(

APT PARAMETER BLOCK

"“'..".".'.'""""'.""'I"'l.'.'..l.'..'til"!'t..."l""l

*SET LOCATIGNS 24 AND 44 AS REQUIRED FOR APT

".'..t..tttl.""""""'t"""".""..t"'.'l't't"l't"""t'

000024
000044

001100
000024
000200
000044
001100
001106

.$X=.
=24
200
=44
$APTHDR
.=.8X

;;SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT 10 START OF
1IFOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

PROGRAM

""'.""It."'."."""""l"'t'Q."t.li't."'."t'.t'lt'!t."tt

*SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
*INTERFACE SPEC.

320
321

001100
001100
001102
001104
001106
001110
001112

000000
001234
001604
001604
001604
000y30
001114

SAPTHD:
SHIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:
TAB. XY=,

.WORD
.WORD
.WORD
.WORD
_WORD
WORD

0
;:TWO HIGH BITS OF 18 BIT MAILBOX ADOR.
SMAIL
- -ADDRESS OF APT MAILBOX (BITS 0-15)
900.
::RUN TIM OF LONGEST TEST
900.
::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
900.
--ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
SETEND-SMAIL/2
;;LENGTH MAILBOX-ETABLE (WORDS)
:COMMON TAG STARTING ADDRESS

CZRMVAO RMO5/3/2 EXT'D DR TST

APT

PARAMLTER BLOCK

520
524

MACRO v03.01

11-APR-80

15:01:20 PAGE &-8

SEQ

0035

CIRMVAO RM05/3/2 EXT'D DR TST

COMMON TAGS

MACRO v03.01

11-APR-80

LSBTTL
MR

AAA

K
2
15:01:20 PAGE 5

SEQ 0036

COMMON T AGS
R

AR A

ARl

0
000000
000000
000000
000000
000000
000000

$SREGO:
$REG:
SREGZ:

.WORD
.WORD
.WORD
SREG3:
.WORD
SREGS:
.WORD
$REGS:
-WORD
$TMPO:
.WORD
STMP1:
.WORD
STMP?2:
.WORD
$TIMES: O
SESCAPE:0
$BELL:
JASCIZ
$QUES:
.ASCl1
$CRLF:
.ASCII
SLF:
.ASCIZ
SR 2222202222

"SBTTL

: AUTOMATIC MODE INDICATOR
:: INTERRUPT MODE INDICATOR
;;ADDRESS
. +ADDRESS
J21TY KBD
;:TTY KBD

owv

.BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
177562
$TKB:
$TPS:
177564
177566
$TPB:
$NULL:
.BYTE
SFILLS: .BYTE
$SFILLC:
$TPFLG: .BYTE
SREGAD: .WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE

;s CONTAINS THE TEST NUMBER
. s CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
: cCONTAINS SCOPE LOOP ADDRESS
::CONTAINS SCOPE RETURN FOR ERRORS
: s CONTAINS TOTAL ERRORS DETECTED
+;CONTAINS JTEM CONTROL BYTE
;;CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
: :CONTAINS ADDRESS OF 'GOOD' DATA
: ;CONTAINS ADDRESS OF °'BAD' DATA
;s CONTAINS 'GOOD' DATA
: ;CONTAINS °'BAD' DATA
; ;RESERVED--NOT TO BE USED

— &

.BYTE
.WORD
.WORD

;:START OF COMMON TAGS

OF SWITCH REGISTER
OF DISPLAY REGISTER
STATUS
BUFFER

::T1TY PRINTER STATUS REG.
::TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

:;CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
s INSERT FILL CHARS. AFTER A ''LINE FEED'

~no

.WORD
.BYTE
.BYTE
-WORD
.WORD
.WORD
.WORD

Al =lelelelalelolaloleldeololelolelolo]o]

.=TAB.XY

OO—NO

NSO

001176

STSTNM:
SERFLG:
$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC(:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:
$SAUTOB:
SINTAG:

001174

$CMTAG:

;:"'TERMINAL AVAILABLE'' FLAG (B1T<07>=0=YES)
2 CONTAINS THE ADDRESS FROM

s:;WHICH (SREGO) WAS OBTAINED
;s CONTAINS ((SREGAD)+0)
:;CONTAINS ((SREGAD)+?2)
;;CONTAINS ((SREGAD)+4)
;:CONTAINS ((SREGAD)+6)
;:CONTAINS ((SREGAD)+10)
:;CONTAINS ((SREGAD)+12)
;sUSER DEFINED
;sUSER DEFINED
;:USER DEFINED
;:MAX,. NUMBER OF ITERATIONS
s ESCAPE ON ERROR ADDRESS
<207><377><377> ::CODE FOR BELL
/?/
;;QUESTION MARK
<%
::CARRIAGE RETURN
<12>
J.LINE FEED

OO0O0O0OO0OO0O

NOO ST N=OO S NONO

b =

i
e
e
e
S o
D
e

000000
000
000
000000
000000
000000

£ WA

i
e
o
D
d e
b

001114

ASIWVANA LS £ 8

N NN N NI N

ool

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PROGRAM,

02220433

220

APT MAILBOX-ETABLE

dRRRR

R2R20222

2202

RRRRRRRRRRRRRZXE]

CIRMVAO RM05/3/2 EXT'D DR TST

APT

MAILBOX-ETABLE

MACRO v03.01
RN

001234
001234

000000
000000
000000
000000
000000
000000
000000
000000
000
000
000000
000000
000000

11-APR-80
R R RN R R

R IR P AR

.EVEN
SMAIL:
$MSGTY: .WORD
SFATAL: .WORD
$TESTN: .WORD
$PASS:
,WORD
$DEVCT: .WORD
$UNIT:
_WORD
SMSGAD: .WORD
$MSGLG: .WORD
SETABLE:
SENV:
.BYTE
$ENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

RE N E N

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

;t
:'

000
000

$MAMS1:
$MTYP1:

SEQ 0037

RN NP RN N RRRNNN NN NS R AN RN

P RN RO

EOROR

NN L

;:APT MAILBOX

:sMESSAGE TYPE (CODE

;:FATAL ERROR NUMBER

::TEST NUMBER
:sPASS COUNT
s sDEVICE COUNT
+:1/70 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH

: sAPT ENVIRONMENT TABLE

;;ENVIRONMENT BYTE
s sENVIRONMENT MODE BITS
;sAPT SWITCH REGISTER
s sUSER SWITCHES
;sCPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11/704=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

001264
001265

15:01:20 PAGE 5-1

.BYTE
_BYTE

AMAMS
AMTYP1

=REAL TIME CLOCK
=FLOATING POINT PRGCESSOR
=MEMORY MANAGEMENT
ADDRESS,M.S. BYTE

TYPE ,BLKA#1

PE BYTE

(HIGH BYTE)

900 NSEC CORE=001

001266

000000

$SMADR1:

.WORD

AMADR1

.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD

AMAMS2
AMTYP?
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS
S

001270
001271
001272
001274
001275
001276

001300
001301
001302
001304
001306
001310

001312
001314

000
000
000000
000
000
000000
000
000
000000
000000

000000
000000
000000

$MAMS?2:
$MTYP2:
$SMADRZ2:
$SMAMS3:
SMTYP3:
$SMADR3:
$MAMSSL:
SMTYP4:
$SMADR4G:
SVECT1:
$SVECT2:
$BASE:
$SDEVM:
SETEND:
MEXIT

AMTYP4
AMADR4

AVECT
AVECT?
ABASE
ADEVM

300 NSEC BIPOLAR=00?2
500 NSEC M0S=003
;:HIGH ADDRESS .,BLKM

MEM.LAST ADDR.=3 BYTES.THIS WORD AND LOW OF

;sHIGH ADDRESS,M.S. BYTE

s sMEM.TYPE ,BLKN?

JMEM.LAST ADDRESS.,BLKA?
s HIGH ADDRESS ,M.S.BYTE
:sMEM. TYPE,BLKA3
ssMEM.LAST ADDRESS,BLKA3
ssHIGH ADDRESS,M.S.BYTE
::MEM.TYPE ,BLKNG
s sMEM_LAST ADDRESS.,BLK#G
;s INTERRUPT VECTOR#Y ,BUS PRIORITYM
:; INTERRUPT VECTORANZ2BUS PRIORITYS®?
:;BASE ADDRESS OF EQUIPMENT UNDER TEST
s:DEVICE MAP

''TYPE'' ABOVE

001463
001464
001466

000
000v00
000000

144

TICKMS:
TICKUS:

BYPASS:
CHKDRYV:
DRVMSK:
SVSTAT:
CYL.RD:

.WORD

000000
TIM.DN:

.WORD
-WORD
.WORD

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

.WORD
.WORD
.WORD
STALLO: .WORD
SVADR:
-WORD
SEKTMR: .WORD
SEKCNT: .WORD
DELTA:
.WORD
TRCKW(: .WORD
STALLI: .WORD
STALLZ: .WORD
STALL3: .WORD
MXSTAL: .WORD
ERR.CT: .BYTE

TIM.PT:
WCEFLG:

BASFLG:
XXDP:

.WORD
.WORD

TIM.UP:

SEC.RD:

000000

oleldolelelele]o)

CyL.DS:
SEC.DS:
TRK.D.:
LSTRK:

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

TRK.RD:

000000

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

'C.SWR'

:CONTROL ''C*'' FLAG
sGET ADDRESSES FROM THE TTY FLAG (0=NO, -1-YES)
;LPT AVAILABLE STATUS (0=NO,1-YES)
;DRIVES SELECTED FOR TESTING

;DEFAULT IS RUN TESTS 0-10 § 12-21
;MODIFY TEST PARAMETER FLAGS
:CLOCK STATUS (0=NO CLOCK,+1=KW11-P,
sAND =1=KW11-L)

;16 MILLISECONDS PER CLOCK TICK
;16666 MIRCOSECONDS PER CLOCK TICK
:DRIVE UNDER TEST
;DRIVE MASK BIT
:STATUS/ERROR INDICATOR IS
:SAVED HERE ON AN ERROR
sCYLINDER READ

: TRACK READ

sSECTOR READ
sCYLINDER DESIRED
;SECTOR DESIRED

:TRACK DESIRED

sCONTAINS THE LAST TRACK OF THE UNIT UNDER

;TEST. RM02/3 = 4., RMCS = 18,

SMINIMUM TIME

;NUMBER OF COUNTS BELOW MIN. LIMIT

sMAXIMUM TIME

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
160000
000012
000012
011610
000031

CLKSTA:

;PREVIOUS CONTENTS OF

001374
001376
001400
001402
001404
001410
001412
001414
001416
001420
001422
001426
001430
001432
001434
001436
001442
001444
001446
001450
001452
001454
001456
001460
001462

TSTNMS:
OPNFLG:

SEQ 0038

sCONTROL SWITCHES

——

000000
000000
000000
000000
000000
000000
000000

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

oo
[e X
o
o

001356
001360
001362
001364
001366
001370
001372

C.SWR:
SAV(SW:
CNTRLC:
BUSADR:
LPTAVL:
DRVSEL:

OO0

000020
060432
000000
000000
000000
000000

USER DEFINED TAGS

OO0O0O0OOO

001342
001344
001346
001350
001352
001354

000003
000000

LSBTTL

=NV
= | OO0OO0O0O0O0O0O0OO0OO0OO0O0OO0OOOO

000000
000000
000000
000000
000000
000000
176777
000000
000000

m
3
15:01:20 PAGE 6

11-APR-80

sNUMBER OF COUNTS ABOVE MAX. LIMIT
;TOTAL TIME OF ALL SEEKS
sNUMBER OF SEEKS PERFORMED
MINIMUM TIME
;NUMBER OF COUNTS BELOW MIN. LIMIT
sMAXIMUM TIME
sNUMBER OF COUNTS ABOVE MAX. LIMIT
;TOTAL TIME OF ALL SEEKS
;NUMBER OF SEEKS PERFORMED
¢POINTS TO TABLE OF TIMES
;FATAL WRITE

USER DEFINED TAGS

MACRC v03.01

CIRMVAQ RM05/3/2 EXT'D DR TST

CHECK ERROR FLAG

;VARIABLE STALL
;SAVE DISK ADDRESS
;SEEK TIMER
:SEEK COUNTER
:TESTING RANGE FOR SERVO SETTLE DOWN TEST
;WORD COUNT FOR A FULL TRACK IN 16 BIT MODE

;10 MILLISECONDS STALL
:10 MILLISECONDS STALL
;5 SEC STALL
+MAX.

INCREMENTING STALL ALLOWED

IN TEST

;NUMBER OF ERRORS ALLOWED IN TESTS 16 - 21
;BEFORE GOING TO THE NEXT TEST
+RESERVED
;FLAG FOR DETECTING BAD SECTOR
sTHE

LOW BYTE

CONTAINS THE DRIVE

NUMBER FROM WHICH

: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

CIZRMVAQ RM0S5/3/2 EXT'D DR TST

USER DEFINED TAGS

MPCRO v03.01 11-APR=-80 15:01:20 PAGE 6-1

SEQ 0039

.WORD

.B1T TABLE

N
R
TR
T

;TTY

PRINTER BUFFER

:LINE PRINTER STATUS
;LINE PRINTER BUFFER

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

.SBTTL

TIMING LIMITS

e
e i

Pt P

o L

e L

Jr e

Sl gl

gy QU g

BITS:

000100
000200

;VECTOR ADDRESS AND PRIORITY

:KW11=P VECTOR ADDRESS
;KW11=P CONTROL AND STATUS REG.
;KW11=P COUNT SET BUFFER
;KW11=P COUNTER
;KW11=L VECTOR ADDRESS
;KWil=L STATUS REGISTER
;TTY PRINTER STATUS

001556
001560
001562
001564
001566
001570
001572
001574
001576
001600
001602
001604

:RH/RM UNIBUS ADDRESS

OCOOO0OOOOD
=ttt b s . OO OOOOOOOO
NON
NN = OV
RN =2 OOV~
NS
N — O

LPB:

.WORD

.WORD
.WORD
.WORD

fontt Pt Pt Gt Pt Puich Pumt P} Pt Poutt Puml Pt Pumd Pt Pund Pumt Pumg

TPS:
TPB:
LPS:

LKS:

000102

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

Gt Pt Pt Pt P

000240
000106

NNNNNONNNOWV~NO
~NNNNNONNIN
S SO
VIANWNUR
AU«
O
= QOSSO
D
OrOFrCOSrNNOOIOWM

ADDRESSES AND Vv

RH.ADR:
RHVEC:
PXV:
PKCS:
PKB:
PKC:
LKV:

(oo XoedeedoodoedoodoeReoRoodoodoodoehoeloodoe
oo oo oeloedoodoodoeLookse]

PNORON)
b =t = OO

176700

e Y A L Jaal

:"XXDP' DEVICE CODE FOR THE FM05/3/2.

sROTATIONAL TEST TABLES FOR RM05/3 DRIVES

066261
000000
003142
003244
046261

003255

:60HZ TABLE

T7A:

.WORD
.WORD

LWORD
.WORD
:S0HZ TABLE
T78:
.WORD

.WORD
.WORD
.WORD

ROTATE
0
1634.
1700.

;LO LIMIT

(16.67MS - 2X)

JHI LIMIT (16.67MS + 2%)

ROTATE

0
1625.
1709.

sLO LIMIT (16.67MS = 2.5%)
JHI LIMIT (16.67MS + 2,5%)

CIRMVAO RM05/3/2 EXT'D DR TST

TIMING LIMITS

001626
001630
001632
001634

066261

000000
004622
004766

MACRO v03.01

T7AY:

.WORD
.WORD

ROTATE
0
2450.
2550.

:S50HZ TABLE
1781:
.WORD
.WORD
.WORD
.WORD

ROTATE
0
2437,
2563.

046261
000000

001646
001650
001652
001654

066312
066464
000000
001274

110:

001656
001660
001662
001664

046357
046464
000000
006200

001666
001670
001672
001674

046424
046464
000000
013104

T12:

005003

SEQ 0040

.ROTAT%ONAL TEST TABLES FOR RMO2 DRIVES
:60HZ
TABLE

001636
001640
001642
001644

004605

&
B
11-APR-80 15:01:20 PAGE 6-2

;SEEK TEST TABLES
.WORD

ONECYL

; FORWARD

.WORD

700.

JHI LIMIT (7MS)

.WORD
.WORD

REV
0

ACCESS
REV

.WORD
.WORD

0
3200.

.WORD

MXSEEK

.WORD
.WORD

0
5700.

.WORD

REV

sREVERSE
sNO LO LIMIT

: FORWARD
:REVERSE
sNO LO LIMIT

;HI LIMIT (32MS)

: TORWARD

sREVERSE
sNO LO LIMIT
JHI

LIMIT

(57MS)

sSPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS
;ROTATIONAL MESSAGE

001676
001700
001702

(46662
003142
003244

001704
001706
001710

066662
003131
003255

066737
004622
004766

.60HZ TABLE
.WORD

SP7A:

AMD LO/HI

.WORD
.WORD

MSG7XA
1634.
1700.

;SOMZ TABLE
SP78B:
.WORD

MSG7XA

.WORD
.WORD

LIMITS FOR RMOS/3 DRIVES

;ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO2 DRIVES
;60H2 TABLF
MSG7X8
SP7A1:
.WORD
.WORD
2650.
SLO LIMIT (25.00MS - 2%)
.WORD
2550.
SHI LIMIT (25.00MS ¢ 2%)

:50HZ TABLE

066737
004605
005003

SP7B1:

047012
000000

SP10:

.WORD

.WORD
.WORD

MSG7XB

;LO LIMIT (25.00MS - 2.5%)
JHI LIMIT (25.00MS + 2.5%)

TIMING TESTS MESSAGES AND LO/MI LIMITS
MSG10X
.WORD
JNO LO LIMIT
.WORD
0

CIRMVAO RMO5/3/2 EXT'D DR TST

TIMING LIMITS

MACRO v03.01

001732

001274

001734
001736
001740

067054
000000
006200

SP11:

001742
001744
001746

047110
000000
013104

SP12:

001760

001762
001764
001766
001770
001772
001774
001772¢
002000

S
15:01:20 PAGe 6-3

SEQ 0041

.WORD

700.

JHI

.WORD
.WORD
.WORD

MSG11X
0
3200.

:NO LO LIMIT
JHI LIMIT (32MS)

.WORD

MSG12x

.WORD
.WORD

0
5700.

LIMIT

(7MS)

:NO LO LIMIT
JHI LIMIT (57MS)

: STATUS/ERROR MESSAGE POINTER TABLE
STATBL: .WORD
MSGB14
;OFFLINE OR UNSAFE DRIVE REQUESTED

.WORD

0
0
0
0
0
0
¢
O

ODOOCOOO0OO
AN
S BN NN
—
VO W=H OWOW
NN
=
O W

001750
001752
001754
001756

11-APR-80

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

MSGB13

MSGB12
MSGB11
MSGB10
MSGBO9
MSGBO8
MSGBO6
MSGBOS
MSGBO4
MSGBO3
MSGBO?
MSGBO1

sUNLOAD DRIVE REQUESTED

SPERSISTENT UNSAFE
;PARITY ERROR OCCURRED
sFATAL PARITY ERROR
;SOFTWARE TIMEOUT ON THIS DRIVE
:SOFTWARE TIMEOUT ON ANOTHER DRIVE
;ERROR OCCURRED DURING 1/0 OPERATION
;ERROR OCCURRED DURING NON-1/0 OPERATION
: UNSAFE OCCURRED
;AUTOMATIC RECALIBRATE SEQUENCE OCCURRED
;DRIVE HAS NOT RESPONDED TO PORT REQUEST
;DRIVE HAS BECOME NONEXISTENT

CIRMVAQ RMO05/3/2 EXT'D DR TST

ERROR POINTER TABLE

MACRO v03.01

11-APR-80

D
15:01:20 PAGE

SEQ 0042

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION [S OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
J*NOTE:
IF STITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().

;*NOTEZ2:

002002

;*ERROR

o
o

THME
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

(RMAS = 0)

$REG3

EM1

DH1
DT
1
DF
2

UNEXPECTED ATTENTION OCCURRED
RMER1
RMMR?2
RMER?
ERR PC
DRIVE
RMAS
RMDS
SERRPC
SREG!
SREG3I
RMERRS RMERRS+2 RMERRS+4 RMERRS+6

[o FX
To ]

N NN
—

WAL

NNNO
~
O —O
N0

==l =l=]

o
i
o

EM2
DH?2
DT?
DF
2

;*ERROR
ot
i

MASSBUS PARITY ERROR (MCPE=1)
ADDRESS DATA
ERR PC
TEST

$TMPO

002022
002024
002026
002030

SERRPC

RD.ADR

RD.WRD

EM3
DH3
0713
DF3
.*ERROR

0507

—

0473

m-‘

ot
.t
o
002032
002034

TO
TO
TO
TO

$ERRPC

;*ERROR

002012
002014
002016
002020

;:POINTS
;:;POINTS
;;POINTS
;;POINTS

RH/RM INTERRUPT OCCURED
RMAS
ERR PC

002002
002004
002006
002010

oF W

I O

EM
DH
DY
DF

$ERRTB:

WP -—t
= OOV

W F WVAPV] WL LM AN

NO VNS WD = OV

NO VNS WA

= O VOO WV

PO NI PNUPVIPNINININON) = = cod
od d aed o od b o

NN = OO0 ~NO N —

.*
o
B
c*

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS rOLLOWS:

MASSBUS PARITY ERROR (PAR=1)
ADDRESS GDDATA
ERR PC
TEST
$TMPO
SERRPC WRT.ADR WRT.WD
EM4
DH&

BODATA
RD .WRD

CIRMVAQ RM05/3/2 EXT'D DR TST

ERROR POINTER TABLE

002036
002040

MICRO v03.01

11-APR-80

052222
052636

D14
DF&

.
ML
M
002044
002046
002050

ADDRESS PLUG CHANGE BIT SET
ERR PC
DRIvec
RMAS
RMDS
RMER1
RMMR?
RMER?
$ERRPL
SREG!
$REG3
RMERRS
RMERRS+2 RMERRS+4L RMERRS+6

047345
050630
052174
052626

EMS
DH?2
D12
DF2

6 == NOT USED

J*ERROR
002052
002054
002056
002060

000000
000000
000000
000000

0
0
0
0
;*ERROR

002062
002064
002066
002070

000000
000000
000000
000000

7 == NOT USED

0
0
0
0

J*ERROR
.t

.
i

RH/RM FAILED TO RESPOND TO ADDRESSING

RMCST
RH.ADR

002072
002074
002076
002100

ERR PC
SERRP(

EM10
DH10
DT10
DF10

;*ERROR
b
A

o
002102
002104
002106
002110

&
7-°

SEQ 0043

;*ERROR

002042

E
15:01:20 PAGE

DRIVE SELECTED IS NOT ONLINE
ERR PC
DRIVE

SREG2

067447
051040
052260
052646

SERRP(

EMN
DH1N
DTN
1
DF

J*ERROR
.t
.t

ot
.

IMPROPER HEADER DATA
TEST
ERR PC
TST PC

$TMPO

SERRPC

6DCYL
CvL.DS

SREGO

GDTRK
TRK.DS

DRIVE

(HKDRV

GDSCYR
SEC.DS

CYLNDR
(YL.DS

BLCYL
(CYL.RD

TRA(CX

TRK.DS

BDTRK
TRK.RD

SECTOR
SEC.DS

BDSCIR
SEC.RD

CIRMVAQ RMO5/3/2 EXT'D DR TST

ERROR POINTER TABLE

}82

MACRO v03.01
.0

105 002112
106 002114
107 002116

}88 002120

11-APR-80
CYLNDR,

047504
051057
052264

15:01:20 PAGE

7-2

SEQ 0044

TRACK, AND SECTOR ARE DECIMAL

EM12
DH12
D112

052652

DF12

}}?

;*ERROR

112
113

o
Y

DATA COMPARE FAILURE
TEST
ERR PC
TST PC

DORIVE

}}g

CYLNDR,

AND WRDCNT

114
115
116

.
;*
o

119 002122
120 002124
121 002126

}g% 002130

047531
05.057
052316

TRACK,

SECTOR,

052662

14 == FOLLOWS #13

}%g

$GDDAT

}g; 002140

000000
000000

0
0

052672

DF14

052334

133
134
135
136
137
138
139
}2?

"
.
oY
i
o
o

EM13

144 002146
145 002150

052316
052662

DT13
DF13

051057

;*ERROR

149
150
151
152
153
}gg

$GDADR

$BDADR

SECTOR
SEC.DS

16 == FOLLOWS ¥15

SGDDAT

000000
000000
052334
052672

$BDDAT

SREG4L

$GDADR

$3BDADR

0
0
DT13A
DF14

}2?

:*ERROR

158

159

$REG4

DH12

147

002152
002154
002156
002160

$BODAT

DATA COMPARE FAILURE
TEST
ERR PC
TST PC
DRIVE
CYLNDR
TRACK
$TMPO
SERRPC
SREGO
CHKDRV
(YL.DS
TRK.DS
GDDAT
BODAT
WRDCNT
GDADR
BDADR
$GDDAT
$BDDAT
$REG4L
SGDADR
$BDADR
CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL

047531

148

ARE DECIMAL

142 002142

146

SEC.DS

DT13A

;*ERROR

1643 002146

SECTOR

DF13
;*ERROR

130 007136

TRACK

EM13
DH12
D113

}%g

128 002132
129 002134

CYLNDR

$TMPO
SERRPC
SREGO
CHKDRV
(YL.DS
TRK.DS
GDDAT
BODAT
WRDCNT
GDADR
BDAD~#
$GDDAT
$BODAT
SREG4
SGDADR
$BDADR

DISK ERROR IN TIMING TEST
TEST

ERR PC

DRIVE

RM(S1

RMDS

RMER]

RMMR?

RMER?

CZRMVAO RM05/3/2 EXT'D DR TST

ERROR POINTER TABLE

}g?

MACRO v03.01
e

162 002162

051273

}gg 002170

052676

164 002166

$TMPO

047556

163 002164

11-APR-80

15:01:20 PAGE
SERRPC

D117

169

CLOCK

(KW11-P)

};;

$TMPG

SERRPC

;*ERROR

}gg

o
o
e
;*
:*

189 002206
}8? 002210

047531
051370
052366

RMDS

RMER1

RMMR?2

TRACK
TRK.DS

22--FOLLOWS #21

000000
000000
052402
052712

$BDDAT

S$REG4L

SREG!

0
0
DT2TA
DF22

.
.
.
.
v

DISK ERROR DURING SEEK
TEST
ERR PC
DRIVE
(YLNDR
$TMPO
SERRPC
C(HKDRV
CYL.DS
RMER1
RMMR?
RMER?
RM.REG+14 RM_REG+40 RM_REG+42

047657
051505
052412
052716

EM23
DH23
D123
DF23

S}g

;*ERROR

216

SEEK NOT COMPLETE WITHIN 120 MS

RMER?

RM.REG+12 RM.REG+14 RM.REG+60 RM.REG+4?2

SREG1

:*ERROR

002222
002224
002226
002230

RM.REG

DT21
DF21

052702

209
210
211
%}%

(MKDRV

IN TIMING TEST

RMCS1

EM13
DH21

}gg

200
201
202
203
204
205
206
58;

DRIVE

CYLINDR, TRACK, WRDCNT, AND SECTOR ARE DECIMAL

;*ERROR

002212
002214
002216
002220

OVERFLOW

DATA COMPARE FAILURE
TEST
ERR PC
TST PC
DRIVE
CYLNDR
$TMPO
SERRPC
SREGO
CHKDRV
(CYL.DS
GDDAT
BODAT
WRDCNT
SECTOR
SREG!
SBDDAT
SREGL
$SREG!

}gg

196
197
198
199

ERR PC

EM20
DH17
D117
DF17

178
179
180
181
182
183

187 002202
188 002204

TEST

047610
051273
052346
052676

184

RM.REG+12 RM._REG+14& RM.REG*40 RM.REG+4?2

DF17

;*ERROR

002172
002174
002176
002200

RM.REG

DH17

}gg

173
174
175
};9

SEQ 0045

EM17

052346

170

(MKDRV

7-3

RM(CS!
RM(CS?2
RMDS
RM.REG RM.REG+10 RM.REG+12
RMDC
RMHR
RM.REG+34 RM_REG+36

CZRMVAQ RM0S5/3/2 EXT'D DR TST

ERROR POINTER TABLE

217
2\8

)
o
.
i

219
%S?

222
223
224
%%2

MACRO v03.01

002232
002234
002236
002240

11-APR-80

15:01:20 PAGE

TEST
$TMPO

ERR PC
$SERRPC

7-4

SEQ 0046

DRIVE
CYLNDR
(HKDRV
(YL.DS
RMER1
RMMR/
RMER?
RM_REC+14 RM_REG+40 RM_REG+42

047706
051505
052412
052716

RM(CS!
RM(CS2
RMDS
RM.REG RM.REG*+10 RM_REG+1?2
RMD(
RMHR
RM.REG+34 RM_REG+36

EM24
DHZ3
D123
DF23

22?7

228

;*
;*

ERRORS

P}
232
233
234
235
236
237
238
239
240
261
242
263
264

;*
;*
;*
:*
;¢
;*
;*
;*
st
;*
;*
:*
;s*
s*

VARIES DEPENDING ON THE ERROR, 17 WILL BE IN THE FORM:
RH/RM ERROR (MESSAGE)
WHERE MESSAGE WILL BE ONE OR MORE OF THE FOLLOWING:
1)
OFFLINE OR UNSAFE DRIVE REQUESTED
2)
UNLOADED DRIVE REQUESTED
3)
PERSISTENT UNSAFE
&)
PARITY ERROR OCCURRED
5)
FATAL PARITY ERROR
6)
SOFTWARE TIMEOUT Oi. THIS DRIVE
7)
SOFTWARE TIMEOUT ON ANOTHER DRIVE
8)
ERROR OCCURRED DURING 1/0 OPERATION
9)
ERROR OCCURRED DURING NON-1/0 OPERATJON
10) UNSAFE OCCURRED
11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED

266
267 002262

ITEMG:

%%8

245

ERRORS

;*ERROR

ggz

251
252

.
)

23-40 NOT USED

002242
002244
002246
002250

047746
051637
052442
052726

o*
o*

RH/RM ERROR (MESSAGE)

TEST

$TMPO

047746

EM4T

268 002256

052452

DT&?2

598 002260

SREGO

DRIVE

CHKDRY

266 002252

267 002254

$ERRPC

EM4T
DH&Y
D141
DF&1

262

263
562

$TMPO

;*ERROR

272
273

N Y

41-46 WILL HAVE AN EM THAT

RH/RM ERROR (MESSAGE)
TEST
ERR PC
TST PC

sg?

Ie
T

248
249
250

255
256
257
Sgg

051675

ERR PC
$ERRPC

TST PC

SREGO

DH&?

052732

DF&?2
;*ERROR

RH/RM ERROR (MESSAGE)

DORIVE
(HKDRY

RM(S1
RM.REG

RM(CS?2
RMDS
RM_REG+10 RM_REG+1?

CZRMVAO RMOS/3/2 EXT'D DR TST
ERROR POINTER TABLE

274
275
276

o
.
.

%;g

279
280
281
%g%

002262
002264
002266
002270

11-APR-80

ggg 002300

047746
051057
052514

DF &4

.
o
o
.Y
i
.
.
o
047746
051057
052554
052762

EM4
DH12
DT45
DF &S

318
319
320
321
322
323
324
ggg

;e
it
M
i
o
;v
.
.

047762
051u57
052554
052762

RH/RM ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE
CYLNDR
TRA(CK
SECTOR
$TMPO
SERRPC
SREGO
(HKDRV
(YL.DS
TRK.DS
SEC.DS
RMCS1
RMCS2
RMDS
RMHR
RMD (
RMDA
RM.REG
RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06
RMER1
RMMR?
RMER?
RMW(
RMBA
RMDB
RM.REG+14
RM.REG+40
RM.REG+42
RM.REG+2
RM.REG+4 RM.REG+22
CYLNDR,TRACK, AND SECTOR ARE DECIMAL

. *ERROR

002312
002314
002316
002320

DRIVE
CYLNDR
TRACK
SECTOR
(HKDRV
(CYL.DS
TRK.DS
SEC.DS
RMDS
RMHR
RMDC
RMDA
RM.REG+12 RM.REG+36 RM.REG*34 RM.REG+06
RMER?2
RM.REG+42

EM41
DH12
DT44

g}g

327
328
329
330

RMCS2
RMDS
RM.REG+10 RM.REG+1?2

CYLNDR,TRACK, AND SECTOR ARE DECIMAL

; *ERROR

002302
002304
002306
002310

RMCST
RM.REG

RH/RM ERROR (MESSAGE)
TEST
ERR PC
TST PC
$TMPO
SERRPC
SREGO
RMCS1
RMCS?2
RM.REG
RM.REG+10
RMER1
RMMR?
RM.REG+14
RM.REG+40

052746

300
301
302
303
304
305
306
307
308
g?g

DRIVE
(HKDRV
RMER?

SEQ 0047

EM6T
DH&?2
DT43
DF&43

o
o
L
A
.
b
o

295 002272
296 002274
297 002276

4
7-5

RM._REG*+14 RM.REG+40 RM.REG+42

;*ERROR

ggz

|1
15:01:20 PAGE

TEST
ERR PC
TST PC
$TMPO
SERRPC
SREGO
RMER1
RMMR2

047746
051675
052470
052736

284
285
286
287
288
289
290
291
292

311
312
313
g}g

MACRO v03.01

FATAL WRITE CHECK ERROR (MESSAGE)
TEST
ERR PC
TST PC DRIVE
CYLNDR
TRACK
SECTOR
$TMPO
SERRPC
SREGO
CHKDRV
(CYL.DS
TRK.DS
SEC.DS
RMCS
RMCS2
RMDS
RMHR
RMD(
RMDA
RM.REG
RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06
RMER1
RMMR?
RMER?
RMWC
RMBA
RMDB
RM.REG+14
RM.REG+40
RM.REG+42
RM.REG+2
RM.REG+4 RM.REG+22
CYLNDR,TRACK, AND SECTOR ARE DECIMAL

EM&6
DH12
D145
DF&S

CIRMVAQ RMOS5/3/2 EXT'D DR TST

tRROR POINTER TABLE

331

MACRO v03.01

11-APR-80

J
15:01:20 PAGE

&
7-¢

SEQ 0048

LSBTTL

003116
003132

002432
00243¢
002436
002440
002442
002444
002446
002450
002452
002454
002456

= OO 00 N0
NN =2 O V00O N SN

POPINTOVNPOND
= it d vmd crd o e
D o e

41 002460
42 002462

FT:

.WORD

I1T:

.WORD

LT:

FS:

LS:

000000

PAT:

NC1:
NC2:

:FIRST TRACK

MORD
LWORD

0
0

LMORD

.WORD

.WORD
.WORD

0
0

MORD

.WORD

0.0,0

sLAST CYLINDER
s INCREMENT CYLINDER
sLAST TRACK
: INCREMENT TRACK
;FIRST

SECTOR

;LAST SECTOR
sPATTERN CODE
;FILLER WORDS FOR COMMON TABLE USED BY THE
s'OPNTST' ROUTINE.
;NEW CYLINDER ADDRESS
sNEW CYLINDER ADDRESS

;TABLE OF PARAMETER POINTERS
PRHPT
.WORD
PRMO

.WORD

PRM1

.WORD
.WORD
.WORD

PRMS
PRMS
PRM6
PRM?
PRM10
PRMI
PRM1?2
PRM13
PRM14
PRM1S
PRM16

.HORD
.WORD

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

003356
003372
003402
003412
003422
003434
003444
003500
003510
000000

032767
001466
001466
001466
000004

0
0

;TABLE

PRHLHT

PRM2
PRM3

PRM17
PRM20
PRM21
PRM22
0

PARAMETER UPPER LIMITS

.WORD

32767

LWORD
.WORD
.WORD

822.
822.
822.

.WORD
.MWORD
LWORD
LWORD
.WORD
LMWORD

18.
18.
18.
31,
3.
17777

.WORD
.WORD
.WORD

4
4
4

; TERMINATOR

Y O

002362
002364
002366
002370
002372
002374
002376
002400
002402
002404
002406
002410
002412
002414
002416
002420
002422
002424
002426
27 002430

.WORD
.WORD

THE
;FOLLOWING PARAMETERS ARE TO BE USED
:REPEAT COUNTS FOR ALL TESTS
;FIRST CYLINDER

000000
000000

RPT:
FC:

PARAMETERS
sTHIS WORD TELLS WHICH OF

et =~

002356
002360

TEST PARAMETER POINTERS AND TABLES

COMHON STORAGE FOR TEST
PR
WORD
O

LC:
1C:

SEQ 0049

ot e

002342
002344
002346
002350

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

002326

15:01:20 PAGE 8

D~ N~ e N WO

000000

002322

30
31
32
33
34
35
36
37
38
39
40

11-APR-80

WNRD —

CIRMVAO RM05/3/2 33 D DR TST
MACRO v03.01
TEST PARAMETER P OIN TERS AND TABLES

Tl!

CIRMVAO RMO5/3/2 EXT'D DR TST

TEST

MACRO v03.01

PARAMETER POINTERS AND TABLES

65
46
47
648
49

S0
51
52
53
54
55
gg

002464
002466
002470
002472
002674

002476
002500
002502
002504
002506
002510
002512

;TABLE OF

045626
045630
045633
045636
045641

PRMMSG:

045644
045647
045652
045656
045662
045666
045671

MSG.R
MSG.FC
MSG.LC
MSG.IC
MSG.FT

MSG.LT
MSG.IT
MES.FT
MES.LT
MES.IT
MSG.FS
MSG.LS

;STATUS/ERPOR INDICATOR MESSAGES POINTER TABLE

;DEFAULT VALUES OF TEST PARAMETERS

61 002514
62 002530

002225
006677

000310
000144

001466
000000

66 002636
67 002656

002237
002237

000001
000001

000000
000000

63 002556
64 002576
65 002616
68 002676
69 002716
70 002734
71 002754
72 002770
73 003000
74 003010

002237
002237
002237
000667
000237
002237

002223

000007
000007
000007

75 003020
76 003032
77 003042

000223
002003
017777

gg 003106

000007

78 003076

000007

91
92
93
9%
95
96
97
98
99

SEQ 0050

PARAMETER MESSAGE POINTERS

.WORD
MORD
LWORD
.WORD
.WORD

.WORC
LWORD
.WORD
LWORD
.WORD
LWORD
.WORD

83
84
85
86
87
88
33

11-APR-80 15:01:20 PAGE 8-1

000001
000010
000001

DFLT:

.WORD
JWORD

2225,200.,822..0.0,0
:RECAL/SEEK (T0)
6677.100..0,256..0.0,0,0.0,0,0 :SEEK/SEEK

JWORD
JWORD

2237.1.0.822..1.0.0.0
2237.1.0.822..1.0,0.0

:CONVERGING/DIVERGING SEEK (T5)
:SERVO ADDRESSING LOGIC NOISE (T6)

7.1.0.255.
7.1.0.822.

SACCESS TIME MEASUREMENT TEST (T14)
*MAXIMUM SEEK TIMING TEST (T15)

7,1000..0.821.

CEXERCISER

JWORD
WORD
JWORD

011610
000001
000001
000001
000001

000000
000000
000000
000000
000000

.WORD
JWORD
.WORD
WORD
WORD

667,5000.,0,882..0,4,0,18.
;RANDOM SEEK TEST (17)
237.1,0,822..100.,0,0 ° ;SERVO SETTLE DOWN 1EST (T10)
2237,1,0,822.,1,0.0.0
:ALL SEEKS TEST (T11)
2223°1.0.0,0.0
*ROTATIONAL SPEED TIMING TEST (T12)
7.1.0.82%.
‘ONE CYLINDER SEEK TIMING TEST (T13)

000001
000001
000001

000000
000000
000000

.WORD
-WworRD
WORD

ZéS 1,0,0,0
;SECTOR ADDRESSING TEST (T16)
200%,1,6,0
*TRACK ADDRESSING TEST (T17)
1777%,1.0.821..64..0.4,1.0,18.,1,1,0,177777 :DATA TEST (T20)

011610

000000

.WORD

7.5000..0.2565.

000001
000001

001750

000000
000000

000000

JWORD
WORD

"WORD

2237.1,0.,822..1.0,0,0 = :INCREMENT SEEK (12)
2237.10,6,512..,1,0,0,0 :STEPPING SEEK (T3)
2237.1,06,822..1,0.0.0
:0SCILLATING SEEK (T4)

JPARAMETER TABLES

003116
003120
003122
003124
003126
003130

002225
000310
001466
000000
000000
000000

:RECAL/SEEK (T0)
PRMO:
.WORD
2225
"WORD
200.
WORD
822.
WORD
O
WORD
O
"WORD
0

003132

006677

; SEEK/SEEK (T1)
PRMI:
.WORD
6677

003134
003136
003140
003142
003144
003146
003150

000144
000000
000400
000000
000000
000000
000000

(T1)

000000
000000
000000

"WORD
WORD
"WORD
"WORD
WORD
WORD
WORD

100.
0
256.
0
0
0
0

(T21)

*ACCESS TIME ADJUSTMENT TEST

(122)

CZRMVAO RMO5/3/2 EXT'D DR TST

TEST

MACRO v03.01

PARAMETER POINTERS AND TABLES

100 003152
101 003154

000000
000000

104
105
106
107
108
109
110
111

002237
000001
000000
001466
000001
000000

}8§ 003156
003160
003162
003164
003166
003170
003172

003174

}}% 003176

114

115
116
117
118
119
120
121
}Sg

MORD
.MORD

000000

11-APR-80 15:01:20 PASE 8 2

MORD

: INCREMENT SEEK
PRM2:
.WORD
WORD
WORD
.WORD
.WORD
.MORD
.MORD

000000

.MORD

;STEPPING SEEK

0
0

(T2)
2237
1
0
822.
1
0

(13)

003200
003202
003204
003206
003210
003212
003214
003216

002237
000001
000000
001000
000001
000000
000000
000000

PRM3:

125
126
127
128
129
130
131
}gg

003220
003222
003224
003226
003230
003232
003234
003236

002237
000001
000000
001466
000001
000000
000000
000000

PRM4:

134
135
136
137
138
139
140
141
lzg

003240
003242
003244
0032646
003250
003252
003254
003256

002237
000001
000000
001466
000001
000000
000000
000000

;CONVERGING/DIVERGING SEEK
PRMS:
.WORD
2237
.WORD
1
.WORD
0
.WORD
822.
WORD
1
MWORD
O
WORD
0
.WORD
0

144
145 003260
146 003262

002237
000001

;SERVO ADDRESSING LOGIC NOISE GENERATOR
PRM6:
.WORD
2237
WORD
1

154
155 003300
156 003302

000667
011610

;RANDOM SEEK TEST (17)
PRM7:
.WORD
667
.WORD
5000.

124

147
148
149
150
151
}gg

003264
003266
003270
003272
003274
003276

000000
001466
000001
000000
000000
000000

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

SEQ 0051

2237
1
0
512.
1
0
0
0

;OSCILLATING SEEK (T4)
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
WORD
MORD

2237
1
O
822.
1
0
0
0

0
822.
1
O
0
O

(15)

(T6)

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

TEST PARAMETER POINTERS AND TABLES

157
158
159
160
161
}g%

003304
003306
003310
003312
003314
003316

11-APR-80 15:01:20 PAGE 8-3

000000
001466
000000
000004
000000
000022

.WORD
.WORD
.WORD
.WORD
WORD
.WORD

003322
003326
003326
003330
003332
003334

000237
000001
000000
001466
000144
000000
000000

; SERVO SETTLE DOWN TEST
PRM10:
,WORD
237
.WORD
1
.WORD
0
.WORD
822.
.WORD
100.
MORD
0
.WORD
0

003336
003340
003342
003344
003346
003350

002237
000001
000000
001466
000001
000000

;ALL SEEKS TEST
PRM11:
_WwrRD
.WORD
.WORD
.WORD
.WORD
.WORD

003356
003360

002223
000001

;ROTATIONAL SPEED TIMING TEST
PRM12:
.WORD
2223
.WORD
1

(112)

000007
000001
000000
001466

;ONE _CYLINDER SEEK TIMING TEST
PRM13:
,WORD
7
.WORD
1
.WORD
0
.WORD
822.

(T13)

200 003406
58; 003410

000007
000001
000000
000377

;ACCESS TIME MEASUREMENT TEST
PRM14:
_WORD
7
.WORD
1
.WORD
0
.WORD
255.

203
204 003412

000007

;MAXIMUM SEEK TIMING TEST
PRM15:
.WORD
7

164
165 003320

166
167
168
169
170
};;
173
174
175
176
177
178
179
180
}g;
183
184
185
186
187
188
}gg

003352
003354

003362
003364
003366
003370

191
192 003372

193 003374

196 003376

}gg 003400
197
198 003402
199 003404

205 003414
206 003416

%8; 003420
209

210
211
212
213

003422
003424
003426
003430

000000
000000

000000
000000
000000
000000

000001
000000

001466

000223
00001
000000
000000

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

SEQ 0052

0
822.
0
4
0
18
(T1Q)

(T111)
2237
1
0
822.
1
0

0
O

0
0
0
0

(T15)

1
0

822.

:SECTOR ADDRESSING TEST
PRM16:
.WORD
223
.WORD
1
.WORD
0
.WORD
O

(T14)

(T116)

CIRMVAO RM05/3/2 EXT'D DR TST

MACRO v03.01

002003

003444

017777
000001
000000
001465
000100
000000
000004
000001
000000
000022
000001
000001
000000

[«
o

NN = O OO NO WV

003462

003464
003466
003470
003472
003474

003476

000001
0000C3
000000

003500
240 003502

.WORD

_WORD
.WORD

.WORD
.WORD

15:01:20 PAGE 8-¢

: TRACK ADDRESSING

PRM17:

TEST

2003
1

(T17)

0
0

;DATA TEST (T720)
PRM20:
.WORD
17777

.WORD
.WORD
.WORD
.WORD

.WORD
WORD

177777

PTRN15:

000007
001750
000000
001465

PRM21:

000007
011610
00000¢C
000377

PRM22:

U L

AN L

OO ~NO VNS

003434
003436
003440
003442

W
»

000000

WWIN = OO0 ~NO W

& 003432

LA AN M AN NI NV NI PO PO

[aSIASTASTANT VI NT ST ST, 81,81 N1 ST N1, ST, ST NI NI N[ VI,NT, V1,1, 81,01 ST ¥

ININVININ)
=
b e e s s

TEST PARAMETER POINTERS AND TABLES

11-APR-80

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

1
0
821.
64.
0
&

1
0
18.
1
1
0
1

SEXERCISER (T21)7

;ACCESS

.WORD

.WORD
.WORD
.WORD

1000.
0
821.

TIME

ADJUSTMENT

.WORD
.WORD
.WORD

5000.
0
255.

.WORD

TEST

(122)

SEQ 0053

;DATA PATTERN

PAT4

PATS

;DATA PATTERN

PAT6

PAT?

PAT8
PATY
PAT10
PATI
PAT12
PAT13
PAT14
PAT1S

;DATA PATTERN
;DATA PATTERN
;DATA PATTERN
;DATA PATTERN
:DATA PATTERN
;DATA PATTERN
;DATA PATTERN

;DATA PATTERN

;DATA PATTERN
:DATA PATTERN

JPATTERN

PAT?:

.WORD
.WORD
.WORD
.WORD

N SN N

AN -

N NN
NNTNTN

NNNNNNNNN

NNNNNNNN
NNNNNNNNN

NSNNN
NN SN SN N NN

000001

O NN

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

066666

= l=l=lelelele] (=]
NNW—OO0OO0O [=4
NNNNNW-0O

PAT!:

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

NNNSN
NNNN

JPATTERN 0

066666
066666
066666
066666
066666

NN
—o

;DATA PATTERN

:DATA PATTERN

066666
066666
066666
066666
066666
066666
066666
066666
066666
066666
066666
066666
066666
066666
066666
066666

066666
066666
066666
066666

—oooooog
NNW—O0O0O

PAT?
PAT3

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

066666
066666

000001

;DATA PATTERN

PAT1

JPATTERN 2

NNV = O

PATO:

PATO

—

003664

65 003606

066666
066666
066666
066666

QOSSO

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

NNNIN
O NN

61
42 003660
43 003662

SEQ 005¢

PAT.PT:

003620
003622
003624
003626
003630
003632
003634
003636
003640
003642
003644
003646
37 003650
38 003652
39 003654
40 003656

003560
003620
003660
003720
003760
004020
004060
004120
004160
004220
004260
004320
004360
004420
004460
004520

003560
003562
003564
003566
003570
003572
003574
003576
003600
003602
003604
003606
003610
003612
003614
003616

15:01:20 PAGE 9

DATA PATTERN POINTERS AND TABLES

NNNN
NNNN

003556

11-APR-80

.SBTTL

—

\SU‘MWWMMNNNNNNNNNN—.—O—a-o—-_o—o_._._..
N T2 O VB NO VNS NN =O VO NO VNS NN = OO0~

ololeolololols]

DATA PATTERN POINTERS AND TABLES

MACRO v03.01

—t
s b s = NO QO NO
WS NN
— O

CIRMVAO RM0S5/3/2 EXT'D DR TST

S AND TABLES

MICRO v03.01

66 003670

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

WO O

VALV IV IV P P

NOWVNES

(S VA Al

000000

003756

PAT3:

000000

PAT4:

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

PATS:

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

004006
004010
9 004012
90 004014
97 004016

- e OO -t et = O OO

92
93 004020
94 004022
95 004024
96 004026
97 004030
98 004032
99 004034
100 004036
101 004040
102 004042

ROV NWARINUROAVAAA.
VWAARONAVAVAVARININ

004004

.WORD
.WORD
.WORD

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

O WS W
— O
NNOOWnWWnh
e

003774
003776
004000
004002

D il

000000
000000
000000
1777177
1727777
177777
000000
000000
127777
177777
000000
177777
000000
177777
000000
177777

el i ol o

003760
003762
003764
003766
003770
003772

15:01:20 PAGE 9-1

SEQ 0055

11-APR-8B0

000000
000000
000000
000000
177777
177777
177777
000000
000000

;PATTERN 3

177777

177777
000000

177777
000000
177777

000000
177777

000000

— el il i) it el i =
DO OOOOO
O N
IR = O
O W
ey —
NN OIS
S
PN — — o
NN NWNO RO PN = N = S O H
NN = YN
= O B NOO O & ~no
O NP — O~
N B e—

DATA PATTELRN POIN
1

‘D DR TS7

—r e C ) i et =
OO
POROAAVAPTOURORNIAANN
VAROROVANWATININ
PORVAAVROURNONDNAWNLA
WNAVROROWNMNUMATONIND G
PONLWNUARNUNUROAAN

CIRMVAQ RMOS5/3/ 2

JPATTERN

JPATTERN 5

CIRMVAQ RMO5/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES

MACRO v03.01

103
1064
105
106
107

004044
004046
004050
004052
004054

052525
125252
052525
125252
052525

110
111
- 112
113
114
115
116
117
118
119
120
121
122
123
126

004060
0064062
004064
004066
004070
004072
004074
004076
004100
004102
004104
004106
004110
004112
004114

007417
007417
007617
170360
170360
170360
007617
007417
170360
170360
007417
170360
007417
170360
0074617

PATG:

127
128
129
130

006120
004122
004124
004126

PAT7:

0064130
004132
006134
004136
004140
004142
006144
004146
004150
004152
004154
006156

026455
026455
026455
151322

151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026455
151322

166 004160

165555

PATS:

}88 004056

}%Z 0064116

131
132
133
136
135
136
137
138
139
140
141
}2%

145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

004162
0041646
004166
004170
0064172
004174
004176
004200
004202
004206
004206
006210
004212
004214
004216

125252

5
£
15:01:20 PAGE 9-2

SEQ 0056

LMWORD
LMWORD
.WORD
LMORD
.WORD

052525
125252
052525
1252852
052525

LMORD
.WORD
.WORD
MORD
.WORD
.MWORD
.WORD
.WORD
.WORD
.WORD
MWORD
LMWORD
.WORD
.MWORD
.WORD

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360
007417
170360
007417
170360
007617

:PATTERN 6

.WORD
LWORD
.WORD
MWORD

PATTERN

LMORD
LWORD
MWORD
.WORD
LMWORD
.WORD
.WORD
LWORD
LWORD
LWORD
.WORD
LWORD

026455
026455
026455
151322

151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026455
151322

LMORD

165555

;PATTERN 8

LMORD

170360

133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333

11-APR-BQ

LWORD

.WORD
.WORD
.WORD
MWORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

125252

170360

133133
165555
133333
165555
133333
165555
133333
165555
133333
165559
133333
165555
133333
165555
133333

.WORD
.WORD
.WORD
.WORD
.WORD
PAT12:

.WORD
.WORD
.WORD
.WORD
.WORD

;PATTERN

JPATTERN

NN TN N N N N N N TN Y N NN WL

SNV O =N~
NN N N NN N~
NN NN O Y~~~
NNNNNNNWVO
NN NN
NNNNNNNNNNNNO
NN
S——-

;PATTERN 9

(Wale 2V To RV To RV Jo JV To W To JV To V¥, 1o J

.WORD
.WORD
.WORD
.WORD
.WORD

Sy S

PATI1:

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

SEQ 0057

SNESNNTNN

004360
004362
004364
004 366
004370

PATI10:

000001
000002
)4
000C
000010
000020
000040
000100
000200
000400

i S

004320
004322
004324
004326
004330
004332
004334
004336
004340
004342
004344
004346
004350
004352
004354
004356

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

004316

PATO:

F
o5
15:01:20 PAGE 9-3

NNV NWV NI SN
SN
SNV NN
VIROWARDVARIWPOWANOWNRNOWIRNOWARD
NNSNNSN
VNNV
N
NN
NN O
VRNV
VL VIRV To gV 1o SV To JV Yo JV. To JV To JV Te JV ToJ

004300
004302
004304
004306
004310
004312
004314

11-APR-80

004260
004262
004264
004266
004270
004272
004274
004276

N
NN
NN NN NI NN N
NN N N0 NI NN N NN NN
NNTSNSNTSNISNSNWWWO
NI NN NN
NNTSNTSNSNSNSNSNSNNWNO
NN
NN N N TN NN TN N N N N SN AW

004240
004242
004264
004246
004250
004252
004254
004256

WV NWVNWVNIWVNWVINWVINWVINWSN
WVARDVWVARIAWAWROVARND
RN WVINOWN
VMOV
VMO WO WVMO WO VO WO
WO WVMO VO WO WV
WO VOV
VMO
WVMO WO N VOO0

004226
004230
004232
004234
004236

000001
000002
000004
000010
000020
000040
000100
000200

NOVAWNN
WSNIN NN
NSNS
N
NNNNN
NNNNN

004220
004222
004224

—r =t
O

PNV

NN = OOV

O 0 O OOV OV VOO

OO OO0 L0000~~~ ~

NN~~~ ocococococoocoo o

NO VNS WA 2O OO VNS NN = OO0 ~NO VNS NN — O

—l—._‘—._.‘_‘-‘—.-—.—‘-—.—._‘_‘—-‘—l—.-‘-fl—l—‘—-‘—‘—.—l-‘.—‘—‘—‘—0—‘—‘—‘—‘—.—..—‘—-‘_‘

DATA PATTERN POINTERS AND TABLES

MACRO v03.01

— et et =2 O
NOMANSN
WNNNSNSN

CIZRMVAOQ RM05/3/2 EXT'D DR T1ST

NNNNNNO NN~

;PATTERN

IRRIIIIIIIIIINNS
NSNNNNNSNNNN NSNS

;PATTERN

N
N

(e XV TeNN
JV ToNN
XV ToNN
XV TeNN
YV ToNN
JV

(Ve JV To JV Te JW 1o JVW Te JVW Te YV ')

SNNSNONWNMNN
SN NN N N
VNN N NN NN NN

SEQ 0058

JPATTERN

(V]

OO w

NN~ (¥ ] NN

N NN SN N
IS NI

NNNNNNNNSNNNNNNNO

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

PATI1S:

—

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

OO ==

PAT14:

GOV
VOO WO VOV

.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

Qe Ot Ot O

PAT13:

ONNNSNNNNNNNNNNNNO

177777
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

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

15:0':20 PAGE 9-4

il il D il D o i oD ot el e sl i e

-l
il Gl
el
)
el
el
el
il

NNNSNSNSNNNSN
NN
NNSNSNNNNNNOWD
NNNNNNO
VI ~N~
NNV
NI NS~
O VNN NN NN~

—

OO
—
[V To QV,]}OV
WO
N QN
[V 1oJ WO
i~ OO
N
w NWNW
—d —
—l
=
-l
el
el
)
b

11-APR-B0

004520
004522
004524
004526
004530
004532
004534
004536
004540
004542
004544

004500
004502
004504
004506
004510
004512
004514
004516

004460
004462
004464
004466
004470
004472
004474
004476

004420
004422
0046426
004426
004430
004432
0044 34
004436
004440
004442
006444
004446
004450
004452
004454
004456

004416

N NNNNNNNNNNNNN ~
NNNNNNNNNNNNNN ~
NNNNNNNNNNNNNN -~
NNNNNNNNNNNNSNN ~
NNNNNNNNNNNSNNN ~

004372
004374
004376
004400
004402
004404
004406
004410
004412
004414

) —
OO0 ~NO N

(O VLIV

NONLRNLNINININININY

W LV LV IV AV, AV, ]

NO NS NWN

OO0V

NO NS LW~ OV~

PIRNIRNIPNORNININI
NN RO NI NN NN NI NN NN N PO NS
A W AN LN L N AR AN M N NI N NN NI NI PO NI NI N = et s

DATA PATTLRN POINTERS AND TABLES

MACRO v03.01

-—

CIRMVAQ RM05/3/2 EXT'D DR TST

000000

CIRMVAO RM05/3/2 EXT'D DR TST

DATA PATTERN POINTERS AND TABLES

276
275
276
277

004546
004550
004552
004554

278 004556
279
460

000000
000000
000000
000000
000000

MAPCRO v03.01

11-APR=8B0
.WORD
.WORD
.WORD
.WORD
.WORD

H
§
15:01:20 PAGE 9-%

000000
000000
000000
000000
000000

SEQ 0059

CIRMVAQ RMO5/3/2 EXT'D DR TST

START QOF

PROGRAM

MACRO v03.01

;

11-APR-80

.SBTTL

3 0064560
g 004566

012737
000402

177777

6 004570

005037

001322

8 004600

000411

7 0064576

005037

001322

001320

I
15:01:20 PAGE

5
10

SEQ 0060

START OF PROGRAM

START3: MOV
BR

#-1,BUSADR
STRT1A

;GET BUSADR FLAG

START]:

(LR

BUSADR

:CLR BUSADR FLAG

START

STRT1A:

(LR

CNTRLC

;NO CONTROL ''C'’

10 0064602
11 004610

012737
000402

177777

001322

START4:

MOV
BR

#-1,BUSAOR
STRTZA

;SET BUSADR FLAG

13 004612
}g 004616

005037
012737

001322
177777

01320

STARTZ2: (LR
STRT2A: MOV

BUSADR
#-1,CNTRLC

sCLR BUSADR FLAG
;SET CONTROL ‘'C'’" FLAG

16
17
18
19

000240
005227
001375
000005

%0
.4

;.
TY LOOP, WAIT FOR
:0F WORD
:CLEAR THE WORLD

004624
004626
004632
004634

START:

000000

21
012706
005026
022706
001374
012706

001114

004656
004664
004672
004700
004706
004714
004722

012737
012737
012737
012737
012737
012737
013737

024646
000340
021532
000340
0251764
000340
021200

000020
000022
000030
000032
000034
000036
021172

004736
004746
004750

012737
005037
005037

123456
001220
001222

025650

004754
004762

012737

004770

112737
012737
012737

004776
005002
005010
005016
005026
005032

013746
012737
012737
012737
022777
001012

005034
005036
005042
005044
005052
005060

000403
012716
000002
012737
012737
012637

001154

001100

176543

025646

000001
004762

Q01131
001122

000004
005036
177570
177570
177777

000004
001154
001156
174122

004770

001124

005044
000176
000174
(00004

INCREMENT

.SBTTL
INITIALIZE THE COMMON TAGS
;sCLEAR THE COMMON TAGS (SCMTAG) A&cA
MOV
#SCMTAG,RE
ssFIRST LOCATION TO BE CLEARED
CLR
(R6) ¢+
s CLEAR MEMORY LOCATION

004636
004642
004644
004650
004652

004730

NOP
INC
BNE
RESET

CMP
#SWR ,R6
;:DONE?
BNE
.-6
::LOOP BACK IF NO
MOV
WSTACK,SP
::SETUP THE STACK POINTER
;s INITIALIZE A FEW VECTORS
MOV
#$SCOPE,8#10TVEC ;. ]0T VECTOR FOR SCOPE ROUTINE
MOV
#340,a#{0TVEC+2 ;:LEVEL 7
MOV
#SERROR ,@MEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,@0EMTVEC+S ;:LEVEL 7
MOV
#STRAP,9#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
MOV
#340,NTRAPVEC+2;LEVEL 7
MOV
SENDCT,SEOPCT
:sSETUP END~-OF -PROGRAM COUNTER

l176543.$HINUH

;sPRIME THE RANDOM NUMBER GENERATOR

MOvB
MOV

#1,8ERMAX
#.,5LPADR

;;ALLOW ONE ERROR PER TEST
;. INITIALIZE THE LOOP ADDRESS FOR SCOPE

#123456.SLONUM
STIMES
SESCAPE

::BOTH HIGH AND LOW WORDS
:SINITIALIZE NUMBER OF ITERATIONS
::CLEAR THE ESCAPE ON ERROR ADDRESS

MOV
#.,S5LPERR
: . SETUP THE ERROR LOOP ADDRESS
::S12E FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
SYEQUAL TO A "'=1", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
@FERRVEC,-(SP)
;;SAVE ERROR VECTOR
MOV
N64S,QFERRVEC
::SET UP ERROR VECTOR
MOV
#DSWR,SWR
::SETUP FOR A HARDWARE SWI(CH REGISTER
MOV
#ODISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
CMP
#-1,3S6R
“:TRY TO REFERENCE HARDWARE SWR
BNE
668
::BRANCH IF NO TIMEOUT TRAP OCCURRED
66%:

001156
001156

MOV

MOV
(LR
(LR

65S:
66%:

BR
MOV
RT]
MOV
MOV
MOV

653
165%,(SP)

:AND

THE HARDWARE

SWR

S:BRANCH IF NO TIMEOUT
2sSET UP FOR TRAP RETURN

#SWREG, SWR
s sPOINT TO SOF TWARE SWR
#DISPREG,DISPLAY
(SP)+ ,a#ERRVEC
;;RESTORE ERROR VECTOR

IS NOT

= =1

CZRMVAO RMOS5/3/2 EXT'D DR TST
INITIALIZE THE COMMON TAGS

005064
005070
005076
882}82

005037
132737
001403
012737

MACRO v03.01

001242
000200

001255

001256

001154

22
005106
005112
005114
005122
005126

005227
0010564
022737
001450
104401

005130
0051364
005136

005737
001012
123727

000042
001254

000001

005146
005156
005156
005160
882195

023727
001005
106406
000403
112737

001154

000176

000001

001150

005170

000425

005146

001406

177777
021244

000042

005172

25 005250
26 005252
27 005256
28 005260
gg 005266

005020
022700
001374
013737
013737

001174

BEQ

;?::

001224

001516
001520

5
10-1

$PASS
WAPTSIZE,SENVM
67%
#SSWREG, SWR

GET VALUE FOR SOF TWARE

ENE
CMPB

bés.
012700

CLR
BITB
BEQ
MOV

J
15:01:20 PAGE

SEQ 0061

::CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
SSYES,USE NON-APT SWITCH
**NO,USE APT SWITCH REGISTER

.SBTTL
TYPE PROGRAM NAME
;:TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
-1
::FIRST TIME?
BNE
68%
:BRANCH IF NO
CMP
NSENDAD,a#62
::ACT-112?
BEQ
68$
; ;BRANCH IF YES
TYPE
.69%
STYPE ASCIZ STRING

:698:

001164
001166

31
gg

anG?
708
SENV,#
708

:sARE WE RUNNING UNDER XXDP/A(T?
S:BRANCH IF YES
::ARE WE RUNNING UNDER APT?
::BRANCH IF

YES

(MP
BNE
6TSWR
BR
MOVB

718
#1,$AUTOB

BR
.ASCIZ

688
::GET OVER THE ASCIZ
<CRLF>aCZRMVAQ - RM0S5/3/2 EXTENDED DRIVE TEST@<(RLF>

MOV

#SREGAD, RO

CLR
CMP
BNE
MOV
MOV

SWR, #SWREG
718

SWiTCH REGISTER

(RO) +
#$BELL ,RO
1%
TPS,$1PS
TPB.$TPB

s SOFTWARE SWITCH REG SELECTED?
S *BRANCH IF NO
SiGET SOFT-SWR SETTINGS
;:SET AUTO-MODE

INDICATOR

;FIRST ADDRESS

:CLEAR VARIABLE STORAGE

:DONE?
*NO--BRANCH
SSETUP THE STATUS AND BUFFER REG'S
:FOR THE TYPE ROUTINE

:THE FOLLOWING FINDS GUT THE PROGRAM CONTROL MODE:
:PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP

3% 005276
35 005300
36 005306
37 005310
38 005316
39 005324
40 005326
41 005332
42 005336
43 005340

005344

44
45
46
47
48
49

LSBTTL

- 005244
26 0052644

11-APR-80

005372

005372
005374
005400
005402
005403
005404

005037
122737
001160
013737
122737
103002
105037
005737
001425
104401

000612

005046
113716
104403
w01
000
104401

001466
000016

000041

000040
000007

001466
001466

001466
0000642

2%:

005346
..738:

72%:
001466

(01231

CLR
CMPB
BNE
MOV
CMPB
BHIS
CLRB
ST
BEQ
TYPE

_ASCIZ

XXDP
#16, 3041
48
ane0, xxpp
#7,XXDP
2%
XXDP
YV,
3
738

723

<CRLF>/NOT

CLR
-(SP)
MOVB
XXDP, (SP)
TYPOS
.BYTE
1
BYTE
0
TYPE
C$CRLF

;CLEAR 'XXDP' LOAD DEVICE STORAGE
*LOADED FROM AN RM05/3/2 ?
‘BR IF NOT
:GET DEVICE INDICATOR AND NUMBER
215 1T A VALID NUMBER ?
SYES
*NO, DEFAULT TO DRIVE 0
*CHAIN MODE OR ACT11 AUTO ACCEPT ?
‘BR IF NEITHER
;:TYPE ASCIZ STRING

SGET ovea THE ASCIZ

TESTING DRIVE
/

:CLEAR WORD ON STACK
*GET DRIVE ADDRESS
STYPE THE ADDRESS
SONLY 1 CHARACTER
*SUPRESS LEADING ZEROS
SCR=LF

CIRMVAQ RM05/3/2 EXT'D DR TST

GET

MACRO v03.01

VALUE FOR SOF TWARE SWITCH REGISTER

50
51
52
53
5¢

55
56
57
58
59
60

005410

000517

005412
005416

005227
001114

005420
005624

005446
005446
005450
005454
005456
005457
005460
005464

005550
61 005550
005554

001466

000431
104401

000435

71
72
73
74
75
76

004737
005037
012737
004737
004737

80
81
82
83
84
85
86
87
88

005772
005776
006000
006004
006006
006014
006016
006022
006026

006030

005626
. 758

005227
001002
004737

78 005760
79 005764

177777

548

005650
65 005650
66
005654
005660
005662
005670
005672
005700
005702
005704
005706
005714
67 005714
68 005720
69 005722
005726
005732
005736
005742
005750
005754

11~APR-B0

778

005556

;. 78%:

004737

023404

005737
001012
123727
001406
023727
001005
106406
000403
112737

000042

104401

004737
012737
005227
001403
005737
001112
012737
005004
104401

104401
010446
106403

568

10-2

SEQ 0062

;GET NUMBER OF DRIVES

INC
BNE
TYPE

n-1
4
75%

;FIRST
:NO
,,TYPE

LASCI1Z

<CRLE>/T0

CLR
MOVB

-($P)
XXDP,(SP)

.BYTE
.BYTE
TYPE

1
0

LASCIZ

TYPOS

005466

15:01:20 PAGE

TYPE

BR
LASC1Z

748

77%

fes

TEST

TIME

THRU HERE

ASCIZ

STRING

;GET OVER THE ASCIZ

DRIVE

sCLEAR WORD ON STACK
;GET DRIVE ADDRESS

;TYPE DRIVE ADDRESS

;ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS

;s TYPE ASCIZ STRING

:.GET OVER THE ASCIZ

HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

, 788

IT/<(CRLF>

¢ TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART

001254

000001

;TURN ON THE TTY KEYBOARD INTERRUPT
PC,$TKINT
GET VALUE'ZSR SOF TWARE SWITCH REGISTER
ST
INING UNDER XXDP/A(CT?
. sARE WE
BNE
79%
::BRANCYF ;" YES
CMPB
SENV,#1
¢ARE .r RUNNING UNDER APT?

001154

000176

CMP

.SBTTL

JSR

PROGRAM./<(CRLF>

BEQ
BNE

GTSWR

000001

001150

177777

79%:

80$:

045260

001231
026114
177776
000001
033776
026156

037104

177777
177777

SRTINT:

001120

037026

SETVEC:

045731
001231

1%:

2$:

80$

#1,$AUTOB

;. SET AUTO-MODE INDICATOR

INC
BNE
JSR

n-1
SRTINT
PC,GETADR

;SEE IF FIRST START
:BR _IF NOT

TYPE
JSR
CLR

,$CRLF
PC.LP.AVL
PS

s CR-LF
;CHECK FOR A LINE PRINTER

JSR

PC.ST.CLK

JSR

#1,81CNT
PC.GETSWR
PC,RMINIT

MOV
INC

#-1,SAVEFG
N-1

CNTRLC

BEQ
177776

808

: :BRANCH IF YES
;:SOFTWARE SWITCH REG SELECTED?
: :BRANCH IF NO
s.GET SOFT-SWR SETTINGS

MOVB

MOV
JSR

001320
000340

79%

SWR, #SWREG

BNE
MOV
CLR

TYPE
TYPE
MOV

TYPOS

SRTDRV
#PR7,PS

R4
LUNSTAT
$CRLF
R4, -(SP)

sGET OR CHECK THE RH/RM ADDRESS

;ENSURE THE PRIORITY = 0
;SET ITERATION COUNT TO 1
;GO CHECK FOR CONTROL SWITCHES
sINITIALIZE THE CLOCK
;CHECK THE DRIVE STATUS
¢SET THE SAVE REGISTERS FLAG
;FIRST TIME THRU HERE ?
:BR IF NO
;CONTROL 'C*' SWITCH SET ?
;CONTINUE IF YES

;SET PRIORITY 10 7

;DRIVE TABLE POINTER
;TYPE

'UNIT STATUS'

s CR=LF
;. SAVE R4 FOR TYPEOQUT
;. TYPE DRIVE NUMBER
;.60 TYPE--OCTAL ASCII

CIRMVAQ RMOS/3/2 EXT'D DR TST

MACRO v03.01

GET VALUE FOR SOFTWARE SWITCH REGISTER

006032
006033
89 006034

90
91
92
93
94

002
000
104401
105764

.BYTE
BYTE
TYPE
TSTB

046655
036740

006C+0
006044
006046
006050
006054

105764
001404

036750

96 006060
gg 0060664

106401
000452

046015

104401

045770

95 006056

99 006066

}8? 006072
102 006074

100416
001020

100006

000447

BM]
BNE

TSTB
BEQ

B8PL

TYPE
BR

}82 006100

000416

104401

045747

105 006102
}89 006106

104401
000413

046005

108
109
110
111

006110
006114
006116
006122

005737
001406
123706
001003

001466

113 006130
114 006132

000430
1064401
104401

112 006126

115 006136

116
117
118
119

120
121
122
123
}gg

006142
006144
006150
006156

006162
006166
006172
006176
006200

104401

005000
116400
012737
122700

001411
012737
122700
001403
012737

126 006206
}gg 006210

104401
000000

129 006212

005204

130 006214
131 006220
}gg 006222

11-APR-B0

036750
046063
000004

006210

‘SEE IF OFFLINE OR NONEXISTENT
‘BR IF NONEXISTENT

_NOTRM
i1s

*DRIVE NOT AN RMOS/3/2
*CHECK NEXT DRIVE

_NOTPRS

:BR IF UNSAFE
“BR IF ONLINE

‘BR IF OFFLINE

:DRIVE NOT PRESENT

i1s

:CHECK NEXT DRIVE

UNTOFF

;DRIVE OFFLINE

_NOTSAF
gs

:DRIVE UNSAFE
‘PRINT DRIVE TYPE

6% :

ST
BEQ
CMPB
BNE
TYPE
BR
TYPE

XXDP
7%
XXDP,R4
7%

:LOADED FROM THIS DEVICE ?
:BR IF NO
*LOADED FROM THIS DRIVE ?
:BR IF NO
:DRIVE ONLINE

CLR
MOVB
MOV
CMPB

i1s
LUNTON
.BLNKS2

BEQ
MOV
CMPB
BEQ
MOV

RO
DRVTYP(RG),RO
#SRMO3,10$
¥4 ,RO

9%
#SRMO2,10%
#5,R0
9%
#SRMOS, 108

;GET DRIVE TYPE
:ASSUME ADDRESS OF RMO3 MESSAGE
215 DEVICE AN RMO3 ?

TYPE
JWMORD

;TYPE THE DRIVE TYPE MESSAGE
*MESSAGE ADDRESS HERE

INC

: INCREMENT DRIVE NUMBER/TABLE POINTER

006210

046070

DRVSTA(R4)
5¢
6%
DRVTYP(R4)
{3

TYPE
BR

8$:

006210

::TYPE 2 DIGIT(S)
::SUPPRESS LEADING ZEROS
:TYPE & SPACES
SCHECK DRIVE'S STATUS

58 :

046056
000005

SEQ 0063

046036

046657

TYPE

2
0
.BLNKS4

.3
10-3

001466

045760

TYPE

L
15:01:20 PAGE

98
108

18$:

TYPE

,LODEV

*DRIVE

1S LOAD DEVICE

:TYPE 2 SPACES

STYPE IT IF YES
*ADDRESS OF RM02 MESSAGE
115 DEVICE AN RMO2 ?
:BR IF YES
*ADDRESS OF RMOS MESSAGE

020427
001300
104401

000010
001231

CMP
BNE
TYPE

}gg 006226

005037

177776

CLR

sSET PRIORITY BACK T0 '0°

136
137
138
139

006232
006236
006240
006244

005737
001417
013746
063716

001320
001316
001314

TST
BEQ
MOV
ADD

CNTRLC
2
SAVCSW,=(SP)
C.SWR, (SP)

;CONTROL ''C'" START/RESTART?
*NO=--BRANCH
-GET THE PREVIOUS 'C.SWR' CONTENTS
:SET UP 1O SEE IF 'BIiT00' IS DIFFERENT

141 006254
142 006256
143 006264

001405
013737
004737

001314
(26434

BEQ
MOV
JSR

1%
C.SWR,SAVCSW
PC,LODFLT

‘BR IF NOT
-STORE PRESENT 'C.SWR' VALUE
*RESET PARAMETERS TO THEIR DEFAULT VALUES

140 006250

032726

SRTDRV:

000001

BIT
001316

RG,#8.
2%
,SCRLF

:PRINT DRIVE TYPE

#81700,(SP)+

*FINISHED ?
:BR IF NOT
:CR-LF

:1S "BITO0' DIFFERENT ?

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER
1644
145
1646
1647
148

006270
006274
006276
006302
006306

004737
000426
004737
005037
005000

012701

000001

151
152
153
154
155
156
157
158
159
}g?

006314
006320
006322
006326
006330
006334
006336
006344
006346
006350

105760
003411
005737

036740

162
163
164
165
166
167
168
169
170
171
172

006352
006356
006364
006366
006372
006372
006376
006402
006404
006410
006612

};2 006416

000137

175
176
177
178

006422
006424
006426
006432

006201
103011
005237
010046

}gg 006310

0064364
006436
006437

79 006440

006442
006444
006450
006452

001403
123700

001403
156037
005200
106301
001361

0364226

1$:

026434

2$:

001326

11-APR-80

001466

JSR
BR
JSR
CLR
CLR

PC,GT.PRM
6%
PC,LODFLT
DRVSEL
RO

1518
BLE
TST

BEQ
Bl1S8
INC
ASLB
BNE

DRVSTA(RO)
;1S DRIVE ON-LINE ?
5¢
:BR IF NO
XXDP
sLOADED FROM THIS DEVICE ?
3)
:BR IF NO
XXDP,RO
;LOADED FROM THIS DRIVE ?
5%
;BR IF YES
ATABIT(RO) ,DRVSEL
¢YES, SELECT DRIVE FOR TESTING
RO
:TRY NEXT DRIVE
R1
;ANY MORE DRIVES TO CHECK ?
3%
;BR IF YES

(LR
BIT
BNE
COM

SEEKFG
#SW08,C.SWR
7$
SEEKFG

;CLEAR SEEK FLAG
;D0 SEEK BEFORE DATA TRANSFER?
: YES=-BRANCH
:NO

TYPE
CLR
CLR
MOV
BNE
TYPE

,DRIVES
$ENDCT
RO
DRVSEL ,R1
8$
. NONE

;'DRIVES(S) TO BE TESTED'
;DETERMINE PASSES TO MAKE AND
;THE DRIVES TO BE TESTED
;ANY DRIVES SELECTED?
: YES==BRANCH
; 'NONE'

BEQ
CMPB

001466
037054

48
5%:

005037
032737
001002
005137

037030
000400

6$:

104401
005037
005000
013701
001004
106401

046075
021200

037030

7$:

001326
066125

021020
8%:
021200

104403
001
000
046132

;SETUP DEFAULT PARAMETERS

;NO DRIVES SELECTED
;DETERMINE THE DRIVES THAT
:ARE AVAILABLE FOR TESTING

JMP

$EOP

:JUMP TO END OF PROGRAM

ASR
BCC
INC
MOV
TYPOS
.BYTE

R1
9¢
SENDCT
RO,-(SP)

;REPORT

TST

THE DRIVES TO BE TESTED

:GIVE THIS DRIVE A PASS
:SAVE RO FOR TYPEOUT

;.60 TYPE--OCTAL ASCII
;s TYPE 1 DIGIT(S)
: ;SUPPRESS LEADING Z{nCS

.BYTE

BEQ
TYPE
INC
BR

10%
. COMMA
RO
8$

108:

Mov
TST
BGT
BIT
BEQ
TYPE

$ENDCT,SEOPCT
CLKSTA
RSTRT
#36000,TSTNMS
RSTRT
~NOCLOK

:1S KW11-P AVAILABLE ?
:BR IF YES
;ANY TIMING TESTS TO BE PERFORMED ?
:BR_IF NO
:TYPE NO KW11=-P CLOCK MESSAGE

RSTRT1:

DRVSEL
1$
START?

sANY DRIVES SELECTED ?
:BR IF YES
:GET DRIVE SELECTION ENTRY

CHKDRV
#1 ,DRVMSK

;INIT. THE CHECK DRIVE KEY
:START TO CHECK DESIRED DRIVES

9%:

006454
006462
006466
006470
006476
006500

013737
005737
003006
032737
001402
104401

021200
001340

006504
006510
006512

005737
001002
000137

001326
004612

TST
BNE
JMP

006516
006522

005037
012737

001350
(000001

(LR
Mov

036000

046135

001352

(A3

;GET PARAMETERS

1
0

005701

001404
104401
005200
000763

SEQ 0064

MOV
38:

m
5
15:01:20 PAGE 10-4

;MORE DRIVES?

:NO=--BRANCH
D!
:FORM DRIVE NUMBER

;& RESTART A1 BEGINNING

CIRMVAO RM05/3/2 EXT'D DR TST

MACRO v03.01

GET VALUE FOR SOFTWARE SWITCH REGISTER

198
199 006530
%8? 006536

033737
001010

001352

202 0065640

012706

208 006560
209 006564

013702
105762

203
204
205
%8?

006544
006550
006554
006556

005237
106337
103753
000764

210 006570
211 006572
212 006574
213 006602
214 006606
215 006610
216 006614
217 006620
218 006624
219 006630
220 005636
221 006644
222 006652
223 006654
226 006660
225 006666
226 006672
227 006676
228 006704
229 006710

002005
104011
043737
000756
010237
01023/
010237
010237
004737
012737
112737
032737
001402
105037
112737
004037
004737
112737
004037
104401

231
232
233
234

006721
00672¢
006726
006732
006736

000
104401
104401
012700
013701

236
237
238
239
240
241
262
243
2664
245
246
247
248
249
250

006744
006746
006750
006752
006754
006756
006760
006762
006764
006770
006772
0067764
007000
007002
007004

230 006714
006716
006720

235 006742

251 007010

010246
104403
002

005002

006101
006102
006101
006102
006101
006102
006101
006102
062702
010227
000000
104401
005300
003557
104401

113737

001326

N
5
11-APR-80 15:01:20 PAGE 10-5

RSTRT2: BIT
BNE

DRVMSK ,DRVSEL
DRVOK

;IS THIS DRIVE SELECTED?
;YES=-GO CHECK IF DRIVE 1S READY FOR TESTING

003100

RESTART: MOv

001350
036740

DRVOK:

001350
001352

001352
045456
045476
045516
045536
027066
021020
000020
000001
045457
000143
027132
026072
000107
027132
046222

001326
1$:

001346
065457
001314
065460

28:

045460

3s:

000060

006772

(01462

#STACK,SP

CHKDRV
DRVMSK
RSTRT
RSTRT?

:SETUP THE STACK POINTER

MOV
1518

CHKDRV,R2
DRVSTA(RZ)

:PICKUP THE DRIVE NUMBER
;1S DESIRED DRIVE ON-LINE?

R2,=(SP)

s :SAVE R2 FOR TYPEOUT
::60 TYPE--OCTAL ASCI!
;s TYPE 2 DIGIT(S)

001131

¢MOVE
TO NEXT DRIVE NUMBER
;POSITION THE MASK
;BRANCH 1F THE DRIVE NUMBER NEEDS INITIALIZED

BGT
EMT
8l(
BR
Mov
MoV
MOV
MOV
JSR
My
MOovB
BIT
BEQ
CLRB
MovB
JSR
JSR
MovB
JSR
TYPE

1%
;YES, BRANCH
11
DRVMSK ,DRVSEL
;CLEAR DRIVE'S SELELTION BIT
RESTART
;RETUKN
R2,0PB.A
;SET THE DRIVE NUMBER INTO THE DPB'S
R2,0PB.B
R2,0PB.(C
R2.DTADPB
PC,LOCMD
+LOAD COMMAND INTO DPB.B AND DPB.(
#SEOP,CVPASS
;1F ERROR GO TO END OF PROGRAM
#20,DPB.A+1
;ASSUME 16 BIT FORMAT
#BITO0 (.SWR
:16 BIT FORMAT REQUESTED ?
2%
:BR _IF YES
OPB.A¢1
;CLEAR THE 'FMT16' BIT
#SETFORM,DPB.A+2
:SET THE FORMAT BIT PER DPB.A¢1
RO,CALL.A
;GO EXECUTE THE COMMAND
PC,CNTCLR
;G0 CLEAR CONTROLLER
#RECAL ,DPB.A+2
;RECAL=COMMAND
RO,CALL.A
;GO0 EXECUTE THE COMMAND
. TSTDRV
:"TESTING DRIVE '

.BYTE
TYPE
TYPE
MOV
MoV

2
0
, COMMA
.SERIAL
#4,RO
RM.REG+30,R1

ROL
ROL
ROL
ROL
ROL
ROL
ROL
ROL
ADD
MOV
.WORD
TYPE
DEC
BGT
TYPE

R1
R2
R1
R2
R1
R2
R1
R2
’'0,R
R2,(PC)+
0
4
RO
3%
SCRLF

MOV
TYPOS
.BYTE

046132
046242
000004
045606

001231

INC
ASLB
8CS
BR

CLR

MovBe

ERR.CT,SERMAX

: : SUPPRESS LEADING ZEROS
JTYPE *, !
;TYPE 'MBA SN# '
:FOUR DIGITS TO TYPE
:SERIAL NUMBER
: LERO

;PUT THE NEXT DIGIT
;INTO R2

¢MAKE 1T ASCII
JSAVE 1T
;TYPE
;ALL DIGITS TYPED?
:NO -- BRANCH
s CR=LF

;SETUF MAX ERROR COUNT

SEQ 0065

CZRMVAO RMO5/3/2 EXT'D DR TST
MACRO v03.01
GET VALUE FOR SOFTWARE SWITCH REGISTER
252

11-APR-B0

B
6
15:01:20 PAGE 10-6

.
<cQ 0066

O NI (NN —

CIRMVAD RM05/3/2 EXT'D DR TST
MACRO v03.01
GEY VALUE FOR SOF TWARE SWITCH REGISTER

11-APR-B0

¢
15:01:20 PAGE

6
11

SEQ 0067

S IIHIITITIIIL LI LI

I I LT LT EE LI I I

:*AND

VALUES

:*IN THE DESCRIPTIONS OF
THEIR DEFAULT

: *MNEMONI €

I I

1001000000171101

THE BELOW TESTS THE VARIABLES USED
(UNLESS

SPECIFIED OTHERWISE)

VALUE

VARIABLE

1
0
822
1

ITERATIONS (REPEATS)
FIRST CYLINDER ADDRESS
LAST CYLINDER ADDRESS
INCREMENT VALUE

ARE:

NN = O 000

:*R
eFC

b e

soLC
svlC

b d b cd

;*NC OF

NCI

NN = OO0 NN

:*NC2
i

FCelC

NEW OR MODIFIED CYLINDER

LC-1¢

NEW OR MODIFIED CYLINDER

ADDRRESS
ADDRESS

b b

293

NN AN AN PNORI PO AU NI AU RO PRI RAINAD —

pell
s oNT

1
FTe1T

oLl

4 OR

FIRST

LAST

TRACK

ADDRESS

TRACK ADDRESS

INCREMENT VALUE
NEW OR MODIFIED

TRACK

ADDRESS

°®

PeFS

;eLS

IRST

E;////////////////!//////////////////////////////////////////////

= OO

”

SECTOR ADDRESS

LAST SECTOR ADDRESS

.SBTTL

SEEK

TESTS

lIIITIIT1700 000000001 Eiiiiriiieiieiriisiiietiiieettieiiiieeesy

¢*THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE
c*IMPLIED SEEXS WILL BE PERFORMED BY ''READ HEADER AND
;*DATA"' COMMANDS TO TRACK '‘'FT'' SECTOR "'FS'' OF THE DESIRED CYLINDER.
;*THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND
s*TRACK/SECTOR WORDS OF THE HEADER ARE READ.

34
35
36

SSlIIIITTIIII 1000

LT EI T eniiiiiiiiireiiiieieieiliieetiitiiieiy

.'.".'."'.'I""""""""""""""'.'.l""""""'t"""

;*TEST O
s*THIS

TEST WILL

RECAL/SEEK TEST
CAUSE

THE DRIVE

TO EXECUTE

A RECALIBRATE

s*COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER ''LC'" AT
:*THE

COMPLETION OF

BOTH COMMANDS STATUS

;*CHECKED TO ENSURE NO ERRORS OCCURRED.

INDICATIONS ARE

.’.'"...'....""."'"""""".'..."'.."""".'.'.'.t""."

007016

007020
007026
007030

007034
007042
007046
007054
007062
007070

000240

1ST0:

033737
001002
000137

001526

012737
004737
012737
013737
112737
012737

000000
026672
007166
0023264
000031
000000

001330

007204

001116
001124

001220
001131
001240

NOP

BIT

BITS+<0¢2>,TSTNMS

BNE

;00 THIS TEST?

JMP

)

:BR

VYES

MOV
JSR
MOV
Mov
MOvB
MOV

#0,8TSTNM
PC,LODPRN
FTESTO,SLPERR
RPT,STIMES
#25. ,SERMAX
#0,$TESTN

;SET TEST #0 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
¢GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
;.SET TEST NUMBER IN APT MAIL BOX

;NO-=JUMP 10 TEST

—

RMVAQ RMOS/3/2 EXT'D DR TST
RECAL/SEEK TESY

007076
007104
007106

032777
001406
104401

010000

007116
007120
007121

104403
002
000

007122
007130
007136
007146
007152
885122

112737
113737
113737
013737
012737
012737

000107
002342
002334
002330
007202
007166

007166
007172
007176
. 007202

012706
006037
004037
000004

001100
027132
027264

11-APR-80

[V
15:01:20 PAGE

BIT
BEQ
TYPE

#SW12,35WR
.+16
MSGTST

;INHIBIT TYPING TEST NUMBER *
‘BR IF YES
CTYPE 'TEST®

2
0

;60 TYPE==0CTAL AS(CI]
S:TYPE 2 DIGIT(S)
$:SUPPRESS LEADING 2EROS

TEST0

MOVB
MOVB
MOVB
MOV
MOV
MOV

W#RECAL,DPB A+2
FS,DPB.B+10
FT.OPB.B+11
LC.DPB.B*12
#EX1T0,BYPASS
#TESTO.SLPADR

:RECAL=COMMAND
ES
FT
:LC
:60 10 EXITO ON ERROR
:SETUP LOOP ADDRESS

EXITO:

MOV
JSR
JSR
SCOPE

#STACK,SP
RO, CALL.A
RO,CALL.B

;SET UP STACK POINTER
260 EXECUTE THE COMMAND
160 EXECUTE THE COMMAND
:CALL SCOPE ROUTINE

MACRO v03.01

172050

046253

007112 013746 001240

46
47
48
49
S8

MOV

TYPOS
.BYTE
.BYTE

045460
045506
045507
045510
001346
001122

11-}

§TESTN, - (SP)

SEQ 0068

:SAVE STESTN FOR TYPEOUT

.':""l't.'lt""!t"""""'ttt"""'t'ttt.ttlt"t"ttt'tttttt

TeTEST
$#THIS

1
TEST

WILL

SEEK/SEEK TEST
CAUSE THE ORIVE

TO EXECUTE

A FORWARD

SEEK

soCYCLE TO “'LC'', "'LT', "'LS" FOLLOWED BY A REVERSE SEEX CYCLE 10
-”FC” FT, ”FS“
AT THE COMPLETION OF EACH SEEK, THE PROPER
'INDICAIORS ARE EXAMINED TO ENSURE

007204

000240
033737
001002

000137

007412

097222
007230

012737
004737

000001
026672

001116

007374
002324
000031
000001

001124
001220
001131
001240

007264
007272
007276
007300
0073064
007306
007307

032777
001406
104401
013746
1(+403
002
000

010000

171662

007310
0073164
007322
007330
007336
007346
007352
007360

005037
113737
113737
113737
113737
013737
013737
012737

001464
002342
002344
00233¢
002336
002326
002330
07410

007234
007262
007250
007256

012737
013737
112737
012737

001530

001330

NOP
817
BNE

BITS+<1¢2>,TSTNMS
+6
CBR IF

1S12

'NO--JUMP 10 TEST2

MOV
JSR

#1,81STNM
PC,LODPRM

:SET TEST #1 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST

81T
BEQ
TYPE
MOV
TYPOS
.BYTE
.BYTE

#SW12,3SWR
+16
HSGTST
STESTN -(SP)
2
0

;INHIBIT TYPING® TEST NUMBER ?
‘BR IF YES
;TYPE 'TEST'
;:;SAVE STESTN FOR TYPEOUT
2360 TYPE==-0OCTAL ASCII
SITYPE 2 DIGIT(S)
::SUPPRESS LEADING ZEROS

CLR
MOVB
MOVB
MOVB
MOVB
MOV
MOV
MOV

BASFLG
FS.DPB.B+10
LS.DPB.(+10
FT.DPB.B+11
LT.DPB.C+11
FC.OPB.B*12
LC,DPB.C+12
SEXIT1.BYPASS

JCLEAR BAD SECTOR ENCOUNTER FOR THE DRIVE
‘FS
LS
FT
T
FC
LC
GO TO EXIT1 ON ERROR

JMP

046253
001240

045506
045526
045507
045527
045510
045530
001346

PROPER OPERAYION

2222222222222322222Z2
22222222222 2
2 XX XX R X E AR R EE R R KR

t811:

007204
007206
007214

007216

69
70
71
72
73
74
75
80

MOV
MOV
MOVB
MOV

#TEST1,SLPERR
RPT,STIMES
#25.,SERMAX
#1,$TESTN

;DO THIS TEST?
YES

;SETUP THE LOOP ON ERROR ADDRESS
SGET THE JTERATION COUNT
*MAX ERRORS ALLOWED FOR TEST
2;SET TEST NUMBER [N APT MAIL BOX

-—

RMVAQ RMO5/3/2 EXT'D DR TST
SCEXK/SEEK TEST

88;%?2

012737

007374

81 007374

012706

001100

82 007400
83 007’ "¢
gg 00740

004037
004037
000004

MACRO v03.01

001122

[ [0]"]

NTESTY,SLPADR

JSETUP LOOP ADDRESS

MoV

FSTACK,SP

;SET THE STACK POINTER

TESTY

JSR
JSR
SCOPE

EXITY:

96
97

15:01:20 PAGE

027466
027264

11-APR-80

11-2

RO,CALL.C
RO,CALL.B

SEQ 0069

;60 EXECUTE THE COMMAND
;G0 EXECUTE THE COMMAND
;CALL SCOPE ROUTINE

;;t""tl'.".""""""""""."".l""."""""""""'

SeTEST

INCREMENT/SEEK

TEST

:*THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE

;*CYLINDER ADDRESS FROM "‘FC'' TO ''LC'' BY THE INCREMENT ''I(C''.
; *WHEN THE RESULTANT

CYLINDER ADDRESS

(NC)

EXCEEDS

;¢ 'LC"" REVERSE SEEK CYCLES ARE INITIATED; STARTING
;*AT

THE LAST LEGAL ''NC'' AND DECREMENTING BY “'IC"

S*UNTIL "NC'' IS LESS THAN 'FC''. AT THE COMPLETION OF EACH
;*SEEK _COMMAND THE PROPER INDICATORS ARE EXAMINED TO
: *ENSURE PROPER OPERATION.

;;'.'t"t""""'"""""""tl""l.""""'t."'."l"tt".

007412
007412
0076414
007622
007426

000240
033737
001002
000137

007430
007436
007442
007450
007456
98 007464

012737
004737
012737
013737
112737
012737

000002
026672
007546
002324
0000317
000002

001124
001220
001131
001240

007472
007500
007502
007506
007512

032777
001406
104401
013746
104403

010000

171454

007515

000

007514

1872:

001532

001330

007654
001116

046253
001240

002

012737

007524

001122

101 007532
105 88;222

113737
012737

002334
007652

04550
001346

106 0075646
107 007554

013737
012737

002326
007554

108
109
110
111
112
113
114
s

004037
063737
023737
002367
013737
012/37
012706

027264
002332
002330

007562

007566
007566
007572
007600
007606
007610
007616
88;6%8
6

113737

012706

BITS+<2¢2>,TSTNMS
;DO THIS TEST?
.+6
;BR IF YES
1813
sNO=-JUMP 10 TEST3

MOV
JSR
MOV
MOV
MOVB
MOV

#2,8T7STNM
PC,LODPRM
FTESTZ,SLPERR
RPT,STIMES
#25.,8ERMAX
#2,.8TESTN

JSET TEST #2 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
JSETUP THE LOOP ON ERROR ADDRESS
JGET THE JTERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
J:SET TEST NUMBER [N APT MA]L BOX

BIT
8EQ
TYPE
MOV
TYPOS

#5W12,a5WR
416
LMSGTIST
$TESIN,-(SP)

JINHIBIT TYPING TEST NUMBER °?
;BR IF YES
;TYPE '"TEST?
;:SAVE STESTN FOR TYPEOUT
;.60 TYPE-~OCTAL ASCII

.BYTE

MOV

#18,SLPADR

JSETUP LOOP ADDRESS

MovB
MOV

F1,0PB.B¢+11
NEX]T2,BYPASS

:FT
;60 TO EX]T2 ON ERROR

MOV
MOV

FC,OPB.B*12
#.,8LPERR

JFC
JSETUP THE

JSR
ADD
CMP
BGE
MOV
MOV
MOV

RO,CALL.B
1C,0PB.B¢12
LC,OPB.B*12
INCSK
LC,OPB.B*12
¥.,SLPERR
#STACK,SP

;60 EXECUTE THE COMMAND
JMOVE TO NEXT CYLINDER
;0UT OF CYLINDERS?
sNO=<BRAN(CH

.BYTE

99 007516

100 007524

NOP
8171
BNE
JMP

002342

001100

002330
007616
001100

045506

045510
001124

18:

MOVB

£5T2
TEST:

INCSK:

045510
045510
04¢510
001124

DECS

MOV

0
FS,DPB.B+10

#STACK,SP

ssTYPE 2 DIGIT(S)

; : SUPPRESS LEADING ZEROQOS
JFS

ERROR LOOP ADDRESS

JLOAD THE STACK POINTER

;SETUP THE ERROR LOOP ADDRESS
JLOAD THE STACr POINTER

RMVAO RM05/3/2 EXT'D DR TST
INCREMENT/SEEK TEST
116
117
118
119

007630
007634
007642
007650

}5? 007652

004037
163737
023737
003767

027264
002332
002326

MACRO v03.0i

15:01:20 PAGE

JSR
SUB
(mp
BLE

RO,CALL.B
1C,0PB.B*12
FC.,OPB.B*12
DECSK

045510
045510

000004

ExIT2:

128
129

11-APR=-B0

SCOPE

11-3

SEQ 0070

;G0 EXECUTE

THE

COMMAND

;CALL SCOPE ROUTINE

;.".""'"""""'""'."""'""'.".'.""'.""""""'..

;vTEST

;*THIS

TEST

WILL

STEPPING SEEK

COMMAND SEEK

TEST

CYCLES

TO CYLINDER O,

:*8, 16, 32, 64, 128, 256 AND 512. AT THE COMPLETION OF EACH
:*SEEK_COMMAND TWE PROPER INDICATORS ARE EXAMINED TO ENSURE

: *PROPER OPERATION.
S

007654
007654
007656
007664

000240
033737
001002

001534

000137

010074

007672
007700
007704
007712
007720
130 007726

012737
004737
012737
013737
112737
012737

000003
026672
010010
002326
000031
000003

001124
001220
001131
001240

007734
007742
007746
007750
007754
007756
007757

032777
001406
104401
013746
104403
002
000

010000

171212

007760
007766
007774
8}88?5

012737
113737
113737
012737

007766
002342
002334
010072

001122
045506
045507
001346

138 010010
139 010016

013737
012737

002326
010016

012737

010040

007666

131
132
133
137

010024
140 010030
141 010034
142 010040
1643
1644
145
146
147

010046

010052
010056
010062
010064
010070

}:g 910072
57
}58

012706
004037
013701

012706

010137
004037
006301
020137
003770

000004

s13:

XXX

BITS+<3%2> ,TSTNMS
+6
:BR IF

1514

sNO=-=JUMP TO TESTS

MOV
JSR
MOv
MOv
MOvVB
MOV

#3,8TSTNM
PC,LODPRM
NTEST3,SLPERR
RPT,S$TIMES
#25. ,SERMAX
#3,8TESTN

;SET TEST #3 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
;GET THE ITERATION COUNT
sMAX ERRORS ALLOWED FOR TEST
;.SET TEST NUMBER IN APT MA]L BOX

BIT
BEQ
TYPE
MOV
TYPOS
BYTE
.BYTE

05912
ISWF

2
0

;INHIBIT TYPING TEST NUMBER ?
:BR IF YES
;TYPE °'TEST'
:SAVE STESTN FOR TYPEOUT
;.60 TYPE--OCTAL ASCII
;s TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

MOv
MOvB
MovB
MOV

#1$,SLPADR
FS.DPB.B+10
F1,0PB.B+11
#EXIT3,BYPASS

;SETUP TEST LOOP ADDRESS
JFS
H3
;G0 TO BYPASS ON ERROR

045510
001124

MOV
MOv

FC.OPB.B+12
M., SLPERR

JFC
:SETUP THE ERROR LOOP ADDRESS

001124

MOV

¥.,SLPERR

;SETUP THE ERROR LOOP ADDRESS

JMP

001116

001240

001100

NOP
BIT
BNE

001330

046253

001100
027264
002332

1%:
TEST3

045510
027264
002330

ExIT3:

HSGTST

$TESTN,-(SP)

MOv
JSR
MOV

#STACK,SP
RO,CALL.B
1C,R1

MoV

#S r £,SP

MOV
JSR
ASL
CMP
BLE

SCOPE

R1,0PB.B+12
RO,CALL.B
R1
R1,LC
13

e 2222222 R

TeTEST &

.00 THIS TEST?
YES

:LOAD THE STACK POINTER
;G0 EXECUTE THE COMMAND
¢CYLINDER 1

;LOAD THE STACK POINTER

;DESJRED CYLINDER
;60 EXECUTE THE COMMAND
;MOVE TO NEXT CYLINDER
;DONE?
+NO--L0OP

;CALL SCOPE ROUTINE

0SCILLATING SEEK TEST

R 2]

CZRMVAQ RMO5/3/2 EXT'D DR TST

CS5CILLATING SEEK

TEST

MACRO v03.01

11-APR-B0

6
6
15:01:20 PAGE 11-4

;*THIS TEST WILL COMMAND SEEK CYCLES FROM "'FC'" TO ''NC'' AND BA(K
;*10 FCT.

UNC'' STARTS AT "FC'* AND INCREMENTS BY “'IC'" UP TO CYLINDER

;*'LC'', THEN ]S DECREMENTED BY "'IC'' BACK TO CYLINDER ''FC''.
AT THE
:'COHPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE
;*EXAMINED TO ENSURE PROPER OPERATION.

M .."""I"l""""""""".'"""""""".'t"'tlt't""

010074
010074
010076
010104
010106

000240
033737
001002
000137

010112
010120
010124
010132
010140
159 010146

012737
004737
012737
013737
112737
012737

000004
026672
010244
002324
000031
000006

001116

010154
010162

032777
001406

010000

170772

010170
010174
010176
010177

013746
104403
002
000

001240

010200
010206
010214
010222

012737
113737
113737
012737

010164

160
161
162
170

010230
010232
010240
010242
010244

104401

005002
032737
001401
005102

iS14:

001536
010506

001122
045506
045507
001346

010000

001314

002326
001434

010262

012706

001100

174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190

010266
010272
010276
010300
010302
010306
010310
010316
010322
010324
010326
010332
010334
010340
010346
010350
010354

010137
004037
005702
001403
004037
001434
013737
004037
005702
001413
004037
001434
005237
023737
003547
005037
063701

010254

1%:

001124
1%:

030664
045510

28:

030664
001434
001460
001434
(002332

BITS¢<4*2> , TSTNMS
;D0 THIS TEST?
.+6
;BR IF YES
18715
:NO==JUMP TO TESTS

MOV
JSR
MOV
MOV
MovB
MOV

M4 ,8TSTNN
PC,LODPRM
FTESTL ,SLPERR
RPT,STIMES
N25. ,SERMAX
¥4, 8TESTN

sSET TEST #4 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
:GET THE ]TERATION COUNT
sMAX ERRORS ALLOWED FOR TEST
¢.SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

lSUlc.iSUR
+16

sINHIBIT TYPING TEST NUMBER ?
:BR IF YES

MoV
TYPOS
.BYTE
.BYTE

$TESTN,=(SP)

;. SAVE STESTN FOR TYPEOUT
::60 TYPE=--OCTAL ASCII
;s TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

MoV
MOvB
Move
MoV

#1$,SLPADR
FS,DPB.B+10
F1,0PB.B+11
WEX1T4,BYPASS

CLR
BIT

TESTS:

045510
027264

002326
027264

NOP
Bl7
BNE
JMP

TYPE

010206
002342
002334
010504

013701
005037

012737

001124
001220
00113
001240

066253

171 010264
172 010250

173 010254

001330

001434
3%:

MSG.ST

2
0

R2
#SW12,C.SuWR

8tQ
COM

TEST4
R2

MOV
CLR

FC.R1
STALLO

JTYPE °TEST'

SETUP LOOP ADDRESS

FT
:GO TO EXIT4 ON ERROR

:CLEAR STALL SWITCH (NO STALL)
sSTALL REQUIRED?
:NO=-BRANCH
;YES==SET SWITCH

MOV

:SET NC TO FC
;START AT ZERO ]F STALLS REQUIRED
¥.,SLPERR
;SETUP THE FRROR LOOP ADDRESS

MoV
JSR
TST
BEQ
JSR
.WORD
MoV
JSR
TST
8EQ
JSR
.WORD
INC
CMp
BGT
CLR
ADD

R1,0PB.B+12
NC
RO,CALL.B
160 EXECUTE THE COMMAND
R2
:STALL?
2$
:NO--BRANCH
RO,STALL
;YES=GO TO STALL ROUTINE
STALLO
;TIME POINTER
FC,OPB.B#12
JFC
RO,CALL.B
GO EXECUTE THE COMMAND
R2
sSTALL?
$
:NO--BRANCH
RO,STALL
:YES--GO TO STALL ROUTINE
STALLO
: TIME POINTER
STALLO
;UPDATE THE TIME
MXSTAL,STALLO
;TIME TQ BIG?
1%
:NO=-BRANCH
STALLO
;YES=--START OVER AT [ERO
IC,RY
+MOVE TO NEXT CYLINDER

MOV

#STACK,SP

LOAD THE STACK POINTER

SEQ 0071

RMVAQ RM0S/3/2 EXT'D DR TST
CSCILLATING SEEXK TEST

191
192
193
194

010360
010364
010266
010372

020137
003740
013701
012737

195
196
197
198
199

010404
010410
010414
010416
010420

010137
004037
005702
001403
004037

210400

200 010424
201 010626
202 010434

203
204
205
206
207
208
209
210
211

010440
010442
010444
010450
010452
010456
010464
010466
010472

212 010476
213 010502
%}g 010504

012706

001434
013737
004037

005702
001413
004037
001434
005237
023737
003347
005037
163701
020137
002340
000004

MACRO v03.01

11-APR-80

002330
002330
010372

001100

(01124

045510
027264

6%:

030664

002330
027264

045510

5%:

030664
001434
001460

001434

001434
002332

6%:

002326

EXIT4:

226

227

15.01:20 PAGE

11 -5

(MP
BLE
MOV
MOV

R1,LC
1%
LC,RY
¥, ,SLPERR

JLAST CYLINDER COMPLETED?
;NO=-BRAN(H
JSET NC TO LC
;SETUP THE ERROR LOOP ADDRESS

MOV
JSR
187
BEQ
JSR

R1,0PB.B*12
RO,CALL.B
RZ
5%
RO,STALL

NC
GO EXECUTE THE COMMAND
JSTALL?
:NO--BRANCH
JYES=<G0 TO STALL ROUTINE

MOV

.WORD
MOV
JSR
187
BEQ
JSR
.WORD
INC
(MP
BGT
CLR
SuB
CMP
BGE
SCOPE

#STACK,SP

LOAD THE STACK POINTER

STALLO
;TIMe POINTER
LC,DOPB.B*12
.LC
RO,CALL.B
;G0 EXECUTE THE COMMAND
R2
:STALL?
6%
;sNO-=BRANCH
RO,STALL
JYES-=G0 TO STALL ROUTINE
STALLO
;TIME POINTER
STALLO
;UPDATE STALL TIME
MXSTAL,STALLO
;TIME T00 BIG?
4%
;NO=-BRAN(CH
STALLO
;YES=-=-SET STALL TIME BArX 10 ZERO
1C,RY
sNEXT CYLINDER
R1,FC
;DONE?
43
:NO=-=BRAN(H
;CALL SCOPE ROUTINE

;;lt'.tt'tt't'tt"t""'""'0'...'.'.""'tttt'.tt.ttt'tt"'tttt

J*TEST S
CONVERGING/DIVERGING SEEK TEST
s*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE

J*SEEKS FROM ''NC1°'' AND "'NC2'' RESPECTIVELY, ''NC1'" WILL BE INCREMENTED
J*BY "'IC'° AND ''NC2'' WILL BE DECREMENTED BY ''IC'' UNTIL "NCI1'' IS

s*GREATER THAN THE INITIAL VALUE OF ''NC2'' AND °''NC2'' IS
s*LESS THAN THE INITIAL VALUE OF ''NC1''.
AT THE COMPLETION Of
JoEACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
;*ENSURE PROPER OPERATION.
°''NC1'" AND ''NC2'' DEFAULT 10
s 'FC'" AND "'LC'" RESPECTIVELY.

":.'ttttt.t...t"""t"'tt'tttttQlt'lttttt'tlt'ttt!t'lt't'tltttt

010506
010506
010510
010516
010520

000240
033737
001002
000137

010524
010532
010536
010544
010552
228 010560

012737
004737
012737
013737
112737
012737

000005
026672
010642
002324
000031
000005

001116

010566
010574
010576

032777
001406
104401

010000

170360

010606
010610

104403
002

010602

013/46

1S7S5:
001540

001330

010732

046253

001240

001124
001220
001131
001240

NOP
BI7
BNE
JMP

BITS+<5¢2>,TSTNMS
;D0 THIS TEST?
+6
BR 1F YES
1516
NO=-=-JUMP T0 TESTH

MOV
JSR
MOV
MOV
MOvVB
MOV

#5,8TSTNM
PC,LODPRM
#TESTS,SLPERR
RPT,STIMES
#25.,8ERMAX
#5,8TESTN

JSET TEST #5 AND CLEAR (SERFLG)
sLOAD THE PARMETERS FOR THE TEST
;SET'P THE LOOP ON ERROR ADDRESS
:GET THE ITERATION COUNT
JMAX ERRORS ALLOWED FOR TELT
:sSET TEST NUMBER IN APT MAlL BOX

8IT
8EQ
TYPE

tsulz 9SWR

;INHIB'T TYPING TEST NUMBER ?
:BR IF YES
;TYPE 'TEST®

MOV

TYPOS
BYTE

HSGYST

iTES!N =(SP)
2

;.SAVE STESIN FOR TYPEOQU!
::60 TYPE=-=OCTAL ASCII
;oTYPE 2 DIGLIT(S)

SEQ 0072

S O0MN
O~

AN\
—

QOO0
[P
¥ Y]

-— SV
=2

1%:

TESTS

il
i
i
i

#18,8LPADR
FS,DPB.B+10

;SETUP LOOP ADDRESS
:FS

MOvVB
MOV

ADD

000004

—

MOV
MOVB

JSR
MOV
JSR

002326
EXITS:
A

SEQ 0073

;s SUPPRESS LEADING ZEROS

MOV
MOV

1%:

6
11-6

MOV

001124

]
15:01:20 PAGE

.BYTE

MOV
MOV

004037

LIV, T, SV P Y« SV TV RN TVTV
" Te 3
WNO = O = ORI
NN
NS OHOONNOO
OO

[olelelelelele BNelelele]
SN
O—=00
—=00—

NN
NN
L NN
NNNN

o S OMNIMNILNWN
NO
= NN NN
WO
WO O
NNNO NN

— el

O——O

ol e

[ I

[elelolalelelolelolealelal

ONO
O

11-APR-80

000

[=] OO0

010612

NN
NN

V=0V

NN
(NN

010611

N
W

SuB
CMP
BGT
CMP
BGE

SCOPE

F1,0PB.B+ 11
FEX1T5,BYPASS

fFC,RY

JFT
;60 TO EXITS ON ERROR

;START NC1 AT FC

LC,R2
¥.,SLPERR

JSTART NC2 AT LC
;SETUP THE ERROR LOOP ADDRESS

RO,CALL.B
R2,0PB.B¢12
RO,CALL.B

;G0 EXECUTE THE COMMAND
:NC2
;60 EXECUTE THE COMMAND

IC,R2
R1,LC
EXITS
R2.FC
1%

SNEXT NC2
;DONE?
JYES=--BRANCH

#STACK,SP
R1,0PB.B+12

1C,R1

ARl

J*TEST 6

;LOAD
JNCI

THE

STACK

POINTER

JNEXT NCI

:NO==-BRANCH

;CALL SCOPE ROUTINE
Rl

]

SERVO ADDRESSING LOGIC NOISE GENERATOR

;*IN THIS TEST A SEEK 1S DONE TO CYL ''NC'' THEN A SEEK TO
;*NC+6 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5.
NOW ''NC'' IS UPDATED
;*BY
"'IC'" AND THE ABOVE SEQUENCE IS REPEATED UNITL 'LC'" IS
;*EXCEEDED BY ANY OF THE ABOVE VALUES.
THE INITIAL VALUE OF 'NC'
;*1S "'FC''.
AT THE COMPLETION OF EACH SEEK COMMAND THE
:*PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

001116

010000

170134

001124
001220
001131
001240

BITS+<6%2>,TSTNMS

JMP

117

;BR

MOV
JSR
MOV
Mov

#6,8TSTNM
PC,LODPRM
#TESTO,SLPERR
RPT,$TIMES

;SET TEST #6 AND CLEAR (SERFLG)
¢LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
;GET THE ITERAT]ON COUNT

BIT
BEQ

#SW12,aSWR
L+16

;INHIBIT TYPING TEST NUMGER ?
‘BR IF YES

MOV

$TESTN,-(SP)

1:SAVE STESTN FOR TYPEOUT

BYTE
.BYTE

2
0

;s TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

MoV
MOVB

#1%,SLPADR
FS.OPB.B+10

Movse
MOov

NN —s

oOnN
~NO

OO0
H20

TYPOS

1$:

MOVB

#25. ,SERMAX
#6,9TESTN

MSGTST

F1,0PB.B+11

.00 THIS TEST?

)

TYPE

[V, 1V, Pt

P oY O

NOP

BIT
BNE

066253
001240

NORY =

000006
026672
011066
002324
000031
000006

QOO
OO
—

OO0
W
oSO

1))

— ad b

¥ 1

[«

O~ ~
OO
Wi
—
SO
ON

g
el
el
ol

OOOOO

—
il

)

—

b e e s b
OO0O0O0O0O0O0O

—

001330

011222

OO0OO0OOO0O0O0

—

OOO0O0O0O

001542

265
266

—

264

—

263

1576:

DOOOD
O~NNYN ~

OO0O00O

'"l"..'.'.t""."""""""".l.t'.tt't""'t"."'.l"'.t"'

OO0

RMVAQ RM05/3/2 EXT'D DR TST
MACRO v03.01
CONVERGING/DIVERGING SEEK TEST

YES

:NO-=JUMP T0Q TEST?7

;MAX ERRORS ALLOWED FOR TEST
;o SET TEST NUMBER IN APT MAIL BOX

STYPE

'TEST'

;.60 TYPE=-=OCTAL ASCII

:SETUP LOOP ADDRESS
FS

94 RMVAQO RM0S5/3/2 EXT'D DR TST
MACRO v03.01 11-APR-80
16
SERVO ADDRESSING LOGIC NOISE GENERATOR

270 011060
011066
271 011066
272 011072
273 011076
276 011102
011110
275 011114
278 011116
279 011120
280 011126
281 011130
282 011136
283 011142
284 011150
285 011156
286 011162
287 011166
288 011174
289 011200

290 011206
291 011212

292 011216
293 011220
294
303
304

012737
013701
013702
162702
012737
012706
020102
003040
010137
004037
062737
004037
162737
004037
062737
004037
162737
004037
062737
004037
063701
000736
000004

011220

001346

MOv

TESTG:

FEXIT6,BYPASS

1%:

86T

MOV
JSR
ADD
JSR
suB
JSR

045510

045510
045510

ADD

JSR
SuB
JSR

045510

ADD

JSR

ADD

BR
SCOPE

EXITG:

6
11-7

SEQ 0074

;60 TO EXIT6 ON ERROR
;P1CKUP "'FC"

MOv
MOv
SuB
MOv
MOv
CMP

001124

000003
027264
000002
027264
000001
027264
000003
027264
002332

J
15:01:20 PAGE

R1,DPB.B+12
RO,CALL.B
#6,0PB.B+12
RO,CALL.B
#3,0PB.B+12
RO,CALL.B
#2,0PB.B+12
RO,CALL.B
#1,0PB.B+12
RO,CALL.B
#3,DPB.B+12
RO,CALL.B
I1C,R1
1%

sFORM LAST CYLINDER THAT
;1S AVAILABLE FOR TESTING
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
sLAST CYLINDER
:VES--BRANCH
;N

;GO EXECUTE THE COMMAND

JNC+4

:gg ?XECUTE THE COMMAND
K

:gg EXECUTE THE COMMAND
M

Eg? Sxecure THE COMMAND
160 EXECUTE THE COMMAND

JNC+S

;60 EXECUTE THE COMMAND
sCALL SCOPE ROUTINE

:"""l.'t..'."""""""'t..t.'tl'.'tttl"tt"t"'ttt'tt""'

s*TEST 7

s*THIS

se'LC’.

TEST

RANDOM SEEK TEST
PERFORMS RANDOM SEEX OPERATIONS BETWEEN CYLINDERS

'FC'

AFTER EACH SEEX, THE POSITION OF THE DRIVE IS VERIFIED BY
s*READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK.
:*THE TRACK ADDRESS 1S INCREMENTED FOR EACH SEEK SO THAT VERIFICATION

;*OF POSITIONING OCCURS USING EACH HEAD.
;*BETWEEN PARAMTERS 'FT' AND 'LT'.

TRACK ADDRESSES ARE

INCREMENTED

.'"'t"'.....'t""""""""'tt'tt"t.ttl.l't'fi't"'.""t'tt'..

011222
011222

000240

1817:

011224
011232
011234

033737
001002
000137

001544

011240
0112646
011252
011260
011266
011274

012737
004737
012737
013737
112737
012737

000007
026672
011362
002324
000031
000007

001116

011302
011310
011312
011316
011322
011324
011325

032777
001406
104401
013746
104403
002
V00

010000

167644

306 011326

113737

002334

305

001330

011620

001124
001220
001131
001240

066253
001240

NOP

BIT

BNE
JMP
MOV

JSR
MOV
MoV

TEST?

TST10

#7,8TSTNM
PC,LODPRM

;SET TEST #7 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST

MOvB
MOV

BIT
BEQ

#SW12,3SWR
+16

MovB

;00 THIS

YES
;NO==JUMP TO TEST10

NTEST7 ,SLPERR
RPT,STIMES
#25. ,8ERMAX
#7,8TESTIN

TYPE
MOV
TYPOS

065507

BITS¢<7¢2> ,TSTNM S
. +6
:BR IF

"MSGTST
$TESTN,
- (SP)

;SETUP THE LOOP ON ERROR ADDRESS

;GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
¢oSET TEST NUMBER IN APT MAIL BOX
JINHIBIT TYPING TEST NUMBER ?
;BR

sTYPE

YES

'TEST®

2
0

JSAVE STESTN FOR TYPEQUT
:.60 TYPE=--OCTAL ASCI!
ssTYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

FT.,0PB.B+11

+LOAD STARTING TRACK ADDRESS

OO0
— i A O
b sO
(N
—
OO0
oW

e
il
el
—

MACRO v03.01

15:01:20 PAGE

MOvB
MOV
MOV
MOV

WSEEK,DPB.A+2
RMADR R4

065460

001346
001122

TEST7:

045510
002330

HOWOOW=PT
W= =00 —
NUWNWNNINNOONO
O —O O
OWOWWWN
S NWNNN

FC,LC

1%
PC,SRAND
$HINUM,
= (SP)

CLR

=(SP)

MOV

LC,-(SP)
(SP)

INC
suB
JSR

045510

045470

011450
001100
027132
011466
001100
045456
000020

001124

FC,(SP)
PC,801V
(SP)+,DPB.B+12
(SP)+

ADD
TST
MOV

1%:

000010

MOV
MOV
MOv8
MOV
ASL
ASL

¥.,SLPERR
#STACK,SP

1ST8

;IN THE 1ST 20X OF SECTOR ?
:BR IF YES
(SP)
s INCREMENT THE SECTOR ADDRESS
(SP)
: INCREMENT THE SECTOR ADDRESS
(SP)+,DTADPB+10 :LOAD THE DPB
PRMLMT+24,-(SP) ;PUT LAST SECTOR ADDRESS ON THE STACK
(SP)
s INCREMENT IT

FSTACK,SP

RO, CALL.A

DPB.A,RMCS2(R4)
RMLA(R&L) ,~(SP)
(SP)
(SP)

027264

0645507
045507

002336

002334

045507

EX1T7:
S

3$
DTADPB+10

49
#1,DTADPB+10

MOVB

;GET THE LOOK AHEAD REGISTER
;ALIGN THE SECTOR ADDRESS
:ALIGN THE SECTOR ADDRESS
:PUT _ADDRESS IN LOWER BYTE

(SP)+ ,DTADPB+10 ;NEW SECTOR ADDRESS 100 LARGE

BHIS
BLO
CLRB
B8R

;SELECT THE DRIVE

INCB

045546
045546

(SP)
1(SP)

Movse
MOV
INC
CMPB

045546

;SETUP THE ERROR LOOP ADDRESS
sLOAD THE STACK POINTER
;G0 EXECUTE THE COMMAND
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

¥.,SLPERR

BEQ
INCB

2%:

045546
002456

sCOPY NEW CYLINDER ADDRESS

MOV
MOV

SWAB

000001

:DISCARD THE QUOTENT

DPB.B+12,DPB.A+12

JSR

001124

;SETUP THE STACK POINTER
JINITIAL CYLINCER ADDRESS
sCYLINDER LIMITS THE SAME ?
:BR ]F THEY ARE
;CYCYLE THE RANDOM NUMBER GENERATOR
sUSE THE HIGH RANDOM NUMBER
sUPPER DIVIDEND
:FORM THE DIVISOR
s INCREMENT
sSUBTRACT THE LOWER LIMIT
;DIVIDE
;ADD THE REMAINDER TO THE INITIAL CYLINDER

FSTACK,SP

FC,DPB.B+12

LMP
BEQ
JSR

002326
025652

000001

MOV

SEQ 0075

s SEEK=COMMAND
;UNIBUS ADDRESS OF THE RH/RM
;ERROR TERMINATION ADDRESS
;SETUP THE LOOP ON TEST ADDRESS

#TEST7.SLPADR

MOV

002330

11-8

WEXIT?,BYPASS

MOV

045510

11-APR-80

OO0
oY
NN
OV
SO
o0

OO0
OO0
PORN) =
NN
—
OO
oo

OO0~ O00O0O0OO0OOO
—=00000—-0—-00N—»—
Ottt it QO = =2 = O~ OO0 =000 0O0
= OQOOONO~»—~0000000
= - =4O =—m

W I

W W

F P

W W

= 2 QOO NNNOOWWNWNE S UWNWNNNININ = = 2 OO NO O VWL S NN —= =2 =200 ~NOoOOO
COCOHhOONOSTNNOSIMNONOO
SO
NOCOSIONOONOSON NSO N S oron

N
N
N

[o Yo Fo Yo RV IV IV LU LU LV LV IV LV LG AV LV LV QU LV VIV IV IV IV IV J W

s
s
e

D o
o

D e
e
D e

S o e
o
D e

b ed e

D
D

D
e
e

D oD el

s
D e

i e
D

S
il

D i

i
e

i i

e
e

S oD
e

el e

i e

e
e

) i

i
il

D
i

i
D e

i e
o

i
il

S o

e
e

i
i

e
b

e
e

i e

d nd

N NN

— OV
~NO NS

WA LN AN NN

i e

[elelelelelelolelolelelalelalealelelalalalalelalalelelelaloleleleleleololalelelelalelalolalelalaYela)

011334
1342
366
54

olele
]

RM05/3/2 EXT'D DR TST
RANDOM SEEK TEST

JSR
INCB
CMPB
8LOS
MOvB
SCOPE

RO,CALL.B

OPB.B+11
DPB.B+11,LY

EXIT7

FT,0PB.B¢11

:BR 1F NOT
:BR IF ADDRESS IS 2 GREATER
;RESET TO SECTOR ADDRESS 0
s CONTINUE
¢RESET ADDRESS TO SECTOR 1

;G0 EXECUTE THE COMMAND
: INCREMENT THE TRACK ADDRESS
sMAXIMUM ?
;BR 1F NOT
;RELOAD STARTING TRACK ADDRESS
;CALL SCOPE ROUTINE

2S00 ARRAARRRARRRRRRRRRR
220222t RRRRRRRRRRRRRRRAR R

;*TEST 10

¢*THIS TEST

SERVO SETTLE DOWN TEST

VERIFIES THAT

THE

SERVO HAS SETTLED DOWN AND THAT

s*THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.
: *RANDOM SEEKS ARE

ISSUED BETWEEN CYLINDERS

°'NC1'

AND

°'NC1¢IC'

MVAO RM05/3/2 EXT'D DR TS7
STRVO SETTLE DOWN TEST

MACRO v03.01

11-APR-80

L
15:01:20 PAGE

¢
11-9

SEQ 0076

;*('NC1' STARTS AT VALUE 'FC'). AT THE COMPLETION OF 1000 (10) 3SEEKS,
;*'NCY1’' IS INCREMENTED BY VALUE 'IC' AND THE SEQUENCE IS REPEATED.
;*THE TEST 1S COMPLETED WHEN 'NC1' HAS BEEN INCREMENTED BEYOND ‘LC'.
X

. *WHEN THE SEEXK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD
;*REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING
INTO
;*POSITION.
THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND

:*FOR THAT

SECTOR.

;*ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED
;*CORRECTLY,

THAT

THE DRIVE

1S MALFUNCTIONING,

OR THAT A PACK WITH

: *MARGINAL SERVO TRACKS 1S MOUNTED ON THE DRIVE.
b

;*THIS TEST 1S VALID ONLY If THE OPERATION IS STARTED WITHIN A FEW
: *HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS.
THE NECESSARY
;*TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED
;*RANGE TO PERMIT THIS TEST TO BE EFFECTIVE.

o000
~NOWVWME
W
NSO

000010
026672
012052
002324
000031
000010

001124
001220
09113
001240

010000

167246

— ol el el

ONOCOMOO
WWNNN
VONOO

001546

O==OOW

ddl

iRl

sttt

tdRii i

]

.46
TST11

:BR IF YES
*NO--JUMP TO TEST11

001116

MOV
JSR
MOV
MOV
MOVB

#10,8TSTNM
PC,LODPRM
#TEST10,SLPERR
RPT,$TIMES
#25.,SERMAX

;SET TEST #10 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
:SETUP THE LOOP ON ERROR ADDRESS
SGET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST

BIT

#SW12,aSWR

;INHIBIT TYPING TEST NUMBER ?

BNE
JMP

MOV

-~
et et YO NN NNNNNNNN

000105
000161
002334
002326
002326
002326
002332
176000
052776

045660
0645540
045547
045470
045550
002356
001446
0455642
045544

.BYTE
.BYTE

3
0

MOV

#18,SLPADR

MOVB
MOVB
MOVB

WSEEK,.DPB.A+2
;SEEK=COMMAND
WWRITE,DTADPB+2 :COMMAND
FT,DTADPB+11
:TRACK ADDRESS FOR THE WRITE

MOV
MOV

FC.OTADPB+12
FC,NC1

MOV

;260 TYPE--0CTAL ASCII

S:TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS
:SETUP THE LOOP ADDRESS

FC.DOPB.A*12

:CYLINDER ADDRESS FOR THE SEEK

1C.DELTA

SCYLINDER INCREMENT

:CYLINDER ADDRESS FOR THE WRITE
:STARTING CYLINDER

CLR

;PATTERN POINTER (WC PATTERN)

R1
DPB.A,RI

:CLEAR REGISTER
:LOAD DRIVE ADDRESS

CLR
MOVB
MOV

JSR
MOV

#BUFFER,DTADPB+6

PC.SETBUF
RMADR . R4

PC,CLRQUE
PEXIT10,BYPASS

:WORD COUNT

VALUE

#-<256.%4.>,DTADPB44

MOV

EST10

‘BR IF YES
STYPE °TEST'
©:SAVE STESTN FOR TYPEOUT

MOV
JSR

001346

2:SET TEST NUMBER IN APT MAIL BOX

.46
MSGTST
$TESTN,-(SP)

MOV

032732

#10.$TESTN

;D0 THIS TEST?

BEQ
TYPE
MOV

TYPOS

001122

BITS+<10¢2>, TSTNMS

011732

045456
037066
064772
012746

NOP

811

066253
001240

LS P A VFIVIIV P
W1, S NIV IV IV IR IV ], V], VI
~
NNWNNO
NO NNNNNNINNNY
WHNO OO WO NN
N NN
N

b b cad ad o o D il

011
011
011
011
011
011
012004
012012
012020
012022
012026
012030
012034
012040
5044

2Ot et OO

NNNNNNNY
NN =—=0O0
LWNNOSMOO0O

N
}

001330

012750

OO0~ OOQO0O0O0O0O0O—~——

1
1
1
1
1
1
1

ONNNNNNNNN
SNNOWES
WU
CONSOONIINSES

Gue-Sunr GG

384
385
386
387
388
389
390
391
392
393
394
395
396
397
438

GG Gu-GurGurGurShar@nrGu@ur-GurGur-Gur-Sus-Su-Gur-GurQur-SururGur
G Gur S-S

382
383

[eYelelalelolelalelelelelelalalalelaele B oleolaleloloale

381

AAAL AL

1$110:

— el i e

BNolelalolololNololelele]

:BUFFER ADDRESS

*LOAD THE WRITE BUFFER
*UNIBUS ADDRESS OF

THE

RH/RM

*CLEAR THE OPERATION QUEUES
-ERROR EXIT FROM TEST

CIRMVAQ RM05/3/2 EXT'D DR TST

110

SERVO SETTLE DOWN TEST

012052
012060
012064
012072
012076
012100
012102
012106
012112
012114
012120
012124
012132
012140
012146
012154
012160
012166
0121764
012202
012206
012212
012214
012216
012220
012226
012234
012236
012242
012246
012250
012256
012262
012270
012274
012276
8}%%?8

012737
012706
012737
005737
001415
100405
017746
013746
000404
017746
013746
012776
012777
012737
012764
110164
013764
013737
112764
005037
105764
100402
000001
000773
012737
032764
001412
012702
004737
104023
012764
110164
012777
005737
001405
016676
062706

639 012310
441
442
463
444
445
646
467
448
449
450
651
652
453
454
455
656

012316
440 012322

012326
012332
012334
012336
012340
0123646
012350
012352
012354
012360
012364
012366
012372
0123764
012376
012602

012052
001100
000340
001340

MPCRO v03.01

MOV
Mov
Mov
1ST
BEQ
BM]
MoV
MOV
BR
MoV
MOV
MOV
MoV
MOV
MoV
Move
MoV
Mov
MOvB
CLR
1STB
BM!
WAIT
BR
Mov
BIT
BEQ
MOV
JSR
EMT
MOV
Move
Moy
TST
BEQ
Mov
ADD

#. SLPERR
#STACK,SP
#PR7,PS
CLKSTA
3%
1$
aPKkv,=(SP)
PKV,=(SP)
2%
aLKV,=(SP)
LKV,=(SP)
#T1ST10B,3(SP)

43
#PR7,PS
#ERR ,RMDS(R4)
6%
#DPB.A,R2
PC,SVRH70
23
#CLR,RMCS2(R4)
R1,RMCS2(R4)
#ISR,aRMVEC
CLKSTA
TST10A
2(SP),a(SP)
0, SP

;INIT THE MASSBUS
¢RESELECT THE DRIVE
;SETUP THE RM VECTOR
sWHICH CLOCK
:BR IF NONE
sRELOAD THE CLOCK VECTOR
;CORRECT THE STACK POINTER

MoV

#.,SLPERR

;SETUP _THE ERROR LOOP ADDRESS

MOV
ASL
ASL
SWAB
CMPB
BNE
INCB
INCB
MOvB
MOV
INC
CMPB
BHI
BLO
CLRB
BR

RMLA(R&) ,=(SP)
(SP)
(SP)
(SP)
#300,1(sP)
2%
(SP)
(SP)
(SP)¢+,DTADPB+10
PRMLMT+24,-(SP)
(SP)
(SP)+ ,DTADPB+10
48
3
DTADPB+10
4%

;GET THE LOOK AHEAD REGISTER
:ALIGN THE SECTOR ADDRESS
;ALIGN THE SECTOR ADDRESS
;PUT _ADDRESS IN LOWER BYTE
:IN THE LAST 20X OR SECTOR ?
¢BR IF NOT
: INCREMENT THE SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS
;LOAD THE DPB
;PUT MAXIMUM SECTOR ADDRESS ON THE STACK
s INCREMENT PAST THE MAXIMUM ADDRESS
;NEW SECTOR ADDRESS TOO LARGE ?
;B8R ]F NOT
:BR IF ADDRESS IS 2 GREATER THAN MAX]MUM
;RESET TO SECTOR ADDRESS 0
: CONTINUE

001124
177776

000340
040000

1$:
000000
026730
001442
000010

28:
38:

000034
001364
000000
48:

177776
000012

5%:

045456
044310
000040
000010
041740
001340

000010

000002
000004

000000

012737

012310

001124

016446
006316
006316
000316
122766
001001
105216
105216
112637
013746
005216
122637
101007
103403
105037
000403

000020

012706
110164

15:01:20 PAGE

167370
001476
167370
001510
012702
031272
000010
000040
000010
065470
045470
000105
177776
000012

001100
000010

000300

045546
002456
045546

045546

024600

6S$:

1ST10A

MOV
Movs

000001

11-APR-80

11-10

#OORT],8RMVEC
#8., SEKTMR
NCLR,RMCS2(R4)

+SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
;SET PRIORITY T0 7
;SEE WHICH CLOCK ON SYSTEM
:BR IF NO CLOCK
;BR IF KW11-L CLOCK
:SAVE THE VECTOR
:SAVE THE VECTOR ADDRESS
s CONTINUE
:SAVE THE L' CLOCK VECTOR
+SAVE THE VECTOR ADDRESS
;CHANGE THE VECTOR
;CHANGE THE RM VECTOR
;LOAD THE SEEK TIMER
INIT THE MASSBUS

R1,RMCS2(R4)
;RESELECT THE DRIVE
OPB.A+12 ,RMDC (R4)
sLOAD THE CYLINDER ADDRESS
DPB.A+12,CYL.DS ;CYLINDER ADDRESS FOR ERROR MESSAGE
#SEEX ,RMCST1(R&L) ;START THE SEEK
PS
sCLEAR THE PRIORITY
RMDS (R&)
5%

#STACK,SP
R1,RMCS2(R4)

+HAS THE DRIVE FINISHED ?
«BR IF IT HAS
;WAIT FOR THE OPERATION TO COMPLETE
s CONTINUE
s CHANGE PRIDRITY TO MAX
;ERROR ?
:BR IF NOT
;DPB POINTER
;SAVE THE REGISTERS

:LOAD THE STACK POINTER
;SELECT THE DRIVE

SEQ 0077

RMOS/3/2 EXT'D DR TST

MACRO v03.01

012604
012612

112737
012703

000001
045542

045546

012436
010640
012664
012452
012456
012466

012364
005037
012737
010137
112761
006301

000006
045554
045536
037052
000001

037000

SCRVO SETTLE DOWN TEST

012616
012626
012630

036730

;RESET ADDRESS TO SECTOR 1
:PGINTER

MOV
CLR
MOV
MOV
MOVB
ASL

(R3)+,RMDA(R4)
DTADPB+16
#DTADPB, TRNSWT
R1,DTUW
#1,DRVACT(R1)
R1

;LOAD THE TRACK/SECTOR ADDR
:RESET 'DONE' INDICATOR
:LOAD 'TRANSFER' DPB ADDRESS
:ADDRESS OF DRIVE TRANSFERING
;SET DRIVE ACTIVE INDICATOR
:SHIFT DRIVE ADDRESS

MOV
MOV
MOV

037032

MOV

0126476

013764

045540

000000

MOV

006201

012504
012510
012514
012522
012526
012530
012536
012544
012546
012556
012562
017570
012572
012600
012604
012612
012614
012620
012626
012632
012636
012640
012644
012646
012652
012656
012650
012666

005037
004037
023727
001026
005037
063737
023737
103100
013737
163737
023737
101003
013737
005237
023737
001002
000137
013737
004737
013746
005046
013746
005216
004737
062637
005726
023737
001754

012676
012702
012702
012706
012710
012714
012720
012722

000137

012742

012744
012746

013737

177776
027710
001444

001750

001444
002332
002356

002356
002330

002330
002356
002332

001446
001446
001446

002332
001444
002326

001446

012052
002356
025550
025646

000401

000002
000004

045470

68:

78:

001446
025652
045470
045470

045550

045470

045550

012052

005337 001442
001016
012702 045456
004737 044310
104024 012764 000040

110164
016676

002330

ASR

5$:

000010
000002

000010

000000

#ORVCLR,RMCS1(R4)
:CLEAR THE DRIVE
(R3)+,RMWC(RG) ;LOAD THE WORD COUNT
(R3)+,RMBA(R4) :LOAD THE BUFFER ADDRESS

u1ooo..11nsn(n1>

;SETUP THE OPERATION TIMER

DTADPB’Z RMCST(RG)

;START THE OPERATION

;RESTORE R1

CLR
JSR
CMP
BNE
CLR
ADD
CMP
BHIS
MOV
SUB
CMP
BHI
MOV
INC
CMP
BNE
JMP
MOV
JSR
MOV
CLR
MOV
INC
JSR
ADD
187
CMP
BEQ

:CLEAR THE PRIORITY
RO,DRVCL1
iWAIT FOR OPERATION TO COMPLETE
SEKCNT,#1000.
;FINISHED SEEKS ?
68
:BR IF NOT
SEKCNT
:CLEAR THE SEEK COUNT
1C,NC1
:ADD THE INCREMENT
Nd,LC
(EXCEEDED THE CYLINDER LIMIT 2
EXIT10
:BR IF IT WAS
LC,DELTA
:GET THE NEXT "ZONE' ADDRESS
NCi,DELTA
:CHECK THE DIFFERENCE
1C,0ELTA
:DIFFERENCE GREATER THAN THE INCREMENT 2
6$
:BR IF IT IS
1C,DELTA
USE THE ICREMENT PARAMETER
SEKCNT
:COUNT THE NEXT SEEK
FC.LC
:BEGINNING AND ENDING CYLINDERS THE SAME ?
78
:BR IF NOT
TEST10
:BR 1F THEY ARE
NC1,DPB.A¢12
:RESET THE CYLINDER ADDRESS
PC,$RAND
:CYCLE THE RANDOM NUMBER GENERATOR
SHiNUM,-(SP)
:USE THE HIGH RANDOM NUMBER
- (SP)
:CLEAR THE UPPER DIVIDEND
DELTA,=(SP)
:FORM THE DIVISOR
(SP)
: INCREMENT
PC,3D1V
:DIVIDE
(SP)+,0PB.A+12
:ADD THE REMAINDER TO THE INITIAL CYLINDER
(SP)+
DISCARD THE QUOTENT
DPB.A+12,DTADPB+{?2
;SAME CYLINDER SELECTED AS LAST TIME
7$
:BR IF 1T WAS

JMP

TEST10

; CONTINUE

SEKTMR
s
#OPB.A,R2
PC,SVRH70
24
FCLR,RMCS2(R4)

;DECREMENT THE SEEK TIMER
:CONTINUE IF NOT DONE
:DPB_ADDRESS
"SAVE THE REGISTERS

MOV

TST108:

SEQ 0078

#1,0TADPB+10
#0TADPB+4,R3

001750

012730
012734

000000

N
6
15:01:20 PAGE 11-11

MOVB
MOV

012761

012670

—

000111
000002
000004

3$:
i8:

012466
012474

[V IV 1V}

012764
012364
012364

11-APR-80

DEC
BNE
MOV
JSR
EMT
MOV
MOVB
MOV

1$:
RT]
EXIT10: SCOPE

DPB.A+12,DTADPB+1?2

RT,RMCSI(R4)
2(SP) 3{SP)

ExiT16

;COPY NEW CYLINDER ADDRESS

;INIT THE MASSBUS
:RESELECT THE DRIVE
RESTORE THE CLOCK VEGTOR ADDRESS

:ABORT THE TEST

:RETURN
:CALL SCOPE ROUTINE

CIRMVAO RMO5/3/2 EXT'D DR TST

110

SCRVO SETTLE DOWN TEST

MACRO v03.01

526

527

8 7
11-APR-80 15:01:20 PAGE 11-12

R R A

SEQ 0079
R

R LI

ALL SEEKS TEST
J*TEST 11
s*THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER
s*TO ALL OTHER CYLINDERS.
3

;*BEGINNING WITH CYLINDER 'FC°', THE TEST SEEKS TO EACH CYLINDER

;*BETWEEN °'FC' AND 'LC' FROM CYINDER 'FC'.

THE BEGINNING CYLINDER

:*ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER

;*ADDRESS AND ALL CYLINDERS BETWEEN °'FC' AND 'LC'.
;*CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.
MMAAAAAAR AR A

012750
012750
012752
012760
012762

000240
033737
001002
000137

012766
012774
013000
013006
013014
528 013022

012737
004737
012737
013737
112737
012737

000011
026672
013134
002324
000031
000011

001116

013030
013036
0130640

032777
001406
104401

010000

166116

013050
013052
013053

104403
003
000

013046

529
530
531
532
533
5346
535

013746

1sT11:
001550
013214

046253

012737
113737
113737
113737
113737
013737
013737

013062
002342
002342
002334
002334
002326
002326

329 8};}28

012706

001100

013140
562 013144

004037
004037

027466
027264

5645 013164
5646 013166
547 013174
568 013202
549 013210
ggg 013212

002365
013737
063737
023737
002353
000004

543 013150
566 013156

012737

063737
023737

001124
001220
001131
001240

001240

013054
013062
013070
013076
013106
013112
013120

539 8}%}%2

001330

013212

001346

1$%:

TESTIY

002332
002330

045530
045530

002326
002332
002330

045530
045510
045510

ARl

ddd

ittt

stdslts]]

NOP
BIT
BNE
JMP

BITS+<11¢2>,TSTNMS
;DO THIS TEST?
.46
:BR IF YES
TST12
:NO==JUMP TO TEST12

MOV
JSR
MOV
MOV
MOVB
MOV

#11,8TSTNM
PC,LODPRM
#TESTYY,SLPERR
RPT,$TIMES
#25.,SERMAX
#11,8TESTN

;SET TEST #11 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THME TEST
;SETUP THE LOOP ON ERROR ADDRESS
JGET THE ITERATIGN COUNT
:MAX ERRORS ALLOWED FOR TEST
2:SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ
TYPE

#SW12,3SWR
.+16
MSGTST

JINHIBIT TYPING TEST NUMBER ?
:BR IF YES
;TYPE 'TEST®

TYPOS
.BYTE
.BYTE

3
0

::60 TYPE=-=OCTAL ASCII
::TYPE 3 DIGIT(S)
2 :SUPPRESS LEADING ZEROS

MOV
MOVB
MOVB
MOVB
MOVB
MOV
MOV

#1$,$LPADR
FS,0PB.B+10
FS,DPB.C+10
FT.DPB.B+11
FT.DPB.C+11
FC,DPB.B+12
FC.DPB.C+12

;SETUP THE LOOP ADDRESS
;SECTOR ADDRESS
:SECTOR ADDRESS
:TRACK ADDRESS
:TRACK ADDRESS
sSTARTING CYLINDER ADDRESS
:STARTING CYLINDER ADDRESS

MOV

#STACK,SP

;SETUP THE STACK POINTER

JSR
JSR

RO,CALL.C
RO,CALL.B

:GO EXECUTE THE COMMAND
;G0 EXECUTE THE COMMAND

18
FC.DPB.C+12
1C,DPB.B+12
LC.DPB.B+12
18

:BR IF NOT
:RESET ENDING CYLINDER ADDRESS
JINCREMENT THE STARTING ADDRESS
SEXCEEDING MAXIMUM ?
:BR IF NOT
*CALL SCOPE ROUTINE

MOV

001122
045506
045526
045507
045527
045510
045530

THE SEQUENCE

MOV

ADD
CMP

BGE
MOV
ADD
CMP
BGE
EXITY1: SCOPE

$TESTN,-(SP)

#EXIT11,BYPASS

1C.0OPB.C+12
LC.,DPB.C+12

- SAVE STESTN FOR TYPEOQUT

TEST ABORT EXIT

:INCREMENT {E ENDING CYLINDER ADDRESS
:CHECK IF EXCEEDING MAXIMUM

CZRMVAO RMO5/3/2 EXT'D DR TST

TIMING TESTS

MACRO v03.01

11-APR-80

15:01:20 PAGE

SEQ 0080

;

LSBTITL

sl 111T717070000700000000000070807177077072772772727777777117777177177

s*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE ''RM0S5/3/2

s*THE

TIMING TESTS
TIMING TESTS WILL

ENSURE

THAT

THOSE

FUNCTIONS BEING

J*ENGINEERING SPECIFICATIONS'.

s*THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK

s*OPERATJONS.

AT THE COMPLETION OF

EACH OF

;-}sggg THE MINIMUM, MAXIMUM AND AVERAGE
-'

Sl 11T

THE TIMING

TIMES WILL BE

7700000000000 0000002777710771072777777777727277777171777

;:lt""l't".'""'"""""""t"'.""ttt'tt"tttt'tt""t.'

JeTEST

ROTATIONAL SPEED TIMING TEST

;*THIS TEST WILL START

A SEARCH TO CYLINDER

'FC',

TRACK

‘FT°',

;*SECTOR °*FS°'.
AS SOON AS THE INTERRUPT OCCURS, THE GO BIT
;*1S SET AGAIN AND THE OPERATION IS TIMED.
THIS PROCEDURE
;*1S REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED
s*AND

CHECKED

TO ENSURE

IS WITHIN

TOLERANCE:

RM05/3:

16.67 MS/REV ¢+ OR - 2% IF 60MZ
16.67 MS/REV + OR = 2.5%

SOMZ.

L
o

RMO2:

25.00 MS/REV ¢+ OR = 2% IF 60HZ
25.00 MS/REV + OR = 2.5% IF SOMZ.

.'"t't'."..'t't""'"""'t"'t!'."t.'.'t.'.'..t.tt'"t.'t."'.

013214
013214
013216
013224
013226

000240
033737
001002
000137

013232
013240
013244
013252

012737
004737
012737
013737

000012
026672
014136
002324

001116

30 013266

012737

000012

001240

013c74
013302
013304
013310
013314
013316
013317

032777
001406
104401
013746
104403
003
000

010000

013320
013324
013326
013332
013340
013344
013346

005737
003002
000137
012737
004u37?
000402
000137

001340

013260

31
32
35
36
37
38
60

112737

T1ST12:
001552

001330

014136

000031

001124
001220

C14134

BITS+<12¢2>,TSTNMS
;D0 THIS TEST?
.46
:BR IF YES
T$T13
JNO==JUMP TO TESTI13

MOV
JSR
MOV
MOV

#12,8TSTNM
PC.,LODPRM
#TSTI3,8LPERR
RPT,STIMES

JSET TEST #12 AND CLEAR (SERFLG)
JLOAD THE PARMETERS FOR THE TEST
;SETUP THE ERROR LOOP ADDRESS
JGET THE ITERATION COUNT

MOV

312.‘TESTN

;sSET TEST NUMBER IN APT MAIL BOX

001131

[ [0]:]

165652

BIT
BEG
TYPE
MOV
TYPOS
.BYTE
BYTE

#SW12,a5uWR
416
LMSGTST
$TESTIN,-(5P)
3
0

INHIBIT TYPING TEST NUMBER ?
;BR IF YES
JTYPE °TEST'
;;SAVE STESTN FOR TYPEOUT
::60 TYPE--OCTAL ASCII
ssTYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS

ST
BGT
JMP
MOV
JSR
BR

CLKSTA
153
EXITI2
#.,8LPADR
RO, SRCHOO
2%
Exivie

JKW11=P CLOCK?
sYES==START TEST
:NO=-=JUMP TO EX]T1?
JSETUP LOOP ADDRESS
;DO A MASSBUS INIT & RECAL
JRETURN HERE [F NO ERROR
;RETURN MERE I1F ERROR

046253
001240

014134
013332
031110

NOP
817
BNE
JMP

001122

1%:

JMP

#25. ,SERMAX

JMAX ERRORS ALLOWED FOR TEST

CZRMVAO RMOS5/3/2 &€XT'D DR TST

ROTAT JONAL

SPEED

TIMING TEST

013352
013360
013366
013372
013400
013406

012737
112737
005037
013737
012737
004037

013352
000105
065466
002326
016134
027132

013620
013626
013432

013746
113766
012664

002342
002334
000006

013412

013436
013446

61
62 013446

013764

012737
005005

MACRO v03.01

002326

014134

001122
045460

7
0
11-APR-80 15:01:20 PAGE 12-1

2%:

045470
001346

000036

MOV
MOVB
(LR
MOV
MOV
JSR

#.,8LPADR
WSEEX,DPB.A+2
DPB.A+10
FC,OPB.A®12
FEX1T12,BYPASS
RO, CALL.A

;:ERROR LOOP ADDRESS
:SEEK=COMMAND
;USE TRACK 0 & SECTOR 0
:STARTING CYLINDER
:GO TO EXIT12 IF ERROR
160 EXECUTE THF COMMAND

MOV
MOVB
MOV

FS.=(SP)
FT.1(SP)
SP)+ RMDA(RG)

FS
3
:LOAD FT/FS

:COUNT UP

MOV

000001

001222

MOV
(LR

013450
013454
013662
013664
013470

045536
000100

0013514

001636
001636

014124

MOVB
BIT
BEQ
MOV
MOV

69 0135064

122760

000005

036750

CMPB

68 013476

70
013512
71 013514
72 013520

73 013526
76 013534
75 013536

76 013546

77 013552

78 013556
79 013564

80
81
82
83
84
87
88
89
90

013566
013574
013600
013606
013610
013612
013612
013616
013622

92
93
94
95
96
97
98
99
100

013634
013642
013646
013654
013660
013662
013670
013676
013700
013702

91 013626

013706

013712
013716

101 013720

102 013722

012737

001435
012703
012737

012737
000424
012737

012737

012703

122760
001410

001720

014132

001616
001616
001704

014124
016132

001626

014106

001712

001626

014114

000005

036750

(12737
012703
012737
012600
000240

001606
001606
001676

014106

012706
012701

001100
000012

012777

0164014

004737

012777
005077
012777
012714
000001
042777
032764
001411
104412
012702

004737

004737
10413
104017

005077

031274

014114

3%:

4$:
TEST12:

wEX1T12,8ESCAPE :;ESCAPE TO EXIT12 ON ERROR

023226

000101
040000

165612
000012

165626

1%:

045536

044310

28 :

:DRIVE ADDRESS
SCPECK CONTROL SWR FOR 60 HZ.
:BR IF YES
SLOAD 50 H2. TABLE FOR RMO2
:

#SP781,TPSS50

BEQ
MOV
MOV

43
#178,R3
#178,1PS0

:BRANCH IF SO
JLOAD S0 HMZ2. TABLE
;

#sP7Af,1PS60

#5,0RvIYP(RO)

MOV
BR
MOV

#SP7B,TPSSO
4%
#T7A1,TP60

MOV

#17A1,R3

MOV

;

;AN RMO2 DRIVE

:
CEXIT
SLOAD 60 HZ.

;

FOR RM0S/3

TABLE FOR RMO?

CMPB
BEQ

#S,DRVIYP(RO)
4%

#17A,1P60
#T7A.R3
#SP7A,TPS60
(SP)+.RO

CLOAD 60 HZ.
;
;
*RESTORE RO
CEXIT

MOV
MOV

#STACK,SP
710, ,Ri

:SETUP STACK
STIME 10 SEARCHES

MOV

978, apPxy

SSETUP VECTOR IN CASE OF OVERFLOW

MOV
MOV
MOV
MOV
NOP

PC,STRTMR

MOV
(LR
MOV
MOV
WAIT
BIC
BIT
BEQ
SAVREG
MOV

#OORT],3RMVEC
aPkB
#131,3PKCS
#SEARCH, (R&)

JSR
RESREG

PC,CNTCLR

JSR

026072

DTADPB,RO
#5W06,C . SWR
38
#1781,R3
#1781.1PS0

MOV

JSR

165642

031272
165636
000131
000131

165556

FC.RMDC (RG)

;SETUP PARAMETER TABLE FOR RMOS/RMO3/RM0?2
MOV
RO,=(SP)
:SAVE RO

010046
113700
032737
001425
012703
012737

63
64
65
66
67

SEQ 0081

EMT

(LR

#101,3PKCS
JERR .RMDS{R4)
28

#OTADPB,R?2

PC,SVRH0
17

aPxB

AN RMO2 DRIVE
:BRANCH IFf SO

°?

TABLE FOR RMOS/3

SINITIALIZE THE TIMERS

;SETUP RM VECTOR
SSTART COUNTING AT ZERO
SINT.EN.., COUNT UP AT 100KNWZ
:START A SEARCH
‘WAIT ON INTERRUPT
:STOP THE CLOCK
:ERROR?
:NO=-=BRANCH
:SAVE RO-RS

:DPB POINTER

“SAVE ALL THE RH/RM REGISTERS
;60 CLEAR CONTROLLER
:RESTORE RO-RS
:START

THE

COUNT

ZERO

RMOS/3/2 EXT'D DR TST
ROTATIONAL

012714
012777
000001
042777
032764
001411
106412
012702

000131
000131

165542

000101
040000

165532
000012

013772
013776

004737
106413

026072

VO ~NO NN
— O

il
8

)

il
il

)
il

il
—

el
—

014000

014002

014006
014010
014012
014014
016022
014026
014030
016032
014036

v — O
00 £

SN
= OO

P
YD
G
—l
il
)
el
el
)
el

[V 14U 1 N1,N1,9]
¥

016040

—

TIMING TEST

013726
013732
013740
013762
013750
013756
013760
013762

013766

SPEED

MACRO v03.01

014044
014050
014052

014054
014060

004737
104017

004737

005301
003314
000420
042777
005037
012600
005726
104412
012702

004737

006737
106413
104020

004737
004737

014064

012777

014100
014102
014106
016110
0164114
0164116
016120
0141264
016126
014132
016134

001007
004037
001606
004037
001676
000606
004037
001616
006037
001704
000004

014072

032737

15:01:20 PAGE

MOV
MoV
WAlT
BIC
BIT
BEQ
SAVREG
MOV

#SEARCH, (RG)
#9131 ,9PK(S

JSR
RESREG

PC.CNTCLR

JSR

PC ., COUNT

045536

044310

JSR

031336
000101
177776

38
165460

78:

045536

044310

0641740

000100

EMT

DEC
BGT
BR
BIC
CLR
MOV
ST
SAVREG
MOV

JSR

026072
026072
026156

8$:

022776

001314

031576
031470
031576

031470

11-APR-80

JSR
RESREG
EMT

#101,3PKCS
NERR .RMDS(R&)
3s
#DTADPB,R2

PC,SVRHIO
17

R1
1%
8$
#101,3PKCS
PS
(SP)+,RO
(SP)+

#DTADPB,R2

PC,SVRH?0
PC.CNTCLR
20

JSR
JSR

PC,CNTCLR
PC.ST.CLK

BIT

#SW06, (. SWR

MOV

BNE
JSR
TP60:
T7A
JSR
TPS60:
SPTA
BR
EXIT.A: JSR
P50:
178
JSR
1PS50:
SP7B
EXIT12: SCOPE

12-2

SEQ 0082

;START A SEARCH
;START THE CLOCKX
JWAIT ON INTERRUPTY
:STOP THE CLOCK
:1S "ERR=1'%2
;NO==BRANCM
*SAVE RO-RS
:DPB POINTER

SSAVE ALL THE RH/RM REGISTERS
160 CLEAR CONTROLLER
:RESTORE RO-RS

:UPDATE THE COUNT

*DONE?
:NO=--BRANCH
SYES==GO TO THE EXIT
:STOP THE CLOCK
:DROP THE PRIORITY
TPC OF WAIT+2
“POP THE PS FROM THE STACK
:SAVE RO-RS
:DPB POINTER

SSAVE ALL THE RH/RM REGISTERS
160 CLEAR CONTROLLER
*RESTORE RO-RS

:6G0 CLEAR CONTROLLER
SINITIALIZE THE CLOCK

#ISR,RMVEC

*RESTORE RH/RM [NT.

EXIT.A
RO,TYPTIM

:NO-BRANCH
STYPE THE TIMING
STABLE ADDRESS
STYPE THE SPEC

RO,SPTYP
EXIT12
RO,TYPTIM

RO,SPTYP

160 H2?

VECTOR

SEXIT
STYPE THE TIMING
:TABLE ADDRESS
.
;
:CALL SCOPE ROUTINE

";".'.'...."""""""""""'.'.""'t"l""t't"'tlt"l't

SeTEST

SeTHIS

TEST

ONE CYLINDER SEEK TIMING TEST

WILL COMMAND FORWARD SEEK

CYCLES

TO ADVANCE

THE

;*CYLINDER BY ONE UNTIL THE 'NCREMENT IS GREATER THAN THE
:*CYLINDER 'LC', THEN REVERSE SEEX TO CYLINDER 'FC'.
THE
;*TIME TO PERFORM EACH SEEK IS CHEC ‘ED TO ENSURE 1T DOES NOT
SeEXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.
:*THE TIME MUST BE LESS THAN 10MS.

::tltl.t.t."."""""""l"'t.""'t'tt"tl".l'.i""'t'ttlt

016136
014136
014140
014146
016150

000240
033,37
001002
000137

15113
001554
16540

001330

NOP
BIT
BNE
JMP

BITS+<1342>, TSTNMS
:00 THIS TEST?
RY
:BR IF YES
15114
*NO==JUMP TO TEST14

MVAQ RMO5/3/2 EXT'D DR IST
MACRO v03.01
CHE CYLINDER SEEK TIMING TEST

014154
014162
0164166
016174
016202

012737
004737
012737
013737
112737

000013
026672
014640
002324
000031

001124
001220
00113

0164216
014226
014226
0164232
0146236
014240

032777
001406
104401
013746
104403
003

010000

164730

0164242
014246
014250
014254
014262

005737
003002
000137
012737
004037

001340
014636
0142564
031110

175 014270

000137

014636

155 014210

0142461
156
157
160
161
162

163 014266

012737

000013

012737
112737
005037
013737

014274
000105
045466
002326

014330
0164334
8}2%22

004037
012703
012737

027132
001646
014636

176 014346

012706

001100

178 014360
179 014364
180 014366

005237
005005
004737

045550

177 0146352

181 014372
182
183
186
185

014400
014406
014412
014420

186 014424

187 014432
188 014434

189 014442

190 014450
191 014452

014454

0164460

014464
014470

192 014472
193 016474
194 014500
195 014502

196 014504

#13,8T5TNM
PC,LODPRM
#TST14,8LPERR
RPT,$TIMES
#25.,SERMAX

SET TEST #13 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE ERROR LOOP ADDRESS
:GET THE JTERATION COUNT
sMAX ERRORS ALLOWED FOR TEST

BIT
BEQ
TYPE
MOV
TYPOS
.BYTE

#SW12,95WR
+16
HSGTST
$TESTN,-(SP)

.BYTE

JINHIBIT TYPING TEST NUMBER ?
:BR IF YES
JTYPE ‘TEST!
:;SAVE STESTN FOR TYPEOUT
;.60 TYPE--OCTAL ASCII
;sTYPE 3 DIGIT(S)

1ST
B6T
JMP
MOV
JSR

CLKSTA
1%
EXIT13
¥, ,8LPADR
RO SRCHOO

KW11=P CLOCK?
JYES==START TEST
:NO==JUMP T0 EXITI13
;SETUP THE LOOP ADDRESS
;DO A MASSBUS INIT. AND RECAL

JMP

EXIT13

:ERROR RETURN=-=SCOPE

001240

MOV

046253
001240

014274
016302
0164310
01643146

014322

MOV
JSR
MOV
MOV
MOvB

000

000402

012737

013737

012777

012777
005077
013764
012714

012777

000001
042777

032764

0014611
104412

014636

002326
031274

01464544

031272
165072
045550
000105

000131
000101

040000

012702

045536

004737
104413

026072

004737
104017
004737
005705
001011

005237

1%:

B8R
001122
0456460

2%:

(45550

12-3

(AR$TESTN

SEQ 0083

;SET TEST NUMBER IN APT MAIL BOX

;s SUPPRESS LEADING ZEROS

:NO ERROR RETURN

LOOP CALL

045470

MOV
MOvB
CLR
MOV

#.,8LPADR
lSEEK DPR.A+2
DPB.A+10
FC,OPB.A+12

001222

JSR
MOV
MOV

RO,CALL.
:GO EXECUTE THE COMMAND
#7110, RS
;PARAMETER POINTER
lEXIT13 SESCAPE .:ESCAPE TO EXIT13 ON ERROR

MOV

#STACK,SP

;SETUP STACK

INC
CLR
JSR

DTADPB+12
RS
PC,STRTMR

JINCREMENT THE BEGINNING CYLINDER
JSET THE UP/DOMWN SWITCH TO UP
JINITIALIZE THE TIMERS

MOV
(LR
MoV
MOV

looatl SRMVEC
;SET RM VECTOR
aPKB
JSTART THE COUNTER AT JERO
DTADPB+12,RMDC (RS)
:LOAD DESIRED CYLINDER
#SEEK, (RG)
:START A SEEK

001346

MOV

TEST13

045550

MOV

165076

022462

000034

MOV
1$:

165050

MOV

WAlT
BIC

165040

000012

8IT

BEQ
SAVREG

044310
031336

15:01:20 PAGE

001116

001122

11-APR-80

1%:

FC,DTADPB+1?2

07£ aPxv

#131,9PK(CS
#101,9PK(S

#ERR,RMDS (R4L)
2%

MOV

#OTADPB R

JSR
RESREG

PC,OCNTCLR

JSR

2%:

SEXITI3, BYPASS

EMT
JSR
ST

BNE

INC

PC, SVRHFO
17
PC,COUNT
RS
X3

DIADPB+1?2

:ERROR LOOP ADDRESS
;SEEK=COMMAND
JUSE TRACK O § SECTOR 0
;STARTING CYLINDER

60 TO EXIT13 IfF ERROR

;START WITH BEGINNING CYLINDER

JSETUP INCASE OF OVERFLOW

JSTART THE CLOCK

JWAIT ON INTERRUPT
;STOP THE CLOCK

;ANY DISK ERRORS?

JNO==BRANCH
;SAVE RO-RS

;DPB POINTER

sSAVE ALL THE RH/RM REG]STERS
;60 CLEAR CONTROLLER
sRESTORE RO-RS

JCOUNT THIS SEEKS TIMe
:UP OR DOWN?
;DOWN=-=BRAN(H

;MOVE TO NEXT CYLINDER

)

(MP

—

~NO

002326
166730

6$:

DTADPB+1?2
DTADPB+12,F(

BGT

#101,aPx(S

(SP)+,RO
(SP)+

18T
SAVREG

065536
044310
026072

EMTY
JSR
JSR

022246

000004

PC,ST.CLK

#ISR,ARMVEC
RO,TYPTIM

EXIT13:

JRESTORE

RH/RM

INT.

;6O TYPE THE TIMES
;POINTER

RO,SPTYP

SP10
SCOPE

STA(K

;60 CLEAR CONTROLLER
INITIALIZE THE CLOCK

PC,CNTCLR

JSR
T10
JSR

FROM TME

;RESTORE RO=-RS

MOV

:SAVE ALL THE RH/RM REGISTERS
;GO CLEAR CONTROLLER

PC.CNTCLR

RESREG

THE

:SAVE RO-RS
;DPB POINTER

PC,SVRHIO

JSR
JSR

8%:

:POP

#DTADPB,R2

MOV

031470

014636

BR
BIC
(LR

7%:

;0UT OF CYLINDERS?
;NO==GO DO THE NEXT SEEK
JSET UP/DOWN SWITCH TO DOWN
GO DO THE NEXT SEEK
JMOVE TO NEXT CYLINDER
;OUT OF CYLINDERS?
;NO==G0 DO THE NEXT SEEK
;60 TO THE EXIT
;STOP THE CLOCK
;DROP THE PRIORITY
JPC OF WALT#

#-1,R5

MOv
BR
DEC
(MP

MOV

026072
026156
041740
031576

12-4

DTADPB+12,LC
1%

BLT

77777

045550
045550

15:01:20 PAGE

SEQ 0084

002330

et b et a

065550

11-ATR-80

=l >]>lolelelelele]
]
QO—=OroOoONOO—ON
5N POANRNI O LN N O NN
B NNNESENOCOONS WNNNNNNY
N =2 L AN O == NI O AN NN PO AN N N O NN
OWUWNNNINO
O NNON NNOWMWN
~

[=}
[=)]

~N~NO o O NS B BN NN — -2
srOn N oo
OO SO0

AN [V IV JV IV IV TV TV TV TV IV IV IV, IV ]

e
el
i

ol L

i
sl
el
il

uF ol ol o
¥
ul

)
B
D
el
sl

el
il
el

004737

el
ol
cnl
——

4604

MACRO v03.01
DR T1ST
EEX TIMING TEST

=0
WNOONOWV

NUNUNUNUAY
PNORURLNURNUAY

ol o

—

[e]lelelolololelelelolaleleolololelalelelelelels)

RMI5/3/2 EXT'
CHE CYLINDE

VECTOR

sCALL . COPE ROUTINE

:;""'...t.""""""""""'."..'...."""'t"'tt."t"'tt

J*TEST
;*THIS

14
TEST

WILL

ACCESS TIME MEASUREMENT
COMMAND A FORWARD SEEK

JoCYLINDER 'LC', THEN A REVERSE
;*CYLINDER

'FC°.

;*ARE

WITHIN

;*THE

AVERAGE

TOLERANCE

'F(C'

SEEX FROM CYLINDER 'LC'

BOTH SEEKS ARE

THE

TEST
FROM CYLINDER

TIMED AND CHECKED

ALLOWED

FOR

THE

LESS

THAN

ACCESS

TO ENSURE

TIME

THEY

MEASUREMENT.

;*THIS SEQUENCE ]S REPEATED 128 TIMES (FOR A TOTAL OF 256 SEEKS).
ACCESS

TIME

MUST

30 MS.

':.'."""'.'t"""""""""'l..l"."'llt""."t"l"tt"'

o
~

-—

000240
033737
001002
000137
—=0O=0Q00
O—-00Q0 o
— il e
e ) =
O—OO
W
B =0
oW
SN
OfF N& SN
NN ~
OOoOro0O (=] N
NN
WNANO
— o NONNNNNYNY

229

»
o
»

—

164640
164662
14650
14652

TST14:

001556

001330

015400

000014
026672
015400

001116

002324
000031

000014

001124
001220
001131
001240

010000

166226

066253
001240

NOP

BIT

BNE
JMP

BITS¢<14¢2>,TSTN MS
+
.46
;BR IF

;00

YES

THIS

TEST?

TST15

;NO==JUMP T0 TESTI1S

MOv
JSR
MOv
MOv
MOvB
MOov

#14,8TSTNM

;SET TEST #14 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE ERROR LOOP ADDRESS
;GET THE ITERATION COUNT

BIT
BEQ

#SW12,3SWR
+16

TYPE
MOv
TYPOS

.BYTE
EYTE

PC,LODPRM

#TST15,8LPERR
RPT,STIMES
#25. SERMAX
146, $TESTN

TMSGTST
$TESIN,-(SP)
3

;MAX

ERRORS ALLOWED

FOR

TEST

;. SET TEST NUMBER IN APT MAIL BOX
;INHIBIT TYPING TEST NUMBER ?
;BR IF YES
;TYPE

'TEST®

;s SAVE STESTN FOR TYPEOUT
::60 TYPE-=OCTAL ASCII
;s TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS

»
o

£ NN NN N
O~NOWNES =0

[LS1,V1,¥T,¥1,NT,¥1
¥}

&}
ENT. JUF JV'T N

&JNNNNN!\!NNNNNN
OO VWA
NN AN

(V] SRt aRVe.

TIME

MEASUREMENT

016744
014750

005737
003002

001340

014756
016766
016770

012737
004037
000402

014756
031110

012737
112737
005037
013737
012737
004037
012703
012737

014776
000105
045466
002326
015376
027132
001656
015376

014752

014772

014776
015006
015012
015016
015026
015032
015036
8}2828

[LY)

— P

AZCESS

F i

—

RMOS5/3/2 EXT'D DR TST

000137

015050
015056
015060
0150664
015072
015100
015106
015112
015120
015126
015130
015136

012706
012701
004737
012777
012777
005077
013764
012764
012777
000001
042777
032764

015146
015150

104412
012702

015160
015166
015166
015170
015172
015176
015202
015210
015216
01522¢
015226
015236
015242
015246
015246

004737
104413
104017
005005
004737
005077
013764
012764
012777
000001
042777
032764
001411
104412
012702

015144

015154

015252

015256
015262
015264
015266

015272
015276
015300
015302

001411

004737

004737
004737
104413
104017
012705

004737
005301
003277
000420

015376

001100
000200
031274
015306
031272
164400
002330
000105
000131

000101
060000

MACRO v03.01
TEST

1s1
86T
001122

001122
045460

1%:

2%:

045470
001346
001222

164404
021770

000034
000000
1643564

18:

164344
000012

MOV
JSR
BR

#.,8LPADR
RO SRCHOO
2%

“SET THE LOOP ADDRESS
:D0 A MASSBUS INIT & RECAL
:RETURN MERE IF NO ERROR

MOV
MOVB
CLR
MOV
MOV
JSR
MOV
MOV

¥., SLPADR
WSEEK,DPB.A+2
DPB.A+10
FC,DPB.A+12
WEX1T14,BYPASS
RO,CALL.A
#Ti1,R3
REX1T14,8ESCAPE

"ERROR LOOP ADDRESS
:SEEK=COMMAND
“USE TRACK 0 & SECTOR 0
:STARTING CYLINDER
:GO TO EXIT14 IF ERROR
260 EXECUTE THE COMMAND
:PARAMETER POINTER
::ESCAPE TO EXIT14 ON ERROR

FSTACK,SP
#128. R
PC,STRIMR
#7% . aPKV
#DORTI,BRMVEC
aPKB
LC,RMDC (R&)
FSEEK.RMCS1(R4)
#131,3PKCS

;SETUP STACK
TREPEAT “FC'='LC'="FC'"' 128 TIMES
SINIT. THE COUNTERS
SSET UP VECTOR IN CASE OF OVERFLOW
:SETUP RM VECTOR
*START COUNT AT ZERO
:'MIDDLE' CYLINDER
-START A SEEK
*START THE CLOCK
‘WAIT ON INTERRUPT
SSTOP CLOCK
SERR=17

JMP

JMp

MOV
MOV
JSR
MOV
MOV
CLR
MOV
MOV
MOV
WAIT
BIC
81T

JSR

026072

2%:

031336
164302
002326
000105
000131

000034
000000
164256

000101
040000

164246
000012

065536

044310

JSR
RESREG
EMT
CLR
JSR
CLR
MOV
MOV
MOV
WAIT
BIC
BIT
BEQ
SAVREG
MOV

JSR

026072

7
12-5

;KWi1=P CLOCK?
TYES=--START TEST

SAVREG
MOV

044310

W
15:01:20 PAGE

CLKSTA
18

BEQ

045536

177777
031336

11-APR=-80

JSR
RESREG
EMT
MOV

JSR
DEC
BGT
BR

EXITI4

EXIT14

#101,aPKCS
SERR RMDS(R4)
28
#DTADPB, R2

PC,SVRH/O
PC.CNTCLR

17
RS
PC, COUNT
aPKB
FC,RMDC(RG)
#SEEK ,RMCS(RL)
#131,3PKCS
#101,3PKCS
JERR RMDS(R4)
38
#DTADPB, R2

PC,SVRHIO
PC.CNTCLR
17
#-1,RS
PC, COUNT
R
1%
8%

*NO--JUMP TO EXIT14

*RETURN HERE ON ERRJR

:NO--BRANCH

*SAVE RO-RS
‘DPB POINTER

:SAVE ALL THE RH/RM REGISTERS
160 CLEAR CONTROLLER
:RESTORE RO-RS

;SET UP/DOWN SWITCH T0 UP
SUPDATE THE COUNT
SSTART THE COUNT AT ZERD
‘BEGINNING CYLINDER
:START A SEEK
“START THE CLOCK
SWAIT ON INTERRUPT
SSTOP THE CLOCK
:ERR=1?
:NO=~-BRANCH
:SAVE RO-RS
:DPB POINTER

*SAVE ALL THE RH/RM REGISTERS
:60 CLEAR CONTROLLER
:RESTORE RO-RS

:SET UP/DOWN SWITCH T0 DOWN
*UPDATE THE COUNT
DONE?
*NO-=BRANCH
TYES==EX]T

SEQ 0085

CZRMVAQ RMO5/3/2 EXT'D DR TST
114

~ MACRO v03.01

ACCESS TIME MEASUREMENT

TEST

015304
015312
015316
015320
015322
015324

042777
005037
012600
005726
104412
(12702

164170

015334
015340
287 015342

004737
106413
104020

282
283
284
285
286

015330

288
289
290
291

015344
015350
015354
015362
015366
292 015370
293 015574
ggg 015376

000101
177776

11-APR-80

7%:

045536

0047237

044310

004737
004737
012777
004037
001656
004037
001734

026072
026156
041740
031576

15:01:20 PAGE

BIC
CLR
MOV
187
SAVREG
MOV

#101,aPK(S
PS
(SP)+,RO
(SP)+

#DTADPB R?2

JSR

W4072

8$:
021506

031470

000004

EXITI4:

12-6

PC.SVRH0

JSR
RESREG
EMT

PL,CNTCLR

20
PC,CNTCLR
PC,ST.CLK
#1SR,aRMVEC
RO,TYPTIM

JSR
JSR
MOV
JSR
TM
JSR
SP1

RO,SPTYP

SCOPE

SEQ 0086

;STOP THE CLOCK
;DROP THE PRIORITY
sPC OF WAIT+?2
JPOP THE PS FROM THE STA(K
s SAVE RO-RS
:DPB POINTER

:SAVE ALL THE RH/RM REGISTERS
;60 CLEAR CONTROLLER
RESTORE RO-RS

;60 CLEAR CONTROLLER
JINITIALIZE THE CLOCK
JRESTORE RH/RM INT. VECTOR
;60 TYPE THE TIMES
;POINTER
;CALL SCOPE ROUTINE

304
309

;*TEST 15
J*THIS

TEST

WILL

MAXIMUM SEEK TIMING TEST
COMMAND A FORWARD

SEEK

FROM CYLINDER

'FC'

s*CYLINDER °*LC', THEN A REVERSE SEEK FROM CYLINDER 'LC' 10
J*CYLINDER 'F(C'.
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE
s*THEY ARE

WITHIN THE

TOLERANCE

ALLOWED

FOR

THE MAXIMUM SEEK

E R

;*TIME.
THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL Of
2#256 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS THAN 54 MS.
N

015400

1S8T15:

015600
Ji502
015610
015612

000240
033737
001002
000137

015616
015424
015430
0156436
015644
306 015452

012737
004737
012737
013737
112737
012737

000015
026672
016140
002324
000031
000015

001116

0156460
015466
015470
015474
015500
015502
015503

032777
001406
104401
013746
104403
003
000

010000

163466

015504
015510
015512
015516
015524
015530
015532

005737
003002
000137
012737
0Q04&u37?
000402
000137

001340

307
308
311
312
313
316
326

001560

001330

016140

001124
001220
001131
001240

046253
001240

016136
015516
031110
C16136

001122

1%:

NOP
81T
BNE
JMP

BITS+<15¢2>, TSTNMS
;D0 THIS TEST?
.46
:BR IFf YES
1S116
;NO==JUMP TQ TEST16

MOV
JSR
MOV
MOV
MOvB
MOV

#15,8TSTNM
PC,LODPRNM
FTST16,8LPERR
RPT,STIMES
#25.,8ERMAX
#15,8TESTN

JSET TEST #15 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
JSETUP THE ERROR LOOP ADDRESS
JGET THE ITERATION COUNT
JMAX ERRORS ALLOWED FOR TEST
J:SET TEST NUMBER IN APT MAIL BOX

811
BEQ
TYPE
MOV
TYPOS
.BYTE
.BYTE

#5W12,aSWR
416
MSGTST
$TESTIN,-(SP)

3
0

JINHIBIT TYPING TEST NUMBER ?
JBR IF YES
JTYPE °TEST'
;:SAVE STESTN FOR TYPEOQOUT
.:60 TYPE--OCTAL ASCII
;. TYPE 3 DIGIT(S)
: s SUPPRESS LEADING ZEROS

1ST
BGT
JMP
MOV
JSR
BR
JMP

CLKSTA
1%
EXIT1S
¥.,5LPADR
RO,SRCHOO
2%
EXITIS

JKWi1=-P CLOCK
JYES==START TEST
:NO==JUMP TO EXIT15
;SETUP THE LOOP ADDRESS
;D0 A MASSBUS INIT & RECAL
sRETURN HERE IF NO ERROR
sRETURN HERE ON ERROR

CZRMVAO RMOS5/3/2 EXT'D DR TST

115

PAXIMUM SEEK

TIMING TEST

015536
015546
015552

012737
112737
005037

015572

015556
015564

001122
045460

004037

002326
016136
027132

045470
001346

8122?5

012737

016136

001222

327 015610
328 0156164
329 015620

012706
012701
004737

001100
000200
031274

331
332
333
33,

012777
005077
013764
012764

031272
163640
002330
000105

015576

330 015626

335
336
337
338
339
34,0

015632
015640
015646
015652

013737
012737

015536
000105
045466

MACRO v03.01

012703

012777

001666

016044

000131

000034
000000
163614

000101
040000

163604
000012

015660
015666
015670
015676
015706
015706
015710

012777
000601
042777
032764
001411
104412
012702

015720
015724
341 015726
342 015730

004737
1046413
104017
005005

346
345
366
34,7
34,8
349
350
351
352

015736
015742
015750
015756
015764
015766
015776
016002
016004
016006

005077
013764
012764
012777
000001
042777
032764
001411
104412
012702

163542
002326
000105
000131

000034
000000
163516

000101
040000

163506
000012

016016
016022
353 016024
354 016026

004737
104413
104017
012705

026072

015716

3,3 015732

016012

355 016032

356
357
358
359
360
361
362

016036
016040
016042
016044
016052
016056
016060

363 016062
016066

016070
016074

004737

005301
003277
000420
062777
005037
012600
005726

2%:

JSR

RO, CALL.A

MOV

MEXIT15,8ESCAPE :;ESCAPE TO EXIT1S ON ERROR

MOV

044310
28:

031336

044310

#STACK,SP
#128. ,R1
PC,STRTMR

;SETUP STACK
SREPEAT """FC'='LC'="FC''' 128 TIMES
SINIT. THE TIMERS

MOV
CLR
MOV
MOV

#DORTI,3RMVEC
aPKB
LC,RMDC(RG)
#SEEK,RMCST(RG)

;SETUP RM VECTOR
:START COUNTING FROM ZERO
*MAXIMUM CYLINDER
-START A SEEK

JSR
RESREG
EMT
(LR

JSR

177777

031336

163430

78:

JSR
RESREG
EMT
MOV

JSR

DEC
BGT
BR
BIC
CLR
MOV
£3

104412
012702

045536

SAVREG
MOV

004737

026072

JSR

004737

0464310

160 EXECUTE THE COMMAND

MOV
MOV
JSR

CLR
MOV
MOV
MOV
WAIT
BIC
81T
BEQ
SAVREG
MOV

045536

:STARTING CYLINDER
:GO TO EXIT1S IF ERROR

:PARAMETER POINTER

JSR

026072

FC,OPB.A®12
PEXIT15,BYPASS

:ERROR LOOP ADDRESS
:SEEK=COMMAND
:USE TRACK 0 & SECTOR 0

#112,R3

MOV
WAIT
BIC
BIT
BEQ
SAVREG
MOV

045536

000101
177776

., SLPADR
WSEEK,DPB.A+2
DPB.A+10

MOV
18:

7
J
15:01:20 PAGE 12-7

MOV
MOVB
CLR
MOV
MOV

163644

021230

11-APR-80

JSR

#7$,aPKy

#131,3PKCS

#101,3PKCS
NERR.RMDS(R4)
23
#DTADPB,R2

PC,SVRH?0
PC.CNTCLR

17
RS

PC., COUNT

aPKB
FC,RMDC (R4)
#SEEK,RMCST(R4)
#131,3PKCS
#101,3PKCS
NERR.RMDS(R4)
3$
#DTADPB,R?2

PC,SVRH?0
PC.CNTCLR

17
#-1,R5

PC., COUNT

RY
1%
8$
#101,3PKCS
PS
(SP)+,RO
(SP)+

SSETUP VECTOR IN CASE OF OVERFLOW

*START THE CLOCK
:WAIT ON INTERRUPT
:STOP THE CLOCK
:ERR=1?
*NO=--BRANCH
:SAVE RO-RS
:PPB POINTER

SSAVE ALL THE RH/RM REGISTERS
:60 CLEAR CONTROLLER
*RESTORE RO-RS

:SET THE UP/DOWN SWITCH TO UP

:UP THE COUNT

:START COUNT AT ZERO
:BEGINNING CYLINDER
:START A SEEK
*START THE CLOCK
‘WAIT ON INTERRUPT
:STOP THE CLOCK
:"'ERR''=1?
*NO--BRANCH
:SAVE RO-RS
:DPB POINTER

:SAVE ALL THE RH/RM REGISTERS
160 CLEAR CMNTROLLER
:RESTORE HO=RS

:SET THE UP/DOWN SWITCH TO DOWN

SUPDATE THE COUNT

:DONE?
*NO-=BRANCH
SYES-<EXIT
:STOP THE CLOCK
:DROP THE PRIORITY
SPC OF WAIT#2
‘POP THE PS FROM THE STACK

#DTADPB,R?2

:SAVE RO-RS
‘DPB POINTER

PC.CNTCLR

260 CLEAR CONTROLLER

PC,SVRHIO

*SAVE ALL THE RH/RM REGISTERS

SEQ 0087

RM05/3/2 EXT'D DR TST
MACRO v03.01
MAX1MUM SEEXK TIMING TEST
106413
104020

004737
004737
012777
004037
001666
004037
001742
000004

026072
026156
041740
031576

11-APR-80

8s$:
020746

031470
EXIT15:

RESREG
EMT

JSR
JSR
MOV
JSR
112
JSR
SP12

SCOPE

15:01:20 PAGE

PC,CNTCLR
PC,ST.CLK
#ISR,aRMVEC
RO,TYPTIN
RO,SPTYP

12-8
;RESTORE RO-RS5

;60 CLEAR CONTROLLER
SINITIALIZE THE CLOCK
;RESTORE RH/RM INT. VECTOR
;GO TYPE THE TIMES
;POINTER
:
;CALL SCOPE ROUTINE

SEQ 0088

CZRMVAQ RM05/3/2 EXT'D DR TST
OO0
~NO N
W) —

ADDRESSING TESTS

MACRO v03.01

11-APR-80

.SBTTL

7
L
15:01:20 PAGE 13

SEQ 0089

ADDRESSING TESTS

T LT
e ririiiiiiiegigieeieieiiieeieieieieeeg
1
s*THE ADDRESSING TESTS ENSURES PROPER OPERATION OF THE TRACK
l
;*AND SECTOR ADDRESS CIRCUITR
BOTH ADDRESSING TESTS WILL
.*BE PERFORMED ON ( L N
/
.
sl 11111111771101111111

\"!—‘

SSAITIIIIIIIIE

,.'tI"'.l.'t'l"'"""""'""".'.."'l'""'t'.ttt.t.t'tt'tt

;*TEST

SECTOR ADDRESSING TEST

:*THIS TEST WRITES DATA

INTO ALL SECTORS OF

TRACK

"FT''.

THE

;*DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR
;*BEING WRITTEN,
A WRITE CHECK IS PERFORMED, THE BUFFER 1S

:*CLEARED (TO 177400) AND THE DATA 1S READ AND COMPARED.
THEN
;*SECTOR O IS REWRITTEN AND SECTORS O - 31 ARE WRITE CHECKED.
:#THEN SECTOR 1

IS REWRITTEN AND SECTORS O = 31

ARE WRITE

CHECKED.

;*THIS REWRITE AND WRITE CHECK PROCEDURE 1S CONTINUED UP THROUGH

'REURITE SECTOR 31

AND WRITE CHECK SECTORS 0-31.

"'.'t'.'.tt"""""""""t""'t'ttl....'t".'."'ttt""t

016140
016140
016142
016150

000240
033737
001002

001562

000137

016562

016156
016166
016170
016176
016206

012737
004737
012737
013737
113737

000016
026672
016260
002324
001462

001124
001220
001131

016152

ti116:

" 016212

012737

000016

016220
016226
016230

032777
001406
104401

010000

016240

104403

016234

0162642

016243

013746

NOP
BIT
BNE

BITS4<16%2>, TSTNMS
+6
:BR 1F

Ts117

INO--JUMP TO TEST17

001240

MOV
JSR
MOV
MOV
MOVB

MOV

#16,8TSTNM
PC,LODPRM
#TEST16,8LPERR
RPT,STIMES
ERR.CT,SERMAX

:SET TEST #16 AND CLEAR (SERFLG)
:LOAD THE PARMETERS FOR THE TEST
:SETUP THE LOOP ON ERROR ADDRESS
:GET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST

162726

BIT
BEQ
TYPE

#5412,35WR
416
.MSGTST

;INHIBIT TYPING TEST NUMBER ?
‘BR IF YES
STYPE 'TEST®

001330

JMP

001116

046253

001240

MOV

TYPOS

003

.BYTE

000

26 016264
8%2%25

012737
012737

016560
016260

27 016260
28 016264
29 016270
30 016276
31 016304
32 016310
33 016316
3, 016326
016332
35 016336
36 016344
37 016350
38 016356

012706
004737
013737
113737
105037
013737
012737
012737
012706
012737
004037
012737
012737

001100
032256
002326
002334
045546
001450
052776
016326
001100
000161
027670
000151
016356

001346
001122

045550
045547
045542
045544
001124

045540
045540
001124

EsT16

#16.S$TESTN

$TESTN,-(SP)

;D0 THIS TEST?
YES

22SET TEST NUMBER IN APT MAIL BOX

:SAVE STESTN FOR TYPEOUT

1360 TYPE--OCTAL ASCII

SSTYPE 3 DIGIT(S)

BYTE

: *SUPPRESS LEADING ZEROS

MOV
MOV

FEX1T16,BYPASS
#TEST16.SLPADR

;SETUP THE LOOP ADDRESS

MOV
JSR
MOV
MOVEB
CLRB
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV

#STACK,SP
:SET THE STACK POINTER
PC,FILBUF
SFILL THE BUFFER WITH SECTOR ADDRESSES
FC.OTADPB+12
:CYLINDER
FT.DTADPB+11
:TRACK
DTADPB+10
:SECTOR
TRCKWC,DTADPB+4 :WORD COUNT
#BUFFER,DTADPB+6
:BUFFER ADDRESS
#.,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
:LOAD THE STACK POINTER
#WRITE .DTADPB+2 :COMMAND=WRITE DATA
RO,DRVCAL
:START A DATA TRANSFER
#WRCKD,DTADPB+2 : COMMAND=WRITE CHECK DATA
#. SLPERR
*SETUP THE ERROR LOOP ADDRESS

MVAO RMO5/3/2 EXT'D DR TST
SCCTOR ADDRESSING TEST

016364
39 016370
40 016374
016602

61 016606
42 0166412
43 016420

46
45
46
47

016426
0166430
016434
0166436
016444
48 016450
49 016456
50 016464
51 016470
52 016474
53 016500
016506
54 016512
55 016520
56 016526
57 016534
58 016540
59 016544
60 016550
61 016552
62 016556
63 016560
64
76
77

012706
0064037
012737
012706

004037
012737
004037

004037
012700
005001
012737
012706
012737
012737
010037
110137
0064037
012737
012706
012737
013737
012737
105037
004037
062700
005201
023701
103334
000004

001100
027670
016374
001100

032314
000171
027670

MACRO v03.01

11-APR-80
Mov
JSR
MoV
MoV

00112¢

JSR

045540

MOV

JSR

032362
052776

016636
001100
000161
177400
065544
045546
027670
016500
001100
000151
001450
052776
045546
027670
001000

JSR
MoV
CLR
MOV
MOV
MOV
MOV
MOV
Mmovas
JSR

001124
045540
065542

1%:

001124

MOv
MOV
MOv
MOov
MOV

065540
065542
045544

CLRB
JSR

ADD
INC
CMP

002456
EXIT16:

BHIS

SCOPE

n?
15:01:20 PAGE 13-1

SEQ 0090

#STACK,SP

sLOAD THE

#STACK,SP

:LOAD THE STACK POINTER

RO,DRVCAL
#.,SLPERR

RO, CLRBUF
NREAD ,DTADPB+2
RO,DRVCAL
RO,CKSCTR

#BUFFER,RO

STACK POINTER

;START A DATA TRANSFER
:SETUP _THE ERROR LOOP ADDRESS
:CLEAR BUFFER
;COMMAND = READ
:START A DATA TRANSFER
:CHECK THE SECTOR DATA READ

;BUFFER ADDRESS

R1
#.,SLPERR
#STACK,SP
#WRITE ,DTADPB+2

sFIRST SECTOR
sSETUP THE ERROR LOOP ADDRESS
sLOAD THE STACK POINTER
;COMMAND=WRITE DATA

RO,DTADPB+6
R1,DTADPB+10
RO,DRVCAL

¢BUFFER ADDRESS
:SECTOR
sSTART A DATA TRANSFER

DTADPB+10
RO, DRVCAL
:?12..R0

;SECTOR
¢START A DATA TRANSFER
sMOVE TO NEXT SECTOR

PRMLMT+24 ,R1
s

sDONE?
:NO=--BRANCH

#SCTRWC ,DTADPB+4

;WORD COUNT

¥.,SLPERR
:SETUP THE ERROR LOOP ADDRESS
#STACK,SP
sLOAD THE STACK POINTER
#WRCKD,DTADPB+2 ;COMMAND=WRITE CHECK DATA
TRCKWC ,DTADPB+4 ;WORD COUNT
#BUFFER,DTADPB+6
sBUFFER ADDRESS

sCALL SCOPE ROUTINE

::tl'.'t'l'.'.""""'Q"""""l"'tlt'li'."."!"tt"'.t"tt

TRACK ADDRESSING TEST
;*TEST 17
s*THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES
;*IN CYLINDER 'FC'' SECTOR "'FS'" OF EVERY TRACK WITH EACH TRACK
s*GETTING ITS OWN TRACK ADDRESS.
:*A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO ENSURE
;*THE DATA IS VALID.
THEN TRACK O IS REWRITTEN AND TRACK 1
¢*THROUGH LAST TRACK

IS WRITE CHECKED.

THEN TRACK

s*REWRITTEN AND TRACK 2 THROUGH LAST TRACK 1S WRITE CHECKED.
;*THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING NEXT TO LAST
s*TRACK AND WRITE CHECKING LAST TRACK.
S

016562
016562
016564
016572
016574

000240
033737
001002
000137

016600
016606
016612
016620
016626
8 016634
016642

1$117:

22202200000 R2RR2RdRR202RdR2R
s
R2RRRRRRRSRRR0RRRaRRRE 2]

017226

NOP
811
BNE
JMP

012737
004737
012737
013737
113737
012737

000017
026672
016702
002324
001462
000017

MoV
JSR
MOV
MOV
MOVB
MOV

#17,8TSTNM

;SET TEST #17 AND CLEAR

NTEST17,SLPERR

;SETUP THE LOOP ON ERROR ADDRESS

032777

(10000

BIT

#SW12,3SWR

001564

001330

BITS+<17+2>,TSTNMS
;00 THIS TEST?
)
;BR IF YES
15120
:NO=-=JUMP 1O TESTZ20

(SERFLG)

PC,LODPRN

RPT,S$TIMES

ERR.CT,SERMAX
M7,8TESTN

;LOAD THE PARMETERS FOR THE

TEST

¢GET THE JTERATION COUNT

;MAX ERRORS AL'.OWED FOR TEST
¢.SET TEST NUMBER

IN APT MAIL BOX

;INHIBIT TYPING TEST NUMBER ?

%%;HVAO RMO5/3/2 EXT'D DR _TST

TRACK ADDRESSING TEST

016650
016652

001406
104401

016662
016664
016665

104403
003
000

016656

013746

MACRO v03.01

BEQ
TYPE

046253

001240

012737
012737

017226
016702

84
85
86
87
88
89
90
91
92
93

016702
016706
016712
016720
016726
016736
016742
016750
016752
016760

012706
004737
012737
013737
113737
012737
012737
005000
012737
012706

001100
032256
000161
002326
002342
177400
052776
016752
001100

94 016764
95 016770

110037
004037

045547
027670

97 017002
98 0170046
99 017010
100 017012
101 017020
102 017022
103 017030

005200
023700
002365
012737
005000
012737
012706

052776

045544

017022
001100

001124

104 017034

012737

000151

045540

106 017046

004037

027670

108
109
110
}};

017060
017062
017066
017070

005200
023700
002365
005000

113
116
115
116
117
118
119
120

017072
017076
017100
017106
017110
017112
017120
017122

105 017042

107 017052

062737

110037

062737

110037
010001
012737
005301

001000

001346
001122

—

045540
045550
045546
045542
045544
001124
1%:

045544

045547

001000

045544

001372

045547

3s:

001000

045544

017122
001100
000161
027670

001124

}g% 017142

012737
012706
012737
006037

045540

S%:

126 017146

062?37

001000

045544

6%:

126 017160

012737

017160

001124

121 017136

125 017156

017166

105237

012706

045547

(€01100

MOV
MOV

#EX1T17,BYPASS
NTEST17.SLPADR

:SETUP THE LOOP ADDRESS

MOV
JSR
MOV
MOV
MOVB
MOV
MOV
CLR
MOV
MOV

#STACK,SP
:SET THE STACK POINTER
PC,FILBUF
sFILL THE BUFFER WITH TRACK ADDRESS
#WRITE ,DTADPB+2 ;COMMAND=WRITE DATA
FC,OTADPB*12
CYLINDER
FS.DTADPB¢10
:SECTOR
#SCTRWC,DTADPB+4
:WORD COUNT
#BUFFER,DTADPB+6
;BUFFER ADDRESS
RO
: TRACK=0
#.,5LPERR
;SETUP THE ERROR LOOP ADDRESS
NSTACK,SP
;LOAD THE STACK POINTER

MOVB
JSR

RO,DTADPB+11
RO,DRVCAL

48:

$TESTN, - (SP)

2 :SAVE STESTN FOR TYPEOUT

:TRACK ADDRESS
;START A DATA TRANSFER

#256.'2.,DTADPB¢6

;UPDATE BUFFER ADDRESS

RO
JUPDATE TRACK NUMBER
LSTRK,RO
;0UT OF TRACKS?
13
*NO--BRANCH
#BUFFER,DTADPB+6
;BUFFER ADDRESS
RO
#.,8LPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;LOAD THE STACK POINTER

MOV

#WRCKD ,DTADPB+Z ; COMMAND=WRITE CHECK

JSR

RO,DRVCAL

MOVB

INC
CMP
BGE
CLR

045544

017130

3
0

::60 TYPE=-=0CTAL ASCII
S:TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS

ADD

052776

002411
062737
000772

TYPOS
.BYTE
.BYTE

INC
CMP
BGE
MOV
CLR
- MOV
MOV
i ¥

SEQ 0091

:BR IF YES
;TYPE 'TEST'

ADD

001372

N
7
15:01:20 PAGE 13-2

.46
MSGTST

MOV

83 016666
8}2953

96 016774

11-APR-80

RO,DTADPB+11

:TRACK ADDRESS

;START A DATA TRANSFER

3256.'2..01AOP8+6
RO
LSTRK RO
28
RO

;UPDATE BUFFER ADDRESS

{UPDATE TRACK NUMBER
;0UT OF TRACKS?
*NO--BRANCH
*FIRST TRACK ADDRESS

MOVB
[ [1]Y]
MOV
DEC
BLT
ADD
BR
MOV

RO,DTADPB+11
: TRACK
RO.R1
;FORM BUFFER ADDRESS
NBUFFER,DTADPB+6
;BUFFER ADDRESS
R
5¢
#256.+2.,DTADPB+6
48
#.,5LPERR
;SETUP THE ERRCR LOOP ADDRESS

MOV

FURITE,DTADPB+2 ;COMMAND=WRITE DATA

ADD

#256.¢2, ,DTADPB+6

MOV

#.,3LPERR

MOV

JSR

INCB

MOV

#STACK,SP

;LOAD THE STACK POINTER

RO,DRVCAL

JSTART A DATA TRANSFER
;UPDATE BUFFER ADDRESS

DTADPB¢if

:MOVE TG NEXT TRACK

#STACK,SP

JLOAD THE STACK POINTER

;SETUP THE ERROR LOOP ADDRESS

MVAQ RMO5/3/2 EXT'D DR 1ST
TRACK ADDRESSING TEST

127
128
129
130
131
132
133

017172
017200
017204
017212
017214
017216
017222

}gg 017224

012737
004037
123737
003355
005200
023700
003323

000151
027670
001372

MA.CRO v03.01 11-APR-80 15:01:20 PAGE8 l§°3
065540

MOV
JSR
CMPB
BGT
INC
CMP
BGT

045547

001372

000004

EXIT17: SCOPE

155

156

#WRCKD,DTADPB+2
RO, DRVCAL
LSTRK,DTADPB+11
6%
RO
LSTRK,RO
3s

SEQ 0092

COHHAND WRITE CHECK DATA
:START
A DATA TRANSFER
0UT OF TRACKS?
+NO=-=BRANCH
sNEXT TRACK TO WRITE
;0UT OF TRACKS?
sNO==BRANCH

;CALL SCOPE ROUTINE

";""'fi'.'"..'"""""'"'"'"'...'.""""'."""...""'

;*TEST 20

DATA TEST

;*THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS
;*''FC'' THROUGH ''LC'' BY THE

INCREMENT ''IC'' USING THE DATA PATTERNS

;*SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER:
ie

(1.7

(4.

SET 'NTTM TO "F1'' THEN REPEAT 2-4 UNTIL 'NT'' > "1

i (2.
:* (3.

WRITE THEN WRITE CHECK “'FS'' THROUGH “'LS'' OF TRACK 'NT''
READ THEN SOf TWARE COMPARE '‘FS'' THROUGM ''LS'' OF TRACK °'‘NT''

:* (5.
:* (6.

REPEAT STEPS 1-4 FOR EACH DATA PATTERN
REPEAT STEPS 1-5 FOR "'FC'' THROUGH ''LC'' ADVANCING BY ‘'IC"

;*1F

INCREMENT °'NT'' BY “IT'

A WRITE

CHECK ERROR OCCURS THE

ERROR

IS REPORTED AND

s*THE TRACK IN ERROR 'S REWRITTEN AND CHECKED. THIS CHECK IS
;*ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
;*WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS
;*FATAL AND NO READ OCCURS.

:'FS DEFAULTS TO 1 AND LS DEFAULTS 10 0

;*PAT DEFAULTS TO 177777

(ALL POSSIBLE

A48

017226
017226
017230
017236

000240
033737
001002

001526

000137

020006

017264
017252
017256
017264
017272
157 017300

012737
004737
012737
013737
113737
012737

000020
026672
017456
0023264
001462
000020

001124
001220
001131
001240

017306
017314

032777
001406

010000

161640

017326
017330
01733

104403
003
000

0172640

017316
017322

104401
013746

’

TSTZO

001332

046253
001240

161 017332
162 017340
163 017342

BITS+<20+2-40>,TSTNMS+2 ;DO THIS TEST ?
+6
:BR IF YES

1s121

;NO==JUMP TO TESTZ1

MOv
JSR
MOV
MOv
Mov8
MOV

#20,$TSTNM
PC,LODPRM
NTEST20,SLPERR
RPT,STIMES
ERR.CT,SERMAX
#20,8TESTN

;SET TEST #20 AND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
;GET THE JTERATJON COUNT
;MAX ERRORS ALLOWED FOR TEST
s.SET TEST NUMBER IN APT MAIL BOX

BIT
BEQ

#SW12,35wWR
+16

SINHIBIT TYPING TEST NUMBER ?
;BR IF YES

TYPOS
BYTE
.BYTE

3
0

::60 TYPE-=C_TAL ASCIlI
;s TYPE 3 DIGIT(S)
;;SUPPRESS LEADING ZEROS

TYPE
MOv

158
}Sg

MSGTST
§TESTN,-(SP)

;TYPE 'TEST®
;s SAVE STESTN FOR TYPEOUT

;SET UP THE TRACKX WORD COUNT FOR DATA TRANFER
012,37
005000
005004

017332

001122

RRRRR]]

NOP
BIT
BNE

JMP

001116

PATTERNS)

2222222222

MOov
CLR
(LR

#.,3LPADR
RO
R4

;SETUP THE LOOP ADDRESS
;CLEAR SW]ITCH
<FORM WORD COUNT [N R4

MOV

OO0

11-APR-80

002344
002342
002456

ADD

sus
BGE
INC

OO0O0O0O0O0OD

062704
00530
002374
005404
010405
005700
001612

COO0O0O00O0

(oM

005005
013701
163701
062705

000400

ADD
DEC

8GE

NEG

MOV

TST

8eQ

CLR

002456
002342
000400

MOV

2%:

SuB

ADD

DEC
BGE

NEG

OO0O0O0OOOO

JSET

002342
052776
20004

0645546
0455644
001346

001100
001432
002326

OCOOO0OO0

N—.dd—.—.d—.-‘—l—.d—‘—.—‘_‘_—._‘_‘—‘—‘—.-—.—l—‘-‘-) —

—= 00000000 NNNNNNNNNNOOO OO
V= OOV
NO VNS W
2OV
NO NS W
2OV
~YO NS

MACRO v03.01

TEST20:

MOVB
MOv
MOV

Mov

CLR

MOV

1%:

000040

004037

03220¢

1ST
CMP
BGT
JSR
BR

15:01:20 PAGE

13-4

SEQ 0093

LS, RI

:LOAD LAST SECTOR

SSKIP NEXT

FS RI

“COMPARE

WITH FIRST

SECTOR

FS < OR = LS

PRMLMT +24 ,R1
R
RO

;ADD MAXIMUM SECTOR ADDRESS TO
:MAKE THE DIFFERENCE POSITIVE
SSET SWITCH FOR FS > L5

#256. R4
R1
13
R4
R4 ,RS
RO

;WORDS/SECTOR
LS = FS SECTORS MINUS ONE
©INCR. WORD COUNT IF NO. SECTORS STILL

*FORM NEGATIVE WORD COUNT
:COPY NORMAL WORD COUNT INTO SMALL

“FS > LS SWITCH SET?

*NO, SKIP NEXT

;FORM WORD COUNT FOR FS

PRMLMT+24 ,R1
FS,R1

SMAX SECTOR ADDRESS
SSUBTRACT THE FIRST

:NO SECTORS MINUS ONE

#286. RS

*WORDS/SECTOR

SINCR. WORD COUNT

» LS

SECTOR

IF NO.

:FORM NEGATIVE WORD COUNT

SECTORS STILL
FOR

THIS

CASE

LP FOR DATA TRANSFERS AND PATTERN VARIATIONS

+SL,OTADPB+10

#BUFFER,DTADPB+6

;SECTOR

PEXIT20,BYPASS

#STALCK,SP

WCEFLG
FC.RI

;CLEAR

;DATA BUFFER

;LOAD THE

STACK POINTER

THE WRITE CHECK ERROR FLAG
;PI1CKUP FIRST CYLINDER

;SKIP PATTERN SET-UP FIRST

TIME

THRU

(RO) ¢+

+MOVE TO NEXT DATA PATTERN

3%
RO, INCCYL

;NO, STAY ON THIS CYLINDER UNT]L DONE
;MOVE TO NEXT CYLINDER

#16.+2.,R0

ExIT20

:0UT OF

PATTERNS?

;0UT OF

CYLINDERS

3%:

CLR
8IT
8EQ

RO
BITS(RO) ,PAT
1%
F1,R2
R1,DTADPB*12

;START WITH PATTERN O
s THIS PATTERN SELECTED?
:NO, GO BACK AND GET ONE THAT WAS
;FIRST TRA(K
sLOAD THE CYLINDER

MOV
MOV
MOvB

001466

CMP
BNE
(MP
8t

R1,#822.

JCHECK FOR LAST DISK

R2,LSTRK

SLAST DISK

065542

MOV

R4 ,DTACPB«4

oSN

002334
045550

\h\hl‘bg

002346

NNONNONO

NNNSNTNYN
VAVAVAWAWWA
NNV
— —s
NONTNTNSNTYN
[V AV ¥ VWA

—

norLro
(A9, %7, ¥
N —O

—

)

OO0O0O0O0O0
OO0O00O0

.D0 NEXT CYLINDER

001526

045547

001372
10%:

RZ2,DTADPB+ 11

10§

ExiT20

;LOAD THE TRA(K

CYLINDER

SSKIP LAST TRACK CHECK If NOT
TRACK

TDON'T TEST LAST TRACK AS [T HAS BAD
sBLOCK INFORMAT]ON STORED ON 1
;LOAD

THE

WORD

COUNT

(=]
[olelelelalelolololale
WO QOWO o
= —=ONON
PIPURAD = AU 85 = NN O N LN
NNNONNES NS YNONO
WO
— NN NO O OWO OO0
NO NN NN
NN
PR
—

[elelalolalelalelaloalalelololael
-]
— el el il
il el el il il
il
i e
el sl
el
»
B
NNSNNNSWNNSNNWNNNNY
—~O
(o Yo Yo X X
JY, 1V IV IAVAVIVISV]

624

EXT'D DR TST

MACRO v03.01

11-APR-80

002330

(MP
BGT
(MP
BGE

001372
045562

161352

032732
000020

017626
001100
000161

SEQ 0094

MOV

;LAST DISK CYLINDER TO TEST
;NO, SKIP TRACK CHECK
JLAST DISK TRACK 70 TEST ?
;NO, SKIP NEXT
;SHORT WORD COUNT

(oM
BIT
BEQ

R3
#SW04'SWO3,R3
7%

;WRITE CHMECK?

8SWR,R3Y

JSR

161330

BIT

001124

MOV

045540

13-5

LC,R
5%
LSTRK,R2
5%
RS,DTADPB+&

MOV

000030

15:01:20 PAGE

JINMIBIT WRITE AND
;YES==BRANCH

PC,SETBUF

#SW04 ,9S5WR

:MOVE

DATA PATTERN INTO THE

JYES,

DO NEXT PORTION OF

JINHIBIT WRITE?

BNE

MOV
MOV

#STACK,SP
FWRITE ,DTADPB+2

#.,S8LPERR

BUFFER

TESTING

JSETUP THE ERROR LOOP ADDRESS
JLOAD THE STACK POINTER
;COMMAND=WRITE DATA

;DO A DATA TRANSFER
027670
000010

000004

6%:

045540

000001

161232

000004

161222

017734
001100
000171
027670
000002

00112¢

JSR

RO,DRVCAL

;START A DATA TRANSFER

BNE

143

s YES=-BRANCH

BIT

00112¢

017662
001100
000151
027670
001432

033022
03215¢
020004

161274

#SW03,3S5WR

MOV
MOV
MOV

#.,8LPERR
#STACK,SP
#WRCKD,DTADPB+2

JSR

7%:

RO,DRVCAL

1ST

WCEFLG

RIT

#5SW00,aswR

BEQ

8%:

;NO==BRANCH

FLAG SET?

;PERFORM READ AFTER FATAL

'WCE'"

MOV

#STACK,SP

JLOAD THE STACK POINTER

#.,8LPERR

JSETUP THE

#READ ,DTADPB+2

BIT

#SW01,aSwWR

;COMPARE THE DATA?

PC,DAT(CMP

JYES-=-DO IT

RO,DRVCAL

BNE

JSR

RO, INCTRK

B8R

SCOPE

COMPARE®

ERROR LOOP ADLRESS

MOV

Ex1720:

ERROR

;NO=-=BRANCH
;INMIBIT READ DATA AND SOFf TWARE
s YES=-=BRANCH

JSR

9%:

;START A DATA TRANSFER

(MECK

9%
#5W02,85WR
9%

JSR

161166

WRITE

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER
:COMMAND=WRITE CHECK DATA

8EQ
BIT
BNE
MOV

045540

JINHIBIT WRITE (CHECK?

;COMMAND=READ

JSTART A DATA TRANSFER

sNO=--BRANCH
JMOVE

TO NEXT

;OUT OF

;LO0OP

TRACK

TRACKS GO TO NEXT PATTERN

;CALL SCOPE ROUTINE
4

;"."".'."."""""""""".."'.."".'-"'ll"""t'l'.'l

J*TEST 21

RANDOM ADDRESS AND RANDOM PATTERN TEST

;*STARTING AT "'FC'' AND GOING SEQUENTIALLY TO "'LC'' THE DISK
¢*PACK

1S WRITTEN WITH A RANDOM PATTERN.

s*0F EACH SECTOR WILL BE THE BASE OF
:*FOR THAT SECTOR.
;*THE

TEST

THEN PERFORMS THE

;*'R'" DEFAULTS TO 1000.

‘e1)
“¢2)
i

THE

FIRST

TWwO WORDS

THE RANDOM GENERATOR

FOLLOWING SEQUENCE

GENERATE A RANDOM SECTOR ADDRESS

WRITE A RANDOM PATTERN AT THE ADDRESS
GENERATED IN 1.

''R'" TIMES

CIRMVAQ RMOS/3/2 EXT'D DR TST

IPA

MACRO v03.01

**'-APR-80 15:01:20 PAGE

RANDOM ADDRESS AND RANDOM PATTERN TEST

;*3)

'4)

13-6

SEQ 0095

GENERATE A NEW RANDOM SECTOR ADDRESS

READ THE

SECTOR AT

TME ADDRESS

'5)

GENERATED IN 3.
DO A SOFTWARE CHECK OF

'6)

DO A WRITE CHECK OF

'8)

READ THE SECTOR AT THE ADDRESS
GENERATED IN 7,

ie7)

-9)
:#10)

THE DATA READ IN & AGAINST

THE ORIGINAL RANDOM PACK DATA.

THE DATA WRITTEN IN 2

GENERATE A NEW RANDOM SECTOR ADDRESS

DO A SOFTWARE CHECK OF THE DATA READ IN 8
DO A WRITE CHECK OF THE DATA WRITTEN IN 2

. '.'..'."..."""""""""'"'Q"'.'..""."""'0't'.""

020006
020006
020010
020016
020020

000240
033737
001002
000137

020024
020032
020036
020044
020052
289 020060

012737
004737
012737
013737
113737
012737

000021
026672
020302
002326
001462
000021

001116

020066

032777

010000

020074
020076

020102

020106
020110
020111
290
293
294
295
296
297
298
299
300
301
302
303
3064

020112
020120
020126
020134
020142
020150
020156
020166
020172
020200
020202
020206
020212
020220
305 020224
020224
306 00230

1
1

N —

(P LV LV ]

307
308
309
310

020234
020242
020244
020250
020256

001406
104401

013746
104403
003
000

1s§121:

001530

001332

020624

004037
105237
123737
002370
005237
023737
002353

027670
045547
001372
.
0.5550
0.2330

033340
045546
020212
001100

5122

YES

NO-=JUMP T0 TEST2?2

00112¢
001220
001131
001240

#21,8TSTNM
PC,LODPRM
HTEST21,8LPERR
RPT,$TIMES
ERR.CT,$ERMAX
#21.$TESTN

:SET TEST #21 AND CLEAR (SERFLOG)
:LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
:GET THE ITERATIGN COUNT
:MAX ERRORS ALLOWED FOR TEST
2:SET TEST NUMBER IN APT MAIL BOX

161060

BIT

#SW12,aSwWR

:INHIBIT TYPING TEST NUMBER °

MOV

$TESTN,-(SP)

L:SAVE STESTN FOR TYPEOQUT

BEQ
TYPE

001240

020112
020622
176543
123456
002326
001450
052776
000161
100000

BITS+4<21¢2<-4L0>,TSTNMS+42 DO THIS TEST

MOV
JSR
MoV
MOV
MOVB
MOV

046253

012737
012737
012737
012737
013737
013737
012737
012737
032737
001027
004037
005037
012737
012706

NOP
Bl17
BNE
JMP

001122
001346
025646
025650
045550
045542
045544
045540
001314

001124

1$:

2%:

045547
045550

.+16
MSGTST

:BR IF YES
:TYPE 'TEST®

TYPOS
.BYTE
.BYTE

3
0

::60 TYPE==OCTAL ASCII
$:TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZERQS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
JSR
CLR
MOV
MOV

¥.,SLPADR
;SETUP THE LOOP ADDRESS
BEX1T21,BYPASS
#176563.8HINUM
:PRIME THE RANDOM NUMBER GENERATOR
#123456,8LONUM
FC,DTADPB*1?
;CYLINDER
TRCKWC ,DTADPB+4 ;WORD COUNT FOR 32/30 SECTORS (fFuLL TRACK)
#BUFFER,DTADPB*6
:BUFFER ADDRESS
SWRITE,DTADPB¢2 ;COMMMAND
#SW15,C.SWR
‘WRITE THE DISK PACK BEFORE TESTING?
3%
NO==BEGIN TESTING
RO,FILRAN
SFILL DATA BUFFER WITH RANDOM DATA
OTADPB+10
SSECTOR AND TRACK
#.,SLPERR
‘SETUP THE ERROR LOOP ADDRESS
#STACK,SP
SLOAD THE STACK POINTER

JSR
INCB
CMPB
BGE
INC
CMP
BGE

RO,DRVCAL
DYADPB+11
LSTRK,DTADPB¢11
2%
DTADPB+12
LC,DTADPB¢12
1%

:START A DATA TRANSFER
JNEXT TRACK
:TIME FOR NEXT CYLINDER °
:NO=--D0O NEXT TRACK ON THWIS CvL.
SINCR CYLINDER ADDRESS
;0UT OF CYLINDERS?
INO=--CONTINUE SEQUENTIAL RANDOM WRITE

RMOS/3/2 EXT'D DR TST

MACRO v03.01

OO
roro

VNN
\WNO —
O VOWES
—-O
Oro0r—oosro
O—=N
NOW
OO0
N=O

NN
NN = NN
~NO

QWNNAN
O N~N~NV

N —

OO0O0O0OO0O0O0O0
WHVO
NS WO
OO0
NNON
O
W

OO-—
NN

O
= NNNNO~N
WWNO WNUIANG
O~~~
WO W
NNNNO

(NN
NN~

el
il

D OMNMNIWLNEIN

065562
001122
00112¢

TEST

b ¥
TEST21:

001436
001440

001124

065540
065544
001124

OO0
O
=t —
OO0O0O0O0O0O
o Ottt s O

020554
020562
020570
020576
020604
020612
020616
020622

ONVNN
WO W
NON

00112¢

~ NONNNN

PUNL LML

020466
001100
027670

033614
000171
053776
020524
001100
027670
001464

[V] WO WM

S rororON S

~ ONNNNO

065546
045550
045540
045544

020504
020510
020516
020524
020532
020536
020542
020546
020550

NNV
(N NN
NN

OO0O

020466
020674
020500

001436
001440
000151
052776

001436
001440
000151
052776
020604
001100
027670

(v v

;SET

MOv

DTADPB+10,SVADR

:SAVE THE TRACK/SECTOR

POINTER

OTADPB*12.SVADR*?

;SAVE THE CYLINDER

JSR

R1,DTADPB+6
RO.RANPAT

SINTO THE DATA PARAMETER BLOCK
:GENERATE RANDOM 256 WORD PATTERN

Mov
MOV

#.,SLPERR
#STACK,SP

SSETUP THE ERROR LOOP ADDRESS
SLOAD THE STACK POINTER

#BUFFER,R1

‘WRITE

DATA

BUFFER ADDRESS

FOR

'‘RANPAT''

SAND PUT INTO THE WRITE BUFFER

JSR

RO,DRVCAL

JSR

RO,RANADR
sGENERATE A NEW RANDOM ADDRESS
#READ,DTADPB+2
; COMMAND=READ DATA
MBUFFER+512.,DTADPB+6
;READ BUFFER ADDRESS
¥., 8 PERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP

*START A DATA TRANSFER

;LOAD

THE

STACK

FOINTER

JSR
157

RO,DRVCAL
BASFLG
.46
RO, RANCK

MOV
MOv

SVADR,DTADPB+10

:GET ADDRESS OF

WHERE

#WRCKD,DTADPB+2

; (OMMAND=WRITE

CMECK DATA

;START A DATA TRANSFER
:1F BAD SECTOR ENCOUNTERED,SKIP NEXT
;DON'T COMPARE DATA
;SOF TWARE CHECK THE DATA

;WRITE WAS PERFORMED

Mov

#BUFFER,DTADPB+6

:DATA BUFFER

MOV
MOv

¥.,SLPERR
FSTACK,SP

JSR

RO,RANADR
;GENERATE A NEW RANDOM ADDRESS
#READ,DTADPB+2
; COMMAND=READ
#BUFFER+512. ,DTADPB¢6
;DATA BUFFER ADDRESS
#., SLPERR
:SETUP THE ERROR LOOP ADDRESS
#STACK,SP
SLOAD THE STACK POINTER
RO,DRVCAL
:START A DATA TRANSFER
BASFLG
"ENCOUNTER BAD SECTOR °?

Mov
MOV
MOV
MOV
MOV
MOv

JSR

SCOPE

RO,DRVCAL

.46

RO, RANCK

sCHECK OF THE DATA

(CALL

THE LAST

SVADR+2,DTADPB*12

187
BM]
JSR

ExIT21:

STACK

SGENERATE A RANDOM ADDRESS
;COMMAND=WRITE

JSR

045550
045540
045544
001124

RO,RANADR

#WRITE ,OTADPB+2

MOV
MOV
MOV
MOV

045546

COUNT

#STACK,SP

JSR

033362

;WORD

MOV

065540
0465544
001124

#SCTRWC,DTADPB*4

#TEST21,SLPADR
PTEST21 ,SLPERR

BM]
JSR

033362

020436
020444
020452
020460

MOV

MOV
Mov
MOV
MOv

020430
020432

13-

MOV
MOV

MOv
MOV
MOv
MOv

065540

15:01:20 PAGE

SEQ 0096

JSR

—

NNINIMNE

s i O

[«

OO0

OO0O0O0O0O0O0O

Otdd
et s O =

—

OO0OO

SO0 ONONNS oo

tguuuuuuuuz
W
=2 OO0 0O
oo

OO NO WV WLIN—-O

NOND

QOOO00

W NN

VBN
O

LN M N AN AN N N N N

NP NINORNINL
ORI AN

RANDOM ADDRESS AND RANDOM PATTERN

11-APR-80

ADDRESS

fOR

HARDWARE

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

;START A DATA TRANSFER

:DON'T

COMPARE DATA IF

:SOF TWARE

THE

DATA

SVADR,DTADPB+10 :GET DISK ADDRESS OF

THE

SVADR+2,DTADPB+1¢

CHECK

SLAST WRITE

#FURCKD,DTADPB+2 ;COMMAND=WRITE CHMECK DATA
#BUFFER,DTADPB+6
¢DATA BUFFER ADDRESS
¥.,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP

RO,DRVCAL

;LOAD

THE

STACK POINTER

:START A DATA TRANSFER

;CALL SCOPE ROUTINE

;:'."'Q..Ql.'."""'"".'l"!..!."l'.'."."""..."."'..'.

CIR MVAO RMOS/3/2 EXT'D DR 18T

122

AZCESS TIME

ADJUSTMENT

MICRO v03.01

TEST

11-APR-B0

SeTEST 22

c*THIS

TEST

15:01:20 PAGE

13-8

SEQ 0097

ACCESS TIME ADJUSTMENT TEST
PERFORMS SEEKS BETWEEN CYLINDERS

0 & 255

TO ALLOW

THE

; *OPERATOR TO ADJUST THE ACCESS TIME ON AN RM05/3/2 USING THE
.*DDU.
THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS
;*SO THAT
WO NS
NAONO
NNNNNN

O—~000Q00

001532

001332

NOP

811

BNE
JMP

0<1020

ACCESS TIME
AR A

INDICATORS ON THE

AR A

AR X

DDU MAY BE OBSERVED.

BI15¢<22%2-40>,TSTNMS+2 ;DO TM]S TEST
.*6
$EOP

:BR IF YES
;NO=-=GO TO THE END OF

#22,37STNM
PC,LODPRM

B0 )

THE PROGRAM

AN
NI
ONNNNNNY

378 020730
020736
379 020736
020742

18122:

THE

AR A2

000022
026672
020736
002324
000144
000022

001116

MOV

00112¢
001220
001131
001240

MOV
MOV
MOv8
MOV

MTEST22,$LPERR
RPT,S$TIMES

;SET TEST #22 "ND CLEAR (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
¢SETUP THE LOOP ON ERROR ADDRESS
;GET THE ITERATJON COUNT

#27.,81ESTN

;.SET TEST NUMBER IN APT MAIL BOX

010000

160242

BIT

#SW12,aSwR
+16

;INHIBIT TYPING TEST NUMBER ?
;BR IF YES

MOv
TYPOS

$STESTIN,=(SP)

.BYTE
.BYTE

3
0

;. SAVE STESTN FOR TYPEOUT
;.60 TYPE--OCTAL ASCII
;:TYPE 3 DIGIT(S)
;:SUPPRESS LEADING ZEROS

MOV

NTEST22,$LPADR

;SETUP THE LOOP ADDRESS

FSTACK,SP

JSETUP THE STACK POINTER
JENDING CYLINDER
; SEEX=COMMAND
;60 EXECUTE THE COMMAND

020704
020712
020714
020720
020724
020726
020727

N
N

374

020642
020650
020654
020662
020670
020676

=0O0=00

9206264
120624
020626
020634
020636

OO0O0OQ

020736

012706
013737

001100
002330
000105
027132
030664

112737

BEQ
TYPE

046253
001240

012737

004037
004037
001456
013737
112737
004037
004037
001456
000004

JSR

002326
000105
027132
030664

001122

TESTZ22:

045470
045460

MOV
MOV
MOvB
JSR

JSR
.WORD

045470
045460

MOV
mMOvB

Ex1T22:

JSR
JSR
.WORD

SCOPE

#100.
, SERMAX

"MSGTST

LC,DPB.A+12

#SEEK ,DPB.A+?2
RO,CALL.A

RO,STALL

STALLS

FC,DPB.A¢1?2
#SEEK,DPB.A+?

RO,CALL.A
RO,STALL

STALLY

sMAX

ERRORS

;TYPE

;STALL

ALLOWED

FOR

°TEST®

JADDRESS OF STALL VALUE
JSTARTING CYLINDER
; SEEK=COMMAND
;60 EXECUTE THE COMMAND
JSTALL
JADDRESS OF STALL VALUE
;CALL SCOPL ROUTINE

TEST

CZRMVAQO RMOS/3/2 EXT'D DR 1§71

END OF

PASS ROUTINE

MACRO v03.01

11-APR-80

.SBTTL
BRA

END OF

15:01:20 PAGE

SEQ 0098

PASS ROUTINE

I Ty
R
RN
N
N
N R
N
R R R N X
R R LRy

'1NCREHENT THE PASS NUMBER (SPASS)
;*INDICATE END=-OF=PROGRAM AFTER 8. PASSES THRU THE PROGRAM

:'lf
;*1F
oA
021020
021024
021044
021050
021052
021056

021072
021072
021076
021100
021101
021102
021106

021134
021134
Q21140
021142
021146
021152
021156
021162
021170
021172
021174
021176
021200
021202
021204
021210

104401
000407
005737
001434
104401
00G405

013746
104403
002
000
104401
000412
013766
106402
005037
005037
005037
005237
042737
005327
000010
003027
012737
000010
021172
104401
000407

021230
021230
021234
0212640
021262
021266
0212646
021250
252

104401
013700
001405
000005
004710
000240
000240

56
56
60

000137
006540
377

THERES A MONITOR GO TO I7
THERE ISN'T JUMP TO RESTART

$EOP:

021026

;659
64693

001326

TYPE

;:67%:
669%:

001350

021110

. 698:

b8s.

001126

1$:

001242
$EOPCT:
SENDCT:

021212

BR
ASCIZ

;:65%:
:
648

000240

$DOAGN:

000

SRINAD:

S$ENULL:

CCRLE><LF>/END

DRVSEL
1%

,67%
66%
/

PASS/

J:TYPE ASCIZ STRING
..GET OVER THE ASCIZ

DRIVE/

,,TYPE ASCIZ STRING
JGET OVER THE ASCIZ
JANY DRIVES SELECTED?
JNO--BRAN(CH

,
= (SP)
CHKDRvV

LS8 &0 ®x7%FOR TYPEOUT

o®
;. TYPE-=0OCTAL ASCII

(TYPE 2 DIGIT(S)

::SUPPRESS LEADING ZERQS

“1PE
BR
LASCI2

,69%
68%

MOV
TYPOC

$ERTTL,-(SP)

::SAVE

SERTTL
STSTNM
STIMES
$PASS
#100000,8PASS

:lERO ERROR TOTAL
;:IERO THE TEST NUMBER
;. lERO THE NUMBER OF ]JTERATIONS
;s INCREMENT THE PASS NUMBER
:;DON'T ALLOW A NEG. NUMBER

$DOAGN

o YES

,65%
648

;o TYPE ASCiZ STRING
;;GET OVER THE ASCI2

CLR
CLR
CLR
INC
8lC
DEC
.WORD
BGT

MOV

. WORD
$EOPCT

BR
.ASCIZ
TYPE

$GET42: MOv
8tQ

$ENDAD:

,65%
663

MOv
T+POS

TYPE

021260
000042

377

187

BEQ

021060

001116
001220
001242
100000

TYPE

B8R
LASCIZ

RESET
JSR
NOP
NOP
NOP

JMP
.WORD

.EVEN

ERRORS

::TYPE ASCIZ STRING
S:GET OVER THE ASCIZ

DETECTED=/

éPC)’

éPC)‘,B(P()‘

<CRLF>/END

LSENULL
are? RO
$DOAGN

PC, (RO)

SERTTL FOR TYPEOUT

;.60 TYPE--OCTAL ASCII(ALL DIGITS)

;.LooP?

;;RESTORE

COUNTER

TEST/

JTYPE NULL CHARACTER
;:;GET MONJTOR ADDRESS

;;BRANCH [F NO MON]TOR
::;CLEAR THE WORLD
2:G0 TO MON]TOR
;;SAVE ROOM

.. FOR

JACTI

a(PC)¢

RESTART
-1,-1,0

s sRETURN
s oNULL

CHARACTER STRING

CIRMVAQ RMOS5/3/2 EXT'D DR TST

END OF

PASS ROUTINE

MACRO v03.01

2
3

11-APR-80

LSBTTL

021264

021272
021300

8%}%?8

‘:""""""""""""""""t'.t""""""".t't'tt"""

000001

021526

021530

$ATY1:

MOVB

#1,8FFLG

::70 REPORT FATAL ERROR

112737

000001

021530

::}'2:

MOVB

#1,8FFLG

::T0 ONLY REPORT FATAL ERROR

MOV

RO,=-(SP)

;:PUSH RO ON STACK

1518
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
ST
BNE
MOV
1518
BNE
5uU8
ASR
MOV
MOV
B8R
MOV
ADD

SMFLG
5%
NAPTENV,SENV
b1
#APTSPOOL ,SENVM
019
34 (SP) RO
#2,4(SP)
SMSGTYPE
1%
RO,S$MSGAD
(RO)+
2%
$MSGAD,RO
RO
RO,$MSGLGT
06, 8MSGTYPE
5%
4 (SP) 48
#2,4(5P)

;3 SHOULD TYPE A MESSAGE?
J:1F NOT:
BR
: :OPERATING UNDER APT?
::1F NOT:
BR
;; SHOULD SPOOL MESSAGES?
:;1F NOT:
BR
::GET MESSAGE ADDR.
::;BUMP RETURN ADDR.
::SEE IF DONE W/ LAST XM]SS]ON?
;2
1F NOT:
WAIT
;:PUT ADDR IN MA]LBOX
;FIND END OF MESSAGE

;3PUT MSG ADDR IN JSR LINKAGE
- -BUMP RETURN ADDRESS

JSR

PC,8TYPE

::CALL TYPE MACRO

105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766

001252
000004

001234

000004
000002

021440
000004

021634

004737

022366

021530

105737
001416
005737
001613
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000

010146

013746

000000

000¢00
000001
000100

S$ATY3:
Y(C:

021314
021320
021322
021330
021332
021340
021342
021346
021354
021360
021362
021366
021370
021372
021376
021400
0216404
021412
021414
021422
021440
021442
021442
021446
021450
021454
0216456
021462
0216464
021472
021500
021504
021510
021514
021520
021522
021526
021526
021527

COMMUNICATIONS ROUTINE

000001

010046

021430

8
14-"

112737

112737
000403

021310

021312

APT

1
15:01:20 PAGE

MOV

021526
000001

001254

000100

001255

000004
000002
001234

000004

001250

1%:
2s:

001250

177776

3%:

MOV
6%
5%:
10$:

001254

001234
000004
000002
001234
021530
021527
021526

MOVB
8R

118:
001236
000004
12%:

$MFLG:
$LFLG:
$FFLG:

f,8MFLG
SATY(

R1,=-(SP)

170776 ,-(SP)

LMWORD

1518
BEQ
181
BEQ
ST
BNE
MoV
ADD
INC
CLRB
CLRB
(LRB
MOV
MOV
RTS
.BYTE
.BYTE
gvgs

$FFLG
129%
SENV
12%
$MSGTYPE
1%
84 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,RO
PC
O
O

APTSIZE = 200
APTENY
= 00}
APTSPOOL= 100

270 TYPE A MESSAGE

;:PUSH R1 ON STACK

::SUB START QOF MESSAGE
:;GET MESSAGE LNGTH IN WORDS
2:PUT LENGTH IN MAILBOX
::TELL APT TO TAKE MSG.

;:PUSH 177776 ON STACK

: :SHOULD REPORT FATAL ERROR?
;o1F NOT:
BR
;;RUNNING UNDER APT?
;.1F NOT:
BR
;:FINISHED LAST MESSAGE?
::1F NOT:
WAIT
;:GET ERROR #
; :BUMP RETURN ADDR.
;:TELL APT 10 TAKE ERROR
::CLEAR FATAL FLAG
;sCLEAR LOG FLAG
::CLEAR MESSAGE FLAG
;:POP STACK INTO R}
;:POP STACK INTO RO
; sRETURN
;sMESSG. FLAG
::L0G FLAG

csFATAL FLAG

SEQ 0099

CIZRMVAQ RMO5/3/2 EXT'D DR TST
COMMUNICATIONS ROUTINE

000040

11-APR-80

APTCSUP =

LSBTTL

15:01:20 PAGE

14-2

SEQ 0100

040

ERROR HANDLER ROUTINE

. ""l""."""""""""'"""'l"t""'.'."t""""t"Q

:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR (CALL

:*AND GO TO TYPERR ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1

HALT ON ERROR

;*SWId=
;rSWi10=1

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

;*SW09=1

1574612

001324

CKSWR
BIT
BEQ
1ST

001522
001524
001117

MOV
MOV

001116
002000

MOV

001224
001126
001132
000002
157272

020000

004737

022000
001231

INCB
8eQ

1$:

000001

001254

001130
021302

021704

001000
001124
001222

001222

MOv

MOvB

20$:

BIT
BNE
JSR
TYPE

CMPB
BNE

MOvB

22%:
2$:

157224

BIT
8EQ
TYPE
INC

suB

21s:

157240

021750

ERROR

BEQ

NN
| ]

237

000400

A =t s
O NN
H O

401

$ERROR:

-0
Voo

NNWVNNNO
N— NN

~
~ NNNWNWNO
W — O

QO= =00 —-20000—-00 (=
OW—O0
=2 OO0OOW—=00—— o
RO~
— NS RO
— N
—

ol
—

oo [0 X o X o Yo Jo Jo IV IV IV IV IV TV IV IV IV IV IV }
W~ NIN) =t =t et O YN
O NN B B
NN
oS N NOMNNSNOONO SN

OO0

JeCALL

APT

MACRO v03.01

3%:
4%:

5%:

JSR

TST
BPL
HALT

CKSWR

. ERROR=EMT

#SW08,aSwR
7%
LPTAVL
7%
LPS,$TPS

LPB,$TPB

SERFLG
7%
STSTNM, QDISPLAY

#B81T10,a5uWR
1%

;. TEST FOR CHANGE IN SOFT-SWR

;SEND ERROR MESSAGE 1O T1v?
JYES=-=-BRANCH
;1S THERE A LINE PRINTER AVAILABLE?
sNO=-=BRANCH
;YES==SETUP STATUS

sAND BUFFER REG.'S FOR LINE PRINTER

:+SET THE ERROR FLAG
;:DON'T LET THE FLAG GO 70 ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG

;:BELL ON ERROR?
;N0 - SKI]IP

;:RING BELL

(SP),SERRPC

;.GET ADDRESS OF

$ERTTL

#2,8ERRPC
9SERRPC,SITEMB
#BIT13,3SWR

20$%

2 COUNT THE NUMBER Of

ERROR

ERRORS

INSTRUCTION

;,;STRIP AND SAVE THE ERROR ITEM CODE
J:SKIP TYPEQUT

::SKIP TYPEOQUTS

SET

PC,TYPERR

2:G0 TO USER ERROR ROUTINE

#APTENV,SENV

;sRUNNING

$1TEMB,21%
SC.SA114

:sSET ITEM NUMBER AS ERROR NUMBER
; ;REPORT FATAL ERROR TO APT

LOCRLF

C
22%

aSWR

MOV
151

MOV

$ESCAPE, (SP)

8eaQ

]TEM NUMBER

JOBELL

#B1709,aSWR
4%
$LPERR, (SP)
$ESCAPE

BEQ

AND N=ERROR

5¢%

IN APT MODE

;:NO,SKIP APT ERROR REPORT

;APT ERROR LOOP
ssHALT ON ERROR

ssSKIP IF CONTINUE
;sHALT ON ERROR!
ssTEST FOR CHANGE IN SOFT-SWR

;;LO0P ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS

;:BR IF NONE

:;FUDGE RETURN ADDRESS FOR ESCAPE

CZIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

ERROR HANDLER ROUTINE

[V 1V,]
N —

013737
013737

021244

o0
oo

022737
001001
000000

~NO

000002

000042

001164
001166

(MP

6%:

K
15:01:20 PAGE

NSENDAD, a4

BNE

MOV
MOV

TPS,$TPS
TPB,$TPB

HALT

RTI

LSBTTL

WS WA = OV

8
14-3

SeEQ 0101

; JACT=11 AUTO-ACCEPT?
: ;BRANCH IF
: JYES

EST
STATUS AND BUFFER REG.'S

RETURN FROM ERROR CALL

TYPERR - TYPE ERROR ROUTI NE

+THIS ROUTINE USES THE ''ITEM CONT ROL BYTE'' (SITEMB) TO DETERMINE
JWHICH ERROR IS TO BE REPORTED, 1 T THEN OBTAINS, FROM THE ''ERROR
;TABLE'' (SERRTB), AND REPORTS THE APPROPJATE INFORMATION

bt b

sCONCERNING THE ERROR.

OOOOOOOOOOSOOOOOOOOO
oo
N
NNNNN%NNNNNN

CALL
;
:
(elelelel=]

(=]
W
o

001116

001212

SAVREG
SuB
MOV
MOV

000004
001176
001200
001202
001204
001206
001210
001130

e
D el e
D

SITEMB,RO

000041

001354

:.65%

022172

¢es:
3%:

;1S ERROR > 377

0
#41,R1
7%

:"'EM'' POINTER GOES HERE

TABLE

PITEMG1-SERRTB,RO
sYES=<=FORM OFFSET
#SERRTB,RO
;FORM ADDRESS
(RO)+,2%
:GET ERROR MESSAGE (EM) POINTER
7%
;BRANCH IF THERE ISN'T ONE
LOCRLF
:''CARRIAGE RETURN - LINE FEED

TYPE
TYPE

LMWORD
SuB
BMI

MOV

SVSTAT,R1
R1
R1
#STATBL ,R?2

TYPE
BR

,65%
64$

CLR

022144

PICKUP ERROR JTEM NUMBER

sAND COPY IT INTO R1
;FORM INDEX FOR ERROR

ADD
ADD
MOV

MOV
ASLB
ASL

001750

RO,R1

;SAVE RO - RS
;FORM TEST PC
:COPY RO-R5 IN SREGO-$REGS

RO
RO
RO

BEQ
2%:

R4 ,SREGSL
RS,$REGS

sSAVE THE TEST NUMBER

ASLB
ASLB
ASLB

BCC

001231

#6 RO
RO,S$REGO
R1,SREG!

MOvVB
MOV

1$:

STSTNM,STMPO

R2,$REG?2
R3,$REGY

DEC

000240
002002
022110

PC.TYPERR

MOV
MOV

(=
o
(=]

OO VNI
OO SO0

i
ol
nd o
—

— el el b =l wd

S WNUWINININ
= = = OO
OO
SO0
OOoN

22070

JSR
RETURN

TYPERR: MOVB

22054
22056

NORONONOMNON

) b b cd b e e e

NN = OV
NOWVNS WN

OOV

£ 8 8 85 NN N M AN N AN AN AN N NI N PONI NININI PO N

WPV = OV

11-APR-B0

LASCIZ

MOV
ASL

8CC
(oM
BNE

7 (/

(R2)+,5%

6%
R3
6%

:SPECIAL ERROR ITEM NUMBER?

:NO--BRANCH

:GET STATUS/ERROR INDICATOR

;STRIP ''DONE'’ BIT (BIT07)
:STRIP "‘ERROR'* BIT (BIT1S)

:1ST ADDRESS ON STATUS MESSAGE

POINTERS

:CARRIAGE RETURN=-LINE FEED SWITCM
: STYPE ASCIZ STRING
: sGET OVER THE ASCIZ

;MESSAGE POINTER

¢TYPE THIS MESSAGE?
:NO--BRANCH

JYES-=TYPE A "'(R"" &

:NO=--BRANCH

'.LF.'?

CZRMVAO RMO5/3/2 EXT'D DR TST

TYPERR - TYPE ERROR ROUTINE

1064401
104401
000000
005701
001403
1064401
000761
001360
104401
000401

022220
62 022220
63 022224
64 022226
65 022232
66 022234
67 022236
68 022240
69 022242
70 022244
71 022246
72 022250
73 022252
74 022254
75 022260

012037
001404
104401
104401
000000
012001
001450
005005
012000
012002
001441
005105
104401
112003

76
77
78
79

022262
022264
022266
022270

022272
80 022274

3
3
3
3
3
3

0
2

005705
001342

0
2

000737

&
4

022234

104401

104413

000<07

TYPE
1YPE

JYES

MORD

BEQ

;MESSAGE POINTER GOES HERE
;MORE TO TYPE?

18T

6%:

BLNKS?

BNE

TYPE

BR
LASCIZ
MOV

+SCRLF

sPI1CK UP DATA HEADER (DH) POINTER
;BRANCH ]F NONE
:CARRIAGE RETURN-LINE FEED

.WORD

;''DH'’ POINTER GOES HERE

BEQ
(LR

20%
RS

(RO)+,8%

(RO)+,R1

MOV
MOV

128:
13%:

046657
14%:

001231

046657
022342
001231

0466657

(RO)+,RO
(RO)+,R2

17%
RS

8EQ
COM

11%:

TYPE
MovB
MOvB
ROR

+SCRLF
(RO)+,R3
(RO)+,R4
R4

129

BCS

MOv
TYPOC

d(R1)+,-(SP)

13%

MoV

3(R1)+,-(SP)

DEC
BEQ
TYPE
BR
DEC
BLE

R3
143

com
BNE

RS
15¢%

TYPDS

,BLNKS?

118
R2
20%

TYPE

15%:
16$%:

178:

20%:
.SBTTL

:TYPE 2 SPACES
. LOOP
;BRANCH IF NOT FINISHED
;;TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

9¢

TYPE
TYPE

108:

678

66$
/)

:NO=-=BRANCH

BEQ

MOV

001231

14-¢

SSCRLF

TYPE

001231

104402
000402

013146
104405
005303
001403
104401
000764
005302
003421
104401
005105
001002
104401
012037
104401
000000

046657
022216

15:01:20 PAGE

SEQ 0102

5%:

112004
006004
103403
013146

022276
022300
022302
022304
022306
022312
022314
316
320
3264
326
330
334
340
g#Z
NN NN
NN

82
83
84
85
86

001231

11-APR-80

~NO .PO

53 022164
54 022170
55 022172
56 022174
57 022176
58 022200
59 022204
60 022206
61 022210
022214

MACRO vu3.01

LOCRLF

TYPE
MoV

;P1CKUP DATA TABLE (DT) POINTER
:BRANCH ]F NONE
sSET INDENT SWITCH
sDATA FORMAT

(DF)

POINTER

;NUMBER OF DH'S 1O TYPE
;BRANCH 1F DH NUMBER IS 0
:NO INDENT
:CARR]AGE RETURN-LINE FEED
;NUMBER OF DATA WORDS TO TYPE
sAND HOW TO TYPE THEM
;OCTAL OR DECIMAL?
sDECIMAL--BRANCH
;;SAVE a(R1)+ FOR TYPEOUT
::G60 TYPE--OCTAL ASCII(ALL DIGITS)

;s SAVE a(R1)+ FOR TYPEOUT
;.60 TYPE--DECIMAL ASCII WITH SIGN
+MORE NUMBERS TO TYPE?
:NO=-=-BRANCH
:TYPE 2 SPACES
;LOOP
:MORE DH'S?
:NO=-BRANCH
;YES-=START A NEW LINE
: INDENT?
sNO=-=-BRANCH

,BLNKS?
(RO)+,16%

;TYPE 2 SPACES

MORD

:DH POINTER GOES HERE
;CARRIAGE RETURN-LINE FEED
: INDENT?
+NO=-=BRANCH
;TYPE 2 SPACES
;LOOP
;RESTORE RO - RS
sRETURN

TYPE

,$CRLF

BNE

108

TYPE

BLNKS?2

RESREG
RTS
TYPE

fos
PC

ROUTINE

;GET NEXT DM
sAND TYPE

“

CZRMVAO RM05/3/2 EXT'D DR TST

TYPE ROUTINE

[

i
n
e

M 8
11-APR-80 15:01:20 PAGE 14-5

MACRO v03.01

ARl

SEQ 0103

Rl dddddiadiidiliiitddtidlisliiiliisditiiitsitizliy]

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

+*NOTE1:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARALTER.

'NOTES

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

s *NOTE?2:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

CAL

rl) USING A TRAP INSTRUCTION
on

TYPE

. MESADR

:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1$

::1S THERE A TERMINAL?
::BR IF YES
..HALT HERE IF NO TERMINAL

MESADR

$TYPE:

TSIB
BPL
HALT

022366

105737 001173
100002
000000000430
010046
017600 000002
000001

001254

000100

001255

1%:

022436
021272
000040

001255

618:
628:

Nt
N =2 NI O N

000002

60$:
3s:

000011

48:

000200

022716

022526
022530

022534

022552

022600
001172

013746

001170

105366
002770
004737
105537
000770

000001
022600
022716

BR
MOV
MOV

38
RO,~(SP)
82(SP) RO

BNE
BITB
BEQ
MOV
JSR
MORD
BITB
BNE
MOVB
BNE

62%
HAPTSPOOL,$ENVM
62%
RO,61%
PC,SATY3
O
#APTCSUP,SENVM
60%
(RO)+,~(SP)
48

MOV
ADD

(SP)+,RO
#2,(SP)

CMPB

28:
2600

TYPE

5%:

6$:

78:

NAPTENV,SENV

:LEAVE
: 3SAVE RO
..GET ADDRESS OF ASCIZ STRING
: sRUNNING IN APT MODE

:NO,GO
::SPOOL
:3NO,GO
::SETUP

CHECK FOR APT CONSOLE
MESSAGE TO APT
CHECK FOR CONSOLE
MESSAGE ADDRESS FOR APT

::SPOOL MESSAGE TO APT
: :MESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED
:3YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK

gg!.(sp)

:2BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP 1T OFF THE STACK
: :RESTORE RO
: ;ADJUST RETURN PC
:RETURN
::BRANCH IF <HT>

ggza

ggan.(sp)

::BRANCH IF NOT <CRLF>

1ST
TYPE
SCRLF

(SP)+

::POP
<CR><LF> EQUIV
::TYPE A CR AND LF

CMPB

$CHARCNT
2%
PC,STYPEC
SFILLC,(SP)+

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
;215 IT TIME FOR FILLER CHARS.?

MOV

$NULL,=(SP)

18T

RT}
ggga

CLRB
BR
JSR

BNE

DECB
BLT
JSR
DECB

(SP)+

1(SP)
6%
PC,$TYPEC
$CHARCNT

- 7%

::1F NO GO GET NEXT CHAR.

;3GET # OF FILLER CHARS. NEEDED

:sAND THE NULL CHAR.

::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::D0 NOT COUNT AS A COUNT

::LOOP

CIRMVAOQ RM05/3/2 EXT'D DR TST

TYPE ROUT:NE

MACRO v03.01

11-APR-80

SO
NNOOONN

000040
022600
000007

022716

8%:
9%:

b
eb YN

oONOWVN

- ) e o
NP =200
NI NOWV
NNNWSN

PPN

NN N —

QOO
—
OO0OOWO—
OWNM—=NISN
NNWSNINN
QOO
b
ONES =00
=N NOW
ONNNON

¢HORIZONTAL

001366

$TYPEC:

156354

156350
177600
000023
101$:

156330
156324
177600
000021

102%:

005726
105777
100375
116677
122766

001003
105037
000406
122766
001402
105227

022720
104
105

000000
000207

108:

156306
000002
000015

156
000

022716
000012

000002

SEQ 0104

TAB PROCESSOR

MOVB
JSR

L (SP)

PC,ETYPEC

J;REPLACE TAB WITH SPACE

;. TYPE A SPACE

2 ;BRANCH JF NOT AT
;. TAB STOP
;sPOP SPACE OFF STA(CK
J:GET NEXT CHARACTER

BITB
BNE
1S7
B8R

#7.8$CHARCNT
9%

1518
BPL
MOV

3%7KsS
10%
a$T1KB,=(SP)
#177600, (SP)
RS XOFF, (SP)
102$

;:CHAR IN KYBD BUFFER?
::BR IF NOT
J:GET CHAR

1STB
BPL
Move
8lC
(MPB
BNE

asTKs

::WAIT FOR CHAR

8177600, (SP)
quon (§P)

::GET CHAR
TISTRIP IT
SIWAS IT XON?
“:BR IF NOT

18T

(SP)+

JeFIX STACK

1518

a$TPS
10$

::WAIT UNTIL PRINTER IS READY

BiC
CMPB
BNE

BPL

Move

CmMPB
BNE
CLRB
BR
1$:
CMPB
BEQ
INCB
$CHARCN
: ,WORD
T
$TYPEX: RTS
.SBTTL

N
8
15:01:20 PAGE 14-6

(SP)+

101$
as$T1KB,

(SP)

2(SP),a$1PB

#CR,2(SP)
1$
SCHARCNT
STYPEX
#LF,2(SP)
S$STYPEX
(PC)+

BINARY TO OCTAL

(ASCII)

;:STRIP EXTRANEOUS 81TS

;;WAS CHAR XOFF
;.BR IF NOT

::LOAD CHAR TO BE TYPED INTO DATA REG.
*iIS CHARACTER A CARRIAGE RETURN?
**BRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT

1UIS CHARACTER A _INE FEED?

T BRANCH IF YES

*'COUNT THE CHARACTER
**CHARACTER COUNT STORAGE

AND TYPE

't.'t."ttt."'t"'t"i'"itttt".tt..t".t"tttt'tti"ttt'tlt'

'TH]S ROUTINE

IS USED TO CHANGE A

16-BIT BINARY NUMBER

TO A 6-DIGIT

s *OCTAL (ASCI]) NUMBER AND TYPE IT.
s*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
.'CALL.

MOV

B
s

.BYTE
.BYTE

TYPOS

NUM,
- (SP)

DIGITS

TO TYPE

:sNUMBER TO BE TYPED
«.CALL FOR TYPEOUT

::N=1 7O 6 FOR NUMBER OF DIGITS TO TYPE

;:M=1

0RO

::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

‘l
,l

;*$STYPON-===ENTER HERE TO TYPE OQUT WIIH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

JeCALL:
;'

MOV

" NUM,
= (SP)

. NUMBER TO BE TYPED

CZRMVAD RMOS/3/72 EXT'D DR TST

BINARY TC OCTAL

(ASCI1)

AND TYPE

MACRO v03.01

B 9
11-APR-8B0 15:01:20 PAGE 14=7

TYPON

;:CALL

SEQ 0105
FOR

TYPEOUT

:'%IYPOC---ENTER HERE FOR TYPEQOUT OF A 16 BIT NUMBER

;*CALI-

022722
022726
022734
022740
022764
0227646
022754
022762
022770
022772
022774
022776
023002
023004
023010
0230164
023020
023024
023026
023030
023032
023034
023036
023040
023042
023044
023050
023052
023056
023060
023062
023064
023066

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
1137064
005406
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
0052064
052703

023076

110337

023072

023102
023106
023112
023114
023116
023120
023122
023126
023126
023130
023136
023140
023142
02343
023144

052703

104401
105337
003347
002402
005204
000744
012605
012606
012603
016666
012616
000002
v00
000
000

000000
000001
023147
000002

MOV

TYPOC

000060

$TYPOS: MOV
MOVB
MOvB
ADD
BR
S$TYPOC: MOVB
MOvB
STYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
1%:
ROL
BR
2%:
ROL
ROL
ROL
MOV
31s:
ROL
DECB
BPL
BIC
BME
157
GEQ
(S
INC
B81S

023142

MOVB

000001
000006
000005

023145

023145
023147
023144

023147
000006
023146
023145
000012

023146
1/7770

000040

5¢:

023142
023144

7%:

6%:
000002

000004
8s:
$OCNT:

BI1S

TYPE
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RT,
.BYTE
.BYTE
.BYTE

NUM, = (SP)

: :NUMBER TO BE TYPED

;;CALL

FOR

TYPEOUT

a(SP),=-(SP)
1(SP),80F1LL
(SP)+ ,SOMODE+1
#2,(SP)
$TYPON
#1.$0FILL
#6,80M0DE +1
#5,80CNT
R3,=-(SP)
R&.=(SP)
RS,=(SP)
$OMODE+1,R4
R4
#6,R4
R4, $OMODE
$OFILL,RG
12(SP) .RS
R3
RS
3¢
RS
RS
RS
RS,R3
R3
$OMODE
7%
#177770.R3
43
R4
5%
R4
#'0,R3

:;GET LSB OF THIS DIGIT
;s TYPE THIS DIGIT?
S:BF IF NO
2:GET RID OF JUNK
SITEST FOR 0
;s SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
;:MAKE THIS DIGIT ASCII

R3,8%

::SAVE FOR TYPING

,8%
$OCNT
2%
6%
R4
2%
(SP)+,RS
(SP)+ ,R4
(SP)+.R3
2(SP),4(SP)
(SP)+,(SP)
0
0
O

;:PICKUP THE MODE
;:LOAD 2ERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS
::SET (HE
JoSET FOR
;2SET THE
::SAVE R3
::SAVE Ré
::SAVE RS
;:GET THE

2ERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

;:SUBTRACT IT FOR MAX. ALLOWED
S:SAVE IT FOR USE
;;6ET THE ZERO FILL SWITCH
::PICKUP THE INFUT NUMBER
::CLEAR THE OUTPUT WORD
::ROTATE MSB INTO ''C"
;.60 DO MSB
;:FORM THIS DIGIT

TSMAKE ASCI1 IF NOT ALREADY

;.60 TYPE THIS DIGIT
;; COUNT BY 1
;:BR JF MORE 10 DO
::BR IF DONE
:INSURE LAST DIGIT ISN'T A BLANK
2260 DO THE LAST DIGIT
::RESTORE RS
;RESTORE R4
:RESTORE R3
;:SET THE STACK FOR RETURNING

: :RETURN
S STORAGE FOR ASCII DIGIT
;o TERMINATOR FOR TYPE ROUTINE
S:0CTAL DIGIT COUNTER

CIRMVAO RMO5/3/2 EXT°'D DR TST

BINARY

TC OCTAL

(ASCII)

023145
106 023146

000
000000

AND TYPE

MACRO v03.01

107

11-APR-80

c
15:01:20 PAGE

$OFJLL:
$OMOCE:

.BYTE
.WwORD

.SBTTL

CONVERT BINARY

9
14-8

0
O

SEQ 0106

;o LERD FILL SWITCH
. sNUMBER OF DIGITS TO TYPE
TO DECIMAL AND “YPE ROUTINE

‘:"'l."""."""'"""""'.'"""".."""".'..""""'

;*THIS ROUTINE

IS USED

TO (HANGE

16-BIT BINARY NUMBER

TO A 5-DJGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE ]T. DEPENDING ON WHETHER THE
:*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

: *REPLACED WITH SPACES.
;*CALL:

023150
023150
023152
023154
023156
023160

010046
010146
010246
010346
030546

023166
023172
023174
023176
023204
023203

016605
100004
005405
112766
005000
012703

023162

02321

012746

112723

023216
023220
023224
023226
023230
023232
023234
023236
023240
023262
023244
023246
023250
023252

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

023264
023270

052702
110223

023260

023272

023274
23300
023302
023304

023306

023310
023312
023314
023322
023324

052702

005720

020027
002746
003002
010502

$TYPDS:

020200

000001

023364

000040

5%:

000060

177777

000040

68 :
7%:

8$:
177777

;:PUT THE BINARY NUMBER ON THE STA(CK

MOV
[ [0]"]
MOV
MOV
MOV

RO, =(SP)
R1,=(SP)
R2,=-(SP)
R3Y,=(SP)
RS =(SP)

::PUSH
:;PUSH
;sPUSH
:;PUSH
::PUSH

MOV
BPL
NEG
MOVB
CLR
. [01"]

20(SP) .RS
1%
RS
#'-,1(SP)
RO
#80BLK R

2:GET THE INPUT NUMBER
S:BR IF INPUT IS POS.
;sMAKE THE BINARY NUMBER POS.
SIMAKE THE ASCI] NUMBER NEG.
*:1ERO THE CONSTANTS INDEX
;. SETUP THE OQUTPUT POINTER

CLR
MOV
SUB
BLT
INC
BR
ADD
ST
BNE
1STB
BM]
ASLB
BC(
MOVB

R2
$DTBL (RO) R
R1,RS
X3
R2
{3
R1,RS
R2
5¢
(SP)
7%
(SP)
6%
1(SP),-1(R3)

::CLEAR THE BCD NUMBER
S:GET THE CONSTANT
::FORM THIS BCD DIGIT
S:BR IF DONE
:INCREASE THE BCD DIGIT BY
;:ADD BACK THE CONSTANT
*CHECK IF BCD DIGiT=0
SSFALL THROUGH IF 0
::STILL DOING LEADING 0°'S?
S:BR IF YES
;. MSD?
2iBR IF NO
S YES==SET THE SIGN

BIS
MOVB

" R
R2,(R3)+

SiMAKE IT A SPACE IF NOT ALREADY A DIGIT
S:PUT ThIS CHARACTER IN THE OUTPUT BUFFER

MOVB

8IS

000010

000764

105726
100003
116063
105013
012605

1$:

2%:

023354

000001

NUM, - (SP)

TYPDS

MOV

000020

000055

[ [0)'}

177776

9¢:

#20200,-(sP)

'y .(RS)*

#0,RO

(RO) ¢

CMP
BLT
BGT
MOV

RO,#10
2%
8s
RS.R2

TSTB
BPL
MOVB
(LRB
MOV

(SP)+
9%
=1(SP),=2(R3)
(RY)
(SP)+,RS

B8R

;:60 TO THE

RO
R1
R2
R3
RS

ON
ON
ON
ON
ON

ROUTINE

STACK
STACK
STA(K
STACK
STACK

S:SET BLANK SWITCH AND SIGN

J:SET THE FIRST CHARACTER TO A BLANK

:SMAKE THE BCD DIGIT ASC1I

1:JUST INCREMENTING

S:CHECK THE TABLE INDEX
1260 DO THE NEXT DIGLT
1260 TO EXIT
1iGET THE LSD

1560 CHANGE TO ASCII

S:WAS THE LSD THE FIRST NON-ZERQ?
S:BR IF NO
::YES=-SET THE SIGN FOR TYPING
3:SET THE TERMINATOR
S:POP STACK INTO RS

CIRMVAQ RMOS5/3/2 EXT'D DR T1S7
OCOO0OO0OOOOOOOOOD

[ L1 V1 V] VT NT NTNT VT NT VT NT VT ¥
L U W L U N LN L N N AN N
L Ll L Loe U L U A A U L
AN

[o *
al°AV IV 1Y IV, PVIV
@)
SO0 NONOSNOo

MACRO v03.01
CONVERT BiNARY TO DECIMAL AND TYPE ROUTINE

11-APR-80

MOV

($P)+,R3

;:POP STACK

INTO R3

MOV
MOV

(SP)+ R1
(SP)+ RO

::POP STACK
S:POP STACK

INTO R1
INTO RO

TYPE

$ODTBL:

000012

108
109

(SP)+ . R2

SIPOP STACK INTO R2

$0BLK

MOV

000004

14-9

SEQ 0107

MOV
023364
000002

15:01:20 PAGE

*:NOW TYPE

S(SP),4(SP)

MOV
RT]

(SP)+. (SP)

$DBLK:

10000.
1000.
100.
10.
.BLKW

.SBTTL

TTY

THE

NUMBER

SIADJUST THE STACK
;:RETURN TO USER

INPUT

ROUTINE

.':""".'..'.""""""'.""".l..'l."'.."'.'."""'I.."'

023374
023376
023400
023402

.ENABL
LSB
S$STKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

000000
000000
000000

023404

0
0
O
2

:sNUMBER OF JTEMS IN QUEUE
. INPUT POINTER
::OUTPUT POINTER
;. TTY KEYBOARD QUEUE

+*TK INITIALIZE ROUTINE
:*THIS ROUTINE WILL INITIALIZE

;*SETUP THE

N NN
N

155516

000100

023376
023400

TTY

KEYBOARD

TURN ON THE

INPUT

KEYBOARD

QUEUE

INTERRLPT

PC,S$TKINT

$TKINT:

CLR

STKCNT

:;CLEAR COUNT OF

ITEMS

MOV

$TKQIN,$TKQOUT

;;QUEUE

INPUT & OUTPUT POINTERS.

a37kB

;. CLEAR DONE FLAG

000060
000062

RETURN

MOV
MOV
MOV

TST7

155506

MOV
RTS

NNNNNNNTY

O NWVININD
WV WN

NINNNNNNO

[eleleleleloele
o]

023374
023402
023376
023454
000200

THE

VECTOR AND

JwCALL:
JSR
ML
e

023404
023410
023416
023424
023432
023440
023444
023452

INTERRUPT

#STXQSRY,STKQIN ;;MOVE
#STXSRV,SFTKVEC
#200,8#TKVEC+2

#100,a87kS
PC

THE

IN QUEUE

STARTING ADDRESS OF

INTO THE

;;INITIALIZE THE
;;'BR' LEVEL &

THE

KEYBOARD VECTOR

:;ENABLE TTY KEYBOARD
J;RETURN TO CALLER

INTERRUPI

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTy KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;1T IN THE QUEUE.
;*1F THE CHARACTER IS A ''CONTROL-C'' (*C) STKINT IS CALLED AND

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (START?2)
023456
023460

117746

062716

155502
177600

$TxSRY: mOvB

BIC
CMP

000003

BNE

024604
023404
004612
¢00007

TYPE

;:PICKUP THE CHARACTER

:BRANCH IF

#4C177,(SP)
(sp), o8
LSCNTLC

JSR

PC.STKINT

JMP

START?

151

asTKB, - (SP)

CMP

(SP)+

(SP) .87

S STRIP THE JUNK
2315 IT A CONTROL C?
S:TYPE

SYINIT

A CONTROL=C

THE KEYBOARD

(*C)

SICLEAN UP STACK

::CONTROL C RESTART
S:1S

A CONTROL

NS
(L 1o W

BRI
Ao —
0¥ ST B ¥ e ¥ e SN oY e

(O T VP TP T T | V- TP
R PV ToY)
VAN AVIAULALY
N

(l RMVAQ RM0S5/3/2 EXT'D DR
LB Y INPUT ROUTINE

001004

MACRO v03.01

022737
001500

000176

00115¢4

022737
001004

000002

023374

106401

005726
000451
021627
001021
005077
005726
105777

100375
1177466

023670

TST

062716
022627
001366
012777
000002
005237
021627
002405
021627
003002
062716
112677
005237
023727
001003
012737
000002

BNE
(MP
BFQ

2%:

cMpP
BNE
TYPE
TS7
BR
(MpP
BNE

001226
3%:

000023
155400

N| ¥

155372
155366
177600
155344

023374
000140

32 $:

023376
023376

02340+

023402

023376

INC

CmMpP

MOvVB

INC

CMP
BNE

MOV
RT]

5%:

;.60 TO SWR CHANGE

#2,8TK(ONT

;218 THE QUEUE FULL?
:;BRANCH IF NO

33
LSBELL

::1S SOFT-SWR SELECTED?

sRING THE

(SP)+

TTy BELL

..CLEAN CHARACTER OFF OF STA(CY

38$TKB,-(SP)

BGT
BIC

MOvVB

(mMp

000040
177530

;:BRANCH IF NO

a8 TKS

MOV
RTI]

SEQ 0108

18718

8PL

14-10

#SWREG, SWR

CLR

187

BLT

000175

15:01:20 PAGE

5%
(SP),#23
3%
[4
asTKs

BIC
CMP
BNE

000021

000100

11-APR-80

JEXIT

(SP)+

#°C177,(SP)
(SP)+, 421

318

#100,a%7ks
$TKCNT
(SP),#140
'3
(SP),#175
3
#40,(SP)
(SP)¢+,3%TKQIN
$TXQIN
gIKQlN,l$TKQEND

..lS IT A CONTROL=-S?
s sBRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
;;CLEAN CHAR OFF STACK
J.WAIT FOR A (HAR
;;L00P UNTIL ITS THERE
J:GET THE (HARACTER
;:MAKE

7-BIT ASCII

2215 1T A CONTROL=-Q?
;;BRANCH ]F NO
;;REENABLE TTY KEYBOARD INTERRUPTS
:;RETURN

;sCOUNT THIS CHARACTER

;.18 17 UPPER (ASE?

YES
;218 1T A SPECIAL (HAR?
;JBRANCH IF YES
s JBRANCH IF

JsMAKE

UPPER

CASE

JsAND PUT IT IN QUEUE
:JUPDATE THE POINTER
;.60 OFF THE END?
;:BRANCH ]F NO
FSTKQSRT,$TKQIN ;sRESET THE POINTER
J;RETURN

N—-N

000176

WO NN

ONO— SN~V
ONOO =~~~

023672
023700
023702
023706
023710
023714
023720
02372¢

OO
= =2 =OO
OMNES
= OQOON
-t N NO WD

:;.."..""'..""""""."""l'.."'."."ttt".'.tt""t"t

155246
177600
000007

001154

155252

:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
FROM THE TRAP HANDLER, AND WILL
;*ROUTINE 1S ENTERED
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$C KSWR: (MP
#SWREG, SWR
;3:1S THE SOFT-SWR SELECTED
BNE
15%
JJEXIT IF NOT
1518
asIxs
;318 A CHAR WAITING?
15¢
BPL
1F NOT, EXIT
.o
MOvB
asTKB,-($
s YES
8lC
(MP
BNE

o sr0

NN~

OO0
121,91,
V]
[V 1V [V ]

;*ROUTINE

123727

001150

000001

:*CONTROL

001674
005726

o177 (s
(sP). ot

J:MAKE

FROM THE

7-BIT ASCI}

JoAND EX]T

RRARRR 2222200222
RZRRRRRRRRRRR]

1S PASSED TO THIS POINT

5018 1T A CONTROL-G?
;:1F NOT, PUT T IN THE TTY QUEUE

SOfTWARE

FROM EITHER THE

SWITCH REGISTER

TTY

TRAP

INTERRUPT

CALL,

SERVICE

AS A RESULT

:+CONTROL-G BEING TYPED, ANC THE SOF TWARE SWITCH REGISTER BEING SELECTED.
M
$AUTOB.
6%
(MPB
:2ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
;;BRANCH IF YES
(SP)+
187
;s CLEAR CONTROL=G OFF STACK

004737
005077
112737

104400
106401

013746
104402
106400

005046
005046

0246012
024016

024022
024026
024030
024034
024040
026046
024056
024062
024066
024070
024074
0246100

021627
001005
104401
062706
000737

024102
026106
024110
026114
026116
024126

021627
001022
005766
001403
016677
062706
104401
123727
001003

026130
026134
024142
026144
024152
026154
024160
024164
026166
024172
024174
024200
024204
024206
0264210
024212
026214

012777
000002
004737
021627

move

$GTSWR:

024634

155144
177600

JSR
(LR

001151

024616
024623
000176

117746

1046401
062706
123727
001003
012777
000137

726050

155210
000001

155150

021627
001015

19%:

7$:

000003

026604
000006
001151
000100
004612

155102

024611

000006

20%:

000015

10%:

000004

000002
000006

155030

001151

000001

000100

155006

€00002

;.ECHO THE CONTROL=-G (*G)
;s TYPE CURRENT CONTENTS
;sSAVE SWREG FOR TYPEOQUT

;:CHAR THERE?
;:1F NOT TRY AGAIN

MOvB

asTKB,

(MP
BNE

(SP),#3
9%
JOONTLC

- (SP)

NAC1T7P,(SP)

n6,SP

M
SINTAG,.

JMP

START?

#100,3%7KS

BIC
157
8EQ

ASL
ASL
ASL

INC

::PI1CK UP CHAR

;sMAKE 1T 7-BIT ASCII
;1S IT A CONTROL-C?
;;BRANCH JF NOT
;sYES, ECHO CONTROL=C
s CLEAN UP STACK

(*C)

;;REENABLE TTY KEYBOARD
::BRANCH IF NO

INTERRUPTS?

JALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL=-C RESTART

J:1S 1T A CONTROL-U?

CMP

;:BRANCH ]F

BNE
TYPE
ADD
BR

(Mp
BNE
TST
BEQ
MOv
ADD
TYPE
(MPB
BNE

DIGITS)

;sCLEAR COUNTER
;;THE NEW SWR

=(SP)
-(SP)

(MPB
BNE

BGT

17%:

LSONTLG

SMSWR
SWREG,=(SP)

;FLUSH THE TTY INPUT QUEUE
+:DISABLE TTY KEYBOARD INTERRUPTS
;. SET INTERRUPT MODE INDJCATOR

a$71ks$
7%

JSR
cMP
BLY
CMP

000060
000002

P1,SINTAG

SEQ 0109

1518
BPL

CLR
CLR

MOV
RTI]

02260"
0000¢.C

PC,3TKINT

83 7KsS

9
14-11

::00 TYPE=~OCTAL ASCIICALL
;;PROMPT FOR NEW SWR

MOv

9%:

F
15:01:20 PAGE

, SMNEW

TYPE
ADD

0002001

000025

001231

TYPE
TYPE
MOV
TYPOC
TYPE

BIC

000067

005266

11-APR-80

023404

105777
100375

042716

MICRO v03.01

NOT

;o YES, ECHO CONTROL-U (*U)
.. IGNORE PREVIOUS INPUT
J:LET'S TRY [T AGAIN
J01S

P),aSwR

SP
R Lf
TAG,#1

OWE
M

€l RMVAQ RMOS/3/2 EXT'D DR TS1
IR v INPUT ROUTINE

0,8%7kS

C,8TYPEC
(SP),#60
(SP), w67
18%

1T A <(R>?

;;BRANCH IF NO
JIYES, IS IT THE FIRST
J;BRANCH [F YES

(HAR?

:sSAVE NEW SWR
JsCLEAR UP STACK

2;ECHO <CR,» AND <LF>
J:RE-ENABLE

TTY XBD

INTERRUPTS?

;;BRANCH [F NOT
::RE=-ENABLE TTY KBD INTERRUPTS
;;RETURN

:sECHO CHAR
::CHAR < 0?
;.BRANCH [F YES

;:CHAR > 1?

::BRANCH 1F
J.STRIP=-0OFF

YES
ASCII

:31S THIS THE FIRST (MHAR
;;BRANCH [F YES
;iNO, SHIFT PRESENT
(HAR OVER TO MAKE
)
ROOM FOR NEW ONE.
N
JKEEP COUNT OF (HAR

CIR MVAO RMOS5/3/2 EXT'D DR TS1T
Ty INPUT ROUTINE
~ON
S

PRl

ol o

raronrn
L 1,91,
9]

[o]ole

026220
2
2
2

056616
000667

106401
000720

MACRO v03.01

11-APR-80

177776

001230

.DSABL

s TYPE

$0$
R

SEQ 0110

JsSET IN NEW (HAR
;oGET THE NEXT ONt

7%
$QUES

LSB

14=12

=2(5P), (SP)

8IS
BR
TYPE
B8R

18%:

15:01:20 PAGE

2<(R><LF>

JoSIMULATE CONTROL-U

AR XA AR

RS RS

:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:
RDCHR
.

011646
016666
005066
005046
012746
000002

000004
000004

000002

$SRDCHR:

024260
669%:

023374

18:

023374
177102
023400
023400

023404

023402

023400

MOV
MOV
(LR
(LR

(SP),=(SP)
&(SP),2(SP)
4(SP)
-(SP)
#6468 ,-(SP)

J;PUSH DOWN THE PC AND

1ST

$TKCNT

;:WAIT ON A CHARACTER

8% TKQOUT
, 4 (SP)

:;DECREMENT THE COUNTER
;:GET ONE CHARACTER
:sUPDATE THE POINTER

MOV
RT]

000004

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STA(K
NEW PC AND PS

$1xQ0UT
31(00UT.ISTKOEND ::DID IT 0O OFF

RTI

;:GET
;:PUT
;sPUT
;;POP

INC

MOV

OF THE
;;BRANCH 'F NO
#STKQSRT ,$TKQOUT ;. RESET THE POINTER
2 ;RETURN

“*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
J*CALL:
o
o

024346
024352
024354
024356
0246360
024366
024372
024376
024400
0244064
024406
026412

£ AME WM NS NO NO NO & N o
&~
ONAHNIO
= O WO =) = = = NO o&
o
=N NN
= Y NO NI NN O O WO

024324
024326
024330
024334
024340
024342
024346

-t et O OQO = = QOO
== —=0000
O=ONO—=O—=0OO0OO0ONwOON—=O
—
S = NOWVPNIE Nt N = PON) S = PNONOWVO

024560
024604

RDLIN
RETURN HERE

$RDLIN:
1%:

2%:

MOV
(LR
MoV

CMpP

000177

10%:

024560
026556
024556

024556
6% :

-(SP)
#STTYIN,RY

#STTYIN+20.,R3

MOVB

(SP)+,(R3)

CMPB

BNE
1ST

000134
024556
177777

RY,-(SP)

BLOS

RDCHR

#177,(RY)

(SP)

BNE

DEC

MOVB
TYPE
MOV

(MpP

8LO
MOVB
TYPE

#'\,9%
.99
#-1,(SP)

RI, FSTTYIN
4%
(R3),9%
,9%

1%
$STKCNT

(mMP
BNE

2%:

;. THE

BEQ
DEC

Move

;:GET A CHARACTER FROM THE QUEUE
;s CHARACTER IS ON THE STA(K
;:WITH PARITY BIT STRIPPED OFF

RETURN HERE

024234
024236
024244
024250
024252
024256
024260
024260
024264
024266
024272
024300
024304
024312
024314
024322

RRE R

END?

RR RN

;s INPUT A STRING FROM THE TTv
s ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;:TERMINATOR WiLL BE A BYTE OF ALL 0°'S

;s SAVE R3

;. CLEAR THE RUBOUT KEY
;sGET ADDRESS
J;BUFFER FULL?
J:BR IF YES
;:6G0 READ ONE CHARACTER FROM THE
;:6ET CHARACTER
2218 1T A RuBOUT
;:BR JF NO
;1S THIS THE FIRST RUBOUT?
;.BR

TTv

;. TYPE A BACK SLASH

;sSET THE RUBOUT KEY
J;BACKUP B8Y ONE
J:STACK EMPTY?
;:BR JF YES
JSETUP TO TYPEOQUT THE DELETED (HAR,
;.60 TYPE

CIR MVAQ RMOS5/3/2 EXT°'D DR
11v INPUT ROUTINE

VU2

106401
106401

001231
024560

106401

001230

111337
1066401
122723

024556
026556
000015

3%:

105063

177777

1064401

012766

8%:

O
— —b —a
H =2 OO
O N~

;:BR IF NO
;s TYPE A BACK

(SP)
#25,(RY)

;. CLEAR THE RUBOUT KEY
;. 1S CHARACTER A (CTRL U?

LJSONTLU
1Ry

;sTYPE A CONTROL 'V’
;160 START OVER

3%
(R3)

;;BRANCH JF NO
JsCLEAR THE CHARACTER

TYPE
TYPE

BR
TYPE
BR

MOVB
TYPE

001232

00 0004
3
024560

7%
l;;,QS

(LR
(MPB
BNE
TYPE
BR
(MPB
BNE
(LRB

000002
000004

015
015
015

123
116

;;RUBOUT

#22,(RY)

;1S

LOCRLF
STTYIN

1%
(gé).OS

;s CLEAR THE BUFFER AND LOOP
;. ECHO THE (HARACTER

;:TYPE A '

&(SP),2(SP)

.BYTE
.BYTE
.BLKB

0
0
20.

ASCI2
ASCI2

<15><12>/SuWR =
/
NEW = /

;:CHECK FOR RETURN

;:LOOP 1F NOT RETURN

=1(RY)

::;CLEAR RETURN

(THE

15)

LOLF
(SP)+

s TYPE A LINE FEED
;. CLEAN RUBQUT KEY

FROM THE

(SP),=(SP)

;:ADJUST

AND PUT

(SP)+,R3

;;RESTORE R3

#STTYIN,L(SP)

SCOPE HANDLER ROUTINE

/*C/<15><1 >
/2U/<15><1 >
/°G/<15><12>

2222042002222

202222202

CONTROLS

iHE

THE

STACX

FIRST ASCI]

STA(K
ADDRESS 0f

CHMARACTER ON

:;RETURN

::CONTROL ''C*'
::CONTROL ''U"’
;s CONTROL 6"’

LOOPING OF

TEST NUMBER(STSTNM)

SUBTESTS.

RARRRXRARRARRR

WILL

22X

;oCALL
.

INCREMENT

g TM~
-—

024646
024646
024650
024656

$5COPE:

040009

154276

LOOP ON TEST
INHIBIT JTERATIONS
LOOP ON ERROR

.. SCOPE=]0T

SCOPE

(KSWR
817
BNE

#BIT14,aSWR

$SOVER

]

INTO THE DISPLAY REG.(DISPLAY<7:0>)

;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;eSWl4=]
;*SWll=
;*SW09=

;:STORAGE FOR ASCII CHAR., TO TYPE
J:TERMINATOR
::RESERVE 20. BYTES FOR TTy INPUT

.SBTTL

s*AND LOAD THE

A "'CR' L "'LF"
THE INPUT STRING

2260 PICKUP ANOTHER CHACTER

L, SQUES

MOV
MOV

¢*THIS ROUTINE

SLASH

.ASCIZ
,ASCIZ
.ASCI2

SET?

CHARACTER A '"R'"

::TYPE
;:TYPE

SCNTLC:
SCNTLU:
SCNTLG:

S$MSWR:
SMNEW:
.EVEN

KEY

;:BR IF NO

#15,(R3)+

RT]

$TTYIN:

;.60 READ ANOTHER (MHAR.

(SP)

CMPB
BNE
(LRB
TYPE
187

MOV
MOV

9% :

OO
—
OwWO
— Ny &~
Yi
O ~NO

QNS

SEQ@ 0111

BEQ

TYPE

02461

9
14-'3

MOVB

1064401

H
15:01:20 PAGL

B8R

187

7%:

—_ O

—

—_—

0245560
024604
024611
024616
0246623
024634

11-APR-80

024556

000025

—

026470
024474
026476
024502
026504
026510
024514
024520
026522
0246526
024532
026534
024536
024540
0265646
024554
024556
024557

000134
024556

AW
D
U24462
0244664

MICRO v03.01

5¢:

026416
024420
026422
024424
024432
024436
024440
024444
024466
024452
026454

15T

s TEST

FOR CHANGE

S YES IF

SWi4-1

;.LOOP ON PRESENT

IN SOF T-SWR

TEST?

THE

CIRMVAQ RMO5/3/2 EXT'D DR TST

(¥ 1,
¥)

—

P
ey

SCOPE HANDLER ROUTINE

MICRO v03.01

000416

024662
026666
026674
024700
026704
026706
026710
024714
026716
026716
0246722
024724
024732
026734
026742
026744
024752
026756
024760
0246764
024766
024774
026776
025002
025010
025012
025020
025026
025032
025040
025044
025050
025054
025062
025070
025074
025076

013746
012737
005737
012637
000450

- #RNNNSTART

$XTSTR: 3R
000004
024706
177060

000004

001131

001117

001000

154212

001124

001122

NNNNNNNSNN

NNOO
O NN~
N
e
N

001117
001220

=00

14- 14

154160

001120
001220

001120
001120

001220
001240

001131

154066

FOR

THE

XOR

TESTERNANAN

::1F RUNNING ON THE ''XOR'' TESTER (MANGEC
;s THIS

INSTRUCTION TO A ''NOP'' (NOP=240)

MERRVEC,-(SP)

::SAVE

an #7060

S:TIME OUT ON XOR?

$SVLAD

2367 TO THE NEXT TEST

MOV

(SP)+.aMERRVEC

:;RESTORE

817
8EQ

¥B1T09,aSwR
43
:EPE:R.iLPADR

#58 QWERRVEC

(SP)+,a#ERRVEC

CMP

\SP)+,(SP)+

THE

CONTENTS OF

:-SET FOR TIMEOUT
::RESTORE

THE

ERROR

THE

ERROR

VECTOR

S:CLEAR THE STACK AFTER A TIME OuT
THE ERROR VECTOR

BR
7%
$:L0OOP ON THE PRESENT TEST
6$:; MANNNEND OF CODE FOR THE XOR TESTERNN#NA
2%:
TSTB
$ERFLG
;;HAS ‘AN ERROR OCCURRED?
BEQ
3
:BR IF NO
CMPB
SERMAX,SERFLG
- :MAX. ERRORS FOR THIS TEST OCCURRED?
BH]
38
S:BR IF NO
78%:

ggv

004000

CODE

MOV

001117

013716

MOV

000004

00004

O=2O00

15:01:20 PAGE

SEQ 0112

024660

PP Y o P S P Y o DUV gy
WA
AN =0 s AN NN

11-APR-80

)

S$ERFLG

:;1ERO THE ERROR FLAG

B8R

S:ESCAPE TO THE NEXT TEST

STIMES,SICNT

1:CHECK THE NUMBER OF

STIMES

BIT
BNE
INC

#BIT11,aSWR
1%
$1CNT

BGE
MOV

$OVER
#1,$1CNT

INCB

STSTNM

MOV
MOV
CLR

(SP),SLPADR
(SP) .SLPERR
$ESCAPE

CMP

1$:
$SVLAD:

MOV

SMXCNT,STIMES

MOVB

SOVER:

MOV
MOV

SMXCNT:
.SBTTL

$:SET LOOP ADDRESS TO LAST SCOPE

CLRB

CLR

3$:

::LOOP ON ERROR?
“:BR IF NO

SAVE

ITERATIONS TO MAKE

S INHIBIT ITERATIONS?
S:BR IF YES
*:INCREMENT ITERATION COUNT

]TERATIONS MADE

::BR IF MORE ITERATION REQUIRED
P:REINITIALIZE THE ITERATION COUNTER

::SET NUMBER OF ITERATIONS T0 DO
::COUNT TEST NUMBERS

STSTNM,STESTN

:-SET TEST NUMBER IN APT MAILBOX

#1,SERMAX

::ONLY ALLOW ONE(1) ERROR ON NEXT TEST

STSTNM,@DISPLAY
SLPADR. (SP)

RT]

::CLEAR THE NUMBER OF

::SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FROM ERROR ADDRESS

::DISPLAY TEST NUMBER
::FUDGE RETURN ADDRESS

SCFIXES

S:MAX.

NUMBER OF

ITERAT]ONS

AND RESTORE RO-RS ROUTINES

‘.'.'...'..'i"""."""""'.".'..'l'l"."'.'l"t"lt..'!"'

:*SAVE RO-RS

;'CALL:

SAVREG

:*UPON RETURN FROM $SAVREG THE STA(K wILL LOOK { IKE:
* .

eT0P--=(+16)
te 42ee=(418)
ie 44---RS

98}

s9¢14===R0

SR
R
B
B
T
[

NN NN

VOOVOOO

DN
e

s
v«
s

000022
000022
000022
000022

MOv
MOv
MOv
MOv
MOv
MOv
MOv
MOv
MOV
MOV
RTI

=t e

$SAVREG:

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

15:01:20 PAGE

AIPNDPORL
NS NN — O
Pl B
W )
- - - - -

025100
025100
025102
025104
025106
025110
025112
025114
025120
025126
025130
025134

11-APR-80

(7 X7, X7 X7 BN N
I
D
A
I
OO0 UV~

SAVE AND RESTORE RO-RS ROUTINES

MICRO v03.01

RN
D DDV
D

CIRMVAO RM05/3/2 EXT'D DR TST

14=15

SEQ 0113

::PUSH RO ON STACK
;:PUSH R1 ON STACK
::PUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH R4 ON STACK
::PUSH RS ON STACK
;s SAVE PS OF MAIN FLOW

;. SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
::SAVE PC OF CALL

. *RESTORE RO-RS

el
—

(V.0
o

—_—

000022
000022
000022
000022

.SBTTL

MOV
MOV
MOv
MOv
MOv
MOv
MOV
MOV
MOv
MOV
RTI

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

RESREG
taYatala

$SRESREG:

ettt

025136
025136
025142
025146
025152
025156
025160
025162
025164
025166
025170
025172

ANV
WDW

;=CALL:

;sRESTORE
;;RESTORE
;;RESTORE
;:RESTORE

PC
PS
PC
PS

OF
OF
OF
OF

INTO
INTO
INTO
INTO
INTO
;;POP STACK INTO
J.POP
:sPOP
;POP
:.POP
;.POP

STACK
STACK
STACK
STAC(CK
STA(CK

CALL
CALL
MAIN FLOW
MAIN FLOW

RS
R4
R3
R?
R1
RO

TRAP DECODER

".'t"'.'.""QQ'""""""'l"tll.t'"t".'t"tl'!'.t'tlti"'l'

"¢THIS ROUTINE WILL PICKUP THE LOWER BYTE

THE

''TRAP'' INSTRUCTION

c*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTINA ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*G0 TO THAT ROUTINE.
025174
025176
025202
025206

025210

025214

010046
016600
005740

111000
006300

016000
000200

$STRAP:

000002

025230

MOV
MOV
TST
MOVB
ASL
MOV
RTS

RO,=(SP)
2(SP),RO
=(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

;s SAVE RO

J;GET TRAP ADDRESS
;;BACKUP BY 2
J:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;o INDEX TO TABLE
;.60 TO ROUT INE

;s THIS 1S USE TO HANDLE THE ''GETPRI'' MACRO
025216
025220
025226

011646
016666
000002

000004

000002

$TRAPZ:

MOV

MOV
RTI

.SBTTL

(SP) ,=(5P)

4(SP),2(SP)

. :MOVE THE PC DOWN

:;MOVE THE PSW DOWN
s ;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARVING ADDRESSES OF

:*BY THE ''TRAP'' INSTRUCTION.

THE ROUTINES CALLED

CIRMVAO RM05/3/2 EXT'D DR TST

TRAP

TABLEC

MACRO v03.01

11-APR-80

K
15:01:20 PAGE

9
14-16

SEQ 0114

ROUTINE

~NO

—

[pS 1 S1, N1 N1, V], 9]

$TRPAD: .

.SBTTL

$TRAP?2

TRAP+1(104401)
10
TRAP+2( ) 04402)
TRAP+3(104403)
0
TRAP+4(104404)
0
TRAP+5(104405)

TTY TYPEOUT ROUTINE

$TYPDS

s CALL=TYPE
2 CALL=TYPOC
s CALL=TYPOS
s CALL=TYPON
s+ CALL=TYPDS

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

$CKSWR
$RDCHR
$ROL IN
$SAVREG
SRESREG

;s CALL=CKSWR
2 CALL=RDCHR
s CALL=RDLIN
s s CALL=SAVREG
s s CALL=RESREG

TRAP+7(104407)
TRAP+10(104410 )

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TRAP+11(104411 ;

TRAP+12(104412
SAVE RO=-R5 ROUTINE
TRAP+13(104413 ) RESTORE RO-R5 ROUTINE

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

.'.".."....."'""""""""t"".".'Q.'.'t.il.'Q.t.'t"""t

;*THIS ROUTINE

WILL

CONVERT

16=-BIT

s *UNSIGNED DECIMAL ASCIZ NUMBER.
s*CALL
Iy

X
o

025310

016637
012746
004737
062716
012666
000207
000000

000002

025310
025314

025310

$582D:

MOv
MOV

JSR

000005
000002

ADD

000000

TO AN

NUMBER ,-(SP)
PC.a#$5820

:;EHT BINARY NUMBER ON THE STAC(K

2(sP),1%

;:SAVE BINARY NUMBER
;;SET POINTER
;sCALL DOUBLE LENGTH CONVERT
2sONLY ALLOW FIVE CHARACTERS
;:PICKUP POINTER

#1$,-(SP)
PC,a#$0B820
#5,(SP)
(SP)+,2(SP)
PC

1%:

MOv
RTS
.WORD

.SBTTL

DOUBLE LENGTH BINARY

0.0

CALL

;;ADDRESS OF

THE 1ST ASCIZ (HAR.IS ON THE STACK

;;RETURN

TQ DECIMAL ASCI]

CONVERT

ROUTINE

."’I'.."..""""""""""'t"..I'tlt'."t'ttl'tllt"t'.'t!lt

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
:'ggg{??LE(ASCll) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
:'

MOV

s*CALL

JSR

(elalalelelel2
- e i i e wd
RN ONION S

(o 0 0 VT N NTo 9 )

VA WNUAVA AL
VIV TV VTV e V)
NN
A =t =

RETURN

j=leloelelelele)
oo
NN

O 0o

ok
—

—

025260

MOv
JSR
RETURN

UNSIGNED BINARY NUMBER

000002
025474
000002
C00012

025412

SAVREG
MOV
MOv
MoV
MOV
MOV
MOv

#PNTR,

- (SP)

PC.ar$pB2D

;;POINTER TO LOW WORD OF BINARY NUMBER
s.THE FIRST ADDRESS OF ASCIZ
;1S ON THE STACK

. SAVE REGISTERS
::PICKUP THE DATA POINTER

;;GET ADDRESS OF "'SDECVL'' STRING

;PUT ADDRESS OF ASCIZ STRING ON STACK
::P1CKUP THE BINARY NUMBER

;2SET UP TO DO 10 CONVERSIONS

CIRMVAQD RM05/3/2 E X T

MACRO v03.01 11-APR-80
L ASCI1 CONVERT ROUTINE

DOUBLE LENGTH BIN AR Y
[elelelolelalolelalalele]

MNINIAININI
RO NN NN NN

012 14
012 4
05
161 4
005 6
161 5
002 I
5
0052
0007

18:

28:

S
14
3
3
0

SEQ 0115
#STNPWR, R4
#STNPWR+2,RS
R3

:;ADDRESS OF

TEN POWER

::CLEAR PARTIAL

(R&) ,R1
R2
(RS),R2
{3
R3

S SUBTRACT TEN POWER

ADD

(RG)+,R

::RESTORE SUBTRACTED VALUE

;:BR IF
S3ADD 1

ADC
ADD
CMP

R2
(R&)+,R2
(RS)+.(RS)+

MOVB
DEC

R3,(RO)+
(PC)+

#'0,R$

.WORD

RESREG
RTS
145000

BNE
CLRB

1%
(RO)+

TEN POWER TO LARCE
TO PARTIAL

;. LOO0P

;:MOVE

TO NEXT

TEN POWER

:CHANGE PARTIAL TO ASCII
2:SAVE IT
;;DONE?

::BR IF NO
. TERMINATOR
::RESTORE
: :RETURN
::1.0€09

35632
160400
2765
113200
230

REGISTERS

;:1.0E08

::1.0€07

?31100

::1.0E06

}03240

::1.0E05

23420

::1.0E04

6750

::1.0¢03

644

::1.0E0¢

2:1.0EQ

::1.0E00

$DECVL:

.BLKB

.SBTTL

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

12.

;:RESERVE

STORAGE

FOR ASCIZ

STRING

"t.ttl'.'t.."t"t""t""'ttt'ttt.lti'lt'tttl'!lt"'l'l.lt'l

'THIS ROUTINE

1S USED

TO TYPE

O=—0O0O0
OO~
s
==\
O
SN0 O
OO
WO OO

s et
==

QOO

jelelele]

s*LEADING NUMBERS.
:'CALL
#NUMADR,
= (SP)
MOV
M
PC,a#SSUPRS
JSR
ML
AV LV LV 1V ]

et
-—

NN
-0

000000

14-17

SUB
SB(
SUB
BLT
INC

BIS

000060

STNPWR:

025462
025464
025466
025470
025472
025474

MOV
MOV
CLR

15:01:20 P:GE

000004

$SUPRS: MOV
1%:

MOV

1S18
BEQ

RO, P)
&L(SP 0
(RO

AN ASCIZ

NUMBER

SUPPRESSING

THE

¢ FIRST ADDRESS OF ASCIZ STRING

;sSAVE RO

:;PICKUP THE POINTER
;; TERMINATEOQOR?
::BR IF YES

OO0 —-000—
Q= =00 —-00N

& B 8 BNN
oS NOONOON

VIV IV IV IV IV IV IV IV

(elelelololololale]

ORI NINONINININOND

MACRO v03.01 11-APR-80
ING SUPPRESS LEADING ZEROS

R TST

000060

025540

2%:

#'0,(RO)+
1%
RO
RO,3S

.MORD

MOV

SEQ 0116

;s 1S THIS AN ASCII ''0' ?
;sBR IF YES
: :BACKUP BY """’
;;SAVE FOR TYPING
;160 TYPE
:sASCIZ POINTER GOES HERE
s :RESTORE RO
;s sRESTORE THE STACK

(SP)+,RO

(SP)+, (SP)

RTS

.SBTTL

no9
15:01:20 PAGE 14- 18

(MPB
BEQ
DEC
MOV
TYPE

3%:

[aY1a¥]
W

VALV IV IV IV IV IV IV, IV}

TYPE NUMERICAL AS

CIZRMVAO RM05/3/2

s sRETURN

RANDOM NUMBER GENERATOR ROUTINE

ASASAA

ARl

A DOUBLE

s 2222222222222
XR 2]

'YHIS ROUTINE

PRECISION PSEUDO RANDOM NUMBER GENERATOR

;*CALL:
M

JSR

PC,SRAND

.. CALL THE ROUTINE
: ;RETURN HERE THE RANDOM
s :NUMBER WILL BE IN
:: SHINUM, SLONUM

MoV
MoV
MOV
MOV
MOV
MOV

RO,=(STM
R1,-¢
R2,=(5r)
$LONUM,RO
$SHINUM,R1
-7.R2

;:PUSH RO ON STACK
::PUSH R1 ON STACK
:sPUSH R2 ON STACK
;sSET RO WITH LOW
J:SET R1 WITH HIGH
;.SET SHIFT COUNT

:*WITH A RANGE OF 0 TO 2(+33)~1

RETURN

orNONNO SO O

$SRAND

025650
025646
1777

N NN

OOO0O0OOOOO0O0O

A1 V1 N1 T T T T VT N T )
WMAAWVMA
AN
[V IV TV IV IV TV TV TV TV TV 3

O NN

025600

1$%:

025650

[V
P o

—

ronrY

025640
025642
025644
025646
02565¢C

176543
123456

INC
BNE

R2
1%

ADC
ADD
ADD
ADC

R
$HINUM,
R
#1057,R0
R1

ADD

025646
001057

010137
012602
012601
012600
000207

ASL

ROL

047401
025650
025646

.SBTTL

SLONUM,RO

ADD

#47401,R1

MOV

(SP)+,R0O

MOV
MOV
MOV
MOV

SHINUM:
$SLONUM:

RTS

.WORD
.WORD

RO, SLONUM
RY,SHINUM
(SP)+ ,R2
(SP)+,R1
PC

176543
123456

JsSHIFT RO LEFT AND

:2ROTATE CARRY INTO R1 AND
::CHECK FOR DONE
;s CONTINUE SHIFT LOOP
;:;ADD NUMBER TO MAKE X 129
; ;PROPOGATE CARRY
;;ADD NUMBER TO MAKE X 129
;sADD LOW CONSTANT
; ;PROPOGATE CARRY
;sADD HIGH CONSTANT
;s SAVE RO
;:SAVE R1
;:POP STACK INTO R?
::POP STACK

INTO R,

;:POP STACK INTO RO
s sRETURN

INTEGER DIVIDE ROUTINE

"QI.".t'l'."""""""""lIllt'ttt'ttttl't.lt!"'t!tt'l't

'THXS ROUTINE WILL DIVIDE A 32=BIT TWO'S COMPLEMENT INTEGER
A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
«*DIVIDEND BY
A
:*A 16=BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-B1T REMAINDER.

+*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER 1S OF THE
;*SAME SIGN AS THE DIVIDEND.

JeCALL:

MOV

LOW DIVIDEND,=-(SP)

;s THE HIGH DIVIDEND MUST BE < 1/2

11-APR-80

N9
15:01:20 PAGE 14-19

Me—=Om

R OCCURRED

#17,(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
-(SP)
#7.,-(SP)

000021
000024
000022

000003

3(SP)

000020

000003
177777

POO—-O~»

24 (SP) ,R1
2 2(SP),RO

1%:

(SP),R2

#3,14(SP)
#-1,RO0

ALL
ALL

ALL ONES
ALL ONES

ZEROS
ZEROS

;:sPUSH OLD PSW AND PC ON STACK
J:STRIP AWAY CONDITION CODES
;sPUSH RO ON STACK
;:PUSH R1 ON STACK
;s sPUSH R2 ON STA(K
;sPUSH R3 ON STA(K
;:SAVE A PLACE FOR SIGNS

;:SETUP THE ITERATION COUNTER
J:PICKUP THE DIVIDEND
;. CHECK THE

SIGN

; KEEP TRACK OF THE SIGN

:AND NEGATE

THE ORIGINAL

J:PICKUP THE DIVISOR
;;CHECK THE SIGN

::DIVISOR OF 0 IS A NO-NO
SET

IQ [ X}

'lcl

..EE}TREHAINDER TO ALL ONES
;sKEEP TRACK OF DIVISORS SIGN

3%:

..?EE:TE EHE ORIGINAL NUMBER
e

¢ START FORMING QUOTIENT

5%:

:sPOSITION MSB'S

6%:

. sCOMPARE DIVIDEND & Dl VlSOR
l2
::BR IF DIVIDEND > DIVISOR
LOOP
H1S l
::REMAINDER AFTER THIS
;;QUOTIENT BIT ENTE RS S HERE
2 :DONE?
;:BR IF NO
2 ;OVERFLOW?

.. COPY

N
OO

026022

000002

DIVIDE BY ZERO

2$:
4%:

5
052766
005000
010v01
005726
005716

OVERFLOW

+ s NUMBER

000014

000002

R
R
R

OO NN
8 SNV NIN) b b s
NOO T NOLSAONOONOO SO

NN NNNNNNNNNNNNNNN
NN

REMAINDER
QUOTIENT

$D1v:

000017

;;QUOTIENT & REMAINDER ARE ON THE STACK

DE OVERFLOW OCCURRED
MPTED TO DIVIDE BY 2ERO

BN BN BN

104400

025652
025652
025654
025660

::AS LARGE AS THE DIVISOR

ND,-(SP)

MOv

SEQ 0117

NN BE NS N

INTEGER CivIDE ROUTINE

MICRO v03.01

CIRMVAO RMO5/372 EXT'D DR TST

000014
7%:

8%:

#2,14(SP)
RO
RO,R1
(SP)+
(SP)

;:BR IF NO

;oSET *'W'' IN RETURN STATUS WORD

;sSET REMAINDER T0O ALL Z2ERQS
;s COPY REMAINDER INTO QUOTIENT
J;CLEAR COUNTER FROM STACK
s sREMAINDER SIGN CORRECTION NEEDED?

CIRMVAOQ RMO5/3/2 EXT'D DR TST
INTEGER DiVvIDE ROUTINE

026026
026026
026030
026034
026036
026040
026042
026044
026050
026054

026056
026060
J26062
026064
126 026070

002004
005400
105066
005316
005726
001401
005401
010166
01006¢
012603

012602
012601
012600
012666
000002

MACRO v03.01

000001
9%
000020
000016

10$:

000002

132

133 026072

013704

};9 026112

000207

134 026076
135 026104

012764
013764

037066

000040
001350

000010
000010

138
139
140
161
142
}22

(SP)+,R?
(SP)+,R1
(SP)+ R0
(SP)+,2(SP)

:sPOP STACK INTO RZ
;:POP STACK INTO R}
;:POP STACK INTO RO
:3SETUP TO RETURN CONDITION CODES
: ;RETURN

JSR

PC,CNTCLR

;CALL TO ROUTINE

CNTCLR: MOV

RMADR,Ré&

;GET RMCS1 BASE ALDRESS

;RETURN

MOV
MOV

#CLR,RMCS2(R4)
;]1SSUE MASSBUS CLEAR AND
CHKDRV,RMCS2(R&)
;SELECT THE DRIVE

RTS

026114
026120
026126
026132
026136
026142
026144
026146

005037
012737
005037
005777
005237
000401
022626
012737

CO00004

LP.AVL:

1$:
2%:

CLR
MOV
CLR
187
INC
BR
CMP
MOV

LPTAVL
;START WITH NO PRINTER AVAIABLE
M1, ERRVEC
JSETUP THE TIMEOUT VECTOR
ERRVEC+2
aLPS
;1S THERE A LINE PRINTER?
LPTAVL
JYES==-SET AVAILABLE SWITCH
2%
(SP)+,(SP)+
:NO=-=POP STACK
#ERRVEC+2 ,ERRVEC
JRESTORE TIMEQUT VECTOR

RTS

~NOWV

000006

000004

M= OO

000207

001324
026144
000006
153364
001324

;THIS ROUTINE

;1= KWI-P

NO WS

;s8R IF NO
;sNEGATE REMAINDER
::CLEAR SIGN
;.BUT DON'T FORGET QUOTIENT
J;QUOTIENT SIGN CORRECTION NEEDED?
J:BR IF NO
J:NEGATE QUOTIENT
ssRETURN QUOTIENT AND
;JREMAINDER TO USER
:;POP STACK INTO R3

JSET "'LPTAVL'' TO THE PROPER STATE.
; LPTAVL = 0 IF NO LINE PRINTER AVAILABLE
; LPTAVL = 1 JF LINE PRINTER 1S AVAILABLE
s CALL
:
JSR
PC,LP.AVL
:
RE TURN

}g} 026154

16
16
16
16
16

9%
RO
1(SP)
(SP)
(SP)+
10%
R1
R1,20(SP)
RO,16(SP)
(SP)+,R3

SEQ 0118

:THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTER,
JAND DRIVERS, THEN SELECTS TMHE DRIVE.
sCALL:

}g?

15
15
15
15
15
16
16
16

8GE
NEG
CLRB
DEC
187
BEQ
NEG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

127
128
129

1645
146
147
148
149
150
151
152

B 10
11-APR-80 15:01:20 PAGE 14-20

cAND JF

THERE

;RETURN

WILL DETERMINE

1Ff

THERE

1T WILL SETUP THE

IS A CLOCK

JU'CLKSTA' WILL INDICATE THE CLOCK TYPE
. 0= NO CLOCK

J=1= K1Y=
JTHIS ROUTINE WILL ALSO SETUP "'TICKMS'' (T]IMe
JPCR CLOCK TICK iN MILLISECONDS) AND “‘TICKUS"
;(TIME

PER

;PER SW00.

CLOCK

. Sw00=0 -- 60KH2

;SW00=1 == SONWZ

TICX

ON THE

VECTOR AND START

IN MICROSECONDS)

THE

SYSTEM

CLOCK

CIRMVAO RMN5/3/2 EXT'D DR TST

JSR

~
~n

[=l=] [el=lelolololalalalal
- PO [« P TolePE
PY
PPy
N —NO
~NO PNONNNES
NO
B NNNON—=O
-~y —
Nt
= N NN
= S 2O
N
NSO NNNN=O
= O —O

i
~NO N
o

NN = OO

MOv
MOV

CLR

MOv
MOv

026222
001340

CLR

18T

001340

MOv
1%:

2%:

198 026314
199 026322

001314

000020
047040

001342
001344

000016
060432

001342
001344

b O

000040
— o e

201 026324
202 026324
203 026332
204 026334
205 026342
206 026350
207 026356

000100

[AVIAS ST NI, N1 V1, N1, N1 N1 N1 ST NI N1,
V1,V
POPOPVRNUN)
b et e e o e =D e d
BN = O O0® NN WN-2O

026366
026366
026374
026376
026404
026412
026420
026422
026426
026432

026422
000300
000100
001342
043324

MOv
MOv
MOV

MOv
MOv

6%
5%:
ST.PCLK:

MOv

MOV
RTS

14-21

SEQ 0119

PC,ST.CLK

R1,=(SP)
FERRVEC+2,R1
(R1),=(SP)
(R1)
=(R1),=(SP)
”¢,(RY)
CLKSTA
aPK(S
#1,CLKSTA
PC,ST.PCLK

(SP)+,(SP)+

: SAVE
sSAVE

R1
AND SETUP TIMEOUT

VECTOR

JLEVEL O

;60 TO 18 ON TIMeouT
JSET CLOCK STATUS TO NO CLOCK
;1S THERE A xW11-p?
JYES=-=SET STATUS TO Kkw!ll-p
JSTART

THE

;60 10 EXIT
;CLEAN UP

KWi11-P

THE

STA(K

#2%,(RY)
oLKS
#=1,CLKSTA

;IF TIMEQUT GO TO 2%
;1S THERE A KwWli-L?
:YES== SET STATUS T0 Kw!ll-L

JEXIT

PC,ST.LCLK

(SP)+,(SP)+

;START

THE

C"LEAN UP

THE

;RESTORE R1
:50HZ OR 60M1?

#20,71CkMS

JSETUP TIME PER

#16,T1CKNS
#16666.,T1CKUS

;SETUP TIME PER
;TICK FOR 60M!

g%oéoo. ,T1CKUS

THE

STA(K

(SP)+,(R1)+
(SP)+,(R1)+
(SP)+,R1
#5w06,C.SWR

(3 3

;kESTORE

KWll-g

TIMEOUT

VECTOR

;BRANCH IFf 60

STICK FOR SOMWZ
:RETURN

#SW0S5,C.SuWR

JALLOW SOFTWARE TIMEOQUTS?

#SRVCLK ,aPKV

;SETUP

THE

xwWl1-P

#1,3PKB

;COUNT

ONE

TICK

RTS

;RETURN

BIT
BNE

#5W05,C.SWR
1$
#SRVCLK,SLKV
#300,8LKV+2
#100,8LKS
PC

:ALLOW SOF TWARE TIMEQUTS?
:NO==BRANCH
;SETUP THE XKW1l-L VECTOR

TICKMS,=-(SP)
PC,RMTMR

;TIME PER TICK IN MILLISECONDS
;COUNT THE ELASPED TIME
+RETURN AFTER INTERRUPT

BIT

Mov
MOV

ST.LCLK:

¢ 10

15:01:20 PAGE

BNE
MOv
Mov

1$:

000040

JSR
BR
(Mp

Bl7
BEQ

026422
000300
000001
000115

209 026364

JSR
BR
(MP

MOV
1ST
Mov

ST.CLK: MOv

000006

001340

NOWVE NN 2OV

il i
el
il
il el el
il
) el
i

11-APR-80

RETURN

OO0V OOV OOV

i e
il
D el

i el

el e

D el

i el

e o

ODOO 000D ~N N NNNNNYNNNOO

— OO0

INTEGER DivIDE ROUTINE

MACRO v03.01

1%:

MOV
MOV
MOv
RTS

SRV(LK:

MOv

JSR

RTI]

sTHIS ROUTINE

#300,8PKV+2

#115,9PK(S

SETS UP DEFAULT

:NO--BRAN(H

VECTOR

JU'INTOEN.'',COUNT DOWN'', 'MTMODE
;"'LINE FREQ'', AND ''RUN''

;START

:RETURN

(REPEAT)'',

THE kWll-L

PARAMETER VALUES WHEN

;STARTED OR WHEN THE VALUE OF BITOO IN 'C.SWR'

THE

PROGRAM

IS CHANGED.

CZRMVAD RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

229
226
227
228
229 026434
0266434
026436
026440
026442

010046
010146
010246
010346

231
232
233
236

026452
026460
02664646
026470

012737
012700
012701
010102

236 026474
237 026476
238 026500
239 026504
240 026510
261 026512
262 026516
263 026520
264 026526
265 026530
266 026536

020002
103775
012700
012701
012021
020027
103774
032737
001012
012737
012737

268 026552
269 026554
250 026562

000411
012737
012737

230 026444

235 026472

267 026544

251 026570

252 026576
253 026602
254 026604
255 026606
256 026612
257 026614
258 026620
259 026622
60 026626
261 026630
262 026632

263 026636
264 026640
265 026642
266 026646
267 026650
268 026652
269 026656
270 026660
026660
026662
026664
026666
S;; 026670

273

MACRO v03.01

11-APR-80

s CALL
:
:

012737

LODFLT:

176777

000003
002514
003116

001330

012021

012737

012737
012701
005711
001425
032731
001773
016102
011246
012703
006216
103002
062702

005303
001372
005726
021237
101754
013712
000751
012603

012602
012601
012600
000¢07

1$:

14-22

SEa 0120

JSR
RETURN

PC,LODFLY

MOV
MOV
MOV
MOV

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

:sPUSH
;sPUSH
:sPUSH
:;PUSH

MOv
Mov
MOV
MOV

#3, TSTNMS+2
#OFLT,RO
#PRMO,R1
R1,R2

SSELECT TESTS 20 & 21
sOEFAULT PARAMETERS POINTER
s TABLE POINTER
:STOP ADDRESS

RO,R2
1%
#PAT8,RO
#PATO,R1
(RO)+,(R1)+
RO,#PATS
4]
#BIT00,C.SWR
3%
#31.,PRMLMT+24
#31. PRMLMT+26

;RUN TIME TABLES =+ DONE?
;NO==BRANCH
sPATO DEFAULTS TO PATTERN 8

MOv

001332

0 10

15:01:20 PAGE

MOV

#1P6777,1STNMS

(RO)+, (R1)+

RO
R1
R2
R3

ON
ON
ON
ON

STACK
STACK
STACK
STACK

:SELECT TESTS 0-10, 12-17

;MOVE DEFAULT PARAMETERS INTO

000001

001314

000037
000037

002456
002460

CMP
BLO
Mov
MOV
MoV
(MP
BLO
BIT
BNE
Mov
Mov

002456
002460

BR
MOV
Mov

43
N29.,PRMLMT¢24
#29. PRALMT+26

s CONTINUE
SET 'FS' LIMIT TO 29.
SET 'LS' LIMIT TO 29.

MOV
TST
BEQ
8l7
BEQ
MoV
MOv
MOV
ASR
BCC
ADD

#PRMPT R1
(R1)
8%
#BITI1,8(R1)+
5%
-2(R1) ,R2
(R2),=(SP)
#12.,R3
(SP)
7%
#2,R2

;ADDRESS OF PARAMETER POINTER TABLE
;END OF PARAMETER POINTER TABLE ?
;BR IF YES
;1S °LS® SELECTED AS A VARIABLE IN THIS TEST ?
:BR_IF NO
;GET FIRST POSITION IN PARAMETER TABLE
;AND SAVE VARIABLES BITS THAT ARE USED.
;POSITION OF ‘LS’ IN TEST PARAMATER TABLE
;1S THIS PARAMETER A VARIABLE ?
:BR IF NO
:YES, POINT TO NEXT PARAMETER IN TABLE

004160
003560

23:

004220

160000

000035
000035

161000

002362

001450
001450

MOV

3$:
48:
5%:

004000
177776
000014
000002

6$:

7%:

002456

8%:

MOV

DEC

#-<256.432.>, TRCKWC

:WORD COUNT FOR A 16 BIT TRA(K

#-<256.+30.>, TRCKWC

;WORD COUNT FOR AN 18 BIT TRACK

BNE
ST
cmp
BLOS
MOv
BR

6%
(SP)+
(R2) ,PRMLMT+24
$
PRMLMT+24,(R2)
5%

MOV

(SP)+ R}

MOV
MOV
MOv
RTS
;THIS POUTINE

;16 BIT MODE ?
;BR IF 18 BIT MODE
;SET 'FS' LIMIT T0 31.
SET 'LS' LIMIT TO 31,

(SP)+,R?2
(SP)¢+,RY
(SP)+,RO
PC
FILLS THE

;AT 'LS' PARAMETER YET ?
:BR 1f NO
sADJUST THE STACK
;IS LS’ TOO LARGE FOR THE MODE SELECTED ?
:BR ]F NO
RESET VALUE FOR MODE USED
s CONTINUE
;sPOP STACK
;:POP STACK
;:POP STACK
::POP STACK
;RETURN

PARAMETER TABLE

THE

INTO
INTO
INTO
INTO

R?
RI1
RO

CURRENT

TEST.

CIRMVAD RMOS5/3/2 EXT'D DR TST
INTEGER CivIDE ROUTINE

MICRO V03.01

1,-APR=-B0

s CALL

MOv

JSR

RETURN

026672
026072
026674
026676
026700
026702
026704
026710
026712

0
0
0
0
0O
1
0
0
0
0
0
0
0
1

LODPRM:

MOv
MOv
MOv
MOV

CLR

001116

MOvB
ASL
MOV
MOV

002362
002322

CLR

001350
002322

1%:

MOV
MOV
ASR

8CC

MOV

2%:
I ¥

002350
001363
122764
001422
013737
062703
006237

000007

036750

002444
000003
002322

001372

005721
006237

002322

103001

005721
006237
103337

005721
000735
013737
162702

N —=OOVD
O

(v LV TVITWIIV
1V 1V )
NNV
= —
s

000727

027064

000007

012604
012603
012602
012601
000207

MOV
ADD
ASR

8C(
4%:

5%:

00232¢

002452
000006

BR
CLR
INC
CMP
8tQ
CMpP
BNE
CMPB
BEQ

001372

157
ASR
8C(C
187
ASR
8C(
1ST
8R
MOV

7%:

SuB
BR

£ 10

15:01:20 PAGE

SeEQ 0121

STESTNUM,STSTNM
PC,LODPRM

;LOAD

R1,=-(SP)

;;PUSH R1 ON STACK
;sPUSH R2 ON STA(K

R4, =(SP)
R&

J:PUSH R4 ON STACK
;CLEAR Ré
sGET THE TEST NUMBER
JSETUP TO ADDRESS WORDS
JGET THE TEST'S PARAMETER TABLE ADDRESS

R2,=(SP)
R3,-(SP)

$TSTNM,RG
R&

PRMPT(R4)
R

THE

TEST

NUMBER

;;PUSH R3 ON STA(K

#PRM,R?

JPARAMETER EXECUTION TABLE

CHKDRV
R4
(R1)+,(R2)+

JGET DRIVE ADDRESS
;LOAD PARAMETER SPECIFIER
;1S THIS PARAMETER USED IN THE
;JBR IF NOT
JLOAD THE VALUE
;CONTINUE

PRM

(R1)+,(R2)+

(R2)+
R3

#PAT+2
R2

7%
#7,R3
1$
#7,DRVTIYP(RG)

PRM(MT+12, STRK
#3,R3
PRM

43
(R1)+
PRM

JR3 IS USED AS A COUNTER

TEST

JCLEAR THE UNUSED PARAMETER LOCATION
JCOUNT THE POSITION IN THE OUTPUT TABLE
JFINISHED ?
JBR IF YES
;DOING TRACK PARAMETERS ?
sBR IF NO
;1S DEVICE AN RMQS ?
J1F SO, OVERLAY FT, LT & 17 SITH FY', L1t
JGET LAST

;ADJUST

TRACK FOR AN RMO3.

COUNTER

;COUNT THE PARAMETER
JBR IF FT' IS NOT USED

;MOVE THE INPUT POINTER
;COUNT THE PARAMETER

:BR IF LT' NOT USED
JMOVE THE INPUT POINTER
PRM
;COUNT THE PARAMETER
1%
;BR IF IT*' NOT USED
(R1)¢
;MOVE THE INPUT POINTER
1%
JKEEP GOING
PRMLMT+20,LSTRK JGET LAST TRACK FOR AN RMQS
#6,R2
JBACKUP THE OUTPUT POINTER
;KEEP GOING
5%

(R1)¢

MOv
MOv
MOv

;sPOP STACK

INTO Ré&

:.POP STACK INTO R3
:;POP STACK INTO R2
;.POP STACK INTO R1
;RETURN

MOV
RTS

sTHIS ROUTINE

14-23

LOADS A READ HEADER AND DATA

COMMAND OR

A SEEK

C(OMMAND

.INTO DPB.B+2 AND DPB.(+2, DEPENDING ON THE STATE Of ''CONTROL SWlT(W''

;81707.
sCALL

JSR

PC,LOCMD

CIRMVAD RM0S5/3/2 EXT'D DR TST

ololololelele]]
Ot et O et = O\
OMNNO
NN — M)
NONNESNNO
N
QNN ONINO W
NNNO NNNN

— e o e et OO
NN = = O N~
[ 1, SF L J SVF Yo W 8

N1 V] V]

NSNNSNSNSNN

(a1 VI NI N

NS (V]
= O 000 ~NO

000200

001314

000173
000173

045500
065520

000105
000105

045500
065520

351
352
353
354
355

027232
027236
027240
027246
027250
027250
356 027252
357 027256
358 027262

RETURN

LDCMD:

BIT
BNE

1%:

005737
001004
032737
001005

104045
013746
004737
000200

1%:

WILL

D
—

CALL

THE

RMOS

AN ERROR OCCURS

DRIVER AND

CALL.A
DPB.A+16

:DONE?

BPL

(3 9

;BRANCH IF NO ERROR

MOV
MOvB

DPB.A+12,CYL.DS
OPB.A*11,TRK.DS

RO,RMOS

THE

FUNCTION

ADDRESS

;NO=--LOOP

J;ESCAPE

;CYLINDER
;TRACK

DPB.A+10,SEC.DS ;SECTOR

MOV
JSR

#DPB.A+16,-(SP)
PC,ERINDX

EMT

461

EMT

EMT
NOP

;STATUS/ERROR INDICATOR ADDRESS
;FORM DISPAT(CH INDEX

(SP)+,P(

JREPORT

;PARITY ERROR

JNON-1/0 ERROR
;10 SYNC THE CALLING SEQ OfF

RM_.REG+RMER]
2%
JBRANCH
#81T15,RM. REG*RMER?
4
;BRANCH

1%:

EMT
MOV

45
DPB.A+16,-(SP)

COMMAND

PC,LOP.CK
RO

1S THE

.
.

ERROR

JUNSAFE ERROR

JSR
RTS

PROPER

JNON=-EXIST DRIVE

TS7T
BNE
B8l7
BNE

10 3% ON ERROR

JANY DRIVE ERROR
]F SO
;BAD SPOT ERROR
[F SO

;STATUS WORD

JSEE IF LOOP,
;RETURN

SAME AS ''CALL.A"' EXCEPT

IS A READ HEADER AND DATA

THE

;AND SECTOR) READ IS CHECKED FOR VALIDITY.

00
(€3

;CALL RMOS DR]VER

#3%,8ESCAPE

ADD

045572

;NO ESCAPE

MOvVB

s CALL

005037
004037

THEN WAIT

IS REPORTED.

DPB.A
BR
1S1
BEQ

;THIS ROUTINE

368 027264
369 027270

(OMMAND

$ESCAPE

MOV

:THE

SEEK

CLR

JSR

EMT

04 474
V666

;SETUP FOR

RE TURN

045474

065620

NSEEK ,DPB.B¢2

FILL "'DPB'" WITH COMMAND INFORMAT]ON
RO,CALL.A

CALL.A:

100000

MREADHD ,DPB.B+2

JSR

001222
037654

027252
045470
045467
0456466
045474
030526

SEQ 0122

;00 EXPLICIT SEEKS?
; YES==-BRANCH
;NO=-=SET UP FOR READ HEADER AND

;EEEK.DPB.(‘Z

RTS

.
H

14-24

ssEADHD,DPB.C’Z ;DATA COMMAND

MOV

2%:

#SW07,C.SWR
1%

BR
MOV

s CALL

005037
004037
045456
000772
005737
001775
100042
012737
013737
113737
113737
012746
004/37
062607
104041
104042
104043
104044
000240

15:01:20 PAGE

MOV
MOV

AN NN
O ~NO
N
oo~

027132
027136
027142
0271644
027146
027152
027154
027156
027164
027172
027200
027206
027212
027216
027220
027222
027224
027226
350 027230

;70 COMPLETE.

[=i=lele]
OO0OOO

341
342
343
346
345
346
347
348
349

11-APR-80

;THIS ROUTINE

OO NN

027066

OOOO0OO0O

U L U A U U U LN N U AN N NN v]
AN N N N NN M N NN O RO AU NI A [V]

INTEGER DivIDE ROUTINE

MACRO v03.01

ABORT,
FOR

HEADER

FILL DPB
RO,CALL.B
JSR

;

RETURN

CALL.B:

CLR
JSR

SESCAPE
RO,RMOS

;NO ESCAPE ADDRESS
;CALL RMOS DRIVER

THE

ERINDX

OR CONTINUE
DPB USED AND

(CYLINDER,

IFf

TRA(K,

CIRMVAQ RMOS/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

370 027274

371 027276

372
373
3764
375
376

045476

000772

027300
027304
027306
027310
027316
027324
027332
027340
027344
027350
027352
0273564
027356
027360
377 027362
378 027364
379 027370
380 027372
381 027400
382 027402
383 027402
384 027410
385 027412

032737
001025
104045

388 027424
389 027426
390 027434
391 027436
392 027442
393 027444

000410
123727
001004
004037
045506
000407

397 027462
ggg 027464

001452
000200

386 027414
387 027420

294 027446
395 027454
396 027456

6 19

MACRO v03.01 11-APR-80 15:01:20 PAGE 12-25

005737
001775
100047
012737
013737
113737
113737
012746
004737
062607
104041
104042
104043
104044
000240
005737
001404
032737
001412

013746
004737

032737
001403
004037

DPB.B

045514
027414
045510
045507
045506
045514
030526

18:
001222
001364
001370
001366

045572
177677

045572

100000

.
0456¢)

045514
030466

045500

000173

4$:

001314

S%:

030746
040000

030664
6%:

400
(0
402
403
482

CALL.B

187
BEQ
8PL
MOV
MOV
MOVB
Move
MOV
JSR
ADD
EMT
EMT
EMT
EMT
NOP
18T
BEQ
BIT
BEQ

DPB.B+16
1%
63
738 ,SESCAPE
DPB.B+12,CYL.DS
OPB.B+11,TRK.DS
DPB.B+10,SEC.DS
#DPB.B+16,-(SP)
PC,ERINDX
(SP)+,PC
61
62
63
44

BIT
BNE
EMT

#BIT15,RM_REG+RMER?
6%
65

MOV
JSR

;DONE?
;NO=--BRANCH
:BRANCH [F NO ERROR
s ESCAPE TO 3% ON ERROR
;CYLINDER
;TRACK
;SECTOR
;STATUS/ERROR INDICATOR ADDRESS
:FORM DISPATCH INDEX
:REPORT PROPER ERROR
sNON-EXIST DRIVE
:PARITY ERROR
;UNSAFE ERROR
sNON=1/0 ERROR
;7O SYNC THE CALLING SEQ OF ERINDX:
RM . REG+RMER
;DRIVE ERROR ?
2s
:BR IF NOT
#*C100,RM. REG+RMER]
;SEE 1F ONLY 'HCE' SET
4%
;BR IF IT IS

DPB.B+16,-(SP)
PC,LOP.CK

:BSE ERROR
:BRANCH IF SO

;STATUS WORD
sSEE IF LOOP, ABORT,

OR (ON!INUE
;CHECK FOR STALL
;DOING IMPLIED SEEKS?
:NO==BRAN(H
;YES==GO CHECK THE DATA

BR
5%
CMPB
DPB.B¢2,#READHD
BNE
5%
JSR
RO,VERIFY
DPB.B+10
BR
6%

;ERROR DURING VERIFY

LWORD
RTS

;STALL TIME POINTER
:RETURN

BIT
BEQ
JSR

#SW14,C.SWR
6%
RO,STALL

STALLI
RO

:STALL?
:NO==BRANCH
JYES==CALL STALL ROUTINE

;THIS ROUTINE 1S THE SAME AS "'CALL.B'* EXCEPT
:CALL
;
FILL OPB
;
JSR
RO,CALL.C
;
RETURN

406
407
408
409

2s:

SEQ 0123

027466
027472
027476
027500

005037
004037
045516
000772

612 027510
413 027512
414 027520

100047
012737
013737

410 027502
411 027506

027526
027534
027542

005737
001775

113737
113737
012746

001222
037654

CALL.C:

045534

1$:

027616
045530

045527
045526
(45534

001222
001364

001370
001366

CLR
JSR
DPB.C(
BR
187
BEQ
BPL
MOV
MOV

MOVB
MOVB
MOV

SESCAPE
RO,RMOS
CALL.C

DPB.C*+16
1%

FOR THE DPB USED.

;NO ESCAPE ADDRESS
;CALL RMOS DRIVER

;DONE?
;NO--L0OP

43
:YES--BRANCH ]F NO ERROR
#38,8ESCAPE
;;ESCAPE 10 3% ON ERROR
OPB.C+12,CYL.DS ;CYLINDER

DPB.C+11,TRK.DS ;TRACK
DPB.C+10,5€6C.DS ;SECTOR
#OPB.C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS

RT,

CIRMVAQ
INTEGER

/2 EXT'D DR TS7
ROUTINE

004737
062607

SNV
OOV NOW

000240
005737
001404
032737
001412

(O
oI 3
ol oI i

030526

;FORM DISPATCH

tMT

;NON-EXIST DRIVE

(SP)+,P(

032737
001025

100000

065620

013746
004737

045534
030466

045520

000173

001314

;PARITY ERROR
;UNSAFE ERRCR

:NON=1/0 ERROR

RM_REG¢RMER]

;7O SYNC THE
:DRIVE ERROR

3%:

gg.LOP.CK

;SEE

(MPB

DPB.C+2,#READHD

;DOING

6$:

5%:

BNE
5%
JSR
RO,VERIFY
OPB.C+10
BR
6%
BIT
FSW14,C.SWR
8tQ
6%
JSR
RO,STALL
.WORD
STALLI
RTS
RO

;THIS ROUTINE

THE

SAME

LOOP,

645

DRVCAL:

CLR
CLR

$ESCAPE
WCEFLG

DTADPB
BR

DRVCAL

030032

O
W
WV

030446

[ ]

JSR

DRVCLY: TST

SO
OO UNNNNN
S O NN
= NNONNNN

027754
027760
027764
027766

001222
001432
037654

065554

—-O000=—00

027710
027714
027716
027720
027724
027724
458 027732
027740
027746

005037
00237
004037
045536
000770

RETURN

OOttt —b

027670
027674
027700
027704
027706

;

045550
045547
065546
0645554
030526

BEQ

00°222
061364
001370
001366

BMI]

JMP

MOV
MOV
MOv8
MOvV8B
MOV
JSR
ADD
EMT

RO,RMOS

ABORT,

RT,

SET

CONTINUE

THE DATA

;ERROR DURING VERIFY
SSTALL?
;NO=-=BRANCH
JYES==CALL STALL ROUTINE
JSTALL TIME POINTER

AS ''CALL.A'" EXCEPT

FOR

THE

DPB USED

AND

IF ERR.CT IS EQUAL TO

;NO ESCAPE ADDRESS
;CLEAR WRITE CHECK ERROR FLAG

DTADPB¢+16

;CALL RMOS DRIVER

: DONE

DRvCLY

.NO--L00P

14%

.NO ERRORS

ONLY

ERINDX:

IMPLIED SEEK?

;NO=--EX1T
sYES==CHECK

;ON AN ERROR LOCATION 'ERR.CT'' IS EXAMINED.
JSERFLG EXIT ]S TO THE NEXT TEST.
sCALL
FILL DPB
;
RO,DRVCAL
JSR
.

L46

'HCE'

#BIT15,RM REG*RMER?
;BSE ERROR ONLY
6%
;BRANCH IF SO
65
DPB.(+16,=(SP)
;STATUS WORD

6%:

443

BIT
BNE
EMT
MOV

NOT
;SEE
IT IS

SEQ OF

égR

CALLING
?

2%
;BR
#“C100,RM REG*RMERT
63
JBR

030664

440
641
642

[NDEX

PROPER ERROR

BEQ
BIT
8ea

030746
040000

;REPORT

Y
63

EMT

439

47
448
649
450
651
65?2
453
654
655
656
657

PC,ERINDX

NOP
18T

045572

SEQ 0124

JSR

EMT
EMT

045572

000410
123727
001004
004037
045526
000407
032737
001403
004C37
001452
000200

H 10
15:01:20 PAGE 14-26

ADD

177677

104045

027644
027646
027650
027656
027660
027664
027666

6446

11-APR-80

104041
1046042
104043
104044

PUORNINININ)
= b b s

Fall ol o

MACRO v03.01

:BR IF ERRORS

#38 ,SESCAPE
;sESCAPE T0 3% ON ERROR
DTADPB+12,CYL.DS
:CYLINDER
DTADPB+11,TRK.DS
s TRACK
DTADPB+10,SEC.DS
;SECTOR
#OTADPB+16,-(SP)
: STATUS/ERROR INDICATOR ADDRESS
PC,ERINDX
+FORM DISPATCH INDEX
(SP)+ ,PC
61

;REPORT PROPER ERROR
¢NON-EXIST DRIVE

EGER DivIDE ROUTINE

MACRO v03.01

104042
104043

464 030016

465 030024
466 830030

467 030032
468 030040

€49 030042

471 030052
473 030062

474 030070
030072
030100
030102
030110
030
030
030
030
030

SO SrTVO

475
476
477
478
479
480
481
482
4«83

=S NO
(WNO
N —
NN
—

663 030014

000240
005737
001
03

4«87
488
4897
490
491
492
493
494

100000

065620

177777

001464

030446
000020

BlT
BEQ

MOv

2%:
001116

0455564
030466
000151

0645540

040000

045566

000020

151054

000161
001222
037654

045540

030422
045550
045547
045546
045554
030526

38:

JSR
(MPB
BNE
BIT
BEQ

BIT

BNE
MOvB

CLR
JSR
DTADPB

001222
001364
001370
001366

NOP
TST

8eQ
8PL

MOV
MOv
MovB
Move
MOv

JSR

ADD

NOP
TST
BNE

065572
100000

045620

177777

001464

030446

030240

000151
037654
=4
o
O -0

501 030266

EMT
(MPB
BNE

MOv

030204

030206
030210
030214
030216
030224
030226
030234
030240

030254
030256
030260
030264

JMP

EMT
EMT
EMT
EMT

495 030242
496 030250

497
<98
499
500

NOP
1ST
BNE

045572

045554

4«84 030
LRS5 030
486 V30 142

11-APR-80

EMT
EMT
EMT

104044

N= NN
NNN—=NO
NN N
N
WS NN S
NENONSNNOOVWN

459
460
461 030004
662 030006

NN
N —

—

MVAO RMOS/3/2 EXT'D DR TST

065554

BIT

BEQ

MOv

5¢%:

045540

6%:

7%:

JMP

EMT
MOovB
JSR
DTADPB
NOP
TST

BEQ
BMI]

15:01:20 PAGE

14-27

SEQ 0125

62
'S

;PARJTY ERROR
;UNSAFE ERROR

RM.REG*RNKER]
2%

;70 SYN THE CALLING SEQ OF THE ERINDX:
:ANY DRIVE ERROR ?
¢REPORT THE 1/0 ERROR [F SO

;BRANCH IF NOT

45
#20,8TSTNM
11$
DTADPB+16,-(SP)

;TEST 20?
:NO=-=BRANCH

12%

+NO-=BRANCH

sNON=1/0 ERROR

#BITIS ,RM.REG*RMER?
#-1,BASFLG
14%

PC,LOP.CK
PWRCKD ,DTADPB¢2

NBIT14 ,RM_REG*10

;BAD SPOT ERROR ?

;SET BAD SECTOR ENCOUNTER FLAG
;OTHERWISE ,DON'T REPORT THE BSE

;STATUS WORD

;SEE IF LOOP, ABORT, OR
;DOING A WRITE CHECK?

CONTINUE

;1S "NCE''=1?

12%
sNO=-=BRANCH
FSW04 @SR
INHIBIT WRITES?
12%
: YES=-BRANCH
#WR1TE ,DTADPB+2 ;SETUP FOR A WRITE
SESCAPE ;NO ESCAPE ADDRESS

RO,RMOS5

;D0 THE WRITE

DTADPB+16

;DONE?

:YES==BRANCH ]F

A 3

sNO-=-L00P

NO ERROR

#1198 ,SESCAPE
sESCAPE TO 118 ON ERROR
DTADPB+12,CYL.DS
JCYLINDER

DTADPB+11,TRK.DS
DTADPB+10,SEC.DS

: TRACK
JSECTOR

#DTADPB+16,-(SP)
;STATUS/ERROR
PC,ERINDX
;FORM DISPATCH INDEX
(SP)+,PC
+REPORT PROPER ERROR
61
;NON-EXIST DRIVE

62
63
&4

RM.REG+RMER]

INDICATOR ADDRESS

:PAR]ITY ERROR
;UNSAFE ERROR

sNON-1/0 ERROR

;70 SYN THE CALLING SEQ OF ERINDX
:ANY DRIVE

:BRANCH IF

ERROR

#BIT15,RM. REG+RMER?
.BAD SOPT ERROR
5%
;BRANCH [F NOT
#-1,BASFLG
sSET BAD SECTOR ENCOUNTER FLAG
148
JEXIT

#WRCKD DTADPB+2

RO,RMOS

DTADPB+16

14 3

;(OMMAND=WR]ITE

CHECK

‘DO THE WRITE CHECK
:DONE?

;NO=--L0OOP

*YES--BRANCH

ERROR

DATA

CZRMVAQ RMOS5/3/2 EXT'D DR TST
INTEGER DiVvIDE ROUTINE

502
503
504
505
506
507
508

MACRO v03.01

030270
030274
030276
030300
030304
030306
030310

004037
045536
000240
005737
001775
100057
012737

045554
000001

001432

510 030324

013737

045550

001364

509 030316
030332

030340

030346
030352
030356
030360
030362
030364
030366
511 030370
512 030372
513 030376

514
515
516
517
518

030400
030406
030410
030416
030420
030420
519 030422
520 030426

521
522
523
5264
525
526
527
ggg

030432
030440
030442
030446
030454
030456
030462
030464

012737
113737

113737

012746
004737
062607
104041
104042
10460643
104044
000240
005737
001010
032737
001404
012737
0C0413

104046
013746
004737
123737
101002
013700
032737
001403
004037
001454
000200

037654

030422

045547
045546

045554
030526

8%:

001222

001370

100000

045620

177777

001464
10%:

045554
030466

11%:

001462

001117

12%:

001346
040000

001314

13%:
14%:

030664

15%:

030466
030474
030476
030502

561 030506
542 030514
544 030516
545 030522
229 030524

548

SEQ 0126

;D0 A 2ND WRITE CHECK

DTADPB+16
8s
148
#1 WCEFLG

;DONE?
:NO--LOOP
;YES=-BRANCH ]F NO ERROR
JSET THE WRITE CHECK ERROR FLAG

MOV

DTADPB+12,CYL.DS

MOV

#lfS,SESCAPE

DTADPB¢11,TRK.DS
DTADPB+10,SEC.DS

JJESCAPE TO 118 ON ERROR
sCYLINDER

:TRACK

:SECTOR

MOV
JSR
ADD
EMT
EMT
EMT
EMT
NOP
TST
BNE

#DTADPB+16,-(SP)
JSTATUS/ERROR INDICAT"Q ADDRES
PC,ERINDX
;FORM DISPATCH INDEX
(SP)+,PC
;REPORT PROPER ERRUR
61
sNON-EXIST DRIVE
42
JPARITY ERROR
43
sUNSAFE ERROR
44
;:NON=1/0 ERROR
2SO SYN THE CALLING SEQ OF ERINDX:
RM.REG*RMER]
;ANY DRIVE ERROR
10%
;BRANCH IF SO

EMT
MOV
JSR

46
DTADPB+16,~-(SP)
PC,LOP.CXK
ERR.CT,SERFLG
14%
BYPASS,RO
#SW14,C.SWR
15%
RO,STALL
STALLZ
RO

Bl7
BEQ
MOV
BR

(MPB
8HI
MOV
BIT
BEQ
JSR
.WORD
RTS

#B1T15,RM . REG+RMER?
;BAD SOPT ERROR ?
108
:BRANCH IF NOT
#-1,BASFLG
;SET BAD SECTOR ENCOUNTER FLAG
14%
;OTHERWISE EXIT

:STATUS WORD
;SEE IF LOOP, ABORT, OR CONTINUE

;G0 TO NEXT TEST?
:NO==BRAN(CH

JYES==GET EXIT ADDRESS
JSTALL?
;NO--BRANCH
JYES==CALL STALL ROUTINE
JSTALL TIME POINTER

;THIS SUBROUTINE CHECK FOR LOOP, ABORT, OR CONTINUE SWITCHES AFTER
;ERRORS 41, 42, 43, 44, 45, AND 46.
:CALL
:
MOV
DTA+16,-(SP)
;STATUS WORD FROM DPB [N USE
.
JSR
PC,LOP.CK

ggg

543

10
14-28

RO,RMOS

MOvB

045572

J
15:01:20 PAGE

JSR
DTADPB
NOP
187
BEQ
BPL
MOV

[ [0]"]:]

001366

530
53
532
533
534

537
538
539
540

09%:

11-APR-80

032777
001402
000177
005037

032766
001402

000137
012616
000¢07

001000

150460

150422

001222

072006
021020

000002

RE TURN

LOP.CK: BIT
BEQ
JMP
1%:
CLR

BIT
BEQ

2%:

JMP
MOV
RTS

#SW9,a5WR
1%
aSLPERR
$ESCAPE

;LOOP ON ERROR
:BR I1F NOT

JSTART AT THE LOOP ADDni
S

;CLEAR ERROR ESCAPE FLAG
#BITI4!BITI3!BITI2!BIT10!BIT02!'BIT01,2(SP)
;CHECK ERROR TYPE
2%
:BR JF DRIVE NOT OFFLINE, UNLOADED, OR
$EOP
(SP)+,(SP)
PC

JPERSISTENT UNSAFE OR FATAL MASSBUS PARITY

;TERMINATE DRIVE
sADJUST RETURN ADDRESS

sTHIS ROUTINE FORMS AN INDEX THAT WiLL BE USEv TO DISPAT(CH

563 030526

567 030542
568 030544
569 030546

v draat

——

SEQ 0127

;70 THE PROPER ERROR CALL.
THE INDEX IS FORMED BY EXAMINING
:THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB.

:
;
p

010046
010146
016600

011037
005001
032710
020402
001037

000006
001354

177762

000006

RO,=(SP)
R1,=(SP)
6(SP),RO
(RO),SVSTAT
R
(PC)+, (RO)

;SAVE RO
*SAVE R1
$GET STATUS/ERROR INDICATOR POINTER
$SAVE THE STATUS/ERROR INDICATOR

5%
(PC)+, (RO)

: YES--BRANCH
*FORM PARITY ERROR OR PORT REQUEST INDEX (2)?

;INDEX IS ON THE STACK

*START INDEX AT ZERO
SFORM INDEX OF 0?

.WORD

BIT11iBIT10!B1T02

BNE
BIT
JWORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BEQ
CMPB

4$
: YES--BRANCH
(PC)+, (RO)
SFORM UNSAFE INDEX (4)?
BIT14iBIT12!B1104
3¢
; YES==BRANCH
(PC)+, (RO)
*FORM NON-I1/0 ERROR INDEX (6)?
BITOS{BITO3
28
s YES--BRANCH
(PC)+, (RO)
*FORM 1/0 ERROR INDEX (10)?
BIT06
1%
:YES=--BRANCH
(PC)+, (RO)
:SOFTWARE TIMEOUT?
BITO09
5¢
;NO=--FORM INDEX OF 0
#150,-16(R0)
:YES--1/0?

RM.REG*RMER1

BIT

#B1T15,RM.REG+RMER?

ASL

BNE

1$:
28:
3
4$

;ADDRESS OF STATUS/ERROR INDICATOR
:FORM INDEX

BIT13!B1T08!B1701

BGT

045620

#DPB+16,=(SP)
PC,ERINDX

LWORD

BNE
BIT

100000

000207

RETURN

ERINDX: MOV
MOV
MOV
MoV
CLR
BIT

045572

589 030624

JSR
JSR

BEQ
INC
INC
INC
INC
INC

MOV
MOV

MOV
RTS

*NO--BRANCH

*BRANCH IF SO

1$
R1
R
R
R
R1

;BRANCH 1F NOT
:SKIP , NOT REPORT BSE ERROR
: INDEX=10---ERROR=45 OR 46
* INDEX=6=-=ERROR=44
+ INDEX=4=--ERROR=43
: INDEX=2~-~ERROR=42

R1,6(SP)
(SP)+,R1

:RETURN INDEX TO USER
‘RESTORE R1

(SP)+.RO

:ANY DRIVE ERROR ?

:BSE ERROR

+ INDEX=0==~ERROR=41
*RESTORE RO

*RETURN FROM CALL

:THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC
*AMOUNT OF TIME IF BIT13
OF C.SWR
= 0 OR A RANDOM AMOUNT OF TIME

*1F BIT 13 OF C.SWR = 1.

:
0 BIT14!BIT13!BITO8!BITO
:
2 BIT111BIT10iB1TO2
4 BIT121B1T04
;
;
6 BITOS!BITO3!<BIT09 & COMMAND=NON-1/0>
:CALL10 BIT061<BITO9 & COMMAND=1/0>

STATUS/ERROR

s INDEX

000150

590 030626
591 030634
592 030636
593 030640
594 030642
595 030644
596 030646
597 030650
598 030652
599 030656
600 030660
601 030662

e o

K 10
MACRO VvCG3.01 11-APR-80 15:01:20 PAGE 14-29

WA
WA UANIWAOWANAWNIWINLY wn
[0 Lo o 30 LU, TV TV VU VIV, 1V, 1V, 1V, ] &H
N=OVO~NO
VS WNNNI=O 0

CZRMVAO RM05/3/2 EXT'D DR TST
INTEGER DiVIDE ROUTINE

CZRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER Div1DE ROUTINE

MACRO v03.01

606
607
608
609

2}?

030666
030666
030676
030676

013046
032737
001406
004737

617
618
619
620
621
622
623

030706
030712
030716
030722
030724
030730
030732

042716
005046
162766
103407
012716
005700
005366

616 030702

030736
030740
030742
030744

013716

001374
000765
022626
000200

020000

001314

STALL:

025550

025650
177700

000001

000002

000144

18
2%:
38:

000000

629
630
631
632

TIME POINTER

MOV
BIT
BEQ
JSR

3(RO)+,=(SP)
#SW13,C.SWR
1%
PC,SRAND

:PICKUP STALL TIME
TUSE A RANDOM TIME?
*NO--BRANCH
SYES-=FORM RANDOM NUMBER

¥ACT7, (SP)
-(SP)
#1,2(SP)
43
#100., (SP)
RO
0(SP)

*BUT NEVER > 64 MILLISECONDS
*CLEAR TEMP. LOCATION
*MORE STALL REQUIRED?
:NO--BRANCH
SSTALL FOR ABOUT 1 MILLISECOND
*NOP TO KILL TIME
: COUNT

MOV

SLONUM, (SP)

BNE
BR
CMP
RTS

38
28
(SP)+,(SP)+
RO

BIC
CLR
SUB
BLO
MOV
ST
DEC

:WHERE TO FIND THE STALL TIME

SAND USE IT FOR THE STALL TIME

:LOOP 1f MORE COUNTS NEEDED
:CLEAN OFF
CEXIT

THE STACK

;ROUTINE TO SOF TWARE COMPARE WEADER ON IMPLIED SEEKS
JCALL
:
JSR
RO,VERIFY
:
ADR POINTER
:ADDRESS OF DPB+10 (SECTOR NUMBER)

;

222

635 030746
636 030750
637 030752

010146
012001
042737

639
640
641
642
643
644
645
646
647
648

030766
030770
030774
030776
031006
031012
031020
0310264
031030
031034

001003
023711
001441
013737
113737
113737
112137
112137
011137
012737

650
651
652
653
654

031044
031046
031054
031060
031064

638 030760

649 031062

655 031072
656 031076

657 031100
658 031104
ggg 03110¢
661
662

SEQ 0128

;STALLY CONTAINS SPECIFIED TIME FOR TESTS 0 - 7, AND STALL?2
:CONTAINS THE TIME FOR TESTS 16-21.
s CALL
:
JSR
RO,STALL

612
613
614
615

626
625
626
ggg

L 10
11-APR-80 15:01:20 PAGE 14-30

023761

005740

104012
012737
004037
005037
032777
001404
000177

062700
012601
000200

150000

052776

000002

VERIFY: MOV
MOV
BIC

001356
001360
001362

000107
027132
001222
001000

045460

150024

000002

R1,-(SP)
(RO)+,R1
#150000,BUFFER

:SAVE R1
:GET ADDRESS OF DPB+10
:STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER

BNE
CMP
BEQ
MOV
MOVB
MOVB
MOVB
MOVB
MOV
MOV

1%
BUFFER+2,(R1)
3s
BUFFER,CYL.RD
BUFFER+3,TRK.RD
BUFFER+2.SEC.RD
(R1)+,SEC.DS
(R1)+.TRK.DS
(R1),CYL.DS
#2% $ESCAPE

*NO--BRANCH
:YES--HOW ABOUT TRACK/SECTOR?
:BRANCH IF GOOD
-SAVE THE EXPECTED AND THE
:RECIEVED CYLINDER, TRACK,
:AND SECTOR

EMT
MOV
JSR
CLR
BIT

12
#RECAL,DPB.A+2
RO,CALL.A
$ESCAPE
#SW9,aSuR

ADD
MOV
RTS

#2 RO
(SP)+,R1
RO

CMP

053000
052776
053001
053000
001366
001370
001364
031046

RETURN

1$:

001222

TST

2%:

150062

38:
4$:

BEQ
JMP

BUFFER,2(R1)

-(RO)

48
SSLPERR

:CYLINDER NUMBER OK?

::ESCAPE TO 2% ON ERROR

‘MAKE 1T TEST PC+4

:LOAD RECALIBRATE ORDER CODE
160 EXECUTE THE COMMAND
SCLEAR ERROR ESCAPE FLAG
*LOOP ON ERROR ?

:BR IF NOT
*RETURN TO ERROR LOOP ADDRESS

*INCREMENT RETURN ADDRESS
*RESTORE R1
JEXIT

:THIS ROUTINE WILL PERFORM A "'MASSBUS'' INIT.
sA "'RECALIBRATE'' ON THE DRIVE UNDER TEST.

FOLLOWED BY

CZRMVAO RMO5/3/¢ EXT'D DR TST
INTEGER DivIDE ROUTINE

MACRO v03.01

663
664
665
666

22;

;NOTE:
s CALL
:
:

THIS ROUTINE DESTROYS R1 AND Ré

SRCHOO0:

CLR
CLR
MOV
MOV
MOV
CLR
CLR
MOV
CLR
JSR
DTADPB

669
670
671
672
673
676
675
676
677
678
679

031110
031112
031116
031124
031130
031136
031142
031146
031154
031160
031164

005001
005037
012777
013704
012764
005037
005037
012737
005037
004037
045536

681
682
683
684
685

031170
031174
031176
031200
031206
031214
031222
031230
031234
031240
031242
031244
031246
031250
031252
031254
031256
031260
031264
031270

005737
001775
100030
012737
013737
113737
113737
012746
004737
062607
104041
1046042
104043
104044
104045
005720
000404
005064
005064
000200

680 031166

686
687
688
689
28?

m10
11-APR-80 15:01:20 PAGE 14-31

000440

177776
041740
037066
000040
045546
045550
000107
001222

005744

000010
045540

037654

045554
031254
045550
045547
045546
045554
030526

2$:
3s:

43:

RO, SRCHOO

RE TURN?2

18T
BEQ
BPL
MOV
MOV
MOVB
MOVB
MOV
JSR
ADD
EMT
EMT
EMT
EMT
EMT
ST
BR
CLR
CLR
RTS

001222
001364
001370
001366

gg§

RETURN1

B8R

1$:

000006
000034

JSR

SEQ 0129

;00 A MASSBUS INIT. AND RECAL
sRETURN HERE

IF NO ERROR

:RETURN HERE ON ERROR
R1
PS
#1SR,BRMVE(
RMADR ,R4
FCLR,RMCS2(R4)
DTADPB+10
DTADPB+12
#RECAL,DTADPB+2
SESCAPE
RO,RMOS

:INCASE OF ERROR (TYPTIM)
;SETUP INTERRUPT VECTOR
;PICKUP ADDRESS OF RM(CS1
;MASSBUS INIT.
;TRACK=0; SECTOR=0
:CYLINDER =0
;COMMAND = RECALJBRATE
:NO ESCAPE ADDRESS
:CALL THE DRIVER
;DPB POINTER

;QUEVUE IS FULL

DTADPB+16
;WAIT ON DONE
1%
38
;:TAKE NORMAL EXIT IF NO ERROR
#2$,$ESCAPE
::ESCAPE TO 2% ON ERROR
DTADPB+12,CYL.DS
;CYLINDER
DTADPB+11,TRK.DS
: TRACK
DTADPB+10,SEC.DS
:SECTOR
#DTADPB+16,-(SP)
:STATUS/ERROR INDICATOR ADDRESS
PC,ERINDX
:FORM DISPATCH INDEX
(SP)+,PC
;REPORT PROPER ERROR
61
;NON-EXIST DRIVE
62
;PARITY ERROR
43
:UNSAFE ERROR
44
;NON-1/0 ERROR
45
:1/0 ERROR
(RO)+
:ADJUST FOR ERROR EXIT
43
;60 TO 1HE EXIT
RMDA(R4)
:TRACK AND SECTOR = 0
RMDC (RG)
:CYLINDER = 0
RO
:RETURN

;THIS IS AN RT] WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST

ggg 031272

000002

DORT1:

RTI

;RETURN FROM INTERRUPT

ggg

:Egls ROUTINE WILL INITIALIZE THE TIMERS USED BY THE ''TIMING ROUTI ES

698

988

701
702
703
704
705
706

031274
031276
031302
031304
031310
031312

104412
012700
005020
020027
103774
012710

708 031324
709 031332

012737
1046413

707 031316

012737

001374

052776

077777

RETURN

JSR

PC,STRTMR

STRTMR:

SAVREG
MOV
(LR
CMP
BLO
MOV

#TIM.UP,RO
(RO)+
RO,#TIM.PY
1%
#BUFFER, (RO)

MOV
RESREG

#*CBIT15,TIM.DN ;POSITIVE NUMBER
;RESTORE RO-RS

1%:

001430

001374

001412

CALL

MOV

:SAVE RO-RS
:START AT TIM.UP
;CLEAR THE TIME TABLES
:DONE?
:NO--BRANCH
:SETUP POINTER

#ACBITIS, TIM.UP SSET MINIMUM TIME TO MAXIMUM

CZRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

710 031334
m
712
713
714
715
716
717
718
719

000207

722
723
724
725

031336
031342
031344
031346

012702
005705
001402
012702

727 031356
728 031360
729 031366

002003
017762
027763

MACRC v03.01

RTS

30 031374

731 031376
732 031400
733 031402
734 031406
735 031410
736 031416
737 031624
738 031426
739 031430
7640 031432
761 031436
742 0316440
7643 031442
764 031450
745 031452
7646 031460
;25 031466

N 10
15:01:20 PAGE 14-32
PC

;RETURN

;THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND
sNOTE:

:CALL
:
;
:
;

027722

002001

005212
005722
027722
003403
017762
027763
003401
005212
005722
067722
005522
005212
022737
101406
017777
062737
000207

001374

001412

150130
150122
150114

150072
150064

177776
000006

061326

001430

150030
000002

147750
001430

JPARAMETER POINTER
;FLAG=0=COUNT UP
;FLAG==1=COUNT DOWN

JSR

PC,COUNT

COUNT:

MOV
ST
BEQ
MOV

#TIM, UP,R2
RS
13
#TIM.DN,R2

:PICKUP THE "‘UP'' POINTER
SUSE 112
YES==BRANCH
*NO--PI1CKUP ''DOWN'' POINTER

BGE
MOV
CMP

28
aPKC,=2(R2)
aPKC.4(R3)

:NO-=BRANCH
SYES==SAVE 1T
:LESS THAN THE LOW LIMIT?

2%:

.
&$:

5¢:

150050

#1P,R3
FLAG,RS

RETURN

3s:

150100

MOV
MOV

18:
177776
000004

THIS ROUTINE DESTROYS R2

68 :

CMP

BGE

inC
T1ST
CMP
BLE
MOV
CMP
BLE
INC
I1ST
ADD
ADC
INC
CMP
BLOS
MOov
ADD
RTS

3PKC, (R2)+

SLESS THAN PREVIOUS LOW?

*NO--BRANCH

(R2)
SYES==COUNT 1T
(R2)+
;ADVANCE THE POINTER
APKC, (R2)+
:GREATER THAN PREVIOUS HIGH?
48
*NO--BRANCH
aPK(,=2(R2)
SYES==SAVE IT
aPK(,6(R3)
JGREATER THAN THE HIGH LIM]1?
5¢
*NO-<-BRANCH
(R2)
SYES==COUNT 1T
(R2)+
;ADVANCE THE POINTEFR
aPKC,(R2)+
;ADD THIS COUNT TO THE .TOTAL
(R2)+
(R2)
;COUNT THIS READING
WBUFFER+<4*822.>,TIM.PT ;SAVE THIS CLUNT?
68
*NO--BRANCH
aPKC,alIm . PT
JYES==-WELL SAVE IT THEN
#2,7IM.P1T
;ADVANCE THE POINTER
PC
*RETURN

749
750
751

;THIS ROUTINE PRINTS THE SPEC OF
T CALL
:
JSR
RO,SPTYP

TABLE ADDRESS

754
755
;gg

;TABLE:
.
:

.WORD
.WORD
.WORD

ASCIZ MESSAGE POINTER
MIN VALUE
MAX VALUE

SPTYP:

MOV
BIT
BNE
TYPE
TYPE
MOV
TYPE
.WORD

(RO)+,R2
#SW06 . aSWR
{1
L SCRLF
“$CRLF
(R2)+,1%

;g%

758
759
760
761
762
763
764
765

0316470
031472
031500
031502
031506
031512
031516
031520

766 031522

SEQ 0130

;MAINTAIN THE MINIMUM AND MAXIMUM TIMES.

;5?

726 031352

11-APR-80

012002
032777
001035
106401
104401
012237
104401
000000

012246

000100

147454

001231
001231
031520
1$:

MOV

(R2)+,=-(SP)

ALL TIMING TESTS

;THE TABLE ADDRESS
SALLOW PRINT
CEXIT IF NOT
;

;LOAD MIN VALUE

CIRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER DiVIDE ROUTINE

767
768
769
770
771
772
773

776

031524
031526
031532
031536
031542
031546
031552
031554
031560
031564
031570

775
776
777
778 031574
779

001410
1064401
004737
004737
104401
104401
011246
004737
004737
104401
104401
000200

MACRO v03.01

046500
025260
025510
046522
046506

11-APR-80

2s:

025260

025510
046522
001231

780
781
782
783
734
785
786
787
788
789

B 1
15:01:20 PAGE 14-33

BEQ
TYPE
JSR
JSR
TYPE
TYPE
MOV
JSR
JSR
TYPE
TYPE

2%
JMSGMIN
PC,$5B2D
PC,8SUPRS
,MSGOUS
MSGMAX
(R2) ,~(SP)
PC,$5B82D
PC,$SUPRS
,MSGOUS
LOCRLS

RTS

;SKIr

SEG 0131

IF MIN VALUE

1S 0

;CONVERT TO DECIMAL
TYPE IT
;0 US
:
JMAXMUM VALUE

;
;
;CR=LF
:

;:THIS ROUTINE 1S USED TO TYPE THE MINIMUM,
;MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS

1T WILL ALSO CHECK THE TIMES TO ENSURE
sTHEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES.
;NOTE: THIS ROUTINE DESTROYS R2-RS
:CALL
;
JSR
RO,TYPTIM
:60 REPORT THE TIMES
:
TABLE
;POINT TO THE PROPER TASLE

;g?

RETURN

792

:TABLE: MSGADR1

;ADDRESS OF

794
;32

:
;

MIN.ALLOWED
MAX . ALLOWED

:MINIMUM TIME ALLOWED
;MAXIMUM TIME ALLOWED

TYPTIM:

MOV
BIT
BNE

;PICKUP THE TABLE POINTER
:INHIBIT TIME REPORTS?
, YES=-BRAN(CH

793

;

797 031576
798 031600
799 031606

00
801
802
803
804
805
806

031610
031614
031616
031620
031622
031626
031630

807 031632

808 031636
809 031640
810 031644
031646
031652
811 031656

812 031662

813 031664
814 031666
815 031672

031676

031702
816 031706
817 031712
031714
031720

012002
032777
001160

012237
012205
012203
011202
012704
104401
000000

005764

001542
104401
012446
004737
004737
104401

005724

001421
104401
016446

004737

004737
104401
010546
004737
004737

000100

147346

031630

MSGADR?2

(RO)+,R2
#SW06,aSWR
9

MOV
MOV
MOV
MOV
MOV
TYPE
.MWORD

;ADDRESS OF MESSAGE NUMBER 1
;ADDRESS OF MESSAGE NUMBER 2
;PICKUP THE LOW LIMIT
sAND THE HIGH LIMIT
;PARAMETER POINTER
;TYPE THE MESSAGE
;ASCI2 MESSAGE POINTER GOES HERE

025260
025510
046522

BEQ
TYPE
MOV
JSR
JSR
TYPE

8%
JMSGMIN
(R&)+,-(SP)
PC,$582D
PC,$SUPRS
MSGOUS

:NO=--BRANCH
s MIN='
JPUT (R&)+ ON THE STACK
; CHANGE TO DECIMAL ASCIZ
:TYPE WITHOUT LEADING ZEROS
;0 us”’

046657
177776

BEQ
TYPE
MOV

33
LBLNKS?
-2(R&) ,=(SP)

:NO=-=BRANCH
;TYPE 2 SPACES
;PUT =2(R&) ON THE STACK

001374

000014
046500

025260

025510
046527

02526C
(25510

1$:
2$:

18T

153

JSR

JSR
TYPE
MOV
JSR
JSR

(R2)+,2%
(R2)+,RS
(R2)+,R3
(R2),R2
#TIM.UP,RG

ASCIZ MESSAGE NUMBER

14 (RYG)

(RG)+

PC,$5BD

PC,SSUPRS
,MBELOW
R3,-(SP)
PC,$582D
PC,$SUPRS

;ADDRESS OF ASCIZ MESSAGE NUMBER 2

;DID ANY COUNTS OCCUR?

;ANY SEEKS BELOW THE LOW LIMIT

;CHANGE TC DECIMAL ASCIZ

:TYPE WITHOUT LEADING ZEROS
;"BELOW THE MiNIMUM OF
:PUT R3 ON THE STACK
;CHANGE TO DECIMAL ASCI?
:TYPE WITHOUT LEADING 2tROS

/2 EXT'D DR TST
ROUT INE

106401
104401

012646
004737
004737
104401

0057264

001421
104401
016646
004737

006737
104401

010246
004737
004737
1064401
1064401

0124646

012446
012446
004737
006126

MACRO v03.01

046522
046506

046522

TYPE

187

TYPE

025260
025510
046522
046514

NN
— [@XeTs
L NT. JU P YV 1 NN

Qo OB Op OB OO OB OB 0B OB

ooog O VA VAV

[ Lo 0

:CHANGE TO DECIMAL ASCi-

,MABOVE

S"'ABOVE THE MAXIMUM OF'

,ASGOUS
"MSGAVG

UAVGE"

MOV
JSR
JSR

R2,-(SP)
PC.$5820
PC.SSUPRS

MOV

(RG)+,=-(SP)

TYPE
TYPE

48:

*PUT (R&)+ ON THE STACK
SCHANGE TO DECIMAL ASCIZ
-TYPE WITHOUT LEADING ZEROS

PC.$58D

PC.SSUPRS

046556

SMAXE

;ANY SEEKS ABOVE THE HIGM LIMIT

JSR

SEQ 0132

(RG)+

025510

025260

*NO=--BRANCH
STYPE 2 SPACES
*PUT -2(R&4) ON THE STACK

-TYPE WITHOUT LEADING ZEROS

:PUT R; ON THE STACK
TCHANGE TO DECIMAL ASCIZ
*TYPE WITHOUT LEADING ZEROS

:FORM THE AVERAGE

MOV
MOV
JSR
ROL

(RG)+,=(SP)
(R4G)+,=(SP)
PC,801V
(SP)+

;1S THE REMAINDER OVER HALF?

025260
025510

JSR
JSR

PC,$582D
PC.$SUPRS

;CHANGE TO DECIMAL ASCIZ
*TYPE WITHOUT LEADING 2EROS

177776
025260
025510

MOV
JSR
ISR

=2(R&4) ,=(SP)
PC,$SB2D
PC . $SUPRS

JPUT =2(R4) ON THE STA(LK
SCHANGE TO DECIMAL ASCIZ
STYPE WITHOUT LEADING IERQS

BEQ
CMP
BEQ

68
214, 8TSTNM
6%

*BRANCH IF SO
STEST 14 2
*BRANCH IF SO

STYPE IT

MOV
BEQ
CLR
BR

RS,2$
9%
RS
1%

;NEXT MESSAGE POINTER
“1F NONE EXIT
*NO MORE THAN 2

RTS

CEXIT

025652

BPL
INC

001116

000014

001116

104401

046625

104401

046605

010537
001404
005005
000631

031630

000200

L, MSGOUS

046657
177776

000012

106601

(RG)+,-(SP)
PC,$5820
PC.SSUPRS
48
,BLNKS2
22(R4),-(SP)

022737

000402

,ASGOUS
“MSGMAX

BEQ
TYPE
MOV

046522
046657

001407
022737
001403

MOV
JSR
JSR

025260
025510

106401
1064401

0166446
004737
004737

(N
15:01:20 PAGE 14-34

TYPE
TYPE

100001
005216

004737
004737

11-APR-80

046642

TYPE
TYPE

CMP

TYPE

9::

TYPE

8% :

TYPE

9% :
;THIS

SUBROUTINE

5%
(SP)

,M$GOUS
"BLNKS2

#12,8TSTNM
MSGNUM

JMSGSEA

,MSGNON
WILL

INCREMENT

*NO--BRANCH
'YES--ROUND UP

;TYPE 2 SPACES

STEST 12 2

STYPE '‘SEEKS TIMED'
STYPE “'SEARCH TIME"

THE

TRACK

sNUMBER (R2) BY THE AMOUNT SPECIFIED BY 'IT°,
s CALL

;
;

:
020237

001410

002336

INCTRK:

JSR

RETURN1

RO, INCTRX

RE TURN?2
CMP

BEQ

;TRACK NUMBER GREATER THAN LT1S

JTRACK NUMBER INCREMENTEC
R2.LT
2%

;LAST TRACK COMPLETED?
JYES--EX]TY

CZRMVAQ RMOS/3 /2 EXT'D DR TST
INTEGER DivIDE ROUTINE

865
866
867
868

032160
032166
032170
032172

063702
020237
003402
013702

870 032200

000200

869 032176

872

005720

MACRO v03.01

002340
002336
002336

18:

28:

873
874
875
876
877

03220
032206
032210
032214
032220
032222
032226
032230

020137
001410
063701
020137
003402
013701
005720
000200

002330

17,R2
R2,LT
1%
LT, R2

:NO-=UPDATE TRA(K
:TRACK T0 BIG?
INO==EX]T
:YES==SET TRACK TO LAST TRACK

RTS

*RETURN

(RO)+

*ADJUST FOR RETURN 2

RE TURN?

INCCYL:

CMP
BEQ
ADD
(MP
BLE
MOV
181
RTS

002330

1$:
28:

;CYLINDER NUMBER INCREMENTED

R1,LC
2
1C,R
R1,!
1%
Le A
(RO) +
RO

JLAST CYLINDER COMPLETED?
SYES=<EXIT
:NO--UPDATE CYLINDER
:CYLINDER TO BIG?
INO==EXIT
:YES==SET CYLINDER TO LAST
:ADJUST FOR RETURN 2
:RE TURN

;THIS ROUTINE DECREMENTS THE
JCALL
:
CLR
-(SP)
:
JSR
PC,OECSEC

032232
032240
032244
032246
03225«

113766
005366
100003
013766

000207

045564
000002

000002

002456

000002

DECSEC: MOVB
DEC
BPL
MOV
1$:
RTS

:CLEAR THE STACK
: SUBROUTINE ENTRY

RM.REG+RMDA,2(SP)
:PUT THE SECTOR ADDFESS ON THE STACK
2(SP)
:DECREMENT THE ADDRESS
1%
:BR If NOT CORRECTION NEEDED
PRMLMT+24,2(SP) :OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS
PC
*RETURN

;THIS SUBROUTINE 1S USED TO FILL THE DATA BUFFER
:WITH ADDRESSES FROM 0 T0 31 WITH EACH ADDRESS

905

;

RE TURN

FILBUF:

SAVREG
CLR

903
904

:BEING STORED IN 256 CONSECUTIVE LOCATIONS
TALL

38?

908 032256
909 032260

910 032262

104412
005000
012701

912 032272

010021

911 032266
032276
032276
032300
032302
032306

918 032310

g;g 032312
921

012702

005302
003375
005200
023700
103367
104413

000¢07

052776

000400

002456

1$:

28:

JSR

PC,FILBUF

MOV

RO
:aurven RY

MOV

no <a1)o

MOV

DEC
8GT
INC
CMP
BHIS

RESREG

RTS

CYLINDER

SECTOR ADDRESS.

901
902

913
914
915
91¢
917

SEQ 0133

ADD
CMP
BLE
MOV

;

002332
002330

889
890
891
892

895
896
897
898
ggg

0 1
15:01:20 PAGE 14-35

;THIS SUBROUTINE WILL INCREMENT THE CYLINDER
:NUMBER (R1) BY THE AMOUNT SPECIFIED BY 'I(C'.
;s CALL
;
JSR
RO, INCCYL
:
RE TURN1
:CYLINDER NUMBER GREATER THAN LC1S

g;g

880
881
882
883
884
885
886
gg;

11-APR-80

R2
28
RO
PRMLMT +24,RO
18
PC

:SAVE RO - RS
:FIRST DISK ADDRESS

:START FILLING MERE

100 256 WORDS
*STORE

*MORE?
:YES-=BRANCH
:NO-=UPDATE DISK ADDRESS
*DONE?
:NO=--BRANCH
:RESTORE RO - RS

*RE TURN

:THIS ROUTINE WILL CLEAR THE BUFFER BY

CIRMVAQ RMOS/3/2 EXT'D DR TST
INTEGER Oi/IDE ROUTINE

11-APR=-80

E 1N

15:01:20 PAGE

14-36

SEQ 0134

;SETTING _ACH WORD TO “'177400'".

;s CALL
R

JSR

NS
NNO

D —

-t NN
NN

S WOOOOOOOoOoOONINMN
S
&» NN = e e e ek e
b e YN
—
G OMNIMNMNINININNINOOO
—
[V [« JVVT, ST VT VT N1 VT V1 VT NTPST WY, ©)

L5 AN P ANOION)
— —

;
[elelelolelalalalelealololololale]

RETURN

CLRBUF: SAVREG
MOV
Moy
MOV

1%:

MOV
MOV
MOV

MOV
MOV
MOv
MOV
MOV

(mp
BLO

RESREG
RTS

;THIS

ROUTINE

RO, CLRBUF
:SAVE RO - RS
JWORD TO FILL BUFFER WITH

#177400,/1

#BUFFER,R?
JFIRST
#BUFFER+<512.¢32.>,R}

ADDRESS OF BUFFER
JLAST ADDRESS+?2 Of

R1,(R2)¢
R2,R3

BUFFER
sFILL WORDS 1, 9,...249,.. .5625
;FILL WORDS 2,10,...250, ...9626
;FILL WORDS 3,11,...251,. ..5627
sFILL WORDS 4,12....252.. ..5628
;FILL WORDS 5,13,...253,. ..5629
;FILL WORDS 6,14,...256,. ..5830
:FILL WORDS 7.15,...2565,. .. 9631
JFILL WORDS 8.16,...256, ..5632
;DONE?

JRESTORE RO - RS
JRETURN FROM CALL

R1,(R2)¢
R1,(R2)¢
R1,(R2)¢

R1,(R2)e
R1,(R2)¢
R1,(R2)¢
R1,(R2)¢

1S USED

sNO=--BRANCH

TO CHECK

sFOR ADDRESSES O THROUGH

THE

DATA BUFFER

WITH EACH ADDRESS

:%EING STORED IN 256 CONSECUYI.E LOCATIONS
s

OO0OQO0O——

OO0 OO0
—
WO
= O N

OO0

SNSRIV
NION
= LM
AN
NN =2 LN
NN N NN =
N

b=
o

00
02
00

00
02

032456

[eolelelele]
oNONO

922
923
924
925
926
927
928
929
930
931

MACRO v03.01

000004

052776
000002
000020

CALL

CKSCTR:

JSR

RO,CKSCTR

SAVREG
suB
CLR

£4,5P
R1

:SAVE RO - RS
JRESERVE TEMP.
JFIRST SECTOR

CLR
MOV

2(SP)
#$16.,R?

;NO ERRORS
JLOOP COUNT
JGET

1ST

CMP

R1,(RY)¢

JWORD

CMP

R1,(R3)«

JWORD &

RETURN

MOV

1%:

MOV

BNE
(MP
BNE
CMP
BNE

BNE
CMP
BNE
CMp
BNE
o, L
BNE
CMP
BNE

CMP

#BUFFER, (SP)

(SP),R3

7%
R1,(R3)+
7$
R1,(R3)¢
7%

7%
R1,R3)¢
7%

R1,(R3)¢
7%
R1,(R3)

7%
R1,(R3)
7%

BNE

RY1,(R3)¢
7%

BNE

(MP

R1,(RY)

;FIRST

ADDRESS

(16016:256)

JBRANCH [F BAD
JWORD §
;BRANCH [F BAD
JWORD 6
:BRANCH |F
;WORD 7

BAD

;BRANCH IF BAD
:WORD 8
JBRANCH [F BAD

JWORD 9
;BRANCH If BAD
;BRANCH [F BAD

AREA

DATA BUFF ER

ADDRESS OF

;BRANCH JF BAD
:WORD 2
;BRANCH [F BAD
:WORD 3
;BRANCH ]F BAD

;JWORD 10

STORAGE

THIS SE CTORS DATA

(IRMVAQ RMOS/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

963
964
965

966

032460
032462
032464
032466
032470
032472
032474
032476
032500
032502
032504
032506
032510
032512
032514
032520
032522
032526
032530
032534
032536
032544

967
968
969
970
971
972
973 032546
974 032552
975 032556

976 032560
977 032562
978 032564

979 032566

980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998

999

1000
1001
1002
1003
1004
1005

032570
032572
032576
032600
032604
032606
0326.:2
032620
032624
032626
032634
032642
032650
032652
032656
032660
032660
032666
032670
032676
032700
032706
032710
032716
032720
032726
032730

020123
001037
020123
001035
020123
001033
020123
001031
020123
001027
020123
001025
005302
001336
062716
005201
023701
103325
005766
001406
123737
101002

013700
062706
104413
000200
010304
161604

MAPCRO v03.01

2J1000

002456
000002
001462

48:
001117

001346
000004

5¢:
6%:
7%:

010405

006204
0642705
001002
012705
006305
062705
016337
005766
001015
013737
113737
012737
104021
105166
000404

012737

104022
032777
001323

032777

001310
123737
101713
032777
001¢72
000115

15:01:20 PAGE

CMP
BNE
CMP
BNE
CMP
BNE
CMp
BNE
CMP
BNE
CMP
BNE
DEC
BNE
ADD
INC
C(MP
BHIS
181
BEQ
CMPB
BH1

R1, (R34
7%
R1,(R3)+
7%
R1, (R3)+
7%
R1,(RY)+
7%
K1, (R3)+
7%
R1,(R3)+
7%
R2
2$
#512.,(5P)
R1
PRMLMT + 24, R
1%
2(5P)
6%
ERR.CT,SERFLG
6%

MOV
ADD
RESREG
RTS
MOV
SUB

MOV

177740

000040

8$:

032410
177776
000002

001142

045550
045547
032652

001364
001370
001222

000002

9% :

032670

001222

001000

146256

000002

146246

001462

001117

000040

146226

108:
11%:

11-APR-B0

BYPASS,RO
74,5P

R3,R4
(SP) ,R&

R4 ,RS

14-37

SEQ 0135

SWORD 11
:BRANCH IF BAD
*WORD 12
:BRANCH IF BAD
SWORD 13
*BRANCH IF BAD
:WORD 14
:BRANCH IF BAD
*WORD 15
:BRANCH IF BAD
SWORD 16
:BRANCH IF BAD
SFINISHED WITH THIS SECTORS DATA?
:NO=-~BRANCH
;YES==F]RST ADDRESS OF NEXT SECTOR
:MOVE TO NEXT SECTOR
;DONE?
*NO=--BRANCH
*ERROR OCCUR?
*NO=--BRANCH
;MAX. ERROR OCCURRED?
:NO-=-BRANCH
;TAKE ERROR EXIT
JFREE TEMP. AREA
;RESTORE RO - RS
:RETURN FROM (CALL
;FORM WORD NUMBER AND
:ADDRESS TO CONTINUE FROM

ASR
BIC
BNE
MOV
ASL
ADD
MOV
18T
BNE
MOV
MOVB
MOV
EMT
COMB
BR

R&
;WORD NUMBER
#°C37,RS
8$
;BRANCH IF NOT A MULTIPLE
#40,RS
SSET 10 WORD 16
RS
#2%,RS
;ADDRESS
=2(R3),$BDDAT
;SAVE BAD DATA
2(SP)
JFIRST ERROR?
108
-NO--BRANCH
DTADPB*12,CYL.DS
-CYLINDER NUMBER
DTADPB+11.TRK.DS
; TRACK NUMBER
#9%,$ESCAPE
:;ESCAPE TO 9% ON ERROR
21
2(SP)
:SET ERROR SWITCH
1%

MOV

#118,8ESCAPE

EMT
BIT
BNE

BNE
CMPB
BLOS
811
BNE
JMP

22
#5409, 3SWR
5¢

#5W01,3SuWR

4%
ERR.CT,SFRFLG
5¢
#SW.>,aSuWR
{1
(RS)

::ESCAPE

TO 118 ON ERROR

:LOOP ON ERROR?
SYES

;STOP DATA (COMPAKE?

LYES-=BRANCH
;MAX., ERRORS?
:YES=-BRANCH
;REPORT ONLY 1ST
S YES=--BRANCH

ERROR PER SECTIOR?

-4 X0

Z2r~

—

MVAQ RMO5/3/2 EXT'D DR TST

EGER DivIDE ROUTINE
1007
1008
1009
1010

11-APR-80

6 N

15:01:20 PAGE

14-38

SEQ 0136

sTHIS ROUTINE WILL MOVE THME 16 WORDS OF THE
JDESIRED PATTERN INTO THE DATA BUFFER.
s CALL
:
MoV
#NX,RO
;PATTERN NUMBER

}8};

1013 032732
1016 032734
1015 032740

104412
012701
013702

1016 032744

016003

032752

012321

1019 032750

032754

012321

032762
032764

012321
012321

032766

032770
032772
0327764
032776
033000
033002
033004
033006

1020 033010
1021 033014
1022 033016

}852 033020

052776
045542

003520

1$:

MOV
MOV

MOV

MOV
MoV

012321

062702
001353
104413

MOV

MoV

MOV

012321

01231
01231
012321
012321
012321
01231
012321
012321

JSR

SETBUF: SAVREG
MoV
MOV

012321

032756

032760

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000020

ADD
BNE
RESREG

000207

RTS

1025
1026
1027
1028
1029

PC,SETBUF

033022
033024
033030
033034
033036
033042
033042

104412
012701
013702
005046
016003

033050

001042

162321

052776
045542

003520

RE TURN

DATCMP:

SAVREG
MOV
MOV
CLR
MOV

1$:
2%:

SuB

INDEX

;SAVE RO - RS
*FJRST ADDRESS
;WORD COUNT

(R3)+,(R1)+

:MOVE WORD

(R3)¢+,(R1)+

;MOVE WORD 3 INTO DATA BUFFER

PAT.PT(RO),R3
(R3)¢,(R1)¢

(R3)¢+,(R1)

(R3)¢+, (R1)+

(R3)+,(R1)+
(R3)+,(R1)+

(R3)¢+,(R1)+

(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+,(R1)+
(R3)+, (R1)+
(R3)+,(R1)+

#16.,R2
1%

;DONE?

:PICKUP PATTERN POINTER
1

INTO DATA BUFFER

;MOVE WORD 2 INTO DATA BUFFER

:MOVE WORD & INTO DATA BUFFER

;MOVE WORD S INTO DATA BUFFER
JMOVE WORD 6 INTO DATA BUFFER
;MOVE WORD 7 INTO DATA BUFFER

:MOVE WORD 8 INTO DATA BUFFER
:MOVE
:MOVE
:MOVE
;MOVE
;MOVE
:MOVE
;MOVE
:MOVE

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

9 INTO DATA BUFFER
10 INTO DATA BUFFER
11 INTO DATA BUFFER
12 INTO DATA BUFFER
13 INTO DATA BUFFER
14 INTO DATA BUFFER
15 INTO DATA BUFFER
16 INTO DATA BUFFER

:NO--BRANCH
;RESTORE RO - RS

:RETURN

#BUFFER,R1
DTADPB+4 ,R2
-(SP)
PAT.PT(RO),R3
(R3)+,(R1)+

INDEX T0 RO

;:SAVE RO - RS
;FIRST ADDRESS OF
:WORD COUNT
;NO ERROR
:PATTERN POINTER

BUFFER

:CHECK WORD

033044
033046

001044
162321

BNE
SuB

% 3
(R3)+,(R1)+

:BRANCH IF DIFFERENT
;CHECK WORD 2

033052

162321

SuB

(R3)+,(R1)¢

:CHECK WORD 3

BNE

I8 3

033054

001040

BNE

I8 3

033072

162321

SuB

(R3)¢+,(R1)¢

033056
033060
033062
033064
033066
033070

162321
001036
162321
00103«
162521
001032

SuB
BNE
SUB
BNE
SUB
BNE

TO RO

#BUFFER,RT
DTADPB+4 R2

;THIS ROUTINE COMPARES A 16 WORD DATA PATTERN
JAGAINST THE DATA BUFFER
:CALL
:
MOV
#NX,RO
;PATTERN NUMBER
;
JSR
PC,DATCMP

}8;9

1032
1033
1034
1035
1036
1037
10640

MACRO v03.01

(R3)+,(R1)+
33
(R3)+,(R1)¢
X3
(R3)¢,(R1)+
I3

:BRANCH 1F DIFFERENT
;BRANCH IF DIFFERENT

:CHECX WORD 4
;BRANCH IF DIFFERENT
:CHECK WORD S
;BRANCH 1F DIFFERENT
:CHECK WORD 6
:BRANCH IF DIFFERENT

:CHECK WORD 7

CIZRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

033074
033076
033100
033102
033104
033106
033110
033112
033114
033116
033120
033122
033126
033126
033130
033132
033134
033136
033140

001030
162321
001026
162321
0010264
162321
001022
162321
001020
162321
001016
162321
001014
162321
001012
162321
001010
162321
001006

MACRO v03.01

1041
1042
1043
1064
1045
1046
1047
1048
10649
1050
1051
1052

033142
033146
033150
033152
033154
033156
033160
033164
033166
033170
033176
033176

062702
001333
005726
104413
000207
010104
162704
006204
010305
166005
006305
062705

1056
1055
1056
1057
1058
1059
1060
1061
1062

033204
033210
033214
033220
033224
033226
033230
033236
033244

010137
010337
012137
012337
005716
001023
013737
113737
113737

001136
001134
001142
001140
045550
045547
045546

001364
001370
001366

1064
1065
1066
1067
1068
1069

033256
033264
033266
033272
033274
033276

012737
104013
016600
105116
000404

033266

001222

1070
1071
1072
1073
1076
1075
1076
1077

033304
033306
033314
033316
033326
033326
033334
033336

1053 033202

1063 033252

033276

064341

016600

012737

104016
032777
001315
123737
101004
013/66
000705
000115

000020
3s:

052776

003520
033042

000016

15:01:20 PAGE

BNE
SuB
BNE
SUB
BNE
SuU8
BNE
SuB
BNE
SuB
BNE
SuB
BNE
sSuB
BNE
SuB
BNE
Sus
BNE

(3
(R3)+,(R1)e
4%
(R3)+,(R1)+
4%
(R3)+,(R1)+
43
(R3)+,(R1)+
«%
(R3)¢,(R1)
4
(R3)+,(R1)e
43
(R3)+,(R1)+
43
(R3)+,(R1)+
4%
(R3)¢+,(R1)e
4%

5%:

033306

001222

000002

145640

001462

001117

001346

000016

6%:

7%:

8%:

14-39

;BRANCH JF DIFFERENT
;CHECK WORD 8
;BRANCH JF DIFFERENT
;CHECK WORD 9
;BRANCH IF DIFFERENT
:CHECK WORD 10
:BRANCH ]F DIFFERENT
:CHECK WORD 11
;BRANCH [F DIFFERENT
;CHECK WORD 12
:BRANCH IF DIFFERENT
:CHECK WORD 13
;BRANCH JF DIFFERENT
;CHECK WORD 14
;BRANCH JF DIFFERENT
;CHECK WORD 15
JBRANCH IF DIFFERENT
:CHECK WORD 16
JBRANCH JF DIFFERENT

PC
R1,R&
#BUFFER,RG
R&
R3,RS
PAT.PT(RO)
,RS
RS
#2% RS

MOV
MOV
MOV
MOV
1ST
BNE
MOV
MOVB
MOVB

R1,$BDADR
:SAVE THE ERROR INFORMATION
R3,$GDADR
:
(R1)+,$BDDAT
:
(R3)+,3GDDAT
H
(SP)
:1ST DATA (OMPARE ERROR?
6%
:NO=--BRANCH
DTADPB+12,CYL.DS
JCYLINDER
DTADPB+11,TRK.DS
; TRACK
DTADPB+10,SEC.DS
JSECTOR

MOV
EMT
MOV
(OMB
BR

#5%,8ESCAPE
13
14(SP) RO
(SP)
7%

MOV

#7%,8ESCAPE

[ [0]"

EMT
8IT
BNE
(MPB
BHI
MOV
BR
JMP

#16..R2
1%
(SP)+

ADD
BNE
187
RESREG
RTS
MOV
sus
ASR
MOV
SuB
ASL
ADD

ADD

000014

11-APR-80

;DONE ?
:NO=-=BRANCH
:YES == CLEAN UP STACK
;RESTORE RO - RS

;FORM THE WORD NUMBER
;WORD NUMBER
:FORM ADDRESS TO CONTINUE FROM
:ADDRESS

(RS -r1)

JRECONSTRUCT THE BAD WORD

16(SP) RO

;GET TEST P(+¢4

14
#SW01,aSWR
¢
ERR.CT,SERFLG
8%
BYPASS,16(SP)
33
(RS)

:;ESCAPE TO 5% ON ERROR

;PATTERN NUMBER INDEX
JSET THE ERROR SWITCH

:;ESCAPE TO 7% ON ERROR
:STOP DATA COMPARE?
JYES-=EX]T
JMAX. ERRORS?
sNO==BRANCH
JYES=-=-ERROR EXIT

JNO=-=-CONTINUE AT NEXT WORD

SEQ 0137

CIRMVAQ RMO5/3/2 tXT'D DR TST
INTEGER D;ivIDE ROUTINE

MACRO v03.01

11-APR=80

I
15:01:20 PAGE

N
14-40

SEQ 0138

1078
1079
1080
1081
1082

;THIS ROUTINE WILL FILL THE DATA BUFFER (256%22 WORDS) WITH
;A RANDOM PATTERN.
THE FIRST TWwO WORDS OF EVERY 256 WILL
;BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE
;NEXT 254 WORDS.

1084

CALL

}33?

1083

1085

SNOTE:

THIS ROUTINE DESTROYS R1

JSR

RE TURN

1088 033340

012701

052776

FILRAN: MOV

1090
1091
1092
}832

004037
005302
100374
000200

033560

1%:

1089 033344

033350
033354
033356
033360

013702

002456

1095
1096
1097
1098
1099
1100
033362
033366
033372
033376

013746
013746
012702
012701

025646
025650
053776
054776

1108 033404

011237

025650

1110
1111
1112
1113

033416
033422
033426
033432

004037
012637
012637
005046

033560
025650
025646

1115 033436

001441

1117 033446

0646342

1107 033402
1109 033410

11146 033434

1116 033440

1118 033450
1119 033454

1120 033460

112
1122
1123
1124
1125
1126

033464
033470
033472
033476
033500
033502

1127 033504

1128 033506
1129 033510
1130
1131
1132
1133

JSR
DEC
BPL
RTS

RO,FILRAN
#BUFFER,R1

PRMLMT+24 ,R2
RO,RANPAT
R2
13
RO

:MAXIMUM NUMBER OF SECTORS

;THIS ROUTINE USES THE FIRST TWO WORDS OF THE
sREAD BUFFER TO GENERATED A RANDOM PATTERN.
THEN
;THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED.
;NOTE: THIS ROUTINE DESTROYS R1-R4
; CALL
;
JSR
RO,RANCK

}}8;

1103
1106
1105
1106

MOV

AND R?2

033510

033512
033520
033522
033530

010103

016237

000002

;

RE TURN

RANCK:

MOV
MOV
MOV
MOV

MOV

025646

162322

MOV

1%:

R1,R

(R2) , SLONUM

2(R2),SHINUM

BEQ

:NO--BRANCH

ADD

-(RY),-(RD)

SUB

(R3)+,(R2)+

:NO ERRORS
:ARE THESE TWO WORDS DIFFERENT®

#38 ,SESCAPE

;;ESCAPE

010237
010337

001136
001134

MOV
MOV

012337
010204
162704
006204
005716
001002

001140

MOV
MOV
SUB
ASR
TST
BNE

(R3)+,8GDDAT
R2,R&
WBUFFER+512.
R4
R4
(SP)
2%

EMT

MOV

105116

(omMB

104015

104016

032777
00112
123737
101406

’%:
001000

1454634

001462

001117

3%:

INTO R3 FOR LATER USE

:GENERATE A RANDOM PATTERN
:RESTORE PRESENT RANDOM NUMBER

MOV

053776

;PRIME THE RANDOM NUMBER GENERATOR

RO,RANPAT
(SP)+,$LONUM
(SP)+,SHINUM
-(SP)

033512

001142

:COPY

JSR
MOV
MOV
CLR

012737

012237

001222

SHINUM,-(SP)
:SAVE THE PRESENT RANDOM NUMBER
$LONUM,
- (SP)
#BUFFER+S12.,R2 :READ BUFFER ADDRESS
#BUFFER+1024. ,R"
;RANDOM PATTERN ADDRESS

EMT

BIT
BNE
CMPB
BLOS

R2,$BDADR
R3,8GDADR

(R2)+,$BDDAT

(SP)

#5w09,35WR
5%
ERR.CT,SERFLG
5¢

TO 3% ON ERROR

:RECREATE THE BAD WORD
;ADDRESS OF BAD DATA
;ADDRESS OF GOOD DATA

-BAD DATA

;GOOD DATA
:FORM WORD NUMBER

10 25¢)

;FIRST ERROR
:NO==BRANCH

:YES=--SET ERROR SWITCH

:LOOP ON ERROR?
JYES=--BRANCH
;MAX. ERRORS OCCURRED’
:YES==BRANCH

CZRMVAO RMOS5/3/2 EXT'D DR TST
0ivIDE ROUTINE

1134
1135
1136
1137
1138
1139
1140
}}2;

033532
033540
0§3542
033544
033¢46
033550
033552
033556

032777
001002
020103
101333
005726
001402
013700
000200

MACRO v03.01

11-APR-8B0

J
15:01:20 PAGE

BIT
BNE
(MpP
BH1
ST
BEQ
MOV
RTS

#SWO1,aSwR
5¢
R1,R3
1%
(SP)+
6%
BYPASS,RO
RO

000002

(%
5¢:
001346

1143

6% :

;THIS ROUTINE

1144
1145
1146
1147
1148

1151

033560

010246

1153
1154
1155
1156
1157
1158
1159
}}g?

033566
033570
033574
033600
033606
033606
033610
033612

000402
004737
013721
013721
005302
003370
012602
000200

1152 033562

012702

000200
025550
025650
025646

SEG 0139

:STOP COMPARING?
:YES=-=BRANCH
JALL DATA BEEN COMPARED?
*NO--BRANCH
*ERROR OCCUR?
:NO==BRANCH
‘TAKE ERROR EXIT
CEXIT

FILLS A 256 WORD BUFFER WITH A RANDOM

JPATTERN OF WHICH THE FIRST
;OF THE PATTERN.
S CALL
;
MOV
#ADR,R1
;
JSR
RO,RANPAT

}}gg

1
14-41

TWO WORDS ARE

THE BASE

;ADDRESS OF

THE BUFFER

;

RETURN

RANPAT:

MOV

RZ2,-(SP)

;SAVE R?

BR
JSR
MOV
MOV
DEC
BGT
MOV
RTS

28
PC,SRAND
SLONUM, (R1)+
SHINUM, (R1)+
R2
1%
(SP)+ ,R?2
RO

;GENERATE A RANDOM NUMBER
;PUT LOW WORD IN BUFFER
:PUT HIGH WORD IN BUFFER
*DONE?
*NO--BRANCH
:RESTORE R?
CEXIT

1%:
2%:

MOV

#286.72. ,R2

:GENERATE 256 WORDS

1162

sTHIS ROUTINE

1164
1165
1166
}}25

;NOTE:
;CALL
:

THIS ROUTINE DESTROYS R1-R3
JSR
RE TURN

RO, RANADR

RANADR:

JSR
MOvB
MOVB

PC,SRAND
SLONUM,R]
SLONUM+1 R2

;GENERATE A RANDOM NUMBER
;FORM SECTOR IN R1
;FORM TRACK IN R?

TSTB

SENSURE THE SECTOR 1S BETWEEN O AND 31

1163

1169 033614
1170 033620
1171 033624

004737
113701
113702

1173 033634

105701

1172 033630

1176 033636
1175 033640

1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190

GENERATES RANDOM CYLINDER,

TRACK,

;ADDRESSES AND SAVES THEN IN THE DPB (DTADFB+10,

033644
033646
033650
033652
033654
033656
033660
(23664
033666
033670
033672
033674
033700
033702
033704

013703
002403
123701

103003
000241
106001
000772
105702
002403
123702
002003
000241
106002
000772
023703
003«13
000241
006003

025550
025650
025651

025646
002456

MOV
1%:

28:
3:
001372

4$:

5%
002326

6%:

BLT
C(MPB

BHIS
CLe
RORB
BR
TSTB
BLT
C(MPB
BGE
cLC
RORB
BR
CMP
BLE
CLC
ROR

SHINUM,RS

2%
PRMLMT+24 R

R
1%
R2
5¢
LSTRK,R2
6%
R2
43
tC,R3
7%
R3

AND SECTOR

€ DTADPB+12).

*FORM CYLINDER IN R3

;CHECK MAXIMUM SECTOR ADDRESS

;ENSURE

THE

TRACK

IS BETWEEN O AND LAST

TRACK

JENSURE

THE CYLINDER 1S BETWEEN F{ AND (

MVAO RMOS/3/2 EXT'D DR TST
EGER DiVIDE ROUTINE

1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202

033706
033710
033712
033714
033716
033720
033722
033724
033726
033730
033734
033736

1206
1207
1208
1209
1210
1211
1212

033750
033752
033754
033756
033760
033764
033770

1203 033740
1204 033742
1205 033744

}g}z 033774

005503
00137
010103
000303
060203
005203
003366
005403
000762
023703
002003
000241

006003
000772
023703
003403
005203
000303
000764

110137
110237
010337
000200

MAPCRO v03.01

002330

7%:

002326

8$:

045546
045547
045550

9% :

ADC
BNE
MOV
SWAB
ADD
INC
BGT
NEG
BR
CMP
BGE
cLC

ROR
BR
CMP
BLE
INC

SWAB
BR
MOVB
MOVB
MOV

RTS

1215
1216
1217
1218
1219
1220

K
15:01:20 PAGF

1
14=62

R3
6%
R1,R3
R3
R2,R3
R3
6$
R3
6%
LC,R3

R3
143
FC,R3

9%
R3
R3
7%
R1,DTADPB+10
R2,DTADPB+11
R3,DTADPB+12

:SAVE SECTOR ADDRESS
:SAVE TRACK ADDRESS
;SAVE CYLINDER ADDRESS
;RETURN

:THIS ROUTINE 1S USED TO INPUT THE ''CONTROL SWITCMES''.
:1F SWR<07>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW
;SETTING IS READ AND STORED.
sNOTE: THIS ROUTINE DESTROYS R3 AND Ré
:CALL
:
JSR
PC,GETSWR

}%S;

1223 033776

032777

034012

000410

1224 034004
1225 034006

034034

001430
1064401

1226 034034
1227 034040

012703
013706

1229 034050

00077

1228 034044

1230
123"
1232
}%gz

11-APR-80

034052
034056
034062
034066

004037

000240
013737
010437
000207

000200

145150

GETSWR: BIT

034014

::658:

648
:

045702
001316

1%:

034070
001314
001314

RETURN

2%:

#SW07,aSuWR

;READ CONTROL SWITCHES?

BEQ
TYPE

23
,65%

.ASCIZ

<CRLF>/SET SWR<07>=0/

B8R

64%

:NO--BRANCH
::TYPE ASCIZ STRING

+:GET OVER THE ASCIZ

MOV
MOV

MSG.CS,R3
C.SWR, RS

;"'CONTROL SWITCHES="'
:PRESENT CONTROL SWITCH SETTINGS

B8R

; COMMA

JSR

001316

;(C.SWR)=DESIRED CONTROL SWITCHES

NOP
MOV
MOV
RTS

RO, GE TNUM

C.SWR,SAVCSW
R4, C.SWR
PC

:GET THE NEW SWITCH SETTINGS

:PERIOD
;SAVE PREVIOUS VALUE
: DOUBLE PERIOD-SAVE NEW SWITCH SETTING
;RETURN FROM CALL

1235
1236
1237
1238
1239
1240

;THIS ROUTINE WILL TYPE AN ASC1Z MESSAGE AND THEN
;INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL
:1F REQUIRED.
:NOTE: THIS ROUTINE DESTROYS R
s CALL
:
MOV
#ADR,R3
:ADDRESS OF ASCI1Z MESSAGE

1243
1244

;
;

1261
12462

:
:

MOV
JSR

RE TURN!
RE TURN2

INUM, RS
RO, GETNUM

:OCTAL NUMBER

;INPUT TERMINATED WITH A (OMMA
;WITH A PER]IOD

SEQ 0140

CZRMVAO RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

MACRO v03.01

11-APR-8B0

1245

SEQ 0141

;WITH A DOUBLE PERIOD
:R4=INPUT NUMBER AND

: THREE RETURNS

TYPOC
TYPE
ROLIN
MOV
JSR

045725

004037
034074
034074
034136
034162
034170
034134
005301

036340

004037
034074
034156
034154
034152
005720
005720
010204
000414

036600

R&,=(SP)

»SLASH
(SP)+,R1
RO,CK.CHR

sSAVE MESSAGE POINTER

:TYPE

THE MESSAGE

;MESSAGE POINTER GOES HERE
;:SAVE R4 FOR TYPEOUT
;gG? TYPE=-OCTAL ASCII(ALL DIGITS)
;READ AN ASCIZ

:
38

&
£+

~—

8%:
9%:

000056

«,(R1)+

SWAB
ASR

ASR
ASR
RTS

000200

;CHECK THE NUMBER

: JLLEGAL INPUT

;TERMINATED WITH A '',"" OR ''CR"
;TERMINATED WITH A ''."
;TERMINATED WITH A "'.."'

105711
001343

*DECREMENT THE INPUT POINTER

RO, CK.NUM

5¢%:

RETURN

DIGIT 0-9

STRING

;ADDRESS OF FIRST CHARACTER
;CHECK ONE CHARACTER
:ILLEGAL CHARACTER
CARRIAGE

1263 034160
1264 034162
1265 034164
1266 034166
1267 034170
1268 034172
1269 034174
1270 034200
1271 034202
1272 034204
1273 034206
1274 034210
1275 034212
1276 034214
1277 034216
1278 034220
1279 034222
1280 034224
1281
1282
1283
1284
1285
1286
1287
1288 034226
1289 034230

MOV

R3,2%

1262 034156

104401
104411
012601

GETNUM: MOv
1%:
TYPE
2$:
.WORD

034150
1260 034152
1261 0364154

010446
106402

034076

~—

034136
0346142
034144
034146

106401
000000

DO DO T D T A
aid o e W e o s s o et LD 7~
OMNIMNLNVMNL
S O D W0
«sOWVW =PV —-MNUDVD
—
OO
o>
—
—
s
OO

1258 034134
1259 034136

010337

[ X

034070
034074
034076
034100
034102
034104
034110
034112
034114
034120
034122
034124
034126
034130
034132

—

1254
1255
1256
1257

14=-43

;R2=R4*32 FOR ALL

1250
1251
1252
1253

RETURN3

—

1246
12647
1248
1249

L 1

15:01:20 PAGE

;DOUBLE PERIQD

;SINGLE PERIOD

; COMMA-=-SAVE INPUT NUMBER
;60 TO EXIT
sTERMINATOR AFTER

CAPABILITY OF

SPECIFYING WHICH DRIVES

;TESTS TO RUN AND HOW MANY TIMES TO
sREPEAT EACH TEST
104412
005037

001326

GT.PRM:
GT.PR1:

SAVREG
CLR

DRVSEL

COMMA?

JEXIT

sTHIS ROUTINE IS USED TO CHANGE OR MODIFY
1T GIVES THE OPERATOR
sTHE TEST PARAMETERS.
sTHE

;NO--L00P
sYES=<EXIT
;TERMINATOR AFTER A PERIOD?
JYES=-EXIT
;NO--DOUBLE PERIOD?
:NO=--LO0P
;YES==TERMINATOR?
:NO--LOOP
:DOUBLE PERIOD
;PERIOD
:COMMA-=-POSITION THE
+NUMBER IN CASE [T
;1S THE PRIORITY LEVEL

TO TEST,

:SAVE RO - RS

:NO DRIVE SELECTED

WHICH

CZRMVAOQ RMOS5/3/72 EXT'D DR TST
INTEGER DivIDE ROUTINE

034256
1291 034256
1292 034260
1293 034262
034266
034270
034272
034274
034276
034300

1294 034302
1295 034304

1296
1297
1298
1299
1300
1301
1302
1303
1304

034304
034310
034314
034316
034320
034322
034324
034326
034334
034336
034340
034344

034350

034352
034360
034362

1306 034364

034364
034370
034400

7 034400

8 034402
9 034404
0 036410
1 034412

2 034420
3 034622

4 034426
5 034430

6 034434
7 034440
8 034444
9 034450
0 034454

1 034456

2
3
&
5
6

034464
034466
034472
036474
034502

106401
000406

11-APR-80

034242

..65%:
648

005301
012702
004037
034230
034230
034326
034352
034352

156237
105741
001362
005037
005037
000405
156237
104413
000207
106401

000403

m 1
15:01:20 PAGE 14-44

SEQ 0142

036340

QOO0
O0
000000 —0O0—0O—~0O—
OWVMONIOWVMONOOOOOOONON—=O
I
=t it O N == =8 \ N AN AN
=\ b ) =2 NI B
WVINC =N NYO =0 00O NNONONO &
S NWNONIVNO
NI NN NNV OO O —=O —
WSS NN NS NN NN NS =t
N b ed

1290 034234
036240

MPCRO v03.01

000007
036414

TYPE
BR
.AS{1Z
ROLIN
MOV

,65%
649

<CRLF>/DRIVE(S)=

(SP)+,R1

RO,CK.CHR

JSR
GT.PRI
GT.PR1
GT.PR1
GT.PR1
GT.PR1
1$
DEC

MOV
JSR

#7,R2
RO,C(x.DIG

GT.PR1
GT.PR1

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

:READ TTY

:ADDRESS OF

ASCIZ STRING

:CHECK ONE CHARACTER

:ILLEGAL CHARACTER

CARRIAGE RETURN

:DIGIT 0-9
;UPPER LIMIT OF

INPUT

;CHECK THE DIGIT(S)
s ILLEGAL INPUT
: INPUT TO LARGE

sTERMINATED WITH A '','" OR "'(R"'

;TERMINATED WITH A ''."

037054

001326

3s:

TSTNMS

001326

6%
GT.FRZ:

GTTSTI:

034372

2:65%:;

64%:

001330
001332
001334
001336
000123

000777

1$:

GTTSTZ:

001330

000124

036000

1%:

001330

ALL

TESTS

;RESTORE RO - RS

JEXIT

,65%

;s TYPE ASCIZ STRING
;:6GET OVER THE ASCIZ

6498

/TEST=/

., 1(R1)
1%

000002

sDESELECT

1§ 3

000001

JNO-GET THE NEXT DRIVE

TSTNMS+2
GTTSN
JYES-=SELECT TEST
ATABIT(R2),DRVSEL
;SET THE SELECTED DRIVE BITS

(SP)+ R
¥ ., (R1)

000056

ATABIT(RZ2) ,DRVSEL
;SET THE DRIVE SELECTED BIT
-(R1)
LINE TERMINATED?
THE
;WAS

001330
001332
037054

;TERMINATED WITH A "'.."

JREAD AN ASCIZ

sPOINTER T0O R1
;DOUBLE PERIOD?

STRING

;NO=-=BRANCH

2(R1)
GT.PR2

:U'CR'"M?
JYES=-=-EXI]T

TSTNMS+2
OPNFLG

sNO TESTS TO BE OPENED

TSTNMS

OPNFLG+?2
(R1).,#'S

1%
#777,TSTNMS

GTTIST3
(R1),#'7
2%

#36000, TSTNMS

GTTIST3

JNO TEST

SELECTED

sALL SEEK TESTS?
sNO=-=-BRANCH
JYES==SELECT

TESTS 0-10

JALL TIMING TESTS?
sNO==BRANCH
JYES==SELECT TESTS

12-15

s
el
il
D = B
i
D
-l
D
D
D
D
S
D
D
-l
e SD
i
il
D
il
D
=
) =D
el
e
e
e
) —h =
)
)
il
) =l e
)
D il
D
i
D el
i el
ol
=
il e
—

A U U Lt Ut A

Ut U U U G Ui U L Lt U L A W A A L A A W W G Lt U U U U Wt N U U U L L U N U N U U A A AN L L AN NN NN
OO
NNNNAWNVAVNMEELEEAELSLENEITETW WM AN NN N L N NI N
©Oo 0o 00 0o 0o OB 0o W NNNNNNNNOOPTOOOOT
NOWVES NN 2O YO NS NI = OO
~NO W S W =OOVDNO NS WO VDN
NS NN —-O0 CO~NOWN
NP~ O 000

1327 034504

034510
034512
034520
034522
N2.526
034530
034536
034540
034544
034546
034556

o OO0~
00 ~000 —
o QOWVONOWVONIOWVON
(= B ON) ot s ON) b b N b b
WVIOWMNO
=W NO =N~
—
Q=2
= O NI NMONINNWNO
WAL NON NS NN 1Y
~N~

CZRMVAQ RM05/3/ 2 EXT'D DR TST
INTEGER DivIDE R OUTINE

MACRO v03.01

2%:

000101
140000

001332

036264

010237
010204
062704
006204
006204
006204
006302
056264
121127
001060
005201
004037
000640
010205
005201
004037
000405
005201
006305
006305
006305
060502
020227

035010
000017

ASR
ASL

001330

BIS
CMPB
BNE
INC
JSR
B8R

MOV

INC
JSR

036264

INC
ASL

ASL

035010

034732

BIC
ASR
ASR

036264

000022

(R1),#'D
43
#1,TSTNMS+?

:DATA TEST?
:NO==-BRANCH
;YES=-=SELECT

TEST 2C

(R1),8'E

;EXERCISER TEST?

#2,TSTNMS+?2

;YES==SELECT TEST 21

I4 ¥

16 §

;sNO==-BRANCH

RO,CK.OCT
6TTST4
R2,RS
R1
RO,CK.OCT

;0CTAL DIGIT?
:NO=--BRANCH
:YES==SAVE IT
:MOVE TO NEXT CHARACTER
:OCTAL DIGIT

:MOVE

RS
RS
RS
RS,R2

6$%:

000022

001526
000055

TESTS

060502
020227
003263

:YES=~SELECT

GTIST3

5%:

SEQ 0143

;ALL ADDRESSING TESTS?
:NO=--BRANCH

5¢

001332

(R1),#'A
$
#140000,TSTNMS

GTIST3

036264

N 11
15:01:20 PAGE 14-45

GTT1ST3

3%:

000105
000002

CMPB

001330

000104
000001

11-APR-80

:NO==BRANCH

TO NEXT

CHARACTER

$SCALE HIGH DIGIT

:COMBINE HIGH & LOW DIGITS

R2,#22
GTTSTI
R2,9%
R2 .R&

;VALID TEST NUMBER?
:NO--BRANCH
:SAVE THE TEST NUMBER
:CONVERT TEST NUMBER INTO AN INDEX

R4
R4
R4

SSHIFT

(R1),4'~
611574
R1
RO,CK.OCT

:TEST STRING?
:NO--BRANCH
:YES=-MOVE TO NEXT
:0CTAL DIGIT?

R1
RO,CK.OCT

:MOVE TO NEXT
:0CTAL DIGIT?

217 RS

:CLEAR UNWANTED BITS

R2
.
BITS(R2),TSTNMS (R4)

GT1STH
R2,RS
7%

R1
RS
RS

THE BITS

;SELECT TEST

:NO-~-BRANCH
sYES==SAVE IT

CHARACTER

*NO--BRANCH

SYES-=MOVE TO NEXT
:SCALE HIGM DIGIT

CHARACTER

ASL
ADD

RS
RS,R2

:COMBINE HIGH € LOW DIGIT

CMP
BGT
Cmp

R2,#22
6TTSTY
9% ,R2

;VALID TEST NUMBER?
:NO-=-BRANCH
:IS THE FIRST NUMBER OF

BGE

GITST?

SSTRING SMALLER THAN THE LAST?
:NO=--BRANCH

9% ,R2

:GET STARTING TEST NUMBER

MOv
MOV
MOV

R2,-(SP)
(SP)+,9%

THE

:SAVE ENDING TEST NUMBER
:STORE

ENDING TEST

NUMBER

CIRMVAQ RM0S5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

o0
o

Nw
U U W

[o]lelelelelels o

001526
000002
035010
000002

001332

034364
000057

~
NOS~OO

—

o
= AWWNO — W

NSO

g OONCIOO
SOOI

WO
O =Nt
s N O
NON =B NV = O NO NP YD =200
NO
=N

034364
PN ot e vl el e e e el el il il D il D D D el el il e i et O
OO ~N~N~N
O WV
AL S WNNINININ
et 0 OO

—=O OV
NOWVNES WM

1643

001330

Ll W

—
NS i

000037

000054

1644

8%:

000056

074

11-APR-B0

035010

NO WV

—=O OV~ O

006337
006302
010204
042704
006204
006204
006204
006204
056264
062702
020237
101761

001526

NS NN - 200

D
D
i
)
D wd
D
il
D
il

O
aE 2l 2l 2P oW o
W
0 2 3 O OO OO OOOO

il o § el
ol el
el
il
il
D
)
=l
)
D
Sl
=
=l
) ——ld
D
sl
el
il
D
i

400

W
W
Rl al ak el ol ol ol olP ol oI O LI W W
N L AR WM AN NI PO PNV ROV PINININ) bt bt ettt et 2

il
el
el
il
—
—

398 034774
399 035000

s~
eo ol 2
W W
[k o~ L
L L
N —a OOVW®NO

D el

1388 034736

MACRO v03.01

00133¢

ASL
ASL
MOV

ASR
ASR
ASR
ASR
BIS

BIC

ADD
CMP

BLOS
SuB
B8R
9%:
.WORD
GT1S713: INC
GTTIST4: CMPB
BEQ
1ST
BNE
1S7
BNE
JMP
1%:
LMPB
BNE
BIS
BR
2%:
(MPB
BEQ
JMP
1%
INC
1S78

034450
001334

8EQ

001336

034364
000056

034366
001334

GTTSTS:

1%:

001336

034360

034364
001334
c01336

GTTSTG:

JMP
1S7
BNE
1ST
BNE
JMP
INC
CMPB
BEQ
1518

BEQ
JMP
TST
BNE
187
BNE

JMP
INC

1518

BEQ
1%:

B 12

15:01:20 PAGE

JMP
TST
BNE
1S1

14-46

SEQ 0144

;SHIFT ENDING TEST NUMBER

SSHIFT TEST NUMBER

RO R4

#37,R¢

“COPY TEST NUMBER INTO FKé

:CLEAR LOWER BITS

SSHIFT THE TEST NUMBER

R4
R4

BITS(R2),TSTNMS (R4)

SSELECT THE TEST

#2,R2
R2.9%
8$
#2,R2
6TTST4

- INECREMENT THE TEST NUMBER
SSEE IF FINISHED
‘BR IF NGT
SCORRECT TEST NUMBER
- CONT INUE

‘MOVE

RIS

611515
TSTNMS

*STORE TEST NUMBER HERE
TO NEXT

S"PERIOD'"?

CHARACTER

S YES=-BRANCH
SANY

TEST

SELECTED

THIS

CYCLE?

1%
TSTNMS +2
1%

‘BR IF YES
CANY TEST SELECTED THIS CYCLE
‘BR IF YES

(R1),0'/

:'OPEN'"?

6GTTST
2

*NO

*NO--BRANCH

g{TS(RZ), OPNFLG(R&)

SYES--SET BITS FOR TEST TO OPEN

(R1).,0',

;" "COMMA'*?

R
(R1)
48

SMOVE TO NEXT
TUCRTM
:BR IF 'CR’

3
GTTSTY

‘BR IF
*NO

YES
CHARACTER

GTTST2

*NO--GO GET NEXT CHARACTER

OPNFLG+2

TANY TEST®

OPNFLG
OPNTST

OPNTST

61TsT1

R
(R1).8°
6TTST6
(R1)
1%

6TTSTY

OPNFLG

SANY TESTS TO OPEN
:BR IF YES

‘B8R

YE.

SANY

YES

OPNTST

‘BR

YES

GTTSTY
OPNFLG
OPNTST
OPNFLG+2

CHARACTER

TESTS TO OPEN ?

R
(R1)
1%

TO OPEN ?

*MOVE TO NEXT
"'PERIOD'"?
:YES--BRANCH
SUCR'
S YES=-BRANCH
‘BR

61.PR2

*NO--START AGAIN

OPNTST

OPNFLG*2

SANY TESTS TO OPEN ?
*NO--GO START TESTING
“MOVE TO NEXT
TUCRTM
SYES=-BRANCH

CHARACTER

*NO--6G0 ASK FOR TEST
SANY TESTS TO OPEN ?
‘BR IF YES
SANY TESTS TO OPEN °?

CIRMVAQ
INTEGER

DR TST

1645

SO0

VAN
RORININD
NN
—

NN NN

VAMAVILAWLY
PORONONUNY
SN

035222

- UVAWVWVAVAVIW
MWWV
AWVAWAWV.
v 20 Ut Ll (il L ot Ul L e W
8 Ui A
oo N sVl VI LY IV T, N1 NT V]
O O NOSANON—=0O0
NN

(NN NN N N N N NN

013705
006305
013703
042703
006203
006203
006203
036563

104413

00175
1046401
000404

013746

M AN U

104403

035222

OPN.2:

035222
000017

001526

035312

035222

VVWAVWVMWAWVWAWVAWAWVWAL

o
o
N
oW
[ o

MOV
ASL
MOV

14-47

;BR IF YES
:NO==GO START TESTING

OPNTST

GT.PR2

1%:

013716
005004
006216
103403
001772
005724
000773
005764
100«66
1046401

016437

002322

0466657
002464

035432

OPN.?2

GTTIST
OPN.CT,RS
RS
OPN.CT,R3
R3
R3
R3

;SETUP TO USE THE
sTEST NUMBER AS AN INDEX
;GET INDEX
;CLEAR LOWER TEST BITS
JSHIFT

TEST NUMBER

BITS(RS) ,0PNFLG(R3)
JOPEN TH]S TEST?
OPN.1
JNO=-=-MOVE TO NEXT TEST
;. TYPE ASCIZ STRING
.65%
648
;;GET OVER THE AS(CI2Z
/

TEST

.. SAVE OPN.CT FOR TYPEOUT
;.60 TYPE-=OCTAL ASCII

PRMPT (RS) ,RO
(RO),=(SP)
#PRM,R2

;PICKUP PARAMETER POINTER
;SAVE THt VARIABLE INDJCATOR
;FIRST ADDRESS OF TABLt

B8R

ASR

BCS
BEQ

OPNPRM:

MOV

b ¥

002432

;MOVE TO THE NEXT TEST
;TEST NUMBER T00 BIG?
:NO-=0PEN THE NEXT TEST
:RESTORE RO - RS
;YES=-G0 ASK FOR MORE TESTS

:égUPERESS LEADING ZEROS

MOV

2%:

OPN.CT
#22,0PN.CT

2
0

2%:

1%:

;COUNT STORED HERE
;SKIP THE INCREMENT

OPN.2

.BYTE
.BYTE

15T

000771

;START WITH TEST 0

OPN.CT,-(SP)

TYPE
MOV
MOV
MOv

002322

;SAVE RO - RS

(PC)e

MOv

TYPOS

001231
002362

L U

INC
(MP
BGE

BIC
ASR
ASR
ASR
BI7
BEQ
TYPE
B8R
.ASCIZ

001334

L A

«00

OPN.1:

SAVREG
CLR
.WORD
BR

RESREG
JMP

L U
W
N

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497

OPN.(T:

034364

A L A

1485

OPNTST:

000137

AN MM

1483

106412
005027
000000
000611

005237
022737
002003

N AN

elelelelelelelalelela Ndielelel=lelelalel=lolal=laleleloBN

1474
1475
1476
1677
1478
1479
1480
1481
1482

¢ 12

15:01:20 PAGE

;OPEN THE SELECTED TEST FOR (MANGES

AWV
WWNRRNRONNINNIAD
=S, QO NNNOO
WV
© SRS NVOONNOSTO

1455

BNE
JMP

034360

elelololalelolololele BNololalole BNoTolat
e

1453
1454

11-APR-80

SEG 0145

1646

16447
1448
1449
1450
1651
1452

MACRO v03.01

(LR

ASR

,SCRLF

(SP)

OPNPRM
(R2)+
1%
(RO)+,(R2)+
1%
PRM, (SP)
R&
(SP)

BCS
BEQ

b3 3

B8R
1571
BM]

1%
PRMLMT (RG)
OPNPAT

187

TYPE
MOV

OPNPRM
(R4)+

LBLNKS?

PRMMSG(R4)
,48

;. TYPE 2 DIGIT(S)
sCR=L

;CHECK FOR A VARIABLE
.60 MOVE THIS ONE
. DONE
;8UMP THE POINTER
;MOVE THIS VARJABLE
. COMMON AREA

INTO THt

;GET THE VARIABLE INDICATOR
. JERO THE INDEX
;CHECK FOR A VARIABLE
.60 GET |7
;OUT OF VARIABLES
;UPDATE THE INDEX

. 1S THE MAX. MAGNITUDE NEG?
;YES==THEN 1T IS THE PATTERN

;TYFE
;TYE

2 SPACES
THE

NAME

THIS

VARIABLE

ENT.

e e OOOO

VT VYo RVeY

it e ol i sl e e e

Lele LNT. JU P

)
)
il
) Sl
ol
S
i
)
sl

VLIV IV IV IV IV IV IV IV IV IV IV TV )

)

RMO5/3/2 EXT'D DR TST
0iv1DE ROUTINE

035630
035432
035436
0356440
0356444
035450
0354564
035460
035662
035464

104601
000000
104401
016446
0064737
004737
104401
104411
012601
004037

035506
035506
035510
035512
035514
035516
035522
035526

035404
035542
035504
035512
035540
105711
001340
000735
10571
001002
000137
122721
001330

035532
03553«

001326
000137

035540

005301

035542

016402

035470
035472
0354764
035476
035500
035502

035530

035542

035546
035552

oo
N
OONOWMESHWN—O
Wty
NVN=—=OW

D
and
=
sl
e
el el

VAWV
LY

—
il
—
—

WAVOWAWL

035554

J35556
035560
035562

035564
035570

035410

045700
002324
(25260
025510
045725

MACRO v03.01

036340

5% :

6$:
036132
000056

7%:

105711

004037
035410

010264
000705

TYPE
LMORD
TYPE
L[]
JSR
JSR
TYPE
ROLIN
MOy
JSR
b33
2%
9%
5%
6%
8%

036150
8$:

002432

9%:

036414

0D 12

15:01:20 PAGE

(SP)+,R1
RO,(X.CHR

READ AN ASCIZ2 STRING
;CHECK ONE CHARACTER

BNE
JMP

3%
OPN. X2

DEC

MOV

PRMLMT (R&4) ,R?2

(R1)

RO,CK.DIG

b33

002324

10%:

108
OPN.N1
OPN. X1

MOV
BR

SEQ 0146

;TYPE ''=''
;PUT RPT(R&) ON THE STA(K
sCHANGE TO DECIMAL ASCI2
;TYPE WITHOUT LEADING ZEROS
;TYPE ' /7

(R1)
3%
2%
(R1)
7%
OPN.N2
#'.,(R1)
b1

JSR
3%

14-48

0
,MSG.EQ
RPT(R&L) ,-(SP)
PC,85820
PC,8SUPRS
LSLASH

1518
BNE
8R
1518
BNE
JMP
CMPB
BNE

15718

035410

035564
036126
036144

11-APR=-80

;ILLEGAL CHARACTER
sCARRIAGE RETURN
AN
A
L
:DIGIT 0-9

JV'CRTM?
;NO==STAY ON THIS VARIABLE
JYES=--MOVE TO NEXT VARIABLE

:1S THERE A ''CR'' AFTER THE FERIOD?
:NO
JYES==GO CLOSE ThIS TEST
;DOUBLE PER]OD?
:NO=-=G0 ASK FOR TMIS VARIABLE

JYES==]S A ''CR"" AFTER THE DOUBLE PERIOD?
;NO==ASK FOR THIS VARIABLE AGAIN
JYES=-=CLOSE ALL TEST
;BACK THE POINTER UP BY ONE

;UPPER LIMIT OF

JCHECK THE DIGIT(S)
s ILLEGAL INPUT

INPUT

;INPUT TO LARGE

R2,RPT(R4)
2%

;TERMINATED WITH A *',"" OR ''CR"
sTERMINATED WITH A ''."
sTERMINATED WITH A ', .

;SAVE THIS VARIABLE
:MOVE TO NEXT VARIABLE

:OPEN PATTERN FOR CHANGES

035572

104401

046657

OPNPAT: TYPE

,BLNKS?2

;TYPE 2 SPACES

035602

104401

045700

TYPE

L,MSG.EQ

;TYPE ''="'

035576
035606

035612
035614
035620
035622

035626

035630
035632
035634
035636
035640
035642

104401

016446

104402
104401
104411
012601

004037

035572
035370
035666
035570
035644
035664

045674
002324

046660

036340

TYPE

MOV

TYPOC(
TYPE
RDLIN
MOV

JSR

OPNPAT
OPNPRM
Is
NP PRM
d

JMSG.PAT
RPT(R4),=(SP)

,BLNKS]
(SP)+,R1

RO,CKX.CHK

;TYPE "'PAT"’

::SAVE RPT(R&)

FOR TYPEOUT

360 TYPE-=OCTAL ASCIICALL DIGITS)
;TYPE ONE SPAC(CE
JREAD ASCIZ STRING
;PICKUP POINTER

sCHECK ONE CHARACTER
s JLLEGAL (HARACTER
: CARRIAGE RETURN
N
P
>
:DIGIT 0-9

NNV
NN NN
O
W MNIN—
b
N s O et b
- AN
O~NW

OO0O0—O—O
OO0O0O0OOMNO

11-APR-80

1%:

000056

1578

036600

002324

036040

003560

104401

035730

036340

004037
035722
036022
036060
036072
010214
005724
005200
022700
003->32
000726

036600

SEQ 0147

;'CR'" AFTER THE PERIOD?
;YES==60 CLOSE THMIS TEST
;NO--PERIOD?

BEQ
BR
DEC

OPN. X2
OPNPAT
R1

:NO=--L00P
;"'CR'" AFTER A DOUBLE PERIOD?
;YES==G0 START TESTING
NO=--L00P
;BACKUP THE ASCII POINTER

JSR
OPNPAT
3
OPN.NI1
OPN. X1

RO, CK.NUM

s CHECK THE NUMBER

#'.,(R)e

OPNPAT
(RY)

MOV
ROR

; ILLEGAL INPUT

;TERMINATED WITH A '',"" OR "'(R"’

;TERMINATED WITH A ''."

R2,RPT(RG)
R2
OPNPRM

;TERMINATED WITH A ''.."

;SAVE THE INPUT NUMBER
;OPEN PATTERN 0?
;NO-=START AT BEGINNING OF
sSAVE

RO - RS

PARAMETER TABLE

IN PATTERN #0 FOR (MHANGES

CLR

RO
#PATO, R4

;START WITH WORD 0

TYPE

.65%
648

:.TYPE ASCIZ STRING
..GET OVER THE ASCIZ

MOv

BR
LASCIZ
MOv

JSR
JSR

TYPE
MOv
TYPOC

RDLIN

004037
035722
036024
036006
036024
036040
036004
005301

105711

1%:

Q-0
[e]e]e]

010046
004737
004737
106401
011446
104402
1046411
012601

OPNWDS:

6&3: .
[elele]
s ror

000403

14-49

OPN.N?

8((C
SAVREG

005000
012704

£ 12

15:01:20 PAGE

BEQ
(mMPB
BNE
1518

[V IV IV,]

L
LA
ol
——) ——

VALV LV AV ]

——
i
il

(LW LV

MACRO v03.01

;OPEN WORDS

35764

—

- = OQO00O0000Q
QOO
A NWWWHWLWDO

(U IV LV IV IV V]

(¥

[V AV IV IV IV IV IV [V (v IV IV [V 1V IV ]

[elelololololelololalolelolo]
o)

035644

L IRV IV IV IV TV

Vol X
TV TV TV TV T T
OO
NO N

el
il
el
il
el
il
il

N YA Al YAl Al VALV LV LV IV ]
(W IV W
» Lk al >
- OOV®~NO wn &S

—

VIV IV IV IV IV IV TV IV ]

]

CIRMVAQ RMOS/3/2 EXT 'D DR TS7
DivIDE ROUT INE

WD/

RO,=(SP)
PC,$5820

PC,$SUPRS

.MSG.EQ

(R&) ,=(SP)

(SP)+,R1
RO.CK.CHR

;PUT

RO ON THE

STA(K

;}V;E

WITHOUT

LEADING

sCHANGE TO DECIMAL ASCIZ
:

'.:I'

ZEROS

;:SAVE (R&4) FOR TYPEOUT
;360 TYPE=--QCTAL ASCII(ALL DIGITS)
JREAD ASCIZ STRING
JPICKUP THE POINTER
;CHECK ONE CHARACTER
;JLLEGAL CHARA(CTER
;CARRIAGE RETURN
;ll/l'

2%:

;01GIT 0-9
JBACKUP THE ASCI1 POINTER

RO, Cx.NUM

;CHECK THE NUMBER
JILLEGAL INPUT

JTERMINATED WITH A '","" OR "'CR"

sTERMINATED WITH A """
)

3 ¥

R2,(R

6%:

RO
#16.,R0
1%
OPNWDS
(R1)

5%:

000020

(RG)¢

JTERMINATED WITH A """
;SAVE THE INPUT

JMOVE 10 NEXT WORD
JINCREMENT THE COUNT
;COUNT

1O LARGE?

:NO--BRANCH
JYES--BRANCH

;UCR'Y AFTER THE

PERIOQD?

CIRMVAQ RMOS/3/2 EXT'D DR TST
INTEGER CivIDE ROUTINE

?~OOOOO@O@OOOOOONNNNNNNNNNO

036050
036052
036054
036056
036060
036062
036066
036070
036072
036074

036100
036102

036104
036110
036112
036116
036120
036122
036124

000056

036104

104413

036104

7%:

9% :
108 :

BNE

BEQ
BR

MOV

JSR

RESREG

MOV
JSR
RESREG

000422

el
D

012701
005200
022700
002602
012124
000772
000207

003560

010264
005726
004737
000137

00232¢

D
el e
i el
il
el et
il
il

[elelelalelalelelalalole
Lol
OW—=OWOWN
=t b = = O
—_.O =t
O = OO
ML S
S BC
PP N—OWNNS
eleP
lolelalelelelele
e g
—
= BN NN
B NN = O N

036236
036240
036242

CLSWDS:
1$:

28:

036204
035226

002326
036204

000034
034360
001526

OPN.N1:
OPN.N2:

OPN.X1:
OPN.X2:
1$:

2s:

MOV
INC
CMP
BLT
MOV
BR

#'.,(R1)+

14=50

SEQ 0148

;YES==GO CLOSE
*NO--PER10D?

:NO--BRANCH ILLEGAL

(R1)

S'CR'* AFTER

R2. (R4)+

:SAVE

108
1%

PC.CLSWDS

OPN.N2

R2, (RG)+
PC.CLSWOS

OPN. X2

THIS TEST

THE

SYES=-GO START
*NO--L0OP
THE

INPUT

STRING

''PERIOD=-PER;,0D'"?

TESTING

INPUT

:CLOSE THE DATA PATTERN

:RESTORE RO - RS

‘MOVE TO NEXT TEST

SSAVE THE INPUT
:CLOSE THE DATA PATTERN
:RESTORE

SSTART

RO - RS

TESTING

RTS

#PATO,R1
RO
#15. R0
2%
(R1)+, (R4)+
1%

;FIRST ADDRESS OF DATA PATTERN
SCOUNT THE LAST WORD THAT WAS STORED
“END OF TABLE
CYES-~EXIT
:COPY
LOOP

MOV
TST
JSR

JMP

R2.RPT(R&)
(SP)+
PC.CLOSE

OPN. 1

:SAVE THIS VARIABLE
SCLEAN OFF THE STACK
SCLOSE THIS TEST

MOV
TST
JSR

R2.RPT(R4)
(5P) ¢
PC,CLOSE

;SAVE THIS VARIABLE
:CLEAN OFF THE STACK
SCLOSE THIS TEST

CMP

RS #1692

SINDEX T0 BIG?

002322
002362

000001

(RE)+

BLTY

JMP
81T
BNE

61.PR2
BITS(RS),R3
1%

:CLOSE

CURRENT

TEST

CLOSE:

SAVREG
MOV
MOV
MOV
MOV
MOV

#PRM, RO
PRMPT (RS) ,R1
(RO)+,R2
(R1)+.R3
91 ,RG

RESREG

B8R

)

000017

il
i
il
D
et

036204
036206
036212
036216

)

il et

CMPB

8% :

15:01:20 PAGE

BEQ

1518

010264
005726
004737
005725
020527
002403
1064413
000137
036503
001364
000765

i
D el
—

11-APR-80

;CLOSE PATTERN #0 AND SAVE CHANGED WORDS

D el

) el el

it el

D il

D e

il o

e e

VUV (VI IV IV IV IV TV IV, IV TV IV IV 1V TV IV IV IV IV IV IV TV IV IV TV IV IV
ocoocoococococo0cococococooc> 00O
PORUPRINY
—S b b el et e et e =t s O
OOOO0OO0OO0OOVOOVOY
WU = OOV ~NO NS W —=O 0
NO VNN
= OO0 ~NO N
W
= OO0V ~NO NS WA 2O O
NO WV
W
- O

1567 036042
1568 036044

MACRO v03.01

1$:

81T

BEQ
811

BEQ

MOV

BI1

BEQ

*RETURN

260 OPEN THE NEXT TEST

*UPDATE THE INDEX
JNO==-BRANCH
*RESTORE

RO - RS

260 10 EXIT
S1S THIS TEST OPEN FOR CHANGE?
SYES==GO CLOSE 1T

*NO--MOVE 70 NEXT TEST

THAT WAS OPEN FOR CHANGES

R4 .R2

:5AVE RO - RS
*"'FROM'' ADDRESS
270" ADDRESS
:'FROM'' INDICATOR
2'T0" INDICATOR
STEST BIT START A ''RPT"
"PARAMETER TO BE MOVED>

R4 ,R3

“A PLACE

(RO),

R4 ,RS
3

;NO=<BRANCH
(R1)

TO PUT

*NO--BRANCH

IT1?

SYES=--MOVE ''FROM'’ 10 ''10"'

70" PARAMETER?
s NO=-=BRANCH

CZIRMVAQ RMC5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE
D
ol e
i et
)
ol
D e
D
i
il
i
ol il
B e
i
il el el
i
il
il
Gl el

oo>oooro0ro0r0rOrONOCOCOCOCOCOCOCOCOCOCOCO
B8 888 B NN N N N NN NN NN PO NN N
OV
NN~ OOV
NO N
W) = OV~
N

1624 036244

036246
036250
036252
036256
036260
036262

005721

005720
006304
032704
001763
104413
000207

38:
002000

; CALL

e e

187

(R1)+

187
ASL
BIT
BEQ
RESREG
RTS

(RO) ¢
R&
#BIT10,RG
%
PC

MOV

#ADR,R1

RE TURN1
RE TURNZ

JSR

RO,Cx.0CT

121127
103407
121127
101004
111102
042702
007720
000200

000060

(K.0CT:

000067
177770
18:
N

14-51

SEQ 0149

;YES==UPDATE

THE POINTER

;UPDATE FROM POINTER
;POSITION THE TEST BIT
;DONE?
:NO=-=-BRANCH
;RESTORE RO - RS
;RETURN

L
D il sl

036312
036316
036320
036324
036326
036330
036334
036336

121127
103407
121127
10 304
111102
042702
005720
000200

000060

CMPB
8LO
CMPB
B8H1
MOvVB
BilC
187
RTS

;egb DETERMINE
CALL
s
N
MOV

JSR

(R1),#°0
1%
(R, #'7
1%
(R1),R?2
#*C7,R?
(RO)+
RO

RETURN]
RETURNZ

CK.DEC:

CMPB
8LO
(MPB
BHI
MOVB
BIC
187
RTS

000060
1%:

ASCII

sCHARACTER
s CHARACTER

IS NOT BETWEEN 0-7
1S IN R2 AS A

;LESS THAN ZERQ?
;JYES == BRANCH
;GREATER THAN SEVEN?
JYES == BRANCH
;GET THE CHARACTER
;STRIP AWAY THE ASCI]
;ADJUST FOR RETURN
:RETURN

CHARACTER

1S A DIGIT BETWEEN O AND 9.

#ADR ,R1

RO.CK.DEC

(R1),#'0
1%
(RY),#'9
1%
(R1),R?2
#'0,R2
(RO)+
RO

JADDRESS OF

ASCII

CHARACTER

;CHECK THE CHARACTER

JNOT BETWEEN O AND 9
BETUEEN 0 AND 9
;R2= DIGIT
JLESS THAN ZERO?
JYES == BRANCH
JGREATER THAN NINE?
;YES -- BRANCH
;GET THE CHARACTER
JSTRIP AWAY THer ASCII
JADJUST FOR RETURN
JRETURN

;THIS ROUTINE WILL CHECK AN ASCII1
;DETERMINE WHAT IT IS.

s CALL

CHARACTER

;CHECK THE CHARACTER

IS USED TO CHECK AN ASCII

.
.
H

000071

;ADDRESS OF

JOCTAL DIGIT

sTHIS ROUTINE

;

il e
el
il il il el el
il el
el
D
i
il
- ——d —
i
)
)l
il
)

15:01:20 PAGE

;

650

6 12

11-APR-80

:TAIS ROUTINE IS USED TO CHECK IF AN
¢ASCI] CHARACTER IS A DIGIT BETWEEN O AND 7.

036264
036270
036272
036276
036300
036302
647 036306
gzg 036310

[o Yo ¥ o Yo Xe Yo Ne To No Yo No No No Fo Fo Xo To Xo Fo Feo Fo Jo Jo No Xo Yo To Yo Ko To
W NNNNNNNNNNOOCOOPOOTOOOONNNNVNNNNL
OOV
NO NS NN —= OOV - yO N
NN = O 000 ~NO NI

MACRO v03.01

CHARACTER T0

MOV

FADR. R

JADDRESS OF ASC:] CHARACTER

;
:
:

RETURN
RETURN
RETURN

ADR1
ADR?
ADR3

JUNKNOWN CHARACTER
JCARRIAGE RETURN » (R1)=ADR+1
JSLASH * (R1)=ADR+]

RETURN

;

;
:

;

JSR

RETURN

RO,CK.CHR

ADR4

ADRS

ADRé

;CHECK CHARACTER

;COMMA *

(R1)=ADR+1

PERIOD * (R1)=ADR+1

DIGIT BETWEEN O AND 9.

;R = DIGIT

(R1)=ADR+1

2r~

— 20

1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696

TS7T

MACRO v03.01

11-APR-80

(K.CHR:

000057
000054
000056

036312

036376
036400
036402
0364604
036406
036410
036412

1%:

2%:
3%

5¢%:

000200

1ST8
BEQ
(MPB
BEQ
(MPB
BEQ
(MPB
BEQ
JSR
BR
187
153

187
TST

TST
INC

MOV

RTS

H 12
15:01:20 PAG E 14- 52

Sea 0150

(R1)
6%
(R1), 8/

;"'"CARRIAGE RETURN'"?

(R1),0°,

;"'COMMA'"?
JYES == BRAN(H
;"'PERIOD'"?
:YES == BRAN(CH

(RV) o',
1%
RO,Cx.DEC

(RO)¢
(RQ)+
(RO)¢+
(RO)+
(RO)+
R1
(RO),RO
RO

L SLASH'"?

‘YES == BRANCH

JUDI6IT?

;NO == BRANCH
;DIGIT BETWEEN 0-9
sPERIOD
; COMMA
« SLASH
:CARRIAGE RETURN
;MOVE

POINTER

TO NEXT

sUNKNOWN CHARACTER

CHARACTER

JRETURN

TR
IR

ONOWVS
W —=OO

PONOMNOMNORNON)
—
WML
— OO

NNSNSNSNNNNNN
e el el el el e s e O
NNNNNNN

) wul

—

sTHIS ROUTINE CHECKS AN ASCII1 STRING FOR LEGAL
:CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER [N RZ2.
: CALL
#ADR,R1
;ADDRESS OF ASCIZ STRING
MOv
.

—

MVAQ RMOS5/3/72 EXT'D DR
EGER C.vIDE ROUTINE

036414
036416
036420
036422
036424
036426
036430
036434
036436
036440
036442
036444
036446
036450

036452
036454
036456
036460
036462
036464
036470
036472
036474
036476
036500
€36502

010446
010346
010246
0050u¢
005003
005004
004037
036564
036564
036564
036564
036564
036450

006303
010346
006303
006303
062603
060203
004037
036564
036504
036564
036512
036510
036450

(K.DIG:

MOV

JSR
RETURN
RETURN
RE TURN
RETURN
RETURN

MOV

MOV
MOV

CLR
(LR

036340

#NUM R?
RO,(x.DIG
ADR1
ADR?2

ADR3
ADR4

ADRS
R4 ,-(SP)

R3,-(SP)
RZ,-(SP)
R2
R3
R4

RO,C(X.(HR

;MAX,

MAGNITUDE

;CHECK DIGITS

INPUT

:JLLEGAL CHARACTER =-- RZ2:=?
: INPUT NUMBER TO LARGE == R¢=?

;"'COMMA'' == R2 = NUMBER
JU'PERIOD' == R2 = NUMBER

;''PERIOD=-PERIOD'' == R2 = NUMBER

;SAVE R4

;SAVE R3
:SAVE

THE MAX.

;START WITH O

SIZE

ON THE

sCHECK ONE (HARACTER

;ILLEGAL CHARACTER

;CARRIAGE RETURN
.ll/'l

1%:

Egicll 0-9

ASL

“SAVE #2
.6

036340

(SP)+,R3
R2,R3
RO,CK.(HR

NUMBER

S(eB)e(22)=010.

JUPDATE THE INPUT NUMBER
JCHECK ONE CHARACTER
;s JLLEGAL CHARACTER
: CARRIAGE RETURN
/

[

0iGIT 0-9

STACK

N —
N
N2 OOV
NO VNS NN —O OB NO VSN = OO0~

D el cond el
nd
il il
ol e
D
) el
el
il
D e el
il el
D
D =l
i
D S
D ek
=l
) =
)

[+ Y+ Y- VAV IVCAVAVAVAV IV IV VT 08 oF 2

NN SN SN N TN SN SN SN SN TN N TN SN SN

)
=l el e
) =l
= ——
)
)
—

N SN SN SN SN SN NN N N N
NNV~~~
W A N N A A N L L U N L A NN N

RM05/3/2 EXT'D DR TST

D./1DE

ROUTINE

036504
036506
036510
036512
036514
036520
036522
036524
036526
036530
036532
036534
036536
036540
036542
036544
036552
036554
036556
036560
036562
036564
036566
036570
036572
036574
036576

005301
000401
005724
005724
004037
036564
036554
036564
036564
036534
036544
0057264
10571
001405
000410
126127
001004
020316
101001
060400
005720
010302
005726
012603
012604
011000
000200

MACRO v03.01

11-APR-B0

2%:

38:
6$:

036340

5%:

177776

000054

68%:

7%:
8%:
9% :

sTHIS

DEC
BR
18T
TS1
JSR
9$
78
9$
9¢
5%
63
187
1878
BEQ
BR
(MPB
BNE
CMP
BH]
ADD
TST
MOV
TST
MOV
MOV
MOV
RTS
ROUTINE

15:01:20 PAGE

14-53

R1
3)
(RG) ¢
(R&) ¢
RO,CK.CHR

;BACKUP THE CHARACTER POINTEF
s CONTINE
;"'PER]OD"’
;"'COMMA’’ OR ''CR"’
: CHECK ONE CHARACTER
:ILLEGAL CHARA(CTER
: CARRIAGE RETURN
AN
P
B
;DICIT 0-9
;"'PER]OD=-PER]OD"'
;R
;YES=--BRANCH

(RG)+
(R1)
7%
9%
-2(R1) 0",
9%
R3,(SP)
8%
RG ,RO
(RO)¢
R3,R2
(SP)+
(SP)+,R3
(SP)+, R4
(RO) RO
RO
CHECKS

ASCIZ

SEQ 0151

;WAS CHARACTER BEFORE THE DIGIT A COMMA®
sNO=<EX]T
JINPUT TO LARGE?
JYES == BRANCH
;ADJUST RETURN ADDRESS

;NUMBER T0 R?2
sCLEAN MAX, SIZE OFF
:RESTORE R3
;RESTORE Ré&
;GET RETURN ADDRESS
;RETURN
STRING

FOR

LEGAL

STA(K

CHARACTERS

;AND FORMS AN OCTAL NUMBER IN R?

sCALL:
H

MOV

#ADR,R1

JADDRESS Of

;
:

RETURN
RETURN

ADRI
ADR?

sILLEGAL CHARACTER [N THE INPUT
;"'COMMA’’ OR ''CR''==R2=NUMBER

;

RETURN

;
;

036600
036602
036604
036610
036612
036614
036616
036620
036622
036624
036626
036630

036632
036636
036640
036642
036644
0366646
036652

010346
005003
004037
000440
005201
006303
103435
006303
103433
006303
103431
060203

004037
000401
000764
010302
005u03
006037
036712

036264

RETURN

(K.NUM: MOV
CLR
JSR
BR
1%:
INC
ASL
BCS
ASL
B8CS
ASL
B8CS
ADD

2%:
036340

JSR

JSR
BR
BR
MOV
(LR
JSR
63

RO,CK.NUM
ADR3

ADR4

R3,-(SP)
R3
RO,Cx.0OCT
6%
R1
R3
6%
R3
6%
R3
6%
R2.R3

RO,Cx.0OCT
2%
1%
R3,R2
R3
RO,(K.CHR

ASCIZ

STRING

;G0 FORM THE NUMBER

;"'PER]OD''==R2=NUMBER

;"'PERIOD=-PERIOD''==R2=NUMBER
s SAVE R3
JSTART NUMBER AT ZERO
JOCTAL DIGIT?
JNO--BRANCH
sMOVE TO NEXT CHARA(CTER
;FOR THE OCTAL NUMBER [N R3
JDON'T LET IT GET 10 BIG

;IS THIS AN OCTAL DIGIT?
sNO=-=F IND QUT WHAT T IS
sYES=-MAKE ]T PART Of THE NUMBER
;SAVE THE OCTAL NUMBER
JSTART WITH ZERO INDEX
JCHECK ONE CHARACTER
s ILLEGAL CHARA(CTER

STRING

CZRMVAQ RMO5/3/2 EXT'D DR TST
INTEGER DivIDE ROUTINE

036654
036656
036660

036662
036664

1776 036666

1777
1778
1779
1780
1781
1782
1783
1784
1785
1786

036670
036674
036676
036700
036702
036704
036706
036710
036712
036714

1787 036716

MACRO v03.01

036702
036712
036702

121127
001002
005201
005723
005723
105711
001001
060300
012603
011000

000200

15:01:20 PAGE

5%
6%
5%

036666
036712

005723

11-APR-80

000056

4%:
9%:

6% :

18T

(MPB
BNE
INC
187
187
1S18
BNE
ADD
MOV
MOV
RTS

14-54

:CARRIAGE RETURN
AN
[

b33

L
:DIGIT 0-9

(R3)+

:"'PER]OD'’

:RETURN

(R1),2°
5%
R1
(R3)+
(R3)+
(R1)
6%
R3,RO
(SP)+,R3
(RO),RO

:"'PER]IOD=PERIOD'"?
;NO=-=BRANCH
JYES==ADVANCE THE POINTER
;'PERIOD=PER]IOD'’
:'COMMA"’
JV'CR'"?
;NO=-BRAN(CH
YES-=SAVE THE OCTAL NUMBER
;RESTORE R3
;PICKUP EX]T ADDRESS

SEQ 0152

CZRMVAO RM0S5/3/2 EXT'D DR TST
—

SINGLE/DLAL PORT RH/RM DRIVER

MACRO v03.01 11-APR-80
(REV 6.2) 1980

.SBTTL

12
15

SEQ 0153

SINGLE/DUAL PORT RM/RM DRIVER

(REV 6.2)

1980

O NS

sNEW DRIVE TYPE ID FOR RMQ2 reeveeneer
:10-AUG=77 weeessveene

;10-MAR-78 THE SC, SCS C(HANGES
JNEW DRIVE TYPE ID FOR RMOS eeeerennnr

NN =2 O000

;1980 vreennnnner

o ed ed e ad

;COPYRIGHT (C) 1977
:DIGITAL EQUIPMENT CORP.

:MAYNARD, MA 01754
;AUTHOR(S): JIM LACEY/CHUCK HESS/

b b b e

.';"".'.t...""""""'t""'t"'"t.""'.""'.'."'.'."Q"

:STORAGE FOR RMDS,

VOO

O 0o NOWVS AN =O

NN PO PRI NI NI NI NIND b

K
15:01:20 PAGE

RMER1, RMER2,

AND RMMR2 ON AN ERROR '‘2''

¢RMERRS
= RMDS
;RMERRS+2 = RMER]
RMERRS+4 = RMER?

:RMERRS+6 = RMMR2

036720

000000

RMERRS:

.WwORD

0,0,0,0

;TABLE OF DRIVE ACTIVE

INDICATORS

(DRVA(T=8 BYTES?

:DRVACT=0 If DRIVE IS IDLE
;DRVACT>Q IF DRIVE IS ACTIVE WITH A COMMAND
;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERAT]ON

036730
036731
036732
036733
036734
036735
036736
036737

DRVACT:

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
LBYTE
.BYTE

O
0
0
0
0
0
0
0

;DRIVE
LDORIVE
;DRIVE
;DRIVE
;DRIVE
sDRIVE
;DRIVE
;DRIVE

0
1
2
3
&
§
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)

;DRVSTA=0 If DRIVE IS OFFLINE OR NONEXS]ITENT
;DRVSTA>Q IF DRIVE IS ONLINE
;DRVSTACO IF DRIVE IS UNSAFE

036740
036741
036742
036743
036744
036745
036746
036747

DRVSTA:

.BYTE
.BYTE
BYTE
.BYTE

.BYTE
BYTE
.BYTE
BYTE

0
0
O
0

0
0
0
O

:DRIVE 0
;DRIVE 1
;DRIVE ¢
;DRIVE 3

;DRIVE &
;DRIVE 5
;DRIVE 6
:DRIVE 7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;DRVIYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
;DRVTYP=7 IF DRIVE IS RMQS weeens
;DRVTYP=5 IF DRIVE IS RMQ2 wewvnr
;DRVTYP=4 IF DRIVE IS RMO3
;DRVTYP==1 |f NOT RM0S5/3/2

CZRMVAO RM05/3/2 EXT'D DR TST

NOWNLE
NN — O

NNN NSNS NN
VAV AV IV VAV AV AV Y

N AN

oooooo0rOrOr

[efololeolelalel]

50
5
54

N N

SINGLE/DUAL PORT RH/RM DRIVER

MACRO_Vv03.01 "71-APR-80
(REV 6.2 1980
DRVTYP:

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

15:01:20 PAGE

SEQ 0154
0

.BYTE

BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

:DPINT=0 IF
;DPINT<O IF

DPINT:

;DRIVE 0

0
0
0
0
0
0

;TABLE OF DUAL PORT

036760
036761
036762
036763
036764
036765
036766
036767

12
15~}

;DRIVE

1
2
3
4
§
6
7

INITIALIZATION INDICATORS

INITIALIZATION IS NOT ACTIVE ON THE DRIVE
INITIALIZATION IS IN PROGRESS

;DRIVE 0

0
0
0
0
0
0
0

;DRIVE
:DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;TABLE OF PENDING DUAL PORT REQUESTS
;DPRQS=0 IFf

THAT

A DUAL PORT REQUEST

IS NOT PENDING FOR THAT DRIVE

:DPRQAS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE
036770
036771
036772
036773
036774
036775
036776
036777

DPRGS:

.BYTE
QYTE
8YTE
.BYTE
.BYTE
.BYTE
.BYTE
By1t.

sTRANSFER WAIT

0
0
¢C
O
0
0
¢
0
FLAG

;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
DRIVE
;DRIVE
(TRNSWT=1

WORD)

¢THIS IS A ONE WORD QUEUE.

0
1
2
3
4
5
6
7

IT WILL CONTAIN THE ADDRESS Of

:"'DPB'* OF THE 1/0 OPERATION.
037000

000000

TANSWT:

.WORD

sSEARCH WAIT KEYS (SRCHWT=1 WORD)

sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH Of
sTHE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0

¢REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.
;EACH DRIVE 1S ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.
037002

000000

SRCHWT:

.WORD

;RM DRIVER ACTIVE FLAG

(ACTDRvV=1

BYTE)

;ACTDRV=0 IFf DRIVER IS INACTIVE
;ACTDRV>0 IF DRIVER IS ACT]VE

037004

v00

ACTDRvV:

.BrTE

;SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)

CZRMVAQ RMO5/3/2 EXT'D DR TST

SINGLE/DUAL PORT RK/RM DRIVER

MACRO_v03.01 11-APR-80
(REV 6.2) 1980

95
39

;ACTSTR=0 IF
ACTSTR>0 IF

gg 037005

000

100
101
102

000
000
000
000
000
000
000
000

110

e
d
i
ol
i
D e
D e
e
e
e
el
e
e

ULDFLG:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0
0

0
0
0
0
0
0

;DRIVE
JDRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
JDRIVE
;DRIVE

0
1
2
3
&
5
6
7

(LACNT=8 BYTES)

sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

113 037016
116 037017

;LOOK AHEAD COUNT

}};

b et e

.BYTE

SOF TWARE TIMER RGUTINE ]S INACTIVE
SOF TWARE TIMER ROUTINE IS ACTIVE

;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

105 037006
108 337007
037010
037011
037012
037013
037014
109 037015

S5 W
U W N NN NI NI NI NN NN NI NO N = = 2
ONOWVESWN—=OWVBNOWVMEB
WA =0V~

ACTISTR:

SEQ 0155

;UNLOAD FLAG (ULDFLG=8 BYTES)
;ULDFLG=0 IF NO UNLOAD COMMAND
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS

}82

—

M1
15:01:20 PAGE 15-¢

037020
037021
037022
037023
037024
037025

000
000

LACNT:

000
000
000
000
000
000

.BYTE
BYTE

.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

0
0

0
0
0
0
0
0

;DRIVE O
;DRIVE 1

:DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE

2
3
&
5
6
7

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)
;SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE
;OPERATION IS COMPLETED AS PER (DPB+14).

:SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER
; (DPB+14),

037026

000000

SAVEFG:

.WORD

AFTER AN ERROR.

;SEEK FLAG (SEEXKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
sFOR A DATA TRANSFER START A SEARCH COMMAND
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD . {E WINDOW
037030

177777

SEEKFG:

.WORD

-1

s TIMEOUT TABLE (TIMER=8 WORDS)
¢THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
037032
037034
037036
037040
037042
037044
037046

177777
177777
177777
177777
177/77
177777
177777

TIMER:

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

-1
-1
-1
-1
-1
-1
-1

;DRIVE
;DRIVE
:DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
¢
3
&
5
6

CZRMVAO RMO5/3/2 EXT'D DR TST

NI NN —
AN = OO0~
~NO WV
NO WS NN = OV
—=O VO NOWVEB NN = OOV
NOWVE W
O WVEH W= OV

— el el

)

il o

O OO OO0V

)

MWOOOOOB

D el —D el

) =

B =

il s

D e

el el e

il el el

el e

)

D el el

NN NNNNNNNYNNOOCOOOCTOOOO
VNV
NES DL

SINGLE/DUAL PORT RH/RM DRIVER

037050

MACRO v03.01

(REV 6.2)

1980

N 12
11-APR-80 15:01:20 PAGE 15-3

177777

.WORD

-1

SEQ 0156

;DRIVE 7

:DATA TRANSFER UNDERWAY

INDICATOR (DTUW=1 WORD)

;DTUWCO IF Nu DATA TRANSFER UNDERWAY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

037052

177777

DTUW:

.WORD

;ATTENTION BITS TABLE

(ATABIT=8 BYTES)

:THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES
;ATTENTION BIT

037054
037055
037056
037057
037060
037061
037062
037063

001
002
004
010
020
040
100
200

ATABIT:

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

1
2
&
10
20
40
100
200

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
4
5
6
7

:FSRM TO RH11/RH70 ''MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE)

sCALLING IT FATAL (MCPEMX=1 WORD)
037064

000003

MCPEMX:

.WORD

:STORAGE

;RMVEC

(THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

FOR RMADR

RMADR:
RMVEC:

.WORD
.WORD

037066
037070

176700
000254

037074

000004

:MAXIMUM NUMBER OF
MXLACT: .WORD
&

037076

001000

MXDLTA:

037100

000200

MNDLTA:

037102

000005

MXWNDW:

000240

ALLOWED BEFORE

(THE

FIRST

ADDRESS

(776700)

THE RH/RM),

176700 254,5+32.

LOOK AWEADS ALLOWED IS &

(MXLACT=1 WORD)

;MAXIMUM DELTA DELAY 1S B SECTORS (MXDLTA=1 WORD)
.WORD
8.+64.
;MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD)
.WORD

2%64.

;MAXIMUM SEARCH FOR

.WORD

1/0 WINDOW

IS 5

SECTORS

(MXWNDW=1

WORD)

SDEFINITIONS OF THE RH/RM ADDRESS INDEXES
000000
000002
000004
000006
000010
000012

RMCS1=0
RMW(=2
RMBA=4
RMDA=6
RM(S2=10
RMDS=12

:CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
;WORD COUNT REGISTER (NOT A DRIVE REG)
;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
:DRIVE STATUS REGISTER (DRIVE REG 01)

000022
00002¢

RMDB=22
RMMR1=24

¢DATA BUFFER REGISTER (NOT A DRIVE REG,)
SPAINTAINABILITY REGISTER (DRIVE REG. 03)

000014
000016
000u20

RMER1=14
RMAS=16
RMLA=20

;ERROR REGISTER #1 (DRIVE REG, 02)
;ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04)
;LOOK AHEAD REGISTER (DRIVE REG. 07)

CIRMVAO RMOS5/3/2 EXT'D DR TST

SINGLE/DUAL PCRT RH/RM DRIVER

MACRO v03.01

(REV 6.2)

1980

8 13
11-APR-80 15:01:20 PAGE 15-¢4

SEQ 0157

197
198
199

000026
000030
000032

RMDT=26
RMSN=30
RMOF =32

;DRIVE TYPE REGISTER (DRIVE REG. 06)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)

203
204

000042
000044

RMER2=4?
RMEC1=44

:ERROR REGISTER #2 (DRIVE REG. 15)
;ECC POSITION REGISTER (DRIVE REG.

200
201
202

%82

000034
000036
000040

RMD(C=3¢4
RMHR=36
RMMR2=40

000046

;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
;DUMMY ADDRESS REGISTER (DRIVE REG.
13)
sMAINTENANCE REGISTER #2

RME(C2=46

;ECC PATTERN REGISTER (DRJVE REG.

16)

17)

%8;

.SBTTL

209
210
PAR
%}%

;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
sAVAJLABLE FOR TESTING AND SET THE DRVSTA INDICATOR
;70 THE PROPER STATE FOR EACM DRIVE.
sNOTE: THIS ROUTINE CALLS DRVINT

214
215
216

CALL
:
.

PETURN

%}8

;sNOTE:

THE

RMIN]T:

SAVREG
MOV

PS,=(SP)

;SAVE RO - RS
;SAVE THE PRFSENT PROCESSOR STATUS

JSR
MOV
MOV
CLR
CMP
BLO

PC,CLRQUE
#RHERRS,RI
#SEEKFG,R2
(R1)+
R1,R2
1%

;sCLEAR ALL REQUEST QUEUES
JFIRST ADDRESS TO BE CLEARED
:LAST ADDRESS TO BE CLEARED
;CLEAR
;ARE WE DONE?
;BR IF NO

MOV
CMP
B8LOS
CLR
CLR
CLR
CLR
MOV
MOV
MOV
MOV
MOV
(LR

#-1,(R1)+
R1,R2
2%
DRVSTA
DRVSTA+2
DRVSTA+4
DRVSTA+6
RMVEC,R3
ISR, (R3)+
RMVEC+2,(R3)
RMADR R4
#CLR,RMCS2(R4&)
R1

JINITIALIZE
;DONE?
;LOOP IF NO
JSET ALL DRIVES TO OFFLINE

%}g

221 037104
222 037106

104412
013746

224 0371%0
225 0371264
226 037130
227 037134
228 037136
229 037140

004737
012701
012702
005021
020102
103775

231 037146
232 037152
233
234
235 037162
236 037166
237 037172
238 037176
239 037202
240 037206
241 037212
242 037216
263 037224

012721
020102
101774
005037
005037
005037
005037
013703
012723
013713
013704
012764
005001

223 037112

230 037142

264 037226

265 037232
246 037234
247 037236
248 037242
249 037244
250 037250

251 237252

252 037256
253 037262

012737

012702

004037

000401
000402
105061
005201
042701
001366

012701

005037
105761

177776

000240

044772
036720
037030

177776

1177777

036740
036742
036744
03674¢
037070
041740
037072
037066
200040

2%:

000010

037316

38:

036740

4
5¢:

177770

000007
177776
(36760

JSR

'P'

MOV

1%:

037052

RM/RM DRIVER INITIALIZATION CODE

MOV

JSR

BR
BR
CLRB
INC
B8IC
BNE

MOV

6%:

(LR
1578

PC,RMINIT
OR

‘L'

CLOCK MUST BE

l<§-32 >,PS

#OTUW,R?2

RO,DRVINT

43
5¢
DRVSTA(RY)
R1
#4C7,R1
3%

’”7,R1

PS
DPINT(RY)

STARTED

;CHANGE THE PRIORITY T0 S

:LAST ADDRESS

:SETUP THE RM/RM VECTOR
:FIRST ADDRESS OF RM/RM
:MASSBUS INIT
:START WITH DRIVE O
;INIT THE DRIVE

;'DVA' NOT SET OR PARITY ERROR
:NORMAL RETURN
JSET DRIVE STATUS TO OFFLINE
;60 TO NEXT DRIVE
JMASK OUT UNUSED BITS
;BR IF MORE DRIVES T0 GO

;START WITH DRIVE 7

sCLEAR THE PROCESSOR STATUS
;WAITING FOR DRIVE 10O SWITCH PORTS ?

CIRMVAQ RM0S5/3/2 EXT'D DR TST
INITIALIZATION

(W IV

~NO
oo

~nonY

VLV VTV VLV ) w
NNNSNNNNN N

olelololelelolols)

RH/RM DRIVER

001405
004737
105761

001375
005301

100366

012637

1046613
000207

CODE

MACRO v03.01

11-APR-80

15:01:20 PAGE

BEQ
JSR

044426
036760
8%:
177776

15-5

;BR NOT WA]ITING
JSET INTERRUPT
;ORIVE SWITCHED PORTS ?
;BR ]F NOT
;60 TO THE NEXT DRIVE
;CHECK NEXT DRIVE

PC,SET.IE

DPINT(RT)
7%

1518
BNE
DEC
BPL

MOv
RESREG

(SP)+,PS

JRESTORE

THE

PROCESSOR

JRESTORE RO - RS

RTS

STATUS

;BYE-BYE

;DRIVE INITIL 12
;THIS ROUTINE 0

ROUT INE
NES l
A DRIVE EXIST AND IF IT IS
S, A 'READ=IN PRESET'' ]S ISSUED AND FMT16
NM OL, DPR, DRY, AND vV ARE CHECKED TO
0 N AT, AND DEPENDING ON THEIR STATE,
- -

;AN RM05/3/2.

SEQ 0158

]

s CALL

MOv
MOv

JSR

RETURNI
RE TURN?

037316
037320
037324
037330
037334

036740
036750
037006
000010
000111
010000

DRVINT:
DULP:

105061

032764
001750
004037
000026
037650
012605
112761

022705

036740
004000

000900
000010

000000

043736

CLRB
CLRB

8lT
BEQ
JSR

1%:

036750

000005
020025
0246025

000007
020027
024027

036750

RS,=(SP)
DRVSTA(RY)
DRVIYP(R1)

:SAVE RS

RO,DRVINT

ULDFLG(RY)

1%
PC,SET.IE

DRVSTA(R1)

JSR

RO,RD.RM

MOV
MOvB

(MP
BEQ

BEQ

MOv8
(MP

8eQ
(MP
8taQ

MOv8

(mp
BEQ
(MP
BEQ

;START

DR:IVE

STATUS AS OFF_INE

JCLEAR THE DRIVE TYPE INDICATOR
sCLEAR THE UNLOAD FLAG
JSELECT A DRIVE

R1,RMCS2(R4)
#1111 RMCST(RG)
;D0 A DRIVE CLEAR COMMAND (R SEIZE
#BIT12,RMCS2(RG) NO
JNONEXISTENT DRIVE?

CLRB

BIT
BEQ

(mMp

036750

:DRIVE NUMBER T0O R1
JUNIBUS ADDRESS OF RM/RM (RM(S1)
;CALLED BY A SR
;ERROR OCCURRED (PAR]TY)
;NORMAL RETURN

000004
020024

#ORVNUM,
R
RMADR,
R4

RMDT

02402¢

BNE NN NS
QOO0
—OnN
PRV E NIV PRIV IV 1o

Mov
CLRB

MOV
MOvB

044426

QOO0 —-OO0
OO
—OMN

OO0 ~NO W & L) —

[ 1,V [,ST,.NT V1 VY.V, §1, V)

NNNNNNNVN

;1S SET TO A " 1
sINSURE THEY ARE
;DRVSTA 1S SET TO THE PROPER CONDITION.

#BITIY
DULP

RMCST(RG)

(SP)+,RS

¥
t

"RVIYP(RY)
24 ,RS

926024 RS

#5 DRVIYP(RY)

920025 .RS
28

924025 ,RS

#7 DRVIYP(RY)

#20027.RS
2%

#26027,RS

;60 507 "'IE' WITHOUT A "'TRE"’
SLEAVE 1r1S ROUTINE
JSET DRIVE STATUS TO OFFLINE
JSEE 1F DRIVE AVAILABLE
:8R IF DRIVE NCTM AVAILABLE
;READ THE DRIVE TYPE REG.

;ERROR RETURN ADDRESS
sPUT DRIVE TYPE IN RS
;SET RMO3 INDICATOR
sSINGLE PORT RMQ3 °?
;BR JF YES
;:DUAL PORT RMO3 ?
;BR IF YES
JSET RMO2 INDICATOR
;SINGLE PORT RMQ? ?
;BR

:BR

YES

;DUAL PORT RMOQ?2 ?
;BR IF SO
;SET RMOS INDICATOR
;SINGLE PORT RMQS ?
;BR IF YES
;DUAL PORT RMQOS ?

DRIVE)

CZRMVAO RM05/3/72 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

311 037500
g}% 037506

1127¢1
000446

177777

316
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333

037510
037516
037520
037522
037524
037530
037534
037536
037540
037544
037546
037550
037552
037554
037562
037566
037570
037572
037574
037576

012746
004037
000000
037650
012746
004037
000032
037650
004037
000012
037650
012605
100015
116164
004037
000016
0./050
006126
100004
112761

000121
044116

336
337
338
339

037606
037610
037614
037616

005105
042705
001003
112761

342
343
3.4
345
346
g:g

037630
037632
037640
037642
037650
037652

ggg 037604

340 037624
341 037626

000407

005720
000410

006301
012761
006201
112761
012605
000200

MPCRO vO3.01

11-APR-B0

036750
2$:

010000
044116
043736

037054
043736

177777

000016

036740

000001

036740

060000

037032

177777

036760

6%:
7%:

8%:

ggg

REQUEST

351
352
353

s CALL
:
;

159

354,

;

3:6

ggg
359 037654
360 037660
361 037666

362 037674
363 037676

364 037700
365 0377064
366 037706
367 037712

013746
013737
112737

1064412
011002

005062

111¢01
013704
105761

177776
037072
000001

000016
037066
(36740

177776
037004

RMOS:

15-6

SEQ 0159

L [0]Y]:]
BR

#-1,DRVIYP(RY)
6%

;SET INDICATOR TO °'OTHMER'
JEXIT

o]
JSR
RMCSY
8%
MOV
JSR
RMOF
8%
JSR
RMDS
8s
MOV
BPL
MovB
JSR
RMER1
8s
ROL
8PL
MOvB

#121,-(5P)
RO,WRT.RM

;DO A "READ-IN PRESET"

#B1112,-(5P)
RO,WRT.RM

:SET FMT16=1

RO,RD.RM

;READ RMDS

(SP)+
43
#-1,DRVSTA(RY)

com
BIC
BNE
MOvB

RS
;CHECK MOL, DPR, DRY, AND vy
#°C<BIT12'BIT08'B1T07'81T06>,RS
6%
:BR 1F MOL, DPR, DRY, OR vV IS CLEAR
#1 DRVSTA(RY)
;SET DRIVE STATUS TO ONLINE

B8R
4%:

167077

D13

15:01:20 PAGE

181
BR
ASL
MoV
ASR
MOv8
MOV
RTS

(SPJ+,RS
;AND SAVE IT IN RS
6%
:BR IF ATA=0
ATABIT(RY) ,RMAS(RG)
:CLEAR ATTENTION BIT
RO,RD.RM
:FIND OUT WHY ATA=1

JSR

RO ,RMOS

RETURN1

SAVREG
MOV

(LR

MOVB
MOV
1518

SUBSYSTEM REQUEST

JCALL THE RMOS DRIVER

;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
;RETURN HERE

RE TURNZ2
MOV
MOV
MOVB

JEXIY

(RO)
;STEP OVER THE ERROR RETURN
8%
JEXIT
R1
:CHANGE INDEX TO ADDRESS WORDS
#60000, TIMER(RY)
:START 2 SEC TIMER
R1
;RESTORE R1
#-1,DPINT(RY)
JSET PZT INITIALIZE INIDICATOR
(SP)+,RS
;RESTORE RS
RO
JEXIT

PRE-PRDCESSOR-HANDLES

PNTADR

;1S 1T UNSAFE?
;BR IF NOT
;SET UNSAFE INDICATOR

QUEUE

1S FuLL

;RETURN HERE 1Ff REQUEST IS IN QUEUE OR THERE

;1S AN ERROR CONDITION
PS,=(SP)
RMVEC+2,PS
#1,ACTDRY

;SAVE THE CALLING STATUS
;DON'T ALLOW ANY RM INTERRUPTS
JSET 'ACTIVE DRIVER'' FLAG

(RO) ,R2

;SAVE RO - RS
;PICKUP THE DRIVE PARAMETER BLGUK POINTER

(R2),R1
RMADR ,R&
DRVSTA(RY)

;PICKUP THE DRIVE NUMBER
JUNIBUS ADDRESS OF RM(SH
JOHECK DRIVES STATUS

16(Ré)

JCLEAR THE STATUS/ERROR INDICATOR

E ~

—W
oNOSHA
N
SO0

NNNNNNNSNNNY
8 B AN
rON) =

[elelololololololololalel
o
N NN NN NN NN N NN
SNNNNNNNNNNNNY

DR 187

TION CODE

MICRO v03.0)

BGT

15-7

;BR

ONLINE

037316

ULDFLG(RY)
1%
DPINT(RY!
5%
RO,DRVINT

JUNLOAD COMMAND IN QUEUE?
:BR IF YES
;TRYING TO INIT THE DRIVE
:BR IF YES
;60 INIT. THE DRIVE

036740

1978

DRVSTA(RY)

;1S DRIVE STATUS ONLINE?

036760

036770

1$:

000010
045070

000103

000002

177777

037006

120000

2%:

000016

3$%:

045070

5% :

000100

BNE
Mova

2%
#-1,ULDFLG(RY)

:BR IF NO
;SET THE "'UNLOAD

1518

036740

6% :

140000

000016

100002

000016

110000

000016

73:

8%:

9% :

108:

037004

177776

63
DPRQAS(R1)
5%
R1,RMCS2(RG)

;ERROR RETURN

RO,DRVQUE

#103,2(R2)
DRVACT(RY)

ggv

;211\5 31113,16(51%)1Y

;BR JF YES
JCALL THE OPTIMIZER

gg,(l7

JSR
BR
87

RO,DRVQUE
9¢
81106, (R&)

JSR
BR
1S18

PC,SET.IE
8%
DRVSTA(RY)

MOV

#BITIS'BIT14,16(R2)

BLT

JSET

JEX

JSR

IN QUEUE'' FLAG

;1S THIS DRIVE ACTIVE?

8%
gg.OPT

;G0 HANDLE

THE “'UNLOAD

IN QUEUE'' ERROR FLAG

THE PARITY ERROR

;PUT REQUEST IN QUEUE
JQUEUE IS FuLL
1€ BIT SET 2
JYES
JSET THE INTERRUPT
;RETURN
;SEE IF DRIVE OFFLINE OR UNSAFE

14 3

JBR IF UNSAFE

118
BNE

DRVIYP(RY)
8%

JSEE IF OFFLINE OR NONEXISTENT
;BR IF OFFLINE

MOV

#BIT15'81T12,16(R2)

MOV
BR

RESREG
187

;SET

OFFLINE

ERROR

sDRIVE

1S UNSAFE

JRESTORE RO - RS

10%

(RO) ¢

JSETUP FOR NORMAL

JFINISH UP,

THEN EXIT

197

(RO)*

;CORRECT

RETURN ADDRESS

(SP)+ ,PS
RO

;RETURN "PS' 1O USER LEVEL
JRETURN TO CALLER

(LRB

MOV
RTS

INDICATOR

#BITIS'BITO1,16(R2)
JREPORT DRIVE NONEXISTENT
8%
;60 TO EXIT

RESREG

ACTDRY

RETURN

;RESTORE R6 - RS
THE

:CLEAR "'ACTJVE DRIVER'' FLAG

LOPTIMIZER-CALLED FOR A PARTICULAR DRIVE
s CALL

0460146
040150
040154

177776

C3705¢

037002

.
;

MoV
JSR

#DRVNUM R
PC,0OPT

;DRIVE NUMBER 10 R1
JSETUP A (OMMAND

OPT:

SAVREG
MOV

PS.,=-(SP)

:SAVE RQ - RS
JSAVE PROC., STATUS

BI(B

;1S THIS REQ. FOR AN UNLOAD?

BNE
éSR

BNE

064426

:BR ]F NOT
JUUTSTANDING PORT REQUEST FOR THE DRIVE
;BR IF YES
:SELECTM THE DRIVE
;PUT THIS REQUEST N QUEUE
;QUEUE IS FULL

C(MPB

061226

036750

BLE
1578
BNE
MOV

JSR

060146

012637
000200

£ 12

15:01:20 PAGE

1518
BNE
1STB
BNE
JSR

036730

040144

11-APR-80

SEQ 0160

037006

— ) 5 O
O L &
—_—-~y
s
S —
~NOoOr

RM/RM DR

B
< B
MO
DWWV

CIRMVAQ R

ATABIT(R1),SRC W'

;CLEAR LA SEA(H FLAG

CIRMVAO RMOS/3/2 EXT'D DR TS1
INITIALIZATION

625
626
627
628
629
630
3
632
633
634
635
636
637
438
639

040162
060166
060172
040174
040176
060202
040210
060216
060220
060224
060226
040232
060240
040244
0602406
640 040254

003014
006737
012762
105761
100053

v'2762
000447

(LRB
JSR

000010
000111
004000

MOv
MOv

187

BEQ

000000
000000

036740
065166

10$:

653 040300

6564
655
656
657
658
659
460
461
662

663
6464
665
666

040302

040306
040310
04031«
040316
040320
040324
060326
040332
040334
060342
040344
040346
040354
040356
0460362
040366

667
668
469
470
(24 040370
672 040374
673 040400
47 060402
675

476

&77
78
479

4«80
481

100404

004037
000427
000403
004737
000423
004737
000420
112761

010103
006303
012763
000402
004737
032714
001002
004737
012637
106413
000207

;70 PROT

DRVSTA(RY)
1%

PC,POPQUE

000150

0000v2

2%:

037030

040404

040512

177777

036770

060000

037032

064426

177776

BLT
JSR
BR
1ST

BGt

15T
BM]

041564

041226
000100

RM(CS1

6%
Bl1
BEQ

(MPB

040612

037052

JSR

JSR
BR
BR
JSR
BR
JSR
BR

MOvB
MOV
ASL
MOv

6%:
7%:

8%:

BR
JSR
BIT
BNE
JSR

MOv
RESREG
RTS

REQUEST

,IF

NOT

MOov

;1S DRIVE UNSAFE ?
;BR TO EXIT IF NOT

L})

;BR TO EXIT

#111,-(5P)
RO,WRT
RM

JLOAD COMMAND ONTO THE STA(K
;LOAD THE REGISTER
JREGISTER INCREMENT
JERROR RETURN ADDRESS
;DRIVE AVAJLABLE ?
;BR ]F NOT
:IESIHE REQUEST FOR 1/0?

DRVSTA(RY)

#BIT11,(R4)

9%
#150,2(R)

PC,CI6G

DTuw
3
SEEKFG

RO, LA
8%

JSET

UNSAFE

STATUS/ERROR

;CALL THE COMMAND INJTIATOR
;BR T0 EXIT

JDATA TRANSFER UNDERWAY?
JYES==60 START A SEAR(CM

;D0 IMPLIED SEEKS?
JYES
sNO==D0 LOOK AHEAD
JRETURN HERE

ON A

;G0 START A SEARCH

PAR]ITY

3
PC,CIN

JSTART A DATA TRANSFER

PC,CI3

JSTART A SEAR(CH

8¢

#-1,DPRAS(RY)

R1,R3
R3
;20000,TIHER(RS) EXIT

PC,CL7
#B1T06, (R4

PC,SET.IE
(SP)+,PS
PC

MOv
MOv

JSR

R
SORVNUM
#0PB,R2
pC.C1?

ERROR

;60 TO THE EXIT
;SET PORT REQUEST INDICATOR
JSET UP TO ADDRESS WORDS
;CONVERT TO WORD INDEX

sSTART 10 SEC TIMER

JEX

;PROCESS THE PARITY ERROR

;SEE IF

JBR If

'1E' ALREADY SET

SET

;RESTORE PROC.

STATUS
;RESTORE RO - RS

; COMMAND INITIATOR

“CALL

rees

NO--REMOVE REQUEST FROM QUEUE
#BITIS!BITI4,16(R2)
JSET OFFLINE STATUS/ERROR

MBITIS!BITIZ,16¢( R2)

BPL

REQ FLAG

;IESDRlvE ONL INE?

MOV

450 0460266
&5 060272
652 060274

THE PORT

;GET ''DPB’' POINTER OF REQUES!
R2
;1S THERE A REQUEST IN QUEUE?
7%
;NO=-=BR 10 EXIT
R1,RMCS2 (RG)
;LOAD THE DRIVE ADDRESS eveeceee
2 {1, RMCST1(RG) JCLEAR THE DRIVE
#81T11,RMCST(R&)
;DVA SET ?

000016

122762

sRESET

PC.GETREQ

110000

644

002403
004737
000440
005737
002012
005737

BGT
JSR

SEQ 0161

OPRAS (R1)

MOV
1S18

645

468 060256
649 060264

1518

1 b
1 §. g

000016

663

647

BlT
BEQ

15:01:20 PAGE

140000

036740

060256

00°446
105761

11-APR-B0

036770
045144

641
62

105061

004737
005702
001472
010164
012764
032764

(ODE

RM/RM DRIVER

MACRO v03.01

;DRIVE NUMBER

.ADDRESS

DPB

;C12- 11,013, OR Cl4

INDICATOR
INDICATOR

CI"“VAO RMOS/3/2 EXT'D DR T1S1

RH/RM DRIVER

—=O
LI
NN
NN = OV
=2OOV® VOV
DPVNE WM
O~

ASALAA VTN

MUNAN NN

OA WNAWAAWAAA N VWU AW AA WVNAWALLA AN WA U

NN PN NNOINIPNONIND) b b b acd b s et

11-APR-B(C

6 1?7

15:01:20 PAGE

15-9

SEQ 0162

JWHERE:

:CI1=DATA TRANSFER
;C12=SEARCH REQUESTED BY DATA XFER
040404
040410
040614
040416
040422
040426
060632
040436
(60440
040462
040444
040450
040452
040454
040456
040462
040464
040466
040472
040476
040500
040502
040506

NOOO OO LN
LR VP
o oV LR ]

;C16=NOT DATA TRANSFER

[lelelolelolalelele]
- s e (OO e i ncdt —d O
NI
O WO O &

682
483
684
485
686
«87
488
489
490
69N
692
493
696
495
696
697
498
499

INITIALIZATION CODE

MACRO v03.01

040542

040544
040550
040556
060562
040564
040566
060572
040576
040600
040602
040610
040612
040616
040622
060626
040632
060634
040640

Clt:

037066
000010
000004
000002

0464116

JSR

MOv
MOV
Mov
MOV
ADD
ADD
Mov
MOv
MOv

JSR

RMDA

cl?

MOV

044116

040512

040516
040522
040526
040532
040534
040536

0645166
037000

116203

010346
042716
116266
004037
000006
041226

JSR

RMD(C

000002
044116

MOv

037052
041170
037066
000010
000012
046116

177740
000011

046116

037054

037066
000010
000C?
000131
000010
046116

(R3)+,=(SP)
RO,WRT.RM

ADDRESS

;LOAD WORD COUNT
;LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRA(CK

;CALL THE LOAD(WRITE) ROUTINE
:INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
JLOAD CYLINDER ADDRESS

MOV
MOV
MOV

4
,
RMADR
R1,RMES2 (RG)

;RMCS1

c17

Move

SLB
BGE

RO,WRT_.RM

12(R2)
.= (SP)
RO,WRT.RM

10(R2) ,R3
MXWNDW .R3
13

SSELECT DRIVE

;DESIRED CYLINDER ADDRESS

;PICKUP SECTOR ADDRESS
;BACKUP BY MAX.

SEARCH FOR

]/0 WINDOW

#32.,R3
R3,-(SP)

MOvVB

11(R2),1(SP)

:THE DESIRED TRA(K
;LOAD DESIRED TRACK & SECTOR

MOv
JSR
RMCST

#131,-(SP)
RO,WRT .RM

sSTART

B1SB
BR
MOv

ATABIT(R1) ,SRCHWT

4
,
RMADR

;RMCS)

(MPB
BNE

#131,R3
1%

2(R2),R3

sPICKUP THE REQUESTED COMMAND
;1S 1T A SEARCH COMMAND?
;BR IF NO
;LOAD DESIRED TRACK & SECTOR

JSR

RMDA

MOv
MOvVB

MOV

JSR

#177740, (SP)
RO,WRT.RM

C15

R1,RMCS2(R4)

10(R2),=-(SP)
RO,WRT
. RM

AND "PSEL"’

ADDRESS

ADD
MOV

BIC

Cls:

(R3)+,=(SP)
RO,WRT .RM

;RMW(C

JSET "'DATA TRANSFER UNDERWAY''

RMD
(

037002

(R3)+,(RG)
(R3)+,(RG)+

R1,DTUW

JMP

JSR

000131
044116

R1,RMCS2(R4G)
" R3
"2 ,RG

MOv

c17

000001

R2,R3

RMADR
, R4

;REMOVE REQUEST FROM ‘‘DRIVES WAIT'' QUEUE
;PUT REQ. IN TRANSFER WAIT QUEUE
;DPB ADDRESS T0O R3
;RMCS1 ADDRESS
;SELECT DRIVE
;DESIRED WORD COUNT

;LOAD "'COMMAND+GO’’, "'A178A16'",

RMCS1T

000M0

R, TRNSWT

2(R2),=(SP)

JSR

C13:

PC,POPQUE

;COMBINE THE ADJUSTED SECTOR WITH
;CHOP OF

ALL EXENTED BITS

,IF

A SEARCH

JSET "'SEARCH WAIT' KEY
ADDRESS

JSELECT DRIVE

ANY

CIRMVAO RM05/3/2 EXT'D DR TS1

016246
004037
000034
061226
000546
122703

001013
004037
000032
041226

NO NO NV~
oo
—=0OrNONO
— et =2 O NN NN N
~

TNOVINI
=AY — ) = ~N

000530

&»
o
|

000000

(17

000105

1%:

000012
046116

2%:

B8R
(mPB
BNE
MOv

JSR

RMD(

3%:

000115

043736

€17

000001
044116

move

JSR

RMOF

000107

A ¥

000117
000103

000001
036740
000001

BR
(mMP8
BNE
JSR
RMOF

036730

17
B8R
(MPB
BEQ
(MPB
BEQ
(MP8
BNE

MOvB
(LRB
MOvB
MOV

037006

044116

JSR
RMCST

€17

~NOo

040732
040736
040740
040744
040746
040752
040754
040762
040766
040774
040776
041002
041004
041006
041010
061014
041016
041022
041024
041026
041034
041040
041042
041044
041046
041052
041054

122703
001007

11-APR-8D

000143

5%:

043736
000001
044116

RTS

(MPB
BNE
JSR

000001

mMove

JSR

RMOF

000141

6%:

000006

78:

000010
000011
043736

041076

8%:
9%:

061076
062737

SEQ 0163

¢00002

CYLINDER
SEEX COMMAND

#105,R3

12(R2) ,=(SP)
RO,WRT
RM

cle
#115,R3
3
RO,RD.RM
1(R2),(SP)
RO,WRT
. RM

IRED CYLINDER

;1S 1T AN "'OFFSET'' COMMAND?
:BR

JMERGE THE OFFSET VALUE INTO RMOF
:BUT DON'T CHANGE THE UPPER
;BYTE WHEN LOADING THE
JREGISTER (RMOF)

;60 START THE COMMAND
1S 1

} A "'RECALIBRATE'' (OMMAND?
YE S
J1S 1 ; A RETURN TO CENTER?
;BR IF
YE S
SIS ] ; AN '‘UNLOAD'' COMMAND?
#1,DRVACT(R)

DRVSTA(RY)
#1,ULDFLG(RY)
R3,-(SP)
RO,WRT
. RM
PC

#1463 ,R3

;BR

;SET "UNLOAD IN PROGRESS'' FLAG
;START

THE ''UNLOAD'' (OMMAND

;RETURN

T0O USER

SIS IT A "'SET FORMAT'' (OMMAND?
;BR IF NO

1(R2),1(SP)
RO,WRT
RM

.CGMBINE '‘'FMT16'',"°ECI'", AND "‘WCI"’
;LOAD ''FMTI6"', "CI'", AND/OR "WCI''.

12%
#141,R3
10$

1S IT A "'GET REGISTER'' (OMMAND?

RO,RD.RM

;READ

THE

OFFSET

RMOF

17z

041060

H 1b
15:01:20 PAGE 1 5-10

RMDA

NN
on

040704
040710
040712
040716
040720
040724
040726
8 040730

000006
061226
000403

— s s O = O =0 O = O —OMNON o ~N

060644
060646
040650
040652
040656
060660
060664
040670
040672
060674
060676
040702

o
(=4

539
560
561
562
53

INITIALIZATION CODE

[=2=]
or
CQ

RH/RM DRIVER

MACRO v03.01

04076

BR
(mMPB
BNE
MOV

6(R2) ,R3

;BR IF NO
;POINTS TO

MOvB
MOvVB

10(R2),9%
11(R2),RS
RO,RD.RM

READ

JSR
RMCS1

MOV

(SP)¢,(RY)»
9% ,RS

ADD

2 ,9%

(MP
BEQ

126

1ST

ADDRESS OF

WHERE

;10 PUT THE REGISTER(S)
INIT, THE INDEX FOR THE FIRST REG.
. INDEX OF LAST REG. TO MOVE
RH/RM REG]STER

s INDEX OF REG.

TO READ

;GET THE CONTENTS OF RM/RM REG.
JLAST REG . BEEN READ?
SOET QU If YES
: INCREASE

THE

INDEX BY

)

CIRMVAD RMCS5/3/2 EXT'D DR T1S7

RH/RM DRIVER

INITIALIZATION

596 ui*120
597 061122
598 0UsY126
599 041130
600 041132
601 06113¢
602 0641140
603 041142
606 0411646
605 0411564
606 061160
607 0641162
608 061166
609 041170
610 061172
611 04641200
612 041202
613 061210
616 041212
615 041216
616 041220
617 041222
618 061224
619 0641226
620
621 061234
622
623 061236
624 0612640
232 061262
627
628
629
630
631
632
633
634
635
636
637
638
639
640
661
642

643
644
645
646
647
648
649
650
651
652

000764
122703
001405
010346
004037
000000
041226
004737
052762
005737
100002
004737
000207
006301
012761
006201
112761
000207
010346
0064037
000000
041226
000761
032764

CODE

MACRO v03.01

000145

108 :
11%:

0441°4
045166

000200
037026

000016

044310
060000
000001

037032

Clé6:

000000

005702

001001
000207
012762

0641250
061254
0641260
041262
0641264
0641270
06412764
041300
0641304

012746
004037
000000
041326
004737
105061
105061
105061
020237

041310
041312
061316
041324
061326
041330

001005
005037
012737
000207
104412
032764

0461336
0641340
041342

005001
005003
105761

0641346
041350
04135¢
041356
061362

001003
105761
001443
013702
020137

104000

13%:
Cl15:

036730

044116

010000

12%:

000016

(I7:
;
1%:
;
2%:
.

000111
044116

c178:

045050
036770
037006
036730
037000

2%:

;

037000
177777

037052

010000

000010

036730

18:
(18:

:
1%:
;

036770
037000
(37052

22%:

11-APR=-80
8R
(mMPB
BEQ
MOV
JSR
RM(ST
c1?
JSR
BIS
1971
8PL
JSR
RTS
ASL
MOV
ASR
MOVB
RTS
MOV
JSR
RM(S1
€17
BR
BIT
BNE
1S7
BEQ
BNE
RTS
Hg;
J

MOV
JSR
RM(S!T
18
JSR
CLRB
CLRB
(LRB
(MP
cMP
BNE
CLR
MOV
RTS
SAVREG
BIT

BNE
(LR
(LR
1518
BEQ
BNE
1518
BEQ
MOV
(MP

|
15:01:20 PAGE

LY
R
J

SEQ 0164

;LOOP==MORE TO READ
;1S IT A 'SELECT DRIVE'" (OMMAND

#165,R3
12%
R3,-(SP)
RO,WRT _R®

;BR JF YES
;LOAD THE COMMAND

PC,POPQUE

;REMOVE REQ. FROM QUEUE

#B1707,16(R2)
SAVEFG
13%
PC,SVRH70

PC
R1

;SET

THE "'DONE’’ BIT

;BR

:SAVE

THE

:YES=--60 SAVE THE REGISTERS

;RETURN

R3,=(SP)

RO,wWRT_RM

TO USER

;SET A ONE SECOND TIMER

I?OOOO.TIHER(R1)

R
#1,DRVACT(RT)
P{

RM/RM REGISTERS?

;SET

THE DRIVE A(CTIVE

;RETURN

;LOAD

T12,RM(S2(RG)

;BR

THE

JDRIVE
YES

;ANYTHING

USLR

(OMMAND

NON=-EXISTENT

IN QUEUE

;BR ]F NOT
;JBR IF QUEUE 1S THERE
JOTHERWISE EXI1T
1 15.BIT11,16(R2)
;SET "'PARITY' ERROR INDICATOR
LSVRNH70
;G0 SAVE THE RM/RM REGISTERS

]

PC,EMPTYQ

DPRAS(RY)
ULDFLG(R1)
DRVACT(R1)
R2, TRNSWT
R1,DTUW

1$
TRNSWT
#-1,D07T0w
PC

;D0 A 'DRIVE CLEAR"

;EMPTY THE QUEUE
;CLEAR THE PORT RFQUEST FLAG
;CLEAR THE UNLOAD ‘N QUEUE FLAG
;DRIVE 1S IDLE
+1F THIS DRIVE HAD AN ]1/0 REQUEST

;1F

THIS DRIVE HAD AN

]/0 REQUEST

:IN PROGRESS CLEAR ALL OF

THE FLAGS

:SAVE RO - RS
. 1S 'NED' SET ?
IF YES

#BIT12,RMIS2(R4)
1%
:BR
R1
R3

DRVACT(RY)
5%
22%
DPRQAS(R1)
5%

;ORIVE ACTIVE?
:BR If NO
:BR 1F IN ACTIVE
;PORT REQUEST
:BR [F NOT

R1,0Tuw

;DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?

TRNSWT ,R?

;GET THE "'TRANSFER WAIT'' QUEUE

CIRMVAQ RMO5/3/2 EXT'D DR 187

RM/RM DRIVER

653
656
655
656
657
658

INITIALIZATION

0641366
0641370
041374
0641376
0641400
061606

659 04614610

660 04146416
661 0641620
662

663 0614626

664
665
666
667
668
669
670
671
672
673
676
675
676
677
678
679
680

681

682
683
684
685
686
23;

001402
004737
005702
0014613
032764
001406

012762

000403
012762

012763

0641634
0416440
061444
041450
061452
0616460
06416464
041470

105061
105061
020137
001005
012737
005037
105061
032764

0416476
0641500
041504
0641510
041512
04641520
061524
041530
0641536
041540
04641544
041550
0415564
041560
041562

005201
062703
042701
001314
012737
005037
004737
012764
000406
004737
105061
105061
004737
104413
000207

CODE

MACRO v03.01

045144

2%:

010000

000010

100002

000016

102000

000016

177777

037032

177777
0217000
037006
010000

037052

036730
036770
037052

000010

5%:

;

000010

045050
036740
036750
044426

6$%:
7$:

15«12

SEQ 0145

2%
;BR 1F YES
P(,GETREQ
JGET THE DPB POINTER
R2
;QUEUE ENTRY FOR DRIVE ?
43
:BR IF NOT
#BIT12,RNCS2(RG)
;'NED' SET ?
3%
R If NOT

BR
MOV
JSR

4%
ONTINUE
#BIT15'817T10, 16(R2)
JSET *'NON-CLEARABLE PARITY' ERROR INDICATOR
PC SVRH7O
;SAVE RH/RM REGISTERS

CLRB
CLRB
cMpP
BNE
MOV
CLR
CLRB
BIT
BNE
INC
ADD
8IC
BNE
MOV
CLR
JSR
MOV

DRVACT(R1)
;SET "DRIVE ACTIVE'' TO IDLE
DPRAS(R)
JCLEAR PORT REQUEST FLAG
R1,DTUW
;1S THIS DRIVE SETUP FOR A TRANSFER
5%
;BR IF NOT
#-1,DTuw
JRESET THE INDJCATOR
TRNSWT
;CLEAR THE TRANSFER QUEUE
ULDFLG(RY)
;CLEAR UNLOAD FLAG
#BIT12,RM(S2(RG)
J'NED® SET 2
6%
;BR IF YES
R
JMOVE 70 THE NEXT DRIVE
#2,R3
£°C7.R1
1%
;BR IF MORE DRIVES
#-1,0Tuw
sNO DATA TRANSFERS UNDERWAY
TRNSWT
;CLEAR THE 'TRANSFER WAIT' QUEUE
PC,CLRQUE
JCLEAR ALL OF THE REQUEST QUEUES
#CLR,RM(S2(R4)
;DO A MASSBUS INIT.

JSR
CLRB
(LRB
JSR
RESREG
RTS

PC,EMPTYQ
DRVSTA(RY)
DRVTYP(R1)
PC,SET.IE

MOV

B8R

#BITIS!'BITOY, 16(R2)

l-i TIMER(RD)

JSET 'DRIVE NON-EXISTENT' INDICAIOR

:STOP THE TIMER

s CONTINUE

JCLEAR THE DRIVE'S QUEUE
;SET DRIVE 10 OFFLINE
;CLEAR THE DRIVE TYPE INDICATOR
JSET 'IE'" WITHOUT ‘“'TRE"
;RESTORE RO - RS
:RETUPN

;L00K AMEAD ROUTINE
:

691
692
693
694
695
696

699
700
701
702
703
7064
705
706
707
708
709

4$:

037052

689
690

68;
6

3%:
.

15:01:20 PAGE

BEQ
JSR
187
BEQ
817
BEQ

MOV

000002
177770
1177777
037000
044772
000040

11-APR-80

s CALL
:
.
N
:
;
:

041564
0641570
0641574
041600
041602
061606
041610
041614
041616
041622
0641630

013704
010164
004037
000012
041732
042716
022726
001044
105¢61
126137
003033

037066
000010
043736

LA:

157577
000200

037016
037016

037074

MOV

#DRVNUM,R!

MOV
#DPB,R?
JSR
RO,LA
RE TURNI
RETURNZ
RETURN3

MOV
MOV
JSR
RMDS
43
B8IC
CMP
BNE
INCB
(MPB
86T

RMADR R4
R1,RMCS2(RG)
RO,RD.RM

;DRIVE NUMBER

:POINT TO DPB
;60 CHECK THE WINDOW
;ERROR RETURN
;START A SEARCH

:START A DATA TRANSFER

;GET RM(CS1'S ADDRESS
JSELECT DRIVE
JREAD DRIVE STATUS

JERROR RETURN ADDRESS
#20020200,(SP)
;ON CYLINDER ?
#200,(SP)+
;PIP=0,DRY=1?
1
JNO
LACNT(RY)
s INCREMENT THE LOOK AHEAD (OUNT
LACNT(RY) ,MXLACT
JEXCEED MAX?
2%
:BR IF YES

CIRMVAO RM0S5/3/2 EXT'D DR TS1

RH/RM DRIVER

INITIALIZATION CODE

[ (0

~NO N

—

NNNNNNNNNN

710 0641632

061636
041640
041642
041644
061652
041656
041660
061662
041666
041670
041672
041674
061676
041700
041704
041710

041712
041716
041720
061724
041726
041730
041732
041736

116203
000303
006203
006203
012737
004037
000020
041732
021664
001402
005726
000415

MACRO v03.01

000010

MovB

000340
043736

ASR
ASR
MOV
JSR

SWAB

177776

6%:

RMLA

43
CMP

000020

7$:

004000
037076

1%:

037100
037016

2%:
Is:

061226

48 :
5¢:

K
15:01:20 PAGE

10(R2) ,R3

:ngRECT LA NUMBER ?

b3 9

18T

187
BR

JSR
RTS

;GET DESIRED SECTOR ADDRESS AND
;MULT. BY 64=--=ALIGN WITH
;LOOK AHEAD REGISTER

(SP) ,RMLA(RG)

BLT
CMP
BGE
CLRB

SEQ 0166

¢READ

SuB
BGE
ADD
CMP

13
15-13

R3
R3
#340,PS
RO,RD.RM

BEQ
TS7

162603

002002
062703
023703
002406
023703
002003

11-APR-8C

(SP)+

(SP)+,R3
1%
#<32.¢64.>,R3
MXDLTA,R3

“PRIORITY LEVEL "'7"
LOOK

AHEAD REGISTER

M )

sNO,CLEAR STACK
sCALCULATE
;MAKE

:CHECK

THE

THE DELTA
DELTA POSITIVE

THE DELTA TO SEE

b1
MNDLTA,R3
3
LACNT(R1)

;1F 1T 1S WITHIN THE
;WINDOW=-==1F YES, ZERO

(RO)+
5%

:22f¥sr THE RETURN ADDRESS

(RO)+

PC.C17
RO

:THE
AND

LOOK
TAKE

AHEAD COUNT
THE 1/0 EXIT

*PROCESS THE ERROR

:RETURN

JINTERRUPT SERVICE ROUTINE

041740
041746
041750
041754
041760
041762
041766
0641770
061774
041776
042002

000001

037004

ISR:

037066
037052

#1,ACTDRV

MOV

RMADR ,R&

BLT
JSR
BR

1%
PC,T1D
2%

SAVREG

MOV

042004
042154
000002

MOVB

1%:

2%:

037004

JSR

PC,SC

CLRB
RT]

ACTDRY

RESREG

s TRANSFER DONE

042004
042010
042016
042020
062026
042030
042034
062040
042046
0462052
062056
042060
042062
042064
042066

105061

012737
006301
012761
006201
013702
005037
052762
010164
004037
000000
041226
006126
100417
005737

036730

177777

037052

V77777

037032

037000
037000
000200
000010
043736

000016

CLRB

MOV
ASL
MOV
ASR
MOV

CLR
BlS

MOV
JSR

RMCS1

cl17

637026

DTUW,R1

ROL
BM]
ST

;SET "ACTIVE DRIVER' FLAG
;SAVE RO - RS

;ADDRESS OF RHSCS1
;GET ''DATA TRANSFER UNDERWAY'' INDICATOR
¢BR 1F NO DATA TRANSFER UNDERWAY
sCALL TRANSFER DONE
JEXIT
sCALL SPECIAL CONDITIONS
;RESTORE RO - RS
;CLEAR ''ACTIVE DRIVER'' FLAG
;RETURN

ROUTINE

DRVACT(R1)
#-1,0Tuw
R1
#-1,TIMER(RY)
R1
TRNSWT ,R2
TRNSWT

#B1107,16(R2)
R1,RMCS2(R4)
RO,RD.RM
(SP)+

SAVEEFD

;SET DRIVE ACTIVE
;NO DATA

INDICATOR TO IDLE

TRANSFERS UNDERWAY

;CANCEL TIMeout

;GET ''DPB’'' ADDRESS FROM THE

;TRANSFER WAIT

QUEUE--CLEAR QUEUE

;SET DONE
;SELECT THE DRIVE

: TRANSFER ERROR(TRE-1)?

;BR JF YES
JSAVE THE RH/RM REGISTERS?

CIZRMVAQ RM0S5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION CODE

767 062072
768 062074

100002
004737

044310

774 062100

004737

045144

776 0642106
777 062110

;;g 062114

780
781
782
783
784
785
786

042116
042122
042124
042132
042136
042142
042146

001403
004737

0004617

012714
0004164
052762
004737
004737
012714
012714

MACRO v03.01

1%:

040146
: THE

000113
100100
0645050
0644310
0401M1
00013

000016

3s:

11-APR-80
BPL
JSR
JSR
187
BEQ
JSR
BR

RELEASE

L 13

15:01:20 PAGE

15-1¢

SEQ 0167

1%
PC,SVRH70

:BR

PC,GETREQ

;GET DPB POJINTER
¢ENTRY FOR DRIVE ?

PC,OPT

DRIVE

COMMAND

;YES==SAVE THE REGISTERS

:BR IF NOT
;CALL OPTIM]IZER
; CHECK OTHER DRIVES

FORECD TO ENTER FOR DUAL
JRELEASE THE DRIVE

PORT

OPERATION

#113,(R4)
SC

JSR
JSR

PC.EMPTYQ
PC,SVRH70

;EMPTY THE ''DRIVE'S WAIT'' QUEUE

;CHECK FOR OTHER DRIVES

8IS

MOV
MOV

;CHECK FOR OTHER DRIVES

#BIT15!B1T06,16(R2)
#60111, (R&G)
#113,(R4)

;:SET DATA ERROR FLAG

;SAVE THE RH/RM REGISTERS
;ISSUE A ''DRIVE CLEAR"
;1SSUE A RELEASE TO THE DRIVE

sSPECIAL CONDITION ROUTINE

062172
0642174
042176
062202
042204
042210
062212
042214
822 042216
823 042222
824 0642224
825 062226
826 042230
827 042232
828 042234
829 042236
830 042240
831 042242
832 042246
833 042250
834 0422564
835 042260
836 062262
837 042266
838 042272
839 042274
840 042300
841 042302
842 042306

106126
100405
004037
104001
004737
000207
005046
110316
012703
005001
030316
001005
005201
106303
001373
005726
000207
105761
001402
000137
105761
001402
000137
105761
0030
1057
0034
0047
0047

e
il
ol el
el
—

~OWVO

[e o

Lo Lo B

IR~
—a

To 1o 1o -To 1o Yo ]

and

116403
001014
004037
000000
041326

Wr—

809 042154
810 042160
062162
062166
042170

000016

SC:

043736
;

045234
044426

1%:

2s:

MOVB
BNE
JSR
RM(S1

RO,RD.RM

;READ CONTROL AND STATUS REGISTER

Cl8

18
ROLB
B8M]
JSR
EMT
JSR
RTS

CLR

(SP)+
1%

?O.ES.SAV
PC,SET.IE
PC
-($P)

SC3:

CLR
BIT

SCé&:

INC

MovB
MOV

BNE

ASLB

BNE
TST

036760

SCS5:

043166
036770

1%:

043166
036740

2%:

065144
044310

;READ ''RMAS''

R3, (SP)
#1.R3
R1
R3, (SP)

000001

037006

RMAS (R4) ,R3

sCé

R3
$C3

RTS

(SP)+
PC

BEQ
JMP
1818
BEQ
JMP

SC13
DPRQS(R1)
2%
SC13

1578

1518
BGT

1518
BLE
JSR

JSR

DPINT(RY)
1$

DRVSTA(RY)

5%
ULDFLG(RY)
5%
PC,GETREQ

PC,SVRH70

:BR [F ANY 'ATA' BITS SET

SEXIT If, FAIL

218

:YES,

IET=1?

TO READ

NO DRIVES TO CHE(CK

:SAVE THE ADDRESS IN 'SESCAPE’

;REPORT

ILLEGAL

INTERRUPT

;SET INTERRUPT ENABLE
:RETURN
;PROCESS

ALL

AN “ATA''=1
;ATA=1?
sMOVE

;YES

TO THE

DRIVES

THAT

HAVE

DRIVE

:BR_IF MORE TO CHECK?
sCLEAN OFF THE STACK
;RETURN TO USER
;INITIALIZING THE DRIVE ?
:BR IF NOT
;PROCESS

THE

DRIVE

sPORT REQUEST OUTSTANDING ?
:BR IF NOT
:START THE OUTSTANDING COMMAND
:CHECK THE DRIVE STATUS
:BR IF ONLINE
;UNLOAD IN PROGRESS?
:BR_IF NOT

:GET DPB POINTER
:SAVE THE RH/RM REGISTERS

CIRMVAQ RMO5/3/¢ EXT'D DR TST

RH/RM DRIVER

INITIAL:ZATION CODE

843 062312

844
845 042316

846 042322
847 062326
848 042332
849

850 042334
851 062340

SEQ 0168

JSR

PC,SC12

;SAVE RMDS, RMER1, RMER2, AND RMAR?

105761
003414
032737
001000

036740

TSTB
BLE
BIT
BNF
JMP

DRVSTA(RY)
63
#B1T14,RMERRS
3s
SC1

:NO
:WAS THERE AN ERROR?
:BR IF ERROR
:NO ERROR

15718
BNE
JSR

DRVACT(RD)
SC6
PC,SC12

013705
000504

040000

036720
:

036722

$s:

105761
001033
004737

036730

5%:

105761
001323
105761
100412
032737
001013

036760

012746
004037

000111
0446116

887 062516
888 042520
889 062524
890 042526
891 042530
892 042532

000470
004037
000014
042756
012605
004737

894 062542
895 062546
896 042550

M3
15:01:20 PAGE 15-15

043115

004037
104005
000675
006301
012761
006201
004737
010164
000137
004037
000012
042756
011605
006126
100407
105761
003137

393 062536

11-APR-80

004737

852 042342
853 062346
854 062350
855
856 0623564
857 062360
858 062362
859 062366
860 062370
861 062376
862
863 062400
864 042604
865 062410
866 062412
867 042614
868 062416
042422
869 042424
870 062426
042426
062432
871 062434
872 062436
873 042440
874 062446
875 042450
876 062456
877 0462460
878 042664
879 042470
880 042472
881 042474
882 062476
883 0462500
884 062502
885 042506

886 042510

MACRO v03.01

000000
062756
011605
004037
104002
000701

052762

012746

004u37
000000
042756

043116

6$:

036740

020000

036726
;

78:

045234

8s$:

045234

177777

037032

$C6:

045144
000010
043006
04373

036730

100210
043736

(044310

000111

044116

000016

MOV
B8R

TSTB
BNE
TSTB
BM]
BIT
BNE
MOV
MOV
JSR
RMCS1
SC8
MOV
JSR
EMT
B8R

:YES =~ PICKUP RMER1 AND
:60 PROCESS THE ERROR

;DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
:BR IF EITHER
;SAVE RMDS, RMER1, RMER2, AND RMMR2
;ALSO DO A DRVINT
DPINT(R1)
:TRYING TO INIT THE DRIVE ?
SC4
:BR IF YES, CHECK ON MORE ORIVES
DRVSTA(RY)
:CHECK ON DRIVE'S STATUS
7%
:BR IF UNSAFE
#BIT13,RMERRS+4 :ADDRESS PLUG CHANGED ?
8%
:BR IF YES
#113,-(SP)
:RELEASE COMMAND
#111,-(SP)
:DRIVE CLEAR
RO,WRT.RM
JWRITE THE COMMAND INTO RM(CSI
{REGISTER INDEX
:PARITY EXIT ADDRESS
(SP),RS
JPICKUP (RMAS) BEFORE THE ERROR CALL
RO,ES.SAV
:SAVE THE ADDRESS IN 'SESCAPE'
2
:REPORT THE UNEXPECTED ATTENTION
SC4
;G0 CHECK FOR MORE ATA'S

JSR
EMT
BR
ASL
MOV
ASR
JSR
MOV
JMP
JSR
RMDS
SC8
MOV
ROL
BM]
TSTB
BGT

RO,ES.SAV
5
SC4
R1
#-1,TIMER(R1)
R1
PC,GETREQ
R1,RMCS2(R&)
sCit
RO.RD.RM

;SAVE THE ADDRESS IN 'SESCAPE’
:REPORT THE ADDRESS PLUG CHANGE
:CHECK FOR MORE DRIVES
:SETUP TO ADDRESS WORDS
:STOP THE TIMER
:RESTORE THE DRIVE ADDRESS
;GET THE DPB POINTER FROM THE QUEUE
:SELECT DRIVE
:PROCESS THE SEARCH
;READ THE RM'S STATUS REG.

(SP),RS
(SP)+
1$
DRVACT(R1)
SC11

;AND PUT IT IN RS
:WAS THERE AN ERROR?
:BR IF ERROR
:CHECK DRIVE'S STATE
‘BR IF DRIVE ACTIVE WITH ORDER

BR
JSR
RMER?
SC8
MOV
JSR

SC7
RO,RD.RM

;READ ERROR REGISTER #1

B1S

RMERRS+2,RS
SCOA

;ALSO DO A DRIVE INIT (DRVINT;
:DID DRIVE COME ONLINE?

MOV

JSR
RMCS1
5C8

lBlT1S281107!81T63.16(R2)

(SP)+,RS
PC,SVRKH70

i1, -(sp)
RO,WRT.RM

;INFORM USER OF ERROR RECOVER COMPLETION

;AND SAVE 1T

IN RS
;SAVE RH/RM REGISTERS

:1SSUE A DRIVE CLEAR

INITIALIZATION CODE

897 042552
898 042554
899 042556
900 042560
901 042562
902 042570
903 042572
904 042576
905 042600
906 042602
907 042604
908 042606
909 042610
910 042616
911 0462622
912 042630
913 042632

006105
100406
005702
001447
052762
000443
004037
000012
042756
011605
006126
100011
112761
004737
052762
000423
032705

914
915
916
917
918
919
920
921

042636
042640
0642646
042654
042656
0642664
042666
042672

001015
112761
112761
006301
012761
006201
000137
052762

924
925
926
927

042704
042710
042714
042716

004737
105761
003002
105061

gg? 042734

100406

g%% 042700

528 042722
929 042730

105061

116164
105761

SCOA:

100240

000016

043736

1%:

11-APR-80
ROL
BM]
187
BEQ
BIS
BR

JSR

RMDS

SC8

MOv
ROL

177777
044310
110000

036740
000016

010000

2s:

177777
000001

036730
036740

072460

037032

062230
100220

000016

036730

38:
SC7:

0465166
037006
037006
037056
036740

932
933
934
935
936
937
938
939
940
941
gz%

042736
042742
042746
042750
042752
042756
042762
042764
042770
042774
042776

012746
004037
000000
042756
000137
105761
001405
004737
004737
000402

00011
044116

944
945
946
947
948
949
32?

042776
043002
043006
043012
043014
043020
043024

004737
000137
105761
003402
105061
105061
136137

041250
042230
037006

952 043032
953 043034

001012
004737

000016

042230
036730

1%:

2%:
SC8:

0465144
041226
1%:

037006
034730
037054
(45166

2%:
SC11:

037002

BPL
Move
JSR
BIS
BR
BIT
BNE
mMove
MOVB
ASL
MOv
ASR
JMP
8IS
CLRB
JSR
JSR
1518
BGT
CLRB
MOVB
1STB
BM]
MOv
MOV
JSR
RMCS1

SC8

JMP
1S18
BEQ
JSR
JSR
BR

N 13

15:01:20 PAGE
N
—

RH/RM DRIVER

MACRO v03.01

15-16

SEQ 0169

;WAS "'UNSAFE'’ CONDITION =1?

;ANYTHING IN QUEUE
‘BR IF N 071

$
C7

;BR IF YES

l%;TlS!BlTO?.BITbS.16(R2)

¢ INFORM USER OF ERROR

CIZRMVAO RM05/3/2 EXT'D DR TST

RO,RD.RM

;READ DRIVE STATUS REG. #!

(SP) RS

;SAVE RMDS IN RS

#BIT12,RS

JMoLt = 12

J"'ERR"'=1?
2%
JBR ]F NO=--UNSAFE CLEARED
#-1,DRVSTA(RY)
JDRIVE 1S UNSAFE
PC,SVRH70
;SAVE RHM/RM REGISTERS
#BIT15!BIT12,16(R2)
s INFORM USER OF UNSAFE ERROR
SC7
(SP)+

#-1,DRVACT (R1)

:}.DRVSTA(R1)

:BR 1F YES
JACTIVE ERROR RECOVER
JONLINE

;START 3G SECOND TIMER

:?0000..11HER(R1)

SC4
#BITIS!BITO7!BIT04,16(R2)
DRVACT(R1)
;DRIVE 1S IDLE

PC,EMPTYQ
PC,POPQUE

?%DFLG(R1)

ULDFLG(RY)

s INFORM USER OF ERROR

:DUMP THE QUEUE
sREMOVE THE QUFLE
;UNLUAD IN RMOGRESS OR QUEUE?
:BR If NOT
:CLEAR UNLOAD FLAG

ATABIT(RY) +RMAS (R4)
:CLEAR ATTENTION BIT
DRVSTA(RY)
;1S THE DRIVE UNSAFE ?

#113,-(SP)
#11,-(SP)
RO,WRT.RM
SC4
DRVACT(R1)
1%
PC,GETREQ

PC,CI7

:BR IF IT IS
;RELEASE COMMAND
:DRIVE CLEAR COMMAND
;WRITE

THE

COMMAND

;REGISTER INDEX

INTO RPCS1

;PARITY EXIT ADDRESS

;CHECK FOR MORE DRIVES
:sgSDRIVE IDLE?

:GET DPB POINTER

‘PROCESS THE PARITY ERROR
CONTINUE

JSR
JSR
JMP
1518
BLE
CLRB
CLRB
8118

PC.CI7
;PROCESS THE PAR]TY ERROR
PC,CI7B
sPROCESS THE UNCORRECTABLE PARITY ERROR
SC4
:CHECK MORE DRIVES
ULDFLG(RY)
:"'UNLOAD IN PROGRESS'"?
19
:BR If NO
ULDFLG(RY)
;CLEAR UNLOAD FLAG
DRVACT(R1)
sSET DRIVE IDLE
ATABIT(R1) ,SRCHWT
:DOING A SEARCH OPERATION FOR

RNE

JSR

or,POPQUE

:BR

;REMOVE

;AN

YES

1/0 "OMMAND?

REQUEST

FROM QUEUE

CZRMVAD RMOS5/3/2 EXT'D DR T1ST

RH/RM DRIVER

INITIALIZATION CODE

954 063040
955 0643046
956 043052
957 043054
958 043060
959 043066
960 043074
961 043076
962 043104
963 043106
964 0643112
965 043116
966 043122
967 043130
968 043136
969 043144
970 043152
971 043156
972 043160
973 043162
974 043164
975 043166
976 043170
977 043176
978 043200
979 0463204
980 043212
981 063216
982 043220
983 063226
984 0643230
985 043232
986 043236
987 043240
988 043242
989 063244
990 043250
991 043256
992
993 043262
994 063266

995 043270

996
99?7
998
999
1000
1001
}88%

043276
043300
043302
043310
043312
043314
043320

052762
005737
100002
004737
116164

1646137
006301
Q12761
006201
004737
000137
010164
016437
016437
01646437

0166437
004037
000401
000207
005726
000674
006301
012761
006201
010164
116164
105761
001424
105061

004037
000240
105761
003014
005702
0014626
004737
0527¢2
004757
004737
000414

032764

001006
006301
012761
006201
000402
004737
000137

000200
037026

000016
037002

177777

037032

060146
042230
000010
000012
000014
000042
000040
037316

11-APR-80

000016

044310
037054
037056

036720
036722
036724
036726

2%:

SC12:

1%:
177777

037032

000010
037054
036760

000016

SC13:

1%:

036760
037316
036740

045144
140000
044310

000016
:

045166

004000

000000

060000

(357032

060146

042230

10N4
1005
1006
}88;
1009 043324
1010 043330

MACRO v03.01

2%:

B 14

15:01:20 PAGE

037004

RMTMR:

SEQ 0170

BIS
ST
8PL
JSR
MOVB
BI(B
ASL
MOV
ASR
JSR
JMP
MOV
MOV
MOV
MOV
MOV
JSR
BR
RTS
187
BR
ASL
MOV
ASR
MOV
MOvB
1578
BEQ
CLRB
JSR
NOP
1518
BGT
187
BEQ
JSR
BIS
JSR
JSR
JSR
BR

#BI1T07,16(R2)
;SET ''DONE'' BIT
SAVEFG
;SAVE THE REGJSTERS?
2%
:BR IF NO
PC,SVRH70
JYES==SAVE ALL OF THE RH/RM REG'S
ATABIT(RY) ,RMAS(RS)
;CLEAR ATTENTION BIT
ATABIT{(R1),SRCHWT
;CLEAR IMPLIED SEEK SET
R1
;WORD INDEX
#-1,TIMER(RY)
;STOP CLOCK
R1
:RESTOPE R?
PC,OPT
JSTART A REQUEST
SC&
:CHECK FOR MORE DRIVES
R1,RMCS2(R4)
JSELECT DRIVE
RMDS
(R&) ,RMERRS ;SAVE THE FOUR REGISTERS THAT
RMERT(R4) ,RMERRS+?
;WILL TELL US SOMETHING
RMER2(R4) ,RMERRS+4
RMMRZ2
(R4) ,RMERRS+6
RO,DRVINT
JINIT. THE STATE OF THE DRIVE
1%
;TAKE ERROR EXIT
PC
:RETURN
(SP)+
;POP PC OFF OF THE STACK
SC8
JPROCESS THE PARITY ERROR
R1
JSETUP T0 ADDRESS WORDS
#-1,TIMER(RY)
;STOP THE TIMER
R1
.
R1,RMCS2(R4)
JSELECT THE DRIVE
ATABIT(R1) .RMAS(R&)
;CLEAR THE ATTENTION Bl
DPINT(RT)
JINITIALIZING THE DRIVE ?
2%
;BR ]F NOT
DPINT(R1)
JCLEAR THE INIT INDICATOR
RO,DRVINT
;GO INIT THE DRIVE
;DUMMY PARITY ERROR RETURN
DRVSTA(RY)
;DR!VE ONLINE 7
2%
JBR IF YES =-- START ORDER
RZ
;QUEUE ENTRY FOR THE DRIVE
3%
:BR 1F NOT
PC,GETREQ
;GET DPB ADDRESS
#BIT1S'B1T14,16(R2)
;INFORM USER THAT DRIVE OFFLINE
PC.SVRH70
JSAVE THE REGISTEKS
PC,EMPTYQ
JEMPTY THE REQUEST QUEUE
PC,POPQUE
;REMOVE THE QUEUE
3%

BNE
ASL
MOV
ASR
BR
JSR
JMP

63
;SET THEN CALL OPT
R1
#60000, TIMER(RY)
R1
3%
PC,0OPT
;START THE PENDING REQUEST
SC4
;PROCESS OTHER DRIVES

BIT

#BIT11,RMCSTI(RS)

JRM TIMER ROUTINE
s CALL
:
MOV
STIRME,-(SP)
;
JSR
PC.RATHR
005737
001027

15-17

TST
BNE

ACTORV
X 3

;DVA SET ?

JELASPED TIME IN MILLISECONDS ON THE STA(K
;CALL RMOS TIME ROUTINE
JCHECK "'ACTDRY & ACTSIR"
;1F NON ZERO EXIT

CZRMVAQ RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

1011

INJTIALIZATION

043332

112737

1012
1013
1014
1015
1016
1017
1018
1019
1020

0643340
043342
043344
043346
063352
043356
043362
043364
043370

104412
005001
005003
005763
002406
166663
003002
0064737
005201

1022
1023
1026
1025
1026

043374
04643400
043402
043404
043410

022701
003362
104413
105037
012616

1021 043372

}ggg 043412

005723

CODE

000001

MACRO v03.01
037005

037032
000002

11-APR-80
MOVB

1¢037032

063614

2%:

000010
18

037005

000207

SAVREG
(LR
CLR
187
BLT
SuB
B8GY
JSR
INC

1£3

Cmp
BGY
RESREG
CLRB
MOV

RTS

¢ 14
15:01:20 PAGE 15-18
#1,ACTSTR

(R3)

8. .R1
1%

100

JNOTE:

:
;
;CALL:
:

1039 043414
1060 043416

010146
010246

1061
1042
10643
1064
1065
10646

043420
043422
063424
043430
043434
063440

010346
010446
013706
010164
004037
0060012

1048
1069
1050
1051
1052

0636442
063446
063446
063450
043454

0463724
105726
100436
105761
001033

1054
1055
1056
1057
1058
1059
1060

0643462
043464
043470
063476
043476
043502
043506

001030
013702
020137
001404
000137
004737
052762

10467

1053 043456

1061 063514

1062
1063 043520
1064 063526

105761

004737

ST0:

037066
000010
0463736

;

036760

036770

043724
045164
101000

046310

036730

1065 043530

005037

037000

1067 043542

000470

1066 043534

012737

000016

1%:

;

037006

177777

OR GREATER

STO
MOV
JSR
RE TURN

037092

;1S THE TIMER RUNNING?
:BR IF NO
;COUNT THE INTERVAL
;BR ]F NO SOFTWARE TIMEOUT
JCALL SOFTWARE TIMEOUT ROUTINE
;MOVE TO NEXT DRIVE

TIMEOUT ROUTINE

ENTERED AT

PRIORITY 6

;:DRIVE NUMBER
:CALL

R1,=-(SP)
R2.-(SP)
R3,=-(5P)
R4 ,-(SP)
RMADR , R4
R1,RMCS2(RY)
RO,RD.RM

;SAVE R
:SAVE R2

:SAVE R3
;SAVE R&
;GET ADDRESS OFf ''RM(S1"
;SELECT THE DRIVE
:READ ''DRIVE STATUS REG'

ST09
1578
BM]
1578
BNE

(SP)+
S10¢
DPINT(RY)
S102

;1S "DRY''=1?
;BR IF YES
sTRYING TO INTIALIZE
;BR IF YES

BNE
MOV
CMP
BEQ
JMP
JSR
BIS

$102
:BR IF YES
TRNSWT ,R2
:PICKUP TRANSFER WAIT QUEUE
R1,DTUW
:TRANSFER UNDERWAY ON TH]S DRIVE?
1%
;BR ]F YES
ST109
;1F NOT DON'T BOTHER DRIVES
PC,GETREQ
;GET DPB ADDRESS
#BIT1S'B1109,16(R2)
;SET THE ERROR FLAGS

MOV
MOV

Mov
MoV
MOV
MOV
JSR
RMDS

FLAG

:RETURN

#ORYNUM, R
PC.STO

ST0S

1$18

037000
037052

105061
105061

STO1:

THIS ROUTINE MUST BE

:SAVE RO - RS
:START wiTH DRIVE O

;0UT Of DRIVES?
;BR IF NO
JRESTORE RO - RS
:1ERO ACTIVE SOFTWARE
;ADJULST THE STACK

ACTSTR
(SP)+, (SP)

;SOFTWAPE TIMEOUT ROUTINE

1032
1033
1034
1035
1036
1037
1038

;SET "ACISTR”

R1
R3
TIMER(RY)
2%
2(SP),TIMER(R3)
2%
PC,STO
R1

}853

SEQ

JSR

DPRQAS(R1)

JSAVE RH/RM REGJSTERS

TRNSUWT

:CLEAR DPB ADDRESS

FCLR,RMCS2(RG)
DRVACT(R1)
ULDFLG(RY)

Mov

f-1,0Tuw

(LR

B8R

5104

;OUTSTANDING PORT REQUEST FOR THE DRIVE

PC.,SVRH70

MOV
CLRB
CLRB

THE DRiVE

;''INIT' THE MASS BUS
;DRIVE 1S IDLE
JCLEAR THE UNLOAD FLAG
JCLEAR THE

TRANSFER DRIVE

:DON'T BOTHER OTHER DRIVES

017

CIRMVAD RM0S5/3/2 EXT°D DR TST

RH/RM DRIVER

Y N NNNNNNNNO

[elelelololelolololololololololololelel

068
9
0
1

INITIALIZATION CODE

043544
0463550

000016
037054

063554

063556

& 043570

5 043572
6 063574

036760

8 043602

036770

7 043600

3 NN
- O

9 043606

OO ODOROROP

7777

1097 043706
—O
YO NS W

037032

000016

037032

000016

ST07:

ST08:
ST09:

000207

MOvB

8iie
BNE
15718
BNE

0D 14

15:01:20 PAGE
RMAS(RG)

$103

1578

DPINT(RY)
S106
DPRQS(RY)

1578

DPINT(RY)

BNE
BR

BNE
1578

BEQ

MOv

BR
JSR
BR
CLRB
CLRB

MOv
JSR
18T
13°]
8IS
B8R
MOV

CLRB
JSR
1ST
8eaQ

MOv
JSR
JSR
MOv
MOV
MOv
MOV
RTS

ATABIT(RT)
RS

15-19

SEQ 0172

JREAD ATTENTION REG

;lgSAYTENTION FOR

;TRYING

;BR 1F

INTIALIZE

;PORT

TIMER(R3)

PC,C18

$109
OPINT(R1)

DRVSTA(R1)
#-1,TIMER(RY)

;B8R IF

INIT PENDING

REQUEST

PENDING

;BR ]F NOT
;STOP THE TIMER

JEXIY

;60 HANDLE

THE

PARITY

JCLEAR THE INITIALIZE
sSET UNIT OFFLINE

;STOP THE

ERROR

INDICATOR

TIMER

S108

JFINISH

DPRQS(R1)

;CLEAR PORT REQUEST INDICATOR
;GET DPB ADDRESS
;QUEVUE ENTRY FOR DRIVE ?

0?1115181114,16(R2)
#-1,TIMER(R3)

PC.GETREQ

S109

PC,SVRA/0
(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+,R1

sINFORM THE USER DRIVE

;STOP THE

:BR

#BIT1S1B112,16(R?)
PC,EMPTYQ

ST09

DRIVE

JINITIALIZING THE DRIVE ?

;GET THE DPB ADDRESS
JREQUEST IN QUEUE ?
;BR ]F NOT

PC,GETREQ

;BR ]F YES - NO RESPONSE TO REQUEST

1%
DPRAS(RY)

$109

DRIVE

YES - DRIVE NOT ONLINE

JOTHER WISE EXIT

THE

upP ?

JOUTSTANDING PORT REQUEST FOR THE

S107
S109

51?9

THIS DRIVE

NOT

AVAILABLE

TIMER

NONE

: INFORM USER OF PORT RFQUEST ERROR
;CLEAR THE QUEUE FOR THE DR!VE
;SAVE

THE REGISTERS

;RESTORE
sRESTORE
sRESTORE
+RESTORE
;RETURN

R4
R3
R?2
R!

;ROUTINE TO READ A RH/RM REGICTER

SCALL

sO0
VE WA
B NN =2 OOV

el e

2 s OO OO0 O0O0O0O00O
NOPNVPONIN) =t bt 2 =t 2t 2

il
D

el el

il e

el
il
i

D el el el

D e
e
e

il
el

D e

e
D
D

i Tl el

D e

il
e

il el

i
e

ST06:

100004
045050
046310

1098 043714
1099 043720

1%:

036760
036740
177777
045144

177777

063676

037032

ST05:

036770
045144

1095 043702
1096 043704

ST03:

041326

140000

1092 043664
1093 043672

—

ST102:

03677C

0643610
063616
063620
043624
063626
043632
043636
063644
088 043650
089 043652
090 043654
043662

11-APR-B0

036760

2 063562
3 063566

063724
043726
043730
043732
043734

MACRO vO3.01

JSR
INDEX
ERRADR

RO,RD.RM

;AT

062716

037064

044104

037066
043762

043762

043764
037066
Cv0010

éD.RH:
RD.RMI1:

000002

RD.ADR:
RD.WRD:

MOv
MOV
MOV
ADD

MOV
.WORD
. WORD
MOV
MOv
ADD

THIS ADDRESS

;CONTENTS OF REG.

RETURN

043736
063744
063746
043754
043760
0643762
063764
043766
063774
044000

;60 READ A REGISTER
;REG. INDEX FROM BASE
;ERROR ADDRESS=--PROCESS ERROR STARTING

MCPEMX ,RD.RM2
(SP),=(SP)
RMADR,RD.ADR

(RO)+.,RD.ADR
A(PCH+, (PC)+

0
0

RD.WRD,2(SP)
RMADR , = (SP)

#RMCSZ, (SP)

sMAX,

IS ON THE STA(CK

RETRYS ALLOWED

:SAVE RO FOR RETURN
;FORM THE DESIRED ADDRESS
JUSING THE BASE AND THE INDEX
SREAD THE DESIRED REGISTER OF THE RM DRIVE
;ADDRESS 1S FORMED HERE
JREG. CONTENTS PUT HERE
JRETURN IT TO THE USER
;PUT THE ADDRESS ON THE STA(K
;FORM THE ADDRESS OF RM(S?

(ZRMVAQ RMO5/3/2 EXT'D DR TST

RM/RM DRIVER

1125
1126
1127
1128
1129
1130
1131
1132

1133
1136
1135
1136
1137

INITIALIZATION

064004
064010
064012
044016
044022
066026
066026
064030

032736
001037
017746
032716
001002
022620
000632

010000

045234

044036
0644062
066044
044050
044052

004037
104003
005737
100405
032716
001402
005726

037052

052716
000316
013737
005237
112637
000000
005327
000003
002324
011000
012616

040000

064030
064034

1138 044056

1139
1140
1141
1142
1143
1164
1165
1146
1147
1148
1149

CODE

064056
044062
066064
064072
044076
064100
044102
0644104
064106
044110
044112

}}gg 044116

000415

MACRO v03.01

E 16
11-APR-80 i5:01:20 PAGE 15-20

173050
020000

18:

037066
044100

2%:
044100
3.

RD.RM2:

RD.RM3:

000200

RD.RM4:

}}gg

:ROUTINE

1154
1155
1156

JCALL
:
:

1157
1158
}}28

1161
1162
1163
1164
1165
1166

;
:

044116
044126
066132
064134
044140
066142

1167 066150
1168 044152
1169 044156
1170 044160
1171 046162

1172 066164

1173 04646170
1174
1175
1176
1177

013737
016637
012616
012037
001015
122737

002411
004037
000000

044300
000316

062716

000150

037066

062716

044204

037066

(00010

#BIT12,8(SP)+
RD.RM3
ARMADR , - (SP)
#B1T13. (SP)
1%
(SP)+, (RO)+
RD.RM

"READ RMCS1
:DIC MCPE SET?
‘BR IF YES
SADJUST FOR RETURN
CEXIT

JSR
EMT

RO,ES.SAV
3

:SAVE THE ADDRESS IN 'SESCAPE’
*REPORT 'MCPE'' ERROR

B8R

RD.RM3

STAKE THE FATAL ERROR EXIT

044206

BIS
SWAB
MOV
INC
MOVB
.MORD
DEC
.WORD
BGE
MOV
MOV

RTS

1%:
WRT.R1:
WRT.WD:
WRT.AD:

OTUW
2%
#B1114, (SP)
28
(SP)+
281114, (SP)
(SP)
RMADR , 38
3
(SP)+,a(P()+
0
(PC)+
3
RD.RMI
(RO) ,RO
(SP)+, (SP)

;CHECK THE °'NED' BIT
:BR IF DRIVE NON-EXISTENT

:DATA TRANSFER UNDERWAY?
*NO
CCTRE” = 12
:NO
;YES==CLEAN OFF THE STACK AND

SCLEAR "MCPE'* BY SENDING A "'1'* T0 "'TRE"
:POSITION BEFORE WRITING
*FORM ADDRESS OF HIGH BYTE
;WRITE THE HIGH BYTE OF
:ADDRESS STORAGE
“EXCEEDED MAX. RETRYS

RM(SI

:BR IF NO
"FATAL ERROR EXIT

TO WRITE

A REGISTER

MOV
JSR

DATA,=(SP)
RO,WRT.RM

:DATA TO BE LOADED ON THE STACK
SCALL THE ROUTINE TO LOAD(WRITE)

MOV
MOV
MOV
MOV
BNE
(MPB

MCPEMX,WRT.R2
2(SP),WRT.WD
(SP)+,(SP)
(RO)*.WRT.AD
1%
#150,WRT.WD

:MAX RETRYS ALLOWED
-SAVE THE WORD 10 WRITE
SADJUST THE STACK
-GET INDEX OF REGISTER TO BE WRITTEN
“BR IF NOT RMCS1
©1S THE COMMAND FOKk DATA TRANSFERS?

WRT.R3
SWAB

(SP)

INDE X
ERRADR
RETURN

BLT
JSR
RMCS1

177770

013746

1179 044216

WRT.RM:

043736

044205

063737
012737
000000
00VUO0

064274
044204

064206

112637

0646174
066202
044206
064206

1178 044210

037064
000002

BIT
BNE
MOV
BIT
BNE
CMP
BR

ST
BM]
BIT
BEQ
TST

040000

SEQ

1%
RO,RD.RM

THE
:INDEX OF THE REGISTER 1O BE LOADED
“ADDRESS TO RETURN 10 ON AN ERROR
*ERROR FREE RETURN

SYES==DON'T GET THE OLD Al6 & A17, & PSEL
*NO---COMBINE A168A17, & PSEL WITH
“THE COMMAND BEFORE SENDING 11 10
“THE

RH/RM

BIC

#°C7,(SP)

ADD
MOV
.WORD
.WORD

RMADR.WRT.AD
(PC)+,@(PC)+
O
O

;FORM THE ADDRESS OF THE DISK REG.
:LOAD THE DESIRED REG.
‘WORD T0 WRITE GJIES MERE
*ADDRESS IS FORMED HERE

ADD

SRMCSS, (SP)

:FORM THE ADDRESS OF RM(S?2

MOov8

MOV

(SP)+ ,WRT WD+1

RMADR , - (SP)

REG.

:PUT

THE

ADDRESS ON THE

STALK

0173

(ZRMVAD RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

RO
81
B2
83
84
85
86
87
88
89

INITIALIZATION

064220
066226
064226
044232
0664234
044236
044242
0662446
044252
044256

90 064260
91 044262
1192
1193
1194
1195
1196
1197
1198

064266

044270
044272
044274
044276
044300
044302
044304

:;88 044306

03273
001025
004037
000014
044300
032726
001420
016037
004037
000000

044300
004037

104004

CODE

MACRC v03.01

11-APR-80

010000
043736
000010
177776
043736

044256
1%

045234

005726
005327
000003
002341
011000
000401
005720

WRT
. R2:
WRT
. R3:
WRT.RG:

000200

WRT.RS:

}%8}

;ROUTINE

1203
1204

sCALL
:

}ggg

1207
1208
1209
1210
1211

1212
1213
12146
1215
1216

H
044310
044312
044314
044316
06446322

044326
064332
0644336
044340
044346

104412
005702
201442
013704
111264
016203
001433
005037
023727
001006

044356
044360
044362
044364
044370
064372
044376
064376
064404
0444606

001002
005023
000405
004037
000000
044416
012623
023727
001406
062737

1217 044350
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227

1228 044614

1229 044416
1230 044422

}Si} 044424
1233

1234
1235

032764

000751

004737
104413

000207

SVRH70:
037066
000010

000014

044370
044370

000022

000200

000010

043736

000046

000002

044370

817
BNE
JSR
RMER1
WRT.R3
8I7
BEQ
MOV
JSR
.WORD

#B1T03,(SP)+
WRT.R&
=2(R0),$
RO,RD.RM
0

EMT

RTS

WRT.R3
JSR
187
DEC
.WORD
BGE
MOV
BR
TST

TO SAVE

MOV

JSR

SAVREG
ST
BEQ
MOV
MOvB

MOV
BEQ
(LR
(MP
BNE

BI1

2%:
3%

044370

041226

1%:

4$:

5% :
6%:

SROUTINE
;CALL
:

15:01:20 PAGE

BNE
(LR
BR
JSR
.WORD
5%
MOV
CMpP
BEa
ADD

B8R

JSR
RESREG

RTS

15-21

PBIT12,8(SP)+
WRT.R3
RO,RD.RM

RO,ES.SAV

(SP)+
(P{) e
3
WRT . R1
(RO),RO
WRT.RS
(RO) ¢
THE

SEQ

;(HECK THE °'NED' BIT
;B8R IF DRIVE NON-EX]STENT
;CHECK FOR PAR]ITY ERROR ON WRITE

;BR IF "‘PAR=("’
;PICKUP THE INDEX
;READ THE REG.
;REG. INDEX
:RETURN TO TH]S ADDRESS ON ERROR
;SAVE THE ADDRESS IN 'SESCAPE'
;REPORT THE PARITY ON WRITE ERROR
:CLEAR OFF THE STACK
;DECREMENT THE ERROR COUNT
;RETRY COUNTER
;TRY AGAIN IF NOT FINISHED
:TAKE THE ''PARITY ON WRITE'® ERRCR EX]T
JEXIT
;ADJUST

FOR ERROR FREE

EXIT

RM/RM REGISTERS AS PER DPB¢14

#OPBNUM , R?2

PC,SVRH70

R2
6%
RMADR,
R4
(R2),RMCS2(R&4)
14(R?2),R3
6%
is
38 .#RMDB
2%

#B1T07 ,RMN(S2'R4)
2%
(R3)+
A Y
RO,RD.RM
O

(SP)+,(RY)+
38 ,/#RMEC?
6%
2,3%

PC.C17

TO SET THE
MOV

:DPB POINTER T0 R2

;SAVE THE DRIVES REG'S
:SAVE RO - RS
:QUEUE ENTRY FOR THME
;BR ]F NONE

;SELECT DRIVE

:GET THE ERROR TABLE POINTER
EXIT JF NO ADDRESS
;COUNTER & POINTER
JREACHED THE BUFFER REGISTER ?
:8R IF NOT

:'OR* SET ?

:BR IF SET
;STORE RMDB AS ZEROES
; CONTINUE
;READ THE SELECTED REGISTER
JREGISTER INDEX
;ERROR RETURN ADDRESS
:STORE THE REGISTER CONTENTS
JREACHED THE END ?
:BR JF YES
JINCREMENT THE REGISTER INDEX

:CONTINUE READING THE REGISTERS
;PROCESS THe UNCORRECTABLE
;RESTORE RO - RS

:RETURN

INTERRUPY WITHOUT GETTING A ''TRE"

#ORVNUM, R

DRIVE

:DRIVE NUMBER

10 R!

PARITY

ERROR

0174

INITIALIZATION

CODE

11-APR-80

.
:
044426
044430
046434
064440
066662
046646
064450
064656
044662
046664
064466
044470
0646476
0646476

SET.]E:

037066
000010
040000
000100
010000

000001

SSET IR

MOV

R4 ,=-(SP)
RMADR,RG

;SAVE Ré
:PICKUP ADDRESS OF RM(S!
JSELECT DRIVE

MOV
MOV
MOV

MOvB8

1$:

BNE
181
B8R
MOvB

MOV
RTS

. QUEUE COUNT

044500
044501
044502
044503
044504
044505
044506

QCNT:

.BYTE
.BYTE
.BYTE
.BYTE

1262 064507

SEQ 0175

PC,SET.IE

BIT

2%:

15-22

JSR
RE TURN

BIS
SWAB

000010

G 14

15:01:20 PAGE

R1,RMCS2(R&)
(R&) ,-(5P)
#BIT14,(SP)
(SP)
#B1T06, (RG)

721!12.RHC52(R4)

;READ RM(SI

;SET THE ''TRE'' BIT OF

;ADJUST FOR DATO

;1S 'NED''=1?
;YES==CLEAR ''TRE"’
THE STACK

(SP)+

sCLEAN OFF

(SP)+ ,1(R4)

;CLEAR "'TRE''
;RESTORE R&
;RETURN TO CALLER

(SP)+ R4

THE WORD READ

;DRIVE
;DRIVE

sDRIVE

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

NOWNES
NN —O

[o X o JV IV IV IV IV IV IV IV TV TV U 3 o3 oI S S S F oF oW VTV IO T
= OOV
NONE WM —=OOV®NO NS WA= OV~

OO0
O00000 NN NN NNNNNNV
OB WM
= OVBNV
WM —=O

044572
066612

QINPT:

064632
044652
044072
064712
064732
064752

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

QDRVO
QDRV1
QDRV?
QDRV3
QDRV&

QDRVS

QDRV6

QDRvV?7

;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

— O

.QUEUE INPUT P OINTERS

NOWVN SN

el
D
Al
il
i
D
D ol
il
ld
il
D el
il
il
il
el
il
il
il
) canld
)
—

(A1, NT, ST, T, ST, VT,V 1,O1, ST BT, VI, V1, W1, V1, VY, U7, V1, VT, ST, V7, V1, V1, V1, V1 VT ¥

RH/RM DRIVER

MICRO v03.01

OOO0OOOOO

(IRMVAQ RMO5/3/2 EXT'D DR TST

;QUEUE OUTPUT POINTERS
046530
044532
046534
044536
044540
0445642
044544
044546

044572
044612
044632
044652
044672
044712
044732
044752

064550

0464572
04646612
064632
064652
044072
0464712
064732

7 044552

8 044554
9 064556
0 044560
1 064562

2 044564

QOUTPT:

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

QDRVO
QDRV1
QDRV?
QDRV3

,WORD

QDRVO
QDRV1
QDRV?2

.WORD

QSTART:

QSTOP:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

QDRV4

QDRVS

GDRV6

QDRV7?

QDRV?3
QDRV4

QDRVS

QDRV6

ART

ADDRESS

OP ADDRESS & DRIVE
1==START DRIVE 2

2==START DRIVE 3
3-=START DRIVE &
§&--STARI DRIVE S
5-=START DRIVE

START

ADDRESS

O ~NOo

QDRV&:

QDRVS:
QDRV6:

QDRV7:

044772

QTERM=,

.BLKW

.BlLXW

el
il
il
il
il

.BLKW
.BLKW

.BLXW

)

QDRV?2:
QDRV3:

.BLKW

QDRV1:

QDRVO:

TCALL
RO RO NI NV RO N
=
NV MR
=

CLRQUE:

044500

000010
044550

1$:

000010
044550

2%:

LCALL

105061

006301
016161
006201
000207

044500
0646510

EMPTYQ:

044530

THE REQUEST QUEUES

PC.TLRQUE

SAVREG

MOV

FAONT R?

MOV
MOV

FASTART R

MOV
MOV

MOV

DEC
BNE
RESREG

1%
#8.,R3
#QSTART,R1
(51)‘.(R2)0
R

;ADDRESS

QUEUE

THE

RO - RS

SPECIFIED BY R}

;DRIVE NUMBER

(LRB

Q%NT(R1)

;CLEAR NUMBER OF

MOV
MOV

JSR

INTO

;MOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
;QUEUE OUTPUT POINTER

DRVNUM,R1

ASL
MOV
ASR
RTS

QUEUE

INPUT POINTER

MOV

JSR

COUNTS

&1
£ 3
& 5
& 7
STARTING

. THE QUEUE

;RESTORE

QUEUE

THE

;DRIVES 0
;ORIVES 2
;ORIVES 4
;DRIVES 6
;MOVE THE

PC,EMPTYQ

0%NPT(R1),00UTPT(R1)

R
PC

;ROUTINE TO PUT A REQUEST
JCALL
:
;

;JERO

(§1)0,(R2)0

MOV
DEC
BNE

THE

;SAVE RO - RS

(RQ)¢
(R2)+
(R2)+
(R2) ¢
#8.,R3

RTS

;EMPTY

045050
045054
045056
045064
045066

JSR

CLR
CLR
CLR
(LR

NN NN

O—=O00000O0O0O0O0O
OO0
=~ =00 —— -

O£ = NRINON
= N PRUNI N

045044
045046

==START DRIVE

;DRIVE REQUEST QUEUES

:ROUTINE TO CLEAP ALL OF

044772
044774
045000
045002
045004
045006
045010
045014
045020
045022
045024
045026
045032
045036
045040
045062

~NO

QDRv7

QTERM

.WORD
.WORD

SEQ 0176
P>
-

0447952
064772

=0
~NO VNS W
NO NS WA = OV
OOV®NO VNS WOV
NN
OD®NO N

D —
o
il
ol
e
e
il el o
sl e
D
D
il e
i
D
i
i
i
D
D
e
D e
i
D
el
D el
D
sl
k) e
il
e
e
)
D e

e s Lng At Lt U s Lt (i A L i Ui Ut L U Ut Ll Ut Ut A At U L A L A U i N L L L U 3 U A Ui L U i N (V)
EEDDEDEE
D M MNAM N ANNAN N NANIPNININININIPNINININ
= bt bt et et bt s 2 s O O o0

1293 044566
1294 044570
1295
1296
1297
1298
1299
1300
1301
130¢
1303
1304
1305

W1 &
15:01:20 PAGE 15-23
<<

INITIALIZATION CODE

11-APR-BO

OCOO0OOOOOO

RH/RM DRIVER

MACRC v03.01

—

CZRMVAO RM05/3/2 EXT'D DR TST

#ORVNUM R
#0PB,R2
RO,DRVQUE

;SET

T0O R!
ITEMS

OUTPUT

[N QUEUE

QUEUE

POINTER=INPUT

IN QUEUE

;DRIVE NUMBER
sADDRESS OF PARAMETER BLOCK
.60 PUT REQUEST IN QUEUE

POINTER

CZRMVAQ RMO5/3/2 EXT'D DR TST

RH/RM DRIVER

INITIALIZATION

CODE

MACRC v03.01

1350

}gg}

1353
1354
1355
1356
1357
1358
1359
1360
1361
1362

1
11-APR-80 15:01:20 PAGE

045070
0645076
045100
045104
065106
045112

065120
045126
045130
045136

1363 0645140
}ggg 045142

122761
001621
105261
006301
010271
062761
026161
001003
016161
006201
005720

000010

044500

044510
000002
044510

044510

044550

044510

RETURNZ

DRVQUE:

(MPB
BEQ
INCB
ASL
MOV
ADD
C(MP
BNE
MOV
ASR
181

044552

000200

1$:

2%:

1%29

sROUTINE

1368
1369
1370

s CALL
:
:

}g;%

;

13721

1374 045144

005002

1376 045152
1377 0451564
1378 045156

001404
006301
017102

}gg? 065164

000207

1375 045146

1379 045162

105761

006201

044500

044530

}ggg 045232

1401
1402
1403
1404
1405
1406
1407

000207

044530
064552

<4550

044530

#10,QCNT(RY)
2%
QCNT(RY)
R1
R2,3QINPT(R1)
#2,QINPT(RY)

;1S QUEUE FULL?
:BR IF YES-TAKE RETURNI
;s INCREMENT QUEUE COUNT

sRETURN TO USER

;PUT THIS REQUEST IN QUEUE
sUPDATE THE QUEUE PC NTER
QINPT(R1),QSTOP(RY)
JTIME TO RESET THE POINTER
1%
:BR IF NO
QSTART(R1),QINPT(R1)
JYES==RESET POINTER
R1
(RO)+
;TAKE RETURN ¢
THE ''DPB'' ADDRESS OF

#DRVNUM, R
PC,.GETREQ

NEXT REQUEST

IN QUEUE

;DRIVE NUMBER T0 R!
;60 GET THE REQUEST

;R2=""DPR'' ADDRESS OF
;R2=0

NO REQUEST

THE REQUEST

IN QUELUE

1%:

2%
R!
9Q0UTPT(R1),R2

;PICKUP ''DPB'' POINTER FOR THIS CRIVE

RTS

JRETURN TO USER

;CALL
:
;
;

044530
044530
N00002
76530

RE TURN

IS FULL

BEQ
ASL
MOV

2%:

064500

MOV
JSR

IF QUEUE

JRETURN HERE 1F REQUEST ]S IN QUEULE

1384
1385
1386
}ggg

S TR
)i 20
& “¢
O0G.."
06¢7
026'
0010%:
01616
00620°

TO GET

JRETURN MERE

(LR

JROUTINE

045166
045172
045174
045200
045204
045212
04522C
045222
045230

RTS

SEQ

GETREQ:

};g%

1389
1390
1391
1392
1393
1394
1395
1396
1397

RETURNI

044500

14
15-24

1518

ASR

QCNT(RY)

TO ''POP'" THE

MOV
JSR
RETURN

POPQUE: DECB
ASL
MOV
CLR
ADD
CMpP
BNE
MOV
1$:
ASR

RTS

REQUEST

#DRVNUM R
PC,POPQUE

;1S

;NO

THERE

ANY

RFQUEST

IN QUEUE?

FROM QUEUE

;DRIVE NUMBER 70 R1
JCALL TO REMOVE REQUEST
;R2=ADDRESS OF DPB REMOVED

QCNT(RY)
;DECREMENT QUEUE COUNT
R
dQOUTPT(R1)
,R2 ;GET THE °‘'DPB'' POINTER
8QOUTPT(RY)
JREMOVE DPB ADDRESS FROM THE QUEUE
#2.,Q0UTPT(RY)
JUPDATE THE QUEUE POINTER
QOUTPT(R1),QSTOP(RYT)
;TIME TO RESET THE POINTER?
1%
;NO--BR T0 EXIT
QSTART(R1),Q0UTPT(R1)
JYES=-RESET THE POINTER
R1

sRETURN TO USER

JROUTINE TO SAVE THE CONTENTS OF °'SESCAPE' WHEN THE
JREPORTS AN ERROR DIRECTLY.
;
CALL
.
JSR
RO,ES.SAV
;
ERROR
N
;s THE ERROR CALL
:
RE TURN
JTHE RETURN 1S PAST

DRIVER

THE

ERROR (ALL

0177

CZRMVAD RMOS5/3/2 EXT'D DR TST

RH/RM DRIVER

1408
16409
1610
1411
1412
1413

INITIALIZATION CODE

065236
0652640
045246
065250
065252

}:}2 045256

012037
013746
005037
000000
012637

000200

045250
001222
001222

001222

MACRO v03.01

11-APR-80

J
15:01:20 PAGE

16
15-25
SeQ 0178

ES.SAv:

1%:

MOV
MOV
CLR
.WORD
MOv

RTS

(RO)+,18
$ESCIPE,-(SP)
$ESCAPE
0
(SP)+ SESCAPE

;GET THE ERROR CALL
;SAVE THE ADDRESS [N °'SESCAPE'
:CLEAR THE ESCAPE RETURN
:THE ERROR CALL IS MOVED HERE
;RESTORE THE ESCAPE ADDRESS

SRETURN

CZRMVAQ RMO5/3/2 EXT'D DR TST

MACRO v03.01

11-APR-80 15:01:20 PAGE

GETADR - GET BUS ADDRESS AND VECTOR ADDRESS

;

.SBTTL

;OF

THE

SEQ 0179

GETADR - GET BUS ADDRESS AND VECTOR ADDRESS

;THIS ROUTINE

RH/RM

IS USED TO ENSURE THE BUS ADDRESS
IS

SETUP TO READ THE

PROPER

VALUE.

J1T WILL ALSO READ THE ADDRESS FROM THE TTY

:CALL

6
7

sREQUIRED,
JNOTE: THIS ROUTINE DESTROYS RO-R4

JSR

RETURN

PC.GETADR

001322

GETADR:

001322
001470
045436

1%:

TST
8EQ
(LR
MOV
MOV
MOV
JSR

BUSADR
5%
BUSADR
#RH.ADR,RO
#MRMCST,R3
(RO) ,R4
RO,GETNUM

IR 3

MOV
CMP

R1,ERRVEC
(SP)+,(SP)+

};

13
14
15
16
17
18
19

045260
045264
045266
045272
0465276
045302
045304

20
21
22
23
26
25
26
27
28

045310
045312
045314
045316
045320
045324
045326
045332
045334

30
31
32
33
34
35
36
37
38
39
40

045340
045342
045344
045350
045356
045362
0645366
045372
045376
045400
045402

29 04533C

61 045404
42 045410

005737
001427
005037
012700
012703
011004
004037

000402
000767
000412
010420
012703
011004
004037
000402
000756

034070

000401

010420
010410
013701
012737
005777
010137
012700
012701
012021
012021
000207

000004
045404
134106
000004
001470
037066

010137
022626

000004

06456414
0645420
045422
045426

005737
001724
005037
005037

000042

50 045436
51 045446

200
200

122
122

43 045412

&4
45
&6
47

28 045432

2$:

u45446

104010

000137

000004

3%:
4%:
5%:

6%:

BR
B8R
BR
MoV
Mov
MOV
JSR
BR
BR
MOV
MOV
MOV
MOV
18T
MOV
MOV
MOV
MoV
MOV
RTS
EMT

001326
021172

021020

115
115

MRM(CST:
MRMVEC:

;INPUT FROM TTY REQUESTED?
sNO=-=BRANCH
JYES-=CLEAR THE REQUEST FLAG
:FIRST ADDRESS
;'RMCS1="
:PRESENT RM(CS1 ADDRESS
JGET NEW RM(S!

2%
1%
4%
R4, (RO) ¢
FMRMVEC,R3
(RO) ,R4
RO,GE TNUM
3%
1%

; COMMA
JPERIOD
;DOUBLE PERIOD
;SAVE NEW RM(CS1
;'RMVEC="'
;PRESENT RH/RM VECTOR ADDRESS
;GET NEW RMVEC
; COMMA
;PERIOD

R4, (RO) 4
R4, (RO)
ERRVEC,R1
#6$ ,ERRVEC
aRH.ADR
R1,ERRVEC
#RH.ADR,RO
#RMADR,R1
(RO)+,(R1)
(RO)+,(R1)¢
PC

sSAVE NEW RMVEC
;sSAVE INPUT
;SAVE THE ERROR VECTOR
;SETUP FOR TRAP
;CHECK FOR RH/RM
JRESTORE ERROR VECTOR
;FIRST ADDRESS OF NEW PARAMETERS
;FIRST ADDRESS OF WHERE TO PUT THEM
.BUS ADDRESS
;VECTOR ADDRESS
JRETURN

1ST
BEQ
CLR
(LR

ane?
1%
DRVSEL
$EOPCT

ASCIZ
.ASCIZ

<CRLF>/RMCS1=/
<CRLF>/RMVEC-/

JMP

$EOP

:DOUBLE PERIOD

JRESTORE ERROR VECTOR
;CLEAN OFF THE STACK

:1S THERE A MON]TOR?
:NO=--60 ASK FOR ADDRESS
JYES==-NO DRIVES SELECTED
:NO PASSES

;GO TO END OF PROGRAM

LSBTTL

DPB

DPB.A:

.BYTE
.BYTE
BYTE
.BYTE
.WORD

0
0
0
0
0

SEQ 0180

36 045507

000

.BYTE

38 045510
39 045512

000000
045556

.WORD

TP
YRR
YR
I
R

RM.REG

177¢76

052776

.WORD
.WCRD

UFFER

By,
BeBe

.BYTE

pPB.C:

.WORD

[p %]

006000

DI OCOOO

65 045514

NN — O

V= P POV =D OGO~ = o o

e = MO
—
——
= MMUVO O
2t

O~——-O0D

IC ATE

TYPE OF

ERROR

DRIVE NUMBER

PSEL AND A17 AND A1l6

OFFSET VALUE OR FMT16, ECI, AND HCI
COMMAND

WORD COUNT (MUST BE NEG.)
BUFFER ADDRESS OR
ISTER TABLE POINTER
) SECTOR ADDRESS OR
ST REG. INDEX

) TRACK ADDRESS OR
T REG. INDEX

O—-N——OoDDO

.WORD

=1=>ERROR GCCURRED
15=1

1 DONE
07==1=>
14 -BIT09 AND BIT06-B1T03

.BYTE

ATIONS OF WHERE THE DRIVER
TO STORE THE RH/RM
ISTERS ON AN ERROR. IF LEFT
0 REGISTERS ARE NOT SAVED.
) STATUS/ERROR INDICATOR

000

UFFER

(MUST BE NEG.)

) ERROR TABLE POINTER
N TS TO THE FIRST OF TWENTY

NNV

AR IR
T
YIE YT
TIE T

34 045506

.BYTE
.BYTE
.WORD

.WORD

.BYTE
.BYTE

052776

DPB.B:

WIOOoOOoOo

26
27 045476
28 045477
29 045500
30 045501
31 045502
32 045504

.WORD

000000

045474

(PR TEITEIEIEIE

R M.REG

WORD COUNT

= =

= MO

.WORD
.WORD

000000
045556

045470
045472

COMMAND
PSEL AND A17 AND Al6

S T REG. INDEX
) TRACK ADDRESS OR
T REG. INDEX
) CYLINDER ADDRESS

OVt PN = DO G

= taet =2 MMNOO

.BYTE

000

DRIVE NUMBER
OFFSET VALUE OR FMT16, ECI, AND HCI

BUFFER ADDRESS OR
1 STER TABLE POINTER
) SECTOR ADDRESS OR

o N

045467

MO
NNV —O

B UFFER

GO = "

.BYTE

000

045466

.WORD

000000
052776

IPIE

045656
045457
045460
045461
0456462
045466

(DATA PARAMETER BLOCKS)

NN
= OO0
~NO

L 14
17

15:01:20 PAG E

11-APR-80

—= O O 00 ~NO

VNI

NN —

(DATA PARAMETER BLOCKS)

POPNIPNVNININD
b b b e d ed ed b e
b

DPB

MACRO v03.01

b o NN

CIRMVAO RM05/3/2 EXT'D DR TST

CYLINDER ADDRESS
ERROR TABLE POINTER
TS TO THE FIRST OF TWENTY
TIONS OF

WHERE

THE DRIVER

0 STORE THE RH/RM
STERS ON AN ERROR. IF LEFT
R EGISTERS ARE NOT SAVED.
) TATUS/ERROR INDICATOR
5= 1=>ERROR OCCURRED
1= 1=>DONE
4~

BIT09 AND BIT06-BIT03

CA TE TYPE OF

ERROR

DR IVE NUMBER

OFFSET VALUE OR FMT16, ECI, AND H(CI
COMMAND

PSEL AND A17 AND Al6

WORD COUNT (MUST BE NEG.)
BUFFER ADDRESS OR
ISTER TABLE POINTER

CIRMVAO RM05/3/2 EXT'D DR TST
(DATA PARAMETER BLOCKS)

gg 045526

11-APR-80

000

SEQ 0181

.BYTE

60 045527

000

.BYTE

62 045530
63 045532

000000
045556

.WORD
.WORD

69 045534

M 14
15:01:20 PAGE 17-1

000000

SECTOR ADDRESS OR

REG. INDEX
TRACKX ADDRESS OR
REG. INDEX
CYLINDER ADDRESS

ERROR TABLE POINTER
S TO THE FIRST OF TWENTY
IONS OF WHERE THE DRIVER
STORE THE RM/RM

TERS ON AN ERROR.
REGISTERS ARE NOT

.WORD

IF LEFT
SAVED,

STATUS/ERROR INDICATOR
=1=>ERROR OCCURRED
=1=>DONE

-BIT09 AND BIT06-B1703

ATE

.WORD
-WORD

ETE

000000
045556

R
R
N I

M.REG

N
R

000000

93 045554

.WORD

TYPE OF

ERROR

DRIVE NUMBER
OFFSET VALUE OR FMT16,
COMMAND
PSEL AND A17 AND A1l6

.BYTE

000

R IR

.BYTE

UFFER

000

DTADPB:

86 045550
87 045552

POOOOO

84 045547
85

052776

.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD

80 045544
81
g% 045546

000
000
000
000
000000

045536
045537
045540
0455461
045542

75
76
77
78
79

WORD

COUNT

(MUST BE

BUFFER ADDRESS OR
ISTER TABLE POINTER
)

ECT,

AND HCI

NEG.)

SECTOR ADDRESS OR

ST REG.

INDEX

T REG. INDEX
) CYLINDER ADDRESS
) ERROR TABLE POINTER
NTS TO THE FIRST OF TWENTY
ATIONS OF WHERE THE DRIVER
TO STORE THE RH/RM

ISTERS ON AN ERROR. IF LEFT
O REGISTERS ARE NOT SAVED.
)}

STATUS/ERROR

INDICATOR

15=1=>ERROR OCCURRED
07=1=>DONE
164-BIT09 AND BIT06-B1T703
ICATE TYPE Of ERROR

;SAVE RH/RM REGISTERS HERE ON ERROR
101

045556

000000

& 0645564

000000

7 045572

000000

2 0645560
3 045562

5 045566
6 045570

8 045574
9 045576
0 045600

000000
000000

000000
000000
000000

1 045602

000000

& 045610

000000

2 045604
3 045606

000v00
000000

RM.REG:

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

OOOOOOOOOOOOO0O

DPB

MACRO v03.01

;RMCS1

(776700) CONTROL & STATUS M

;RMWC (776702) WORD COUNT
;RMBA (776704) BUS ADDRESS
:RMDA (776706) DESIRED SECTOR/TRACK
:RMCS2 (776710) CONTROL & STATUS #2

;RMDS (776712) DISK STATUS

;RMER1 (776714) ERROR REG. #1
;RMAS (776716) ATTENTION SUMMARY
;RMLA (776720) LOOK AHEAD

;RMDB (776722) DATA BUFFER
;RMMR1

(776724) MAINTAINABILITY

<RMDT (776726) DRIVE TYPE
;RMSN (776730)
;RMOF (776732)

SERIAL NUMBER
OFFSET

DPB

(DATA PARAMETER BLOCKS)

115
116
117
118
119
120
121
122

045612
045614
045616
045620
045622
045624

000000
000000
000000
000000
000000
000000

MACRO v03.01

.EVEN

11-APR-80
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

N 16
15:01:20 PAGE 17-2
OOOOOO

CIRMVAQ RMO05/3/2 EXT'D DR TST

;RMDC

SEQ 0182

(776734) DESIRED CYLINDER

;RMHR (776736) CURRENT CYLINDER
;RMMR2 (776740) ERROR REG #2

;RMER2 (776742) ERROR REG #3
SRMECY (776744) ECC POSITION
;RMEC2 (776746) ECC PATIERN

CIRRVAO RM05/3/2 EXT'D DR TST

ASCIZ MESSAGES

MACRO v03.M1

;
3
4
5
6
7
8
9
10
11
12
13

045626
045630
045633
045636
045641
045644
045647
045652
065656
045662
045666

000
000
000
000
000
000
047
0647
0647
000

MSG.R:
MSG.FC:
MSG.LC:
MSG.IC:
MSG.FT:
MSG.LY:
MSG.IT:
MES.FT:
MES.LT:
MES.IT:
MSG.FS:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ

/R/
/F¥C/
/LC/
/IC/
/F1/
/L1/
/11/
/FT'/
/L1"/
/11'/
/FS/

200

103

117

MSG.CS:

.ASCIZ

<CRLF>/CONTROL SWITCHES=/

SLASH:

,ASCIZ

8/ @

19 045725

040

057

0640

24 046005
25 046015
26 046036
27 046056
28 046063
29 046070
30 046075
31 046125
32 046132
33 046135
34 046222
35 046242
%9 066253

040
040
040
122
122
122

125
116
1B}
115
115
115

116
117
123
060
060
060

045731
045747
045760
045770

ASCI2 MESSAGES

000
103
103
103
1264
124
126
126
124
1264
123

114
120
075

20
21
22
23

.SBTTL

SEQ 0183

122
124
114
m
106
114
M
106
114
m
106

14 045671
15 045674
16 045700

}; 045702

B 15
11-APK-80 15:01:20 PAGE 18

200
040
040
040

123
101
000

1¢5
117
117
116

000
126

116
106
116
117

MSG.LS: .ASCIZ
MSG.PAT: ASCIZ
MSG.EQ: .ASCIZ

UNSTAT:
UNTOFF:
UNTONNOTPRS:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>/UNIT STATUS:/
/ OFFLINE/
/ ONLINE/
/ NOT PRESENT/

200
116
056
200
200

104
117
040
116
012
102
124

122
116
000
117
1°4
101
105

DRIVES:
NONE:
COMMA:
NOCLOK:
TSTDRV:
SERIAL:
MSGTST:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ

/ UNSAFE/
@ NOT AN RM05/3/23
/ 1S LOAD DEVICE/
/RmMO2/
/RMQ3/
/RMOS5/
<CRLF>/DRIVE(S) TO BE TESTED /
/NONE/
7/, /
<CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/
<CRLF><LF>/TESTING DRIVE/
/MBA SN¥ /
<CRLF>/TEST/

38 046261
39 046312

200
200

012
012

122
117

ROTATE:
ONECYL:

.ASCIZ
.ASCIZ

<CRLF><LF>/ROTATIONAL SPEED TIMES/
<CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ + FORWARD/

z} 046464

200

040

052

REV:

<ASCIZ

<CRLF>/ « REVERSE/

60 046357
61 046424
62 046450
45
66
67
68
69
50

91
952
93
56
55
46
57

066500
046506
046514
0466522
046527
046556

046605
066625
046642
046655
066656
046657
046660

115
200

200
200
200

200
200
200
060
040
040

040
040
040
040
uk0
040
040

012
012
040

101
115
052

115
115
101
040
102
101

111
101
126
125
105
102

123
123
116

000

105
105
117

NOTSAF: ,ASCIZ
NOTRM:
_ASCIZ
LODEV:
.ASCIZ
S$RMO2:
.ASCIZ
SRMO3:- .ASCIZ
SRMOS5:
.ASCIZ

/LS/
/PAT/
/=/

ACCESS:
MXSEEK:
Fwb:
MSGMIN:
MSGMAX:
MSGAVG:
MSGOUS:
MBELOW:
MAOVE:

M<S: €A:
MouNUM:
MSGNON:
BLNKS&:
BLNKS3:
BLNKS2:
BLNKSY:

.ASCIZ
.ASCI]
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCI2

ASCIZ
_ASCIZ
.ASCIZ
.ASCII
.ASCI]
.ASCI1
.ASCIZ

<CRLF><LF>/ACCESS TIME MEASUREMENT/<CRLF>/
<CRLF>SLF>/MAXIMUM SEEK TIMES/
<CRLF>/ * FORWARD/
<CRLF>/MIN=/
<CRLF>/MAX=/
<CRLF>/AVG=/
/0 US/
/ BELOW THE MINIMUM OF
/ ABOVE THE MAXIMUM OF

/
/
/
7/
/
/
/

SEARCHES TIMED/
SEEKS TIMED/
NOT TIMED/
/
/
/
/

/
/

* FORWARD/

CIRMVAQ RMO5/3/2 EXT'D DR TST

ASCIZ

MESHAGES

58
59
60
61
g%

066662
046737
047012
067056
047110

101
101
101
101
101

114
114
114
114
e

MACRO v03.01

114
114
114
116
116

11-APR-80

MSG7XA:
MSG7XB:
MSGIOX:
MSGI1IX:
MSGI2X:

_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

15:01:20 PAGE

SALLOWABLE
/AL_OWABLE
/ALLOWABLE
/ALLOWABLE
/ALLCWABLE

18-

ROTATIONAL SPEED LIMITS FOR RM0S/33
ROTATIONAL SPEED LIMITS FOR RMO2/
ONE CYLINDER SEEK LIM]T/
ACCESS TIME LImM]T/
MAXIMUM SEEK TIME LImMjT/

SEQ 0184

(IRMVAQ RROS5/3/2 EXT'D DR TST

ERROR HMEADER

(EM)

MESSAGES

MACRO v03.01

;

11-APR-80

D S

15:01:20 PAGE

.SBTTL

ERROR HEADER

SEQ 0185

(EM MESSAGES

3 0647152

122

110

057

Em1:

LASCIZ

@RM/RM INTERRUPT OCCURRED (RMAS = 0)a

5 047254
6 047311

11%
115

101
101

123
123

EM3:
EMs:

LASCIZ
LASCIZ

/MASSBUS PARITY ERROR(M(PE=1)/
/MASSBUS PARITY ERROR(PAR=1)/

& 047216
7 047345

8 047401

9
10
11
12
13
16

125
101

122

116
104

110

067447
067506
064753
047556
047610
047657

104
m
104
104
103
104

122
115
101
m
114
m

16 047746

122

110

15 047706

}; 047762

123

106

105

101

105

106

057

EM2:
EMS:

EM10:

111
120
126
123
117
123

EM11:
EM12:
EM13:
EM17:
EM20:
EM23:

057

EMGY:

105

126

EM24:

EM&LG:

CASCIZ
-ASCIZ

LASCIZ

.ASCIZ
.ASCIZ
CASCIZ
LASCIZ
LASCIZ
.ASCIZ
CASCIZ

LASCIZ

/UNEXPECTED ATTENTION OCCU'RRED/
/ADORESS PLUG CMANGE BIT

SET/

QRH/RM FAILED TO RESPOND TO ADDRESSINGS

/DRIVE SELECTED IS NOT ONLINE/
/IMPROPER HMEADER DATA/
/DATA COMPARE FAILURE/
/DISK ERROR IN TIMING TEST/
/CLOCK (KW11=P) OVERFLOW IN TIMING TEST/
/DISK ERROR DURING SEEK/
/SEEXK NOT

COMPLETE

@RH/RM ERRORS

WITHIN

/FATAL WRITE CHECK ERROR/

120 MS/

CIRMVAOQ RMO5/3/2 EXT'D DR TST

STATUS/ERROR

INDICATOR MESSAGES

MACRO v03.01

LOBTTL

3 050012

117

106

S 050105
6 050127

120
120

105
101

8 050200
9 050237

123
123

117
117

}2 050955

104

& 050054
7 050155

10
11
12
13
14

11-APR-80

050301
050345
050415
050435
050505

125

106
105
105
125
101
104

106

MSGB1&:

122
122

MSGB12:
MSGB11:

106
106

1117

116

101

126

122
122
116
125
122

122
122
123
126
111

122

MSGB13:

E 15

15:01:20 PAGE 2C

STATUS/ERROR INDICATOR MESSAGES

.ASCIZ

/OFFLINE OR UNSAFE DRIVE REQUESTED/

/UNLOADED DRIVE REQUESTED/

.ASCIZ
_ASCIZ

/PERSISTENT UNSAFE/
/PARITY ERROR OCCURRED/

MSGBO9:
MSGBO8:

.ASCIZ
.ASCIZ

/SOFTWARE TIMEOUT ON THIS DRIVE/
/SOFTWARE TIMEOUT ON ANOTHER DRIVE/

MSGBO1:

_ASCIZ

MSGBY0:
MSGBO6:
MSGBOS:
MSGBO&:
MSGBO3:
MSGBOZ2:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/FATAL PARITY ERROR/

''ERROR OCCURRED DURING ]1/0 OPERATION''
''ERROR OCCURRED DURING NON-1/0 OPERATION''
/UNSAFE OCCURRED/
/AUTOMATIC RECALIBRATE SEQUENCE OCCURRED/
/DRIVE HAS NOT RESPONDED TO PORT REQUEST/

/DRIVE HAS BECOME NON-EXISTENT/

SEQ 0186

(IRMVAQ RMOS/3/2 EXT°'D DR TST

DATA HEACLR

(DT)

MESSAGES

MACRO v03.01

20 052010
21 052064
22 052112
23
24
25

122
126
124
122

122
122
122

105

115
105
105
118

115
11§
11§

——
——l
k)
—h
el
il
el
il
il
e
el
=
il

1264

051572
051637
051675
051762

122

105
104
104
105
105
104

16
17
18
19

15 0515095

126
107
107
126
124
107

051057
051146
051225
051273
051370
051646

11§

104

9
10
11
12
13
16

122

)

8 051040

7 05101

122
122
105
105

109
109
124
126

—

059613
050630
050715
050752

—ONINIMNINY
VTV TV V] W

.SBTTL

OOQOOMNINONONNOON
(U IV TV AV VIV
IV PV
P
VTP

P4
3
&
S
6

11-APR-8B0

DATA HEADER

DHY:
DH:

DH3:

:
DM

DHlvy:
DH1T:
DM12:
DH1Z2A:
DH13A:
DMH17:
DH21:
DH21A:
DHZ23:
DHZ23A:
:
DML
DH&2:
DHMG3A:
DHGLA:
DH4L4B:

DHLSA:
.EVEN

1 s
15:01:20 PAGE ¢ 1

.AS
.AS

Sea 0187

(DT) MESSAGES

/ERR P(
/ERR P(
/TEST
/TEST
/RA(CST
/DRIVE
/TEST
/COCYL
/GODAT
/TEST
/TESY
/GDDAT
/TEST
/RMERT
/TEST
/TEST
/RMER
/RMCSY
/RMERT
/RMER]

RMAS/

DRIVE
ERR PC
ERR P(
ERR PC/
ERR PC/
ERR PC
GD TR
BDDAT
ERR P(
ERR PC
BDDAT
ERR PC
RMMR?2
ERR P(
ERR PC
RMMR?2
RMCS?
RMMR?2
RMMR?2

RMAS
ADDRESS

RMDS

ST PC

ST P(
WRDCNT
DRIVE

DRIVE
BDCYL
GDADR
RMCS1
DRIVE
SECTOR/
CYLNDR

ST
TST

DRIVE/
DRIVE

DATA/
ADDRESS GDDATA

GDSCTR
WRDCNT
DRIVE

RMER?2

PC
PC

RMERZ2/

RMDS

RMERZ2/
RMER?

RMD(

RMHR
RMW(

RMER1

RMMR?2

RMER?/

BDDATA/

CYLNDR
BDTRK
BDADR/
RMDS

SECTOR/
TRA(K
BDSCTR/
RMERI

RMMR?

CYLNDR

TRA(CK/

RMCS1Y

RMCS2

RMDS/

RM(S1

RMCS2

RMDS/

RMHR/

RMD(
RMBA

RMDA/
RMDB/

RMER?/

(IRMVAQ RM0OS/3/2 EXT'D DR 191

DATA TABLE

(DT)

MACRO v03.01

;

3052170

001132

001204

5 052212

001212

001132

4 052176

001132

001200

001204

001132

0646206

043762

11-APR-B0

.SBTTL

DATA TABLE

D11

.WORD

DI3:

.WORD

D12:

001212

8 0522%¢

001470

001132

10 052264
11 052302

001212
001364

001132
001370

001176
001366

13 052334

001140

001142

001206

DTI3A:

.WORD

15
16
17
18
19

001212
001200
001212
045572
001212

001132
001142
001132
045616
001132

001176
001206
001350
065620
001176

.WORD
.WORD
.WORD
.WORD
.WORD

065616

045620

DT43A:

045566

045570

9 052260

12 052316

164 052346

052366
0526402
052412
052630
052442

20 052452
21 052470

001212

001202
001212

001212

001132

001132
001132

001132

001212
001212

001132
001132

23 052514

001212

001132

25 052546
26 (525564

045572
001212

22 052506
24 052532

e7 052572

Sg 052606

045572

065556

045556
045572

001200

001176

001350

001176
001176
001176

045616
001132

045620
001176

065616

045620

045566

045570

DT1&:

.WORD

6 052222

7 052234

6 15

15:01:20 PAGE 22

O715:

0110:

DT11:

DT112:
DT12A:

OT13:

D0T117:

.WORD

.WORD
.WwORD

.wORD

.WORD

(DT)

SERRP(,SREGS

SERRPC.SREGI,SREG3,RMERRS,RMERRS+2,RMERRS
+6, RMERRS ¢4

$TMPO,$ERRPC .RD.ADR,RD.WRD

$TMPO,SERRPC,WRT
ADR,WRT . WD ,RD.WRD

$TMPO,SERRPC,SREGT,SREGS ,RMERRS ,RMERRS+2 ,RMERRS+6 ,RMERRS +4

RM.ADR,SERRPC

SREGZ,SERRPC

$TMPO,SERRPC ,SREGO, CHKDRY,CYL.DS,TRK.DS,SEC.DS
CYL.DS,TRK.DS,SEC.DS,CYL.RD,TRK.RD,SEC.RD

$TMPO,$ERRPC,EREGO, CMKDRV,CYL.DS, TRK.DS,SEC.DS
$GDOAT,SBODAT,SREG4,SGDADR,SBDADR

STHPO.‘ERRPC.CHKDRV.RH.REG,RH.RE6012,RH.REG¢14,RH.REG*LO.RH.REG042

$TMPO.SERRPC .SREGO,CHKDRV,CYL.DS, TRK.DS
SREG1.S$BODAT .SREGL.SREG
$STMPO,SERRPC,CHKDRY,CYL.DS,RM
. REG,RM.REG+10,RM_REG+12
RM_REG*14, RN REG*4L0,RM REG+42,RM REG+34 ,RM.9E(G+36
$TMPO,SERRPC .SREGO,CHKDRV

DT42:
DT43:

.WORD
.WORD

DT4é4:

.WORD

$STMPO,SERRPC ,$REGD, CHKDRY, CYL.DS, TRK.DS,SEC.DS

.WORD
.WORD

RM.REG*14
,RM REG*40O,RM REG+42
$TMPO,SERRPC ,$REGO,
CHKDRY,CYL.DS,TRX.DS,SEC.DS

DT44A:

DT44B:
DT4S:

DT45A:
DT45B:

.WORD
.WORD

$TMPO,SERRPC,SREGD,
CHKDRY ,RM.REG,RM.REG+10,RM . REG+ 1?2
$TMPO,SERRPC,SREGD, CHKDRYV ,RM_ REG,RM. REG+10,RM_
REG+1?2

RM.REG+14,RM.REG+40.RM.REG+42

RM.REG,RM.REG+10,RM.REG*12,RM.REG*36.RM.REG*
34, RM.REG*06

RM.REG,RM.REG*10,RM.REG*15,RM.REG*36
. RM.REG+ 34, RM.REG*06

RM_REG+14,RM _REG*4LO,RM REG*42,RM_REG+2 ,RM_REG+4 ,RM_REG+2?

SEQ 0188

LSBTTL

DATA FORMAT
.WORD
.BYTE
.BYTE

000001
002
000

DF1:

052630
052631

052626

000001
007
000

DF2:

.WORD
.BYTE
.8YTE

052632
052634
052635

000001
J04
000

DF3:

.WORD
.BYTE

052636
052640
052641

000001
005
000

DF&:

.WORD
.BYTE
.BYTE

052642
052644
052645

000001
002
000

DF10:

.WORD
.BYTE
.BYTE

052646
052650
052651

000001
002
000

DF11:

.WORD
.BYTE
.BYTE

052652
052654

000002

DF12:

.WORD

000002
007

052672
052674
052675

000000
005
004

DF14:

000001
010
000

DF17:

.WORD
.BYTE
.BYTE

000002

DF21:

.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE

000000
004

DF22:

.WORD
BYIE

160

051225
005
004

.WORD
.BYTE
.BYTE
.WORD

.BYTE
.WORD
.BYTE
.BYTE

SEQ 0189

TABLE
WORDS

IN DATA

TABLE

OWV—~

Ofr
—=

O~N—

;ALL 3 NUMBERS ARE OCTAL

;2 DH'S TO BE TYPED

;7 DATA WORDS

SHi2A

FOLLOW THE

:WORDS 1=4 ARE OCTA{

;ALL

WORDS

ARE

OCTAL

;WORD 3 IS DECIMAL

1ST

S5-7 ARE DECIMAL

;ADDRESS OF 2ND DM
;6 DATA WORDS FOLLOW THE

DF13:

052662
35 052664
052665
052666
052670
052671

;NUMBER OF DATA HEADERS

OO NN
o

052661

.BYTE
.WORD
.BYTE
.BYTE

:NUMBER OF

O
—_O

052655
052656
052660

.BYTE

(DF)

Onrn—

V52622
052624
052625

ON—

TABLE

15:01:20 PAG t

O
—

(DF)

11-APR-80

S NN = OOV

NN 2OV

AN ANANANNNUN
I POPNO N PO PNORNUININ) =2 b b b e b s e aad i

NO VNI (NN = OO0 ~NO NI NN —

DATA FORPAT

MI{RO v03.01

CIRMVAD RMQS5/3/2 EXT'D DR TST

2NL DH

CIRMVAD RMOS5/3/2 EXT'D DR TST

DATA FORPAT

(DF)

23 052715

60
61
62
63
64
65

TABLE

MA{RO v03.01

01¢

052716
052720
052721
052722
052724
052725

000002
007
010
051572
005
000

DF23:

68 052726
69 052730
;? 052731

00000
00¢
000

DF&T:

72 052732
73 052734

000001
007

DF&2:

76
77
78
79

052736
052740
052741
052742

000002
007
000
051762

DF&3:

g; 052745

000

;g 052735

80 052744

83
84&
85
86
87
88
89

000

000003
007
160
052010
006
000
052064

g; 052761

000

83
94
95
96
97
98
99
100
}8;

052762
052764
052765
052766
052770
052771
052772
052774
052775

103
}82 052776
106

000200

.BYTE

LWORD
BYTE
BYTE
.MWORD
.BYTE
BYTE

2
7
10
DMZ23A
5
0

.WORD
.BYTE
BYTE

1
4

LMORD
.BYTE

1
7

.MORD
.BYTE
BYTE
.WORD

2
7
O
DH43A

BYTE

.MWORD
.BYTE
.BYTE
LWORD
.BYTE
BYTE
.WORD

3
4
160
DH44A
6
O
DH44B

BYTE

DF&S:

.WORD
.BYTE
.BYTE
.WORD
BYTE
.BYTE
.WORD
.BYTE
BYTE

3
7
160
DHG4LA
6
0
DH4SA
6
O

LSBYTL
BUFFER:

START OF

.END

200

.BYTE

DF&&:

003

000003
007
160
052010
006
000
052112
006
000

1 1%

15:01:20 PAGE 23-!

.BYTE

Cco3

052746
052750
052751
052752
052754
052755
052756

90 052760

11-APR-80

.BYTE

;WORD & ]S DECIMAL

READ/WRITE BUFFER

SEQ 010

J 15
15:01:20 PAGE 23-2

CZRMVAOQ RMO5/3/2 EXT'D DR TST

SYMBOL

TABLE

MACRO v03.01

ABASE =
ACCESS
ACLW] =
ACDW2 =
ACPUOP=
ACTDRV
ACTSTR
ADDWO =
ADDW1 =
ADOW10=
ADOW11=
ADDW12=
ADOW13=
ADDW14=
ADDW15=
ADDW?2 =
ADDW3 =
ADOW4 =
ADDWS =
ADDW6 =
ADDW? =
ADDW8 =
ADOW9 =
ADEVCT=
ADEVM =

000000
046357
000000
000000
000000
037004
037005
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000010
000020
000040

17
(178
cl8

061226
061250
061326

000200
000000
000000
000000
000000
000400
001000
000010
001464
001526
000001
000001

C(KSWR =
(K.CHR
C(K.DEC
(K.DIG
CK.NUM
(K.OCT
CLKSTA
CLOSE
(LR
=
CLREUF
CLRQUE
CLSWDS

104407
036340
036312
036414
036600
036264
001340
036204
000040
032314
044772
036104

BIT1

000004
000010
000020
000040
000100
000200
000400
001000
= 000002

CNTRLC
COMMA
CONT
=
COUNT
CR
=
CRLF
=
CvL.DS
CYL.RD
C.SWR

001320
046132
000100
031336
000015
000200
001364
001356
001314

BIT11

= 004000

DCK

100000

AENV

= 000000

AENVM = 000000

AFATAL= 000000

AMADR1= 000000
AMADRZ2= 000000
AMADR3= 000000
AMADR4= 000000
AMAMS 1= 000000
AMANS2= 000000

AMAMS
3= 000000

AMAMSS= 000000
AMSGAD= 000600

ARSGLG= 000000
AMSGTY= 000000
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
AOE
APASS =
APR]OR=
APTCSU=

APTENV=
APTSIZ=
APTSPO=
ASWREG=
ATA
=
ATABIT
ATESTN=
AT0
=
AT1

AT2

000000
000000
000000
000000
001000
000000
000000
000040

000001
000200
000100
000000
100000
037054
000000
000001

= 000002

= 000004

AT3
=
A6
=
ATS
=
AT6
=
AT?7
=
AUNIT =
AUSWR =
AVECT1=
AVECTZ2=
Al6
=
A17
=
BAl
=
BASFLG
BITS
8170
=
81100 =
BIT01 =
B1702 =
BIT03 =
B1104 =
BITOS =
81106 =
81107 =
BIT08 =
81709 =

000100

000002

BIT10 = 002000

BIT12 = 010000
BIT13 = 020000
BIT14 = 040000

11-APR=80

(KSCTR

CNTCLR

DATCMP

032362

026072

033022

DDISP = 177570
DECSEC
032232
DECSK
007630

DH17
DH?
DH21

DT12

J52264

050630
051370
DH21A
051446
DH23
051505
DH23A
051572
DH3
050715
DHé
0507952
DH4 1
051637
DH&Z
051675
DH43A
051762
DH44A
052010
DH&4B
052064
DH4S5A
052112
DISPLA
001156
DISPRE
000174
OLT
= 100000
ODMD
= 000001
DORTI
031272
DPB.A
045456
DPB.B
045476
DPB.C
045516
DPINT
036760
DPR
= 000400
DPRAS
036770

DTI12A
DT13
DT13A
0117
D12
DT21
DT21A
DT23
DT23A
DT3
DT4
D141
D142
D743
DT43A
D144
DT4LA
DT44B
DT45
DT45A
0T458
D15
DULP
DvAa
=

052302
052316
052334
052346
052174
052366
052402
052612
05243C
052212
052222
052442
052652
052470
052506
052514
052532
052546
052554
052572
052606
052234
037320
004000

DRQ

ECH

DRIVES

DRVACT

100000
000004
000010
000020
000040
000100
000200
000400
001000
046660
046657
046656
046655
000014
052776
001322

DELTA
DFLT
DF1

001446
002514
052622

DRVINT
DRVMSK
DFVOK

DF 11
DF12

052646
052652

DRVSEL
DRVSTA

cls

061170

DHI2A

BYPASS
CALL.A
CALL.B
CALL.C
CHKDRV
¢
C13
Clé
cleé

001346
027132
027264
027466
001350
060404
040512
060612
061212

DF13
DF 14

DF17
DF 2
DF21
DF 22
DF23
DF3
DF&
DF4]

DF&42
DF&3
DF&4
DF &5
DH1
DH10
DHI
DH12

LH13A

051273

046075

= 004000
036730

DRVCAL
027670
DRVCLR= 000111
DRVCLY
027710

BiT15 =
BIT2
=
BIT3
=
BIT6¢
=
BITS
=
BIT6
=
BI17
=
BIT8
=
BIT9
=
BLNKS1
BLNKSZ
BLNKS3
BLNKS&
BPTVEC=
BUFFER
BUSADR

DF10

SEQ 01N

052676
052626
052702
052712
052716
052632
052636
052726

DSWR
=
DTADPB
DTE
=
DTG
=
DTO
=
DTUW
0100
=
DTO1
=

037316
001352
006560
045070
001326
036740
036750
000200
177570
045536
010000
000020
020000
037052
000001
000002

051146

D110

052254

052642
052662
052672

052732
052736
052746
052762
050613
051021
051040
051057
051225

DRVQUE

DRVTYP
DRY
=

6102
D103
DT04
DTOS5
0106
0107
D108
T
DT

=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400
05217¢C
052260

EBL

= 020000

ECI

= 004000

= 000100

ECRC
= 001000
EECC
= 000020
EMPTYQ
045050

EMTVEC=
EM
EM0
EMYI
EM12
EM13
EM17
EM2
EM20
EM23
EM26
EM3
EMS
EM41
EM&L6
EMS

EXITO

000030
047152
0476401
047447
047504
047531
0467556
047216
047610
047657
047706
04725
047311
047746
047762
047345

ERINDX
ERR
=
ERROR =
ERRVEC=
ERR.CT
ESRC
=
ES.SAV
EXIT.A

030526
040000
104000
000004
001462
004000
045234

ExITY

007410

014120
007202

’

CZRMVAQ RHOE/S/Z EXT'D DR TST

MACRO v03.01

eX1T10
EXITI1
EXITIZ
EXITI3
EX1IT146
EXITIS
EXITI6
EXITI7
ExIT2
EX1T20
EXIT21
EX1T22
EXIT3
EX1T4
EXITS
EXIT6
EX1T?

032152
000020
000100
061740
002340
002242
041564
037016
002330
027066
000012
001514
001510
046036
026434
026672
030466

SYMBOL TABL

FC
FER
=
FILBUF
FILRAN
FMT16 =
)
F1
FWD
Fl
=

002326
000020
032256
033340
010000
002342
002334
046450
000002
= 000004

F2
F3
=
F&
=
F5
=
GETADR
GETNUM

GE"REG=
GE'REQ
GETSWR
GO
=
GTSWR =
GTTST1
GTTST2
GTTSTS
GTTST4
GTTSTS
GTTST6
GT.PRM
GT.PR1
GT.PR2
HCE
HC1
HCRC
HT

012746
013212
014134
014636
015376
016136
016560
017224
007652
020004
020622
021016
010072
010504
010730
011220
011616

=
=
=
=

IAE
=
IC
IE
=
ILF
=
ILR
=
INCCYL
INCSK

000010
000020
000040
045260
034070
000141
045144
033776
000001
104406
034364
034450
035012
035014
035124
035164
(034226
034230
034360
000200
002000
000400
000011

002000
002332
000100
000001
000002
032202
007566

INCTRK
10TVEC=
IR
=
ISR
17
ITEMGT
LA
LACNT
LC
LOCMD
LF
=
LKS
LKV
LODEV
LODFLY
LODPRM
LOP.CK

LP8
LPS
LPTAVL
LP.AVL
LS
LSIT
=
LST
=
LSTRK
LY
MABOVE

MBELOW
MCLK
=
MCPE
=
MCPEMX
MDF
=
MES.FT
MES.IT
MES.LT
Ml
=
MNDLTA
MOC
=
MOH
=
MoL
=
MPE
=
MRD
=
MRMCS1
MRMVEC
MS
=
MSC
=
MSEN
=
MSER
=
MSGAVG
MSGBO1

MSGBO2
MSGBO3
MSGBO4
MSGBOS
MSGBO6
MSGB0O8
MsSGB09

001524
001522
001324
026114
002344
000002
002000
001372
002336

046556
046527
004000
020000
037064
000100
045652
045662
045656
000004
037100
000400
020000
010000
000400
002000
045436
045446
000040
000002
010000
000200
046514
050555

05050
050435
050415
050345
050301
050237
050200

11-APR-8B0

K 15
15:01:20 PAGE 23-3

SEQ 0192

MSGB10
MSGB11
MSGB12
MSGB13
MSGB14
MSGMAX
MSGMIN
MSGNON
MSGNUM
MSGSEA
MSGTST
MSG.CS
MSG.EQ
MSG.FC
MSG.FS
MSG.FT
MSG.IC

050155
050127
050105
050054
050012
046506
046500
046642
046625
046605
046253
045702
045700
045630
045666
045641
045636

OPNFLG
OPNPAT
OPNPRM
OPNTST
OPNWDS
OPN.CT
OPN.N1
OPN.N2
OPN.X1
OPN.X2
OPN.1
OPN.2
OPT
OR
=
PACK
=
PAR
=
PAT

001334
035572
035370
035216
035714
035222
036126
036132
036144
036150
035226
035250
060146
000200
000123
000010
002346

PRM14
PRM15
PRM16
PRM17
PRM2
PRM20
PRM21
PRM22
PRM3
PRM&
PRMS
PRM6
PRM7
PRO
PR1
PR2
PR3

MSG7XA
MSG7XB
MUR
=
MwP
=
MXD.TA
MXF
=
MXLACT
MXSEEK
MXSTAL
MXWNDW
NBA
=
NCI
NC2
NED
=
NEM
=
NOCLOK
NONE
NOOP =
NOTPRS
NOTRM
NOTSAF
0BCK
=
0BEN
=

046662
046737
001000
000010
037076
001000
037074
046424
001460
037102
100000
002356
002360
010000
004000
046135
046125
000101
045770
046015
046005
100000
040000

PAT3
PAT4
PATS
PAT6
PAT?
PATS
PAT9
PDA
=
PGE
=
PGM
=
PHA
=
PIP
=
PIRQ
=
PIRQVE=
PKB
PK(C
PKCS
PKV
PLFS
=
POPQUE
PRM
PRMLMT
PRMMSG

003720
003760
004020
004060
004120
004160
004220
000400
002000
001000
000200
020000
177772
000240
001504
001506
001502
001476
002000
045166
002322
002432
002464

QDRVO
QDRVY
QDRVZ2
QDRV3
QDRV4L
QDRVS
QDRVE
QDRV7?
QINPT
QOUTPT
QSTART
QSTOP
QTERM =
RANADR
RANCK
RANPAT
RDCHR =
ROLIN =
RDY
=
RD.ADR
RD.RM
RD.RM1
RD.RMZ2

MSG.IT
MSG.LC
MSG.LS
MSG.LT
MSG.PA
MSG.R
MSGOUS
MSGI0X
MSGI11IX
MSG12X

ocC
=
OFD
=
OFFSET=
oM
=
ONECYL
OPE
=
orPl
=

0465647
065633
045671
045644
045674
045626
046522
047012
047054
047110

100000
000200
000115
000001
046312
020000
020000

PAT.PT
PATO
PATI
PATI0
PAT11
PAT12
PAT13
PAT14
PAT15
PAT2

PRMPT
PRMO
PRM1
PRM10
PRM11
PRM12
PRM13

003520
003560
003620
004260
006320
004360
004420
004460
004520
003660

002362
003116
003132
003320
003336
003356
003372

=
=
=
=

PR6
=
PRS
=
PR6
=
PR7
=
PS
=
PSEL
=
PSW
=
PTRN1S
PWRVEC=
QCNIT

RD.RM3
RD.RM4
RD.WRD
READ
=
READHD=
READIN=
RECAL -

)03402
003412
003422
003434
003160
003444
003500
003510
003200
00322C
003240
003260
003300
000000
000040
000100
000140
000200
000240
000300
000340
177776
002000
177776
003476
000024

044500
Q44572
044612
044632
044652
044672

Q44712
044732
044752
044510
044530
044550
044552
044772
033614
033362
033560
104410
104411
000200
043762
043736
043760
044104

044110
Q44114
043764
000171
000173
000121
000107

L 1%
11-APR-80 15:01:20 PAGE 23-4

CIRMVAO RMO5/3/2 EXT'D DR TST

MACRO v03.01

RELEAS=
RESREG=
RESTAR
RESVEC=
REV
REX
=
RHVEC
RH.ADR
RMADR
RMAS
=
RMBA
=
RMCS1 =
RMCS2 =

000113
104413
006540
000010
046664
010000
001472
001470
037066
000016
000004
000000
000010

SCS
SC6
SCOA
SC7
SC8
SEARCH=
SEC.0S
SEC.RD
SEEK
=
SEEKFG
SEKCNT
SEXKTMR
SELDRV=

062262
062436
042552
062700
062756
000131
001366
001242
000105
037030
001444
001442
000145

STRT2A
ST.CLK
ST.LCL
ST.PCL
SVADR
SVRH70
SVSTAT
SWR
SWREG
SWw0
=
Sw00
=
sw0l
=
Sw02
=

004616
026156
026366
026326
001436
044310
001354
001154
000176
000001
000001
000002
000004

TEST?
TICKMS
TICKUS
TIMER
TIM.DN
TIM.PT
TIM.UP
TKVEC =
P8
TPS
TPSS0
TPS60
TPVEC =

RMDB
=
RMOC
=
RMDS
=
RMDT
=
RMEC1 =
RMEC2 =
RMERRS
RMER1 =
RMERZ2 =

000022
000034
000012
000026
000044
000046
036720
000014
000042

SETBUF
SETFOR=
SETVEC
SET.IE
Skl
=
SLASH
SPTYP
SP10
SP11

032732
000143
005760
044426
040000
045725
031470
001726
001734

SW04
SW05
SW06
Sw0?
SW08
sSW09
sWw1
sSWi0
SW1l

000020
000040
000100
000200
000400
001000
000002
002000
004000

TP60
TRAPVE=
TRCKWC
TRE
=
TRK.DS
TRK.RD
TRNSWT
TRTVEC=
TSTDRV

SP7A
SP7A1

001676
001712

Swi3
SWié

RMMRZ = 000040

SP781

001720

RMR
=
RMSN
=
RMTMR
RMVEC
RMWC
=
RM.REG

000004
000030
043324
037070
000002
045556

SRCHOO
SRTDRV
SRTINT
SRVCLK
STACK =
STALL

ROTATE
RPT
RSTRT1

046261
002324
006504

STALL1
STALLZ
STALL3

SYMBOL TABLE

RMOA

= 000006

RMHR

= 000036

RMINIT
037104
RMLA
= 000020

RMMR1 = 000024
RMOF

= 000032

RMOS

03765¢4

RSTRT2 006530
RTC
= 000117
R6
=2000006
R7

=2000007

SAVCSW
SAVEFG
SAVREG=
SC
SCOPE =
SCTRWC=
sCO
=
SC1.
=
SC11
SC12

SC13
sC2
SC3
SC&4

001316
037026
104412
042154
000004
177400
000100
000200
043006
043116

043166

= 000400
062224

062230

SERIAL

SP12

SP78B

SRCHWT

STALLO

START
START1
START2

STARTS

START4
STATBL
STKLMT=
ST0
S101
$T02
S103
ST05
ST06
S107

$108
$109
STRTMR
STRT1A

046242

001742

Sw03

= 000010

Swi2

= 010000

001704

SWi5

037002

Sw3

=
=
=
=
=
=
=
=
=

= 020000
= 041000

= 1000¢N

SEQ 0193

011362
001342
001344
037032
001412
001430
001374
000060
001520
001516
014132
0146114
000064

178
1781

J01616
001636

ULDFLG

037006

007016
007204

UNTOFF
UNTON
UPE
=
uslt
=
use2
=
US4
=
VERIFY
Vv
=
W(
=
WCE
=
WCEFLG
WCF
=
WD
=
WLE
=
WRCKD =
WRCKHD=
WRITE =
WRL
=
WRTHD =
WRT.AD

045747
045760
020000
000001
000002
000004
030746
000100
000040
0640000
001432
000040
000010
004000
000151
000153
000161
004000
000163
044206

012310

WRT.R1

044202

TP50

014124

TSTNMS

001330

1STO
TSTY

TST10

011620

WRT.RM

044116

sSWw2

= 000004

031110
006232
005726
026422
001100
030664

SWwe
SW5
Sw6
SW7
Sw8
sWw9

=
=
=
=
=
=

000020
000040
000100
000200
000400
001000

TST11
1ST12
TST13
TST16
TST15
TST16

012750
013214
014136
0146640
015400
016140

WRT.R3
WRT.R4
WRT.RS5
WRT.WD
XXDP
$APTHD

044300
044304
0446306
044204
001466
0011C0

001452
001454
001456

TAP
=
040000
1B1TvE= 000014
1D
042004

TST2
15120
15721

007412
017226
020006

$ATY1
$ATY3
$ATY4

021264
021272
021302

001434

004624
004570
004612
004560

004602
001750
177774
063614
043450
063544
063574
063620
043626
043664

063714
063724
031274
004574

= 000010

TAB.XY= 001114

TESTO
TEST1
TEST10
TEST11
TEST12
TEST13
TEST14
TEST1S
TEST16

TEST17

TEST2
TEST20

TEST21
TEST22
TEST3
TEST4
TESTS
TEST6

007166
007374
0120952
013134

013612
0146346
015050
015610
016260
016702
007546
017454
020302
020736

010010
010244
010642
011066

TSTI0A

016106
000034
001450
040000
001370
001360
037000
000014
046222

UNLOAD= 000103
UNS
= 040000
UNSTAT
045731

157108

T1ST17

TST22
1873
1ST4
TST5
TST6
1S17
TYPDS =
TYPE
=
TYPERR

012702

016562

020624
007654
010074

010506

010732
011222
104405
104401
022000
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
TYPTIM 031576
110
001646

T
712
T7A
T7A1

001656
001666
001606
001626

WRT.R2

044274

$ATYC

021310

$AUTOB
$BASE
$BDADR
$BDDAT
$BELL
$CHARC
$CKSWR
$CMTAG
$CM1
=

001150
001310
001136
(01142
001224
022716
023672
001114
000006

$(M2

= 000014

SCNTLU
$CPUOP
$CRLF
$OBLK

001262
001231

$CM3
$CM6

= 000006
= 000003
SCNTLC
024604
SCNTLG 024616

024611

023364

(ZRHVAOT§302/3/2 EXT'D DR TST

SYMBOL

$0B2D
SOECVL
$DEVCT
S$OEVM
$O1v
$DOAGN
$DTBL
SENDAD
S$ENDCT
SENULL
SENV
SENVM
$EOP
$EOPCT
$ERFLG
S$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

025314
025474
001244
001312
025652
021256
023354
021244
021200
021260
001254
001255
021020
021172
001117
001131
021532
001132
002002
001126
001222
001254
001314
001236
021530
001172
0017
001134
001140

052776
000000
ERRORS DETECTED:

$GET42
$GTSWR
$HD
=
$HIBTS
SHINUM
$ICNT
$INTAG
$ITEM8
SLF
SLFLG
SLONUM
$LPADR
SLPERR
$MADR1
$MADR2
$MADR3
$MADR4
SMAIL
SMAMST
$MAMS?2
SMAMS3
$MAMSSL
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR

. ABS.

MACRO v03.01

m1s
11-APR-80 15:01:20 PAGE 23-5

021234
023762
000000
001100
025646
001120
001151
001130
001232
021527
025650
001122
001124
001266
001272
001276
001302
001234
001264
001270
001274
001300
001102
021526
024634
001250
001252
001234
024623

000
001

VIRTUAL MEMORY USED:
54064 WORDS
( 212 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMVA.BIC,CZRMVA/C=CZRMVA.DOC,CZRMVA,SYSMAC/M

SMIYP1
SMTYP2
$MTYP3
$MTYP4
SMXCNT
$NULL
SNWTST=
SOCNT
$OMODE
SOVER
$PASS
$PASTM
$QUES
SRAND
$ROCHR
SROLIN
$RDSZ =
$REGAD
$REGO
$REG1
$REGZ
SREG3
$SREG¢
$SREGS
SRESRE
$RMO2
$RMO3
$SRMO5

001265
001271
001275
001301
025076
001170
000001
023144
023146
025062
001242
001106
001230
025550
024234
024324
000024
001174
001176
001200
001202
001204
001206
001210
025136
046056
046063
046070

SRTNAD
$SAVRE
$5B82D
$SCOPE
$SETUP=
$STUP =
$SUPRS
$SVLAD
$SVPC =
$SWR
=
$SWREG
$SWRMK=
$TESTN
$TIMES
$7k8
STKCNT
STKINT
$TKQEN=
S$TKQIN
$TKQOU
$TKAQSR
$TKS
$TKSRV
$TMPO
$TMP1
$TMP2
$IN
=
$TNPWR

SEQ 0194

021256
025100
025260
024646
000167
177777
025510
025026
000220
167000
001256
000000
001240
001220
001162
023374
023404
023404
023376
023400
023402
001160
023454
001212
001214
001216
000023
025424

$TPB
$TPFLG
$1PS
STRAP
$TRAP2
$TRP
=
$TRPAD
$TSTM
$STSTNM
STTYIN
$TYPDS
$STYPE
STYPEC
STYPEX
$TYPOC
$STYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
SVECT2
$XOFF =
$XON
=
$XTSTR
$$GET4=
SOFILL
X
=

J01166
001173
001164
025174
(025216
000014
025230
001104
001116
024560
023150
022366
022600
022720
022746
022762
022722
001246
001110
001260
001304
001306
000023
000021
024660
000000
023145
001100

0—e_OP—OA=~F0o\—OeNOw~esmeOmNeRmYeIV-vR—ANo0r—®M-—OrO~-eO—~l—O0O0-—=n.=n«mNONeV=OMe~m—Nvo®—mONov=aRn]dL[O
OoO[VWRTo3]"g&0(-Oa=V~JAYJ1WaaaIVEV(NoTEaRYXFaTIVANL—paYolINENToE\LNON==WO&LWMAX-NIA—-g&N-OolI9-&MsOMVLReWallLNraAd[~5e"=ra]Aar[—T2O-TJrdO—~£IFRMT~FOVONIN—dO~SSRL(5OOTo-4]W~¥~-VrF—WQNTo—5uISOvTOoo4DNRrww—aVeONoolnx—ARxVoYNVaVO»YNVaNoYeNT=oR0JAVw[aYSNaYVIzURNRI~—TMMXTMyB(o~N=X5]ESo&—NRxrLR—AUNOAo-~ooOOSr—I®I=%IwunILIo=LIok~"[Ir«Nt
<N80o=— WNNOIII—o= oOeo OOONe~CONe—MO—=M

Ww—As~o"A>F—OOOM&L"bYySNO5—&vUFoOIO&8xA~&=5—o~aF=TxrMw&oIw—~ONvoy=]YNXIONe][\}[C~NN00oWAOo&S][dN=&Tu~aNaowxO==-Oe(—ooM—=O]]I—e~tWN~N-W5&A&<Y~OLLJ«[58&-N—-3e=-—OvAIAO]]~—rTd-—AMOQ0WW-AOAC0NERIPILA~FTgQDO—OVR>OA~oi>—D—NAC0OgUZIRrOAlWRuIrZA->2rWRJOZOAUON2DWMMAS=0IDDLrI23AWEeUNrxNOEA[57M~- ~o—Ta"]-Vr0]O).~~I¥~MVA1T~L5rFU0E0NIAVXwI0OZR-=J-NU—A€LZ0NOnw=OA['}IRUXN0WoOONoVNUN£]o)}l~TOyNowow[[JYTOBADmV1R)EEwaERYNAOwW—CNI—aL-e<ALOO=0oo <0eLOTAIOKL\W0RxOTLIAdLNOKLEoN-IN—<—CAPMCOO-APDo=D0AD3QoRND0-4=A—OVN~IORXtO-0lVASU8-- O—l0TNoYERCtL
M*O<No"~)2Dvm3Ae~ -.La—e1-n21d[U]$0L)I¢6}MNOT](eo—=M—0UN0M~[\=30¥WXRowa0~[-O.eV—_anV]o~R3ENn=»-L« TO~L&¢[VNSYRBo«4dXeTEarV7VyYIVS]1e0|L"sv)I8¢0taVMIONo=—0eO~N—\ O~L2osTNMZany7lV5FE~OSF w&nL[-ae—o¥glV]E[]"L9)e}K0oFOWNn=—MNLo-O&f)—ol. []'IL10}-MR&om[<N—V\tay -—N][)"L'R-1oL] "([-OYNaol=])a'—VlR]ka [(oAw-]0=Vy—nl
O e- O~ wn

(CREF

v01-05

MACRO v03.01
)

(=2 -N -

CROSS REFLRENCE TABLE

CIRMVAO RMO5/3/2 EXT'D DR TST
11-APR-80

N | 1S
S
15:01:20 PAGE £ S-1

SEQ 0195

XA-l

M—=B4&&=S8-NLU—5ITMNONTO—MNYSTI~OT4NSNLNXNRN[Ta
w -= - && BLK &wg=—g—=gun— —- -]=B&—B&.LI gJe2K—[aa [«

OgaLlollUoON—NNONXed|aaodSolVBe—Ia1M=eOBetOgVgYoaW=lDglOL~ewo—gL<gI[ml0== L.a])L) L~N)a—[—N"eYlea[0ae-—YNa—n]—sdy eO-—=OW-)~3MNOar—eaNgYVe—lMXsN-MeIMd«eWN[X--O—VN—La[YXoe=~g—w4g0=]a0LNe'a~lMalONgyDNLeO[yy-—aW—TstkL=N4e—e3—walNaXr~~-]4—dY]-vLN—Y[L

OOo@=IFWblN\+V]—Oo—YgNmR]|(V]V)e,o~OORlIIGgNO~FN0aVe.=PlCeoIIIAgBlyaOJweXAOoIIEIgg»aw~XVeIPmFOOEM[[oe[loN—|Ye|R—=Bw&——y~ORoo<)TEoB[«<aL0wRgRere2aa~-o—O]l"[]l0ew[[}}n~aOFyOn—[¥=~1]RXIe's]OMOaN)————Mo]||-\nS2RroAWp-—1lyIIEIM\—2OJON\olO—eoeW0I-VOa]ML~——.I[=nL&1|lIFBNEERLNWOW_A-gWog=VOL]14.—ae—el]0O0\tF—YN-o—)—LgnN"o0R—o-MoM-"lto—AOTo—AMI0L\TOWglE3NIXe.["Xo©Lo--E—R]Y]]—~y—[[2[««BwON—erVaBMV=oNeCROSS REFZRENCE

CIRMVAD RMO5/3/2 EXT'D DR TST
TABLE

(CREF

v01-05

MO[aL2gYl=N—oIev'YM=OaBtANnd-]0OS—-Lo=sNn«V”My —«ONnL_—PSGC.No=_WOa]e0~—MO

MACRO v03.(
)

11-APR-80

B8 1 16
§15:01:20 PAGE £ S-2

L&-)3 L[SI0t1"N| [I1L(]|}DC&NOe—-2gaIlSAde3ON~~hOIWgomO"h&~yad |[I]41)8LeONWU-fo~EMD O~oVQM[wITYNVMnC ~ONo=P0N |[TI0«UL}o—ON.-_I—)V“y -=.&»

SEQ Ci9n

$OCNT

164-1050

14-105¢

146-105¢

16
SEQ 0197

m-”oleg][-vN0ON
AI--4—’]—g[AEoN-ulLAAN—-R"-EMN=0AI—RO]N—wTnIALKoIOePrRlORS—NNSorgAM~oN—lNI—gINoNkAgONoO)A—LkdIgeMAclO—RhIgaM[naNtelAiaANnL—l[IA“VE}—oM4L0R=oN&l\eE\RNokog0E=A-XW—E8lO“~\1F9AAFTRNxA“<aN*O‘-u]]n—allea="wIooO)»a1llL-—.waallS3a.VwaiDY=vAI‘LaL“l.NAOaa-~R0oL}—D—A5NIRA“NAnA“‘RgAdN0a[N—Aa¥N4TNa3VIR]8NANRVIn]LVAgoO-—N[—8aaAeRoAAN~-t75—UAR7-OX—~e3A-5]T—yBAR--O~&]——QAELWT-4]A—NL&I—IL--O~A]N——
)ood—-~g1]])’}o[L O)Ngg—N]IL—e)N—Gp—BIIAgJ——ONRIegII—g-&RI2P|]8_I——NOprOUGLLLL[LI2IIN—v =-—|—O—¢eN-]0)LGEX——gIIBLAIKQ—~oXI8e—KL—LN-iS—oUtlT0LNLLLLUUIyR ON Og on-<~11 )'']o0o~L])00N—O00[v-0L¢otI—]eOUWwO== —eL11U)0oOO -<Y 4Y ~))" !)— J o]1 ]’]

—o]oo=]o0eOMR&IO-LIN-B—IYNRLFOTLO—WM'ONOE]MNNIAwLI0A'N12222122-Ng—~N]1 m—_—r—wN

3imOo©J4L"~O-~[oLo~“~a-—ag[a)U)u]otoe—tdd"d)OL[L[L[a[[noSNdvl02aWLOon~47g-QOd&&II"vlIOLo00Oo—So—l-o®oAdR30=tLca0o‘OdIl=[2O*a0nANWoOl\l=NOanF4o0odAN-a-“Il0£=hbO~iOAO—W0O4gXggloP—IIg‘NI—0X=&YO0ONeMo0£o-N—-ea)=o—OAan.l&LOs-gI)*Tgg4Iv=dO—N]V0otaonlXg-FyN\aaO~We0No—dMI&SdoBIggghM\03[NYMAoLaiL=XYGlllO\AsoYaMe&IM«aeIIIgMg~AVO5-—Nl=dLMXkaNS(~On-—Aa~G»\=Va==—[NeIdB.LIRgg.ODNtFlaLOROoO=NnYIILLOOAdOB——kl—oJJ2T—|GON|[a[2l(0|—~L5lTte-I3ewe5—TeeTTs4—-4--)e|LN——~————2&r—-—--ve-IgOeRgN—)5ESN—OoaOAFV-—J—UevgNINikm‘OO—NtVYOa~0NOKy——-]—ReM—NMny[NYl0aAV—NMTAON=leTUeTLO_-Sr]NL—0O~TFKD~PTDTVFmOL[XDFe0rO&e>14—OLnaaaNoT9wo~5-L-OgY—-~3OwNe-.]00onNDyM—~—~n0n—r4nA=NOw-—R»~R"0oo©MW0oNOMmOOOSwnYO©}-]LN—|Y0LMoNo)a4OG——O——otyoL0~aNLVN~ee0OMFa-QO—O--MIOeU—JlV—Y—=—0T—aaLOOMMM—O=OO~OonYO@m¥UY»N¢YYJLEM4=TWaaNMCN-a—~~-(-~<~-—WM—aoLo'lo0"]0y)3nz_—eDd.4-g—wNg4Mo‘a0I4MeNbw1—I3Wo—WI6b|lgV2Al—ebB"‘]lo1NOlI)5o\OWlIU4o~Oow—T]lNI[[VW5OR~~LI~o~- ~o[o0O¥Na—\-oalNSND|LN¥~¥Y1—ly]o]oO=]lOLw2JVOa5¥oL-—=='[aJt—2LVlaOY5leN——nlL)eK4rXXO)Co7~o4"-»o-Y]——1[la——T[0OEVaNYY4O-o(LooO O—--~L[-—~on=V&a[])!d———a)l[L)Lo-D‘-~5-Oo-L&]U]r—L4oOa—NOe-dlU—e—LL5(w-N-CN~aLI(=)n—3c——\]d]l
CROSS REFTZRENCE
TABLE

(CREF

MACRO v03.01
v01-05 )

11-APR =80

wPQRRRRRVRD-ebR—=RRINKRSS ge—P=—~ w[RD-INaYoQOVX2¥'NsL&lxa\e—R]®8YS)e =»L.n4 =-L][
V
O
~
A
O
O
L . L] w

CIRMVAQ RMOS/3/2 EXT'D DR TST
1
016
S15:01:20 PAGE £ S-3
SEQ 0198

$IKSRY

16-109

14=-109#

$zQ 0199

N4l["aX0O—&O=2[NVa«&0[-—4"a_—lN"IaRl1"N—alt’—"s[}~M”oOSWMMoONY~OV0U—MYM—OAOOWJNWON\-JY2ON&U(ANONAINe—MDAOIN=EOD—AVMDWNeGMOVOANR0o~Ny
O=LaOla0d)OCOM—WRBRV—WROMB"0OMO0o—O»——OOLM0b]IO———0~—AWL&-NKOOk)8LD—o-N—[——=—V»aNY—"—IaY—V—Va1YV-——LalDvr—O©N-O&]O—VMReOOM-O&R8—MDOeN—NOMPVMaoO—OLmNMImDNINOMIANOOJeONIFNoIOMVOOLWNO»NNIMINDRTOANONOwNRIN—OMROANOFRM—eDINANeRONTVeRNN—AReOVIeNNeBORRNo~ELL d
gM--7o'0a—ltY~o'—-tael———4=v2N————BN———D"RiNU1-—EX[(.o]‘No—VL0yyO6Y—"09—ooto1-U—YeRL"O—OaYT2—OaPVyTMI=aeNOT3N——ooN~Tp—oN-[—=a5VAOgTaI2Pe-O1UP2OMIG0NgY00I3PDP002AAeoP08=7=P00NN1O002VV030¥ w"NNo[-J0 J¢ ~\~

b - w» u w«

—Lal4—D—aUlLeTMsOOMOM4L]mir=gLMg»E——mSLAm-rRgeNn——NPSrr-o27-—ogbn—[gLO}—d_i)Ag"=5e0U—DL0W——AInA4—OAAL4g-S3gOe]LNrE—XO3—o7—rg]MI1avRGR0—NXNOEON[—3-No—-~A—-->L—))aL11rIA\¥-—d-—y—NMM]I0[33SON\L~oOO¥———L~J-L"aN[ll]~|r——)VEWl1g—=O~N[[F2r44—-——R»om44——4g—b—VYaUL|e]|K]Wvn¢B3alaNXlLNXnY’V-1|Ag—-————d—VeVIIeeaegKKIlJ—oPSaWlEN1alXYR—’ni1pNVAA———IkUaINLU|BKa[1YXLONlLrN—VL’—1[—cVaR-ANI--—AV—eao(Ln—e|[P(oPLX—l—)lXl|g3N1GU—\Ll1rRg—1-L5‘—‘g-~--Osl&g|0A—5—N1y65«eOEUUaLeL9--~—84~-O~—eB1oOL07F]—z—Ft‘O11e==—0L~NU1oa4Ma‘A1"——NU8Oo—‘—NVN)1llMe}12ALU0y12KaVMoaNoY1A6ON122)NVa—l)1A,-G2)—OaNMoaoL92M-e~JOO—l~1lYgOW——PN~O1o3ooA1R-22U——lO-11OAN—tYOtMOeeOG|INNIIL—oooY2MMRO33BR—l—NY11ION3SSPUWNWONVM‘[VYOy3w\UNTJi—aON1]]eDPPn¥3OVMNIIoAMT[12l0NT55UVONIaOM—A‘aMNNNGAONBRPNo¥AIMDTWI03OARON22GNoNAa—a~——eOG1RNPVNW[V‘F~INOTTNY-1R1oA2OaFaNE==0V—NRARNO‘NO\¥IVGDNNIDRTaMTTB‘3I5MNoW2R2NaUN(NeO—BG)1A¥G2OlNPaDXDNN2o3O3NONMN=ef«=MRGRo2lIPRkGe»OBRRlS3I1ON22MRe—ONolONGDPe2BR2FONNM@o2NNO77fI—PeNPORIelPORD03JVOAMFIOlNIRO11RNboMMNrNeDRGP0MC8GRDS0F3—e2WI3IN22oNVMfN=eo-NMRAGRFP0DR033A—l<D233eRONo1—ero-—N=DNGDPG00BRe¢O0—3TVg7IRNO11e=NfR=lXr—PNG0g0R8e—M0[i33o]N52XeAAeRQgGODlO8lRR0e0oO2“211OfVNX—VAIGTG0ONeIe00tOl[33N“L5A2RTOTFIIO-PwI‘—kOLo|¢[MIWNL~)~~VooN~[(N~].-NN[-N1 ~-[O5N4AU’N[L(Vag~§J'~JoN——Jalo—)
CROSS REFTRENCE

CIRMVAQ RM05/3/2 EXT'D DR TST
TABLE

(CREF

MACRO v03.01
v01-05 )

O[o¥-VTaYNrUOX—=Ylaeo1]PNj¥Y—

11-APR-B0

wa&

15:01:20 PAGE

F
S=u

SEQ 0200

»w=[n »L-n8

[YaX"QNMOTaYm4WR"OaNYAVa) ~e-—N [NVaXV@SO~eayTvaY—Mval

»[n

LBASTA 14-3

14-3

6 16
SEQ 0201

CZRMVAQ RM0S/3/2 EXT'D DR TST

ATO
AT

e
e
—

)

oo Ny
un =

OC0O0O0O0OO0OO0OOO0OOOOOOOOCOOOO

Y IRV MV IV IV IV IV IV IV IV IV IV TV TV LV IV IV IV TV TV IV )
[}
]
L
|
]
0
8
0

AOE
APASS
APRIOR
APTCSU
APTENV
APTS12
APTSPO
ASWREG

AMTYPI
AMTYP2
AMTYP3
AMTYP4

[N
—

S
AMAMS
AMSGAD
AMSGLG
AMSGTY

v01-0S

15-738¢

(W Wl

AMADRY

AMAMS1
AMAMS
2
AMAMS
3

(CREF

11-APR=B0

14=5

’

14-103

164-103

15-747«

" 16

15:01:20 PAGE S-9

4-319#

o
o
=

AMADR2
AMADR3

ADEV(CTY
ADEVM
AENV
AENVM
AFATAL
AMADR1

—

ADDW?
ADDWS
ADDW9

OO
hede
L R

ADDW6

NN OWNIWWNO O 2O 000000000000 DOOO0O0O0O0OOOOOOOOOOOOOOOVOVOOODOW

—

ADDWSG

ADDWS

VIV N SV IV LV LV LV IV IV IV LV LV TV LV LV LV LN LV IV IV IV IV IV TV TV IV IV IV TV IV IV IV TV IV TV IV TV IV TV IV IV, IV IV ] (o RV T o ol o
]
0 1 e L
e [} 8 00 0L
o0
00

ADDW13
ADDW14
ADDW1S
ADDW?
ADDW3

]

ADDWO
ADDWI
ADDW10
ADDW11
ADDW12

ACPUOP
ACTDRY
ACTSIR

ACDW?

MRV PNP
o

ABASE
ACCESS
ACDW1

Alo

TABLE

O 00
—
un =m0

CROSS REFTRENCE

MACRO v03.01

15-:09

SEQ 0202

AT2

«-2108

116
SEQ 0203

AP3-[V=a—1la~-[%—eV50a,l)LOaeolaLLO3laaLRlalO—R—eNdd[a~o0=-Vn5~a—d»lLO~](7—-A[Y=aoO¥3—T[¢ogOO-NR—VaelMOaA—X0Yee[-OY——aO[a0oO-¢eVl—[aalYeVa¥-Eaa—Xl][—[(O-\~R-—V'=N3a4]YNV—alNOr—r—
T—-o[(Ora'=—S¥]—M--M4"IL—ag~loN~-15—"-~[o—Fg¥a—]l Jg[UO—VYaa)llMVI-RYalNVRIOAVa[|eRVlNalRVaNV[gLwY]e"aslYVaYVal[V[-V"[}—aYl¥Vael[Va)Ww~F

wMaDxw>avMODoZLJZdNEuZda-NrSg—erP—StPt—Pte—t)—otOPtS=tg0ePbOt=eP0ge=etge%PPGbPeteeIebtoetSet0e0eateDA
sSL—(L-—J''ol]NMGMO74U'"LAaOL07l-L~kR—so0~o4-W—][a—--VO—[U|E—X VVao—ool1]d~l)Vo1Maw0Ok[V¥Yo"oa-eLr[1RotlX["W--—w~Y[)a}——) [o-[~YV[y}—alX~Vayl
@N«O«- OOIAouWmMMdoM=NMmUCd+MVNoOIoMAoOFAmAoN0OA0oOoA0mNoA0mDAa0OAn0* ~FoeA0Am0®AO~Aow0cOA0oAO0OoG00O4ODo4O0O60Co60OOaMODOGO0O0@OoOorOrorded
CROSS REFCRENCE TABLE

CIRMVAO RMO5/3/2 EXT'D DR TST
(CREF

MACRO v03.01
v01-05 )

13-337

L"1

11-APR-80

15-152#
15-327

13-354
1

~464
e

J 16
i5:01:20 PAGE S-6

15-424

164-492¢

15-530

~aO—NSoLOye0r—OtPF —-— -rv—-—[U"]}LV~ONA0TMoOMA—. 1|OU']}L1 Lo—-—0d—\J"[])U|!L OVoMNW—O L-O40~.N— oVL-al—kgtdaM[YT-0oO)
»

SEQ 0204

15-928

15-950

15-958

k-3

15-959
15-979

L
]

15-:69

14=516

[

C.SWR

6-0#

10-139

10-142

10-163

10-221

11-170

12-6¢4

K 16

12=124

13=300

16=192

14202

14=212

14-243 55365;52

VSM 2lN~N
vgLTolal.~aM=la3NSl00[[oP-¥---a&aV]!V—la]NWn~o-N—ROW~—NV&O0a0l\aNN[WQn~0OO-¥o.~d~—tV-]-[5—r5—a}]O)L44ooaG$Na-O0oaIk-40]NlUIS23[—Xe0®L[y~4-W-OalN\S[rF——)eL[~N[N—-kdaOVVa]I1E3[~—)R[YwAICNOO-r1I—mAo—N(a~~oLao(r0M-—--aV!o]0I!ylN0~dN~——]—]LITMrON1)']«N[VLo0o=-W4=~BTWa][}ly»X}—M[[a(—No~L~-—VgY]rU0a¥—a]=]lLF—=Vo—-—d~-~INnL]1e—L~O1<NlMYN=Ooa~o(N--O~]d)Noo"50=—[[=SO»w»as[oe—(-ONVOlV!VU_YaNa'—W[lowSL-W~oYTaVM]wO"VaN[——5l)l)aILWl=-nl—ONeO]LPWWONNgO[eO[VWO]—-~oLNa-g]2OJ]&¥y0[~[a—]]N0W-FNMrNO4=yNO~]0S—y—XLTO~—~5—-O—aeLI—eMC8FN1l—8G]aLO-VN~3~XNT0—V-MlOYFF]lES—LNVD-~UO—KaFl
o~oO-N~6a—V-0nv(OV~=J4 Q~oM-~3N— s[—N-~lV ~o-N~—Oow--——aN~8oO

Y-Ir—=JMaULNtF]vNm=Oy[bao8WNLL—1=aQMoBINVLo—RI[A»0aMONnRNeNWoTJNOMILbINoMeAN.W.eIo0L~O--ON=—BAA]MN—leua—n-—IwdOoLWV=)Ixle0WO-o<]VnTLoC—N—)-fAO(aFOoI\eyLNJS—0NONMTULM\J—ELMaOoN= wv—P\=-bgOBNaEonUUdVNOLLTNO=RMo’]MOlBIWUJZ—M[RgN)M2WOYOgSV0UrMMN[0 Fo-—=M1[gdN—Y[E0—BeXxOPT2EOg=——MJsRZaTdNINOo-DxOK]egT}IN——OW~gPOOMJI4N[-ODMNa—d0asVGIANZwWe-—uOgVONTswINMD=bKulegRCANVNOxLO-roIEW—NN—-XOOSe’1MIIAW=W-G0M0—NVNXLW—=-T«“ EeO4=AO-MV3——NG-TZeSOGgNNrXHO—I~]N-NgWesMS)UG5(PVO¢r—MOO=AeeIuoELN—nTVr=eY—NSGN—MTO eoOIPVXVIMANW o24Mdv¢NMx|yUgOXmXMLaogI-Y—oNOMoD—N[BIDoENIA~eO[OO0T1OUaNlLIN’TreF—MMogaVtEOl_VRL—-PN"—eoAt.gIS_adl.OVOe-—oA"r3Sa—tYINroeSOiITN=Ir00UiM0OI=0rO(R\O08)JFO0--TOLd>‘IA=s]e0NOxTNOOSTS=—gNMg00®n—rV>R0|e0—SOMgd-<OLo=S-DNA00MAN6o—MeL0E=M0GUO-~O=
vo--] ONwoo-~444-1'$''—BB0REENNRENN0M——«1(U"LOo-oLl\M1"~-—*|yF-MTRw[LvaVJIyAE (VVOo~-o——]YaJJ]0—¥[l]a ]0m))nN3aoLN-O~—-n|1 J]J dJlTy—L o-3 L[~-<8]-~=¥.a))5Lr——[g).L¢o04ovV‘""[[N~¢Y[w~wV-rV.a])]| aal—v]l. Vo--—IN-~]J1J[~N[}aMTV81eeULO0-o-—0aL—L¢yl—mItse—0~N-YyM1TY—]0Nu
MACRO v03.01
)

11-APR-80

L- -&

v01-05

= W =z

Ve]J1~[ogLiR— [ALaJ1¥) ~P~] (oVJ1] ~@'L]N-L—

LIONTROFMINANRONORNN~eAMONTAN—TIRN —(OFN[aIoVF0¥lOr=eSXTCO-avtklV—]@M~AdL

(CREF

& -

CROSS REFERENCE TABLE

CIRMVAO RMO5/3/2 EXT'D DR TST

L1 6
15:01:20 PAGE S-7
SEQ 0206

7-190

8 !

23-49#

SEQ 0207

———
e

DF21

g
~-o''
4M~O¢

NO 0 Oo e—MNANIN MIT

11-438
12-249¢
14-349
1
2
3
3

16-410

15-937

13-330

w N

[AS[=OIINNIINII TIEII TINNN)] MNO[]] WvO[]] m[[MN"sM
]—~) MMNF[[EOT—LLNM]O e

—_—aM OO N N MmN ~

OO FTOAWTr M O g O
FF11oE—rC|—INeO—IrN—) -e&["y2E0eI—MIAh) [M[k|(a4VhIeRg—V T VOo1'o NN<]' LM.]"al-

—ONF e — NN v MmN

—ONF e 3NN w M

NS g

-00N= MOMY
1

SEQ 0208

11-APR-80 15:01:20 PAGE S-8

MACRO v03.01
CZRMVAQ RMO5/3/2 EXT'D DR TST
CROSS REFLRENCE TABLE (CREF v01-05 )

DRVCLR

4-2B5#

17-459

SEQ 0209

~—OMUV;AN0L6TeIN0J—WO5INW6IUIe0D~M5RLI0BP4D|L2.444444777277772777272722012MG|03OoIo0"3ML34’

QO4O—o-3VEBMXN5OO—-WPEJEXN3X0NSoXeK0—XMN=OE3XIaI&OlgNMM[aOalGl,&r4Oaa—elO—lM-/—rWaa&NllO—MM‘8eaaWW—Ol&“daa7dM—W¥AaVVL=-Fol[}k[N]P~NJNO0UM=10N0-08O0N0ON6INMA0O0OONTNXOr—ONMooMVO[O——&-]la«V—YwaYV[OMr—l"e—nVaNla—ta~V¥0Olg&1—IavOilVaolev-«VO[PWVNW[]X—_
YSC-MOAMAUIMANsRNGOOe—&N&AIARRR,T]eZ=[Y=aYeaYe-YeP=Re=YPoloooYopYoatYPaYoAoYoayeaYoaYeayoaeYaYoaYb-Yb-eY-Yb-NNo1=-b1=A-b1=-Yb-bY-Y-bY-7-7-YR-7R-7ER-E7W-UYA-VYF-OarY-OY-EWY-X—Yl-EYX-XYE-—)Xx[
94&LOIO8XSa7MIBS83‘dIOX.ta!TZR¥NO3So"LIPa6NylQISl3I—..N‘8:8aI6Ol&R&0..N/eIaG0KlO-L4 [O—"0]aX8oO"-eal"Nv~["ayl0N«
CROSS REFERENCE TABLE

CIRMVAOQ RM05/3/2 EXT'D DR TST
(CREF

MACRO v03.01
v01-05 )

11-APR-80

E
15:01:20 PAGE
1
$-9

SEQ 0210

&e-

o -—-0oy

[e-ue—

M-—W—VP-OP—M SNO

OITN2>r¥rB2oOA03O0O20CO0CAO030r2rmMrrmrer 0b2&UL][V MRN-L CLaSoMNwOtn4lRslNdwiXan' [YgToM—VM ]Ye1aoPFS[4LvVtlXNa aONWONSO0--o L¢08eI]M7O06:4~908290 —P—iJoV[aXa4IlY¥).Vl 0O90—-5249061 8ST~ONOW—IMINMFYVMNIMN[BRNL]ONPOINXANOeN—&RolINe-O«& STRalO"J—OaIVlMVMeNl -&=a« OVTMIvNOSV L-& 1laXecVltoal®

DTE

4-163#

SEQ 0211

~N-[]y« o5N']~
wo0-~«]r~—

0- v~—-)]
w0Owv—~-]

~["--a5¥——] Lv[--..aVy——a]

—NAeG]OoI-NMF|WoOW=n\—-MA=IAOVWO®NeL-N—MN]l]—VIOMMNeYNOONMRANo0-I=)0NNwNIIO—MoeMOOY~L—4IOAM—N-MN|]"IOoN=NIwe~W-—OT)rv—MEmNeBOmNM=—NeO.oJ--U«—NOEOR]1V——aYa0NMOVODMO¥--4e&][$J}~]—SoE—NRESNN£OV—MOeN—RT211¢|AaEVCR0a-¥N—Nl|01—OMo-AT.~1N1U/NARMVF&ONo[M-WBNN.]C["UV—[a«OOANIIRONNN®To-~MBa[mU—Il~OMrOINONN—kNBeOAB%IOOrTMN—NMORRo~ —o 3-O—ONR—rOA—MON—MAMEBNAON-NoA~w-W-w0W~-=[1)'U rJ}——OO
---V~]1—y—R—4|1[aV-MIEX—JLX oW--]——

w-]—o—a}0V1—aN—1]0=L-!—=L.—R]3O-~-«=[—)—~-O—)y—Qew——nF[-1]—MU -— x,W\WWWNVo~W-)-e|«]] —l—[~

2—-NTWgoo)Va1uIogl0—[OTo‘anNMgvdYeLO1ogI=MIoo|A2WO)W1)gL—NLN-)o]O—1MoI=8PWT9N12NAOlOgIealI—WP~1uMeOIdMe2VO(-]—nPI[—]a1WPIe2OoW-eTg—=gI3—eT‘ES|2AN~3owo-O®VA—O0L—£5V.ONR—-)W6SM7--~-R3N-«——5——8VmTEOR3IN2VVX[TNAQ50OU-—Vle"¥Y]GalAe1oSl]rOMO[aa3LN"ae¥wPMVd0]a1VlNo—NXeaAgeVIalVD.RlsN]4SDNGe0MN8LaO—Atn3]8R-WN1AL—oo~=A—N—5A—RN8NM—N‘AO5A—L3N1AW-2AoLO~]aNn3[dyA—2Mr8N—-M1—N2A7M4N32I15I3I29V3LN3[3tI7aogL(OL ~OOao- owo-4V-® ‘a~5l]0LRl)NN9LoI4ata
.

CZRMVAQ RM05/3/2 EXT'D DR TST

CROSS REFLRENCE TABLE

«VIRJ[ONIYTVEREVVV]I(2OE&%.58 OA>NMINN
(CREF

v01-CS5

MACRO v03.01

)

-—

M -APR-80

15:01:20 PAGE $-10

)

SEQ 0212

O—WN0—-aD (-X~—Y

6-128#

SEQ 0213

CIRMVAQ RMO5/3/2 EXT'D DR TST

CROSS REFCRENCE

(CREF

v01-05

)

1 -APR=80

1
I
15:01:20 PAGE S-11

SEQ 0214

—

11-70
—

g—

16-134
14-<50#

11-100

11-132

11-161

11-230

11-265

11-530

11-531

12-60

13-88

13-165

13-182

11-101

11-133

11-162

11-231

11-266

11-306

11-355

11-385

11-532

11-533

12-60

15-875

15-939

15-989

15-:59

15-:87

15-:94

15-=744#

16-19

16-26

15-774

15-841

1
1

gp—qp—gg—PgggP ol[l

4[T

_JJ @

LkVRSySVTLl

WoTN=)Mte

TABLE

MACRO v03.01

o)_YVY.NVo] - LANAR2dT[

14-103

14~ 81

14-=484

14->10

14=>17

14->26

14->32

14->41

14->61

14--38

14=>034

11-190

11=211

11=243

11264

11-291

11-389

11-476

11=512

11-512

11-543

12-367

14-671

15-239

15-738#

11=146

11-191

11-193

11-201

11=237

11-245

11-272

11-316

11-32}

14-103

12-290

=677

11-512

11-544

11-548

12-197

J
12-256

12-323

13-223

13-310

13-380

14-880

14-883 SEékag?g

DA%Q0WOG~—Or&XAxwOJDG0wGnO)A0G0GO=a0wAn0ad[L~VgGb0PwXe3XmVewL]WN-wG‘e0—Wa_[WEVeaVlG>BO0oo—wMnOT>~FT¥TAWMwWF~>>dOaxoO=eT—IMNoT
& -

]1 [ LR) !L ]|III|| '] ]]

O4UNIQbWVoO0WXeNoo©(a[a‘a5[a-43——M-~-RN~O]]<YR'][]Ryo000rdpr—][[S]++V.6MsyOR0—V—AZO0W0ORVWS0NRGVRMV~10PA0IRF30=TVUP8OLF40AU8VRF00TEL0GWFOSsUENP1VRR6*Ug.0LWNAoMaOe=@ —*V~-[g6]]OF—0yMRVA8—oO——0_dRV—‘EO%L"VO1R1L34Y3O~.6I4LLJ8wT-M O0LnWr‘)>5—AFuE4r2OS1I"%—LfNE‘S32S75A—3U.Ol4«BRIN3.&f8T—-A|2IO&iNL'o8gOrR—ef1&‘rLoRRN—2&5r«UI—1&“RWAV0&4[h%WO--XX]|Y—1fdDO6w&SWuJ9R4-6Nodw2I4AS3W404p-No)oMT-O—N)I'L"—0O3[DSa1[)L~04ooo3n-—~~MO¥Ye&-LP-—[oM]—5]aga[)9—l-]eS‘R|®O74N—=u9VnO4M¢¢=—5<)|3NRK47~-o<]-«M=—T4rSV86—N-¥KL1I[y86kB982M Jk«e7I3—O8aI~o43OeFA~4MV-—‘»I]RwM,NX—8\WO]ATNR9OULn10~M[V[(O@8LN~OgI-—d-Oa[QPVa-—¥—9=-Ro]5.l¥—]~—.N]—t]Aa¥.L8NwE—OgA-0U-NuS8NTN=W9R0N-4~VWoM—--4—O2R15y]0S280R05RMLN0NRe4aoa-o~-aM6-Ewa—[¥][[ ]—50[X—n0MoL—6S5NG LPoQ£—U3o6L0k
- had ]L-<||}—2}[ ([[-aV=][¥a—}[) 1)
(CREF

MACRO v03.01
v01-05 )

11-APR-80

[~ar¥] o~

CROSS REFLRENCE TABLE

CIRMVAQ RM05/3/2 EXT'D DR TST
K
1
15:01:20 PAGE S-12

SEQ 0216

~LF]-[o=—] —L ][}

[

(V] -— ["a) ~r

- N o N a0

12-305

nsGi2x

6-0

18-624
SEQ 0217

CZRMVAQ RMO5/3/2 EXT'D DR TST

-l b and

OBEN
0cC

i
d
—

b =g
N

OPN.
OPN.

EXZON—

OFFSET
on
ONECYL
OPE
OPl

OfFD

)

18-58#
18-59#

R
%
%
2

L ¥

Run

-%gg

L] =

11-208

11-476*

11-477

11-512

14-,63

14-565

14->73

L
3]

11-388¢

I{ |
]

SEQ 0218

v01-05

L 2

NINONININONONIN)
—

OOOOO?OOGO‘O‘
[
't
o_o.—o.—-_._'a—aboo
WO —=NOWSH
NN

(CREF

11-APR-80 15:01:20 PAGE S-13

NED
NEM
NOCLOK
NONE
NOOP
NOTPRS
NOTRM
NOTSAF
08CK

NCY
NC2

bbbbbbb@bbbbbeO?bOObb@OmeOU‘b\flbb
'
]
LI I
I
I
I
0 L
L
L
'
u—-bbbrboo?ooooooo
[
L)
OO?I‘O‘O

—

-l
-

MUR
mwP
MXDLTA
MXF
MXLACT
MXSEEK
MXSTAL
MXWNDW
NBA

-—t

—

MSGMAX
MSGMIN
MSGNON
MSGNUM
MSGSEA
MSGTST

MSGBO1
MSGBOZ
MSGBO3
MSGBO4
MSGBOS
MSGBO6
MSGBOS
MSGBO9
MSGB10
MSGB11
MSGB12
MSGB13
MSGB14

)

MSGAVG

il o

MSG7XA
MSG7XB

N WVVVYY 2ANNO NI = NVIN =2 O ON) =t b et s Y = ) = OO — -t ed e p DY S ODWOO N NOOOOOOOO [e]lelelolel. Jole]
— =WV
O
WOWVRHOOOO
VO NO—=—=O VNN
NN OO NSV
~n
- ONO
NS
—NO SRR r ~N
oo
NN
0

CROSS REFERENCE TABLE

~ MACRO v03.01

18-394
14->7

14->59
14=>55¢
14=741

14-734

164-795

14->634
14->58
14-2924
14-276

164=-7934

11-263

11-305

11-381

11-528

12-30

12-155

12-229

12-306

_a& _a _a_A_a__A_A&A_
A
bbb —d
82
2

14=7297#

14241

14-719

.1
OPNa

SEQ 0219

6—WOa—0NavdadD—aMG0NaO~yg00¥aQ 4XMN4L<EgOO&1N7A,ICNYVIDgaF—Y.TN\[OGSVO m0—-ns—oroOoVrororSoNrOFOFNCONNOCONOCOeNOo-NoONON<N5M.-TC—eNNWOCWATeMNA—OITCN—TI-SOF
~[o(w-a=]V—N0)]

W . RR mRkRx nW

3o-~A[]

xeTNCROF3®oaQLRCJ—PaFEaXrO~OaABcLaWTdNKaaMAOAd]xaRVNMJM70]O"aBT~eyO440[L~o-4~o-a4~aA~ATM-Qyco-a~R=]’n][[aO5V]FX—nyC—n]dR)d]LLla0I8-=—x-N(0]MX3OOaA-I-aM70eN5xAcO703EEa7S.T0oOI3xN6IFa.0aEI5O-0d.LaeFa3EdEO.3Tca38aaNOOMoNNS -=©NL—-W3N.Xwn0RxN[][]’|d)'[—d—IaT3LoLMoD«.Ma~2ogxNWOUN-—MMJggoTOW—O&d)'"00[\OM—VMNTN~LADNOMY-Te—A-a&SF&&~eNRNN—=Nle0OCVT«Og7TZe—e-O0VMP=—«Oa—g))1.——aI]NOOMFO—NEJAN——02Nle—aeMM[N®VNeV0ESRNwOROM0TMANN——WeOI&ot-M-[Nn&SO][~aVOYa>oO)YIvTRa0tUATaWTVTOcMDWOaIeEL—tICAaT.OA-cN[IFMROaNN'] oC¥L1—g<-aaO¥O]COaVAOROMePLTMOBcATeeED—aNtROOOAOnBIVcRMLOnO3TO—.a1NOoI—aXASOTuM5A—rsMRAOaL—WcAOOOVraOAVn—Vow-Io<<-4]Sc[~')E]Ro—vSoPRr)anMOA—oRYXnPa—Od[¥ONV-(na—XOAOcIaTV——3®nR0oO==N-OAJ-.)—NA¢ZaEo]eR]]R1nV~—VSYMO2NVwR0eNZON[Ou<W—N[4MCW=AAC-A0Ie1T"0RnS0ZrBSO]NXNXZa—OWN——02x--SSASTN~TMENXN2_¥0]SZUAO1rE£1E(SNOjlMX3XNVC4[1-~t~--<A0—e0M2IVs]]&]oY(L[a—M4—[Z-rRLX)ueX%O80lwvO-xA-——»(nX
[N—q] ANOl o-wrnev ~a]¥]
CROSS REFZRENCE TABLE

CZRMVAQ RMO5/3/2 EXT'D DR TST
MACRO v03.01
(CREF v01-05 )

B
2
N =APR-8C 15:01:20 PAGE S-14

L]&

SEQ 0220

loaOd0]

L
]

]
— o ~N ~ oL

— ~N o~ ~~ ~N L]

— o~

PRM13

8-26

8-192#

SEQ 0221

=4MNOLXaygl~~4M.yx&-XRFN-YVVo¢YV&oYV¢alv4[—a"kaY[N"l'Vaa4l€})2-T14alt-e3lL=]aXNlValXVa[lA]"Val[YM"O[VaYlT"yaoI)YroaWyoYVNoaYVaOYvolVNeaYVeOYa[lVnalU]—u[—N(OMa¥uB]WO"~na—F)MV~F-Fe7aT~Fw—~EMrv5CDCOGOA0G0OG0G0GGOOadN40TG0Na0

r84[.d=014Md--Lgo%1aV—dLl}a-a—a[k3—alsd¥[gOw—NV~W]'}UW—0~.--NP0lWMPgZ®NaG.veR)lSJT®XgM.IDgPLBvsoL)Ol3LTSaaoaL~waw~--.—l[e]gl00nn—)4"2ea—eL=gU1"&"WZQMxg[V£U~ULgLA.R&kOPxtoo—[}~Z=oOoaY5Vl]a.ayo—N—WlYxNO3Vo[o~eYVh-l3araYl.oVe—RIxelLYOeVDlWVooKx—OlYVLoAVloOxoaIl0lDLVaONneadLOrllVaAua—WlYVa0NNralaOoAullUVowNLLo-wOol—lwWo%XMoN~C-NF=--Ur—oO[a[(Om0L3~—y==)NO0ALF—3])WoA-Id—oznOdlaW-—ne-l|0o([LMh0No3~~OTa--T[—o0)~}e[[V55—ol]I1NFE33I.OX2U.sM3rs2r3IsO2iN3sMs2i.sOz3sx~y
= WWwun e- 3 R- &]w o]]) o|--]}]I[ a-]'0 —"-]|1IY-x[| -]L]&--][
]' 1t ]1 ]

WOQE3OaWWMN-LM=~["[xFIOW0\OlNaO-5sI—xNIRAYaVoaOV-Xo~-~—xvc8Y=o]aF—=V—d]aLIScONaMnT[2NN WxaVAs1¥D]nNatnARcIxWavOac~oXNrs0AaceNF~+Net—xWrToaeNrRITMo*~aNN——AsL0BFoww[ oeco( -~NvVg0U-OOdt] —~L—]ncOOOg~UaM0rMcNALLN-VagN-dDKE0MNM)3gONSCVXGML&JOeOM]Y[GO«0MSCCOWENOH[——J W&]O08TVMNENVOZNU0VNeELOMVoXDN3=VN~Al1RAeWVRYOFE0o8N[Y-X"1NrY->}X[N——IawVYoV—aX"EN-VnW—UNYa2R)DeM0N00—N3lVHBeVeERN—OPl3HNoNV>0e—UlOEIUMoOVNR—NNlV5LoO20WHlLUD—FVoIONE>eIlOO0aN0slIrMIO—VaWMnMN-VdCNU~lAHd[N—No0OL-w—aCAVY""[uD]" V€lalId<FNM0<G0GOx0dMFON0n-AIOIN2N—-OMW5-AoOYlL0)\)u—COEa—XM-0T~5&ON4WnF—XNIW[N—RAEyC"[U0’GDaQSDA0oN-4WY8Mr O-—OO~O~dA"UL[FgeaLLlA0N)-GE—GCkoEl0—x=XIaFAAW"0aINxAMWa0rOAa=NN0OacVS—Gx0aOeAAxoDIVAaAa0NOIarNVGN0cxIOGNOaxI6Na00rOcN0e0xOaVaed8dnOaa0odaoGV-o 0
—ooa(0[wW———-]]V=][)]0a[[])-- o] -ML[o0o~—-—aa-)d1]V0—NNo—]L (~o—0—0-~-=[[]r}y}rN——]L
(CREF

INOMNMOCNVOB-M~COANMIONINWMONAeO—

v01-05

MACRO v03.01
)

— w[~Vl -~~

CROSS REFCRENCE TABLE

CIRMVAD RMO5/3/2 EXT'D DR TST
11-APR -80
D
2
15:01:20 PAGE S-15

SEQ 0222

-& -[=«

[

RECAL

6-2840

10-227

11-46

14=651

E
14-676

SEQ 0223

OTMON-L!LLy))Mo'0OO~0wN«J4J]\—ONNW=TV&N)|1!JMIoN[L")'SNNoeLU"[)~¢NV=WxONANO]|ININATMMIRAI0NOI-IIKSNIL"NI1LLLNN|~VR)MMBR])NRESBI_N3VOBBINTIRIIOOBIININIIUMALLN[=Ve))O[—OONTTOV(9LNNiL)OlLL 1

[~-=o1ay7]~-— [=oanV]M—nN~5d—al&=]OLVolo—noOLoal.al

x®o=o~L-|v-o©u—tOx—WWaUDOx=xDXVxeowO>=Da—N—]OOG4aaM-e73—[M--)eY0MWNVFY—XxB[a~¢—N——-ER]ONYL0D.T\ayoS~r[laaoVOO—o[UrDA"aO—LhdWNW(~aLXN0ooHL-x]--~[—4OVso.[0~N}5—a—]alNIwxInaLMRxOMYaH[(wOww--~EY=xNyka——]l)ZMM2aRxLaSOLx"wL--—~3x—olXT—akw3V=.xo-LY)0oZeZ[odoO~JMN3-aW\r<]aVVLlJ0¥ZaaSFIw]—YlVMVxYe—0£g~a—NVoOWoRF(gY[a_LOEXx(elRFK~nYMwwW0-oa~g—-adl—[X]NXuT0O®Ll0FaI«ua-ONwxciZNaOWwNNM[oaL1NYvO-A~X——C-VoMae¥)]oa—¥VOlVTel1ayo.OvePAa—&-[agM-X&—LVas]¥l«[]¥UNDO0XoVoU‘JVO-—-——¢&&dLaRVlrNT—SN2a=OAvN4—lo&e—aMvOMIldaadsrO—ONoWYlLV&g)ednCVeaX—gd'eO)VKN2N~NalW=s—r&LeM—O-FU«lTA[a’vaOVlaNMX—lKAFV’lr[LV]’aTvOaTV.Q-A€=nxF[-M—LRy&¥s|aW]S—/—asNl¥xEw«=wnMJoNNVFDOVoO-LnEx=RaTYoT—I+0]VIev—eaNRTPlrDw—wM--~OLoMoOxNZ-v)O=r——V=aAlNAo—aN«O=N\TSFQIAOOG=TNONJVTEO)EQJIOaX0VNN~NOESNFiT}XgNTO—VMJpXF]NIeVI¥NLlr—W-—T==Oy0ATaVe——IVoReOe~OXM-goF<]—eT—WSNUXE-SLEaoxBo>o0OM-aMJ—a—=Mxo~OO]xy[-xW-Na—OcNN=x»O0OFgae"aMM)4Vl—a—TM[)ao(0—-7N4A-O~YVal|N@[OoFI_Rl—gaR[0—SNVeaLY[—"w3o-FO—OOEIay~0—NXlAVo=0»
]
1
)
U
L
"
0
o
—
N
—
[
"
o
a
~
w
T
N
S
V
l
a
"
O
l
~
0
g
o
N
v
[
—
1
G
3
)
N
O
Y
[
~
N
a
2
L
"
V
l
w
s
'
]
N
l
V
t
a
"
y
a
I
J
]
|
L
4
1
A
R
O
[
I
|
L
]
U
)
D
N
R
}
L
h
[
—
0
e
o
g
_
O
~
l
M
—
¥
O
=
R
V
]
y
=
e
—
O
r
—
c
—
y
r
O
—
N
o
e
O
N
—
J
r
r
r
L
w
~
N
O
—
o
M
a
v
.
l
O
a
[
~
c
I
—
V
o
0
W
~
0
N
O
a
T
O
l
o
O
V
T
y
O
O
a
o
M
~
0
=
N
~
O
O
~
[
M
o
G
W
=
r
N
—
1
F
0
a
Y
0
~
e
J
o
a
N
[
O
M
w
—
Y
r
F
R
0
V
=
\
y
I
E
u
~
N
o
—
(
=
W
O
1
0
r
d
n
O
C
7
r
l
uWSZTXIWEVTIF¥OXSndITeyXxQrIfT«YE TNOVWeNS—ATMrDNOMl®D®R W[NaOA0]gWN3w~-\oAMAOIaMTIOO5AN0Mo-®e—T -LeN—=oLra—rd—lv—
(CREF

J ) 1 )] ) L ] 001 L]

- - - --

CROSS REFCRENCE TABLE

CIRMVAQ RMO5/3/2 EXT'D DR TST
MACRO v03.01
v01-05 )

11-APR-80

kL-&.3

15:01:20 PAGE S$-16

2
SEQ 0224

wL]K

SAVEFG

10-79¢

15-1244

15-605

15-766

15-955

SEQ 0225

2
11-A"R=-80 'S:01:20 PAGL »-17

SEQ 0226

-3
-

o "w

= =m

oAl

sy e OTeT —MNLR
A 0O0ONNNOOT
PTO T T 00000
N
N
NNIANIN I NI S ON O T NON OO TON—
S TNNA LN
ATVMA

wnd ~~54X[«

MACRO v03.0°
CZRMVAQ RMO05/3/2 EXT'D DR TST
CROSS REFLRENCE TABLE (CREF v01-05 )

13-3646

13-352

13-362

13-379

SEQ 0227

CIRMVAQ RMO5/3/2 EXT'D DR TST

CROSS REFZRENCE TABLE

STALL

STALLO
STALLY

STALLZ

STALL3

[
’

(CREF

11-186

11-179
14-435

13-384

13-389

14-527

8
4-308
4-310

10-16#
10-6#4
10=-13#

STARTG
STATBL
STKLMT
S10
ST

4-314
6-04
&-80#
15-:19
15-:51#

10-10#
14=45

ST102

S103
S105

S106
s107
S108
S109

STRTIA

STRT2A
STRTMR
SVADR

SVRH70

SVSTAY

&-312

11-199

11=172«
14-397

STARY
STARTYT
START2

STARTY

MACRO v03.01
v01-05 )

10-3#

15=:54

15-:68#

15-:72
15=:74
15-:9
15-:48
10-4
10-11
12-90
6-04

15=-:844
15-:928
15-:98#
15-:58

15=:67

15=:75

15-:79

10=-14#
12=-180
13-322¢

12-252
13=323«

12-329
13-341

14-701#
13-342

15-768

15-784

15-842

15-892

15-910

11-438

15-:76#

10-7#

11=512

12-100

SW00
SWO1
Sw02
Sw03
SW04
SW05

4-80
4-80
4-80
4-80
4-80
4-80

4-804
4-80#

4-80#
4-80#
4-80
4-808

13-248
13-255
13-250
13-230
13-230
14-202

Sw09
Sw1

4-80
&-80#

-804

14-997

SWis
SWi4

SW1$S

4-80#

4-80
4-80
4«-80

4-804
&-804
4-80#

4-80#
4«-80#
4-808

«-808
4=-808

12=-229

4-80#

SWe
Sw3

4&-80#
4&-80#

SWS

«<-80#

Sw?
Sw8
Sw9

4<-80#
4&-80#
4-800

SWé

SWR

11-187

15-:52

14-566+

SWwi0
SwWi1
SWi12

13-388

15-:50

15=:70
15-:82#

11=210¢

15-:39#

14-42

SwWw06
Sw0?7
Sw08

11-205

14~109

15:01:20 PAGE S-18

SEQ 0228

11-185

10-194

6=-0#

SwW0

11-APR-80

12-109

13-359

15-957

15-991

14-999

14-:71

164-; 34

13-241
13-233
14-212

14-475
14-:03

11=4S

11-68

11-98

14-613
14-394

14-432

14-524

14-65¢4
10-21

10=21«

13-300

13-358

12-191

12-126
14-<23
14-5

13-21

15-:83

12-119

12-64
14-325
10-163

12-306

15-:81

12-209

15-:89

15-:96

12-263
15-:61

12-352

12-363

15-607

14-192

14-759

14-798

11=130

11=159

11=170

11-228

11-263

11-528

12-30

12-155

10-21¢

10-22

10-66

1145

11-130

11-159

11-228

14-:30

13-78

13-157

13-289

13-374

4-80#

4«-80#

5-0#

14-537
10-21

11-263

11-305

11-381

11-528

12-30

12-155

12-229

12-3C6

13-21

13-78

13=-157

13-228

13-233 SEAS(.)SE“?

LPNOdGK0ok)NO2LS0PFO"ST2MOaFd&GNIOeD&PNOeOMlPNLTOTYPOwWMNNEWGMTFAgNA)8oPFaF=dg0eLMoooRN=ol=3—7=7OA=MO-o—AoMM=Nao—OlMNaAGlV[N==OoLDWaMadNlowkOaul[OoOnBRoMlNX3X-OoV2,o—O+"d5.[[LYM(a.VlOaot0aXMmumNTnV,OYO—YMVNTe—N—WTINNINNTOIVNSTIATNaLNBITaWNked-UOf~ay=RaNN0lMI~La~FA
PQxOa"goie0woaoynWkdaBLdeaaOdPeMAt&BoLe&NNaol—WOePaOW0Ld\oLDV[B~ogOe]-loovat[T]—lAlooNlgO=PNtLeSAeOl--—AO—D[oOslLEPISXA=oOMot.VoO~-N0OlrPN[oAlAvPLoMWLXe7dD=®OXolRGP=oSXloe0G=NNdX=o0AoO—Rl0OWPhLYwNd-d)oa.0nyP][eELdWeMl8D3ao=dl8GBeeorNllGL.aeoL0lloWPrLe(7lOWeore2OlGLeo3lUrBoNleWoO=&lW|~B-e[-TowlaI—MB=Vn—oOWeWgIslOLWBLIwNT-eOonlN0eDW€Te€e=|0O—SAON-4eee—JEReOENNLd-—eba—[0WoeeoOOBIUA=oL¢gOO—[> ]lgbEoXigO-NTkW=gRLELS(PMMol[VNok
oO[a-w-oVa—l ~=[o4-5ad)V——[aL[oLYaOo~AeY—kFde
DwS>€O)ODLDRSNONIAOADWG00R0IOOAoR=NeRoAN=0W4F0PVoA0N0LkNAD¢P0O(VMAoM0.=NXSoW0Y6=NVRe0ONMOeVAeNVoe]=NNeoA=IVOe]ONe[VVAReNB=eUENeOLVRNOIMeIGDNERfoVmIeNTUFeWTNeVrO4EeV,ZOOe0RoINAOL"ReaE1Y(BTEWeRM)OBrO8>ABNEeL)BCON=AIBOMIADMOONOIPDSLIeMNLwOAdNLN
LO0~wL[W—agOY.n[]yadl)LNg~V0F[| oW O]] o] O] J ~wo-M—)|LrN—oonAOW MI~N]go-OA~-I—LU|F
]a[wo-o—~~V’]a0y[) Og8X[o~4-"|rk3~mA[——tLVa
oa[-LXV])l .e(o—O"=9oMy1-—}
CROSS REFERENCE TABLE

CZRMVAQ RMO5/3/2 EXT'D DR TST
(CREF

MACRO v03.01
v01-05 )

=Wws®&nemsn

11-APR-80
15:01:20 PAGE S-19

L
]

14-247+
14-251¢

15-638¢
15-651

SEQ 0230

15-669¢
15-678¢

15-757

15-758¢

15-:55

15-:65¢

1510

11-444

SEQ 0231

~ CIRMVAQ RMOS/3/2 EXT'D DR TST

MACRO v03.01

CROSS REFCRENCE TABLE (CREF v01-05 )

2
11-APR-80 15:01:20 PAGE $-20

SEQ 0232

Oe=—WaT-[0C0NJ—

[

- =

~ VOO OV N\ OO0—

O Or—er—MPO——@onr VvV ONMMAN

a0OWNOWIVLONOV)o["aX

[I]

O
[
N
a
I
4
E
T
V
I
T
E
I
T
X
I
T
S
(XRo-LaOMNlavYdt«el)a—e
-

WCF

L1564

SEQ 0233

CIRMVAQ RMO5/3/2 EXT'D DR TST

MACRO v03.01

CROSS REFERENCE TABLE (CREF v01-05 )
WCHKX

3
Cc
11-APR-80 15:01:20 PAGE S-21

SEQ 0234

5-769

15-790

4 29%#

13-37

13-54

13-104

13-127

13=244

13=-343%

13-360

14=471

14495

WRITE

(=2948

11-384

13-35

13=48

13-86

13-121

13-236

13-299

13-324

14=477

WRT.AD
WRT.R1
WRT.R2
WRT.R3
WRT.RG

15=;64%
15-;75#
15-;61¢
15-:70
15-:86

15-;74e
15-:95
15-:94#
15-;81
15-,98#

15-;77#

22-6

15-.84

15-:90

15=:964

WRT.RM

15-315

15-319

15=497

15=-501

15-894
15=-.76N4

15-505

15-933
22-6

15-51%

19-523%

15=-527

15-538

15=545

15=5595

10=34

10=37«

10-38

10=40*

10-45

10-56

10-108

10-110

10-153

10-155

WD
WLE

L-1734
L=162#4

WRCKHD

&=293K

WRCKD
WRL

WRT.RS

(-1430

15-:97

WRT. WD

15-615
15-:62¢

XXDP

6-0#

WRTHD

&=295#

15-:99#

15-628
15-:66

15-864
15=:;73¢

15-;61#

15-569

15-579

15-600

5<0
5-0

wNN-' --~
w

WOWA"ryLY] ~~QRNa=T0PO~

"Me——M L.l YON TT

13-305

37 Ne—e— "N < NI

3e—R7[[N-u7~— NMNO——BUeIe—NN—e—C<——IaI~vMTVNMM—MAM W—OsT$T""rON—e NONIe—NRRwIMv—~aITo—TVwOSTn
S0IY'TO-M-——~ROL-WoT—'—= Oe-—S—RNOM——aO—.aMue-lNa——MlaN—l -I—O-SA1—RN—— —2O—-—"T—A2LT———a0A——e

1
6

AR AR A

E 8 8 S WY RN R RS

s O O ONOWN " M— — AN O |V ANOO O O ~O0MNO
—NIO TNIITIIITIIITT SIIY I T I T IILIIIIIITS OO—NMNMN S INIOIIITO

LWo—eLPMMOMSaW—
—b—e—-LMMte<sN w

NNo- oo!'~~ v--3[[

12-2co

R AR AN A

5<0

SEQ@ 0235
11-APR-80 15:01:20 PAGE M-1

MACRO v03.01
CIRMVAO RMO5/3/2 EXT'D DR TST
CROSS REFCRENCE TABLE (CREF v01-05 )

(=]-—[V3~~yMO~3o~5
—4Cg8A0gaK"o0d———g——n[g|SIgUgIMIg-—IFI-OLIg~g'gMg|goI—eOIM=I—gO——|M—0——-gg0e——0y0 g<——

PNO-SOo—o¢—o475MN-L—~[-g-o-OL~W-LNN-vvIO-1V]')]]"—5[3rN—aTBVNlOraLO~—IeVSKR0oaNXYIaoeLLN0o—OoA-LVOetI]_ArlaO)—V(~Yd[.—O"0l~VowvTe--DOW]--se—=al]N[Lyl0(I—yN—~——[—[l]E[o.VRNeBOIALCNDByWIDSweTDINHO=AeRZIOWT=Na*Sa4oYw—OOYw0O44OO~--5Mo~A-—a==IdVoo]']\~0XXr[—OaLJIm"]~0A-]-—DMW-DXO0—O3LL(]aooL[o~owow---w-A--pQaN—~aO—aVaJ]0yV—N}n——[el—]ll7d+OI—wDR>DS0eOWA~Ty~\N"aTOONF—SOeM3M-T-—NA5———eooo—OlR)00]N~.XOM¥OLaX"NWt~=—oNO—a&—R—l--aM—aa=IeeoO0OINSOlOlO[[—S—O.INw~AWY\oMVV<=BI\<0a0OaTm&AMNOMaNl—loUNy~OS-~aaVoo—G—-kNa-N—ITOo—oy2M——¢NeJ¢yVUdN0OMdSW2eli0DaaeOUNrvVTOgoNOV~¥—VeY¥a—~e[.~0EO—lYN_Lrav---Oa—WevO|.———Dl-EOMdNaCxADIu[w[~ww-4w—Z-W~N--~L--—V—"OV]]']yrmXaaa—Vym—v——o——lI)~)bRa«[TM«M\c0V-AO—-ONJYaC—[U~[ohLaVwOoM—-—¥-eNOM—LauDxY—o]}.—aUleN"NxL0oV¥anO-[ld]Igd—nIX2ag]M]AYN]OI—-NaVaeXN~5¥OlOMoMO~tmR¥Vl1yI[ra—HNLyA}O]NaaAMoe—EO-N—DA»X—N2~oN—woO—Oa~-TT—e—O=-a}"]LA7VzT0n[—)y—oO0N~OV-—-uoMar~lN—I—»~N)ROA-=—Oe—v\No0o[LOOWNNoo~—5-N~--Nw—E-0—O-M—])|L[]olN}~——vLIZOoWY—0Vw0]—~ONW=—-—v—OAR]"|)»B0Re|NrgO1M1y¥-N-0VoN0(-W”O)O~kMa0|—OWVN"I=1LV\euNyO0l4]O0[I"Oa00AM——l~Oao-—mM-~-y.—X-[t(NWL)|V\N(—O@L—gVlgMAwW-«BIaNk—o-Mo-AO-OD4rN—NOwYNNW0-WOOoo0-IVMwv~-~-AwuS—¥-1[]—]\—n—~5—}en—NoTNAnOAdIML-MSLo-MS——oM—MoON—OON——.N[I»]La"lmma_~elolONLNO})——0Mmy(IOaLo~o~)V—J--w-—|[VVN—a~yFM—P—O]]Wa>4-N=I"[iC-OIIWwNN]NO-0wov-o~OM-I]NL']\—}5—mRIDNOw[V-(8aKo4N[W~4M-5&3~W~-oOVa][[)N]«Xn}—Nyg0}5b——E[RLY
-— o M —OVA — UMDMOM e-M N— NN

4_WOrO->L—ao]>NoNOSN_OOOPI—|0CcaR>cOaBRa=—MRUgyBX|N~O_—V_FIB—NOOO NI3R_~NIjDiO—e O—[—gVIWRekEo'Rtt—A—|T—MIDQrINV—NAWeIrRV—FNCB~IOINW>TIvr EDN—ORrEMT—RIID=M|E4R3=Oe|rNI=MIMA&O[w9Ie=R—"MMNo@rPtcOrO)—eVOwrR—Mo-MOr|
—)]_InINIIaoLL g||I—|[ M|)gIIIBIIFOII—O[LI g— )' —0|MI0[E8IT8]NI0I—NLI M|)II[[ —|"IM[ O¢)trM| ]
CROSS REFCRENCE TABLE

CIRMVAQ RMO5/3/2 EXT'D DR TST
2

(CREF

MACRO v03.01
v01-05 )

b
3

11-APR-80

4
3
15:01:20 PAGE M-?

SEQ 0236

wuW

=nW